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 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
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 regles=(AU_MOINS_UN('POUTRE','BARRE','COQUE','CABLE','DISCRET','MASSIF',
341 'ASSE_GRIL','GRILLE','AFFE_SECT','AFFE_FIBRE'),),
342 MODELE =SIMP(statut='o',typ=modele ),
343 INFO =SIMP(statut='f',typ='I', defaut= 1 ,into=(1,2) ),
344 VERIF =SIMP(statut='f',typ='TXM',max='**',into=("MAILLE","NOEUD") ),
346 POUTRE =FACT(statut='f',min=01,max='**',
347 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
348 MAILLE =SIMP(statut='f',typ=ma,max='**'),
349 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
350 SECTION =SIMP(statut='o',typ='TXM' ,into=("GENERALE","RECTANGLE","CERCLE") ),
351 CARA_SECT =SIMP(statut='f',typ=(cara_pout) ),
352 TUYAU_NCOU =SIMP(statut='f',typ='I',min=1,max=10,defaut=3),
353 TUYAU_NSEC =SIMP(statut='f',typ='I',min=1,max=32,defaut=16),
354 b_generale =BLOC( condition = "SECTION=='GENERALE'",
355 CARA =SIMP(statut='o',typ='TXM',max='**',
356 into=("A","IY","IZ","AY","AZ","EY","EZ","JX","RY","RZ","RT",
357 "AI","JG","IYR2","IZR2","A1",
358 "IY1","IZ1","AY1","AZ1","EY1","EZ1","JX1","RY1",
359 "RZ1","RT1","AI1","JG1","IYR21","IZR21","A2",
360 "IY2","IZ2","AY2","AZ2","EY2","EZ2","JX2","RY2",
361 "RZ2","RT2","AI2","JG2","IYR22","IZR22","H",
362 "HZ","HY","EP","EPY","EPZ","H1","HZ1","HY1",
363 "EP1","EPY1","EPZ1","H2","HZ2","HY2","EP2",
364 "EPY2","EPZ2","R","R1","R2") ),
365 VALE =SIMP(statut='o',typ='R',max='**'),
366 VARI_SECT =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE",) ),
368 b_rectangle =BLOC( condition = "SECTION=='RECTANGLE'",
369 CARA =SIMP(statut='o',typ='TXM',max='**',
370 into=("H","EP","HY","HZ","EPY","EPZ",
371 "H1","HZ1","HY1","EP1","EPY1","EPZ1",
372 "H2","HZ2","HY2","EP2","EPY2","EPZ2") ),
373 VALE =SIMP(statut='o',typ='R',max='**'),
374 VARI_SECT =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE","AFFINE"),defaut="HOMOTHETIQUE"),
376 b_cercle =BLOC( condition = "SECTION=='CERCLE'",
377 CARA =SIMP(statut='o',typ='TXM',max='**',
378 into=("R","EP","R1","R2","EP1","EP2") ),
379 VALE =SIMP(statut='o',typ='R',max='**'),
380 VARI_SECT =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE",) ),
381 MODI_METRIQUE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
383 FCX =SIMP(statut='f',typ=(fonction) ),
386 BARRE =FACT(statut='f',min=01,max='**',
387 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
388 MAILLE =SIMP(statut='f',typ=ma,max='**'),
389 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
390 SECTION =SIMP(statut='o',typ='TXM',into=("GENERALE","RECTANGLE","CERCLE") ),
391 b_generale =BLOC( condition = "SECTION=='GENERALE'",
392 CARA =SIMP(statut='o',typ='TXM',into=("A",) ),
393 VALE =SIMP(statut='o',typ='R' ),
395 b_rectangle =BLOC( condition = "SECTION=='RECTANGLE'",
396 CARA =SIMP(statut='o',typ='TXM',into=("H","HZ","HY","EPY","EPZ","EP"),max=6 ),
397 VALE =SIMP(statut='o',typ='R',max=6 ),
399 b_cercle =BLOC( condition = "SECTION=='CERCLE'",
400 CARA =SIMP(statut='o',typ='TXM',max=2,into=("R","EP") ),
401 VALE =SIMP(statut='o',typ='R',max=2 ),
403 FCX =SIMP(statut='f',typ=(fonction) ),
406 COQUE =FACT(statut='f',min=01,max='**',
407 regles=(UN_PARMI('MAILLE','GROUP_MA' ),
408 PRESENT_PRESENT( 'EXCENTREMENT','INER_ROTA' ),),
409 MAILLE =SIMP(statut='f',typ=ma,max='**'),
410 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
411 EPAIS =SIMP(statut='o',typ='R' ),
412 ANGL_REP =SIMP(statut='f',typ='R',min=2,max=2),
413 A_CIS =SIMP(statut='c',typ='R',defaut= 0.8333333E0),
414 COEF_RIGI_DRZ =SIMP(statut='f',typ='R',defaut= 1.0E-5 ),
415 COQUE_NCOU =SIMP(statut='f',typ='I',defaut= 1 ),
416 EXCENTREMENT =SIMP(statut='f',typ='R' ),
417 INER_ROTA =SIMP(statut='f',typ='TXM',into=("OUI",) ),
418 MODI_METRIQUE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
421 CABLE =FACT(statut='f',min=01,max='**',
422 regles=(UN_PARMI('MAILLE','GROUP_MA'),
423 UN_PARMI('A','SECTION') ),
424 MAILLE =SIMP(statut='f',typ=ma,max='**'),
425 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
426 N_INIT =SIMP(statut='f',typ='R',defaut= 5000. ),
427 A =SIMP(statut='f',typ='R' ),
428 SECTION =SIMP(statut='f',typ='R' ),
429 FCX =SIMP(statut='f',typ=(fonction) ),
432 DISCRET =FACT(statut='f',min=01,max='**',
433 regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
434 NOEUD =SIMP(statut='f',typ=no,max='**'),
435 MAILLE =SIMP(statut='f',typ=ma,max='**'),
436 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
437 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
438 REPERE =SIMP(statut='f',typ='TXM',into=("LOCAL","GLOBAL") ),
439 AMOR_HYST =SIMP(statut='f',typ='R' ),
440 CARA =SIMP(statut='o',typ='TXM',max='**',
441 into=("K_T_D_N","K_T_D_L","K_TR_D_N","K_TR_D_L",
442 "K_T_N", "K_T_L", "K_TR_N", "K_TR_L",
443 "M_T_D_N","M_TR_D_N","M_T_N",
444 "M_T_L", "M_TR_N", "M_TR_L",
445 "A_T_D_N","A_TR_D_N","A_T_D_L","A_TR_D_L",
446 "A_T_N", "A_T_L", "A_TR_N", "A_TR_L") ),
447 VALE =SIMP(statut='o',typ='R',max='**'),
450 ORIENTATION =FACT(statut='f',min=01,max='**',
451 regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO' ),),
452 MAILLE =SIMP(statut='f',typ=ma,max='**'),
453 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
454 NOEUD =SIMP(statut='f',typ=no,max='**'),
455 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
456 CARA =SIMP(statut='o',typ='TXM',
457 into=("VECT_Y","ANGL_VRIL","VECT_X_Y","ANGL_NAUT","GENE_TUYAU") ),
458 VALE =SIMP(statut='o',typ='R',max='**'),
459 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-4 ),
460 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
463 DEFI_ARC =FACT(statut='f',min=01,max='**',
464 regles=(UN_PARMI('MAILLE','GROUP_MA'),
465 UN_PARMI('ORIE_ARC','CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE',
466 'POIN_TANG','NOEUD_POIN_TANG','GROUP_NO_POIN_TG'),
467 PRESENT_PRESENT('ORIE_ARC','RAYON'),
468 EXCLUS('COEF_FLEX','COEF_FLEX_XY'),
469 EXCLUS('COEF_FLEX','COEF_FLEX_XZ'),
470 EXCLUS('INDI_SIGM','INDI_SIGM_XY'),
471 EXCLUS('INDI_SIGM','INDI_SIGM_XZ'),
472 PRESENT_PRESENT('COEF_FLEX_XY','COEF_FLEX_XZ'),
473 PRESENT_PRESENT('INDI_SIGM_XY','INDI_SIGM_XZ'),),
474 MAILLE =SIMP(statut='f',typ=ma,max='**'),
475 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
476 ORIE_ARC =SIMP(statut='f',typ='R'),
477 CENTRE =SIMP(statut='f',typ='R',max='**'),
478 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=1),
479 GROUP_NO_CENTRE =SIMP(statut='f',typ=grno,max=1),
480 POIN_TANG =SIMP(statut='f',typ='R',max='**'),
481 NOEUD_POIN_TANG =SIMP(statut='f',typ=no,max=1),
482 GROUP_NO_POIN_TG=SIMP(statut='f',typ=grno,max=1),
483 RAYON =SIMP(statut='f',typ='R'),
484 COEF_FLEX =SIMP(statut='f',typ='R'),
485 INDI_SIGM =SIMP(statut='f',typ='R'),
486 COEF_FLEX_XY =SIMP(statut='f',typ='R'),
487 INDI_SIGM_XY =SIMP(statut='f',typ='R'),
488 COEF_FLEX_XZ =SIMP(statut='f',typ='R'),
489 INDI_SIGM_XZ =SIMP(statut='f',typ='R'),
490 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
491 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
494 MASSIF =FACT(statut='f',min=01,max='**',
495 regles=(UN_PARMI('MAILLE','GROUP_MA'),
496 UN_PARMI('ANGL_REP','ANGL_AXE'),
497 EXCLUS('ANGL_REP','ANGL_AXE'),
498 EXCLUS('ANGL_REP','ORIG_AXE'),
499 PRESENT_PRESENT('ANGL_AXE','ORIG_AXE'), ),
500 MAILLE =SIMP(statut='f',typ=ma,max='**'),
501 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
502 ANGL_REP =SIMP(statut='f',typ='R',max=3),
503 ANGL_AXE =SIMP(statut='f',typ='R',max=2),
504 ORIG_AXE =SIMP(statut='f',typ='R',max=3),
507 POUTRE_FLUI =FACT(statut='f',min=01,max='**',
508 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
509 MAILLE =SIMP(statut='f',typ=ma,max='**'),
510 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
511 B_T =SIMP(statut='o',typ='R'),
512 B_N =SIMP(statut='o',typ='R'),
513 B_TN =SIMP(statut='o',typ='R',defaut= 0.E+0 ),
514 A_FLUI =SIMP(statut='o',typ='R'),
515 A_CELL =SIMP(statut='o',typ='R'),
516 COEF_ECHELLE =SIMP(statut='o',typ='R'),
519 GRILLE =FACT(statut='f',min=01,max='**',
520 regles=(UN_PARMI('MAILLE','GROUP_MA'),
521 EXCLUS('ANGL_REP','ORIG_AXE'),
522 ENSEMBLE('ORIG_AXE','AXE')),
523 MAILLE =SIMP(statut='f',typ=ma,max='**'),
524 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
525 SECTION_L =SIMP(statut='o',typ='R'),
526 ANGL_REP =SIMP(statut='f',typ='R',max=2),
527 ANGL_L =SIMP(statut='f',typ='R'),
528 POUR_CENT_L =SIMP(statut='f',typ='R'),
529 POUR_CENT_T =SIMP(statut='f',typ='R'),
530 EXCENTREMENT =SIMP(statut='f',typ='R'),
531 ORIG_AXE =SIMP(statut='f',typ='R',max='**'),
532 AXE =SIMP(statut='f',typ='R',max='**'),
533 COEF_RIGI_DRZ =SIMP(statut='f',typ='R',defaut= 1.0E-10 ),
534 GRILLE_NCOU =SIMP(statut='f',typ='I',defaut= 1,min=1,max=1 ),
537 RIGI_PARASOL =FACT(statut='f',min=01,max='**',
538 regles=(UN_PARMI('COEF_GROUP','FONC_GROUP'),
539 UN_PARMI('COOR_CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),),
540 GROUP_MA =SIMP(statut='o',typ=ma,max='**'),
541 FONC_GROUP =SIMP(statut='f',typ=(fonction) ),
542 COEF_GROUP =SIMP(statut='f',typ='R',max='**'),
543 REPERE =SIMP(statut='f',typ='TXM',into=("LOCAL","GLOBAL") ),
544 CARA =SIMP(statut='o',typ='TXM',max='**',into=("K_TR_D_N","A_TR_D_N") ),
545 VALE =SIMP(statut='o',typ='R',max='**'),
546 GROUP_NO_CENTRE =SIMP(statut='f',typ=grno),
547 NOEUD_CENTRE =SIMP(statut='f',typ=no),
548 COOR_CENTRE =SIMP(statut='f',typ='R',max='**'),
551 ASSE_GRIL =FACT(statut='f',min=01,max='**',
552 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
553 MAILLE =SIMP(statut='f',typ=ma,max='**'),
554 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
555 CARA =SIMP(statut='o',typ='TXM',max='**',
556 into=("K_TR_D_N","K_TR_D_L_T","K_TR_D_L_N",) ),
557 VALE =SIMP(statut='o',typ='R',max='**'),
558 PAS_T =SIMP(statut='o',typ='R'),
559 PAS_N =SIMP(statut='o',typ='R'),
560 ANGL_REP =SIMP(statut='o',typ='R',max='**'),
561 COEF_ECHELLE =SIMP(statut='o',typ='R'),
565 AFFE_SECT =FACT(statut='f',min=1,max='**',
566 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
567 AU_MOINS_UN('TOUT_SECT','GROUP_MA_SECT','MAILLE_SECT'),
568 PRESENT_ABSENT('TOUT_SECT','GROUP_MA_SECT','MAILLE_SECT'),),
570 NOM =SIMP(statut='f',typ='TXM'),
572 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
573 MAILLE =SIMP(statut='f',typ=ma,max='**'),
575 TOUT_SECT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
576 GROUP_MA_SECT =SIMP(statut='f',typ=grma,max='**'),
577 MAILLE_SECT =SIMP(statut='f',typ=ma,max='**'),
579 MAILLAGE_SECT =SIMP(statut='o',typ=maillage),
580 COOR_AXE_POUTRE =SIMP(statut='o',typ='R',min=2,max=2),
584 AFFE_FIBRE =FACT(statut='f',min=1,max='**',
585 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
587 NOM =SIMP(statut='f',typ='TXM'),
589 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
590 MAILLE =SIMP(statut='f',typ=ma,max='**'),
592 CARA =SIMP(statut='f',typ='TXM',defaut='SURFACE',into=('SURFACE','DIAMETRE',)),
593 VALE =SIMP(statut='o',typ='R',max='**'),
594 COOR_AXE_POUTRE =SIMP(statut='o',typ='R',min=2,max=2),
599 #& MODIF COMMANDE DATE 05/12/2001 AUTEUR VABHHTS J.PELLET
600 # CONFIGURATION MANAGEMENT OF EDF VERSION
601 # ======================================================================
602 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
603 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
604 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
605 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
606 # (AT YOUR OPTION) ANY LATER VERSION.
608 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
609 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
610 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
611 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
613 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
614 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
615 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
616 # ======================================================================
617 AFFE_CHAR_ACOU=OPER(nom="AFFE_CHAR_ACOU",op= 68,sd_prod=char_acou,
618 fr="Affectation de charges et conditions aux limites acoustiques constantes",
619 docu="U4.44.04-e",reentrant='n',
620 regles=(AU_MOINS_UN('PRES_IMPO','VITE_FACE','IMPE_FACE','LIAISON_UNIF' ),),
621 MODELE =SIMP(statut='o',typ=modele ),
622 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
623 PRES_IMPO =FACT(statut='f',min=01,max='**',
624 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
625 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
626 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
627 MAILLE =SIMP(statut='f',typ=ma,max='**'),
628 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
629 NOEUD =SIMP(statut='f',typ=no,max='**'),
630 PRES =SIMP(statut='o',typ='C' ),
632 VITE_FACE =FACT(statut='f',min=01,max='**',
633 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
634 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
635 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
636 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
637 MAILLE =SIMP(statut='f',typ=ma,max='**'),
638 VNOR =SIMP(statut='o',typ='C' ),
640 IMPE_FACE =FACT(statut='f',min=01,max='**',
641 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
642 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
643 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
644 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
645 MAILLE =SIMP(statut='f',typ=ma,max='**'),
646 IMPE =SIMP(statut='o',typ='C' ),
648 LIAISON_UNIF =FACT(statut='f',min=01,max='**',
649 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE' ),),
650 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
651 NOEUD =SIMP(statut='f',typ=no,max='**'),
652 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
653 MAILLE =SIMP(statut='f',typ=ma,max='**'),
654 DDL =SIMP(statut='o',typ='TXM',max='**'),
657 #& MODIF COMMANDE DATE 21/06/2001 AUTEUR VABHHTS J.PELLET
658 # CONFIGURATION MANAGEMENT OF EDF VERSION
659 # ======================================================================
660 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
661 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
662 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
663 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
664 # (AT YOUR OPTION) ANY LATER VERSION.
666 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
667 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
668 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
669 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
671 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
672 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
673 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
674 # ======================================================================
675 # RESPONSABLE VABHHTS J.PELLET
676 def affe_char_cine_prod(MECA_IMPO,THER_IMPO,ACOU_IMPO,**args):
677 if MECA_IMPO != None : return char_cine_meca
678 if THER_IMPO != None : return char_cine_ther
679 if ACOU_IMPO != None : return char_cine_acou
680 raise AsException("type de concept resultat non prevu")
682 AFFE_CHAR_CINE=OPER(nom="AFFE_CHAR_CINE",op= 101,sd_prod=affe_char_cine_prod
683 ,fr="Affectation de conditions aux limites cinématiques pour traitement sans dualisation",
684 docu="U4.44.03-e",reentrant='n',
685 regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO','ACOU_IMPO'),
686 EXCLUS('MECA_IMPO','THER_IMPO'),
687 EXCLUS('MECA_IMPO','ACOU_IMPO'),
688 EXCLUS('THER_IMPO','ACOU_IMPO'),),
689 MODELE =SIMP(statut='o',typ=modele ),
690 MECA_IMPO =FACT(statut='f',min=01,max='**',
691 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
692 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','TEMP','PHI'),),
693 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
694 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
695 NOEUD =SIMP(statut='f',typ=no,max='**'),
696 DX =SIMP(statut='f',typ='R' ),
697 DY =SIMP(statut='f',typ='R' ),
698 DZ =SIMP(statut='f',typ='R' ),
699 DRX =SIMP(statut='f',typ='R' ),
700 DRY =SIMP(statut='f',typ='R' ),
701 DRZ =SIMP(statut='f',typ='R' ),
702 GRX =SIMP(statut='f',typ='R' ),
703 PRES =SIMP(statut='f',typ='R' ),
704 TEMP =SIMP(statut='f',typ='R' ),
705 PHI =SIMP(statut='f',typ='R' ),
707 THER_IMPO =FACT(statut='f',min=01,max='**',
708 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
709 AU_MOINS_UN('TEMP','TEMP_INF','TEMP_SUP'),),
710 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
711 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
712 NOEUD =SIMP(statut='f',typ=no,max='**'),
713 TEMP_SUP =SIMP(statut='f',typ='R' ),
714 TEMP =SIMP(statut='f',typ='R' ),
715 TEMP_INF =SIMP(statut='f',typ='R' ),
717 ACOU_IMPO =FACT(statut='f',min=01,max='**',
718 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD' ),),
719 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
720 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
721 NOEUD =SIMP(statut='f',typ=no,max='**'),
722 PRES =SIMP(statut='o',typ='C' ),
724 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
726 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
727 # CONFIGURATION MANAGEMENT OF EDF VERSION
728 # ======================================================================
729 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
730 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
731 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
732 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
733 # (AT YOUR OPTION) ANY LATER VERSION.
735 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
736 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
737 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
738 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
740 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
741 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
742 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
743 # ======================================================================
744 def affe_char_cine_f_prod(MECA_IMPO,THER_IMPO,**args):
745 if MECA_IMPO != None : return char_cine_meca
746 if THER_IMPO != None : return char_cine_ther
747 raise AsException("type de concept resultat non prevu")
749 AFFE_CHAR_CINE_F=OPER(nom="AFFE_CHAR_CINE_F",op= 108,sd_prod=affe_char_cine_f_prod
750 ,fr="Affectation de conditions aux limites cinématiques pour traitement sans dualisation",
751 docu="U4.44.03-e",reentrant='n',
752 regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO'),
753 EXCLUS('MECA_IMPO','THER_IMPO'),),
754 MODELE =SIMP(statut='o',typ=modele ),
755 MECA_IMPO =FACT(statut='f',min=01,max='**',
756 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
757 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','TEMP','PHI'),),
758 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
759 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
760 NOEUD =SIMP(statut='f',typ=no,max='**'),
761 DX =SIMP(statut='f',typ=fonction ),
762 DY =SIMP(statut='f',typ=fonction ),
763 DZ =SIMP(statut='f',typ=fonction ),
764 DRX =SIMP(statut='f',typ=fonction ),
765 DRY =SIMP(statut='f',typ=fonction ),
766 DRZ =SIMP(statut='f',typ=fonction ),
767 GRX =SIMP(statut='f',typ=fonction ),
768 PRES =SIMP(statut='f',typ=fonction ),
769 TEMP =SIMP(statut='f',typ=fonction ),
770 PHI =SIMP(statut='f',typ=fonction ),
772 THER_IMPO =FACT(statut='f',min=01,max='**',
773 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
774 AU_MOINS_UN('TEMP','TEMP_INF','TEMP_SUP' ),),
775 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
776 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
777 NOEUD =SIMP(statut='f',typ=no,max='**'),
778 TEMP_SUP =SIMP(statut='f',typ=fonction ),
779 TEMP =SIMP(statut='f',typ=fonction ),
780 TEMP_INF =SIMP(statut='f',typ=fonction ),
782 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
784 #& MODIF COMMANDE DATE 13/08/2002 AUTEUR ADBHHPM P.MASSIN
785 # CONFIGURATION MANAGEMENT OF EDF VERSION
786 # ======================================================================
787 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
788 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
789 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
790 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
791 # (AT YOUR OPTION) ANY LATER VERSION.
793 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
794 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
795 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
796 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
798 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
799 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
800 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
801 # ======================================================================
802 # RESPONSABLE G8BHHXD X.DESROCHES
803 AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op= 7,sd_prod=char_meca
804 ,fr="Affectation de charges et conditions aux limites mécaniques constantes",
805 docu="U4.44.01-g2",reentrant='n',
806 regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
807 'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
808 'PRES_REP','FORCE_POUTRE','FORCE_COQUE','LIAISON_OBLIQUE',
809 'FORCE_ELEC','INTE_ELEC','PESANTEUR','ROTATION','IMPE_FACE',
810 'VITE_FACE','TEMP_CALCULEE','RELA_CINE_BP','EPSI_INIT','CONTACT',
811 'LIAISON_UNIL_NO','LIAISON_GROUP','LIAISON_UNIF','FLUX_THM_REP',
812 'LIAISON_SOLIDE','LIAISON_ELEM','ONDE_FLUI','PRES_CALCULEE',
813 'EPSA_CALCULEE','LIAISON_CHAMNO','VECT_ASSE','LIAISON_COQUE',
814 'LIAISON_MAIL','FORCE_TUYAU','SECH_CALCULEE','HYDR_CALCULEE',
815 'EFFE_FOND','EVOL_CHAR','ARLEQUIN'),
816 EXCLUS('PRES_CALCULEE','EVOL_CHAR'),
817 EXCLUS('LIAISON_UNIL_NO','CONTACT'),),
819 MODELE =SIMP(statut='o',typ=(modele) ),
820 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
821 VERI_NORM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
822 # A TERME PRES_CALCULEE N'EXISTERA PLUS
823 EVOL_CHAR =SIMP(statut='f',fr="Champ de pression issu d'un autre calcul",
825 PRES_CALCULEE =SIMP(statut='f',fr="Champ de pression issu d'un autre calcul",
827 TEMP_CALCULEE =SIMP(statut='f',fr="Champ de température issu d'un autre calcul",
828 typ=(evol_ther,cham_no_temp_r,carte_temp_r,carte_temp_f ) ),
829 HYDR_CALCULEE =SIMP(statut='f',fr="Champ d hydratation issu d'un autre calcul",
831 SECH_CALCULEE =SIMP(statut='f',fr="Champ de séchage issu d'un autre calcul",
832 typ=(evol_ther,cham_no_temp_r,carte_temp_r,carte_temp_f ) ),
833 EPSA_CALCULEE =SIMP(statut='f',fr="Champ de déformation anélastique issu d'un autre calcul",
835 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r ),
837 ARLEQUIN =FACT(statut='f',min=1,max='**',
838 GROUP_MA_1 =SIMP(statut='o',typ=grma,max='**'),
839 GROUP_MA_2 =SIMP(statut='o',typ=grma,max='**'),
840 GROUP_MA_COLL =SIMP(statut='o',typ=grma,max='**'),
841 CARA_ELEM =SIMP(statut='f',typ=(cara_elem) ),
842 regles =(UN_PARMI('POIDS_1','POIDS_2'),),
843 POIDS_1 =SIMP(statut='f',typ='R'),
844 POIDS_2 =SIMP(statut='f',typ='R'),
847 CONTACT =FACT(statut='f',fr="Imposer du contact avec ou sans frottement",min=1,max='**',
848 regles=(UN_PARMI('GROUP_MA_2','MAILLE_2'),),
849 APPARIEMENT =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
850 into=("NON","NODAL","NODAL_SYME","MAIT_ESCL","MAIT_ESCL_SYME")),
851 RECHERCHE =SIMP(statut='f',typ='TXM',defaut="NOEUD_VOISIN",into=("NOEUD_BOUCLE","NOEUD_VOISIN")),
852 LISSAGE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
853 NORMALE =SIMP(statut='f',typ='TXM',defaut="MAIT",into=("MAIT","MAIT_ESCL")),
854 METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
855 into=("CONTRAINTE","LAGRANGIEN","PENALISATION","CONTINUE") ),
856 PROJECTION =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","QUADRATIQUE") ),
857 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
858 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
859 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
860 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
861 b_active =BLOC(condition = "METHODE == 'CONTRAINTE' ",
862 fr="Paramètres de la méthode des contraintes actives (contact uniquement)",
863 regles=(EXCLUS('DIST_2','COEF_IMPO'),
864 EXCLUS('DIST_1','COEF_IMPO'),),
865 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","PRES","TEMP")),
866 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS",) ),
867 REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
868 b_act_reac =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
869 fr="Paramètre de la réactualisation géométrique",
870 NB_REAC_GEOM =SIMP(statut='o',typ='I'),),
871 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
872 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
873 COEF_IMPO =SIMP(statut='f',typ='R'),
874 COEF_MULT_2 =SIMP(statut='f',typ='R'),
875 VECT_NORM_2 =SIMP(statut='f',typ='R',max=3),
876 VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
877 DIST_1 =SIMP(statut='f',typ='R'),
878 DIST_2 =SIMP(statut='f',typ='R'),),
879 b_lagrangien =BLOC(condition = "METHODE == 'LAGRANGIEN' ",
880 fr="Paramètres de la méthode Lagrangienne (contact avec ou sans frottement)",
881 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
882 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
883 REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
884 b_lag_reac =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
885 fr="Paramètre de la réactualisation géométrique",
886 NB_REAC_GEOM =SIMP(statut='o',typ='I'),),
887 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
888 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
889 DIST_1 =SIMP(statut='f',typ='R'),
890 DIST_2 =SIMP(statut='f',typ='R'),
891 VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
892 b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
893 COULOMB =SIMP(statut='o',typ='R',max=1),
894 COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut=0.E+0),
896 b_penalisation =BLOC(condition = "METHODE == 'PENALISATION' ",
897 fr="Paramètres de la méthode pénalisée (contact avec ou sans frottement)",
898 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
899 E_N =SIMP(statut='f',typ='R'),
900 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
901 REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
902 b_pen_reac =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
903 fr="Paramètre de la réactualisation géométrique",
904 NB_REAC_GEOM =SIMP(statut='o',typ='I'),),
905 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
906 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
907 DIST_1 =SIMP(statut='f',typ='R'),
908 DIST_2 =SIMP(statut='f',typ='R'),
909 VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
910 b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
911 COULOMB =SIMP(statut='o',typ='R',max=1),
912 E_T =SIMP(statut='f',typ='R',
913 fr="Active la pénalisation sur le frottement et définit le coefficient de pénalisation"),
914 COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut=0.E+0),
916 b_continue =BLOC(condition = "METHODE == 'CONTINUE' ",
917 fr="Paramètres de la méthode continue (contact avec ou sans frottement)",
918 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
919 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
920 INTEGRATION =SIMP(statut='f',typ='TXM',defaut="NOEUD",into=("GAUSS","NOEUD","SIMPSON","SIMPSON1","SIMPSON2")),
921 COEF_REGU_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),
922 MODL_AXIS =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
923 DIRECTION_APPA =SIMP(statut='f',typ='R',max=3),
924 ITER_GEOM_MAXI =SIMP(statut='f',typ='I',defaut=2),
925 ITER_CONT_MAXI =SIMP(statut='f',typ='I',defaut=30),
926 b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
927 COULOMB =SIMP(statut='o',typ='R',max=1),
928 ITER_FROT_MAXI =SIMP(statut='f',typ='I',defaut=2),
929 COEF_REGU_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),
930 SEUIL_INIT =SIMP(statut='f',typ='I',defaut=0),),),
933 DDL_IMPO =FACT(statut='f',min=1,max='**',
934 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
935 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
936 'TEMP','PRE1','PRE2','UI2','UI3','VI2','VI3','WI2','WI3','UO2',
937 'UO3','VO2','VO3','WO2','WO3','UI4','UI5','VI4','VI5','WI4',
938 'WI5','UO4','UO5','VO4','VO5','WO4','WO5','UI6','UO6','VI6',
939 'VO6','WI6','WO6','WO','WI1','WO1','GONF'),),
940 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
941 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
942 NOEUD =SIMP(statut='f',typ=no,max='**'),
943 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
944 MAILLE =SIMP(statut='f',typ=ma,max='**'),
945 DX =SIMP(statut='f',typ='R' ),
946 DY =SIMP(statut='f',typ='R' ),
947 DZ =SIMP(statut='f',typ='R' ),
948 DRX =SIMP(statut='f',typ='R' ),
949 DRY =SIMP(statut='f',typ='R' ),
950 DRZ =SIMP(statut='f',typ='R' ),
951 GRX =SIMP(statut='f',typ='R' ),
952 PRES =SIMP(statut='f',typ='R' ),
953 PHI =SIMP(statut='f',typ='R' ),
954 TEMP =SIMP(statut='f',typ='R' ),
955 PRE1 =SIMP(statut='f',typ='R' ),
956 PRE2 =SIMP(statut='f',typ='R' ),
957 UI2 =SIMP(statut='f',typ='R' ),
958 UI3 =SIMP(statut='f',typ='R' ),
959 UI4 =SIMP(statut='f',typ='R' ),
960 UI5 =SIMP(statut='f',typ='R' ),
961 UI6 =SIMP(statut='f',typ='R' ),
962 UO2 =SIMP(statut='f',typ='R' ),
963 UO3 =SIMP(statut='f',typ='R' ),
964 UO4 =SIMP(statut='f',typ='R' ),
965 UO5 =SIMP(statut='f',typ='R' ),
966 UO6 =SIMP(statut='f',typ='R' ),
967 VI2 =SIMP(statut='f',typ='R' ),
968 VI3 =SIMP(statut='f',typ='R' ),
969 VI4 =SIMP(statut='f',typ='R' ),
970 VI5 =SIMP(statut='f',typ='R' ),
971 VI6 =SIMP(statut='f',typ='R' ),
972 VO2 =SIMP(statut='f',typ='R' ),
973 VO3 =SIMP(statut='f',typ='R' ),
974 VO4 =SIMP(statut='f',typ='R' ),
975 VO5 =SIMP(statut='f',typ='R' ),
976 VO6 =SIMP(statut='f',typ='R' ),
977 WI2 =SIMP(statut='f',typ='R' ),
978 WI3 =SIMP(statut='f',typ='R' ),
979 WI4 =SIMP(statut='f',typ='R' ),
980 WI5 =SIMP(statut='f',typ='R' ),
981 WI6 =SIMP(statut='f',typ='R' ),
982 WO2 =SIMP(statut='f',typ='R' ),
983 WO3 =SIMP(statut='f',typ='R' ),
984 WO4 =SIMP(statut='f',typ='R' ),
985 WO5 =SIMP(statut='f',typ='R' ),
986 WO6 =SIMP(statut='f',typ='R' ),
987 WO =SIMP(statut='f',typ='R' ),
988 WI1 =SIMP(statut='f',typ='R' ),
989 WO1 =SIMP(statut='f',typ='R' ),
990 GONF =SIMP(statut='f',typ='R' ),
993 EFFE_FOND =FACT(statut='f',fr="Imposer un effet de fond",min=1,max='**',
994 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
995 GROUP_MA_INT =SIMP(statut='o',typ=grma,max='**'),
996 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
997 MAILLE =SIMP(statut='f',typ=ma,max='**'),
998 PRES =SIMP(statut='o',typ='R' ),
1001 EPSI_INIT =FACT(statut='f',fr="Appliquer un chargement de déformation initiale à un volume 3D ou 2D",
1003 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1004 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1005 AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ','EPX',
1006 'KY','KZ','EXX','EYY','EXY','KXX','KYY','KXY'),),
1007 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1008 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1009 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1010 EPXX =SIMP(statut='f',typ='R' ),
1011 EPYY =SIMP(statut='f',typ='R' ),
1012 EPZZ =SIMP(statut='f',typ='R' ),
1013 EPXY =SIMP(statut='f',typ='R' ),
1014 EPXZ =SIMP(statut='f',typ='R' ),
1015 EPYZ =SIMP(statut='f',typ='R' ),
1016 EPX =SIMP(statut='f',typ='R' ),
1017 KY =SIMP(statut='f',typ='R' ),
1018 KZ =SIMP(statut='f',typ='R' ),
1019 EXX =SIMP(statut='f',typ='R' ),
1020 EYY =SIMP(statut='f',typ='R' ),
1021 EXY =SIMP(statut='f',typ='R' ),
1022 KXX =SIMP(statut='f',typ='R' ),
1023 KYY =SIMP(statut='f',typ='R' ),
1024 KXY =SIMP(statut='f',typ='R' ),
1027 FACE_IMPO =FACT(statut='f',min=1,max='**',
1028 regles=(UN_PARMI('GROUP_MA','MAILLE',),
1029 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
1030 'TEMP','PRE1','PRE2','DNOR','DTAN'),
1031 EXCLUS('DNOR','DX'),
1032 EXCLUS('DNOR','DY'),
1033 EXCLUS('DNOR','DZ'),
1034 EXCLUS('DNOR','DRX'),
1035 EXCLUS('DNOR','DRY'),
1036 EXCLUS('DNOR','DRZ'),
1037 EXCLUS('DTAN','DX'),
1038 EXCLUS('DTAN','DY'),
1039 EXCLUS('DTAN','DZ'),
1040 EXCLUS('DTAN','DRX'),
1041 EXCLUS('DTAN','DRY'),
1042 EXCLUS('DTAN','DRZ'),),
1043 # rajout d'un mot clé REPERE :/ LOCAL /GLOBAL
1044 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1045 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1046 DX =SIMP(statut='f',typ='R' ),
1047 DY =SIMP(statut='f',typ='R' ),
1048 DZ =SIMP(statut='f',typ='R' ),
1049 DRX =SIMP(statut='f',typ='R' ),
1050 DRY =SIMP(statut='f',typ='R' ),
1051 DRZ =SIMP(statut='f',typ='R' ),
1052 DNOR =SIMP(statut='f',typ='R' ),
1053 DTAN =SIMP(statut='f',typ='R' ),
1054 GRX =SIMP(statut='f',typ='R' ),
1055 PRES =SIMP(statut='f',typ='R' ),
1056 PHI =SIMP(statut='f',typ='R' ),
1057 TEMP =SIMP(statut='f',typ='R' ),
1058 PRE1 =SIMP(statut='f',typ='R' ),
1059 PRE2 =SIMP(statut='f',typ='R' ),
1062 FLUX_THM_REP =FACT(statut='f',min=1,max='**',
1063 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1064 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1065 AU_MOINS_UN('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
1066 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1067 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1068 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1069 FLUN =SIMP(statut='f',typ='R' ),
1070 FLUN_HYDR1 =SIMP(statut='f',typ='R' ),
1071 FLUN_HYDR2 =SIMP(statut='f',typ='R' ),
1074 FORCE_ARETE =FACT(statut='f',fr="Appliquer des forces linéiques à une arete d élément volumique ou de coque",
1076 regles=(AU_MOINS_UN('GROUP_MA','MAILLE',),
1077 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
1078 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1079 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1080 FX =SIMP(statut='f',typ='R' ),
1081 FY =SIMP(statut='f',typ='R' ),
1082 FZ =SIMP(statut='f',typ='R' ),
1083 MX =SIMP(statut='f',typ='R' ),
1084 MY =SIMP(statut='f',typ='R' ),
1085 MZ =SIMP(statut='f',typ='R' ),
1088 FORCE_COQUE =FACT(statut='f',fr="Appliquer des forces surfaciques sur des coques",min=1,max='**',
1089 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1090 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1091 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
1092 PRESENT_ABSENT('FX','PRES','F1','F2','F3','MF1','MF2'),
1093 PRESENT_ABSENT('FY','PRES','F1','F2','F3','MF1','MF2'),
1094 PRESENT_ABSENT('FZ','PRES','F1','F2','F3','MF1','MF2'),
1095 PRESENT_ABSENT('MX','PRES','F1','F2','F3','MF1','MF2'),
1096 PRESENT_ABSENT('MY','PRES','F1','F2','F3','MF1','MF2'),
1097 PRESENT_ABSENT('MZ','PRES','F1','F2','F3','MF1','MF2'),
1098 PRESENT_ABSENT('F1','FX','FY','FZ','MX','MY','MZ','PRES'),
1099 PRESENT_ABSENT('F2','FX','FY','FZ','MX','MY','MZ','PRES'),
1100 PRESENT_ABSENT('F3','FX','FY','FZ','MX','MY','MZ','PRES'),
1101 PRESENT_ABSENT('MF1','FX','FY','FZ','MX','MY','MZ','PRES'),
1102 PRESENT_ABSENT('MF2','FX','FY','FZ','MX','MY','MZ','PRES'),
1103 PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
1104 # rajour d'un mot clé REPERE :/ LOCAL /GLOBAL
1105 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1106 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1107 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1109 FX =SIMP(statut='f',typ='R' ),
1110 FY =SIMP(statut='f',typ='R' ),
1111 FZ =SIMP(statut='f',typ='R' ),
1112 MX =SIMP(statut='f',typ='R' ),
1113 MY =SIMP(statut='f',typ='R' ),
1114 MZ =SIMP(statut='f',typ='R' ),
1116 F1 =SIMP(statut='f',typ='R' ),
1117 F2 =SIMP(statut='f',typ='R' ),
1118 F3 =SIMP(statut='f',typ='R' ),
1119 MF1 =SIMP(statut='f',typ='R' ),
1120 MF2 =SIMP(statut='f',typ='R' ),
1122 PRES =SIMP(statut='f',typ='R' ),
1123 PLAN =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL",) ),
1126 FORCE_CONTOUR =FACT(statut='f',fr="Appliquer des forces linéiques au bord d'un domaine 2D ou AXIS_FOURIER",
1128 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1129 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1130 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1131 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1132 FX =SIMP(statut='f',typ='R' ),
1133 FY =SIMP(statut='f',typ='R' ),
1134 FZ =SIMP(statut='f',typ='R' ),
1135 MX =SIMP(statut='f',typ='R' ),
1136 MY =SIMP(statut='f',typ='R' ),
1137 MZ =SIMP(statut='f',typ='R' ),
1140 FORCE_ELEC =FACT(statut='f',
1141 fr="Force de Laplace due à la présence d'un conducteur rectiligne secondaire non maillé",
1143 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1144 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1145 AU_MOINS_UN('FX','FY','FZ','POSITION'),
1146 EXCLUS('FX','POSITION'),
1147 EXCLUS('FY','POSITION'),
1148 EXCLUS('FZ','POSITION'),),
1149 # trop de regles : les blocs conditionnels permettent d en suprimer
1150 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1151 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1152 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1154 FX =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1155 FY =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1156 FZ =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1158 POSITION =SIMP(statut='f',typ='TXM',fr="Direction prédéfinie",into=("PARA","INFI","FINI",) ),
1159 b_para =BLOC ( condition = "POSITION == 'PARA'",
1160 regles=(UN_PARMI('TRANS','DIST'),),
1161 TRANS =SIMP(statut='f',typ='R',max=3),
1162 DIST =SIMP(statut='f',typ='R' ),
1163 b_point2 =BLOC ( condition = "DIST != None",
1164 POINT2 =SIMP(statut='o',typ='R',max=3),
1167 b_fini_infi =BLOC ( condition = "(POSITION == 'FINI') or (POSITION == 'INFI')",
1168 POINT1 =SIMP(statut='o',typ='R',max=3),
1169 POINT2 =SIMP(statut='o',typ='R',max=3),
1173 FORCE_FACE =FACT(statut='f',fr="Appliquer des forces surfaciques sur une face d'éléments volumiques",
1175 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1176 AU_MOINS_UN('FX','FY','FZ'),),
1177 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1178 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1179 FX =SIMP(statut='f',typ='R' ),
1180 FY =SIMP(statut='f',typ='R' ),
1181 FZ =SIMP(statut='f',typ='R' ),
1184 FORCE_INTERNE =FACT(statut='f',fr="Appliquer des forces volumiques (2D ou 3D) à un domaine volumique",
1186 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1187 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1188 AU_MOINS_UN('FX','FY','FZ' ),),
1189 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1190 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1191 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1192 FX =SIMP(statut='f',typ='R' ),
1193 FY =SIMP(statut='f',typ='R' ),
1194 FZ =SIMP(statut='f',typ='R' ),
1197 IMPE_FACE =FACT(statut='f',fr="Appliquer une impédance acoustique à une face",min=1,max='**',
1198 regles=(AU_MOINS_UN('GROUP_MA','MAILLE' ),),
1199 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1200 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1201 IMPE =SIMP(statut='o',typ='R' ),
1204 FORCE_NODALE =FACT(statut='f',fr="Imposer des forces nodales en des noeuds",min=1,max='**',
1205 regles=(AU_MOINS_UN('GROUP_NO','NOEUD'),
1206 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
1207 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1208 NOEUD =SIMP(statut='f',typ=no,max='**'),
1209 FX =SIMP(statut='f',typ='R' ),
1210 FY =SIMP(statut='f',typ='R' ),
1211 FZ =SIMP(statut='f',typ='R' ),
1212 MX =SIMP(statut='f',typ='R' ),
1213 MY =SIMP(statut='f',typ='R' ),
1214 MZ =SIMP(statut='f',typ='R' ),
1215 ANGL_NAUT =SIMP(statut='f',typ='R',max=3),
1218 FORCE_POUTRE =FACT(statut='f',fr="Appliquer des forces linéiques sur des poutres",min=1,max='**',
1219 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1220 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1221 AU_MOINS_UN('FX','FY','FZ','N','VY','VZ'),
1222 PRESENT_ABSENT('FX','N','VY','VZ'),
1223 PRESENT_ABSENT('FY','N','VY','VZ'),
1224 PRESENT_ABSENT('FZ','N','VY','VZ'),
1225 PRESENT_ABSENT('N','FX','FY','FZ'),
1226 PRESENT_ABSENT('VY','FX','FY','FZ'),
1227 PRESENT_ABSENT('VZ','FX','FY','FZ'),),
1228 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1229 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1230 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1231 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE",) ),
1232 # rajour d'un mot clé REPERE :/ LOCAL /GLOBAL
1233 FX =SIMP(statut='f',typ='R' ),
1234 FY =SIMP(statut='f',typ='R' ),
1235 FZ =SIMP(statut='f',typ='R' ),
1237 N =SIMP(statut='f',typ='R' ),
1238 VY =SIMP(statut='f',typ='R' ),
1239 VZ =SIMP(statut='f',typ='R' ),
1243 FORCE_TUYAU =FACT(statut='f',fr="imposer une pression dans un élément TUYAU",min=1,max='**',
1244 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1245 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
1246 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1247 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1248 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1249 PRES =SIMP(statut='f',typ='R' ),
1252 INTE_ELEC =FACT(statut='f',fr="Force de Laplace due à la présence d'un conducteur non rectiligne secondaire",
1254 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1255 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1256 AU_MOINS_UN('GROUP_MA_2','MAILLE_2','TRANS','SYME'),
1257 EXCLUS('TRANS','SYME'),),
1258 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1259 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1260 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1261 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1262 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1263 TRANS =SIMP(statut='f',typ='R',max='**'),
1264 SYME =SIMP(statut='f',typ='R',max='**'),
1267 LIAISON_CHAMNO =FACT(statut='f',fr="définir une relation linéaire entre tous les ddls d'un concept cham_nno",
1269 # type de cham_no CO()
1270 CHAM_NO =SIMP(statut='o',typ=cham_no), #CO()
1271 COEF_IMPO =SIMP(statut='o',typ='R' ),
1272 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1275 LIAISON_COQUE =FACT(statut='f',min=1,max='**',
1276 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1277 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1278 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
1279 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
1280 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1281 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1282 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
1283 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
1284 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1286 LIAISON_DDL =FACT(statut='f',fr="Définir une relation linéaire entre des ddls de deux ou plusieurs noeuds",
1288 regles=(UN_PARMI('GROUP_NO','NOEUD'),),
1289 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1290 NOEUD =SIMP(statut='f',typ=no,max='**'),
1291 DDL =SIMP(statut='o',typ='TXM',max='**'),
1292 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
1293 COEF_IMPO =SIMP(statut='o',typ='R' ),
1296 LIAISON_ELEM =FACT(statut='f',fr="Raccorder une poutre à une partie massive 3D ou une coque", min=1,max='**',
1297 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
1298 UN_PARMI('GROUP_NO_2','NOEUD_2'),),
1299 OPTION =SIMP(statut='o',typ='TXM',into=("3D_TUYAU","3D_POU","COQ_POU","COQ_TUYAU") ),
1300 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1301 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1302 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
1303 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
1304 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1305 CARA_ELEM =SIMP(statut='f',typ=(cara_elem) ),
1306 AXE_POUTRE =SIMP(statut='f',typ='R',max=3),
1307 ANGL_MAX =SIMP(statut='f',typ='R',defaut= 1. ),
1310 LIAISON_GROUP =FACT(statut='f',fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1312 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1313 UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1314 EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1315 EXCLUS('GROUP_MA_1','NOEUD_2'),
1316 EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1317 EXCLUS('GROUP_NO_1','MAILLE_2'),
1318 EXCLUS('MAILLE_1','GROUP_NO_2'),
1319 EXCLUS('MAILLE_1','NOEUD_2'),
1320 EXCLUS('NOEUD_1','GROUP_MA_2'),
1321 EXCLUS('NOEUD_1','MAILLE_2'),
1322 EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1324 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1325 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1326 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1327 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1328 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
1329 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
1330 GROUP_NO_2 =SIMP(statut='f',typ=no,max='**'),
1331 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
1333 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
1334 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1335 DDL_1 =SIMP(statut='o',typ='TXM',max='**'),
1336 COEF_MULT_1 =SIMP(statut='o',typ='R',max='**'),
1337 DDL_2 =SIMP(statut='o',typ='TXM',max='**'),
1338 COEF_MULT_2 =SIMP(statut='o',typ='R',max='**'),
1339 COEF_IMPO =SIMP(statut='o',typ='R' ),
1340 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1341 TRAN =SIMP(statut='f',typ='R',max=3),
1342 ANGL_NAUT =SIMP(statut='f',typ='R',max=3),
1343 CENTRE =SIMP(statut='f',typ='R',max=3),
1346 LIAISON_OBLIQUE =FACT(statut='f',fr="Appliquer à des noeuds une valeur de déplacement dans un repere oblique",
1348 regles=(UN_PARMI('GROUP_NO','NOEUD'),
1349 UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
1350 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1351 NOEUD =SIMP(statut='f',typ=no,max='**'),
1352 ANGL_NAUT =SIMP(statut='o',typ='R',max=3),
1353 DX =SIMP(statut='f',typ='R' ),
1354 DY =SIMP(statut='f',typ='R' ),
1355 DZ =SIMP(statut='f',typ='R' ),
1356 DRX =SIMP(statut='f',typ='R' ),
1357 DRY =SIMP(statut='f',typ='R' ),
1358 DRZ =SIMP(statut='f',typ='R' ),
1361 LIAISON_SOLIDE =FACT(statut='f',fr="Modéliser une partie indéformable d'une structure",min=1,max='**',
1362 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1363 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1364 NOEUD =SIMP(statut='f',typ=no,max='**'),
1365 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1366 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1367 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1370 LIAISON_UNIF =FACT(statut='f',fr="Imposer une meme valeur (inconnue) à des ddls d'un emsemble de noeuds",
1372 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1373 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1374 NOEUD =SIMP(statut='f',typ=no,max='**'),
1375 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1376 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1377 DDL =SIMP(statut='o',typ='TXM',max='**'),
1380 LIAISON_UNIL_NO =FACT(statut='f',min=1,max='**',
1381 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
1382 UN_PARMI('GROUP_MA_2','MAILLE_2'),),
1383 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),# CO()
1384 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),# CO()
1385 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),# CO()
1386 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),# CO()
1387 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1388 TRAN =SIMP(statut='f',typ='R',max=3 ),
1389 ANGL_NAUT =SIMP(statut='f',typ='R',max=3 ),
1390 CENTRE =SIMP(statut='f',typ='R',max=3 ),
1391 ANGLE_MAX =SIMP(statut='f',typ='R' ),
1392 VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
1393 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",
1394 into=("SANS","TRESCA","COULOMB") ),
1395 METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
1396 into=("CONTRAINTE","LAGRANGIEN","PENALISATION") ),
1397 COULOMB =SIMP(statut='f',typ='R' ),
1398 TRESCA =SIMP(statut='f',typ='R' ),
1399 E_T =SIMP(statut='f',typ='R' ),
1400 COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1401 CONTACT =SIMP(statut='f',typ='TXM',into=("MAINTENU",) ),
1402 JEU =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1405 LIAISON_MAIL =FACT(statut='f',min=1,max='**',
1406 regles=(AU_MOINS_UN('GROUP_MA_MAIT','MAILLE_MAIT'),
1407 AU_MOINS_UN('GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL','NOEUD_ESCL'),
1408 PRESENT_PRESENT('DDL_MAIT','DDL_ESCL'),),
1409 GROUP_MA_MAIT =SIMP(statut='f',typ=grma,max='**'),
1410 MAILLE_MAIT =SIMP(statut='f',typ=ma,max='**'),
1411 GROUP_MA_ESCL =SIMP(statut='f',typ=grma,max='**'),
1412 MAILLE_ESCL =SIMP(statut='f',typ=ma,max='**'),
1413 GROUP_NO_ESCL =SIMP(statut='f',typ=grno,max='**'),
1414 NOEUD_ESCL =SIMP(statut='f',typ=no,max='**'),
1415 TRAN =SIMP(statut='f',typ='R',max=3 ),
1416 ANGL_NAUT =SIMP(statut='f',typ='R',max=3 ),
1417 CENTRE =SIMP(statut='f',typ='R',max=3 ),
1418 DDL_MAIT =SIMP(statut='f',typ='TXM',into=("DNOR",) ),
1419 DDL_ESCL =SIMP(statut='f',typ='TXM',into=("DNOR",) ),
1422 ONDE_FLUI =FACT(statut='f',fr="Appliquer une amplitude de pression d onde incidente",min=1,max='**',
1423 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1424 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1425 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1426 PRES =SIMP(statut='o',typ='R' ),
1429 PRES_REP =FACT(statut='f',fr="Appliquer une pression à un domaine de milieu continu 2D ou 3D",
1431 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1432 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1433 AU_MOINS_UN('PRES','CISA_2D' ),),
1434 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1435 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1436 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1437 PRES =SIMP(statut='f',typ='R' ),
1438 CISA_2D =SIMP(statut='f',typ='R' ),
1441 PESANTEUR =SIMP(statut='f',typ='R',fr="Champ de pesanteur",min=4,max=4),
1443 RELA_CINE_BP =FACT(statut='f',min=1,max='**',
1444 CABLE_BP =SIMP(statut='o',typ=cabl_precont ),
1445 SIGM_BPEL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1446 RELA_CINE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1449 ROTATION =SIMP(statut='f',typ='R',fr="Champ de rotation",min=4,max=4),
1450 b_rotation =BLOC ( condition = "ROTATION != None",
1451 CENTRE =SIMP(statut='f',typ='R',defaut=(0.,0.,0.),max=3),),
1453 VITE_FACE =FACT(statut='f',fr="Imposer des vitesses acoustiquesnormales à une face",min=1,max='**',
1454 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1455 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1456 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1457 VNOR =SIMP(statut='o',typ='R' ),
1459 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1461 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
1462 # CONFIGURATION MANAGEMENT OF EDF VERSION
1463 # ======================================================================
1464 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
1465 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1466 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1467 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1468 # (AT YOUR OPTION) ANY LATER VERSION.
1470 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1471 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1472 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1473 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1475 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1476 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1477 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1478 # ======================================================================
1479 # RESPONSABLE G8BHHXD X.DESROCHES
1480 AFFE_CHAR_MECA_C=OPER(nom="AFFE_CHAR_MECA_C",op= 7,sd_prod=char_meca,
1481 fr="Affectation de charges et conditions aux limites mécaniques complexes",
1482 docu="U4.44.05-d2",reentrant='n',
1483 regles=(AU_MOINS_UN('DDL_IMPO','FORCE_POUTRE','LIAISON_DDL', ),),
1484 MODELE =SIMP(statut='o',typ=modele ),
1485 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1486 DDL_IMPO =FACT(statut='f',min=01,max='**',
1487 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
1488 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI', ),),
1489 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1490 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1491 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1492 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1493 NOEUD =SIMP(statut='f',typ=no,max='**'),
1494 DX =SIMP(statut='f',typ='C' ),
1495 DY =SIMP(statut='f',typ='C' ),
1496 DZ =SIMP(statut='f',typ='C' ),
1497 DRX =SIMP(statut='f',typ='C' ),
1498 DRY =SIMP(statut='f',typ='C' ),
1499 DRZ =SIMP(statut='f',typ='C' ),
1500 GRX =SIMP(statut='f',typ='C' ),
1501 PRES =SIMP(statut='f',typ='C' ),
1502 PHI =SIMP(statut='f',typ='C' ),
1504 FORCE_POUTRE =FACT(statut='f',min=01,max='**',
1505 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1506 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1507 AU_MOINS_UN('FX','FY','FZ','N','VY','VZ',),
1508 PRESENT_ABSENT('FX','N','VY','VZ',),
1509 PRESENT_ABSENT('FY','N','VY','VZ',),
1510 PRESENT_ABSENT('FZ','N','VY','VZ',),
1511 PRESENT_ABSENT('N','FX','FY','FZ',),
1512 PRESENT_ABSENT('VY', 'FX','FY','FZ',),
1513 PRESENT_ABSENT('VZ','FX','FY','FZ', ),),
1514 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1515 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1516 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1517 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE") ),
1518 FX =SIMP(statut='f',typ='C' ),
1519 FY =SIMP(statut='f',typ='C' ),
1520 FZ =SIMP(statut='f',typ='C' ),
1521 N =SIMP(statut='f',typ='C' ),
1522 VY =SIMP(statut='f',typ='C' ),
1523 VZ =SIMP(statut='f',typ='C' ),
1525 LIAISON_DDL =FACT(statut='f',min=01,max='**',
1526 regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
1527 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1528 NOEUD =SIMP(statut='f',typ=no,max='**'),
1529 DDL =SIMP(statut='o',typ='TXM',max='**'),
1530 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
1531 COEF_IMPO =SIMP(statut='o',typ='C' ),
1533 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1535 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
1536 # CONFIGURATION MANAGEMENT OF EDF VERSION
1537 # ======================================================================
1538 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
1539 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1540 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1541 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1542 # (AT YOUR OPTION) ANY LATER VERSION.
1544 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1545 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1546 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1547 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1549 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1550 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1551 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1552 # ======================================================================
1553 # RESPONSABLE G8BHHXD X.DESROCHES
1554 AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
1555 fr="Affectation de charges et conditions aux limites mécaniques fonction d une grandeur",
1556 docu="U4.44.01-g3",reentrant='n',
1557 regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
1558 'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
1559 'PRES_REP','FORCE_POUTRE','VITE_FACE','IMPE_FACE','ONDE_PLANE',
1560 'LIAISON_OBLIQUE','EPSI_INIT','LIAISON_GROUP','LIAISON_UNIF',
1561 'LIAISON_SOLIDE','FORCE_COQUE','LIAISON_COQUE','FORCE_TUYAU',
1563 MODELE =SIMP(statut='o',typ=modele ),
1564 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1565 VERI_NORM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1567 DDL_IMPO =FACT(statut='f',min=1,max='**',
1568 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
1569 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
1570 'TEMP','PRE1','PRE2'),),
1571 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1572 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1573 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1574 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1575 NOEUD =SIMP(statut='f',typ=no,max='**'),
1576 DX =SIMP(statut='f',typ=(fonction) ),
1577 DY =SIMP(statut='f',typ=(fonction) ),
1578 DZ =SIMP(statut='f',typ=(fonction) ),
1579 DRX =SIMP(statut='f',typ=(fonction) ),
1580 DRY =SIMP(statut='f',typ=(fonction) ),
1581 DRZ =SIMP(statut='f',typ=(fonction) ),
1582 GRX =SIMP(statut='f',typ=(fonction) ),
1583 PRES =SIMP(statut='f',typ=(fonction) ),
1584 PHI =SIMP(statut='f',typ=(fonction) ),
1585 TEMP =SIMP(statut='f',typ=(fonction) ),
1586 PRE1 =SIMP(statut='f',typ=(fonction) ),
1587 PRE2 =SIMP(statut='f',typ=(fonction) ),
1589 LIAISON_UNIF =FACT(statut='f',min=1,max='**',
1590 fr="Imposer une meme valeur (inconnue) a des ddls d un emsemble de noeuds",
1591 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1592 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1593 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1594 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1595 NOEUD =SIMP(statut='f',typ=no,max='**'),
1596 DDL =SIMP(statut='o',typ='TXM',max='**'),
1598 LIAISON_SOLIDE =FACT(statut='f',min=1,max='**',
1599 fr="Modéliser une partie indéformable d une structure",
1600 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1601 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1602 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1603 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1604 NOEUD =SIMP(statut='f',typ=no,max='**'),
1605 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
1607 LIAISON_OBLIQUE =FACT(statut='f',min=1,max='**',
1608 fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1609 regles=(UN_PARMI('GROUP_NO','NOEUD'),
1610 UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
1611 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1612 NOEUD =SIMP(statut='f',typ=no,max='**'),
1613 ANGL_NAUT =SIMP(statut='o',typ='R',max=3),
1614 DX =SIMP(statut='f',typ=(fonction) ),
1615 DY =SIMP(statut='f',typ=(fonction) ),
1616 DZ =SIMP(statut='f',typ=(fonction) ),
1617 DRX =SIMP(statut='f',typ=(fonction) ),
1618 DRY =SIMP(statut='f',typ=(fonction) ),
1619 DRZ =SIMP(statut='f',typ=(fonction) ),
1621 LIAISON_COQUE =FACT(statut='f',min=1,max='**',
1622 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1623 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1624 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
1625 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
1626 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1627 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1628 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
1629 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
1630 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
1632 FACE_IMPO =FACT(statut='f',min=1,max='**',
1633 regles=(UN_PARMI('GROUP_MA','MAILLE'),
1634 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI','TEMP','PRE1','PRE2','DNOR','DTAN'),
1635 EXCLUS('DNOR','DX'),
1636 EXCLUS('DNOR','DY'),
1637 EXCLUS('DNOR','DZ'),
1638 EXCLUS('DNOR','DRX'),
1639 EXCLUS('DNOR','DRY'),
1640 EXCLUS('DNOR','DRZ'),
1641 EXCLUS('DTAN','DX'),
1642 EXCLUS('DTAN','DY'),
1643 EXCLUS('DTAN','DZ'),
1644 EXCLUS('DTAN','DRX'),
1645 EXCLUS('DTAN','DRY'),
1646 EXCLUS('DTAN','DRZ'),),
1647 # rajout d un mot cle REPERE : / GLOBAL / LOCAL
1648 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1649 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1650 DX =SIMP(statut='f',typ=(fonction) ),
1651 DY =SIMP(statut='f',typ=(fonction) ),
1652 DZ =SIMP(statut='f',typ=(fonction) ),
1653 DRX =SIMP(statut='f',typ=(fonction) ),
1654 DRY =SIMP(statut='f',typ=(fonction) ),
1655 DRZ =SIMP(statut='f',typ=(fonction) ),
1656 GRX =SIMP(statut='f',typ=(fonction) ),
1657 PRES =SIMP(statut='f',typ=(fonction) ),
1658 PHI =SIMP(statut='f',typ=(fonction) ),
1659 TEMP =SIMP(statut='f',typ=(fonction) ),
1660 PRE1 =SIMP(statut='f',typ=(fonction) ),
1661 PRE2 =SIMP(statut='f',typ=(fonction) ),
1662 DNOR =SIMP(statut='f',typ=(fonction) ),
1663 DTAN =SIMP(statut='f',typ=(fonction) ),
1665 LIAISON_DDL =FACT(statut='f',min=1,max='**',
1666 fr="Définir une relation linéaire entre des ddls de deux ou plusieurs noeuds",
1667 regles=(UN_PARMI('GROUP_NO','NOEUD'),),
1668 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1669 NOEUD =SIMP(statut='f',typ=no,max='**'),
1670 DDL =SIMP(statut='o',typ='TXM',max='**'),
1671 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
1672 COEF_IMPO =SIMP(statut='o',typ=(fonction) ),
1674 LIAISON_GROUP =FACT(statut='f',min=1,max='**',
1675 fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1676 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1677 UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1678 EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1679 EXCLUS('GROUP_MA_1','NOEUD_2'),
1680 EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1681 EXCLUS('GROUP_NO_1','MAILLE_2'),
1682 EXCLUS('MAILLE_1','GROUP_NO_2'),
1683 EXCLUS('MAILLE_1','NOEUD_2'),
1684 EXCLUS('NOEUD_1','GROUP_MA_2'),
1685 EXCLUS('NOEUD_1','MAILLE_2'),
1686 EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1687 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1688 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1689 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
1690 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
1691 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1692 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1693 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
1694 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
1695 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
1696 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1697 DDL_1 =SIMP(statut='o',typ='TXM',max='**'),
1698 COEF_MULT_1 =SIMP(statut='o',typ='R',max='**'),
1699 DDL_2 =SIMP(statut='o',typ='TXM',max='**'),
1700 COEF_MULT_2 =SIMP(statut='o',typ='R',max='**'),
1701 COEF_IMPO =SIMP(statut='o',typ=(fonction) ),
1702 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1703 TRAN =SIMP(statut='f',typ='R',max=3),
1704 ANGL_NAUT =SIMP(statut='f',typ='R',max=3),
1705 CENTRE =SIMP(statut='f',typ='R',max=3),
1708 FORCE_NODALE =FACT(statut='f',min=1,max='**',
1709 regles=(UN_PARMI('GROUP_NO','NOEUD'),
1710 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1711 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1712 NOEUD =SIMP(statut='f',typ=no,max='**'),
1713 FX =SIMP(statut='f',typ=(fonction) ),
1714 FY =SIMP(statut='f',typ=(fonction) ),
1715 FZ =SIMP(statut='f',typ=(fonction) ),
1716 MX =SIMP(statut='f',typ=(fonction) ),
1717 MY =SIMP(statut='f',typ=(fonction) ),
1718 MZ =SIMP(statut='f',typ=(fonction) ),
1719 ANGL_NAUT =SIMP(statut='f',typ=(fonction),max=3 ),
1721 FORCE_INTERNE =FACT(statut='f',min=1,max='**',
1722 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1723 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1724 AU_MOINS_UN('FX','FY','FZ'),),
1725 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1726 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1727 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1728 FX =SIMP(statut='f',typ=(fonction) ),
1729 FY =SIMP(statut='f',typ=(fonction) ),
1730 FZ =SIMP(statut='f',typ=(fonction) ),
1732 FORCE_FACE =FACT(statut='f',min=1,max='**',
1733 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1734 AU_MOINS_UN('FX','FY','FZ'),),
1735 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1736 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1737 FX =SIMP(statut='f',typ=(fonction) ),
1738 FY =SIMP(statut='f',typ=(fonction) ),
1739 FZ =SIMP(statut='f',typ=(fonction) ),
1741 FORCE_ARETE =FACT(statut='f',min=1,max='**',
1742 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1743 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1744 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1745 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1746 FX =SIMP(statut='f',typ=(fonction) ),
1747 FY =SIMP(statut='f',typ=(fonction) ),
1748 FZ =SIMP(statut='f',typ=(fonction) ),
1749 MX =SIMP(statut='f',typ=(fonction) ),
1750 MY =SIMP(statut='f',typ=(fonction) ),
1751 MZ =SIMP(statut='f',typ=(fonction) ),
1753 FORCE_CONTOUR =FACT(statut='f',min=1,max='**',
1754 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1755 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1756 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1757 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1758 FX =SIMP(statut='f',typ=(fonction) ),
1759 FY =SIMP(statut='f',typ=(fonction) ),
1760 FZ =SIMP(statut='f',typ=(fonction) ),
1761 MX =SIMP(statut='f',typ=(fonction) ),
1762 MY =SIMP(statut='f',typ=(fonction) ),
1763 MZ =SIMP(statut='f',typ=(fonction) ),
1765 PRES_REP =FACT(statut='f',min=1,max='**',
1766 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1767 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1768 AU_MOINS_UN('PRES','CISA_2D'),),
1769 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1770 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1771 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1772 PRES =SIMP(statut='f',typ=(fonction) ),
1773 CISA_2D =SIMP(statut='f',typ=(fonction) ),
1776 FORCE_COQUE =FACT(statut='f',min=1,max='**',
1777 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1778 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1779 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
1780 PRESENT_ABSENT('FX','PRES','F1','F2','F3','MF1','MF2'),
1781 PRESENT_ABSENT('FY','PRES','F1','F2','F3','MF1','MF2'),
1782 PRESENT_ABSENT('FZ','PRES','F1','F2','F3','MF1','MF2'),
1783 PRESENT_ABSENT('MX','PRES','F1','F2','F3','MF1','MF2'),
1784 PRESENT_ABSENT('MY','PRES','F1','F2','F3','MF1','MF2'),
1785 PRESENT_ABSENT('MZ','PRES','F1','F2','F3','MF1','MF2'),
1786 PRESENT_ABSENT('F1','PRES','FX','FY','FZ','MX','MY','MZ'),
1787 PRESENT_ABSENT('F2','PRES','FX','FY','FZ','MX','MY','MZ'),
1788 PRESENT_ABSENT('F3','PRES','FX','FY','FZ','MX','MY','MZ'),
1789 PRESENT_ABSENT('MF1','PRES','FX','FY','FZ','MX','MY','MZ'),
1790 PRESENT_ABSENT('MF2','PRES','FX','FY','FZ','MX','MY','MZ'),
1791 PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
1792 # rajout d un mot cle REPERE : / GLOBAL / LOCAL
1793 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1794 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1795 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1796 FX =SIMP(statut='f',typ=(fonction) ),
1797 FY =SIMP(statut='f',typ=(fonction) ),
1798 FZ =SIMP(statut='f',typ=(fonction) ),
1799 MX =SIMP(statut='f',typ=(fonction) ),
1800 MY =SIMP(statut='f',typ=(fonction) ),
1801 MZ =SIMP(statut='f',typ=(fonction) ),
1802 F1 =SIMP(statut='f',typ=(fonction) ),
1803 F2 =SIMP(statut='f',typ=(fonction) ),
1804 F3 =SIMP(statut='f',typ=(fonction) ),
1805 MF1 =SIMP(statut='f',typ=(fonction) ),
1806 MF2 =SIMP(statut='f',typ=(fonction) ),
1807 PRES =SIMP(statut='f',typ=(fonction) ),
1808 PLAN =SIMP(statut='f',typ='TXM',defaut="MAIL",
1809 into=("SUP","INF","MOY","MAIL") ),
1811 FORCE_POUTRE =FACT(statut='f',min=1,max='**',
1812 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1813 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1814 AU_MOINS_UN('FX','FY','FZ','N','VY','VZ'),
1815 PRESENT_ABSENT('FX','N','VY','VZ'),
1816 PRESENT_ABSENT('FY','N','VY','VZ'),
1817 PRESENT_ABSENT('FZ','N','VY','VZ'),
1818 PRESENT_ABSENT('N','FX','FY','FZ'),
1819 PRESENT_ABSENT('VY','FX','FY','FZ'),
1820 PRESENT_ABSENT('VZ','FX','FY','FZ'),),
1821 # rajout d un mot cle REPERE : / GLOBAL / LOCAL
1822 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1823 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1824 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1825 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE") ),
1826 FX =SIMP(statut='f',typ=(fonction) ),
1827 FY =SIMP(statut='f',typ=(fonction) ),
1828 FZ =SIMP(statut='f',typ=(fonction) ),
1829 N =SIMP(statut='f',typ=(fonction) ),
1830 VY =SIMP(statut='f',typ=(fonction) ),
1831 VZ =SIMP(statut='f',typ=(fonction) ),
1833 FORCE_TUYAU =FACT(statut='f',min=1,max='**',
1834 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1835 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
1836 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1837 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1838 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1839 PRES =SIMP(statut='f',typ=(fonction) ),
1841 VITE_FACE =FACT(statut='f',min=1,max='**',
1842 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1843 PRESENT_ABSENT('GROUP_MA','MAILLE'),),
1844 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1845 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1846 VNOR =SIMP(statut='o',typ=(fonction) ),
1848 IMPE_FACE =FACT(statut='f',min=1,max='**',
1849 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1850 PRESENT_ABSENT('GROUP_MA','MAILLE'),),
1851 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1852 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1853 IMPE =SIMP(statut='o',typ=(fonction) ),
1855 ONDE_PLANE =FACT(statut='f',min=1,max='**',
1856 DIRECTION =SIMP(statut='o',typ='R',max='**'),
1857 TYPE_ONDE =SIMP(statut='o',typ='TXM' ),
1858 FONC_SIGNAL =SIMP(statut='o',typ=(fonction) ),
1859 DIST_ORIG =SIMP(statut='o',typ='R' ),
1861 EPSI_INIT =FACT(statut='f',min=1,max='**',
1862 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1863 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1864 AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ'),),
1865 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1866 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1867 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1868 EPXX =SIMP(statut='f',typ=(fonction) ),
1869 EPYY =SIMP(statut='f',typ=(fonction) ),
1870 EPZZ =SIMP(statut='f',typ=(fonction) ),
1871 EPXY =SIMP(statut='f',typ=(fonction) ),
1872 EPXZ =SIMP(statut='f',typ=(fonction) ),
1873 EPYZ =SIMP(statut='f',typ=(fonction) ),
1876 CONTACT =FACT(statut='f',min=1,max='**',
1877 regles=(UN_PARMI('GROUP_MA_2','MAILLE_2'),
1878 EXCLUS('DIST_2','COEF_IMPO'),
1879 EXCLUS('DIST_1','COEF_IMPO'),
1880 EXCLUS('COEF_MULT_2','GROUP_MA_1'),
1881 EXCLUS('COEF_MULT_2','MAILLE_1'),
1882 EXCLUS('COEF_IMPO','GROUP_MA_1'),
1883 EXCLUS('COEF_IMPO','MAILLE_1'),),
1884 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","PRES","TEMP") ),
1885 APPARIEMENT =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
1886 into=("NON","NODAL","NODAL_SYME","MAIT_ESCL","MAIT_ESCL_SYME") ),
1887 RECHERCHE =SIMP(statut='f',typ='TXM',defaut="NOEUD_VOISIN",
1888 into=("NOEUD_BOUCLE","NOEUD_VOISIN") ),
1889 INTEGRATION =SIMP(statut='f',typ='TXM',defaut="NOEUD",into=("GAUSS","NOEUD")),
1890 COEF_REGU_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),
1891 COEF_REGU_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),
1892 MODL_AXIS =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
1893 ITER_GEOM_MAXI =SIMP(statut='f',typ='I',defaut=2),
1894 ITER_CONT_MAXI =SIMP(statut='f',typ='I',defaut=30),
1895 ITER_FROT_MAXI =SIMP(statut='f',typ='I',defaut=2),
1896 LISSAGE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
1897 SEUIL_INIT =SIMP(statut='f',typ='I',defaut=0),
1898 REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1899 b_act_reac =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1900 fr="Paramètre de la réactualisation géométrique",
1901 NB_REAC_GEOM =SIMP(statut='o',typ='I'),),
1902 NORMALE =SIMP(statut='f',typ='TXM',defaut="MAIT",into=("MAIT","MAIT_ESCL")),
1903 METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
1904 into=("CONTRAINTE","LAGRANGIEN","PENALISATION") ),
1905 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1906 COULOMB =SIMP(statut='f',typ='R',max=1,defaut=0.E+0),
1907 E_N =SIMP(statut='f',typ='R' ),
1908 E_T =SIMP(statut='f',typ='R' ),
1909 COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut=0.E+0),
1910 VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
1911 VECT_NORM_2 =SIMP(statut='f',typ='R',max=3),
1912 PROJECTION =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE",) ),
1913 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1914 MAILLE_1 =SIMP(statut='f',typ=ma,max='**' ),
1915 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1916 MAILLE_2 =SIMP(statut='f',typ=ma,max='**' ),
1917 SANS_NOEUD =SIMP(statut='f',typ=no,max='**' ),
1918 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1919 DIST_1 =SIMP(statut='f',typ=(fonction) ),
1920 DIST_2 =SIMP(statut='f',typ=(fonction) ),
1921 COEF_IMPO =SIMP(statut='f',typ='R',defaut=0.E+0),
1922 COEF_MULT_2 =SIMP(statut='f',typ='R',defaut=1.E+0),
1924 FLUX_THM_REP =FACT(statut='f',min=1,max='**',
1925 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1926 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1927 AU_MOINS_UN('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
1928 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1929 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1930 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1931 FLUN =SIMP(statut='f',typ=(fonction) ),
1932 FLUN_HYDR1 =SIMP(statut='f',typ=(fonction) ),
1933 FLUN_HYDR2 =SIMP(statut='f',typ=(fonction) ),
1936 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1938 #& MODIF COMMANDE DATE 05/12/2001 AUTEUR VABHHTS J.PELLET
1939 # CONFIGURATION MANAGEMENT OF EDF VERSION
1940 # ======================================================================
1941 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
1942 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1943 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1944 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1945 # (AT YOUR OPTION) ANY LATER VERSION.
1947 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1948 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1949 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1950 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1952 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1953 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1954 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1955 # ======================================================================
1956 AFFE_CHAR_OPS011=OPER(nom="AFFE_CHAR_OPS011",op= 190,sd_prod=char_ther,
1958 docu="",reentrant='n',
1959 regles=(AU_MOINS_UN('CARA_TORSION', ),),
1960 MODELE =SIMP(statut='o',typ=modele ),
1961 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",
1962 into=("OUI","NON") ),
1963 CARA_TORSION =FACT(statut='f',min=01,max='**',
1964 regles=(UN_PARMI('TOUT','GROUP_MA'),),
1965 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1966 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1968 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
1970 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
1971 # CONFIGURATION MANAGEMENT OF EDF VERSION
1972 # ======================================================================
1973 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
1974 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1975 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1976 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1977 # (AT YOUR OPTION) ANY LATER VERSION.
1979 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1980 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1981 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1982 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1984 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1985 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1986 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1987 # ======================================================================
1988 AFFE_CHAR_THER=OPER(nom="AFFE_CHAR_THER",op=34,sd_prod=char_ther
1989 ,fr="Affectation de charges et conditions aux limites thermiques constantes",
1990 docu="U4.44.02-g2",reentrant='n',
1991 regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','FLUX_REP','ECHANGE',
1992 'ECHANGE_PAROI','GRAD_TEMP_INIT','LIAISON_DDL','LIAISON_GROUP',
1993 'LIAISON_UNIF','LIAISON_CHAMNO','RAYONNEMENT','LIAISON_MAIL' ),),
1994 MODELE =SIMP(statut='o',typ=(modele) ),
1995 VERI_DDL =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="OUI"),
1996 LIAISON_DDL =FACT(statut='f',min=01,max='**',
1997 regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
1998 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1999 NOEUD =SIMP(statut='f',typ=no,max='**'),
2000 DDL =SIMP(statut='f',typ='TXM',max='**',
2001 into=("TEMP","TEMP_INF","TEMP_SUP") ),
2002 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
2003 COEF_IMPO =SIMP(statut='o',typ='R' ),
2005 TEMP_IMPO =FACT(statut='f',min=01,max='**',
2006 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
2007 AU_MOINS_UN('TEMP_SUP','TEMP','TEMP_INF'),),
2008 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2009 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2010 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2011 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2012 NOEUD =SIMP(statut='f',typ=no,max='**'),
2013 TEMP =SIMP(statut='f',typ='R'),
2014 TEMP_INF =SIMP(statut='f',typ='R'),
2015 TEMP_SUP =SIMP(statut='f',typ='R'), ),
2016 LIAISON_UNIF =FACT(statut='f',min=01,max='**',
2017 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
2018 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2019 NOEUD =SIMP(statut='f',typ=no,max='**'),
2020 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2021 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2022 DDL =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2023 into=("TEMP","TEMP_INF","TEMP_SUP") ),
2025 LIAISON_CHAMNO =FACT(statut='f',min=01,max='**',
2026 CHAM_NO =SIMP(statut='o',typ=cham_no),# CO()# "il faut definir une structure de donnee generique chamno"
2027 COEF_IMPO =SIMP(statut='o',typ='R' ),
2028 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
2030 SOURCE =FACT(statut='f',min=01,max='**',
2031 regles=(UN_PARMI('SOUR','SOUR_CALCULEE',),
2032 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2033 PRESENT_ABSENT('SOUR_CALCULEE','TOUT','GROUP_MA','MAILLE'),),
2034 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2035 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2036 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2037 SOUR =SIMP(statut='f',typ='R'),
2038 SOUR_CALCULEE =SIMP(statut='f',typ=(cham_elem_sour_r) ),
2040 FLUX_REP =FACT(statut='f',min=01,max='**',
2041 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2042 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2043 PRESENT_PRESENT('CARA_TORSION','GROUP_MA'),
2044 AU_MOINS_UN('FLUN','FLUN_INF','FLUN_SUP','CARA_TORSION') ),
2045 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2046 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2047 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2048 FLUN =SIMP(statut='f',typ='R'),
2049 FLUN_INF =SIMP(statut='f',typ='R'),
2050 FLUN_SUP =SIMP(statut='f',typ='R'),
2051 CARA_TORSION =SIMP(statut='f',typ=tabl_aire_int ),
2053 ECHANGE =FACT(statut='f',min=01,max='**',
2054 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2055 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2056 AU_MOINS_UN('COEF_H','COEF_H_INF','COEF_H_SUP'),
2057 ENSEMBLE('COEF_H','TEMP_EXT',),
2058 ENSEMBLE('COEF_H_INF','TEMP_EXT_INF'),
2059 ENSEMBLE('COEF_H_SUP','TEMP_EXT_SUP'),),
2060 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2061 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2062 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2063 COEF_H =SIMP(statut='f',typ='R'),
2064 TEMP_EXT =SIMP(statut='f',typ='R'),
2065 COEF_H_INF =SIMP(statut='f',typ='R'),
2066 TEMP_EXT_INF =SIMP(statut='f',typ='R'),
2067 COEF_H_SUP =SIMP(statut='f',typ='R'),
2068 TEMP_EXT_SUP =SIMP(statut='f',typ='R'),
2070 ECHANGE_PAROI =FACT(statut='f',min=01,max='**',
2071 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
2072 UN_PARMI('GROUP_MA_2','MAILLE_2'),),
2073 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
2074 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
2075 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
2076 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
2077 COEF_H =SIMP(statut='f',typ='R'),
2078 TRAN =SIMP(statut='f',typ='R',min=2,max=3),
2079 ANGL_NAUT =SIMP(statut='f',typ='R',min=1,max=3),
2080 CENTRE =SIMP(statut='f',typ='R',min=2,max=3),
2082 GRAD_TEMP_INIT =FACT(statut='f',min=01,max='**',
2083 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2084 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2085 AU_MOINS_UN('FLUX_X','FLUX_Y','FLUX_Z'),),
2086 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2087 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2088 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2089 FLUX_X =SIMP(statut='f',typ='R' ),
2090 FLUX_Y =SIMP(statut='f',typ='R' ),
2091 FLUX_Z =SIMP(statut='f',typ='R' ),
2093 LIAISON_GROUP =FACT(statut='f',min=01,max='**',
2094 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
2095 UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
2096 EXCLUS('GROUP_MA_1','GROUP_NO_2'),
2097 EXCLUS('GROUP_MA_1','NOEUD_2'),
2098 EXCLUS('GROUP_NO_1','GROUP_MA_2'),
2099 EXCLUS('GROUP_NO_1','MAILLE_2'),
2100 EXCLUS('MAILLE_1','GROUP_NO_2'),
2101 EXCLUS('MAILLE_1','NOEUD_2'),
2102 EXCLUS('NOEUD_1','GROUP_MA_2'),
2103 EXCLUS('NOEUD_1','MAILLE_2'),
2104 EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
2105 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
2106 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
2107 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
2108 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
2109 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
2110 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
2111 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
2112 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
2113 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
2114 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2115 DDL_1 =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2116 into=("TEMP","TEMP_INF","TEMP_SUP") ),
2117 COEF_MULT_1 =SIMP(statut='o',typ='R',max='**'),
2118 DDL_2 =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2119 into=("TEMP","TEMP_INF","TEMP_SUP",) ),
2120 COEF_MULT_2 =SIMP(statut='o',typ='R',max='**'),
2121 COEF_IMPO =SIMP(statut='o',typ='R' ),
2122 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2123 TRAN =SIMP(statut='f',typ='R',max='**'),
2124 ANGL_NAUT =SIMP(statut='f',typ='R',max='**'),
2125 CENTRE =SIMP(statut='f',typ='R',max='**'),
2127 CONVECTION =FACT(statut='f',min=01,max='**',
2128 VITESSE =SIMP(statut='o',typ=(cham_no_depl_r) ),
2130 RAYONNEMENT =FACT(statut='f',min=01,max='**',
2131 fr="Attention, exprimer les températures en Celsius si rayonnement",
2132 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2133 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2134 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2135 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2136 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2137 SIGMA =SIMP(statut='o',typ='R'),
2138 EPSILON =SIMP(statut='o',typ='R'),
2139 TEMP_EXT =SIMP(statut='o',typ='R'),
2141 LIAISON_MAIL =FACT(statut='f',min=01,max='**',
2142 regles=(AU_MOINS_UN('GROUP_MA_MAIT','MAILLE_MAIT'),
2143 AU_MOINS_UN('GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL',
2145 GROUP_MA_MAIT =SIMP(statut='f',typ=grma,max='**'),
2146 MAILLE_MAIT =SIMP(statut='f',typ=ma,max='**'),
2147 GROUP_MA_ESCL =SIMP(statut='f',typ=grma,max='**'),
2148 MAILLE_ESCL =SIMP(statut='f',typ=ma,max='**'),
2149 GROUP_NO_ESCL =SIMP(statut='f',typ=grno,max='**'),
2150 NOEUD_ESCL =SIMP(statut='f',typ=no,max='**'),
2151 TRAN =SIMP(statut='f',typ='R',max='**' ),
2152 ANGL_NAUT =SIMP(statut='f',typ='R',max='**' ),
2153 CENTRE =SIMP(statut='f',typ='R',max='**' ),
2155 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2157 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
2158 # CONFIGURATION MANAGEMENT OF EDF VERSION
2159 # ======================================================================
2160 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2161 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2162 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2163 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2164 # (AT YOUR OPTION) ANY LATER VERSION.
2166 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2167 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2168 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2169 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2171 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2172 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2173 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2174 # ======================================================================
2175 AFFE_CHAR_THER_F=OPER(nom="AFFE_CHAR_THER_F",op=33,sd_prod=char_ther,
2176 fr="Affectation de charges et conditions aux limites thermiques fonction dune grandeur (temps, ...)",
2177 docu="U4.44.02-g2",reentrant='n',
2178 regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','FLUX_REP','FLUX_NL','ECHANGE',
2179 'ECHANGE_PAROI','LIAISON_DDL','LIAISON_GROUP','LIAISON_UNIF',
2180 'GRAD_TEMP_INIT','RAYONNEMENT'),),
2181 MODELE =SIMP(statut='o',typ=(modele) ),
2182 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2183 LIAISON_DDL =FACT(statut='f',min=1,max='**',
2184 regles=(UN_PARMI('GROUP_NO','NOEUD'),),
2185 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2186 NOEUD =SIMP(statut='f',typ=no,max='**'),
2187 DDL =SIMP(statut='f',typ='TXM',max='**',into=("TEMP","TEMP_INF","TEMP_SUP") ),
2188 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
2189 COEF_IMPO =SIMP(statut='o',typ=(fonction) ),
2191 TEMP_IMPO =FACT(statut='f',min=1,max='**',
2192 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
2193 AU_MOINS_UN('TEMP_SUP','TEMP','TEMP_INF','EVOL_THER'),
2194 PRESENT_ABSENT('EVOL_THER','TEMP','TEMP_INF','TEMP_SUP'),),
2195 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2196 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2197 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2198 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2199 NOEUD =SIMP(statut='f',typ=no,max='**'),
2200 EVOL_THER =SIMP(statut='f',typ=(evol_ther) ),
2201 DDL =SIMP(statut='f',typ='TXM',into=("TEMP",) ),
2202 TEMP =SIMP(statut='f',typ=(fonction) ),
2203 TEMP_INF =SIMP(statut='f',typ=(fonction) ),
2204 TEMP_SUP =SIMP(statut='f',typ=(fonction) ),
2206 LIAISON_UNIF =FACT(statut='f',min=1,max='**',
2207 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
2208 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2209 NOEUD =SIMP(statut='f',typ=no,max='**'),
2210 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2211 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2212 DDL =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2213 into=("TEMP","TEMP_INF","TEMP_SUP") ),
2215 SOURCE =FACT(statut='f',min=1,max='**',
2216 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),),
2217 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2218 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2219 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2220 SOUR =SIMP(statut='o',typ=(fonction) ),
2222 FLUX_REP =FACT(statut='f',min=1,max='**',
2223 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2224 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2225 AU_MOINS_UN('FLUN','FLUN_INF','FLUN_SUP','FLUX_X','FLUX_Y','FLUX_Z'),),
2226 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2227 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2228 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2229 FLUN =SIMP(statut='f',typ=(fonction) ),
2230 FLUN_INF =SIMP(statut='f',typ=(fonction) ),
2231 FLUN_SUP =SIMP(statut='f',typ=(fonction) ),
2232 FLUX_X =SIMP(statut='f',typ=(fonction) ),
2233 FLUX_Y =SIMP(statut='f',typ=(fonction) ),
2234 FLUX_Z =SIMP(statut='f',typ=(fonction) ),
2236 FLUX_NL =FACT(statut='f',min=1,max='**',
2237 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2238 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2239 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2240 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2241 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2242 FLUN =SIMP(statut='o',typ=(fonction) ),
2244 ECHANGE =FACT(statut='f',min=1,max='**',
2245 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2246 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2247 AU_MOINS_UN('COEF_H','COEF_H_INF','COEF_H_SUP'),
2248 ENSEMBLE('COEF_H','TEMP_EXT'),
2249 ENSEMBLE('COEF_H_INF','TEMP_EXT_INF'),
2250 ENSEMBLE('COEF_H_SUP','TEMP_EXT_SUP'),),
2251 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2252 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2253 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2254 COEF_H =SIMP(statut='f',typ=(fonction) ),
2255 TEMP_EXT =SIMP(statut='f',typ=(fonction) ),
2256 COEF_H_INF =SIMP(statut='f',typ=(fonction) ),
2257 TEMP_EXT_INF =SIMP(statut='f',typ=(fonction) ),
2258 COEF_H_SUP =SIMP(statut='f',typ=(fonction) ),
2259 TEMP_EXT_SUP =SIMP(statut='f',typ=(fonction) ),
2261 ECHANGE_PAROI =FACT(statut='f',min=1,max='**',
2262 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
2263 UN_PARMI('GROUP_MA_2','MAILLE_2'),),
2264 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
2265 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
2266 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
2267 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
2268 COEF_H =SIMP(statut='o',typ=(fonction) ),
2269 TRAN =SIMP(statut='f',typ='R',min=2,max=3),
2270 ANGL_NAUT =SIMP(statut='f',typ='R',min=1,max=3),
2271 CENTRE =SIMP(statut='f',typ='R',min=2,max=3),
2273 GRAD_TEMP_INIT =FACT(statut='f',min=1,max='**',
2274 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2275 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2276 AU_MOINS_UN('FLUX_X','FLUX_Y','FLUX_Z'),),
2277 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2278 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2279 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2280 FLUX_X =SIMP(statut='f',typ=(fonction) ),
2281 FLUX_Y =SIMP(statut='f',typ=(fonction) ),
2282 FLUX_Z =SIMP(statut='f',typ=(fonction) ),
2284 LIAISON_GROUP =FACT(statut='f',min=1,max='**',
2285 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
2286 UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
2287 EXCLUS('GROUP_MA_1','GROUP_NO_2'),
2288 EXCLUS('GROUP_MA_1','NOEUD_2'),
2289 EXCLUS('GROUP_NO_1','GROUP_MA_2'),
2290 EXCLUS('GROUP_NO_1','MAILLE_2'),
2291 EXCLUS('MAILLE_1','GROUP_NO_2'),
2292 EXCLUS('MAILLE_1','NOEUD_2'),
2293 EXCLUS('NOEUD_1','GROUP_MA_2'),
2294 EXCLUS('NOEUD_1','MAILLE_2'),
2295 EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
2296 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
2297 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
2298 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
2299 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
2300 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
2301 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
2302 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
2303 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
2304 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
2305 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2306 DDL_1 =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2307 into=("TEMP","TEMP_INF","TEMP_SUP") ),
2308 COEF_MULT_1 =SIMP(statut='o',typ='R',max='**'),
2309 DDL_2 =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2310 into=("TEMP","TEMP_INF","TEMP_SUP") ),
2311 COEF_MULT_2 =SIMP(statut='o',typ='R',max='**'),
2312 COEF_IMPO =SIMP(statut='o',typ=(fonction) ),
2313 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2314 TRAN =SIMP(statut='f',typ='R',max='**'),
2315 ANGL_NAUT =SIMP(statut='f',typ='R',max='**'),
2316 CENTRE =SIMP(statut='f',typ='R',max='**'),
2318 CONVECTION =FACT(statut='f',min=1,max='**',
2319 VITESSE =SIMP(statut='o',typ=(cham_no_depl_r) ),
2321 RAYONNEMENT =FACT(statut='f',min=1,max='**',
2322 fr="Attention, exprimer les températures en Celsius si rayonnement",
2323 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2324 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2325 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2326 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2327 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2328 SIGMA =SIMP(statut='o',typ=(fonction) ),
2329 EPSILON =SIMP(statut='o',typ=(fonction) ),
2330 TEMP_EXT =SIMP(statut='o',typ=(fonction) ),
2332 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2334 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
2335 # CONFIGURATION MANAGEMENT OF EDF VERSION
2336 # ======================================================================
2337 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2338 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2339 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2340 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2341 # (AT YOUR OPTION) ANY LATER VERSION.
2343 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2344 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2345 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2346 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2348 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2349 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2350 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2351 # ======================================================================
2352 # RESPONSABLE VABHHTS J.PELLET
2353 AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
2354 fr="Affectation de caractéristiques de matériaux à un maillage",
2355 docu="U4.43.03-f",reentrant='n',
2356 MAILLAGE =SIMP(statut='o',typ=maillage),
2357 MODELE =SIMP(statut='f',typ=modele),
2358 AFFE =FACT(statut='o',min=01,max='**',
2359 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
2360 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2361 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2362 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2363 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2364 NOEUD =SIMP(statut='f',typ=no,max='**'),
2365 MATER =SIMP(statut='o',typ=mater),
2366 TEMP_REF =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2369 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
2370 # CONFIGURATION MANAGEMENT OF EDF VERSION
2371 # ======================================================================
2372 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2373 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2374 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2375 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2376 # (AT YOUR OPTION) ANY LATER VERSION.
2378 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2379 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2380 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2381 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2383 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2384 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2385 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2386 # ======================================================================
2387 # RESPONSABLE JMBHH01 J.M.PROIX
2388 AFFE_MODELE=OPER(nom="AFFE_MODELE",op=18,sd_prod=modele,docu="U4.41.01-g3",
2389 fr="Affectation des éléments finis sur le maillage",reentrant='n',
2390 regles=(AU_MOINS_UN('AFFE','AFFE_SOUS_STRUC'),),
2391 MAILLAGE =SIMP(statut='o',typ=(maillage) ),
2392 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
2393 VERIF =SIMP(statut='f',typ='TXM',max=2,into=("MAILLE","NOEUD") ),
2394 AFFE_SOUS_STRUC =FACT(statut='f',min=01,max=01,
2395 regles=(UN_PARMI('TOUT','MAILLE'),),
2396 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2397 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2398 PHENOMENE =SIMP(statut='f',typ='TXM',defaut="MECANIQUE",into=("MECANIQUE",) ),
2400 AFFE =FACT(statut='f',min=01,max='**',
2401 regles=(UN_PARMI('TOUT','GROUP_MA','GROUP_NO','MAILLE','NOEUD'),),
2402 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2403 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2404 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2405 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2406 NOEUD =SIMP(statut='f',typ=no,max='**'),
2407 PHENOMENE =SIMP(statut='o',typ='TXM',
2408 into=("MECANIQUE","THERMIQUE","ACOUSTIQUE") ),
2409 b_mecanique =BLOC( condition = "PHENOMENE=='MECANIQUE'",
2410 fr="modelisations mécaniques",
2411 MODELISATION =SIMP(statut='o',typ='TXM', into=(
2507 b_thermique =BLOC( condition = "PHENOMENE=='THERMIQUE'",
2508 fr="modelisations thermiques",
2509 MODELISATION =SIMP(statut='o',typ='TXM',into=(
2522 b_acoustique =BLOC( condition = "PHENOMENE=='ACOUSTIQUE'",
2523 fr="modelisations acoustiques",
2524 MODELISATION =SIMP(statut='o',typ='TXM',into=(
2531 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
2532 # CONFIGURATION MANAGEMENT OF EDF VERSION
2533 # ======================================================================
2534 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2535 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2536 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2537 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2538 # (AT YOUR OPTION) ANY LATER VERSION.
2540 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2541 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2542 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2543 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2545 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2546 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2547 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2548 # ======================================================================
2549 AIDE=PROC(nom="AIDE",op=42,docu="U4.02.01-g1",
2550 fr="Interrogation sur le catalogue des commandes et les concepts produits",
2551 regles=(AU_MOINS_UN('CONCEPT','TYPE_ELEM', ),),
2552 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
2553 TYPE_ELEM =FACT(fr="couple type_elem option",
2554 statut='f',min=01,max=01,
2555 INITEL =SIMP(statut='f',typ='TXM',defaut="NON",
2556 into=("OUI","NON",) ),
2558 CONCEPT =FACT(statut='f',min=01,max='**',
2559 NOM =SIMP(fr="liste des noms de concept",
2560 statut='f',typ='TXM',max='**',defaut="*"),
2561 OPTION =SIMP(fr="option d'édition de concept",
2562 statut='f',typ='TXM',defaut="TOUT_TYPE",
2563 into=("TOUT_TYPE","CREER","A_CREER",) ),
2566 #& MODIF COMMANDE DATE 16/01/2002 AUTEUR DURAND C.DURAND
2567 # CONFIGURATION MANAGEMENT OF EDF VERSION
2568 # ======================================================================
2569 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2570 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2571 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2572 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2573 # (AT YOUR OPTION) ANY LATER VERSION.
2575 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2576 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2577 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2578 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2580 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2581 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2582 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2583 # ======================================================================
2584 # RESPONSABLE VABHHTS J.PELLET
2585 ASSE_MAILLAGE=OPER(nom="ASSE_MAILLAGE",op= 105,sd_prod=maillage,
2586 fr="Assembler deux maillages sous un seul nom",
2587 docu="U4.23.03-e",reentrant='n',
2588 MAILLAGE =SIMP(statut='o',typ=maillage,min=2,max=2 ),
2590 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
2591 # CONFIGURATION MANAGEMENT OF EDF VERSION
2592 # ======================================================================
2593 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2594 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2595 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2596 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2597 # (AT YOUR OPTION) ANY LATER VERSION.
2599 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2600 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2601 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2602 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2604 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2605 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2606 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2607 # ======================================================================
2608 ASSE_MATR_GENE=OPER(nom="ASSE_MATR_GENE",op= 128,sd_prod=matr_asse_gene_r,
2609 fr="Assemblage des matrices généralisées de macro éléments pour construction de la matrice globale généralisée",
2610 docu="U4.65.04-d",reentrant='n',
2611 NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
2612 OPTION =SIMP(statut='o',typ='TXM',into=("RIGI_GENE","MASS_GENE","AMOR_GENE") ),
2614 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
2615 # CONFIGURATION MANAGEMENT OF EDF VERSION
2616 # ======================================================================
2617 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2618 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2619 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2620 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2621 # (AT YOUR OPTION) ANY LATER VERSION.
2623 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2624 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2625 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2626 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2628 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2629 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2630 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2631 # ======================================================================
2632 # RESPONSABLE VABHHTS J.PELLET
2633 def asse_matrice_prod(MATR_ELEM,**args):
2634 if AsType(MATR_ELEM) == matr_elem_depl_r : return matr_asse_depl_r
2635 if AsType(MATR_ELEM) == matr_elem_depl_c : return matr_asse_depl_c
2636 if AsType(MATR_ELEM) == matr_elem_temp_r : return matr_asse_temp_r
2637 if AsType(MATR_ELEM) == matr_elem_pres_c : return matr_asse_pres_c
2638 raise AsException("type de concept resultat non prevu")
2640 ASSE_MATRICE=OPER(nom="ASSE_MATRICE",op=12,sd_prod=asse_matrice_prod,
2641 fr="Construction d une matrice assemblée",docu="U4.61.22-f",reentrant='n',
2642 MATR_ELEM =SIMP(statut='o',
2643 typ=(matr_elem_depl_r,matr_elem_depl_c,matr_elem_temp_r,matr_elem_pres_c) ),
2644 NUME_DDL =SIMP(statut='o',typ=nume_ddl),
2645 CHAR_CINE =SIMP(statut='f',typ=(char_cine_meca,char_cine_ther,char_cine_acou) ),
2646 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
2648 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
2649 # CONFIGURATION MANAGEMENT OF EDF VERSION
2650 # ======================================================================
2651 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2652 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2653 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2654 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2655 # (AT YOUR OPTION) ANY LATER VERSION.
2657 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2658 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2659 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2660 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2662 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2663 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2664 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2665 # ======================================================================
2666 ASSE_VECT_GENE=OPER(nom="ASSE_VECT_GENE",op= 140,sd_prod=vect_asse_gene,
2667 fr="Assemblage de vecteurs de chargement en coordonnées généralisées",
2668 docu="U4.65.05-d",reentrant='n',
2669 NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
2670 CHAR_SOUS_STRUC =FACT(statut='o',min=01,max='**',
2671 SOUS_STRUC =SIMP(statut='o',typ='TXM' ),
2672 VECT_ASSE =SIMP(statut='o',typ=cham_no_depl_r ),
2675 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
2676 # CONFIGURATION MANAGEMENT OF EDF VERSION
2677 # ======================================================================
2678 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2679 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2680 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2681 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2682 # (AT YOUR OPTION) ANY LATER VERSION.
2684 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2685 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2686 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2687 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2689 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2690 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2691 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2692 # ======================================================================
2693 # RESPONSABLE VABHHTS J.PELLET
2694 def asse_vecteur_prod(VECT_ELEM,**args):
2695 if AsType(VECT_ELEM) == vect_elem_depl_r : return cham_no_depl_r
2696 if AsType(VECT_ELEM) == vect_elem_temp_r : return cham_no_temp_r
2697 if AsType(VECT_ELEM) == vect_elem_pres_r : return cham_no_pres_r
2698 if AsType(VECT_ELEM) == vect_elem_pres_c : return cham_no_pres_c
2699 raise AsException("type de concept resultat non prevu ")
2701 ASSE_VECTEUR=OPER(nom="ASSE_VECTEUR",op=13,sd_prod=asse_vecteur_prod,
2702 fr="Assemblage d un second membre",docu="U4.61.23-f",reentrant='n',
2703 VECT_ELEM =SIMP(statut='o',typ=vect_elem,max='**'),
2704 NUME_DDL =SIMP(statut='o',typ=nume_ddl ),
2705 INFO =SIMP(statut='f',typ='I',into=(1,2,) ),
2707 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
2708 # CONFIGURATION MANAGEMENT OF EDF VERSION
2709 # ======================================================================
2710 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2711 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2712 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2713 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2714 # (AT YOUR OPTION) ANY LATER VERSION.
2716 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2717 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2718 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2719 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2721 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2722 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2723 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2724 # ======================================================================
2725 CALC_AMOR_MODAL=OPER(nom="CALC_AMOR_MODAL",op= 172,sd_prod=listr8,
2726 fr="Création d'une liste d'amortissements modaux calculés selon la règle du RCC-G",
2727 docu="U4.52.13-c",reentrant='n',
2728 ENER_SOL =FACT(statut='o',min=01,max=01,
2729 regles=(UN_PARMI('GROUP_NO_RADIER','GROUP_MA_RADIER'),
2730 PRESENT_ABSENT('COEF_GROUP','FONC_GROUP'),
2731 # Peut-on remplacer les deux règles suivantes par un ENSEMBLE_('KRX','KRY','KRZ')
2732 PRESENT_PRESENT('KRX','KRY'),
2733 PRESENT_PRESENT('KRX','KRZ'),
2734 PRESENT_ABSENT('COOR_CENTRE','NOEUD_CENTRE'),
2735 PRESENT_ABSENT('GROUP_NO_CENTRE','NOEUD_CENTRE'),
2736 PRESENT_ABSENT('GROUP_NO_CENTRE','COOR_CENTRE'),),
2737 METHODE =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","RIGI_PARASOL") ),
2738 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
2739 GROUP_NO_RADIER =SIMP(statut='f',typ=grno,max='**'),
2740 GROUP_MA_RADIER =SIMP(statut='f',typ=grma,max='**'),
2741 FONC_GROUP =SIMP(statut='f',typ=fonction ),
2742 COEF_GROUP =SIMP(statut='f',typ='R',max='**'),
2743 KX =SIMP(statut='o',typ='R' ),
2744 KY =SIMP(statut='o',typ='R' ),
2745 KZ =SIMP(statut='o',typ='R' ),
2746 KRX =SIMP(statut='f',typ='R' ),
2747 KRY =SIMP(statut='f',typ='R' ),
2748 KRZ =SIMP(statut='f',typ='R' ),
2749 GROUP_NO_CENTRE =SIMP(statut='f',typ=grno),
2750 NOEUD_CENTRE =SIMP(statut='f',typ=no),
2751 COOR_CENTRE =SIMP(statut='f',typ='R',max=03),
2753 AMOR_INTERNE =FACT(statut='o',min=01,max=01,
2754 ENER_POT =SIMP(statut='o',typ=tabl_ener_pot ),
2755 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
2756 AMOR_REDUIT =SIMP(statut='o',typ='R',max='**'),
2758 AMOR_SOL =FACT(statut='o',min=01,max=01,
2759 AMOR_REDUIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2760 FONC_AMOR_GEO =SIMP(statut='o',typ=fonction,max='**' ),
2761 HOMOGENE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2762 SEUIL =SIMP(statut='f',typ='R',defaut= 0.3 ),
2765 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
2766 # CONFIGURATION MANAGEMENT OF EDF VERSION
2767 # ======================================================================
2768 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2769 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2770 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2771 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2772 # (AT YOUR OPTION) ANY LATER VERSION.
2774 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2775 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2776 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2777 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2779 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2780 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2781 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2782 # ======================================================================
2783 # RESPONSABLE JMBHH01 J.M.PROIX
2784 def calc_cham_elem_prod(OPTION,**args):
2786 # options mecaniques
2787 if OPTION == "DEGE_ELNO_DEPL" : return cham_elem_epsi_r
2788 if OPTION == "ECIN_ELEM_DEPL" : return cham_elem_ener_r
2789 if OPTION == "EFGE_ELNO_CART" : return cham_elem_sief_r
2790 if OPTION == "EFGE_ELNO_DEPL" : return cham_elem_sief_r
2791 if OPTION == "ENDO_ELNO_SIGM" : return cham_elem_sief_r
2792 if OPTION == "EPOT_ELEM_DEPL" : return cham_elem_ener_r
2793 if OPTION == "ENEL_ELGA" : return cham_elem_ener_r
2794 if OPTION == "ENEL_ELNO_ELGA" : return cham_elem_ener_r
2795 if OPTION == "EPSI_ELNO_DEPL" : return cham_elem_epsi_r
2796 if OPTION == "EQUI_ELGA_EPSI" : return cham_elem_epsi_r
2797 if OPTION == "EQUI_ELGA_SIGM" : return cham_elem_sief_r
2798 if OPTION == "EQUI_ELNO_EPSI" : return cham_elem_epsi_r
2799 if OPTION == "EQUI_ELNO_SIGM" : return cham_elem_sief_r
2800 if OPTION == "PRES_DBEL_DEPL" : return cham_elem_dbel_r
2801 if OPTION == "SIEF_ELGA_DEPL" : return cham_elem_sief_r
2802 if OPTION == "SIEF_ELGA_LAGR" : return cham_elem_sief_r
2803 if OPTION == "SIGM_ELNO_CART" : return cham_elem_sief_r
2804 if OPTION == "SIGM_ELNO_DEPL" : return cham_elem_sief_r
2805 if OPTION == "SIGM_ELNO_LAGR" : return cham_elem_sief_r
2806 if OPTION == "SIPO_ELNO_DEPL" : return cham_elem_sief_r
2808 # options thermiques
2810 if OPTION == "FLUX_ELGA_TEMP" : return cham_elem_flux_r
2811 if OPTION == "FLUX_ELNO_TEMP" : return cham_elem_flux_r
2812 if OPTION == "SOUR_ELGA_ELEC" : return cham_elem_sour_r
2814 # options acoustiques
2816 if OPTION == "PRES_ELNO_DBEL" : return cham_elem_dbel_r
2817 if OPTION == "PRES_ELNO_REEL" : return cham_elem_pres_r
2818 if OPTION == "PRES_ELNO_IMAG" : return cham_elem_pres_r
2822 if OPTION == "COOR_ELGA" : return cham_elem_geom_r
2824 raise AsException("type de concept resultat non prevu")
2826 CALC_CHAM_ELEM=OPER(nom="CALC_CHAM_ELEM",op=38,sd_prod=calc_cham_elem_prod,
2827 fr="Calcul de champs par éléments à partir de champs solution ou de champs par éléments",
2828 docu="U4.81.03-g1",reentrant='n',
2829 MODELE =SIMP(statut='o',typ=modele),
2830 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
2831 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
2833 regles=(EXCLUS('TOUT','GROUP_MA',),EXCLUS('TOUT','MAILLE',),),
2834 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2835 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2836 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2840 # introduire un mot cle de type modelisation : mécanique,thermique,...
2843 OPTION =SIMP(statut='o',typ='TXM',
2844 into=("DEGE_ELNO_DEPL","ECIN_ELEM_DEPL","EFGE_ELNO_CART",
2845 "EFGE_ELNO_DEPL","ENDO_ELNO_SIGM","EPOT_ELEM_DEPL",
2846 "ENEL_ELGA", "ENEL_ELNO_ELGA","EPSI_ELNO_DEPL",
2847 "EQUI_ELGA_EPSI","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI",
2848 "EQUI_ELNO_SIGM","PRES_DBEL_DEPL","SIEF_ELGA_DEPL",
2849 "SIEF_ELGA_LAGR","SIGM_ELNO_CART","SIGM_ELNO_DEPL",
2850 "SIGM_ELNO_LAGR","SIPO_ELNO_DEPL",
2851 "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","SOUR_ELGA_ELEC",
2852 "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG",
2855 b_dege_elno_depl =BLOC(condition="OPTION=='DEGE_ELNO_DEPL'",
2856 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
2857 PLAN =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
2860 b_ecin_elem_depl =BLOC(condition="OPTION=='ECIN_ELEM_DEPL'",
2861 regles=(UN_PARMI('VITE','DEPL',),ENSEMBLE('DEPL','FREQ',),),
2862 FREQ =SIMP(statut='f',typ='R'),
2863 VITE =SIMP(statut='f',typ=cham_no_depl_r),
2864 DEPL =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_depl_c)),
2867 b_efge_elno_cart =BLOC(condition="OPTION=='EFGE_ELNO_CART'",
2868 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2869 PLAN =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
2872 b_efge_elno_depl =BLOC(condition="OPTION=='EFGE_ELNO_DEPL'",
2873 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
2874 PLAN =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
2877 b_endo_elno_sigm =BLOC(condition="OPTION=='ENDO_ELNO_SIGM'",
2878 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2881 b_epot_elem_depl =BLOC(condition="OPTION=='EPOT_ELEM_DEPL'",
2882 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
2885 b_enel_elga =BLOC(condition="OPTION=='ENEL_ELGA'",
2886 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2889 b_enel_elno_elga =BLOC(condition="OPTION=='ENEL_ELNO_ELGA'",
2890 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2893 b_epsi_elno_depl =BLOC(condition="OPTION=='EPSI_ELNO_DEPL'",
2894 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
2897 b_equi_elga_epsi =BLOC(condition="OPTION=='EQUI_ELGA_EPSI'",
2898 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_epsi_r,) ),
2901 b_equi_elga_sigm =BLOC(condition="OPTION=='EQUI_ELGA_SIGM'",
2902 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2905 b_equi_elno_epsi =BLOC(condition="OPTION=='EQUI_ELNO_EPSI'",
2906 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_epsi_r,) ),
2909 b_equi_elno_sigm =BLOC(condition="OPTION=='EQUI_ELNO_SIGM'",
2910 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2913 b_pres_dbel_depl =BLOC(condition="OPTION=='PRES_DBEL_DEPL'",
2914 DEPL =SIMP(statut='o',typ=(cham_no_depl_c,)),
2917 b_sief_elga_depl =BLOC(condition="OPTION=='SIEF_ELGA_DEPL'",
2918 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
2921 b_sief_elga_lagr =BLOC(condition="OPTION=='SIEF_ELGA_LAGR'",
2922 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
2923 THETA =SIMP(statut='o',typ=(theta_geom,)),
2924 PROPAGATION =SIMP(statut='f',typ='R',defaut=0.E+0),
2927 b_sigm_elno_cart =BLOC(condition="OPTION=='SIGM_ELNO_CART'",
2928 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2931 b_sigm_elno_depl =BLOC(condition="OPTION=='SIGM_ELNO_DEPL'",
2932 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,) ),
2935 b_sigm_elno_lagr =BLOC(condition="OPTION=='SIGM_ELNO_LAGR'",
2936 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
2937 THETA =SIMP(statut='o',typ=(theta_geom,)),
2938 PROPAGATION =SIMP(statut='f',typ='R',defaut=0.E+0),
2941 b_sipo_elno_depl =BLOC(condition="OPTION=='SIPO_ELNO_DEPL'",
2942 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
2945 b_thermique =BLOC(condition="OPTION in ('FLUX_ELNO_TEMP','FLUX_ELGA_TEMP','SOUR_ELGA_ELEC',)",
2946 TEMP =SIMP(statut='o',typ=(cham_no_temp_r,)),
2949 b_acoustique =BLOC(condition="OPTION in ('PRES_ELNO_DBEL','PRES_ELNO_REEL','PRES_ELNO_IMAG',)",
2950 PRES =SIMP(statut='o',typ=(cham_no_pres_c,)),
2955 EXCIT =FACT(statut='f',min=01,max='**',
2956 regles=(EXCLUS('FONC_MULT','COEF_MULT', ),),
2957 CHARGE =SIMP(statut='o',typ=(char_meca,char_ther,char_acou)),
2958 FONC_MULT =SIMP(statut='f',typ=fonction),
2959 COEF_MULT =SIMP(statut='f',typ='R'), ),
2961 INST =SIMP(statut='f',typ='R',defaut= 0.E+0),
2962 ACCE =SIMP(statut='f',typ=cham_no_depl_r),
2963 NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1),
2964 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
2965 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
2966 ANGLE =SIMP(statut='f',typ='I',defaut= 0),
2968 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
2969 # CONFIGURATION MANAGEMENT OF EDF VERSION
2970 # ======================================================================
2971 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2972 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2973 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2974 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2975 # (AT YOUR OPTION) ANY LATER VERSION.
2977 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2978 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2979 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2980 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2982 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2983 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2984 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2985 # ======================================================================
2986 # RESPONSABLE VABHHTS J.PELLET
2987 def calc_char_cine_prod(CHAR_CINE,**args):
2988 if AsType(CHAR_CINE) == char_cine_meca : return cham_no_depl_r
2989 if AsType(CHAR_CINE) == char_cine_ther : return cham_no_temp_r
2990 if AsType(CHAR_CINE) == char_cine_acou : return cham_no_pres_c
2991 raise AsException("type de concept resultat non prevu")
2993 CALC_CHAR_CINE=OPER(nom="CALC_CHAR_CINE",op= 102,sd_prod=calc_char_cine_prod,
2994 fr="Calcul des seconds membres associés à des charges cinématiques (conditions aux limites non dualisées)",
2995 docu="U4.61.03-e",reentrant='n',
2996 NUME_DDL =SIMP(statut='o',typ=nume_ddl ),
2997 CHAR_CINE =SIMP(statut='o',typ=(char_cine_meca,char_cine_ther,char_cine_acou ) ),
2998 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2999 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3001 #& MODIF COMMANDE DATE 28/03/2001 AUTEUR CIBHHLV L.VIVAN
3002 # CONFIGURATION MANAGEMENT OF EDF VERSION
3003 # ======================================================================
3004 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3005 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3006 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3007 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3008 # (AT YOUR OPTION) ANY LATER VERSION.
3010 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3011 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3012 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3013 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3015 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3016 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3017 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3018 # ======================================================================
3019 def calc_char_seisme_prod(MATR_MASS,**args ):
3020 if AsType(MATR_MASS) == matr_asse_depl_r : return cham_no_depl_r
3021 raise AsException("type de concept resultat non prevu")
3023 CALC_CHAR_SEISME=OPER(nom="CALC_CHAR_SEISME",op= 92,sd_prod=calc_char_seisme_prod,
3024 docu="U4.63.01-e",reentrant='n',
3025 regles=(UN_PARMI('MONO_APPUI','MODE_STAT' ),),
3026 MATR_MASS =SIMP(statut='o',typ=matr_asse_depl_r,fr="Matrice de masse" ),
3027 DIRECTION =SIMP(statut='o',typ='R',max=06,fr="Directions du séisme imposé"),
3028 MONO_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3029 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
3030 b_mode_stat =BLOC ( condition = "MODE_STAT != None",
3031 regles=(UN_PARMI('NOEUD','GROUP_NO' ),),
3032 NOEUD =SIMP(statut='f',typ=no,max='**'),
3033 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
3035 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3037 #& MODIF COMMANDE DATE 08/08/2002 AUTEUR CIBHHLV L.VIVAN
3038 # CONFIGURATION MANAGEMENT OF EDF VERSION
3039 # ======================================================================
3040 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3041 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3042 # REDISTRIBUTION OF THIS FILE.
3043 # ======================================================================
3044 # RESPONSABLE JMBHH01 J.M.PROIX
3045 def calc_elem_prod(RESULTAT,**args):
3046 if AsType(RESULTAT) != None : return AsType(RESULTAT)
3047 raise AsException("type de concept resultat non prevu")
3049 CALC_ELEM=OPER(nom="CALC_ELEM",op=58,sd_prod=calc_elem_prod,docu="U4.81.01-g3",reentrant='f',
3050 fr="Compléter un résultat en calculant des champs par éléments (contraintes, déformations,... )",
3051 MODELE =SIMP(statut='o',typ=modele),
3052 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
3053 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
3055 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3056 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3057 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3059 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
3060 'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),),
3061 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3062 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
3063 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
3064 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
3065 NOM_CAS =SIMP(statut='f',typ='TXM' ),
3067 INST =SIMP(statut='f',typ='R',max='**'),
3068 FREQ =SIMP(statut='f',typ='R',max='**'),
3069 LIST_INST =SIMP(statut='f',typ=listr8),
3070 LIST_FREQ =SIMP(statut='f',typ=listr8),
3071 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
3072 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
3074 LIST_ORDRE =SIMP(statut='f',typ=listis),
3076 OPTION =SIMP(statut='o',typ='TXM',max='**',
3077 into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
3078 "SIGM_ELNO_TUYO","SIGM_ELNO_CART","DEGE_ELNO_DEPL","EFGE_ELNO_CART",
3079 "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL",
3080 "EPME_ELNO_DEPL","EPME_ELGA_DEPL","EPMG_ELNO_DEPL","EPMG_ELGA_DEPL",
3081 "EPSP_ELNO","EPSP_ELGA","ECIN_ELEM_DEPL","SIPO_ELNO_DEPL",
3082 "EPGR_ELNO","EPGR_ELGA","DURT_ELGA_META","DURT_ELNO_META",
3083 "SIGM_ELNO_COQU","SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",
3084 "SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA","ERRE_ELEM_NOZ2",
3085 "VNOR_ELEM_DEPL","SIRE_ELNO_DEPL","ERRE_ELGA_NORE","ERRE_ELNO_ELGA",
3086 "VARI_ELNO_ELGA","VARI_ELNO_TUYO","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
3087 "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI","EQUI_ELNO_EPME","EQUI_ELGA_EPME",
3088 "DCHA_ELNO_SIGM","DCHA_ELGA_SIGM","RADI_ELNO_SIGM","RADI_ELGA_SIGM",
3089 "ENDO_ELNO_SIGA","ENDO_ELNO_SINO","ENEL_ELGA","ENEL_ELNO_ELGA","SIEF_ELNO_ELGA",
3090 "DEUL_ELGA_TEMP","DETE_ELNO_DLTE","DEUL_ELGA_DEPL","DEDE_ELNO_DLDE",
3091 "DESI_ELNO_DLSI","PMPB_ELNO_SIEF","PMPB_ELGA_SIEF",
3092 "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","HYDR_ELNO_ELGA",
3093 "SOUR_ELGA_ELEC","VARI_ELNO_COQU","CRIT_ELNO_RUPT",
3094 "PRES_ELNO_DBEL","PRES_DBEL_DEPL","PRES_ELNO_REEL","PRES_ELNO_IMAG",
3095 "INTE_ELNO_ACTI","INTE_ELNO_REAC","ERTH_ELEM_TEMP","ERTH_ELNO_ELEM"
3097 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,mode_meca,
3098 mode_stat,mode_stat_depl,mode_stat_acce,mode_stat_forc,
3099 evol_noli,mult_elas,fourier_elas,
3100 evol_ther,base_modale,
3101 acou_harmo,mode_acou,mode_flamb) ),
3102 EXCIT =FACT(statut='f',min=1,max='**',
3103 regles=(EXCLUS('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
3104 CHARGE =SIMP(statut='o',typ=(char_meca,char_ther,char_acou) ),
3105 FONC_MULT =SIMP(statut='f',typ=fonction),
3106 FONC_MULT_C =SIMP(statut='f',typ=fonction_c),
3107 COEF_MULT =SIMP(statut='f',typ='R'),
3108 COEF_MULT_C =SIMP(statut='f',typ='C'),
3109 PHAS_DEG =SIMP(statut='f',typ='R'),
3110 PUIS_PULS =SIMP(statut='f',typ='I'),
3111 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
3113 NORME =SIMP(statut='f',typ='TXM',defaut="VMIS",
3114 into=("VMIS","TOTAL","VMIS_CINE","TOTAL_CINE") ),
3115 NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1 ),
3116 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
3118 ANGLE =SIMP(statut='f',typ='I',defaut= 0 ),
3119 PLAN =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL") ),
3120 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
3121 fr="Liste des paramètres de sensibilité.",
3122 ang="List of sensitivity parameters"),
3123 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
3124 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3126 #& MODIF COMMANDE DATE 24/06/2002 AUTEUR F1BHHAJ J.ANGLES
3127 # CONFIGURATION MANAGEMENT OF EDF VERSION
3128 # ======================================================================
3129 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3130 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3131 # REDISTRIBUTION OF THIS FILE.
3132 # ======================================================================
3133 def calc_fatigue_prod(TYPE_CALCUL,**args):
3134 if TYPE_CALCUL == "CUMUL_DOMMAGE" : return cham_elem_dommag
3135 if TYPE_CALCUL == "FATIGUE_MULTI" : return cham_elem_facy_r
3136 raise AsException("type de calcul non prevu")
3138 CALC_FATIGUE=OPER(nom="CALC_FATIGUE",op= 151,sd_prod=calc_fatigue_prod,reentrant='n',
3139 fr="Calcul d un cham de dommage ou d un cisaillement maximal dans le plan critique.",
3142 TYPE_CALCUL = SIMP(statut='o',typ='TXM',
3143 into=("CUMUL_DOMMAGE","FATIGUE_MULTI",) ),
3145 b_cumul_domma =BLOC(condition = "TYPE_CALCUL == 'CUMUL_DOMMAGE'",
3146 fr="Calcul d un champ de dommage subi par une structure.",
3147 regles=(PRESENT_PRESENT('DOMMAGE','MATER', ),),
3148 OPTION =SIMP(statut='o',typ='TXM',
3149 into=("DOMA_ELNO_SIGM","DOMA_ELGA_SIGM",
3150 "DOMA_ELNO_EPSI","DOMA_ELGA_EPSI",
3151 "DOMA_ELNO_EPME","DOMA_ELGA_EPME") ),
3152 HISTOIRE =FACT(statut='o',min=01,max=01,
3153 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,
3155 EQUI_GD =SIMP(statut='f',typ='TXM',defaut="VMIS_SG",
3156 into=("VMIS_SG","INVA_2_SG") ),
3158 DOMMAGE =SIMP(statut='o',typ='TXM',
3159 into=("WOHLER","MANSON_COFFIN","TAHERI_MANSON",
3161 MATER =SIMP(statut='o',typ=(mater) ),
3162 TAHERI_NAPPE =SIMP(statut='f',typ=(fonction) ),
3163 TAHERI_FONC =SIMP(statut='f',typ=(fonction) ),
3166 b_fatigue_multi =BLOC(condition = "TYPE_CALCUL == 'FATIGUE_MULTI'",
3167 fr="Plan critique dans le cas de la fatigue multiaxiale a grand nombre de cycles.",
3168 RESULTAT =SIMP(statut='o',typ=(evol_elas, evol_noli) ),
3169 CHAM_MATER =SIMP(statut='o',typ=(cham_mater) ),
3170 CRITERE =SIMP(statut='o',typ='TXM',into=("MATAKE",) ),
3171 METHODE =SIMP(statut='o',typ='TXM',into=("CERCLE_EXACT",) ),
3174 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
3176 #& MODIF COMMANDE DATE 23/04/2001 AUTEUR MCOURTOI M.COURTOIS
3177 # CONFIGURATION MANAGEMENT OF EDF VERSION
3178 # ======================================================================
3179 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3180 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3181 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3182 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3183 # (AT YOUR OPTION) ANY LATER VERSION.
3185 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3186 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3187 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3188 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3190 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3191 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3192 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3193 # ======================================================================
3194 CALC_FLUI_STRU=OPER(nom="CALC_FLUI_STRU",op= 144,sd_prod=melasflu,
3195 docu="U4.66.02-d",reentrant='n',
3196 VITE_FLUI =FACT(statut='o',min=01,max=01,
3197 fr="Définir la plage de vitesse fluide étudiée",
3198 VITE_MIN =SIMP(statut='o',typ='R' ),
3199 VITE_MAX =SIMP(statut='o',typ='R' ),
3200 NB_POIN =SIMP(statut='o',typ='I' ),
3202 BASE_MODALE =FACT(statut='o',min=01,max=01,
3204 regles=(UN_PARMI('AMOR_REDUIT','AMOR_UNIF'),),
3205 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
3206 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
3207 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
3208 AMOR_UNIF =SIMP(statut='f',typ='R' ),
3210 TYPE_FLUI_STRU =SIMP(statut='o',typ=type_flui_stru ),
3211 IMPRESSION =FACT(statut='f',min=01,max=01,
3212 fr="Choix des informations à imprimer dans le fichier RESULTAT",
3213 PARA_COUPLAGE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3214 DEFORMEE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3217 #& MODIF COMMANDE DATE 06/03/2002 AUTEUR MCOURTOI M.COURTOIS
3218 # CONFIGURATION MANAGEMENT OF EDF VERSION
3219 # ======================================================================
3220 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3221 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3222 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3223 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3224 # (AT YOUR OPTION) ANY LATER VERSION.
3226 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3227 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3228 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3229 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3231 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3232 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3233 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3234 # ======================================================================
3235 CALC_FONC_INTERP=OPER(nom="CALC_FONC_INTERP",op= 134,sd_prod=fonction,
3236 docu="U4.32.01-e1",reentrant='f',
3237 regles=(UN_PARMI('VALE_R','LIST_PARA'),),
3238 FONCTION =SIMP(statut='o',typ=fonction ),
3239 NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
3240 VALE_R =SIMP(statut='f',typ='R',max='**'),
3241 LIST_PARA =SIMP(statut='f',typ=listr8 ),
3242 INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG","INT") ),
3243 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("EXCLU","CONSTANT","LINEAIRE","INTERPRE") ),
3244 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("EXCLU","CONSTANT","LINEAIRE","INTERPRE") ),
3245 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3246 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3248 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
3249 # CONFIGURATION MANAGEMENT OF EDF VERSION
3250 # ======================================================================
3251 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3252 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3253 # REDISTRIBUTION OF THIS FILE.
3254 # ======================================================================
3255 # RESPONSABLE MCOURTOI M.COURTOIS
3256 def calc_fonction_prod(DERIVE,EXTRACTION,INTEGRE,RMS,NOCI_SEISME,MAX,COMB,COMB_C,ENVELOPPE,
3257 SPEC_OSCI,ASSE,FFT,COMPOSE,CORR_ACCE,PUISSANCE, NORME, **args):
3258 if (RMS != None) : return tabl_fonc_rms
3259 if (MAX != None) : return tabl_fonc_max
3260 if (NOCI_SEISME != None): return tabl_fonc_noci
3261 if (INTEGRE != None) : return fonction
3262 if (DERIVE != None) : return fonction
3263 if (COMB != None) : return fonction
3264 if (ENVELOPPE != None) : return fonction
3265 if (EXTRACTION != None) : return fonction
3266 if (SPEC_OSCI != None) : return fonction
3267 if (COMB_C != None) : return fonction_c
3268 if (COMPOSE != None) : return fonction
3269 if (ASSE != None) : return fonction
3271 vale=FFT.get_child('FONCTION').get_valeur()
3272 if (AsType(vale) == fonction ) : return fonction_c
3273 if (AsType(vale) == fonction_c) : return fonction
3274 if (CORR_ACCE != None) : return fonction
3275 if (PUISSANCE != None) : return fonction
3276 if (NORME != None) : return table
3277 raise AsException("type de concept resultat non prevu")
3279 CALC_FONCTION=OPER(nom="CALC_FONCTION",op= 91,sd_prod=calc_fonction_prod
3280 ,fr="Opérations mathématiques sur des concepts de type fonction",
3281 docu="U4.32.04-f2",reentrant='n',
3282 regles=(UN_PARMI('DERIVE','INTEGRE','SPEC_OSCI','MAX','COMB','COMB_C','ENVELOPPE','RMS',
3283 'NOCI_SEISME','COMPOSE','EXTRACTION','ASSE','FFT','CORR_ACCE', 'PUISSANCE' ,'NORME'),),
3284 FFT =FACT(statut='f',min=1,max=1,fr="Calcul de la transformee de Fourier ou de son inverse",
3285 FONCTION =SIMP(statut='o',typ=(fonction,fonction_c) )
3287 DERIVE =FACT(statut='f',min=1,max=1,fr="Calcul de la dérivée d une fonction",
3288 METHODE =SIMP(statut='f',typ='TXM',defaut="DIFF_CENTREE",into=("DIFF_CENTREE",) ),
3289 FONCTION =SIMP(statut='o',typ=fonction ),
3291 INTEGRE =FACT(statut='f',min=1,max=1,fr="Calcul de l intégrale d une fonction",
3292 METHODE =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
3293 FONCTION =SIMP(statut='o',typ=fonction),
3294 COEF =SIMP(statut='f',typ='R',defaut= 0.E+0,fr="Valeur de la constante d intégration" ),
3296 RMS =FACT(statut='f',min=1,max=1,fr="Calcul de la valeur RMS d une fonction",
3297 METHODE =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
3298 FONCTION =SIMP(statut='o',typ=fonction ),
3299 INST_INIT =SIMP(statut='f',typ='R',fr="Instant initial définissant le début du signal" ),
3300 INST_FIN =SIMP(statut='f',typ='R',fr="Instant final définissant la fin du signal" ),
3301 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3302 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
3304 NOCI_SEISME =FACT(statut='f',min=1,max=1,
3305 FONCTION =SIMP(statut='f',typ=fonction ),
3306 SPEC_OSCI =SIMP(statut='f',typ=fonction ),
3307 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",max='**',
3308 into=("INTE_ARIAS","POUV_DEST","INTE_SPEC","VITE_ABSO_CUMU",
3309 "DUREE_PHAS_FORT","MAXI","ACCE_SUR_VITE","TOUT",) ),
3310 INST_INIT =SIMP(statut='f',typ='R'),
3311 INST_FIN =SIMP(statut='f',typ='R'),
3312 NATURE =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE") ),
3313 COEF =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3314 PESANTEUR =SIMP(statut='f',typ='R',defaut= 9.81E+0 ),
3315 FREQ_INIT =SIMP(statut='f',typ='R',defaut= 4.E-1 ),
3316 FREQ_FIN =SIMP(statut='f',typ='R',defaut= 10.E+0 ),
3317 AMOR_REDUIT =SIMP(statut='f',typ='R'),
3318 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
3319 FREQ =SIMP(statut='f',typ='R',max='**'),
3320 NORME =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
3321 BORNE_INF =SIMP(statut='f',typ='R',defaut= 0.05E+0 ),
3322 BORNE_SUP =SIMP(statut='f',typ='R',defaut= 0.95E+0 ),
3323 b_acce_reel =BLOC(condition="(INST_INIT != None)or(INST_FIN != None)or(FREQ_INIT != None)or(FREQ_FIN != None)",
3324 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
3325 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3328 SPEC_OSCI =FACT(statut='f',min=1,max=1,fr="Calcul du spectre d oscillateur",
3329 METHODE =SIMP(statut='f',typ='TXM',defaut="NIGAM",into=("NIGAM",) ),
3330 FONCTION =SIMP(statut='o',typ=fonction ),
3331 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
3332 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
3333 FREQ =SIMP(statut='f',typ='R',max='**'),
3334 NORME =SIMP(statut='f',typ='R',defaut= 9.81E+0,fr="Valeur de la norme du spectre d oscillateur" ),
3335 NATURE =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
3336 NATURE_FONC =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
3338 MAX =FACT(statut='f',min=1,max=1,fr="Calcul des extrémas locaux d une fonction",
3339 FONCTION =SIMP(statut='o',typ=fonction ),
3341 COMB =FACT(statut='f',min=1,max='**',fr="Calcul d une combinaison linéaire réelle de fonctions",
3342 FONCTION =SIMP(statut='o',typ=fonction ),
3343 COEF =SIMP(statut='o',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
3345 COMB_C =FACT(statut='f',min=1,max='**',fr="Calcul d une combinaison linéaire complexe de fonctions",
3346 regles=(UN_PARMI('COEF_R','COEF_C'),),
3347 FONCTION =SIMP(statut='o',typ=(fonction, fonction_c) ),
3348 COEF_R =SIMP(statut='f',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
3349 COEF_C =SIMP(statut='f',typ='C',fr="Coefficient complexe de la combinaison linéaire associée à la fonction" ),
3351 b_comb =BLOC ( condition = " (COMB != None) or (COMB_C != None)",
3352 LIST_PARA =SIMP(statut='f',typ=listr8 ),
3354 COMPOSE =FACT(statut='f',min=1,max=1,fr="Calcul de la composition de deux fonctions FONC_RESU(FONC_PARA)",
3355 FONC_RESU =SIMP(statut='o',typ=fonction),
3356 FONC_PARA =SIMP(statut='o',typ=fonction),
3358 EXTRACTION =FACT(statut='f',min=1,max=1,fr="Opération d extraction sur une fonction complexe",
3359 FONCTION =SIMP(statut='o',typ=fonction_c),
3360 PARTIE =SIMP(statut='o',typ='TXM',into=("REEL","IMAG","MODULE","PHASE"),fr="Partie à extraire"),
3362 ENVELOPPE =FACT(statut='f',min=1,max=1,fr="Calcul de l enveloppe d une famille de fonctions",
3363 FONCTION =SIMP(statut='o',typ=fonction,max='**' ),
3364 CRITERE =SIMP(statut='f',typ='TXM',defaut="SUP",into=("SUP","INF"),fr="Type de l enveloppe" ),
3366 ASSE =FACT(statut='f',min=1,max=1,fr="Création à partir de la concatenation de fonctions",
3367 FONCTION =SIMP(statut='o',typ=fonction,max='**' ),
3368 SURCHARGE =SIMP(statut='f',typ='TXM',defaut="DROITE",into=("DROITE","GAUCHE")),
3370 CORR_ACCE =FACT(statut='f',min=1,max=1,fr="Correction d un accelerogramme reel",
3371 CORR_DEPL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
3372 FONCTION =SIMP(statut='o',typ=fonction ),
3374 PUISSANCE =FACT(statut='f',min=1,max=1,fr="Cacul du carré d'une fonction",
3375 FONCTION =SIMP(statut='o', typ=fonction),
3376 EXPOSANT =SIMP(statut='f', typ='I', defaut=1 ),
3378 NORME =FACT(statut='f',min=1,max=1,fr="Cacul de la norme L2 d'une fonction",
3379 FONCTION =SIMP(statut='o', typ=fonction),
3381 NOM_PARA =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
3382 "INST","X","Y","Z","EPSI","FREQ","PULS",
3384 NOM_RESU =SIMP(statut='f',typ='TXM' ),
3385 INTERPOL =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
3386 PROL_DROITE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3387 PROL_GAUCHE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3388 NOM_PARA_FONC =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
3389 "INST","X","Y","Z","EPSI","FREQ","PULS",
3391 INTERPOL_FONC =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
3392 PROL_DROITE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3393 PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3394 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3395 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3397 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
3398 # CONFIGURATION MANAGEMENT OF EDF VERSION
3399 # ======================================================================
3400 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3401 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3402 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3403 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3404 # (AT YOUR OPTION) ANY LATER VERSION.
3406 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3407 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3408 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3409 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3411 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3412 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3413 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3414 # ======================================================================
3415 CALC_FORC_AJOU=OPER(nom="CALC_FORC_AJOU",op=199,sd_prod=vect_asse_gene,
3416 fr="calcul de la force ajoutee ",
3417 docu="U4.66.03-a1",reentrant ='n',
3419 regles=(EXCLUS('MODE_MECA','MODELE_GENE'),
3420 PRESENT_PRESENT( 'MODELE_GENE','NUME_DDL_GENE'),
3421 UN_PARMI('MONO_APPUI', 'NOEUD','GROUP_NO'),
3422 UN_PARMI('MONO_APPUI','MODE_STAT')),
3424 MODELE_FLUIDE =SIMP(statut='o',typ=modele ),
3425 MODELE_INTERFACE=SIMP(statut='o',typ=modele ),
3426 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3427 CHARGE =SIMP(statut='o',typ=char_ther ),
3428 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
3429 MODELE_GENE =SIMP(statut='f',typ=modele_gene ),
3430 NUME_DDL_GENE =SIMP(statut='f',typ=nume_ddl_gene ),
3431 DIST_REFE =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
3432 AVEC_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3433 NUME_MODE_MECA =SIMP(statut='f',typ='I',max='**'),
3434 POTENTIEL =SIMP(statut='f',typ=evol_ther ),
3435 NOEUD_DOUBLE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3437 DIRECTION =SIMP(statut='o',typ='R',max=3),
3438 MONO_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",),),
3439 NOEUD =SIMP(statut='f',typ=no,max='**'),
3440 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
3441 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,),),
3443 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3445 SOLVEUR =FACT(statut='d',min=1,max=1,
3446 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
3447 b_mult_front = BLOC ( condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
3448 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
3450 b_ldlt =BLOC( condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
3451 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
3453 b_ldlt_mult =BLOC( condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
3454 fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
3455 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
3456 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3458 b_gcpc =BLOC (condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
3459 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
3460 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
3461 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
3462 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
3463 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
3466 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0), ),
3469 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
3470 # CONFIGURATION MANAGEMENT OF EDF VERSION
3471 # ======================================================================
3472 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3473 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3474 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3475 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3476 # (AT YOUR OPTION) ANY LATER VERSION.
3478 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3479 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3480 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3481 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3483 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3484 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3485 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3486 # ======================================================================
3487 CALC_G_LOCAL_T=OPER(nom="CALC_G_LOCAL_T",op=77,sd_prod=tabl_calc_g_loca,
3488 fr="Calcul du taux de restitution local d énergie",docu="U4.82.04-f3",reentrant='n',
3489 MODELE =SIMP(statut='o',typ=modele),
3490 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
3491 regles=(UN_PARMI('FOND','FOND_FISS' ),
3492 UN_PARMI('RESULTAT','DEPL'),
3493 UN_PARMI('R_INF','R_INF_FO'),
3494 PRESENT_PRESENT('R_INF','R_SUP'),
3495 PRESENT_PRESENT('R_INF_FO','R_SUP_FO'), ),
3496 FOND =SIMP(statut='f',typ=fond_fiss),
3497 FOND_FISS =SIMP(statut='f',typ=fond_fiss),
3498 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
3499 RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_noli),),
3500 b_extrac =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
3501 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
3502 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3503 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
3504 LIST_ORDRE =SIMP(statut='f',typ=listis),
3505 INST =SIMP(statut='f',typ='R',max='**'),
3506 LIST_INST =SIMP(statut='f',typ=listr8),
3508 b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)",
3509 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
3510 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3514 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
3515 SYME_CHAR =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
3517 COMP_ELAS =FACT(statut='f',min=01,max=01,
3518 RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
3519 into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
3520 ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3521 ELAS_VMIS_LINE =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3522 ELAS_VMIS_TRAC =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3523 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
3524 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3525 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3526 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3527 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3530 COMP_INCR =FACT(statut='f',min=01,max=01,
3531 RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
3532 into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
3533 ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3534 VMIS_ISOT_TRAC =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3535 VMIS_ISOT_LINE =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3536 VMIS_CINE_LINE =SIMP(statut='f',typ='I',defaut=7,into=(7,) ),
3537 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
3538 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3539 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3540 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3541 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3544 ETAT_INIT =FACT(statut='f',min=01,max=01,
3545 SIGM =SIMP(statut='f',typ=cham_elem_sief_r),
3546 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
3549 OPTION =SIMP(statut='f',typ='TXM',defaut="CALC_G",
3550 into=("CALC_G","CALC_G_LGLO","G_BILINEAIRE","CALC_G_MAX") ),
3551 b_g =BLOC(condition="OPTION=='CALC_G'",
3552 LISSAGE_THETA =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3553 LISSAGE_G =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE","LAGRANGE_NO_NO",) ),
3555 b_g_lglo =BLOC(condition="OPTION=='CALC_G_LGLO'",
3556 PROPAGATION =SIMP(statut='o',typ='R'),
3557 THETA =SIMP(statut='o',typ=theta_geom),
3558 DIRE_THETA =SIMP(statut='f',typ=cham_no_depl_r),
3559 LISSAGE_THETA =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3560 LISSAGE_G =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE","LAGRANGE_NO_NO",) ),
3562 b_g_bilin =BLOC(condition="OPTION=='G_BILINEAIRE'",
3563 LISSAGE_THETA =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3564 LISSAGE_G =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3566 b_calc_g_max =BLOC(condition="OPTION=='CALC_G_MAX'",
3567 BORNES =FACT(statut='o',min=01,max='**',
3568 NUME_ORDRE =SIMP(statut='o',typ='I'),
3569 VALE_MIN =SIMP(statut='o',typ='R'),
3570 VALE_MAX =SIMP(statut='o',typ='R'),
3572 LISSAGE_THETA =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3573 LISSAGE_G =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3576 DEGRE =SIMP(statut='f',typ='I',defaut=5,into=(0,1,2,3,4,5,6,7) ),
3578 R_INF =SIMP(statut='f',typ='R'),
3579 R_SUP =SIMP(statut='f',typ='R'),
3580 R_INF_FO =SIMP(statut='f',typ=fonction),
3581 R_SUP_FO =SIMP(statut='f',typ=fonction),
3583 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3584 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
3586 #& MODIF COMMANDE DATE 03/07/2002 AUTEUR CIBHHPD D.NUNEZ
3587 # CONFIGURATION MANAGEMENT OF EDF VERSION
3588 # ======================================================================
3589 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3590 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3591 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3592 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3593 # (AT YOUR OPTION) ANY LATER VERSION.
3595 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3596 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3597 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3598 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3600 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3601 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3602 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3603 # ======================================================================
3604 CALC_G_THETA_T=OPER(nom="CALC_G_THETA_T",op=53,sd_prod=tabl_calc_g_th,
3605 fr="Calcul du taux de restitution d énergie par la méthode theta en thermo-élasticité en 2D ou en 3D",
3606 docu="U4.82.03-f2",reentrant='n',
3607 regles=(UN_PARMI('RESULTAT','DEPL'),
3608 EXCLUS('COMP_ELAS','COMP_INCR'),),
3609 MODELE =SIMP(statut='o',typ=modele),
3610 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
3611 THETA =SIMP(statut='o',typ=theta_geom),
3612 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
3613 RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_noli),),
3615 b_extrac =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
3616 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
3617 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3618 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
3619 LIST_ORDRE =SIMP(statut='f',typ=listis),
3620 INST =SIMP(statut='f',typ='R',max='**'),
3621 LIST_INST =SIMP(statut='f',typ=listr8),
3623 b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)",
3624 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
3625 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3629 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
3630 SYME_CHAR =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
3632 COMP_ELAS =FACT(statut='f',min=01,max=01,
3633 RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
3634 into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
3635 ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3636 ELAS_VMIS_LINE =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3637 ELAS_VMIS_TRAC =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3638 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
3639 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3640 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3641 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3642 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3644 COMP_INCR =FACT(statut='f',min=01,max=01,
3645 RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
3646 into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
3647 ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3648 VMIS_ISOT_TRAC =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3649 VMIS_ISOT_LINE =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3650 VMIS_CINE_LINE =SIMP(statut='f',typ='I',defaut=7,into=(7,) ),
3651 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
3652 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3653 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3654 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3655 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3657 ETAT_INIT =FACT(statut='f',min=01,max=01,
3658 SIGM =SIMP(statut='f',typ=cham_elem_sief_r),
3659 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
3661 OPTION =SIMP(statut='f',typ='TXM',defaut="CALC_G",
3662 into=("CALC_G","CALC_G_LAGR","CALC_K_G","G_BILINEAIRE","CALC_G_MAX","CALC_DG",) ),
3663 b_calc_g_max =BLOC(condition="OPTION=='CALC_G_MAX'",
3664 BORNES =FACT(statut='o',min=01,max='**',
3665 NUME_ORDRE =SIMP(statut='o',typ='I'),
3666 VALE_MIN =SIMP(statut='o',typ='R'),
3667 VALE_MAX =SIMP(statut='o',typ='R'),
3670 b_calc_k_g =BLOC(condition="OPTION=='CALC_K_G'",
3671 regles=(UN_PARMI('FOND','FOND_FISS' ),),
3672 FOND =SIMP(statut='f',typ=fond_fiss),
3673 FOND_FISS =SIMP(statut='f',typ=fond_fiss),
3675 b_calc_g_lagr =BLOC(condition="OPTION=='CALC_G_LAGR'",
3676 PROPAGATION =SIMP(statut='o',typ='R'),
3678 b_calc_dg =BLOC(condition="OPTION=='CALC_DG'",
3679 SENSIBILITE =FACT(statut='f',min=01,max=01,
3680 THETA =SIMP(statut='o',typ=theta_geom ),
3684 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3685 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
3687 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
3688 # CONFIGURATION MANAGEMENT OF EDF VERSION
3689 # ======================================================================
3690 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3691 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3692 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3693 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3694 # (AT YOUR OPTION) ANY LATER VERSION.
3696 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3697 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3698 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3699 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3701 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3702 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3703 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3704 # ======================================================================
3705 CALC_INTE_SPEC=OPER(nom="CALC_INTE_SPEC",op= 120,sd_prod=tabl_intsp,
3706 fr="Calcul d une matrice interspectrale d une fonction du temps",
3707 docu="U4.36.03-e",reentrant='n',
3708 INST_INIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3709 INST_FIN =SIMP(statut='o',typ='R' ),
3710 DUREE_ANALYSE =SIMP(statut='f',typ='R' ),
3711 DUREE_DECALAGE =SIMP(statut='f',typ='R' ),
3712 NB_POIN =SIMP(statut='o',typ='I' ),
3713 FONCTION =SIMP(statut='o',typ=fonction,max='**' ),
3714 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3715 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
3717 #& MODIF COMMANDE DATE 05/12/2001 AUTEUR VABHHTS J.PELLET
3718 # CONFIGURATION MANAGEMENT OF EDF VERSION
3719 # ======================================================================
3720 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3721 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3722 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3723 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3724 # (AT YOUR OPTION) ANY LATER VERSION.
3726 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3727 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3728 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3729 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3731 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3732 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3733 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3734 # ======================================================================
3735 CALC_MATR_AJOU=OPER(nom="CALC_MATR_AJOU",op= 152,sd_prod=matr_asse_gene_r,
3736 fr="Calcul des matrices de masse, d amortissement ou de raideur ajoutées",
3737 docu="U4.66.01-c",reentrant='n',
3738 regles=(EXCLUS('MODE_MECA','CHAM_NO','MODELE_GENE'),
3739 PRESENT_ABSENT('NUME_DDL_GENE','CHAM_NO'),
3740 PRESENT_PRESENT('MODELE_GENE','NUME_DDL_GENE'),),
3741 MODELE_FLUIDE =SIMP(statut='o',typ=modele ),
3742 MODELE_INTERFACE=SIMP(statut='o',typ=modele ),
3743 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3744 CHARGE =SIMP(statut='o',typ=char_ther ),
3745 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
3746 CHAM_NO =SIMP(statut='f',typ=cham_no_depl_r ),
3747 MODELE_GENE =SIMP(statut='f',typ=modele_gene ),
3748 NUME_DDL_GENE =SIMP(statut='f',typ=nume_ddl_gene ),
3749 DIST_REFE =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
3750 AVEC_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3751 NUME_MODE_MECA =SIMP(statut='f',typ='I',max='**'),
3752 OPTION =SIMP(statut='o',typ='TXM',into=("MASS_AJOU","AMOR_AJOU","RIGI_AJOU") ),
3753 POTENTIEL =SIMP(statut='f',typ=evol_ther ),
3754 NOEUD_DOUBLE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3755 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3757 SOLVEUR =FACT(statut='d',min=1,max=1,
3758 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
3759 b_mult_front = BLOC ( condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
3760 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
3762 b_ldlt =BLOC( condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
3763 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
3765 b_ldlt_mult =BLOC( condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
3766 fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
3767 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
3768 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3770 b_gcpc =BLOC (condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
3771 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
3772 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
3773 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
3774 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
3775 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
3778 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3781 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
3782 # CONFIGURATION MANAGEMENT OF EDF VERSION
3783 # ======================================================================
3784 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3785 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3786 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3787 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3788 # (AT YOUR OPTION) ANY LATER VERSION.
3790 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3791 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3792 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3793 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3795 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3796 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3797 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3798 # ======================================================================
3799 # RESPONSABLE VABHHTS J.PELLET
3800 def calc_matr_elem_prod(OPTION,**args):
3801 if OPTION == "RIGI_MECA" : return matr_elem_depl_r
3802 if OPTION == "RIGI_FLUI_STRU" : return matr_elem_depl_r
3803 if OPTION == "RIGI_MECA_LAGR" : return matr_elem_depl_r
3804 if OPTION == "MASS_ID_MDEP_R" : return matr_elem_depl_r
3805 if OPTION == "MASS_ID_MDNS_R" : return matr_elem_depl_r
3806 if OPTION == "MASS_ID_MTEM_R" : return matr_elem_temp_r
3807 if OPTION == "MASS_ID_MTNS_R" : return matr_elem_temp_r
3808 if OPTION == "MASS_MECA" : return matr_elem_depl_r
3809 if OPTION == "MASS_FLUI_STRU" : return matr_elem_depl_r
3810 if OPTION == "RIGI_GEOM" : return matr_elem_depl_r
3811 if OPTION == "RIGI_ROTA" : return matr_elem_depl_r
3812 if OPTION == "AMOR_MECA" : return matr_elem_depl_r
3813 if OPTION == "IMPE_MECA" : return matr_elem_depl_r
3814 if OPTION == "ONDE_FLUI" : return matr_elem_depl_r
3815 if OPTION == "RIGI_MECA_HYST" : return matr_elem_depl_c
3816 if OPTION == "RIGI_THER" : return matr_elem_temp_r
3817 if OPTION == "MASS_THER" : return matr_elem_temp_r
3818 if OPTION == "MASS_MECA_DIAG" : return matr_elem_depl_r
3819 if OPTION == "RIGI_ACOU" : return matr_elem_pres_c
3820 if OPTION == "MASS_ACOU" : return matr_elem_pres_c
3821 if OPTION == "AMOR_ACOU" : return matr_elem_pres_c
3822 raise AsException("type de concept resultat non prevu")
3824 CALC_MATR_ELEM=OPER(nom="CALC_MATR_ELEM",op= 9,sd_prod=calc_matr_elem_prod
3825 ,fr="Calcul des matrices élémentaires",docu="U4.61.01-g1",reentrant='n',
3826 OPTION =SIMP(statut='o',typ='TXM',
3827 into=("RIGI_MECA","MASS_MECA","RIGI_GEOM",
3828 "AMOR_MECA","RIGI_THER","MASS_THER","IMPE_MECA",
3829 "ONDE_FLUI","MASS_FLUI_STRU","RIGI_FLUI_STRU",
3830 "RIGI_ROTA","MASS_MECA_DIAG","RIGI_ACOU",
3831 "MASS_ID_MDEP_R","MASS_ID_MDNS_R","MASS_ID_MTEM_R","MASS_ID_MTNS_R",
3832 "MASS_ACOU","AMOR_ACOU","RIGI_MECA_HYST",
3833 "RIGI_MECA_LAGR") ),
3835 b_rigi_meca = BLOC( condition = "OPTION=='RIGI_MECA'",
3836 regles=(AU_MOINS_UN('MODELE','CHARGE' ),),
3837 MODELE =SIMP(statut='f',typ=modele ),
3838 b_modele =BLOC(condition = "MODELE != None",
3839 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
3840 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
3841 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
3843 CHARGE =SIMP(statut='f',typ=char_meca,max='**' ),
3844 b_charge =BLOC (condition = "CHARGE != None",
3845 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3849 b_rigi_meca_lagr =BLOC(condition = "OPTION=='RIGI_MECA_LAGR'",
3850 MODELE =SIMP(statut='o',typ=modele ),
3851 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3852 CHARGE =SIMP(statut='f',typ=char_meca,max='**' ),
3853 b_charge =BLOC(condition = "CHARGE != None",
3854 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3856 THETA =SIMP(statut='o',typ=theta_geom ),
3857 PROPAGATION =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3860 b_mass_meca =BLOC(condition = "(OPTION=='MASS_MECA') or (OPTION=='MASS_MECA_DIAG')",
3861 regles=(AU_MOINS_UN('MODELE','CHARGE'),),
3862 MODELE =SIMP(statut='f',typ=modele ),
3863 b_modele =BLOC(condition = "MODELE != None",
3864 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
3865 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
3867 CHARGE =SIMP(statut='f',typ=char_meca,max='**' ),
3868 b_charge =BLOC(condition = "CHARGE != None",
3869 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3873 b_mass_identite =BLOC(condition = "(OPTION in ('MASS_ID_MDEP_R','MASS_ID_MTEM_R','MASS_ID_MDNS_R','MASS_ID_MTNS_R')) ",
3874 MODELE =SIMP(statut='o',typ=modele ),
3875 # j'ajoute ces 2 mot clés inutiles à cause de l'alarme pas assez subtile de MEDOME
3876 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
3877 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
3880 b_rigi_geom =BLOC(condition = "OPTION=='RIGI_GEOM'",
3881 MODELE =SIMP(statut='o',typ=modele ),
3882 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
3883 SIEF_ELGA =SIMP(statut='o',typ=cham_elem_sief_r ),
3884 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
3887 b_rigi_rota =BLOC(condition = "OPTION=='RIGI_ROTA'",
3888 MODELE =SIMP(statut='o',typ=modele ),
3889 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3890 CHARGE =SIMP(statut='o',typ=char_meca,max='**' ),
3891 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3894 b_amor_meca =BLOC(condition = "OPTION=='AMOR_MECA'",
3895 regles=(AU_MOINS_UN('CARA_ELEM','RIGI_MECA'),
3896 ENSEMBLE('RIGI_MECA','MASS_MECA','CHAM_MATER'), ),
3897 MODELE =SIMP(statut='o',typ=modele ),
3898 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
3899 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
3900 RIGI_MECA =SIMP(statut='f',typ=matr_elem_depl_r ),
3901 MASS_MECA =SIMP(statut='f',typ=matr_elem_depl_r ),
3902 CHARGE =SIMP(statut='f',typ=char_meca,max='**' ),
3905 b_rigi_meca_hyst =BLOC( condition = "OPTION=='RIGI_MECA_HYST'",
3906 MODELE =SIMP(statut='o',typ=modele ),
3907 CHARGE =SIMP(statut='o',typ=char_meca ,max='**' ),
3908 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
3909 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
3910 RIGI_MECA =SIMP(statut='o',typ=matr_elem_depl_r ),
3913 b_rigi_ther =BLOC(condition = "OPTION=='RIGI_THER'",
3914 regles=(AU_MOINS_UN('MODELE','CHARGE' ),),
3915 MODELE =SIMP(statut='f',typ=modele ),
3916 b_modele =BLOC(condition = "MODELE != None",
3917 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3918 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
3919 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
3921 CHARGE =SIMP(statut='f',typ=char_ther,max='**' ),
3924 b_mass_ther =BLOC(condition = "OPTION=='MASS_THER'",
3925 MODELE =SIMP(statut='o',typ=modele ),
3926 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3927 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
3930 b_rigi_acou =BLOC(condition = "(OPTION=='RIGI_ACOU') or (OPTION=='MASS_ACOU') or (OPTION=='AMOR_ACOU')",
3931 MODELE =SIMP(statut='o',typ=modele ),
3932 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3933 CHARGE =SIMP(statut='f',typ=char_acou ,max='**' ),
3936 b_rigi_flui =BLOC(condition = "(OPTION=='RIGI_FLUI_STRU') or (OPTION=='MASS_FLUI_STRU')",
3937 MODELE =SIMP(statut='o',typ=modele ),
3938 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
3939 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3940 CHARGE =SIMP(statut='o',typ=char_meca ,max='**' ),
3941 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3944 b_impe_meca =BLOC(condition = "(OPTION=='IMPE_MECA') or (OPTION=='ONDE_FLUI')",
3945 MODELE =SIMP(statut='o',typ=modele ),
3946 CHARGE =SIMP(statut='o',typ=char_meca,max='**' ),
3947 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3950 #& MODIF COMMANDE DATE 06/03/2002 AUTEUR MCOURTOI M.COURTOIS
3951 # CONFIGURATION MANAGEMENT OF EDF VERSION
3952 # ======================================================================
3953 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3954 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3955 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3956 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3957 # (AT YOUR OPTION) ANY LATER VERSION.
3959 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3960 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3961 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3962 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3964 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3965 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3966 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3967 # ======================================================================
3968 CALC_META=OPER(nom="CALC_META",op=194,sd_prod=evol_ther,docu="U4.85.01-b1",reentrant='o',
3969 fr="Calcule la métallurgie a partir du résultat du calcul thermique",
3970 MODELE =SIMP(statut='o',typ=modele ),
3971 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
3972 RESULTAT =SIMP(statut='o',typ=evol_ther ),
3973 ETAT_INIT =FACT(statut='o',min=01,max=01,
3974 regles=(UN_PARMI('NUME_INIT','META_INIT',),),
3975 EVOL_THER =SIMP(statut='f',typ=evol_ther ),
3976 NUME_INIT =SIMP(statut='f',typ='I' ),
3977 META_INIT =SIMP(statut='f',typ=carte_var2_r ),
3979 COMP_INCR =FACT(statut='o',min=01,max='**',
3980 RELATION =SIMP(statut='o',typ='TXM',into=("ACIER","ZIRC",) ),
3981 ACIER =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
3982 ZIRC =SIMP(statut='c',typ='I',defaut=3,into=(3,) ),
3983 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3984 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3985 GROUP_MA =SIMP(statut='f',typ=grma),
3986 MAILLE =SIMP(statut='f',typ=ma),
3988 OPTION =SIMP(statut='f',typ='TXM'
3989 ,into=("META_ELNO_TEMP",) ),
3991 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
3992 # CONFIGURATION MANAGEMENT OF EDF VERSION
3993 # ======================================================================
3994 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3995 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3996 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3997 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3998 # (AT YOUR OPTION) ANY LATER VERSION.
4000 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4001 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4002 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4003 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4005 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4006 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4007 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4008 # ======================================================================
4009 # RESPONSABLE G8BHHXD X.DESROCHES
4010 def calc_no_prod(RESULTAT,**args):
4011 if AsType(RESULTAT) != None : return AsType(RESULTAT)
4012 raise AsException("type de concept resultat non prevu")
4014 CALC_NO=OPER(nom="CALC_NO",op= 106,sd_prod=calc_no_prod,docu="U4.81.02-f3",reentrant='o',
4015 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
4016 mode_acou,mode_stat,mode_stat_depl,mode_stat_acce,
4017 mode_stat_forc,evol_ther,evol_noli,base_modale,
4018 mult_elas,fourier_elas,mode_flamb ) ),
4019 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
4020 fr="Liste des paramètres de sensibilité.",
4021 ang="List of sensitivity parameters"),
4023 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
4024 'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),),
4025 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4026 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
4027 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
4028 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
4029 NOM_CAS =SIMP(statut='f',typ='TXM' ),
4030 INST =SIMP(statut='f',typ='R',max='**'),
4031 FREQ =SIMP(statut='f',typ='R',max='**'),
4032 LIST_INST =SIMP(statut='f',typ=listr8),
4033 LIST_FREQ =SIMP(statut='f',typ=listr8),
4034 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
4035 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4036 LIST_ORDRE =SIMP(statut='f',typ=listis),
4038 OPTION =SIMP(statut='o',typ='TXM',max='**',
4039 into=("FORC_NODA","REAC_NODA",
4046 "EFGE_NOEU_CART","EFGE_NOEU_DEPL",
4051 "EPSG_NOEU" ,"EPSG_NOEU_DEPL",
4052 "EPSI_NOEU_DEPL","EPSI_NOEU_DPGE",
4053 "EPSP_NOEU" ,"EPSP_NOEU_ZAC",
4054 "EQUI_NOEU_EPME","EQUI_NOEU_EPSI","EQUI_NOEU_SIGM",
4059 "INTE_NOEU_ACTI","INTE_NOEU_REAC",
4062 "PRES_NOEU_DBEL","PRES_NOEU_IMAG","PRES_NOEU_REEL",
4064 "SIEF_NOEU" ,"SIEF_NOEU_ELGA",
4065 "SIGM_NOEU_CART","SIGM_NOEU_COQU","SIGM_NOEU_DEPL","SIGM_NOEU_DPGE",
4066 "SIGM_NOEU_SIEF","SIGM_NOEU_VARI","SIGM_NOEU_ZAC",
4067 "SIPO_NOEU_DEPL","SIPO_NOEU_SIEF",
4069 "VARI_NOEU" ,"VARI_NOEU_ELGA",) ),
4071 b_forc_reac =BLOC(condition = """(OPTION == 'FORC_NODA') or (type(OPTION) == type(()) and 'FORC_NODA' in OPTION) or\
4072 (OPTION == 'REAC_NODA') or (type(OPTION) == type(()) and 'REAC_NODA' in OPTION)""",
4073 MODELE =SIMP(statut='o',typ=modele),
4076 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
4077 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
4078 EXCIT =FACT(statut='f',min=1,max='**',
4079 CHARGE =SIMP(statut='f',typ=(char_meca,char_ther,char_acou) ),
4080 FONC_MULT =SIMP(statut='f',typ=fonction),
4081 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
4082 into=("FIXE_CSTE","FIXE_PILO","SUIV") ),
4084 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4085 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4086 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4088 #& MODIF COMMANDE DATE 03/07/2002 AUTEUR CIBHHPD D.NUNEZ
4089 # CONFIGURATION MANAGEMENT OF EDF VERSION
4090 # ======================================================================
4091 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4092 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4093 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4094 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4095 # (AT YOUR OPTION) ANY LATER VERSION.
4097 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4098 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4099 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4100 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4102 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4103 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4104 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4105 # ======================================================================
4106 CALC_THETA=OPER(nom="CALC_THETA",op=54,sd_prod=theta_geom,docu="U4.82.02-d",reentrant='n',
4107 fr="Affectation d un champ sur le maillage (mécanique de la rupture)",
4108 regles=(UN_PARMI('THETA_2D','THETA_3D','THETA_BANDE'),
4109 PRESENT_ABSENT('THETA_2D','DIRE_THETA'),
4110 EXCLUS('DIRECTION','DIRE_THETA'),),
4111 OPTION =SIMP(statut='f',typ='TXM',defaut="COURONNE",into=("COURONNE","BANDE") ),
4112 MODELE =SIMP(statut='o',typ=(modele) ),
4113 FOND_FISS =SIMP(statut='f',typ=fond_fiss),
4114 FOND_3D =SIMP(statut='f',typ=(fond_fiss) ),
4115 THETA_3D =FACT(statut='f',min=01,max='**',
4116 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
4117 UN_PARMI('MODULE','MODULE_FO'),
4118 ENSEMBLE('MODULE','R_INF','R_SUP'),
4119 ENSEMBLE('MODULE_FO','R_INF_FO','R_SUP_FO'),),
4120 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4121 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4122 NOEUD =SIMP(statut='f',typ=no,max='**'),
4123 MODULE =SIMP(statut='f',typ='R'),
4124 R_INF =SIMP(statut='f',typ='R'),
4125 R_SUP =SIMP(statut='f',typ='R'),
4126 MODULE_FO =SIMP(statut='f',typ=fonction),
4127 R_INF_FO =SIMP(statut='f',typ=fonction),
4128 R_SUP_FO =SIMP(statut='f',typ=fonction),
4130 DIRE_THETA =SIMP(statut='f',typ=(cham_no_depl_r) ),
4131 DIRECTION =SIMP(statut='f',typ='R',max='**'),
4132 THETA_2D =FACT(statut='f',min=01,max='**',
4133 regles=(UN_PARMI('GROUP_NO','NOEUD'),),
4134 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4135 NOEUD =SIMP(statut='f',typ=no,max='**'),
4136 MODULE =SIMP(statut='o',typ='R'),
4137 R_INF =SIMP(statut='o',typ='R'),
4138 R_SUP =SIMP(statut='o',typ='R'),
4140 THETA_BANDE =FACT(statut='f',min=01,max='**',
4141 MODULE =SIMP(statut='o',typ='R'),
4142 R_INF =SIMP(statut='o',typ='R'),
4143 R_SUP =SIMP(statut='o',typ='R'),
4145 GRAD_NOEU_THETA =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
4146 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
4147 IMPRESSION =FACT(statut='f',min=01,max=01,
4148 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
4149 FORMAT =SIMP(statut='f',typ='TXM',defaut="EXCEL",into=("EXCEL","AGRAF") ),
4152 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
4153 # CONFIGURATION MANAGEMENT OF EDF VERSION
4154 # ======================================================================
4155 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4156 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4157 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4158 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4159 # (AT YOUR OPTION) ANY LATER VERSION.
4161 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4162 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4163 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4164 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4166 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4167 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4168 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4169 # ======================================================================
4170 # RESPONSABLE VABHHTS J.PELLET
4171 def calc_vect_elem_prod(OPTION,**args):
4172 if OPTION == "CHAR_MECA" : return vect_elem_depl_r
4173 if OPTION == "CHAR_MECA_LAGR" : return vect_elem_depl_r
4174 if OPTION == "CHAR_THER" : return vect_elem_temp_r
4175 if OPTION == "CHAR_ACOU" : return vect_elem_pres_c
4176 if OPTION == "FORC_NODA" : return vect_elem_depl_r
4177 raise AsException("type de concept resultat non prevu")
4179 CALC_VECT_ELEM=OPER(nom="CALC_VECT_ELEM",op=8,sd_prod=calc_vect_elem_prod,docu="U4.61.02-f",reentrant='n',
4180 fr="Calcul des seconds membres élémentaires",
4181 OPTION =SIMP(statut='o',typ='TXM',into=("CHAR_MECA","CHAR_THER","CHAR_ACOU",
4182 "FORC_NODA","CHAR_MECA_LAGR") ),
4183 b_char_meca =BLOC(condition = "OPTION=='CHAR_MECA'",
4184 regles=(AU_MOINS_UN('CHARGE','MODELE'),),
4185 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
4186 MODELE =SIMP(statut='f',typ=modele),
4187 b_charge =BLOC(condition = "CHARGE != None", fr="modèle ne contenant pas de sous-structure",
4188 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
4189 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
4190 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4191 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
4193 b_modele =BLOC(condition = "(MODELE != None)",fr="modèle contenant une sous-structure",
4194 SOUS_STRUC =FACT(statut='o',min=01,
4195 regles=(UN_PARMI('TOUT','MAILLE'),),
4196 CAS_CHARGE =SIMP(statut='o',typ='TXM' ),
4197 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4198 MAILLE =SIMP(statut='f',typ=ma,max='**',),
4202 b_char_ther =BLOC(condition = "OPTION=='CHAR_THER'",
4203 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
4204 CHARGE =SIMP(statut='o',typ=char_ther,max='**'),
4205 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4208 b_char_acou =BLOC(condition = "OPTION=='CHAR_ACOU'",
4209 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
4210 CHARGE =SIMP(statut='o',typ=char_acou,max='**'),
4213 b_forc_noda =BLOC(condition = "OPTION=='FORC_NODA'",
4214 SIEF_ELGA =SIMP(statut='o',typ=cham_elem_sief_r),
4215 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
4216 MODELE =SIMP(statut='f',typ=modele),
4219 b_meca_lagr =BLOC(condition = "OPTION=='CHAR_MECA_LAGR'",
4220 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
4221 THETA =SIMP(statut='o',typ=theta_geom),
4222 PROPAGATION =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4223 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
4224 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4227 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
4228 # CONFIGURATION MANAGEMENT OF EDF VERSION
4229 # ======================================================================
4230 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4231 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4232 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4233 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4234 # (AT YOUR OPTION) ANY LATER VERSION.
4236 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4237 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4238 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4239 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4241 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4242 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4243 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4244 # ======================================================================
4245 # RESPONSABLE G8BHHXD X.DESROCHES
4246 def comb_cham_elem_prod(COMB_R=None,COMB_C=None,COMB_FOURIER=None,**args):
4249 vale=COMB_R.get_child('CHAM_ELEM').get_valeur()
4250 elif COMB_C != None:
4251 vale=COMB_C.get_child('CHAM_ELEM').get_valeur()
4252 elif COMB_FOURIER != None:
4253 vale=COMB_FOURIER.get_child('CHAM_ELEM').get_valeur()
4255 raise AsException("type de concept resultat non prevu")
4257 if AsType(vale) == cham_elem_sief_r : return cham_elem_sief_r
4258 if AsType(vale) == cham_elem_flux_r : return cham_elem_flux_r
4259 if AsType(vale) == cham_elem_epsi_r : return cham_elem_epsi_r
4260 if AsType(vale) == cham_elem_ener_r : return cham_elem_ener_r
4261 if AsType(vale) == cham_elem_crit_r : return cham_elem_crit_r
4262 if AsType(vale) == cham_elem_dbel_r : return cham_elem_dbel_r
4263 if AsType(vale) == cham_elem_pres_r : return cham_elem_pres_r
4264 if AsType(vale) == cham_elem_sief_c : return cham_elem_sief_c
4265 raise AsException("type de concept resultat non prevu")
4267 COMB_CHAM_ELEM=OPER(nom="COMB_CHAM_ELEM",op= 139,sd_prod=comb_cham_elem_prod,reentrant='f',
4268 fr="Combinaison linéaire de champs par éléments",docu="U4.72.03-e",
4269 regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),
4270 PRESENT_PRESENT('COMB_FOURIER','ANGL'),),
4271 COMB_R =FACT(statut='f',min=01,max='**',
4272 PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
4273 COEF_R =SIMP(statut='o',typ='R'),
4274 CHAM_ELEM =SIMP(statut='o',
4275 typ=(cham_elem_sief_r,cham_elem_flux_r,cham_elem_epsi_r,
4276 cham_elem_ener_r,cham_elem_crit_r,cham_elem_dbel_r,
4277 cham_elem_pres_r,cham_elem_sief_c ) ),
4279 COMB_C =FACT(statut='f',min=01,max='**',
4280 regles=(UN_PARMI('COEF_R','COEF_C', ),),
4281 COEF_R =SIMP(statut='f',typ='R'),
4282 COEF_C =SIMP(statut='f',typ='C'),
4283 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r) ),
4285 COMB_FOURIER =FACT(statut='f',min=01,max='**',
4286 COEF_R =SIMP(statut='f',typ='R',defaut= 1.),
4287 NUME_MODE =SIMP(statut='o',typ='I'),
4288 TYPE_MODE =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
4289 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,cham_elem_flux_r,cham_elem_epsi_r ) ),
4291 ANGL =SIMP(statut='f',typ='R' ),
4294 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
4295 # CONFIGURATION MANAGEMENT OF EDF VERSION
4296 # ======================================================================
4297 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4298 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4299 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4300 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4301 # (AT YOUR OPTION) ANY LATER VERSION.
4303 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4304 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4305 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4306 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4308 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4309 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4310 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4311 # ======================================================================
4312 # RESPONSABLE G8BHHXD X.DESROCHES
4313 def comb_cham_no_prod(COMB_R,COMB_C,COMB_FOURIER,**args):
4315 type_mat = AsType(COMB_C.get_child('CHAM_NO').get_valeur())
4316 if type_mat in (cham_no_depl_c,cham_no_depl_r) : return cham_no_depl_c
4317 if type_mat in (cham_no_temp_c,cham_no_temp_r) : return cham_no_temp_c
4318 if type_mat in (cham_no_pres_c,cham_no_pres_r) : return cham_no_pres_c
4319 elif COMB_R != None:
4320 type_mat = AsType(COMB_R.get_child('CHAM_NO').get_valeur())
4321 if type_mat in (cham_no_depl_c,cham_no_depl_r) : return cham_no_depl_r
4322 if type_mat in (cham_no_temp_c,cham_no_temp_r) : return cham_no_temp_r
4323 if type_mat in (cham_no_pres_c,cham_no_pres_r) : return cham_no_pres_r
4324 if type_mat == matr_asse_gene_r : return matr_asse_gene_r
4325 elif COMB_FOURIER != None:
4326 type_mat = AsType(COMB_FOURIER.get_child('CHAM_NO').get_valeur())
4327 if type_mat == cham_no_temp_r : return cham_no_temp_r
4328 if type_mat == cham_no_depl_r : return cham_no_depl_r
4329 raise AsException("type de concept resultat non prevu")
4332 COMB_CHAM_NO=OPER(nom="COMB_CHAM_NO",op= 30,sd_prod=comb_cham_no_prod
4333 ,fr="Combinaison linéaire de champs aux noeuds",
4334 docu="U4.72.02-f",reentrant='f',
4335 regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),),
4336 COMB_R =FACT(statut='f',min=01,max='**',
4337 PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG",) ),
4338 CHAM_NO =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_temp_c,cham_no_depl_r,cham_no_depl_c
4339 ,cham_no_pres_r,cham_no_pres_c ) ),
4340 COEF_R =SIMP(statut='o',typ='R' ),
4342 COMB_C =FACT(statut='f',min=01,max='**',
4343 regles=(UN_PARMI('COEF_R','COEF_C' ),),
4344 CHAM_NO =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r,cham_no_temp_c
4345 ,cham_no_depl_c,cham_no_pres_c ) ),
4346 COEF_R =SIMP(statut='f',typ='R' ),
4347 COEF_C =SIMP(statut='f',typ='C' ),
4349 COMB_FOURIER =FACT(statut='f',min=01,max='**',
4350 CHAM_NO =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r) ),
4351 COEF_R =SIMP(statut='f',typ='R',defaut= 1. ),
4352 NUME_MODE =SIMP(statut='o',typ='I' ),
4353 TYPE_MODE =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
4355 b_angl = BLOC ( condition = "COMB_FOURIER != None",
4356 ANGL =SIMP(statut='o',typ='R' ),
4359 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
4360 # CONFIGURATION MANAGEMENT OF EDF VERSION
4361 # ======================================================================
4362 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4363 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4364 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4365 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4366 # (AT YOUR OPTION) ANY LATER VERSION.
4368 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4369 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4370 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4371 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4373 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4374 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4375 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4376 # ======================================================================
4377 # RESPONSABLE G8BHHXD X.DESROCHES
4378 COMB_FOURIER=OPER(nom="COMB_FOURIER",op= 161,sd_prod=comb_fourier,
4379 docu="U4.83.31-c",reentrant='n',
4380 RESULTAT =SIMP(statut='o',typ=fourier_elas ),
4381 ANGL =SIMP(statut='o',typ='R',max='**'),
4382 NOM_CHAM =SIMP(statut='o',typ='TXM',max=05,
4383 into=("DEPL","REAC_NODA","SIEF_ELGA_DEPL","EPSI_ELNO_DEPL","SIGM_ELNO_DEPL") ),
4385 #& MODIF COMMANDE DATE 06/03/2002 AUTEUR MCOURTOI M.COURTOIS
4386 # CONFIGURATION MANAGEMENT OF EDF VERSION
4387 # ======================================================================
4388 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4389 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4390 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4391 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4392 # (AT YOUR OPTION) ANY LATER VERSION.
4394 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4395 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4396 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4397 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4399 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4400 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4401 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4402 # ======================================================================
4403 # RESPONSABLE VABHHTS J.PELLET
4404 def comb_matr_asse_prod(COMB_R,COMB_C,**args):
4406 type_mat = AsType(COMB_C.get_child('MATR_ASSE').get_valeur())
4407 if type_mat in (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_c
4408 if type_mat in (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_c
4409 if type_mat in (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_c
4410 if type_mat in (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_c
4411 elif COMB_R != None:
4412 type_mat = AsType(COMB_R.get_child('MATR_ASSE').get_valeur())
4413 if type_mat in (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_r
4414 if type_mat in (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_r
4415 if type_mat in (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_r
4416 if type_mat in (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_r
4417 raise AsException("type de concept resultat non prevu")
4419 COMB_MATR_ASSE=OPER(nom="COMB_MATR_ASSE",op= 31,sd_prod=comb_matr_asse_prod,
4420 fr="Combinaison linéaire de matrices assemblées",
4421 docu="U4.72.01-g1",reentrant='f',
4422 regles=(UN_PARMI('COMB_R','COMB_C' ),),
4423 COMB_R =FACT(statut='f',min=01,max='**',
4424 PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
4425 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_temp_c
4426 ,matr_asse_pres_r,matr_asse_pres_c,matr_asse_gene_r,matr_asse_gene_c ) ),
4427 COEF_R =SIMP(statut='o',typ='R' ),
4429 COMB_C =FACT(statut='f',min=01,max='**',
4430 regles=(UN_PARMI('COEF_R','COEF_C' ),),
4431 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_temp_c
4432 ,matr_asse_pres_r,matr_asse_pres_c,matr_asse_gene_r,matr_asse_gene_c ) ),
4433 COEF_R =SIMP(statut='f',typ='R' ),
4434 COEF_C =SIMP(statut='f',typ='C' ),
4436 SANS_CMP =SIMP(statut='f',typ='TXM',into=("LAGR",) ),
4438 #& MODIF COMMANDE DATE 18/06/2002 AUTEUR CIBHHPD D.NUNEZ
4439 # CONFIGURATION MANAGEMENT OF EDF VERSION
4440 # ======================================================================
4441 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4442 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4443 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4444 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4445 # (AT YOUR OPTION) ANY LATER VERSION.
4447 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4448 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4449 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4450 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4452 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4453 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4454 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4455 # ======================================================================
4456 COMB_SISM_MODAL=OPER(nom="COMB_SISM_MODAL",op= 109,sd_prod=mode_stat,
4457 fr="Réponse sismique par recombinaison modale par une méthode spectrale",
4458 docu="U4.84.01-e1",reentrant='n',
4459 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ','LIST_ORDRE'),
4460 UN_PARMI('AMOR_REDUIT','LIST_AMOR','AMOR_GENE' ),),
4461 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
4462 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4463 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
4464 LIST_ORDRE =SIMP(statut='f',typ=listis ),
4465 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
4466 FREQ =SIMP(statut='f',typ='R',max='**'),
4467 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
4468 b_freq =BLOC(condition = "FREQ != None or LIST_FREQ != None",
4469 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
4470 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4472 MODE_CORR =SIMP(statut='f',typ=mode_stat_acce ),
4474 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
4475 LIST_AMOR =SIMP(statut='f',typ=listr8 ),
4476 AMOR_GENE =SIMP(statut='f',typ=matr_asse_gene_r ),
4478 MASS_INER =SIMP(statut='f',typ=tabl_mass_iner ),
4479 CORR_FREQ =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4481 EXCIT =FACT(statut='o',min=01,max='**',
4482 regles=(UN_PARMI('MONO_APPUI','NOEUD','GROUP_NO'),
4483 UN_PARMI('AXE','TRI_AXE','TRI_SPEC' ),),
4485 MONO_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4486 NOEUD =SIMP(statut='f',typ=no,max='**'),
4487 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4488 AXE =SIMP(statut='f',fr="Excitation suivant un seul axe",
4490 TRI_AXE =SIMP(statut='f',fr="Excitation suivant les trois axes mais avec le meme spectre",
4492 TRI_SPEC =SIMP(statut='f',fr="Excitation suivant les trois axes avec trois spectres",
4493 typ='TXM',into=("OUI",) ),
4494 b_axe =BLOC(condition = "AXE != None",fr="Excitation suivant un seul axe",
4495 SPEC_OSCI =SIMP(statut='o',typ=fonction,max=01 ),
4496 ECHELLE =SIMP(statut='f',typ='R',max=01),
4498 b_tri_axe =BLOC(condition = "TRI_AXE != None",fr="Excitation suivant les trois axes mais avec le meme spectre",
4499 SPEC_OSCI =SIMP(statut='o',typ=fonction,max=01 ),
4500 ECHELLE =SIMP(statut='f',typ='R',max=01),
4502 b_tri_spec =BLOC(condition = "TRI_SPEC != None",fr="Excitation suivant les trois axes avec trois spectres",
4503 SPEC_OSCI =SIMP(statut='o',typ=fonction,min=03,max=03 ),
4504 ECHELLE =SIMP(statut='f',typ='R',min=03,max=03),
4506 NATURE =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("ACCE","VITE","DEPL") ),
4508 COMB_MODE =FACT(statut='o',min=01,max=01,
4509 TYPE =SIMP(statut='o',typ='TXM',into=("SRSS","CQC","DSC","ABS","DPC") ),
4510 DUREE =SIMP(statut='f',typ='R' ),
4512 COMB_DIRECTION =FACT(statut='f',min=01,max=01,
4513 TYPE =SIMP(statut='f',typ='TXM',into=("QUAD","NEWMARK") ),
4515 COMB_MULT_APPUI =FACT(statut='f',min=01,max='**',
4516 regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO' ),
4517 UN_PARMI('TYPE_COMBI','TYPE' ),),
4518 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4519 NOEUD =SIMP(statut='f',typ=no,max='**'),
4520 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4521 TYPE_COMBI =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
4522 TYPE =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
4524 COMB_DEPL_APPUI=FACT(statut='f',min=01,max='**',
4525 regles=(UN_PARMI('TOUT','LIST_CAS'),
4526 UN_PARMI('TYPE_COMBI','TYPE' ),),
4527 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
4528 LIST_CAS =SIMP(statut='f',typ='I',max='**'),
4529 TYPE_COMBI =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
4530 TYPE =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
4532 DEPL_MULT_APPUI =FACT(statut='f',min=01,max='**',
4533 regles=(UN_PARMI('NOEUD','GROUP_NO'),
4534 AU_MOINS_UN('DX','DY','DZ' ),),
4535 NOM_CAS =SIMP(statut='o',typ='TXM',max='**'),
4536 NUME_CAS =SIMP(statut='o',typ='I',max='**'),
4537 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,), ),
4538 NOEUD_REFE =SIMP(statut='f',typ=no),
4539 NOEUD =SIMP(statut='f',typ=no,max='**'),
4540 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4541 DX =SIMP(statut='f',typ='R' ),
4542 DY =SIMP(statut='f',typ='R' ),
4543 DZ =SIMP(statut='f',typ='R' ),
4545 OPTION =SIMP(statut='o',typ='TXM',max=9,
4546 into=("DEPL","VITE","ACCE_ABSOLU","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
4547 "EFGE_ELNO_DEPL","REAC_NODA","FORC_NODA","EFGE_ELNO_CART",
4548 "SIPO_ELNO_DEPL") ),
4549 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
4550 IMPRESSION =FACT(statut='f',min=01,max='**',
4551 regles=(EXCLUS('TOUT','NIVEAU'),),
4552 TOUT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4553 NIVEAU =SIMP(statut='f',typ='TXM',into=("SPEC_OSCI","MASS_EFFE","MAXI_GENE"),max=03 ),
4555 TITRE =SIMP(statut='f',typ='TXM',max='**'),
4557 #& MODIF COMMANDE DATE 29/04/2002 AUTEUR GNICOLAS G.NICOLAS
4558 # CONFIGURATION MANAGEMENT OF EDF VERSION
4559 # ======================================================================
4560 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4561 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
4562 # REDISTRIBUTION OF THIS FILE.
4563 # ======================================================================
4564 def crea_champ_prod(TYPE_CHAM,**args):
4565 if TYPE_CHAM == "CART_DBEL_R" : return carte_dbel_r
4566 if TYPE_CHAM == "CART_DEPL_C" : return carte_depl_c
4567 if TYPE_CHAM == "CART_DEPL_F" : return carte_depl_f
4568 if TYPE_CHAM == "CART_DEPL_R" : return carte_depl_r
4569 if TYPE_CHAM == "CART_DURT_R" : return carte_durt_r
4570 if TYPE_CHAM == "CART_ENER_R" : return carte_ener_r
4571 if TYPE_CHAM == "CART_EPSI_R" : return carte_epsi_r
4572 if TYPE_CHAM == "CART_ERREUR" : return carte_erreur
4573 if TYPE_CHAM == "CART_FLUX_R" : return carte_flux_r
4574 if TYPE_CHAM == "CART_GEOM_R" : return carte_geom_r
4575 if TYPE_CHAM == "CART_G_DEPL_R" : return carte_g_depl_r
4576 if TYPE_CHAM == "CART_HYDR_R" : return carte_hydr_r
4577 if TYPE_CHAM == "CART_INST_R" : return carte_inst_r
4578 if TYPE_CHAM == "CART_INTE_R" : return carte_inte_r
4579 if TYPE_CHAM == "CART_META_R" : return carte_meta_r
4580 if TYPE_CHAM == "CART_NEUT_F" : return carte_neut_f
4581 if TYPE_CHAM == "CART_NEUT_R" : return carte_neut_r
4582 if TYPE_CHAM == "CART_PRES_R" : return carte_pres_r
4583 if TYPE_CHAM == "CART_SIEF_R" : return carte_sief_r
4584 if TYPE_CHAM == "CART_SOUR_R" : return carte_sour_r
4585 if TYPE_CHAM == "CART_TEMP_F" : return carte_temp_f
4586 if TYPE_CHAM == "CART_TEMP_R" : return carte_temp_r
4587 if TYPE_CHAM == "CART_VAR2_R" : return carte_var2_r
4588 if TYPE_CHAM == "CART_VNOR_C" : return carte_vnor_c
4589 if TYPE_CHAM == "NOEU_DBEL_R" : return cham_no_dbel_r
4590 if TYPE_CHAM == "NOEU_DEPL_C" : return cham_no_depl_c
4591 if TYPE_CHAM == "NOEU_DEPL_F" : return cham_no_depl_f
4592 if TYPE_CHAM == "NOEU_DEPL_R" : return cham_no_depl_r
4593 if TYPE_CHAM == "NOEU_DURT_R" : return cham_no_durt_r
4594 if TYPE_CHAM == "NOEU_ENER_R" : return cham_no_ener_r
4595 if TYPE_CHAM == "NOEU_EPSI_R" : return cham_no_epsi_r
4596 if TYPE_CHAM == "NOEU_ERREUR" : return cham_no_erreur
4597 if TYPE_CHAM == "NOEU_FLUX_R" : return cham_no_flux_r
4598 if TYPE_CHAM == "NOEU_GEOM_R" : return cham_no_geom_r
4599 if TYPE_CHAM == "NOEU_G_DEPL_R" : return cham_no_g_depl_r
4600 if TYPE_CHAM == "NOEU_HYDR_R" : return cham_no_hydr_r
4601 if TYPE_CHAM == "NOEU_INST_R" : return cham_no_inst_r
4602 if TYPE_CHAM == "NOEU_INTE_R" : return cham_no_inte_r
4603 if TYPE_CHAM == "NOEU_META_R" : return cham_no_meta_r
4604 if TYPE_CHAM == "NOEU_NEUT_F" : return cham_no_neut_f
4605 if TYPE_CHAM == "NOEU_NEUT_R" : return cham_no_neut_r
4606 if TYPE_CHAM == "NOEU_PRES_R" : return cham_no_pres_r
4607 if TYPE_CHAM == "NOEU_SIEF_R" : return cham_no_sief_r
4608 if TYPE_CHAM == "NOEU_SOUR_R" : return cham_no_sour_r
4609 if TYPE_CHAM == "NOEU_TEMP_F" : return cham_no_temp_f
4610 if TYPE_CHAM == "NOEU_TEMP_R" : return cham_no_temp_r
4611 if TYPE_CHAM == "NOEU_VAR2_R" : return cham_no_var2_r
4612 if TYPE_CHAM == "NOEU_VNOR_C" : return cham_no_vnor_c
4613 if TYPE_CHAM == "ELEM_DBEL_R" : return cham_elem_dbel_r
4614 if TYPE_CHAM == "ELEM_DEPL_C" : return cham_elem_depl_c
4615 if TYPE_CHAM == "ELEM_DEPL_F" : return cham_elem_depl_f
4616 if TYPE_CHAM == "ELEM_DEPL_R" : return cham_elem_depl_r
4617 if TYPE_CHAM == "ELEM_DURT_R" : return cham_elem_durt_r
4618 if TYPE_CHAM == "ELEM_ENER_R" : return cham_elem_ener_r
4619 if TYPE_CHAM == "ELEM_EPSI_R" : return cham_elem_epsi_r
4620 if TYPE_CHAM == "ELEM_ERREUR" : return cham_elem_erreur
4621 if TYPE_CHAM == "ELEM_FLUX_R" : return cham_elem_flux_r
4622 if TYPE_CHAM == "ELEM_GEOM_R" : return cham_elem_geom_r
4623 if TYPE_CHAM == "ELEM_G_DEPL_R" : return cham_elem_g_depl
4624 if TYPE_CHAM == "ELEM_HYDR_R" : return cham_elem_hydr_r
4625 if TYPE_CHAM == "ELEM_INST_R" : return cham_elem_inst_r
4626 if TYPE_CHAM == "ELEM_INTE_R" : return cham_elem_inte_r
4627 if TYPE_CHAM == "ELEM_META_R" : return cham_elem_meta_r
4628 if TYPE_CHAM == "ELEM_NEUT_F" : return cham_elem_neut_f
4629 if TYPE_CHAM == "ELEM_NEUT_R" : return cham_elem_neut_r
4630 if TYPE_CHAM == "ELEM_PRES_R" : return cham_elem_pres_r
4631 if TYPE_CHAM == "ELEM_SIEF_R" : return cham_elem_sief_r
4632 if TYPE_CHAM == "ELEM_SOUR_R" : return cham_elem_sour_r
4633 if TYPE_CHAM == "ELEM_TEMP_F" : return cham_elem_temp_f
4634 if TYPE_CHAM == "ELEM_TEMP_R" : return cham_elem_temp_r
4635 if TYPE_CHAM == "ELEM_VARI_R" : return cham_elem_vari_r
4636 if TYPE_CHAM == "ELEM_VNOR_C" : return cham_elem_vnor_c
4637 if TYPE_CHAM == "ELNO_DBEL_R" : return cham_elem_dbel_r
4638 if TYPE_CHAM == "ELNO_DEPL_C" : return cham_elem_depl_c
4639 if TYPE_CHAM == "ELNO_DEPL_F" : return cham_elem_depl_f
4640 if TYPE_CHAM == "ELNO_DEPL_R" : return cham_elem_depl_r
4641 if TYPE_CHAM == "ELNO_DURT_R" : return cham_elem_durt_r
4642 if TYPE_CHAM == "ELNO_ENER_R" : return cham_elem_ener_r
4643 if TYPE_CHAM == "ELNO_EPSI_R" : return cham_elem_epsi_r
4644 if TYPE_CHAM == "ELNO_ERREUR" : return cham_elem_erreur
4645 if TYPE_CHAM == "ELNO_FLUX_R" : return cham_elem_flux_r
4646 if TYPE_CHAM == "ELNO_GEOM_R" : return cham_elem_geom_r
4647 if TYPE_CHAM == "ELNO_G_DEPL_R" : return cham_elem_g_depl
4648 if TYPE_CHAM == "ELNO_HYDR_R" : return cham_elem_hydr_r
4649 if TYPE_CHAM == "ELNO_INST_R" : return cham_elem_inst_r
4650 if TYPE_CHAM == "ELNO_INTE_R" : return cham_elem_inte_r
4651 if TYPE_CHAM == "ELNO_META_R" : return cham_elem_meta_r
4652 if TYPE_CHAM == "ELNO_NEUT_F" : return cham_elem_neut_f
4653 if TYPE_CHAM == "ELNO_NEUT_R" : return cham_elem_neut_r
4654 if TYPE_CHAM == "ELNO_PRES_R" : return cham_elem_pres_r
4655 if TYPE_CHAM == "ELNO_SIEF_R" : return cham_elem_sief_r
4656 if TYPE_CHAM == "ELNO_SOUR_R" : return cham_elem_sour_r
4657 if TYPE_CHAM == "ELNO_TEMP_F" : return cham_elem_temp_f
4658 if TYPE_CHAM == "ELNO_TEMP_R" : return cham_elem_temp_r
4659 if TYPE_CHAM == "ELNO_VARI_R" : return cham_elem_vari_r
4660 if TYPE_CHAM == "ELNO_VNOR_C" : return cham_elem_vnor_c
4661 if TYPE_CHAM == "ELGA_DBEL_R" : return cham_elem_dbel_r
4662 if TYPE_CHAM == "ELGA_DEPL_C" : return cham_elem_depl_c
4663 if TYPE_CHAM == "ELGA_DEPL_F" : return cham_elem_depl_f
4664 if TYPE_CHAM == "ELGA_DEPL_R" : return cham_elem_depl_r
4665 if TYPE_CHAM == "ELGA_DURT_R" : return cham_elem_durt_r
4666 if TYPE_CHAM == "ELGA_ENER_R" : return cham_elem_ener_r
4667 if TYPE_CHAM == "ELGA_EPSI_R" : return cham_elem_epsi_r
4668 if TYPE_CHAM == "ELGA_ERREUR" : return cham_elem_erreur
4669 if TYPE_CHAM == "ELGA_FLUX_R" : return cham_elem_flux_r
4670 if TYPE_CHAM == "ELGA_GEOM_R" : return cham_elem_geom_r
4671 if TYPE_CHAM == "ELGA_G_DEPL_R" : return cham_elem_g_depl
4672 if TYPE_CHAM == "ELGA_HYDR_R" : return cham_elem_hydr_r
4673 if TYPE_CHAM == "ELGA_INST_R" : return cham_elem_inst_r
4674 if TYPE_CHAM == "ELGA_INTE_R" : return cham_elem_inte_r
4675 if TYPE_CHAM == "ELGA_META_R" : return cham_elem_meta_r
4676 if TYPE_CHAM == "ELGA_NEUT_F" : return cham_elem_neut_f
4677 if TYPE_CHAM == "ELGA_NEUT_R" : return cham_elem_neut_r
4678 if TYPE_CHAM == "ELGA_PRES_R" : return cham_elem_pres_r
4679 if TYPE_CHAM == "ELGA_SIEF_R" : return cham_elem_sief_r
4680 if TYPE_CHAM == "ELGA_SOUR_R" : return cham_elem_sour_r
4681 if TYPE_CHAM == "ELGA_TEMP_F" : return cham_elem_temp_f
4682 if TYPE_CHAM == "ELGA_TEMP_R" : return cham_elem_temp_r
4683 if TYPE_CHAM == "ELGA_VARI_R" : return cham_elem_vari_r
4684 if TYPE_CHAM == "ELGA_VNOR_C" : return cham_elem_vnor_c
4685 if TYPE_CHAM == "CART_IRRA_R" : return carte_irra_r
4686 if TYPE_CHAM == "NOEU_IRRA_R" : return cham_no_irra_r
4687 if TYPE_CHAM == "ELEM_IRRA_R" : return cham_elem_irra_r
4688 if TYPE_CHAM == "ELNO_IRRA_R" : return cham_elem_irra_r
4689 if TYPE_CHAM == "ELGA_IRRA_R" : return cham_elem_irra_r
4690 raise AsException("type de concept resultat non prevu")
4692 CREA_CHAMP=OPER(nom="CREA_CHAMP",op= 195,sd_prod=crea_champ_prod,
4693 fr=" ",docu="U4.72.04-b1",reentrant='n',
4694 TYPE_CHAM =SIMP(statut='o',typ='TXM',
4695 into=("CART_DBEL_R","NOEU_DBEL_R","ELEM_DBEL_R",
4696 "ELNO_DBEL_R","ELGA_DBEL_R","CART_DEPL_C",
4697 "NOEU_DEPL_C","ELEM_DEPL_C","ELNO_DEPL_C",
4698 "ELGA_DEPL_C","CART_DEPL_F","NOEU_DEPL_F",
4699 "ELEM_DEPL_F","ELNO_DEPL_F","ELGA_DEPL_F",
4700 "CART_DEPL_R","NOEU_DEPL_R","ELEM_DEPL_R",
4701 "ELNO_DEPL_R","ELGA_DEPL_R","CART_DURT_R",
4702 "NOEU_DURT_R","ELEM_DURT_R","ELNO_DURT_R",
4703 "ELGA_DURT_R","CART_ENER_R","NOEU_ENER_R",
4704 "ELEM_ENER_R","ELNO_ENER_R","ELGA_ENER_R",
4705 "CART_EPSI_R","NOEU_EPSI_R","ELEM_EPSI_R",
4706 "ELNO_EPSI_R","ELGA_EPSI_R","CART_ERREUR",
4707 "NOEU_ERREUR","ELEM_ERREUR","ELNO_ERREUR",
4708 "ELGA_ERREUR","CART_FLUX_R","NOEU_FLUX_R",
4709 "ELEM_FLUX_R","ELNO_FLUX_R","ELGA_FLUX_R",
4710 "CART_GEOM_R","NOEU_GEOM_R","ELEM_GEOM_R",
4711 "ELNO_GEOM_R","ELGA_GEOM_R","CART_G_DEPL_R",
4712 "NOEU_G_DEPL_R","ELEM_G_DEPL_R","ELNO_G_DEPL_R",
4713 "ELGA_G_DEPL_R","CART_HYDR_R","NOEU_HYDR_R",
4714 "ELEM_HYDR_R","ELNO_HYDR_R","ELGA_HYDR_R",
4715 "CART_INST_R","NOEU_INST_R","ELEM_INST_R",
4716 "ELNO_INST_R","ELGA_INST_R","CART_INTE_R",
4717 "NOEU_INTE_R","ELEM_INTE_R","ELNO_INTE_R",
4718 "ELGA_INTE_R","CART_META_R","NOEU_META_R",
4719 "ELEM_META_R","ELNO_META_R","ELGA_META_R",
4720 "CART_NEUT_F","NOEU_NEUT_F","ELEM_NEUT_F",
4721 "ELNO_NEUT_F","ELGA_NEUT_F","CART_NEUT_R",
4722 "NOEU_NEUT_R","ELEM_NEUT_R","ELNO_NEUT_R",
4723 "ELGA_NEUT_R","CART_PRES_R","NOEU_PRES_R",
4724 "ELEM_PRES_R","ELNO_PRES_R","ELGA_PRES_R",
4725 "CART_SIEF_R","NOEU_SIEF_R","ELEM_SIEF_R",
4726 "ELNO_SIEF_R","ELGA_SIEF_R","CART_SOUR_R",
4727 "NOEU_SOUR_R","ELEM_SOUR_R","ELNO_SOUR_R",
4728 "ELGA_SOUR_R","CART_TEMP_F","NOEU_TEMP_F",
4729 "ELEM_TEMP_F","ELNO_TEMP_F","ELGA_TEMP_F",
4730 "CART_TEMP_R","NOEU_TEMP_R","ELEM_TEMP_R",
4731 "ELNO_TEMP_R","ELGA_TEMP_R","CART_VAR2_R",
4732 "NOEU_VAR2_R","ELEM_VARI_R","ELNO_VARI_R",
4733 "ELGA_VARI_R","CART_VNOR_C","NOEU_VNOR_C",
4734 "ELEM_VNOR_C","ELNO_VNOR_C","ELGA_VNOR_C",
4735 "CART_IRRA_R","NOEU_IRRA_R","ELEM_IRRA_R",
4736 "ELNO_IRRA_R","ELGA_IRRA_R",) ),
4738 # SI CREATION D'UN CHAM_NO, POUR IMPOSER LA NUMEROTATION DES DDLS :
4739 # ------------------------------------------------------------------
4740 regles=(EXCLUS('NUME_DDL','CHAM_NO',)),
4741 NUME_DDL =SIMP(statut='f',typ=(nume_ddl) ),
4742 CHAM_NO =SIMP(statut='f',typ=(cham_no) ),
4744 OPERATION =SIMP(statut='o',typ='TXM',into=("AFFE","ASSE","EVAL","EXTR","DISC",) ),
4746 b_affe =BLOC(condition = "OPERATION == 'AFFE'",
4747 regles=(UN_PARMI('MAILLAGE','MODELE'),EXCLUS('MAILLAGE','PROL_ZERO'),),
4748 MAILLAGE =SIMP(statut='f',typ=(maillage) ),
4749 MODELE =SIMP(statut='f',typ=(modele) ),
4750 PROL_ZERO =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
4751 AFFE =FACT(statut='o',min=01,max='**',
4752 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
4753 UN_PARMI('VALE','VALE_I','VALE_C','VALE_F', ),),
4754 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4755 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4756 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4757 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4758 NOEUD =SIMP(statut='f',typ=no,max='**'),
4759 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
4760 VALE =SIMP(statut='f',typ='R',max='**' ),
4761 VALE_I =SIMP(statut='f',typ='I',max='**' ),
4762 VALE_C =SIMP(statut='f',typ='C',max='**' ),
4763 VALE_F =SIMP(statut='f',typ=fonction,max='**'),
4766 b_asse =BLOC(condition = "OPERATION == 'ASSE'",
4767 regles=(UN_PARMI('MAILLAGE','MODELE'),EXCLUS('MAILLAGE','PROL_ZERO'),),
4768 MAILLAGE =SIMP(statut='f',typ=(maillage) ),
4769 MODELE =SIMP(statut='f',typ=(modele) ),
4770 PROL_ZERO =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
4771 ASSE =FACT(statut='o',min=01,max='**',
4772 regles=(AU_MOINS_UN('TOUT','GROUP_MA','GROUP_NO','MAILLE','NOEUD',),
4773 PRESENT_PRESENT('NOM_CMP_RESU','NOM_CMP', ),),
4774 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4775 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4776 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4777 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4778 NOEUD =SIMP(statut='f',typ=no,max='**'),
4779 CHAM_GD =SIMP(statut='o',typ=(cham_gd)),
4780 NOM_CMP =SIMP(statut='f',typ='TXM',max='**' ),
4781 NOM_CMP_RESU =SIMP(statut='f',typ='TXM',max='**' ),
4782 CUMUL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
4783 COEF_R =SIMP(statut='f',typ='R',defaut= 1. ),
4786 b_eval =BLOC(condition = "OPERATION == 'EVAL'",
4787 CHAM_F =SIMP(statut='o',typ=(cham_gd)),
4788 CHAM_PARA =SIMP(statut='o',typ=(cham_gd),max='**'),
4790 b_disc =BLOC(condition = "OPERATION == 'DISC'",
4791 MODELE =SIMP(statut='f',typ=(modele) ),
4792 PROL_ZERO =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
4793 CHAM_GD =SIMP(statut='o',typ=(cham_gd)),
4795 b_extr =BLOC(condition = "OPERATION == 'EXTR'",
4796 regles=(UN_PARMI('MAILLAGE','RESULTAT'),),
4797 MAILLAGE =SIMP(statut='f',typ=(maillage) ),
4798 RESULTAT =SIMP(statut='f',typ=(resultat) ),
4799 b_extr_maillage =BLOC(condition = "MAILLAGE != None",
4800 NOM_CHAM =SIMP(statut='o',typ='TXM',into=("GEOMETRIE",)),
4802 b_extr_resultat =BLOC(condition = "RESULTAT != None",
4803 regles=(EXCLUS('TYPE_MAXI','NUME_ORDRE','INST','FREQ','NUME_MODE',
4804 'NOEUD_CMP','NOM_CAS','ANGL', ),),
4805 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
4806 fr="Liste des paramètres de sensibilité.",
4807 ang="List of sensitivity parameters"),
4808 NOM_CHAM =SIMP(statut='o',typ='TXM',
4809 into=("DEPL","VITE","ACCE",
4810 "DEPL_ABSOLU","VITE_ABSOLU",
4811 "TEMP","IRRA","ACCE_ABSOLU",
4812 "FORC_NODA","REAC_NODA","EFGE_NOEU_DEPL",
4813 "EFGE_NOEU_CART","EPSI_NOEU_DEPL",
4814 "SIGM_NOEU_DEPL","SIGM_NOEU_CART",
4815 "SIPO_NOEU_DEPL","EQUI_NOEU_SIGM",
4816 "EQUI_NOEU_EPSI","FLUX_NOEU_TEMP",
4817 "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP",
4818 "META_ELGA_TEMP","META_ELNO_TEMP",
4819 "META_NOEU_TEMP","DURT_ELGA_META",
4820 "DURT_ELNO_META","DURT_NOEU_META","SIEF_ELGA",
4821 "SIEF_ELNO_ELGA","SIEF_ELGA_DEPL",
4822 "VARI_ELNO_ELGA","VARI_ELGA","EPOT_ELEM_DEPL",
4823 "ECIN_ELEM_DEPL","SOUR_ELGA_ELEC",
4824 "PRES_ELNO_REEL","PRES_ELNO_IMAG",
4825 "PRES_ELNO_DBEL","INTE_ELNO_ACTI",
4826 "INTE_ELNO_REAC","EFGE_ELNO_DEPL",
4827 "SIGM_ELNO_DEPL","EFGE_ELNO_CART",
4828 "SIGM_ELNO_CART","SIPO_ELNO_DEPL",
4829 "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL",
4830 "EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO",
4831 "EPSP_ELGA","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
4832 "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
4833 "ERRE_ELNO_ELGA","ERRE_ELGA_NORE",
4834 "ERRE_ELEM_NOZ1","ERRE_ELEM_NOZ2",
4835 "SIGM_NOZ1_ELGA","SIGM_NOZ2_ELGA",
4836 "DEGE_ELNO_DEPL","SIRE_ELNO_DEPL",
4837 "VNOR_ELEM_DEPL","SIEF_ELNO","VARI_ELNO",
4838 "SIEF_NOEU_ELGA","VARI_NOEU_ELGA",
4839 "PRES_NOEU_DBEL","PRES_NOEU_REEL",
4840 "PRES_NOEU_IMAG","INTE_NOEU_ACTI",
4841 "INTE_NOEU_REAC","DCHA_ELGA_SIGM",
4842 "DCHA_ELNO_SIGM","RADI_ELGA_SIGM",
4843 "RADI_ELNO_SIGM","ENDO_ELNO_SIGA",
4844 "ENDO_ELNO_SINO","ENDO_ELNO_SIGM",
4845 "SIGM_ELNO_VARI","SIGM_NOEU_VARI",
4846 "EPME_ELNO_DEPL","EPME_ELGA_DEPL",
4847 "EPME_ELNO_DPGE","EPMG_ELNO_DEPL",
4848 "EPMG_ELGA_DEPL","GRAD_ELGA_THETA",
4849 "GTHE_ELNO_ELGA","GRAD_NOEU_THETA",
4850 "HYDR_ELGA","HYDR_ELNO_ELGA","HYDR_NOEU_ELGA",
4851 "THETA","SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",
4853 TYPE_MAXI =SIMP(statut='f',typ='TXM',into=("MAXI","MINI","MAXI_ABS","MINI_ABS","NORM_TRAN",) ),
4854 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="VALE",into=("VALE","INST",) ),
4855 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4856 LIST_INST =SIMP(statut='f',typ=(listr8) ),
4857 NUME_ORDRE =SIMP(statut='f',typ='I'),
4858 INST =SIMP(statut='f',typ='R'),
4859 FREQ =SIMP(statut='f',typ='R'),
4860 NUME_MODE =SIMP(statut='f',typ='I'),
4861 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
4862 NOM_CAS =SIMP(statut='f',typ='TXM'),
4863 ANGL =SIMP(statut='f',typ='R'),
4864 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
4865 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
4866 INTERPOL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN",) ),
4870 # FIN DU CATALOGUE : INFO,TITRE ET TYPAGE DU RESULAT :
4871 #-----------------------------------------------------
4872 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,) ),
4873 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
4875 #& MODIF COMMANDE DATE 06/03/2002 AUTEUR MCOURTOI M.COURTOIS
4876 # CONFIGURATION MANAGEMENT OF EDF VERSION
4877 # ======================================================================
4878 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4879 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4880 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4881 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4882 # (AT YOUR OPTION) ANY LATER VERSION.
4884 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4885 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4886 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4887 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4889 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4890 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4891 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4892 # ======================================================================
4893 CREA_MAILLAGE=OPER(nom="CREA_MAILLAGE",op= 167,sd_prod=maillage,
4894 docu="U4.23.02-d1",reentrant='n',
4895 regles=(EXCLUS('ECLA_PG','CREA_MAILLE'),
4896 EXCLUS('ECLA_PG','CREA_GROUP_MA'),
4897 EXCLUS('ECLA_PG','DETR_GROUP_MA'),
4898 EXCLUS('ECLA_PG','MODI_MAILLE'),),
4899 MAILLAGE =SIMP(statut='o',typ=maillage ),
4900 CREA_POI1 =FACT(statut='f',min=01,max='**',fr="Création de mailles de type POI1 à partir de noeuds",
4901 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD' ),),
4902 NOM_GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4903 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4904 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4905 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4906 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4907 NOEUD =SIMP(statut='f',typ=no,max='**'),
4909 CREA_MAILLE =FACT(statut='f',min=01,max='**',fr="Duplication de mailles",
4910 regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA'),),
4911 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4912 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4913 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4914 PREF_MAILLE =SIMP(statut='o',typ='TXM' ),
4915 PREF_NUME =SIMP(statut='f',typ='I' ),
4917 CREA_GROUP_MA =FACT(statut='f',min=01,max='**',fr="Duplication de mailles et création de groupes de mailles",
4918 regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
4919 NOM =SIMP(statut='o',typ='TXM'),
4920 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4921 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4922 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4923 PREF_MAILLE =SIMP(statut='o',typ='TXM' ),
4924 PREF_NUME =SIMP(statut='f',typ='I' ),
4926 DETR_GROUP_MA =FACT(statut='f',min=01,max=01,fr="Destruction de groupes de mailles",
4927 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4928 NB_MAILLE =SIMP(statut='f',typ='I',defaut= 0,
4929 fr="Nombre minimal de mailles que doit contenir le groupe pour etre détruit", ),
4931 MODI_MAILLE =FACT(statut='f',min=01,max='**',fr="Modification du type de mailles",
4932 regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
4933 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4934 MAILLE =SIMP(statut='f',typ=grma,max='**'),
4935 GROUP_MA =SIMP(statut='f',typ=ma,max='**'),
4936 OPTION =SIMP(statut='o',typ='TXM',into=("TRIA6_7","QUAD8_9","SEG3_4"),fr="Choix de la transformation" ),
4937 PREF_NOEUD =SIMP(statut='f',typ='TXM',defaut="NS"),
4938 PREF_NUME =SIMP(statut='f',typ='I',defaut= 1 ),
4940 REPERE =FACT(statut='f',min=01,max='**',
4941 fr="changement de repère servant à déterminer les caractéristiques d une section de poutre",
4942 TABLE =SIMP(statut='o',typ=tabl_cara_geom,
4943 fr="Nom de la table contenant les caractéristiques de la section de poutre" ),
4944 NOM_ORIG =SIMP(statut='f',typ='TXM',into=("CDG","TORSION"),fr="Origine du nouveau repère" ),
4945 NOM_ROTA =SIMP(statut='f',typ='TXM',into=("INERTIE",),fr="Direction du repére" ),
4946 b_cdg =BLOC(condition = "NOM_ORIG == 'CDG'",
4947 GROUP_MA =SIMP(statut='f',typ=grma,
4948 fr="Nom du groupe de mailles dont le centre de gravité sera l origine du nouveau repère"),
4951 ECLA_PG =FACT(statut='f',min=01,max=01,
4952 fr="Eclatement des mailles en petites mailles contenant chacune un seul point de gauss",
4953 MODELE =SIMP(statut='o',typ=modele ),
4954 SHRINK =SIMP(statut='f',typ='R',defaut= 0.9, fr="Facteur de réduction" ),
4956 TITRE =SIMP(statut='f',typ='TXM',max='**'),
4958 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
4959 # CONFIGURATION MANAGEMENT OF EDF VERSION
4960 # ======================================================================
4961 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4962 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4963 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4964 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4965 # (AT YOUR OPTION) ANY LATER VERSION.
4967 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4968 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4969 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4970 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4972 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4973 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4974 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4975 # ======================================================================
4976 def crea_resu_prod(TYPE_RESU,**args):
4977 if TYPE_RESU == "EVOL_ELAS" : return evol_elas
4978 if TYPE_RESU == "EVOL_NOLI" : return evol_noli
4979 if TYPE_RESU == "EVOL_THER" : return evol_ther
4980 if TYPE_RESU == "MULT_ELAS" : return mult_elas
4981 if TYPE_RESU == "FOURIER_ELAS" : return fourier_elas
4982 if TYPE_RESU == "EVOL_VARC" : return evol_varc
4983 raise AsException("type de concept resultat non prevu")
4985 CREA_RESU=OPER(nom="CREA_RESU",op=124,sd_prod=crea_resu_prod,docu="U4.44.12-e3",reentrant='f',
4986 fr="Engendrer ou enrichir une structure de donnees en affectant les cham_gd associes",
4988 OPERATION =SIMP(statut='o',typ='TXM',into=("AFFE","ECLA_PG","PERM_CHAM","PROL_RTZ",),
4989 fr="choix de la fonction a activer",),
4991 b_affe =BLOC(condition = "OPERATION == 'AFFE'",
4993 TYPE_RESU =SIMP(statut='o',typ='TXM',into=("MULT_ELAS","EVOL_ELAS","EVOL_NOLI","FOURIER_ELAS",
4994 "EVOL_THER","EVOL_VARC",) ),
4995 NOM_CHAM =SIMP(statut='f',typ='TXM',into=("DEPL","TEMP","IRRA","HYDR_ELGA",),max=1 ),
4996 AFFE =FACT(statut='f',min=01,max='**',
4997 regles=(UN_PARMI('NOM_CAS','NUME_MODE','LIST_INST','INST',),),
4998 CHAM_GD =SIMP(statut='f',typ=(cham_gd)),
4999 NOM_CAS =SIMP(statut='f',typ='TXM' ),
5000 NUME_MODE =SIMP(statut='f',typ='I'),
5001 TYPE_MODE =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
5002 INST =SIMP(statut='f',typ='R',max='**'),
5003 LIST_INST =SIMP(statut='f',typ=listr8),
5004 NUME_INIT =SIMP(statut='f',typ='I'),
5005 NUME_FIN =SIMP(statut='f',typ='I'),
5006 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
5007 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5011 b_ecla_pg =BLOC(condition = "OPERATION == 'ECLA_PG'",
5013 TYPE_RESU =SIMP(statut='o',typ='TXM',into=("EVOL_ELAS","EVOL_NOLI","EVOL_THER"), ),
5015 ECLA_PG =FACT(statut='f',min=01,max=01,
5016 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
5017 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
5018 into=("SIEF_ELGA","VARI_ELGA","SIEF_ELGA_DEPL","FLUX_ELGA_TEMP",) ),
5019 MODELE_INIT =SIMP(statut='o',typ=modele),
5020 RESU_INIT =SIMP(statut='o',typ=resultat),
5021 MAILLAGE =SIMP(statut='o',typ=maillage),
5022 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5023 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
5024 LIST_ORDRE =SIMP(statut='f',typ=listis),
5025 INST =SIMP(statut='f',typ='R',max='**'),
5026 LIST_INST =SIMP(statut='f',typ=listr8),
5027 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
5028 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
5032 b_perm_cham =BLOC(condition = "OPERATION == 'PERM_CHAM'",
5034 TYPE_RESU =SIMP(statut='o',typ='TXM',into=("EVOL_NOLI",) ),
5035 NOM_CHAM =SIMP(statut='f',typ='TXM',into=("DEPL","SIEF_ELGA","VARI_ELGA",),max='**' ),
5036 RESU_INIT =SIMP(statut='o',typ=evol_noli),
5037 INST_INIT =SIMP(statut='f',typ='R'),
5038 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
5039 CRITERE =SIMP(statut='f',typ='TXM',into=('RELATIF','ABSOLU'),defaut='RELATIF'),
5040 MAILLAGE_INIT =SIMP(statut='o',typ=maillage,),
5041 RESU_FINAL =SIMP(statut='o',typ=evol_noli,),
5042 MAILLAGE_FINAL =SIMP(statut='o',typ=maillage,),
5043 PERM_CHAM =FACT(statut='o',min=01,max=01,
5044 GROUP_MA_FINAL =SIMP(statut='o',typ=grma),
5045 GROUP_MA_INIT =SIMP(statut='o',typ=grma),
5046 TRAN =SIMP(statut='o',typ='R',max='**'),
5047 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
5051 b_prol_rtz =BLOC(condition = "OPERATION == 'PROL_RTZ'",
5053 TYPE_RESU =SIMP(statut='o',typ='TXM',into=("EVOL_THER",) ),
5055 PROL_RTZ =FACT(statut='f',min=01,max=01,
5056 regles=(EXCLUS('INST','LIST_INST'),),
5057 MAILLAGE_FINAL =SIMP(statut='o',typ=maillage,),
5058 TABLE =SIMP(statut='o',typ=tabl_post_rele,fr="Table issue de post_releve_t"),
5059 INST =SIMP(statut='f',typ='R',max='**'),
5060 LIST_INST =SIMP(statut='f',typ=listr8),
5061 b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)",
5062 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
5063 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5065 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU",),),
5066 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU",),),
5067 REPERE =SIMP(statut='o',typ='TXM',into=("CYLINDRIQUE",),),
5068 ORIGINE =SIMP(statut='o',typ='R',min=03,max=03),
5069 AXE_Z =SIMP(statut='o',typ='R',min=03,max=03),
5074 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
5075 # CONFIGURATION MANAGEMENT OF EDF VERSION
5076 # ======================================================================
5077 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5078 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5079 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5080 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5081 # (AT YOUR OPTION) ANY LATER VERSION.
5083 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5084 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5085 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5086 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5088 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5089 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5090 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5091 # ======================================================================
5092 DEBUT=MACRO(nom="DEBUT",op=0 ,docu="U4.11.01-g2",repetable='n',
5093 fr="Ouverture d une étude. Allocation des ressources mémoire et disque",
5096 PAR_LOT =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
5097 into=("OUI","NON"),defaut="OUI"),
5098 BASE =FACT(fr="définition des paramètres associés aux bases JEVEUX",
5099 statut='f',min=1,max=3,
5100 FICHIER =SIMP(fr="nom de la base",statut='o',typ='TXM',
5101 into=('GLOBALE','VOLATILE','LOCALE'),),
5102 TITRE =SIMP(statut='f',typ='TXM'),
5103 CAS =SIMP(statut='f',typ='TXM'),
5104 NMAX_ENRE =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
5105 LONG_ENRE =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
5106 LONG_REPE =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
5108 IMPRESSION =FACT(statut='f',min=1,max=3,
5109 FICHIER =SIMP(statut='o',typ='TXM'),
5110 UNITE =SIMP(statut='o',typ='I'),
5112 CATALOGUE =FACT(statut='f',min=1,max=10,
5113 FICHIER =SIMP(statut='o',typ='TXM'),
5114 TITRE =SIMP(statut='f',typ='TXM'),
5115 UNITE =SIMP(statut='f',typ='I'),
5117 CODE =FACT(fr="définition d un nom pour l'esemble d'une étude",
5118 statut='f',min=1,max=1,
5119 NOM =SIMP(statut='o',typ='TXM'),
5120 NIV_PUB_WEB =SIMP(statut='o',typ='TXM',into=('INTERNET','INTRANET')),
5121 UNITE =SIMP(statut='f',typ='I',defaut=15),
5123 DEBUG =FACT(fr="option de déboggage reservée aux développeurs",
5124 statut='f',min=1,max=1,
5125 JXVERI =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
5126 statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
5127 JEVEUX =SIMP(fr="force les déchargement sur disque",
5128 statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
5129 ENVIMA =SIMP(fr="imprime les valeurs définies dans ENVIMA",
5130 statut='f',typ='TXM',into=('TEST',)),
5132 MEMOIRE =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=01,max=01,
5133 GESTION =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
5134 TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
5135 TAILLE =SIMP(statut='f',typ='I'),
5136 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut=800.),
5137 PARTITION =SIMP(statut='f',typ='R'),
5140 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
5141 # CONFIGURATION MANAGEMENT OF EDF VERSION
5142 # ======================================================================
5143 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5144 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5145 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5146 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5147 # (AT YOUR OPTION) ANY LATER VERSION.
5149 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5150 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5151 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5152 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5154 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5155 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5156 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5157 # ======================================================================
5158 DEFI_BASE_MODALE=OPER(nom="DEFI_BASE_MODALE",op= 99,sd_prod=base_modale,
5159 docu="U4.64.02-f1",reentrant='f',
5160 regles=(UN_PARMI('CLASSIQUE','RITZ','DIAG_MASS'),),
5161 CLASSIQUE =FACT(statut='f',min=01,max=01,
5162 INTERF_DYNA =SIMP(statut='o',typ=interf_dyna_clas ),
5163 MODE_MECA =SIMP(statut='o',typ=mode_meca,max='**' ),
5164 NMAX_MODE =SIMP(statut='f',typ='I',defaut= 10 ),
5166 RITZ =FACT(statut='f',min=01,max='**',
5167 regles=(UN_PARMI('MODE_STAT','MODE_MECA','MULT_ELAS','BASE_MODALE'),),
5168 MODE_MECA =SIMP(statut='f',typ=mode_meca,max='**' ),
5169 NMAX_MODE =SIMP(statut='f',typ='I',defaut= 999 ),
5170 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
5171 MULT_ELAS =SIMP(statut='f',typ=mult_elas ),
5172 BASE_MODALE =SIMP(statut='f',typ=base_modale ),
5174 DIAG_MASS =FACT(statut='f',min=01,max='**',
5175 MODE_MECA =SIMP(statut='o',typ=mode_meca,max='**' ),
5176 MODE_STAT =SIMP(statut='o',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
5178 # le bloc conditionnel remplace-t-il PRESENT_PRESENT('RITZ','NUME_REF'),
5179 # PRESENT_ABSENT('INTERF_DYNA','CLASSIQUE'),
5180 b_ritz =BLOC(condition = "RITZ != None",
5181 INTERF_DYNA =SIMP(statut='f',typ=interf_dyna_clas ),
5182 NUME_REF =SIMP(statut='o',typ=nume_ddl ),
5184 TITRE =SIMP(statut='f',typ='TXM',max='**'),
5185 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5187 #& MODIF COMMANDE DATE 16/01/2002 AUTEUR DURAND C.DURAND
5188 # CONFIGURATION MANAGEMENT OF EDF VERSION
5189 # ======================================================================
5190 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5191 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5192 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5193 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5194 # (AT YOUR OPTION) ANY LATER VERSION.
5196 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5197 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5198 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5199 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5201 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5202 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5203 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5204 # ======================================================================
5205 DEFI_CABLE_BP=OPER(nom="DEFI_CABLE_BP",op= 180,sd_prod=cabl_precont,
5207 docu="U4.42.04-a",reentrant='n',
5208 MODELE =SIMP(statut='o',typ=modele ),
5209 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
5210 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
5211 GROUP_MA_BETON =SIMP(statut='o',typ=grma),
5212 DEFI_CABLE =FACT(statut='o',min=1,max='**',
5213 regles=(UN_PARMI('MAILLE','GROUP_MA'),
5214 UN_PARMI('NOEUD_ANCRAGE','GROUP_NO_ANCRAGE'),),
5215 MAILLE =SIMP(statut='f',typ=ma,min=2,max='**'),
5216 GROUP_MA =SIMP(statut='f',typ=grma),
5217 NOEUD_ANCRAGE =SIMP(statut='f',typ=no,max=2),
5218 GROUP_NO_ANCRAGE=SIMP(statut='f',typ=grno,max=2),
5219 TYPE_ANCRAGE =SIMP(statut='o',typ='TXM',min=2,max=2,
5220 into=("ACTIF","PASSIF") ),
5222 TENSION_INIT =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5223 RECUL_ANCRAGE =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5224 RELAXATION =FACT(statut='f',min=0,max=1,
5225 R_J =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5227 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
5229 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
5230 # CONFIGURATION MANAGEMENT OF EDF VERSION
5231 # ======================================================================
5232 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5233 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5234 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5235 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5236 # (AT YOUR OPTION) ANY LATER VERSION.
5238 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5239 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5240 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5241 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5243 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5244 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5245 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5246 # ======================================================================
5247 DEFI_CONSTANTE=OPER(nom="DEFI_CONSTANTE",op= 2,sd_prod=fonction,
5248 fr="Définition d une fonction constante",
5249 docu="U4.31.01-f",reentrant='n',
5250 NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
5251 VALE =SIMP(statut='o',typ='R',max=01 ),
5252 TITRE =SIMP(statut='f',typ='TXM',max='**'),
5254 #& MODIF COMMANDE DATE 16/01/2002 AUTEUR DURAND C.DURAND
5255 # CONFIGURATION MANAGEMENT OF EDF VERSION
5256 # ======================================================================
5257 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5258 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5259 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5260 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5261 # (AT YOUR OPTION) ANY LATER VERSION.
5263 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5264 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5265 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5266 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5268 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5269 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5270 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5271 # ======================================================================
5272 DEFI_COQU_MULT=OPER(nom="DEFI_COQU_MULT",op=56,sd_prod=mater,docu="U4.42.03-e",reentrant='n',
5273 fr="Définition d une coque composite couche par couche",
5274 COUCHE =FACT(statut='o',min=01,max='**',
5275 EPAIS =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5276 MATER =SIMP(statut='o',typ=(mater) ),
5277 ORIENTATION =SIMP(statut='f',typ='R',defaut= 0.E+0,
5278 val_min=-90.E+0,val_max=90.E+0 ),
5280 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
5281 IMPRESSION =FACT(statut='f',min=01,max=01,
5282 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
5283 into=("RESULTAT",) ),
5286 #& MODIF COMMANDE DATE 16/01/2002 AUTEUR DURAND C.DURAND
5287 # CONFIGURATION MANAGEMENT OF EDF VERSION
5288 # ======================================================================
5289 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5290 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5291 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5292 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5293 # (AT YOUR OPTION) ANY LATER VERSION.
5295 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5296 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5297 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5298 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5300 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5301 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5302 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5303 # ======================================================================
5304 DEFI_FLUI_STRU=OPER(nom="DEFI_FLUI_STRU",op= 143,sd_prod=type_flui_stru,
5305 docu="U4.25.01-d",reentrant='n',
5306 regles=( UN_PARMI('FAISCEAU_TRANS','GRAPPE','FAISCEAU_AXIAL','COQUE_COAX',),),
5307 FAISCEAU_TRANS =FACT(statut='f',min=01,max='**',
5308 COUPLAGE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
5309 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
5310 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
5311 PROF_RHO_F_INT =SIMP(statut='f',typ=fonction ),
5312 PROF_RHO_F_EXT =SIMP(statut='f',typ=fonction ),
5313 NOM_CMP =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ") ),
5314 COEF_MASS_AJOU =SIMP(statut='f',typ='R' ),
5315 TYPE_PAS =SIMP(statut='f',typ='TXM',into=("CARRE_LIGN","TRIA_LIGN") ),
5316 TYPE_RESEAU =SIMP(statut='f',typ='I' ),
5317 UNITE_CD =SIMP(statut='f',typ='I',defaut=70),
5318 UNITE_CK =SIMP(statut='f',typ='I',defaut=71),
5319 PAS =SIMP(statut='f',typ='R' ),
5321 GRAPPE =FACT(statut='f',min=00,max=01,
5322 regles=(ENSEMBLE('GRAPPE_2','NOEUD','CARA_ELEM','MODELE','RHO_FLUI',),
5323 PRESENT_PRESENT('COEF_MASS_AJOU','GRAPPE_2', ),),
5324 # peut on créer un bloc a partir de la valeur de couplage
5325 COUPLAGE =SIMP(statut='o',typ='TXM',into=("OUI","NON") ),
5326 GRAPPE_2 =SIMP(statut='f',typ='TXM',
5327 into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC") ),
5328 NOEUD =SIMP(statut='f',typ=no),
5329 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
5330 MODELE =SIMP(statut='f',typ=modele ),
5331 COEF_MASS_AJOU =SIMP(statut='f',typ='R' ),
5332 RHO_FLUI =SIMP(statut='f',typ='R' ),
5333 UNITE_CA =SIMP(statut='f',typ='I',defaut=70),
5334 UNITE_KA =SIMP(statut='f',typ='I',defaut=71),
5336 FAISCEAU_AXIAL =FACT(statut='f',min=01,max='**',
5337 regles=(UN_PARMI('GROUP_MA','TRI_GROUP_MA'),
5338 UN_PARMI('CARA_ELEM','RAYON_TUBE'),
5339 ENSEMBLE('RAYON_TUBE','COOR_TUBE'),
5340 PRESENT_ABSENT('RAYON_TUBE','TRI_GROUP_MA'),
5341 ENSEMBLE('CARA_PAROI','VALE_PAROI'),
5342 ENSEMBLE('LONG_TYPG','LARG_TYPG','EPAI_TYPG','RUGO_TYPG','COEF_TRAI_TYPG','COEF_DPOR_TYPG',
5343 'COOR_GRILLE','TYPE_GRILLE', ),),
5344 # on doit pouvoir mettre des blocs conditionnels mais pas assez d infos pour le faire
5345 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5346 TRI_GROUP_MA =SIMP(statut='f',typ='TXM' ),
5347 VECT_X =SIMP(statut='f',typ='R',max=03),
5348 PROF_RHO_FLUI =SIMP(statut='f',typ=fonction ),
5349 PROF_VISC_CINE =SIMP(statut='f',typ=fonction ),
5350 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
5351 RAYON_TUBE =SIMP(statut='f',typ='R' ),
5352 COOR_TUBE =SIMP(statut='f',typ='R',max='**'),
5353 PESANTEUR =SIMP(statut='f',typ='R',min=04,max=04),
5354 RUGO_TUBE =SIMP(statut='f',typ='R' ),
5355 CARA_PAROI =SIMP(statut='f',typ='TXM',max=05,
5356 into=("YC","ZC","R","HY","HZ") ),
5357 VALE_PAROI =SIMP(statut='f',typ='R',max=05),
5358 ANGL_VRIL =SIMP(statut='f',typ='R' ),
5359 LONG_TYPG =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5360 LARG_TYPG =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5361 EPAI_TYPG =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5362 RUGO_TYPG =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5363 COEF_TRAI_TYPG =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5364 COEF_DPOR_TYPG =SIMP(statut='f',typ='R',max='**'),
5365 COOR_GRILLE =SIMP(statut='f',typ='R',max='**'),
5366 TYPE_GRILLE =SIMP(statut='f',typ='I',max='**'),
5368 COQUE_COAX =FACT(statut='f',min=00,max=01,
5369 MASS_AJOU =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
5370 GROUP_MA_INT =SIMP(statut='o',typ=grma),
5371 GROUP_MA_EXT =SIMP(statut='o',typ=grma),
5372 VECT_X =SIMP(statut='o',typ='R',max='**'),
5373 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
5374 MATER_INT =SIMP(statut='o',typ=mater ),
5375 MATER_EXT =SIMP(statut='o',typ=mater ),
5376 RHO_FLUI =SIMP(statut='o',typ='R' ),
5377 VISC_CINE =SIMP(statut='o',typ='R' ),
5378 RUGOSITE =SIMP(statut='o',typ='R' ),
5379 PDC_MOY_1 =SIMP(statut='o',typ='R' ),
5380 PDC_DYN_1 =SIMP(statut='o',typ='R' ),
5381 PDC_MOY_2 =SIMP(statut='o',typ='R' ),
5382 PDC_DYN_2 =SIMP(statut='o',typ='R' ),
5384 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5386 #& MODIF COMMANDE DATE 23/01/2002 AUTEUR DURAND C.DURAND
5387 # CONFIGURATION MANAGEMENT OF EDF VERSION
5388 # ======================================================================
5389 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5390 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5391 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5392 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5393 # (AT YOUR OPTION) ANY LATER VERSION.
5395 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5396 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5397 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5398 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5400 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5401 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5402 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5403 # ======================================================================
5404 DEFI_FONC_ELEC=OPER(nom="DEFI_FONC_ELEC",op=64,sd_prod=fonction,docu="U4.MK.10-e",reentrant='n',
5405 fr="Définition d une fonction du temps pour calculer des forces de LAPLACE",
5406 regles=(UN_PARMI('COUR_PRIN','COUR'),
5407 EXCLUS('COUR','COUR_SECO'), ),
5408 FREQ =SIMP(statut='f',typ='R',defaut= 50.),
5409 SIGNAL =SIMP(statut='f',typ='TXM',defaut="COMPLET",into=("COMPLET","CONTINU") ),
5410 COUR =FACT(statut='f',min=1,max='**',
5411 fr="Définition du courant de court-circuit",
5412 regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),
5413 UN_PARMI('PHI_CC_2','INTC_CC_2'),),
5414 INTE_CC_1 =SIMP(statut='o',typ='R'),
5415 TAU_CC_1 =SIMP(statut='o',typ='R'),
5416 PHI_CC_1 =SIMP(statut='f',typ='R'),
5417 INTC_CC_1 =SIMP(statut='f',typ='R'),
5418 INTE_CC_2 =SIMP(statut='o',typ='R'),
5419 TAU_CC_2 =SIMP(statut='o',typ='R'),
5420 PHI_CC_2 =SIMP(statut='f',typ='R'),
5421 INTC_CC_2 =SIMP(statut='f',typ='R'),
5422 INST_CC_INIT =SIMP(statut='o',typ='R'),
5423 INST_CC_FIN =SIMP(statut='o',typ='R'),
5425 COUR_PRIN =FACT(statut='f',min=1,max=1,
5426 fr="Définition du courant de court-circuit avec réenclenchement",
5427 regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),),
5428 INTE_CC_1 =SIMP(statut='o',typ='R'),
5429 TAU_CC_1 =SIMP(statut='o',typ='R'),
5430 PHI_CC_1 =SIMP(statut='f',typ='R'),
5431 INTC_CC_1 =SIMP(statut='f',typ='R'),
5432 INTE_RENC_1 =SIMP(statut='f',typ='R'),
5433 TAU_RENC_1 =SIMP(statut='f',typ='R'),
5434 PHI_RENC_1 =SIMP(statut='f',typ='R'),
5435 INST_CC_INIT =SIMP(statut='o',typ='R'),
5436 INST_CC_FIN =SIMP(statut='o',typ='R'),
5437 INST_RENC_INIT =SIMP(statut='f',typ='R',defaut= 0.0E+0),
5438 INST_RENC_FIN =SIMP(statut='f',typ='R',defaut= 0.0E+0),
5440 COUR_SECO =FACT(statut='f',min=1,max='**',
5441 fr="Définition du courant de court-circuit avec un intervalle de temps différent de celui de COUR_PRIN",
5442 regles=(UN_PARMI('PHI_CC_2','INTC_CC_2'),),
5443 INTE_CC_2 =SIMP(statut='o',typ='R'),
5444 TAU_CC_2 =SIMP(statut='o',typ='R'),
5445 PHI_CC_2 =SIMP(statut='f',typ='R'),
5446 INTC_CC_2 =SIMP(statut='f',typ='R'),
5447 INTE_RENC_2 =SIMP(statut='f',typ='R'),
5448 TAU_RENC_2 =SIMP(statut='f',typ='R'),
5449 PHI_RENC_2 =SIMP(statut='f',typ='R'),
5450 DIST =SIMP(statut='f',typ='R',defaut=1.0E+0),
5452 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
5454 #& MODIF COMMANDE DATE 03/10/2001 AUTEUR DURAND C.DURAND
5455 # CONFIGURATION MANAGEMENT OF EDF VERSION
5456 # ======================================================================
5457 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5458 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5459 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5460 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5461 # (AT YOUR OPTION) ANY LATER VERSION.
5463 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5464 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5465 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5466 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5468 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5469 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5470 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5471 # ======================================================================
5472 DEFI_FONC_FLUI=OPER(nom="DEFI_FONC_FLUI",op= 142,sd_prod=fonction,
5473 docu="U4.35.01-c",reentrant='n',
5474 MAILLAGE =SIMP(statut='o',typ=(maillage) ),
5475 NOEUD_INIT =SIMP(statut='o',typ=no),
5476 NOEUD_FIN =SIMP(statut='o',typ=no),
5477 VITE =FACT(statut='o',min=1,max=1,
5478 VALE =SIMP(statut='f',typ='R',defaut= 1. ),
5479 PROFIL =SIMP(statut='o',typ='TXM',into=("UNIFORME","LEONARD") ),
5480 NB_BAV =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 2 , 3 ) ),
5482 INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",
5483 into=("NON","LIN","LOG") ),
5484 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",
5485 into=("CONSTANT","LINEAIRE","EXCLU") ),
5486 PROL_GAUCHE =SIMP(statut='f',typ='TXM' ,defaut="EXCLU",
5487 into=("CONSTANT","LINEAIRE","EXCLU") ),
5488 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
5489 TITRE =SIMP(statut='f',typ='TXM',max='**'),
5491 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
5492 # CONFIGURATION MANAGEMENT OF EDF VERSION
5493 # ======================================================================
5494 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5495 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5496 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5497 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5498 # (AT YOUR OPTION) ANY LATER VERSION.
5500 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5501 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5502 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5503 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5505 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5506 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5507 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5508 # ======================================================================
5509 # RESPONSABLE MCOURTOI M.COURTOIS
5510 def defi_fonction_prod(VALE,VALE_PARA,VALE_C,NOEUD_PARA,**args):
5511 if VALE != None : return fonction
5512 if VALE_C != None : return fonction_c
5513 if VALE_PARA != None : return fonction
5514 if NOEUD_PARA != None : return fonction
5515 raise AsException("type de concept resultat non prevu")
5517 DEFI_FONCTION=OPER(nom="DEFI_FONCTION",op=3,sd_prod=defi_fonction_prod
5518 ,fr="Définition des valeurs réelles ou complexes d une fonction réelle",
5519 docu="U4.31.02-g3",reentrant='n',
5520 regles=(UN_PARMI('VALE','VALE_C','VALE_PARA','NOEUD_PARA'),),
5521 NOM_PARA =SIMP(statut='o',typ='TXM',
5522 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
5523 "INST","X","Y","Z","EPSI","META","FREQ","PULS",
5524 "AMOR","ABSC","SIGM","HYDR","SECH","PORO","SAT",
5525 "PGAZ","PCAP","VITE") ),
5526 NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
5527 VALE =SIMP(statut='f',typ='R',min=2,max='**',
5528 fr ="Fonction réelle définie par une liste de couples (abscisse,ordonnée)"),
5529 VALE_C =SIMP(statut='f',typ='R',min=2,max='**',
5530 fr ="Fonction complexe définie par une liste de couples"),
5531 VALE_PARA =SIMP(statut='f',typ=listr8,
5532 fr ="Fonction réelle définie par deux concepts de type listr8" ),
5533 b_vale_para =BLOC(condition = "VALE_PARA != None",
5534 VALE_FONC =SIMP(statut='o',typ=listr8 ),
5536 NOEUD_PARA =SIMP(statut='f',typ=no,max='**',
5537 fr ="Fonction réelle définie par une liste de noeuds et un maillage"),
5538 b_noeud_para =BLOC(condition = "NOEUD_PARA != None",
5539 MAILLAGE =SIMP(statut='o',typ=maillage ),
5540 VALE_Y =SIMP(statut='o',typ='R',max='**'),
5543 INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
5544 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5545 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5546 VERIF =SIMP(statut='f',typ='TXM',defaut="CROISSANT",into=("CROISSANT","NON") ),
5547 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5548 TITRE =SIMP(statut='f',typ='TXM',max='**'),
5550 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
5551 # CONFIGURATION MANAGEMENT OF EDF VERSION
5552 # ======================================================================
5553 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5554 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5555 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5556 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5557 # (AT YOUR OPTION) ANY LATER VERSION.
5559 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5560 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5561 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5562 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5564 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5565 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5566 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5567 # ======================================================================
5568 DEFI_FOND_FISS=OPER(nom="DEFI_FOND_FISS",op=55,sd_prod=fond_fiss,docu="U4.82.01-e",reentrant='n',
5569 fr="Définition de lèvres et d un fond de fissure en 3D",
5570 regles=(UN_PARMI('FOND','FOND_FERME'),
5571 EXCLUS('FOND_FERME','DTAN_ORIG'),
5572 EXCLUS('FOND_FERME','DTAN_EXTR'),
5573 EXCLUS('FOND_FERME','VECT_GRNO_ORIG'),
5574 EXCLUS('FOND_FERME','VECT_GRNO_EXTR'),
5575 UN_PARMI('LEVRE_SUP','NORMALE'),
5576 EXCLUS('LEVRE_INF','NORMALE'),
5577 ENSEMBLE('DTAN_ORIG','DTAN_EXTR'),
5578 ENSEMBLE('VECT_GRNO_ORIG','VECT_GRNO_EXTR'),
5579 EXCLUS('DTAN_ORIG','VECT_GRNO_ORIG'),
5580 EXCLUS('DTAN_EXTR','VECT_GRNO_EXTR') ,),
5581 MAILLAGE =SIMP(statut='o',typ=maillage ),
5582 FOND =FACT(statut='f',min=01,max=01,
5583 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
5584 EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
5585 EXCLUS('NOEUD_EXTR','GROUP_NO_EXTR'),),
5586 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
5587 NOEUD =SIMP(statut='f',typ=no,max='**'),
5588 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5589 MAILLE =SIMP(statut='f',typ=ma,max='**'),
5590 # à mettre à jour le max vaut-il 1
5591 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
5592 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
5593 NOEUD_EXTR =SIMP(statut='f',typ=no,max=1),
5594 GROUP_NO_EXTR =SIMP(statut='f',typ=grno,max=1),
5596 FOND_FERME =FACT(statut='f',min=01,max=01,
5597 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
5598 EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),),
5599 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
5600 NOEUD =SIMP(statut='f',typ=no,max='**'),
5601 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5602 MAILLE =SIMP(statut='f',typ=ma,max='**'),
5603 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
5604 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
5605 MAILLE_ORIG =SIMP(statut='f',typ=ma,max=1),
5606 GROUP_MA_ORIG =SIMP(statut='f',typ=ma,max=1),
5608 LEVRE_SUP =FACT(statut='f',min=01,max=01,
5609 regles=(UN_PARMI('GROUP_MA','MAILLE'),),
5610 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5611 MAILLE =SIMP(statut='f',typ=ma,max='**'),
5613 LEVRE_INF =FACT(statut='f',min=01,max=01,
5614 regles=(UN_PARMI('GROUP_MA','MAILLE', ),),
5615 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5616 MAILLE =SIMP(statut='f',typ=ma,max='**'),
5618 NORMALE =SIMP(statut='f',typ='R',max='**'),
5619 DTAN_ORIG =SIMP(statut='f',typ='R',max='**'),
5620 DTAN_EXTR =SIMP(statut='f',typ='R',max='**'),
5621 VECT_GRNO_ORIG =SIMP(statut='f',typ=grno,max=2),
5622 VECT_GRNO_EXTR =SIMP(statut='f',typ=grno,max=2),
5623 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
5625 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
5626 # CONFIGURATION MANAGEMENT OF EDF VERSION
5627 # ======================================================================
5628 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5629 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5630 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5631 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5632 # (AT YOUR OPTION) ANY LATER VERSION.
5634 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5635 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5636 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5637 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5639 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5640 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5641 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5642 # ======================================================================
5643 # RESPONSABLE VABHHTS J.PELLET
5644 def defi_group_prod(MAILLAGE,**args):
5645 if AsType(MAILLAGE) == maillage : return maillage
5646 if AsType(MAILLAGE) == squelette : return squelette
5647 raise AsException("type de concept resultat non prevu")
5649 DEFI_GROUP=OPER(nom="DEFI_GROUP",op= 104,sd_prod=defi_group_prod,
5650 fr="Définition de nouveaux groupes de noeuds et/ou de mailles dans un concept maillage",
5651 docu="U4.22.01-f1",reentrant='o',
5652 regles=(AU_MOINS_UN('CREA_GROUP_MA','CREA_GROUP_NO'),),
5653 MAILLAGE =SIMP(statut='o',typ=(maillage,squelette) ),
5655 CREA_GROUP_MA =FACT(statut='f',min=01,max='**',
5656 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','INTERSEC','UNION','DIFFE','OPTION'),),
5657 # quel est le concept attendu deriere NOM
5658 NOM =SIMP(statut='o',typ=grma),
5659 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5660 GROUP_MA =SIMP(statut='f',typ=grma),
5661 MAILLE =SIMP(statut='f',typ=ma,max='**'),
5662 INTERSEC =SIMP(statut='f',typ=grma,max='**'),
5663 UNION =SIMP(statut='f',typ=grma,max='**'),
5664 DIFFE =SIMP(statut='f',typ=grma,max='**'),
5665 OPTION =SIMP(statut='f',typ='TXM',into=("FACE_NORMALE","SPHERE","CYLINDRE","BANDE") ),
5666 b_group_ma =BLOC(condition = "GROUP_MA != None",
5667 regles=(EXCLUS('POSITION','NUME_INIT'),),
5668 NUME_INIT =SIMP(statut='f',typ='I',defaut= 1 ),
5669 POSITION =SIMP(statut='f',typ='TXM',into=("INIT","FIN","MILIEU") ),
5670 b_nume_init =BLOC(condition = "NUME_INIT != None",
5671 NUME_FIN =SIMP(statut='f',typ='I' ),
5674 b_face_normale =BLOC(condition = "OPTION == 'FACE_NORMALE'",
5675 regles=(UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5676 ANGL_NAUT =SIMP(statut='f',typ='R',max=02),
5677 VECT_NORMALE =SIMP(statut='f',typ='R',max=03),
5678 ANGL_PREC =SIMP(statut='f',typ='R',defaut= 0.5 ),
5679 VERI_SIGNE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
5681 b_sphere =BLOC(condition = "OPTION == 'SPHERE'",
5682 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),),
5683 POINT =SIMP(statut='f',typ='R',max=03),
5684 NOEUD_CENTRE =SIMP(statut='f',typ=no),
5685 RAYON =SIMP(statut='o',typ='R' ),
5687 b_cylindre =BLOC(condition = "OPTION == 'CYLINDRE'",
5688 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5689 UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5690 POINT =SIMP(statut='f',typ='R',max=03),
5691 NOEUD_CENTRE =SIMP(statut='f',typ=no),
5692 RAYON =SIMP(statut='o',typ='R' ),
5693 ANGL_NAUT =SIMP(statut='f',typ='R',max=02),
5694 VECT_NORMALE =SIMP(statut='f',typ='R',max=03),
5696 b_bande =BLOC(condition = "OPTION == 'BANDE'",
5697 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5698 UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5699 POINT =SIMP(statut='f',typ='R',max=03),
5700 NOEUD_CENTRE =SIMP(statut='f',typ=no),
5701 DIST =SIMP(statut='o',typ='R' ),
5702 ANGL_NAUT =SIMP(statut='f',typ='R',max=02),
5703 VECT_NORMALE =SIMP(statut='f',typ='R',max=03),
5706 CREA_GROUP_NO =FACT(statut='f',min=01,max='**',
5708 AU_MOINS_UN ('TOUT_GROUP_MA','GROUP_MA','NOEUD',
5709 'INTERSEC','UNION','DIFFE','GROUP_NO','OPTION'),
5710 EXCLUS ('TOUT_GROUP_MA','GROUP_MA','NOEUD','INTERSEC','UNION','DIFFE'),),
5711 TOUT_GROUP_MA =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5712 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5714 NOEUD =SIMP(statut='f',typ=no,max='**'),
5715 INTERSEC =SIMP(statut='f',typ=grno,max='**'),
5716 UNION =SIMP(statut='f',typ=grno,max='**'),
5717 DIFFE =SIMP(statut='f',typ=grno,max='**'),
5718 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
5719 OPTION =SIMP(statut='f',typ='TXM',into=("ENV_SPHERE","ENV_CYLINDRE","PLAN",
5720 "SEGM_DROI_ORDO","NOEUD_ORDO") ),
5721 b_nom_group_ma =BLOC(condition = "GROUP_MA != None",
5722 NOM =SIMP(statut='f',typ=grma,max='**'),
5724 b_crit_noeud = BLOC(condition = "GROUP_MA != None",
5725 CRIT_NOEUD = SIMP(statut='f',typ='TXM',defaut="TOUS",
5726 into=("TOUS","SOMMET","MILIEU","CENTRE"),),),
5727 b_nom =BLOC(condition = "GROUP_MA == None and TOUT_GROUP_MA == None" ,
5728 NOM =SIMP(statut='o',typ=geom),
5730 b_group_no =BLOC(condition = "GROUP_NO != None",
5731 regles=(EXCLUS('POSITION','NUME_INIT'),),
5732 NUME_INIT =SIMP(statut='f',typ='I',defaut= 1 ),
5733 POSITION =SIMP(statut='f',typ='TXM',into=("INIT","FIN","MILIEU") ),
5734 b_nume_init =BLOC(condition = "NUME_INIT != None",
5735 NUME_FIN =SIMP(statut='f',typ='I' ),
5738 b_env_sphere =BLOC(condition = "OPTION == 'ENV_SPHERE'",
5739 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),),
5740 POINT =SIMP(statut='f',typ='R',max=03),
5741 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=01),
5742 RAYON =SIMP(statut='o',typ='R' ),
5743 PRECISION =SIMP(statut='f',typ='R' ),
5744 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5746 b_env_cylindre =BLOC(condition = "OPTION == 'ENV_CYLINDRE'",
5747 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5748 UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5749 POINT =SIMP(statut='f',typ='R',max=03),
5750 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=01),
5751 RAYON =SIMP(statut='o',typ='R' ),
5752 ANGL_NAUT =SIMP(statut='f',typ='R',max=03),
5753 VECT_NORMALE =SIMP(statut='f',typ='R',max=03),
5754 PRECISION =SIMP(statut='f',typ='R' ),
5755 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5757 b_env_plan =BLOC(condition = "OPTION == 'PLAN'",
5758 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5759 UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5760 POINT =SIMP(statut='f',typ='R',max=03),
5761 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=01),
5762 ANGL_NAUT =SIMP(statut='f',typ='R',max=03),
5763 VECT_NORMALE =SIMP(statut='f',typ='R',max=03),
5764 PRECISION =SIMP(statut='f',typ='R' ),
5765 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5767 b_segm_droi_ordo=BLOC(condition = "OPTION == 'SEGM_DROI_ORDO'",
5768 regles=(UN_PARMI('NOEUD_ORIG','GROUP_NO_ORIG'),
5769 UN_PARMI('NOEUD_EXTR','GROUP_NO_EXTR'),),
5770 NOEUD_ORIG =SIMP(statut='f',typ=no),
5771 GROUP_NO_ORIG =SIMP(statut='f',typ=grno),
5772 NOEUD_EXTR =SIMP(statut='f',typ=no),
5773 GROUP_NO_EXTR =SIMP(statut='f',typ=grno),
5774 PRECISION =SIMP(statut='f',typ='R' ),
5775 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5777 b_noeud_ordo =BLOC(condition = "OPTION == 'NOEUD_ORDO'",
5778 regles=(UN_PARMI('NOEUD_ORIG','GROUP_NO_ORIG'),
5779 UN_PARMI('NOEUD_EXTR','GROUP_NO_EXTR'),),
5780 NOEUD_ORIG =SIMP(statut='f',typ=no),
5781 GROUP_NO_ORIG =SIMP(statut='f',typ=grno),
5782 NOEUD_EXTR =SIMP(statut='f',typ=no),
5783 GROUP_NO_EXTR =SIMP(statut='f',typ=grno),
5784 PRECISION =SIMP(statut='f',typ='R' ),
5785 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5788 INFO =SIMP(statut='f',typ='I',into=( 1 , 2 ) ),
5790 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
5791 # CONFIGURATION MANAGEMENT OF EDF VERSION
5792 # ======================================================================
5793 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5794 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5795 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5796 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5797 # (AT YOUR OPTION) ANY LATER VERSION.
5799 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5800 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5801 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5802 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5804 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5805 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5806 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5807 # ======================================================================
5808 DEFI_INTE_SPEC=OPER(nom="DEFI_INTE_SPEC",op= 115,sd_prod=tabl_intsp,
5809 docu="U4.36.02-f2",reentrant='n',
5811 DIMENSION =SIMP(statut='f',typ='I',defaut= 1 ),
5813 PAR_FONCTION =FACT(statut='f',min=1,max='**',
5814 NUME_ORDRE_I =SIMP(statut='o',typ='I' ),
5815 NUME_ORDRE_J =SIMP(statut='o',typ='I' ),
5816 FONCTION =SIMP(statut='o',typ=fonction_c ),
5818 KANAI_TAJIMI =FACT(statut='f',min=1,max='**',
5819 regles=(EXCLUS('VALE_R','VALE_C'),),
5820 NUME_ORDRE_I =SIMP(statut='o',typ='I' ),
5821 NUME_ORDRE_J =SIMP(statut='o',typ='I' ),
5822 FREQ_MIN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5823 FREQ_MAX =SIMP(statut='f',typ='R',defaut= 100. ),
5824 PAS =SIMP(statut='f',typ='R',defaut= 1. ),
5825 AMOR_REDUIT =SIMP(statut='f',typ='R',defaut= 0.6 ),
5826 FREQ_MOY =SIMP(statut='f',typ='R',defaut= 5. ),
5827 VALE_R =SIMP(statut='f',typ='R' ),
5828 VALE_C =SIMP(statut='f',typ='C' ),
5829 INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
5830 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5831 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5833 CONSTANT =FACT(statut='f',min=1,max='**',
5834 regles=(EXCLUS('VALE_R','VALE_C'),),
5835 NUME_ORDRE_I =SIMP(statut='o',typ='I' ),
5836 NUME_ORDRE_J =SIMP(statut='o',typ='I' ),
5837 FREQ_MIN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5838 FREQ_MAX =SIMP(statut='f',typ='R',defaut= 100. ),
5839 PAS =SIMP(statut='f',typ='R',defaut= 1. ),
5840 VALE_R =SIMP(statut='f',typ='R' ),
5841 VALE_C =SIMP(statut='f',typ='C' ),
5842 INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
5843 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5844 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5846 TITRE =SIMP(statut='f',typ='TXM',max='**'),
5847 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5849 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
5850 # CONFIGURATION MANAGEMENT OF EDF VERSION
5851 # ======================================================================
5852 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5853 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5854 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5855 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5856 # (AT YOUR OPTION) ANY LATER VERSION.
5858 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5859 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5860 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5861 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5863 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5864 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5865 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5866 # ======================================================================
5867 DEFI_INTERF_DYNA=OPER(nom="DEFI_INTERF_DYNA",op= 98,sd_prod=interf_dyna_clas,
5868 docu="U4.64.01-e",reentrant='n',
5869 NUME_DDL =SIMP(statut='o',typ=nume_ddl ),
5870 INTERFACE =FACT(statut='o',min=01,max='**',
5871 regles=(ENSEMBLE('NOM','TYPE'),
5872 # erreur doc U sur la condition qui suit
5873 UN_PARMI('NOEUD','GROUP_NO'),),
5874 NOM =SIMP(statut='f',typ='TXM' ),
5875 TYPE =SIMP(statut='f',typ='TXM',into=("MNEAL","CRAIGB","CB_HARMO","AUCUN") ),
5876 NOEUD =SIMP(statut='f',typ=no,max='**'),
5877 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
5878 DDL_ACTIF =SIMP(statut='f',typ='TXM',max='**'),
5879 MASQUE =SIMP(statut='f',typ='TXM',max='**'),
5881 FREQ =SIMP(statut='f',typ='R',defaut= 1.),
5882 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5884 #& MODIF COMMANDE DATE 16/01/2002 AUTEUR DURAND C.DURAND
5885 # CONFIGURATION MANAGEMENT OF EDF VERSION
5886 # ======================================================================
5887 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5888 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5889 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5890 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5891 # (AT YOUR OPTION) ANY LATER VERSION.
5893 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5894 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5895 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5896 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5898 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5899 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5900 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5901 # ======================================================================
5902 # RESPONSABLE VABHHTS J.PELLET
5903 DEFI_LIST_ENTI=OPER(nom="DEFI_LIST_ENTI",op=22,sd_prod=listis,
5904 fr="Définition d une suite croissante d entiers",
5905 docu="U4.34.02-f",reentrant='n',
5906 regles=(UN_PARMI('VALE','DEBUT'),
5907 EXCLUS('VALE','INTERVALLE'),),
5908 VALE =SIMP(statut='f',typ='I',max='**'),
5909 DEBUT =SIMP(statut='f',typ='I'),
5910 INTERVALLE =FACT(statut='f',min=01,max='**',
5911 regles=(UN_PARMI('NOMBRE','PAS'),),
5912 JUSQU_A =SIMP(statut='o',typ='I'),
5913 NOMBRE =SIMP(statut='f',typ='I',val_min=1,),
5914 PAS =SIMP(statut='f',typ='I',val_min=1,),
5916 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
5917 TITRE =SIMP(statut='f',typ='TXM',max='**'),
5919 #& MODIF COMMANDE DATE 06/03/2002 AUTEUR MCOURTOI M.COURTOIS
5920 # CONFIGURATION MANAGEMENT OF EDF VERSION
5921 # ======================================================================
5922 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5923 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5924 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5925 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5926 # (AT YOUR OPTION) ANY LATER VERSION.
5928 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5929 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5930 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5931 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5933 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5934 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5935 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5936 # ======================================================================
5937 # RESPONSABLE VABHHTS J.PELLET
5938 DEFI_LIST_REEL=OPER(nom="DEFI_LIST_REEL",op=24,sd_prod=listr8,
5939 fr="Définition d une suite croissante de réels",
5940 docu="U4.34.01-g1",reentrant='n',
5941 regles=(UN_PARMI('VALE','DEBUT',),
5942 EXCLUS('VALE','INTERVALLE'),
5943 ENSEMBLE('DEBUT','INTERVALLE')),
5944 VALE =SIMP(statut='f',typ='R',max='**'),
5945 DEBUT =SIMP(statut='f',typ='R'),
5946 INTERVALLE =FACT(statut='f',min=01,max='**',
5947 regles=(UN_PARMI('NOMBRE','PAS'),),
5948 JUSQU_A =SIMP(statut='o',typ='R'),
5949 NOMBRE =SIMP(statut='f',typ='I'),
5950 PAS =SIMP(statut='f',typ='R'),
5952 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
5953 TITRE =SIMP(statut='f',typ='TXM',max='**'),
5955 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
5956 # CONFIGURATION MANAGEMENT OF EDF VERSION
5957 # ======================================================================
5958 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5959 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5960 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5961 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5962 # (AT YOUR OPTION) ANY LATER VERSION.
5964 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5965 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5966 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5967 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5969 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5970 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5971 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5972 # ======================================================================
5973 # RESPONSABLE VABHHTS J.PELLET
5974 DEFI_MAILLAGE=OPER(nom="DEFI_MAILLAGE",op= 88,sd_prod=maillage,
5975 fr="Définition d un nouveau maillage à partir de macro éléments",
5976 docu="U4.23.01-e",reentrant='n',
5977 DEFI_MAILLE =FACT(statut='o',min=01,max='**',
5978 MACR_ELEM_STAT =SIMP(statut='o',typ=macr_elem_stat,max='**' ),
5979 MAILLE =SIMP(statut='f',typ=ma,max='**'),
5980 TRAN =SIMP(statut='f',typ='R',max=03),
5981 ANGL_NAUT =SIMP(statut='f',typ='R',max=03),
5982 b_angl_naut =BLOC(condition = "ANGL_NAUT != None",
5983 CENTRE =SIMP(statut='f',typ='R',max=03),
5986 RECO_GLOBAL =FACT(statut='f',min=01,max='**',
5987 regles=(UN_PARMI('TOUT','MAILLE'),),
5988 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5989 MAILLE =SIMP(statut='f',typ=ma,max='**'),
5990 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5991 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
5993 RECO_MAILLE =FACT(statut='f',min=01,max='**',
5994 MAILLE =SIMP(statut='o',typ=ma,max='**'),
5995 GROUP_NO =SIMP(statut='o',typ=grno,max='**'),
5996 OPTION =SIMP(statut='f',typ='TXM',defaut="GEOMETRIQUE",into=("GEOMETRIQUE","NOEUD_A_NOEUD","INVERSE") ),
5997 geometrique =BLOC(condition = "OPTION == 'GEOMETRIQUE'",
5998 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5999 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
6002 DEFI_NOEUD =FACT(statut='f',min=01,max='**',
6003 regles=(UN_PARMI('TOUT','NOEUD_INIT'),),
6004 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",),
6005 fr="Renommage de tous les noeuds" ),
6006 NOEUD_INIT =SIMP(statut='f',typ=no,
6007 fr="Renommage d un seul noeud"),
6008 b_tout =BLOC(condition = "TOUT != None",
6009 PREFIXE =SIMP(statut='f',typ='TXM' ),
6010 INDEX =SIMP(statut='o',typ='I',max='**'),
6012 b_noeud_init =BLOC(condition = "NOEUD_INIT != None",
6013 MAILLE =SIMP(statut='o',typ=ma),
6014 NOEUD_FIN =SIMP(statut='o',typ=no),
6017 DEFI_GROUP_NO =FACT(statut='f',min=01,max='**',
6018 regles=(UN_PARMI('TOUT','MAILLE'),
6019 AU_MOINS_UN('INDEX','GROUP_NO_FIN'),
6020 ENSEMBLE('GROUP_NO_INIT','GROUP_NO_FIN'),),
6021 # la regle ancien catalogue AU_MOINS_UN__: ( INDEX , GROUP_NO_FIN ) incoherente avec doc U
6022 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",),
6023 fr="Création de plusieurs groupes de noeuds" ),
6024 MAILLE =SIMP(statut='f',typ=ma,
6025 fr="Création de plusieurs groupes de noeuds"),
6026 GROUP_NO_INIT =SIMP(statut='f',typ=grno,
6027 fr="Création d un seul groupe de noeuds"),
6028 PREFIXE =SIMP(statut='f',typ='TXM' ),
6029 INDEX =SIMP(statut='f',typ='I',max='**'),
6030 GROUP_NO_FIN =SIMP(statut='f',typ=grno),
6033 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
6034 # CONFIGURATION MANAGEMENT OF EDF VERSION
6035 # ======================================================================
6036 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
6037 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6038 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6039 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6040 # (AT YOUR OPTION) ANY LATER VERSION.
6042 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6043 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6044 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6045 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6047 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6048 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6049 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6050 # ======================================================================
6051 DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater,
6052 fr="Définition des paramètres décrivant le comportement d un matériau",
6053 docu="U4.43.01-g4",reentrant='n',
6054 regles=(EXCLUS('ELAS','ELAS_FO','ELAS_FLUI','ELAS_ISTR','ELAS_ISTR_FO','ELAS_ORTH',
6055 'ELAS_ORTH_FO','ELAS_COQUE','ELAS_COQUE_FO',
6056 'SURF_ETAT_SATU','CAM_CLAY_THM','SURF_ETAT_NSAT'),
6057 EXCLUS('THER','THER_FO','THER_ORTH','THER_NL'),
6058 EXCLUS('ECRO_LINE','ECRO_LINE_FO'),
6059 EXCLUS('TAHERI','TAHERI_FO'),
6060 EXCLUS('ROUSSELIER','ROUSSELIER_FO'),
6061 PRESENT_PRESENT('ROUSSELIER','TRACTION'),
6062 PRESENT_PRESENT('ROUSSELIER_FO','TRACTION'),
6063 EXCLUS('CIN1_CHAB','CIN1_CHAB_FO'),
6064 EXCLUS('CIN2_CHAB','CIN2_CHAB_FO'),
6065 EXCLUS('VISCOCHAB','VISCOCHAB_FO'),
6066 EXCLUS('POLY_CFC','POLY_CFC_FO'),
6067 EXCLUS('LEMAITRE','LEMAITRE_FO','ZIRC_CYRA2','ZIRC_EPRI'),
6068 EXCLUS('OHNO','OHNO_FO'),
6069 EXCLUS('LMARC','LMARC_FO'),
6070 EXCLUS('VMIS_POUTRE','VMIS_POUTRE_FO'),
6071 EXCLUS('VENDOCHAB','VENDOCHAB_FO'),
6072 PRESENT_PRESENT('BPEL_BETON','ELAS'),
6073 PRESENT_PRESENT('BPEL_ACIER','ELAS'),
6074 EXCLUS('RCCM','RCCM_FO'),
6075 EXCLUS('WEIBULL','WEIBULL_FO'),
6076 PRESENT_PRESENT('CAM_CLAY','ELAS'),
6077 PRESENT_PRESENT('LAIGLE','ELAS'),
6078 PRESENT_PRESENT('MAZARS','ELAS'),
6079 PRESENT_PRESENT('GRANGER_FD','ELAS_FO'),
6083 # comportement élastique
6085 ELAS =FACT(statut='f',min=0,max=1,
6086 E =SIMP(statut='o',typ='R',val_min=0.E+0),
6087 NU =SIMP(statut='o',typ='R',val_min=-1.E+0,val_max=0.5E+0),
6088 RHO =SIMP(statut='f',typ='R'),
6089 ALPHA =SIMP(statut='f',typ='R'),
6090 AMOR_ALPHA =SIMP(statut='f',typ='R'),
6091 AMOR_BETA =SIMP(statut='f',typ='R'),
6092 AMOR_HYST =SIMP(statut='f',typ='R'),
6094 ELAS_FO =FACT(statut='f',min=0,max=1,
6095 regles=(PRESENT_PRESENT('ALPHA','TEMP_DEF_ALPHA'),),
6096 E =SIMP(statut='o',typ=fonction),
6097 NU =SIMP(statut='o',typ=fonction),
6098 RHO =SIMP(statut='f',typ='R'),
6099 TEMP_DEF_ALPHA =SIMP(statut='f',typ='R'),
6100 PRECISION =SIMP(statut='f',typ='R',defaut= 1.),
6101 ALPHA =SIMP(statut='f',typ=fonction),
6102 AMOR_ALPHA =SIMP(statut='f',typ=fonction),
6103 AMOR_BETA =SIMP(statut='f',typ=fonction),
6104 AMOR_HYST =SIMP(statut='f',typ=fonction),
6105 K_DESSIC =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6106 B_ENDOGE =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6107 FONC_DESORP =SIMP(statut='f',typ=fonction),
6108 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
6109 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="INST",into=("TEMP","INST",) ),
6110 VERI_P3 =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
6111 VERI_P4 =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
6113 ELAS_FLUI =FACT(statut='f',min=0,max=1,
6114 E =SIMP(statut='o',typ='R'),
6115 NU =SIMP(statut='o',typ='R'),
6116 RHO =SIMP(statut='o',typ='R'),
6117 PROF_RHO_F_INT =SIMP(statut='o',typ=fonction),
6118 PROF_RHO_F_EXT =SIMP(statut='o',typ=fonction),
6119 COEF_MASS_AJOU =SIMP(statut='o',typ=fonction),
6120 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="ABSC",into=("ABSC",) ),
6122 ELAS_ISTR =FACT(statut='f',min=0,max=1,
6123 E_L =SIMP(statut='o',typ='R'),
6124 E_N =SIMP(statut='o',typ='R'),
6125 NU_LT =SIMP(statut='o',typ='R'),
6126 NU_LN =SIMP(statut='o',typ='R'),
6127 G_LN =SIMP(statut='o',typ='R'),
6128 RHO =SIMP(statut='f',typ='R'),
6129 ALPHA_L =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6130 ALPHA_N =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6132 ELAS_ISTR_FO =FACT(statut='f',min=0,max=1,
6134 PRESENT_PRESENT('ALPHA_L','TEMP_DEF_ALPHA'),
6135 PRESENT_PRESENT('ALPHA_N','TEMP_DEF_ALPHA'),
6137 E_L =SIMP(statut='o',typ=fonction),
6138 E_N =SIMP(statut='o',typ=fonction),
6139 NU_LT =SIMP(statut='o',typ=fonction),
6140 NU_LN =SIMP(statut='o',typ=fonction),
6141 G_LN =SIMP(statut='o',typ=fonction),
6142 RHO =SIMP(statut='f',typ='R'),
6143 TEMP_DEF_ALPHA =SIMP(statut='f',typ='R'),
6144 PRECISION =SIMP(statut='f',typ='R',defaut= 1.),
6145 ALPHA_L =SIMP(statut='f',typ=fonction),
6146 ALPHA_N =SIMP(statut='f',typ=fonction),
6147 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST")),
6149 ELAS_ORTH =FACT(statut='f',min=0,max=1,
6150 E_L =SIMP(statut='o',typ='R'),
6151 E_T =SIMP(statut='o',typ='R'),
6152 E_N =SIMP(statut='f',typ='R'),
6153 NU_LT =SIMP(statut='o',typ='R'),
6154 NU_LN =SIMP(statut='f',typ='R'),
6155 NU_TN =SIMP(statut='f',typ='R'),
6156 G_LT =SIMP(statut='o',typ='R'),
6157 G_LN =SIMP(statut='f',typ='R'),
6158 G_TN =SIMP(statut='f',typ='R'),
6159 RHO =SIMP(statut='f',typ='R'),
6160 ALPHA_L =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6161 ALPHA_T =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6162 ALPHA_N =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6163 XT =SIMP(statut='f',typ='R',defaut= 1. ),
6164 XC =SIMP(statut='f',typ='R',defaut= 1. ),
6165 YT =SIMP(statut='f',typ='R',defaut= 1. ),
6166 YC =SIMP(statut='f',typ='R',defaut= 1. ),
6167 S_LT =SIMP(statut='f',typ='R',defaut= 1. ),
6169 ELAS_ORTH_FO =FACT(statut='f',min=0,max=1,
6171 PRESENT_PRESENT('ALPHA_L','TEMP_DEF_ALPHA'),
6172 PRESENT_PRESENT('ALPHA_N','TEMP_DEF_ALPHA'),
6173 PRESENT_PRESENT('ALPHA_T','TEMP_DEF_ALPHA'),
6175 E_L =SIMP(statut='o',typ=fonction),
6176 E_T =SIMP(statut='o',typ=fonction),
6177 E_N =SIMP(statut='o',typ=fonction),
6178 NU_LT =SIMP(statut='o',typ=fonction),
6179 NU_LN =SIMP(statut='o',typ=fonction),
6180 NU_TN =SIMP(statut='o',typ=fonction),
6181 G_LT =SIMP(statut='o',typ=fonction),
6182 G_LN =SIMP(statut='o',typ=fonction),
6183 G_TN =SIMP(statut='o',typ=fonction),
6184 RHO =SIMP(statut='f',typ='R'),
6185 TEMP_DEF_ALPHA =SIMP(statut='f',typ='R'),
6186 PRECISION =SIMP(statut='f',typ='R',defaut= 1. ),
6187 ALPHA_L =SIMP(statut='f',typ=fonction),
6188 ALPHA_T =SIMP(statut='f',typ=fonction),
6189 ALPHA_N =SIMP(statut='f',typ=fonction),
6190 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
6192 ELAS_THM =FACT(statut='f',min=0,max=1,
6193 RHO_S =SIMP(statut='o',typ='R'),
6194 UN_SUR_KS =SIMP(statut='o',typ='R'),
6195 E =SIMP(statut='f',typ='R'),
6196 KB =SIMP(statut='f',typ='R'),
6197 D_KB_T =SIMP(statut='f',typ='R'),
6198 ALPHA_S =SIMP(statut='f',typ='R'),
6199 ALPHA_D =SIMP(statut='f',typ='R'),
6201 SURF_ETAT_SATU =FACT(statut='f',min=0,max=1,
6202 E_CHAR =SIMP(statut='o',typ='R'),
6203 E_DECHAR =SIMP(statut='o',typ='R'),
6204 XN =SIMP(statut='f',typ='R'),
6205 RF =SIMP(statut='f',typ='R'),
6206 EV_KB =SIMP(statut='f',typ='R'),
6207 EV_XM =SIMP(statut='f',typ='R'),
6208 D_E_T =SIMP(statut='f',typ='R'),
6209 ALPHA0 =SIMP(statut='f',typ='R'),
6210 ALPHA1 =SIMP(statut='f',typ='R'),
6211 ALPHA2 =SIMP(statut='f',typ='R'),
6212 ALPHA3 =SIMP(statut='f',typ='R'),
6213 ALPHA_S =SIMP(statut='f',typ='R'),
6214 ANG_FRT =SIMP(statut='o',typ='R'),
6215 COHE =SIMP(statut='o',typ='R'),
6216 RESI_TRAC =SIMP(statut='o',typ='R'),
6218 CAM_CLAY_THM =FACT(statut='f',min=0,max=1,
6219 NU =SIMP(statut='f',typ='R'),
6220 LAMBDA =SIMP(statut='o',typ='R'),
6221 KAPA =SIMP(statut='o',typ='R'),
6222 M =SIMP(statut='f',typ='R'),
6223 PRES_CRIT =SIMP(statut='f',typ='R'),
6224 GAMA =SIMP(statut='o',typ='R'),
6225 A0_PC =SIMP(statut='o',typ='R'),
6226 A1_PC =SIMP(statut='f',typ='R'),
6227 A2_PC =SIMP(statut='f',typ='R'),
6228 ALPHA0_PC =SIMP(statut='f',typ='R'),
6229 ALPHA1_PC =SIMP(statut='f',typ='R'),
6230 ALPHA2_PC =SIMP(statut='f',typ='R'),
6231 ALPHA3_PC =SIMP(statut='f',typ='R'),
6232 ALPHA_S =SIMP(statut='f',typ='R'),
6234 SURF_ETAT_NSAT =FACT(statut='f',min=0,max=1,
6235 E_CHAR =SIMP(statut='o',typ='R'),
6236 E_DECHAR =SIMP(statut='o',typ='R'),
6237 XN =SIMP(statut='f',typ='R'),
6238 RF =SIMP(statut='f',typ='R'),
6239 EV_KB =SIMP(statut='f',typ='R'),
6240 EV_XM =SIMP(statut='f',typ='R'),
6241 EV_A =SIMP(statut='f',typ='R'),
6242 EV_B =SIMP(statut='f',typ='R'),
6243 EV_CT =SIMP(statut='f',typ='R'),
6244 EV_SIGB =SIMP(statut='f',typ='R'),
6245 D_E_T =SIMP(statut='f',typ='R'),
6246 D_E_SUCC =SIMP(statut='f',typ='R'),
6247 ANG_FRT =SIMP(statut='o',typ='R'),
6248 COHE =SIMP(statut='o',typ='R'),
6249 D_COEH_SUCC =SIMP(statut='f',typ='R'),
6250 ANG_FRT_ULT =SIMP(statut='f',typ='R'),
6251 SUCC_ULTM =SIMP(statut='f',typ='R'),
6252 RESI_TRAC =SIMP(statut='f',typ='R'),
6253 A_SURF_SATU =SIMP(statut='f',typ='R'),
6254 B_SURF_SATU =SIMP(statut='f',typ='R'),
6255 C_SURF_SATU =SIMP(statut='f',typ='R'),
6256 D_SURF_SATU =SIMP(statut='f',typ='R'),
6258 ELAS_COQUE =FACT(statut='f',min=0,max=1,
6259 regles=(EXCLUS('MEMB_L','M_LLLL',),
6260 PRESENT_PRESENT('MEMB_L','MEMB_LT', 'MEMB_T','MEMB_G_LT','FLEX_L','FLEX_LT',
6261 'FLEX_T','FLEX_G_LT','CISA_L','CISA_T',),
6262 PRESENT_PRESENT('M_LLLL','M_LLTT','M_LLLT','M_TTTT','M_TTLT','M_LTLT','F_LLLL',
6263 'F_LLTT','F_LLLT','F_TTTT','F_TTLT','F_LTLT','MF_LLLL',
6264 'MF_LLTT','MF_LLLT','MF_TTTT','MF_TTLT','MF_LTLT','MC_LLLZ',
6265 'MC_LLTZ','MC_TTLZ','MC_TTTZ','MC_LTLZ','MC_LTTZ','FC_LLLZ',
6266 'FC_LLTZ','FC_TTLZ','FC_TTTZ','FC_LTLZ','FC_LTTZ','C_LZLZ',
6267 'C_LZTZ','C_TZTZ'),),
6268 MEMB_L =SIMP(statut='f',typ='R'),
6269 MEMB_LT =SIMP(statut='f',typ='R'),
6270 MEMB_T =SIMP(statut='f',typ='R'),
6271 MEMB_G_LT =SIMP(statut='f',typ='R'),
6272 FLEX_L =SIMP(statut='f',typ='R'),
6273 FLEX_LT =SIMP(statut='f',typ='R'),
6274 FLEX_T =SIMP(statut='f',typ='R'),
6275 FLEX_G_LT =SIMP(statut='f',typ='R'),
6276 CISA_L =SIMP(statut='f',typ='R'),
6277 CISA_T =SIMP(statut='f',typ='R'),
6278 M_LLLL =SIMP(statut='f',typ='R'),
6279 M_LLTT =SIMP(statut='f',typ='R'),
6280 M_LLLT =SIMP(statut='f',typ='R'),
6281 M_TTTT =SIMP(statut='f',typ='R'),
6282 M_TTLT =SIMP(statut='f',typ='R'),
6283 M_LTLT =SIMP(statut='f',typ='R'),
6284 F_LLLL =SIMP(statut='f',typ='R'),
6285 F_LLTT =SIMP(statut='f',typ='R'),
6286 F_LLLT =SIMP(statut='f',typ='R'),
6287 F_TTTT =SIMP(statut='f',typ='R'),
6288 F_TTLT =SIMP(statut='f',typ='R'),
6289 F_LTLT =SIMP(statut='f',typ='R'),
6290 MF_LLLL =SIMP(statut='f',typ='R'),
6291 MF_LLTT =SIMP(statut='f',typ='R'),
6292 MF_LLLT =SIMP(statut='f',typ='R'),
6293 MF_TTTT =SIMP(statut='f',typ='R'),
6294 MF_TTLT =SIMP(statut='f',typ='R'),
6295 MF_LTLT =SIMP(statut='f',typ='R'),
6296 MC_LLLZ =SIMP(statut='f',typ='R'),
6297 MC_LLTZ =SIMP(statut='f',typ='R'),
6298 MC_TTLZ =SIMP(statut='f',typ='R'),
6299 MC_TTTZ =SIMP(statut='f',typ='R'),
6300 MC_LTLZ =SIMP(statut='f',typ='R'),
6301 MC_LTTZ =SIMP(statut='f',typ='R'),
6302 FC_LLLZ =SIMP(statut='f',typ='R'),
6303 FC_LLTZ =SIMP(statut='f',typ='R'),
6304 FC_TTLZ =SIMP(statut='f',typ='R'),
6305 FC_TTTZ =SIMP(statut='f',typ='R'),
6306 FC_LTLZ =SIMP(statut='f',typ='R'),
6307 FC_LTTZ =SIMP(statut='f',typ='R'),
6308 C_LZLZ =SIMP(statut='f',typ='R'),
6309 C_LZTZ =SIMP(statut='f',typ='R'),
6310 C_TZTZ =SIMP(statut='f',typ='R'),
6311 RHO =SIMP(statut='f',typ='R'),
6312 ALPHA =SIMP(statut='f',typ='R'),
6314 ELAS_COQUE_FO =FACT(statut='f',min=0,max=1,
6315 regles=(EXCLUS('MEMB_L','M_LLLL',),
6316 PRESENT_PRESENT('MEMB_L','MEMB_LT','MEMB_T','MEMB_G_LT','FLEX_L','FLEX_LT',
6317 'FLEX_T','FLEX_G_LT','CISA_L','CISA_T',),
6318 PRESENT_PRESENT('M_LLLL','M_LLTT','M_LLLT','M_TTTT','M_TTLT','M_LTLT','F_LLLL',
6319 'F_LLTT','F_LLLT','F_TTTT','F_TTLT','F_LTLT','MF_LLLL','MF_LLTT',
6320 'MF_LLLT','MF_TTTT','MF_TTLT','MF_LTLT','MC_LLLZ','MC_LLTZ',
6321 'MC_TTLZ','MC_TTTZ','MC_LTLZ','MC_LTTZ','FC_LLLZ','FC_LLTZ',
6322 'FC_TTLZ','FC_TTTZ','FC_LTLZ','FC_LTTZ','C_LZLZ','C_LZTZ','C_TZTZ'),),
6323 MEMB_L =SIMP(statut='f',typ=fonction),
6324 MEMB_LT =SIMP(statut='f',typ=fonction),
6325 MEMB_T =SIMP(statut='f',typ=fonction),
6326 MEMB_G_LT =SIMP(statut='f',typ=fonction),
6327 FLEX_L =SIMP(statut='f',typ=fonction),
6328 FLEX_LT =SIMP(statut='f',typ=fonction),
6329 FLEX_T =SIMP(statut='f',typ=fonction),
6330 FLEX_G_LT =SIMP(statut='f',typ=fonction),
6331 CISA_L =SIMP(statut='f',typ=fonction),
6332 CISA_T =SIMP(statut='f',typ=fonction),
6333 M_LLLL =SIMP(statut='f',typ=fonction),
6334 M_LLTT =SIMP(statut='f',typ=fonction),
6335 M_LLLT =SIMP(statut='f',typ=fonction),
6336 M_TTTT =SIMP(statut='f',typ=fonction),
6337 M_TTLT =SIMP(statut='f',typ=fonction),
6338 M_LTLT =SIMP(statut='f',typ=fonction),
6339 F_LLLL =SIMP(statut='f',typ=fonction),
6340 F_LLTT =SIMP(statut='f',typ=fonction),
6341 F_LLLT =SIMP(statut='f',typ=fonction),
6342 F_TTTT =SIMP(statut='f',typ=fonction),
6343 F_TTLT =SIMP(statut='f',typ=fonction),
6344 F_LTLT =SIMP(statut='f',typ=fonction),
6345 MF_LLLL =SIMP(statut='f',typ=fonction),
6346 MF_LLTT =SIMP(statut='f',typ=fonction),
6347 MF_LLLT =SIMP(statut='f',typ=fonction),
6348 MF_TTTT =SIMP(statut='f',typ=fonction),
6349 MF_TTLT =SIMP(statut='f',typ=fonction),
6350 MF_LTLT =SIMP(statut='f',typ=fonction),
6351 MC_LLLZ =SIMP(statut='f',typ=fonction),
6352 MC_LLTZ =SIMP(statut='f',typ=fonction),
6353 MC_TTLZ =SIMP(statut='f',typ=fonction),
6354 MC_TTTZ =SIMP(statut='f',typ=fonction),
6355 MC_LTLZ =SIMP(statut='f',typ=fonction),
6356 MC_LTTZ =SIMP(statut='f',typ=fonction),
6357 FC_LLLZ =SIMP(statut='f',typ=fonction),
6358 FC_LLTZ =SIMP(statut='f',typ=fonction),
6359 FC_TTLZ =SIMP(statut='f',typ=fonction),
6360 FC_TTTZ =SIMP(statut='f',typ=fonction),
6361 FC_LTLZ =SIMP(statut='f',typ=fonction),
6362 FC_LTTZ =SIMP(statut='f',typ=fonction),
6363 C_LZLZ =SIMP(statut='f',typ=fonction),
6364 C_LZTZ =SIMP(statut='f',typ=fonction),
6365 C_TZTZ =SIMP(statut='f',typ=fonction),
6366 RHO =SIMP(statut='f',typ='R'),
6367 ALPHA =SIMP(statut='f',typ=fonction),
6368 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST") ),
6370 APPUI_ELAS =FACT(statut='f',min=0,max=1,
6371 E_N =SIMP(statut='o',typ='R'),
6372 E_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0),
6374 CABLE =FACT(statut='f',min=0,max=1,
6375 E =SIMP(statut='o',typ='R'),
6376 EC_SUR_E =SIMP(statut='f',typ='R',defaut= 1.E-4 ),
6377 RHO =SIMP(statut='f',typ='R'),
6378 ALPHA =SIMP(statut='f',typ='R'),
6379 AMOR_ALPHA =SIMP(statut='f',typ='R'),
6380 AMOR_BETA =SIMP(statut='f',typ='R'),
6383 # comportement mécanique non linéaire
6385 TRACTION =FACT(statut='f',min=0,max=1,
6386 SIGM =SIMP(statut='o',typ=fonction),
6387 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",) ),
6388 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6389 VERI_P3 =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
6390 VERI_P4 =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
6392 ECRO_LINE =FACT(statut='f',min=0,max=1,
6393 D_SIGM_EPSI =SIMP(statut='o',typ='R'),
6394 SY =SIMP(statut='o',typ='R'),
6396 ECRO_LINE_FO =FACT(statut='f',min=0,max=1,
6397 D_SIGM_EPSI =SIMP(statut='o',typ=fonction),
6398 SY =SIMP(statut='o',typ=fonction),
6399 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6401 PRAGER =FACT(statut='f',min=0,max=1,
6402 C =SIMP(statut='o',typ='R'),
6404 PRAGER_FO =FACT(statut='f',min=0,max=1,
6405 C =SIMP(statut='o',typ=fonction),
6406 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6408 ECRO_FLEJOU =FACT(statut='f',min=0,max=1,
6409 EP =SIMP(statut='o',typ='R'),
6410 SY =SIMP(statut='o',typ='R'),
6411 SU =SIMP(statut='o',typ='R'),
6412 PUISS =SIMP(statut='o',typ='R'),
6414 TAHERI =FACT(statut='f',min=0,max=1,
6415 R_0 =SIMP(statut='o',typ='R'),
6416 ALPHA =SIMP(statut='o',typ='R'),
6417 M =SIMP(statut='o',typ='R'),
6418 A =SIMP(statut='o',typ='R'),
6419 B =SIMP(statut='o',typ='R'),
6420 C1 =SIMP(statut='o',typ='R'),
6421 C_INF =SIMP(statut='o',typ='R'),
6422 S =SIMP(statut='o',typ='R'),
6424 TAHERI_FO =FACT(statut='f',min=0,max=1,
6425 R_0 =SIMP(statut='o',typ=fonction),
6426 ALPHA =SIMP(statut='o',typ=fonction),
6427 M =SIMP(statut='o',typ=fonction),
6428 A =SIMP(statut='o',typ=fonction),
6429 B =SIMP(statut='o',typ=fonction),
6430 C1 =SIMP(statut='o',typ=fonction),
6431 C_INF =SIMP(statut='o',typ=fonction),
6432 S =SIMP(statut='o',typ=fonction),
6433 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6435 ROUSSELIER =FACT(statut='f',min=0,max=1,
6436 D =SIMP(statut='o',typ='R'),
6437 SIGM_1 =SIMP(statut='o',typ='R'),
6438 PORO_INIT =SIMP(statut='o',typ='R'),
6439 PORO_CRIT =SIMP(statut='f',typ='R',defaut= 1. ),
6440 PORO_ACCE =SIMP(statut='f',typ='R',defaut= 1. ),
6441 PORO_LIMI =SIMP(statut='f',typ='R',defaut= 0.999 ),
6442 D_SIGM_EPSI_NORM=SIMP(statut='f',typ='R',defaut= 1. ),
6443 AN =SIMP(statut='f',typ='R',defaut= 0. ),
6445 ROUSSELIER_FO =FACT(statut='f',min=0,max=1,
6446 D =SIMP(statut='o',typ=fonction),
6447 SIGM_1 =SIMP(statut='o',typ=fonction),
6448 PORO_INIT =SIMP(statut='o',typ=fonction),
6449 PORO_CRIT =SIMP(statut='f',typ='R',defaut= 1. ),
6450 PORO_ACCE =SIMP(statut='f',typ='R',defaut= 1. ),
6451 PORO_LIMI =SIMP(statut='f',typ='R',defaut= 0.999 ),
6452 D_SIGM_EPSI_NORM=SIMP(statut='f',typ='R',defaut= 1. ),
6453 AN =SIMP(statut='f',typ='R',defaut= 0. ),
6454 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6456 ROUSS_VISC =FACT(statut='f',min=0,max=1,
6457 SIGM_0 =SIMP(statut='o',typ='R'),
6458 EPSI_0 =SIMP(statut='o',typ='R'),
6459 M =SIMP(statut='o',typ='R'),
6461 CHABOCHE =FACT(statut='f',min=0,max=1,
6462 R_I =SIMP(statut='o',typ='R'),
6463 R_0 =SIMP(statut='o',typ='R'),
6464 B =SIMP(statut='o',typ='R'),
6465 K =SIMP(statut='o',typ='R'),
6466 W =SIMP(statut='o',typ='R'),
6467 A1 =SIMP(statut='o',typ='R'),
6468 A2 =SIMP(statut='o',typ='R'),
6469 C1 =SIMP(statut='o',typ='R'),
6470 C2 =SIMP(statut='o',typ='R'),
6472 CIN1_CHAB =FACT(statut='f',min=0,max=1,
6473 R_0 =SIMP(statut='o',typ='R'),
6474 R_I =SIMP(statut='f',typ='R'),
6475 B =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6476 C_I =SIMP(statut='o',typ='R'),
6477 K =SIMP(statut='f',typ='R',defaut= 1.0E+0),
6478 W =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6479 G_0 =SIMP(statut='o',typ='R'),
6480 A_I =SIMP(statut='f',typ='R',defaut= 1.0E+0),
6482 CIN1_CHAB_FO =FACT(statut='f',min=0,max=1,
6483 R_0 =SIMP(statut='o',typ=fonction),
6484 R_I =SIMP(statut='o',typ=fonction),
6485 B =SIMP(statut='o',typ=fonction),
6486 C_I =SIMP(statut='o',typ=fonction),
6487 K =SIMP(statut='o',typ=fonction),
6488 W =SIMP(statut='o',typ=fonction),
6489 G_0 =SIMP(statut='o',typ=fonction),
6490 A_I =SIMP(statut='o',typ=fonction),
6491 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
6493 CIN2_CHAB =FACT(statut='f',min=0,max=1,
6494 R_0 =SIMP(statut='o',typ='R'),
6495 R_I =SIMP(statut='f',typ='R'),
6496 B =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6497 C1_I =SIMP(statut='o',typ='R'),
6498 C2_I =SIMP(statut='o',typ='R'),
6499 K =SIMP(statut='f',typ='R',defaut= 1.),
6500 W =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6501 G1_0 =SIMP(statut='o',typ='R'),
6502 G2_0 =SIMP(statut='o',typ='R'),
6503 A_I =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
6505 CIN2_CHAB_FO =FACT(statut='f',min=0,max=1,
6506 R_0 =SIMP(statut='o',typ=fonction),
6507 R_I =SIMP(statut='o',typ=fonction),
6508 B =SIMP(statut='o',typ=fonction),
6509 C1_I =SIMP(statut='o',typ=fonction),
6510 C2_I =SIMP(statut='o',typ=fonction),
6511 K =SIMP(statut='o',typ=fonction),
6512 W =SIMP(statut='o',typ=fonction),
6513 G1_0 =SIMP(statut='o',typ=fonction),
6514 G2_0 =SIMP(statut='o',typ=fonction),
6515 A_I =SIMP(statut='o',typ=fonction),
6516 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6518 VISCOCHAB =FACT(statut='f',min=0,max=1,
6519 K_0 =SIMP(statut='o',typ='R'),
6520 A_K =SIMP(statut='o',typ='R'),
6521 A_R =SIMP(statut='o',typ='R'),
6522 K =SIMP(statut='o',typ='R'),
6523 N =SIMP(statut='o',typ='R'),
6524 ALP =SIMP(statut='o',typ='R'),
6525 B =SIMP(statut='o',typ='R'),
6526 M_R =SIMP(statut='o',typ='R'),
6527 G_R =SIMP(statut='o',typ='R'),
6528 MU =SIMP(statut='o',typ='R'),
6529 Q_M =SIMP(statut='o',typ='R'),
6530 Q_0 =SIMP(statut='o',typ='R'),
6531 QR_0 =SIMP(statut='o',typ='R'),
6532 ETA =SIMP(statut='o',typ='R'),
6533 C1 =SIMP(statut='o',typ='R'),
6534 M_1 =SIMP(statut='o',typ='R'),
6535 D1 =SIMP(statut='o',typ='R'),
6536 G_X1 =SIMP(statut='o',typ='R'),
6537 G1_0 =SIMP(statut='o',typ='R'),
6538 C2 =SIMP(statut='o',typ='R'),
6539 M_2 =SIMP(statut='o',typ='R'),
6540 D2 =SIMP(statut='o',typ='R'),
6541 G_X2 =SIMP(statut='o',typ='R'),
6542 G2_0 =SIMP(statut='o',typ='R'),
6543 A_I =SIMP(statut='o',typ='R'),
6545 VISCOCHAB_FO =FACT(statut='f',min=0,max=1,
6546 K_0 =SIMP(statut='o',typ=fonction),
6547 A_K =SIMP(statut='o',typ=fonction),
6548 A_R =SIMP(statut='o',typ=fonction),
6549 K =SIMP(statut='o',typ=fonction),
6550 N =SIMP(statut='o',typ=fonction),
6551 ALP =SIMP(statut='o',typ=fonction),
6552 B =SIMP(statut='o',typ=fonction),
6553 M_R =SIMP(statut='o',typ=fonction),
6554 G_R =SIMP(statut='o',typ=fonction),
6555 MU =SIMP(statut='o',typ=fonction),
6556 Q_M =SIMP(statut='o',typ=fonction),
6557 Q_0 =SIMP(statut='o',typ=fonction),
6558 QR_0 =SIMP(statut='o',typ=fonction),
6559 ETA =SIMP(statut='o',typ=fonction),
6560 C1 =SIMP(statut='o',typ=fonction),
6561 M_1 =SIMP(statut='o',typ=fonction),
6562 D1 =SIMP(statut='o',typ=fonction),
6563 G_X1 =SIMP(statut='o',typ=fonction),
6564 G1_0 =SIMP(statut='o',typ=fonction),
6565 C2 =SIMP(statut='o',typ=fonction),
6566 M_2 =SIMP(statut='o',typ=fonction),
6567 D2 =SIMP(statut='o',typ=fonction),
6568 G_X2 =SIMP(statut='o',typ=fonction),
6569 G2_0 =SIMP(statut='o',typ=fonction),
6570 A_I =SIMP(statut='o',typ=fonction),
6571 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6573 POLY_CFC =FACT(statut='f',min=0,max=1,
6574 TEXTURE =SIMP(statut='o',typ=(tabl_texture) ),
6575 DL =SIMP(statut='f',typ='R'),
6576 DA =SIMP(statut='f',typ='R'),
6577 N =SIMP(statut='o',typ='R'),
6578 K =SIMP(statut='o',typ='R'),
6579 TAU_0 =SIMP(statut='o',typ='R'),
6580 Q1 =SIMP(statut='o',typ='R'),
6581 B1 =SIMP(statut='o',typ='R'),
6582 HL =SIMP(statut='o',typ='R'),
6583 Q2 =SIMP(statut='o',typ='R'),
6584 B2 =SIMP(statut='o',typ='R'),
6585 C1 =SIMP(statut='o',typ='R'),
6586 D1 =SIMP(statut='o',typ='R'),
6587 C2 =SIMP(statut='o',typ='R'),
6589 POLY_CFC_FO =FACT(statut='f',min=0,max=1,
6590 TEXTURE =SIMP(statut='o',typ=(tabl_texture) ),
6591 DL =SIMP(statut='o',typ=fonction),
6592 DA =SIMP(statut='o',typ=fonction),
6593 N =SIMP(statut='o',typ=fonction),
6594 K =SIMP(statut='o',typ=fonction),
6595 TAU_0 =SIMP(statut='o',typ=fonction),
6596 Q1 =SIMP(statut='o',typ=fonction),
6597 B1 =SIMP(statut='o',typ=fonction),
6598 HL =SIMP(statut='o',typ=fonction),
6599 Q2 =SIMP(statut='o',typ=fonction),
6600 B2 =SIMP(statut='o',typ=fonction),
6601 C1 =SIMP(statut='o',typ=fonction),
6602 D1 =SIMP(statut='o',typ=fonction),
6603 C2 =SIMP(statut='o',typ=fonction),
6604 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6606 LEMAITRE =FACT(statut='f',min=0,max=1,
6607 N =SIMP(statut='o',typ='R'),
6608 UN_SUR_K =SIMP(statut='o',typ='R'),
6609 UN_SUR_M =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6611 ZIRC_CYRA2 =FACT(statut='f',min=0,max=1,
6612 EPSI_FAB =SIMP(statut='o',typ=fonction),
6613 TEMP_RECUIT =SIMP(statut='o',typ=fonction),
6614 FLUX_PHI =SIMP(statut='o',typ=fonction),
6615 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
6617 ZIRC_EPRI =FACT(statut='f',min=0,max=1,
6618 FLUX_PHI =SIMP(statut='o',typ='R'),
6619 R_P =SIMP(statut='o',typ='R'),
6620 THETA_MAX =SIMP(statut='o',typ='R'),
6622 LEMAITRE_FO =FACT(statut='f',min=0,max=1,
6623 N =SIMP(statut='o',typ=fonction),
6624 UN_SUR_K =SIMP(statut='o',typ=fonction),
6625 UN_SUR_M =SIMP(statut='f',typ=fonction),
6626 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6628 GRAN_IRRA =FACT(statut='f',min=0,max=1,
6629 A =SIMP(statut='f',typ='R',defaut= 0.E+0),
6630 B =SIMP(statut='f',typ='R',defaut= 0.E+0),
6631 S =SIMP(statut='f',typ='R',defaut= 0.E+0),
6633 FLU_IRRA =FACT(statut='f',min=0,max=1,
6634 QSR_K =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6635 BETA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6636 PHI_ZERO =SIMP(statut='f',typ='R',defaut= 1.E+20),
6637 L =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6639 OHNO =FACT(statut='f',min=0,max=1,
6640 R_I =SIMP(statut='o',typ='R'),
6641 R_0 =SIMP(statut='o',typ='R'),
6642 B =SIMP(statut='o',typ='R'),
6643 PHI =SIMP(statut='o',typ='R'),
6644 A1 =SIMP(statut='o',typ='R'),
6645 A2 =SIMP(statut='o',typ='R'),
6646 A3 =SIMP(statut='o',typ='R'),
6647 A4 =SIMP(statut='o',typ='R'),
6648 A5 =SIMP(statut='o',typ='R'),
6649 GAMMA1 =SIMP(statut='o',typ='R'),
6650 GAMMA2 =SIMP(statut='o',typ='R'),
6651 GAMMA3 =SIMP(statut='o',typ='R'),
6652 GAMMA4 =SIMP(statut='o',typ='R'),
6653 GAMMA5 =SIMP(statut='o',typ='R'),
6654 M1 =SIMP(statut='o',typ='R'),
6655 M2 =SIMP(statut='o',typ='R'),
6656 M3 =SIMP(statut='o',typ='R'),
6657 M4 =SIMP(statut='o',typ='R'),
6658 M5 =SIMP(statut='o',typ='R'),
6660 OHNO_FO =FACT(statut='f',min=0,max=1,
6661 R_I =SIMP(statut='o',typ=fonction),
6662 R_0 =SIMP(statut='o',typ=fonction),
6663 B =SIMP(statut='o',typ=fonction),
6664 PHI =SIMP(statut='o',typ=fonction),
6665 A1 =SIMP(statut='o',typ=fonction),
6666 A2 =SIMP(statut='o',typ=fonction),
6667 A3 =SIMP(statut='o',typ=fonction),
6668 A4 =SIMP(statut='o',typ=fonction),
6669 A5 =SIMP(statut='o',typ=fonction),
6670 GAMMA1 =SIMP(statut='o',typ=fonction),
6671 GAMMA2 =SIMP(statut='o',typ=fonction),
6672 GAMMA3 =SIMP(statut='o',typ=fonction),
6673 GAMMA4 =SIMP(statut='o',typ=fonction),
6674 GAMMA5 =SIMP(statut='o',typ=fonction),
6675 M1 =SIMP(statut='o',typ=fonction),
6676 M2 =SIMP(statut='o',typ=fonction),
6677 M3 =SIMP(statut='o',typ=fonction),
6678 M4 =SIMP(statut='o',typ=fonction),
6679 M5 =SIMP(statut='o',typ=fonction),
6680 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6682 LMARC =FACT(statut='f',min=0,max=1,
6683 DE_0 =SIMP(statut='o',typ='R'),
6684 R_0 =SIMP(statut='o',typ='R'),
6685 N =SIMP(statut='o',typ='R'),
6686 K =SIMP(statut='o',typ='R'),
6687 Y_I =SIMP(statut='o',typ='R'),
6688 Y_0 =SIMP(statut='o',typ='R'),
6689 B =SIMP(statut='o',typ='R'),
6690 A_0 =SIMP(statut='o',typ='R'),
6691 RM =SIMP(statut='o',typ='R'),
6692 M =SIMP(statut='o',typ='R'),
6693 P =SIMP(statut='o',typ='R'),
6694 P1 =SIMP(statut='o',typ='R'),
6695 P2 =SIMP(statut='o',typ='R'),
6696 M11 =SIMP(statut='o',typ='R'),
6697 M22 =SIMP(statut='o',typ='R'),
6698 M33 =SIMP(statut='o',typ='R'),
6699 M66 =SIMP(statut='o',typ='R'),
6700 N11 =SIMP(statut='o',typ='R'),
6701 N22 =SIMP(statut='o',typ='R'),
6702 N33 =SIMP(statut='o',typ='R'),
6703 N66 =SIMP(statut='o',typ='R'),
6704 Q11 =SIMP(statut='o',typ='R'),
6705 Q22 =SIMP(statut='o',typ='R'),
6706 Q33 =SIMP(statut='o',typ='R'),
6707 Q66 =SIMP(statut='o',typ='R'),
6708 R11 =SIMP(statut='o',typ='R'),
6709 R22 =SIMP(statut='o',typ='R'),
6710 R33 =SIMP(statut='o',typ='R'),
6711 R66 =SIMP(statut='o',typ='R'),
6713 LMARC_FO =FACT(statut='f',min=0,max=1,
6714 DE_0 =SIMP(statut='o',typ=fonction),
6715 R_0 =SIMP(statut='o',typ=fonction),
6716 N =SIMP(statut='o',typ=fonction),
6717 K =SIMP(statut='o',typ=fonction),
6718 Y_I =SIMP(statut='o',typ=fonction),
6719 Y_0 =SIMP(statut='o',typ=fonction),
6720 B =SIMP(statut='o',typ=fonction),
6721 A_0 =SIMP(statut='o',typ=fonction),
6722 RM =SIMP(statut='o',typ=fonction),
6723 M =SIMP(statut='o',typ=fonction),
6724 P =SIMP(statut='o',typ=fonction),
6725 P1 =SIMP(statut='o',typ=fonction),
6726 P2 =SIMP(statut='o',typ=fonction),
6727 M11 =SIMP(statut='o',typ=fonction),
6728 M22 =SIMP(statut='o',typ=fonction),
6729 M33 =SIMP(statut='o',typ=fonction),
6730 M66 =SIMP(statut='o',typ=fonction),
6731 N11 =SIMP(statut='o',typ=fonction),
6732 N22 =SIMP(statut='o',typ=fonction),
6733 N33 =SIMP(statut='o',typ=fonction),
6734 N66 =SIMP(statut='o',typ=fonction),
6735 Q11 =SIMP(statut='o',typ=fonction),
6736 Q22 =SIMP(statut='o',typ=fonction),
6737 Q33 =SIMP(statut='o',typ=fonction),
6738 Q66 =SIMP(statut='o',typ=fonction),
6739 R11 =SIMP(statut='o',typ=fonction),
6740 R22 =SIMP(statut='o',typ=fonction),
6741 R33 =SIMP(statut='o',typ=fonction),
6742 R66 =SIMP(statut='o',typ=fonction),
6743 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6745 VMIS_POUTRE =FACT(statut='f',min=0,max=1,
6746 NP =SIMP(statut='o',typ='R'),
6747 MEY =SIMP(statut='o',typ='R'),
6748 MPY =SIMP(statut='o',typ='R'),
6749 CAY =SIMP(statut='o',typ='R'),
6750 CBY =SIMP(statut='o',typ='R'),
6751 MEZ =SIMP(statut='o',typ='R'),
6752 MPZ =SIMP(statut='o',typ='R'),
6753 CAZ =SIMP(statut='o',typ='R'),
6754 CBZ =SIMP(statut='o',typ='R'),
6755 MPX =SIMP(statut='o',typ='R'),
6757 VMIS_POUTRE_FO =FACT(statut='f',min=0,max=1,
6758 NP =SIMP(statut='o',typ=fonction),
6759 MEY =SIMP(statut='o',typ=fonction),
6760 MPY =SIMP(statut='o',typ=fonction),
6761 CAY =SIMP(statut='o',typ=fonction),
6762 CBY =SIMP(statut='o',typ=fonction),
6763 MEZ =SIMP(statut='o',typ=fonction),
6764 MPZ =SIMP(statut='o',typ=fonction),
6765 CAZ =SIMP(statut='o',typ=fonction),
6766 CBZ =SIMP(statut='o',typ=fonction),
6767 MPX =SIMP(statut='o',typ=fonction),
6768 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6770 ARME =FACT(statut='f',min=0,max=1,
6771 KYE =SIMP(statut='o',typ='R'),
6772 DLE =SIMP(statut='o',typ='R'),
6773 KYP =SIMP(statut='o',typ='R'),
6774 DLP =SIMP(statut='o',typ='R'),
6775 KYG =SIMP(statut='o',typ='R'),
6777 ASSE_CORN =FACT(statut='f',min=0,max=1,
6778 NU_1 =SIMP(statut='o',typ='R'),
6779 MU_1 =SIMP(statut='o',typ='R'),
6780 DXU_1 =SIMP(statut='o',typ='R'),
6781 DRYU_1 =SIMP(statut='o',typ='R'),
6782 C_1 =SIMP(statut='o',typ='R'),
6783 NU_2 =SIMP(statut='o',typ='R'),
6784 MU_2 =SIMP(statut='o',typ='R'),
6785 DXU_2 =SIMP(statut='o',typ='R'),
6786 DRYU_2 =SIMP(statut='o',typ='R'),
6787 C_2 =SIMP(statut='o',typ='R'),
6788 KY =SIMP(statut='o',typ='R'),
6789 KZ =SIMP(statut='o',typ='R'),
6790 KRX =SIMP(statut='o',typ='R'),
6791 KRZ =SIMP(statut='o',typ='R'),
6793 DIS_CONTACT =FACT(statut='f',min=0,max=1,
6794 RIGI_NOR =SIMP(statut='f',typ='R' ),
6795 DIST_1 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6796 DIST_2 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6797 RIGI_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6798 AMOR_NOR =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6799 AMOR_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6800 COULOMB =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6801 JEU =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6802 KT_ULTM =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6803 EFFO_N_INIT =SIMP(statut='f',typ='R'),
6804 regles=(EXCLUS('RIGI_N_FO','RIGI_N_IRRA',),),
6805 RIGI_N_IRRA =SIMP(statut='f',typ=fonction),
6806 RIGI_N_FO =SIMP(statut='f',typ=fonction),
6807 RELA_MZ =SIMP(statut='f',typ=fonction),
6808 C_PRAGER_MZ =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6809 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="DRZ",into=("DRZ",) ),
6810 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
6812 NADAI_B =FACT(statut='f',min=0,max=1,
6813 F_C =SIMP(statut='o',typ='R'),
6814 F_T =SIMP(statut='o',typ='R'),
6815 CRIT_E_C =SIMP(statut='o',typ='R'),
6816 EPSP_P_C =SIMP(statut='o',typ='R'),
6817 EPSP_R_C =SIMP(statut='o',typ='R'),
6818 EPSI_R_T =SIMP(statut='o',typ='R'),
6819 FAC_T_C =SIMP(statut='o',typ='R'),
6821 BETON_DOUBLE_DP =FACT(statut='f',min=0,max=1,
6822 F_C =SIMP(statut='o',typ=fonction),
6823 F_T =SIMP(statut='o',typ=fonction),
6824 COEF_BIAX =SIMP(statut='o',typ=fonction),
6825 ENER_COMP_RUPT =SIMP(statut='o',typ=fonction),
6826 ENER_TRAC_RUPT =SIMP(statut='o',typ=fonction),
6827 COEF_ELAS_COMP =SIMP(statut='o',typ='R'),
6828 LONG_CARA =SIMP(statut='f',typ='R'),
6829 ECRO_COMP_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","PARABOLE") ),
6830 ECRO_TRAC_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","EXPONENT") ),
6831 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
6832 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="INST",into=("TEMP","INST",) ),
6833 VERI_P3 =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
6834 VERI_P4 =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
6836 LABORD_1D=FACT(statut='f',min=0 ,max=1,
6837 Y01 =SIMP(statut='o',typ='R'),
6838 Y02 =SIMP(statut='o',typ='R'),
6839 A1 =SIMP(statut='o',typ='R'),
6840 A2 =SIMP(statut='o',typ='R'),
6841 B1 =SIMP(statut='o',typ='R'),
6842 B2 =SIMP(statut='o',typ='R'),
6843 BETA1 =SIMP(statut='o',typ='R'),
6844 BETA2 =SIMP(statut='o',typ='R'),
6845 SIGF =SIMP(statut='o',typ='R'),
6847 MAZARS=FACT(statut='f',min=0 ,max=1,
6848 EPSD0 =SIMP(statut='o',typ='R'),
6849 BETA =SIMP(statut='o',typ='R'),
6850 AC =SIMP(statut='o',typ='R'),
6851 BC =SIMP(statut='o',typ='R'),
6852 AT =SIMP(statut='o',typ='R'),
6853 BT =SIMP(statut='o',typ='R'),
6855 VENDOCHAB =FACT(statut='f',min=0,max=1,
6856 S_VP =SIMP(statut='o',typ='R'),
6857 SEDVP1 =SIMP(statut='o',typ='R'),
6858 SEDVP2 =SIMP(statut='o',typ='R'),
6859 N_VP =SIMP(statut='o',typ='R'),
6860 M_VP =SIMP(statut='o',typ='R'),
6861 K_VP =SIMP(statut='o',typ='R'),
6862 R_D =SIMP(statut='o',typ='R'),
6863 A_D =SIMP(statut='o',typ='R'),
6864 K_D =SIMP(statut='o',typ='R'),
6866 VENDOCHAB_FO =FACT(statut='f',min=0,max=1,
6867 S_VP =SIMP(statut='o',typ=fonction),
6868 SEDVP1 =SIMP(statut='o',typ=fonction),
6869 SEDVP2 =SIMP(statut='o',typ=fonction),
6870 N_VP =SIMP(statut='o',typ=fonction),
6871 M_VP =SIMP(statut='o',typ=fonction),
6872 K_VP =SIMP(statut='o',typ=fonction),
6873 R_D =SIMP(statut='o',typ=fonction),
6874 A_D =SIMP(statut='o',typ=fonction),
6875 K_D =SIMP(statut='o',typ=fonction),
6876 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6877 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="X",into=("X",) ),
6879 PINTO_MENEGOTTO =FACT(statut='f',min=0,max=1,
6880 SY =SIMP(statut='o',typ='R'),
6881 EPSI_ULTM =SIMP(statut='o',typ='R'),
6882 SIGM_ULTM =SIMP(statut='o',typ='R'),
6883 ELAN =SIMP(statut='f',typ='R',defaut= 4. ),
6884 EPSP_HARD =SIMP(statut='o',typ='R'),
6885 R_PM =SIMP(statut='f',typ='R',defaut= 20. ),
6886 EP_SUR_E =SIMP(statut='f',typ='R'),
6887 A1_PM =SIMP(statut='f',typ='R',defaut= 18.5 ),
6888 A2_PM =SIMP(statut='f',typ='R',defaut= 0.15 ),
6889 A6_PM =SIMP(statut='f',typ='R',defaut= 620. ),
6890 C_PM =SIMP(statut='f',typ='R',defaut= 0.5 ),
6891 A_PM =SIMP(statut='f',typ='R',defaut= 6.0E-3 ),
6893 BPEL_BETON =FACT(statut='f',min=0,max=1,
6894 PERT_FLUA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6895 PERT_RETR =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6897 BPEL_ACIER =FACT(statut='f',min=0,max=1,
6898 RELAX_1000 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6899 MU0_RELAX =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6900 SY =SIMP(statut='o',typ='R'),
6901 FROT_COURB =SIMP(statut='o',typ='R'),
6902 FROT_LINE =SIMP(statut='o',typ='R'),
6904 CAM_CLAY =FACT(statut='f',min=0,max=1,
6905 PORO =SIMP(statut='o',typ='R'),
6906 LAMBDA =SIMP(statut='o',typ='R'),
6907 KAPA =SIMP(statut='o',typ='R'),
6908 M =SIMP(statut='o',typ='R'),
6909 PRES_CRIT =SIMP(statut='o',typ='R'),
6910 PA =SIMP(statut='o',typ='R'),
6912 CJS =FACT(statut='f',min=0,max=1,
6913 regles=(ENSEMBLE('B_CJS','C_CJS','MU_CJS','PCO',),
6914 ENSEMBLE('N_CJS','KP','RC',),
6915 PRESENT_ABSENT('A_CJS','B_CJS',),
6916 PRESENT_PRESENT('A_CJS','N_CJS',),
6917 PRESENT_PRESENT('B_CJS','N_CJS', ),),
6918 BETA_CJS =SIMP(statut='o',typ='R'),
6919 RM =SIMP(statut='o',typ='R'),
6920 N_CJS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6921 KP =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6922 RC =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6923 A_CJS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6924 B_CJS =SIMP(statut='f',typ='R',defaut= 1.0E+25 ),
6925 C_CJS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6926 GAMMA_CJS =SIMP(statut='o',typ='R'),
6927 MU_CJS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6928 PCO =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6929 PA =SIMP(statut='o',typ='R'),
6930 Q_INIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6931 R_INIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6933 ECRO_ASYM_LINE =FACT(statut='f',min=0,max=1,
6934 DC_SIGM_EPSI =SIMP(statut='o',typ='R'),
6935 SY_C =SIMP(statut='o',typ='R'),
6936 DT_SIGM_EPSI =SIMP(statut='o',typ='R'),
6937 SY_T =SIMP(statut='o',typ='R'),
6939 GRANGER_FP =FACT(statut='f',min=0,max=1,
6940 J1 =SIMP(statut='f',typ='R'),
6941 J2 =SIMP(statut='f',typ='R'),
6942 J3 =SIMP(statut='f',typ='R'),
6943 J4 =SIMP(statut='f',typ='R'),
6944 J5 =SIMP(statut='f',typ='R'),
6945 J6 =SIMP(statut='f',typ='R'),
6946 J7 =SIMP(statut='f',typ='R'),
6947 J8 =SIMP(statut='f',typ='R'),
6948 TAUX_1 =SIMP(statut='f',typ='R'),
6949 TAUX_2 =SIMP(statut='f',typ='R'),
6950 TAUX_3 =SIMP(statut='f',typ='R'),
6951 TAUX_4 =SIMP(statut='f',typ='R'),
6952 TAUX_5 =SIMP(statut='f',typ='R'),
6953 TAUX_6 =SIMP(statut='f',typ='R'),
6954 TAUX_7 =SIMP(statut='f',typ='R'),
6955 TAUX_8 =SIMP(statut='f',typ='R'),
6956 FONC_DESORP =SIMP(statut='f',typ=fonction),
6957 QSR_K =SIMP(statut='f',typ='R'),
6958 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
6960 V_GRANGER_FP =FACT(statut='f',min=0,max=1,
6961 QSR_VEIL =SIMP(statut='f',typ='R'),
6962 FONC_V =SIMP(statut='f',typ=fonction),
6963 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
6965 GRANGER_FD =FACT(statut='f',min=0,max=1,
6966 LAM_VISC =SIMP(statut='o',typ='R'),
6970 # comportement thermique
6972 THER_NL =FACT(statut='f',min=0,max=1,
6973 regles=(UN_PARMI('BETA','RHO_CP', ),),
6974 LAMBDA =SIMP(statut='o',typ=fonction),
6975 BETA =SIMP(statut='f',typ=fonction),
6976 RHO_CP =SIMP(statut='f',typ=fonction),
6977 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6979 THER_HYDR =FACT(statut='f',min=0,max=1,
6980 LAMBDA =SIMP(statut='o',typ=fonction),
6981 BETA =SIMP(statut='f',typ=fonction),
6982 AFFINITE =SIMP(statut='o',typ=fonction),
6983 CHALHYDR =SIMP(statut='o',typ='R'),
6984 QSR_K =SIMP(statut='o',typ='R'),
6985 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("HYDR",) ),
6986 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
6988 THER =FACT(statut='f',min=0,max=1,
6989 LAMBDA =SIMP(statut='o',typ='R'),
6990 RHO_CP =SIMP(statut='f',typ='R'),
6992 THER_FO =FACT(statut='f',min=0,max=1,
6993 LAMBDA =SIMP(statut='o',typ=fonction),
6994 RHO_CP =SIMP(statut='f',typ=fonction),
6995 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
6997 THER_ORTH =FACT(statut='f',min=0,max=1,
6998 LAMBDA_L =SIMP(statut='o',typ='R'),
6999 LAMBDA_T =SIMP(statut='o',typ='R'),
7000 LAMBDA_N =SIMP(statut='f',typ='R'),
7001 RHO_CP =SIMP(statut='f',typ='R'),
7003 THER_COQUE =FACT(statut='f',min=0,max=1,
7004 COND_LMM =SIMP(statut='o',typ='R'),
7005 COND_TMM =SIMP(statut='o',typ='R'),
7006 COND_LMP =SIMP(statut='o',typ='R'),
7007 COND_TMP =SIMP(statut='o',typ='R'),
7008 COND_LPP =SIMP(statut='o',typ='R'),
7009 COND_TPP =SIMP(statut='o',typ='R'),
7010 COND_LSI =SIMP(statut='o',typ='R'),
7011 COND_TSI =SIMP(statut='o',typ='R'),
7012 COND_NMM =SIMP(statut='o',typ='R'),
7013 COND_NMP =SIMP(statut='o',typ='R'),
7014 COND_NPP =SIMP(statut='o',typ='R'),
7015 COND_NSI =SIMP(statut='o',typ='R'),
7016 CMAS_MM =SIMP(statut='f',typ='R'),
7017 CMAS_MP =SIMP(statut='f',typ='R'),
7018 CMAS_PP =SIMP(statut='f',typ='R'),
7019 CMAS_SI =SIMP(statut='f',typ='R'),
7021 THER_COQUE_FO =FACT(statut='f',min=0,max=1,
7022 COND_LMM =SIMP(statut='o',typ=fonction),
7023 COND_TMM =SIMP(statut='o',typ=fonction),
7024 COND_LMP =SIMP(statut='o',typ=fonction),
7025 COND_TMP =SIMP(statut='o',typ=fonction),
7026 COND_LPP =SIMP(statut='o',typ=fonction),
7027 COND_TPP =SIMP(statut='o',typ=fonction),
7028 COND_LSI =SIMP(statut='o',typ=fonction),
7029 COND_TSI =SIMP(statut='o',typ=fonction),
7030 COND_NMM =SIMP(statut='o',typ=fonction),
7031 COND_NMP =SIMP(statut='o',typ=fonction),
7032 COND_NPP =SIMP(statut='o',typ=fonction),
7033 COND_NSI =SIMP(statut='o',typ=fonction),
7034 CMAS_MM =SIMP(statut='f',typ=fonction),
7035 CMAS_MP =SIMP(statut='f',typ=fonction),
7036 CMAS_PP =SIMP(statut='f',typ=fonction),
7037 CMAS_SI =SIMP(statut='f',typ=fonction),
7039 SECH_GRANGER =FACT(statut='f',min=0,max=1,
7040 A =SIMP(statut='o',typ='R'),
7041 B =SIMP(statut='o',typ='R'),
7042 QSR_K =SIMP(statut='o',typ='R'),
7043 TEMP_0_C =SIMP(statut='o',typ='R'),
7045 SECH_MENSI =FACT(statut='f',min=0,max=1,
7046 A =SIMP(statut='o',typ='R'),
7047 B =SIMP(statut='o',typ='R'),
7049 SECH_BAZANT =FACT(statut='f',min=0,max=1,
7050 D1 =SIMP(statut='o',typ='R'),
7051 ALPHA_BAZANT =SIMP(statut='o',typ='R'),
7052 N =SIMP(statut='o',typ='R'),
7053 FONC_DESORP =SIMP(statut='o',typ=fonction),
7054 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7056 SECH_NAPPE =FACT(statut='f',min=0,max=1,
7057 FONCTION =SIMP(statut='o',typ=fonction),
7058 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7059 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="TSEC",into=("TSEC",) ),
7062 # comportement métallurgique
7064 META_ACIER =FACT(statut='f',min=0,max=1,
7065 TRC =SIMP(statut='o',typ=(tabl_trc) ),
7066 AR3 =SIMP(statut='o',typ='R'),
7067 ALPHA =SIMP(statut='o',typ='R'),
7068 MS0 =SIMP(statut='o',typ='R'),
7069 AC1 =SIMP(statut='o',typ='R'),
7070 AC3 =SIMP(statut='o',typ='R'),
7071 TAUX_1 =SIMP(statut='o',typ='R'),
7072 TAUX_3 =SIMP(statut='o',typ='R'),
7073 LAMBDA0 =SIMP(statut='f',typ='R'),
7074 QSR_K =SIMP(statut='f',typ='R'),
7075 D10 =SIMP(statut='f',typ='R'),
7076 WSR_K =SIMP(statut='f',typ='R'),
7078 META_ZIRC =FACT(statut='f',min=0,max=1,
7079 TDEQ =SIMP(statut='o',typ='R'),
7080 N =SIMP(statut='o',typ='R'),
7081 K =SIMP(statut='o',typ='R'),
7082 TDC =SIMP(statut='o',typ='R'),
7083 AC =SIMP(statut='o',typ='R'),
7084 M =SIMP(statut='o',typ='R'),
7085 QSR_K =SIMP(statut='f',typ='R'),
7086 TDR =SIMP(statut='o',typ='R'),
7087 AR =SIMP(statut='o',typ='R'),
7088 BR =SIMP(statut='o',typ='R'),
7090 DURT_META =FACT(statut='f',min=0,max=1,
7091 F1_DURT =SIMP(statut='o',typ='R'),
7092 F2_DURT =SIMP(statut='o',typ='R'),
7093 F3_DURT =SIMP(statut='o',typ='R'),
7094 F4_DURT =SIMP(statut='o',typ='R'),
7095 C_DURT =SIMP(statut='o',typ='R'),
7097 ELAS_META =FACT(statut='f',min=0,max=1,
7098 E =SIMP(statut='o',typ='R'),
7099 NU =SIMP(statut='o',typ='R'),
7100 F_ALPHA =SIMP(statut='o',typ='R'),
7101 C_ALPHA =SIMP(statut='o',typ='R'),
7102 PHASE_REFE =SIMP(statut='o',typ='TXM',into=("CHAUD","FROID")),
7103 EPSF_EPSC_TREF =SIMP(statut='o',typ='R'),
7104 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7105 F1_SY =SIMP(statut='f',typ='R'),
7106 F2_SY =SIMP(statut='f',typ='R'),
7107 F3_SY =SIMP(statut='f',typ='R'),
7108 F4_SY =SIMP(statut='f',typ='R'),
7109 C_SY =SIMP(statut='f',typ='R'),
7110 SY_MELANGE =SIMP(statut='f',typ=fonction),
7111 F1_S_VP =SIMP(statut='f',typ='R'),
7112 F2_S_VP =SIMP(statut='f',typ='R'),
7113 F3_S_VP =SIMP(statut='f',typ='R'),
7114 F4_S_VP =SIMP(statut='f',typ='R'),
7115 C_S_VP =SIMP(statut='f',typ='R' ),
7116 S_VP_MELANGE =SIMP(statut='f',typ=fonction),
7117 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="META",into=("META",)),
7119 ELAS_META_FO =FACT(statut='f',min=0,max=1,
7121 PRESENT_PRESENT('F_ALPHA','TEMP_DEF_ALPHA'),
7122 PRESENT_PRESENT('C_ALPHA','TEMP_DEF_ALPHA'),
7124 E =SIMP(statut='o',typ=fonction),
7125 NU =SIMP(statut='o',typ=fonction),
7126 F_ALPHA =SIMP(statut='o',typ=fonction),
7127 C_ALPHA =SIMP(statut='o',typ=fonction),
7128 PHASE_REFE =SIMP(statut='o',typ='TXM',into=("CHAUD","FROID")),
7129 EPSF_EPSC_TREF =SIMP(statut='o',typ='R'),
7130 TEMP_DEF_ALPHA =SIMP(statut='f',typ='R'),
7131 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7132 F1_SY =SIMP(statut='f',typ=fonction),
7133 F2_SY =SIMP(statut='f',typ=fonction),
7134 F3_SY =SIMP(statut='f',typ=fonction),
7135 F4_SY =SIMP(statut='f',typ=fonction),
7136 C_SY =SIMP(statut='f',typ=fonction),
7137 SY_MELANGE =SIMP(statut='f',typ=fonction),
7138 F1_S_VP =SIMP(statut='f',typ=fonction),
7139 F2_S_VP =SIMP(statut='f',typ=fonction),
7140 F3_S_VP =SIMP(statut='f',typ=fonction),
7141 F4_S_VP =SIMP(statut='f',typ=fonction),
7142 C_S_VP =SIMP(statut='f',typ=fonction),
7143 S_VP_MELANGE =SIMP(statut='f',typ=fonction),
7144 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7145 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="META",into=("META",)),
7147 META_ECRO_LINE =FACT(statut='f',min=0,max=1,
7148 F1_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
7149 F2_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
7150 F3_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
7151 F4_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
7152 C_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
7153 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7155 META_TRACTION =FACT(statut='f',min=0,max=1,
7156 SIGM_F1 =SIMP(statut='f',typ=fonction),
7157 SIGM_F2 =SIMP(statut='f',typ=fonction),
7158 SIGM_F3 =SIMP(statut='f',typ=fonction),
7159 SIGM_F4 =SIMP(statut='f',typ=fonction),
7160 SIGM_C =SIMP(statut='f',typ=fonction),
7161 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",)),
7162 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7164 META_VISC_FO =FACT(statut='f',min=0,max=1,
7165 F1_ETA =SIMP(statut='f',typ=fonction),
7166 F1_N =SIMP(statut='f',typ=fonction),
7167 F1_C =SIMP(statut='f',typ=fonction),
7168 F1_M =SIMP(statut='f',typ=fonction),
7169 F2_ETA =SIMP(statut='f',typ=fonction),
7170 F2_N =SIMP(statut='f',typ=fonction),
7171 F2_C =SIMP(statut='f',typ=fonction),
7172 F2_M =SIMP(statut='f',typ=fonction),
7173 F3_ETA =SIMP(statut='f',typ=fonction),
7174 F3_N =SIMP(statut='f',typ=fonction),
7175 F3_C =SIMP(statut='f',typ=fonction),
7176 F3_M =SIMP(statut='f',typ=fonction),
7177 F4_ETA =SIMP(statut='f',typ=fonction),
7178 F4_N =SIMP(statut='f',typ=fonction),
7179 F4_C =SIMP(statut='f',typ=fonction),
7180 F4_M =SIMP(statut='f',typ=fonction),
7181 C_ETA =SIMP(statut='f',typ=fonction),
7182 C_N =SIMP(statut='f',typ=fonction),
7183 C_C =SIMP(statut='f',typ=fonction),
7184 C_M =SIMP(statut='f',typ=fonction),
7185 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7187 META_PT =FACT(statut='f',min=0,max=1,
7188 F1_K =SIMP(statut='f',typ='R'),
7189 F2_K =SIMP(statut='f',typ='R'),
7190 F3_K =SIMP(statut='f',typ='R'),
7191 F4_K =SIMP(statut='f',typ='R'),
7192 F1_D_F_META =SIMP(statut='f',typ=fonction),
7193 F2_D_F_META =SIMP(statut='f',typ=fonction),
7194 F3_D_F_META =SIMP(statut='f',typ=fonction),
7195 F4_D_F_META =SIMP(statut='f',typ=fonction),
7196 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7197 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="META",into=("META",) ),
7199 META_RE =FACT(statut='f',min=0,max=1,
7200 C_F1_THETA =SIMP(statut='f',typ='R'),
7201 C_F2_THETA =SIMP(statut='f',typ='R'),
7202 C_F3_THETA =SIMP(statut='f',typ='R'),
7203 C_F4_THETA =SIMP(statut='f',typ='R'),
7204 F1_C_THETA =SIMP(statut='f',typ='R'),
7205 F2_C_THETA =SIMP(statut='f',typ='R'),
7206 F3_C_THETA =SIMP(statut='f',typ='R'),
7207 F4_C_THETA =SIMP(statut='f',typ='R'),
7210 # comportement fluide
7212 FLUIDE =FACT(statut='f',min=0,max=1,
7213 regles=(EXCLUS('CELE_C','CELE_R'),),
7214 RHO =SIMP(statut='o',typ='R'),
7215 CELE_C =SIMP(statut='f',typ='C'),
7216 CELE_R =SIMP(statut='f',typ='R'),
7218 PORO_JOINT =FACT(statut='f',min=0,max=1,
7219 RHO_FLUI =SIMP(statut='o',typ='R'),
7220 ENTRO_FLUI =SIMP(statut='o',typ='R'),
7221 BIOT_M =SIMP(statut='o',typ='R'),
7222 C_0 =SIMP(statut='o',typ='R'),
7223 T_R =SIMP(statut='o',typ='R'),
7224 ALPHA_M =SIMP(statut='o',typ='R'),
7225 LAMBDA_T =SIMP(statut='o',typ='R'),
7226 LAMBDA_H =SIMP(statut='o',typ='R'),
7227 SOURCE_INIT =SIMP(statut='o',typ='R'),
7228 OMEGA_0 =SIMP(statut='o',typ='R'),
7230 THM_LIQU =FACT(statut='f',min=0,max=1,
7231 RHO =SIMP(statut='o',typ='R'),
7232 UN_SUR_K =SIMP(statut='f',typ='R'),
7233 ALPHA =SIMP(statut='f',typ='R'),
7234 CP =SIMP(statut='f',typ='R'),
7235 VISC =SIMP(statut='f',typ=fonction),
7236 D_VISC_TEMP =SIMP(statut='f',typ=fonction),
7237 LAMBDA =SIMP(statut='f',typ=fonction),
7238 D_LAMBDA_TEMP =SIMP(statut='f',typ=fonction),
7239 COEF_HENRY =SIMP(statut='f',typ='R'),
7240 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7242 THM_GAZ =FACT(statut='f',min=0,max=1,
7243 MASS_MOL =SIMP(statut='f',typ='R'),
7244 CP =SIMP(statut='f',typ='R'),
7245 VISC =SIMP(statut='f',typ=fonction),
7246 D_VISC_TEMP =SIMP(statut='f',typ=fonction),
7247 LAMBDA =SIMP(statut='f',typ=fonction),
7248 D_LAMBDA_TEMP =SIMP(statut='f',typ=fonction),
7249 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7251 THM_VAPE_GAZ =FACT(statut='f',min=0,max=1,
7252 MASS_MOL =SIMP(statut='f',typ='R'),
7253 CP =SIMP(statut='f',typ='R'),
7254 VISC =SIMP(statut='f',typ=fonction),
7255 D_VISC_TEMP =SIMP(statut='f',typ=fonction),
7256 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7258 THM_INIT =FACT(statut='f',min=0,max=1,
7259 TEMP =SIMP(statut='o',typ='R'),
7260 PRE1 =SIMP(statut='o',typ='R'),
7261 PRE2 =SIMP(statut='o',typ='R'),
7262 PORO =SIMP(statut='o',typ='R'),
7263 PRES_VAPE =SIMP(statut='o',typ='R'),
7264 DEGR_SATU =SIMP(statut='f',typ='R'),
7265 PRES_ATMO =SIMP(statut='f',typ='R'),
7267 THM_DIFFU =FACT(statut='f',min=0,max=1,
7268 R_GAZ =SIMP(statut='o',typ='R'),
7269 RHO =SIMP(statut='f',typ='R'),
7270 CP =SIMP(statut='f',typ='R'),
7271 BIOT_COEF =SIMP(statut='f',typ='R'),
7272 SATU_PRES =SIMP(statut='f',typ=fonction),
7273 D_SATU_PRES =SIMP(statut='f',typ=fonction),
7274 PESA_X =SIMP(statut='f',typ='R'),
7275 PESA_Y =SIMP(statut='f',typ='R'),
7276 PESA_Z =SIMP(statut='f',typ='R'),
7277 PERM_IN =SIMP(statut='f',typ=fonction),
7278 PERM_LIQU =SIMP(statut='f',typ=fonction),
7279 D_PERM_LIQU_SATU=SIMP(statut='f',typ=fonction),
7280 PERM_GAZ =SIMP(statut='f',typ=fonction),
7281 D_PERM_SATU_GAZ =SIMP(statut='f',typ=fonction),
7282 D_PERM_PRES_GAZ =SIMP(statut='f',typ=fonction),
7283 FICK =SIMP(statut='f',typ=fonction),
7284 D_FICK_TEMP =SIMP(statut='f',typ=fonction),
7285 D_FICK_GAZ_PRES =SIMP(statut='f',typ=fonction),
7286 LAMBDA =SIMP(statut='f',typ=fonction),
7287 D_LAMBDA_TEMP =SIMP(statut='f',typ=fonction),
7288 SIGMA_T =SIMP(statut='f',typ=fonction),
7289 D_SIGMA_T =SIMP(statut='f',typ=fonction),
7290 PERM_G_INTR =SIMP(statut='f',typ=fonction),
7291 CHAL_VAPO =SIMP(statut='f',typ=fonction),
7292 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7293 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="SAT",into=("SAT",) ),
7294 VERI_P3 =SIMP(statut='c',typ='TXM',defaut="PORO",into=("PORO",) ),
7295 VERI_P4 =SIMP(statut='c',typ='TXM',defaut="PGAZ",into=("PGAZ",) ),
7296 VERI_P5 =SIMP(statut='c',typ='TXM',defaut="PCAP",into=("PCAP",) ),
7299 # courbes et coefficients associés à la fatigue et au dommage
7301 FATIGUE =FACT(statut='f',min=0,max=1,
7302 regles=(PRESENT_ABSENT('WOHLER','A_BASQUIN','BETA_BASQUIN'),
7303 PRESENT_ABSENT('WOHLER','A0','A1','A2','A3','SL'),
7304 PRESENT_ABSENT('A_BASQUIN','A0','A1','A2','A3','SL'),
7305 ENSEMBLE('A_BASQUIN','BETA_BASQUIN'),
7306 ENSEMBLE('A0','A1','A2','A3','SL'),
7307 PRESENT_PRESENT('A0','E_REFE'),
7308 ENSEMBLE('D0','TAU0'),),
7309 WOHLER =SIMP(statut='f',typ=fonction),
7310 A_BASQUIN =SIMP(statut='f',typ='R'),
7311 BETA_BASQUIN =SIMP(statut='f',typ='R'),
7312 A0 =SIMP(statut='f',typ='R'),
7313 A1 =SIMP(statut='f',typ='R'),
7314 A2 =SIMP(statut='f',typ='R'),
7315 A3 =SIMP(statut='f',typ='R'),
7316 SL =SIMP(statut='f',typ='R'),
7317 MANSON_COFFIN =SIMP(statut='f',typ=fonction),
7318 E_REFE =SIMP(statut='f',typ='R'),
7319 D0 =SIMP(statut='f',typ='R'),
7320 TAU0 =SIMP(statut='f',typ='R'),
7321 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="SIGM",into=("SIGM",) ),
7322 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",) ),
7324 DOMMA_LEMAITRE =FACT(statut='f',min=0,max=1,
7325 S =SIMP(statut='o',typ=fonction),
7326 EPSP_SEUIL =SIMP(statut='o',typ='R'),
7327 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7329 CISA_PLAN_CRIT =FACT(statut='f',min=0,max=1,
7330 MATAKE_A =SIMP(statut='o',typ='R'),
7331 MATAKE_B =SIMP(statut='o',typ='R'),
7332 ENDU_FT =SIMP(statut='o',typ='R',val_min=1.0E0,val_max=1.7321E0),
7335 # autres comportements ...
7337 WEIBULL =FACT(statut='f',min=0,max=1,
7338 M =SIMP(statut='o',typ='R'),
7339 VOLU_REFE =SIMP(statut='o',typ='R'),
7340 SIGM_REFE =SIMP(statut='o',typ='R'),
7341 SEUIL_EPSP_CUMU =SIMP(statut='f',typ='R',defaut= 1.0E-6),
7343 WEIBULL_FO =FACT(statut='f',min=0,max=1,
7344 M =SIMP(statut='o',typ='R'),
7345 VOLU_REFE =SIMP(statut='o',typ='R'),
7346 SIGM_CNV =SIMP(statut='o',typ='R'),
7347 SIGM_REFE =SIMP(statut='o',typ=fonction),
7348 SEUIL_EPSP_CUMU =SIMP(statut='f',typ='R',defaut= 1.0E-6),
7349 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7351 CONTACT =FACT(statut='f',min=0,max=1,
7352 E_N =SIMP(statut='o',typ='R'),
7353 E_T =SIMP(statut='f',typ='R',defaut= 0.E+0),
7354 COULOMB =SIMP(statut='f',typ='R',defaut= 0.E+0),
7356 NON_LOCAL =FACT(statut='f',min=0,max=1,
7357 LONG_CARA =SIMP(statut='o',typ='R'),
7358 COEF_RIGI_MINI =SIMP(statut='f',typ='R'),
7360 RUPT_FRAG =FACT(statut='f',min=0,max=1,
7361 GC =SIMP(statut='o',typ='R'),
7362 SIGM_C =SIMP(statut='f',typ='R'),
7363 SAUT_C =SIMP(statut='f',typ='R'),
7365 RCCM =FACT(statut='f',min=0,max=1,
7366 SY_02 =SIMP(statut='f',typ='R'),
7367 SM =SIMP(statut='f',typ='R'),
7368 SU =SIMP(statut='f',typ='R'),
7369 SC =SIMP(statut='f',typ='R'),
7370 SH =SIMP(statut='f',typ='R'),
7371 N_KE =SIMP(statut='f',typ='R'),
7372 M_KE =SIMP(statut='f',typ='R'),
7374 RCCM_FO =FACT(statut='f',min=0,max=1,
7375 SY_02 =SIMP(statut='f',typ=fonction),
7376 SM =SIMP(statut='f',typ=fonction),
7377 SU =SIMP(statut='f',typ=fonction),
7378 S =SIMP(statut='f',typ=fonction),
7379 N_KE =SIMP(statut='f',typ=fonction),
7380 M_KE =SIMP(statut='f',typ=fonction),
7382 LAIGLE =FACT(statut='f',min=0,max=1,
7383 GAMMA_ULT =SIMP(statut='o',typ='R'),
7384 GAMMA_E =SIMP(statut='o',typ='R'),
7385 M_ULT =SIMP(statut='o',typ='R'),
7386 M_E =SIMP(statut='o',typ='R'),
7387 A_E =SIMP(statut='o',typ='R'),
7388 M_PIC =SIMP(statut='o',typ='R'),
7389 A_PIC =SIMP(statut='o',typ='R'),
7390 ETA =SIMP(statut='o',typ='R'),
7391 SIGMA_C =SIMP(statut='o',typ='R'),
7392 GAMMA =SIMP(statut='o',typ='R'),
7393 KSI =SIMP(statut='o',typ='R'),
7394 GAMMA_CJS =SIMP(statut='o',typ='R'),
7395 SIGMA_P1 =SIMP(statut='o',typ='R'),
7396 SIGMA_P2 =SIMP(statut='o',typ='R'),
7397 PA =SIMP(statut='o',typ='R'),
7399 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
7401 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
7402 # CONFIGURATION MANAGEMENT OF EDF VERSION
7403 # ======================================================================
7404 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7405 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7406 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7407 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7408 # (AT YOUR OPTION) ANY LATER VERSION.
7410 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7411 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7412 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7413 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7415 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7416 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7417 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7418 # ======================================================================
7419 DEFI_MODELE_GENE=OPER(nom="DEFI_MODELE_GENE",op= 126,sd_prod=modele_gene,
7420 docu="U4.65.02-d",reentrant='n',
7421 SOUS_STRUC =FACT(statut='o',min=01,max='**',
7422 NOM =SIMP(statut='o',typ='TXM' ),
7423 MACR_ELEM_DYNA =SIMP(statut='o',typ=macr_elem_dyna ),
7424 ANGL_NAUT =SIMP(statut='f',typ='R',max=03),
7425 TRANS =SIMP(statut='f',typ='R',max=03),
7427 LIAISON =FACT(statut='o',min=01,max='**',
7428 SOUS_STRUC_1 =SIMP(statut='o',typ='TXM' ),
7429 INTERFACE_1 =SIMP(statut='o',typ='TXM' ),
7430 SOUS_STRUC_2 =SIMP(statut='o',typ='TXM' ),
7431 INTERFACE_2 =SIMP(statut='o',typ='TXM' ),
7433 VERIF =FACT(statut='f',min=01,max='**',
7434 # dans la doc U stop_erreur est obligatoire
7435 STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7436 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
7437 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7440 #& MODIF COMMANDE DATE 06/03/2002 AUTEUR MCOURTOI M.COURTOIS
7441 # CONFIGURATION MANAGEMENT OF EDF VERSION
7442 # ======================================================================
7443 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7444 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7445 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7446 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7447 # (AT YOUR OPTION) ANY LATER VERSION.
7449 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7450 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7451 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7452 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7454 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7455 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7456 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7457 # ======================================================================
7458 DEFI_NAPPE=OPER(nom="DEFI_NAPPE",op= 4,sd_prod=fonction,
7459 fr="Définition des valeurs d une fonction de deux variables réelles",
7460 docu="U4.31.03-g1",reentrant='n',
7461 regles=(UN_PARMI('FONCTION','DEFI_FONCTION'),
7462 EXCLUS('FONCTION','NOM_PARA_FONC',),
7463 ENSEMBLE('NOM_PARA_FONC','DEFI_FONCTION'),),
7464 NOM_PARA =SIMP(statut='o',typ='TXM',into=("TEMP","INST","X","Y","Z","FREQ","PULS",
7465 "AMOR","EPAIS","TSEC","HYDR","SECH") ),
7466 NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
7467 PARA =SIMP(statut='o',typ='R',max='**'),
7468 FONCTION =SIMP(statut='f',typ=fonction,max='**' ),
7469 NOM_PARA_FONC =SIMP(statut='f',typ='TXM',into=("TEMP","INST","X","Y","Z","EPSI","FREQ",
7470 "PULS","AMOR","EPAIS") ),
7471 DEFI_FONCTION =FACT(statut='f',max='**',
7472 VALE =SIMP(statut='o',typ='R',max='**'),
7473 INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
7474 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7475 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7477 INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
7478 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7479 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7480 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
7481 VERIF =SIMP(statut='f',typ='TXM',into=("CROISSANT",) ),
7482 TITRE =SIMP(statut='f',typ='TXM',max='**'),
7484 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
7485 # CONFIGURATION MANAGEMENT OF EDF VERSION
7486 # ======================================================================
7487 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7488 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7489 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7490 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7491 # (AT YOUR OPTION) ANY LATER VERSION.
7493 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7494 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7495 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7496 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7498 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7499 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7500 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7501 # ======================================================================
7502 DEFI_OBSTACLE=OPER(nom="DEFI_OBSTACLE",op= 73,sd_prod=obstacle
7503 ,fr="Définition d un obstacle plan perpendiculaire à une structure filaire",
7504 docu="U4.44.21-e",reentrant='n',
7505 TYPE =SIMP(statut='o',typ='TXM',defaut="CERCLE",
7506 into=("CERCLE","PLAN_Y","PLAN_Z","DISCRET",
7507 "BI_CERCLE","BI_PLAN_Y","BI_PLAN_Z","BI_CERC_INT",
7508 "CRAYON_900","CRAYON_1300","GUID_A_CARTE_900",
7509 "GUID_B_CARTE_900","GUID_C_CARTE_900",
7510 "GUID_D_CARTE_900","GUID_E_CARTE_900",
7511 "GUID_F_CARTE_900","GUID_A_CARTE_1300",
7512 "GUID_B_CARTE_1300","GUID_C_CARTE_1300",
7513 "GUID_D_CARTE_1300","GUID_E_CARTE_1300",
7514 "GUID_F_CARTE_1300","GUID_A_CARSP_900",
7515 "GUID_B_CARSP_900","GUID_C_CARSP_900",
7516 "GUID_D_CARSP_900","GUID_E_CARSP_900",
7517 "GUID_F_CARSP_900","GUID_A_CARSP_1300",
7518 "GUID_B_CARSP_1300","GUID_C_CARSP_1300",
7519 "GUID_D_CARSP_1300","GUID_E_CARSP_1300",
7520 "GUID_F_CARSP_1300","GUID_A_GCONT_900",
7521 "GUID_B_GCONT_900","GUID_C_GCONT_900",
7522 "GUID_D_GCONT_900","GUID_E_GCONT_900",
7523 "GUID_F_GCONT_900","GUID_A_GCONT_1300",
7524 "GUID_B_GCONT_1300","GUID_C_GCONT_1300",
7525 "GUID_D_GCONT_1300","GUID_E_GCONT_1300",
7526 "GUID_F_GCONT_1300","GUID_A_GCOMB_900",
7527 "GUID_B_GCOMB_900","GUID_C_GCOMB_900",
7528 "GUID_D_GCOMB_900","GUID_E_GCOMB_900",
7529 "GUID_F_GCOMB_900","GUID_A_GCOMB_1300",
7530 "GUID_B_GCOMB_1300","GUID_C_GCOMB_1300",
7531 "GUID_D_GCOMB_1300","GUID_E_GCOMB_1300",
7532 "GUID_F_GCOMB_1300",) ),
7533 VALE =SIMP(statut='f',typ='R',max='**'),
7534 VERIF =SIMP(statut='f',typ='TXM',defaut="FERME"),
7536 #& MODIF COMMANDE DATE 10/10/2001 AUTEUR DURAND C.DURAND
7537 # CONFIGURATION MANAGEMENT OF EDF VERSION
7538 # ======================================================================
7539 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7540 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7541 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7542 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7543 # (AT YOUR OPTION) ANY LATER VERSION.
7545 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7546 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7547 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7548 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7550 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7551 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7552 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7553 # ======================================================================
7554 # RESPONSABLE GNICOLAS G.NICOLAS
7555 DEFI_PARA_SENSI=OPER(nom="DEFI_PARA_SENSI",op= 2,sd_prod=para_sensi,
7556 fr="Définition d'un paramètre de sensibilité",
7557 ang="Definition of a sensitive parameter",
7558 docu="U4.31.xx-a",reentrant='n',
7559 NOM_RESU =SIMP(statut='c',typ='TXM',into=("TOUTRESU",),defaut="TOUTRESU",
7560 fr="Nom du concept créé",
7561 ang="Name of the concept"),
7562 VALE =SIMP(statut='o',typ='R',max=01,
7563 fr="Valeur du parametre",
7564 ang="Value of the parameter"),
7565 TITRE =SIMP(statut='f',typ='TXM',max='**'),
7567 #& MODIF COMMANDE DATE 07/03/2001 AUTEUR VABHHTS J.PELLET
7568 # CONFIGURATION MANAGEMENT OF EDF VERSION
7569 # ======================================================================
7570 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7571 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7572 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7573 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7574 # (AT YOUR OPTION) ANY LATER VERSION.
7576 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7577 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7578 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7579 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7581 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7582 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7583 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7584 # ======================================================================
7585 DEFI_SPEC_TURB=OPER(nom="DEFI_SPEC_TURB",op= 145,sd_prod=spectre,
7586 fr="Définition d'un spectre d'excitation turbulente",
7587 docu="U4.44.31-c",reentrant='n',
7588 regles=(UN_PARMI('SPEC_LONG_COR_1','SPEC_LONG_COR_2','SPEC_LONG_COR_3',
7589 'SPEC_LONG_COR_4','SPEC_CORR_CONV_1','SPEC_CORR_CONV_2',
7590 'SPEC_FONC_FORME','SPEC_EXCI_POINT'),),
7591 SPEC_LONG_COR_1 =FACT(statut='f',min=00,max=01,
7592 LONG_COR =SIMP(statut='o',typ='R' ),
7593 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
7594 VISC_CINE =SIMP(statut='o',typ='R' ),
7596 SPEC_LONG_COR_2 =FACT(statut='f',min=00,max=01,
7597 regles=(ENSEMBLE('FREQ_COUP','PHI0','BETA' ),),
7598 LONG_COR =SIMP(statut='o',typ='R' ),
7599 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
7600 FREQ_COUP =SIMP(statut='f',typ='R',defaut= 0.1 ),
7601 PHI0 =SIMP(statut='f',typ='R',defaut= 1.5E-3 ),
7602 BETA =SIMP(statut='f',typ='R',defaut= 2.7 ),
7604 SPEC_LONG_COR_3 =FACT(statut='f',min=00,max=01,
7605 regles=(ENSEMBLE('PHI0_1','BETA_1','PHI0_2','BETA_2','FREQ_COUP'),),
7606 LONG_COR =SIMP(statut='o',typ='R' ),
7607 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
7608 FREQ_COUP =SIMP(statut='f',typ='R',defaut= 0.2 ),
7609 PHI0_1 =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
7610 BETA_1 =SIMP(statut='f',typ='R',defaut= 0.5 ),
7611 PHI0_2 =SIMP(statut='f',typ='R',defaut= 4.E-5 ),
7612 BETA_2 =SIMP(statut='f',typ='R',defaut= 3.5 ),
7614 SPEC_LONG_COR_4 =FACT(statut='f',min=00,max=01,
7615 regles=(ENSEMBLE('BETA','GAMMA'),),
7616 LONG_COR =SIMP(statut='o',typ='R' ),
7617 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
7618 TAUX_VIDE =SIMP(statut='o',typ='R' ),
7619 BETA =SIMP(statut='f',typ='R',defaut= 2. ),
7620 GAMMA =SIMP(statut='f',typ='R',defaut= 4. ),
7622 SPEC_CORR_CONV_1=FACT(statut='f',min=00,max=01,
7623 LONG_COR_1 =SIMP(statut='o',typ='R' ),
7624 LONG_COR_2 =SIMP(statut='f',typ='R' ),
7625 VITE_FLUI =SIMP(statut='o',typ='R' ),
7626 RHO_FLUI =SIMP(statut='o',typ='R' ),
7627 FREQ_COUP =SIMP(statut='f',typ='R' ),
7628 K =SIMP(statut='f',typ='R',defaut= 5.8E-3 ),
7629 D_FLUI =SIMP(statut='o',typ='R' ),
7630 COEF_VITE_FLUI_A=SIMP(statut='f',typ='R' ),
7631 COEF_VITE_FLUI_O=SIMP(statut='f',typ='R' ),
7632 METHODE =SIMP(statut='f',typ='TXM',defaut="GENERALE",
7633 into=("AU_YANG","GENERALE","CORCOS") ),
7635 SPEC_CORR_CONV_2=FACT(statut='f',min=00,max=01,
7636 FONCTION =SIMP(statut='o',typ=fonction ),
7637 VITE_FLUI =SIMP(statut='o',typ='R' ),
7638 FREQ_COUP =SIMP(statut='f',typ='R' ),
7639 METHODE =SIMP(statut='f',typ='TXM',defaut="GENERALE",
7640 into=("AU_YANG","GENERALE","CORCOS",) ),
7641 COEF_VITE_FLUI_A=SIMP(statut='f',typ='R' ),
7642 COEF_VITE_FLUI_O=SIMP(statut='f',typ='R' ),
7644 SPEC_FONC_FORME =FACT(statut='f',min=00,max=01,
7645 regles=(UN_PARMI('INTE_SPEC','GRAPPE_1'),
7646 ENSEMBLE('INTE_SPEC','FONCTION'),),
7647 INTE_SPEC =SIMP(statut='f',typ=tabl_intsp ),
7648 FONCTION =SIMP(statut='f',typ=fonction,max='**'),
7649 GRAPPE_1 =SIMP(statut='f',typ='TXM',into=("DEBIT_180","DEBIT_300",) ),
7650 NOEUD =SIMP(statut='o',typ=no),
7651 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
7652 MODELE =SIMP(statut='o',typ=modele ),
7654 SPEC_EXCI_POINT =FACT(statut='f',min=00,max=01,
7655 regles=(UN_PARMI('INTE_SPEC','GRAPPE_2'),),
7656 INTE_SPEC =SIMP(statut='f',typ=tabl_intsp ),
7657 GRAPPE_2 =SIMP(statut='f',typ='TXM',
7658 into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC",) ),
7659 # Quels sont les statuts des mots cles à l interieur des deux blocs qui suivent
7660 b_inte_spec =BLOC(condition = "INTE_SPEC != None",
7661 NATURE =SIMP(statut='o',typ='TXM',max='**',into=("FORCE","MOMENT",) ),
7662 ANGL =SIMP(statut='o',typ='R',max='**'),
7663 NOEUD =SIMP(statut='o',typ=no,max='**'),
7665 b_grappe_2 =BLOC(condition = "GRAPPE_2 != None",
7666 RHO_FLUI =SIMP(statut='o',typ='R' ),
7667 NOEUD =SIMP(statut='o',typ=no),
7669 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
7670 MODELE =SIMP(statut='o',typ=modele ),
7672 TITRE =SIMP(statut='f',typ='TXM',max='**'),
7674 #& MODIF COMMANDE DATE 16/01/2002 AUTEUR DURAND C.DURAND
7675 # CONFIGURATION MANAGEMENT OF EDF VERSION
7676 # ======================================================================
7677 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7678 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7679 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7680 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7681 # (AT YOUR OPTION) ANY LATER VERSION.
7683 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7684 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7685 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7686 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7688 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7689 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7690 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7691 # ======================================================================
7692 DEFI_SQUELETTE=OPER(nom="DEFI_SQUELETTE",op= 110,sd_prod=squelette,
7693 fr="Définition d un maillage de visualisation",
7694 docu="U4.24.01-e",reentrant='n',
7695 regles=(UN_PARMI('MODE_CYCL','MODELE_GENE','MAILLAGE'),
7696 PRESENT_PRESENT('MODE_CYCL','SECTEUR'),
7697 EXCLUS('SOUS_STRUC','SECTEUR'),
7698 PRESENT_PRESENT('NOM_GROUP_MA','MODELE_GENE'),
7699 PRESENT_PRESENT('NOM_GROUP_MA','SOUS_STRUC'),),
7700 MODE_CYCL =SIMP(statut='f',typ=mode_cycl ),
7701 MODELE_GENE =SIMP(statut='f',typ=modele_gene ),
7702 SQUELETTE =SIMP(statut='f',typ=squelette ),
7703 RECO_GLOBAL =FACT(statut='f',min=01,max='**',
7704 regles=(EXCLUS('TOUT','GROUP_NO_1'),
7705 PRESENT_PRESENT('GROUP_NO_1','GROUP_NO_2'),
7706 PRESENT_PRESENT('GROUP_NO_1','SOUS_STRUC_1'),
7707 PRESENT_PRESENT('GROUP_NO_2','SOUS_STRUC_2'),
7708 PRESENT_PRESENT('SOUS_STRUC_1','SOUS_STRUC_2'),),
7709 TOUT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",) ),
7710 GROUP_NO_1 =SIMP(statut='f',typ=grno),
7711 SOUS_STRUC_1 =SIMP(statut='f',typ='TXM' ),
7712 GROUP_NO_2 =SIMP(statut='f',typ=grno),
7713 SOUS_STRUC_2 =SIMP(statut='f',typ='TXM' ),
7714 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
7715 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7716 DIST_REFE =SIMP(statut='f',typ='R' ),
7718 NOM_GROUP_MA =FACT(statut='f',min=01,max='**',
7719 NOM =SIMP(statut='o',typ='TXM' ),
7720 SOUS_STRUC =SIMP(statut='o',typ='TXM' ),
7721 GROUP_MA =SIMP(statut='o',typ=grma),
7723 EXCLUSIF =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7724 MAILLAGE =SIMP(statut='f',typ=maillage ),
7725 MAILLE =SIMP(statut='f',typ=ma,max='**'),
7726 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
7727 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7728 TRANS =SIMP(statut='f',typ='R',min=3,max=3),
7729 ANGL_NAUT =SIMP(statut='f',typ='R',min=3,max=3),
7730 SOUS_STRUC =FACT(statut='f',min=01,max='**',
7731 NOM =SIMP(statut='f',typ='TXM' ),
7732 MAILLE =SIMP(statut='f',typ=ma,max='**'),
7733 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
7734 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7736 SECTEUR =FACT(statut='f',min=01,max='**',
7737 MAILLE =SIMP(statut='f',typ=ma,max='**'),
7738 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
7739 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7741 TITRE =SIMP(statut='f',typ='TXM',max='**'),
7743 #& MODIF COMMANDE DATE 16/01/2002 AUTEUR DURAND C.DURAND
7744 # CONFIGURATION MANAGEMENT OF EDF VERSION
7745 # ======================================================================
7746 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7747 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7748 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7749 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7750 # (AT YOUR OPTION) ANY LATER VERSION.
7752 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7753 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7754 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7755 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7757 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7758 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7759 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7760 # ======================================================================
7761 DEFI_TEXTURE=OPER(nom="DEFI_TEXTURE",op= 181,sd_prod=tabl_texture,
7762 fr=" ",docu="U4.43.05-a",reentrant='n',
7763 SYST_GLISSEMENT =FACT(statut='o',min=3,max=3,
7764 N =SIMP(statut='o',typ='R',min=12,max=12 ),
7765 L =SIMP(statut='o',typ='R',max='**' ),
7767 PLAN =FACT(statut='o',min=40,max=40,
7768 ANGL_NAUT =SIMP(statut='o',typ='R',max='**' ),
7769 PROPORTION =SIMP(statut='o',typ='R' ),
7771 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
7773 #& MODIF COMMANDE DATE 03/10/2001 AUTEUR DURAND C.DURAND
7774 # CONFIGURATION MANAGEMENT OF EDF VERSION
7775 # ======================================================================
7776 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7777 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7778 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7779 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7780 # (AT YOUR OPTION) ANY LATER VERSION.
7782 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7783 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7784 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7785 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7787 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7788 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7789 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7790 # ======================================================================
7791 DEFI_THER_JOULE=OPER(nom="DEFI_THER_JOULE",op= 121,sd_prod=fonction,docu="U4.MK.20-d",reentrant='n',
7792 fr="Calculer la fonction d évolution temporelle de température due à l effet JOULE dans un cable",
7793 LIST_INST =SIMP(statut='o',typ=listr8),
7794 INST_CC_INIT =SIMP(statut='f',typ='R',defaut= 0.0E+0 ),
7795 INST_CC_FIN =SIMP(statut='f',typ='R',defaut= 1.0E+10),
7796 INST_RENC_INIT =SIMP(statut='f',typ='R',defaut= 1.0E+10),
7797 INST_RENC_FIN =SIMP(statut='f',typ='R',defaut= 1.0E+10),
7798 TEMP_EXT_POSE =SIMP(statut='f',typ='R',defaut= 15.0E+0),
7799 TEMP_EXT =SIMP(statut='f',typ='R',defaut= 15.0E+0),
7800 TEMP_RESI_REF =SIMP(statut='f',typ='R',defaut= 20.0E+0),
7801 PARA_COND_1D =FACT(statut='f',min=01,max='**',
7802 INTE_CC =SIMP(statut='f',typ='R',defaut= 0.0E+0),
7803 INTE_RENC =SIMP(statut='f',typ='R',defaut= 0.0E+0),
7804 A =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7805 SECTION =SIMP(statut='f',typ='TXM',defaut="CERCLE",into=("CERCLE",) ),
7806 RESI_R0 =SIMP(statut='f',typ='R',defaut= 0.0E+0),
7807 RESI_R1 =SIMP(statut='f',typ='R',defaut= 0.E+0),
7808 RHO_CP =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7809 COEF_H =SIMP(statut='f',typ='R',defaut= 40.0E+0),
7810 TEMP_INIT =SIMP(statut='f',typ='R',defaut= 15.0E+0),
7814 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
7815 # CONFIGURATION MANAGEMENT OF EDF VERSION
7816 # ======================================================================
7817 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7818 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7819 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7820 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7821 # (AT YOUR OPTION) ANY LATER VERSION.
7823 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7824 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7825 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7826 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7828 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7829 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7830 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7831 # ======================================================================
7832 DEFI_TRC=OPER(nom="DEFI_TRC",op=94,sd_prod=tabl_trc,docu="U4.43.04-e",reentrant='n',
7833 fr="Définition d un diagramme de transformations en refroidissement continu d un acier",
7834 HIST_EXP =FACT(statut='o',min=01,max='**',
7835 VALE =SIMP(statut='o',typ='R',max='**'),
7837 TEMP_MS =FACT(statut='o',min=01,max='**',
7838 SEUIL =SIMP(statut='o',typ='R'),
7839 AKM =SIMP(statut='o',typ='R'),
7840 BKM =SIMP(statut='o',typ='R'),
7841 TPLM =SIMP(statut='o',typ='R'),
7843 GRAIN_AUST =FACT(statut='f',min=01,max='**',
7844 DREF =SIMP(statut='f',typ='R'),
7845 A =SIMP(statut='f',typ='R'),
7848 #& MODIF COMMANDE DATE 06/03/2002 AUTEUR MCOURTOI M.COURTOIS
7849 # CONFIGURATION MANAGEMENT OF EDF VERSION
7850 # ======================================================================
7851 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7852 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7853 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7854 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7855 # (AT YOUR OPTION) ANY LATER VERSION.
7857 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7858 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7859 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7860 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7862 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7863 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7864 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7865 # ======================================================================
7866 def defi_valeur_prod(self,IS=None,R8=None,TX=None,C8=None,LS=None):
7867 if IS != None : return entier
7868 if R8 != None : return reel
7869 if TX != None : return chaine
7870 if C8 != None : return complexe
7871 if LS != None : return liste
7872 raise AsException("type de concept resultat non prevu")
7874 DEFI_VALEUR=MACRO(nom="DEFI_VALEUR",op=-4,sd_prod=defi_valeur_prod,
7875 fr="Affectation d une valeur à une variable Superviseur",
7876 docu="U4.31.04-f1",reentrant='f',
7877 regles=(UN_PARMI('IS','R8','TX','C8','LS'),),
7878 IS =SIMP(statut='f',typ='I',max='**'),
7879 R8 =SIMP(statut='f',typ='R',max='**'),
7880 TX =SIMP(statut='f',typ='TXM',max='**'),
7881 C8 =SIMP(statut='f',typ='C',max='**'),
7882 LS =SIMP(statut='f',typ='L',max='**'),
7884 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
7885 # CONFIGURATION MANAGEMENT OF EDF VERSION
7886 # ======================================================================
7887 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7888 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7889 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7890 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7891 # (AT YOUR OPTION) ANY LATER VERSION.
7893 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7894 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7895 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7896 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7898 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7899 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7900 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7901 # ======================================================================
7902 DEFUFI=PROC(nom="DEFUFI",op=21,docu="U4.12.01-d",
7903 fr="Modification / ajout d une unité logique en sortie en complément de celles définies dans DEBUT",
7904 IMPRESSION =FACT(statut='o',min=01,max='**',
7905 NOM =SIMP(statut='o',typ='TXM',max='**'),
7906 UNITE =SIMP(statut='o',typ='I' ),
7909 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
7910 # CONFIGURATION MANAGEMENT OF EDF VERSION
7911 # ======================================================================
7912 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7913 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7914 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7915 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7916 # (AT YOUR OPTION) ANY LATER VERSION.
7918 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7919 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7920 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7921 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7923 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7924 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7925 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7926 # ======================================================================
7927 DEPL_INTERNE=OPER(nom="DEPL_INTERNE",op=89,sd_prod=cham_no_depl_r,docu="U4.62.02-e",reentrant='n',
7928 fr="Récupération du champ de déplacement interne à une sous-structure",
7929 DEPL_GLOBAL =SIMP(statut='o',typ=cham_no_depl_r),
7930 MAILLE =SIMP(statut='o',typ=ma,max=1),
7931 NOM_CAS =SIMP(statut='f',typ='TXM',defaut=" "),
7933 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
7934 # CONFIGURATION MANAGEMENT OF EDF VERSION
7935 # ======================================================================
7936 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7937 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7938 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7939 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7940 # (AT YOUR OPTION) ANY LATER VERSION.
7942 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7943 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7944 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7945 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7947 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7948 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7949 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7950 # ======================================================================
7951 DETRUIRE=PROC(nom="DETRUIRE",op=-7,docu="U4.14.01-d",
7952 fr="Destruction d un concept utilisateur dans la base GLOBALE",
7953 op_init=ops.detruire,
7954 CONCEPT =FACT(statut='o',min=01,
7955 NOM =SIMP(statut='o',typ=assd,max='**'),
7958 #& MODIF COMMANDE DATE 03/10/2001 AUTEUR DURAND C.DURAND
7959 # CONFIGURATION MANAGEMENT OF EDF VERSION
7960 # ======================================================================
7961 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7962 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7963 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7964 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7965 # (AT YOUR OPTION) ANY LATER VERSION.
7967 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7968 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7969 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7970 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7972 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7973 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7974 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7975 # ======================================================================
7976 DIST_LIGN_3D=OPER(nom="DIST_LIGN_3D",op= 133,sd_prod=fonction,docu="U4.MK.30-d",reentrant='n',
7977 fr="Calcul sous forme d une fonction du temps de la distance minimale entre deux structures filaires",
7978 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),
7979 UN_PARMI('GROUP_MA_2','POIN_FIXE'),),
7980 MODELE =SIMP(statut='o',typ=modele),
7981 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,evol_noli) ),
7982 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",)),
7983 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
7984 INST =SIMP(statut='f',typ='R',max='**'),
7985 LIST_INST =SIMP(statut='f',typ=listr8),
7986 LIST_ORDRE =SIMP(statut='f',typ=listis),
7987 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
7988 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7989 GROUP_MA_1 =SIMP(statut='o',typ=grma,max='**'),
7990 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
7991 POIN_FIXE =SIMP(statut='f',typ='R',min=3,max=3),
7992 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
7994 #& MODIF COMMANDE DATE 28/03/2001 AUTEUR CIBHHLV L.VIVAN
7995 # CONFIGURATION MANAGEMENT OF EDF VERSION
7996 # ======================================================================
7997 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7998 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7999 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8000 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8001 # (AT YOUR OPTION) ANY LATER VERSION.
8003 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8004 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8005 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8006 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8008 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8009 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8010 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8011 # ======================================================================
8012 DYNA_ALEA_MODAL=OPER(nom="DYNA_ALEA_MODAL",op= 131,sd_prod=tabl_intsp
8013 ,fr="Calcule la réponse spectrale d une structure linéaire sous une excitation connue par sa DSP",
8014 docu="U4.53.22-d",reentrant='n',
8015 BASE_MODALE =FACT(statut='o',min=01,max=01,
8016 regles=(UN_PARMI('NUME_ORDRE','BANDE'),),
8017 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
8018 BANDE =SIMP(statut='f',typ='R',max=02),
8019 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
8020 b_bande =BLOC(condition = "BANDE != None",
8021 AMOR_UNIF =SIMP(statut='o',typ='R' ),
8023 b_nume_ordre =BLOC(condition = "NUME_ORDRE != None",
8024 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
8027 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,)),
8028 EXCIT =FACT(statut='o',min=01,max=01,
8029 regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I'),
8030 EXCLUS('CHAM_NO','NOEUD'),),
8031 DERIVATION =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ) ),
8032 MODAL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8033 # dans la doc U il y a plus de choix pour GRANDEUR
8034 GRANDEUR =SIMP(statut='f',typ='TXM',defaut="DEPL_R",
8035 into=("DEPL_R","EFFO","SOUR_DEBI_VOLU","SOUR_DEBI_MASS","SOUR_PRESS","SOUR_FORCE")),
8036 INTE_SPEC =SIMP(statut='o',typ=tabl_intsp ),
8037 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
8038 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG",) ),
8039 # Toutes les regles ne semblent pas avoir été ecrites dans la doc U
8040 NUME_ORDRE_I =SIMP(statut='f',typ='I',max='**'),
8041 NOEUD_I =SIMP(statut='f',typ=no,max='**'),
8042 b_nume_ordre_i =BLOC(condition = "NUME_ORDRE_I != None",
8043 NUME_ORDRE_J =SIMP(statut='o',typ='I',max='**'),
8045 b_noeud_i =BLOC(condition = "NOEUD_I != None",
8046 NOEUD_J =SIMP(statut='o',typ=no,max='**'),
8047 NOM_CMP_I =SIMP(statut='o',typ='TXM',max='**'),
8048 NOM_CMP_J =SIMP(statut='o',typ='TXM',max='**'),
8050 CHAM_NO =SIMP(statut='f',typ=cham_no),
8051 NOEUD =SIMP(statut='f',typ=no,max='**'),
8052 b_noeud =BLOC(condition = "NOEUD != None",
8053 NOM_CMP =SIMP(statut='o',typ='TXM',max='**'),
8056 REPONSE =FACT(statut='f',min=01,max=01,
8057 regles=(EXCLUS('FREQ_MIN','NB_POIN_MODE'),
8058 EXCLUS('FREQ_MIN','FREQ_EXCIT'),
8059 ENSEMBLE('FREQ_MIN','FREQ_MAX'),),
8060 # Toutes les regles ne semblent pas avoir été ecrites dans la doc U
8061 DERIVATION =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ,) ),
8062 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
8063 FREQ_MIN =SIMP(statut='f',typ='R' ),
8064 FREQ_MAX =SIMP(statut='f',typ='R' ),
8065 PAS =SIMP(statut='f',typ='R' ),
8066 FREQ_EXCIT =SIMP(statut='f',typ='TXM',defaut="AVEC",into=("AVEC","SANS") ),
8067 NB_POIN_MODE =SIMP(statut='f',typ='I',defaut= 50 ),
8069 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8070 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
8072 #& MODIF COMMANDE DATE 26/03/2002 AUTEUR CAMBIER S.CAMBIER
8073 # CONFIGURATION MANAGEMENT OF EDF VERSION
8074 # ======================================================================
8075 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8076 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8077 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8078 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8079 # (AT YOUR OPTION) ANY LATER VERSION.
8081 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8082 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8083 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8084 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8086 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8087 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8088 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8089 # ======================================================================
8090 def dyna_line_harm_prod(MATR_MASS,**args):
8091 if AsType(MATR_MASS) == matr_asse_depl_r : return dyna_harmo
8092 if AsType(MATR_MASS) == matr_asse_depl_c : return dyna_harmo
8093 if AsType(MATR_MASS) == matr_asse_pres_c : return acou_harmo
8094 if AsType(MATR_MASS) == matr_asse_gene_r : return harm_gene
8095 raise AsException("type de concept resultat non prevu")
8097 DYNA_LINE_HARM=OPER(nom="DYNA_LINE_HARM",op= 60,sd_prod=dyna_line_harm_prod,
8098 fr="Réponse dynamique complexe d un système à une excitation harmonique",
8099 docu="U4.53.11-e",reentrant='n',
8100 regles=(PRESENT_ABSENT('AMOR_REDUIT','MATR_AMOR'),
8101 PRESENT_ABSENT('AMOR_REDUIT','LIST_AMOR'),
8102 PRESENT_ABSENT('MATR_AMOR','LIST_AMOR'),
8103 UN_PARMI('FREQ','LIST_FREQ'),),
8104 MODELE =SIMP(statut='f',typ=modele ),
8105 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
8106 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
8107 MATR_MASS =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_pres_c,matr_asse_gene_r ) ),
8108 MATR_RIGI =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_pres_c
8109 ,matr_asse_gene_r,matr_asse_gene_c ) ),
8110 MATR_AMOR =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_pres_c,matr_asse_gene_r ) ),
8111 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
8112 LIST_AMOR =SIMP(statut='f',typ=listr8 ),
8113 MATR_IMPE_PHI =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_gene_r) ),
8114 FREQ =SIMP(statut='f',typ='R',max='**'),
8115 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
8116 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI",)),
8117 NOM_CHAM =SIMP(statut='f',typ='TXM',max=03,into=("DEPL","VITE","ACCE") ),
8118 EXCIT =FACT(statut='o',min=01,max='**',
8119 regles=(UN_PARMI('VECT_ASSE','CHARGE'),
8120 UN_PARMI('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
8121 VECT_ASSE =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_pres_c,vect_asse_gene ) ),
8122 CHARGE =SIMP(statut='f',typ=char_meca ),
8123 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
8124 FONC_MULT_C =SIMP(statut='f',typ=fonction_c ),
8125 COEF_MULT_C =SIMP(statut='f',typ='C' ),
8126 FONC_MULT =SIMP(statut='f',typ=fonction ),
8127 COEF_MULT =SIMP(statut='f',typ='R' ),
8128 PHAS_DEG =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8129 PUIS_PULS =SIMP(statut='f',typ='I',defaut= 0 ),
8131 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8132 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
8133 fr="Liste des paramètres de sensibilité.",
8134 ang="List of sensitivity parameters"),
8136 # Rajouter test icompatibilite vect_asse et sensibilite
8137 # Peut-on aussi rajouter ici le test d incompatibilite charge complexe - derivation
8138 # presents dans le Fortran
8139 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
8140 # CONFIGURATION MANAGEMENT OF EDF VERSION
8141 # ======================================================================
8142 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8143 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8144 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8145 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8146 # (AT YOUR OPTION) ANY LATER VERSION.
8148 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8149 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8150 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8151 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8153 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8154 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8155 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8156 # ======================================================================
8157 DYNA_LINE_TRAN=OPER(nom="DYNA_LINE_TRAN",op= 48,sd_prod=dyna_trans,
8158 fr="Réponse temporelle d un système à une excitation transitoire",
8159 docu="U4.53.02-g1",reentrant='f',
8160 # regles=(UN_PARMI('WILSON','DIFF_CENTRE','ADAPT'),),
8161 regles=(UN_PARMI('NEWMARK','WILSON','DIFF_CENTRE','ADAPT'),),
8162 MODELE =SIMP(statut='f',typ=modele ),
8163 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
8164 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
8165 MATR_MASS =SIMP(statut='o',typ=matr_asse_depl_r ),
8166 MATR_RIGI =SIMP(statut='o',typ=matr_asse_depl_r ),
8167 MATR_AMOR =SIMP(statut='f',typ=matr_asse_depl_r ),
8168 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
8169 NEWMARK =FACT(statut='f',min=01,max=01,
8170 ALPHA =SIMP(statut='f',typ='R',defaut= 0.25 ),
8171 DELTA =SIMP(statut='f',typ='R',defaut= 0.5 ),
8173 WILSON =FACT(statut='f',min=01,max=01,
8174 THETA =SIMP(statut='f',typ='R',defaut= 1.4 ),
8176 DIFF_CENTRE =FACT(statut='f',min=01,max=01,
8178 ADAPT =FACT(statut='f',min=01,max=01,
8180 ETAT_INIT =FACT(statut='f',min=01,max=01,
8181 regles=(AU_MOINS_UN('DYNA_TRANS', 'DEPL_INIT', 'VITE_INIT',),
8182 PRESENT_ABSENT('DYNA_TRANS', 'DEPL_INIT', 'VITE_INIT'),),
8183 DYNA_TRANS =SIMP(statut='f',typ=dyna_trans ),
8184 b_dyna_trans =BLOC(condition = "DYNA_TRANS != None",
8185 regles=(EXCLUS('NUME_INIT','INST_INIT' ),),
8186 NUME_INIT =SIMP(statut='f',typ='I' ),
8187 INST_INIT =SIMP(statut='f',typ='R' ),
8188 b_inst_init =BLOC(condition = "INST_INIT != None",
8189 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
8190 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8193 DEPL_INIT =SIMP(statut='f',typ=(cham_no_depl_r) ),
8194 VITE_INIT =SIMP(statut='f',typ=(cham_no_depl_r) ),
8196 EXCIT =FACT(statut='f',min=01,max='**',
8197 regles=(UN_PARMI('CHARGE','VECT_ASSE'),
8198 EXCLUS('CHARGE','COEF_MULT'),
8199 EXCLUS('FONC_MULT','COEF_MULT'),
8200 EXCLUS('ACCE','COEF_MULT'),
8201 PRESENT_ABSENT('ACCE','FONC_MULT'),
8202 PRESENT_PRESENT('ACCE','VITE','DEPL'),
8203 PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
8204 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r ),
8205 CHARGE =SIMP(statut='f',typ=char_meca ),
8206 FONC_MULT =SIMP(statut='f',typ=fonction ),
8207 COEF_MULT =SIMP(statut='f',typ='R' ),
8208 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
8209 ACCE =SIMP(statut='f',typ=fonction ),
8210 VITE =SIMP(statut='f',typ=fonction ),
8211 DEPL =SIMP(statut='f',typ=fonction ),
8212 MULT_APPUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
8213 DIRECTION =SIMP(statut='f',typ='R',max='**'),
8214 NOEUD =SIMP(statut='f',typ=no,max='**'),
8215 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
8217 AMOR_MODAL =FACT(statut='f',min=01,max=01,
8218 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
8219 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
8220 NB_MODE =SIMP(statut='f',typ='I',defaut= 9999 ),
8221 REAC_VITE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8223 # ce n est pas le mot clesolveur standard
8224 SOLVEUR =FACT(statut='d',min=01,max=01,
8225 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8226 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
8227 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8228 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8229 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
8231 INCREMENT =FACT(statut='o',min=01,max='**',
8232 regles=(UN_PARMI('LIST_INST','FONC_INST','PAS'),),
8233 LIST_INST =SIMP(statut='f',typ=listr8 ),
8234 FONC_INST =SIMP(statut='f',typ=fonction ),
8235 PAS =SIMP(statut='f',typ='R' ),
8236 b_pas =BLOC(condition = "PAS != None",
8237 INST_INIT =SIMP(statut='f',typ='R' ),
8238 INST_FIN =SIMP(statut='f',typ='R' ),
8240 b_list_fonc =BLOC(condition = "LIST_INST != None or FONC_INST != None",
8241 regles=(EXCLUS('INST_FIN','NUME_FIN'),),
8242 NUME_FIN =SIMP(statut='f',typ='I' ),
8243 INST_FIN =SIMP(statut='f',typ='R' ),
8245 VITE_MIN =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
8246 COEF_MULT_PAS =SIMP(statut='f',typ='R',defaut= 1.1 ),
8247 COEF_DIVI_PAS =SIMP(statut='f',typ='R',defaut= 1.33334 ),
8248 PAS_LIMI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8249 NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
8250 NMAX_ITER_PAS =SIMP(statut='f',typ='I',defaut= 16 ),
8251 PAS_CALCUL =SIMP(statut='f',typ='I',defaut= 1 ),
8253 ARCHIVAGE =FACT(statut='f',min=01,max=01,
8254 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH', ),),
8255 LIST_ARCH =SIMP(statut='f',typ=listis ),
8256 PAS_ARCH =SIMP(statut='f',typ='I' ),
8257 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","VITE","ACCE") ),
8259 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8260 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
8262 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
8263 # CONFIGURATION MANAGEMENT OF EDF VERSION
8264 # ======================================================================
8265 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8266 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8267 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8268 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8269 # (AT YOUR OPTION) ANY LATER VERSION.
8271 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8272 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8273 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8274 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8276 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8277 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8278 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8279 # ======================================================================
8280 DYNA_NON_LINE=OPER(nom="DYNA_NON_LINE",op= 70,sd_prod=evol_noli,reentrant='f',
8281 fr="Analyse mécanique dynamique non linéaire",docu="U4.53.01-f2",
8282 regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS',),
8283 UN_PARMI('NEWMARK','HHT', ),),
8284 MODELE =SIMP(statut='o',typ=modele),
8285 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
8286 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,)),
8287 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
8288 EXCIT =FACT(statut='o',min=1,max='**',
8289 regles=(PRESENT_ABSENT('FONC_MULT','ACCE'),
8290 PRESENT_PRESENT('ACCE','VITE','DEPL'),
8291 PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
8292 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
8293 into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
8294 CHARGE =SIMP(statut='o',typ=char_meca),
8295 FONC_MULT =SIMP(statut='f',typ=fonction),
8296 DEPL =SIMP(statut='f',typ=fonction),
8297 ACCE =SIMP(statut='f',typ=fonction),
8298 VITE =SIMP(statut='f',typ=fonction),
8299 MULT_APPUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8300 DIRECTION =SIMP(statut='f',typ='R',max='**'),
8301 NOEUD =SIMP(statut='f',typ=no,max='**'),
8302 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
8304 AMOR_MODAL =FACT(statut='f',min=1,max=1,
8305 MODE_MECA =SIMP(statut='f',typ=mode_meca),
8306 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**' ),
8307 NB_MODE =SIMP(statut='f',typ='I',defaut= 9999 ),
8308 REAC_VITE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8310 VARI_COMM =FACT(statut='f',
8311 regles=(AU_MOINS_UN('IRRA',),),
8312 IRRA =SIMP(statut='f',typ=evol_varc),
8314 COMP_INCR =FACT(statut='f',min=1,max='**',
8315 RELATION =SIMP(statut='o',typ='TXM',defaut="VMIS_ISOT_TRAC",
8402 ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8403 VMIS_ISOT_TRAC =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8404 VMIS_ISOT_LINE =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8405 VMIS_ECMI_TRAC =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8406 VMIS_ECMI_LINE =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8407 LABORD_1D =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
8408 ENDO_FRAGILE =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8409 ENDO_ISOT_BETON =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8410 MAZARS =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8411 BETON_GRAD_EPSI =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8412 RUPT_FRAG =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8413 BARENBLATT =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8414 META_P_IL =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8415 META_P_IL_PT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8416 META_P_IL_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8417 META_P_IL_PT_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8418 META_V_IL =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8419 META_V_IL_PT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8420 META_V_IL_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8421 META_V_IL_PT_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8422 META_P_INL =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8423 META_P_INL_PT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8424 META_P_INL_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8425 META_P_INL_PT_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8426 META_V_INL =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8427 META_V_INL_PT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8428 META_V_INL_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8429 META_V_INL_PT_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8430 META_P_CL =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8431 META_P_CL_PT =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8432 META_P_CL_RE =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8433 META_P_CL_PT_RE =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8434 META_V_CL =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8435 META_V_CL_PT =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8436 META_V_CL_RE =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8437 META_V_CL_PT_RE =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8438 VMIS_CINE_LINE =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
8439 CHABOCHE =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
8440 VISCOCHAB =SIMP(statut='c',typ='I',defaut=28,into=(28,)),
8441 VMIS_CIN1_CHAB =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8442 VMIS_CIN2_CHAB =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
8443 POLY_CFC =SIMP(statut='c',typ='I',defaut=1688,into=(1688,)),
8444 LMARC =SIMP(statut='c',typ='I',defaut=20,into=(20,)),
8445 VISC_TAHERI =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
8446 ROUSSELIER =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
8447 ROUSS_PR =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8448 ROUSS_VISC =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8449 VMIS_POU_LINE =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
8450 VMIS_POU_FLEJOU =SIMP(statut='c',typ='I',defaut=9 ,into=(9,)),
8451 COULOMB =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8452 ASSE_CORN =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8453 ARME =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8454 NORTON_HOFF =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8455 LEMAITRE =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8456 ZIRC_CYRA2 =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8457 ZIRC_EPRI =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8458 ASSE_COMBU =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
8459 NADAI_B =SIMP(statut='c',typ='I',defaut=34,into=(34,)),
8460 VENDOCHAB =SIMP(statut='c',typ='I',defaut=10,into=(10,)),
8461 GRILLE_ISOT_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8462 GRILLE_CINE_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8463 GRILLE_PINTO_MEN=SIMP(statut='c',typ='I',defaut=16,into=(16,)),
8464 DIS_CONTACT =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8465 DIS_CHOC =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
8466 DIS_GOUJ2E_PLAS =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8467 DIS_GOUJ2E_ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8468 PINTO_MENEGOTTO =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8469 CJS =SIMP(statut='c',typ='I',defaut=16,into=(16,)),
8470 CAM_CLAY =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8471 LAIGLE =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8472 OHNO =SIMP(statut='c',typ='I',defaut=32,into=(32,)),
8473 GRANGER_FP =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
8474 GRANGER_FP_V =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
8475 GRANGER_FD =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8476 BETON_DOUBLE_DP =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8477 KIT_HM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8478 KIT_HHM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8479 KIT_THH =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8480 KIT_THM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8481 KIT_THHM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8482 VMIS_ASYM_LINE =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8484 RELATION_KIT =SIMP(statut='f',typ='TXM',max='**',
8524 ELAS_THM =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8525 SURF_ETAT_NSAT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8526 SURF_ETAT_SATU =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8527 CAM_CLAY_THM =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8528 GAZ =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8529 LIQU_SATU =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8530 LIQU_SATU_GAT =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8531 LIQU_GAZ_ATM =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8532 LIQU_VAPE_GAZ =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8533 LIQU_NSAT_GAT =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8534 LIQU_GAZ =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8535 THER_HOMO =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8536 THER_POLY =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8537 HYDR_UTIL =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8538 HYDR =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8539 ACIER =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
8540 ZIRC =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8542 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC","SIMO_MIEHE","GREEN_GR","GREEN",)),
8543 ALGO_C_PLAN =SIMP(statut='f',typ='TXM',defaut="ANALYTIQUE",into=("DEBORST","ANALYTIQUE",)),
8544 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
8545 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8546 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
8547 MAILLE =SIMP(statut='f',typ=ma,max='**'),
8549 COMP_ELAS =FACT(statut='f',min=1,max='**',
8550 RELATION =SIMP(statut='o',typ='TXM',defaut="ELAS",
8551 into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
8552 "ELAS_POUTRE_GR","CABLE")),
8553 ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8554 ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8555 ELAS_VMIS_LINE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8556 ELAS_POUTRE_GR =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8557 CABLE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8558 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GREEN","GREEN_GR",) ),
8559 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
8560 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8561 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
8562 MAILLE =SIMP(statut='f',typ=ma,max='**'),
8564 #-------------------------------------------------------------------
8565 ETAT_INIT =FACT(statut='f',min=1,max=1,
8566 regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','VITE','SIGM','VARI','VARI_NON_LOCAL',),
8567 EXCLUS('EVOL_NOLI','DEPL',),
8568 EXCLUS('EVOL_NOLI','VITE'),
8569 EXCLUS('EVOL_NOLI','SIGM',),
8570 EXCLUS('EVOL_NOLI','VARI',),
8571 EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
8572 EXCLUS('NUME_ORDRE','INST'), ),
8573 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
8574 VITE =SIMP(statut='f',typ=cham_no_depl_r),
8575 SIGM =SIMP(statut='f',typ=(cham_elem_sief_r,carte_sief_r)),
8576 VARI =SIMP(statut='f',typ=cham_elem_vari_r),
8577 VARI_NON_LOCAL =SIMP(statut='f',typ=cham_no_vanl_r),
8578 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
8579 NUME_ORDRE =SIMP(statut='f',typ='I'),
8580 INST =SIMP(statut='f',typ='R'),
8581 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
8582 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8583 NUME_DIDI =SIMP(statut='f',typ='I'),
8584 INST_ETAT_INIT =SIMP(statut='f',typ='R'),
8586 #-------------------------------------------------------------------
8587 INCREMENT =FACT(statut='o',min=1,max=1,
8588 regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
8589 EXCLUS('NUME_INST_FIN','INST_FIN'),),
8590 LIST_INST =SIMP(statut='o',typ=listr8),
8591 EVOLUTION =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
8592 into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
8593 NUME_INST_INIT =SIMP(statut='f',typ='I'),
8594 INST_INIT =SIMP(statut='f',typ='R'),
8595 NUME_INST_FIN =SIMP(statut='f',typ='I'),
8596 INST_FIN =SIMP(statut='f',typ='R'),
8597 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
8598 SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
8599 SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
8600 COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8601 OPTI_LIST_INST =SIMP(statut='f',typ='TXM',into=("INCR_MAXI",),),
8602 NOM_CHAM =SIMP(statut='f',typ='TXM',),
8603 NOM_CMP =SIMP(statut='f',typ='TXM',),
8604 VALE =SIMP(statut='f',typ='R'),
8606 #-------------------------------------------------------------------
8607 NEWMARK =FACT(statut='f',min=1,max=1,
8608 ALPHA =SIMP(statut='f',typ='R',defaut= 0.25),
8609 DELTA =SIMP(statut='f',typ='R',defaut= 0.5),
8611 HHT =FACT(statut='f',min=1,max=1,
8612 ALPHA =SIMP(statut='f',typ='R'
8613 ,defaut= -0.29999999999999999 ),
8615 NEWTON =FACT(statut='d',min=1,max=1,
8616 REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
8617 PREDICTION =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE") ),
8618 MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
8619 REAC_ITER =SIMP(statut='f',typ='I',defaut= 0),
8620 PAS_MINI_ELAS =SIMP(statut='f',typ='R',defaut=0.0E+0),
8622 SOLVEUR =FACT(statut='d',min=1,max=1,
8623 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
8624 b_mult_front =BLOC(condition= "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
8625 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
8627 b_ldlt =BLOC(condition= "METHODE == 'LDLT'",fr="Paramètres de la méthode LDLT",
8628 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8630 b_ldlt_mult =BLOC(condition="METHODE == 'LDLT' or METHODE == 'MULT_FRONT'",
8631 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
8632 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
8633 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","DECOUPE") ),
8635 b_gcpc =BLOC(condition="METHODE == 'GCPC'",fr="Paramètres de la méthode du gradient conjugué",
8636 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
8637 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
8638 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
8639 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8640 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
8642 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8643 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8645 #-------------------------------------------------------------------
8646 RECH_LINEAIRE =FACT(statut='f',min=1,max=1,
8647 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
8648 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 3),
8650 PILOTAGE =FACT(statut='f',min=1,max=1,
8651 regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
8652 TYPE =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","PRED_ELAS_INCR","DEFORMATION") ),
8653 COEF_MULT =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8654 ETA_PILO_MAX =SIMP(statut='f',typ='R'),
8655 ETA_PILO_MIN =SIMP(statut='f',typ='R'),
8656 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8657 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
8658 MAILLE =SIMP(statut='f',typ=ma,max='**'),
8659 NOEUD =SIMP(statut='f',typ=no,max='**'),
8660 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
8661 NOM_CMP =SIMP(statut='f',typ='TXM',max='**' ),
8663 CONVERGENCE =FACT(statut='d',min=1,max=1,
8664 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
8665 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
8666 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
8667 ITER_GLOB_ELAS =SIMP(statut='f',typ='I',defaut=25),
8668 ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
8669 RESI_INTE_RELA =SIMP(statut='f',typ='R'
8671 ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
8672 ITER_INTE_PAS =SIMP(statut='f',typ='I',defaut= 0 ),
8673 TYPE_MATR_COMP =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
8674 RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
8675 into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
8677 #-------------------------------------------------------------------
8678 OPTION =SIMP(statut='f',typ='TXM',max='**',defaut="ELNO",
8679 into=("SIEF_ELNO_ELGA","VARI_ELNO_ELGA","EFGE_ELNO_CART","ELNO","SANS") ),
8680 ARCHIVAGE =FACT(statut='f',min=1,max=1,
8681 regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
8682 EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
8683 LIST_INST =SIMP(statut='f',typ=(listr8) ),
8684 INST =SIMP(statut='f',typ='R',max='**' ),
8685 PAS_ARCH =SIMP(statut='f',typ='I' ),
8686 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
8687 ARCH_ETAT_INIT =SIMP(statut='f',typ='TXM',into=("OUI",)),
8688 NUME_INIT =SIMP(statut='f',typ='I'),
8689 DETR_NUME_SUIV =SIMP(statut='f',typ='TXM',into=("OUI",)),
8690 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**',
8691 into=("DEPL","SIEF_ELGA","VARI_ELGA","ACCE","VITE","VARI_NON_LOCAL","LANL_ELGA")),
8693 OBSERVATION =FACT(statut='f',min=1,max='**',
8694 regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
8695 PRESENT_PRESENT('MAILLE','POINT'),),
8696 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
8698 into=("DEPL","VITE","ACCE","SIEF_ELGA","VARI_ELGA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU") ),
8699 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
8700 LIST_ARCH =SIMP(statut='f',typ=listis),
8701 LIST_INST =SIMP(statut='f',typ=listr8),
8702 INST =SIMP(statut='f',typ='R',max='**' ),
8703 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
8704 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8705 PAS_OBSE =SIMP(statut='f',typ='I'),
8706 NOEUD =SIMP(statut='f',typ=no,max='**'),
8707 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
8708 MAILLE =SIMP(statut='f',typ=ma,max='**'),
8709 POINT =SIMP(statut='f',typ='I',max='**'),
8711 #-------------------------------------------------------------------
8712 SOLV_NON_LOCAL =FACT(statut='f',min=1,max=1,
8713 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
8714 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
8715 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
8717 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
8718 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8720 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
8721 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
8722 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
8723 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8725 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
8726 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
8727 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
8728 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8729 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
8731 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8733 LAGR_NON_LOCAL =FACT(statut='f',max=1,
8734 ITER_DUAL_MAXI =SIMP(statut='f',typ='I',defaut= 50),
8735 RESI_DUAL_ABSO =SIMP(statut='o',typ='R'),
8736 RESI_PRIM_ABSO =SIMP(statut='o',typ='R'),
8737 R =SIMP(statut='f',typ='R',defaut= 1000.),
8738 ITER_PRIM_MAXI =SIMP(statut='f',typ='I',defaut= 10),
8740 #-------------------------------------------------------------------
8741 PARM_THETA =SIMP(statut='f',typ='R'
8743 #-------------------------------------------------------------------
8744 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
8745 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8747 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
8748 # CONFIGURATION MANAGEMENT OF EDF VERSION
8749 # ======================================================================
8750 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8751 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8752 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8753 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8754 # (AT YOUR OPTION) ANY LATER VERSION.
8756 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8757 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8758 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8759 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8761 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8762 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8763 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8764 # ======================================================================
8765 DYNA_SPEC_MODAL=OPER(nom="DYNA_SPEC_MODAL",op= 147,sd_prod=tabl_intsp,
8766 fr="Calcul de la réponse par recombinaison modale d'une structure linéaire pour une excitation aléatoire",
8767 docu="U4.53.23-c",reentrant='n',
8768 BASE_ELAS_FLUI =SIMP(statut='o',typ=melasflu ),
8769 EXCIT =FACT(statut='o',min=00,max=01,
8770 INTE_SPEC_GENE =SIMP(statut='o',typ=tabl_intsp ),
8772 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
8773 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8775 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
8776 # CONFIGURATION MANAGEMENT OF EDF VERSION
8777 # ======================================================================
8778 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8779 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8780 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8781 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8782 # (AT YOUR OPTION) ANY LATER VERSION.
8784 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8785 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8786 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8787 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8789 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8790 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8791 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8792 # ======================================================================
8793 DYNA_TRAN_MODAL=OPER(nom="DYNA_TRAN_MODAL",op= 74,sd_prod=tran_gene,
8794 fr="Réponse dynamique transitoire en coordonnées généralisées par recombinaison modale",
8795 docu="U4.53.21-f1",reentrant='f',
8796 regles=(EXCLUS('AMOR_REDUIT','AMOR_GENE','LIST_AMOR'),
8797 PRESENT_ABSENT('MODE_STAT','MODE_CORR'),),
8798 METHODE =SIMP(statut='f',typ='TXM',defaut="EULER",
8799 into=("EULER","NEWMARK","DEVOGE","ADAPT","ITMI") ),
8800 MASS_GENE =SIMP(statut='o',typ=matr_asse_gene_r ),
8801 RIGI_GENE =SIMP(statut='o',typ=matr_asse_gene_r ),
8802 AMOR_GENE =SIMP(statut='f',typ=matr_asse_gene_r ),
8803 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
8804 LIST_AMOR =SIMP(statut='f',typ=listr8 ),
8805 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc) ),
8806 MODE_CORR =SIMP(statut='f',typ=(mult_elas,mode_stat_acce) ,),
8808 ETAT_INIT =FACT(statut='f',min=01,max=01,
8809 regles=(EXCLUS('RESU_GENE','DEPL_INIT_GENE'),
8810 EXCLUS('RESU_GENE','VITE_INIT_GENE'),),
8811 RESU_GENE =SIMP(statut='f',typ=tran_gene ),
8812 b_resu_gene =BLOC(condition = "RESU_GENE != None",
8813 INST_INIT =SIMP(statut='f',typ='R' ),
8814 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
8815 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8817 DEPL_INIT_GENE =SIMP(statut='f',typ=vect_asse_gene ),
8818 VITE_INIT_GENE =SIMP(statut='f',typ=vect_asse_gene ),
8820 INCREMENT =FACT(statut='o',min=01,max='**',
8821 INST_INIT =SIMP(statut='f',typ='R' ),
8822 INST_FIN =SIMP(statut='o',typ='R' ),
8823 PAS =SIMP(statut='f',typ='R' ),
8824 VERI_PAS =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8825 VITE_MIN =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
8826 COEF_MULT_PAS =SIMP(statut='f',typ='R',defaut= 1.1 ),
8827 COEF_DIVI_PAS =SIMP(statut='f',typ='R',defaut= 1.3333334 ),
8828 PAS_LIMI_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-6 ),
8829 NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
8830 NMAX_ITER_PAS =SIMP(statut='f',typ='I',defaut= 16 ),
8832 ARCHIVAGE =FACT(statut='f',min=01,max=01,
8833 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH'),),
8834 LIST_ARCH =SIMP(statut='f',typ=listis ),
8835 PAS_ARCH =SIMP(statut='f',typ='I' ),
8838 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 20 ),
8839 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
8840 LAMBDA =SIMP(statut='f',typ='R',defaut= 10. ),
8842 EXCIT =FACT(statut='f',min=01,max='**',
8843 regles=(UN_PARMI('FONC_MULT','COEF_MULT','ACCE'),
8844 PRESENT_PRESENT('ACCE','VITE','DEPL'),
8845 PRESENT_PRESENT('D_FONC_DT','D_FONC_DT2'),
8846 PRESENT_ABSENT('NUME_MODE','VECT_GENE','COEF_MULT'),
8847 PRESENT_ABSENT('MULT_APPUI','CORR_STAT'),
8848 PRESENT_ABSENT('MULT_APPUI','COEF_MULT'),
8849 PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
8850 VECT_GENE =SIMP(statut='f',typ=vect_asse_gene ),
8851 NUME_MODE =SIMP(statut='f',typ='I' ),
8852 FONC_MULT =SIMP(statut='f',typ=fonction ),
8853 COEF_MULT =SIMP(statut='f',typ='R' ),
8854 ACCE =SIMP(statut='f',typ=fonction ),
8855 VITE =SIMP(statut='f',typ=fonction ),
8856 DEPL =SIMP(statut='f',typ=fonction ),
8857 MULT_APPUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8858 DIRECTION =SIMP(statut='f',typ='R',max='**'),
8859 b_loca =BLOC(condition= "DIRECTION != None",
8860 regles=(EXCLUS('NOEUD','GROUP_NO'),),
8861 NOEUD =SIMP(statut='f',typ=no,max='**'),
8862 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
8864 CORR_STAT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8865 D_FONC_DT =SIMP(statut='f',typ=fonction ),
8866 D_FONC_DT2 =SIMP(statut='f',typ=fonction ),
8868 CHOC =FACT(statut='f',min=01,max='**',
8869 regles=(UN_PARMI('NOEUD_1','GROUP_NO_1' ),
8870 PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
8871 PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
8872 INTITULE =SIMP(statut='f',typ='TXM' ),
8873 NOEUD_1 =SIMP(statut='f',typ=no),
8874 NOEUD_2 =SIMP(statut='f',typ=no),
8875 GROUP_NO_1 =SIMP(statut='f',typ=grno),
8876 GROUP_NO_2 =SIMP(statut='f',typ=grno),
8877 OBSTACLE =SIMP(statut='o',typ=obstacle ),
8878 ORIG_OBST =SIMP(statut='f',typ='R',min=3,max=3),
8879 NORM_OBST =SIMP(statut='o',typ='R',min=3,max=3),
8880 ANGL_VRIL =SIMP(statut='f',typ='R' ),
8881 JEU =SIMP(statut='f',typ='R',defaut= 1. ),
8882 DIST_1 =SIMP(statut='f',typ='R',val_min=0.E+0 ),
8883 DIST_2 =SIMP(statut='f',typ='R',val_min=0.E+0 ),
8884 SOUS_STRUC_1 =SIMP(statut='f',typ='TXM' ),
8885 SOUS_STRUC_2 =SIMP(statut='f',typ='TXM' ),
8886 REPERE =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
8887 RIGI_NOR =SIMP(statut='f',typ='R' ),
8888 AMOR_NOR =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8889 RIGI_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8890 AMOR_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8891 COULOMB =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8893 LAME_FLUIDE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8894 b_lame =BLOC(condition="LAME_FLUIDE=='OUI'",
8895 ALPHA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8896 BETA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8897 CHI =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8898 DELTA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8901 VERI_CHOC =FACT(statut='f',min=01,max='**',
8902 STOP_CRITERE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8903 SEUIL =SIMP(statut='f',typ='R',defaut= 0.5 ),
8905 FLAMBAGE =FACT(statut='f',min=01,max='**',
8906 regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
8907 PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
8908 PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
8909 NOEUD_1 =SIMP(statut='f',typ=no),
8910 NOEUD_2 =SIMP(statut='f',typ=no),
8911 GROUP_NO_1 =SIMP(statut='f',typ=grno),
8912 GROUP_NO_2 =SIMP(statut='f',typ=grno),
8913 OBSTACLE =SIMP(statut='o',typ=obstacle ),
8914 ORIG_OBST =SIMP(statut='f',typ='R',max='**'),
8915 NORM_OBST =SIMP(statut='o',typ='R',max='**'),
8916 ANGL_VRIL =SIMP(statut='f',typ='R' ),
8917 JEU =SIMP(statut='f',typ='R',defaut= 1. ),
8918 DIST_1 =SIMP(statut='f',typ='R' ),
8919 DIST_2 =SIMP(statut='f',typ='R' ),
8920 REPERE =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
8921 RIGI_NOR =SIMP(statut='f',typ='R' ),
8922 FNOR_CRIT =SIMP(statut='f',typ='R' ),
8923 FNOR_POST_FL =SIMP(statut='f',typ='R' ),
8924 RIGI_NOR_POST_FL=SIMP(statut='f',typ='R' ),
8926 ANTI_SISM =FACT(statut='f',min=01,max='**',
8927 regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
8928 UN_PARMI('NOEUD_2','GROUP_NO_2'),
8929 PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
8930 PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
8931 NOEUD_1 =SIMP(statut='f',typ=no),
8932 NOEUD_2 =SIMP(statut='f',typ=no),
8933 GROUP_NO_1 =SIMP(statut='f',typ=grno),
8934 GROUP_NO_2 =SIMP(statut='f',typ=grno),
8935 RIGI_K1 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8936 RIGI_K2 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8937 SEUIL_FX =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8938 C =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8939 PUIS_ALPHA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8940 DX_MAX =SIMP(statut='f',typ='R',defaut= 1. ),
8942 RELA_EFFO_DEPL =FACT(statut='f',min=01,max='**',
8943 NOEUD =SIMP(statut='o',typ=no),
8944 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
8945 NOM_CMP =SIMP(statut='f',typ='TXM' ),
8946 RELATION =SIMP(statut='o',typ=fonction ),
8948 RELA_TRANSIS =FACT(statut='f',min=01,max='**',
8949 NOEUD =SIMP(statut='o',typ=no),
8950 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
8951 NOM_CMP =SIMP(statut='f',typ='TXM' ),
8952 RELATION =SIMP(statut='o',typ=fonction ),
8954 RELA_EFFO_VITE =FACT(statut='f',min=01,max='**',
8955 NOEUD =SIMP(statut='o',typ=no),
8956 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
8957 NOM_CMP =SIMP(statut='f',typ='TXM' ),
8958 RELATION =SIMP(statut='o',typ=fonction ),
8960 b_itmi =BLOC(condition = "METHODE=='ITMI'",
8961 regles=(ENSEMBLE('BASE_ELAS_FLUI','NUME_VITE_FLUI'),),
8962 BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu ),
8963 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
8964 ETAT_STAT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8965 PREC_DUREE =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
8966 CHOC_FLUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8967 NB_MODE =SIMP(statut='f',typ='I' ),
8968 NB_MODE_FLUI =SIMP(statut='f',typ='I' ),
8969 NB_MODE_DIAG =SIMP(statut='f',typ='I' ),
8970 TS_REG_ETAB =SIMP(statut='f',typ='R' ),
8972 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
8973 IMPRESSION =FACT(statut='f',min=01,max='**',
8974 regles=(EXCLUS('TOUT','NIVEAU'),),
8975 TOUT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8976 NIVEAU =SIMP(statut='f',typ='TXM',into=("DEPL_LOC","VITE_LOC","FORC_LOC","TAUX_CHOC") ),
8977 INST_INIT =SIMP(statut='f',typ='R' ),
8978 INST_FIN =SIMP(statut='f',typ='R' ),
8980 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8982 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
8983 # CONFIGURATION MANAGEMENT OF EDF VERSION
8984 # ======================================================================
8985 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8986 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8987 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8988 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8989 # (AT YOUR OPTION) ANY LATER VERSION.
8991 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8992 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8993 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8994 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8996 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8997 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8998 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8999 # ======================================================================
9000 # RESPONSABLE VABHHTS J.PELLET
9001 ENGENDRE_TEST=PROC(nom="ENGENDRE_TEST",op=178,docu="U4.92.11-b",
9002 regles=(UN_PARMI('TOUT','CO'),),
9003 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
9004 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9005 CO =SIMP(statut='f',typ=assd,max='**'),
9006 TYPE_TEST =SIMP(statut='f',typ='TXM',defaut="SOMME",into=("SOMME","RESUME") ),
9007 FORMAT_R =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
9008 PREC_R =SIMP(statut='f',typ='TXM',defaut="1.E-5"),
9010 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
9011 # CONFIGURATION MANAGEMENT OF EDF VERSION
9012 # ======================================================================
9013 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9014 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9015 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9016 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9017 # (AT YOUR OPTION) ANY LATER VERSION.
9019 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9020 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9021 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9022 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9024 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9025 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9026 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9027 # ======================================================================
9028 EXEC_LOGICIEL=PROC(nom="EXEC_LOGICIEL",op= 183,fr="",docu="U7.00.01-a",
9029 LOGICIEL =SIMP(statut='f',typ='TXM' ),
9030 ARGUMENT =FACT(statut='f',min=01,max='**',
9031 NOM_PARA =SIMP(statut='f',typ='TXM' ),
9034 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
9035 # CONFIGURATION MANAGEMENT OF EDF VERSION
9036 # ======================================================================
9037 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9038 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9039 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9040 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9041 # (AT YOUR OPTION) ANY LATER VERSION.
9043 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9044 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9045 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9046 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9048 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9049 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9050 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9051 # ======================================================================
9052 #def extr_mode_prod(FILTRE_MODE,TITRE,IMPRESSION ):
9054 def extr_mode_prod(FILTRE_MODE,**args):
9055 vale=FILTRE_MODE[0]['MODE']
9056 if AsType(vale) == mode_meca : return mode_meca
9057 if AsType(vale) == mode_meca_c : return mode_meca_c
9058 if AsType(vale) == mode_gene : return mode_gene
9059 raise AsException("type de concept resultat non prevu")
9061 EXTR_MODE=OPER(nom="EXTR_MODE",op= 168,sd_prod=extr_mode_prod,
9062 docu="U4.52.12-c",reentrant='n',
9063 FILTRE_MODE =FACT(statut='o',min=01,max='**',
9064 regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','NUME_MODE','NUME_MODE_EXCLU','FREQ_MIN','CRIT_EXTR',),),
9065 MODE =SIMP(statut='o',typ=(mode_meca,mode_meca_c,mode_gene ) ),
9066 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9067 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
9068 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
9069 NUME_MODE_EXCLU =SIMP(statut='f',typ='I',max='**'),
9070 FREQ_MIN =SIMP(statut='f',typ='R' ),
9071 CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN"
9072 ,into=("MASS_EFFE_UN","MASS_GENE") ),
9073 b_freq_min =BLOC(condition = "FREQ_MIN != None",
9074 FREQ_MAX =SIMP(statut='o',typ='R' ),
9075 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9077 b_crit_extr =BLOC(condition = "CRIT_EXTR != None",
9078 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9081 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9082 IMPRESSION =FACT(statut='f',min=01,max=01,
9083 CUMUL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9084 CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",into=("MASS_EFFE_UN","MASS_GENE") ),
9087 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
9088 # CONFIGURATION MANAGEMENT OF EDF VERSION
9089 # ======================================================================
9090 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9091 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9092 # REDISTRIBUTION OF THIS FILE.
9093 # ======================================================================
9094 def extr_resu_prod(RESULTAT,**args):
9095 if AsType(RESULTAT) == evol_elas : return evol_elas
9096 if AsType(RESULTAT) == evol_noli : return evol_noli
9097 if AsType(RESULTAT) == evol_ther : return evol_ther
9098 if AsType(RESULTAT) == dyna_trans : return dyna_trans
9099 if AsType(RESULTAT) == dyna_harmo : return dyna_harmo
9100 if AsType(RESULTAT) == acou_harmo : return acou_harmo
9101 if AsType(RESULTAT) == mode_meca : return mode_meca
9102 if AsType(RESULTAT) == mode_acou : return mode_acou
9103 if AsType(RESULTAT) == mode_stat : return mode_stat
9104 if AsType(mode_stat) == mode_stat_depl : return mode_stat_depl
9105 if AsType(mode_stat) == mode_stat_acce : return mode_stat_acce
9106 if AsType(mode_stat) == mode_stat_forc : return mode_stat_forc
9107 if AsType(RESULTAT) == mult_elas : return mult_elas
9108 if AsType(RESULTAT) == fourier_elas : return fourier_elas
9109 raise AsException("type de concept resultat non prevu")
9111 EXTR_RESU=OPER(nom="EXTR_RESU",op=176,sd_prod=extr_resu_prod,docu="U4.71.04-c2",reentrant='f',
9112 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
9113 mode_acou,mode_stat_depl,mode_stat_acce,mode_stat_forc,evol_ther,evol_noli,
9114 mult_elas,fourier_elas ) ),
9116 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
9117 fr="Liste des paramètres de sensibilité.",
9118 ang="List of sensitivity parameters"),
9120 ARCHIVAGE =FACT(statut='f',min=1,max=1,
9121 regles=( UN_PARMI('NUME_ORDRE', 'INST', 'FREQ', 'NUME_MODE',
9122 'NOEUD_CMP', 'LIST_INST', 'LIST_FREQ', 'LIST_ORDRE',
9123 'NOM_CAS', 'LIST_ARCH', 'PAS_ARCH' ),
9124 EXCLUS( 'CHAM_EXCLU','NOM_CHAM' ), ),
9125 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**'),
9126 NOM_CHAM =SIMP(statut='f',typ='TXM',max='**'),
9127 PRECISION =SIMP(statut='f',typ='R',defaut=1.E-3 ),
9128 CRITERE =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),defaut="RELATIF"),
9129 LIST_ARCH =SIMP(statut='f',typ=listis),
9130 PAS_ARCH =SIMP(statut='f',typ='I'),
9131 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
9132 LIST_ORDRE =SIMP(statut='f',typ=listis),
9133 INST =SIMP(statut='f',typ='R',max='**'),
9134 LIST_INST =SIMP(statut='f',typ=listr8),
9135 FREQ =SIMP(statut='f',typ='R',max='**'),
9136 LIST_FREQ =SIMP(statut='f',typ=listr8),
9137 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
9138 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
9139 NOM_CAS =SIMP(statut='f',typ='TXM'),
9142 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
9144 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
9145 # CONFIGURATION MANAGEMENT OF EDF VERSION
9146 # ======================================================================
9147 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9148 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9149 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9150 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9151 # (AT YOUR OPTION) ANY LATER VERSION.
9153 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9154 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9155 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9156 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9158 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9159 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9160 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9161 # ======================================================================
9162 def fact_grad_prod(MATR_ASSE,**args):
9163 if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
9164 if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
9165 if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
9166 raise AsException("type de concept resultat non prevu")
9168 FACT_GRAD=OPER(nom="FACT_GRAD",op=85,sd_prod=fact_grad_prod,docu="U4.55.03-e",
9169 fr="Préconditionnement pour résolution par gradient conjugué",
9171 MATR_ASSE =SIMP(statut='o',
9172 typ=(matr_asse_depl_r,matr_asse_temp_r,
9173 matr_asse_pres_r) ),
9174 PRE_COND =SIMP(statut='f',typ='TXM',defaut="LDLT_INC",into=("LDLT_INC",) ),
9175 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
9176 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
9178 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
9179 # CONFIGURATION MANAGEMENT OF EDF VERSION
9180 # ======================================================================
9181 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9182 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9183 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9184 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9185 # (AT YOUR OPTION) ANY LATER VERSION.
9187 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9188 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9189 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9190 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9192 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9193 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9194 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9195 # ======================================================================
9196 FACT_INTE_SPEC=OPER(nom="FACT_INTE_SPEC",op= 117,sd_prod=interspfact,
9197 fr="Factorisation d une matrice interspectrale hermitienne",
9198 docu="U4.36.04-e",reentrant='n',
9199 regles=(ENSEMBLE('FREQ_FIN','NB_POIN'),),
9200 # regle non indiquée dans la doc U
9201 INTE_SPEC =SIMP(statut='o',typ=tabl_intsp ),
9202 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
9203 FREQ_INIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9204 FREQ_FIN =SIMP(statut='f',typ='R' ),
9205 NB_POIN =SIMP(statut='f',typ='I',defaut= 0 ),
9206 SUR_ECHAN =SIMP(statut='f',typ='R',defaut= 1. ),
9207 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9209 #& MODIF COMMANDE DATE 16/01/2002 AUTEUR DURAND C.DURAND
9210 # CONFIGURATION MANAGEMENT OF EDF VERSION
9211 # ======================================================================
9212 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9213 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9214 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9215 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9216 # (AT YOUR OPTION) ANY LATER VERSION.
9218 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9219 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9220 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9221 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9223 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9224 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9225 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9226 # ======================================================================
9227 # RESPONSABLE VABHHTS J.PELLET
9228 def fact_ldlt_prod(MATR_ASSE,**args):
9229 if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
9230 if AsType(MATR_ASSE) == matr_asse_depl_c : return matr_asse_depl_c
9231 if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
9232 if AsType(MATR_ASSE) == matr_asse_temp_c : return matr_asse_temp_c
9233 if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
9234 if AsType(MATR_ASSE) == matr_asse_pres_c : return matr_asse_pres_c
9235 raise AsException("type de concept resultat non prevu")
9237 FACT_LDLT=OPER(nom="FACT_LDLT",op=14,sd_prod=fact_ldlt_prod,fr="Factorisation en place ou hors place",
9238 docu="U4.55.01-f",reentrant='f',
9239 regles=(EXCLUS('BLOC_DEBUT','DDL_DEBUT'),
9240 EXCLUS('BLOC_FIN','DDL_FIN'),),
9241 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
9242 matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
9243 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9244 NPREC =SIMP(statut='f',typ='I',defaut=8,val_min=0,),
9245 PRE_COND =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","DIAG") ),
9246 BLOC_DEBUT =SIMP(statut='f',typ='I',val_min=1,),
9247 DDL_DEBUT =SIMP(statut='f',typ='I',val_min=1,),
9248 BLOC_FIN =SIMP(statut='f',typ='I',val_min=1,),
9249 DDL_FIN =SIMP(statut='f',typ='I',val_min=1,),
9251 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9253 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9254 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
9256 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
9257 # CONFIGURATION MANAGEMENT OF EDF VERSION
9258 # ======================================================================
9259 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9260 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9261 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9262 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9263 # (AT YOUR OPTION) ANY LATER VERSION.
9265 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9266 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9267 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9268 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9270 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9271 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9272 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9273 # ======================================================================
9275 FERMER=PROC(nom="FERMER",op= 10,fr=" ",
9277 UNITE =SIMP(statut='o',typ='I',max='**' ),
9279 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
9280 # CONFIGURATION MANAGEMENT OF EDF VERSION
9281 # ======================================================================
9282 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9283 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9284 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9285 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9286 # (AT YOUR OPTION) ANY LATER VERSION.
9288 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9289 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9290 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9291 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9293 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9294 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9295 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9296 # ======================================================================
9297 FIN=PROC(nom="FIN",op=9999,repetable='n',fr="Fin d'une étude",
9299 RETASSAGE =SIMP(fr="provoque le retassage de la base GLOBALE",
9300 statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
9301 PERFORMANCE =SIMP(fr="provoque l'impression d'un résumé des mesures de temps ",
9302 statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
9303 INFO_RESU =SIMP(fr="provoque l'impression des informations sur les structures de données",
9304 statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
9305 FICHIER =SIMP(statut='f',typ='TXM',defaut="MESSAGE"),
9307 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
9308 # CONFIGURATION MANAGEMENT OF EDF VERSION
9309 # ======================================================================
9310 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9311 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9312 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9313 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9314 # (AT YOUR OPTION) ANY LATER VERSION.
9316 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9317 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9318 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9319 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9321 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9322 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9323 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9324 # ======================================================================
9325 FONC_FLUI_STRU=OPER(nom="FONC_FLUI_STRU",op= 169,sd_prod=fonction,
9326 docu="U4.35.02-c",reentrant='n',
9327 TYPE_FLUI_STRU =SIMP(statut='o',typ=(type_flui_stru) ),
9329 #& MODIF COMMANDE DATE 17/09/2001 AUTEUR MCOURTOI M.COURTOIS
9330 # CONFIGURATION MANAGEMENT OF EDF VERSION
9331 # ======================================================================
9332 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9333 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9334 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9335 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9336 # (AT YOUR OPTION) ANY LATER VERSION.
9338 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9339 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9340 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9341 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9343 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9344 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9345 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9346 # ======================================================================
9347 FORMULE = FORM( nom='FORMULE',op=-5,sd_prod=fonction,
9348 fr="Définition d une fonction",reentrant = 'n',
9349 regles=(UN_PARMI('REEL','ENTIER','COMPLEXE'),),
9350 REEL = SIMP(typ = 'shell',max=1),
9351 ENTIER = SIMP(typ = 'shell',max=1),
9352 COMPLEXE = SIMP(typ = 'shell',max=1),
9354 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
9355 # CONFIGURATION MANAGEMENT OF EDF VERSION
9356 # ======================================================================
9357 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9358 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9359 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9360 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9361 # (AT YOUR OPTION) ANY LATER VERSION.
9363 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9364 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9365 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9366 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9368 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9369 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9370 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9371 # ======================================================================
9372 GENE_FONC_ALEA=OPER(nom="GENE_FONC_ALEA",op= 118,sd_prod=tabl_fonc,
9373 fr="Génération de la fonction temporelle à partir d une matrice interspectrale factorisée",
9374 docu="U4.36.05-e",reentrant='n',
9375 INTE_SPEC_FACT =SIMP(statut='o',typ=interspfact ),
9376 INIT_ALEA =SIMP(statut='f',typ='I',defaut= 12312745 ),
9377 NB_TIRAGE =SIMP(statut='f',typ='I',defaut= 1 ),
9378 NB_POIN =SIMP(statut='f',typ='I' ),
9379 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
9381 #& MODIF COMMANDE DATE 16/07/2002 AUTEUR VABHHTS J.PELLET
9382 # CONFIGURATION MANAGEMENT OF EDF VERSION
9383 # ======================================================================
9384 # COPYRIGHT (C) 1991 - 2002 EDF R&D WWW.CODE-ASTER.ORG
9385 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9386 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9387 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9388 # (AT YOUR OPTION) ANY LATER VERSION.
9390 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9391 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9392 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9393 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9395 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9396 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9397 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9398 # ======================================================================
9399 GENE_MATR_ALEA=OPER(nom="GENE_MATR_ALEA",op= 27,sd_prod=matr_asse_gene_r,
9400 fr="Generateur de matrice aleatoire",
9401 docu="U4.36.06",reentrant='n',
9402 MATR_MOYEN = SIMP(statut='o', typ=matr_asse_gene_r),
9403 DELTA = SIMP(statut='f', typ='R', defaut=0.1),
9404 INIT = SIMP(statut='f', typ='TXM', into=("OUI","NON"),defaut="NON"),
9407 #& MODIF COMMANDE DATE 16/07/2002 AUTEUR VABHHTS J.PELLET
9408 # CONFIGURATION MANAGEMENT OF EDF VERSION
9409 # ======================================================================
9410 # COPYRIGHT (C) 1991 - 2002 EDF R&D WWW.CODE-ASTER.ORG
9411 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9412 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9413 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9414 # (AT YOUR OPTION) ANY LATER VERSION.
9416 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9417 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9418 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9419 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9421 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9422 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9423 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9424 # ======================================================================
9425 GENE_VARI_ALEA=OPER(nom="GENE_VARI_ALEA",op= 28,sd_prod=table,
9426 fr="Generateur de variable aleatoire",
9427 docu="U4.36.07",reentrant='n',
9428 TYPE = SIMP(statut='f', typ='TXM', into=("EXP_TRONQUEE", "EXPONENTIELLE", "GAMMA"), defaut="EXP_TRONQUEE"),
9429 VALE_MOY = SIMP(statut='f', typ='R', defaut=0.),
9430 DELTA = SIMP(statut='f', typ='R', defaut=0.1),
9431 A = SIMP(statut='f', typ='R', defaut=-1.),
9432 B = SIMP(statut='f', typ='R', defaut=1.),
9433 INIT = SIMP(statut='f', typ='TXM', into=("OUI","NON"),defaut="NON"),
9436 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
9437 # CONFIGURATION MANAGEMENT OF EDF VERSION
9438 # ======================================================================
9439 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9440 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9441 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9442 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9443 # (AT YOUR OPTION) ANY LATER VERSION.
9445 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9446 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9447 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9448 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9450 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9451 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9452 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9453 # ======================================================================
9454 IMPR_CHARGE=PROC(nom="IMPR_CHARGE",op= 158,
9455 fr="Impression des charges mécaniques de type ddl imposés et relations linéaires entre les ddl",
9457 FICHIER =SIMP(statut='f',typ='TXM' ),
9458 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",) ),
9459 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
9460 CHARGE =SIMP(statut='o',typ=char_meca,max='**', ),
9462 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
9463 # CONFIGURATION MANAGEMENT OF EDF VERSION
9464 # ======================================================================
9465 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9466 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9467 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9468 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9469 # (AT YOUR OPTION) ANY LATER VERSION.
9471 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9472 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9473 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9474 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9476 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9477 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9478 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9479 # ======================================================================
9480 IMPR_CLASSI=PROC(nom="IMPR_CLASSI",op= 114,docu="U7.04.21-a",
9481 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ',
9483 UNITE_CLASSI =SIMP(statut='o',typ='I' ),
9484 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
9485 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9486 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
9487 LIST_ORDRE =SIMP(statut='f',typ=listis ),
9488 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
9489 FREQ =SIMP(statut='f',typ='R',max='**'),
9490 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
9491 b_prec_crit =BLOC(condition = "LIST_FREQ != None or FREQ != None",
9492 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9493 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
9494 into=("RELATIF","ABSOLU") ),
9496 IMPRESSION =FACT(statut='f',min=01,max='**',
9497 regles=(UN_PARMI('NOEUD','GROUP_NO', ),),
9498 NOEUD =SIMP(statut='f',typ=no,max='**'),
9499 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
9500 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
9502 AMOR =SIMP(statut='o',typ='R',max='**'),
9504 #& MODIF COMMANDE DATE 05/12/2001 AUTEUR VABHHTS J.PELLET
9505 # CONFIGURATION MANAGEMENT OF EDF VERSION
9506 # ======================================================================
9507 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9508 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9509 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9510 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9511 # (AT YOUR OPTION) ANY LATER VERSION.
9513 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9514 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9515 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9516 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9518 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9519 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9520 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9521 # ======================================================================
9522 # RESPONSABLE VABHHTS J.PELLET
9523 IMPR_CO=PROC(nom="IMPR_CO",op=17,docu="U4.91.11-f",
9524 fr="Impression du contenu d un concept utilisateur (pour développeur)",
9525 regles=(UN_PARMI('CO','CHAINE', ),),
9526 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
9527 NIVEAU =SIMP(statut='f',typ='I',defaut=2,into=(0,1,2) ),
9528 ATTRIBUT =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","OUI") ),
9529 CONTENU =SIMP(statut='f',typ='TXM',defaut="OUI",into=("NON","OUI") ),
9530 BASE =SIMP(statut='f',typ='TXM',defaut="G",into=("","G","V","L") ),
9531 CO =SIMP(statut='f',typ=assd,max='**'),
9532 CHAINE =SIMP(statut='f',typ='TXM'),
9533 POSITION =SIMP(statut='f',typ='I',defaut=1),
9535 #& MODIF COMMANDE DATE 06/03/2002 AUTEUR MCOURTOI M.COURTOIS
9536 # CONFIGURATION MANAGEMENT OF EDF VERSION
9537 # ======================================================================
9538 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9539 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9540 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9541 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9542 # (AT YOUR OPTION) ANY LATER VERSION.
9544 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9545 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9546 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9547 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9549 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9550 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9551 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9552 # ======================================================================
9553 # RESPONSABLE MCOURTOI M.COURTOIS
9554 IMPR_COURBE=PROC(nom="IMPR_COURBE",op= 141,fr="Impression, sur fichiers",
9556 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
9557 FORMAT =SIMP(statut='f',typ='TXM',position='global'
9558 ,into=("AGRAF","EXCEL","POSTSCRIPT","RESULTAT","COMMANDE","SEISME") ),
9559 b_agraf_post =BLOC(condition = "(FORMAT=='AGRAF') or (FORMAT=='POSTSCRIPT')",fr="Mots-clés communs AGRAF et POSTCRIPT",
9560 BORNE_X =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des abcisses"),
9561 ECHELLE_X =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),fr="Type d'échelle pour les abcisses" ),
9562 BORNE_Y =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des ordonnées"),
9563 ECHELLE_Y =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),fr="Type d'échelle pour les ordonnées" ),
9565 b_agraf =BLOC(condition = "(FORMAT=='AGRAF')",fr="Mots-clés propres à AGRAF",
9566 TITRE_GRAPHIQUE =SIMP(statut='f',typ='TXM',fr="Titre associé au graphique" ),
9567 COMMENTAIRE =SIMP(statut='f',typ='TXM',max='**',fr="Commentaires associés au graphique"),
9568 LEGENDE_X =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des abcisses" ),
9569 LEGENDE_Y =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des ordonnées" ),
9570 FREQ_GRILLE_X =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence de tracage du quadrillage vertical" ),
9571 FREQ_GRILLE_Y =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence de tracage du quadrillage horizontal" ),
9573 b_excel = BLOC(condition = "(FORMAT=='EXCEL')",fr="Mots-clés propres au format Excel",
9574 BORNE_X =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des abcisses"),
9575 BORNE_Y =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des ordonnées"),
9577 b_post = BLOC ( condition = "(FORMAT=='POSTSCRIPT')",fr="Mots-clés propres à POSTCRIPT",
9578 TITRE =SIMP(statut='f',typ='TXM',fr="Titre associé au graphique" ),
9579 LABEL_X =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des abcisses" ),
9580 LABEL_Y =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des ordonnées" ),
9581 SORTIE =SIMP(statut='f',typ='TXM',defaut="COULEUR",into=("MONOCHROME","COULEUR"),fr="Type d impression" ),
9582 DATE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de la date" ),
9583 GRILLE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression du quadrillage" ),
9584 AXE_ZERO_X =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de l axe x égal zéro" ),
9585 AXE_ZERO_Y =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de l axe y égal zéro" ),
9586 PRESENTATION =SIMP(statut='f',typ='TXM',defaut="PAYSAGE",into=("PAYSAGE","PORTRAIT"),
9587 fr="Disposition du graphique sur la feuille" ),
9588 FENETRE =SIMP(statut='f',typ='TXM',defaut="RECTANGLE",into=("CARREE","RECTANGLE"),
9589 fr="Forme de la fenetre contenant le graphique" ),
9591 COURBE =FACT(statut='o',min=01,max='**',fr="Définition de la courbe à tracer",
9592 regles=(UN_PARMI('FONCTION','LIST_RESU','TABLE','FONC_X','RESU_GENE'),),
9593 FONCTION =SIMP(statut='f',typ=(fonction, fonction_c),
9594 fr="Fonction réelle ou complexe", ),
9595 LIST_RESU =SIMP(statut='f',typ=listr8,
9596 fr="Liste des ordonnees d une fonction réelle définie par deux listes", ),
9597 # creer le type table
9598 TABLE =SIMP(statut='f',typ=table,
9599 fr="Nom de la table dont 2 colonnes définissent la fonction",),
9600 FONC_X =SIMP(statut='f',typ=fonction,
9601 fr="Fonction abscisses d une fonction paramétrique",),
9602 RESU_GENE =SIMP(statut='f',typ=tran_gene, ),
9603 b_fonction =BLOC(condition = "FONCTION != None",
9604 LIST_PARA =SIMP(statut='f',typ=listr8 ),
9606 b_fonction_c =BLOC(condition = "AsType(FONCTION) == fonction_c",
9607 fr="Fonction complexe définie par le mot-clé fonction",
9608 PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
9610 b_list_resu =BLOC(condition = "LIST_RESU != None",
9611 LIST_PARA =SIMP(statut='o',typ=listr8 ),
9613 b_table =BLOC(condition = "TABLE != None",
9614 PARA_X =SIMP(statut='o',typ='TXM',
9615 fr="Paramètre de la table associé aux abcisses de la fonction à tracer" ),
9616 PARA_Y =SIMP(statut='o',typ='TXM',
9617 fr="Paramètre de la table associé aux ordonnées de la fonction à tracer" ),
9619 b_fonc_x =BLOC(condition = "FONC_X != None",
9620 FONC_Y =SIMP(statut='o',typ=fonction,fr="Fonction ordonnées d une fonction paramétrique" ),
9621 PARA =SIMP(statut='f',typ='TXM',defaut="FONC_X",into=("FONC_X","FONC_Y"),
9622 fr="Permutation des roles des deux fonctions" ),
9623 LIST_PARA =SIMP(statut='f',typ=listr8 ),
9625 b_resu_gene =BLOC(condition = "RESU_GENE != None",
9626 regles=(UN_PARMI('NOEUD_CHOC','GROUP_NO_CHOC'),),
9627 NOEUD_CHOC =SIMP(statut='f',typ=no),
9628 GROUP_NO_CHOC =SIMP(statut='f',typ=grno),
9629 PARA_X =SIMP(statut='o',typ='TXM'),
9630 PARA_Y =SIMP(statut='o',typ='TXM'),
9631 LIST_PARA =SIMP(statut='f',typ=listr8 ),
9632 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
9633 INTITULE =SIMP(statut='f',typ='TXM' ),
9637 LEGENDE =SIMP(statut='f',typ='TXM',fr="Légende associée à la courbe" ),
9638 STYLE =SIMP(statut='f',typ='TXM',defaut="LIGNE",fr="Style de la ligne représentant la courbe",
9639 into=("LIGNE","POINTILLE","POINT","POINT_RELIE") ),
9640 COULEUR =SIMP(statut='f',typ='TXM',fr="Couleur associée à la courbe",
9641 into=("NOIR","ROUGE","VERT_FONCE","BLEU",
9642 "MAGENTA","CYAN","VERT","SIENNE","ORANGE",
9643 "POURPRE","JAUNE","DAIM","TURQUOISE","VIOLET",
9644 "BRUN","CORAIL","MARRON","MAUVE","MARRON_CLAIR") ),
9645 MARQUEUR =SIMP(statut='f',typ='TXM',fr="Type du marqueur associé à la courbe",
9646 into=("POINT_F","CARRE_F","TRIANGLE_F",
9647 "LOSANGE_F","ETOILE_F","FUSEE_F","POINT",
9648 "CARRE","TRIANGLE","LOSANGE","ETOILE","FUSEE",
9649 "PLUS","X","CERCLE","CERCLE_P","CARRE_P",
9650 "LOSANGE_P","CERCLE_P_X","LOSANGE_P_X",
9651 "CERCLE_X","CARRE_X","LOSANGE_X") ),
9652 b_agraf =BLOC(condition = "(FORMAT=='AGRAF')",fr="Mots-clés propres à AGRAF",
9653 TRI =SIMP(statut='f',typ='TXM',defaut="N",
9654 fr="Choix du tri effectué sur les abcisses ou sur les ordonnées",
9655 into=("N","X","Y","XY","YX") ),
9656 FREQ_MARQUEUR =SIMP(statut='f',typ='I',defaut= 0,
9657 fr="Fréquence d impression du marqueur associé à la courbe", ),
9661 #& MODIF COMMANDE DATE 05/03/2002 AUTEUR GNICOLAS G.NICOLAS
9662 # CONFIGURATION MANAGEMENT OF EDF VERSION
9663 # ======================================================================
9664 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9665 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9666 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9667 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9668 # (AT YOUR OPTION) ANY LATER VERSION.
9670 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9671 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9672 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9673 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9675 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9676 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9677 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9678 # ======================================================================
9679 # RESPONSABLE GNICOLAS G.NICOLAS
9680 IMPR_FICO_HOMA=PROC(nom="IMPR_FICO_HOMA",op= 189, docu="U7.04.01-b2",
9681 fr="Imprime le fichier de configuration de HOMARD.",
9682 ang="Writes the configuration file for HOMARD.",
9684 # 1. Le niveau d'information
9686 INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
9688 # 2. LE REPERTOIRE OU AURA LIEU LE CALCUL HOMARD
9690 REP =SIMP(statut='f',typ='TXM'),
9692 # 3. Langue des messages issus de HOMARD
9694 LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
9695 into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
9696 fr="Langue des messages issus de HOMARD.",
9697 ang="Language for HOMARD messages." ),
9699 # 4. L'UNITE LOGIQUE D'ECRITURE DU FICHIER DE CONFIGURATION HOMARD
9701 UNITE =SIMP(statut='f',typ='I',defaut= 71 ),
9703 # 5. LE TYPE DE TRAITEMENT :
9705 TRAITEMENT =FACT(statut='o',min=01,max=01,
9707 # 5.1. QUATRE CHOIX EXCLUSIFS :
9710 # A. ADAPTATION PAR UN INDICATEUR D'ERREUR, AVEC TROIS VARIANTES :
9711 # . RAFFINEMENT ET DERAFFINEMENT
9712 # . RAFFINEMENT SEUL
9713 # . DERAFFINEMENT SEUL
9714 # B. ADAPTATION UNIFORME, AVEC DEUX VARIANTES :
9715 # . RAFFINEMENT SEUL
9716 # . DERAFFINEMENT SEUL
9717 # . RIEN : LE MAILLAGE EST LE MEME A LA SORTIE ET A L'ENTREE
9718 # C. INFORMATION SUR UN MAILLAGE
9719 # D. MISE A JOUR DE SOLUTIONS
9721 regles=( UN_PARMI('ADAPTATION','UNIFORME','INFORMATION','MAJSOLUTION'),),
9722 ADAPTATION =SIMP(statut='f',typ='TXM',
9723 fr="Adaptation libre",
9724 ang="Free adaptation",
9725 into=("RAFFINEMENT","DERAFFINEMENT","RAFF_DERA") ),
9726 UNIFORME =SIMP(statut='f',typ='TXM',
9727 fr="Adaptation uniforme",
9728 ang="Uniforme adaptation",
9729 into=("RAFFINEMENT","DERAFFINEMENT","RIEN") ),
9730 INFORMATION =SIMP(statut='f',typ='TXM',
9731 fr="Adaptation libre",
9732 ang="Free adaptation",
9734 MAJSOLUTION =SIMP(statut='f',typ='TXM',
9735 fr="Mise à jour de solutions",
9736 ang="Solution updating",
9739 # 5.1.2. LES CONTRAINTES :
9741 # 5.1.2.1. POUR DE L'ADAPTATION LIBRE, IL FAUT :
9742 # A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
9743 # B. LE NOM MED DU MAILLAGE D'ENTREE
9744 # C. LE NOM MED DE L'INDICATEUR D'ERREUR
9745 # D. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
9746 # E. LA MISE A JOUR DE SOLUTION
9747 # F. LE NOM MED DU MAILLAGE DE SORTIE
9748 # REMARQUE : IL FAUT DES CRITERES, MAIS ON NE SAIT PAS LESQUELS
9750 # 5.1.2.2. POUR DE L'ADAPTATION UNIFORME
9752 # A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
9753 # B. LE NOM MED DU MAILLAGE DE SORTIE
9755 # A. LE NOM MED DE L'INDICATEUR D'ERREUR
9756 # B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
9758 # REMARQUE : A L'ITERATION 0, OU AUX ITERATIONS SUIVANTES SI MAJ DE SOLUTION,
9759 # IL FAUT LE NOM MED DU MAILLAGE D'ENTREE
9761 # 5.1.2.3. POUR DE LA MISE A JOUR DE SOLUTION :
9763 # A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
9764 # B. LE NOM MED DU MAILLAGE D'ENTREE
9766 # A. LE NOM MED DE L'INDICATEUR D'ERREUR
9767 # B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
9771 # 5.1.2.4. POUR DE L'INFORMATION :
9773 # A. LE NOM MED DU MAILLAGE D'ENTREE
9775 # A. LE NOM MED DE L'INDICATEUR D'ERREUR
9776 # B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
9778 # D. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
9779 # E. LA MISE A JOUR DE SOLUTION
9781 b_maillage_initial =BLOC(condition = "( INFORMATION != None ) or ( ADAPTATION != None ) or \
9782 ( MAJSOLUTION != None ) ",
9783 fr="Nom MED du maillage en entrée",
9784 ang="MED name of the in-mesh",
9785 NOM_MED_MAILLAGE_N =SIMP(statut='o',typ='TXM',),
9788 b_maillage_initial_uniforme =BLOC(condition = "( UNIFORME != None ) ",
9789 fr="Nom MED du maillage en entrée",
9790 ang="MED name of the in-mesh",
9791 NOM_MED_MAILLAGE_N =SIMP(statut='f',typ='TXM',),
9794 b_iteration_maj_champ =BLOC(condition = "( UNIFORME != None ) or ( ADAPTATION != None ) or \
9795 ( MAJSOLUTION != None ) ",
9796 fr="Nom MED du maillage en sortie, numero d'iteration et mise à jour de champs",
9797 ang="MED name of the out-mesh, iteration rank and field updating",
9798 NITER =SIMP(statut='o',typ='I',
9799 fr="Numéro d'itération.",
9800 ang="Iteration number." ),
9801 NOM_MED_MAILLAGE_NP1 =SIMP(statut='o',typ='TXM',
9802 fr="Nom MED du maillage en sortie",
9803 ang="MED name of the out-mesh" ),
9804 MAJ_CHAM =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
9805 fr="Mise à jour de champs",
9806 ang="Field updating" ),
9809 b_indicateur_d_erreur =BLOC(condition = "ADAPTATION != None",
9810 fr="Indicateur d'erreur",
9811 ang="Error indicator",
9812 regles=(AU_MOINS_UN('NUMORD_INDICA','NOM_RESU_INDICA'),
9813 EXCLUS('NUMORD_INDICA','NOM_RESU_INDICA'),
9814 PRESENT_PRESENT('NUMORD_INDICA','NUMPT_INDICA'),
9815 PRESENT_PRESENT('NOM_RESU_INDICA','NOM_CHAM_INDICA'),),
9816 NOM_MED_INDICA =SIMP(statut='o',typ='TXM',
9817 fr="Nom MED de l'indicateur d'erreur.",
9818 ang="MED name of error indicator.",),
9819 NOM_CMP_INDICA =SIMP(statut='o',typ='TXM',
9820 fr="Nom de la composante de l'indicateur d'erreur retenue.",
9821 ang="Name of the selected component of the error indicator.",),
9822 NUMORD_INDICA =SIMP(statut='f',typ='I',
9823 fr="Numero d'ordre de l'indicateur.",
9824 ang="Rank number of the error indicator.",),
9825 NUMPT_INDICA =SIMP(statut='f',typ='I',
9826 fr="Numero du pas de temps de l'indicateur.",
9827 ang="Time step number of the error indicator.",),
9828 NOM_RESU_INDICA =SIMP(statut='f',typ='TXM',
9829 fr="Concept contenant l'indicateur.",
9830 ang="Conceipt wich contains the error indicator.",),
9831 NOM_CHAM_INDICA =SIMP(statut='f',typ='TXM',
9832 fr="Nom du champ dans le résultat de l'indicateur.",
9833 ang="Name of the field of the error indicator.",),
9836 b_critere_de_raffinement =BLOC( condition = "( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'RAFFINEMENT' )" ,
9837 fr="Critère de raffinement.",
9838 ang="Refinement threshold.",
9839 regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE' ),),
9840 CRIT_RAFF_ABS =SIMP(statut='f',typ='R',
9841 fr="Critère absolu",
9842 ang="Absolute threshold" ),
9843 CRIT_RAFF_REL =SIMP(statut='f',typ='R',
9844 fr="Critère relatif",
9845 ang="Relative threshold" ),
9846 CRIT_RAFF_PE =SIMP(statut='f',typ='R',
9847 fr="Pourcentage d'éléments",
9848 ang="Percentage of elements" ),
9851 b_critere_de_deraffinement =BLOC ( condition = "( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'DERAFFINEMENT' )" ,
9852 fr="Critère de déraffinement.",
9853 ang="Unrefinement threshold.",
9854 regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE' ),),
9855 CRIT_DERA_ABS =SIMP(statut='f',typ='R' ,
9856 fr="Critère absolu",
9857 ang="Absolute threshold" ),
9858 CRIT_DERA_REL =SIMP(statut='f',typ='R',
9859 fr="Critère relatif",
9860 ang="Relative threshold" ),
9861 CRIT_DERA_PE =SIMP(statut='f',typ='R',
9862 fr="Pourcentage d'éléments",
9863 ang="Percentage of elements" ),
9866 b_niveau_maximum =BLOC ( condition = " ( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'RAFFINEMENT' ) or \
9867 ( UNIFORME == 'RAFFINEMENT' )" ,
9868 fr="Niveau maximum de profondeur de raffinement",
9869 ang="Maximum level for refinement",
9870 NIVE_MAX =SIMP(statut='f',typ='I' ),
9873 b_niveau_minimum =BLOC ( condition = " ( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'DERAFFINEMENT' ) or \
9874 ( UNIFORME == 'DERAFFINEMENT' )" ,
9875 fr="Niveau minimum de déraffinement",
9876 ang="Minimum level for unrefinement",
9877 NIVE_MIN =SIMP(statut='f',typ='I' ),
9882 # 6. L'ANALYSE DU MAILLAGE
9884 ANALYSE =FACT(statut='f',min=01,max=01,
9885 fr="Analyse du maillage.",
9886 ang="Mesh analysis.",
9888 # 6.1. CHOIX NON EXCLUSIFS, AVEC DEUX VARIANTES (OUI/NON) :
9889 # A. NOMBRE DES ELEMENTS
9890 # B. QUALITE DES ELEMENTS
9891 # C. INTERPENETRATION DES ELEMENTS
9892 # D. CONNEXITE DU MAILLAGE
9893 # E. TAILLE DES DIFFERENTS SOUS-DOMAINES
9895 regles=(AU_MOINS_UN('NOMBRE','QUALITE','INTERPENETRATION','CONNEXITE','TAILLE'),),
9897 NOMBRE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
9898 fr="Nombre de noeuds et éléments du maillage",
9899 ang="Number of nodes and elements in the mesh" ),
9901 QUALITE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
9902 fr="Qualité du maillage",
9903 ang="Mesh quality" ),
9905 INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
9906 fr="Controle de la non interpénétration des éléments.",
9907 ang="Overlapping checking." ),
9909 CONNEXITE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
9910 fr="Connexité du maillage.",
9911 ang="Mesh connexity." ),
9913 TAILLE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
9914 fr="Tailles des sous-domaines du maillage.",
9915 ang="Sizes of mesh sub-domains." ),
9920 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
9921 # CONFIGURATION MANAGEMENT OF EDF VERSION
9922 # ======================================================================
9923 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9924 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9925 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9926 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9927 # (AT YOUR OPTION) ANY LATER VERSION.
9929 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9930 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9931 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9932 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9934 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9935 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9936 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9937 # ======================================================================
9938 IMPR_GENE=PROC(nom="IMPR_GENE",op= 157,
9939 fr="Calcul du dommage subi par une structure soumise à une sollicitation de type aléatoire",
9941 GENE =FACT(statut='o',min=01,max='**',
9942 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
9943 'LIST_INST','LIST_FREQ','TOUT_MODE','TOUT_INST','LIST_ORDRE'),
9944 EXCLUS('TOUT_MODE','NUME_ORDRE','INST','FREQ','NUME_MODE',
9945 'LIST_INST','LIST_FREQ','TOUT_ORDRE','TOUT_INST','LIST_ORDRE'),
9946 EXCLUS('TOUT_INST','NUME_ORDRE','INST','FREQ','NUME_MODE',
9947 'LIST_INST','LIST_FREQ','TOUT_ORDRE','LIST_ORDRE'),
9948 EXCLUS('TOUT_CMP_GENE','NUME_CMP_GENE'),
9949 EXCLUS('TOUT_CHAM','NOM_CHAM'),
9950 EXCLUS('TOUT_PARA','NOM_PARA'),),
9951 # faut-il faire des blocs selon le type de RESU_GENE
9952 RESU_GENE =SIMP(statut='o',typ=(vect_asse_gene, tran_gene, mode_gene, harm_gene)),
9953 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
9954 FICHIER =SIMP(statut='f',typ='TXM' ),
9955 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9956 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
9957 LIST_ORDRE =SIMP(statut='f',typ=listis ),
9958 TOUT_MODE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9959 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
9960 INST =SIMP(statut='f',typ='R',max='**'),
9961 LIST_INST =SIMP(statut='f',typ=listr8 ),
9962 TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9963 FREQ =SIMP(statut='f',typ='R',max='**'),
9964 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
9965 b_prec_crit =BLOC(condition = "LIST_FREQ != None or FREQ != None",
9966 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9967 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
9968 into=("RELATIF","ABSOLU") ),
9970 TOUT_CMP_GENE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9971 NUME_CMP_GENE =SIMP(statut='f',typ='I',max='**'),
9972 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9973 NOM_CHAM =SIMP(statut='f',typ='TXM',max='**'),
9974 TOUT_PARA =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9975 NOM_PARA =SIMP(statut='f',typ='TXM',max='**'),
9976 SOUS_TITRE =SIMP(statut='f',typ='TXM',max='**'),
9977 INFO_CMP_GENE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9978 INFO_GENE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9981 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
9982 # CONFIGURATION MANAGEMENT OF EDF VERSION
9983 # ======================================================================
9984 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9985 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9986 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9987 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9988 # (AT YOUR OPTION) ANY LATER VERSION.
9990 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9991 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9992 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9993 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9995 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9996 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9997 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9998 # ======================================================================
9999 IMPR_JEVEUX=PROC(nom="IMPR_JEVEUX",op=16,docu="U4.91.21-f",
10000 fr="Impression de caractéristiques d'objets JEVEUX (pour développeur)",
10001 ENTITE =SIMP(fr="choix de l'observation",statut='o',typ='TXM',
10002 into=("DISQUE","MEMOIRE","REPERTOIRE",
10003 "OBJET","ATTRIBUT","SYSTEME") ),
10004 b_objet =BLOC(condition = "(ENTITE=='OBJET')",
10005 NOMOBJ =SIMP(fr="nom d'objet",statut='f',typ='TXM' ),
10006 NUMOC =SIMP(fr="numéro d objet de collection",statut='f',typ='I' ),
10007 NOMOC =SIMP(fr="nom d'objet de collection",statut='f',typ='TXM' ),
10009 b_attribut =BLOC(condition = "(ENTITE=='ATTRIBUT')",
10010 NOMOBJ =SIMP(fr="nom de collection",statut='f',typ='TXM' ),
10011 NOMATR =SIMP(fr="nom d attribut de collection",statut='f',typ='TXM',
10012 into=('$$DESO','$$IADD','$$IADM','$$NOM','$$LONG',
10013 '$$LONO','$$LUTI','$$NUM') ),
10015 b_systeme =BLOC(condition = "(ENTITE=='SYSTEME')",
10016 CLASSE =SIMP(statut='o',typ='TXM',into=('G','V','L') ),
10017 NOMATR =SIMP(fr="nom d attribut systeme",statut='f',typ='TXM',
10018 into=('$$CARA','$$IADD','$$GENR','$$TYPE','$$ETAT',
10019 '$$DOCU','$$ORIG','$$RNOM','$$LTYP','$$LONG',
10020 '$$LONO','$$DATE','$$LUTI','$$HCOD','$$INDX',
10021 '$$TLEC','$$TECR','$$IADM','$$ACCE') ),
10023 b_repertoire =BLOC(condition = "(ENTITE=='REPERTOIRE')",
10024 CLASSE =SIMP(statut='f',typ='TXM',into=('G','V','L',' '),defaut=' '),
10026 b_disque =BLOC(condition = "(ENTITE=='DISQUE')",
10027 CLASSE =SIMP(statut='f',typ='TXM' ,into=('G','V','L',' '),defaut=' '),
10029 IMPRESSION =FACT(statut='f',min=01,max=01,
10030 NOM =SIMP(statut='f',typ='TXM' ),
10031 UNITE =SIMP(statut='f',typ='I'),
10033 COMMENTAIRE =SIMP(statut='f',typ='TXM' ),
10035 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
10036 # CONFIGURATION MANAGEMENT OF EDF VERSION
10037 # ======================================================================
10038 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10039 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10040 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10041 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10042 # (AT YOUR OPTION) ANY LATER VERSION.
10044 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10045 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10046 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10047 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10049 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10050 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10051 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10052 # ======================================================================
10053 IMPR_MACR_ELEM=PROC(nom="IMPR_MACR_ELEM",op= 160,
10054 docu="U7.04.33-d1",
10055 MACR_ELEM_DYNA =SIMP(statut='o',typ=macr_elem_dyna ),
10056 FICHIER =SIMP(statut='f',typ='TXM' ),
10057 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",
10058 into=("MISS_3D","IDEAS","CADYRO","PLEXUS") ),
10059 b_ideas =BLOC(condition = "FORMAT == 'PLEXUS'",
10060 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10062 b_plexus =BLOC(condition = "FORMAT == 'IDEAS'",
10063 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10065 b_miss_3d =BLOC(condition = "FORMAT == 'MISS_3D'",
10066 UNITE =SIMP(statut='f',typ='I',defaut= 26 ),
10067 SOUS_TITRE =SIMP(statut='f',typ='TXM',max='**'),
10068 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
10069 GROUP_MA_INTERF =SIMP(statut='o',typ=grma,max='**'),
10070 # Ces trois mots cles sont-ils dans le bon bloc et avec le bon statut
10071 GROUP_MA_FLU_STR=SIMP(statut='f',typ=grma,max='**'),
10072 GROUP_MA_FLU_SOL=SIMP(statut='f',typ=grma,max='**'),
10073 GROUP_MA_SOL_SOL=SIMP(statut='f',typ=grma,max='**'),
10074 IMPR_MODE_MECA =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10075 IMPR_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10077 b_cadyro =BLOC(condition = "FORMAT == 'CADYRO'",
10078 SQUELETTE =SIMP(statut='f',typ=squelette ),
10079 UNITE_MODE_MECA =SIMP(statut='f',typ='I',defaut= 26 ),
10080 UNITE_MODE_STAT =SIMP(statut='f',typ='I',defaut= 27 ),
10081 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut= 28 ),
10082 IMPR_MODE_MECA =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10083 IMPR_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10087 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
10088 # CONFIGURATION MANAGEMENT OF EDF VERSION
10089 # ======================================================================
10090 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10091 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10092 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10093 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10094 # (AT YOUR OPTION) ANY LATER VERSION.
10096 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10097 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10098 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10099 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10101 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10102 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10103 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10104 # ======================================================================
10105 IMPR_MATRICE=PROC(nom="IMPR_MATRICE",op= 159,
10106 fr="Impression des matrices élémentaires et des matrices assemblées",
10108 regles=(AU_MOINS_UN('MATR_ELEM','MATR_ASSE'),),
10110 MATR_ELEM =FACT(statut='f',min=01,max='**',
10111 FICHIER =SIMP(statut='f',typ='TXM' ),
10112 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",
10113 into=("IDEAS","RESULTAT") ),
10114 b_format =BLOC(condition = "FORMAT == 'IDEAS'",
10115 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10117 # créer les types matr_elem et vect_elem
10118 MATRICE =SIMP(statut='o',typ=(matr_elem, vect_elem)),
10119 # Quelle regle pour TOUT, NOEUD, GROUP_NO, MAILLE, GROUP_MA
10120 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10121 NOEUD =SIMP(statut='f',typ=no,max='**'),
10122 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
10123 MAILLE =SIMP(statut='f',typ=ma,max='**'),
10124 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
10125 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
10126 GRAIN =SIMP(statut='f',typ='TXM',defaut="VALEUR",
10127 into=("VALEUR","NOEUD","MAILLE") ),
10128 NB_CHIFFRE =SIMP(statut='f',typ='I',defaut= 4 ),
10130 MATR_ASSE =FACT(statut='f',min=01,max='**',
10131 FICHIER =SIMP(statut='f',typ='TXM' ),
10132 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",
10133 into=("IDEAS","RESULTAT") ),
10134 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10135 # créer le type matr_elem
10136 MATRICE =SIMP(statut='o',typ=matr_asse),
10137 # Quelle regle pour TOUT, NOEUD, GROUP_NO, MAILLE, GROUP_MA
10138 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10139 NOEUD =SIMP(statut='f',typ=no,max='**'),
10140 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
10141 MAILLE =SIMP(statut='f',typ=ma,max='**'),
10142 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
10143 OPTION =SIMP(statut='f',typ='TXM',defaut="SOUS_MATRICE",
10144 into=("SOUS_MATRICE","LIGNE","COLONNE") ),
10145 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
10146 GRAIN =SIMP(statut='f',typ='TXM',defaut="VALEUR",
10147 into=("VALEUR","NOEUD") ),
10148 NB_CHIFFRE =SIMP(statut='f',typ='I',defaut= 4 ),
10149 VALE_ZERO =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
10152 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
10153 # CONFIGURATION MANAGEMENT OF EDF VERSION
10154 # ======================================================================
10155 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10156 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10157 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10158 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10159 # (AT YOUR OPTION) ANY LATER VERSION.
10161 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10162 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10163 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10164 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10166 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10167 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10168 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10169 # ======================================================================
10170 IMPR_MISS_3D=PROC(nom="IMPR_MISS_3D",op= 162,
10172 regles=(UN_PARMI('INST_INIT','FREQ_INIT'),
10173 PRESENT_PRESENT('INST_INIT','INST_FIN'),
10174 PRESENT_PRESENT('FREQ_INIT','FREQ_FIN'),),
10175 MACR_ELEM_DYNA =SIMP(statut='o',typ=macr_elem_dyna ),
10176 EXCIT =FACT(statut='f',min=01,max='**',
10177 regles=(UN_PARMI('FONC_MULT','COEF_MULT' ),),
10178 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r ),
10179 FONC_MULT =SIMP(statut='f',typ=fonction ),
10180 COEF_MULT =SIMP(statut='f',typ='R' ),
10182 EXCIT_SOL =FACT(statut='f',min=01,max='**',
10183 DIRECTION =SIMP(statut='o',typ='R',max='**'),
10184 FONC_SIGNAL =SIMP(statut='f',typ=fonction ),
10185 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",
10186 into=("DEPL","VITE","ACCE","FORC",) ),
10188 INST_INIT =SIMP(statut='f',typ='R' ),
10189 INST_FIN =SIMP(statut='f',typ='R' ),
10190 FREQ_INIT =SIMP(statut='f',typ='R' ),
10191 FREQ_FIN =SIMP(statut='f',typ='R' ),
10192 PAS =SIMP(statut='o',typ='R' ),
10193 UNITE =SIMP(statut='f',typ='I',defaut= 26 ),
10194 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
10195 TITRE =SIMP(statut='f',typ='TXM',max='**'),
10197 #& MODIF COMMANDE DATE 05/03/2002 AUTEUR GNICOLAS G.NICOLAS
10198 # CONFIGURATION MANAGEMENT OF EDF VERSION
10199 # ======================================================================
10200 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10201 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10202 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10203 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10204 # (AT YOUR OPTION) ANY LATER VERSION.
10206 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10207 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10208 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10209 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10211 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10212 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10213 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10214 # ======================================================================
10215 IMPR_RESU=PROC(nom="IMPR_RESU",op=39,docu="U4.91.01-g1",
10216 fr="Impression du résultat d un calcul (différents formats)",
10217 MODELE =SIMP(statut='f',typ=modele),
10218 RESU =FACT(statut='o',min=01,max='**',
10219 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
10220 into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED","GMSH") ),
10222 b_format_ideas =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
10223 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
10226 b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
10227 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
10230 regles=(AU_MOINS_UN('CHAM_GD','RESULTAT','MAILLAGE'),
10231 EXCLUS('CHAM_GD','RESULTAT'),),
10232 MAILLAGE =SIMP(statut='f',typ=(maillage,squelette)),
10233 INFO_MAILLAGE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10234 CHAM_GD =SIMP(statut='f',typ=cham_gd),
10235 RESULTAT =SIMP(statut='f',typ=resultat),# CO() sd a creer !!!
10237 b_sensibilite =BLOC(condition="RESULTAT != None",
10238 fr="Définition des paramètres de sensibilité",
10239 ang="Definition of sensitivity parameters",
10240 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
10241 fr="Liste des paramètres de sensibilité.",
10242 ang="List of sensitivity parameters"),),
10244 b_extrac =BLOC(condition="RESULTAT != None",
10245 fr="extraction d un champ de grandeur",
10246 regles=(EXCLUS('TOUT_CHAM','NOM_CHAM'),
10247 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP',
10248 'LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS','ANGL'),),
10249 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10250 NOM_CHAM =SIMP(statut='f',typ='TXM',max='**'),
10252 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10253 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
10254 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
10255 LIST_ORDRE =SIMP(statut='f',typ=listis),
10256 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
10257 NOM_CAS =SIMP(statut='f',typ='TXM',max='**'),
10258 ANGL =SIMP(statut='f',typ='R',max='**'),
10259 FREQ =SIMP(statut='f',typ='R',max='**'),
10260 LIST_FREQ =SIMP(statut='f',typ=listr8),
10261 INST =SIMP(statut='f',typ='R',max='**'),
10262 LIST_INST =SIMP(statut='f',typ=listr8),
10264 b_acce_reel =BLOC(condition="(FREQ != None)or(LIST_FREQ != None)or(INST != None)or(LIST_INST != None)",
10265 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
10266 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10270 b_parametres =BLOC(condition="""(RESULTAT != None)and(FORMAT == 'RESULTAT')""",
10271 regles=(EXCLUS('TOUT_PARA','NOM_PARA'),),
10272 INFO_RESU =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10273 TOUT_PARA =SIMP(statut='f',typ='TXM',into=("OUI","NON",) ),
10274 NOM_PARA =SIMP(statut='f',typ='TXM',max='**'),
10275 FORM_TABL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON","EXCEL") ),
10278 b_cmp=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and\
10279 ((FORMAT == 'RESULTAT')or(FORMAT == 'ENSIGHT')or(FORMAT == 'MED'))""",
10280 fr="sélection des composantes",
10281 regles=(EXCLUS('TOUT_CMP','NOM_CMP'),),
10282 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10283 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
10286 b_gmsh=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and((FORMAT == 'GMSH'))""",
10287 fr="sélection des composantes et des entités toplogiques",
10288 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
10289 MAILLE =SIMP(statut='f',typ=ma,max='**'),
10290 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
10293 b_topologie=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and((FORMAT == 'RESULTAT')or(FORMAT == 'IDEAS'))""",
10294 fr="sélection des entités toplogiques",
10295 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10296 NOEUD =SIMP(statut='f',typ=no,max='**'),
10297 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
10298 MAILLE =SIMP(statut='f',typ=ma,max='**'),
10299 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
10302 b_valeurs =BLOC(condition="(FORMAT == 'RESULTAT')",
10303 fr="sélection sur les valeurs",
10304 VALE_MAX =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10305 VALE_MIN =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10306 BORNE_SUP =SIMP(statut='f',typ='R'),
10307 BORNE_INF =SIMP(statut='f',typ='R'),
10308 IMPR_COOR =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10309 FORMAT_R =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
10312 SOUS_TITRE =SIMP(statut='f',typ='TXM',max='**'),
10313 FICHIER =SIMP(statut='f',typ='TXM'),
10315 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
10317 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
10318 # CONFIGURATION MANAGEMENT OF EDF VERSION
10319 # ======================================================================
10320 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10321 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10322 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10323 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10324 # (AT YOUR OPTION) ANY LATER VERSION.
10326 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10327 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10328 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10329 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10331 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10332 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10333 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10334 # ======================================================================
10335 IMPR_STURM=PROC(nom="IMPR_STURM",op=32,fr="Calculer et imprimer le nombre de valeurs propres dans un intervalle donné",
10337 MATR_A =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
10338 MATR_B =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
10339 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="DYNAMIQUE",into=("MODE_FLAMB","DYNAMIQUE"),
10340 fr="Type d analyse" ),
10341 b_dynamique =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
10342 fr="Recheche du nombre de fréquences propres",
10343 FREQ_MIN =SIMP(statut='f',typ='R',defaut= 0.E+0 ,fr="Borne inférieure de l intervalle" ),
10344 FREQ_MAX =SIMP(statut='o',typ='R',fr="Borne supérieure de l intervalle" ),
10346 b_mode_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
10347 fr="Recherche du nombre de charges critiques",
10348 CHAR_CRIT_MIN =SIMP(statut='o',typ='R',fr="Borne inférieure de l intervalle" ),
10349 CHAR_CRIT_MAX =SIMP(statut='o',typ='R',fr="Borne supérieure de l intervalle" ),
10351 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8 ),
10352 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
10353 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
10354 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
10355 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
10357 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
10358 # CONFIGURATION MANAGEMENT OF EDF VERSION
10359 # ======================================================================
10360 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10361 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10362 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10363 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10364 # (AT YOUR OPTION) ANY LATER VERSION.
10366 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10367 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10368 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10369 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10371 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10372 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10373 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10374 # ======================================================================
10375 # RESPONSABLE VABHHTS J.PELLET
10376 IMPR_TABLE=PROC(nom="IMPR_TABLE",op=155,docu="U4.91.03-d2",
10377 fr="Impression d un concept de type table",
10378 TABLE =SIMP(statut='o',typ=table),
10379 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT", ),
10380 FORMAT =SIMP(statut='f',typ='TXM',defaut="EXCEL",
10381 into=("EXCEL","AGRAF","MOT_CLE","TABLEAU","ASTER") ),
10382 FILTRE =FACT(statut='f',min=1,max='**',
10383 NOM_PARA =SIMP(statut='o',typ='TXM'),
10384 CRIT_COMP =SIMP(statut='f',typ='TXM',defaut="EQ",
10385 into=("EQ","LT","GT","NE","LE","GE","VIDE",
10386 "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
10387 b_vale =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
10388 regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
10389 VALE =SIMP(statut='f',typ='R'),
10390 VALE_I =SIMP(statut='f',typ='I'),
10391 VALE_C =SIMP(statut='f',typ='C'),
10392 VALE_K =SIMP(statut='f',typ='TXM'),),
10394 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10395 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10397 TRI =FACT(statut='f',min=1,max=1,
10398 NOM_PARA =SIMP(statut='o',typ='TXM',max='**'),
10399 ORDRE =SIMP(statut='f',typ='TXM',max='**',defaut="CROISSANT",
10400 into=("CROISSANT","DECROISSANT") ),
10401 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10402 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10404 PAGINATION =SIMP(statut='f',typ='TXM',max='**'),
10405 FORMAT_R =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
10406 FORMAT_C =SIMP(statut='f',typ='TXM',defaut="MODULE_PHASE",
10407 into=("MODULE_PHASE","REEL_IMAG") ),
10408 NOM_PARA =SIMP(statut='f',typ='TXM',max='**'),
10409 TOUT_PARA =SIMP(statut='f',typ='TXM',into=("OUI",)),
10410 IMPR_FONCTION =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10412 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
10413 # CONFIGURATION MANAGEMENT OF EDF VERSION
10414 # ======================================================================
10415 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10416 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10417 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10418 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10419 # (AT YOUR OPTION) ANY LATER VERSION.
10421 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10422 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10423 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10424 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10426 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10427 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10428 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10429 # ======================================================================
10430 INCLUDE=MACRO(nom="INCLUDE",op=-1,docu="U4.13.01-e",
10431 fr="Débranchement vers un fichier de commandes secondaires",
10432 sd_prod=ops.INCLUDE,op_init=ops.INCLUDE_context,fichier_ini=1,
10433 UNITE = SIMP(statut='o',typ='I'),
10434 INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10436 #& MODIF COMMANDE DATE 14/02/2001 AUTEUR DURAND C.DURAND
10437 # CONFIGURATION MANAGEMENT OF EDF VERSION
10438 # ======================================================================
10439 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10440 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10441 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10442 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10443 # (AT YOUR OPTION) ANY LATER VERSION.
10445 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10446 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10447 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10448 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10450 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10451 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10452 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10453 # ======================================================================
10454 INCLUDE_MATERIAU=MACRO(nom="INCLUDE_MATERIAU",op=-14,docu="U4.43.02-a",
10456 sd_prod=ops.INCLUDE_MATERIAU,op_init=ops.INCLUDE_context,fichier_ini=0,
10457 NOM_AFNOR =SIMP(statut='o',typ='TXM' ),
10458 TYPE_MODELE =SIMP(statut='o',typ='TXM',into=("REF","PAR") ),
10459 VARIANTE =SIMP(statut='o',typ='TXM',
10460 into=("A","B","C","D","E","F","G","H","I","J",
10461 "K","L","M","N","O","P","Q","R","S","T","U","V",
10462 "W","X","Y","Z",) ),
10463 TYPE_VALE =SIMP(statut='o',typ='TXM',into=("NOMI","MINI","MAXI") ),
10464 NOM_MATER =SIMP(statut='o',typ='TXM' ),
10465 UNITE =SIMP(statut='f',typ='I',defaut= 32 ),
10466 EXTRACTION =FACT(statut='f',min=01,max=99,
10467 COMPOR =SIMP(statut='o',typ='TXM' ),
10468 TEMP_EVAL =SIMP(statut='o',typ='R' ),
10470 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
10472 #& MODIF COMMANDE DATE 16/01/2002 AUTEUR DURAND C.DURAND
10473 # CONFIGURATION MANAGEMENT OF EDF VERSION
10474 # ======================================================================
10475 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10476 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10477 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10478 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10479 # (AT YOUR OPTION) ANY LATER VERSION.
10481 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10482 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10483 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10484 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10486 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10487 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10488 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10489 # ======================================================================
10490 # RESPONSABLE G8BHHXD X.DESROCHES
10491 INTE_MAIL_2D=OPER(nom="INTE_MAIL_2D",op=50,sd_prod=courbe,docu="U4.81.11-e",
10492 fr="Définition d une courbe sur un maillage 2D",reentrant='n',
10494 MAILLAGE =SIMP(statut='o',typ=(maillage) ),
10496 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
10497 AU_MOINS_UN('DEFI_SEGMENT','DEFI_ARC','DEFI_CHEMIN'),
10498 PRESENT_ABSENT('DEFI_CHEMIN','DEFI_SEGMENT','DEFI_ARC'),
10499 PRESENT_ABSENT('DEFI_SEGMENT','NOEUD_ORIG','GROUP_NO_ORIG'),
10500 PRESENT_ABSENT('DEFI_ARC','NOEUD_ORIG','GROUP_NO_ORIG'),
10501 EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
10502 EXCLUS('DEFI_CHEMIN','DEFI_SEGMENT'),
10503 EXCLUS('DEFI_CHEMIN','DEFI_ARC'),),
10505 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10506 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
10507 MAILLE =SIMP(statut='f',typ=ma,max='**'),
10509 DEFI_SEGMENT =FACT(statut='f',min=01,max='**',
10510 regles=(UN_PARMI('ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
10511 UN_PARMI('EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),),
10512 ORIGINE =SIMP(statut='f',typ='R',min=2,max=2),
10513 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
10514 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
10515 EXTREMITE =SIMP(statut='f',typ='R',min=2,max=2),
10516 NOEUD_EXTR =SIMP(statut='f',typ=no,max=1),
10517 GROUP_NO_EXTR =SIMP(statut='f',typ=grno,max=1),
10520 DEFI_ARC =FACT(statut='f',min=01,max='**',
10521 regles=(UN_PARMI('CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),
10522 UN_PARMI('RAYON','ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
10523 UN_PARMI('RAYON','EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),
10524 PRESENT_PRESENT('RAYON','SECTEUR'),),
10525 CENTRE =SIMP(statut='f',typ='R',min=2,max=2),
10526 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=1),
10527 GROUP_NO_CENTRE =SIMP(statut='f',typ=grno,max=1),
10528 RAYON =SIMP(statut='f',typ='R',max=1,val_min=0.E+0),
10529 SECTEUR =SIMP(statut='f',typ='R',min=2,max=2,
10530 val_min=-180.E+0,val_max=180E+0),
10531 ORIGINE =SIMP(statut='f',typ='R',min=2,max=2),
10532 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
10533 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
10534 EXTREMITE =SIMP(statut='f',typ='R',min=2,max=2),
10535 NOEUD_EXTR =SIMP(statut='f',typ=no,max=1),
10536 GROUP_NO_EXTR =SIMP(statut='f',typ=grno,max=1),
10537 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10538 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
10539 into=("RELATIF","ABSOLU",) ),
10542 DEFI_CHEMIN =FACT(statut='f',min=01,max='**',
10543 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
10544 MAILLE =SIMP(statut='f',typ=ma,max='**'),
10545 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
10548 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
10549 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
10550 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
10551 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10553 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
10554 # CONFIGURATION MANAGEMENT OF EDF VERSION
10555 # ======================================================================
10556 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10557 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10558 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10559 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10560 # (AT YOUR OPTION) ANY LATER VERSION.
10562 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10563 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10564 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10565 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10567 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10568 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10569 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10570 # ======================================================================
10571 # RESPONSABLE G8BHHXD X.DESROCHES
10572 INTE_MAIL_3D=OPER(nom="INTE_MAIL_3D",op=96,sd_prod=surface,docu="U4.81.12-e",
10573 fr="Définition d un chemin sur un maillage 3D",reentrant='n',
10574 MAILLAGE =SIMP(statut='o',typ=maillage),
10575 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10576 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
10577 MAILLE =SIMP(statut='f',typ=ma,max='**'),
10578 DEFI_SEGMENT =FACT(statut='o',min=01,max='**',
10579 regles=(UN_PARMI('ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
10580 UN_PARMI('EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),),
10581 ORIGINE =SIMP(statut='f',typ='R',min=3,max=3),
10582 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
10583 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
10584 EXTREMITE =SIMP(statut='f',typ='R',min=3,max=3),
10585 NOEUD_EXTR =SIMP(statut='f',typ=no,max=1),
10586 GROUP_NO_EXTR =SIMP(statut='f',typ=grno,max=1),
10588 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
10589 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10591 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
10592 # CONFIGURATION MANAGEMENT OF EDF VERSION
10593 # ======================================================================
10594 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10595 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10596 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10597 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10598 # (AT YOUR OPTION) ANY LATER VERSION.
10600 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10601 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10602 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10603 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10605 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10606 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10607 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10608 # ======================================================================
10609 def lire_champ_prod(TYPE_CHAM=None,**args):
10610 if TYPE_CHAM == "CHAM_NO_TEMP_R" : return cham_no_temp_r
10611 if TYPE_CHAM == "CHAM_NO_DEPL_R" : return cham_no_depl_r
10612 raise AsException("type de concept resultat non prevu")
10614 LIRE_CHAMP=OPER(nom="LIRE_CHAMP",op= 192,sd_prod=lire_champ_prod,
10615 fr="Lire un champ dans un fichier et le stocker dans un concept.",
10616 ang="To read a field in a file and to save it in a concept.",
10617 docu="U7.02.02-b2",reentrant='n',
10619 # 1. Le maillage support du champ
10621 MAILLAGE =SIMP(statut='o',typ=maillage,
10622 fr="Nom du maillage support du champ",
10623 ang="Name of the mesh on which the field is defined" ),
10625 # 2. Format de lecture
10626 # Remarque : seul MED est operationnel dans cette version.
10628 FORMAT =SIMP(statut='f',typ='TXM',defaut="MED",into=("MED",),
10629 fr="Format du fichier : MED seulement",
10630 ang="Format of the file : MED only" ),
10632 # 3. L'unite logique du fichier.
10634 UNITE =SIMP(statut='f',typ='I',defaut= 81,
10635 fr="Le fichier est : fort.n.",
10636 ang="File is : fort.n" ),
10638 # 4. Pour le format MED, il faut preciser le nom sous lequel le champ est connu dans le fichier
10639 # et les composantes a lire
10641 b_format =BLOC(condition = "FORMAT == 'MED'",
10642 fr="Nom du champ dans le fichier MED",
10643 regles=(UN_PARMI('NOM_CMP_IDEM','NOM_CMP'),
10644 PRESENT_PRESENT('NOM_CMP','NOM_CMP_MED' ),),
10646 NOM_MED =SIMP(statut='o',typ='TXM',
10647 fr="Nom du champ dans le fichier MED.",
10648 ang="Name of the field in the MED file." ),
10650 NOM_CMP_IDEM =SIMP(statut='f',typ='TXM',into=("OUI",),
10651 fr="Les composantes ont le meme nom dans MED et ASTER.",
10652 ang="The names of the components are the same in ASTER and MED." ),
10653 NOM_CMP =SIMP(statut='f',typ='TXM',max='**',
10654 fr="Nom des composantes dans ASTER.",
10655 ang="Names of the components in ASTER" ),
10656 NOM_CMP_MED =SIMP(statut='f',typ='TXM',max='**',
10657 fr="Nom des composantes dans MED.",
10658 ang="Names of the components in MED" ),
10660 NUME_ORDRE =SIMP(statut='f',typ='I',max='**',
10661 fr="Numéro d'ordre du champ à lire.",
10662 ang="Rank number of the field to read."),
10664 NUME_PT =SIMP(statut='f',typ='I',max='**',
10665 fr="Numéro du pas de temps du champ à lire.",
10666 ang="Time step number of the field to read."),
10668 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
10669 # le maillage associé au champ y a été enregistré. Par défaut, on prendra le premier maillage.
10671 NOM_MAIL_MED = SIMP(statut='f',typ='TXM',
10672 fr="Nom du maillage dans le fichier MED.",
10673 ang="Name of the mesh into the MED file.",),
10677 # 5. Le type du concept lu
10679 TYPE_CHAM =SIMP(statut='o',typ='TXM',into=("CHAM_NO_TEMP_R","CHAM_NO_DEPL_R"),
10680 fr="Type de champ à créer.",
10681 ang="Type of the field to create." ),
10683 # 6. Le niveau d'information
10685 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
10687 #& MODIF COMMANDE DATE 06/03/2002 AUTEUR MCOURTOI M.COURTOIS
10688 # CONFIGURATION MANAGEMENT OF EDF VERSION
10689 # ======================================================================
10690 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10691 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10692 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10693 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10694 # (AT YOUR OPTION) ANY LATER VERSION.
10696 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10697 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10698 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10699 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10701 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10702 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10703 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10704 # ======================================================================
10705 LIRE_FONCTION=OPER(nom="LIRE_FONCTION",op= 83,sd_prod=fonction,
10706 fr="Lecture d une fonction dans un fichier ",
10707 docu="U4.32.02-f1",reentrant='n',
10708 UNITE =SIMP(statut='o',typ='I' ),
10709 NOM_PARA =SIMP(statut='f',typ='TXM',
10710 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
10711 "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
10712 NOM_RESU =SIMP(statut='f',typ='TXM' ),
10713 INTERPOL =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
10714 PROL_DROITE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10715 PROL_GAUCHE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10716 NOM_PARA_FONC =SIMP(statut='f',typ='TXM',
10717 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
10718 "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
10719 INTERPOL_FONC =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
10720 PROL_DROITE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10721 PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10722 INFO =SIMP(statut='f',typ='I',defaut= 2,into=( 1 , 2) ),
10723 TITRE =SIMP(statut='f',typ='TXM',max='**'),
10725 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
10726 # CONFIGURATION MANAGEMENT OF EDF VERSION
10727 # ======================================================================
10728 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10729 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10730 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10731 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10732 # (AT YOUR OPTION) ANY LATER VERSION.
10734 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10735 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10736 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10737 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10739 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10740 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10741 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10742 # ======================================================================
10743 LIRE_INTE_SPEC=OPER(nom="LIRE_INTE_SPEC",op= 116,sd_prod=tabl_intsp,
10744 fr="Lecture sur un fichier externe de fonctions complexes pour créer une matrice interspectrale",
10745 docu="U4.36.01-f2",reentrant='n',
10746 UNITE =SIMP(statut='o',typ='I' ),
10747 FORMAT =SIMP(statut='f',typ='TXM',defaut="MODULE_PHASE",into=("REEL_IMAG","MODULE_PHASE") ),
10748 NOM_PARA =SIMP(statut='f',typ='TXM',
10749 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
10750 "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
10751 NOM_RESU =SIMP(statut='f',typ='TXM' ),
10752 INTERPOL =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
10753 PROL_DROITE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10754 PROL_GAUCHE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10755 TITRE =SIMP(statut='f',typ='TXM',max='**'),
10756 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
10758 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
10759 # CONFIGURATION MANAGEMENT OF EDF VERSION
10760 # ======================================================================
10761 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10762 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10763 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10764 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10765 # (AT YOUR OPTION) ANY LATER VERSION.
10767 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10768 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10769 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10770 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10772 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10773 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10774 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10775 # ======================================================================
10776 # RESPONSABLE VABHHTS J.PELLET
10777 LIRE_MAILLAGE=OPER(nom="LIRE_MAILLAGE",op= 1,sd_prod=maillage,
10778 fr="Lecture d'un fichier de maillage",
10779 ang="Readings of a mesh file",
10780 docu="U4.21.01-g1",reentrant='n',
10782 UNITE =SIMP(statut='f',typ='I',defaut= 20 ),
10784 FORMAT =SIMP(statut='f',typ='TXM',defaut="ASTER",into=("ASTER","MED"),
10785 fr="Format du fichier : ASTER ou MED.",
10786 ang="Format of the file : ASTER or MED.",),
10788 ABSC_CURV =FACT(statut='f',min=0,max=1,
10789 TOUT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10792 VERI_MAIL =FACT(statut='d',min=1,max=1,
10793 VERIF =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10794 APLAT =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10797 b_format_med =BLOC( condition = " ( FORMAT == 'MED' ) " ,
10798 fr="Informations complémentaires pour la lecture MED.",
10799 ang="Further information for MED readings.",
10801 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
10802 # le maillage y a été enregistré. Par défaut, on va le chercher sous le nom du concept à créer.
10804 NOM_MED = SIMP(statut='f',typ='TXM',
10805 fr="Nom du maillage dans le fichier MED.",
10806 ang="Name of the mesh into the MED file.",),
10808 INFO_MED = SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
10812 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
10815 #& MODIF COMMANDE DATE 16/07/2002 AUTEUR VABHHTS J.PELLET
10816 # CONFIGURATION MANAGEMENT OF EDF VERSION
10817 # ======================================================================
10818 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10819 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
10820 # REDISTRIBUTION OF THIS FILE.
10821 # ======================================================================
10822 def lire_miss_3d_prod(TYPE_RESU,**args):
10823 if TYPE_RESU == "TRANS" : return dyna_trans
10824 if TYPE_RESU == "HARMO" : return dyna_harmo
10825 raise AsException("type de concept resultat non prevu")
10827 LIRE_MISS_3D=OPER(nom="LIRE_MISS_3D",op= 163,sd_prod=lire_miss_3d_prod,
10828 fr="Restitution au format MISS3D d une évolution harmonique ou transitoire",
10829 docu="U7.02.31-c",reentrant='n',
10830 MACR_ELEM_DYNA =SIMP(statut='o',typ=macr_elem_dyna ),
10831 UNITE =SIMP(statut='f',typ='I',defaut= 27 ),
10832 NOM =SIMP(statut='f',typ='TXM' ),
10833 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="TRANS",into=("TRANS","HARMO") ),
10834 TITRE =SIMP(statut='f',typ='TXM',max='**'),
10836 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
10837 # CONFIGURATION MANAGEMENT OF EDF VERSION
10838 # ======================================================================
10839 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10840 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10841 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10842 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10843 # (AT YOUR OPTION) ANY LATER VERSION.
10845 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10846 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10847 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10848 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10850 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10851 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10852 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10853 # ======================================================================
10854 LIRE_PLEXUS=OPER(nom="LIRE_PLEXUS",op= 184,sd_prod=evol_char,
10856 docu="U7.02.11-a",reentrant='n',
10857 regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
10858 UNITE =SIMP(statut='f',typ='I',defaut= 19 ),
10859 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",)),
10860 MAIL_PLEXUS =SIMP(statut='o',typ=maillage ),
10861 MAILLAGE =SIMP(statut='o',typ=maillage ),
10862 MODELE =SIMP(statut='o',typ=modele ),
10863 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10864 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
10865 LIST_ORDRE =SIMP(statut='f',typ=listis ),
10866 INST =SIMP(statut='f',typ='R',max='**'),
10867 LIST_INST =SIMP(statut='f',typ=listr8 ),
10868 b_prec_crit =BLOC(condition = "LIST_INST != None or INST != None",
10869 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10870 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
10871 into=("RELATIF","ABSOLU") ),
10873 TITRE =SIMP(statut='f',typ='TXM',max='**'),
10875 #& MODIF COMMANDE DATE 16/07/2002 AUTEUR VABHHTS J.PELLET
10876 # CONFIGURATION MANAGEMENT OF EDF VERSION
10877 # ======================================================================
10878 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10879 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
10880 # REDISTRIBUTION OF THIS FILE.
10881 # ======================================================================
10882 # RESPONSABLE VABHHTS J.PELLET
10883 def lire_resu_prod(TYPE_RESU,**args):
10884 if TYPE_RESU == "EVOL_CHAR" : return evol_char
10885 if TYPE_RESU == "EVOL_THER" : return evol_ther
10886 if TYPE_RESU == "EVOL_ELAS" : return evol_elas
10887 if TYPE_RESU == "EVOL_NOLI" : return evol_noli
10888 if TYPE_RESU == "DYNA_TRANS" : return dyna_trans
10889 if TYPE_RESU == "DYNA_HARMO" : return dyna_harmo
10890 if TYPE_RESU == "HARM_GENE" : return harm_gene
10891 if TYPE_RESU == "MODE_MECA" : return mode_meca
10892 raise AsException("type de concept resultat non prevu")
10894 LIRE_RESU=OPER(nom="LIRE_RESU",op=150,sd_prod=lire_resu_prod,docu="U7.02.01-d2",reentrant='n',
10895 fr="Lecture de champs aux noeuds ou par éléments aux noeuds sur un fichier IDEAS ou EnSight",
10898 # 0 mots clés généraux :
10899 #----------------------
10900 TYPE_RESU =SIMP(statut='o',typ='TXM',into=("EVOL_THER","EVOL_ELAS","EVOL_NOLI","MODE_MECA",
10901 "DYNA_TRANS","DYNA_HARMO","HARM_GENE","EVOL_CHAR") ),
10903 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS","ENSIGHT","MED") ),
10904 DATASET_58 =SIMP(statut='f',typ='TXM',defaut='NON',into=('OUI','NON',) ),
10906 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
10907 TITRE =SIMP(statut='f',typ='TXM',max='**'),
10909 regles=(UN_PARMI('MAILLAGE','MODELE'),),
10910 MAILLAGE =SIMP(statut='f',typ=maillage),
10911 MODELE =SIMP(statut='f',typ=modele),
10913 NB_VARI =SIMP(statut='f',typ='I' ),
10916 # 1 blocs selon le format choisi :
10917 #---------------------------------
10921 b_ideas =BLOC(condition="FORMAT=='IDEAS'",
10922 UNITE =SIMP(statut='f',typ='I',defaut= 19 ),
10925 b_format_ideas = BLOC(condition="DATASET_58=='NON'",
10926 FORMAT_IDEAS =FACT(statut='f',max='**',
10927 regles=(UN_PARMI('POSI_INST','POSI_FREQ'),),
10928 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',into=("TEMP","DEPL","VITE","ACCE","PRES","VARI_ELNO",
10929 "SIEF_ELNO","EPSA_ELNO","TEMP_PEAU","VITE_VENT",
10930 "FVOL_3D","FVOL_2D","FSUR_3D","FSUR_2D") ),
10931 NUME_DATASET =SIMP(statut='f',typ='I',into=(55,57,2414) ),
10932 RECORD_3 =SIMP(statut='f',typ='I',max=10),
10933 RECORD_6 =SIMP(statut='f',typ='I',max=10),
10934 RECORD_9 =SIMP(statut='f',typ='I',max=10),
10935 POSI_ORDRE =SIMP(statut='o',typ='I',min=2,max=2),
10936 POSI_NUME_MODE =SIMP(statut='f',typ='I',min=2,max=2),
10937 POSI_MASS_GENE =SIMP(statut='f',typ='I',min=2,max=2),
10938 POSI_INST =SIMP(statut='f',typ='I',min=2,max=2),
10939 POSI_FREQ =SIMP(statut='f',typ='I',min=2,max=2),
10940 NOM_CMP =SIMP(statut='o',typ='TXM',max='**'),),
10942 b_dataset_58 = BLOC(condition="(DATASET_58=='OUI') and ((TYPE_RESU=='DYNA_TRANS') or\
10943 (TYPE_RESU=='DYNA_HARMO') or (TYPE_RESU=='HARM_GENE'))",
10944 NOM_CHAM=SIMP(statut='o',typ='TXM',into=("DEPL","VITE","ACCE","EPSI_NOEU_DEPL","SIEF_NOEU",) ),
10945 REDEFI_ORIENT=FACT(statut='f',max='**',
10946 regles=(PRESENT_PRESENT('CODE_DIR','DIRECTION','NOEUD',),),
10947 CODE_DIR =SIMP(statut='f',typ='I',into=(1,2,3,) ),
10948 DIRECTION=SIMP(statut='f',typ='R',min=3,max=3,),
10949 NOEUD =SIMP(statut='f',typ=no,max='**'),),
10953 b_ensight =BLOC(condition="FORMAT=='ENSIGHT'",
10954 NOM_FICHIER =SIMP(statut='f',typ='TXM'),
10958 b_med =BLOC(condition = "FORMAT == 'MED'",fr="Nom du champ dans le fichier MED",
10959 # regles=(UN_PARMI('NOM_CMP_IDEM','NOM_CMP'),
10960 # PRESENT_PRESENT('NOM_CMP','NOM_CMP_MED' ),),
10961 NOM_MED =SIMP(statut='o',typ='TXM',
10962 fr="Nom du champ dans le fichier MED.",
10963 ang="Name of the field in the MED file." ),
10964 NOM_CMP_IDEM =SIMP(statut='f',typ='TXM',into=("OUI",),
10965 fr="Les composantes ont le meme nom dans MED et ASTER.",
10966 ang="The names of the components are the same in ASTER and MED." ),
10967 NOM_CMP =SIMP(statut='f',typ='TXM',max='**',
10968 fr="Nom des composantes dans ASTER.",
10969 ang="Names of the components in ASTER" ),
10970 NOM_CMP_MED =SIMP(statut='f',typ='TXM',max='**',
10971 fr="Nom des composantes dans MED.",
10972 ang="Names of the components in MED" ),
10973 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
10974 # le maillage associé au champ y a été enregistré. Par défaut, on prendra le premier maillage.
10975 NOM_MAIL_MED =SIMP(statut='f',typ='TXM',
10976 fr="Nom du maillage dans le fichier MED.",
10977 ang="Name of the mesh into the MED file.",),
10978 UNITE =SIMP(statut='f',typ='I',defaut= 81,
10979 fr="Le fichier est : fort.n.",
10980 ang="File is : fort.n" ),
10984 # 2 blocs selon le type du résultat :
10985 #---------------------------------
10986 b_evol_elas =BLOC(condition="TYPE_RESU=='EVOL_ELAS'",
10987 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
10990 b_evol_ther =BLOC(condition="TYPE_RESU=='EVOL_THER'",
10991 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
10992 into=("TEMP","TEMP_PEAU") ),
10994 b_evol_char =BLOC(condition="TYPE_RESU=='EVOL_CHAR'",
10995 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
10996 into=("PRES","VITE_VENT",
10997 "FVOL_3D","FVOL_2D",
10998 "FSUR_3D","FSUR_2D") ),
11000 b_evol_noli =BLOC(condition="TYPE_RESU=='EVOL_NOLI'",
11001 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
11002 into=("DEPL","VITE","ACCE","VARI_ELNO",
11003 "SIEF_ELNO","EPSA_ELNO") ),
11005 b_mode_meca =BLOC(condition="TYPE_RESU=='MODE_MECA'",
11006 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
11009 b_dyna =BLOC(condition="((TYPE_RESU=='DYNA_TRANS') or (TYPE_RESU=='DYNA_HARMO') or\
11010 (TYPE_RESU=='HARM_GENE')) and (DATASET_58=='NON')",
11011 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
11012 into=("DEPL","VITE","ACCE",) ),
11017 #---------------------------------
11018 b_extrac =BLOC(condition="1",fr="accès à un champ dans la structure de données résultat",
11019 regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST','FREQ','LIST_FREQ'),),
11020 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11021 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
11022 INST =SIMP(statut='f',typ='R',max='**'),
11023 LIST_INST =SIMP(statut='f',typ=listr8),
11024 LIST_ORDRE =SIMP(statut='f',typ=listis),
11025 FREQ =SIMP(statut='f',typ='R',max='**'),
11026 LIST_FREQ =SIMP(statut='f',typ=listr8),
11028 b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)or(FREQ != None)or(LIST_FREQ != None)",
11029 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
11030 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
11034 #& MODIF COMMANDE DATE 08/08/2002 AUTEUR CIBHHLV L.VIVAN
11035 # CONFIGURATION MANAGEMENT OF EDF VERSION
11036 # ======================================================================
11037 # COPYRIGHT (C) 1991 - 2002 EDF R&D WWW.CODE-ASTER.ORG
11038 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11039 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11040 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11041 # (AT YOUR OPTION) ANY LATER VERSION.
11043 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11044 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11045 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11046 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11048 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11049 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11050 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11051 # ======================================================================
11052 def lire_table_prod(TYPE_TABLE,**args):
11053 if TYPE_TABLE == "TABLE" : return table
11054 if TYPE_TABLE == "TABL_CARA_GEOM" : return tabl_cara_geom
11055 if TYPE_TABLE == "TABL_POST_RELE" : return tabl_post_rele
11056 if TYPE_TABLE == "TABL_POST_USUR" : return tabl_post_usur
11057 if TYPE_TABLE == "TABL_POST_ALEA" : return tabl_post_alea
11058 raise AsException("type de concept resultat non prevu")
11059 LIRE_TABLE=OPER(nom="LIRE_TABLE",op=29,sd_prod=lire_table_prod,
11060 docu="U7.02.03",fr="Lecture d un concept de type table",
11061 UNITE =SIMP(statut='o',typ='I' ),
11062 FORMAT =SIMP(statut='f',typ='TXM',into=("ASTER",),defaut="ASTER"),
11063 NUME_TABLE =SIMP(statut='f',typ='I',defaut=1),
11064 TYPE_TABLE =SIMP(statut='f',typ='TXM',defaut="TABLE",
11069 "TABL_POST_ALEA" ) ),
11070 SEPARATEUR =SIMP(statut='o',typ='TXM'),
11071 TITRE =SIMP(statut='f',typ='TXM',max='**'),
11073 #& MODIF COMMANDE DATE 16/07/2002 AUTEUR GNICOLAS G.NICOLAS
11074 # CONFIGURATION MANAGEMENT OF EDF VERSION
11075 # ======================================================================
11076 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11077 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11078 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11079 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11080 # (AT YOUR OPTION) ANY LATER VERSION.
11082 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11083 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11084 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11085 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11087 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11088 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11089 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11090 # ======================================================================
11091 # RESPONSABLE GNICOLAS G.NICOLAS
11092 def macr_adap_mail_prod(self,MAJ_CHAM,ADAPTATION,**args):
11093 mail1=ADAPTATION['MAILLAGE_N']
11094 self.type_sdprod(mail1,maillage)
11095 mail2=ADAPTATION['MAILLAGE_NP1']
11096 self.type_sdprod(mail2,maillage)
11097 if MAJ_CHAM == None:return None
11098 for ch in MAJ_CHAM:
11100 if t == 'CHAM_NO_TEMP_R':self.type_sdprod(ch['CHAM_MAJ'],cham_no_temp_r)
11101 if t == 'CHAM_NO_DEPL_R':self.type_sdprod(ch['CHAM_MAJ'],cham_no_depl_r)
11104 MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",op=-24,sd_prod=macr_adap_mail_prod,
11105 fr="Adapter un maillage avec le logiciel HOMARD.",
11106 ang="Mesh adaptation with HOMARD software.",
11107 docu="U7.03.01-b2",
11109 # 1. Le niveau d'information
11111 INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
11113 # 2. Version de HOMARD
11115 VERSION_HOMARD = SIMP(statut='f',typ='TXM',defaut="V5_3",
11116 into=("V5_3", "V5_N", "V5_N_PERSO"),
11117 fr="Version de HOMARD",
11118 ang="HOMARD release"),
11120 # 3. Langue des messages issus de HOMARD
11122 LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
11123 into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
11124 fr="Langue des messages issus de HOMARD.",
11125 ang="Language for HOMARD messages." ),
11127 # 4. LE TYPE DE TRAITEMENT :
11129 ADAPTATION =FACT(statut='o',min=01,max=01,
11130 fr="Type d'adaptation",
11131 ang="Type of adaptation",
11133 # 4.1. DEUX CHOIX D'ADAPTATION EXCLUSIFS :
11136 # A. SELON UN INDICATEUR D'ERREUR, AVEC TROIS VARIANTES :
11137 # . RAFFINEMENT ET DERAFFINEMENT
11138 # . RAFFINEMENT SEUL
11139 # . DERAFFINEMENT SEUL
11140 # B. UNIFORME, AVEC TROIS VARIANTES :
11141 # . RAFFINEMENT SEUL
11142 # . DERAFFINEMENT SEUL
11143 # . RIEN : LE MAILLAGE EST LE MEME A LA SORTIE ET A L'ENTREE
11146 UN_PARMI('LIBRE','UNIFORME'),
11148 LIBRE = SIMP(statut='f',typ='TXM',
11149 into=("RAFF_DERA","RAFFINEMENT","DERAFFINEMENT"),
11150 fr="Adaptation selon un indicateur d'erreur.",
11151 ang="Adaptation among an error indicator" ),
11152 UNIFORME = SIMP(statut='f',typ='TXM',
11153 into=("RAFFINEMENT","DERAFFINEMENT","RIEN"),
11154 fr="Adaptation uniforme.",
11155 ang="Uniform adaptation" ),
11157 # 4.2. QUEL QUE SOIT LE TYPE DE TRAITEMENT, IL FAUT DONNER :
11158 # A. LE CONCEPT DU MAILLAGE INITIAL
11159 # B. LE CONCEPT DU MAILLAGE FINAL
11161 MAILLAGE_N = SIMP(statut='o',typ=(CO,maillage),
11162 fr="Maillage avant adaptation",
11163 ang="Mesh before adaptation" ),
11164 MAILLAGE_NP1 = SIMP(statut='o',typ=(CO,maillage),
11165 fr="Maillage apres adaptation",
11166 ang="Mesh after adaptation" ),
11168 # 4.3. POUR DE L'ADAPTATION LIBRE, IL FAUT L'INDICATEUR D'ERREUR
11171 b_indicateur_d_erreur =BLOC( condition = " LIBRE != None " ,
11172 fr="Indicateur d'erreur",
11173 ang="Error indicator",
11175 # 4.3.1. LE NOM DU CONCEPT RESULTAT
11177 RESULTAT_N = SIMP(statut='o',typ=(evol_elas,evol_noli,evol_ther) ,
11178 fr="Resultat contenant l'indicateur d'erreur",
11179 ang="Result with error indicator" ),
11181 # 4.3.2. LE CHAMP D'INDICATEUR D'ERREUR
11183 INDICATEUR = SIMP(statut='o',typ='TXM',
11184 fr="Champ de l'indicateur d'erreur",
11185 ang="Error indicator field" ),
11187 # 4.3.3. LA COMPOSANTE RETENUE
11189 NOM_CMP_INDICA = SIMP(statut='o',typ='TXM',
11190 fr="Composante retenue",
11191 ang="Selected component" ),
11193 # 4.3.4. LE NUMERO D'ORDRE
11195 NUME_ORDRE = SIMP(statut='f',typ='I' ,
11196 fr="Numero d ordre",
11200 # 4.4. LES CRITERES POUR DE L'ADAPTATION LIBRE :
11201 # ABSOLU, RELATIF, EN PROPORTION D'ENTITE
11202 # 4.4.1. POUR LE RAFFINEMENT :
11204 b_critere_de_raffinement =BLOC( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'RAFFINEMENT' ) " ,
11205 fr="Critère de raffinement.",
11206 ang="Refinement threshold.",
11207 regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE' ),),
11208 CRIT_RAFF_ABS = SIMP(statut='f',typ='R',
11209 fr="Critère absolu",
11210 ang="Absolute threshold" ),
11211 CRIT_RAFF_REL = SIMP(statut='f',typ='R',
11212 fr="Critère relatif",
11213 ang="Relative threshold" ),
11214 CRIT_RAFF_PE = SIMP(statut='f',typ='R',
11215 fr="Pourcentage d'éléments",
11216 ang="Percentage of elements" ),
11219 # 4.4.2. POUR LE DERAFFINEMENT :
11221 b_critere_de_deraffinement =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'DERAFFINEMENT' ) " ,
11222 fr="Critère de déraffinement.",
11223 ang="Unrefinement threshold.",
11224 regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE' ),),
11225 CRIT_DERA_ABS = SIMP(statut='f',typ='R' ,
11226 fr="Critère absolu",
11227 ang="Absolute threshold" ),
11228 CRIT_DERA_REL = SIMP(statut='f',typ='R',
11229 fr="Critère relatif",
11230 ang="Relative threshold" ),
11231 CRIT_DERA_PE = SIMP(statut='f',typ='R',
11232 fr="Pourcentage d'éléments",
11233 ang="Percentage of elements" ),
11236 # 4.5. LES NIVEAUX EXTREMES POUR LE MAILLAGE ADAPTE
11237 # 4.5.1. POUR LE RAFFINEMENT :
11239 b_niveau_maximum =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'RAFFINEMENT' ) or \
11240 ( UNIFORME == 'RAFFINEMENT' ) " ,
11241 fr="Niveau maximum de profondeur de raffinement",
11242 ang="Maximum level for refinement",
11243 NIVE_MAX = SIMP(statut='f',typ='I' ),
11246 # 4.5.2. POUR LE DERAFFINEMENT :
11248 b_niveau_minimum =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'DERAFFINEMENT' ) or \
11249 ( UNIFORME == 'DERAFFINEMENT' ) " ,
11250 fr="Niveau minimum de profondeur de déraffinement",
11251 ang="Minimum level for unrefinement",
11252 NIVE_MIN = SIMP(statut='f',typ='I' ),
11256 # 5. LA MISE A JOUR DE CHAMPS.
11257 # PAR DEFAUT, RIEN NE SE FAIT
11259 MAJ_CHAM =FACT(statut='f',min=01,max='**',
11260 fr="Mise à jour de champs sur le nouveau maillage.",
11261 ang="Updating of fields over the new mesh.",
11263 # 5.1. LE NOM DU RESULTAT DU CHAMP A INTERPOLER
11265 RESULTAT = SIMP(statut='o',
11266 typ=(evol_elas,evol_noli,evol_ther),
11267 fr="Resultat contenant le champ à mettre à jour",
11268 ang="Result with field to be updated" ),
11270 # 5.2. LE NOM DU CHAMP A INTERPOLER
11272 NOM_CHAM = SIMP(statut='o',typ='TXM',
11273 fr="Nom du champ à mettre à jour",
11274 ang="Name of the field to be updated" ),
11276 # 5.3. LE NUMERO D'ORDRE POUR LE CHAMP A INTERPOLER
11278 NUME_ORDRE = SIMP(statut='f',typ='I',
11279 fr="Numero d ordre du champ à mettre à jour",
11280 ang="Rank of the field to be updated" ),
11282 # 5.4. LE NOM DU CHAMP QUI CONTIENDRA LE RESULTAT DE LA MISE A JOUR
11284 CHAM_MAJ = SIMP(statut='o',typ=(CO,cham_gd),
11285 fr="Nom du champ qui contiendra le champ mis à jour",
11286 ang="Name of the field for the updated field"),
11288 # 5.5. LE TYPE DU CHAMP QUI CONTIENDRA LE RESULTAT DE LA MISE A JOUR
11290 TYPE_CHAM = SIMP(statut='o',typ='TXM',
11291 into=("CHAM_NO_TEMP_R","CHAM_NO_DEPL_R"),
11292 fr="Type du champ qui contiendra le champ mis à jour",
11293 ang="Type of the field for the updated field" ),
11296 # 6. INFORMATION SUR LE MAILLAGE : par defaut, on ne fait que les nombres
11297 # A. NOMBRE DE NOEUDS ET ELEMENTS DU MAILLAGE
11298 # B. QUALITE DES ELEMENTS DU MAILLAGE
11299 # C. CONTROLE DE LA NON INTERPENETRATION DES ELEMENTS DU MAILLAGE
11300 # D. CONNEXITE DU MAILLAGE
11301 # E. TAILLE DES DIFFERENTS SOUS-DOMAINES
11303 NOMBRE = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
11304 fr="Nombre de noeuds et éléments du maillage",
11305 ang="Number of nodes and elements in the mesh" ),
11307 QUALITE = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11308 fr="Qualité du maillage",
11309 ang="Mesh quality" ),
11311 INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11312 fr="Controle de la non interpénétration des éléments.",
11313 ang="Overlapping checking." ),
11315 CONNEXITE = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11316 fr="Connexité du maillage.",
11317 ang="Mesh connexity." ),
11319 TAILLE = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11320 fr="Tailles des sous-domaines du maillage.",
11321 ang="Sizes of mesh sub-domains." ),
11323 MENAGE = SIMP(statut='f',typ='TXM',into=("MAILLAGE","SOLUTION","TOUT") ),
11326 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
11327 # CONFIGURATION MANAGEMENT OF EDF VERSION
11328 # ======================================================================
11329 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11330 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11331 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11332 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11333 # (AT YOUR OPTION) ANY LATER VERSION.
11335 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11336 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11337 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11338 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11340 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11341 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11342 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11343 # ======================================================================
11344 # RESPONSABLE F1BHHAJ J.ANGLES
11345 def macr_ascouf_calc_prod(self,MODELE,CHAM_MATER,CARA_ELEM,FOND_FISS,CHARGE,RESU_THER,**args):
11346 self.type_sdprod(MODELE,modele)
11347 if CHAM_MATER != None:self.type_sdprod(CHAM_MATER,cham_mater)
11348 if CARA_ELEM != None:self.type_sdprod(CARA_ELEM,cara_elem)
11349 if FOND_FISS != None:self.type_sdprod(FOND_FISS,fond_fiss)
11350 if CHARGE != None:self.type_sdprod(CHARGE,char_meca)
11351 if RESU_THER != None:self.type_sdprod(RESU_THER,evol_ther)
11354 MACR_ASCOUF_CALC=MACRO(nom="MACR_ASCOUF_CALC",op= -20,sd_prod=macr_ascouf_calc_prod,
11356 docu="U4.CF.20-b1",reentrant='n',
11357 regles=(UN_PARMI('COMP_INCR','COMP_ELAS'),),
11359 TYPE_MAILLAGE =SIMP(statut='o',typ='TXM',
11365 CL_BOL_P2_GV =FACT(statut='f',min=1,max=1,
11366 ANGLE =SIMP(statut='o',typ='R' ),
11367 AZIMUT =SIMP(statut='f',typ='R',defaut= 90. ),
11370 MAILLAGE =SIMP(statut='o',typ=maillage ),
11371 MODELE =SIMP(statut='o',typ=(CO,modele)),
11372 CHAM_MATER =SIMP(statut='f',typ=(CO,cham_mater)),
11373 CARA_ELEM =SIMP(statut='f',typ=(CO,cara_elem)),
11374 FOND_FISS =SIMP(statut='f',typ=(CO,fond_fiss)),
11375 CHARGE =SIMP(statut='f',typ=(CO,char_meca)),
11376 RESU_THER =SIMP(statut='f',typ=(CO,evol_ther)),
11378 AFFE_MATERIAU =FACT(statut='o',min=1,max=3,
11379 regles=(UN_PARMI('TOUT','GROUP_MA'),),
11380 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11381 GROUP_MA =SIMP(statut='f',typ='TXM',into=("COUDE","BOL") ),
11382 MATER =SIMP(statut='o',typ=mater ),
11383 TEMP_REF =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11386 PRES_REP =FACT(statut='f',min=1,max=1,
11387 PRES =SIMP(statut='o',typ='R' ),
11388 EFFE_FOND_P1 =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11389 FONC_MULT =SIMP(statut='f',typ=fonction ),
11392 ECHANGE =FACT(statut='f',min=1,max=1,
11393 COEF_H =SIMP(statut='f',typ=fonction ),
11394 TEMP_EXT =SIMP(statut='f',typ=fonction ),
11397 TORS_P1 =FACT(statut='f',min=1,max=6,
11398 regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
11399 FX =SIMP(statut='f',typ='R' ),
11400 FY =SIMP(statut='f',typ='R' ),
11401 FZ =SIMP(statut='f',typ='R' ),
11402 MX =SIMP(statut='f',typ='R' ),
11403 MY =SIMP(statut='f',typ='R' ),
11404 MZ =SIMP(statut='f',typ='R' ),
11405 FONC_MULT =SIMP(statut='f',typ=fonction ),
11408 COMP_INCR =FACT(statut='f',min=1,max=1,
11409 RELATION =SIMP(statut='o',typ='TXM',into=("VMIS_ISOT_TRAC",) ),
11410 VMIS_ISOT_TRAC =SIMP(statut='c',typ='I',defaut= 2,into=( 2 ,) ),
11413 COMP_ELAS =FACT(statut='f',min=1,max=1,
11414 RELATION =SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC") ),
11415 ELAS =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
11416 ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
11419 SOLVEUR =FACT(statut='d',min=1,max=1,
11420 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
11421 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
11422 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
11424 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
11425 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11427 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
11428 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
11429 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
11430 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11432 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
11433 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
11434 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
11435 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
11436 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
11437 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
11440 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11441 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11444 CONVERGENCE =FACT(statut='d',min=1,max=1,
11445 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
11446 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
11447 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
11448 ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
11449 RESI_INTE_RELA =SIMP(statut='f',typ='R'
11451 ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
11452 ITER_INTE_PAS =SIMP(statut='f',typ='I',defaut= 0 ),
11453 TYPE_MATR_COMP =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
11454 RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
11457 NEWTON =FACT(statut='d',min=1,max=1,
11458 REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
11459 PREDICTION =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
11460 MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
11461 REAC_ITER =SIMP(statut='f',typ='I',defaut=0),
11462 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
11465 RECH_LINEAIRE =FACT(statut='f',min=1,max=1,
11466 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11467 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 3),
11470 INCREMENT =FACT(statut='o',min=1,max=1,
11471 regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
11472 EXCLUS('NUME_INST_FIN','INST_FIN'),),
11473 LIST_INST =SIMP(statut='o',typ=listr8),
11474 EVOLUTION =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
11475 into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
11476 NUME_INST_INIT =SIMP(statut='f',typ='I'),
11477 INST_INIT =SIMP(statut='f',typ='R'),
11478 NUME_INST_FIN =SIMP(statut='f',typ='I'),
11479 INST_FIN =SIMP(statut='f',typ='R'),
11480 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
11481 SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
11482 SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
11483 COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
11486 THETA_3D =FACT(statut='f',min=1,max='**',
11487 R_INF =SIMP(statut='o',typ='R' ),
11488 R_SUP =SIMP(statut='o',typ='R' ),
11491 IMPR_TABLE =FACT(statut='f',min=1,max=1,
11492 regles=(UN_PARMI('TOUT_PARA','NOM_PARA', ),
11493 PRESENT_PRESENT('TOUT_PARA','ANGLE', ),
11494 PRESENT_PRESENT('TOUT_PARA','R_CINTR', ),
11495 UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL',),),
11496 NOM_PARA =SIMP(statut='f',typ='TXM',max=4,
11497 into=("TRESCA_MEMBRANE",
11504 TOUT_PARA =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11505 ANGLE =SIMP(statut='f',typ='R',max='**' ),
11506 R_CINTR =SIMP(statut='f',typ='R',max='**' ),
11507 POSI_CURV_LONGI =SIMP(statut='f',typ='R',max='**' ),
11508 POSI_ANGUL =SIMP(statut='f',typ='R',max='**' ),
11509 TRANSFORMEE =SIMP(statut='f',typ='TXM',defaut="COUDE",into=("COUDE","TUBE") ),
11512 IMPRESSION =FACT(statut='f',min=1,max=1,
11513 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
11514 into=("RESULTAT","ASTER","IDEAS","CASTEM") ),
11516 b_format_ideas =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
11517 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
11520 b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
11521 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
11526 TITRE =SIMP(statut='f',typ='TXM' ),
11528 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11530 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
11531 # CONFIGURATION MANAGEMENT OF EDF VERSION
11532 # ======================================================================
11533 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11534 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11535 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11536 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11537 # (AT YOUR OPTION) ANY LATER VERSION.
11539 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11540 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11541 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11542 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11544 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11545 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11546 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11547 # ======================================================================
11548 # RESPONSABLE F1BHHAJ J.ANGLES
11549 MACR_ASCOUF_MAIL=MACRO(nom="MACR_ASCOUF_MAIL",op= -19,sd_prod=maillage,
11550 fr=" ",docu="U4.CF.10-b1",reentrant='n',
11552 regles=(EXCLUS('SOUS_EPAIS_COUDE','FISS_COUDE','SOUS_EPAIS_MULTI'),),
11554 EXEC_MAILLAGE =FACT(statut='o',min=1,max=1,
11555 LOGICIEL =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000") ),
11556 UNITE_DATG =SIMP(statut='f',typ='I',defaut=70),
11557 UNITE_MGIB =SIMP(statut='f',typ='I',defaut=19),
11558 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10,11)),
11561 TYPE_ELEM =SIMP(statut='f',typ='TXM',defaut="CU20",into=("CU20","CUB8") ),
11563 COUDE =FACT(statut='o',min=1,max=1,
11564 ANGLE =SIMP(statut='o',typ='R' ),
11565 R_CINTR =SIMP(statut='o',typ='R' ),
11566 L_TUBE_P1 =SIMP(statut='o',typ='R' ),
11567 L_TUBE_P2 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11568 NB_ELEM_EPAIS =SIMP(statut='f',typ='I',defaut= 3 ),
11569 SYME =SIMP(statut='f',typ='TXM',defaut="ENTIER",into=("ENTIER","QUART","DEMI") ),
11570 TRANSFORMEE =SIMP(statut='o',typ='TXM',defaut="COUDE",into=("COUDE","TUBE") ),
11571 b_transf_coude =BLOC(condition = "TRANSFORMEE == 'COUDE' ",
11572 DEXT =SIMP(statut='o',typ='R' ),
11573 EPAIS =SIMP(statut='o',typ='R' ),
11574 SUR_EPAIS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11575 BOL_P2 =SIMP(statut='f',typ='TXM',into=("ASP_MPP","CUVE","GV") ),
11577 b_transf_tube =BLOC(condition = "TRANSFORMEE == 'TUBE' ",
11578 TRAN_EPAIS =SIMP(statut='o',typ='TXM',defaut="NON",into=("OUI","NON") ),
11579 b_trans_epais_oui =BLOC(condition = "TRAN_EPAIS == 'OUI' ",
11580 regles=(ENSEMBLE('ANGL_TETA2','EPAIS_TI'),
11581 UN_PARMI('ABSC_CURV_TRAN','POSI_ANGU_TRAN'),),
11582 DEXT_T1 =SIMP(statut='o',typ='R' ),
11583 EPAIS_T1 =SIMP(statut='o',typ='R' ),
11584 EPAIS_T2 =SIMP(statut='o',typ='R' ),
11585 EPAIS_TI =SIMP(statut='f',typ='R' ),
11586 ANGL_TETA1 =SIMP(statut='o',typ='R' ),
11587 ANGL_TETA2 =SIMP(statut='f',typ='R' ),
11588 ABSC_CURV_TRAN =SIMP(statut='f',typ='R' ),
11589 POSI_ANGU_TRAN =SIMP(statut='f',typ='R' ),
11591 b_trans_epais_non =BLOC(condition = "TRAN_EPAIS == 'NON' ",
11592 DEXT =SIMP(statut='o',typ='R' ),
11593 EPAIS =SIMP(statut='o',typ='R' ),
11594 SUR_EPAIS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11595 BOL_P2 =SIMP(statut='f',typ='TXM',into=("ASP_MPP","CUVE","GV") ),
11600 SOUS_EPAIS_COUDE=FACT(statut='f',min=1,max=1,
11601 regles=(UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL'),
11602 UN_PARMI('POSI_CURV_CIRC','AZIMUT'),),
11603 TYPE =SIMP(statut='o',typ='TXM',into=("AXIS","ELLI") ),
11604 AXE_CIRC =SIMP(statut='f',typ='R' ),
11605 AXE_LONGI =SIMP(statut='o',typ='R' ),
11606 PROFONDEUR =SIMP(statut='o',typ='R' ),
11607 POSI_CURV_LONGI =SIMP(statut='f',typ='R' ),
11608 POSI_ANGUL =SIMP(statut='f',typ='R' ),
11609 POSI_CURV_CIRC =SIMP(statut='f',typ='R' ),
11610 AZIMUT =SIMP(statut='f',typ='R' ),
11611 SOUS_EPAIS =SIMP(statut='o',typ='TXM',into=("INTERNE","EXTERNE") ),
11612 NB_ELEM_LONGI =SIMP(statut='o',typ='I' ),
11613 NB_ELEM_CIRC =SIMP(statut='o',typ='I' ),
11614 NB_ELEM_RADI =SIMP(statut='f',typ='I',defaut= 3 ),
11615 EMPREINTE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11618 SOUS_EPAIS_MULTI=FACT(statut='f',min=1,max='**',
11619 regles=(UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL'),
11620 UN_PARMI('POSI_CURV_CIRC','AZIMUT'),),
11621 TYPE =SIMP(statut='o',typ='TXM',into=("AXIS","ELLI") ),
11622 AXE_CIRC =SIMP(statut='f',typ='R' ),
11623 AXE_LONGI =SIMP(statut='o',typ='R' ),
11624 PROFONDEUR =SIMP(statut='o',typ='R' ),
11625 POSI_CURV_LONGI =SIMP(statut='f',typ='R' ),
11626 POSI_ANGUL =SIMP(statut='f',typ='R' ),
11627 POSI_CURV_CIRC =SIMP(statut='f',typ='R' ),
11628 AZIMUT =SIMP(statut='f',typ='R' ),
11629 SOUS_EPAIS =SIMP(statut='o',typ='TXM',into=("INTERNE","EXTERNE") ),
11630 NB_ELEM_LONGI =SIMP(statut='o',typ='I' ),
11631 NB_ELEM_CIRC =SIMP(statut='o',typ='I' ),
11632 EMPREINTE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11635 FISS_COUDE =FACT(statut='f',min=1,max=1,
11636 regles=(UN_PARMI('ABSC_CURV','POSI_ANGUL'),),
11637 AXIS =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON" ),
11638 b_axis_non =BLOC(condition = "AXIS == 'NON' ",
11639 LONGUEUR =SIMP(statut='o',typ='R' ),
11641 b_axis_oui =BLOC(condition = "AXIS == 'OUI' ",
11642 LONGUEUR =SIMP(statut='f',typ='R' ),
11644 PROFONDEUR =SIMP(statut='o',typ='R' ),
11645 ABSC_CURV =SIMP(statut='f',typ='R' ),
11646 POSI_ANGUL =SIMP(statut='f',typ='R' ),
11647 FISSURE =SIMP(statut='o',typ='TXM',into=("DEB_INT","DEB_EXT") ),
11648 AZIMUT =SIMP(statut='f',typ='R',defaut= 90. ),
11649 ORIEN =SIMP(statut='o',typ='R',
11650 into=(45.,-45.,90.,0.E+0) ),
11651 NB_TRANCHE =SIMP(statut='o',typ='I' ),
11652 NB_SECTEUR =SIMP(statut='o',typ='I' ),
11653 NB_COURONNE =SIMP(statut='o',typ='I' ),
11654 RAYON_TORE =SIMP(statut='f',typ='R' ),
11655 COEF_MULT_RC2 =SIMP(statut='f',typ='R',defaut= 1. ),
11656 COEF_MULT_RC3 =SIMP(statut='f',typ='R' ),
11657 ANGL_OUVERTURE =SIMP(statut='f',typ='R',defaut= 0.5 ),
11660 IMPRESSION =FACT(statut='f',min=1,max='**',
11661 regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
11662 FORMAT =SIMP(statut='f',typ='TXM',defaut="ASTER",
11663 into=("ASTER","IDEAS","CASTEM") ),
11664 b_format_ideas =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
11665 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
11667 b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
11668 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
11670 FICHIER =SIMP(statut='f',typ='TXM' ),
11671 UNITE =SIMP(statut='f',typ='I' ),
11674 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11676 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
11677 # CONFIGURATION MANAGEMENT OF EDF VERSION
11678 # ======================================================================
11679 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11680 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11681 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11682 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11683 # (AT YOUR OPTION) ANY LATER VERSION.
11685 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11686 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11687 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11688 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11690 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11691 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11692 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11693 # ======================================================================
11694 # RESPONSABLE F1BHHAJ J.ANGLES
11695 def macr_aspic_calc_prod(self,MODELE,CHAM_MATER,CARA_ELEM,FOND_FISS_1,FOND_FISS_2,CHARGE,RESU_THER,**args):
11696 if MODELE != None:self.type_sdprod(MODELE,modele)
11697 if CHAM_MATER != None:self.type_sdprod(CHAM_MATER,cham_mater)
11698 if CARA_ELEM != None:self.type_sdprod(CARA_ELEM,cara_elem)
11699 if FOND_FISS_1 != None:self.type_sdprod(FOND_FISS_1,fond_fiss)
11700 if FOND_FISS_2 != None:self.type_sdprod(FOND_FISS_2,fond_fiss)
11701 if CHARGE != None:self.type_sdprod(CHARGE,char_meca)
11702 if RESU_THER != None:self.type_sdprod(RESU_THER,evol_ther)
11705 MACR_ASPIC_CALC=MACRO(nom="MACR_ASPIC_CALC",op=-17,sd_prod=macr_aspic_calc_prod,
11706 fr=" ",docu="U4.PC.20-b2",reentrant='n',
11707 regles=(UN_PARMI('COMP_INCR','COMP_ELAS'),),
11709 TYPE_MAILLAGE =SIMP(statut='o',typ='TXM',
11710 into=("SAIN_FIN","SAIN_GROS","FISS_COUR_DEB","FISS_COUR_NONDEB","FISS_LONG_DEB",
11711 "FISS_LONG_NONDEB","FISS_AXIS_DEB","FISS_AXIS_NONDEB") ),
11713 TUBULURE =FACT(statut='o',min=1,max=1,
11714 TYPE =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2") ),
11716 MAILLAGE =SIMP(statut='o',typ=maillage),
11717 MODELE =SIMP(statut='f',typ=(CO,modele)),
11718 CHAM_MATER =SIMP(statut='f',typ=(CO,cham_mater)),
11719 CARA_ELEM =SIMP(statut='f',typ=(CO,cara_elem)),
11720 FOND_FISS_1 =SIMP(statut='f',typ=(CO,fond_fiss)),
11721 FOND_FISS_2 =SIMP(statut='f',typ=(CO,fond_fiss)),
11722 CHARGE =SIMP(statut='f',typ=(CO,char_meca)),
11723 RESU_THER =SIMP(statut='f',typ=(CO,evol_ther)),
11725 AFFE_MATERIAU =FACT(statut='o',min=1,max=3,
11726 regles=(UN_PARMI('TOUT','GROUP_MA'),),
11727 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
11728 GROUP_MA =SIMP(statut='f',typ='TXM',into=("TUBU","CORP","SOUD","SOUDCORP","SOUDTUBU") ),
11729 MATER =SIMP(statut='o',typ=mater),
11730 TEMP_REF =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11731 RCCM =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
11734 EQUILIBRE =FACT(statut='o',min=1,max=1,
11735 NOEUD =SIMP(statut='o',typ=no),
11738 PRES_REP =FACT(statut='o',min=1,max=1,
11739 PRES =SIMP(statut='o',typ='R'),
11740 NOEUD =SIMP(statut='f',typ=no),
11741 EFFE_FOND =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
11742 FONC_MULT =SIMP(statut='f',typ=fonction),
11745 ECHANGE =FACT(statut='f',min=1,max=1,
11746 COEF_H_TUBU =SIMP(statut='o',typ=fonction),
11747 COEF_H_CORP =SIMP(statut='o',typ=fonction),
11748 TEMP_EXT =SIMP(statut='o',typ=fonction),
11751 TORS_CORP =FACT(statut='f',min=1,max=6,
11752 regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
11753 NOEUD =SIMP(statut='o',typ=no),
11754 FX =SIMP(statut='f',typ='R'),
11755 FY =SIMP(statut='f',typ='R'),
11756 FZ =SIMP(statut='f',typ='R'),
11757 MX =SIMP(statut='f',typ='R'),
11758 MY =SIMP(statut='f',typ='R'),
11759 MZ =SIMP(statut='f',typ='R'),
11760 FONC_MULT =SIMP(statut='f',typ=fonction),
11763 TORS_TUBU =FACT(statut='f',min=1,max=6,
11764 regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
11765 FX =SIMP(statut='f',typ='R'),
11766 FY =SIMP(statut='f',typ='R'),
11767 FZ =SIMP(statut='f',typ='R'),
11768 MX =SIMP(statut='f',typ='R'),
11769 MY =SIMP(statut='f',typ='R'),
11770 MZ =SIMP(statut='f',typ='R'),
11771 FONC_MULT =SIMP(statut='f',typ=fonction),
11774 COMP_INCR =FACT(statut='f',min=1,max=1,
11775 RELATION =SIMP(statut='o',typ='TXM',into=("VMIS_ISOT_TRAC",) ),
11776 VMIS_ISOT_TRAC =SIMP(statut='c',typ='I',defaut= 2,into=( 2 ,) ),
11779 COMP_ELAS =FACT(statut='f',min=1,max=1,
11780 RELATION =SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC") ),
11781 ELAS =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
11782 ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
11785 THETA_3D =FACT(statut='f',min=1,max='**',
11786 R_INF =SIMP(statut='o',typ='R'),
11787 R_SUP =SIMP(statut='o',typ='R'),
11790 OPTION =SIMP(statut='f',typ='TXM',into=("CALC_G_MAX","CALC_G_MAX_LOCAL") ),
11791 BORNES =FACT(statut='f',min=1,max='**',
11792 NUME_ORDRE =SIMP(statut='o',typ='I'),
11793 VALE_MIN =SIMP(statut='o',typ='R'),
11794 VALE_MAX =SIMP(statut='o',typ='R'),
11797 SOLVEUR =FACT(statut='d',min=1,max=1,
11798 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
11799 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
11800 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
11802 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
11803 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11805 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
11806 fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
11807 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
11808 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11810 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
11811 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
11812 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
11813 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
11814 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
11815 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
11818 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11819 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11822 CONVERGENCE =FACT(statut='d',min=1,max=1,
11823 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
11824 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
11825 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
11826 ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
11827 RESI_INTE_RELA =SIMP(statut='f',typ='R',defaut=1.0E-6),
11828 ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut=10),
11829 ITER_INTE_PAS =SIMP(statut='f',typ='I',defaut=0),
11830 TYPE_MATR_COMP =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
11831 RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
11834 NEWTON =FACT(statut='d',min=1,max=1,
11835 REAC_INCR =SIMP(statut='f',typ='I',defaut=1),
11836 PREDICTION =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE","EXTRAPOL","DEPL_CALCULE")),
11837 MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE")),
11838 REAC_ITER =SIMP(statut='f',typ='I',defaut= 0),
11841 RECH_LINEAIRE =FACT(statut='d',min=1,max=1,
11842 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut=1.0E-3),
11843 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut=3),
11846 INCREMENT =FACT(statut='o',min=1,max=1,
11847 regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
11848 EXCLUS('NUME_INST_FIN','INST_FIN'),),
11849 LIST_INST =SIMP(statut='o',typ=listr8),
11850 EVOLUTION =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
11851 into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
11852 NUME_INST_INIT =SIMP(statut='f',typ='I'),
11853 INST_INIT =SIMP(statut='f',typ='R'),
11854 NUME_INST_FIN =SIMP(statut='f',typ='I'),
11855 INST_FIN =SIMP(statut='f',typ='R'),
11856 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
11857 SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
11858 SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
11859 COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
11862 PAS_AZIMUT =SIMP(statut='f',typ='I',defaut=1),
11864 IMPRESSION =FACT(statut='f',min=1,max=1,
11865 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
11866 into=("RESULTAT","ASTER","CASTEM","IDEAS")),
11868 b_format_ideas =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
11869 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
11872 b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
11873 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
11876 b_extrac =BLOC(condition="((FORMAT=='IDEAS')or(FORMAT=='CASTEM'))",
11877 fr="extraction d un champ de grandeur",
11878 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST'),),
11879 NOM_CHAM =SIMP(statut='f',typ='TXM',max=3,
11880 into=("DEPL","EQUI_ELNO_SIGM","TEMP")),
11882 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11883 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
11884 INST =SIMP(statut='f',typ='R',max='**'),
11888 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
11890 TITRE =SIMP(statut='f',typ='TXM'),
11893 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
11894 # CONFIGURATION MANAGEMENT OF EDF VERSION
11895 # ======================================================================
11896 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11897 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11898 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11899 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11900 # (AT YOUR OPTION) ANY LATER VERSION.
11902 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11903 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11904 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11905 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11907 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11908 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11909 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11910 # ======================================================================
11911 # RESPONSABLE F1BHHAJ J.ANGLES
11912 MACR_ASPIC_MAIL=MACRO(nom="MACR_ASPIC_MAIL",op= -16,sd_prod=maillage,reentrant='n',
11913 fr=" ",docu="U4.PC.10-b1",
11915 EXEC_MAILLAGE =FACT(statut='o',min=1,max=1,
11916 LOGICIEL =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000")),
11917 UNITE_DATG =SIMP(statut='f',typ='I',defaut=70),
11918 UNITE_MGIB =SIMP(statut='f',typ='I',defaut=19),
11919 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10,11)),
11922 TYPE_ELEM =SIMP(statut='f',typ='TXM',defaut="CU20",into=("CU20","CUB8")),
11924 RAFF_MAIL =SIMP(statut='f',typ='TXM',defaut="GROS",into=("GROS","FIN")),
11926 TUBULURE =FACT(statut='o',min=1,max=1,
11927 E_BASE =SIMP(statut='o',typ='R'),
11928 DEXT_BASE =SIMP(statut='o',typ='R'),
11929 L_BASE =SIMP(statut='o',typ='R'),
11930 L_CHANF =SIMP(statut='o',typ='R'),
11931 E_TUBU =SIMP(statut='o',typ='R'),
11932 DEXT_TUBU =SIMP(statut='o',typ='R'),
11933 Z_MAX =SIMP(statut='o',typ='R'),
11934 TYPE =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2")),
11935 L_PENETR =SIMP(statut='f',typ='R',defaut= 0.0E+0),
11938 SOUDURE =FACT(statut='o',min=1,max=1,
11939 H_SOUD =SIMP(statut='o',typ='R'),
11940 ANGL_SOUD =SIMP(statut='o',typ='R'),
11941 JEU_SOUD =SIMP(statut='o',typ='R'),
11944 CORPS =FACT(statut='o',min=1,max=1,
11945 E_CORP =SIMP(statut='o',typ='R'),
11946 DEXT_CORP =SIMP(statut='o',typ='R'),
11947 X_MAX =SIMP(statut='o',typ='R'),
11950 FISS_SOUDURE =FACT(statut='f',min=1,max=1,
11951 TYPE =SIMP(statut='o',typ='TXM',into=("LONGUE","COURTE")),
11952 AXIS =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
11953 PROFONDEUR =SIMP(statut='o',typ='R'),
11954 LONGUEUR =SIMP(statut='f',typ='R'),
11955 AZIMUT =SIMP(statut='o',typ='R'),
11956 RAYON_TORE =SIMP(statut='f',typ='R'),
11957 POSITION =SIMP(statut='o',typ='TXM',into=("DROIT","INCLINE")),
11958 FISSURE =SIMP(statut='o',typ='TXM',into=("DEB_INT","DEB_EXT","NON_DEB","TRAVERS")),
11959 LIGA_INT =SIMP(statut='f',typ='R'),
11960 ANGL_OUVERTURE =SIMP(statut='f',typ='R',defaut= 0.0E+0),
11961 COEF_MULT_RC1 =SIMP(statut='f',typ='R'),
11962 COEF_MULT_RC2 =SIMP(statut='f',typ='R'),
11963 COEF_MULT_RC3 =SIMP(statut='f',typ='R'),
11964 NB_TRANCHE =SIMP(statut='f',typ='I'),
11965 NB_SECTEUR =SIMP(statut='f',typ='I'),
11966 NB_COURONNE =SIMP(statut='f',typ='I'),
11969 IMPRESSION =FACT(statut='f',min=1,max='**',
11970 regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
11971 FORMAT =SIMP(statut='f',typ='TXM',defaut="ASTER",into=("ASTER","IDEAS","CASTEM")),
11973 b_format_ideas =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
11974 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
11977 b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
11978 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
11980 FICHIER =SIMP(statut='f',typ='TXM'),
11981 UNITE =SIMP(statut='f',typ='I'),
11984 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
11986 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
11987 # CONFIGURATION MANAGEMENT OF EDF VERSION
11988 # ======================================================================
11989 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11990 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11991 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11992 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11993 # (AT YOUR OPTION) ANY LATER VERSION.
11995 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11996 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11997 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11998 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12000 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12001 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12002 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12003 # ======================================================================
12004 MACR_ELEM_DYNA=OPER(nom="MACR_ELEM_DYNA",op= 81,sd_prod=macr_elem_dyna,
12005 fr="Définition d un macro élément pour analyse modale ou harmonique par sous structuration dynamique",
12006 docu="U4.65.01-e1",reentrant='n',
12007 regles=(EXCLUS('MATR_AMOR','AMOR_REDUIT' ),),
12008 BASE_MODALE =SIMP(statut='o',typ=base_modale ),
12009 MATR_RIGI =SIMP(statut='f',typ=matr_asse_depl_r ),
12010 MATR_MASS =SIMP(statut='f',typ=matr_asse_depl_r ),
12011 MATR_AMOR =SIMP(statut='f',typ=matr_asse_depl_r ),
12012 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
12013 OPTION =SIMP(statut='f',typ='TXM',defaut="CLASSIQUE",into=("CLASSIQUE","RITZ",
12016 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
12017 # CONFIGURATION MANAGEMENT OF EDF VERSION
12018 # ======================================================================
12019 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12020 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12021 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12022 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12023 # (AT YOUR OPTION) ANY LATER VERSION.
12025 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12026 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12027 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12028 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12030 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12031 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12032 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12033 # ======================================================================
12034 MACR_ELEM_STAT=OPER(nom="MACR_ELEM_STAT",op=86,sd_prod=macr_elem_stat,docu="U4.62.01-f1",reentrant='f',
12035 fr="Définition d un macro-élément pour l analyse statique par sous structuration",
12036 regles=(AU_MOINS_UN('DEFINITION','RIGI_MECA','MASS_MECA','CAS_CHARGE'),
12037 ENSEMBLE('DEFINITION','EXTERIEUR'),),
12038 DEFINITION =FACT(statut='f',min=1,max=1,
12039 MODELE =SIMP(statut='o',typ=modele),
12040 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
12041 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
12042 CHAR_MACR_ELEM =SIMP(statut='f',typ=char_meca),
12043 INST =SIMP(statut='f',typ='R',defaut=0.0E+0 ),
12044 NMAX_CAS =SIMP(statut='f',typ='I',defaut=10),
12045 NMAX_CHAR =SIMP(statut='f',typ='I',defaut=10),
12047 EXTERIEUR =FACT(statut='f',min=1,max=1,
12048 regles=(AU_MOINS_UN('NOEUD','GROUP_NO'),),
12049 NOEUD =SIMP(statut='f',typ=no,max='**'),
12050 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
12052 RIGI_MECA =FACT(statut='f',min=1,max=1,
12054 MASS_MECA =FACT(statut='f',min=1,max=1,
12055 BIDO1 =SIMP(statut='f',typ='I',defaut=0),
12057 CAS_CHARGE =FACT(statut='f',min=1,max='**',
12058 NOM_CAS =SIMP(statut='o',typ='TXM'),
12059 SUIV =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
12060 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
12061 INST =SIMP(statut='f',typ='R',defaut=0.E+0),
12064 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
12065 # CONFIGURATION MANAGEMENT OF EDF VERSION
12066 # ======================================================================
12067 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12068 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12069 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12070 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12071 # (AT YOUR OPTION) ANY LATER VERSION.
12073 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12074 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12075 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12076 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12078 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12079 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12080 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12081 # ======================================================================
12082 MACR_GOUJ2E_CALC=MACRO(nom="MACR_GOUJ2E_CALC",op=-23,sd_prod=evol_noli,
12083 fr=" ",docu="U4.GJ.20-a",reentrant='n',
12084 MAILLAGE =SIMP(statut='o',typ=maillage),
12085 DEFI_GOUJ =FACT(statut='o',min=01,max=01,
12086 TYPE =SIMP(statut='o',typ='TXM',into=("M33","M64","M90","M115","M155","M180","M186")),
12087 VARIANTE =SIMP(statut='o',typ='TXM',into=("A","B","C","D","E","F","G","H","I","J","K","L","M",
12088 "N","O","P","Q","R","S","T","U","V","W","X","Y","Z")),
12089 FILET_TRONQUE =SIMP(statut='f',typ='I',max='**'),
12090 FILET_TRONQA =SIMP(statut='f',typ='I',max='**'),
12091 FILET_TRONQB =SIMP(statut='f',typ='I',max='**'),
12092 FILET_JEU_HT =SIMP(statut='f',typ='I',max='**'),
12093 FILET_JEU_HTA =SIMP(statut='f',typ='I',max='**'),
12094 FILET_JEU_HTB =SIMP(statut='f',typ='I',max='**'),
12096 EXCIT =FACT(statut='o',min=01,max=01,
12097 TYPE_BLOCAGE =SIMP(statut='o',typ='I',defaut=2,into=(1,2,3)),
12098 FORCE_GOUJ =SIMP(statut='o',typ='R'),
12100 CALCUL =FACT(statut='o',min=01,max=01,
12101 TYPE_CALCUL =SIMP(statut='o',typ='TXM',into=("ELASTIQUE","ELASTOPLASTIQUE")),
12102 NB_INCR =SIMP(statut='o',typ='I'),
12104 IMPRESSION =FACT(statut='f',min=01,max=01,
12105 FORMAT =SIMP(statut='f',typ='TXM',defaut="TABLE",
12106 into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED","TABLE")),
12107 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12109 TITRE =SIMP(statut='f',typ='TXM'),
12110 INFO =SIMP(statut='f',typ='I',defaut=1 ,into=(1,2)),
12112 #& MODIF COMMANDE DATE 03/10/2001 AUTEUR DURAND C.DURAND
12113 # CONFIGURATION MANAGEMENT OF EDF VERSION
12114 # ======================================================================
12115 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12116 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12117 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12118 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12119 # (AT YOUR OPTION) ANY LATER VERSION.
12121 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12122 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12123 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12124 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12126 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12127 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12128 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12129 # ======================================================================
12130 MACR_GOUJ2E_MAIL=MACRO(nom="MACR_GOUJ2E_MAIL",op= -22,sd_prod=maillage,
12131 fr=" ",docu="U4.GJ.10-a",reentrant='n',
12132 EXEC_MAILLAGE =FACT(statut='o',min=1,max=1,
12133 LOGICIEL =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000") ),
12134 UNITE_DATG =SIMP(statut='f',typ='I',defaut=70),
12135 UNITE_MGIB =SIMP(statut='f',typ='I',defaut=19),
12136 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10)),
12138 DEFI_GOUJ =FACT(statut='o',min=1,max=1,
12139 TYPE =SIMP(statut='o',typ='TXM',into=("M33","M64","M90","M115","M155","M180","M186")),
12140 VARIANTE =SIMP(statut='o',typ='TXM',into=("A","B","C","D","E","F","G","H","I","J","K","L","M",
12141 "N","O","P","Q","R","S","T","U","V","W","X","Y","Z")),
12143 GEOM_GOUJ_BRID =FACT(statut='o',min=1,max=1,
12144 NB_FILET =SIMP(statut='o',typ='I'),
12145 H_CORP_BRID =SIMP(statut='o',typ='R'),
12146 R_EXT_BRID =SIMP(statut='o',typ='R'),
12147 H_HAUT_BRID =SIMP(statut='f',typ='R',defaut=0.0E+0),
12148 H_BAS_BRID =SIMP(statut='f',typ='R',defaut= 0.0E+0),
12149 FILET_ABST =SIMP(statut='f',typ='I',max='**'),
12151 IMPRESSION =FACT(statut='f',min=1,max=1,
12152 regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
12153 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
12154 into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED")),
12155 FICHIER =SIMP(statut='f',typ='TXM'),
12156 UNITE =SIMP(statut='f',typ='I'),
12157 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12158 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
12160 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12162 #& MODIF COMMANDE DATE 16/07/2002 AUTEUR GNICOLAS G.NICOLAS
12163 # CONFIGURATION MANAGEMENT OF EDF VERSION
12164 # ======================================================================
12165 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12166 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12167 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12168 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12169 # (AT YOUR OPTION) ANY LATER VERSION.
12171 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12172 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12173 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12174 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12176 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12177 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12178 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12179 # ======================================================================
12180 # RESPONSABLE GNICOLAS G.NICOLAS
12181 MACR_INFO_MAIL=MACRO(nom="MACR_INFO_MAIL",op=-24,docu="U7.03.02-b2",
12182 fr="Donner des informations sur un maillage.",
12183 ang="To give information about a mesh.",
12185 # 1. Le niveau d'information
12187 INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12189 # 2. Version de HOMARD
12191 VERSION_HOMARD = SIMP(statut='f',typ='TXM',defaut="V5_3",
12192 into=("V5_3", "V5_N","V5_N_PERSO"),
12193 fr="Version de HOMARD",
12194 ang="HOMARD release"),
12196 # 3. Langue des messages issus de HOMARD
12198 LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
12199 into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
12200 fr="Langue des messages issus de HOMARD.",
12201 ang="Language for HOMARD messages." ),
12203 # 4. Le nom du maillage a analyser
12205 MAILLAGE = SIMP(statut='o',typ=maillage,
12206 fr="Maillage à analyser.",
12207 ang="Mesh to be checked." ),
12209 # 5. Les options ; par defaut, on ne fait que les nombres
12210 # 5.1. Nombre de noeuds et elements
12212 NOMBRE = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
12213 fr="Nombre de noeuds et éléments du maillage",
12214 ang="Number of nodes and elements in the mesh" ),
12216 # 5.2. Determination de la qualite des elements du maillage
12218 QUALITE = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12219 fr="Qualité du maillage",
12220 ang="Mesh quality" ),
12222 # 5.3. Connexite du maillage
12224 CONNEXITE = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12225 fr="Connexité du maillage.",
12226 ang="Mesh connexity." ),
12228 # 5.4. Taille des sous-domaines du maillage
12230 TAILLE = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12231 fr="Tailles des sous-domaines du maillage.",
12232 ang="Sizes of mesh sub-domains." ),
12234 # 5.5. Controle de la non-interpenetration des elements
12236 INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12237 fr="Controle de la non interpénétration des éléments.",
12238 ang="Overlapping checking." ),
12241 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR DURAND C.DURAND
12242 # CONFIGURATION MANAGEMENT OF EDF VERSION
12243 # ======================================================================
12244 # COPYRIGHT (C) 1991 - 2002 EDF R&D WWW.CODE-ASTER.ORG
12245 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12246 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12247 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12248 # (AT YOUR OPTION) ANY LATER VERSION.
12250 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12251 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12252 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12253 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12255 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12256 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12257 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12258 # ======================================================================
12260 from Macro.macr_lign_coupe_ops import macr_lign_coupe_ops
12262 def macr_lign_coupe_prod(self,LIGN_COUPE,**args):
12263 if not LIGN_COUPE: raise AsException("Impossible de typer les concepts resultats")
12264 for m in LIGN_COUPE:
12265 self.type_sdprod(m['TABLE'],table)
12269 MACR_LIGN_COUPE=MACRO(nom="MACR_LIGN_COUPE",op=macr_lign_coupe_ops,sd_prod=macr_lign_coupe_prod,
12270 docu="",reentrant='n',
12271 fr="extraction d un résultat sur des lignes de coupes définies par 2 points et un intervalle",
12272 RESULTAT =SIMP(statut='o',typ=(evol_elas,evol_noli,evol_ther) ),
12273 b_meca =BLOC(condition = "AsType(RESULTAT) in (evol_elas,evol_noli)",fr="résultat mécanique",
12274 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut='SIGM_NOEU_DEPL' ),
12276 b_ther =BLOC(condition = "AsType(RESULTAT) in (evol_ther,)",fr="résultat thermique",
12277 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut='TEMP' ),
12279 MODELE =SIMP(statut='o',typ=modele ),
12280 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=25),
12281 LIGN_COUPE =FACT(statut='o',min=1,max='**',
12282 NB_POINTS =SIMP(statut='o',typ='I'),
12283 COOR_ORIG =SIMP(statut='o',typ='R',min=2,max=3),
12284 COOR_EXTR =SIMP(statut='o',typ='R',min=2,max=3),
12285 TABLE =SIMP(statut='o',typ=(table,CO)),
12288 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
12289 # CONFIGURATION MANAGEMENT OF EDF VERSION
12290 # ======================================================================
12291 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12292 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12293 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12294 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12295 # (AT YOUR OPTION) ANY LATER VERSION.
12297 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12298 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12299 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12300 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12302 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12303 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12304 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12305 # ======================================================================
12306 # RESPONSABLE JMBHH01 J.M.PROIX
12308 from Macro.macro_cara_poutre_ops import macro_cara_poutre_ops
12310 MACRO_CARA_POUTRE=MACRO(nom="MACRO_CARA_POUTRE",op=macro_cara_poutre_ops,sd_prod=tabl_cara_geom,
12311 docu="U4.42.02-d1",reentrant='n',
12312 fr="caractéristiques d'une section transversale de poutre à partir d'un maillage 2D",
12313 regles=(EXCLUS('SYME_X','GROUP_MA_BORD'),
12314 EXCLUS('SYME_Y','GROUP_MA_BORD'),
12315 ENSEMBLE('LONGUEUR','LIAISON','MATERIAU') ,),
12316 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut= 20 ),
12317 SYME_X =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
12318 SYME_Y =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
12319 GROUP_MA_BORD =SIMP(statut='f',typ=grma,max='**'),
12320 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
12321 ORIG_INER =SIMP(statut='f',typ='R',max='**',defaut=(0.E+0,0.E+0)),
12322 NOEUD =SIMP(statut='f',typ=no,max='**'),
12323 GROUP_MA_INTE =SIMP(statut='f',typ=grma,max='**'),
12324 LONGUEUR =SIMP(statut='f',typ='R'),
12325 MATERIAU =SIMP(statut='f',typ=mater),
12326 LIAISON =SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT")),
12327 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12329 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
12330 # CONFIGURATION MANAGEMENT OF EDF VERSION
12331 # ======================================================================
12332 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12333 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12334 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12335 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12336 # (AT YOUR OPTION) ANY LATER VERSION.
12338 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12339 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12340 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12341 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12343 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12344 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12345 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12346 # ======================================================================
12347 MACRO_CHAR_F_U=MACRO(nom="MACRO_CHAR_F_U",op=-15,sd_prod=char_meca,
12348 fr=" ",docu="U4.72.07-a",reentrant='n',
12349 MODELE =SIMP(statut='o',typ=modele),
12350 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
12351 CHARGE =SIMP(statut='o',typ=char_meca),
12352 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
12353 COEF_IMPO =SIMP(statut='f',typ='R',defaut=1.0E+0),
12354 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="APRES",into=("NORMAL","APRES")),
12355 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12357 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
12358 # CONFIGURATION MANAGEMENT OF EDF VERSION
12359 # ======================================================================
12360 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12361 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12362 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12363 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12364 # (AT YOUR OPTION) ANY LATER VERSION.
12366 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12367 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12368 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12369 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12371 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12372 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12373 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12374 # ======================================================================
12375 # RESPONSABLE G8BHHXD X.DESROCHES
12377 from Macro.macro_elas_mult_ops import macro_elas_mult_ops
12379 def macro_elas_mult_prod(self,NUME_DDL,CAS_CHARGE,**args ):
12380 self.type_sdprod(NUME_DDL,nume_ddl)
12381 if CAS_CHARGE[0]['NOM_CAS'] != None : return mult_elas
12382 if CAS_CHARGE[0]['MODE_FOURIER'] != None : return fourier_elas
12383 raise AsException("type de concept resultat non prevu")
12385 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',
12386 regles=(UN_PARMI('CHAR_MECA_GLOBAL','CHAR_CINE_GLOBAL','LIAISON_DISCRET', ),),
12387 MODELE =SIMP(statut='o',typ=modele),
12388 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
12389 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
12390 NUME_DDL =SIMP(statut='f',typ=(nume_ddl,CO)),
12391 CHAR_MECA_GLOBAL=SIMP(statut='f',typ=char_meca,max='**'),
12392 CHAR_CINE_GLOBAL=SIMP(statut='f',typ=char_meca,max='**'),
12393 LIAISON_DISCRET =SIMP(statut='f',typ='TXM',into=("OUI",)),
12394 CAS_CHARGE =FACT(statut='o',min=1,max='**',
12395 regles=(UN_PARMI('NOM_CAS','MODE_FOURIER'),
12396 UN_PARMI('CHAR_MECA','CHAR_CINE','VECT_ASSE'),),
12397 NOM_CAS =SIMP(statut='f',typ='TXM' ),
12398 MODE_FOURIER =SIMP(statut='f',typ='I' ),
12399 TYPE_MODE =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
12400 CHAR_MECA =SIMP(statut='f',typ=char_meca,max='**'),
12401 CHAR_CINE =SIMP(statut='f',typ=char_meca,max='**'),
12402 OPTION =SIMP(statut='f',typ='TXM',max='**',
12403 into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
12404 "SIGM_ELNO_CART","EFGE_ELNO_CART","DEGE_ELNO_DEPL","EPSI_ELNO_DEPL",
12405 "EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO","EPSP_ELGA",
12406 "ECIN_ELEM_DEPL","FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","SOUR_ELGA_ELEC",
12407 "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG","INTE_ELNO_ACTI",
12408 "INTE_ELNO_REAC","SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA",
12409 "ERRE_ELEM_NOZ2","VNOR_ELEM_DEPL","ERRE_ELNO_ELGA","SIRE_ELNO_DEPL",
12410 "ERRE_ELGA_NORE","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI",
12411 "EQUI_ELGA_EPSI","FORC_NODA","REAC_NODA","EPSI_NOEU_DEPL","SIGM_NOEU_DEPL",
12412 "EFGE_NOEU_DEPL","EQUI_NOEU_SIGM","EQUI_NOEU_EPSI","FLUX_NOEU_TEMP") ),
12413 NUME_COUCHE =SIMP(statut='f',typ='I',defaut=1),
12414 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY")),
12415 SOUS_TITRE =SIMP(statut='f',typ='TXM',max='**'),
12416 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r),
12418 SOLVEUR =FACT(statut='d',min=1,max=1,
12419 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT") ),
12420 b_mult_front = BLOC ( condition = "METHODE == 'MULT_FRONT' ",
12421 fr="Paramètres de la méthode multi frontale",
12422 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
12424 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
12425 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
12427 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
12428 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
12429 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
12430 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12433 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2)),
12434 TITRE =SIMP(statut='f',typ='TXM',max='**'),
12436 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
12437 # CONFIGURATION MANAGEMENT OF EDF VERSION
12438 # ======================================================================
12439 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12440 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12441 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12442 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12443 # (AT YOUR OPTION) ANY LATER VERSION.
12445 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12446 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12447 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12448 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12450 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12451 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12452 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12453 # ======================================================================
12454 MACRO_MADMACS=MACRO(nom="MACRO_MADMACS",op=-9,docu="U7.03.21-c",
12455 fr="Impression au format IDEAS des données pour chainage entre Code_Aster et MADMACS",
12456 regles=(UN_PARMI('MATR_ELEM_RIGI','MATR_RIGI'),
12457 UN_PARMI('MATR_ELEM_MASS','MATR_MASS'),
12458 PRESENT_ABSENT('MATR_ELEM_AMOR','MATR_AMOR'),),
12459 FICHIER =SIMP(statut='f',typ='TXM' ),
12460 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",)),
12461 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(5,)),
12462 MAILLAGE =SIMP(statut='o',typ=maillage),
12463 NUME_DDL =SIMP(statut='o',typ=nume_ddl),
12464 CHARGE =SIMP(statut='o',typ=char_meca,max='**'),
12465 MATR_ELEM_RIGI =SIMP(statut='f',typ=matr_elem_depl_r),
12466 MATR_RIGI =SIMP(statut='f',typ=matr_asse_depl_r),
12467 MATR_ELEM_MASS =SIMP(statut='f',typ=matr_elem_depl_r),
12468 MATR_MASS =SIMP(statut='f',typ=matr_asse_depl_r),
12469 MATR_ELEM_AMOR =SIMP(statut='f',typ=matr_elem_depl_r),
12470 MATR_AMOR =SIMP(statut='f',typ=matr_asse_depl_r),
12471 MODE_MECA =SIMP(statut='o',typ=mode_meca),
12472 NMAX_MODE =SIMP(statut='f',typ='I',defaut=10),
12473 INTERFACE =FACT(statut='f',min=01,max='**',
12474 regles=(UN_PARMI('NOEUD','GROUP_NO'),
12475 UN_PARMI('DDL_ACTIF','MASQUE'),),
12476 NOM =SIMP(statut='o',typ='TXM'),
12477 NOEUD =SIMP(statut='f',typ=no,max='**'),
12478 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
12479 DDL_ACTIF =SIMP(statut='f',typ='TXM',max='**'),
12480 MASQUE =SIMP(statut='f',typ='TXM',max='**'),
12482 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12484 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
12485 # CONFIGURATION MANAGEMENT OF EDF VERSION
12486 # ======================================================================
12487 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12488 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12489 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12490 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12491 # (AT YOUR OPTION) ANY LATER VERSION.
12493 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12494 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12495 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12496 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12498 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12499 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12500 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12501 # ======================================================================
12502 def macro_matr_ajou_prod(self,MATR_AMOR_AJOU,MATR_MASS_AJOU,MATR_RIGI_AJOU,FORC_AJOU,**args):
12503 self.type_sdprod(MATR_AMOR_AJOU,matr_asse_depl_r)
12504 self.type_sdprod(MATR_MASS_AJOU,matr_asse_depl_r)
12505 self.type_sdprod(MATR_RIGI_AJOU,matr_asse_depl_r)
12506 if FORC_AJOU != None:
12507 for m in FORC_AJOU:
12508 self.type_sdprod(m['VECTEUR'],vect_asse_gene)
12512 MACRO_MATR_AJOU=MACRO(nom="MACRO_MATR_AJOU",op=-13,docu="U4.66.11-c1",sd_prod=macro_matr_ajou_prod,
12513 regles=(AU_MOINS_UN('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
12514 AU_MOINS_UN('MATR_MASS_AJOU','MATR_AMOR_AJOU','MATR_RIGI_AJOU'),
12515 EXCLUS('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
12516 EXCLUS('MONO_APPUI','MODE_STAT',),
12518 MAILLAGE =SIMP(statut='o',typ=maillage),
12519 GROUP_MA_FLUIDE =SIMP(statut='o',typ=grma),
12520 GROUP_MA_INTERF =SIMP(statut='o',typ=grma),
12521 MODELISATION =SIMP(statut='o',typ='TXM',into=("PLAN","AXIS","3D")),
12522 FLUIDE =FACT(statut='o',min=1,max='**',
12523 RHO =SIMP(statut='o',typ='R'),
12524 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
12525 GROUP_MA =SIMP(statut='f',typ=grma),
12526 MAILLE =SIMP(statut='f',typ=ma),
12528 DDL_IMPO =FACT(statut='o',min=1,max='**',
12529 regles=(UN_PARMI('NOEUD','GROUP_NO'),
12530 UN_PARMI('PRES_FLUIDE','PRES_SORTIE'),),
12531 NOEUD =SIMP(statut='f',typ=no),
12532 GROUP_NO =SIMP(statut='f',typ=grno),
12533 PRES_FLUIDE =SIMP(statut='f',typ='R'),
12534 PRES_SORTIE =SIMP(statut='f',typ='R'),
12536 ECOULEMENT =FACT(statut='f',min=1,max='**',
12537 GROUP_MA_1 =SIMP(statut='o',typ=grma),
12538 GROUP_MA_2 =SIMP(statut='o',typ=grma),
12539 VNOR_1 =SIMP(statut='o',typ='R'),
12540 VNOR_2 =SIMP(statut='f',typ='R'),
12541 POTENTIEL =SIMP(statut='f',typ=evol_ther),
12543 MODE_MECA =SIMP(statut='f',typ=mode_meca),
12544 DEPL_IMPO =SIMP(statut='f',typ=cham_no_depl_r),
12545 MODELE_GENE =SIMP(statut='f',typ=modele_gene),
12546 NUME_DDL_GENE =SIMP(statut='f',typ=nume_ddl_gene),
12547 DIST_REFE =SIMP(statut='f',typ='R',defaut= 1.0E-2),
12548 MATR_MASS_AJOU =SIMP(statut='f',typ=(CO,matr_asse)),
12549 MATR_RIGI_AJOU =SIMP(statut='f',typ=(CO,matr_asse)),
12550 MATR_AMOR_AJOU =SIMP(statut='f',typ=(CO,matr_asse)),
12551 MONO_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",),),
12552 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,),),
12553 FORC_AJOU =FACT(statut='f',min=1,max='**',
12554 DIRECTION =SIMP(statut='o',typ='R',max=3),
12555 NOEUD =SIMP(statut='f',typ=no,max='**'),
12556 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
12557 VECTEUR =SIMP(statut='o',typ=(CO,vect_asse_gene)),
12559 SOLVEUR =FACT(statut='d',min=1,max=1,
12560 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
12561 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
12562 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
12564 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
12565 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
12567 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
12568 fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
12569 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
12570 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12572 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
12573 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
12574 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
12575 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
12576 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
12577 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
12580 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12582 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12583 NOEUD_DOUBLE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
12584 AVEC_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
12586 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
12587 # CONFIGURATION MANAGEMENT OF EDF VERSION
12588 # ======================================================================
12589 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12590 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12591 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12592 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12593 # (AT YOUR OPTION) ANY LATER VERSION.
12595 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12596 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12597 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12598 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12600 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12601 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12602 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12603 # ======================================================================
12605 from Macro.macro_matr_asse_ops import macro_matr_asse_ops
12607 def macro_matr_asse_prod(self,NUME_DDL,MATR_ASSE,**args):
12608 if not MATR_ASSE: raise AsException("Impossible de typer les concepts resultats")
12609 if not NUME_DDL: raise AsException("Impossible de typer les concepts resultats")
12610 self.type_sdprod(NUME_DDL,nume_ddl)
12611 for m in MATR_ASSE:
12614 if opti in ( "RIGI_MECA","RIGI_FLUI_STRU","RIGI_MECA_LAGR" ,
12615 "MASS_MECA" , "MASS_FLUI_STRU" ,"RIGI_GEOM" ,"RIGI_ROTA",
12616 "AMOR_MECA","IMPE_MECA","MASS_ID_MDEP_R","MASS_ID_MDNS_R",
12617 "ONDE_FLUI","MASS_MECA_DIAG" ) : t=matr_asse_depl_r
12619 if opti in ( "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",) : t=matr_asse_pres_c
12621 if opti in ( "RIGI_THER","MASS_THER","RIGI_THER_CONV" ,
12622 "RIGI_THER_CONV_D","MASS_ID_MTEM_R","MASS_ID_MTNS_R",) : t=matr_asse_temp_r
12624 if opti == "RIGI_MECA_HYST" : t= matr_asse_depl_c
12626 self.type_sdprod(m['MATRICE'],t)
12629 MACRO_MATR_ASSE=MACRO(nom="MACRO_MATR_ASSE",op=macro_matr_asse_ops,docu="U4.61.21-d1",
12630 sd_prod=macro_matr_asse_prod,
12631 fr="Calcul des matrices assemblées (matr_asse_gd) par exemple de rigidité, de masse ",
12632 MODELE =SIMP(statut='o',typ=modele),
12633 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
12634 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
12635 CHARGE =SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**'),
12636 INST =SIMP(statut='f',typ='R'),
12637 NUME_DDL =SIMP(statut='o',typ=(nume_ddl,CO)),
12638 SOLVEUR =FACT(statut='d',min=1,max=1,
12639 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",
12640 into=("LDLT","MULT_FRONT","GCPC")),
12641 RENUM =SIMP(statut='f',typ='TXM',into=("SANS","RCMK","MD","MDA","METIS")),
12643 MATR_ASSE =FACT(statut='o',min=1,max='**',
12644 MATRICE =SIMP(statut='o',typ=(matr_asse,CO)),
12645 OPTION =SIMP(statut='o',typ='TXM',
12646 into=("RIGI_MECA","MASS_MECA","MASS_MECA_DIAG",
12647 "AMOR_MECA","RIGI_MECA_HYST","IMPE_MECA",
12648 "ONDE_FLUI","RIGI_FLUI_STRU","MASS_FLUI_STRU",
12649 "RIGI_ROTA","RIGI_GEOM","RIGI_MECA_LAGR",
12650 "RIGI_THER","MASS_THER",
12651 "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",
12652 "MASS_ID_MTEM_R","MASS_ID_MTNS_R","MASS_ID_MDEP_R","MASS_ID_MDNS_R",)
12654 SIEF_ELGA =SIMP(statut='f',typ=cham_elem_sief_r),
12655 MODE_FOURIER =SIMP(statut='f',typ='I'),
12656 THETA =SIMP(statut='f',typ=theta_geom),
12657 PROPAGATION =SIMP(statut='f',typ='R'),
12659 TITRE =SIMP(statut='f',typ='TXM',max='**'),
12660 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12662 #& MODIF COMMANDE DATE 11/06/2002 AUTEUR DURAND C.DURAND
12663 # CONFIGURATION MANAGEMENT OF EDF VERSION
12664 # ======================================================================
12665 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12666 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12667 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12668 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12669 # (AT YOUR OPTION) ANY LATER VERSION.
12671 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12672 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12673 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12674 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12676 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12677 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12678 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12679 # ======================================================================
12681 from Macro.macro_miss_3d_ops import macro_miss_3d_ops
12683 MACRO_MISS_3D=MACRO(nom="MACRO_MISS_3D",op=macro_miss_3d_ops,fr=" ",docu="U7.03.11-a",
12684 OPTION =FACT(statut='o',min=1,max=1,
12685 regles=(UN_PARMI('TOUT','MODULE'),),
12686 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
12687 MODULE =SIMP(statut='f',typ='TXM',into=("PRE_MISS","MISS_EVOL","MISS_IMPE")),
12689 PROJET =SIMP(statut='o',typ='TXM'),
12690 REPERTOIRE =SIMP(statut='f',typ='TXM'),
12691 UNITE_IMPR_ASTER=SIMP(statut='f',typ='I',defaut=25),
12692 UNITE_OPTI_MISS =SIMP(statut='f',typ='I',defaut=26),
12693 UNITE_MODELE_SOL=SIMP(statut='f',typ='I',defaut=27),
12694 UNITE_RESU_IMPE =SIMP(statut='f',typ='I',defaut=30),
12696 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
12697 # CONFIGURATION MANAGEMENT OF EDF VERSION
12698 # ======================================================================
12699 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12700 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12701 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12702 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12703 # (AT YOUR OPTION) ANY LATER VERSION.
12705 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12706 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12707 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12708 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12710 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12711 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12712 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12713 # ======================================================================
12715 from Macro.macro_mode_meca_ops import macro_mode_meca_ops
12717 def macro_mode_meca_prod(self,MATR_A,MATR_B,**args ):
12718 self.type_sdprod(MATR_A,matr_asse_depl_r)
12719 self.type_sdprod(MATR_B,matr_asse_depl_r)
12722 MACRO_MODE_MECA=MACRO(nom="MACRO_MODE_MECA",op=macro_mode_meca_ops,sd_prod=macro_mode_meca_prod,
12723 docu="U4.52.02-d1",reentrant='n',
12724 MATR_A =SIMP(statut='o',typ=(CO,matr_asse_depl_r) ),
12725 MATR_B =SIMP(statut='o',typ=(CO,matr_asse_depl_r) ),
12726 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
12727 # ce mot cle ne devrait il pas etre dans calc_freq
12728 METHODE =SIMP(statut='f',typ='TXM',defaut="SORENSEN",
12729 into=("TRI_DIAG","JACOBI","SORENSEN",) ),
12730 OPTION =SIMP(statut='f',typ='TXM',defaut="SANS",
12731 into=("MODE_RIGIDE","SANS") ),
12732 CALC_FREQ =FACT(statut='d',min=0,max=1,
12733 regles=(UN_PARMI('FREQ','FREQ_MAX'),
12734 PRESENT_PRESENT('FREQ_MIN','FREQ_MAX'),
12735 PRESENT_PRESENT('FREQ_MAX','NB_BLOC_FREQ'),
12736 EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
12737 FREQ =SIMP(statut='f',typ='R',min=2,max='**',val_min=0.E+0 ),
12738 FREQ_MIN =SIMP(statut='f',typ='R' ),
12739 FREQ_MAX =SIMP(statut='f',typ='R' ),
12740 NB_BLOC_FREQ =SIMP(statut='f',typ='I' ),
12741 DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
12742 COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
12743 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8 ),
12744 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
12745 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
12746 PREC_LANCZOS =SIMP(statut='f',typ='R',defaut= 1.E-10 ),
12747 PREC_ORTHO =SIMP(statut='f',typ='R',defaut= 1.E-12 ),
12748 NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5 ),
12749 NMAX_ITER_QR =SIMP(statut='f',typ='I',defaut= 30 ),
12750 PREC_BATHE =SIMP(statut='f',typ='R',defaut= 1.4E-10 ),
12751 NMAX_ITER_BATHE =SIMP(statut='f',typ='I' ,defaut= 12 ),
12752 PREC_JACOBI =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
12753 NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12 ),
12754 PREC_SOREN =SIMP(statut='f',typ='R',defaut= 0.E0 ),
12755 NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20 ),
12756 PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717 ),
12757 SEUIL_FREQ =SIMP(statut='f',typ='R' ,defaut= 1.E-2 ),
12758 STOP_FREQ_VIDE =SIMP(statut='f',typ='TXM',defaut="NON" ,into=("OUI","NON") ),
12760 VERI_MODE =FACT(statut='d',min=0,max=1,
12761 STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12762 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
12763 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
12764 STURM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12766 NORM_MODE =FACT(statut='o',min=1,max='**',
12767 MASS_INER =SIMP(statut='o',typ=tabl_mass_iner ),
12768 NORME =SIMP(statut='f',typ='TXM',defaut="TRAN_ROTA",
12769 into=("MASS_GENE","RIGI_GENE","EUCL",
12770 "EUCL_TRAN","TRAN","TRAN_ROTA") ),
12771 INFO =SIMP(statut='f',typ='I',defaut= 1 ,into=(1,2) ),
12773 FILTRE_MODE =FACT(statut='f',min=1,max=1,
12774 CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
12775 into=("MASS_EFFE_UN","MASS_GENE") ),
12776 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
12778 IMPRESSION =FACT(statut='d',min=1,max=1,
12779 TOUT_PARA =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12780 CUMUL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12781 CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
12782 into=("MASS_EFFE_UN","MASS_GENE",) ),
12785 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
12786 # CONFIGURATION MANAGEMENT OF EDF VERSION
12787 # ======================================================================
12788 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12789 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12790 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12791 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12792 # (AT YOUR OPTION) ANY LATER VERSION.
12794 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12795 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12796 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12797 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12799 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12800 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12801 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12802 # ======================================================================
12804 from Macro.macro_proj_base_ops import macro_proj_base_ops
12806 def macro_proj_base_prod(self,MATR_ASSE_GENE,VECT_ASSE_GENE,**args ):
12807 if MATR_ASSE_GENE != None:
12808 for m in MATR_ASSE_GENE:
12809 self.type_sdprod(m['MATRICE'],matr_asse_gene_r)
12810 self.type_sdprod(m['MATR_ASSE'],matr_asse_depl_r)
12811 if VECT_ASSE_GENE != None:
12812 for v in VECT_ASSE_GENE:
12813 self.type_sdprod(v['VECTEUR'],vect_asse_gene)
12816 MACRO_PROJ_BASE=MACRO(nom="MACRO_PROJ_BASE",op=macro_proj_base_ops,docu="U4.63.11-d1",
12817 sd_prod=macro_proj_base_prod,
12818 fr="Projection des matrices et/ou vecteurs assemblés sur une base de vecteurs",
12819 BASE =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene) ),
12820 NB_VECT =SIMP(statut='f',typ='I',defaut= 9999),
12821 MATR_ASSE_GENE =FACT(statut='f',min=01,max='**',
12822 MATRICE =SIMP(statut='o',typ=(CO,matr_asse)),
12823 MATR_ASSE =SIMP(statut='f',typ=matr_asse_depl_r),
12824 MATR_ASSE_GENE =SIMP(statut='f',typ=matr_asse_gene_r),
12825 PROFIL =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("PLEIN","DIAG") ),
12827 VECT_ASSE_GENE =FACT(statut='f',min=01,max='**',
12828 VECTEUR =SIMP(statut='o',typ=(CO,vect_asse)),
12829 TYPE_VECT =SIMP(statut='f',typ='TXM',defaut="FORC"),
12830 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r),
12831 VECT_ASSE_GENE =SIMP(statut='f',typ=vect_asse_gene),
12833 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12835 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
12836 # CONFIGURATION MANAGEMENT OF EDF VERSION
12837 # ======================================================================
12838 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12839 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12840 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12841 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12842 # (AT YOUR OPTION) ANY LATER VERSION.
12844 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12845 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12846 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12847 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12849 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12850 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12851 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12852 # ======================================================================
12853 MAJ_CATA=PROC(nom="MAJ_CATA",op=20,docu="U4.15.01-e1",
12854 fr="Compilation des catalogues de commandes et d éléments",
12856 ELEMENT =FACT(statut='f',min=01,max=01,),
12859 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
12860 # CONFIGURATION MANAGEMENT OF EDF VERSION
12861 # ======================================================================
12862 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12863 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12864 # REDISTRIBUTION OF THIS FILE.
12865 # ======================================================================
12866 # RESPONSABLE VABHHTS J.PELLET
12867 MECA_STATIQUE=OPER(nom="MECA_STATIQUE",op=46,sd_prod=evol_elas,
12868 fr="Analyse mécanique statique linéaire",docu="U4.51.01-g1",reentrant='n',
12869 regles=(EXCLUS("INST","LIST_INST"),
12870 AU_MOINS_UN('CHAM_MATER','CARA_ELEM',), ),
12871 MODELE =SIMP(statut='o',typ=modele),
12872 CHAM_MATER =SIMP(statut='f',typ=cham_mater,
12873 fr="le CHAM_MATER est nécessaire, sauf si le modèle ne contient que des éléments discrets (modélisations DIS_XXX)",
12874 ang="CHAM_MATER is compulsory, except if the model contains only discret elements (modelizations DIS_XXX)"),
12875 CARA_ELEM =SIMP(statut='f',typ=cara_elem,
12876 fr="le CARA_ELEM est nécessaire dès que le modèle contient des éléments de structure : coques, poutres, ...",
12877 ang="CARA_ELEM is compulsory as soon as the model contains structural elements : plates, beams, ..."),
12878 TITRE =SIMP(statut='f',typ='TXM',max='**'),
12879 EXCIT =FACT(statut='o',min=1,max='**',
12880 CHARGE =SIMP(statut='o',typ=(char_meca,char_cine_meca)),
12881 FONC_MULT =SIMP(statut='f',typ=fonction),
12882 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
12884 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12885 LIST_INST =SIMP(statut='f',typ=listr8),
12886 OPTION =SIMP(statut='f',typ='TXM',max='**',
12887 into=("SANS","SIGM_ELNO_DEPL","SIPO_ELNO_DEPL","EFGE_ELNO_DEPL",
12888 "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPME_ELNO_DEPL","EPME_ELGA_DEPL",
12889 "EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
12890 "EQUI_ELNO_EPME","EQUI_ELGA_EPME","DEGE_ELNO_DEPL","EPOT_ELEM_DEPL",
12891 "ENEL_ELGA","ENEL_ELNO_ELGA") ),
12892 NUME_COUCHE =SIMP(statut='f',typ='I',defaut=1),
12893 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
12894 ANGLE =SIMP(statut='f',typ='I',defaut=0),
12895 PLAN =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL") ),
12896 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
12897 fr="Liste des paramètres de sensibilité.",
12898 ang="List of sensitivity parameters"),
12899 SOLVEUR =FACT(statut='d',min=1,max=1,
12900 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
12901 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
12902 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
12904 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
12905 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
12907 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
12908 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
12909 NPREC =SIMP(statut='f',typ='I',defaut=8),
12910 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12912 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
12913 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
12914 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
12915 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
12916 RESI_RELA =SIMP(statut='f',typ='R',defaut=1.E-6),
12917 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
12920 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12922 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
12924 #& MODIF COMMANDE DATE 17/06/2002 AUTEUR GNICOLAS G.NICOLAS
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 # ======================================================================
12942 # RESPONSABLE GNICOLAS G.NICOLAS
12943 MEMO_NOM_SENSI=PROC(nom="MEMO_NOM_SENSI",op=129,docu="U4.31.xx-a",
12944 fr="Mémorisation des noms des concepts dérivés.",
12945 ang="Memorisation of the names of the sensitive concepts.",
12947 regles=(AU_MOINS_UN('NOM','NOM_ZERO','NOM_UN'),),
12949 NOM=FACT(statut='f',max='**',
12950 regles=(PRESENT_PRESENT('MOT_CLE','VALEUR' ),),
12952 NOM_SD=SIMP(statut='o',typ='TXM',
12953 fr="Nom de la structure de base",
12954 ang="Name of the basic structure"),
12956 PARA_SENSI=SIMP(statut='o',typ=(para_sensi,theta_geom),
12957 fr="Nom du paramètre sensible",
12958 ang="Name of the sensitive parameter"),
12960 NOM_COMPOSE=SIMP(statut='f',typ='TXM',defaut=" ",
12961 fr="Nom de la structure composée",
12962 ang="Name of the built structure"),
12964 MOT_CLE=SIMP(statut='f',typ='TXM',max='**',
12965 fr="Liste des mots clés concernés par la dérivation",
12966 ang="Keyword list involved in derivation"),
12968 VALEUR=SIMP(statut='f',typ='TXM',max='**',
12969 fr="Liste des objets concernés par la dérivation",
12970 ang="Object list involved in derivation"),
12974 NOM_ZERO=SIMP(statut='f',typ=fonction,
12975 fr="Nom de la fonction nulle",
12976 ang="Name of the zero fonction"),
12978 NOM_UN=SIMP (statut='f',typ=fonction,
12979 fr="Nom de la fonction unité",
12980 ang="Name of the one fonction"),
12983 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
12984 # CONFIGURATION MANAGEMENT OF EDF VERSION
12985 # ======================================================================
12986 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12987 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12988 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12989 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12990 # (AT YOUR OPTION) ANY LATER VERSION.
12992 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12993 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12994 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12995 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12997 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12998 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12999 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13000 # ======================================================================
13001 MODE_ITER_CYCL=OPER(nom="MODE_ITER_CYCL",op= 80,sd_prod=mode_cycl,
13002 fr="Modes propres d une structure à répétitivité cyclique à partir d une base de modes propres réels",
13003 docu="U4.52.05-e",reentrant='n',
13004 BASE_MODALE =SIMP(statut='o',typ=base_modale ),
13005 NB_MODE =SIMP(statut='f',typ='I',defaut= 999 ),
13006 NB_SECTEUR =SIMP(statut='o',typ='I' ),
13007 LIAISON =FACT(statut='o',min=01,max=01,
13008 DROITE =SIMP(statut='o',typ='TXM' ),
13009 GAUCHE =SIMP(statut='o',typ='TXM' ),
13010 AXE =SIMP(statut='f',typ='TXM' ),
13012 VERI_CYCL =FACT(statut='f',min=01,max=01,
13013 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
13014 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF",) ),
13015 DIST_REFE =SIMP(statut='f',typ='R' ),
13017 CALCUL =FACT(statut='o',min=01,max=01,
13018 TOUT_DIAM =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13019 NB_DIAM =SIMP(statut='f',typ='I',max='**'),
13020 OPTION =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE"
13021 ,into=("PLUS_PETITE","CENTRE","BANDE") ),
13022 b_centre =BLOC(condition = "OPTION == 'CENTRE'",
13023 FREQ =SIMP(statut='o',typ='R',min=01,max=01),
13025 b_bande =BLOC(condition = "OPTION == 'BANDE'",
13026 FREQ =SIMP(statut='o',typ='R',min=02,max=02),
13028 # NMAX_FREQ n a-t-il pas un sens qu avec OPTION CENTRE
13029 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10 ),
13030 PREC_SEPARE =SIMP(statut='f',typ='R',defaut= 100. ),
13031 PREC_AJUSTE =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
13032 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 50 ),
13034 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13036 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
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 # ======================================================================
13054 def mode_iter_inv_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
13055 if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
13056 if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
13057 if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
13058 if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
13059 if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
13060 raise AsException("type de concept resultat non prevu")
13062 MODE_ITER_INV=OPER(nom="MODE_ITER_INV",op= 44,sd_prod=mode_iter_inv_prod
13063 ,fr="Modes propres par itérations inverses ; valeurs propres et modes réels ou complexes",
13064 docu="U4.52.04-g1",reentrant='n',
13065 MATR_A =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13066 MATR_B =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13067 MATR_C =SIMP(statut='f',typ=matr_asse_depl_r ),
13068 TYPE_RESU =SIMP(statut='f',position='global',typ='TXM',defaut="DYNAMIQUE",
13069 into=("MODE_FLAMB","DYNAMIQUE"),fr="Type d analyse" ),
13070 b_dynam =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
13071 CALC_FREQ =FACT(statut='o',min=1,max=1,fr="Choix des paramètres pour le calcul des valeurs propres",
13073 OPTION =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
13074 fr="Choix de l option pour estimer les valeurs propres" ),
13075 FREQ =SIMP(statut='o',typ='R',max='**'),
13076 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
13077 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 0,val_min=0 ),
13078 NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30,val_min=0 ),
13079 PREC_SEPARE =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0 ),
13080 NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15,val_min=0 ),
13081 PREC_AJUSTE =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0 ),
13083 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13084 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13085 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0, ),
13086 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0, ),
13089 b_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
13090 CALC_FREQ =FACT(statut='o',min=1,max=1,fr="Choix des paramètres pour le calcul des valeurs propres",
13092 OPTION =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
13093 fr="Choix de l option pour estimer les valeurs propres" ),
13094 CHAR_CRIT =SIMP(statut='o',typ='R',max='**' ),
13095 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 0,val_min=0 ),
13096 NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30,val_min=0 ),
13097 PREC_SEPARE =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0, ),
13098 NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15 ),
13099 PREC_AJUSTE =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0, ),
13101 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13102 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13103 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0, ),
13104 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0, ),
13107 CALC_MODE =FACT(statut='d',min=0,max=1,fr="Choix des paramètres pour le calcul des vecteurs propres",
13108 OPTION =SIMP(statut='f',typ='TXM',defaut="DIRECT",into=("DIRECT","RAYLEIGH") ),
13109 PREC =SIMP(statut='f',typ='R',defaut= 1.E-5,val_min=0.E+0,fr="Précision de convergence" ),
13110 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
13112 VERI_MODE =FACT(statut='d',min=0,max=1,
13113 STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13114 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0,
13115 fr="Valeur limite admise pour l ereur a posteriori des modes" ),
13117 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13118 TITRE =SIMP(statut='f',typ='TXM',max='**'),
13120 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
13121 # CONFIGURATION MANAGEMENT OF EDF VERSION
13122 # ======================================================================
13123 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13124 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13125 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13126 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13127 # (AT YOUR OPTION) ANY LATER VERSION.
13129 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13130 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13131 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13132 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13134 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13135 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13136 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13137 # ======================================================================
13138 def mode_iter_simult_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
13139 if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
13140 if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
13141 if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
13142 if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
13143 if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
13144 raise AsException("type de concept resultat non prevu")
13146 MODE_ITER_SIMULT=OPER(nom="MODE_ITER_SIMULT",op= 45,sd_prod=mode_iter_simult_prod,
13147 fr="Modes propres par itérations simultanées ; valeurs propres et modes propres réels ou complexes",
13148 docu="U4.52.03-f2",reentrant='n',
13149 MATR_A =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13150 MATR_B =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13151 MATR_C =SIMP(statut='f',position='global',typ=matr_asse_depl_r ),
13152 METHODE =SIMP(statut='f',position='global',typ='TXM',defaut="SORENSEN",
13153 into=("TRI_DIAG","JACOBI","SORENSEN") ),
13154 TYPE_RESU =SIMP(statut='f',position='global',typ='TXM',defaut="DYNAMIQUE",
13155 into=("MODE_FLAMB","DYNAMIQUE"),
13156 fr="Type d analyse" ),
13157 OPTION =SIMP(statut='f',typ='TXM',defaut="SANS",into=("MODE_RIGIDE","SANS"),
13158 fr="Calcul des modes de corps rigide, uniquement pour la méthode TRI_DIAG" ),
13160 b_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
13161 CALC_FREQ =FACT(statut='d',min=0,max=1,
13162 OPTION =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
13163 fr="Choix de l option et par conséquent du shift du problème modal" ),
13164 b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
13165 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
13167 b_centre =BLOC(condition = "OPTION == 'CENTRE'",
13168 fr="Recherche des valeurs propres les plus proches d une valeur donnée",
13169 CHAR_CRIT =SIMP(statut='o',typ='R',min=1,max=1,
13170 fr="Charge critique autour de laquelle on cherche les charges critiques propres"),
13172 b_bande =BLOC(condition = "(OPTION == 'BANDE')",
13173 fr="Recherche des valeurs propres dans une bande donnée",
13174 CHAR_CRIT =SIMP(statut='o',typ='R',min=2,max=2,
13175 fr="Valeur des deux charges critiques délimitant la bande de recherche"),
13177 APPROCHE =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG"),
13178 fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
13179 regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
13180 DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
13181 COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
13182 b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
13183 PREC_ORTHO =SIMP(statut='f',typ='R',defaut= 1.E-12,val_min=0.E+0 ),
13184 NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13185 PREC_LANCZOS =SIMP(statut='f',typ='R',defaut= 1.E-8,val_min=0.E+0 ),
13186 NMAX_ITER_QR =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
13188 b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
13189 PREC_BATHE =SIMP(statut='f',typ='R',defaut= 1.E-10,val_min=0.E+0 ),
13190 NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40,val_min=0 ),
13191 PREC_JACOBI =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13192 NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12,val_min=0 ),
13194 b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
13195 PREC_SOREN =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
13196 NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
13197 PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
13199 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13200 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13201 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0 ),
13202 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13206 b_dynam =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
13207 CALC_FREQ =FACT(statut='d',min=0,max=1,
13208 OPTION =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
13209 fr="Choix de l option et par conséquent du shift du problème modal" ),
13210 b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
13211 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
13213 b_centre =BLOC(condition = "OPTION == 'CENTRE'",
13214 fr="Recherche des valeurs propres les plus proches d une valeur donnée",
13215 FREQ =SIMP(statut='o',typ='R',min=1,max=1,
13216 fr="Fréquence autour de laquelle on cherche les fréquences propres"),
13217 AMOR_REDUIT =SIMP(statut='f',typ='R',max=1,),
13218 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
13220 b_bande =BLOC(condition = "(OPTION == 'BANDE')",
13221 fr="Recherche des valeurs propres dans une bande donnée",
13222 FREQ =SIMP(statut='o',typ='R',min=2,max=2,
13223 fr="Valeur des deux fréquences délimitant la bande de recherche"),
13225 APPROCHE =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG"),
13226 fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
13227 regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
13228 DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
13229 COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
13230 b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
13231 PREC_ORTHO =SIMP(statut='f',typ='R',defaut= 1.E-12,val_min=0.E+0 ),
13232 NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13233 PREC_LANCZOS =SIMP(statut='f',typ='R',defaut= 1.E-8,val_min=0.E+0 ),
13234 NMAX_ITER_QR =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
13236 b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
13237 PREC_BATHE =SIMP(statut='f',typ='R',defaut= 1.E-10,val_min=0.E+0 ),
13238 NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40,val_min=0 ),
13239 PREC_JACOBI =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13240 NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12,val_min=0 ),
13242 b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
13243 PREC_SOREN =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
13244 NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
13245 PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
13247 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13248 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13249 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0 ),
13250 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13254 VERI_MODE =FACT(statut='d',min=0,max=1,
13255 STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13256 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-3,val_min=0.E+0 ),
13257 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-6,val_min=0.E+0,
13258 fr="Valeur limite admise pour l ereur a posteriori des modes" ),
13259 STURM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13261 STOP_FREQ_VIDE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13262 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13263 TITRE =SIMP(statut='f',typ='TXM',max='**'),
13265 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
13266 # CONFIGURATION MANAGEMENT OF EDF VERSION
13267 # ======================================================================
13268 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13269 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13270 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13271 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13272 # (AT YOUR OPTION) ANY LATER VERSION.
13274 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13275 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13276 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13277 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13279 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13280 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13281 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13282 # ======================================================================
13283 def mode_stat_prod(MODE_STAT,FORCE_NODALE,PSEUDO_MODE,**args):
13284 if (MODE_STAT != None) : return mode_stat_depl
13285 if (PSEUDO_MODE !=None) : return mode_stat_acce
13286 if (FORCE_NODALE != None) : return mode_stat_forc
13287 raise AsException("type de concept resultat non prevu")
13288 MODE_STATIQUE=OPER(nom="MODE_STATIQUE",op= 93,sd_prod=mode_stat_prod,
13289 fr="Calcul de modes statiques",
13290 docu="U4.52.14-f2",reentrant='n',
13291 MATR_RIGI =SIMP(statut='o',typ=matr_asse_depl_r ),
13292 MATR_MASS =SIMP(statut='f',typ=matr_asse_depl_r ),
13293 regles=(UN_PARMI('MODE_STAT','FORCE_NODALE','PSEUDO_MODE'),),
13294 MODE_STAT =FACT(statut='f',min=01,max='**',
13295 regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
13296 UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
13297 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ,),
13298 NOEUD =SIMP(statut='f',typ=no,max='**'),
13299 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
13300 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",) ,),
13301 AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
13302 SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
13304 FORCE_NODALE =FACT(statut='f',min=01,max='**',
13305 regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
13306 UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
13307 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",), ),
13308 NOEUD =SIMP(statut='f',typ=no,max='**'),
13309 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
13310 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",), ),
13311 AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
13312 SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
13314 PSEUDO_MODE =FACT(statut='f',min=01,max='**',
13315 regles=(UN_PARMI('AXE','DIRECTION','TOUT','NOEUD','GROUP_NO' ),),
13316 AXE =SIMP(statut='f',typ='TXM',into=("X","Y","Z"),max=3),
13317 DIRECTION =SIMP(statut='f',typ='R',min=3,max=3),
13318 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
13319 NOEUD =SIMP(statut='f',typ=no,max='**'),
13320 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
13321 b_dir =BLOC(condition = "DIRECTION != None",
13322 NOM_DIR =SIMP(statut='f',typ='TXM' ),),
13323 b_cmp =BLOC(condition="TOUT!= None or NOEUD!=None or GROUP_NO!=None",
13324 regles=(UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
13325 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13326 AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
13327 SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
13330 TITRE =SIMP(statut='f',typ='TXM',max='**'),
13331 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
13333 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
13334 # CONFIGURATION MANAGEMENT OF EDF VERSION
13335 # ======================================================================
13336 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13337 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13338 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13339 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13340 # (AT YOUR OPTION) ANY LATER VERSION.
13342 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13343 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13344 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13345 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13347 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13348 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13349 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13350 # ======================================================================
13351 MODI_BASE_MODALE=OPER(nom="MODI_BASE_MODALE",op= 149,sd_prod=mode_meca,
13352 docu="U4.66.21-c",reentrant='f',
13353 # la commande modi_base _modale : reentrant = f ou o
13354 regles=(EXCLUS('AMOR_UNIF','AMOR_REDUIT', ),),
13355 BASE =SIMP(statut='o',typ=mode_meca ),
13356 BASE_ELAS_FLUI =SIMP(statut='o',typ=melasflu ),
13357 NUME_VITE_FLUI =SIMP(statut='o',typ='I' ),
13358 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
13359 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
13360 AMOR_UNIF =SIMP(statut='f',typ='R' ),
13361 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
13362 TITRE =SIMP(statut='f',typ='TXM',max='**'),
13364 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
13365 # CONFIGURATION MANAGEMENT OF EDF VERSION
13366 # ======================================================================
13367 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13368 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13369 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13370 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13371 # (AT YOUR OPTION) ANY LATER VERSION.
13373 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13374 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13375 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13376 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13378 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13379 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13380 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13381 # ======================================================================
13382 # RESPONSABLE G8BHHXD X.DESROCHES
13383 MODI_MAILLAGE=OPER(nom="MODI_MAILLAGE",op= 154,sd_prod=maillage,
13384 fr="Modification de la connectivité de groupes de mailles 2D ou 3D affectées à la modélisation de contact",
13385 docu="U4.23.04-d1",reentrant='o',
13386 regles=(UN_PARMI('ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
13387 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE'),
13388 EXCLUS('EQUE_PIQUA','PLAQ_TUBE'),
13389 EXCLUS('EQUE_PIQUA','TUBE_COUDE'),),
13390 MAILLAGE =SIMP(statut='o',typ=maillage ),
13392 ORIE_CONTACT =FACT(statut='f',min=01,max=01,
13393 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
13396 DEFORME =FACT(statut='f',min=01,max=01,
13397 OPTION =SIMP(statut='o',typ='TXM',into=("TRAN","TRAN_APPUI") ),
13398 DEPL =SIMP(statut='o',typ=cham_no_depl_r ),
13399 b_deform =BLOC(condition = "OPTION=='TRAN_APPUI'",
13400 GROUP_NO_APPUI = SIMP(statut='o',typ=grno,max='**' ),
13401 GROUP_NO_STRU = SIMP(statut='o',typ=grno,max='**' ),),
13404 EQUE_PIQUA =FACT(statut='f',min=01,max=01,
13405 GROUP_NO =SIMP(statut='o',typ=grno),
13406 E_BASE =SIMP(statut='o',typ='R' ),
13407 DEXT_BASE =SIMP(statut='o',typ='R' ),
13408 L_BASE =SIMP(statut='o',typ='R' ),
13409 L_CHANF =SIMP(statut='o',typ='R' ),
13410 H_SOUD =SIMP(statut='o',typ='R' ),
13411 ANGL_SOUD =SIMP(statut='o',typ='R' ),
13412 JEU_SOUD =SIMP(statut='o',typ='R' ),
13413 E_CORP =SIMP(statut='o',typ='R' ),
13414 DEXT_CORP =SIMP(statut='o',typ='R' ),
13415 AZIMUT =SIMP(statut='o',typ='R' ),
13416 RAFF_MAIL =SIMP(statut='o',typ='TXM' ),
13417 X_MAX =SIMP(statut='o',typ='R' ),
13419 ORIE_PEAU_2D =FACT(statut='f',min=01,max='**',
13420 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
13422 ORIE_PEAU_3D =FACT(statut='f',min=01,max='**',
13423 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
13425 ORIE_NORM_COQUE =FACT(statut='f',min=01,max='**',
13426 regles=(EXCLUS('NOEUD','GROUP_NO'),
13427 PRESENT_PRESENT('NOEUD','VECT_NORM'),
13428 PRESENT_PRESENT('GROUP_NO','VECT_NORM'),),
13429 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
13430 VECT_NORM =SIMP(statut='f',typ='R',max=03),
13431 NOEUD =SIMP(statut='f',typ=no),
13432 GROUP_NO =SIMP(statut='f',typ=grno),
13434 b_modele =BLOC(condition = "(ORIE_PEAU_2D != None) or (ORIE_PEAU_3D != None) or(ORIE_NORM_COQUE != None)",
13435 MODELE =SIMP(statut='o',typ=modele ),
13437 PLAQ_TUBE =FACT(statut='f',min=01,max=01,
13438 DEXT =SIMP(statut='o',typ='R' ),
13439 EPAIS =SIMP(statut='o',typ='R' ),
13440 L_TUBE_P1 =SIMP(statut='o',typ='R' ),
13441 AZIMUT =SIMP(statut='f',typ='R',defaut= 90. ),
13442 COUTURE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
13444 TUBE_COUDE =FACT(statut='f',min=01,max=01,
13445 ANGLE =SIMP(statut='o',typ='R' ),
13446 R_CINTR =SIMP(statut='o',typ='R' ),
13447 L_TUBE_P1 =SIMP(statut='o',typ='R' ),
13449 MODI_MAILLE =FACT(statut='f',min=01,max=01,
13450 regles=(AU_MOINS_UN('GROUP_MA_FOND','MAILLE_FOND','GROUP_NO_FOND','NOEUD_FOND'),),
13451 OPTION =SIMP(statut='o',typ='TXM',into=("NOEUD_QUART",) ),
13452 GROUP_MA_FOND =SIMP(statut='f',typ=grma,max='**'),
13453 MAILLE_FOND =SIMP(statut='f',typ=ma,max='**'),
13454 GROUP_NO_FOND =SIMP(statut='f',typ=grno,max='**'),
13455 NOEUD_FOND =SIMP(statut='f',typ=no,max='**'),
13457 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13459 #& MODIF COMMANDE DATE 15/01/2002 AUTEUR CIBHHLV L.VIVAN
13460 # CONFIGURATION MANAGEMENT OF EDF VERSION
13461 # ======================================================================
13462 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13463 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13464 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13465 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13466 # (AT YOUR OPTION) ANY LATER VERSION.
13468 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13469 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13470 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13471 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13473 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13474 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13475 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13476 # ======================================================================
13477 MODI_OBSTACLE=OPER(nom="MODI_OBSTACLE",op=182,sd_prod=obstacle,
13478 fr=" ",docu="U4.44.22-a",reentrant='f',
13479 regles=(PRESENT_ABSENT('R_MOBILE','CRAYON'),
13480 PRESENT_PRESENT('TUBE_NEUF','TABL_USURE'),
13481 PRESENT_PRESENT('V_USUR_TUBE','V_USUR_OBST'),),
13482 TUBE_NEUF =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13483 V_USUR_TUBE =SIMP(statut='f',typ='R',max='**'),
13484 V_USUR_OBST =SIMP(statut='f',typ='R',max='**'),
13485 TABL_USURE =SIMP(statut='f',typ=tabl_post_usur),
13486 INST =SIMP(statut='f',typ='R'),
13487 OBSTACLE =SIMP(statut='f',typ=obstacle),
13488 GUIDE =SIMP(statut='o',typ=obstacle),
13489 CRAYON =SIMP(statut='f',typ=obstacle),
13490 R_MOBILE =SIMP(statut='f',typ='R'),
13491 PERCEMENT =SIMP(statut='f',typ='R',defaut=1),
13492 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13494 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
13495 # CONFIGURATION MANAGEMENT OF EDF VERSION
13496 # ======================================================================
13497 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13498 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13499 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13500 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13501 # (AT YOUR OPTION) ANY LATER VERSION.
13503 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13504 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13505 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13506 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13508 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13509 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13510 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13511 # ======================================================================
13512 # RESPONSABLE JMBHH01 J.M.PROIX
13513 def modi_repere_prod(RESULTAT,**args):
13514 if AsType(RESULTAT) == evol_elas : return evol_elas
13515 if AsType(RESULTAT) == evol_noli : return evol_noli
13516 if AsType(RESULTAT) == evol_ther : return evol_ther
13517 if AsType(RESULTAT) == dyna_trans : return dyna_trans
13518 if AsType(RESULTAT) == dyna_harmo : return dyna_harmo
13519 if AsType(RESULTAT) == mode_meca : return mode_meca
13520 if AsType(RESULTAT) == mode_flamb : return mode_flamb
13521 if AsType(RESULTAT) == mult_elas : return mult_elas
13522 if AsType(RESULTAT) == base_modale : return base_modale
13523 raise AsException("type de concept resultat non prevu")
13525 MODI_REPERE=OPER(nom="MODI_REPERE",op=191,sd_prod=modi_repere_prod,docu="U4.74.01-a3",reentrant='n',
13526 fr="Impression des resultats dans un repere cylindrique",
13527 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,mode_meca,
13528 evol_noli,mult_elas,
13529 evol_ther,base_modale,mode_flamb) ),
13530 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
13531 'NOEUD_CMP','LIST_INST','LIST_FREQ','NOM_CAS'),),
13532 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13533 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
13534 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
13535 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
13536 NOM_CAS =SIMP(statut='f',typ='TXM' ),
13538 INST =SIMP(statut='f',typ='R',max='**'),
13539 FREQ =SIMP(statut='f',typ='R',max='**'),
13540 LIST_INST =SIMP(statut='f',typ=listr8),
13541 LIST_FREQ =SIMP(statut='f',typ=listr8),
13543 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
13544 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",),),
13546 MODI_CHAM =FACT(statut='o',min=01,max='**',
13547 TYPE_CHAM =SIMP(statut='o',typ='TXM', max=1,
13548 into=("VECT_2D","VECT_3D","TORS_3D","TENS_2D","TENS_3D"),),
13549 NOM_CHAM =SIMP(statut='o',typ='TXM',max=1 ),
13550 b_vect_2d =BLOC(condition = "TYPE_CHAM=='VECT_2D'",
13551 NOM_CMP =SIMP(statut='o',typ='TXM',min=2,max=2 ),),
13552 b_vect_3d =BLOC(condition = "TYPE_CHAM=='VECT_3D'",
13553 NOM_CMP =SIMP(statut='o',typ='TXM',min=3,max=3 ),),
13554 b_tors_3d =BLOC(condition = "TYPE_CHAM=='TORS_3D'",
13555 NOM_CMP =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
13556 b_tens_2d =BLOC(condition = "TYPE_CHAM=='TENS_2D'",
13557 NOM_CMP =SIMP(statut='o',typ='TXM',min=4,max=4 ),),
13558 b_tens_3d =BLOC(condition = "TYPE_CHAM=='TENS_3D'",
13559 NOM_CMP =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
13561 DEFI_REPERE =FACT(statut='o',min=1,max=1,
13562 regles=(UN_PARMI('ANGL_NAUT','ORIGINE'),),
13563 REPERE =SIMP(statut='f',typ='TXM',defaut="UTILISATEUR",
13564 into=("UTILISATEUR","CYLINDRIQUE"),),
13565 ANGL_NAUT =SIMP(statut='f',typ='R',min=1,max=3),
13566 ORIGINE =SIMP(statut='f',typ='R',min=2,max=3),
13567 AXE_Z =SIMP(statut='f',typ='R',min=3,max=3),
13569 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13571 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
13572 # CONFIGURATION MANAGEMENT OF EDF VERSION
13573 # ======================================================================
13574 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13575 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13576 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13577 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13578 # (AT YOUR OPTION) ANY LATER VERSION.
13580 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13581 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13582 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13583 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13585 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13586 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13587 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13588 # ======================================================================
13589 def norm_mode_prod(MODE,**args ):
13590 if AsType(MODE) == mode_meca : return mode_meca
13591 if AsType(MODE) == mode_meca_c : return mode_meca_c
13592 if AsType(MODE) == mode_flamb : return mode_flamb
13593 raise AsException("type de concept resultat non prevu")
13595 NORM_MODE=OPER(nom="NORM_MODE",op= 37,sd_prod=norm_mode_prod,
13596 fr="Normalisation de modes propres",
13597 docu="U4.52.11-e",reentrant='f',
13598 regles=(UN_PARMI('NORME','NOEUD','AVEC_CMP','SANS_CMP'),),
13599 MODE =SIMP(statut='o',typ=(mode_meca,mode_flamb) ),
13600 NORME =SIMP(statut='f',typ='TXM',fr="Norme prédéfinie : masse généralisée, euclidienne,...",
13601 into=("MASS_GENE","RIGI_GENE","EUCL","EUCL_TRAN","TRAN","TRAN_ROTA") ),
13602 NOEUD =SIMP(statut='f',typ=no, fr="Composante donnée d un noeud spécifié égale à 1"),
13603 b_noeud =BLOC(condition = "NOEUD != None",
13604 NOM_CMP =SIMP(statut='o',typ='TXM' ),
13606 AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
13607 SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
13608 MASS_INER =SIMP(statut='f',typ=tabl_mass_iner ),
13609 MODE_SIGNE =FACT(statut='f',min=00,max=01,fr="Imposer un signe sur une des composantes des modes",
13610 NOEUD =SIMP(statut='o',typ=no,fr="Noeud ou sera imposé le signe"),
13611 NOM_CMP =SIMP(statut='o',typ='TXM',fr="Composante du noeud ou sera imposé le signe" ),
13612 SIGNE =SIMP(statut='f',typ='TXM',defaut="POSITIF",into=("NEGATIF","POSITIF"),
13613 fr="Choix du signe" ),
13615 TITRE =SIMP(statut='f',typ='TXM',max='**'),
13616 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13618 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
13619 # CONFIGURATION MANAGEMENT OF EDF VERSION
13620 # ======================================================================
13621 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13622 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13623 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13624 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13625 # (AT YOUR OPTION) ANY LATER VERSION.
13627 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13628 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13629 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13630 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13632 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13633 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13634 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13635 # ======================================================================
13636 # RESPONSABLE VABHHTS J.PELLET
13637 NUME_DDL=OPER(nom="NUME_DDL",op=11,sd_prod=nume_ddl,docu="U4.61.11-g1",reentrant='n',
13638 fr="Etablissement de la numérotation des ddl avec ou sans renumérotation et du stockage de la matrice",
13639 regles=(UN_PARMI('MATR_RIGI','MODELE'),),
13640 MATR_RIGI =SIMP(statut='f',typ=(matr_elem_depl_r ,matr_elem_depl_c,
13641 matr_elem_temp_r,matr_elem_pres_c),max=100 ),
13642 MODELE =SIMP(statut='f',typ=modele ),
13643 b_modele =BLOC(condition = "MODELE != None",
13644 CHARGE =SIMP(statut='f',max='**',typ=(char_meca,char_ther,char_acou, ),),
13646 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
13647 b_mult_front =BLOC(condition="METHODE=='MULT_FRONT'",fr="paramètres associés à la méthode multifrontale",
13648 RENUM =SIMP(statut='f',typ='TXM',into=("MD","MDA","METIS"),defaut="METIS" ),
13650 b_ldlt =BLOC(condition="METHODE=='LDLT'",fr="paramètres associés à la méthode LDLT",
13651 RENUM =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK" ),
13653 b_gcpc =BLOC(condition="METHODE=='GCPC'",fr="paramètres associés à la méthode gradient conjugué",
13654 RENUM =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK" ),
13656 INFO =SIMP(statut='f',typ='I',into=(1,2)),
13658 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
13659 # CONFIGURATION MANAGEMENT OF EDF VERSION
13660 # ======================================================================
13661 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13662 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13663 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13664 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13665 # (AT YOUR OPTION) ANY LATER VERSION.
13667 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13668 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13669 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13670 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13672 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13673 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13674 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13675 # ======================================================================
13676 NUME_DDL_GENE=OPER(nom="NUME_DDL_GENE",op= 127,sd_prod=nume_ddl_gene,
13677 fr="Etablissement de la numérotation des ddl d un modèle établi en coordonnées généralisées",
13678 docu="U4.65.03-e1",reentrant='n',
13679 regles=UN_PARMI('MODELE_GENE','BASE'),
13680 MODELE_GENE =SIMP(statut='f',typ=modele_gene ),
13681 b_modele_gene =BLOC(condition = "MODELE_GENE != None",
13682 STOCKAGE =SIMP(statut='f',typ='TXM',defaut="LIGN_CIEL",into=("LIGN_CIEL","PLEIN") ),
13684 BASE =SIMP(statut='f',typ=(mode_meca,base_modale,mode_gene ) ),
13685 b_base =BLOC(condition = "BASE != None",
13686 STOCKAGE =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("DIAG","PLEIN") ),
13687 NB_VECT =SIMP(statut='f',typ='I',defaut= 9999 ),
13690 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
13691 # CONFIGURATION MANAGEMENT OF EDF VERSION
13692 # ======================================================================
13693 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13694 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13695 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13696 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13697 # (AT YOUR OPTION) ANY LATER VERSION.
13699 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13700 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13701 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13702 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13704 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13705 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13706 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13707 # ======================================================================
13708 POST_DYNA_ALEA=OPER(nom="POST_DYNA_ALEA",op= 132,sd_prod=tabl_post_alea,
13709 fr="Traitements statistiques de résultats de type interspectre et impression sur fichiers",
13710 docu="U4.84.04-d",reentrant='n',
13711 regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I','OPTION'),),
13712 INTE_SPEC =SIMP(statut='o',typ=tabl_intsp ),
13713 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
13714 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13715 NUME_ORDRE_I =SIMP(statut='f',typ='I',max='**' ),
13716 NOEUD_I =SIMP(statut='f',typ=no,max='**'),
13717 OPTION =SIMP(statut='f',typ='TXM',into=("DIAG",) ),
13718 b_nume_ordre_i =BLOC(condition = "NUME_ORDRE_I != None",
13719 NUME_ORDRE_J =SIMP(statut='o',typ='I',max='**' ),
13721 b_noeud_i =BLOC(condition = "NOEUD_I != None",
13722 NOEUD_J =SIMP(statut='o',typ=no,max='**'),
13723 NOM_CMP_I =SIMP(statut='o',typ='TXM',max='**' ),
13724 NOM_CMP_J =SIMP(statut='o',typ='TXM',max='**' ),
13726 DEPASSEMENT =FACT(statut='f',min=01,max='**',
13727 fr="Loi de dépassement d un seuil pendant une durée donnée",
13728 regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
13729 VALE_MIN =SIMP(statut='f',typ='R' ),
13730 VALE_MAX =SIMP(statut='f',typ='R' ),
13731 PAS =SIMP(statut='f',typ='R' ),
13732 DUREE =SIMP(statut='f',typ='R',defaut= 1. ),
13734 RAYLEIGH =FACT(statut='f',min=01,max='**',
13735 fr="Densité de probabilité de pic positif, loi adaptée à des signaux à bande étroite",
13736 regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
13737 VALE_MIN =SIMP(statut='f',typ='R' ),
13738 VALE_MAX =SIMP(statut='f',typ='R' ),
13739 PAS =SIMP(statut='f',typ='R' ),
13741 GAUSS =FACT(statut='f',min=01,max='**',
13742 fr="Densité de probabilité de pic positif, loi normale adaptée à des signaux large bande",
13743 regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
13744 VALE_MIN =SIMP(statut='f',typ='R' ),
13745 VALE_MAX =SIMP(statut='f',typ='R' ),
13746 PAS =SIMP(statut='f',typ='R' ),
13748 VANMARCKE =FACT(statut='f',min=01,max='**',
13749 fr="Probabilité de non dépassement de seuil pendant une durée donnée (analyse sismique)",
13750 regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
13751 VALE_MIN =SIMP(statut='f',typ='R' ),
13752 VALE_MAX =SIMP(statut='f',typ='R' ),
13753 PAS =SIMP(statut='f',typ='R' ),
13754 DUREE =SIMP(statut='f',typ='R',defaut= 10. ),
13756 MOMENT =SIMP(statut='f',typ='I',max='**',fr="Moments spectraux en complément des cinq premiers" ),
13757 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
13758 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
13760 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
13761 # CONFIGURATION MANAGEMENT OF EDF VERSION
13762 # ======================================================================
13763 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13764 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13765 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13766 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13767 # (AT YOUR OPTION) ANY LATER VERSION.
13769 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13770 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13771 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13772 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13774 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13775 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13776 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13777 # ======================================================================
13778 POST_DYNA_MODA_T=OPER(nom="POST_DYNA_MODA_T",op= 130,sd_prod=tabl_post_dyna,
13779 fr="Post-traitements en coordonnées généralisées issus de DYNA_TRAN_MODAL",
13780 docu="U4.84.02-d",reentrant='n',
13781 regles=(UN_PARMI('CHOC','RELA_EFFO_DEPL', ),),
13782 RESU_GENE =SIMP(statut='o',typ=tran_gene ),
13783 CHOC =FACT(statut='f',min=01,max='**',
13784 fr="Analyse des non linéarités de choc",
13785 INST_INIT =SIMP(statut='f',typ='R',defaut= -1. ),
13786 INST_FIN =SIMP(statut='f',typ='R',defaut= 999. ),
13787 NB_BLOC =SIMP(statut='f',typ='I',defaut= 1 ),
13788 SEUIL_FORCE =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
13789 DUREE_REPOS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
13790 OPTION =SIMP(statut='f',typ='TXM',defaut="USURE",into=("IMPACT","USURE") ),
13791 NB_CLASSE =SIMP(statut='f',typ='I',defaut= 10 ),
13793 RELA_EFFO_DEPL =FACT(statut='f',min=01,max=01,
13794 fr="Analyse des relationsnon linéaires effort-déplacement",
13795 NOEUD =SIMP(statut='o',typ=no),
13796 NOM_CMP =SIMP(statut='o',typ='TXM' ),
13798 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
13799 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
13801 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
13802 # CONFIGURATION MANAGEMENT OF EDF VERSION
13803 # ======================================================================
13804 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13805 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13806 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13807 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13808 # (AT YOUR OPTION) ANY LATER VERSION.
13810 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13811 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13812 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13813 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13815 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13816 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13817 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13818 # ======================================================================
13819 # RESPONSABLE G8BHHXD X.DESROCHES
13820 def post_elem_prod( MASS_INER,ENER_POT,ENER_CIN,TRAV_EXT,WEIBULL,
13821 CARA_GEOM,CARA_POUTRE,RICE_TRACEY,CHAR_LIMITE,
13822 INDIC_ENER,INDIC_SEUIL,ENER_ELAS,ENER_TOTALE,
13823 AIRE_INTERNE,**args ):
13824 if MASS_INER != None : return tabl_mass_iner
13825 if ENER_POT != None : return tabl_ener_pot
13826 if ENER_CIN != None : return tabl_ener_cin
13827 if TRAV_EXT != None : return tabl_trav_ext
13828 if WEIBULL != None : return tabl_weibull
13829 if CARA_GEOM != None : return tabl_cara_geom
13830 if CARA_POUTRE != None : return tabl_cara_geom
13831 if RICE_TRACEY != None : return tabl_rice_tracey
13832 if CHAR_LIMITE != None : return tabl_char_limite
13833 if INDIC_ENER != None : return tabl_indic_ener
13834 if INDIC_SEUIL != None : return tabl_indic_seuil
13835 if ENER_ELAS != None : return tabl_ener_elas
13836 if ENER_TOTALE != None : return tabl_ener_totale
13837 if AIRE_INTERNE != None : return tabl_aire_int
13838 raise AsException("type de concept resultat non prevu")
13840 POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=post_elem_prod,docu="U4.81.22-e3",reentrant='f',
13841 fr="Calcul de quantités globales (masse, inerties, énergie, ...) sur tout ou partie du modèle",
13843 regles=(UN_PARMI('MASS_INER', 'ENER_POT', 'ENER_CIN','TRAV_EXT',
13844 'WEIBULL', 'RICE_TRACEY', 'CARA_GEOM','CHAR_LIMITE',
13845 'CARA_POUTRE', 'INDIC_ENER', 'INDIC_SEUIL',
13846 'AIRE_INTERNE','ENER_ELAS','ENER_TOTALE'),
13849 MASS_INER = FACT(statut='f',min=1,max='**',
13850 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
13851 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13852 MAILLE = SIMP(statut='f',typ=ma,max='**'),
13853 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
13854 ORIG_INER = SIMP(statut='f',typ='R',min=3,max=3 ),
13856 b_mass_iner = BLOC(condition = "( MASS_INER != None )",
13857 fr="calcul de la masse, les inerties et le centre de gravité",
13858 regles=(EXCLUS('CHAM_GD','RESULTAT'),
13859 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
13860 'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
13861 MODELE = SIMP(statut='o',typ=modele),
13862 CHAM_MATER = SIMP(statut='f',typ=cham_mater),
13863 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
13864 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
13865 NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
13866 NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
13867 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
13868 GEOMETRIE = SIMP(statut='f',typ='TXM',defaut="INITIALE",into=("INITIALE","DEFORMEE")),
13869 CHAM_GD = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
13870 RESULTAT = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_noli,mult_elas,
13871 fourier_elas,dyna_trans) ),
13872 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
13873 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
13874 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13875 NUME_ORDRE = SIMP(statut='f',typ='I',max=1),
13876 LIST_ORDRE = SIMP(statut='f',typ=listis),
13877 INST = SIMP(statut='f',typ='R',max=1),
13878 LIST_INST = SIMP(statut='f',typ=listr8),
13879 FREQ = SIMP(statut='f',typ='R',max=1),
13880 LIST_FREQ = SIMP(statut='f',typ=listr8),
13881 NUME_MODE = SIMP(statut='f',typ='I',max=1),
13882 NOEUD_CMP = SIMP(statut='f',typ='TXM',min=2,max=2),
13883 NOM_CAS = SIMP(statut='f',typ='TXM',max=1),
13886 ENER_POT = FACT(statut='f',min=1,max='**',
13887 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
13888 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13889 MAILLE = SIMP(statut='f',typ=ma,max='**'),
13890 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
13892 b_ener_pot = BLOC(condition = "( ENER_POT != None )",
13893 fr="calcul de l'énergie potentielle de déformation",
13894 regles=(UN_PARMI('CHAM_GD','RESULTAT'),
13895 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
13896 'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
13897 MODELE = SIMP(statut='o',typ=modele),
13898 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
13899 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
13900 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
13901 NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
13902 NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
13903 ANGLE = SIMP(statut='f',typ='I',defaut=0),
13904 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
13905 CHAM_GD = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
13906 RESULTAT = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,dyna_trans) ),
13907 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
13908 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
13909 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13910 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
13911 LIST_ORDRE = SIMP(statut='f',typ=listis),
13912 INST = SIMP(statut='f',typ='R',max='**'),
13913 LIST_INST = SIMP(statut='f',typ=listr8),
13914 FREQ = SIMP(statut='f',typ='R',max='**'),
13915 LIST_FREQ = SIMP(statut='f',typ=listr8),
13916 NUME_MODE = SIMP(statut='f',typ='I',max='**'),
13917 NOEUD_CMP = SIMP(statut='f',typ='TXM',max='**'),
13918 NOM_CAS = SIMP(statut='f',typ='TXM',max='**'),
13921 ENER_CIN = FACT(statut='f',min=1,max='**',
13922 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
13923 OPTION = SIMP(statut='f',typ='TXM',
13924 into=("MASS_MECA","MASS_MECA_DIAG"),
13925 defaut="MASS_MECA" ),
13926 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13927 MAILLE = SIMP(statut='f',typ=ma,max='**'),
13928 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
13930 b_ener_cin = BLOC(condition = "( ENER_CIN != None )",
13931 fr="calcul de l'énergie cinétique",
13932 regles=(UN_PARMI('CHAM_GD','RESULTAT'),
13933 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
13934 'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
13935 MODELE = SIMP(statut='o',typ=modele),
13936 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
13937 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
13938 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
13939 NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
13940 NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
13941 ANGLE = SIMP(statut='f',typ='I',defaut=0),
13942 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
13943 CHAM_GD = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
13944 RESULTAT = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,dyna_trans) ),
13945 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
13946 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
13947 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13948 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
13949 LIST_ORDRE = SIMP(statut='f',typ=listis),
13950 INST = SIMP(statut='f',typ='R',max='**'),
13951 LIST_INST = SIMP(statut='f',typ=listr8),
13952 FREQ = SIMP(statut='f',typ='R',max='**'),
13953 LIST_FREQ = SIMP(statut='f',typ=listr8),
13954 NUME_MODE = SIMP(statut='f',typ='I',max='**'),
13955 NOEUD_CMP = SIMP(statut='f',typ='TXM',max='**'),
13956 NOM_CAS = SIMP(statut='f',typ='TXM',max='**'),
13959 ENER_ELAS = FACT(statut='f',min=1,max='**',
13960 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
13961 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13962 MAILLE = SIMP(statut='f',typ=ma,max='**'),
13963 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
13965 b_ener_elas = BLOC(condition = "( ENER_ELAS != None )",
13966 fr="calcul de l'énergie de déformation élastique",
13967 MODELE = SIMP(statut='o',typ=modele),
13968 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
13969 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
13970 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
13971 NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
13972 NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
13973 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
13974 RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
13975 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
13976 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
13977 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
13978 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13979 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
13980 LIST_ORDRE = SIMP(statut='f',typ=listis),
13981 INST = SIMP(statut='f',typ='R',max='**'),
13982 LIST_INST = SIMP(statut='f',typ=listr8),
13985 ENER_TOTALE = FACT(statut='f',min=1,max='**',
13986 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
13987 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13988 MAILLE = SIMP(statut='f',typ=ma,max='**'),
13989 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
13991 b_ener_totale = BLOC(condition = "( ENER_TOTALE != None )",
13992 fr="calcul de l'énergie de déformation totale",
13993 MODELE = SIMP(statut='o',typ=modele),
13994 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
13995 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
13996 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
13997 NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
13998 NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
13999 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
14000 RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
14001 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14002 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14003 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14004 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14005 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
14006 LIST_ORDRE = SIMP(statut='f',typ=listis),
14007 INST = SIMP(statut='f',typ='R',max='**'),
14008 LIST_INST = SIMP(statut='f',typ=listr8),
14011 WEIBULL = FACT(statut='f',min=1,max='**',
14012 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14013 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14014 MAILLE = SIMP(statut='f',typ=ma,max='**'),
14015 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
14016 OPTION = SIMP(statut='f',typ='TXM',
14017 into=("SIGM_ELGA","SIGM_ELMOY"),
14018 defaut="SIGM_ELGA"),
14019 CORR_PLAST = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
14020 COEF_MULT = SIMP(statut='f',typ='R',defaut=1.),
14022 b_weibull = BLOC(condition = "( WEIBULL != None )",
14023 fr="calcul du champ élémentaire de la puissance m-ième de la contrainte de Weibull",
14024 regles=(UN_PARMI('CHAM_GD','RESULTAT'),
14025 EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14026 MODELE = SIMP(statut='o',typ=modele),
14027 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
14028 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
14029 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14030 NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
14031 NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14032 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
14033 CHAM_GD = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14034 RESULTAT = SIMP(statut='f',typ=(evol_noli) ),
14035 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14036 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14037 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14038 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
14039 LIST_ORDRE = SIMP(statut='f',typ=listis),
14040 INST = SIMP(statut='f',typ='R',max='**'),
14041 LIST_INST = SIMP(statut='f',typ=listr8),
14044 RICE_TRACEY = FACT(statut='f',min=1,max='**',
14045 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14046 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14047 MAILLE = SIMP(statut='f',typ=ma,max='**'),
14048 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
14049 OPTION = SIMP(statut='f',typ='TXM',
14050 into=("SIGM_ELGA","SIGM_ELMOY"),
14051 defaut="SIGM_ELGA"),
14052 LOCAL = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
14054 b_rice_tracey = BLOC(condition = "( RICE_TRACEY != None )",
14055 fr="calcul du taux de croissance d'une cavité sphérique par rapport à un domaine",
14056 regles=(UN_PARMI('CHAM_GD','RESULTAT'),
14057 EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14058 MODELE = SIMP(statut='o',typ=modele),
14059 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
14060 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
14061 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14062 NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
14063 NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14064 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
14065 CHAM_GD = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14066 RESULTAT = SIMP(statut='f',typ=(evol_noli) ),
14067 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14068 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14069 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14070 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
14071 LIST_ORDRE = SIMP(statut='f',typ=listis),
14072 INST = SIMP(statut='f',typ='R',max='**'),
14073 LIST_INST = SIMP(statut='f',typ=listr8),
14076 INDIC_ENER = FACT(statut='f',min=1,max='**',
14077 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14078 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14079 MAILLE = SIMP(statut='f',typ=ma,max='**'),
14080 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
14082 b_indic_ener = BLOC(condition = "( INDIC_ENER != None )",
14083 fr="calcul un indicateur global de perte de proportionnalité du chargement",
14084 MODELE = SIMP(statut='o',typ=modele),
14085 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
14086 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14087 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
14088 RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
14089 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14090 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14091 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14092 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14093 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
14094 LIST_ORDRE = SIMP(statut='f',typ=listis),
14095 INST = SIMP(statut='f',typ='R',max='**'),
14096 LIST_INST = SIMP(statut='f',typ=listr8),
14099 INDIC_SEUIL = FACT(statut='f',min=1,max='**',
14100 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14101 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14102 MAILLE = SIMP(statut='f',typ=ma,max='**'),
14103 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
14105 b_indic_seuil = BLOC(condition = "( INDIC_SEUIL != None )",
14106 fr="calcul un indicateur global de perte de proportionnalité du chargement",
14107 MODELE = SIMP(statut='o',typ=modele),
14108 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
14109 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14110 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
14111 RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
14112 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14113 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14114 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14115 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14116 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
14117 LIST_ORDRE = SIMP(statut='f',typ=listis),
14118 INST = SIMP(statut='f',typ='R',max='**'),
14119 LIST_INST = SIMP(statut='f',typ=listr8),
14122 CHAR_LIMITE = FACT(statut='f',min=0,max=1,
14123 CHAR_CSTE = SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON")
14125 b_char_limite = BLOC(condition = "( CHAR_LIMITE != None )",
14126 fr="post-traitement du calcul de la charge limite",
14127 MODELE = SIMP(statut='o',typ=modele),
14128 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
14129 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
14130 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14131 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
14132 RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
14133 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14134 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14135 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14136 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14137 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
14138 LIST_ORDRE = SIMP(statut='f',typ=listis),
14139 INST = SIMP(statut='f',typ='R',max='**'),
14140 LIST_INST = SIMP(statut='f',typ=listr8),
14143 CARA_GEOM = FACT(statut='f',min=1,max='**',
14144 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14145 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14146 MAILLE = SIMP(statut='f',typ=ma,max='**'),
14147 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
14148 SYME_X = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
14149 SYME_Y = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
14150 ORIG_INER = SIMP(statut='f',typ='R',min=2,max=2),
14152 b_cara_geom = BLOC(condition = "( CARA_GEOM != None )",
14153 fr="calcul des caractéristiques géométriques d'un section de poutre",
14154 MODELE = SIMP(statut='o',typ=modele),
14155 CHAM_MATER = SIMP(statut='f',typ=cham_mater),
14156 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14157 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
14160 CARA_POUTRE = FACT(statut='f',min=1,max='**',
14161 regles=(AU_MOINS_UN('TOUT','GROUP_MA'),
14162 ENSEMBLE('LONGUEUR','LIAISON','MATERIAU'),),
14163 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14164 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
14165 GROUP_MA_INTE = SIMP(statut='f',typ=grma,max='**'),
14166 CARA_GEOM = SIMP(statut='f',typ=tabl_cara_geom),
14167 LAPL_PHI = SIMP(statut='f',typ=evol_ther),
14168 LAPL_PHI_Y = SIMP(statut='f',typ=evol_ther),
14169 LAPL_PHI_Z = SIMP(statut='f',typ=evol_ther),
14170 LIAISON = SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT")),
14171 LONGUEUR = SIMP(statut='f',typ='R'),
14172 MATERIAU = SIMP(statut='f',typ=mater),
14173 OPTION = SIMP(statut='f',typ='TXM',
14174 into=("CARA_TORSION","CARA_CISAILLEMENT","CARA_GAUCHI") ),
14176 b_cara_poutre = BLOC(condition = "( CARA_POUTRE != None )",
14177 fr="calcul des caractéristiques mécaniques d'un section de poutre",
14178 MODELE = SIMP(statut='o',typ=modele),
14179 CHAM_MATER = SIMP(statut='f',typ=cham_mater),
14180 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14181 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
14184 AIRE_INTERNE = FACT(statut='f',min=1,max='**',
14185 GROUP_MA_BORD = SIMP(statut='o',typ=grma,max='**'),
14187 b_aire_interne = BLOC(condition = "( AIRE_INTERNE != None )",
14188 fr="calcul de l'aire d'un trou dans un maillage 2D",
14189 MODELE = SIMP(statut='o',typ=modele),
14192 TRAV_EXT = FACT(statut='f',min=1,max=1),
14193 b_trav_ext = BLOC(condition = "( TRAV_EXT != None )",
14194 fr="calcul du travail des efforts extérieurs",
14195 RESULTAT = SIMP(statut='o',typ=(evol_elas,evol_noli,dyna_trans) ),
14196 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14197 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14198 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14201 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
14202 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14205 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
14206 # CONFIGURATION MANAGEMENT OF EDF VERSION
14207 # ======================================================================
14208 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14209 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14210 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14211 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14212 # (AT YOUR OPTION) ANY LATER VERSION.
14214 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14215 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14216 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14217 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14219 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14220 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14221 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14222 # ======================================================================
14223 POST_FATI_ALEA=OPER(nom="POST_FATI_ALEA",op=170,sd_prod=tabl_post_f_alea,docu="U4.84.03-c",reentrant='n',
14224 fr="Calcul du dommage subi par une structure soumise à unesollicitation de type aléatoire",
14225 regles=(ENSEMBLE('MOMENT_SPEC_0','MOMENT_SPEC_2'),
14226 PRESENT_PRESENT( 'MOMENT_SPEC_4','MOMENT_SPEC_0'),
14227 UN_PARMI('TABL_POST_ALEA','MOMENT_SPEC_0'), ),
14228 MOMENT_SPEC_0 =SIMP(statut='f',typ='R'),
14229 MOMENT_SPEC_2 =SIMP(statut='f',typ='R'),
14230 MOMENT_SPEC_4 =SIMP(statut='f',typ='R'),
14231 TABL_POST_ALEA =SIMP(statut='f',typ=tabl_post_alea),
14232 COMPTAGE =SIMP(statut='o',typ='TXM',into=("PIC","NIVEAU")),
14233 DUREE =SIMP(statut='f',typ='R',defaut= 1.),
14234 CORR_KE =SIMP(statut='f',typ='TXM',into=("RCCM",)),
14235 DOMMAGE =SIMP(statut='o',typ='TXM',into=("WOHLER",)),
14236 MATER =SIMP(statut='o',typ=mater),
14237 TITRE =SIMP(statut='f',typ='TXM',max='**'),
14239 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
14240 # CONFIGURATION MANAGEMENT OF EDF VERSION
14241 # ======================================================================
14242 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14243 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14244 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14245 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14246 # (AT YOUR OPTION) ANY LATER VERSION.
14248 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14249 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14250 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14251 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14253 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14254 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14255 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14256 # ======================================================================
14257 POST_FATIGUE=OPER(nom="POST_FATIGUE",op=136,sd_prod=tabl_post_fatig,docu="U4.83.01-d1",reentrant='n',
14258 fr="Calcul du dommage subi par une structure soumise à une histoire de chargement",
14260 CHARGEMENT = SIMP(statut='o',typ='TXM',into=("UNIAXIAL","PERIODIQUE","QUELCONQUE")),
14262 b_uniaxial = BLOC( condition = "CHARGEMENT=='UNIAXIAL'",
14263 regles=(PRESENT_PRESENT('CORR_KE','MATER'),
14264 PRESENT_PRESENT('CORR_SIGM_MOYE','MATER'),
14265 PRESENT_PRESENT('DOMMAGE','MATER'),),
14266 HISTOIRE = FACT(statut='o',min=1,max=1,
14267 regles=(UN_PARMI('SIGM','EPSI'),),
14268 SIGM = SIMP(statut='f',typ=fonction),
14269 EPSI = SIMP(statut='f',typ=fonction),),
14270 COMPTAGE = SIMP(statut='o',typ='TXM',into=("RAINFLOW","RCCM","NATUREL")),
14271 DELTA_OSCI = SIMP(statut='f',typ='R',defaut= 0.0E+0),
14272 COEF_MULT = FACT(statut='f',min=1,max=1,
14273 KT = SIMP(statut='o',typ='R'),),
14274 CORR_KE = SIMP(statut='f',typ='TXM',into=("RCCM",)),
14275 DOMMAGE = SIMP(statut='f',typ='TXM',into=("WOHLER","MANSON_COFFIN",
14276 "TAHERI_MANSON","TAHERI_MIXTE")),
14277 MATER = SIMP(statut='f',typ=mater),
14278 CORR_SIGM_MOYE = SIMP(statut='f',typ='TXM',into=("GOODMAN","GERBER")),
14279 TAHERI_NAPPE = SIMP(statut='f',typ=fonction),
14280 TAHERI_FONC = SIMP(statut='f',typ=fonction),
14281 CUMUL = SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
14284 b_periodique = BLOC( condition = "CHARGEMENT=='PERIODIQUE'",
14285 HISTOIRE = FACT(statut='o',min=1,max=1,
14286 SIGM_XX = SIMP(statut='o',typ=fonction),
14287 SIGM_YY = SIMP(statut='o',typ=fonction),
14288 SIGM_ZZ = SIMP(statut='o',typ=fonction),
14289 SIGM_XY = SIMP(statut='o',typ=fonction),
14290 SIGM_XZ = SIMP(statut='f',typ=fonction),
14291 SIGM_YZ = SIMP(statut='f',typ=fonction),),
14292 CRITERE = SIMP(statut='o',typ='TXM',into=("CROSSLAND","PAPADOPOULOS")),
14293 DOMMAGE = SIMP(statut='f',typ='TXM',into=("WOHLER",)),
14294 MATER = SIMP(statut='o',typ=mater),
14295 COEF_CORR = SIMP(statut='f',typ='R'),
14298 b_quelconque = BLOC( condition = "CHARGEMENT=='QUELCONQUE'",
14299 HISTOIRE = FACT(statut='o',min=1,max=1,
14300 SIGM_XX = SIMP(statut='o',typ=fonction),
14301 SIGM_YY = SIMP(statut='o',typ=fonction),
14302 SIGM_ZZ = SIMP(statut='o',typ=fonction),
14303 SIGM_XY = SIMP(statut='o',typ=fonction),
14304 SIGM_XZ = SIMP(statut='f',typ=fonction),
14305 SIGM_YZ = SIMP(statut='f',typ=fonction),
14306 EPSP = SIMP(statut='o',typ=fonction),
14307 TEMP = SIMP(statut='o',typ=fonction),),
14308 DOMMAGE = SIMP(statut='f',typ='TXM',into=("LEMAITRE",),defaut="LEMAITRE"),
14309 MATER = SIMP(statut='o',typ=mater),
14310 CUMUL = SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
14313 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14314 TITRE =SIMP(statut='f',typ='TXM',max='**'),
14316 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
14317 # CONFIGURATION MANAGEMENT OF EDF VERSION
14318 # ======================================================================
14319 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14320 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14321 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14322 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14323 # (AT YOUR OPTION) ANY LATER VERSION.
14325 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14326 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14327 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14328 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14330 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14331 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14332 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14333 # ======================================================================
14334 POST_GOUJ2E=OPER(nom="POST_GOUJ2E",op=187,sd_prod=tabl_post_gouj2e,reentrant='n',
14335 fr=" ",docu="U4.GJ.30-a",
14336 TABLE =SIMP(statut='o',typ=tabl_post_rele),
14338 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
14339 # CONFIGURATION MANAGEMENT OF EDF VERSION
14340 # ======================================================================
14341 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14342 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14343 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14344 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14345 # (AT YOUR OPTION) ANY LATER VERSION.
14347 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14348 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14349 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14350 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14352 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14353 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14354 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14355 # ======================================================================
14356 # RESPONSABLE JMBHH01 J.M.PROIX
14357 POST_K1_K2_K3=OPER(nom="POST_K1_K2_K3",op=188,sd_prod=tabl_post_k,
14358 fr="Calcul des FIC par extrapolation du champ de déplacements sur les lèvres de la fissure",
14359 docu="U4.82.05-b2",reentrant='n',
14361 regles=(UN_PARMI('RESULTAT','TABL_DEPL_SUP'),
14362 PRESENT_PRESENT('TABL_DEPL_SUP','TABL_DEPL_INF'),),
14364 MODELISATION =SIMP(statut='o',typ='TXM',
14365 into=("3D","AXIS","D_PLAN","C_PLAN"),
14366 fr="Modélisation cohérente avec celle utilisée pour le calcul des déplacements"),
14367 FOND_3D =SIMP(statut='f',typ=fond_fiss),
14368 FOND_FISS =SIMP(statut='f',typ=fond_fiss),
14369 b_fond_3d =BLOC (condition="(FOND_3D != None) or (FOND_FISS!= None)",
14370 MAILLAGE = SIMP(statut='o',typ=maillage),
14371 PRECISION = SIMP(statut='f',typ='R',defaut=0.001),
14372 NOEUD = SIMP(statut='f',typ=no,max='**'),
14373 GROUP_NO = SIMP(statut='f',typ=grno,max='**'),
14374 SANS_NOEUD = SIMP(statut='f',typ=no,max='**'),
14375 SANS_GROUP_NO = SIMP(statut='f',typ=grno,max='**')
14377 MATER =SIMP(statut='o',typ=mater,
14378 fr="Matériau homogène et isotrope cohérent avec celui utilisé pour le calcul des déplacements"),
14379 RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_noli),
14380 fr="Table déplacement des noeuds de la lèvre supérieure et inférieure"),
14381 TABL_DEPL_SUP =SIMP(statut='f',typ=tabl_post_rele,
14382 fr="Table issue de post_releve_t sur les noeuds de la lèvre supérieure"),
14383 TABL_DEPL_INF =SIMP(statut='f',typ=tabl_post_rele,
14384 fr="Table issue de post_releve_t sur les noeuds de la lèvre inférieure"),
14385 ABSC_CURV_MAXI=SIMP(statut='f',typ='R',
14386 fr="distance maximum à partir du fond de fissure à utiliser pour le calcul"),
14387 PREC_VIS_A_VIS= SIMP(statut='f',typ='R',defaut=0.1),
14388 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14389 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
14390 LIST_ORDRE =SIMP(statut='f',typ=listis),
14391 INST =SIMP(statut='f',typ='R',max='**'),
14392 LIST_INST =SIMP(statut='f',typ=listr8),
14393 b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)",
14394 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
14395 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
14397 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14398 VECT_K1 =SIMP(statut='o',typ='R',max='**',
14399 fr="Vecteur normal au plan de fissure, orienté de la lèvre inférieure vers la lèvre supérieure"),
14400 TITRE =SIMP(statut='f',typ='TXM',max='**'),
14402 #& MODIF COMMANDE DATE 29/03/2002 AUTEUR CIBHHBC R.FERNANDES
14403 # CONFIGURATION MANAGEMENT OF EDF VERSION
14404 # ======================================================================
14405 # COPYRIGHT (C) 1991 - 2002 EDF R&D WWW.CODE-ASTER.ORG
14406 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14407 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14408 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14409 # (AT YOUR OPTION) ANY LATER VERSION.
14411 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14412 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14413 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14414 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14416 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14417 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14418 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14421 # ======================================================================
14423 POST_K_BETA=OPER(nom="POST_K_BETA",op=198,sd_prod=tabl_post_beta,
14424 fr="Calcul des FIC par la méthode K_BETA",
14425 docu="U4.82.07-a",reentrant='n',
14426 MAILLAGE = SIMP(statut='o',typ=maillage),
14427 MATER_REV = SIMP(statut='o',typ=mater),
14428 EPAIS_REV = SIMP(statut='o',typ='R'),
14429 FISSURE = FACT(statut='o',min=1,max=1,
14430 DECALAGE = SIMP(statut='f',typ='R',defaut=-2.e-04),
14431 PROFONDEUR = SIMP(statut='o',typ='R'),
14432 LONGUEUR = SIMP(statut='o',typ='R'),
14433 ORIENTATION = SIMP(statut='o',typ='TXM',
14434 into=("CIRC","LONGI"),),
14436 K1D = FACT(statut='o',min=1,max='**',
14437 TABL_MECA_REV = SIMP(statut='o',typ=(tabl_post_rele)),
14438 TABL_MECA_MDB = SIMP(statut='o',typ=(tabl_post_rele)),
14439 TABL_THER = SIMP(statut='o',typ=(tabl_post_rele)),
14440 INTITULE = SIMP(statut='o',typ='TXM' ),
14442 INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14443 TITRE = SIMP(statut='f',typ='TXM',max='**'),
14445 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
14446 # CONFIGURATION MANAGEMENT OF EDF VERSION
14447 # ======================================================================
14448 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14449 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14450 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14451 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14452 # (AT YOUR OPTION) ANY LATER VERSION.
14454 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14455 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14456 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14457 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14459 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14460 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14461 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14462 # ======================================================================
14463 # RESPONSABLE JMBHH01 J.M.PROIX
14464 POST_RCCM=OPER(nom="POST_RCCM",op= 165,sd_prod=tabl_post_rccm,
14465 fr="Vérification des critères de niveau 0 et certains critères de niveau A du RCC-M-B3200 (Edition 1991)",
14466 docu="U4.83.11-d1",reentrant='n',
14467 MATER =SIMP(statut='o',typ=mater ),
14468 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="VALE_MAX",into=("VALE_MAX","VALE_INST") ),
14469 TITRE =SIMP(statut='f',typ='TXM',max='**'),
14470 MAILLAGE =SIMP(statut='f',typ=maillage),
14471 OPTION =SIMP(statut='o',typ='TXM',max='**',
14477 SEGMENT =FACT(statut='o',min=01,max='**',fr="Segment sur lequel s effectue le depouillement",
14478 regles=(AU_MOINS_UN('CHEMIN','GROUP_NO','NOEUD'),
14479 EXCLUS('CHEMIN','GROUP_NO'),
14480 EXCLUS('CHEMIN','NOEUD'),),
14481 INTITULE =SIMP(statut='f',typ='TXM' ),
14482 CHEMIN =SIMP(statut='f',typ=(courbe,surface),),
14483 NOEUD =SIMP(statut='f',typ=no,max='**'),
14484 GROUP_NO =SIMP(statut='f',typ=grno),
14485 b_acce_noeud =BLOC(condition="(NOEUD != None)or(GROUP_NO != None)",
14486 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
14487 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
14490 TRANSITOIRE =FACT(statut='o',min=01,max='**',fr="transitoire à dépouiller",
14491 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
14492 RESULTAT =SIMP(statut='o',typ=(evol_elas,evol_noli) ),
14493 RESU_SIGM_THER =SIMP(statut='f',typ=(evol_elas,evol_noli),fr="résultat sous chargement thermique seul" ),
14494 NB_OCCUR =SIMP(statut='f',typ='I',defaut= 1,fr="nombre d occurences réelles de ce transitoire" ),
14495 NOM_CHAM =SIMP(statut='o',typ='TXM',into=("SIEF_ELNO_ELGA","SIGM_ELNO_DEPL") ),
14496 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14497 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
14498 LIST_ORDRE =SIMP(statut='f',typ=listis ),
14499 INST =SIMP(statut='f',typ='R',max='**'),
14500 LIST_INST =SIMP(statut='f',typ=listr8 ),
14501 b_inst =BLOC(condition = "(INST != None) or (LIST_INST != None)" ,
14502 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
14503 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
14507 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
14508 # ======================================================================
14509 # CONFIGURATION MANAGEMENT OF EDF VERSION
14510 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14511 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14512 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14513 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14514 # (AT YOUR OPTION) ANY LATER VERSION.
14516 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14517 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14518 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14519 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14521 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14522 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14523 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14524 # ======================================================================
14525 # RESPONSABLE G8BHHXD X.DESROCHES
14526 POST_RELEVE_T=OPER(nom="POST_RELEVE_T",op=51,sd_prod=tabl_post_rele,docu="U4.81.21-e1",reentrant='n',
14527 ACTION =FACT(statut='o',min=01,max='**',
14528 regles=(AU_MOINS_UN('CHEMIN','GROUP_NO','NOEUD'),
14529 EXCLUS('CHEMIN','GROUP_NO'),
14530 EXCLUS('CHEMIN','NOEUD'),
14531 PRESENT_ABSENT('CHEMIN','GROUP_MA','MAILLE'),
14532 UN_PARMI('RESULTAT','CHAM_GD'),
14533 UN_PARMI('TOUT_CMP','NOM_CMP','INVARIANT','ELEM_PRINCIPAUX','RESULTANTE'),
14534 PRESENT_PRESENT('TRAC_DIR','DIRECTION'),
14535 PRESENT_PRESENT('TRAC_DIRECTION','DIRECTION'),
14536 ENSEMBLE('MOMENT','POINT'),
14537 PRESENT_PRESENT('MOMENT','RESULTANTE'),
14538 PRESENT_ABSENT('TOUT_CMP','TRAC_DIRECTION','TRAC_NORMALE'),
14539 PRESENT_ABSENT('TOUT_CMP','TRAC_DIR','TRAC_NOR'),
14540 PRESENT_PRESENT('ORIGINE','AXE_Z'),),
14541 INTITULE =SIMP(statut='o',typ='TXM'),
14542 CHEMIN =SIMP(statut='f',typ=(courbe,surface) ),
14543 NOEUD =SIMP(statut='f',typ=no,max='**'),
14544 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14545 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
14546 MAILLE =SIMP(statut='f',typ=ma,max='**'),
14547 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
14548 FORMAT_C =SIMP(statut='f',typ='TXM',defaut="MODULE",into=("MODULE","REEL","IMAG")),
14549 CHAM_GD =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r,cham_no_var2_r,
14550 cham_elem_sief_r,cham_elem_epsi_r,cham_elem_flux_r,cham_elem_crit_r,
14551 cham_elem_ener_r,cham_elem_dbel_r,cham_elem_pres_r,cham_elem_erreur,
14552 cham_elem_vari_r,cham_no_depl_c,cham_no_temp_c,cham_no_pres_c,
14553 cham_elem_sief_c,cham_elem_epsi_c)),
14554 RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_ther,evol_noli,dyna_trans,
14555 mode_meca,mode_flamb,mode_acou,base_modale,mode_stat,
14556 mult_elas,fourier_elas,dyna_harmo,acou_harmo)),
14557 b_sensibilite =BLOC(condition="RESULTAT != None",
14558 fr="Définition des paramètres de sensibilité",
14559 ang="Definition of sensitivity parameters",
14560 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
14561 fr="Liste des paramètres de sensibilité.",
14562 ang="List of sensitivity parameters"),),
14564 b_extrac =BLOC(condition = "RESULTAT != None",fr="extraction des résultats",
14565 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','NUME_MODE','LIST_MODE',
14566 'INST','LIST_INST','FREQ','LIST_FREQ','NOEUD_CMP','NOM_CAS'), ),
14567 NOM_CHAM =SIMP(statut='o',typ='TXM' ),
14568 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14569 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
14570 LIST_ORDRE =SIMP(statut='f',typ=listis),
14571 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
14572 LIST_MODE =SIMP(statut='f',typ=listis),
14573 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
14574 NOM_CAS =SIMP(statut='f',typ='TXM',max='**'),
14575 FREQ =SIMP(statut='f',typ='R',max='**'),
14576 LIST_FREQ =SIMP(statut='f',typ=listr8),
14577 INST =SIMP(statut='f',typ='R',max='**'),
14578 LIST_INST =SIMP(statut='f',typ=listr8),
14579 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
14580 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14582 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",)),
14583 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
14584 INVARIANT =SIMP(statut='f',typ='TXM',into=("OUI",)),
14585 ELEM_PRINCIPAUX =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14586 RESULTANTE =SIMP(statut='f',typ='TXM',max='**'),
14587 MOMENT =SIMP(statut='f',typ='TXM',max='**'),
14588 POINT =SIMP(statut='f',typ='R',max='**'),
14590 REPERE =SIMP(statut='f',typ='TXM',defaut="GLOBAL",
14591 into=("GLOBAL","LOCAL","POLAIRE","UTILISATEUR","CYLINDRIQUE"),),
14592 ANGL_NAUT =SIMP(statut='f',typ='R',min=3,max=3),
14593 ORIGINE =SIMP(statut='f',typ='R',min=3,max=3),
14594 AXE_Z =SIMP(statut='f',typ='R',min=3,max=3),
14596 TRAC_NOR =SIMP(statut='f',typ='TXM',into=("OUI",)),
14597 TRAC_DIR =SIMP(statut='f',typ='TXM',into=("OUI",)),
14598 DIRECTION =SIMP(statut='f',typ='R',max='**'),
14599 TRAC_DIRECTION =SIMP(statut='f',typ='TXM',into=("OUI",)),
14600 TRAC_NORMALE =SIMP(statut='f',typ='TXM',into=("OUI",)),
14602 VECT_Y =SIMP(statut='f',typ='R',max='**'),
14603 MOYE_NOEUD =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
14604 OPERATION =SIMP(statut='o',typ='TXM',into=("EXTRACTION","MOYENNE"),max=2),
14606 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14607 TITRE =SIMP(statut='f',typ='TXM',max='**'),
14609 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
14610 # CONFIGURATION MANAGEMENT OF EDF VERSION
14611 # ======================================================================
14612 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14613 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14614 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14615 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14616 # (AT YOUR OPTION) ANY LATER VERSION.
14618 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14619 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14620 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14621 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14623 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14624 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14625 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14626 # ======================================================================
14627 POST_SIMPLIFIE=OPER(nom="POST_SIMPLIFIE",op=185,sd_prod=tabl_post_simpli,
14628 fr=" ",docu="U4.PS.10-a",reentrant='n',
14629 MATER =SIMP(statut='o',typ=(mater) ),
14630 DEF_EQUI =FACT(statut='f',min=01,max=01,
14631 METHODE =SIMP(statut='f',typ='TXM',max='**',defaut="UTO_2_3",
14632 into=("UTO_2_3",) ),
14633 EPAIS =SIMP(statut='o',typ='R'),
14634 LONG_FISS =SIMP(statut='o',typ='R'),
14635 LONG_LIGA_INT =SIMP(statut='o',typ='R'),
14636 DEXT =SIMP(statut='o',typ='R'),
14637 TEMP_ANALYSE =SIMP(statut='f',typ='R'),
14640 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
14641 # CONFIGURATION MANAGEMENT OF EDF VERSION
14642 # ======================================================================
14643 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14644 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14645 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14646 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14647 # (AT YOUR OPTION) ANY LATER VERSION.
14649 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14650 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14651 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14652 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14654 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14655 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14656 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14657 # ======================================================================
14658 POST_USURE=OPER(nom="POST_USURE",op=153,sd_prod=tabl_post_usur,docu="U4.84.05-d1",reentrant='f',
14659 fr="Calcul des volumes d'usure et des profondeurs d'usure",
14660 regles=(UN_PARMI('RESU_GENE','PUIS_USURE'),
14661 PRESENT_PRESENT('RESU_GENE','NOEUD'),
14662 UN_PARMI('INST','LIST_INST'),),
14663 ETAT_INIT =FACT(statut='f',min=01,max=01,
14664 TABL_USURE =SIMP(statut='f',typ=tabl_post_usur),
14665 INST_INIT =SIMP(statut='f',typ='R'),
14667 RESU_GENE =SIMP(statut='f',typ=tran_gene),
14668 NOEUD =SIMP(statut='f',typ=no,max=1),
14669 INST_INIT =SIMP(statut='f',typ='R',defaut=-1.0E+0),
14670 INST_FIN =SIMP(statut='f',typ='R'),
14671 NB_BLOC =SIMP(statut='f',typ='I',defaut= 1 ),
14672 PUIS_USURE =SIMP(statut='f',typ='R'),
14673 LOI_USURE =SIMP(statut='o',typ='TXM',into=("ARCHARD","KWU_EPRI","EDF_MZ")),
14674 b_archard =BLOC(condition = "LOI_USURE == 'ARCHARD'",
14675 regles=(UN_PARMI('MOBILE','MATER_USURE','SECTEUR'),
14676 EXCLUS('MATER_USURE','OBSTACLE'),
14677 EXCLUS('MOBILE','USURE_OBST'),),
14678 MOBILE =FACT(statut='f',min=01,max=01,
14679 COEF_USURE =SIMP(statut='o',typ='R'),
14681 OBSTACLE =FACT(statut='f',min=01,max=01,
14682 COEF_USURE =SIMP(statut='o',typ='R'),
14684 SECTEUR =FACT(statut='f',min=01,max='**',
14685 CONTACT =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
14686 "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
14687 "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
14688 COEF_USUR_MOBILE=SIMP(statut='f',typ='R'),
14689 COEF_USUR_OBST =SIMP(statut='f',typ='R'),
14690 ANGL_INIT =SIMP(statut='f',typ='R'),
14691 ANGL_FIN =SIMP(statut='f',typ='R'),
14693 MATER_USURE =SIMP(statut='f',typ='TXM'),
14694 USURE_OBST =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
14696 b_kwu_epri =BLOC(condition = "LOI_USURE == 'KWU_EPRI'",
14697 regles=(UN_PARMI('MOBILE','MATER_USURE'),
14698 EXCLUS('MATER_USURE','OBSTACLE'),
14699 EXCLUS('MOBILE','USURE_OBST'),),
14700 MOBILE =FACT(statut='f',min=01,max=01,
14701 COEF_FNOR =SIMP(statut='f',typ='R'),
14702 COEF_VTAN =SIMP(statut='f',typ='R'),
14703 COEF_USURE =SIMP(statut='f',typ='R'),
14704 COEF_K =SIMP(statut='f',typ='R',defaut=5.0E+0),
14705 COEF_C =SIMP(statut='f',typ='R',defaut=10.0E+0),
14707 OBSTACLE =FACT(statut='f',min=01,max=01,
14708 COEF_FNOR =SIMP(statut='f',typ='R' ),
14709 COEF_VTAN =SIMP(statut='f',typ='R' ),
14710 COEF_USURE =SIMP(statut='o',typ='R'),
14711 COEF_K =SIMP(statut='f',typ='R',defaut=5.0E+0),
14712 COEF_C =SIMP(statut='f',typ='R',defaut=10.0E+0),
14714 MATER_USURE =SIMP(statut='f',typ='TXM'),
14715 USURE_OBST =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
14716 FNOR_MAXI =SIMP(statut='f',typ='R' ),
14717 VTAN_MAXI =SIMP(statut='f',typ='R' ),
14719 b_edf_mz =BLOC(condition = "LOI_USURE == 'EDF_MZ'",
14720 regles=(UN_PARMI('MOBILE','MATER_USURE'),
14721 EXCLUS('MATER_USURE','OBSTACLE'),
14722 EXCLUS('MOBILE','USURE_OBST'),),
14723 MOBILE =FACT(statut='f',min=01,max=01,
14724 COEF_USURE =SIMP(statut='f',typ='R',defaut=1.0E-13),
14725 COEF_B =SIMP(statut='f',typ='R',defaut=1.2E+0),
14726 COEF_N =SIMP(statut='f',typ='R',defaut=2.44E-8),
14727 COEF_S =SIMP(statut='f',typ='R',defaut=1.14E-16),
14729 OBSTACLE =FACT(statut='f',min=01,max=01,
14730 COEF_USURE =SIMP(statut='o',typ='R',defaut=1.0E-13),
14731 COEF_B =SIMP(statut='f',typ='R',defaut=1.2E+0),
14732 COEF_N =SIMP(statut='f',typ='R',defaut=2.44E-8),
14733 COEF_S =SIMP(statut='f',typ='R',defaut=1.14E-16),
14735 MATER_USURE =SIMP(statut='f',typ='TXM'),
14736 USURE_OBST =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
14738 CONTACT =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
14739 "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
14740 "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
14741 RAYON_MOBILE =SIMP(statut='f',typ='R'),
14742 RAYON_OBST =SIMP(statut='f',typ='R'),
14743 LARGEUR_OBST =SIMP(statut='f',typ='R'),
14744 ANGL_INCLI =SIMP(statut='f',typ='R'),
14745 ANGL_ISTHME =SIMP(statut='f',typ='R'),
14746 ANGL_IMPACT =SIMP(statut='f',typ='R'),
14747 INST =SIMP(statut='f',typ='R',max='**'),
14748 LIST_INST =SIMP(statut='f',typ=listr8),
14749 COEF_INST =SIMP(statut='f',typ='R',defaut=1.0E+0),
14750 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14751 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
14753 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
14754 # CONFIGURATION MANAGEMENT OF EDF VERSION
14755 # ======================================================================
14756 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14757 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14758 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14759 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14760 # (AT YOUR OPTION) ANY LATER VERSION.
14762 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14763 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14764 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14765 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14767 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14768 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14769 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14770 # ======================================================================
14771 POST_ZAC=OPER(nom="POST_ZAC",op= 175,sd_prod=mult_elas,docu="U4.83.21-b",reentrant='n',
14772 fr="Donne l'état adapté ou accommodé d'une structure sous chargement cyclique élastique affine ou non",
14773 MODELE =SIMP(statut='o',typ=modele),
14774 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
14775 EXCIT =FACT(statut='o',min=01,max='**',
14776 CHARGE =SIMP(statut='o',typ=char_meca),
14777 FONC_MULT =SIMP(statut='f',typ=fonction),
14778 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",into=("FIXE_CSTE",)),
14780 EVOL_ELAS =SIMP(statut='o',typ=evol_elas),
14781 b_evol_elas =BLOC(condition="EVOL_ELAS != None",
14782 regles=(UN_PARMI('NUME_ORDRE','LIST_INST','INST'),),
14783 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
14784 LIST_INST =SIMP(statut='f',typ=listr8),
14785 INST =SIMP(statut='f',typ='R',max='**'),
14787 TEMP_ZAC =SIMP(statut='f',typ='R',defaut=0.0E+0),
14788 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
14789 b_evol_noli =BLOC(condition="EVOL_NOLI != None",
14790 INST_MAX =SIMP(statut='o',typ='R'),
14792 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
14793 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14796 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
14797 # CONFIGURATION MANAGEMENT OF EDF VERSION
14798 # ======================================================================
14799 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14800 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14801 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14802 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14803 # (AT YOUR OPTION) ANY LATER VERSION.
14805 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14806 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14807 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14808 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14810 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14811 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14812 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14813 # ======================================================================
14814 POURSUITE=MACRO(nom="POURSUITE",op=0,repetable='n',fr="Poursuite d une étude",
14815 docu="U4.11.03-g2",sd_prod = ops.POURSUITE,
14816 op_init = ops.POURSUITE_context,fichier_ini = 1,
14817 PAR_LOT =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
14818 into=("OUI","NON"),defaut="OUI"),
14819 BASE =FACT(fr="définition des parmètres associés aux bases JEVEUX",
14820 statut='f',min=1,max=3,
14821 FICHIER =SIMP(fr="nom de la base",statut='o',typ='TXM'),
14822 TITRE =SIMP(statut='f',typ='TXM'),
14823 CAS =SIMP(statut='f',typ='TXM'),
14824 NMAX_ENRE =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
14825 LONG_ENRE =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
14826 LONG_REPE =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
14828 IMPRESSION =FACT(statut='f',min=1,max=3,
14829 FICHIER =SIMP(statut='o',typ='TXM'),
14830 UNITE =SIMP(statut='o',typ='I'),
14832 CATALOGUE =FACT(statut='f',min=1,max=10,
14833 FICHIER =SIMP(statut='o',typ='TXM'),
14834 TITRE =SIMP(statut='f',typ='TXM'),
14835 UNITE =SIMP(statut='f',typ='I'),
14837 DEBUG =FACT(fr="option de déboggage reservée aux développeurs",
14838 statut='f',min=1,max=1,
14839 JXVERI =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
14840 statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
14841 JEVEUX =SIMP(fr="force les déchargement sur disque",
14842 statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
14843 ENVIMA =SIMP(fr="imprime les valeurs définies dans ENVIMA",
14844 statut='f',typ='TXM',into=('TES',)),
14846 MEMOIRE =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=1,max=1,
14847 GESTION =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
14848 TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
14849 TAILLE =SIMP(statut='f',typ='I'),
14850 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut=800.),
14851 PARTITION =SIMP(statut='f',typ='R' ),
14853 CODE =FACT("définition d un nom pour l'esemble d'une étude",
14854 statut='f',min=1,max=1,
14855 NOM =SIMP(statut='o',typ='TXM'),
14856 UNITE =SIMP(statut='f',typ='I',defaut=15),
14859 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
14860 # CONFIGURATION MANAGEMENT OF EDF VERSION
14861 # ======================================================================
14862 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14863 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14864 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14865 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14866 # (AT YOUR OPTION) ANY LATER VERSION.
14868 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14869 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14870 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14871 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14873 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14874 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14875 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14876 # ======================================================================
14877 PRE_CHAR_IDEAS=PROC(nom="PRE_CHAR_IDEAS",op=100,docu="U7.01.02-e",
14878 fr="Conversion de conditions aux limites et chargements IDEAS en commandes Aster",
14879 UNITE_IDEAS =SIMP(statut='f',typ='I',defaut=19),
14880 UNITE_ASTER =SIMP(statut='f',typ='I',defaut=21),
14881 MODELE =SIMP(statut='o',typ=modele),
14883 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
14884 # CONFIGURATION MANAGEMENT OF EDF VERSION
14885 # ======================================================================
14886 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14887 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14888 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14889 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14890 # (AT YOUR OPTION) ANY LATER VERSION.
14892 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14893 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14894 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14895 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14897 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14898 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14899 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14900 # ======================================================================
14901 PRE_GIBI=PROC(nom="PRE_GIBI",op=49,docu="U7.01.11-f",
14902 fr="Conversion d un fichier de maillage GIBI",
14903 UNITE_GIBI =SIMP(statut='f',typ='I',defaut=19),
14904 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=20),
14906 #& MODIF COMMANDE DATE 11/06/2002 AUTEUR DURAND C.DURAND
14907 # CONFIGURATION MANAGEMENT OF EDF VERSION
14908 # ======================================================================
14909 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14910 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14911 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14912 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14913 # (AT YOUR OPTION) ANY LATER VERSION.
14915 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14916 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14917 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14918 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14920 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14921 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14922 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14923 # ======================================================================
14925 from Macro.pre_gmsh_ops import pre_gmsh_ops
14927 PRE_GMSH=MACRO(nom="PRE_GMSH",op=pre_gmsh_ops,docu="U7.01.01-f",
14928 fr="Conversion d un fichier universel GMSH au format Aster",
14929 UNITE_GMSH =SIMP(statut='f',typ='I',defaut=19),
14930 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=20),
14931 MODI_QUAD =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
14933 #& MODIF COMMANDE DATE 11/06/2002 AUTEUR DURAND C.DURAND
14934 # CONFIGURATION MANAGEMENT OF EDF VERSION
14935 # ======================================================================
14936 # COPYRIGHT (C) 1991 - 2002 EDF R&D WWW.CODE-ASTER.ORG
14937 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14938 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14939 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14940 # (AT YOUR OPTION) ANY LATER VERSION.
14942 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14943 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14944 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14945 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14947 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14948 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14949 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14950 # ======================================================================
14952 PRE_GMSH_LECT=PROC(nom="PRE_GMSH_LECT",op=47,docu="U7.01.01-f",
14953 fr="Conversion d un fichier universel GMSH au format Aster",
14954 UNITE_GMSH =SIMP(statut='f',typ='I',defaut=19),
14955 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=20),
14957 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
14958 # CONFIGURATION MANAGEMENT OF EDF VERSION
14959 # ======================================================================
14960 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14961 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14962 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14963 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14964 # (AT YOUR OPTION) ANY LATER VERSION.
14966 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14967 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14968 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14969 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14971 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14972 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14973 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14974 # ======================================================================
14975 PRE_IDEAS=PROC(nom="PRE_IDEAS",op=47,docu="U7.01.01-f",
14976 fr="Conversion d un fichier universel IDEAS-SUPERTAB au format Aster",
14977 UNITE_IDEAS =SIMP(statut='f',typ='I',defaut=19),
14978 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=20),
14980 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
14981 # CONFIGURATION MANAGEMENT OF EDF VERSION
14982 # ======================================================================
14983 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14984 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14985 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14986 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14987 # (AT YOUR OPTION) ANY LATER VERSION.
14989 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14990 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14991 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14992 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14994 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14995 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14996 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14997 # ======================================================================
14998 PROCEDURE=PROC(nom="PROCEDURE",op=-3, docu="U4.13.03-e",
14999 fr="Nommer le fichier de commandes secondaires",
15000 NOM =SIMP(statut='f',typ='TXM',defaut=" "),
15002 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
15003 # CONFIGURATION MANAGEMENT OF EDF VERSION
15004 # ======================================================================
15005 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15006 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15007 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15008 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15009 # (AT YOUR OPTION) ANY LATER VERSION.
15011 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15012 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15013 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15014 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15016 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15017 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15018 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15019 # ======================================================================
15020 def prod_matr_cham_prod(MATR_ASSE,**args):
15021 if AsType(MATR_ASSE) == matr_asse_depl_r : return cham_no_depl_r
15022 if AsType(MATR_ASSE) == matr_asse_depl_c : return cham_no_depl_c
15023 if AsType(MATR_ASSE) == matr_asse_temp_r : return cham_no_temp_r
15024 if AsType(MATR_ASSE) == matr_asse_pres_c : return cham_no_pres_c
15025 raise AsException("type de concept resultat non prevu")
15027 PROD_MATR_CHAM=OPER(nom="PROD_MATR_CHAM",op= 156,sd_prod=prod_matr_cham_prod,
15028 fr="Effectuer le produit d une matrice par un vecteur",
15029 docu="U4.72.06-b",reentrant='n',
15030 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_pres_c ) ),
15031 CHAM_NO =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_temp_r,cham_no_pres_c ) ),
15032 TITRE =SIMP(statut='f',typ='TXM',max='**'),
15034 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
15035 # CONFIGURATION MANAGEMENT OF EDF VERSION
15036 # ======================================================================
15037 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15038 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15039 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15040 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15041 # (AT YOUR OPTION) ANY LATER VERSION.
15043 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15044 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15045 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15046 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15048 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15049 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15050 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15051 # ======================================================================
15052 # RESPONSABLE VABHHTS J.PELLET
15053 def proj_champ_prod(RESULTAT=None,CHAM_NO_REFE=None,**args ):
15054 if AsType(RESULTAT) == evol_ther : return evol_ther
15055 if AsType(RESULTAT) == evol_elas : return evol_elas
15056 if AsType(RESULTAT) == evol_noli : return evol_noli
15057 if AsType(RESULTAT) == evol_char : return evol_char
15058 if AsType(CHAM_NO_REFE) == cham_no_depl_r : return cham_no_depl_r
15059 if AsType(CHAM_NO_REFE) == cham_no_depl_c : return cham_no_depl_c
15060 if AsType(CHAM_NO_REFE) == cham_no_pres_c : return cham_no_pres_c
15061 if AsType(CHAM_NO_REFE) == cham_no_temp_r : return cham_no_temp_r
15062 if AsType(CHAM_NO_REFE) == cham_no_epsi_r : return cham_no_epsi_r
15063 if AsType(CHAM_NO_REFE) == cham_no_sief_r : return cham_no_sief_r
15064 if AsType(CHAM_NO_REFE) == cham_no_flux_r : return cham_no_flux_r
15065 raise AsException("type de concept resultat non prevu")
15067 PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,docu="U4.72.05-d2",reentrant='n',
15068 fr="Projection d'un champ aux noeuds sur les noeuds d'un autre maillage",
15070 METHODE =SIMP(statut='f',typ='TXM',defaut="NUAGE_DEG_1",
15071 into=("NUAGE_DEG_0","NUAGE_DEG_1","ELEM",) ),
15072 b_nuage =BLOC(condition="(METHODE=='NUAGE_DEG_1') or (METHODE=='NUAGE_DEG_0')",
15073 fr="Lissage d'un nuage de points",
15074 CHAM_NO =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_pres_c,cham_no_temp_r,
15075 cham_no_epsi_r,cham_no_sief_r,cham_no_flux_r)),
15076 CHAM_NO_REFE =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_pres_c,cham_no_temp_r,
15077 cham_no_epsi_r,cham_no_sief_r,cham_no_flux_r)),
15079 b_elem =BLOC(condition="METHODE=='ELEM'",
15080 fr="Utilisation des fonctions de forme du maillage initial",
15081 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','LIST_INST','LIST_FREQ','LIST_ORDRE'),
15082 EXCLUS('TOUT_CHAM','NOM_CHAM',), ),
15083 RESULTAT =SIMP(statut='o',typ=(evol_ther,evol_elas,evol_noli,evol_char) ),
15084 MODELE_1 =SIMP(statut='o',typ=modele),
15085 MODELE_2 =SIMP(statut='o',typ=modele),
15087 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15088 NOM_CHAM =SIMP(statut='f',typ='TXM',max='**'),
15090 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15091 NUME_ORDRE =SIMP(statut='f',typ='I',max='**' ),
15092 LIST_ORDRE =SIMP(statut='f',typ=listis),
15093 INST =SIMP(statut='f',typ='R',max='**' ),
15094 LIST_INST =SIMP(statut='f',typ=listr8),
15095 FREQ =SIMP(statut='f',typ='R',max='**' ),
15096 LIST_FREQ =SIMP(statut='f',typ=listr8),
15099 VIS_A_VIS =FACT(statut='f',min=01,max='**',
15100 regles=(AU_MOINS_UN('TOUT_1','GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
15101 AU_MOINS_UN('TOUT_2','GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),),
15102 TOUT_1 =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15103 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
15104 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
15105 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
15106 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
15107 TOUT_2 =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15108 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
15109 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
15110 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
15111 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
15114 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
15116 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
15117 # CONFIGURATION MANAGEMENT OF EDF VERSION
15118 # ======================================================================
15119 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15120 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15121 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15122 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15123 # (AT YOUR OPTION) ANY LATER VERSION.
15125 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15126 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15127 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15128 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15130 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15131 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15132 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15133 # ======================================================================
15134 def matr_asse_gene_prod(MATR_ASSE,MATR_ASSE_GENE,**args):
15135 if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_gene_r
15136 if AsType(MATR_ASSE_GENE) == matr_asse_gene_r : return matr_asse_gene_r
15137 if AsType(MATR_ASSE) == matr_asse_depl_c : return matr_asse_gene_c
15138 if AsType(MATR_ASSE_GENE) == matr_asse_gene_c : return matr_asse_gene_c
15139 raise AsException("type de concept resultat non prevu")
15141 PROJ_MATR_BASE=OPER(nom="PROJ_MATR_BASE",op= 71,sd_prod=matr_asse_gene_prod,
15142 fr="Projection d une matrice assemblée sur une base (modale ou de RITZ)",
15143 docu="U4.63.12-f1",reentrant='n',
15144 regles=(UN_PARMI('MATR_ASSE','MATR_ASSE_GENE'),),
15145 BASE =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene ) ),
15146 NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
15147 MATR_ASSE =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_depl_c) ),
15148 MATR_ASSE_GENE =SIMP(statut='f',typ=(matr_asse_gene_r,matr_asse_gene_c) ),
15151 #& MODIF COMMANDE DATE 19/12/2001 AUTEUR CIBHHAB N.RAHNI
15152 # CONFIGURATION MANAGEMENT OF EDF VERSION
15153 # ======================================================================
15154 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15155 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15156 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15157 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15158 # (AT YOUR OPTION) ANY LATER VERSION.
15160 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15161 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15162 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15163 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15165 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15166 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15167 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15168 # ======================================================================
15169 def proj_mesu_modal_prod(MESURE,**args):
15170 vale=MESURE['NOM_PARA']
15171 if vale == 'INST' : return tran_gene
15172 raise AsException("type de concept resultat non prevu")
15174 PROJ_MESU_MODAL=OPER(nom="PROJ_MESU_MODAL",op= 193,
15175 sd_prod=proj_mesu_modal_prod,
15176 docu="U4.73.01-a",reentrant='n',
15177 fr="Extrapolation de resultats experimentaux sur un modele numerique en dynamique",
15179 # commentaire C. Durand-13/10/2000 :
15180 #le mot cle NOM_PARA, par construction, vaut tjs INST : donc on retourne TRAN_GENE a chaque fois
15181 #def proj_mesu_modal_prod(**args):
15182 # vale=args['MESURE'].get_child('NOM_PARA').get_valeur()
15183 # if vale == 'INST' : return tran_gene
15184 # raise AsException("type de concept resultat non prevu")
15185 #PROJ_MESU_MODAL=OPER(nom="PROJ_MESU_MODAL",op= 193,sd_prod=proj_mesu_modal_prod,)
15187 MODELE =SIMP(statut='f',typ=(modele) ),
15188 MASS_GENE =SIMP(statut='o',typ=(matr_asse_gene_r) ),
15189 RIGI_GENE =SIMP(statut='o',typ=(matr_asse_gene_r) ),
15190 MESURE =FACT(statut='o',min=01,max=01,
15191 MODELE =SIMP(statut='o',typ=(modele) ),
15192 MAILLAGE =SIMP(statut='o',typ=(maillage) ),
15193 CARA_ELEM =SIMP(statut='o',typ=(cara_elem) ),
15194 UNITE =SIMP(statut='f',typ='I',defaut= 33 ),
15195 NOM_PARA =SIMP(statut='f',typ='TXM',defaut="INST",into=("INST",) ),
15196 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15197 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
15198 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","SIGM_NOEU_DEPL","EPSI_NOEU_DEPL",) ),
15200 REGULARISATION =FACT(statut='f',min=01,max=01,
15201 regles=(UN_PARMI('COEF_PONDER','COEF_PONDER_F', ),),
15202 METHODE =SIMP(statut='f',typ='TXM',defaut="TIKHONOV",into=("TIKHONOV",) ),
15203 NORM_MIN =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
15204 COEF_PONDER =SIMP(statut='f',typ='R',max='**' ),
15205 COEF_PONDER_F =SIMP(statut='f',typ=(fonction),max='**' ),
15208 #& MODIF COMMANDE DATE 16/01/2002 AUTEUR DURAND C.DURAND
15209 # CONFIGURATION MANAGEMENT OF EDF VERSION
15210 # ======================================================================
15211 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15212 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15213 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15214 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15215 # (AT YOUR OPTION) ANY LATER VERSION.
15217 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15218 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15219 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15220 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15222 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15223 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15224 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15225 # ======================================================================
15226 PROJ_SPEC_BASE=OPER(nom="PROJ_SPEC_BASE",op= 146,sd_prod=tabl_intsp,docu="U4.63.14-c",reentrant='n',
15227 fr="Projection d un ou plusieurs spectres de turbulenc sur un ensemble de bases modales ",
15228 regles=(UN_PARMI('BASE_ELAS_FLUI','MODE_MECA','CHAM_NO'),
15229 ENSEMBLE('FREQ_INIT','FREQ_FIN','NB_POIN'),),
15230 SPEC_TURB =SIMP(statut='o',typ=spectre,max='**' ),
15231 BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu ),
15232 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
15233 CHAM_NO =SIMP(statut='f',typ=cham_no_depl_r ),
15234 FREQ_INIT =SIMP(statut='f',typ='R',val_min=0.E+0 ),
15235 FREQ_FIN =SIMP(statut='f',typ='R',val_min=0.E+0 ),
15236 NB_POIN =SIMP(statut='f',typ='I' ),
15237 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG")),
15238 GROUP_MA =SIMP(statut='f',typ=grma),
15239 # Quel est le type attendu derriere MODELE_INTERFACE
15240 MODELE_INTERFACE=SIMP(statut='f',typ=modele),
15241 VECT_X =SIMP(statut='f',typ='R',min=3,max=3 ),
15242 VECT_Y =SIMP(statut='f',typ='R',min=3,max=3 ),
15243 ORIG_AXE =SIMP(statut='f',typ='R',min=3,max=3 ),
15244 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
15246 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
15247 # CONFIGURATION MANAGEMENT OF EDF VERSION
15248 # ======================================================================
15249 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15250 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15251 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15252 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15253 # (AT YOUR OPTION) ANY LATER VERSION.
15255 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15256 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15257 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15258 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15260 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15261 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15262 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15263 # ======================================================================
15264 PROJ_VECT_BASE=OPER(nom="PROJ_VECT_BASE",op= 72,sd_prod=vect_asse_gene,
15265 fr="Projection d un vecteur assemblé sur une base (modale ou de RITZ)",
15266 docu="U4.63.13-f1",reentrant='n',
15267 regles=(UN_PARMI('VECT_ASSE','VECT_ASSE_GENE'),),
15268 BASE =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene ) ),
15269 NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
15270 TYPE_VECT =SIMP(statut='f',typ='TXM',defaut="FORC"),
15271 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r ),
15272 VECT_ASSE_GENE =SIMP(statut='f',typ=vect_asse_gene ),
15274 #& MODIF COMMANDE DATE 05/12/2001 AUTEUR VABHHTS J.PELLET
15275 # CONFIGURATION MANAGEMENT OF EDF VERSION
15276 # ======================================================================
15277 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15278 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15279 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15280 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15281 # (AT YOUR OPTION) ANY LATER VERSION.
15283 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15284 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15285 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15286 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15288 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15289 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15290 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15291 # ======================================================================
15292 RECA_WEIBULL=OPER(nom="RECA_WEIBULL",op= 197,sd_prod=tabl_reca_weib,
15293 fr=" ",docu="U4.82.06-a",reentrant='n',
15294 LIST_PARA =SIMP(statut='o',typ='TXM',max='**',into=("SIGM_REFE","M",) ),
15295 RESU =FACT(statut='o',min=01,max='**',
15296 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST',),
15297 AU_MOINS_UN('TOUT','GROUP_MA','MAILLE', ),),
15298 EVOL_NOLI =SIMP(statut='o',typ=(evol_noli) ),
15299 MODELE =SIMP(statut='o',typ=(modele) ),
15300 CHAM_MATER =SIMP(statut='o',typ=(cham_mater) ),
15301 TEMPE =SIMP(statut='f',typ='R' ),
15302 LIST_INST_RUPT =SIMP(statut='o',typ='R',max='**' ),
15303 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15304 NUME_ORDRE =SIMP(statut='f',typ='I',max='**' ),
15305 INST =SIMP(statut='f',typ='R',max='**' ),
15306 LIST_INST =SIMP(statut='f',typ=(listr8) ),
15307 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15308 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
15309 MAILLE =SIMP(statut='f',typ=ma,max='**'),
15310 COEF_MULT =SIMP(statut='f',typ='R',defaut= 1.E0 ),
15312 OPTION =SIMP(statut='f',typ='TXM',defaut="SIGM_ELGA",into=("SIGM_ELGA","SIGM_ELMOY",) ),
15313 CORR_PLAST =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
15314 METHODE =SIMP(statut='f',typ='TXM',defaut="MAXI_VRAI",into=("MAXI_VRAI","REGR_LINE",) ),
15315 INCO_GLOB_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
15316 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
15317 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
15319 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
15320 # CONFIGURATION MANAGEMENT OF EDF VERSION
15321 # ======================================================================
15322 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15323 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15324 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15325 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15326 # (AT YOUR OPTION) ANY LATER VERSION.
15328 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15329 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15330 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15331 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15333 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15334 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15335 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15336 # ======================================================================
15337 # RESPONSABLE MCOURTOI M.COURTOIS
15338 def recu_fonction_prod(RESULTAT=None,TABLE=None,OBSTACLE=None,
15339 RESU_GENE=None,BASE_ELAS_FLUI=None,CHAM_GD=None,
15340 TYPE_RESU=None,**args):
15341 if AsType(RESULTAT) == dyna_harmo : return fonction_c
15342 # On ne sait pas interpreter les deux conditions suivantes
15344 if TYPE_RESU != None :
15345 if TYPE_RESU == "FONCTION_C" : return fonction_c
15346 if TYPE_RESU == "FONCTION" : return fonction
15349 if RESU_GENE != None : return fonction
15350 if BASE_ELAS_FLUI != None : return fonction
15351 if RESULTAT != None : return fonction
15352 if CHAM_GD != None : return fonction
15353 if OBSTACLE != None : return fonction
15354 raise AsException("type de concept resultat non prevu")
15356 RECU_FONCTION=OPER(nom="RECU_FONCTION",op= 90,sd_prod=recu_fonction_prod,
15357 fr="Extraire sous forme d une fonction, l évolution temporelle d une composante d un champ ou d une table",
15358 docu="U4.32.03-f2",reentrant='n',
15359 regles=(UN_PARMI('CHAM_GD','RESULTAT','RESU_GENE','TABLE','BASE_ELAS_FLUI','OBSTACLE'),),
15361 CHAM_GD =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r,cham_elem_sief_r,
15362 cham_elem_vari_r,cham_elem_epsi_r,cham_elem_flux_r,
15363 cham_elem_pres_r,cham_elem_meta_r ) ),
15364 RESULTAT =SIMP(statut='f',typ=(evol_elas,dyna_trans,evol_noli,evol_ther,dyna_harmo ) ),
15365 RESU_GENE =SIMP(statut='f',typ=tran_gene),
15366 # concept table à créer
15367 TABLE =SIMP(statut='f',typ=table),
15368 BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu),
15369 REPERE =SIMP(statut='f',typ='TXM',into=("POLAIRE","GLOBAL") ),
15370 OBSTACLE =SIMP(statut='f',typ=obstacle),
15372 b_tran_gene = BLOC ( condition = "RESU_GENE != None",
15373 fr="Récupération de la fonction concernant les chocs à partir d un concept TRAN_GENE",
15374 regles=(PRESENT_PRESENT('SOUS_STRUC','INTITULE'),
15375 PRESENT_ABSENT('MULT_APPUI','CORR_STAT'),),
15376 MULT_APPUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
15377 CORR_STAT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
15378 ACCE_MONO_APPUI =SIMP(statut='f',typ=fonction),
15379 PARA_X =SIMP(statut='f',typ='TXM' ),
15380 PARA_Y =SIMP(statut='f',typ='TXM' ),
15381 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
15382 LIST_PARA =SIMP(statut='f',typ=listr8 ),
15383 INTITULE =SIMP(statut='f',typ='TXM' ),
15385 b_base_elas_flui = BLOC ( condition = "BASE_ELAS_FLUI != None",
15386 fr="Récupération de la fonction à partir d un concept melasflu",
15387 regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE'),),
15388 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15389 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
15390 NUME_MODE =SIMP(statut='o',typ='I' ),
15391 PARA_X =SIMP(statut='o',typ='TXM',into=("VITE_FLU",) ),
15392 PARA_Y =SIMP(statut='o',typ='TXM',into=("FREQ","AMOR") ),
15394 b_table = BLOC ( condition = "TABLE != None",fr="Récupération de la fonction à partir d un concept table",
15395 regles=(UN_PARMI('PARA_X','NOM_PARA_TABL'),
15396 PRESENT_PRESENT('PARA_X','PARA_Y'),),
15397 PARA_X =SIMP(statut='f',typ='TXM',
15398 fr="1ère colonne de la table qui définit la fonction à récupérer", ),
15399 PARA_Y =SIMP(statut='f',typ='TXM',
15400 fr="2ème colonne de la table qui définit la fonction à récupérer", ),
15401 NOM_PARA_TABL =SIMP(statut='f',typ='TXM',into=("FONCTION",),
15402 fr="Nom du paramètre de la table à qui est associé la fonction" ),
15403 b_nom_para_tabl = BLOC (condition = "NOM_PARA_TABL != None",
15404 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="FONCTION",into=("FONCTION","FONCTION_C") ),
15407 FILTRE =FACT(statut='f',min=1,max='**',
15408 NOM_PARA =SIMP(statut='o',typ='TXM' ),
15409 CRIT_COMP =SIMP(statut='f',typ='TXM',defaut="EQ",
15410 into=("EQ","LT","GT","NE","LE","GE","VIDE",
15411 "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
15412 b_vale =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
15413 regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
15414 VALE =SIMP(statut='f',typ='R' ),
15415 VALE_I =SIMP(statut='f',typ='I' ),
15416 VALE_C =SIMP(statut='f',typ='C' ),
15417 VALE_K =SIMP(statut='f',typ='TXM' ),),
15419 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
15420 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15424 b_resu = BLOC ( condition = "RESULTAT != None", fr="Opérandes en cas de RESULTAT",
15426 # A voir par Mathieu Courtois : il existe de tests (SDNX300B) qui ne satisfont pas ce UN_PARMI
15427 # UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','TOUT_INST','LIST_INST','FREQ','LIST_FREQ'),
15428 AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC','NOM_PARA_RESU'),
15429 PRESENT_PRESENT('MAILLE','NOM_CMP'),
15430 PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
15431 PRESENT_PRESENT('NOEUD','NOM_CMP'),
15432 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
15433 PRESENT_PRESENT('POINT','NOM_CMP'),
15434 EXCLUS('POINT','NOEUD'),
15435 EXCLUS('GROUP_MA','MAILLE'),
15436 EXCLUS('GROUP_NO','NOEUD'),
15437 EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),
15438 UN_PARMI('NOM_CHAM','NOM_PARA_RESU'),),
15439 NOM_CHAM =SIMP(statut='f',typ='TXM' ),
15440 NOM_PARA_RESU =SIMP(statut='f',typ='TXM' ),
15441 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15442 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
15443 LIST_ORDRE =SIMP(statut='f',typ=listis ),
15444 TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15445 INST =SIMP(statut='f',typ='R',max='**'),
15446 LIST_INST =SIMP(statut='f',typ=listr8 ),
15447 FREQ =SIMP(statut='f',typ='R',max='**'),
15448 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
15449 b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
15450 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15451 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
15452 INTERP_NUME =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN") ),
15454 NOM_CMP =SIMP(statut='f',typ='TXM' ),
15456 MAILLE =SIMP(statut='f',typ=ma),
15457 GROUP_MA =SIMP(statut='f',typ=grma),
15458 NOEUD =SIMP(statut='f',typ=no),
15459 GROUP_NO =SIMP(statut='f',typ=grno),
15460 POINT =SIMP(statut='f',typ='I' ),
15461 SOUS_POINT =SIMP(statut='f',typ='I' ),
15462 NOEUD_CHOC =SIMP(statut='f',typ=no),
15463 GROUP_NO_CHOC =SIMP(statut='f',typ=grno),
15466 b_resu_gene = BLOC ( condition = "RESU_GENE != None", fr="Opérandes en cas de RESU_GENE",
15467 # A voir par Mathieu Courtois : il existe de tests (SDNX300B) qui ne satisfont pas ce UN_PARMI
15468 # regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','TOUT_INST','LIST_INST','FREQ','LIST_FREQ'),),
15469 NOM_CHAM =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE","PTEM") ),
15470 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15471 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
15472 LIST_ORDRE =SIMP(statut='f',typ=listis ),
15473 TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15474 INST =SIMP(statut='f',typ='R',max='**'),
15475 LIST_INST =SIMP(statut='f',typ=listr8 ),
15476 FREQ =SIMP(statut='f',typ='R',max='**'),
15477 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
15478 b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
15479 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15480 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
15481 INTERP_NUME =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN") ),
15483 b_local_cham = BLOC ( condition = "NOM_CHAM!='PTEM'", fr="Opérandes de localisation du champ",
15484 regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
15485 PRESENT_PRESENT('MAILLE','NOM_CMP'),
15486 PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
15487 PRESENT_PRESENT('NOEUD','NOM_CMP'),
15488 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
15489 PRESENT_PRESENT('POINT','NOM_CMP'),
15490 EXCLUS('POINT','NOEUD'),
15491 EXCLUS('GROUP_MA','MAILLE'),
15492 EXCLUS('GROUP_NO','NOEUD'),
15493 EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
15494 NOM_CMP =SIMP(statut='f',typ='TXM' ),
15496 MAILLE =SIMP(statut='f',typ=ma),
15497 GROUP_MA =SIMP(statut='f',typ=grma),
15498 NOEUD =SIMP(statut='f',typ=no),
15499 GROUP_NO =SIMP(statut='f',typ=grno),
15500 POINT =SIMP(statut='f',typ='I' ),
15501 SOUS_POINT =SIMP(statut='f',typ='I' ),
15502 NOEUD_CHOC =SIMP(statut='f',typ=no),
15503 GROUP_NO_CHOC =SIMP(statut='f',typ=grno),
15507 b_cham_gd = BLOC ( condition = "(CHAM_GD != None)", fr="Opérandes en cas de CHAM_GD",
15509 regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
15510 PRESENT_PRESENT('MAILLE','NOM_CMP'),
15511 PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
15512 PRESENT_PRESENT('NOEUD','NOM_CMP'),
15513 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
15514 PRESENT_PRESENT('POINT','NOM_CMP'),
15515 EXCLUS('POINT','NOEUD'),
15516 EXCLUS('GROUP_MA','MAILLE'),
15517 EXCLUS('GROUP_NO','NOEUD'),
15518 EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
15519 NOM_CMP =SIMP(statut='f',typ='TXM' ),
15521 MAILLE =SIMP(statut='f',typ=ma),
15522 GROUP_MA =SIMP(statut='f',typ=grma),
15523 NOEUD =SIMP(statut='f',typ=no),
15524 GROUP_NO =SIMP(statut='f',typ=grno),
15525 POINT =SIMP(statut='f',typ='I' ),
15526 SOUS_POINT =SIMP(statut='f',typ='I' ),
15527 NOEUD_CHOC =SIMP(statut='f',typ=no),
15528 GROUP_NO_CHOC =SIMP(statut='f',typ=grno),
15531 NOM_PARA =SIMP(statut='f',typ='TXM',
15532 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
15533 "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC") ),
15534 NOM_RESU =SIMP(statut='f',typ='TXM' ),
15535 INTERPOL =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
15536 PROL_DROITE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
15537 PROL_GAUCHE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
15539 TITRE =SIMP(statut='f',typ='TXM',max='**'),
15540 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
15542 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
15543 # CONFIGURATION MANAGEMENT OF EDF VERSION
15544 # ======================================================================
15545 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15546 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15547 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15548 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15549 # (AT YOUR OPTION) ANY LATER VERSION.
15551 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15552 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15553 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15554 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15556 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15557 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15558 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15559 # ======================================================================
15560 RECU_GENE=OPER(nom="RECU_GENE",op= 76,sd_prod=vect_asse_gene,docu="U4.71.03-e",reentrant='n',
15561 fr="Récupération d un champ de grandeur à partir d un résultat en coordonnées généralisées",
15562 RESU_GENE =SIMP(statut='o',typ=tran_gene ),
15563 INST =SIMP(statut='o',typ='R' ),
15564 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE") ),
15565 INTERPOL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
15566 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF" ,into=("ABSOLU","RELATIF") ),
15567 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15569 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
15570 # CONFIGURATION MANAGEMENT OF EDF VERSION
15571 # ======================================================================
15572 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15573 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15574 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15575 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15576 # (AT YOUR OPTION) ANY LATER VERSION.
15578 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15579 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15580 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15581 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15583 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15584 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15585 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15586 # ======================================================================
15587 # RESPONSABLE VABHHTS J.PELLET
15588 RECU_TABLE=OPER(nom="RECU_TABLE",op= 174,sd_prod=table,
15589 fr=" ",docu="U4.71.02-b2",reentrant='n',
15590 CO =SIMP(statut='o',typ=assd),
15591 regles=(UN_PARMI('NOM_TABLE','NOM_PARA')),
15592 NOM_TABLE =SIMP(statut='f',typ='TXM' ),
15593 NOM_PARA =SIMP(statut='f',typ='TXM',max='**'),
15594 TITRE =SIMP(statut='f',typ='TXM',max='**'),
15596 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
15597 # CONFIGURATION MANAGEMENT OF EDF VERSION
15598 # ======================================================================
15599 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15600 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15601 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15602 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15603 # (AT YOUR OPTION) ANY LATER VERSION.
15605 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15606 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15607 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15608 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15610 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15611 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15612 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15613 # ======================================================================
15614 def reso_grad_prod(MATR_ASSE,**args ):
15615 if AsType(MATR_ASSE) == matr_asse_depl_r : return cham_no_depl_r
15616 if AsType(MATR_ASSE) == matr_asse_temp_r : return cham_no_temp_r
15617 if AsType(MATR_ASSE) == matr_asse_pres_r : return cham_no_pres_r
15618 raise AsException("type de concept resultat non prevu")
15620 RESO_GRAD=OPER(nom="RESO_GRAD",op= 84,sd_prod=reso_grad_prod,
15621 fr="Résolution par la méthode du gradient conjugué préconditionné",
15622 docu="U4.55.04-e",reentrant='f',
15623 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
15624 CHAM_NO =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r ) ),
15625 CHAM_CINE =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r ) ),
15626 MATR_FACT =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
15627 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
15628 REPRISE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
15629 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1E-6 ),
15630 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
15632 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
15633 # CONFIGURATION MANAGEMENT OF EDF VERSION
15634 # ======================================================================
15635 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15636 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15637 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15638 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15639 # (AT YOUR OPTION) ANY LATER VERSION.
15641 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15642 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15643 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15644 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15646 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15647 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15648 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15649 # ======================================================================
15650 # RESPONSABLE VABHHTS J.PELLET
15651 def reso_ldlt_prod(CHAM_NO,**args ):
15652 if AsType(CHAM_NO) == cham_no_temp_r : return cham_no_temp_r
15653 if AsType(CHAM_NO) == cham_no_depl_r : return cham_no_depl_r
15654 if AsType(CHAM_NO) == cham_no_pres_r : return cham_no_pres_r
15655 if AsType(CHAM_NO) == cham_no_temp_c : return cham_no_temp_c
15656 if AsType(CHAM_NO) == cham_no_depl_c : return cham_no_depl_c
15657 if AsType(CHAM_NO) == cham_no_pres_c : return cham_no_pres_c
15658 raise AsException("type de concept resultat non prevu")
15660 RESO_LDLT=OPER(nom="RESO_LDLT",op=15,sd_prod=reso_ldlt_prod,reentrant='f',
15661 fr="Résolution en place ou hors place d un système factorisé",docu="U4.55.02-f",
15662 MATR_FACT =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
15663 matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
15664 CHAM_NO =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r,
15665 cham_no_temp_c,cham_no_depl_c,cham_no_pres_c) ),
15666 CHAM_CINE =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_c) ),
15667 TITRE =SIMP(statut='f',typ='TXM',max='**'),
15668 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
15670 #& MODIF COMMANDE DATE 17/04/2002 AUTEUR BOYERE E.BOYERE
15671 # CONFIGURATION MANAGEMENT OF EDF VERSION
15672 # ======================================================================
15673 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15674 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15675 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15676 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15677 # (AT YOUR OPTION) ANY LATER VERSION.
15679 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15680 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15681 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15682 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15684 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15685 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15686 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15687 # ======================================================================
15688 # RESPONSABLE BOYERE E.BOYERE
15689 def rest_base_phys_prod(RESU_GENE,RESULTAT,**args ):
15690 if AsType(RESU_GENE) == tran_gene : return dyna_trans
15691 if AsType(RESU_GENE) == mode_gene : return mode_meca
15692 if AsType(RESU_GENE) == mode_cycl : return mode_meca
15693 if AsType(RESU_GENE) == harm_gene : return dyna_harmo
15694 if AsType(RESULTAT) == mode_meca : return mode_meca
15695 raise AsException("type de concept resultat non prevu")
15697 REST_BASE_PHYS=OPER(nom="REST_BASE_PHYS",op= 75,sd_prod=rest_base_phys_prod,
15698 fr="Restituer dans la base physique des résultats en coordonnées généralisées",
15699 docu="U4.63.21-e",reentrant='n',
15700 regles=(UN_PARMI('RESU_GENE','RESULTAT'),
15701 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','TOUT_INST'),
15702 EXCLUS('TOUT_INST','NUME_ORDRE','INST','LIST_INST','TOUT_ORDRE'),
15704 PRESENT_ABSENT('MULT_APPUI','CORR_STAT'),
15705 EXCLUS('MULT_APPUI','NOEUD','GROUP_NO'),
15706 EXCLUS('CORR_STAT','NOEUD','GROUP_NO'),
15707 EXCLUS('NOEUD','GROUP_NO'),
15708 PRESENT_PRESENT('RESULTAT','SQUELETTE'),
15709 PRESENT_PRESENT('ACCE_MONO_APPUI','DIRECTION'),),
15710 RESU_GENE =SIMP(statut='f',typ=(tran_gene,mode_gene,mode_cycl,harm_gene ) ),
15711 RESULTAT =SIMP(statut='f',typ=mode_meca ),
15713 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
15714 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15715 NUME_ORDRE =SIMP(statut='f',typ='I',max='**' ),
15716 TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15717 INST =SIMP(statut='f',typ='R',max='**' ),
15718 LIST_INST =SIMP(statut='f',typ=listr8 ),
15719 FREQ =SIMP(statut='f',typ='R',max='**' ),
15720 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
15721 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
15722 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15723 INTERPOL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
15724 MULT_APPUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
15725 CORR_STAT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
15726 NOM_CHAM =SIMP(statut='f',typ='TXM',max=8,defaut="ACCE",
15727 into=("DEPL","VITE","ACCE","ACCE_ABSOLU","EFGE_ELNO_DEPL","SIPO_ELNO_DEPL",
15728 "SIGM_ELNO_DEPL","FORC_NODA",) ),
15729 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15730 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
15731 NOEUD =SIMP(statut='f',typ=no,max='**'),
15733 ACCE_MONO_APPUI =SIMP(statut='f',typ=fonction),
15734 DIRECTION =SIMP(statut='f',typ='R',max='**' ),
15736 SQUELETTE =SIMP(statut='f',typ=squelette ),
15737 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
15738 SECTEUR =SIMP(statut='f',typ='I',defaut= 1 ),
15739 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
15741 #& MODIF COMMANDE DATE 28/03/2001 AUTEUR CIBHHLV L.VIVAN
15742 # CONFIGURATION MANAGEMENT OF EDF VERSION
15743 # ======================================================================
15744 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15745 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15746 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15747 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15748 # (AT YOUR OPTION) ANY LATER VERSION.
15750 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15751 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15752 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15753 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15755 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15756 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15757 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15758 # ======================================================================
15759 REST_SPEC_PHYS=OPER(nom="REST_SPEC_PHYS",op= 148,sd_prod=tabl_intsp,
15760 docu="U4.63.22-c",reentrant='n',
15761 regles=(AU_MOINS_UN('BASE_ELAS_FLUI','MODE_MECA'),),
15762 BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu ),
15763 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
15764 BANDE =SIMP(statut='f',typ='R',min=02,max=02 ),
15765 NUME_ORDRE =SIMP(statut='f',typ='I',max='**' ),
15766 INTE_SPEC_GENE =SIMP(statut='o',typ=tabl_intsp ),
15767 NOEUD =SIMP(statut='o',typ=no,max='**'),
15768 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
15769 MAILLE =SIMP(statut='f',typ=ma,max='**'),
15770 NOM_CHAM =SIMP(statut='o',typ='TXM',max=07,
15771 into=("DEPL","VITE","ACCE","EFGE_ELNO_DEPL",
15772 "SIPO_ELNO_DEPL","SIGM_ELNO_DEPL","FORC_NODA") ),
15773 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc), ),
15774 EXCIT =FACT(statut='f',max=01,
15775 NOEUD =SIMP(statut='o',typ=no,max='**'),
15776 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
15778 MOUVEMENT =SIMP(statut='f',typ='TXM',defaut="ABSOLU",into=("RELATIF","ABSOLU","DIFFERENTIEL") ),
15779 OPTION =SIMP(statut='f',typ='TXM',defaut="DIAG_DIAG",
15780 into=("DIAG_TOUT","DIAG_DIAG","TOUT_TOUT","TOUT_DIAG") ),
15781 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
15783 #& MODIF COMMANDE DATE 21/12/2000 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 RETOUR=PROC(nom="RETOUR",op= -2,docu="U4.13.02-e",
15802 fr="Retour au fichier de commandes appelant",
15804 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
15805 # CONFIGURATION MANAGEMENT OF EDF VERSION
15806 # ======================================================================
15807 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15808 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15809 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15810 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15811 # (AT YOUR OPTION) ANY LATER VERSION.
15813 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15814 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15815 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15816 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15818 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15819 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15820 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15821 # ======================================================================
15822 # RESPONSABLE ADBHHVV V.CANO
15823 STAT_NON_LINE=OPER(nom="STAT_NON_LINE",op=70,sd_prod=evol_noli,
15824 fr="Analyse mécanique statique non linéaire",
15825 docu="U4.51.03-f4",reentrant='f',
15826 regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS'),),
15827 MODELE =SIMP(statut='o',typ=modele),
15828 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
15829 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
15830 EXCIT =FACT(statut='o',min=1,max='**',
15831 CHARGE =SIMP(statut='o',typ=char_meca),
15832 FONC_MULT =SIMP(statut='f',typ=fonction),
15833 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
15834 into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
15836 VARI_COMM =FACT(statut='f',
15837 regles=(AU_MOINS_UN('IRRA',),),
15838 IRRA =SIMP(statut='f',typ=evol_varc),
15840 COMP_INCR =FACT(statut='f',min=1,max='**',
15841 RELATION =SIMP(statut='o',typ='TXM',defaut="VMIS_ISOT_TRAC",
15864 "META_P_INL_PT_RE",
15868 "META_V_INL_PT_RE",
15904 "GRILLE_ISOT_LINE",
15905 "GRILLE_CINE_LINE",
15906 "GRILLE_PINTO_MEN",
15928 ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15929 VMIS_ISOT_TRAC =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15930 VMIS_ISOT_LINE =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15931 VMIS_ECMI_TRAC =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
15932 VMIS_ECMI_LINE =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
15933 LABORD_1D =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
15934 ENDO_FRAGILE =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15935 ENDO_ISOT_BETON =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15936 MAZARS =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15937 RUPT_FRAG =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15938 BARENBLATT =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15939 META_P_IL =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15940 META_P_IL_PT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15941 META_P_IL_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15942 META_P_IL_PT_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15943 META_V_IL =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15944 META_V_IL_PT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15945 META_V_IL_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15946 META_V_IL_PT_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15947 META_P_INL =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15948 META_P_INL_PT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15949 META_P_INL_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15950 META_P_INL_PT_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15951 META_V_INL =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15952 META_V_INL_PT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15953 META_V_INL_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15954 META_V_INL_PT_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15955 META_P_CL =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15956 META_P_CL_PT =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15957 META_P_CL_RE =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15958 META_P_CL_PT_RE =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15959 META_V_CL =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15960 META_V_CL_PT =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15961 META_V_CL_RE =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15962 META_V_CL_PT_RE =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15963 VMIS_CINE_LINE =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
15964 CHABOCHE =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
15965 VISCOCHAB =SIMP(statut='c',typ='I',defaut=28,into=(28,)),
15966 VISC_CIN1_CHAB =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
15967 VISC_CIN2_CHAB =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
15968 POLY_CFC =SIMP(statut='c',typ='I',defaut=1688,into=(1688,)),
15969 LMARC =SIMP(statut='c',typ='I',defaut=20,into=(20,)),
15970 VISC_TAHERI =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
15971 ROUSSELIER =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
15972 ROUSS_PR =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
15973 ROUSS_VISC =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
15974 VMIS_POU_LINE =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
15975 VMIS_POU_FLEJOU =SIMP(statut='c',typ='I',defaut=9 ,into=(9,)),
15976 COULOMB =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
15977 ASSE_CORN =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
15978 ARME =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15979 NORTON_HOFF =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15980 LEMAITRE =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15981 ZIRC_CYRA2 =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15982 ZIRC_EPRI =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15983 ASSE_COMBU =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
15984 NADAI_B =SIMP(statut='c',typ='I',defaut=34,into=(34,)),
15985 VENDOCHAB =SIMP(statut='c',typ='I',defaut=10,into=(10,)),
15986 GRILLE_ISOT_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
15987 GRILLE_CINE_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
15988 GRILLE_PINTO_MEN=SIMP(statut='c',typ='I',defaut=16,into=(16,)),
15989 DIS_CONTACT =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15990 DIS_CHOC =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
15991 DIS_GOUJ2E_PLAS =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15992 DIS_GOUJ2E_ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15993 PINTO_MENEGOTTO =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
15994 CJS =SIMP(statut='c',typ='I',defaut=16,into=(16,)),
15995 CAM_CLAY =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15996 LAIGLE =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
15997 OHNO =SIMP(statut='c',typ='I',defaut=32,into=(32,)),
15998 GRANGER_FP =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
15999 GRANGER_FP_V =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
16000 GRANGER_FD =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16001 BETON_DOUBLE_DP =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16002 KIT_HM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16003 KIT_HHM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16004 KIT_THH =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16005 KIT_THM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16006 KIT_THHM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16007 VMIS_ASYM_LINE =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16009 RELATION_KIT =SIMP(statut='f',typ='TXM',max='**',
16049 ELAS_THM =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16050 SURF_ETAT_NSAT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16051 SURF_ETAT_SATU =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16052 CAM_CLAY_THM =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16053 GAZ =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16054 LIQU_SATU =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16055 LIQU_SATU_GAT =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16056 LIQU_GAZ_ATM =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16057 LIQU_VAPE_GAZ =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16058 LIQU_NSAT_GAT =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16059 LIQU_GAZ =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16060 THER_HOMO =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16061 THER_POLY =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16062 HYDR_UTIL =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16063 HYDR =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16064 ACIER =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
16065 ZIRC =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16067 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC","SIMO_MIEHE","GREEN_GR","GREEN",)),
16068 ALGO_C_PLAN =SIMP(statut='f',typ='TXM',defaut="ANALYTIQUE",into=("DEBORST","ANALYTIQUE",)),
16069 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
16070 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16071 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
16072 MAILLE =SIMP(statut='f',typ=ma,max='**'),
16074 COMP_ELAS =FACT(statut='f',min=1,max='**',
16075 RELATION =SIMP(statut='o',typ='TXM',defaut="ELAS",
16076 into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
16077 "ELAS_POUTRE_GR","CABLE")),
16078 ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16079 ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16080 ELAS_VMIS_LINE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16081 ELAS_POUTRE_GR =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16082 CABLE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16083 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GREEN","GREEN_GR",) ),
16084 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
16085 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16086 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
16087 MAILLE =SIMP(statut='f',typ=ma,max='**'),
16089 ETAT_INIT =FACT(statut='f',min=1,max=1,
16090 regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI','VARI_NON_LOCAL',),
16091 EXCLUS('EVOL_NOLI','DEPL',),
16092 EXCLUS('EVOL_NOLI','SIGM',),
16093 EXCLUS('EVOL_NOLI','VARI',),
16094 EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
16095 EXCLUS('NUME_ORDRE','INST'), ),
16096 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
16097 SIGM =SIMP(statut='f',typ=(cham_elem_sief_r,carte_sief_r)),
16098 VARI =SIMP(statut='f',typ=cham_elem_vari_r),
16099 VARI_NON_LOCAL =SIMP(statut='f',typ=cham_no_vanl_r),
16100 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
16101 NUME_ORDRE =SIMP(statut='f',typ='I'),
16102 INST =SIMP(statut='f',typ='R'),
16103 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16104 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16105 NUME_DIDI =SIMP(statut='f',typ='I'),
16106 INST_ETAT_INIT =SIMP(statut='f',typ='R'),
16108 INCREMENT =FACT(statut='o',min=1,max=1,
16109 regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
16110 EXCLUS('NUME_INST_FIN','INST_FIN'),),
16111 LIST_INST =SIMP(statut='o',typ=listr8),
16112 EVOLUTION =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
16113 into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
16114 NUME_INST_INIT =SIMP(statut='f',typ='I'),
16115 INST_INIT =SIMP(statut='f',typ='R'),
16116 NUME_INST_FIN =SIMP(statut='f',typ='I'),
16117 INST_FIN =SIMP(statut='f',typ='R'),
16118 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
16119 SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
16120 SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
16121 COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
16122 OPTI_LIST_INST =SIMP(statut='f',typ='TXM',into=("INCR_MAXI",),),
16123 NOM_CHAM =SIMP(statut='f',typ='TXM',),
16124 NOM_CMP =SIMP(statut='f',typ='TXM',),
16125 VALE =SIMP(statut='f',typ='R'),
16127 NEWTON =FACT(statut='d',min=1,max=1,
16128 REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
16129 PREDICTION =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
16130 MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
16131 PAS_MINI_ELAS =SIMP(statut='f',typ='R',defaut=0.0E+0),
16132 REAC_ITER =SIMP(statut='f',typ='I',defaut=0),
16133 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
16135 RECH_LINEAIRE =FACT(statut='f',min=1,max=1,
16136 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
16137 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 3),
16139 PILOTAGE =FACT(statut='f',min=1,max=1,
16140 regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
16141 TYPE =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","PRED_ELAS_INCR","DEFORMATION","ANA_LIM") ),
16142 COEF_MULT =SIMP(statut='f',typ='R',defaut= 1.0E+0),
16143 ETA_PILO_MAX =SIMP(statut='f',typ='R'),
16144 ETA_PILO_MIN =SIMP(statut='f',typ='R'),
16145 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16146 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
16147 MAILLE =SIMP(statut='f',typ=ma,max='**'),
16148 NOEUD =SIMP(statut='f',typ=no,max='**'),
16149 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
16150 NOM_CMP =SIMP(statut='f',typ='TXM',max='**' ),
16152 CONVERGENCE =FACT(statut='d',min=1,max=1,
16153 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
16154 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
16155 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
16156 ITER_GLOB_ELAS =SIMP(statut='f',typ='I',defaut=25),
16157 ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
16158 RESI_INTE_RELA =SIMP(statut='f',typ='R'
16160 ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
16161 ITER_INTE_PAS =SIMP(statut='f',typ='I',defaut= 0 ),
16162 TYPE_MATR_COMP =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
16163 RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
16164 into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
16166 PARM_THETA =SIMP(statut='f',typ='R'
16168 SOLVEUR =FACT(statut='d',min=1,max=1,
16169 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
16170 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
16171 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
16173 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
16174 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
16176 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
16177 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
16178 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
16179 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","DECOUPE") ),
16181 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
16182 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
16183 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
16184 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
16185 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
16186 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
16189 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
16190 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
16192 ARCHIVAGE =FACT(statut='f',min=1,max=1,
16193 regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
16194 EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
16195 LIST_INST =SIMP(statut='f',typ=(listr8) ),
16196 INST =SIMP(statut='f',typ='R',max='**' ),
16197 PAS_ARCH =SIMP(statut='f',typ='I' ),
16198 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
16199 ARCH_ETAT_INIT =SIMP(statut='f',typ='TXM',into=("OUI",)),
16200 NUME_INIT =SIMP(statut='f',typ='I'),
16201 DETR_NUME_SUIV =SIMP(statut='f',typ='TXM',into=("OUI",)),
16202 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","SIEF_ELGA","VARI_ELGA",
16203 "VARI_NON_LOCAL","LANL_ELGA")),
16205 OBSERVATION =FACT(statut='f',min=1,max='**',
16206 regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
16207 PRESENT_PRESENT('MAILLE','POINT'),),
16208 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',into=("DEPL","VITE","ACCE","SIEF_ELGA",
16209 "VARI_ELGA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU")),
16210 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
16211 LIST_ARCH =SIMP(statut='f',typ=listis),
16212 LIST_INST =SIMP(statut='f',typ=listr8),
16213 INST =SIMP(statut='f',typ='R',max='**' ),
16214 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16215 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16216 PAS_OBSE =SIMP(statut='f',typ='I'),
16217 NOEUD =SIMP(statut='f',typ=no,max='**'),
16218 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
16219 MAILLE =SIMP(statut='f',typ=ma,max='**'),
16220 POINT =SIMP(statut='f',typ='I',max='**'),
16222 SOLV_NON_LOCAL =FACT(statut='f',min=1,max=1,
16223 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
16224 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
16225 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
16227 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
16228 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
16230 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
16231 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
16232 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
16233 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
16235 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
16236 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
16237 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
16238 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
16239 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
16241 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
16243 LAGR_NON_LOCAL =FACT(statut='f',max=1,
16244 ITER_DUAL_MAXI =SIMP(statut='f',typ='I',defaut= 50),
16245 RESI_DUAL_ABSO =SIMP(statut='o',typ='R'),
16246 RESI_PRIM_ABSO =SIMP(statut='o',typ='R'),
16247 R =SIMP(statut='f',typ='R',defaut= 1000.),
16248 ITER_PRIM_MAXI =SIMP(statut='f',typ='I',defaut= 10),
16250 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
16251 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
16253 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
16254 # CONFIGURATION MANAGEMENT OF EDF VERSION
16255 # ======================================================================
16256 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16257 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16258 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16259 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16260 # (AT YOUR OPTION) ANY LATER VERSION.
16262 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16263 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16264 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16265 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16267 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16268 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16269 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16270 # ======================================================================
16271 # RESPONSABLE MCOURTOI M.COURTOIS
16272 TEST_FONCTION=PROC(nom="TEST_FONCTION",op= 135,fr="Extraction d une valeur numérique ou d un attribut de fonction",
16273 docu="U4.92.02-f2",
16274 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
16275 TEST_NOOK =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
16276 VALEUR =FACT(statut='f',min=01,max='**',
16277 fr="Tester la valeur d une fonction ou d une nappe",
16278 regles=(UN_PARMI('VALE_REFE','VALE_REFE_C', ),),
16279 FONCTION =SIMP(statut='o',typ=fonction ),
16280 NOM_PARA =SIMP(statut='f',typ='TXM',max=2),
16281 VALE_PARA =SIMP(statut='o',typ='R',max=2),
16282 VALE_REFE =SIMP(statut='f',typ='R' ),
16283 VALE_REFE_C =SIMP(statut='f',typ='C' ),
16284 CRITERE =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
16285 defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16286 PRECISION =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
16288 REFERENCE =SIMP(statut='f',typ='TXM',
16289 into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
16290 b_version = BLOC (condition = "REFERENCE == 'NON_REGRESSION'",
16291 VERSION =SIMP(statut='f',typ='TXM' ),
16294 ATTRIBUT =FACT(statut='f',min=01,max='**',
16295 fr="Tester la valeur d un attribut d une fonction ou d''une nappe",
16296 FONCTION =SIMP(statut='o',typ=fonction ),
16297 PARA =SIMP(statut='f',typ='R' ),
16298 CRIT_PARA =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16299 PREC_PARA =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16300 ATTR =SIMP(statut='o',typ='TXM',
16301 into=("NOM_PARA","NOM_RESU","PROL_DROITE","PROL_GAUCHE","INTERPOL",
16302 "PROL_GAUCHE_FONC","PROL_DROITE_FONC","INTERPOL_FONC","NOM_PARA_FONC") ),
16303 ATTR_REFE =SIMP(statut='o',typ='TXM' ),
16304 REFERENCE =SIMP(statut='f',typ='TXM',
16305 into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
16306 b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
16307 VERSION =SIMP(statut='f',typ='TXM' ),
16310 TABL_INTSP =FACT(statut='f',min=01,max='**',
16311 fr="Tester la valeur d une fonction contenue dans une table interspectrale",
16312 regles=(UN_PARMI('NUME_ORDRE_I','NOEUD_I'),),
16313 INTE_SPEC =SIMP(statut='o',typ=tabl_intsp ),
16314 NOEUD_I =SIMP(statut='f',typ=no),
16315 NUME_ORDRE_I =SIMP(statut='f',typ='I' ),
16316 b_nume_ordre_i = BLOC (condition = "NUME_ORDRE_I != None",
16317 NUME_ORDRE_J =SIMP(statut='o',typ='I' ),
16319 b_noeud_i = BLOC (condition = "NOEUD_I != None",
16320 NOEUD_J =SIMP(statut='o',typ=no),
16321 NOM_CMP_I =SIMP(statut='o',typ='TXM' ),
16322 NOM_CMP_J =SIMP(statut='o',typ='TXM' ),
16324 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
16325 VALE_PARA =SIMP(statut='o',typ='R' ),
16326 VALE_REFE_C =SIMP(statut='o',typ='C' ),
16327 CRITERE =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
16328 defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16329 PRECISION =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
16331 REFERENCE =SIMP(statut='f',typ='TXM',
16332 into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
16333 b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
16334 VERSION =SIMP(statut='f',typ='TXM' ),
16338 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
16339 # RESPONSABLE VABHHTS J.PELLET
16340 # CONFIGURATION MANAGEMENT OF EDF VERSION
16341 # ======================================================================
16342 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16343 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16344 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16345 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16346 # (AT YOUR OPTION) ANY LATER VERSION.
16348 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16349 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16350 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16351 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16353 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16354 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16355 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16358 # ======================================================================
16359 TEST_RESU=PROC(nom="TEST_RESU",op=23,docu="U4.92.01-g3",
16360 fr="Extraction d une valeur et comparaison à une valeur de référence",
16361 regles=(AU_MOINS_UN('CHAM_NO','CHAM_ELEM','RESU','OBJET')),
16362 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
16364 CHAM_NO =FACT(statut='f',min=01,max='**',
16365 regles=(UN_PARMI('NOEUD','GROUP_NO','TYPE_TEST'),
16366 EXCLUS('NOEUD','GROUP_NO'),
16367 PRESENT_PRESENT('NOEUD','NOM_CMP'),
16368 PRESENT_PRESENT( 'GROUP_NO','NOM_CMP'),
16369 UN_PARMI('VALE','VALE_I','VALE_C'),),
16370 CHAM_GD =SIMP(statut='o',typ=cham_no),
16371 NOEUD =SIMP(statut='f',typ=no,max='**'),
16372 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
16373 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
16374 TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
16375 VALE =SIMP(statut='f',typ='R'),
16376 VALE_I =SIMP(statut='f',typ='I'),
16377 VALE_C =SIMP(statut='f',typ='C'),
16378 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
16379 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
16380 REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
16381 "NON_REGRESSION","AUTRE_ASTER")),
16382 VERSION =SIMP(statut='f',typ='TXM'),
16385 CHAM_ELEM =FACT(statut='f',min=01,max='**',
16386 regles=(UN_PARMI('MAILLE','TYPE_TEST',),
16387 EXCLUS('NOEUD','GROUP_NO','POINT'),
16388 PRESENT_PRESENT('NOEUD','NOM_CMP'),
16389 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16390 PRESENT_PRESENT('POINT','NOM_CMP'),
16391 UN_PARMI('VALE','VALE_I','VALE_C'), ),
16392 CHAM_GD =SIMP(statut='o',typ=cham_elem),# CO()
16393 MAILLE =SIMP(statut='f',typ=ma),# CO()
16394 POINT =SIMP(statut='f',typ='I' ),
16395 SOUS_POINT =SIMP(statut='f',typ='I'),
16396 NOEUD =SIMP(statut='f',typ=no),# CO()
16397 GROUP_NO =SIMP(statut='f',typ=grno),# CO()
16398 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
16399 TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
16400 VALE =SIMP(statut='f',typ='R' ),
16401 VALE_I =SIMP(statut='f',typ='I' ),
16402 VALE_C =SIMP(statut='f',typ='C' ),
16403 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
16404 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16405 REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
16406 "NON_REGRESSION","AUTRE_ASTER") ),
16407 VERSION =SIMP(statut='f',typ='TXM' ),
16410 RESU =FACT(statut='f',min=01,max='**',
16411 regles=(UN_PARMI('NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP','NOM_CAS','ANGL'),
16412 UN_PARMI('NOM_CHAM','PARA'),
16413 PRESENT_ABSENT('PARA','NOEUD','GROUP_NO','POINT','NOM_CMP','TYPE_TEST'),
16414 PRESENT_PRESENT('NOM_CMP','NOM_CHAM'),
16415 EXCLUS('NOEUD','GROUP_NO','POINT','TYPE_TEST'),
16416 PRESENT_PRESENT('NOEUD','NOM_CMP'),
16417 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16418 PRESENT_PRESENT('POINT','NOM_CMP'),
16419 UN_PARMI('VALE','VALE_I','VALE_C') ,),
16420 RESULTAT =SIMP(statut='o',typ=resultat),
16421 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
16422 fr="Liste des paramètres de sensibilité.",
16423 ang="List of sensitivity parameters"),
16424 NUME_ORDRE =SIMP(statut='f',typ='I'),
16425 INST =SIMP(statut='f',typ='R'),
16426 FREQ =SIMP(statut='f',typ='R'),
16427 NUME_MODE =SIMP(statut='f',typ='I'),
16428 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**' ),
16429 NOM_CAS =SIMP(statut='f',typ='TXM'),
16430 ANGL =SIMP(statut='f',typ='R'),
16431 PARA =SIMP(statut='f',typ='TXM'),
16432 NOM_CHAM =SIMP(statut='f',typ='TXM'),
16433 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
16434 MAILLE =SIMP(statut='f',typ=ma,max='**'),
16435 NOEUD =SIMP(statut='f',typ=no,max='**'),
16436 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
16437 POINT =SIMP(statut='f',typ='I'),
16438 SOUS_POINT =SIMP(statut='f',typ='I'),
16439 TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
16440 VALE =SIMP(statut='f',typ='R'),
16441 VALE_I =SIMP(statut='f',typ='I'),
16442 VALE_C =SIMP(statut='f',typ='C'),
16443 CRITERE =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),max=02),
16444 PRECISION =SIMP(statut='f',typ='R',max=02),
16445 REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
16446 "NON_REGRESSION","AUTRE_ASTER",) ),
16447 VERSION =SIMP(statut='f',typ='TXM' ),
16450 OBJET =FACT(statut='f',max='**',
16451 regles=(UN_PARMI('INDICE','S_I','S_R','RESUME',),
16452 UN_PARMI('VALE','VALE_I','VALE_C','RESUME','S_R','S_I'),),
16453 NOM =SIMP(statut='o',typ='TXM'),
16454 INDICE =SIMP(statut='f',typ='I'),
16455 NUM_OBJ =SIMP(statut='f',typ='I'),
16456 S_R =SIMP(statut='f',typ='R'),
16457 S_I =SIMP(statut='f',typ='I'),
16458 RESUME =SIMP(statut='f',typ='I'),
16459 VALE =SIMP(statut='f',typ='R'),
16460 VALE_I =SIMP(statut='f',typ='I'),
16461 VALE_C =SIMP(statut='f',typ='C'),
16462 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
16463 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
16464 REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
16465 "NON_REGRESSION","AUTRE_ASTER",) ),
16466 VERSION =SIMP(statut='f',typ='TXM' ),
16469 #& MODIF COMMANDE DATE 06/03/2002 AUTEUR MCOURTOI M.COURTOIS
16470 # CONFIGURATION MANAGEMENT OF EDF VERSION
16471 # ======================================================================
16472 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16473 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16474 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16475 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16476 # (AT YOUR OPTION) ANY LATER VERSION.
16478 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16479 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16480 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16481 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16483 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16484 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16485 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16486 # ======================================================================
16487 # RESPONSABLE VABHHTS J.PELLET
16488 TEST_TABLE=PROC(nom="TEST_TABLE",op= 177,
16489 docu="U4.92.03-c1",
16490 regles=(UN_PARMI('VALE','VALE_I','VALE_C', ),),
16491 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
16492 # concept table à créer
16493 TABLE =SIMP(statut='o',typ=table),
16495 FILTRE =FACT(statut='f',min=1,max='**',
16496 NOM_PARA =SIMP(statut='o',typ='TXM' ),
16497 CRIT_COMP =SIMP(statut='f',typ='TXM',defaut="EQ",
16498 into=("EQ","LT","GT","NE","LE","GE","VIDE",
16499 "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
16500 b_vale =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
16501 regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
16502 VALE =SIMP(statut='f',typ='R' ),
16503 VALE_I =SIMP(statut='f',typ='I' ),
16504 VALE_C =SIMP(statut='f',typ='C' ),
16505 VALE_K =SIMP(statut='f',typ='TXM' ),),
16507 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16508 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16510 TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
16511 NOM_PARA =SIMP(statut='o',typ='TXM' ),
16512 VALE =SIMP(statut='f',typ='R' ),
16513 VALE_I =SIMP(statut='f',typ='I' ),
16514 VALE_C =SIMP(statut='f',typ='C' ),
16515 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16516 PRECISION =SIMP(statut='f',typ='R',defaut= 1.2E-3 ),
16517 REFERENCE =SIMP(statut='f',typ='TXM',
16518 into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
16519 b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
16520 VERSION =SIMP(statut='f',typ='TXM' ),
16523 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
16524 # CONFIGURATION MANAGEMENT OF EDF VERSION
16525 # ======================================================================
16526 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16527 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16528 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16529 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16530 # (AT YOUR OPTION) ANY LATER VERSION.
16532 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16533 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16534 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16535 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16537 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16538 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16539 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16540 # ======================================================================
16541 THER_LINEAIRE=OPER(nom="THER_LINEAIRE",op=25,sd_prod=evol_ther,docu="U4.54.01-g2",reentrant='f',
16542 fr="Analyse thermique linéaire stationnaire ou transitoire",
16543 MODELE =SIMP(statut='o',typ=modele),
16544 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
16545 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
16546 EXCIT =FACT(statut='o',min=1,max='**',
16547 CHARGE =SIMP(statut='o',typ=(char_ther,char_cine_ther)),
16548 FONC_MULT =SIMP(statut='f',typ=fonction),
16550 INCREMENT =FACT(statut='f',min=1,max=1,
16551 LIST_INST =SIMP(statut='o',typ=listr8 ),
16552 NUME_INIT =SIMP(statut='f',typ='I'),
16553 NUME_FIN =SIMP(statut='f',typ='I'),
16555 TEMP_INIT =FACT(statut='f',min=1,max=1,
16556 regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
16557 STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16558 EVOL_THER =SIMP(statut='f',typ=evol_ther),
16559 CHAM_NO =SIMP(statut='f',typ=cham_no_temp_r),
16560 VALE =SIMP(statut='f',typ='R'),
16561 NUME_INIT =SIMP(statut='f',typ='I'),
16563 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
16564 fr="Liste des paramètres de sensibilité.",
16565 ang="List of sensitivity parameters",
16567 SENS_INIT =FACT(statut='f',min=1,max=1,
16568 regles=(EXCLUS('STATIONNAIRE','EVOL_THER', ),),
16569 STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16570 EVOL_THER =SIMP(statut='f',typ=evol_ther),
16571 NUME_INIT =SIMP(statut='f',typ='I'),
16573 SOLVEUR =FACT(statut='d',min=1,max=1,
16574 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
16575 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
16576 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
16578 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
16579 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
16581 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
16582 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
16583 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
16584 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
16586 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
16587 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
16588 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
16589 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
16590 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
16591 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
16594 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
16596 PARM_THETA =SIMP(statut='f',typ='R',defaut= 0.57),
16597 ARCHIVAGE =FACT(statut='f',min=1,max=1,
16598 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST'),),
16599 LIST_ARCH =SIMP(statut='f',typ=listis),
16600 LIST_INST =SIMP(statut='f',typ=listr8),
16601 INST =SIMP(statut='f',typ='R',max='**'),
16602 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16603 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
16604 into=("RELATIF","ABSOLU")),
16605 PAS_ARCH =SIMP(statut='f',typ='I'),
16606 CHAM_EXCLU =SIMP(statut='f',typ='TXM',into=("VARI",)),
16608 TITRE =SIMP(statut='f',typ='TXM',max='**'),
16609 INFO =SIMP(statut='f',typ='I',into=(1,2)),
16611 #& MODIF COMMANDE DATE 28/08/2002 AUTEUR MCOURTOI M.COURTOIS
16612 # CONFIGURATION MANAGEMENT OF EDF VERSION
16613 # ======================================================================
16614 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16615 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16616 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16617 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16618 # (AT YOUR OPTION) ANY LATER VERSION.
16620 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16621 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16622 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16623 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16625 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16626 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16627 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16628 # ======================================================================
16629 THER_NON_LINE=OPER(nom="THER_NON_LINE",op= 186,sd_prod=evol_ther,docu="U4.54.02-e2",reentrant='f',
16630 fr="Analyse thermique non linéaire stationnaire ou transitoire" ,
16631 MODELE =SIMP(statut='o',typ=(modele) ),
16632 CHAM_MATER =SIMP(statut='o',typ=(cham_mater) ),
16633 CARA_ELEM =SIMP(statut='c',typ=(cara_elem) ),
16634 COMP_THER_NL =FACT(statut='d',min=1,max='**',
16635 RELATION =SIMP(statut='f',typ='TXM',defaut="THER_NL",
16643 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
16644 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16645 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
16646 MAILLE =SIMP(statut='f',typ=ma,max='**'),
16648 EVOL_THER_SECH =SIMP(statut='f',typ=evol_ther),
16649 EXCIT =FACT(statut='o',min=1,max='**',
16650 CHARGE =SIMP(statut='o',typ=char_ther),
16651 FONC_MULT =SIMP(statut='f',typ=fonction),
16653 INCREMENT =FACT(statut='f',min=1,max=1,
16654 LIST_INST =SIMP(statut='o',typ=listr8),
16655 NUME_INIT =SIMP(statut='f',typ='I'),
16656 NUME_FIN =SIMP(statut='f',typ='I'),
16658 TEMP_INIT =FACT(statut='f',min=1,max=1,
16659 regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
16660 STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",)),
16661 EVOL_THER =SIMP(statut='f',typ=evol_ther),
16662 CHAM_NO =SIMP(statut='f',typ=cham_no_temp_r),
16663 VALE =SIMP(statut='f',typ='R'),
16664 NUME_INIT =SIMP(statut='f',typ='I'),
16666 NEWTON =FACT(statut='d',min=1,max=1,
16667 REAC_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
16668 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16669 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 0 ),
16671 CONVERGENCE =FACT(statut='d',min=1,max=1,
16672 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
16673 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
16674 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
16676 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
16677 fr="Liste des paramètres de sensibilité.",
16678 ang="List of sensitivity parameters",
16680 SOLVEUR =FACT(statut='d',min=1,max=1,
16681 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
16682 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Parametres de la méthode multi frontale",
16683 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
16685 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Parametres de la méthode LDLT",
16686 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
16688 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
16689 fr="Parametres relatifs a la non inversibilité de la matrice a factorise",
16690 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
16691 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
16693 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Parametres de la méthode du gradient conjugué",
16694 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
16695 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
16696 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
16697 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
16698 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
16701 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
16702 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
16704 PARM_THETA =SIMP(statut='f',typ='R',defaut= 0.57 ),
16705 ARCHIVAGE =FACT(statut='f',min=1,max=1,
16706 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST', ),),
16707 LIST_ARCH =SIMP(statut='f',typ=(listis) ),
16708 LIST_INST =SIMP(statut='f',typ=(listr8) ),
16709 INST =SIMP(statut='f',typ='R',max='**'),
16710 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16711 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
16712 PAS_ARCH =SIMP(statut='f',typ='I'),
16713 CHAM_EXCLU =SIMP(statut='f',typ='TXM',into=("VARI",)),
16715 TITRE =SIMP(statut='f',typ='TXM',max='**'),
16716 OPTION =SIMP(statut='f',typ='TXM',max='**',
16717 into=("FLUX_ELGA_TEMP","FLUX_ELNO_TEMP") ),
16718 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
16721 #& MODIF COMMANDE DATE 05/12/2001 AUTEUR VABHHTS J.PELLET
16722 # CONFIGURATION MANAGEMENT OF EDF VERSION
16723 # ======================================================================
16724 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16725 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16726 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16727 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16728 # (AT YOUR OPTION) ANY LATER VERSION.
16730 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16731 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16732 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16733 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16735 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16736 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16737 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16738 # ======================================================================
16739 THER_NON_LINE_MO=OPER(nom="THER_NON_LINE_MO",op= 171,sd_prod=evol_ther,
16740 fr="Thermique non lineaire en repere mobile",
16741 docu="U4.54.03-b",reentrant='f',
16742 MODELE =SIMP(statut='o',typ=modele ),
16743 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
16744 CARA_ELEM =SIMP(statut='c',typ=cara_elem ),
16745 EXCIT =FACT(statut='o',min=1,max='**',
16746 CHARGE =SIMP(statut='o',typ=char_ther ),
16747 FONC_MULT =SIMP(statut='c',typ=fonction ),
16749 TEMP_INIT =FACT(statut='f',min=1,max=1,
16750 EVOL_THER =SIMP(statut='f',typ=evol_ther ),
16751 NUME_INIT =SIMP(statut='f',typ='I',defaut= 0 ),
16753 CONVERGENCE =FACT(statut='d',min=1,max=1,
16754 CRIT_TEMP_RELA =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16755 CRIT_ENTH_RELA =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
16756 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
16757 ARRET =SIMP(statut='c',typ='TXM',defaut="OUI",into=("OUI","NON") ),
16759 SOLVEUR =FACT(statut='d',min=1,max=1,
16760 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
16761 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
16762 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
16764 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
16765 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
16767 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
16768 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
16769 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
16770 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
16772 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
16773 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
16774 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
16775 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
16776 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
16777 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
16779 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
16780 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
16782 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
16783 INFO =SIMP(statut='f',typ='I',into=(1,2) ),