1 #& MODIF ENTETE DATE 11/02/2003 AUTEUR DURAND C.DURAND
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 # ======================================================================
32 __version__="$Name: $"
33 __Id__="$Id: cata_aster_v6.py,v 1.12 2001/01/16 15:55:05 iliade Exp $"
35 JdC = JDC_CATA(code='ASTER',
37 regles = (AU_MOINS_UN('DEBUT','POURSUITE'),
39 A_CLASSER(('DEBUT','POURSUITE'),'FIN')))
40 # Type le plus general
41 class entier (ASSD):pass
42 class reel (ASSD):pass
43 class complexe(ASSD):pass
44 class chaine (ASSD):pass
57 class cabl_precont (ASSD):pass
58 class cara_elem (ASSD):pass
59 class cara_pout (ASSD):pass
60 class cham_mater (ASSD):pass
61 class char_acou (ASSD):pass
62 class char_cine_acou (ASSD):pass
63 class char_cine_meca (ASSD):pass
64 class char_cine_ther (ASSD):pass
65 class char_meca (ASSD):pass
66 class char_ther (ASSD):pass
67 class courbe (ASSD):pass
68 class fond_fiss (ASSD):pass
69 class interf_dyna_clas(ASSD):pass
70 class interspfact (ASSD):pass
71 class listis (ASSD):pass
72 class liste (ASSD):pass
73 class macr_elem_dyna (ASSD):pass
74 class macr_elem_stat (ASSD):pass
75 class mater (ASSD):pass
76 class melasflu (ASSD):pass
77 class modele (ASSD):pass
78 class modele_gene (ASSD):pass
79 class nume_ddl (ASSD):pass
80 class nume_ddl_gene (ASSD):pass
81 class obstacle (ASSD):pass
82 class spectre (ASSD):pass
83 class surface (ASSD):pass
84 class tran_gene (ASSD):pass
85 class type_flui_stru (ASSD):pass
86 class valeur (ASSD):pass
90 #--------------------------------
92 def LIST_VALEURS(self) :
93 """ retourne la liste des valeurs [ val1, ...] """
94 vale=string.ljust(self.get_name(),19)+'.VALE'
95 return list(aster.getvectjev(vale))
100 #--------------------------------
101 class maillage(ASSD):
102 def LIST_GROUP_NO(self) :
103 """ retourne la liste des groupes de noeuds sous la forme :
104 [ (gno1, nb noeuds gno1), ...] """
105 return aster.GetMaillage(self.get_name(), "GROUP_NO")
106 def LIST_GROUP_MA(self) :
107 """ retourne la liste des groupes de mailles sous la forme :
108 [ (gma1, nb mailles gma1, dime max des mailles gma1), ...] """
109 return aster.GetMaillage(self.get_name(), "GROUP_MA")
112 class squelette (maillage):pass
115 # cham_gd (carte,cham_no,cham_elem)
116 #--------------------------------
118 class cham_gd(ASSD):pass
121 #--------------------------------
122 class carte(cham_gd):pass
123 class carte_dbel_r (carte):pass
124 class carte_depl_c (carte):pass
125 class carte_depl_f (carte):pass
126 class carte_depl_r (carte):pass
127 class carte_durt_r (carte):pass
128 class carte_ener_r (carte):pass
129 class carte_epsi_r (carte):pass
130 class carte_erreur (carte):pass
131 class carte_flux_r (carte):pass
132 class carte_g_depl_r (carte):pass
133 class carte_geom_r (carte):pass
134 class carte_hydr_r (carte):pass
135 class carte_inst_r (carte):pass
136 class carte_inte_r (carte):pass
137 class carte_irra_r (carte):pass
138 class carte_meta_r (carte):pass
139 class carte_neut_f (carte):pass
140 class carte_neut_r (carte):pass
141 class carte_pres_r (carte):pass
142 class carte_sief_r (carte):pass
143 class carte_sour_r (carte):pass
144 class carte_temp_f (carte):pass
145 class carte_temp_r (carte):pass
146 class carte_var2_r (carte):pass
147 class carte_vnor_c (carte):pass
150 # cham_gd/cham_elem :
151 #--------------------------------
152 class cham_elem(cham_gd):pass
153 class cham_elem_crit_r(cham_elem):pass
154 class cham_elem_dbel_r(cham_elem):pass
155 class cham_elem_depl_c(cham_elem):pass
156 class cham_elem_depl_f(cham_elem):pass
157 class cham_elem_depl_r(cham_elem):pass
158 class cham_elem_dommag(cham_elem):pass
159 class cham_elem_durt_r(cham_elem):pass
160 class cham_elem_ener_r(cham_elem):pass
161 class cham_elem_epsi_c(cham_elem):pass
162 class cham_elem_epsi_r(cham_elem):pass
163 class cham_elem_erreur(cham_elem):pass
164 class cham_elem_facy_r(cham_elem):pass
165 class cham_elem_flux_r(cham_elem):pass
166 class cham_elem_g_depl(cham_elem):pass
167 class cham_elem_geom_r(cham_elem):pass
168 class cham_elem_hydr_r(cham_elem):pass
169 class cham_elem_inst_r(cham_elem):pass
170 class cham_elem_inte_r(cham_elem):pass
171 class cham_elem_irra_r(cham_elem):pass
172 class cham_elem_meta_r(cham_elem):pass
173 class cham_elem_neut_f(cham_elem):pass
174 class cham_elem_neut_r(cham_elem):pass
175 class cham_elem_pres_r(cham_elem):pass
176 class cham_elem_sief_c(cham_elem):pass
177 class cham_elem_sief_r(cham_elem):pass
178 class cham_elem_sour_r(cham_elem):pass
179 class cham_elem_spma_r(cham_elem):pass
180 class cham_elem_temp_f(cham_elem):pass
181 class cham_elem_temp_r(cham_elem):pass
182 class cham_elem_vari_r(cham_elem):pass
183 class cham_elem_vnor_c(cham_elem):pass
187 #--------------------------------
188 class cham_no(cham_gd):pass
189 class cham_no_dbel_r (cham_no):pass
190 class cham_no_depl_c (cham_no):pass
191 class cham_no_depl_f (cham_no):pass
192 class cham_no_depl_r (cham_no):pass
193 class cham_no_durt_r (cham_no):pass
194 class cham_no_ener_r (cham_no):pass
195 class cham_no_epsi_r (cham_no):pass
196 class cham_no_erreur (cham_no):pass
197 class cham_no_flux_r (cham_no):pass
198 class cham_no_g_depl_r (cham_no):pass
199 class cham_no_geom_r (cham_no):pass
200 class cham_no_hydr_r (cham_no):pass
201 class cham_no_inst_r (cham_no):pass
202 class cham_no_inte_r (cham_no):pass
203 class cham_no_irra_r (cham_no):pass
204 class cham_no_meta_r (cham_no):pass
205 class cham_no_neut_f (cham_no):pass
206 class cham_no_neut_r (cham_no):pass
207 class cham_no_pres_c (cham_no):pass
208 class cham_no_pres_r (cham_no):pass
209 class cham_no_sief_r (cham_no):pass
210 class cham_no_sour_r (cham_no):pass
211 class cham_no_spma_r (cham_no):pass
212 class cham_no_temp_c (cham_no):pass
213 class cham_no_temp_f (cham_no):pass
214 class cham_no_temp_r (cham_no):pass
215 class cham_no_vanl_r (cham_no):pass
216 class cham_no_var2_r (cham_no):pass
217 class cham_no_vnor_c (cham_no):pass
220 # resultat : (evol,mode_stat,mode_meca)
221 #--------------------------------
223 class resultat(ASSD):
224 def LIST_CHAMPS (self) :
225 return aster.GetResu(self.get_name(), "CHAMPS")
226 def LIST_NOM_CMP (self) :
227 return aster.GetResu(self.get_name(), "COMPOSANTES")
228 def LIST_VARI_ACCES (self) :
229 return aster.GetResu(self.get_name(), "VARI_ACCES")
231 class acou_harmo (resultat):pass
232 class base_modale (resultat):pass
233 class comb_fourier (resultat):pass
234 class dyna_harmo (resultat):pass
235 class dyna_trans (resultat):pass
236 class fourier_elas (resultat):pass
237 class harm_gene (resultat):pass
238 class mode_acou (resultat):pass
239 class mode_cycl (resultat):pass
240 class mode_flamb (resultat):pass
241 class mode_gene (resultat):pass
242 class mult_elas (resultat):pass
243 class theta_geom (resultat):pass
246 #--------------------------------
247 class evol(resultat):pass
248 class evol_char(evol):pass
249 class evol_elas(evol):pass
250 class evol_noli(evol):pass
251 class evol_ther(evol):pass
252 class evol_varc(evol):pass
254 # resultat/mode_stat :
255 #--------------------------------
256 class mode_stat(resultat):pass
257 class mode_stat_depl(mode_stat):pass
258 class mode_stat_acce(mode_stat):pass
259 class mode_stat_forc(mode_stat):pass
262 # resultat/mode_meca :
263 #--------------------------------
264 class mode_meca(resultat):pass
265 class mode_meca_c(mode_meca):pass
269 #--------------------------------
270 class fonction(fonction):
271 def LIST_VALEURS(self) :
272 """ retourne la liste des valeurs [ val1, ...] """
273 vale=string.ljust(self.get_name(),19)+'.VALE'
274 lbl=list(aster.getvectjev(vale))
276 for i in range(len(lbl)/2):
278 lbr.append(lbl[len(lbl)/2+i])
280 class para_sensi(fonction):pass
281 class fonction_c(fonction):
282 def LIST_VALEURS(self) :
283 """ retourne la liste des valeurs [ val1, ...] """
284 vale=string.ljust(self.get_name(),19)+'.VALE'
285 lbl=list(aster.getvectjev(vale))
287 for i in range(len(lbl)/3):
289 lbr.append(lbl[len(lbl)/3+i*2])
290 lbr.append(lbl[len(lbl)/3+i*2+1])
295 #--------------------------------
296 class matr_asse(ASSD):pass
297 class matr_asse_depl_c(matr_asse):pass
298 class matr_asse_depl_r(matr_asse):pass
299 class matr_asse_gene_r(matr_asse):pass
300 class matr_asse_gene_c(matr_asse):pass
301 class matr_asse_pres_c(matr_asse):pass
302 class matr_asse_pres_r(matr_asse):pass
303 class matr_asse_temp_c(matr_asse):pass
304 class matr_asse_temp_r(matr_asse):pass
307 #--------------------------------
308 class matr_elem(ASSD):pass
309 class matr_elem_depl_c(matr_elem):pass
310 class matr_elem_depl_r(matr_elem):pass
311 class matr_elem_pres_c(matr_elem):pass
312 class matr_elem_temp_r(matr_elem):pass
317 # table : (tabl_fonc)
318 #--------------------------------
321 def __getitem__(self,key):
322 requete=string.ljust(key[0],24)
323 tblp=string.ljust(self.get_name(),19)+'.TBLP'
324 tabnom=list(aster.getvectjev(tblp))
325 for i in range(len(tabnom)) :
326 if tabnom[i]==requete: break
327 resu=aster.getvectjev(tabnom[i+2])
328 if key[1]>len(resu) : raise KeyError
329 else : return resu[key[1]-1]
331 class tabl_aire_int (table):pass
332 class tabl_calc_g_loca(table):pass
333 class tabl_calc_g_th (table):pass
334 class tabl_cara_geom (table):pass
335 class tabl_char_limite(table):pass
336 class tabl_ener_elas (table):pass
337 class tabl_ener_pot (table):pass
338 class tabl_ener_cin (table):pass
339 class tabl_trav_ext (table):pass
340 class tabl_ener_totale(table):pass
341 class tabl_indic_ener (table):pass
342 class tabl_indic_seuil(table):pass
343 class tabl_intsp (table):pass
344 class tabl_mass_iner (table):pass
345 class tabl_post_alea (table):pass
346 class tabl_post_beta (table):pass
347 class tabl_post_dyna (table):pass
348 class tabl_post_f_alea(table):pass
349 class tabl_post_fatig (table):pass
350 class tabl_post_gouj2e(table):pass
351 class tabl_post_k (table):pass
352 class tabl_post_rccm (table):pass
353 class tabl_post_rele (table):pass
354 class tabl_post_simpli(table):pass
355 class tabl_post_usur (table):pass
356 class tabl_reca_weib (table):pass
357 class tabl_rice_tracey(table):pass
358 class tabl_texture (table):pass
359 class tabl_trc (table):pass
360 class tabl_weibull (table):pass
363 #--------------------------------
364 class tabl_fonc (table):pass
365 class tabl_fonc_max (tabl_fonc):pass
366 class tabl_fonc_noci (tabl_fonc):pass
367 class tabl_fonc_rms (tabl_fonc):pass
371 #--------------------------------
372 class vect_asse(ASSD):pass
373 class vect_asse_gene(vect_asse):pass
377 #--------------------------------
378 class vect_elem(ASSD):pass
379 class vect_elem_depl_r(vect_elem):pass
380 class vect_elem_pres_c(vect_elem):pass
381 class vect_elem_pres_r(vect_elem):pass
382 class vect_elem_temp_r(vect_elem):pass
384 #& MODIF COMMUN DATE 04/03/2003 AUTEUR ASSIRE A.ASSIRE
385 # CONFIGURATION MANAGEMENT OF EDF VERSION
386 # ======================================================================
387 # COPYRIGHT (C) 1991 - 2003 EDF R&D WWW.CODE-ASTER.ORG
388 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
389 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
390 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
391 # (AT YOUR OPTION) ANY LATER VERSION.
393 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
394 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
395 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
396 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
398 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
399 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
400 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
401 # ======================================================================
402 def C_COMP_INCR() : return FACT(statut='f',min=1,max='**',
403 RELATION =SIMP(statut='o',typ='TXM',defaut="VMIS_ISOT_TRAC",
493 ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
494 SANS =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
495 VMIS_ISOT_TRAC =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
496 VMIS_ISOT_LINE =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
497 VMIS_ECMI_TRAC =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
498 VMIS_ECMI_LINE =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
499 LABORD_1D =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
500 ENDO_FRAGILE =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
501 ENDO_ISOT_BETON =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
502 MAZARS =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
503 RUPT_FRAG =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
504 BARENBLATT =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
505 META_P_IL =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
506 META_P_IL_PT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
507 META_P_IL_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
508 META_P_IL_PT_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
509 META_V_IL =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
510 META_V_IL_PT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
511 META_V_IL_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
512 META_V_IL_PT_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
513 META_P_INL =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
514 META_P_INL_PT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
515 META_P_INL_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
516 META_P_INL_PT_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
517 META_V_INL =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
518 META_V_INL_PT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
519 META_V_INL_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
520 META_V_INL_PT_RE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
521 META_P_CL =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
522 META_P_CL_PT =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
523 META_P_CL_RE =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
524 META_P_CL_PT_RE =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
525 META_V_CL =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
526 META_V_CL_PT =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
527 META_V_CL_RE =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
528 META_V_CL_PT_RE =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
529 VMIS_CINE_LINE =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
530 CHABOCHE =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
531 VISCOCHAB =SIMP(statut='c',typ='I',defaut=28,into=(28,)),
532 VISC_CIN1_CHAB =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
533 VISC_CIN2_CHAB =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
534 POLY_CFC =SIMP(statut='c',typ='I',defaut=1688,into=(1688,)),
535 LMARC =SIMP(statut='c',typ='I',defaut=20,into=(20,)),
536 VISC_TAHERI =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
537 ROUSSELIER =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
538 ROUSS_PR =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
539 ROUSS_VISC =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
540 VMIS_POU_LINE =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
541 VMIS_POU_FLEJOU =SIMP(statut='c',typ='I',defaut=9 ,into=(9,)),
542 COULOMB =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
543 ASSE_CORN =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
544 ARME =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
545 NORTON_HOFF =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
546 LEMAITRE =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
547 ZIRC_CYRA2 =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
548 ZIRC_EPRI =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
549 ASSE_COMBU =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
550 NADAI_B =SIMP(statut='c',typ='I',defaut=34,into=(34,)),
551 VENDOCHAB =SIMP(statut='c',typ='I',defaut=10,into=(10,)),
552 GRILLE_ISOT_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
553 GRILLE_CINE_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
554 GRILLE_PINTO_MEN=SIMP(statut='c',typ='I',defaut=16,into=(16,)),
555 DIS_CONTACT =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
556 DIS_CHOC =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
557 DIS_GOUJ2E_PLAS =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
558 DIS_GOUJ2E_ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
559 PINTO_MENEGOTTO =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
560 CJS =SIMP(statut='c',typ='I',defaut=16,into=(16,)),
561 CAM_CLAY =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
562 LAIGLE =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
563 OHNO =SIMP(statut='c',typ='I',defaut=32,into=(32,)),
564 GRANGER_FP =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
565 GRANGER_FP_V =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
566 BAZANT_FD =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
567 BETON_DOUBLE_DP =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
568 KIT_HM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
569 KIT_HHM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
570 KIT_THH =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
571 KIT_THV =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
572 KIT_THM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
573 KIT_THHM =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
574 VMIS_ASYM_LINE =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
575 BETON_UMLV_FP =SIMP(statut='c',typ='I',defaut=20,into=(20,)),
577 RELATION_KIT =SIMP(statut='f',typ='TXM',max='**',
619 ELAS_THM =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
620 SURF_ETAT_NSAT =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
621 SURF_ETAT_SATU =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
622 CAM_CLAY_THM =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
623 GAZ =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
624 LIQU_SATU =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
625 LIQU_SATU_GAT =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
626 LIQU_GAZ_ATM =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
627 LIQU_VAPE_GAZ =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
628 LIQU_VAPE =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
629 LIQU_NSAT_GAT =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
630 LIQU_GAZ =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
631 THER_HOMO =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
632 THER_POLY =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
633 HYDR_UTIL =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
634 HYDR =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
635 ACIER =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
636 ZIRC =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
638 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC","SIMO_MIEHE","GREEN_GR","GREEN",)),
639 ALGO_C_PLAN =SIMP(statut='f',typ='TXM',defaut="ANALYTIQUE",into=("DEBORST","ANALYTIQUE",)),
640 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
641 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
642 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
643 MAILLE =SIMP(statut='f',typ=ma,max='**'),
645 #& MODIF COMMANDE DATE 07/01/2003 AUTEUR JMBHH01 J.M.PROIX
646 # CONFIGURATION MANAGEMENT OF EDF VERSION
647 # ======================================================================
648 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
649 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
650 # REDISTRIBUTION OF THIS FILE.
651 # ======================================================================
652 # RESPONSABLE JMBHH01 J.M.PROIX
653 AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op= 19,sd_prod=cara_elem,
654 fr="Affectation de caractéristiques à des éléments de structure",
655 docu="U4.42.01-g3",reentrant='n',
656 UIinfo={"groupes":("Modélisation",)},
657 regles=(AU_MOINS_UN('POUTRE','BARRE','COQUE','CABLE','DISCRET','MASSIF',
658 'ASSE_GRIL','GRILLE','AFFE_SECT','AFFE_FIBRE'),),
659 MODELE =SIMP(statut='o',typ=modele ),
660 INFO =SIMP(statut='f',typ='I', defaut= 1 ,into=(1,2) ),
661 VERIF =SIMP(statut='f',typ='TXM',max='**',into=("MAILLE","NOEUD") ),
663 POUTRE =FACT(statut='f',min=1,max='**',
664 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
665 MAILLE =SIMP(statut='f',typ=ma,max='**'),
666 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
667 SECTION =SIMP(statut='o',typ='TXM' ,into=("GENERALE","RECTANGLE","CERCLE") ),
668 CARA_SECT =SIMP(statut='f',typ=(cara_pout) ),
669 TUYAU_NCOU =SIMP(statut='f',typ='I',min=1,max=10,defaut=3),
670 TUYAU_NSEC =SIMP(statut='f',typ='I',min=1,max=32,defaut=16),
671 b_generale =BLOC( condition = "SECTION=='GENERALE'",
672 CARA =SIMP(statut='o',typ='TXM',max='**',
673 into=("A","IY","IZ","AY","AZ","EY","EZ","JX","RY","RZ","RT",
674 "AI","JG","IYR2","IZR2","A1",
675 "IY1","IZ1","AY1","AZ1","EY1","EZ1","JX1","RY1",
676 "RZ1","RT1","AI1","JG1","IYR21","IZR21","A2",
677 "IY2","IZ2","AY2","AZ2","EY2","EZ2","JX2","RY2",
678 "RZ2","RT2","AI2","JG2","IYR22","IZR22","H",
679 "HZ","HY","EP","EPY","EPZ","H1","HZ1","HY1",
680 "EP1","EPY1","EPZ1","H2","HZ2","HY2","EP2",
681 "EPY2","EPZ2","R","R1","R2") ),
682 VALE =SIMP(statut='o',typ='R',max='**'),
683 VARI_SECT =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE",) ),
685 b_rectangle =BLOC( condition = "SECTION=='RECTANGLE'",
686 CARA =SIMP(statut='o',typ='TXM',max='**',
687 into=("H","EP","HY","HZ","EPY","EPZ",
688 "H1","HZ1","HY1","EP1","EPY1","EPZ1",
689 "H2","HZ2","HY2","EP2","EPY2","EPZ2") ),
690 VALE =SIMP(statut='o',typ='R',max='**'),
691 VARI_SECT =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE","AFFINE"),defaut="HOMOTHETIQUE"),
693 b_cercle =BLOC( condition = "SECTION=='CERCLE'",
694 CARA =SIMP(statut='o',typ='TXM',max='**',
695 into=("R","EP","R1","R2","EP1","EP2") ),
696 VALE =SIMP(statut='o',typ='R',max='**'),
697 VARI_SECT =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE",) ),
698 MODI_METRIQUE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
700 FCX =SIMP(statut='f',typ=(fonction) ),
703 BARRE =FACT(statut='f',min=1,max='**',
704 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
705 MAILLE =SIMP(statut='f',typ=ma,max='**'),
706 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
707 SECTION =SIMP(statut='o',typ='TXM',into=("GENERALE","RECTANGLE","CERCLE") ),
708 b_generale =BLOC( condition = "SECTION=='GENERALE'",
709 CARA =SIMP(statut='o',typ='TXM',into=("A",) ),
710 VALE =SIMP(statut='o',typ='R' ),
712 b_rectangle =BLOC( condition = "SECTION=='RECTANGLE'",
713 CARA =SIMP(statut='o',typ='TXM',into=("H","HZ","HY","EPY","EPZ","EP"),max=6 ),
714 VALE =SIMP(statut='o',typ='R',max=6 ),
716 b_cercle =BLOC( condition = "SECTION=='CERCLE'",
717 CARA =SIMP(statut='o',typ='TXM',max=2,into=("R","EP") ),
718 VALE =SIMP(statut='o',typ='R',max=2 ),
720 FCX =SIMP(statut='f',typ=(fonction) ),
723 COQUE =FACT(statut='f',min=1,max='**',
724 regles=(UN_PARMI('MAILLE','GROUP_MA' ),
725 PRESENT_PRESENT( 'EXCENTREMENT','INER_ROTA' ),),
726 MAILLE =SIMP(statut='f',typ=ma,max='**'),
727 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
728 EPAIS =SIMP(statut='o',typ='R' ),
729 ANGL_REP =SIMP(statut='f',typ='R',min=2,max=2),
730 A_CIS =SIMP(statut='c',typ='R',defaut= 0.8333333E0),
731 COEF_RIGI_DRZ =SIMP(statut='f',typ='R',defaut= 1.0E-5 ),
732 COQUE_NCOU =SIMP(statut='f',typ='I',defaut= 1 ),
733 EXCENTREMENT =SIMP(statut='f',typ='R' ),
734 INER_ROTA =SIMP(statut='f',typ='TXM',into=("OUI",) ),
735 MODI_METRIQUE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
738 CABLE =FACT(statut='f',min=1,max='**',
739 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
740 MAILLE =SIMP(statut='f',typ=ma,max='**'),
741 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
742 N_INIT =SIMP(statut='f',typ='R',defaut= 5000. ),
743 SECTION =SIMP(statut='f',typ='R' ),
744 FCX =SIMP(statut='f',typ=(fonction) ),
747 DISCRET =FACT(statut='f',min=1,max='**',
748 regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
749 NOEUD =SIMP(statut='f',typ=no,max='**'),
750 MAILLE =SIMP(statut='f',typ=ma,max='**'),
751 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
752 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
753 REPERE =SIMP(statut='f',typ='TXM',into=("LOCAL","GLOBAL") ),
754 AMOR_HYST =SIMP(statut='f',typ='R' ),
755 CARA =SIMP(statut='o',typ='TXM',max='**',
756 into=("K_T_D_N","K_T_D_L","K_TR_D_N","K_TR_D_L",
757 "K_T_N", "K_T_L", "K_TR_N", "K_TR_L",
758 "M_T_D_N","M_TR_D_N","M_T_N",
759 "M_T_L", "M_TR_N", "M_TR_L",
760 "A_T_D_N","A_TR_D_N","A_T_D_L","A_TR_D_L",
761 "A_T_N", "A_T_L", "A_TR_N", "A_TR_L") ),
762 VALE =SIMP(statut='o',typ='R',max='**'),
765 ORIENTATION =FACT(statut='f',min=1,max='**',
766 regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO' ),),
767 MAILLE =SIMP(statut='f',typ=ma,max='**'),
768 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
769 NOEUD =SIMP(statut='f',typ=no,max='**'),
770 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
771 CARA =SIMP(statut='o',typ='TXM',
772 into=("VECT_Y","ANGL_VRIL","VECT_X_Y","ANGL_NAUT","GENE_TUYAU") ),
773 VALE =SIMP(statut='o',typ='R',max='**'),
774 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-4 ),
775 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
778 DEFI_ARC =FACT(statut='f',min=1,max='**',
779 regles=(UN_PARMI('MAILLE','GROUP_MA'),
780 UN_PARMI('ORIE_ARC','CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE',
781 'POIN_TANG','NOEUD_POIN_TANG','GROUP_NO_POIN_TG'),
782 PRESENT_PRESENT('ORIE_ARC','RAYON'),
783 EXCLUS('COEF_FLEX','COEF_FLEX_XY'),
784 EXCLUS('COEF_FLEX','COEF_FLEX_XZ'),
785 EXCLUS('INDI_SIGM','INDI_SIGM_XY'),
786 EXCLUS('INDI_SIGM','INDI_SIGM_XZ'),
787 PRESENT_PRESENT('COEF_FLEX_XY','COEF_FLEX_XZ'),
788 PRESENT_PRESENT('INDI_SIGM_XY','INDI_SIGM_XZ'),),
789 MAILLE =SIMP(statut='f',typ=ma,max='**'),
790 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
791 ORIE_ARC =SIMP(statut='f',typ='R'),
792 CENTRE =SIMP(statut='f',typ='R',max='**'),
793 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=1),
794 GROUP_NO_CENTRE =SIMP(statut='f',typ=grno,max=1),
795 POIN_TANG =SIMP(statut='f',typ='R',max='**'),
796 NOEUD_POIN_TANG =SIMP(statut='f',typ=no,max=1),
797 GROUP_NO_POIN_TG=SIMP(statut='f',typ=grno,max=1),
798 RAYON =SIMP(statut='f',typ='R'),
799 COEF_FLEX =SIMP(statut='f',typ='R'),
800 INDI_SIGM =SIMP(statut='f',typ='R'),
801 COEF_FLEX_XY =SIMP(statut='f',typ='R'),
802 INDI_SIGM_XY =SIMP(statut='f',typ='R'),
803 COEF_FLEX_XZ =SIMP(statut='f',typ='R'),
804 INDI_SIGM_XZ =SIMP(statut='f',typ='R'),
805 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
806 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
809 MASSIF =FACT(statut='f',min=1,max='**',
810 regles=(UN_PARMI('MAILLE','GROUP_MA'),
811 UN_PARMI('ANGL_REP','ANGL_AXE'),
812 EXCLUS('ANGL_REP','ANGL_AXE'),
813 EXCLUS('ANGL_REP','ORIG_AXE'),
814 PRESENT_PRESENT('ANGL_AXE','ORIG_AXE'), ),
815 MAILLE =SIMP(statut='f',typ=ma,max='**'),
816 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
817 ANGL_REP =SIMP(statut='f',typ='R',max=3),
818 ANGL_AXE =SIMP(statut='f',typ='R',max=2),
819 ORIG_AXE =SIMP(statut='f',typ='R',max=3),
822 POUTRE_FLUI =FACT(statut='f',min=1,max='**',
823 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
824 MAILLE =SIMP(statut='f',typ=ma,max='**'),
825 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
826 B_T =SIMP(statut='o',typ='R'),
827 B_N =SIMP(statut='o',typ='R'),
828 B_TN =SIMP(statut='o',typ='R',defaut= 0.E+0 ),
829 A_FLUI =SIMP(statut='o',typ='R'),
830 A_CELL =SIMP(statut='o',typ='R'),
831 COEF_ECHELLE =SIMP(statut='o',typ='R'),
834 GRILLE =FACT(statut='f',min=1,max='**',
835 regles=(UN_PARMI('MAILLE','GROUP_MA'),
836 EXCLUS('ANGL_REP','ORIG_AXE'),
837 ENSEMBLE('ORIG_AXE','AXE')),
838 MAILLE =SIMP(statut='f',typ=ma,max='**'),
839 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
840 SECTION_L =SIMP(statut='o',typ='R'),
841 ANGL_REP =SIMP(statut='f',typ='R',max=2),
842 ANGL_L =SIMP(statut='f',typ='R'),
843 POUR_CENT_L =SIMP(statut='f',typ='R'),
844 POUR_CENT_T =SIMP(statut='f',typ='R'),
845 EXCENTREMENT =SIMP(statut='f',typ='R'),
846 ORIG_AXE =SIMP(statut='f',typ='R',max='**'),
847 AXE =SIMP(statut='f',typ='R',max='**'),
848 COEF_RIGI_DRZ =SIMP(statut='f',typ='R',defaut= 1.0E-10 ),
849 GRILLE_NCOU =SIMP(statut='f',typ='I',defaut= 1,min=1,max=1 ),
852 RIGI_PARASOL =FACT(statut='f',min=1,max='**',
853 regles=(UN_PARMI('COEF_GROUP','FONC_GROUP'),
854 UN_PARMI('COOR_CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),),
855 GROUP_MA =SIMP(statut='o',typ=ma,max='**'),
856 FONC_GROUP =SIMP(statut='f',typ=(fonction) ),
857 COEF_GROUP =SIMP(statut='f',typ='R',max='**'),
858 REPERE =SIMP(statut='f',typ='TXM',into=("LOCAL","GLOBAL") ),
859 CARA =SIMP(statut='o',typ='TXM',max='**',into=("K_TR_D_N","A_TR_D_N") ),
860 VALE =SIMP(statut='o',typ='R',max='**'),
861 GROUP_NO_CENTRE =SIMP(statut='f',typ=grno),
862 NOEUD_CENTRE =SIMP(statut='f',typ=no),
863 COOR_CENTRE =SIMP(statut='f',typ='R',max='**'),
866 ASSE_GRIL =FACT(statut='f',min=1,max='**',
867 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
868 MAILLE =SIMP(statut='f',typ=ma,max='**'),
869 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
870 CARA =SIMP(statut='o',typ='TXM',max='**',
871 into=("K_TR_D_N","K_TR_D_L_T","K_TR_D_L_N",) ),
872 VALE =SIMP(statut='o',typ='R',max='**'),
873 PAS_T =SIMP(statut='o',typ='R'),
874 PAS_N =SIMP(statut='o',typ='R'),
875 ANGL_REP =SIMP(statut='o',typ='R',max='**'),
876 COEF_ECHELLE =SIMP(statut='o',typ='R'),
880 AFFE_SECT =FACT(statut='f',min=1,max='**',
881 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
882 AU_MOINS_UN('TOUT_SECT','GROUP_MA_SECT','MAILLE_SECT'),
883 PRESENT_ABSENT('TOUT_SECT','GROUP_MA_SECT','MAILLE_SECT'),),
885 NOM =SIMP(statut='f',typ='TXM'),
887 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
888 MAILLE =SIMP(statut='f',typ=ma,max='**'),
890 TOUT_SECT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
891 GROUP_MA_SECT =SIMP(statut='f',typ=grma,max='**'),
892 MAILLE_SECT =SIMP(statut='f',typ=ma,max='**'),
894 MAILLAGE_SECT =SIMP(statut='o',typ=maillage),
895 COOR_AXE_POUTRE =SIMP(statut='o',typ='R',min=2,max=2),
899 AFFE_FIBRE =FACT(statut='f',min=1,max='**',
900 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
902 NOM =SIMP(statut='f',typ='TXM'),
904 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
905 MAILLE =SIMP(statut='f',typ=ma,max='**'),
907 CARA =SIMP(statut='f',typ='TXM',defaut='SURFACE',into=('SURFACE','DIAMETRE',)),
908 VALE =SIMP(statut='o',typ='R',max='**'),
909 COOR_AXE_POUTRE =SIMP(statut='o',typ='R',min=2,max=2),
914 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
915 # CONFIGURATION MANAGEMENT OF EDF VERSION
916 # ======================================================================
917 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
918 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
919 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
920 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
921 # (AT YOUR OPTION) ANY LATER VERSION.
923 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
924 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
925 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
926 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
928 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
929 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
930 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
931 # ======================================================================
932 AFFE_CHAR_ACOU=OPER(nom="AFFE_CHAR_ACOU",op= 68,sd_prod=char_acou,
933 fr="Affectation de charges et conditions aux limites acoustiques constantes",
934 docu="U4.44.04-e",reentrant='n',
935 UIinfo={"groupes":("Modélisation",)},
936 regles=(AU_MOINS_UN('PRES_IMPO','VITE_FACE','IMPE_FACE','LIAISON_UNIF' ),),
937 MODELE =SIMP(statut='o',typ=modele ),
938 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
939 PRES_IMPO =FACT(statut='f',min=1,max='**',
940 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
941 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
942 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
943 MAILLE =SIMP(statut='f',typ=ma,max='**'),
944 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
945 NOEUD =SIMP(statut='f',typ=no,max='**'),
946 PRES =SIMP(statut='o',typ='C' ),
948 VITE_FACE =FACT(statut='f',min=1,max='**',
949 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
950 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
951 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
952 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
953 MAILLE =SIMP(statut='f',typ=ma,max='**'),
954 VNOR =SIMP(statut='o',typ='C' ),
956 IMPE_FACE =FACT(statut='f',min=1,max='**',
957 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
958 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
959 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
960 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
961 MAILLE =SIMP(statut='f',typ=ma,max='**'),
962 IMPE =SIMP(statut='o',typ='C' ),
964 LIAISON_UNIF =FACT(statut='f',min=1,max='**',
965 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE' ),),
966 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
967 NOEUD =SIMP(statut='f',typ=no,max='**'),
968 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
969 MAILLE =SIMP(statut='f',typ=ma,max='**'),
970 DDL =SIMP(statut='o',typ='TXM',max='**'),
973 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
974 # CONFIGURATION MANAGEMENT OF EDF VERSION
975 # ======================================================================
976 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
977 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
978 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
979 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
980 # (AT YOUR OPTION) ANY LATER VERSION.
982 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
983 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
984 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
985 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
987 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
988 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
989 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
990 # ======================================================================
991 # RESPONSABLE VABHHTS J.PELLET
992 def affe_char_cine_prod(MECA_IMPO,THER_IMPO,ACOU_IMPO,**args):
993 if MECA_IMPO != None : return char_cine_meca
994 if THER_IMPO != None : return char_cine_ther
995 if ACOU_IMPO != None : return char_cine_acou
996 raise AsException("type de concept resultat non prevu")
998 AFFE_CHAR_CINE=OPER(nom="AFFE_CHAR_CINE",op= 101,sd_prod=affe_char_cine_prod
999 ,fr="Affectation de conditions aux limites cinématiques pour traitement sans dualisation",
1000 docu="U4.44.03-e",reentrant='n',
1001 UIinfo={"groupes":("Modélisation",)},
1002 regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO','ACOU_IMPO'),
1003 EXCLUS('MECA_IMPO','THER_IMPO'),
1004 EXCLUS('MECA_IMPO','ACOU_IMPO'),
1005 EXCLUS('THER_IMPO','ACOU_IMPO'),),
1006 MODELE =SIMP(statut='o',typ=modele ),
1007 MECA_IMPO =FACT(statut='f',min=1,max='**',
1008 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
1009 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','TEMP','PHI'),),
1010 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1011 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1012 NOEUD =SIMP(statut='f',typ=no,max='**'),
1013 DX =SIMP(statut='f',typ='R' ),
1014 DY =SIMP(statut='f',typ='R' ),
1015 DZ =SIMP(statut='f',typ='R' ),
1016 DRX =SIMP(statut='f',typ='R' ),
1017 DRY =SIMP(statut='f',typ='R' ),
1018 DRZ =SIMP(statut='f',typ='R' ),
1019 GRX =SIMP(statut='f',typ='R' ),
1020 PRES =SIMP(statut='f',typ='R' ),
1021 TEMP =SIMP(statut='f',typ='R' ),
1022 PHI =SIMP(statut='f',typ='R' ),
1024 THER_IMPO =FACT(statut='f',min=1,max='**',
1025 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
1026 AU_MOINS_UN('TEMP','TEMP_INF','TEMP_SUP'),),
1027 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1028 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1029 NOEUD =SIMP(statut='f',typ=no,max='**'),
1030 TEMP_SUP =SIMP(statut='f',typ='R' ),
1031 TEMP =SIMP(statut='f',typ='R' ),
1032 TEMP_INF =SIMP(statut='f',typ='R' ),
1034 ACOU_IMPO =FACT(statut='f',min=1,max='**',
1035 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD' ),),
1036 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1037 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1038 NOEUD =SIMP(statut='f',typ=no,max='**'),
1039 PRES =SIMP(statut='o',typ='C' ),
1041 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1043 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
1044 # CONFIGURATION MANAGEMENT OF EDF VERSION
1045 # ======================================================================
1046 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
1047 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1048 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1049 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1050 # (AT YOUR OPTION) ANY LATER VERSION.
1052 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1053 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1054 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1055 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1057 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1058 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1059 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1060 # ======================================================================
1061 def affe_char_cine_f_prod(MECA_IMPO,THER_IMPO,**args):
1062 if MECA_IMPO != None : return char_cine_meca
1063 if THER_IMPO != None : return char_cine_ther
1064 raise AsException("type de concept resultat non prevu")
1066 AFFE_CHAR_CINE_F=OPER(nom="AFFE_CHAR_CINE_F",op= 108,sd_prod=affe_char_cine_f_prod
1067 ,fr="Affectation de conditions aux limites cinématiques pour traitement sans dualisation",
1068 docu="U4.44.03-e",reentrant='n',
1069 UIinfo={"groupes":("Modélisation",)},
1070 regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO'),
1071 EXCLUS('MECA_IMPO','THER_IMPO'),),
1072 MODELE =SIMP(statut='o',typ=modele ),
1073 MECA_IMPO =FACT(statut='f',min=1,max='**',
1074 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
1075 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','TEMP','PHI'),),
1076 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1077 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1078 NOEUD =SIMP(statut='f',typ=no,max='**'),
1079 DX =SIMP(statut='f',typ=fonction ),
1080 DY =SIMP(statut='f',typ=fonction ),
1081 DZ =SIMP(statut='f',typ=fonction ),
1082 DRX =SIMP(statut='f',typ=fonction ),
1083 DRY =SIMP(statut='f',typ=fonction ),
1084 DRZ =SIMP(statut='f',typ=fonction ),
1085 GRX =SIMP(statut='f',typ=fonction ),
1086 PRES =SIMP(statut='f',typ=fonction ),
1087 TEMP =SIMP(statut='f',typ=fonction ),
1088 PHI =SIMP(statut='f',typ=fonction ),
1090 THER_IMPO =FACT(statut='f',min=1,max='**',
1091 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
1092 AU_MOINS_UN('TEMP','TEMP_INF','TEMP_SUP' ),),
1093 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1094 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1095 NOEUD =SIMP(statut='f',typ=no,max='**'),
1096 TEMP_SUP =SIMP(statut='f',typ=fonction ),
1097 TEMP =SIMP(statut='f',typ=fonction ),
1098 TEMP_INF =SIMP(statut='f',typ=fonction ),
1100 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1102 #& MODIF COMMANDE DATE 04/03/2003 AUTEUR ASSIRE A.ASSIRE
1103 # CONFIGURATION MANAGEMENT OF EDF VERSION
1104 # ======================================================================
1105 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
1106 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1107 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1108 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1109 # (AT YOUR OPTION) ANY LATER VERSION.
1111 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1112 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1113 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1114 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1116 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1117 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1118 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1119 # ======================================================================
1120 # RESPONSABLE G8BHHXD X.DESROCHES
1121 AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op= 7,sd_prod=char_meca
1122 ,fr="Affectation de charges et conditions aux limites mécaniques constantes",
1123 docu="U4.44.01-g3",reentrant='n',
1124 UIinfo={"groupes":("Modélisation",)},
1125 regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
1126 'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
1127 'PRES_REP','FORCE_POUTRE','FORCE_COQUE','LIAISON_OBLIQUE',
1128 'FORCE_ELEC','INTE_ELEC','PESANTEUR','ROTATION','IMPE_FACE',
1129 'VITE_FACE','TEMP_CALCULEE','RELA_CINE_BP','EPSI_INIT','CONTACT',
1130 'LIAISON_GROUP','LIAISON_UNIF','FLUX_THM_REP',
1131 'LIAISON_SOLIDE','LIAISON_ELEM','ONDE_FLUI','PRES_CALCULEE',
1132 'EPSA_CALCULEE','LIAISON_CHAMNO','VECT_ASSE','LIAISON_COQUE',
1133 'LIAISON_MAIL','FORCE_TUYAU','SECH_CALCULEE','HYDR_CALCULEE',
1134 'EFFE_FOND','EVOL_CHAR','ARLEQUIN','DDL_POUTRE'),
1135 EXCLUS('PRES_CALCULEE','EVOL_CHAR'),),
1136 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1137 VERI_NORM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1138 MODELE =SIMP(statut='o',typ=(modele) ),
1139 TEMP_CALCULEE =SIMP(statut='f',fr="Champ de température issu d'un autre calcul",
1140 typ=(evol_ther,cham_no_temp_r,carte_temp_r,carte_temp_f ) ),
1141 HYDR_CALCULEE =SIMP(statut='f',fr="Champ d hydratation issu d'un autre calcul",
1143 SECH_CALCULEE =SIMP(statut='f',fr="Champ de séchage issu d'un autre calcul",
1144 typ=(evol_ther,cham_no_temp_r,carte_temp_r,carte_temp_f ) ),
1145 EPSA_CALCULEE =SIMP(statut='f',fr="Champ de déformation anélastique issu d'un autre calcul",
1147 # A TERME PRES_CALCULEE N'EXISTERA PLUS
1148 EVOL_CHAR =SIMP(statut='f',fr="Champ de pression issu d'un autre calcul",
1150 PRES_CALCULEE =SIMP(statut='f',fr="Champ de pression issu d'un autre calcul",
1153 PESANTEUR =SIMP(statut='f',typ='R',fr="Champ de pesanteur",min=4,max=4),
1154 ROTATION =SIMP(statut='f',typ='R',fr="Champ de rotation",min=4,max=4),
1155 b_rotation =BLOC ( condition = "ROTATION != None",
1156 CENTRE =SIMP(statut='f',typ='R',defaut=(0.,0.,0.),max=3),),
1158 DDL_IMPO =FACT(statut='f',min=1,max='**',
1159 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
1160 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
1161 'TEMP','PRE1','PRE2','UI2','UI3','VI2','VI3','WI2','WI3','UO2',
1162 'UO3','VO2','VO3','WO2','WO3','UI4','UI5','VI4','VI5','WI4',
1163 'WI5','UO4','UO5','VO4','VO5','WO4','WO5','UI6','UO6','VI6',
1164 'VO6','WI6','WO6','WO','WI1','WO1','GONF'),),
1165 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1166 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1167 NOEUD =SIMP(statut='f',typ=no,max='**'),
1168 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1169 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1170 DX =SIMP(statut='f',typ='R' ),
1171 DY =SIMP(statut='f',typ='R' ),
1172 DZ =SIMP(statut='f',typ='R' ),
1173 DRX =SIMP(statut='f',typ='R' ),
1174 DRY =SIMP(statut='f',typ='R' ),
1175 DRZ =SIMP(statut='f',typ='R' ),
1176 GRX =SIMP(statut='f',typ='R' ),
1177 PRES =SIMP(statut='f',typ='R' ),
1178 PHI =SIMP(statut='f',typ='R' ),
1179 TEMP =SIMP(statut='f',typ='R' ),
1180 PRE1 =SIMP(statut='f',typ='R' ),
1181 PRE2 =SIMP(statut='f',typ='R' ),
1182 UI2 =SIMP(statut='f',typ='R' ),
1183 UI3 =SIMP(statut='f',typ='R' ),
1184 UI4 =SIMP(statut='f',typ='R' ),
1185 UI5 =SIMP(statut='f',typ='R' ),
1186 UI6 =SIMP(statut='f',typ='R' ),
1187 UO2 =SIMP(statut='f',typ='R' ),
1188 UO3 =SIMP(statut='f',typ='R' ),
1189 UO4 =SIMP(statut='f',typ='R' ),
1190 UO5 =SIMP(statut='f',typ='R' ),
1191 UO6 =SIMP(statut='f',typ='R' ),
1192 VI2 =SIMP(statut='f',typ='R' ),
1193 VI3 =SIMP(statut='f',typ='R' ),
1194 VI4 =SIMP(statut='f',typ='R' ),
1195 VI5 =SIMP(statut='f',typ='R' ),
1196 VI6 =SIMP(statut='f',typ='R' ),
1197 VO2 =SIMP(statut='f',typ='R' ),
1198 VO3 =SIMP(statut='f',typ='R' ),
1199 VO4 =SIMP(statut='f',typ='R' ),
1200 VO5 =SIMP(statut='f',typ='R' ),
1201 VO6 =SIMP(statut='f',typ='R' ),
1202 WI2 =SIMP(statut='f',typ='R' ),
1203 WI3 =SIMP(statut='f',typ='R' ),
1204 WI4 =SIMP(statut='f',typ='R' ),
1205 WI5 =SIMP(statut='f',typ='R' ),
1206 WI6 =SIMP(statut='f',typ='R' ),
1207 WO2 =SIMP(statut='f',typ='R' ),
1208 WO3 =SIMP(statut='f',typ='R' ),
1209 WO4 =SIMP(statut='f',typ='R' ),
1210 WO5 =SIMP(statut='f',typ='R' ),
1211 WO6 =SIMP(statut='f',typ='R' ),
1212 WO =SIMP(statut='f',typ='R' ),
1213 WI1 =SIMP(statut='f',typ='R' ),
1214 WO1 =SIMP(statut='f',typ='R' ),
1215 GONF =SIMP(statut='f',typ='R' ),
1220 DDL_POUTRE =FACT(statut='f',min=1,max='**',
1221 regles=(AU_MOINS_UN('GROUP_NO','NOEUD'),
1222 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ'),
1223 UN_PARMI('VECT_Y','ANGL_VRIL'),),
1224 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1225 NOEUD =SIMP(statut='f',typ=no,max='**'),
1226 DX =SIMP(statut='f',typ='R' ),
1227 DY =SIMP(statut='f',typ='R' ),
1228 DZ =SIMP(statut='f',typ='R' ),
1229 DRX =SIMP(statut='f',typ='R' ),
1230 DRY =SIMP(statut='f',typ='R' ),
1231 DRZ =SIMP(statut='f',typ='R' ),
1232 # définition du repère local
1233 VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
1234 ANGL_VRIL =SIMP(statut='f',typ='R',max=1),
1235 # restriction sur les mailles servant à définir le repère local
1236 GROUP_MA =SIMP(statut='f',typ=grma,max=1),
1237 MAILLE =SIMP(statut='f',typ=ma,max=1),
1242 FACE_IMPO =FACT(statut='f',min=1,max='**',
1243 regles=(UN_PARMI('GROUP_MA','MAILLE',),
1244 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
1245 'TEMP','PRE1','PRE2','DNOR','DTAN'),
1246 EXCLUS('DNOR','DX'),
1247 EXCLUS('DNOR','DY'),
1248 EXCLUS('DNOR','DZ'),
1249 EXCLUS('DNOR','DRX'),
1250 EXCLUS('DNOR','DRY'),
1251 EXCLUS('DNOR','DRZ'),
1252 EXCLUS('DTAN','DX'),
1253 EXCLUS('DTAN','DY'),
1254 EXCLUS('DTAN','DZ'),
1255 EXCLUS('DTAN','DRX'),
1256 EXCLUS('DTAN','DRY'),
1257 EXCLUS('DTAN','DRZ'),),
1258 # rajout d'un mot clé REPERE :/ LOCAL /GLOBAL
1259 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1260 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1261 DX =SIMP(statut='f',typ='R' ),
1262 DY =SIMP(statut='f',typ='R' ),
1263 DZ =SIMP(statut='f',typ='R' ),
1264 DRX =SIMP(statut='f',typ='R' ),
1265 DRY =SIMP(statut='f',typ='R' ),
1266 DRZ =SIMP(statut='f',typ='R' ),
1267 DNOR =SIMP(statut='f',typ='R' ),
1268 DTAN =SIMP(statut='f',typ='R' ),
1269 GRX =SIMP(statut='f',typ='R' ),
1270 PRES =SIMP(statut='f',typ='R' ),
1271 PHI =SIMP(statut='f',typ='R' ),
1272 TEMP =SIMP(statut='f',typ='R' ),
1273 PRE1 =SIMP(statut='f',typ='R' ),
1274 PRE2 =SIMP(statut='f',typ='R' ),
1277 LIAISON_DDL =FACT(statut='f',fr="Définir une relation linéaire entre des ddls de deux ou plusieurs noeuds",
1279 regles=(UN_PARMI('GROUP_NO','NOEUD'),),
1280 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1281 NOEUD =SIMP(statut='f',typ=no,max='**'),
1282 DDL =SIMP(statut='o',typ='TXM',max='**'),
1283 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
1284 COEF_IMPO =SIMP(statut='o',typ='R' ),
1287 LIAISON_OBLIQUE =FACT(statut='f',fr="Appliquer à des noeuds une valeur de déplacement dans un repere oblique",
1289 regles=(UN_PARMI('GROUP_NO','NOEUD'),
1290 UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
1291 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1292 NOEUD =SIMP(statut='f',typ=no,max='**'),
1293 ANGL_NAUT =SIMP(statut='o',typ='R',max=3),
1294 DX =SIMP(statut='f',typ='R' ),
1295 DY =SIMP(statut='f',typ='R' ),
1296 DZ =SIMP(statut='f',typ='R' ),
1297 DRX =SIMP(statut='f',typ='R' ),
1298 DRY =SIMP(statut='f',typ='R' ),
1299 DRZ =SIMP(statut='f',typ='R' ),
1302 LIAISON_GROUP =FACT(statut='f',fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1304 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1305 UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1306 EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1307 EXCLUS('GROUP_MA_1','NOEUD_2'),
1308 EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1309 EXCLUS('GROUP_NO_1','MAILLE_2'),
1310 EXCLUS('MAILLE_1','GROUP_NO_2'),
1311 EXCLUS('MAILLE_1','NOEUD_2'),
1312 EXCLUS('NOEUD_1','GROUP_MA_2'),
1313 EXCLUS('NOEUD_1','MAILLE_2'),
1314 EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1316 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1317 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1318 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1319 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1320 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
1321 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
1322 GROUP_NO_2 =SIMP(statut='f',typ=no,max='**'),
1323 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
1325 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
1326 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1327 DDL_1 =SIMP(statut='o',typ='TXM',max='**'),
1328 COEF_MULT_1 =SIMP(statut='o',typ='R',max='**'),
1329 DDL_2 =SIMP(statut='o',typ='TXM',max='**'),
1330 COEF_MULT_2 =SIMP(statut='o',typ='R',max='**'),
1331 COEF_IMPO =SIMP(statut='o',typ='R' ),
1332 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1333 TRAN =SIMP(statut='f',typ='R',max=3),
1334 ANGL_NAUT =SIMP(statut='f',typ='R',max=3),
1335 CENTRE =SIMP(statut='f',typ='R',max=3),
1338 LIAISON_MAIL =FACT(statut='f',min=1,max='**',
1339 regles=(AU_MOINS_UN('GROUP_MA_MAIT','MAILLE_MAIT'),
1340 AU_MOINS_UN('GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL','NOEUD_ESCL'),
1341 PRESENT_PRESENT('DDL_MAIT','DDL_ESCL'),),
1342 GROUP_MA_MAIT =SIMP(statut='f',typ=grma,max='**'),
1343 MAILLE_MAIT =SIMP(statut='f',typ=ma,max='**'),
1344 GROUP_MA_ESCL =SIMP(statut='f',typ=grma,max='**'),
1345 MAILLE_ESCL =SIMP(statut='f',typ=ma,max='**'),
1346 GROUP_NO_ESCL =SIMP(statut='f',typ=grno,max='**'),
1347 NOEUD_ESCL =SIMP(statut='f',typ=no,max='**'),
1348 TRAN =SIMP(statut='f',typ='R',max=3 ),
1349 ANGL_NAUT =SIMP(statut='f',typ='R',max=3 ),
1350 CENTRE =SIMP(statut='f',typ='R',max=3 ),
1351 DDL_MAIT =SIMP(statut='f',typ='TXM',into=("DNOR",) ),
1352 DDL_ESCL =SIMP(statut='f',typ='TXM',into=("DNOR",) ),
1356 LIAISON_SOLIDE =FACT(statut='f',fr="Modéliser une partie indéformable d'une structure",min=1,max='**',
1357 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1358 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1359 NOEUD =SIMP(statut='f',typ=no,max='**'),
1360 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1361 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1362 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1365 LIAISON_ELEM =FACT(statut='f',fr="Raccorder une poutre à une partie massive 3D ou une coque", min=1,max='**',
1366 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
1367 UN_PARMI('GROUP_NO_2','NOEUD_2'),),
1368 OPTION =SIMP(statut='o',typ='TXM',into=("3D_TUYAU","3D_POU","COQ_POU","COQ_TUYAU") ),
1369 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1370 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1371 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
1372 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
1373 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1374 CARA_ELEM =SIMP(statut='f',typ=(cara_elem) ),
1375 AXE_POUTRE =SIMP(statut='f',typ='R',max=3),
1376 ANGL_MAX =SIMP(statut='f',typ='R',defaut= 1. ),
1379 LIAISON_UNIF =FACT(statut='f',fr="Imposer une meme valeur (inconnue) à des ddls d'un emsemble de noeuds",
1381 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1382 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1383 NOEUD =SIMP(statut='f',typ=no,max='**'),
1384 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1385 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1386 DDL =SIMP(statut='o',typ='TXM',max='**'),
1389 LIAISON_CHAMNO =FACT(statut='f',fr="définir une relation linéaire entre tous les ddls d'un concept cham_nno",
1391 # type de cham_no CO()
1392 CHAM_NO =SIMP(statut='o',typ=cham_no), #CO()
1393 COEF_IMPO =SIMP(statut='o',typ='R' ),
1394 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1397 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r ),
1399 CONTACT =FACT(statut='f',fr="Imposer du contact avec ou sans frottement",min=1,max='**',
1400 regles=(UN_PARMI('GROUP_MA_2','MAILLE_2'),),
1401 APPARIEMENT =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
1402 into=("NON","NODAL","NODAL_SYME","MAIT_ESCL","MAIT_ESCL_SYME")),
1403 RECHERCHE =SIMP(statut='f',typ='TXM',defaut="NOEUD_VOISIN",into=("NOEUD_BOUCLE","NOEUD_VOISIN")),
1404 LISSAGE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
1405 NORMALE =SIMP(statut='f',typ='TXM',defaut="MAIT",into=("MAIT","MAIT_ESCL")),
1406 METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
1407 into=("CONTRAINTE","LAGRANGIEN","PENALISATION","CONTINUE") ),
1408 PROJECTION =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","QUADRATIQUE") ),
1409 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1410 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1411 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1412 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1413 b_active =BLOC(condition = "METHODE == 'CONTRAINTE' ",
1414 fr="Paramètres de la méthode des contraintes actives (contact uniquement)",
1415 regles=(EXCLUS('DIST_2','COEF_IMPO'),
1416 EXCLUS('DIST_1','COEF_IMPO'),),
1417 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","PRES","TEMP")),
1418 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS",) ),
1419 REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1420 b_reac_geom =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1421 fr="Paramètre de la réactualisation géométrique",
1422 NB_REAC_GEOM =SIMP(statut='o',typ='I'),),
1423 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
1424 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1425 COEF_IMPO =SIMP(statut='f',typ='R'),
1426 COEF_MULT_2 =SIMP(statut='f',typ='R'),
1427 VECT_NORM_2 =SIMP(statut='f',typ='R',max=3),
1428 VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
1429 DIST_1 =SIMP(statut='f',typ='R'),
1430 DIST_2 =SIMP(statut='f',typ='R'),
1431 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),),
1432 b_lagrangien =BLOC(condition = "METHODE == 'LAGRANGIEN' ",
1433 fr="Paramètres de la méthode Lagrangienne (contact avec ou sans frottement)",
1434 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1435 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1436 REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1437 b_reac_geom =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1438 fr="Paramètre de la réactualisation géométrique",
1439 NB_REAC_GEOM =SIMP(statut='o',typ='I'),),
1440 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
1441 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1442 DIST_1 =SIMP(statut='f',typ='R'),
1443 DIST_2 =SIMP(statut='f',typ='R'),
1444 VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
1445 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
1446 b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1447 COULOMB =SIMP(statut='o',typ='R',max=1),
1448 COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut=0.E+0),
1450 b_penalisation =BLOC(condition = "METHODE == 'PENALISATION' ",
1451 fr="Paramètres de la méthode pénalisée (contact avec ou sans frottement)",
1452 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1453 E_N =SIMP(statut='f',typ='R'),
1454 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1455 REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1456 b_reac_geom =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1457 fr="Paramètre de la réactualisation géométrique",
1458 NB_REAC_GEOM =SIMP(statut='o',typ='I'),),
1459 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
1460 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1461 DIST_1 =SIMP(statut='f',typ='R'),
1462 DIST_2 =SIMP(statut='f',typ='R'),
1463 VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
1464 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
1465 b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1466 COULOMB =SIMP(statut='o',typ='R',max=1),
1467 E_T =SIMP(statut='f',typ='R',
1468 fr="Active la pénalisation sur le frottement et définit le coefficient de pénalisation"),
1469 COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut=0.E+0),
1471 b_continue =BLOC(condition = "METHODE == 'CONTINUE' ",
1472 fr="Paramètres de la méthode continue (contact avec ou sans frottement)",
1473 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1474 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1475 INTEGRATION =SIMP(statut='f',typ='TXM',defaut="NOEUD",into=("GAUSS","NOEUD","SIMPSON","SIMPSON1","SIMPSON2")),
1476 COEF_REGU_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),
1477 MODL_AXIS =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
1478 DIRE_APPA =SIMP(statut='f',typ='R',max=3,defaut=(0.,0.,0.,)),
1479 ITER_GEOM_MAXI =SIMP(statut='f',typ='I',defaut=2),
1480 ITER_CONT_MAXI =SIMP(statut='f',typ='I',defaut=30),
1481 b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1482 COULOMB =SIMP(statut='o',typ='R',max=1),
1483 ITER_FROT_MAXI =SIMP(statut='f',typ='I',defaut=2),
1484 COEF_REGU_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),
1485 SEUIL_INIT =SIMP(statut='f',typ='I',defaut=0),),),
1488 FORCE_NODALE =FACT(statut='f',fr="Imposer des forces nodales en des noeuds",min=1,max='**',
1489 regles=(AU_MOINS_UN('GROUP_NO','NOEUD'),
1490 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
1491 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1492 NOEUD =SIMP(statut='f',typ=no,max='**'),
1493 FX =SIMP(statut='f',typ='R' ),
1494 FY =SIMP(statut='f',typ='R' ),
1495 FZ =SIMP(statut='f',typ='R' ),
1496 MX =SIMP(statut='f',typ='R' ),
1497 MY =SIMP(statut='f',typ='R' ),
1498 MZ =SIMP(statut='f',typ='R' ),
1499 ANGL_NAUT =SIMP(statut='f',typ='R',max=3),
1502 FORCE_FACE =FACT(statut='f',fr="Appliquer des forces surfaciques sur une face d'éléments volumiques",
1504 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1505 AU_MOINS_UN('FX','FY','FZ'),),
1506 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1507 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1508 FX =SIMP(statut='f',typ='R' ),
1509 FY =SIMP(statut='f',typ='R' ),
1510 FZ =SIMP(statut='f',typ='R' ),
1513 FORCE_ARETE =FACT(statut='f',fr="Appliquer des forces linéiques à une arete d élément volumique ou de coque",
1515 regles=(AU_MOINS_UN('GROUP_MA','MAILLE',),
1516 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
1517 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1518 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1519 FX =SIMP(statut='f',typ='R' ),
1520 FY =SIMP(statut='f',typ='R' ),
1521 FZ =SIMP(statut='f',typ='R' ),
1522 MX =SIMP(statut='f',typ='R' ),
1523 MY =SIMP(statut='f',typ='R' ),
1524 MZ =SIMP(statut='f',typ='R' ),
1527 FORCE_CONTOUR =FACT(statut='f',fr="Appliquer des forces linéiques au bord d'un domaine 2D ou AXIS_FOURIER",
1529 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1530 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1531 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1532 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1533 FX =SIMP(statut='f',typ='R' ),
1534 FY =SIMP(statut='f',typ='R' ),
1535 FZ =SIMP(statut='f',typ='R' ),
1536 MX =SIMP(statut='f',typ='R' ),
1537 MY =SIMP(statut='f',typ='R' ),
1538 MZ =SIMP(statut='f',typ='R' ),
1541 FORCE_INTERNE =FACT(statut='f',fr="Appliquer des forces volumiques (2D ou 3D) à un domaine volumique",
1543 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1544 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1545 AU_MOINS_UN('FX','FY','FZ' ),),
1546 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1547 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1548 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1549 FX =SIMP(statut='f',typ='R' ),
1550 FY =SIMP(statut='f',typ='R' ),
1551 FZ =SIMP(statut='f',typ='R' ),
1554 PRES_REP =FACT(statut='f',fr="Appliquer une pression à un domaine de milieu continu 2D ou 3D",
1556 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1557 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1558 AU_MOINS_UN('PRES','CISA_2D' ),),
1559 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1560 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1561 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1562 PRES =SIMP(statut='f',typ='R' ),
1563 CISA_2D =SIMP(statut='f',typ='R' ),
1566 EFFE_FOND =FACT(statut='f',fr="Imposer un effet de fond",min=1,max='**',
1567 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1568 GROUP_MA_INT =SIMP(statut='o',typ=grma,max='**'),
1569 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1570 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1571 PRES =SIMP(statut='o',typ='R' ),
1574 EPSI_INIT =FACT(statut='f',fr="Appliquer un chargement de déformation initiale à un volume 3D ou 2D",
1576 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1577 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1578 AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ','EPX',
1579 'KY','KZ','EXX','EYY','EXY','KXX','KYY','KXY'),),
1580 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1581 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1582 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1583 EPXX =SIMP(statut='f',typ='R' ),
1584 EPYY =SIMP(statut='f',typ='R' ),
1585 EPZZ =SIMP(statut='f',typ='R' ),
1586 EPXY =SIMP(statut='f',typ='R' ),
1587 EPXZ =SIMP(statut='f',typ='R' ),
1588 EPYZ =SIMP(statut='f',typ='R' ),
1589 EPX =SIMP(statut='f',typ='R' ),
1590 KY =SIMP(statut='f',typ='R' ),
1591 KZ =SIMP(statut='f',typ='R' ),
1592 EXX =SIMP(statut='f',typ='R' ),
1593 EYY =SIMP(statut='f',typ='R' ),
1594 EXY =SIMP(statut='f',typ='R' ),
1595 KXX =SIMP(statut='f',typ='R' ),
1596 KYY =SIMP(statut='f',typ='R' ),
1597 KXY =SIMP(statut='f',typ='R' ),
1600 ARLEQUIN =FACT(statut='f',min=1,max='**',
1601 GROUP_MA_1 =SIMP(statut='o',typ=grma,max='**'),
1602 GROUP_MA_2 =SIMP(statut='o',typ=grma,max='**'),
1603 GROUP_MA_COLL =SIMP(statut='o',typ=grma,max='**'),
1604 CARA_ELEM =SIMP(statut='f',typ=(cara_elem) ),
1605 regles =(UN_PARMI('POIDS_1','POIDS_2'),),
1606 POIDS_1 =SIMP(statut='f',typ='R'),
1607 POIDS_2 =SIMP(statut='f',typ='R'),
1610 FORCE_POUTRE =FACT(statut='f',fr="Appliquer des forces linéiques sur des poutres",min=1,max='**',
1611 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1612 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1613 AU_MOINS_UN('FX','FY','FZ','N','VY','VZ'),
1614 PRESENT_ABSENT('FX','N','VY','VZ'),
1615 PRESENT_ABSENT('FY','N','VY','VZ'),
1616 PRESENT_ABSENT('FZ','N','VY','VZ'),
1617 PRESENT_ABSENT('N','FX','FY','FZ'),
1618 PRESENT_ABSENT('VY','FX','FY','FZ'),
1619 PRESENT_ABSENT('VZ','FX','FY','FZ'),),
1620 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1621 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1622 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1623 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE",) ),
1624 # rajour d'un mot clé REPERE :/ LOCAL /GLOBAL
1625 FX =SIMP(statut='f',typ='R' ),
1626 FY =SIMP(statut='f',typ='R' ),
1627 FZ =SIMP(statut='f',typ='R' ),
1629 N =SIMP(statut='f',typ='R' ),
1630 VY =SIMP(statut='f',typ='R' ),
1631 VZ =SIMP(statut='f',typ='R' ),
1635 FORCE_TUYAU =FACT(statut='f',fr="imposer une pression dans un élément TUYAU",min=1,max='**',
1636 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1637 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
1638 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1639 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1640 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1641 PRES =SIMP(statut='f',typ='R' ),
1644 FORCE_COQUE =FACT(statut='f',fr="Appliquer des forces surfaciques sur des coques",min=1,max='**',
1645 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1646 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1647 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
1648 PRESENT_ABSENT('FX','PRES','F1','F2','F3','MF1','MF2'),
1649 PRESENT_ABSENT('FY','PRES','F1','F2','F3','MF1','MF2'),
1650 PRESENT_ABSENT('FZ','PRES','F1','F2','F3','MF1','MF2'),
1651 PRESENT_ABSENT('MX','PRES','F1','F2','F3','MF1','MF2'),
1652 PRESENT_ABSENT('MY','PRES','F1','F2','F3','MF1','MF2'),
1653 PRESENT_ABSENT('MZ','PRES','F1','F2','F3','MF1','MF2'),
1654 PRESENT_ABSENT('F1','FX','FY','FZ','MX','MY','MZ','PRES'),
1655 PRESENT_ABSENT('F2','FX','FY','FZ','MX','MY','MZ','PRES'),
1656 PRESENT_ABSENT('F3','FX','FY','FZ','MX','MY','MZ','PRES'),
1657 PRESENT_ABSENT('MF1','FX','FY','FZ','MX','MY','MZ','PRES'),
1658 PRESENT_ABSENT('MF2','FX','FY','FZ','MX','MY','MZ','PRES'),
1659 PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
1660 # rajour d'un mot clé REPERE :/ LOCAL /GLOBAL
1661 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1662 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1663 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1665 FX =SIMP(statut='f',typ='R' ),
1666 FY =SIMP(statut='f',typ='R' ),
1667 FZ =SIMP(statut='f',typ='R' ),
1668 MX =SIMP(statut='f',typ='R' ),
1669 MY =SIMP(statut='f',typ='R' ),
1670 MZ =SIMP(statut='f',typ='R' ),
1672 F1 =SIMP(statut='f',typ='R' ),
1673 F2 =SIMP(statut='f',typ='R' ),
1674 F3 =SIMP(statut='f',typ='R' ),
1675 MF1 =SIMP(statut='f',typ='R' ),
1676 MF2 =SIMP(statut='f',typ='R' ),
1678 PRES =SIMP(statut='f',typ='R' ),
1679 PLAN =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL",) ),
1683 LIAISON_COQUE =FACT(statut='f',min=1,max='**',
1684 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1685 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1686 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
1687 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
1688 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1689 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1690 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
1691 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
1692 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1695 RELA_CINE_BP =FACT(statut='f',min=1,max='**',
1696 CABLE_BP =SIMP(statut='o',typ=cabl_precont ),
1697 SIGM_BPEL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
1698 RELA_CINE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1701 FORCE_ELEC =FACT(statut='f',
1702 fr="Force de Laplace due à la présence d'un conducteur rectiligne secondaire non maillé",
1704 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1705 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1706 AU_MOINS_UN('FX','FY','FZ','POSITION'),
1707 EXCLUS('FX','POSITION'),
1708 EXCLUS('FY','POSITION'),
1709 EXCLUS('FZ','POSITION'),),
1710 # trop de regles : les blocs conditionnels permettent d en suprimer
1711 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1712 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1713 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1715 FX =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1716 FY =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1717 FZ =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1719 POSITION =SIMP(statut='f',typ='TXM',fr="Direction prédéfinie",into=("PARA","INFI","FINI",) ),
1720 b_para =BLOC ( condition = "POSITION == 'PARA'",
1721 regles=(UN_PARMI('TRANS','DIST'),),
1722 TRANS =SIMP(statut='f',typ='R',max=3),
1723 DIST =SIMP(statut='f',typ='R' ),
1724 b_point2 =BLOC ( condition = "DIST != None",
1725 POINT2 =SIMP(statut='o',typ='R',max=3),
1728 b_fini_infi =BLOC ( condition = "(POSITION == 'FINI') or (POSITION == 'INFI')",
1729 POINT1 =SIMP(statut='o',typ='R',max=3),
1730 POINT2 =SIMP(statut='o',typ='R',max=3),
1737 INTE_ELEC =FACT(statut='f',fr="Force de Laplace due à la présence d'un conducteur non rectiligne secondaire",
1739 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1740 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1741 AU_MOINS_UN('GROUP_MA_2','MAILLE_2','TRANS','SYME'),
1742 EXCLUS('TRANS','SYME'),),
1743 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1744 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1745 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1746 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1747 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1748 TRANS =SIMP(statut='f',typ='R',max='**'),
1749 SYME =SIMP(statut='f',typ='R',max='**'),
1753 IMPE_FACE =FACT(statut='f',fr="Appliquer une impédance acoustique à une face",min=1,max='**',
1754 regles=(AU_MOINS_UN('GROUP_MA','MAILLE' ),),
1755 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1756 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1757 IMPE =SIMP(statut='o',typ='R' ),
1760 VITE_FACE =FACT(statut='f',fr="Imposer des vitesses acoustiquesnormales à une face",min=1,max='**',
1761 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1762 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1763 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1764 VNOR =SIMP(statut='o',typ='R' ),
1769 ONDE_FLUI =FACT(statut='f',fr="Appliquer une amplitude de pression d onde incidente",min=1,max='**',
1770 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1771 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1772 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1773 PRES =SIMP(statut='o',typ='R' ),
1776 FLUX_THM_REP =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('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
1780 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1781 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1782 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1783 FLUN =SIMP(statut='f',typ='R' ),
1784 FLUN_HYDR1 =SIMP(statut='f',typ='R' ),
1785 FLUN_HYDR2 =SIMP(statut='f',typ='R' ),
1788 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1790 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
1791 # CONFIGURATION MANAGEMENT OF EDF VERSION
1792 # ======================================================================
1793 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
1794 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1795 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1796 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1797 # (AT YOUR OPTION) ANY LATER VERSION.
1799 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1800 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1801 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1802 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1804 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1805 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1806 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1807 # ======================================================================
1808 # RESPONSABLE G8BHHXD X.DESROCHES
1809 AFFE_CHAR_MECA_C=OPER(nom="AFFE_CHAR_MECA_C",op= 7,sd_prod=char_meca,
1810 fr="Affectation de charges et conditions aux limites mécaniques complexes",
1811 docu="U4.44.05-d2",reentrant='n',
1812 UIinfo={"groupes":("Modélisation",)},
1813 regles=(AU_MOINS_UN('DDL_IMPO','FORCE_POUTRE','LIAISON_DDL', ),),
1814 MODELE =SIMP(statut='o',typ=modele ),
1815 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1816 DDL_IMPO =FACT(statut='f',min=1,max='**',
1817 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
1818 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI', ),),
1819 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1820 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1821 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1822 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1823 NOEUD =SIMP(statut='f',typ=no,max='**'),
1824 DX =SIMP(statut='f',typ='C' ),
1825 DY =SIMP(statut='f',typ='C' ),
1826 DZ =SIMP(statut='f',typ='C' ),
1827 DRX =SIMP(statut='f',typ='C' ),
1828 DRY =SIMP(statut='f',typ='C' ),
1829 DRZ =SIMP(statut='f',typ='C' ),
1830 GRX =SIMP(statut='f',typ='C' ),
1831 PRES =SIMP(statut='f',typ='C' ),
1832 PHI =SIMP(statut='f',typ='C' ),
1834 FORCE_POUTRE =FACT(statut='f',min=1,max='**',
1835 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1836 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1837 AU_MOINS_UN('FX','FY','FZ','N','VY','VZ',),
1838 PRESENT_ABSENT('FX','N','VY','VZ',),
1839 PRESENT_ABSENT('FY','N','VY','VZ',),
1840 PRESENT_ABSENT('FZ','N','VY','VZ',),
1841 PRESENT_ABSENT('N','FX','FY','FZ',),
1842 PRESENT_ABSENT('VY', 'FX','FY','FZ',),
1843 PRESENT_ABSENT('VZ','FX','FY','FZ', ),),
1844 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1845 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1846 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1847 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE") ),
1848 FX =SIMP(statut='f',typ='C' ),
1849 FY =SIMP(statut='f',typ='C' ),
1850 FZ =SIMP(statut='f',typ='C' ),
1851 N =SIMP(statut='f',typ='C' ),
1852 VY =SIMP(statut='f',typ='C' ),
1853 VZ =SIMP(statut='f',typ='C' ),
1855 LIAISON_DDL =FACT(statut='f',min=1,max='**',
1856 regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
1857 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1858 NOEUD =SIMP(statut='f',typ=no,max='**'),
1859 DDL =SIMP(statut='o',typ='TXM',max='**'),
1860 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
1861 COEF_IMPO =SIMP(statut='o',typ='C' ),
1863 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1865 #& MODIF COMMANDE DATE 26/11/2002 AUTEUR JMBHH01 J.M.PROIX
1866 # CONFIGURATION MANAGEMENT OF EDF VERSION
1867 # ======================================================================
1868 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
1869 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1870 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1871 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1872 # (AT YOUR OPTION) ANY LATER VERSION.
1874 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1875 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1876 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1877 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1879 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1880 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1881 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1882 # ======================================================================
1883 # RESPONSABLE G8BHHXD X.DESROCHES
1884 AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
1885 fr="Affectation de charges et conditions aux limites mécaniques fonction d une grandeur",
1886 docu="U4.44.01-g3",reentrant='n',
1887 UIinfo={"groupes":("Modélisation",)},
1888 regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
1889 'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
1890 'PRES_REP','FORCE_POUTRE','VITE_FACE','IMPE_FACE','ONDE_PLANE',
1891 'LIAISON_OBLIQUE','EPSI_INIT','LIAISON_GROUP','LIAISON_UNIF',
1892 'LIAISON_SOLIDE','FORCE_COQUE','LIAISON_COQUE','FORCE_TUYAU',
1893 'CONTACT','EFFE_FOND'),),
1894 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1895 VERI_NORM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1896 MODELE =SIMP(statut='o',typ=modele ),
1898 DDL_IMPO =FACT(statut='f',min=1,max='**',
1899 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
1900 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
1901 'TEMP','PRE1','PRE2'),),
1902 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1903 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1904 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1905 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1906 NOEUD =SIMP(statut='f',typ=no,max='**'),
1907 DX =SIMP(statut='f',typ=(fonction) ),
1908 DY =SIMP(statut='f',typ=(fonction) ),
1909 DZ =SIMP(statut='f',typ=(fonction) ),
1910 DRX =SIMP(statut='f',typ=(fonction) ),
1911 DRY =SIMP(statut='f',typ=(fonction) ),
1912 DRZ =SIMP(statut='f',typ=(fonction) ),
1913 GRX =SIMP(statut='f',typ=(fonction) ),
1914 PRES =SIMP(statut='f',typ=(fonction) ),
1915 PHI =SIMP(statut='f',typ=(fonction) ),
1916 TEMP =SIMP(statut='f',typ=(fonction) ),
1917 PRE1 =SIMP(statut='f',typ=(fonction) ),
1918 PRE2 =SIMP(statut='f',typ=(fonction) ),
1921 FACE_IMPO =FACT(statut='f',min=1,max='**',
1922 regles=(UN_PARMI('GROUP_MA','MAILLE'),
1923 AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI','TEMP','PRE1','PRE2','DNOR','DTAN'),
1924 EXCLUS('DNOR','DX'),
1925 EXCLUS('DNOR','DY'),
1926 EXCLUS('DNOR','DZ'),
1927 EXCLUS('DNOR','DRX'),
1928 EXCLUS('DNOR','DRY'),
1929 EXCLUS('DNOR','DRZ'),
1930 EXCLUS('DTAN','DX'),
1931 EXCLUS('DTAN','DY'),
1932 EXCLUS('DTAN','DZ'),
1933 EXCLUS('DTAN','DRX'),
1934 EXCLUS('DTAN','DRY'),
1935 EXCLUS('DTAN','DRZ'),),
1936 # rajout d un mot cle REPERE : / GLOBAL / LOCAL
1937 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
1938 MAILLE =SIMP(statut='f',typ=ma,max='**'),
1939 DX =SIMP(statut='f',typ=(fonction) ),
1940 DY =SIMP(statut='f',typ=(fonction) ),
1941 DZ =SIMP(statut='f',typ=(fonction) ),
1942 DRX =SIMP(statut='f',typ=(fonction) ),
1943 DRY =SIMP(statut='f',typ=(fonction) ),
1944 DRZ =SIMP(statut='f',typ=(fonction) ),
1945 GRX =SIMP(statut='f',typ=(fonction) ),
1946 PRES =SIMP(statut='f',typ=(fonction) ),
1947 PHI =SIMP(statut='f',typ=(fonction) ),
1948 TEMP =SIMP(statut='f',typ=(fonction) ),
1949 PRE1 =SIMP(statut='f',typ=(fonction) ),
1950 PRE2 =SIMP(statut='f',typ=(fonction) ),
1951 DNOR =SIMP(statut='f',typ=(fonction) ),
1952 DTAN =SIMP(statut='f',typ=(fonction) ),
1955 LIAISON_DDL =FACT(statut='f',min=1,max='**',
1956 fr="Définir une relation linéaire entre des ddls de deux ou plusieurs noeuds",
1957 regles=(UN_PARMI('GROUP_NO','NOEUD'),),
1958 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1959 NOEUD =SIMP(statut='f',typ=no,max='**'),
1960 DDL =SIMP(statut='o',typ='TXM',max='**'),
1961 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
1962 COEF_IMPO =SIMP(statut='o',typ=(fonction) ),
1965 LIAISON_OBLIQUE =FACT(statut='f',min=1,max='**',
1966 fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1967 regles=(UN_PARMI('GROUP_NO','NOEUD'),
1968 UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
1969 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
1970 NOEUD =SIMP(statut='f',typ=no,max='**'),
1971 ANGL_NAUT =SIMP(statut='o',typ='R',max=3),
1972 DX =SIMP(statut='f',typ=(fonction) ),
1973 DY =SIMP(statut='f',typ=(fonction) ),
1974 DZ =SIMP(statut='f',typ=(fonction) ),
1975 DRX =SIMP(statut='f',typ=(fonction) ),
1976 DRY =SIMP(statut='f',typ=(fonction) ),
1977 DRZ =SIMP(statut='f',typ=(fonction) ),
1980 LIAISON_GROUP =FACT(statut='f',min=1,max='**',
1981 fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1982 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1983 UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1984 EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1985 EXCLUS('GROUP_MA_1','NOEUD_2'),
1986 EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1987 EXCLUS('GROUP_NO_1','MAILLE_2'),
1988 EXCLUS('MAILLE_1','GROUP_NO_2'),
1989 EXCLUS('MAILLE_1','NOEUD_2'),
1990 EXCLUS('NOEUD_1','GROUP_MA_2'),
1991 EXCLUS('NOEUD_1','MAILLE_2'),
1992 EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1993 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
1994 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
1995 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
1996 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
1997 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
1998 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
1999 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
2000 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
2001 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
2002 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2003 DDL_1 =SIMP(statut='o',typ='TXM',max='**'),
2004 COEF_MULT_1 =SIMP(statut='o',typ='R',max='**'),
2005 DDL_2 =SIMP(statut='o',typ='TXM',max='**'),
2006 COEF_MULT_2 =SIMP(statut='o',typ='R',max='**'),
2007 COEF_IMPO =SIMP(statut='o',typ=(fonction) ),
2008 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2009 TRAN =SIMP(statut='f',typ='R',max=3),
2010 ANGL_NAUT =SIMP(statut='f',typ='R',max=3),
2011 CENTRE =SIMP(statut='f',typ='R',max=3),
2014 CONTACT =FACT(statut='f',fr="Imposer du contact avec ou sans frottement",min=1,max='**',
2015 regles=(UN_PARMI('GROUP_MA_2','MAILLE_2'),),
2016 APPARIEMENT =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
2017 into=("NON","NODAL","NODAL_SYME","MAIT_ESCL","MAIT_ESCL_SYME")),
2018 RECHERCHE =SIMP(statut='f',typ='TXM',defaut="NOEUD_VOISIN",into=("NOEUD_BOUCLE","NOEUD_VOISIN")),
2019 LISSAGE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
2020 NORMALE =SIMP(statut='f',typ='TXM',defaut="MAIT",into=("MAIT","MAIT_ESCL")),
2021 METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
2022 into=("CONTRAINTE","LAGRANGIEN","PENALISATION","CONTINUE") ),
2023 PROJECTION =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","QUADRATIQUE") ),
2024 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
2025 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
2026 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
2027 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
2028 b_active =BLOC(condition = "METHODE == 'CONTRAINTE' ",
2029 fr="Paramètres de la méthode des contraintes actives (contact uniquement)",
2030 regles=(EXCLUS('DIST_2','COEF_IMPO'),
2031 EXCLUS('DIST_1','COEF_IMPO'),),
2032 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","PRES","TEMP")),
2033 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS",) ),
2034 REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
2035 b_reac_geom =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
2036 fr="Paramètre de la réactualisation géométrique",
2037 NB_REAC_GEOM =SIMP(statut='o',typ='I'),),
2038 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
2039 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2040 COEF_IMPO =SIMP(statut='f',typ='R'),
2041 COEF_MULT_2 =SIMP(statut='f',typ='R'),
2042 VECT_NORM_2 =SIMP(statut='f',typ='R',max=3),
2043 VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
2044 DIST_1 =SIMP(statut='f',typ=(fonction)),
2045 DIST_2 =SIMP(statut='f',typ=(fonction)),
2046 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),),
2047 b_lagrangien =BLOC(condition = "METHODE == 'LAGRANGIEN' ",
2048 fr="Paramètres de la méthode Lagrangienne (contact avec ou sans frottement)",
2049 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
2050 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
2051 REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
2052 b_reac_geom =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
2053 fr="Paramètre de la réactualisation géométrique",
2054 NB_REAC_GEOM =SIMP(statut='o',typ='I'),),
2055 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
2056 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2057 DIST_1 =SIMP(statut='f',typ=(fonction)),
2058 DIST_2 =SIMP(statut='f',typ=(fonction)),
2059 VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
2060 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
2061 b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
2062 COULOMB =SIMP(statut='o',typ='R',max=1),
2063 COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut=0.E+0),
2065 b_penalisation =BLOC(condition = "METHODE == 'PENALISATION' ",
2066 fr="Paramètres de la méthode pénalisée (contact avec ou sans frottement)",
2067 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
2068 E_N =SIMP(statut='f',typ='R'),
2069 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
2070 REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
2071 b_reac_geom =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
2072 fr="Paramètre de la réactualisation géométrique",
2073 NB_REAC_GEOM =SIMP(statut='o',typ='I'),),
2074 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
2075 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2076 DIST_1 =SIMP(statut='f',typ=(fonction)),
2077 DIST_2 =SIMP(statut='f',typ=(fonction)),
2078 VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
2079 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
2080 b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
2081 COULOMB =SIMP(statut='o',typ='R',max=1),
2082 E_T =SIMP(statut='f',typ='R',
2083 fr="Active la pénalisation sur le frottement et définit le coefficient de pénalisation"),
2084 COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut=0.E+0),
2086 b_continue =BLOC(condition = "METHODE == 'CONTINUE' ",
2087 fr="Paramètres de la méthode continue (contact avec ou sans frottement)",
2088 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
2089 FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
2090 INTEGRATION =SIMP(statut='f',typ='TXM',defaut="NOEUD",into=("GAUSS","NOEUD","SIMPSON","SIMPSON1","SIMPSON2")),
2091 COEF_REGU_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),
2092 MODL_AXIS =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
2093 DIRE_APPA =SIMP(statut='f',typ='R',max=3),
2094 ITER_GEOM_MAXI =SIMP(statut='f',typ='I',defaut=2),
2095 ITER_CONT_MAXI =SIMP(statut='f',typ='I',defaut=30),
2096 b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
2097 COULOMB =SIMP(statut='o',typ='R',max=1),
2098 ITER_FROT_MAXI =SIMP(statut='f',typ='I',defaut=2),
2099 COEF_REGU_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),
2100 SEUIL_INIT =SIMP(statut='f',typ='I',defaut=0),),),
2103 LIAISON_UNIF =FACT(statut='f',min=1,max='**',
2104 fr="Imposer une meme valeur (inconnue) a des ddls d un emsemble de noeuds",
2105 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
2106 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2107 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2108 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2109 NOEUD =SIMP(statut='f',typ=no,max='**'),
2110 DDL =SIMP(statut='o',typ='TXM',max='**'),
2113 LIAISON_SOLIDE =FACT(statut='f',min=1,max='**',
2114 fr="Modéliser une partie indéformable d une structure",
2115 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
2116 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2117 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2118 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2119 NOEUD =SIMP(statut='f',typ=no,max='**'),
2120 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
2125 FORCE_NODALE =FACT(statut='f',min=1,max='**',
2126 regles=(UN_PARMI('GROUP_NO','NOEUD'),
2127 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
2128 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2129 NOEUD =SIMP(statut='f',typ=no,max='**'),
2130 FX =SIMP(statut='f',typ=(fonction) ),
2131 FY =SIMP(statut='f',typ=(fonction) ),
2132 FZ =SIMP(statut='f',typ=(fonction) ),
2133 MX =SIMP(statut='f',typ=(fonction) ),
2134 MY =SIMP(statut='f',typ=(fonction) ),
2135 MZ =SIMP(statut='f',typ=(fonction) ),
2136 ANGL_NAUT =SIMP(statut='f',typ=(fonction),max=3 ),
2139 FORCE_FACE =FACT(statut='f',min=1,max='**',
2140 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
2141 AU_MOINS_UN('FX','FY','FZ'),),
2142 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2143 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2144 FX =SIMP(statut='f',typ=(fonction) ),
2145 FY =SIMP(statut='f',typ=(fonction) ),
2146 FZ =SIMP(statut='f',typ=(fonction) ),
2148 FORCE_ARETE =FACT(statut='f',min=1,max='**',
2149 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
2150 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
2151 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2152 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2153 FX =SIMP(statut='f',typ=(fonction) ),
2154 FY =SIMP(statut='f',typ=(fonction) ),
2155 FZ =SIMP(statut='f',typ=(fonction) ),
2156 MX =SIMP(statut='f',typ=(fonction) ),
2157 MY =SIMP(statut='f',typ=(fonction) ),
2158 MZ =SIMP(statut='f',typ=(fonction) ),
2160 FORCE_CONTOUR =FACT(statut='f',min=1,max='**',
2161 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
2162 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
2163 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2164 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2165 FX =SIMP(statut='f',typ=(fonction) ),
2166 FY =SIMP(statut='f',typ=(fonction) ),
2167 FZ =SIMP(statut='f',typ=(fonction) ),
2168 MX =SIMP(statut='f',typ=(fonction) ),
2169 MY =SIMP(statut='f',typ=(fonction) ),
2170 MZ =SIMP(statut='f',typ=(fonction) ),
2173 FORCE_INTERNE =FACT(statut='f',min=1,max='**',
2174 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2175 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2176 AU_MOINS_UN('FX','FY','FZ'),),
2177 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2178 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2179 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2180 FX =SIMP(statut='f',typ=(fonction) ),
2181 FY =SIMP(statut='f',typ=(fonction) ),
2182 FZ =SIMP(statut='f',typ=(fonction) ),
2185 PRES_REP =FACT(statut='f',min=1,max='**',
2186 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2187 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2188 AU_MOINS_UN('PRES','CISA_2D'),),
2189 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2190 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2191 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2192 PRES =SIMP(statut='f',typ=(fonction) ),
2193 CISA_2D =SIMP(statut='f',typ=(fonction) ),
2196 EFFE_FOND =FACT(statut='f',fr="Imposer un effet de fond",min=1,max='**',
2197 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
2198 GROUP_MA_INT =SIMP(statut='o',typ=grma,max='**'),
2199 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2200 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2201 PRES =SIMP(statut='o',typ=(fonction) ),
2204 EPSI_INIT =FACT(statut='f',min=1,max='**',
2205 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2206 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2207 AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ'),),
2208 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2209 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2210 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2211 EPXX =SIMP(statut='f',typ=(fonction) ),
2212 EPYY =SIMP(statut='f',typ=(fonction) ),
2213 EPZZ =SIMP(statut='f',typ=(fonction) ),
2214 EPXY =SIMP(statut='f',typ=(fonction) ),
2215 EPXZ =SIMP(statut='f',typ=(fonction) ),
2216 EPYZ =SIMP(statut='f',typ=(fonction) ),
2219 FORCE_POUTRE =FACT(statut='f',min=1,max='**',
2220 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2221 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2222 AU_MOINS_UN('FX','FY','FZ','N','VY','VZ'),
2223 PRESENT_ABSENT('FX','N','VY','VZ'),
2224 PRESENT_ABSENT('FY','N','VY','VZ'),
2225 PRESENT_ABSENT('FZ','N','VY','VZ'),
2226 PRESENT_ABSENT('N','FX','FY','FZ'),
2227 PRESENT_ABSENT('VY','FX','FY','FZ'),
2228 PRESENT_ABSENT('VZ','FX','FY','FZ'),),
2229 # rajout d un mot cle REPERE : / GLOBAL / LOCAL
2230 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2231 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2232 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2233 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE") ),
2234 FX =SIMP(statut='f',typ=(fonction) ),
2235 FY =SIMP(statut='f',typ=(fonction) ),
2236 FZ =SIMP(statut='f',typ=(fonction) ),
2237 N =SIMP(statut='f',typ=(fonction) ),
2238 VY =SIMP(statut='f',typ=(fonction) ),
2239 VZ =SIMP(statut='f',typ=(fonction) ),
2242 FORCE_TUYAU =FACT(statut='f',min=1,max='**',
2243 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2244 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2245 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2246 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2247 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2248 PRES =SIMP(statut='f',typ=(fonction) ),
2251 FORCE_COQUE =FACT(statut='f',min=1,max='**',
2252 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2253 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2254 AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
2255 PRESENT_ABSENT('FX','PRES','F1','F2','F3','MF1','MF2'),
2256 PRESENT_ABSENT('FY','PRES','F1','F2','F3','MF1','MF2'),
2257 PRESENT_ABSENT('FZ','PRES','F1','F2','F3','MF1','MF2'),
2258 PRESENT_ABSENT('MX','PRES','F1','F2','F3','MF1','MF2'),
2259 PRESENT_ABSENT('MY','PRES','F1','F2','F3','MF1','MF2'),
2260 PRESENT_ABSENT('MZ','PRES','F1','F2','F3','MF1','MF2'),
2261 PRESENT_ABSENT('F1','PRES','FX','FY','FZ','MX','MY','MZ'),
2262 PRESENT_ABSENT('F2','PRES','FX','FY','FZ','MX','MY','MZ'),
2263 PRESENT_ABSENT('F3','PRES','FX','FY','FZ','MX','MY','MZ'),
2264 PRESENT_ABSENT('MF1','PRES','FX','FY','FZ','MX','MY','MZ'),
2265 PRESENT_ABSENT('MF2','PRES','FX','FY','FZ','MX','MY','MZ'),
2266 PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
2267 # rajout d un mot cle REPERE : / GLOBAL / LOCAL
2268 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2269 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2270 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2271 FX =SIMP(statut='f',typ=(fonction) ),
2272 FY =SIMP(statut='f',typ=(fonction) ),
2273 FZ =SIMP(statut='f',typ=(fonction) ),
2274 MX =SIMP(statut='f',typ=(fonction) ),
2275 MY =SIMP(statut='f',typ=(fonction) ),
2276 MZ =SIMP(statut='f',typ=(fonction) ),
2277 F1 =SIMP(statut='f',typ=(fonction) ),
2278 F2 =SIMP(statut='f',typ=(fonction) ),
2279 F3 =SIMP(statut='f',typ=(fonction) ),
2280 MF1 =SIMP(statut='f',typ=(fonction) ),
2281 MF2 =SIMP(statut='f',typ=(fonction) ),
2282 PRES =SIMP(statut='f',typ=(fonction) ),
2283 PLAN =SIMP(statut='f',typ='TXM',defaut="MAIL",
2284 into=("SUP","INF","MOY","MAIL") ),
2287 LIAISON_COQUE =FACT(statut='f',min=1,max='**',
2288 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
2289 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
2290 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
2291 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
2292 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
2293 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
2294 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
2295 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
2296 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
2300 VITE_FACE =FACT(statut='f',min=1,max='**',
2301 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
2302 PRESENT_ABSENT('GROUP_MA','MAILLE'),),
2303 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2304 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2305 VNOR =SIMP(statut='o',typ=(fonction) ),
2307 IMPE_FACE =FACT(statut='f',min=1,max='**',
2308 regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
2309 PRESENT_ABSENT('GROUP_MA','MAILLE'),),
2310 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2311 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2312 IMPE =SIMP(statut='o',typ=(fonction) ),
2314 ONDE_PLANE =FACT(statut='f',min=1,max='**',
2315 DIRECTION =SIMP(statut='o',typ='R',max='**'),
2316 TYPE_ONDE =SIMP(statut='o',typ='TXM' ),
2317 FONC_SIGNAL =SIMP(statut='o',typ=(fonction) ),
2318 DIST_ORIG =SIMP(statut='o',typ='R' ),
2323 FLUX_THM_REP =FACT(statut='f',min=1,max='**',
2324 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2325 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2326 AU_MOINS_UN('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
2327 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2328 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2329 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2330 FLUN =SIMP(statut='f',typ=(fonction) ),
2331 FLUN_HYDR1 =SIMP(statut='f',typ=(fonction) ),
2332 FLUN_HYDR2 =SIMP(statut='f',typ=(fonction) ),
2335 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
2337 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
2338 # CONFIGURATION MANAGEMENT OF EDF VERSION
2339 # ======================================================================
2340 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2341 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2342 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2343 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2344 # (AT YOUR OPTION) ANY LATER VERSION.
2346 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2347 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2348 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2349 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2351 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2352 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2353 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2354 # ======================================================================
2355 AFFE_CHAR_OPS011=OPER(nom="AFFE_CHAR_OPS011",op= 190,sd_prod=char_ther,
2357 docu="",reentrant='n',
2358 UIinfo={"groupes":("Outils métier",)},
2359 regles=(AU_MOINS_UN('CARA_TORSION', ),),
2360 MODELE =SIMP(statut='o',typ=modele ),
2361 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",
2362 into=("OUI","NON") ),
2363 CARA_TORSION =FACT(statut='f',min=1,max='**',
2364 regles=(UN_PARMI('TOUT','GROUP_MA'),),
2365 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2366 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2368 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2370 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
2371 # CONFIGURATION MANAGEMENT OF EDF VERSION
2372 # ======================================================================
2373 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2374 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2375 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2376 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2377 # (AT YOUR OPTION) ANY LATER VERSION.
2379 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2380 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2381 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2382 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2384 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2385 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2386 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2387 # ======================================================================
2388 AFFE_CHAR_THER=OPER(nom="AFFE_CHAR_THER",op=34,sd_prod=char_ther
2389 ,fr="Affectation de charges et conditions aux limites thermiques constantes",
2390 docu="U4.44.02-g2",reentrant='n',
2391 UIinfo={"groupes":("Modélisation",)},
2392 regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','FLUX_REP','ECHANGE',
2393 'ECHANGE_PAROI','GRAD_TEMP_INIT','LIAISON_DDL','LIAISON_GROUP',
2394 'LIAISON_UNIF','LIAISON_CHAMNO','RAYONNEMENT','LIAISON_MAIL' ),),
2395 VERI_DDL =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="OUI"),
2396 MODELE =SIMP(statut='o',typ=(modele) ),
2398 TEMP_IMPO =FACT(statut='f',min=1,max='**',
2399 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
2400 AU_MOINS_UN('TEMP_SUP','TEMP','TEMP_INF'),),
2401 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2402 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2403 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2404 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2405 NOEUD =SIMP(statut='f',typ=no,max='**'),
2406 TEMP =SIMP(statut='f',typ='R'),
2407 TEMP_INF =SIMP(statut='f',typ='R'),
2408 TEMP_SUP =SIMP(statut='f',typ='R'), ),
2410 FLUX_REP =FACT(statut='f',min=1,max='**',
2411 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2412 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2413 PRESENT_PRESENT('CARA_TORSION','GROUP_MA'),
2414 AU_MOINS_UN('FLUN','FLUN_INF','FLUN_SUP','CARA_TORSION') ),
2415 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2416 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2417 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2418 FLUN =SIMP(statut='f',typ='R'),
2419 FLUN_INF =SIMP(statut='f',typ='R'),
2420 FLUN_SUP =SIMP(statut='f',typ='R'),
2421 CARA_TORSION =SIMP(statut='f',typ=tabl_aire_int ),
2425 RAYONNEMENT =FACT(statut='f',min=1,max='**',
2426 fr="Attention, exprimer les températures en Celsius si rayonnement",
2427 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2428 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2429 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2430 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2431 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2432 SIGMA =SIMP(statut='o',typ='R'),
2433 EPSILON =SIMP(statut='o',typ='R'),
2434 TEMP_EXT =SIMP(statut='o',typ='R'),
2437 ECHANGE =FACT(statut='f',min=1,max='**',
2438 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2439 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2440 AU_MOINS_UN('COEF_H','COEF_H_INF','COEF_H_SUP'),
2441 ENSEMBLE('COEF_H','TEMP_EXT',),
2442 ENSEMBLE('COEF_H_INF','TEMP_EXT_INF'),
2443 ENSEMBLE('COEF_H_SUP','TEMP_EXT_SUP'),),
2444 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2445 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2446 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2447 COEF_H =SIMP(statut='f',typ='R'),
2448 TEMP_EXT =SIMP(statut='f',typ='R'),
2449 COEF_H_INF =SIMP(statut='f',typ='R'),
2450 TEMP_EXT_INF =SIMP(statut='f',typ='R'),
2451 COEF_H_SUP =SIMP(statut='f',typ='R'),
2452 TEMP_EXT_SUP =SIMP(statut='f',typ='R'),
2455 SOURCE =FACT(statut='f',min=1,max='**',
2456 regles=(UN_PARMI('SOUR','SOUR_CALCULEE',),
2457 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2458 PRESENT_ABSENT('SOUR_CALCULEE','TOUT','GROUP_MA','MAILLE'),),
2459 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2460 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2461 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2462 SOUR =SIMP(statut='f',typ='R'),
2463 SOUR_CALCULEE =SIMP(statut='f',typ=(cham_elem_sour_r) ),
2466 GRAD_TEMP_INIT =FACT(statut='f',min=1,max='**',
2467 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2468 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2469 AU_MOINS_UN('FLUX_X','FLUX_Y','FLUX_Z'),),
2470 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2471 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2472 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2473 FLUX_X =SIMP(statut='f',typ='R' ),
2474 FLUX_Y =SIMP(statut='f',typ='R' ),
2475 FLUX_Z =SIMP(statut='f',typ='R' ),
2478 LIAISON_DDL =FACT(statut='f',min=1,max='**',
2479 regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
2480 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2481 NOEUD =SIMP(statut='f',typ=no,max='**'),
2482 DDL =SIMP(statut='f',typ='TXM',max='**',
2483 into=("TEMP","TEMP_INF","TEMP_SUP") ),
2484 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
2485 COEF_IMPO =SIMP(statut='o',typ='R' ),
2488 LIAISON_GROUP =FACT(statut='f',min=1,max='**',
2489 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
2490 UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
2491 EXCLUS('GROUP_MA_1','GROUP_NO_2'),
2492 EXCLUS('GROUP_MA_1','NOEUD_2'),
2493 EXCLUS('GROUP_NO_1','GROUP_MA_2'),
2494 EXCLUS('GROUP_NO_1','MAILLE_2'),
2495 EXCLUS('MAILLE_1','GROUP_NO_2'),
2496 EXCLUS('MAILLE_1','NOEUD_2'),
2497 EXCLUS('NOEUD_1','GROUP_MA_2'),
2498 EXCLUS('NOEUD_1','MAILLE_2'),
2499 EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
2500 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
2501 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
2502 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
2503 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
2504 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
2505 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
2506 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
2507 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
2508 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
2509 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2510 DDL_1 =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2511 into=("TEMP","TEMP_INF","TEMP_SUP") ),
2512 COEF_MULT_1 =SIMP(statut='o',typ='R',max='**'),
2513 DDL_2 =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2514 into=("TEMP","TEMP_INF","TEMP_SUP",) ),
2515 COEF_MULT_2 =SIMP(statut='o',typ='R',max='**'),
2516 COEF_IMPO =SIMP(statut='o',typ='R' ),
2517 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2518 TRAN =SIMP(statut='f',typ='R',max='**'),
2519 ANGL_NAUT =SIMP(statut='f',typ='R',max='**'),
2520 CENTRE =SIMP(statut='f',typ='R',max='**'),
2523 LIAISON_MAIL =FACT(statut='f',min=1,max='**',
2524 regles=(AU_MOINS_UN('GROUP_MA_MAIT','MAILLE_MAIT'),
2525 AU_MOINS_UN('GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL',
2527 GROUP_MA_MAIT =SIMP(statut='f',typ=grma,max='**'),
2528 MAILLE_MAIT =SIMP(statut='f',typ=ma,max='**'),
2529 GROUP_MA_ESCL =SIMP(statut='f',typ=grma,max='**'),
2530 MAILLE_ESCL =SIMP(statut='f',typ=ma,max='**'),
2531 GROUP_NO_ESCL =SIMP(statut='f',typ=grno,max='**'),
2532 NOEUD_ESCL =SIMP(statut='f',typ=no,max='**'),
2533 TRAN =SIMP(statut='f',typ='R',max='**' ),
2534 ANGL_NAUT =SIMP(statut='f',typ='R',max='**' ),
2535 CENTRE =SIMP(statut='f',typ='R',max='**' ),
2538 ECHANGE_PAROI =FACT(statut='f',min=1,max='**',
2539 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
2540 UN_PARMI('GROUP_MA_2','MAILLE_2'),),
2541 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
2542 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
2543 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
2544 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
2545 COEF_H =SIMP(statut='f',typ='R'),
2546 TRAN =SIMP(statut='f',typ='R',min=2,max=3),
2547 ANGL_NAUT =SIMP(statut='f',typ='R',min=1,max=3),
2548 CENTRE =SIMP(statut='f',typ='R',min=2,max=3),
2551 LIAISON_UNIF =FACT(statut='f',min=1,max='**',
2552 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
2553 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2554 NOEUD =SIMP(statut='f',typ=no,max='**'),
2555 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2556 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2557 DDL =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2558 into=("TEMP","TEMP_INF","TEMP_SUP") ),
2561 LIAISON_CHAMNO =FACT(statut='f',min=1,max='**',
2562 CHAM_NO =SIMP(statut='o',typ=cham_no),# CO()# "il faut definir une structure de donnee generique chamno"
2563 COEF_IMPO =SIMP(statut='o',typ='R' ),
2564 NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
2567 CONVECTION =FACT(statut='f',min=1,max='**',
2568 VITESSE =SIMP(statut='o',typ=(cham_no_depl_r) ),
2572 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2574 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
2575 # CONFIGURATION MANAGEMENT OF EDF VERSION
2576 # ======================================================================
2577 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2578 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2579 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2580 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2581 # (AT YOUR OPTION) ANY LATER VERSION.
2583 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2584 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2585 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2586 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2588 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2589 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2590 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2591 # ======================================================================
2592 AFFE_CHAR_THER_F=OPER(nom="AFFE_CHAR_THER_F",op=33,sd_prod=char_ther,
2593 fr="Affectation de charges et conditions aux limites thermiques fonction dune grandeur (temps, ...)",
2594 docu="U4.44.02-g2",reentrant='n',
2595 UIinfo={"groupes":("Modélisation",)},
2596 regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','FLUX_REP','FLUX_NL','ECHANGE',
2597 'ECHANGE_PAROI','LIAISON_DDL','LIAISON_GROUP','LIAISON_UNIF',
2598 'GRAD_TEMP_INIT','RAYONNEMENT'),),
2599 VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2600 MODELE =SIMP(statut='o',typ=(modele) ),
2602 TEMP_IMPO =FACT(statut='f',min=1,max='**',
2603 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
2604 AU_MOINS_UN('TEMP_SUP','TEMP','TEMP_INF','EVOL_THER'),
2605 PRESENT_ABSENT('EVOL_THER','TEMP','TEMP_INF','TEMP_SUP'),),
2606 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2607 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2608 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2609 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2610 NOEUD =SIMP(statut='f',typ=no,max='**'),
2611 EVOL_THER =SIMP(statut='f',typ=(evol_ther) ),
2612 DDL =SIMP(statut='f',typ='TXM',into=("TEMP",) ),
2613 TEMP =SIMP(statut='f',typ=(fonction) ),
2614 TEMP_INF =SIMP(statut='f',typ=(fonction) ),
2615 TEMP_SUP =SIMP(statut='f',typ=(fonction) ),
2618 FLUX_REP =FACT(statut='f',min=1,max='**',
2619 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2620 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2621 AU_MOINS_UN('FLUN','FLUN_INF','FLUN_SUP','FLUX_X','FLUX_Y','FLUX_Z'),),
2622 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2623 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2624 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2625 FLUN =SIMP(statut='f',typ=(fonction) ),
2626 FLUN_INF =SIMP(statut='f',typ=(fonction) ),
2627 FLUN_SUP =SIMP(statut='f',typ=(fonction) ),
2628 FLUX_X =SIMP(statut='f',typ=(fonction) ),
2629 FLUX_Y =SIMP(statut='f',typ=(fonction) ),
2630 FLUX_Z =SIMP(statut='f',typ=(fonction) ),
2633 FLUX_NL =FACT(statut='f',min=1,max='**',
2634 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2635 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2636 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2637 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2638 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2639 FLUN =SIMP(statut='o',typ=(fonction) ),
2643 RAYONNEMENT =FACT(statut='f',min=1,max='**',
2644 fr="Attention, exprimer les températures en Celsius si rayonnement",
2645 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2646 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2647 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2648 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2649 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2650 SIGMA =SIMP(statut='o',typ=(fonction) ),
2651 EPSILON =SIMP(statut='o',typ=(fonction) ),
2652 TEMP_EXT =SIMP(statut='o',typ=(fonction) ),
2657 ECHANGE =FACT(statut='f',min=1,max='**',
2658 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2659 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2660 AU_MOINS_UN('COEF_H','COEF_H_INF','COEF_H_SUP'),
2661 ENSEMBLE('COEF_H','TEMP_EXT'),
2662 ENSEMBLE('COEF_H_INF','TEMP_EXT_INF'),
2663 ENSEMBLE('COEF_H_SUP','TEMP_EXT_SUP'),),
2664 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2665 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2666 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2667 COEF_H =SIMP(statut='f',typ=(fonction) ),
2668 TEMP_EXT =SIMP(statut='f',typ=(fonction) ),
2669 COEF_H_INF =SIMP(statut='f',typ=(fonction) ),
2670 TEMP_EXT_INF =SIMP(statut='f',typ=(fonction) ),
2671 COEF_H_SUP =SIMP(statut='f',typ=(fonction) ),
2672 TEMP_EXT_SUP =SIMP(statut='f',typ=(fonction) ),
2676 SOURCE =FACT(statut='f',min=1,max='**',
2677 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),),
2678 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2679 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2680 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2681 SOUR =SIMP(statut='o',typ=(fonction) ),
2684 GRAD_TEMP_INIT =FACT(statut='f',min=1,max='**',
2685 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2686 PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2687 AU_MOINS_UN('FLUX_X','FLUX_Y','FLUX_Z'),),
2688 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2689 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2690 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2691 FLUX_X =SIMP(statut='f',typ=(fonction) ),
2692 FLUX_Y =SIMP(statut='f',typ=(fonction) ),
2693 FLUX_Z =SIMP(statut='f',typ=(fonction) ),
2696 ECHANGE_PAROI =FACT(statut='f',min=1,max='**',
2697 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
2698 UN_PARMI('GROUP_MA_2','MAILLE_2'),),
2699 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
2700 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
2701 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
2702 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
2703 COEF_H =SIMP(statut='o',typ=(fonction) ),
2704 TRAN =SIMP(statut='f',typ='R',min=2,max=3),
2705 ANGL_NAUT =SIMP(statut='f',typ='R',min=1,max=3),
2706 CENTRE =SIMP(statut='f',typ='R',min=2,max=3),
2709 LIAISON_DDL =FACT(statut='f',min=1,max='**',
2710 regles=(UN_PARMI('GROUP_NO','NOEUD'),),
2711 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2712 NOEUD =SIMP(statut='f',typ=no,max='**'),
2713 DDL =SIMP(statut='f',typ='TXM',max='**',into=("TEMP","TEMP_INF","TEMP_SUP") ),
2714 COEF_MULT =SIMP(statut='o',typ='R',max='**'),
2715 COEF_IMPO =SIMP(statut='o',typ=(fonction) ),
2718 LIAISON_GROUP =FACT(statut='f',min=1,max='**',
2719 regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
2720 UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
2721 EXCLUS('GROUP_MA_1','GROUP_NO_2'),
2722 EXCLUS('GROUP_MA_1','NOEUD_2'),
2723 EXCLUS('GROUP_NO_1','GROUP_MA_2'),
2724 EXCLUS('GROUP_NO_1','MAILLE_2'),
2725 EXCLUS('MAILLE_1','GROUP_NO_2'),
2726 EXCLUS('MAILLE_1','NOEUD_2'),
2727 EXCLUS('NOEUD_1','GROUP_MA_2'),
2728 EXCLUS('NOEUD_1','MAILLE_2'),
2729 EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
2730 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
2731 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
2732 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
2733 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
2734 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
2735 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
2736 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
2737 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
2738 SANS_NOEUD =SIMP(statut='f',typ=no,max='**'),
2739 SANS_GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2740 DDL_1 =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2741 into=("TEMP","TEMP_INF","TEMP_SUP") ),
2742 COEF_MULT_1 =SIMP(statut='o',typ='R',max='**'),
2743 DDL_2 =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2744 into=("TEMP","TEMP_INF","TEMP_SUP") ),
2745 COEF_MULT_2 =SIMP(statut='o',typ='R',max='**'),
2746 COEF_IMPO =SIMP(statut='o',typ=(fonction) ),
2747 SOMMET =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2748 TRAN =SIMP(statut='f',typ='R',max='**'),
2749 ANGL_NAUT =SIMP(statut='f',typ='R',max='**'),
2750 CENTRE =SIMP(statut='f',typ='R',max='**'),
2753 LIAISON_UNIF =FACT(statut='f',min=1,max='**',
2754 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
2755 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2756 NOEUD =SIMP(statut='f',typ=no,max='**'),
2757 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2758 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2759 DDL =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2760 into=("TEMP","TEMP_INF","TEMP_SUP") ),
2763 CONVECTION =FACT(statut='f',min=1,max='**',
2764 VITESSE =SIMP(statut='o',typ=(cham_no_depl_r) ),
2767 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2769 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
2770 # CONFIGURATION MANAGEMENT OF EDF VERSION
2771 # ======================================================================
2772 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2773 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2774 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2775 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2776 # (AT YOUR OPTION) ANY LATER VERSION.
2778 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2779 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2780 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2781 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2783 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2784 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2785 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2786 # ======================================================================
2787 # RESPONSABLE VABHHTS J.PELLET
2788 AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
2789 fr="Affectation de caractéristiques de matériaux à un maillage",
2790 docu="U4.43.03-f",reentrant='n',
2791 UIinfo={"groupes":("Modélisation",)},
2792 MAILLAGE =SIMP(statut='o',typ=maillage),
2793 MODELE =SIMP(statut='f',typ=modele),
2794 AFFE =FACT(statut='o',min=1,max='**',
2795 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
2796 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2797 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2798 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2799 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2800 NOEUD =SIMP(statut='f',typ=no,max='**'),
2801 MATER =SIMP(statut='o',typ=mater),
2802 TEMP_REF =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2805 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
2806 # CONFIGURATION MANAGEMENT OF EDF VERSION
2807 # ======================================================================
2808 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2809 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2810 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2811 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2812 # (AT YOUR OPTION) ANY LATER VERSION.
2814 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2815 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2816 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2817 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2819 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2820 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2821 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2822 # ======================================================================
2823 # RESPONSABLE JMBHH01 J.M.PROIX
2824 AFFE_MODELE=OPER(nom="AFFE_MODELE",op=18,sd_prod=modele,docu="U4.41.01-g3",
2825 UIinfo={"groupes":("Modélisation",)},
2826 fr="Affectation des éléments finis sur le maillage",reentrant='n',
2827 regles=(AU_MOINS_UN('AFFE','AFFE_SOUS_STRUC'),),
2828 MAILLAGE =SIMP(statut='o',typ=(maillage) ),
2829 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
2830 VERIF =SIMP(statut='f',typ='TXM',max=2,into=("MAILLE","NOEUD") ),
2831 AFFE_SOUS_STRUC =FACT(statut='f',min=1,max=1,
2832 regles=(UN_PARMI('TOUT','MAILLE'),),
2833 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2834 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2835 PHENOMENE =SIMP(statut='f',typ='TXM',defaut="MECANIQUE",into=("MECANIQUE",) ),
2837 AFFE =FACT(statut='f',min=1,max='**',
2838 regles=(UN_PARMI('TOUT','GROUP_MA','GROUP_NO','MAILLE','NOEUD'),),
2839 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2840 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
2841 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
2842 MAILLE =SIMP(statut='f',typ=ma,max='**'),
2843 NOEUD =SIMP(statut='f',typ=no,max='**'),
2844 PHENOMENE =SIMP(statut='o',typ='TXM',
2845 into=("MECANIQUE","THERMIQUE","ACOUSTIQUE") ),
2846 b_mecanique =BLOC( condition = "PHENOMENE=='MECANIQUE'",
2847 fr="modelisations mécaniques",
2848 MODELISATION =SIMP(statut='o',typ='TXM', into=(
2945 b_thermique =BLOC( condition = "PHENOMENE=='THERMIQUE'",
2946 fr="modelisations thermiques",
2947 MODELISATION =SIMP(statut='o',typ='TXM',into=(
2960 b_acoustique =BLOC( condition = "PHENOMENE=='ACOUSTIQUE'",
2961 fr="modelisations acoustiques",
2962 MODELISATION =SIMP(statut='o',typ='TXM',into=(
2969 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
2970 # CONFIGURATION MANAGEMENT OF EDF VERSION
2971 # ======================================================================
2972 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
2973 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2974 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2975 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2976 # (AT YOUR OPTION) ANY LATER VERSION.
2978 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2979 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2980 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2981 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2983 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2984 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2985 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2986 # ======================================================================
2987 AIDE=PROC(nom="AIDE",op=42,docu="U4.02.01-g1",
2988 UIinfo={"groupes":("Modélisation",)},
2989 fr="Interrogation sur le catalogue des commandes et les concepts produits",
2990 regles=(AU_MOINS_UN('CONCEPT','TYPE_ELEM', ),),
2991 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
2992 TYPE_ELEM =FACT(fr="couple type_elem option",
2993 statut='f',min=1,max=1,
2994 INITEL =SIMP(statut='f',typ='TXM',defaut="NON",
2995 into=("OUI","NON",) ),
2997 CONCEPT =FACT(statut='f',min=1,max='**',
2998 NOM =SIMP(fr="liste des noms de concept",
2999 statut='f',typ='TXM',max='**',defaut="*"),
3000 OPTION =SIMP(fr="option d'édition de concept",
3001 statut='f',typ='TXM',defaut="TOUT_TYPE",
3002 into=("TOUT_TYPE","CREER","A_CREER",) ),
3005 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
3006 # CONFIGURATION MANAGEMENT OF EDF VERSION
3007 # ======================================================================
3008 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3009 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3010 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3011 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3012 # (AT YOUR OPTION) ANY LATER VERSION.
3014 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3015 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3016 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3017 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3019 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3020 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3021 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3022 # ======================================================================
3023 # RESPONSABLE VABHHTS J.PELLET
3024 ASSE_MAILLAGE=OPER(nom="ASSE_MAILLAGE",op= 105,sd_prod=maillage,
3025 fr="Assembler deux maillages sous un seul nom",
3026 docu="U4.23.03-e",reentrant='n',
3027 UIinfo={"groupes":("Maillage",)},
3028 MAILLAGE =SIMP(statut='o',typ=maillage,min=2,max=2 ),
3030 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
3031 # CONFIGURATION MANAGEMENT OF EDF VERSION
3032 # ======================================================================
3033 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3034 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3035 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3036 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3037 # (AT YOUR OPTION) ANY LATER VERSION.
3039 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3040 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3041 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3042 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3044 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3045 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3046 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3047 # ======================================================================
3048 ASSE_MATR_GENE=OPER(nom="ASSE_MATR_GENE",op= 128,sd_prod=matr_asse_gene_r,
3049 fr="Assemblage des matrices généralisées de macro éléments pour construction de la matrice globale généralisée",
3050 docu="U4.65.04-d",reentrant='n',
3051 UIinfo={"groupes":("Matrices/vecteurs",)},
3052 NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
3053 OPTION =SIMP(statut='o',typ='TXM',into=("RIGI_GENE","MASS_GENE","AMOR_GENE") ),
3055 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
3056 # CONFIGURATION MANAGEMENT OF EDF VERSION
3057 # ======================================================================
3058 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3059 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3060 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3061 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3062 # (AT YOUR OPTION) ANY LATER VERSION.
3064 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3065 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3066 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3067 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3069 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3070 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3071 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3072 # ======================================================================
3073 # RESPONSABLE VABHHTS J.PELLET
3074 def asse_matrice_prod(MATR_ELEM,**args):
3075 if AsType(MATR_ELEM) == matr_elem_depl_r : return matr_asse_depl_r
3076 if AsType(MATR_ELEM) == matr_elem_depl_c : return matr_asse_depl_c
3077 if AsType(MATR_ELEM) == matr_elem_temp_r : return matr_asse_temp_r
3078 if AsType(MATR_ELEM) == matr_elem_pres_c : return matr_asse_pres_c
3079 raise AsException("type de concept resultat non prevu")
3081 ASSE_MATRICE=OPER(nom="ASSE_MATRICE",op=12,sd_prod=asse_matrice_prod,
3082 fr="Construction d une matrice assemblée",docu="U4.61.22-f",reentrant='n',
3083 UIinfo={"groupes":("Matrices/vecteurs",)},
3084 MATR_ELEM =SIMP(statut='o',
3085 typ=(matr_elem_depl_r,matr_elem_depl_c,matr_elem_temp_r,matr_elem_pres_c) ),
3086 NUME_DDL =SIMP(statut='o',typ=nume_ddl),
3087 CHAR_CINE =SIMP(statut='f',typ=(char_cine_meca,char_cine_ther,char_cine_acou) ),
3088 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
3090 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
3091 # CONFIGURATION MANAGEMENT OF EDF VERSION
3092 # ======================================================================
3093 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3094 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3095 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3096 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3097 # (AT YOUR OPTION) ANY LATER VERSION.
3099 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3100 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3101 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3102 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3104 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3105 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3106 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3107 # ======================================================================
3108 ASSE_VECT_GENE=OPER(nom="ASSE_VECT_GENE",op= 140,sd_prod=vect_asse_gene,
3109 fr="Assemblage de vecteurs de chargement en coordonnées généralisées",
3110 docu="U4.65.05-d",reentrant='n',
3111 UIinfo={"groupes":("Matrices/vecteurs",)},
3112 NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
3113 CHAR_SOUS_STRUC =FACT(statut='o',min=1,max='**',
3114 SOUS_STRUC =SIMP(statut='o',typ='TXM' ),
3115 VECT_ASSE =SIMP(statut='o',typ=cham_no_depl_r ),
3118 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
3119 # CONFIGURATION MANAGEMENT OF EDF VERSION
3120 # ======================================================================
3121 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3122 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3123 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3124 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3125 # (AT YOUR OPTION) ANY LATER VERSION.
3127 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3128 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3129 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3130 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3132 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3133 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3134 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3135 # ======================================================================
3136 # RESPONSABLE VABHHTS J.PELLET
3137 def asse_vecteur_prod(VECT_ELEM,**args):
3138 if AsType(VECT_ELEM) == vect_elem_depl_r : return cham_no_depl_r
3139 if AsType(VECT_ELEM) == vect_elem_temp_r : return cham_no_temp_r
3140 if AsType(VECT_ELEM) == vect_elem_pres_r : return cham_no_pres_r
3141 if AsType(VECT_ELEM) == vect_elem_pres_c : return cham_no_pres_c
3142 raise AsException("type de concept resultat non prevu ")
3144 ASSE_VECTEUR=OPER(nom="ASSE_VECTEUR",op=13,sd_prod=asse_vecteur_prod,
3145 fr="Assemblage d un second membre",docu="U4.61.23-f",reentrant='n',
3146 UIinfo={"groupes":("Matrices/vecteurs",)},
3147 VECT_ELEM =SIMP(statut='o',typ=vect_elem,max='**'),
3148 NUME_DDL =SIMP(statut='o',typ=nume_ddl ),
3149 INFO =SIMP(statut='f',typ='I',into=(1,2,) ),
3151 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
3152 # CONFIGURATION MANAGEMENT OF EDF VERSION
3153 # ======================================================================
3154 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3155 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3156 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3157 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3158 # (AT YOUR OPTION) ANY LATER VERSION.
3160 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3161 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3162 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3163 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3165 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3166 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3167 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3168 # ======================================================================
3169 CALC_AMOR_MODAL=OPER(nom="CALC_AMOR_MODAL",op= 172,sd_prod=listr8,
3170 fr="Création d'une liste d'amortissements modaux calculés selon la règle du RCC-G",
3171 docu="U4.52.13-c",reentrant='n',
3172 UIinfo={"groupes":("Résolution",)},
3173 ENER_SOL =FACT(statut='o',min=1,max=1,
3174 regles=(UN_PARMI('GROUP_NO_RADIER','GROUP_MA_RADIER'),
3175 PRESENT_ABSENT('COEF_GROUP','FONC_GROUP'),
3176 # Peut-on remplacer les deux règles suivantes par un ENSEMBLE_('KRX','KRY','KRZ')
3177 PRESENT_PRESENT('KRX','KRY'),
3178 PRESENT_PRESENT('KRX','KRZ'),
3179 PRESENT_ABSENT('COOR_CENTRE','NOEUD_CENTRE'),
3180 PRESENT_ABSENT('GROUP_NO_CENTRE','NOEUD_CENTRE'),
3181 PRESENT_ABSENT('GROUP_NO_CENTRE','COOR_CENTRE'),),
3182 METHODE =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","RIGI_PARASOL") ),
3183 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
3184 GROUP_NO_RADIER =SIMP(statut='f',typ=grno,max='**'),
3185 GROUP_MA_RADIER =SIMP(statut='f',typ=grma,max='**'),
3186 FONC_GROUP =SIMP(statut='f',typ=fonction ),
3187 COEF_GROUP =SIMP(statut='f',typ='R',max='**'),
3188 KX =SIMP(statut='o',typ='R' ),
3189 KY =SIMP(statut='o',typ='R' ),
3190 KZ =SIMP(statut='o',typ='R' ),
3191 KRX =SIMP(statut='f',typ='R' ),
3192 KRY =SIMP(statut='f',typ='R' ),
3193 KRZ =SIMP(statut='f',typ='R' ),
3194 GROUP_NO_CENTRE =SIMP(statut='f',typ=grno),
3195 NOEUD_CENTRE =SIMP(statut='f',typ=no),
3196 COOR_CENTRE =SIMP(statut='f',typ='R',max=3),
3198 AMOR_INTERNE =FACT(statut='o',min=1,max=1,
3199 ENER_POT =SIMP(statut='o',typ=tabl_ener_pot ),
3200 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
3201 AMOR_REDUIT =SIMP(statut='o',typ='R',max='**'),
3203 AMOR_SOL =FACT(statut='o',min=1,max=1,
3204 AMOR_REDUIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3205 FONC_AMOR_GEO =SIMP(statut='o',typ=fonction,max='**' ),
3206 HOMOGENE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3207 SEUIL =SIMP(statut='f',typ='R',defaut= 0.3 ),
3210 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
3211 # CONFIGURATION MANAGEMENT OF EDF VERSION
3212 # ======================================================================
3213 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3214 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3215 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3216 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3217 # (AT YOUR OPTION) ANY LATER VERSION.
3219 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3220 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3221 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3222 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3224 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3225 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3226 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3227 # ======================================================================
3228 # RESPONSABLE JMBHH01 J.M.PROIX
3229 def calc_cham_elem_prod(OPTION,**args):
3231 # options mecaniques
3232 if OPTION == "DEGE_ELNO_DEPL" : return cham_elem_epsi_r
3233 if OPTION == "ECIN_ELEM_DEPL" : return cham_elem_ener_r
3234 if OPTION == "EFGE_ELNO_CART" : return cham_elem_sief_r
3235 if OPTION == "EFGE_ELNO_DEPL" : return cham_elem_sief_r
3236 if OPTION == "ENDO_ELNO_SIGM" : return cham_elem_sief_r
3237 if OPTION == "EPOT_ELEM_DEPL" : return cham_elem_ener_r
3238 if OPTION == "ENEL_ELGA" : return cham_elem_ener_r
3239 if OPTION == "ENEL_ELNO_ELGA" : return cham_elem_ener_r
3240 if OPTION == "EPSI_ELNO_DEPL" : return cham_elem_epsi_r
3241 if OPTION == "EQUI_ELGA_EPSI" : return cham_elem_epsi_r
3242 if OPTION == "EQUI_ELGA_SIGM" : return cham_elem_sief_r
3243 if OPTION == "EQUI_ELNO_EPSI" : return cham_elem_epsi_r
3244 if OPTION == "EQUI_ELNO_SIGM" : return cham_elem_sief_r
3245 if OPTION == "PRES_DBEL_DEPL" : return cham_elem_dbel_r
3246 if OPTION == "SIEF_ELGA_DEPL" : return cham_elem_sief_r
3247 if OPTION == "SIEF_ELGA_LAGR" : return cham_elem_sief_r
3248 if OPTION == "SIGM_ELNO_CART" : return cham_elem_sief_r
3249 if OPTION == "SIGM_ELNO_DEPL" : return cham_elem_sief_r
3250 if OPTION == "SIGM_ELNO_LAGR" : return cham_elem_sief_r
3251 if OPTION == "SIPO_ELNO_DEPL" : return cham_elem_sief_r
3253 # options thermiques
3255 if OPTION == "FLUX_ELGA_TEMP" : return cham_elem_flux_r
3256 if OPTION == "FLUX_ELNO_TEMP" : return cham_elem_flux_r
3257 if OPTION == "SOUR_ELGA_ELEC" : return cham_elem_sour_r
3259 # options acoustiques
3261 if OPTION == "PRES_ELNO_DBEL" : return cham_elem_dbel_r
3262 if OPTION == "PRES_ELNO_REEL" : return cham_elem_pres_r
3263 if OPTION == "PRES_ELNO_IMAG" : return cham_elem_pres_r
3267 if OPTION == "COOR_ELGA" : return cham_elem_geom_r
3269 raise AsException("type de concept resultat non prevu")
3271 CALC_CHAM_ELEM=OPER(nom="CALC_CHAM_ELEM",op=38,sd_prod=calc_cham_elem_prod,
3272 fr="Calcul de champs par éléments à partir de champs solution ou de champs par éléments",
3273 docu="U4.81.03-g1",reentrant='n',
3274 UIinfo={"groupes":("Post traitements",)},
3275 MODELE =SIMP(statut='o',typ=modele),
3276 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
3277 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
3279 regles=(EXCLUS('TOUT','GROUP_MA',),EXCLUS('TOUT','MAILLE',),),
3280 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3281 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
3282 MAILLE =SIMP(statut='f',typ=ma,max='**'),
3286 # introduire un mot cle de type modelisation : mécanique,thermique,...
3289 OPTION =SIMP(statut='o',typ='TXM',
3290 into=("DEGE_ELNO_DEPL","ECIN_ELEM_DEPL","EFGE_ELNO_CART",
3291 "EFGE_ELNO_DEPL","ENDO_ELNO_SIGM","EPOT_ELEM_DEPL",
3292 "ENEL_ELGA", "ENEL_ELNO_ELGA","EPSI_ELNO_DEPL",
3293 "EQUI_ELGA_EPSI","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI",
3294 "EQUI_ELNO_SIGM","PRES_DBEL_DEPL","SIEF_ELGA_DEPL",
3295 "SIEF_ELGA_LAGR","SIGM_ELNO_CART","SIGM_ELNO_DEPL",
3296 "SIGM_ELNO_LAGR","SIPO_ELNO_DEPL",
3297 "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","SOUR_ELGA_ELEC",
3298 "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG",
3301 b_dege_elno_depl =BLOC(condition="OPTION=='DEGE_ELNO_DEPL'",
3302 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
3303 PLAN =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
3306 b_ecin_elem_depl =BLOC(condition="OPTION=='ECIN_ELEM_DEPL'",
3307 regles=(UN_PARMI('VITE','DEPL',),ENSEMBLE('DEPL','FREQ',),),
3308 FREQ =SIMP(statut='f',typ='R'),
3309 VITE =SIMP(statut='f',typ=cham_no_depl_r),
3310 DEPL =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_depl_c)),
3313 b_efge_elno_cart =BLOC(condition="OPTION=='EFGE_ELNO_CART'",
3314 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3315 PLAN =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
3318 b_efge_elno_depl =BLOC(condition="OPTION=='EFGE_ELNO_DEPL'",
3319 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
3320 PLAN =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
3323 b_endo_elno_sigm =BLOC(condition="OPTION=='ENDO_ELNO_SIGM'",
3324 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3327 b_epot_elem_depl =BLOC(condition="OPTION=='EPOT_ELEM_DEPL'",
3328 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
3331 b_enel_elga =BLOC(condition="OPTION=='ENEL_ELGA'",
3332 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3335 b_enel_elno_elga =BLOC(condition="OPTION=='ENEL_ELNO_ELGA'",
3336 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3339 b_epsi_elno_depl =BLOC(condition="OPTION=='EPSI_ELNO_DEPL'",
3340 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
3343 b_equi_elga_epsi =BLOC(condition="OPTION=='EQUI_ELGA_EPSI'",
3344 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_epsi_r,) ),
3347 b_equi_elga_sigm =BLOC(condition="OPTION=='EQUI_ELGA_SIGM'",
3348 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3351 b_equi_elno_epsi =BLOC(condition="OPTION=='EQUI_ELNO_EPSI'",
3352 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_epsi_r,) ),
3355 b_equi_elno_sigm =BLOC(condition="OPTION=='EQUI_ELNO_SIGM'",
3356 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3359 b_pres_dbel_depl =BLOC(condition="OPTION=='PRES_DBEL_DEPL'",
3360 DEPL =SIMP(statut='o',typ=(cham_no_depl_c,)),
3363 b_sief_elga_depl =BLOC(condition="OPTION=='SIEF_ELGA_DEPL'",
3364 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
3367 b_sief_elga_lagr =BLOC(condition="OPTION=='SIEF_ELGA_LAGR'",
3368 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
3369 THETA =SIMP(statut='o',typ=(theta_geom,)),
3370 PROPAGATION =SIMP(statut='f',typ='R',defaut=0.E+0),
3373 b_sigm_elno_cart =BLOC(condition="OPTION=='SIGM_ELNO_CART'",
3374 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3377 b_sigm_elno_depl =BLOC(condition="OPTION=='SIGM_ELNO_DEPL'",
3378 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,) ),
3381 b_sigm_elno_lagr =BLOC(condition="OPTION=='SIGM_ELNO_LAGR'",
3382 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
3383 THETA =SIMP(statut='o',typ=(theta_geom,)),
3384 PROPAGATION =SIMP(statut='f',typ='R',defaut=0.E+0),
3387 b_sipo_elno_depl =BLOC(condition="OPTION=='SIPO_ELNO_DEPL'",
3388 DEPL =SIMP(statut='o',typ=(cham_no_depl_r,)),
3391 b_thermique =BLOC(condition="OPTION in ('FLUX_ELNO_TEMP','FLUX_ELGA_TEMP','SOUR_ELGA_ELEC',)",
3392 TEMP =SIMP(statut='o',typ=(cham_no_temp_r,)),
3395 b_acoustique =BLOC(condition="OPTION in ('PRES_ELNO_DBEL','PRES_ELNO_REEL','PRES_ELNO_IMAG',)",
3396 PRES =SIMP(statut='o',typ=(cham_no_pres_c,)),
3401 EXCIT =FACT(statut='f',min=1,max='**',
3402 regles=(EXCLUS('FONC_MULT','COEF_MULT', ),),
3403 CHARGE =SIMP(statut='o',typ=(char_meca,char_ther,char_acou)),
3404 FONC_MULT =SIMP(statut='f',typ=fonction),
3405 COEF_MULT =SIMP(statut='f',typ='R'), ),
3407 INST =SIMP(statut='f',typ='R',defaut= 0.E+0),
3408 ACCE =SIMP(statut='f',typ=cham_no_depl_r),
3409 NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1),
3410 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
3411 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
3412 ANGLE =SIMP(statut='f',typ='I',defaut= 0),
3414 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
3415 # CONFIGURATION MANAGEMENT OF EDF VERSION
3416 # ======================================================================
3417 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3418 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3419 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3420 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3421 # (AT YOUR OPTION) ANY LATER VERSION.
3423 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3424 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3425 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3426 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3428 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3429 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3430 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3431 # ======================================================================
3432 # RESPONSABLE VABHHTS J.PELLET
3433 def calc_char_cine_prod(CHAR_CINE,**args):
3434 if AsType(CHAR_CINE) == char_cine_meca : return cham_no_depl_r
3435 if AsType(CHAR_CINE) == char_cine_ther : return cham_no_temp_r
3436 if AsType(CHAR_CINE) == char_cine_acou : return cham_no_pres_c
3437 raise AsException("type de concept resultat non prevu")
3439 CALC_CHAR_CINE=OPER(nom="CALC_CHAR_CINE",op= 102,sd_prod=calc_char_cine_prod,
3440 fr="Calcul des seconds membres associés à des charges cinématiques (conditions aux limites non dualisées)",
3441 docu="U4.61.03-e",reentrant='n',
3442 UIinfo={"groupes":("Matrices/vecteurs",)},
3443 NUME_DDL =SIMP(statut='o',typ=nume_ddl ),
3444 CHAR_CINE =SIMP(statut='o',typ=(char_cine_meca,char_cine_ther,char_cine_acou ) ),
3445 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3446 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3448 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
3449 # CONFIGURATION MANAGEMENT OF EDF VERSION
3450 # ======================================================================
3451 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3452 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3453 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3454 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3455 # (AT YOUR OPTION) ANY LATER VERSION.
3457 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3458 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3459 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3460 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3462 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3463 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3464 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3465 # ======================================================================
3466 def calc_char_seisme_prod(MATR_MASS,**args ):
3467 if AsType(MATR_MASS) == matr_asse_depl_r : return cham_no_depl_r
3468 raise AsException("type de concept resultat non prevu")
3470 CALC_CHAR_SEISME=OPER(nom="CALC_CHAR_SEISME",op= 92,sd_prod=calc_char_seisme_prod,
3471 docu="U4.63.01-e",reentrant='n',
3472 UIinfo={"groupes":("Matrices/vecteurs",)},
3473 regles=(UN_PARMI('MONO_APPUI','MODE_STAT' ),),
3474 MATR_MASS =SIMP(statut='o',typ=matr_asse_depl_r,fr="Matrice de masse" ),
3475 DIRECTION =SIMP(statut='o',typ='R',max=6,fr="Directions du séisme imposé"),
3476 MONO_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3477 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
3478 b_mode_stat =BLOC ( condition = "MODE_STAT != None",
3479 regles=(UN_PARMI('NOEUD','GROUP_NO' ),),
3480 NOEUD =SIMP(statut='f',typ=no,max='**'),
3481 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
3483 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3485 #& MODIF COMMANDE DATE 28/01/2003 AUTEUR JMBHH01 J.M.PROIX
3486 # CONFIGURATION MANAGEMENT OF EDF VERSION
3487 # ======================================================================
3488 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3489 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3490 # REDISTRIBUTION OF THIS FILE.
3491 # ======================================================================
3492 # RESPONSABLE JMBHH01 J.M.PROIX
3493 def calc_elem_prod(RESULTAT,**args):
3494 if AsType(RESULTAT) != None : return AsType(RESULTAT)
3495 raise AsException("type de concept resultat non prevu")
3497 CALC_ELEM=OPER(nom="CALC_ELEM",op=58,sd_prod=calc_elem_prod,docu="U4.81.01-g3",reentrant='f',
3498 UIinfo={"groupes":("Post traitements",)},
3499 fr="Compléter ou créer un résultat en calculant des champs par éléments (contraintes, déformations,... )",
3500 MODELE =SIMP(statut='o',typ=modele),
3501 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
3502 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
3504 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,mode_meca,
3505 mode_stat,mode_stat_depl,mode_stat_acce,mode_stat_forc,
3506 evol_noli,mult_elas,fourier_elas,
3507 evol_ther,base_modale,
3508 acou_harmo,mode_acou,mode_flamb) ,
3509 fr="Résultat d'une commande globale"),
3511 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
3512 'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),),
3513 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3514 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
3515 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
3516 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
3517 NOM_CAS =SIMP(statut='f',typ='TXM' ),
3519 INST =SIMP(statut='f',typ='R',max='**'),
3520 FREQ =SIMP(statut='f',typ='R',max='**'),
3521 LIST_INST =SIMP(statut='f',typ=listr8),
3522 LIST_FREQ =SIMP(statut='f',typ=listr8),
3523 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
3524 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
3525 LIST_ORDRE =SIMP(statut='f',typ=listis),
3527 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3528 GROUP_MA =SIMP(statut='f',fr="le calcul ne sera effectué que sur ces mailles là",typ=grma,max='**'),
3529 MAILLE =SIMP(statut='f',fr="le calcul ne sera effectué que sur ces mailles là",typ=ma,max='**'),
3531 # options pour des resultats lineaire
3533 b_lineaire =BLOC( condition = "AsType(RESULTAT) in (evol_elas,dyna_trans,dyna_harmo,mode_meca,\
3534 mode_stat,mode_stat_depl,mode_stat_acce,mode_stat_forc,\
3535 mult_elas,fourier_elas,base_modale,mode_flamb)",
3536 fr="options mecaniques lineaires",
3537 TYPE_OPTION =SIMP(statut='f',typ='TXM',max=1,defaut='TOUTES',fr="type d'options mecaniques lineaires",
3538 into=("SIGM_MASSIF","SIGM_STRUCT","EPSI","ENER","CRIT","DERIVEES",
3539 "INDI_ERRE","AUTRES","TOUTES"),
3541 b_toutes=BLOC( condition = "TYPE_OPTION == 'TOUTES'",fr="toutes les options evol elas",
3542 OPTION =SIMP(statut='f',typ='TXM',max='**',defaut="SIEF_ELNO_ELGA",
3544 into=( "SIEF_ELNO_ELGA","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
3545 "SIPO_ELNO_DEPL","EFGE_ELNO_DEPL","EFGE_ELNO_CART","SIGM_ELNO_CART",
3546 "SIGM_ELNO_SIEF","SIPO_ELNO_SIEF","SIGM_ELNO_TUYO",
3548 "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPSG_ELGA_DEPL","EPSG_ELNO_DEPL",
3549 "EPME_ELNO_DEPL","EPME_ELGA_DEPL","DEGE_ELNO_DEPL",
3551 "EPOT_ELEM_DEPL","ECIN_ELEM_DEPL","ENEL_ELGA","ENEL_ELNO_ELGA",
3552 "ETOT_ELGA","ETOT_ELNO_ELGA","ETOT_ELEM",
3553 # estimateurs erreur
3554 "SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA","ERRE_ELEM_NOZ2",
3555 "SIRE_ELNO_DEPL","ERRE_ELGA_NORE","ERRE_ELNO_ELGA",
3557 "EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","CRIT_ELNO_RUPT",
3558 "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI","EQUI_ELNO_EPME","EQUI_ELGA_EPME",
3559 "ENDO_ELNO_SIGA","ENDO_ELNO_SINO",
3561 "DEUL_ELGA_DEPL","DEDE_ELNO_DLDE","DESI_ELNO_DLSI",
3563 "VNOR_ELEM_DEPL","VALE_NCOU_MAXI","PRES_DBEL_DEPL"),),
3565 NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1,
3566 fr="numero de couche dans l'épaisseur de la coque ou du tuyau" ),
3567 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3568 fr="position dans l'épaisseur de la coque, ou de la couche" ),
3569 ANGLE =SIMP(statut='f',typ='I',defaut= 0,fr="angle en degres à partir de la génératrice"),
3570 NOM_CHAM =SIMP(statut='f',typ='TXM',max=1,fr="nom du champ pour VALE_NCOU_MAXI", ),
3571 NOM_CMP =SIMP(statut='f',typ='TXM',max=1,fr="nom de la composante pour VALE_NCOU_MAXI", ),
3572 PLAN = SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL"),
3573 fr="Plan de calcul pour les plaques excentrées" ),
3576 EXCIT =FACT(statut='f',min=1,max='**',
3577 fr="Charges contenant les températures, les efforts répartis pour les poutres...",
3578 regles=(EXCLUS('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
3579 CHARGE =SIMP(statut='o',typ=char_meca ),
3580 FONC_MULT =SIMP(statut='f',typ=fonction),
3581 FONC_MULT_C =SIMP(statut='f',typ=fonction_c),
3582 COEF_MULT =SIMP(statut='f',typ='R'),
3583 COEF_MULT_C =SIMP(statut='f',typ='C'),
3584 PHAS_DEG =SIMP(statut='f',typ='R'),
3585 PUIS_PULS =SIMP(statut='f',typ='I'),
3586 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",),),),
3592 b_sigm_massif =BLOC( condition = "TYPE_OPTION == 'SIGM_MASSIF'",
3593 fr="options de contraintes elasticite 2D et 3D",
3594 OPTION =SIMP(statut='f',typ='TXM',max='**',defaut='SIEF_ELNO_ELGA',
3595 fr="option de calcul des contraintes",
3596 into=( "SIEF_ELNO_ELGA","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",),),
3598 b_charge =BLOC( condition = "OPTION in ('SIGM_ELNO_DEPL','SIEF_ELGA_DEPL',) or \
3599 (type(OPTION)==type(()) and 'SIGM_ELNO_DEPL' in OPTION ) or \
3600 (type(OPTION)==type(()) and 'SIEF_ELGA_DEPL' in OPTION ) ",
3601 fr="charge contenant les temperatures ou autre charge",
3602 EXCIT =FACT(statut='o',min=1,max='**',
3603 CHARGE =SIMP(statut='o',typ=char_meca ),),
3607 b_sigm_struct =BLOC( condition = "TYPE_OPTION == 'SIGM_STRUCT'",
3608 fr="options de contraintes elasticite poutres, coques, tuyaux",
3609 OPTION =SIMP(statut='o',typ='TXM',max='**',defaut='SIEF_ELNO_ELGA',
3610 fr="option de calcul des contraintes ou efforts generalises",
3611 into=( "SIEF_ELNO_ELGA","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL","SIGM_ELNO_TUYO",
3612 "SIPO_ELNO_DEPL","EFGE_ELNO_DEPL","EFGE_ELNO_CART","SIGM_ELNO_CART",
3613 "SIGM_ELNO_SIEF","SIPO_ELNO_SIEF"),),
3615 b_charge =BLOC( condition = "OPTION in ('SIGM_ELNO_DEPL','SIEF_ELGA_DEPL',\
3616 'SIPO_ELNO_DEPL','EFGE_ELNO_DEPL',) or \
3617 (type(OPTION)==type(()) and 'SIGM_ELNO_DEPL' in OPTION ) or \
3618 (type(OPTION)==type(()) and 'SIEF_ELGA_DEPL' in OPTION ) or \
3619 (type(OPTION)==type(()) and 'SIPO_ELNO_DEPL' in OPTION ) or \
3620 (type(OPTION)==type(()) and 'EFGE_ELNO_DEPL' in OPTION ) ",
3621 fr="charge contenant les temperatures ou les efforts répartis (poutres) ou autre",
3622 EXCIT =FACT(statut='o',min=1,max='**',
3623 regles=(EXCLUS('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
3624 CHARGE =SIMP(statut='o',typ=char_meca ),
3625 FONC_MULT =SIMP(statut='f',typ=fonction),
3626 FONC_MULT_C =SIMP(statut='f',typ=fonction_c),
3627 COEF_MULT =SIMP(statut='f',typ='R'),
3628 COEF_MULT_C =SIMP(statut='f',typ='C'),
3629 PHAS_DEG =SIMP(statut='f',typ='R'),
3630 PUIS_PULS =SIMP(statut='f',typ='I'),
3631 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",),),),
3634 b_niv_couche = BLOC( condition = "OPTION in ('SIGM_ELNO_DEPL',) or \
3635 (type(OPTION)==type(()) and 'SIGM_ELNO_DEPL' in OPTION) ",
3637 NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1,
3638 fr="numero de couche dans l'épaisseur de la coque (coques multicouches)" ),
3639 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3640 fr="position dans l'épaisseur de la coque, ou de la couche" ),
3643 b_sigtuyo = BLOC( condition = "OPTION == 'SIGM_ELNO_TUYO' or \
3644 (type(OPTION)==type(()) and 'SIGM_ELNO_TUYO' in OPTION) ",
3645 NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1 ,
3646 fr="numero de couche dans l'épaisseur du tuyau" ),
3647 ANGLE =SIMP(statut='f',typ='I',defaut= 0,fr="angle en degres à partir de la génératrice" ),
3648 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3649 fr="position dans l'épaisseur de la couche" ),
3651 b_plan_excentrement =BLOC( condition = "OPTION=='EFGE_ELNO_DEPL' or \
3652 (type(OPTION)==type(()) and 'EFGE_ELNO_DEPL' in OPTION)",
3653 fr="Plan de calcul des efforts pour les plaques avec excentrement",
3654 PLAN = SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL"),
3655 fr="Plan de calcul des efforts pour les plaques avec excentrement",),
3659 # fin bloc contraintes struct
3661 b_epsi =BLOC( condition = "TYPE_OPTION=='EPSI'",
3662 OPTION =SIMP(statut='o',typ='TXM',max='**',
3663 into=("EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPME_ELNO_DEPL","EPME_ELGA_DEPL",
3666 b_niv_couche = BLOC( condition = "OPTION =='EPSI_ELNO_DEPL' or \
3667 (type(OPTION)==type(()) and 'EPSI_ELNO_DEPL' in OPTION) ",
3668 NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1,
3669 fr="numero de couche dans l'épaisseur de la coque (coques multicouches)" ),
3670 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3671 fr="position dans l'épaisseur de la coque, ou de la couche" ),
3673 b_charge =BLOC( condition = "OPTION in ('EPME_ELNO_DEPL','EPSI_ELGA_DEPL','EPME_ELGA_DEPL','EPSI_ELNO_DEPL') or \
3674 (type(OPTION)==type(()) and 'EPSI_ELNO_DEPL' in OPTION ) or \
3675 (type(OPTION)==type(()) and 'EPSI_ELGA_DEPL' in OPTION ) or \
3676 (type(OPTION)==type(()) and 'EPME_ELNO_DEPL' in OPTION ) or \
3677 (type(OPTION)==type(()) and 'EPME_ELGA_DEPL' in OPTION ) ",
3678 fr="charge contenant les temperatures",
3679 EXCIT =FACT(statut='o',min=1,max='**',
3680 CHARGE =SIMP(statut='o',typ=(char_meca,char_ther,char_acou) ),),
3683 b_ener =BLOC( condition = "TYPE_OPTION=='ENER'",
3684 OPTION =SIMP(statut='o',typ='TXM',max='**',
3685 into=("EPOT_ELEM_DEPL","ECIN_ELEM_DEPL","ENEL_ELGA","ENEL_ELNO_ELGA",
3686 "ETOT_ELGA","ETOT_ELNO_ELGA","ETOT_ELEM",),
3688 b_charge =BLOC( condition = "OPTION in ('EPOT_ELEM_DEPL','ECIN_ELEM_DEPL','ENEL_ELGA','ENEL_ELNO_ELGA',) or \
3689 (type(OPTION)==type(()) and 'EPOT_ELEM_DEPL' in OPTION ) or \
3690 (type(OPTION)==type(()) and 'ENEL_ELGA' in OPTION ) or \
3691 (type(OPTION)==type(()) and 'ENEL_ELNO_ELGA' in OPTION ) or \
3692 (type(OPTION)==type(()) and 'ECIN_ELEM_DEPL' in OPTION ) ",
3693 fr="charge contenant les temperatures",
3694 EXCIT =FACT(statut='o',min=1,max='**',
3695 CHARGE =SIMP(statut='o',typ=(char_meca,char_ther,char_acou) ),),
3699 b_crit =BLOC( condition = "TYPE_OPTION=='CRIT'",
3700 OPTION =SIMP(statut='o',typ='TXM',max='**',
3701 into=("EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
3702 "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI","EQUI_ELNO_EPME","EQUI_ELGA_EPME",
3703 "ENDO_ELNO_SIGA","ENDO_ELNO_SINO","CRIT_ELNO_RUPT",
3705 b_niv_couche = BLOC( condition = "OPTION in ('CRIT_ELNO_RUPT','EQUI_ELNO_SIGM') or \
3706 (type(OPTION)==type(()) and 'EQUI_ELNO_SIGM' in OPTION) or \
3707 (type(OPTION)==type(()) and 'CRIT_ELNO_RUPT' in OPTION) ",
3708 NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1,
3709 fr="numero de couche dans l'épaisseur de la coque (coques multicouches)" ),
3710 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3711 fr="position dans l'épaisseur de la coque, ou de la couche" ),
3713 EXCIT =FACT(statut='f',min=1,max='**',fr="charge contenant les temperatures",
3714 CHARGE =SIMP(statut='o',typ=(char_meca,char_ther,char_acou) ),),
3717 b_derivees =BLOC( condition = "TYPE_OPTION=='DERIVEES'",
3718 OPTION =SIMP(statut='o',typ='TXM',max='**',
3719 into=("DEUL_ELGA_DEPL","DEDE_ELNO_DLDE","DESI_ELNO_DLSI",
3722 b_autres =BLOC( condition = "TYPE_OPTION=='AUTRES'",
3723 OPTION =SIMP(statut='o',typ='TXM',max='**',
3724 into=("VALE_NCOU_MAXI","PRES_DBEL_DEPL","VNOR_ELEM_DEPL",
3726 b_maxi =BLOC( condition = "OPTION=='VALE_NCOU_MAXI' or \
3727 (type(OPTION)==type(()) and 'VALE_NCOU_MAXI' in OPTION)",
3728 NOM_CHAM =SIMP(statut='o',typ='TXM',max=1,fr="Nom du champ pour VALE_NCOU_MAXI" ),
3729 NOM_CMP =SIMP(statut='o',typ='TXM',max=1,fr="Nom de la composante pour VALE_NCOU_MAXI"),),
3732 b_indi_erre =BLOC( condition = "TYPE_OPTION=='INDI_ERRE'",
3733 OPTION =SIMP(statut='o',typ='TXM',max='**',defaut="ERRE_ELGA_NORE",
3734 into=("SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA","ERRE_ELEM_NOZ2",
3735 "SIRE_ELNO_DEPL","ERRE_ELGA_NORE","ERRE_ELNO_ELGA",
3737 EXCIT =FACT(statut='f',min=1,max='**',fr="charge contenant les temperatures",
3738 CHARGE =SIMP(statut='o',typ=(char_meca,char_ther,char_acou) ),),
3744 # statique ou dynamique non lineaire : evol_noli
3745 b_noli =BLOC( condition = "AsType(RESULTAT) == evol_noli",fr="options evol noli",
3746 TYPE_OPTION =SIMP(statut='f',typ='TXM',max=1,defaut='TOUTES',
3747 into=("SIGM_MASSIF","SIGM_STRUCT","EPSI","ENER","CRIT",
3748 "VARI","INDI_ERRE","TOUTES","AUTRES"),
3750 b_toutes =BLOC( condition = "TYPE_OPTION == 'TOUTES'",fr="toutes les options evol elas",
3751 OPTION =SIMP(statut='f',typ='TXM',max='**',
3752 into=( "SIEF_ELNO_ELGA",
3753 "SIGM_ELNO_TUYO","SIGM_ELNO_COQU",
3754 "SIGM_ELNO_SIEF","SIPO_ELNO_SIEF","EFGE_ELNO_CART",
3756 "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL",
3757 "EPME_ELNO_DEPL","EPME_ELGA_DEPL","EPMG_ELNO_DEPL","EPMG_ELGA_DEPL",
3759 "EPSP_ELNO","EPSP_ELGA",
3760 "EPGR_ELNO","EPGR_ELGA",
3761 "VARI_ELNO_ELGA","VARI_ELNO_TUYO","VARI_ELNO_COQU","CRIT_ELNO_RUPT",
3763 "EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
3764 "ERRE_ELGA_NORE","ERRE_ELNO_ELGA","ERRE_ELEM_NOZ1","ERRE_ELEM_NOZ2",
3765 "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI","EQUI_ELNO_EPME","EQUI_ELGA_EPME",
3766 "DCHA_ELNO_SIGM","DCHA_ELGA_SIGM","RADI_ELNO_SIGM","RADI_ELGA_SIGM",
3767 "ENDO_ELNO_SIGA","ENDO_ELNO_SINO",
3768 "PMPB_ELNO_SIEF","PMPB_ELGA_SIEF","ENEL_ELGA","ENEL_ELNO_ELGA",
3769 "ETOT_ELGA","ETOT_ELNO_ELGA","ETOT_ELEM","VALE_NCOU_MAXI"),
3771 NORME =SIMP(statut='f',typ='TXM',defaut="VMIS",
3772 into=("VMIS","TOTAL","VMIS_CINE","TOTAL_CINE"),
3773 fr="Type de norme pour les options RADI_ et DCHA_"),
3775 NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1,fr="numéro de couche pour coques et tuyaux" ),
3776 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3777 fr="choix du point d'intégration dans la couche" ),
3778 ANGLE =SIMP(statut='f',typ='I',defaut= 0 ,fr="angle de dépouillement pour les tuyaux"),
3779 NOM_CHAM =SIMP(statut='f',typ='TXM',max=1,fr="Nom du champ pour VALE_NCOU_MAXI"),
3780 NOM_CMP =SIMP(statut='f',typ='TXM',max=1,fr="Nom de la composante pour VALE_NCOU_MAXI"),
3781 PLAN = SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL") ),
3783 EXCIT =FACT(statut='f',min=1,max='**',
3784 regles=(EXCLUS('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
3785 CHARGE =SIMP(statut='o',typ=char_meca ),
3786 FONC_MULT =SIMP(statut='f',typ=fonction),
3787 FONC_MULT_C =SIMP(statut='f',typ=fonction_c),
3788 COEF_MULT =SIMP(statut='f',typ='R'),
3789 COEF_MULT_C =SIMP(statut='f',typ='C'),
3790 PHAS_DEG =SIMP(statut='f',typ='R'),
3791 PUIS_PULS =SIMP(statut='f',typ='I'),
3792 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",),),),
3795 b_sigm_massif =BLOC( condition = "TYPE_OPTION == 'SIGM_MASSIF'",
3796 fr="options de contraintes non lin 2D et 3D",
3797 OPTION =SIMP(statut='o',typ='TXM',max='**',
3799 into=( "SIEF_ELNO_ELGA",),),
3802 b_sigm_struct =BLOC( condition = "TYPE_OPTION == 'SIGM_STRUCT'",
3803 fr="options de contraintes non lin poutres, coques",
3804 OPTION =SIMP(statut='o',typ='TXM',max='**',
3806 into=( "SIEF_ELNO_ELGA","EFGE_ELNO_CART","SIGM_ELNO_TUYO","SIGM_ELNO_COQU",
3807 "SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",),),
3808 b_sigcoqu = BLOC( condition = "OPTION in ('SIGM_ELNO_COQU',) or \
3809 (type(OPTION)==type(()) and 'SIGM_ELNO_COQU' in OPTION) ",
3810 NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1,
3811 fr="numéro de couche dans l'épaisseur de la coque" ),
3812 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3813 fr="choix du point d'intégration dans la couche" ),
3815 b_sigtuyo = BLOC( condition = "OPTION in ('SIGM_ELNO_TUYO',) or \
3816 (type(OPTION)==type(()) and 'SIGM_ELNO_TUYO' in OPTION)",
3817 NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1,
3818 fr="numéro de couche dans l'épaisseur du tuyau" ),
3819 ANGLE =SIMP(statut='f',typ='I',defaut= 0,
3820 fr="angle de dépouillement pour les tuyaux, en degres" ),
3821 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3822 fr="choix du point d'intégration dans la couche"),
3826 b_epsi =BLOC( condition = "TYPE_OPTION=='EPSI'",
3827 OPTION =SIMP(statut='o',typ='TXM',max='**',
3828 into=( "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL",
3829 "EPME_ELNO_DEPL","EPME_ELGA_DEPL","EPMG_ELNO_DEPL","EPMG_ELGA_DEPL",
3830 "EPSP_ELNO","EPSP_ELGA","EPGR_ELNO","EPGR_ELGA",
3833 b_niv_couche = BLOC( condition = "OPTION =='EPSI_ELNO_DEPL' or \
3834 (type(OPTION)==type(()) and 'EPSI_ELNO_DEPL' in OPTION) ",
3835 NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1,
3836 fr="numero de couche dans l'épaisseur de la coque (coques multicouches)" ),
3837 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3838 fr="position dans l'épaisseur de la coque, ou de la couche" ),
3840 EXCIT =FACT(statut='f',min=1,max='**',fr="charge contenant les temperatures",
3841 CHARGE =SIMP(statut='o',typ=(char_meca,char_ther,char_acou) ),),
3844 b_vari =BLOC( condition = "TYPE_OPTION=='VARI'",
3845 fr="Calcul et extraction des variables internes",
3846 OPTION =SIMP(statut='o',typ='TXM',max='**',
3847 into=("VARI_ELNO_ELGA","VARI_ELNO_TUYO","VARI_ELNO_COQU",),
3849 b_varcoqu = BLOC( condition = "OPTION in ('VARI_ELNO_COQU',) or \
3850 (type(OPTION)==type(()) and 'VARI_ELNO_COQU' in OPTION) ",
3851 NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1,
3852 fr="numéro de couche dans l'épaisseur de la coque"),
3853 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3854 fr="choix du point d'intégration dans la couche" ),
3856 b_vartuyo = BLOC( condition = "OPTION in ('VARI_ELNO_TUYO',) or \
3857 (type(OPTION)==type(()) and 'VARI_ELNO_TUYO' in OPTION) ",
3858 NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1,
3859 fr="numéro de couche dans l'épaisseur de tuyau" ),
3860 ANGLE =SIMP(statut='f',typ='I',defaut= 0,
3861 fr="angle de dépouillement pour les tuyaux, en degres"),
3862 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3863 fr="choix du point d'intégration dans la couche" ),
3867 b_ener =BLOC( condition = "TYPE_OPTION=='ENER'",
3868 OPTION =SIMP(statut='o',typ='TXM',max='**',
3869 into=("ETOT_ELGA","ETOT_ELNO_ELGA","ETOT_ELEM","ENEL_ELGA","ENEL_ELNO_ELGA",),
3871 EXCIT =FACT(statut='f',min=1,max='**',fr="charge contenant les temperatures",
3872 CHARGE =SIMP(statut='o',typ=(char_meca,char_ther,char_acou) ),),
3875 b_crit =BLOC( condition = "TYPE_OPTION=='CRIT'",
3876 OPTION =SIMP(statut='o',typ='TXM',max='**',
3877 into=("EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
3878 "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI","EQUI_ELNO_EPME","EQUI_ELGA_EPME",
3879 "ENDO_ELNO_SIGA","ENDO_ELNO_SINO","CRIT_ELNO_RUPT",
3880 "PMPB_ELNO_SIEF","PMPB_ELGA_SIEF",
3882 NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1,fr="numéro de couche dans l'épaisseur de la coque"),
3883 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3884 fr="choix du point d'intégration dans la couche" ),
3887 b_autres =BLOC( condition = "TYPE_OPTION=='AUTRES'",
3888 OPTION =SIMP(statut='o',typ='TXM',max='**',
3889 into=("VALE_NCOU_MAXI",) ),
3890 b_maxi =BLOC( condition = "OPTION=='VALE_NCOU_MAXI' or \
3891 (type(OPTION)==type(()) and 'VALE_NCOU_MAXI' in OPTION)",
3892 NOM_CHAM =SIMP(statut='o',typ='TXM',max=1,fr="Nom du champ pour VALE_NCOU_MAXI" ),
3893 NOM_CMP =SIMP(statut='o',typ='TXM',max=1,fr="Nom de la composante pour VALE_NCOU_MAXI"),),
3897 b_indi_erre =BLOC( condition = "TYPE_OPTION=='INDI_ERRE'",
3898 OPTION =SIMP(statut='o',typ='TXM',max='**',defaut="ERRE_ELGA_NORE",
3899 into=("ERRE_ELGA_NORE","ERRE_ELNO_ELGA","ERRE_ELEM_NOZ1","ERRE_ELEM_NOZ2",
3900 "DCHA_ELNO_SIGM","DCHA_ELGA_SIGM","RADI_ELNO_SIGM","RADI_ELGA_SIGM",
3902 b_indic = BLOC( condition ="OPTION in ('DCHA_ELNO_SIGM','DCHA_ELGA_SIGM','RADI_ELNO_SIGM','RADI_ELGA_SIGM') or\
3903 (type(OPTION)==type(()) and 'DCHA_ELNO_SIGM' in OPTION) or\
3904 (type(OPTION)==type(()) and 'DCHA_ELGA_SIGM' in OPTION) or\
3905 (type(OPTION)==type(()) and 'RADI_ELNO_SIGM' in OPTION) or\
3906 (type(OPTION)==type(()) and 'RADI_ELGA_SIGM' in OPTION) ",
3907 NORME =SIMP(statut='f',typ='TXM',defaut="VMIS",
3908 into=("VMIS","TOTAL","VMIS_CINE","TOTAL_CINE") ),
3912 # fin bloc evol_noli
3914 # thermique : evol_ther
3915 b_ther =BLOC( condition = "AsType(RESULTAT) == evol_ther",fr="options thermiques",
3916 OPTION =SIMP(statut='f',typ='TXM',max='**',
3917 into=("DEUL_ELGA_TEMP","DETE_ELNO_DLTE","FLUX_ELGA_TEMP","FLUX_ELNO_TEMP",
3918 "HYDR_ELNO_ELGA","DURT_ELGA_META","DURT_ELNO_META",
3919 "SOUR_ELGA_ELEC","ERTH_ELEM_TEMP","ERTH_ELNO_ELEM",),),
3920 EXCIT =FACT(statut='f',min=1,max='**',
3921 regles=(EXCLUS('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
3922 CHARGE =SIMP(statut='o',typ=char_ther ),
3923 FONC_MULT =SIMP(statut='f',typ=fonction),
3924 FONC_MULT_C =SIMP(statut='f',typ=fonction_c),
3925 COEF_MULT =SIMP(statut='f',typ='R'),
3926 COEF_MULT_C =SIMP(statut='f',typ='C'),
3927 PHAS_DEG =SIMP(statut='f',typ='R'),
3928 PUIS_PULS =SIMP(statut='f',typ='I'),
3929 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",),),
3931 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3932 fr="choix du point de calcul dans l'épaisseur des coques" ),
3937 b_acou =BLOC( condition = "AsType(RESULTAT) in (acou_harmo,mode_acou,)",fr="options acoustiques",
3938 OPTION =SIMP(statut='f',typ='TXM',max='**',
3939 into=("PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG",
3940 "INTE_ELNO_ACTI","INTE_ELNO_REAC",
3942 EXCIT =FACT(statut='f',min=1,max='**',
3943 regles=(EXCLUS('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
3944 CHARGE =SIMP(statut='o',typ=char_acou ),
3945 FONC_MULT =SIMP(statut='f',typ=fonction),
3946 FONC_MULT_C =SIMP(statut='f',typ=fonction_c),
3947 COEF_MULT =SIMP(statut='f',typ='R'),
3948 COEF_MULT_C =SIMP(statut='f',typ='C'),
3949 PHAS_DEG =SIMP(statut='f',typ='R'),
3950 PUIS_PULS =SIMP(statut='f',typ='I'),
3951 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",),),),
3954 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
3955 fr="Liste des paramètres de sensibilité.",
3956 ang="List of sensitivity parameters"),
3957 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
3958 TITRE =SIMP(statut='f',typ='TXM',max='**'),
3960 #& MODIF COMMANDE DATE 20/01/2003 AUTEUR F1BHHAJ J.ANGLES
3961 # CONFIGURATION MANAGEMENT OF EDF VERSION
3962 # ======================================================================
3963 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
3964 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3965 # REDISTRIBUTION OF THIS FILE.
3966 # ======================================================================
3967 def calc_fatigue_prod(TYPE_CALCUL,**args):
3968 if TYPE_CALCUL == "CUMUL_DOMMAGE" : return cham_elem_dommag
3969 if TYPE_CALCUL == "FATIGUE_MULTI" : return cham_elem_facy_r
3970 raise AsException("type de calcul non prevu")
3972 CALC_FATIGUE=OPER(nom="CALC_FATIGUE",op= 151,sd_prod=calc_fatigue_prod,reentrant='n',
3973 fr="Calcul d un cham de dommage ou d un cisaillement maximal dans le plan critique.",
3975 UIinfo={"groupes":("Post traitements",)},
3977 TYPE_CALCUL = SIMP(statut='o',typ='TXM',
3978 into=("CUMUL_DOMMAGE","FATIGUE_MULTI",) ),
3980 b_cumul_domma =BLOC(condition = "TYPE_CALCUL == 'CUMUL_DOMMAGE'",
3981 fr="Calcul d un champ de dommage subi par une structure.",
3982 regles=(PRESENT_PRESENT('DOMMAGE','MATER', ),),
3983 OPTION =SIMP(statut='o',typ='TXM',
3984 into=("DOMA_ELNO_SIGM","DOMA_ELGA_SIGM",
3985 "DOMA_ELNO_EPSI","DOMA_ELGA_EPSI",
3986 "DOMA_ELNO_EPME","DOMA_ELGA_EPME") ),
3987 HISTOIRE =FACT(statut='o',min=1,max=1,
3988 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,
3990 EQUI_GD =SIMP(statut='f',typ='TXM',defaut="VMIS_SG",
3991 into=("VMIS_SG","INVA_2_SG") ),
3993 DOMMAGE =SIMP(statut='o',typ='TXM',
3994 into=("WOHLER","MANSON_COFFIN","TAHERI_MANSON",
3996 MATER =SIMP(statut='o',typ=(mater) ),
3997 TAHERI_NAPPE =SIMP(statut='f',typ=(fonction) ),
3998 TAHERI_FONC =SIMP(statut='f',typ=(fonction) ),
4001 b_fatigue_multi =BLOC(condition = "TYPE_CALCUL == 'FATIGUE_MULTI'",
4002 fr="Plan critique dans le cas de la fatigue multiaxiale a grand nombre de cycles.",
4003 RESULTAT =SIMP(statut='o',typ=(evol_elas, evol_noli) ),
4004 CHAM_MATER =SIMP(statut='o',typ=(cham_mater) ),
4005 CRITERE =SIMP(statut='o',typ='TXM',into=("MATAKE","DANG_VAN") ),
4006 METHODE =SIMP(statut='o',typ='TXM',into=("CERCLE_EXACT",) ),
4009 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
4011 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
4012 # CONFIGURATION MANAGEMENT OF EDF VERSION
4013 # ======================================================================
4014 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4015 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4016 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4017 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4018 # (AT YOUR OPTION) ANY LATER VERSION.
4020 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4021 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4022 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4023 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4025 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4026 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4027 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4028 # ======================================================================
4029 CALC_FLUI_STRU=OPER(nom="CALC_FLUI_STRU",op= 144,sd_prod=melasflu,
4030 docu="U4.66.02-d",reentrant='n',
4031 UIinfo={"groupes":("Matrices/vecteurs",)},
4032 VITE_FLUI =FACT(statut='o',min=1,max=1,
4033 fr="Définir la plage de vitesse fluide étudiée",
4034 VITE_MIN =SIMP(statut='o',typ='R' ),
4035 VITE_MAX =SIMP(statut='o',typ='R' ),
4036 NB_POIN =SIMP(statut='o',typ='I' ),
4038 BASE_MODALE =FACT(statut='o',min=1,max=1,
4040 regles=(UN_PARMI('AMOR_REDUIT','AMOR_UNIF'),),
4041 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
4042 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
4043 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
4044 AMOR_UNIF =SIMP(statut='f',typ='R' ),
4046 TYPE_FLUI_STRU =SIMP(statut='o',typ=type_flui_stru ),
4047 IMPRESSION =FACT(statut='f',min=1,max=1,
4048 fr="Choix des informations à imprimer dans le fichier RESULTAT",
4049 PARA_COUPLAGE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4050 DEFORMEE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
4053 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
4054 # CONFIGURATION MANAGEMENT OF EDF VERSION
4055 # ======================================================================
4056 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4057 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4058 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4059 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4060 # (AT YOUR OPTION) ANY LATER VERSION.
4062 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4063 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4064 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4065 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4067 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4068 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4069 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4070 # ======================================================================
4071 CALC_FONC_INTERP=OPER(nom="CALC_FONC_INTERP",op= 134,sd_prod=fonction,
4072 docu="U4.32.01-e1",reentrant='f',
4073 UIinfo={"groupes":("Fonction",)},
4074 regles=(UN_PARMI('VALE_R','LIST_PARA'),),
4075 FONCTION =SIMP(statut='o',typ=fonction ),
4076 NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
4077 VALE_R =SIMP(statut='f',typ='R',max='**'),
4078 LIST_PARA =SIMP(statut='f',typ=listr8 ),
4079 INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG","INT") ),
4080 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("EXCLU","CONSTANT","LINEAIRE","INTERPRE") ),
4081 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("EXCLU","CONSTANT","LINEAIRE","INTERPRE") ),
4082 TITRE =SIMP(statut='f',typ='TXM',max='**'),
4083 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
4085 #& MODIF COMMANDE DATE 09/12/2002 AUTEUR CIBHHLV L.VIVAN
4086 # CONFIGURATION MANAGEMENT OF EDF VERSION
4087 # ======================================================================
4088 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4089 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
4090 # REDISTRIBUTION OF THIS FILE.
4091 # ======================================================================
4092 # RESPONSABLE MCOURTOI M.COURTOIS
4093 def calc_fonction_prod(DERIVE,EXTRACTION,INTEGRE,RMS,NOCI_SEISME,MAX,COMB,COMB_C,ENVELOPPE,
4094 SPEC_OSCI,ASSE,FFT,COMPOSE,CORR_ACCE,PUISSANCE,LISS_ENVELOP,NORME, **args):
4095 if (RMS != None) : return tabl_fonc_rms
4096 if (MAX != None) : return tabl_fonc_max
4097 if (NOCI_SEISME != None): return tabl_fonc_noci
4098 if (INTEGRE != None) : return fonction
4099 if (DERIVE != None) : return fonction
4100 if (COMB != None) : return fonction
4101 if (ENVELOPPE != None) : return fonction
4102 if (EXTRACTION != None) : return fonction
4103 if (SPEC_OSCI != None) : return fonction
4104 if (COMB_C != None) : return fonction_c
4105 if (COMPOSE != None) : return fonction
4106 if (ASSE != None) : return fonction
4108 vale=FFT.get_child('FONCTION').get_valeur()
4109 if (AsType(vale) == fonction ) : return fonction_c
4110 if (AsType(vale) == fonction_c) : return fonction
4111 if (CORR_ACCE != None) : return fonction
4112 if (LISS_ENVELOP != None) : return fonction
4113 if (PUISSANCE != None) : return fonction
4114 if (NORME != None) : return table
4115 raise AsException("type de concept resultat non prevu")
4117 CALC_FONCTION=OPER(nom="CALC_FONCTION",op= 91,sd_prod=calc_fonction_prod
4118 ,fr="Opérations mathématiques sur des concepts de type fonction",
4119 docu="U4.32.04-f2",reentrant='n',
4120 UIinfo={"groupes":("Fonction",)},
4121 regles=(UN_PARMI('DERIVE','INTEGRE','SPEC_OSCI','MAX','COMB','COMB_C','ENVELOPPE','RMS',
4122 'NOCI_SEISME','COMPOSE','EXTRACTION','ASSE','FFT','CORR_ACCE', 'PUISSANCE',
4123 'NORME','LISS_ENVELOP'),),
4124 FFT =FACT(statut='f',min=1,max=1,fr="Calcul de la transformee de Fourier ou de son inverse",
4125 FONCTION =SIMP(statut='o',typ=(fonction,fonction_c) )
4127 DERIVE =FACT(statut='f',min=1,max=1,fr="Calcul de la dérivée d une fonction",
4128 METHODE =SIMP(statut='f',typ='TXM',defaut="DIFF_CENTREE",into=("DIFF_CENTREE",) ),
4129 FONCTION =SIMP(statut='o',typ=fonction ),
4131 INTEGRE =FACT(statut='f',min=1,max=1,fr="Calcul de l intégrale d une fonction",
4132 METHODE =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
4133 FONCTION =SIMP(statut='o',typ=fonction),
4134 COEF =SIMP(statut='f',typ='R',defaut= 0.E+0,fr="Valeur de la constante d intégration" ),
4136 RMS =FACT(statut='f',min=1,max=1,fr="Calcul de la valeur RMS d une fonction",
4137 METHODE =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
4138 FONCTION =SIMP(statut='o',typ=fonction ),
4139 INST_INIT =SIMP(statut='f',typ='R',fr="Instant initial définissant le début du signal" ),
4140 INST_FIN =SIMP(statut='f',typ='R',fr="Instant final définissant la fin du signal" ),
4141 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4142 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
4144 NOCI_SEISME =FACT(statut='f',min=1,max=1,
4145 FONCTION =SIMP(statut='f',typ=fonction ),
4146 SPEC_OSCI =SIMP(statut='f',typ=fonction ),
4147 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",max='**',
4148 into=("INTE_ARIAS","POUV_DEST","INTE_SPEC","VITE_ABSO_CUMU",
4149 "DUREE_PHAS_FORT","MAXI","ACCE_SUR_VITE","TOUT",) ),
4150 INST_INIT =SIMP(statut='f',typ='R'),
4151 INST_FIN =SIMP(statut='f',typ='R'),
4152 NATURE =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE") ),
4153 COEF =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4154 PESANTEUR =SIMP(statut='f',typ='R',defaut= 9.81E+0 ),
4155 FREQ_INIT =SIMP(statut='f',typ='R',defaut= 4.E-1 ),
4156 FREQ_FIN =SIMP(statut='f',typ='R',defaut= 10.E+0 ),
4157 AMOR_REDUIT =SIMP(statut='f',typ='R'),
4158 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
4159 FREQ =SIMP(statut='f',typ='R',max='**'),
4160 NORME =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
4161 BORNE_INF =SIMP(statut='f',typ='R',defaut= 0.05E+0 ),
4162 BORNE_SUP =SIMP(statut='f',typ='R',defaut= 0.95E+0 ),
4163 b_acce_reel =BLOC(condition="(INST_INIT != None)or(INST_FIN != None)or(FREQ_INIT != None)or(FREQ_FIN != None)",
4164 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
4165 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4168 LISS_ENVELOP = FACT(statut='f',min=1,max=1,fr="Lissage d une enveloppe",
4169 FONCTION =SIMP(statut='o',typ=fonction ),
4170 AMOR =SIMP(statut='f',typ='R',max='**'),
4171 FREQ_MIN =SIMP(statut='f',typ='R'),
4172 FREQ_MAX =SIMP(statut='f',typ='R'),
4173 FREQ_CREUX =SIMP(statut='f',typ='R',max='**'),
4174 ELARG =SIMP(statut='f',typ='TXM',defaut="GLOBAL",into=("GLOBAL","LOCAL") ),
4175 b_elarg_glob = BLOC ( condition = " (ELARG=='GLOBAL') ",
4176 GAUCHE =SIMP(statut='f',typ='R',defaut =10.0E0 ),
4177 DROITE =SIMP(statut='f',typ='R',defaut =10.0E0 ),
4179 b_elarg_loc = BLOC ( condition = " (ELARG=='LOCAL') ",
4180 FREQ_1 =SIMP(statut='o',typ='R'),
4181 FREQ_2 =SIMP(statut='o',typ='R' ),
4182 GAUCHE =SIMP(statut='f',typ='R',defaut =10.0E0 ),
4183 DROITE =SIMP(statut='f',typ='R',defaut =10.0E0 ),
4185 TOLE_LISS =SIMP(statut='f',typ='R',defaut=25.0E0),
4186 ECH_FREQ_REF = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
4187 b_oui =BLOC ( condition = "(ECH_FREQ_REF=='OUI') ",
4188 regles=(UN_PARMI("LIST_FREQ", "AMOR_ECH"),),
4189 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
4190 AMOR_ECH =SIMP(statut='f',typ='R',max='**'),
4193 SPEC_OSCI =FACT(statut='f',min=1,max=1,fr="Calcul du spectre d oscillateur",
4194 METHODE =SIMP(statut='f',typ='TXM',defaut="NIGAM",into=("NIGAM",) ),
4195 FONCTION =SIMP(statut='o',typ=fonction ),
4196 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
4197 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
4198 FREQ =SIMP(statut='f',typ='R',max='**'),
4199 NORME =SIMP(statut='f',typ='R',defaut= 9.81E+0,fr="Valeur de la norme du spectre d oscillateur" ),
4200 NATURE =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
4201 NATURE_FONC =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
4203 MAX =FACT(statut='f',min=1,max=1,fr="Calcul des extrémas locaux d une fonction",
4204 FONCTION =SIMP(statut='o',typ=fonction ),
4206 COMB =FACT(statut='f',min=1,max='**',fr="Calcul d une combinaison linéaire réelle de fonctions",
4207 FONCTION =SIMP(statut='o',typ=fonction ),
4208 COEF =SIMP(statut='o',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
4210 COMB_C =FACT(statut='f',min=1,max='**',fr="Calcul d une combinaison linéaire complexe de fonctions",
4211 regles=(UN_PARMI('COEF_R','COEF_C'),),
4212 FONCTION =SIMP(statut='o',typ=(fonction, fonction_c) ),
4213 COEF_R =SIMP(statut='f',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
4214 COEF_C =SIMP(statut='f',typ='C',fr="Coefficient complexe de la combinaison linéaire associée à la fonction" ),
4216 b_comb =BLOC ( condition = " (COMB != None) or (COMB_C != None)",
4217 LIST_PARA =SIMP(statut='f',typ=listr8 ),
4219 COMPOSE =FACT(statut='f',min=1,max=1,fr="Calcul de la composition de deux fonctions FONC_RESU(FONC_PARA)",
4220 FONC_RESU =SIMP(statut='o',typ=fonction),
4221 FONC_PARA =SIMP(statut='o',typ=fonction),
4223 EXTRACTION =FACT(statut='f',min=1,max=1,fr="Opération d extraction sur une fonction complexe",
4224 FONCTION =SIMP(statut='o',typ=fonction_c),
4225 PARTIE =SIMP(statut='o',typ='TXM',into=("REEL","IMAG","MODULE","PHASE"),fr="Partie à extraire"),
4227 ENVELOPPE =FACT(statut='f',min=1,max=1,fr="Calcul de l enveloppe d une famille de fonctions",
4228 FONCTION =SIMP(statut='o',typ=fonction,max='**' ),
4229 CRITERE =SIMP(statut='f',typ='TXM',defaut="SUP",into=("SUP","INF"),fr="Type de l enveloppe" ),
4231 ASSE =FACT(statut='f',min=1,max=1,fr="Création à partir de la concatenation de fonctions",
4232 FONCTION =SIMP(statut='o',typ=fonction,max='**' ),
4233 SURCHARGE =SIMP(statut='f',typ='TXM',defaut="DROITE",into=("DROITE","GAUCHE")),
4235 CORR_ACCE =FACT(statut='f',min=1,max=1,fr="Correction d un accelerogramme reel",
4236 CORR_DEPL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
4237 FONCTION =SIMP(statut='o',typ=fonction ),
4239 PUISSANCE =FACT(statut='f',min=1,max=1,fr="Cacul du carré d'une fonction",
4240 FONCTION =SIMP(statut='o', typ=fonction),
4241 EXPOSANT =SIMP(statut='f', typ='I', defaut=1 ),
4243 NORME =FACT(statut='f',min=1,max=1,fr="Cacul de la norme L2 d'une fonction",
4244 FONCTION =SIMP(statut='o', typ=fonction),
4246 NOM_PARA =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
4247 "INST","X","Y","Z","EPSI","FREQ","PULS",
4249 NOM_RESU =SIMP(statut='f',typ='TXM' ),
4250 INTERPOL =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
4251 PROL_DROITE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
4252 PROL_GAUCHE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
4253 NOM_PARA_FONC =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
4254 "INST","X","Y","Z","EPSI","FREQ","PULS",
4256 INTERPOL_FONC =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
4257 PROL_DROITE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
4258 PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
4259 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
4260 TITRE =SIMP(statut='f',typ='TXM',max='**'),
4262 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
4263 # CONFIGURATION MANAGEMENT OF EDF VERSION
4264 # ======================================================================
4265 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4266 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4267 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4268 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4269 # (AT YOUR OPTION) ANY LATER VERSION.
4271 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4272 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4273 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4274 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4276 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4277 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4278 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4279 # ======================================================================
4280 CALC_FORC_AJOU=OPER(nom="CALC_FORC_AJOU",op=199,sd_prod=vect_asse_gene,
4281 fr="calcul de la force ajoutee ",
4282 docu="U4.66.03-a1",reentrant ='n',
4283 UIinfo={"groupes":("Matrices/vecteurs",)},
4285 regles=(EXCLUS('MODE_MECA','MODELE_GENE'),
4286 PRESENT_PRESENT( 'MODELE_GENE','NUME_DDL_GENE'),
4287 UN_PARMI('MONO_APPUI', 'NOEUD','GROUP_NO'),
4288 UN_PARMI('MONO_APPUI','MODE_STAT')),
4290 MODELE_FLUIDE =SIMP(statut='o',typ=modele ),
4291 MODELE_INTERFACE=SIMP(statut='o',typ=modele ),
4292 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
4293 CHARGE =SIMP(statut='o',typ=char_ther ),
4294 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
4295 MODELE_GENE =SIMP(statut='f',typ=modele_gene ),
4296 NUME_DDL_GENE =SIMP(statut='f',typ=nume_ddl_gene ),
4297 DIST_REFE =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
4298 AVEC_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4299 NUME_MODE_MECA =SIMP(statut='f',typ='I',max='**'),
4300 POTENTIEL =SIMP(statut='f',typ=evol_ther ),
4301 NOEUD_DOUBLE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
4303 DIRECTION =SIMP(statut='o',typ='R',max=3),
4304 MONO_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",),),
4305 NOEUD =SIMP(statut='f',typ=no,max='**'),
4306 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
4307 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,),),
4309 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
4311 SOLVEUR =FACT(statut='d',min=1,max=1,
4312 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
4313 b_mult_front = BLOC ( condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
4314 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
4316 b_ldlt =BLOC( condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
4317 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
4319 b_ldlt_mult =BLOC( condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
4320 fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
4321 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
4322 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4324 b_gcpc =BLOC (condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
4325 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
4326 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
4327 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
4328 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
4329 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
4332 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0), ),
4335 #& MODIF COMMANDE DATE 04/02/2003 AUTEUR DURAND C.DURAND
4336 # CONFIGURATION MANAGEMENT OF EDF VERSION
4337 # ======================================================================
4338 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4339 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4340 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4341 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4342 # (AT YOUR OPTION) ANY LATER VERSION.
4344 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4345 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4346 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4347 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4349 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4350 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4351 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4352 # ======================================================================
4353 CALC_G_LOCAL_T=OPER(nom="CALC_G_LOCAL_T",op=77,sd_prod=tabl_calc_g_loca,
4354 fr="Calcul du taux de restitution local d énergie",docu="U4.82.04-f3",reentrant='n',
4355 UIinfo={"groupes":("Post traitements",)},
4356 MODELE =SIMP(statut='o',typ=modele),
4357 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
4358 regles=(UN_PARMI('RESULTAT','DEPL'),
4359 UN_PARMI('R_INF','R_INF_FO'),
4360 PRESENT_PRESENT('R_INF','R_SUP'),
4361 PRESENT_PRESENT('R_INF_FO','R_SUP_FO'), ),
4362 FOND_FISS =SIMP(statut='o',typ=fond_fiss),
4363 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
4364 RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_noli),),
4365 b_extrac =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
4366 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
4367 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4368 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
4369 LIST_ORDRE =SIMP(statut='f',typ=listis),
4370 INST =SIMP(statut='f',typ='R',max='**'),
4371 LIST_INST =SIMP(statut='f',typ=listr8),
4373 b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)",
4374 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
4375 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4379 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
4380 SYME_CHAR =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
4382 COMP_ELAS =FACT(statut='f',min=1,max=1,
4383 RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
4384 into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
4385 ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
4386 ELAS_VMIS_LINE =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
4387 ELAS_VMIS_TRAC =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
4388 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
4389 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
4390 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4391 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4392 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4395 COMP_INCR =FACT(statut='f',min=1,max=1,
4396 RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
4397 into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
4398 ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
4399 VMIS_ISOT_TRAC =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
4400 VMIS_ISOT_LINE =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
4401 VMIS_CINE_LINE =SIMP(statut='f',typ='I',defaut=7,into=(7,) ),
4402 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
4403 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
4404 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4405 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4406 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4409 ETAT_INIT =FACT(statut='f',min=1,max=1,
4410 SIGM =SIMP(statut='f',typ=cham_elem_sief_r),
4411 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
4414 OPTION =SIMP(statut='f',typ='TXM',defaut="CALC_G",
4415 into=("CALC_G","CALC_G_LGLO","G_BILINEAIRE","CALC_G_MAX") ),
4416 b_g =BLOC(condition="OPTION=='CALC_G'",
4417 LISSAGE_THETA =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
4418 LISSAGE_G =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE","LAGRANGE_NO_NO",) ),
4420 b_g_lglo =BLOC(condition="OPTION=='CALC_G_LGLO'",
4421 PROPAGATION =SIMP(statut='o',typ='R'),
4422 THETA =SIMP(statut='o',typ=theta_geom),
4423 DIRE_THETA =SIMP(statut='f',typ=cham_no_depl_r),
4424 LISSAGE_THETA =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
4425 LISSAGE_G =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE","LAGRANGE_NO_NO",) ),
4427 b_g_bilin =BLOC(condition="OPTION=='G_BILINEAIRE'",
4428 LISSAGE_THETA =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
4429 LISSAGE_G =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
4431 b_calc_g_max =BLOC(condition="OPTION=='CALC_G_MAX'",
4432 BORNES =FACT(statut='o',min=1,max='**',
4433 NUME_ORDRE =SIMP(statut='o',typ='I'),
4434 VALE_MIN =SIMP(statut='o',typ='R'),
4435 VALE_MAX =SIMP(statut='o',typ='R'),
4437 LISSAGE_THETA =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
4438 LISSAGE_G =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
4441 DEGRE =SIMP(statut='f',typ='I',defaut=5,into=(0,1,2,3,4,5,6,7) ),
4443 R_INF =SIMP(statut='f',typ='R'),
4444 R_SUP =SIMP(statut='f',typ='R'),
4445 R_INF_FO =SIMP(statut='f',typ=fonction),
4446 R_SUP_FO =SIMP(statut='f',typ=fonction),
4448 TITRE =SIMP(statut='f',typ='TXM',max='**'),
4449 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
4451 #& MODIF COMMANDE DATE 04/02/2003 AUTEUR DURAND C.DURAND
4452 # CONFIGURATION MANAGEMENT OF EDF VERSION
4453 # ======================================================================
4454 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4455 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4456 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4457 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4458 # (AT YOUR OPTION) ANY LATER VERSION.
4460 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4461 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4462 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4463 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4465 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4466 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4467 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4468 # ======================================================================
4469 CALC_G_THETA_T=OPER(nom="CALC_G_THETA_T",op=53,sd_prod=tabl_calc_g_th,
4470 fr="Calcul du taux de restitution d énergie par la méthode theta en thermo-élasticité en 2D ou en 3D",
4471 docu="U4.82.03-f2",reentrant='n',
4472 UIinfo={"groupes":("Post traitements",)},
4473 regles=(UN_PARMI('RESULTAT','DEPL'),
4474 EXCLUS('COMP_ELAS','COMP_INCR'),),
4475 MODELE =SIMP(statut='o',typ=modele),
4476 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
4477 THETA =SIMP(statut='o',typ=theta_geom),
4478 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
4479 RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_noli),),
4481 b_extrac =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
4482 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
4483 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4484 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
4485 LIST_ORDRE =SIMP(statut='f',typ=listis),
4486 INST =SIMP(statut='f',typ='R',max='**'),
4487 LIST_INST =SIMP(statut='f',typ=listr8),
4489 b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)",
4490 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
4491 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4495 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
4496 SYME_CHAR =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
4498 COMP_ELAS =FACT(statut='f',min=1,max=1,
4499 RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
4500 into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
4501 ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
4502 ELAS_VMIS_LINE =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
4503 ELAS_VMIS_TRAC =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
4504 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
4505 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
4506 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4507 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4508 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4510 COMP_INCR =FACT(statut='f',min=1,max=1,
4511 RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
4512 into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
4513 ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
4514 VMIS_ISOT_TRAC =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
4515 VMIS_ISOT_LINE =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
4516 VMIS_CINE_LINE =SIMP(statut='f',typ='I',defaut=7,into=(7,) ),
4517 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
4518 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
4519 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4520 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4521 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4523 ETAT_INIT =FACT(statut='f',min=1,max=1,
4524 SIGM =SIMP(statut='f',typ=cham_elem_sief_r),
4525 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
4527 OPTION =SIMP(statut='f',typ='TXM',defaut="CALC_G",
4528 into=("CALC_G","CALC_G_LAGR","CALC_K_G","G_BILINEAIRE","CALC_G_MAX","CALC_DG",) ),
4529 b_calc_g_max =BLOC(condition="OPTION=='CALC_G_MAX'",
4530 BORNES =FACT(statut='o',min=1,max='**',
4531 NUME_ORDRE =SIMP(statut='o',typ='I'),
4532 VALE_MIN =SIMP(statut='o',typ='R'),
4533 VALE_MAX =SIMP(statut='o',typ='R'),
4536 b_calc_k_g =BLOC(condition="OPTION=='CALC_K_G'",
4537 FOND_FISS =SIMP(statut='o',typ=fond_fiss),
4539 b_calc_g_lagr =BLOC(condition="OPTION=='CALC_G_LAGR'",
4540 PROPAGATION =SIMP(statut='o',typ='R'),
4542 b_calc_dg =BLOC(condition="OPTION=='CALC_DG'",
4543 SENSIBILITE =FACT(statut='f',min=1,max=1,
4544 THETA =SIMP(statut='o',typ=theta_geom ),
4548 TITRE =SIMP(statut='f',typ='TXM',max='**'),
4549 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
4551 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
4552 # CONFIGURATION MANAGEMENT OF EDF VERSION
4553 # ======================================================================
4554 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4555 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4556 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4557 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4558 # (AT YOUR OPTION) ANY LATER VERSION.
4560 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4561 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4562 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4563 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4565 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4566 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4567 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4568 # ======================================================================
4569 CALC_INTE_SPEC=OPER(nom="CALC_INTE_SPEC",op= 120,sd_prod=tabl_intsp,
4570 fr="Calcul d une matrice interspectrale d une fonction du temps",
4571 docu="U4.36.03-e",reentrant='n',
4572 UIinfo={"groupes":("Fonction",)},
4573 INST_INIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4574 INST_FIN =SIMP(statut='o',typ='R' ),
4575 DUREE_ANALYSE =SIMP(statut='f',typ='R' ),
4576 DUREE_DECALAGE =SIMP(statut='f',typ='R' ),
4577 NB_POIN =SIMP(statut='o',typ='I' ),
4578 FONCTION =SIMP(statut='o',typ=fonction,max='**' ),
4579 TITRE =SIMP(statut='f',typ='TXM',max='**'),
4580 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
4582 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
4583 # CONFIGURATION MANAGEMENT OF EDF VERSION
4584 # ======================================================================
4585 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4586 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4587 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4588 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4589 # (AT YOUR OPTION) ANY LATER VERSION.
4591 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4592 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4593 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4594 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4596 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4597 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4598 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4599 # ======================================================================
4600 CALC_MATR_AJOU=OPER(nom="CALC_MATR_AJOU",op= 152,sd_prod=matr_asse_gene_r,
4601 fr="Calcul des matrices de masse, d amortissement ou de raideur ajoutées",
4602 docu="U4.66.01-c",reentrant='n',
4603 UIinfo={"groupes":("Matrices/vecteurs",)},
4604 regles=(EXCLUS('MODE_MECA','CHAM_NO','MODELE_GENE'),
4605 PRESENT_ABSENT('NUME_DDL_GENE','CHAM_NO'),
4606 PRESENT_PRESENT('MODELE_GENE','NUME_DDL_GENE'),),
4607 MODELE_FLUIDE =SIMP(statut='o',typ=modele ),
4608 MODELE_INTERFACE=SIMP(statut='o',typ=modele ),
4609 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
4610 CHARGE =SIMP(statut='o',typ=char_ther ),
4611 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
4612 CHAM_NO =SIMP(statut='f',typ=cham_no_depl_r ),
4613 MODELE_GENE =SIMP(statut='f',typ=modele_gene ),
4614 NUME_DDL_GENE =SIMP(statut='f',typ=nume_ddl_gene ),
4615 DIST_REFE =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
4616 AVEC_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4617 NUME_MODE_MECA =SIMP(statut='f',typ='I',max='**'),
4618 OPTION =SIMP(statut='o',typ='TXM',into=("MASS_AJOU","AMOR_AJOU","RIGI_AJOU") ),
4619 POTENTIEL =SIMP(statut='f',typ=evol_ther ),
4620 NOEUD_DOUBLE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
4621 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
4623 SOLVEUR =FACT(statut='d',min=1,max=1,
4624 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
4625 b_mult_front = BLOC ( condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
4626 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
4628 b_ldlt =BLOC( condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
4629 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
4631 b_ldlt_mult =BLOC( condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
4632 fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
4633 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
4634 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4636 b_gcpc =BLOC (condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
4637 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
4638 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
4639 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
4640 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
4641 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
4644 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4647 #& MODIF COMMANDE DATE 28/11/2002 AUTEUR NICOLAS O.NICOLAS
4648 # CONFIGURATION MANAGEMENT OF EDF VERSION
4649 # ======================================================================
4650 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4651 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4652 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4653 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4654 # (AT YOUR OPTION) ANY LATER VERSION.
4656 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4657 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4658 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4659 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4661 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4662 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4663 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4664 # ======================================================================
4665 # RESPONSABLE VABHHTS J.PELLET
4666 def calc_matr_elem_prod(OPTION,**args):
4667 if OPTION == "RIGI_MECA" : return matr_elem_depl_r
4668 if OPTION == "RIGI_FLUI_STRU" : return matr_elem_depl_r
4669 if OPTION == "RIGI_MECA_LAGR" : return matr_elem_depl_r
4670 if OPTION == "MASS_ID_MDEP_R" : return matr_elem_depl_r
4671 if OPTION == "MASS_ID_MDNS_R" : return matr_elem_depl_r
4672 if OPTION == "MASS_ID_MTEM_R" : return matr_elem_temp_r
4673 if OPTION == "MASS_ID_MTNS_R" : return matr_elem_temp_r
4674 if OPTION == "MASS_MECA" : return matr_elem_depl_r
4675 if OPTION == "MASS_FLUI_STRU" : return matr_elem_depl_r
4676 if OPTION == "RIGI_GEOM" : return matr_elem_depl_r
4677 if OPTION == "RIGI_ROTA" : return matr_elem_depl_r
4678 if OPTION == "AMOR_MECA" : return matr_elem_depl_r
4679 if OPTION == "IMPE_MECA" : return matr_elem_depl_r
4680 if OPTION == "ONDE_FLUI" : return matr_elem_depl_r
4681 if OPTION == "RIGI_MECA_HYST" : return matr_elem_depl_c
4682 if OPTION == "RIGI_THER" : return matr_elem_temp_r
4683 if OPTION == "MASS_THER" : return matr_elem_temp_r
4684 if OPTION == "MASS_MECA_DIAG" : return matr_elem_depl_r
4685 if OPTION == "RIGI_ACOU" : return matr_elem_pres_c
4686 if OPTION == "MASS_ACOU" : return matr_elem_pres_c
4687 if OPTION == "AMOR_ACOU" : return matr_elem_pres_c
4688 raise AsException("type de concept resultat non prevu")
4690 CALC_MATR_ELEM=OPER(nom="CALC_MATR_ELEM",op= 9,sd_prod=calc_matr_elem_prod
4691 ,fr="Calcul des matrices élémentaires",docu="U4.61.01-g1",reentrant='n',
4692 UIinfo={"groupes":("Matrices/vecteurs",)},
4693 OPTION =SIMP(statut='o',typ='TXM',
4694 into=("RIGI_MECA","MASS_MECA","RIGI_GEOM",
4695 "AMOR_MECA","RIGI_THER","MASS_THER","IMPE_MECA",
4696 "ONDE_FLUI","MASS_FLUI_STRU","RIGI_FLUI_STRU",
4697 "RIGI_ROTA","MASS_MECA_DIAG","RIGI_ACOU",
4698 "MASS_ID_MDEP_R","MASS_ID_MDNS_R","MASS_ID_MTEM_R","MASS_ID_MTNS_R",
4699 "MASS_ACOU","AMOR_ACOU","RIGI_MECA_HYST",
4700 "RIGI_MECA_LAGR") ),
4702 b_rigi_meca = BLOC( condition = "OPTION=='RIGI_MECA'",
4703 regles=(AU_MOINS_UN('MODELE','CHARGE' ),),
4704 MODELE =SIMP(statut='f',typ=modele ),
4705 b_modele =BLOC(condition = "MODELE != None",
4706 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
4707 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
4708 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
4710 CHARGE =SIMP(statut='f',typ=char_meca,max='**' ),
4711 b_charge =BLOC (condition = "CHARGE != None",
4712 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4716 b_rigi_meca_lagr =BLOC(condition = "OPTION=='RIGI_MECA_LAGR'",
4717 MODELE =SIMP(statut='o',typ=modele ),
4718 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
4719 CHARGE =SIMP(statut='f',typ=char_meca,max='**' ),
4720 b_charge =BLOC(condition = "CHARGE != None",
4721 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4723 THETA =SIMP(statut='o',typ=theta_geom ),
4724 PROPAGATION =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4727 b_mass_meca =BLOC(condition = "(OPTION=='MASS_MECA') or (OPTION=='MASS_MECA_DIAG')",
4728 regles=(AU_MOINS_UN('MODELE','CHARGE'),),
4729 MODELE =SIMP(statut='f',typ=modele ),
4730 b_modele =BLOC(condition = "MODELE != None",
4731 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
4732 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
4734 CHARGE =SIMP(statut='f',typ=char_meca,max='**' ),
4735 b_charge =BLOC(condition = "CHARGE != None",
4736 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4740 b_mass_identite =BLOC(condition = "(OPTION in ('MASS_ID_MDEP_R','MASS_ID_MTEM_R','MASS_ID_MDNS_R','MASS_ID_MTNS_R')) ",
4741 MODELE =SIMP(statut='o',typ=modele ),
4742 # j'ajoute ces 2 mot clés inutiles à cause de l'alarme pas assez subtile de MEDOME
4743 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
4744 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
4747 b_rigi_geom =BLOC(condition = "OPTION=='RIGI_GEOM'",
4748 MODELE =SIMP(statut='o',typ=modele ),
4749 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
4750 SIEF_ELGA =SIMP(statut='o',typ=cham_elem_sief_r ),
4751 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
4754 b_rigi_rota =BLOC(condition = "OPTION=='RIGI_ROTA'",
4755 MODELE =SIMP(statut='o',typ=modele ),
4756 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
4757 CHARGE =SIMP(statut='o',typ=char_meca,max='**' ),
4758 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4761 b_amor_meca =BLOC(condition = "OPTION=='AMOR_MECA'",
4762 regles=(AU_MOINS_UN('CARA_ELEM','RIGI_MECA'),
4763 ENSEMBLE('RIGI_MECA','MASS_MECA','CHAM_MATER'), ),
4764 MODELE =SIMP(statut='o',typ=modele ),
4765 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
4766 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
4767 RIGI_MECA =SIMP(statut='f',typ=matr_elem_depl_r ),
4768 MASS_MECA =SIMP(statut='f',typ=matr_elem_depl_r ),
4769 CHARGE =SIMP(statut='f',typ=char_meca,max='**' ),
4772 b_rigi_meca_hyst =BLOC( condition = "OPTION=='RIGI_MECA_HYST'",
4773 MODELE =SIMP(statut='o',typ=modele ),
4774 CHARGE =SIMP(statut='f',typ=char_meca ,max='**' ),
4775 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
4776 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
4777 RIGI_MECA =SIMP(statut='o',typ=matr_elem_depl_r ),
4780 b_rigi_ther =BLOC(condition = "OPTION=='RIGI_THER'",
4781 regles=(AU_MOINS_UN('MODELE','CHARGE' ),),
4782 MODELE =SIMP(statut='f',typ=modele ),
4783 b_modele =BLOC(condition = "MODELE != None",
4784 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
4785 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
4786 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
4788 CHARGE =SIMP(statut='f',typ=char_ther,max='**' ),
4791 b_mass_ther =BLOC(condition = "OPTION=='MASS_THER'",
4792 MODELE =SIMP(statut='o',typ=modele ),
4793 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
4794 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
4797 b_rigi_acou =BLOC(condition = "(OPTION=='RIGI_ACOU') or (OPTION=='MASS_ACOU') or (OPTION=='AMOR_ACOU')",
4798 MODELE =SIMP(statut='o',typ=modele ),
4799 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
4800 CHARGE =SIMP(statut='f',typ=char_acou ,max='**' ),
4803 b_rigi_flui =BLOC(condition = "(OPTION=='RIGI_FLUI_STRU') or (OPTION=='MASS_FLUI_STRU')",
4804 MODELE =SIMP(statut='o',typ=modele ),
4805 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
4806 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
4807 CHARGE =SIMP(statut='o',typ=char_meca ,max='**' ),
4808 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4811 b_impe_meca =BLOC(condition = "(OPTION=='IMPE_MECA') or (OPTION=='ONDE_FLUI')",
4812 MODELE =SIMP(statut='o',typ=modele ),
4813 CHARGE =SIMP(statut='o',typ=char_meca,max='**' ),
4814 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
4817 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
4818 # CONFIGURATION MANAGEMENT OF EDF VERSION
4819 # ======================================================================
4820 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4821 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4822 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4823 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4824 # (AT YOUR OPTION) ANY LATER VERSION.
4826 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4827 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4828 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4829 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4831 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4832 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4833 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4834 # ======================================================================
4835 CALC_META=OPER(nom="CALC_META",op=194,sd_prod=evol_ther,docu="U4.85.01-b1",reentrant='o',
4836 UIinfo={"groupes":("Post traitements",)},
4837 fr="Calcule la métallurgie a partir du résultat du calcul thermique",
4838 MODELE =SIMP(statut='o',typ=modele ),
4839 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
4840 RESULTAT =SIMP(statut='o',typ=evol_ther ),
4841 ETAT_INIT =FACT(statut='o',min=1,max=1,
4842 regles=(UN_PARMI('NUME_INIT', 'INST_INIT', 'META_INIT',),),
4843 EVOL_THER =SIMP(statut='f',typ=evol_ther ),
4844 NUME_INIT =SIMP(statut='f',typ='I' ),
4845 INST_INIT =SIMP(statut='f',typ='R'),
4846 b_inst =BLOC(condition="(INST_INIT != None)",
4847 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
4848 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4850 META_INIT =SIMP(statut='f',typ=carte_var2_r ),
4852 COMP_INCR =FACT(statut='o',min=1,max='**',
4853 RELATION =SIMP(statut='o',typ='TXM',into=("ACIER","ZIRC",) ),
4854 ACIER =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
4855 ZIRC =SIMP(statut='c',typ='I',defaut=3,into=(3,) ),
4856 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
4857 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4858 GROUP_MA =SIMP(statut='f',typ=grma),
4859 MAILLE =SIMP(statut='f',typ=ma),
4861 OPTION =SIMP(statut='f',typ='TXM'
4862 ,into=("META_ELNO_TEMP",) ),
4864 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
4865 # CONFIGURATION MANAGEMENT OF EDF VERSION
4866 # ======================================================================
4867 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
4868 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4869 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4870 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4871 # (AT YOUR OPTION) ANY LATER VERSION.
4873 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4874 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4875 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4876 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4878 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4879 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4880 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4881 # ======================================================================
4882 # RESPONSABLE G8BHHXD X.DESROCHES
4883 def calc_no_prod(RESULTAT,**args):
4884 if AsType(RESULTAT) != None : return AsType(RESULTAT)
4885 raise AsException("type de concept resultat non prevu")
4887 CALC_NO=OPER(nom="CALC_NO",op= 106,sd_prod=calc_no_prod,docu="U4.81.02-f3",reentrant='o',
4888 UIinfo={"groupes":("Post traitements",)},
4889 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
4890 mode_acou,mode_stat,mode_stat_depl,mode_stat_acce,
4891 mode_stat_forc,evol_ther,evol_noli,base_modale,
4892 mult_elas,fourier_elas,mode_flamb ) ),
4893 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
4894 fr="Liste des paramètres de sensibilité.",
4895 ang="List of sensitivity parameters"),
4897 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
4898 'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),),
4899 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4900 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
4901 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
4902 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
4903 NOM_CAS =SIMP(statut='f',typ='TXM' ),
4904 INST =SIMP(statut='f',typ='R',max='**'),
4905 FREQ =SIMP(statut='f',typ='R',max='**'),
4906 LIST_INST =SIMP(statut='f',typ=listr8),
4907 LIST_FREQ =SIMP(statut='f',typ=listr8),
4908 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
4909 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4910 LIST_ORDRE =SIMP(statut='f',typ=listis),
4912 OPTION =SIMP(statut='o',typ='TXM',max='**',
4913 into=("FORC_NODA","REAC_NODA",
4920 "EFGE_NOEU_CART","EFGE_NOEU_DEPL",
4925 "EPSG_NOEU" ,"EPSG_NOEU_DEPL",
4926 "EPSI_NOEU_DEPL","EPSI_NOEU_DPGE",
4927 "EPSP_NOEU" ,"EPSP_NOEU_ZAC",
4928 "EQUI_NOEU_EPME","EQUI_NOEU_EPSI","EQUI_NOEU_SIGM",
4933 "INTE_NOEU_ACTI","INTE_NOEU_REAC",
4936 "PRES_NOEU_DBEL","PRES_NOEU_IMAG","PRES_NOEU_REEL",
4938 "SIEF_NOEU" ,"SIEF_NOEU_ELGA",
4939 "SIGM_NOEU_CART","SIGM_NOEU_COQU","SIGM_NOEU_DEPL","SIGM_NOEU_DPGE",
4940 "SIGM_NOEU_SIEF","SIGM_NOEU_VARI","SIGM_NOEU_ZAC",
4941 "SIPO_NOEU_DEPL","SIPO_NOEU_SIEF",
4943 "VARI_NOEU" ,"VARI_NOEU_ELGA",) ),
4945 b_forc_reac =BLOC(condition = """(OPTION == 'FORC_NODA') or (type(OPTION) == type(()) and 'FORC_NODA' in OPTION) or\
4946 (OPTION == 'REAC_NODA') or (type(OPTION) == type(()) and 'REAC_NODA' in OPTION)""",
4947 MODELE =SIMP(statut='o',typ=modele),
4950 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
4951 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
4952 EXCIT =FACT(statut='f',min=1,max='**',
4953 CHARGE =SIMP(statut='f',typ=(char_meca,char_ther,char_acou) ),
4954 FONC_MULT =SIMP(statut='f',typ=fonction),
4955 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
4956 into=("FIXE_CSTE","FIXE_PILO","SUIV") ),
4958 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4959 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
4960 MAILLE =SIMP(statut='f',typ=ma,max='**'),
4962 #& MODIF COMMANDE DATE 04/03/2003 AUTEUR ASSIRE A.ASSIRE
4963 # CONFIGURATION MANAGEMENT OF EDF VERSION
4964 # ======================================================================
4965 # COPYRIGHT (C) 1991 - 2003 EDF R&D WWW.CODE-ASTER.ORG
4966 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4967 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4968 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4969 # (AT YOUR OPTION) ANY LATER VERSION.
4971 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4972 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4973 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4974 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4976 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4977 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4978 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4979 # ======================================================================
4980 # RESPONSABLE ASSIRE A.ASSIRE
4982 from Macro.calc_precont_ops import calc_precont_ops
4985 # ===========================================================================
4986 # CATALOGUE DE LA MACRO "CALC_PRECONT"
4987 # -----------------------------------------
4991 # ===========================================================================
4993 CALC_PRECONT=MACRO(nom="CALC_PRECONT",op=calc_precont_ops,sd_prod=evol_noli,
4994 fr="imposer la tension definie par le BPEL dans les cables",
4995 docu="",reentrant='f',
4996 reuse =SIMP(statut='f',typ='evol_noli'),
4997 MODELE =SIMP(statut='o',typ=modele),
4998 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
4999 CARA_ELEM =SIMP(statut='o',typ=cara_elem),
5000 CABLE_BP =SIMP(statut='o',typ='TXM',max='**'),
5001 CABLE_BP_INACTIF =SIMP(statut='f',typ='TXM',max='**'),
5002 INCREMENT =FACT(statut='o',min=1,max=1,
5003 LIST_INST =SIMP(statut='o',typ=listr8),
5004 INST_INIT =SIMP(statut='f',typ='R'),
5005 INST_FIN =SIMP(statut='f',typ='R'),
5006 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
5007 SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
5008 SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
5009 COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
5012 NEWTON =FACT(statut='d',min=1,max=1,
5013 REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
5014 PREDICTION =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
5015 MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
5016 PAS_MINI_ELAS =SIMP(statut='f',typ='R',defaut=0.0E+0),
5017 REAC_ITER =SIMP(statut='f',typ='I',defaut=0),
5018 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
5020 RECH_LINEAIRE =FACT(statut='f',min=1,max=1,
5021 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
5022 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 3),
5024 CONVERGENCE =FACT(statut='d',min=1,max=1,
5025 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
5026 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
5027 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
5028 ITER_GLOB_ELAS =SIMP(statut='f',typ='I',defaut=25),
5029 ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
5030 RESI_INTE_RELA =SIMP(statut='f',typ='R'
5032 ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
5033 ITER_INTE_PAS =SIMP(statut='f',typ='I',defaut= 0 ),
5034 TYPE_MATR_COMP =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
5035 RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
5036 into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
5038 ETAT_INIT =FACT(statut='f',min=1,max=1,
5039 regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI','VARI_NON_LOCAL',),
5040 EXCLUS('EVOL_NOLI','DEPL',),
5041 EXCLUS('EVOL_NOLI','SIGM',),
5042 EXCLUS('EVOL_NOLI','VARI',),
5043 EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
5044 EXCLUS('NUME_ORDRE','INST'), ),
5045 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
5046 SIGM =SIMP(statut='f',typ=(cham_elem_sief_r,carte_sief_r)),
5047 VARI =SIMP(statut='f',typ=cham_elem_vari_r),
5048 VARI_NON_LOCAL =SIMP(statut='f',typ=cham_no_vanl_r),
5049 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
5050 NUME_ORDRE =SIMP(statut='f',typ='I'),
5051 INST =SIMP(statut='f',typ='R'),
5052 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
5053 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5054 NUME_DIDI =SIMP(statut='f',typ='I'),
5055 INST_ETAT_INIT =SIMP(statut='f',typ='R'),
5057 SOLVEUR =FACT(statut='d',min=1,max=1,
5058 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
5059 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
5060 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
5062 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
5063 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
5065 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
5066 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
5067 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
5068 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","DECOUPE") ),
5070 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
5071 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
5072 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
5073 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
5074 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
5075 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
5078 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5079 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
5081 SOLV_NON_LOCAL =FACT(statut='f',min=1,max=1,
5082 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
5083 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
5084 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
5086 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
5087 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
5089 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
5090 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
5091 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
5092 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
5094 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
5095 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
5096 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
5097 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
5098 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
5100 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5102 LAGR_NON_LOCAL =FACT(statut='f',max=1,
5103 ITER_DUAL_MAXI =SIMP(statut='f',typ='I',defaut= 50),
5104 RESI_DUAL_ABSO =SIMP(statut='o',typ='R'),
5105 RESI_PRIM_ABSO =SIMP(statut='o',typ='R'),
5106 R =SIMP(statut='f',typ='R',defaut= 1000.),
5107 ITER_PRIM_MAXI =SIMP(statut='f',typ='I',defaut= 10),
5109 PARM_THETA =SIMP(statut='f',typ='R'
5111 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
5112 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
5114 EXCIT =FACT(statut='o',min=1,max='**',
5115 CHARGE =SIMP(statut='o',typ=char_meca),
5118 COMP_INCR =C_COMP_INCR(),
5120 #& MODIF COMMANDE DATE 04/02/2003 AUTEUR DURAND C.DURAND
5121 # CONFIGURATION MANAGEMENT OF EDF VERSION
5122 # ======================================================================
5123 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5124 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5125 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5126 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5127 # (AT YOUR OPTION) ANY LATER VERSION.
5129 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5130 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5131 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5132 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5134 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5135 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5136 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5137 # ======================================================================
5138 CALC_THETA=OPER(nom="CALC_THETA",op=54,sd_prod=theta_geom,docu="U4.82.02-d",reentrant='n',
5139 UIinfo={"groupes":("Post traitements",)},
5140 fr="Affectation d un champ sur le maillage (mécanique de la rupture)",
5141 regles=(UN_PARMI('THETA_2D','THETA_3D','THETA_BANDE'),
5142 PRESENT_ABSENT('THETA_2D','DIRE_THETA'),
5143 EXCLUS('DIRECTION','DIRE_THETA'),),
5144 OPTION =SIMP(statut='f',typ='TXM',defaut="COURONNE",into=("COURONNE","BANDE") ),
5145 MODELE =SIMP(statut='o',typ=(modele) ),
5146 THETA_3D =FACT(statut='f',min=1,max='**',
5147 regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
5148 UN_PARMI('MODULE','MODULE_FO'),
5149 ENSEMBLE('MODULE','R_INF','R_SUP'),
5150 ENSEMBLE('MODULE_FO','R_INF_FO','R_SUP_FO'),),
5151 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5152 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
5153 NOEUD =SIMP(statut='f',typ=no,max='**'),
5154 MODULE =SIMP(statut='f',typ='R'),
5155 R_INF =SIMP(statut='f',typ='R'),
5156 R_SUP =SIMP(statut='f',typ='R'),
5157 MODULE_FO =SIMP(statut='f',typ=fonction),
5158 R_INF_FO =SIMP(statut='f',typ=fonction),
5159 R_SUP_FO =SIMP(statut='f',typ=fonction),
5161 b_theta_3d =BLOC(condition="THETA_3D != None",
5162 FOND_FISS =SIMP(statut='f',typ=fond_fiss),),
5163 DIRE_THETA =SIMP(statut='f',typ=(cham_no_depl_r) ),
5164 DIRECTION =SIMP(statut='f',typ='R',max='**'),
5165 THETA_2D =FACT(statut='f',min=1,max='**',
5166 regles=(UN_PARMI('GROUP_NO','NOEUD'),),
5167 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
5168 NOEUD =SIMP(statut='f',typ=no,max='**'),
5169 MODULE =SIMP(statut='o',typ='R'),
5170 R_INF =SIMP(statut='o',typ='R'),
5171 R_SUP =SIMP(statut='o',typ='R'),
5173 THETA_BANDE =FACT(statut='f',min=1,max='**',
5174 MODULE =SIMP(statut='o',typ='R'),
5175 R_INF =SIMP(statut='o',typ='R'),
5176 R_SUP =SIMP(statut='o',typ='R'),
5178 GRAD_NOEU_THETA =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
5179 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
5180 IMPRESSION =FACT(statut='f',min=1,max=1,
5181 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
5182 FORMAT =SIMP(statut='f',typ='TXM',defaut="EXCEL",into=("EXCEL","AGRAF") ),
5185 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
5186 # CONFIGURATION MANAGEMENT OF EDF VERSION
5187 # ======================================================================
5188 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5189 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5190 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5191 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5192 # (AT YOUR OPTION) ANY LATER VERSION.
5194 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5195 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5196 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5197 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5199 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5200 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5201 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5202 # ======================================================================
5203 # RESPONSABLE VABHHTS J.PELLET
5204 def calc_vect_elem_prod(OPTION,**args):
5205 if OPTION == "CHAR_MECA" : return vect_elem_depl_r
5206 if OPTION == "CHAR_MECA_LAGR" : return vect_elem_depl_r
5207 if OPTION == "CHAR_THER" : return vect_elem_temp_r
5208 if OPTION == "CHAR_ACOU" : return vect_elem_pres_c
5209 if OPTION == "FORC_NODA" : return vect_elem_depl_r
5210 raise AsException("type de concept resultat non prevu")
5212 CALC_VECT_ELEM=OPER(nom="CALC_VECT_ELEM",op=8,sd_prod=calc_vect_elem_prod,docu="U4.61.02-f",reentrant='n',
5213 UIinfo={"groupes":("Matrices/vecteurs",)},
5214 fr="Calcul des seconds membres élémentaires",
5215 OPTION =SIMP(statut='o',typ='TXM',into=("CHAR_MECA","CHAR_THER","CHAR_ACOU",
5216 "FORC_NODA","CHAR_MECA_LAGR") ),
5217 b_char_meca =BLOC(condition = "OPTION=='CHAR_MECA'",
5218 regles=(AU_MOINS_UN('CHARGE','MODELE'),),
5219 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
5220 MODELE =SIMP(statut='f',typ=modele),
5221 b_charge =BLOC(condition = "CHARGE != None", fr="modèle ne contenant pas de sous-structure",
5222 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
5223 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
5224 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5225 MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
5227 b_modele =BLOC(condition = "(MODELE != None)",fr="modèle contenant une sous-structure",
5228 SOUS_STRUC =FACT(statut='o',min=01,
5229 regles=(UN_PARMI('TOUT','MAILLE'),),
5230 CAS_CHARGE =SIMP(statut='o',typ='TXM' ),
5231 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5232 MAILLE =SIMP(statut='f',typ=ma,max='**',),
5236 b_char_ther =BLOC(condition = "OPTION=='CHAR_THER'",
5237 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
5238 CHARGE =SIMP(statut='o',typ=char_ther,max='**'),
5239 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5242 b_char_acou =BLOC(condition = "OPTION=='CHAR_ACOU'",
5243 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
5244 CHARGE =SIMP(statut='o',typ=char_acou,max='**'),
5247 b_forc_noda =BLOC(condition = "OPTION=='FORC_NODA'",
5248 SIEF_ELGA =SIMP(statut='o',typ=cham_elem_sief_r),
5249 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
5250 MODELE =SIMP(statut='f',typ=modele),
5253 b_meca_lagr =BLOC(condition = "OPTION=='CHAR_MECA_LAGR'",
5254 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
5255 THETA =SIMP(statut='o',typ=theta_geom),
5256 PROPAGATION =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5257 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
5258 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5261 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
5262 # CONFIGURATION MANAGEMENT OF EDF VERSION
5263 # ======================================================================
5264 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5265 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5266 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5267 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5268 # (AT YOUR OPTION) ANY LATER VERSION.
5270 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5271 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5272 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5273 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5275 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5276 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5277 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5278 # ======================================================================
5279 # RESPONSABLE G8BHHXD X.DESROCHES
5280 def comb_cham_elem_prod(COMB_R=None,COMB_C=None,COMB_FOURIER=None,**args):
5283 vale=COMB_R.get_child('CHAM_ELEM').get_valeur()
5284 elif COMB_C != None:
5285 vale=COMB_C.get_child('CHAM_ELEM').get_valeur()
5286 elif COMB_FOURIER != None:
5287 vale=COMB_FOURIER.get_child('CHAM_ELEM').get_valeur()
5289 raise AsException("type de concept resultat non prevu")
5291 if AsType(vale) == cham_elem_sief_r : return cham_elem_sief_r
5292 if AsType(vale) == cham_elem_flux_r : return cham_elem_flux_r
5293 if AsType(vale) == cham_elem_epsi_r : return cham_elem_epsi_r
5294 if AsType(vale) == cham_elem_ener_r : return cham_elem_ener_r
5295 if AsType(vale) == cham_elem_crit_r : return cham_elem_crit_r
5296 if AsType(vale) == cham_elem_dbel_r : return cham_elem_dbel_r
5297 if AsType(vale) == cham_elem_pres_r : return cham_elem_pres_r
5298 if AsType(vale) == cham_elem_sief_c : return cham_elem_sief_c
5299 raise AsException("type de concept resultat non prevu")
5301 COMB_CHAM_ELEM=OPER(nom="COMB_CHAM_ELEM",op= 139,sd_prod=comb_cham_elem_prod,reentrant='f',
5302 fr="Combinaison linéaire de champs par éléments",docu="U4.72.03-e",
5303 UIinfo={"groupes":("Résultats et champs",)},
5304 regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),
5305 PRESENT_PRESENT('COMB_FOURIER','ANGL'),),
5306 COMB_R =FACT(statut='f',min=1,max='**',
5307 PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
5308 COEF_R =SIMP(statut='o',typ='R'),
5309 CHAM_ELEM =SIMP(statut='o',
5310 typ=(cham_elem_sief_r,cham_elem_flux_r,cham_elem_epsi_r,
5311 cham_elem_ener_r,cham_elem_crit_r,cham_elem_dbel_r,
5312 cham_elem_pres_r,cham_elem_sief_c ) ),
5314 COMB_C =FACT(statut='f',min=1,max='**',
5315 regles=(UN_PARMI('COEF_R','COEF_C', ),),
5316 COEF_R =SIMP(statut='f',typ='R'),
5317 COEF_C =SIMP(statut='f',typ='C'),
5318 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r) ),
5320 COMB_FOURIER =FACT(statut='f',min=1,max='**',
5321 COEF_R =SIMP(statut='f',typ='R',defaut= 1.),
5322 NUME_MODE =SIMP(statut='o',typ='I'),
5323 TYPE_MODE =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
5324 CHAM_ELEM =SIMP(statut='o',typ=(cham_elem_sief_r,cham_elem_flux_r,cham_elem_epsi_r ) ),
5326 ANGL =SIMP(statut='f',typ='R' ),
5329 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
5330 # CONFIGURATION MANAGEMENT OF EDF VERSION
5331 # ======================================================================
5332 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5333 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5334 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5335 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5336 # (AT YOUR OPTION) ANY LATER VERSION.
5338 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5339 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5340 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5341 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5343 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5344 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5345 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5346 # ======================================================================
5347 # RESPONSABLE G8BHHXD X.DESROCHES
5348 def comb_cham_no_prod(COMB_R,COMB_C,COMB_FOURIER,**args):
5350 type_mat = AsType(COMB_C.get_child('CHAM_NO').get_valeur())
5351 if type_mat in (cham_no_depl_c,cham_no_depl_r) : return cham_no_depl_c
5352 if type_mat in (cham_no_temp_c,cham_no_temp_r) : return cham_no_temp_c
5353 if type_mat in (cham_no_pres_c,cham_no_pres_r) : return cham_no_pres_c
5354 elif COMB_R != None:
5355 type_mat = AsType(COMB_R.get_child('CHAM_NO').get_valeur())
5356 if type_mat in (cham_no_depl_c,cham_no_depl_r) : return cham_no_depl_r
5357 if type_mat in (cham_no_temp_c,cham_no_temp_r) : return cham_no_temp_r
5358 if type_mat in (cham_no_pres_c,cham_no_pres_r) : return cham_no_pres_r
5359 if type_mat == matr_asse_gene_r : return matr_asse_gene_r
5360 elif COMB_FOURIER != None:
5361 type_mat = AsType(COMB_FOURIER.get_child('CHAM_NO').get_valeur())
5362 if type_mat == cham_no_temp_r : return cham_no_temp_r
5363 if type_mat == cham_no_depl_r : return cham_no_depl_r
5364 raise AsException("type de concept resultat non prevu")
5367 COMB_CHAM_NO=OPER(nom="COMB_CHAM_NO",op= 30,sd_prod=comb_cham_no_prod
5368 ,fr="Combinaison linéaire de champs aux noeuds",
5369 docu="U4.72.02-f",reentrant='f',
5370 UIinfo={"groupes":("Résultats et champs",)},
5371 regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),),
5372 COMB_R =FACT(statut='f',min=1,max='**',
5373 PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG",) ),
5374 CHAM_NO =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_temp_c,cham_no_depl_r,cham_no_depl_c
5375 ,cham_no_pres_r,cham_no_pres_c ) ),
5376 COEF_R =SIMP(statut='o',typ='R' ),
5378 COMB_C =FACT(statut='f',min=1,max='**',
5379 regles=(UN_PARMI('COEF_R','COEF_C' ),),
5380 CHAM_NO =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r,cham_no_temp_c
5381 ,cham_no_depl_c,cham_no_pres_c ) ),
5382 COEF_R =SIMP(statut='f',typ='R' ),
5383 COEF_C =SIMP(statut='f',typ='C' ),
5385 COMB_FOURIER =FACT(statut='f',min=1,max='**',
5386 CHAM_NO =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r) ),
5387 COEF_R =SIMP(statut='f',typ='R',defaut= 1. ),
5388 NUME_MODE =SIMP(statut='o',typ='I' ),
5389 TYPE_MODE =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
5391 b_angl = BLOC ( condition = "COMB_FOURIER != None",
5392 ANGL =SIMP(statut='o',typ='R' ),
5395 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
5396 # CONFIGURATION MANAGEMENT OF EDF VERSION
5397 # ======================================================================
5398 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5399 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5400 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5401 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5402 # (AT YOUR OPTION) ANY LATER VERSION.
5404 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5405 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5406 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5407 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5409 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5410 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5411 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5412 # ======================================================================
5413 # RESPONSABLE G8BHHXD X.DESROCHES
5414 COMB_FOURIER=OPER(nom="COMB_FOURIER",op= 161,sd_prod=comb_fourier,
5415 docu="U4.83.31-c",reentrant='n',
5416 UIinfo={"groupes":("Post traitements",)},
5417 RESULTAT =SIMP(statut='o',typ=fourier_elas ),
5418 ANGL =SIMP(statut='o',typ='R',max='**'),
5419 NOM_CHAM =SIMP(statut='o',typ='TXM',max=5,
5420 into=("DEPL","REAC_NODA","SIEF_ELGA_DEPL","EPSI_ELNO_DEPL","SIGM_ELNO_DEPL") ),
5422 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
5423 # CONFIGURATION MANAGEMENT OF EDF VERSION
5424 # ======================================================================
5425 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5426 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5427 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5428 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5429 # (AT YOUR OPTION) ANY LATER VERSION.
5431 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5432 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5433 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5434 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5436 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5437 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5438 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5439 # ======================================================================
5440 # RESPONSABLE VABHHTS J.PELLET
5441 def comb_matr_asse_prod(COMB_R,COMB_C,CALC_AMOR_GENE,**args):
5443 type_mat = AsType(COMB_C.get_child('MATR_ASSE').get_valeur())
5444 if type_mat in (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_c
5445 if type_mat in (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_c
5446 if type_mat in (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_c
5447 if type_mat in (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_c
5448 elif COMB_R != None:
5449 type_mat = AsType(COMB_R.get_child('MATR_ASSE').get_valeur())
5450 if type_mat in (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_r
5451 if type_mat in (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_r
5452 if type_mat in (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_r
5453 if type_mat in (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_r
5454 elif CALC_AMOR_GENE != None: return matr_asse_gene_r
5455 raise AsException("type de concept resultat non prevu")
5457 COMB_MATR_ASSE=OPER(nom="COMB_MATR_ASSE",op= 31,sd_prod=comb_matr_asse_prod,
5458 fr="Combinaison linéaire de matrices assemblées",
5459 docu="U4.72.01-g1",reentrant='f',
5460 UIinfo={"groupes":("Résultats et champs",)},
5461 regles=(UN_PARMI('COMB_R','COMB_C','CALC_AMOR_GENE' ),),
5462 COMB_R =FACT(statut='f',min=1,max='**',
5463 PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
5464 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_temp_c
5465 ,matr_asse_pres_r,matr_asse_pres_c,matr_asse_gene_r,matr_asse_gene_c ) ),
5466 COEF_R =SIMP(statut='o',typ='R' ),
5468 COMB_C =FACT(statut='f',min=1,max='**',
5469 regles=(UN_PARMI('COEF_R','COEF_C' ),),
5470 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_temp_c
5471 ,matr_asse_pres_r,matr_asse_pres_c,matr_asse_gene_r,matr_asse_gene_c ) ),
5472 COEF_R =SIMP(statut='f',typ='R' ),
5473 COEF_C =SIMP(statut='f',typ='C' ),
5475 CALC_AMOR_GENE =FACT(statut='f',min=1,max=1,
5476 regles=(UN_PARMI('AMOR_REDUIT','LIST_AMOR' ),),
5477 MASS_GENE = SIMP(statut='f', typ=matr_asse_gene_r),
5478 RIGI_GENE = SIMP(statut='f', typ=matr_asse_gene_r),
5479 AMOR_REDUIT = SIMP(statut='f',typ='R',max='**'),
5480 LIST_AMOR = SIMP(statut='f',typ=listr8 ),
5482 SANS_CMP =SIMP(statut='f',typ='TXM',into=("LAGR",) ),
5484 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
5485 # CONFIGURATION MANAGEMENT OF EDF VERSION
5486 # ======================================================================
5487 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5488 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5489 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5490 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5491 # (AT YOUR OPTION) ANY LATER VERSION.
5493 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5494 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5495 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5496 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5498 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5499 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5500 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5501 # ======================================================================
5502 COMB_SISM_MODAL=OPER(nom="COMB_SISM_MODAL",op= 109,sd_prod=mode_stat,
5503 fr="Réponse sismique par recombinaison modale par une méthode spectrale",
5504 docu="U4.84.01-e1",reentrant='n',
5505 UIinfo={"groupes":("Post traitements",)},
5506 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ','LIST_ORDRE'),
5507 UN_PARMI('AMOR_REDUIT','LIST_AMOR','AMOR_GENE' ),),
5508 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
5509 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5510 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
5511 LIST_ORDRE =SIMP(statut='f',typ=listis ),
5512 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
5513 FREQ =SIMP(statut='f',typ='R',max='**'),
5514 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
5515 b_freq =BLOC(condition = "FREQ != None or LIST_FREQ != None",
5516 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
5517 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5519 MODE_CORR =SIMP(statut='f',typ=mode_stat_acce ),
5521 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
5522 LIST_AMOR =SIMP(statut='f',typ=listr8 ),
5523 AMOR_GENE =SIMP(statut='f',typ=matr_asse_gene_r ),
5525 MASS_INER =SIMP(statut='f',typ=tabl_mass_iner ),
5526 CORR_FREQ =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
5528 EXCIT =FACT(statut='o',min=1,max='**',
5529 regles=(UN_PARMI('MONO_APPUI','NOEUD','GROUP_NO'),
5530 UN_PARMI('AXE','TRI_AXE','TRI_SPEC' ),),
5532 MONO_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5533 NOEUD =SIMP(statut='f',typ=no,max='**'),
5534 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
5535 AXE =SIMP(statut='f',fr="Excitation suivant un seul axe",
5537 TRI_AXE =SIMP(statut='f',fr="Excitation suivant les trois axes mais avec le meme spectre",
5539 TRI_SPEC =SIMP(statut='f',fr="Excitation suivant les trois axes avec trois spectres",
5540 typ='TXM',into=("OUI",) ),
5541 b_axe =BLOC(condition = "AXE != None",fr="Excitation suivant un seul axe",
5542 SPEC_OSCI =SIMP(statut='o',typ=fonction,max=1 ),
5543 ECHELLE =SIMP(statut='f',typ='R',max=1),
5545 b_tri_axe =BLOC(condition = "TRI_AXE != None",fr="Excitation suivant les trois axes mais avec le meme spectre",
5546 SPEC_OSCI =SIMP(statut='o',typ=fonction,max=1 ),
5547 ECHELLE =SIMP(statut='f',typ='R',max=1),
5549 b_tri_spec =BLOC(condition = "TRI_SPEC != None",fr="Excitation suivant les trois axes avec trois spectres",
5550 SPEC_OSCI =SIMP(statut='o',typ=fonction,min=3,max=3 ),
5551 ECHELLE =SIMP(statut='f',typ='R',min=3,max=3),
5553 NATURE =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("ACCE","VITE","DEPL") ),
5555 COMB_MODE =FACT(statut='o',min=1,max=1,
5556 TYPE =SIMP(statut='o',typ='TXM',into=("SRSS","CQC","DSC","ABS","DPC") ),
5557 DUREE =SIMP(statut='f',typ='R' ),
5559 COMB_DIRECTION =FACT(statut='f',min=1,max=1,
5560 TYPE =SIMP(statut='f',typ='TXM',into=("QUAD","NEWMARK") ),
5562 COMB_MULT_APPUI =FACT(statut='f',min=1,max='**',
5563 regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO' ),
5564 UN_PARMI('TYPE_COMBI','TYPE' ),),
5565 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5566 NOEUD =SIMP(statut='f',typ=no,max='**'),
5567 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
5568 TYPE_COMBI =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
5569 TYPE =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
5571 COMB_DEPL_APPUI=FACT(statut='f',min=1,max='**',
5572 regles=(UN_PARMI('TOUT','LIST_CAS'),
5573 UN_PARMI('TYPE_COMBI','TYPE' ),),
5574 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
5575 LIST_CAS =SIMP(statut='f',typ='I',max='**'),
5576 TYPE_COMBI =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
5577 TYPE =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
5579 DEPL_MULT_APPUI =FACT(statut='f',min=1,max='**',
5580 regles=(UN_PARMI('NOEUD','GROUP_NO'),
5581 AU_MOINS_UN('DX','DY','DZ' ),),
5582 NOM_CAS =SIMP(statut='o',typ='TXM',max='**'),
5583 NUME_CAS =SIMP(statut='o',typ='I',max='**'),
5584 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,), ),
5585 NOEUD_REFE =SIMP(statut='f',typ=no),
5586 NOEUD =SIMP(statut='f',typ=no,max='**'),
5587 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
5588 DX =SIMP(statut='f',typ='R' ),
5589 DY =SIMP(statut='f',typ='R' ),
5590 DZ =SIMP(statut='f',typ='R' ),
5592 OPTION =SIMP(statut='o',typ='TXM',max=9,
5593 into=("DEPL","VITE","ACCE_ABSOLU","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
5594 "EFGE_ELNO_DEPL","REAC_NODA","FORC_NODA","EFGE_ELNO_CART",
5595 "SIPO_ELNO_DEPL") ),
5596 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
5597 IMPRESSION =FACT(statut='f',min=1,max='**',
5598 regles=(EXCLUS('TOUT','NIVEAU'),),
5599 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5600 NIVEAU =SIMP(statut='f',typ='TXM',into=("SPEC_OSCI","MASS_EFFE","MAXI_GENE"),max=3 ),
5602 TITRE =SIMP(statut='f',typ='TXM',max='**'),
5604 #& MODIF COMMANDE DATE 24/01/2003 AUTEUR CIBHHLV L.VIVAN
5605 # RESPONSABLE VABHHTS J.PELLET
5606 # CONFIGURATION MANAGEMENT OF EDF VERSION
5607 # ======================================================================
5608 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5609 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
5610 # REDISTRIBUTION OF THIS FILE.
5611 # ======================================================================
5612 def crea_champ_prod(TYPE_CHAM,**args):
5613 if TYPE_CHAM == "CART_DBEL_R" : return carte_dbel_r
5614 if TYPE_CHAM == "CART_DEPL_C" : return carte_depl_c
5615 if TYPE_CHAM == "CART_DEPL_F" : return carte_depl_f
5616 if TYPE_CHAM == "CART_DEPL_R" : return carte_depl_r
5617 if TYPE_CHAM == "CART_DURT_R" : return carte_durt_r
5618 if TYPE_CHAM == "CART_ENER_R" : return carte_ener_r
5619 if TYPE_CHAM == "CART_EPSI_R" : return carte_epsi_r
5620 if TYPE_CHAM == "CART_ERREUR" : return carte_erreur
5621 if TYPE_CHAM == "CART_FLUX_R" : return carte_flux_r
5622 if TYPE_CHAM == "CART_GEOM_R" : return carte_geom_r
5623 if TYPE_CHAM == "CART_G_DEPL_R" : return carte_g_depl_r
5624 if TYPE_CHAM == "CART_HYDR_R" : return carte_hydr_r
5625 if TYPE_CHAM == "CART_INST_R" : return carte_inst_r
5626 if TYPE_CHAM == "CART_INTE_R" : return carte_inte_r
5627 if TYPE_CHAM == "CART_META_R" : return carte_meta_r
5628 if TYPE_CHAM == "CART_NEUT_F" : return carte_neut_f
5629 if TYPE_CHAM == "CART_NEUT_R" : return carte_neut_r
5630 if TYPE_CHAM == "CART_PRES_R" : return carte_pres_r
5631 if TYPE_CHAM == "CART_SIEF_R" : return carte_sief_r
5632 if TYPE_CHAM == "CART_SOUR_R" : return carte_sour_r
5633 if TYPE_CHAM == "CART_TEMP_F" : return carte_temp_f
5634 if TYPE_CHAM == "CART_TEMP_R" : return carte_temp_r
5635 if TYPE_CHAM == "CART_VAR2_R" : return carte_var2_r
5636 if TYPE_CHAM == "CART_VNOR_C" : return carte_vnor_c
5637 if TYPE_CHAM == "NOEU_DBEL_R" : return cham_no_dbel_r
5638 if TYPE_CHAM == "NOEU_DEPL_C" : return cham_no_depl_c
5639 if TYPE_CHAM == "NOEU_DEPL_F" : return cham_no_depl_f
5640 if TYPE_CHAM == "NOEU_DEPL_R" : return cham_no_depl_r
5641 if TYPE_CHAM == "NOEU_DURT_R" : return cham_no_durt_r
5642 if TYPE_CHAM == "NOEU_ENER_R" : return cham_no_ener_r
5643 if TYPE_CHAM == "NOEU_EPSI_R" : return cham_no_epsi_r
5644 if TYPE_CHAM == "NOEU_ERREUR" : return cham_no_erreur
5645 if TYPE_CHAM == "NOEU_FLUX_R" : return cham_no_flux_r
5646 if TYPE_CHAM == "NOEU_GEOM_R" : return cham_no_geom_r
5647 if TYPE_CHAM == "NOEU_G_DEPL_R" : return cham_no_g_depl_r
5648 if TYPE_CHAM == "NOEU_HYDR_R" : return cham_no_hydr_r
5649 if TYPE_CHAM == "NOEU_INST_R" : return cham_no_inst_r
5650 if TYPE_CHAM == "NOEU_INTE_R" : return cham_no_inte_r
5651 if TYPE_CHAM == "NOEU_META_R" : return cham_no_meta_r
5652 if TYPE_CHAM == "NOEU_NEUT_F" : return cham_no_neut_f
5653 if TYPE_CHAM == "NOEU_NEUT_R" : return cham_no_neut_r
5654 if TYPE_CHAM == "NOEU_PRES_R" : return cham_no_pres_r
5655 if TYPE_CHAM == "NOEU_SIEF_R" : return cham_no_sief_r
5656 if TYPE_CHAM == "NOEU_SOUR_R" : return cham_no_sour_r
5657 if TYPE_CHAM == "NOEU_TEMP_F" : return cham_no_temp_f
5658 if TYPE_CHAM == "NOEU_TEMP_R" : return cham_no_temp_r
5659 if TYPE_CHAM == "NOEU_VAR2_R" : return cham_no_var2_r
5660 if TYPE_CHAM == "NOEU_VNOR_C" : return cham_no_vnor_c
5661 if TYPE_CHAM == "ELEM_DBEL_R" : return cham_elem_dbel_r
5662 if TYPE_CHAM == "ELEM_DEPL_C" : return cham_elem_depl_c
5663 if TYPE_CHAM == "ELEM_DEPL_F" : return cham_elem_depl_f
5664 if TYPE_CHAM == "ELEM_DEPL_R" : return cham_elem_depl_r
5665 if TYPE_CHAM == "ELEM_DURT_R" : return cham_elem_durt_r
5666 if TYPE_CHAM == "ELEM_ENER_R" : return cham_elem_ener_r
5667 if TYPE_CHAM == "ELEM_EPSI_R" : return cham_elem_epsi_r
5668 if TYPE_CHAM == "ELEM_ERREUR" : return cham_elem_erreur
5669 if TYPE_CHAM == "ELEM_FLUX_R" : return cham_elem_flux_r
5670 if TYPE_CHAM == "ELEM_GEOM_R" : return cham_elem_geom_r
5671 if TYPE_CHAM == "ELEM_G_DEPL_R" : return cham_elem_g_depl
5672 if TYPE_CHAM == "ELEM_HYDR_R" : return cham_elem_hydr_r
5673 if TYPE_CHAM == "ELEM_INST_R" : return cham_elem_inst_r
5674 if TYPE_CHAM == "ELEM_INTE_R" : return cham_elem_inte_r
5675 if TYPE_CHAM == "ELEM_META_R" : return cham_elem_meta_r
5676 if TYPE_CHAM == "ELEM_NEUT_F" : return cham_elem_neut_f
5677 if TYPE_CHAM == "ELEM_NEUT_R" : return cham_elem_neut_r
5678 if TYPE_CHAM == "ELEM_PRES_R" : return cham_elem_pres_r
5679 if TYPE_CHAM == "ELEM_SIEF_R" : return cham_elem_sief_r
5680 if TYPE_CHAM == "ELEM_SOUR_R" : return cham_elem_sour_r
5681 if TYPE_CHAM == "ELEM_TEMP_F" : return cham_elem_temp_f
5682 if TYPE_CHAM == "ELEM_TEMP_R" : return cham_elem_temp_r
5683 if TYPE_CHAM == "ELEM_VARI_R" : return cham_elem_vari_r
5684 if TYPE_CHAM == "ELEM_VNOR_C" : return cham_elem_vnor_c
5685 if TYPE_CHAM == "ELNO_DBEL_R" : return cham_elem_dbel_r
5686 if TYPE_CHAM == "ELNO_DEPL_C" : return cham_elem_depl_c
5687 if TYPE_CHAM == "ELNO_DEPL_F" : return cham_elem_depl_f
5688 if TYPE_CHAM == "ELNO_DEPL_R" : return cham_elem_depl_r
5689 if TYPE_CHAM == "ELNO_DURT_R" : return cham_elem_durt_r
5690 if TYPE_CHAM == "ELNO_ENER_R" : return cham_elem_ener_r
5691 if TYPE_CHAM == "ELNO_EPSI_R" : return cham_elem_epsi_r
5692 if TYPE_CHAM == "ELNO_ERREUR" : return cham_elem_erreur
5693 if TYPE_CHAM == "ELNO_FLUX_R" : return cham_elem_flux_r
5694 if TYPE_CHAM == "ELNO_GEOM_R" : return cham_elem_geom_r
5695 if TYPE_CHAM == "ELNO_G_DEPL_R" : return cham_elem_g_depl
5696 if TYPE_CHAM == "ELNO_HYDR_R" : return cham_elem_hydr_r
5697 if TYPE_CHAM == "ELNO_INST_R" : return cham_elem_inst_r
5698 if TYPE_CHAM == "ELNO_INTE_R" : return cham_elem_inte_r
5699 if TYPE_CHAM == "ELNO_META_R" : return cham_elem_meta_r
5700 if TYPE_CHAM == "ELNO_NEUT_F" : return cham_elem_neut_f
5701 if TYPE_CHAM == "ELNO_NEUT_R" : return cham_elem_neut_r
5702 if TYPE_CHAM == "ELNO_PRES_R" : return cham_elem_pres_r
5703 if TYPE_CHAM == "ELNO_SIEF_R" : return cham_elem_sief_r
5704 if TYPE_CHAM == "ELNO_SOUR_R" : return cham_elem_sour_r
5705 if TYPE_CHAM == "ELNO_TEMP_F" : return cham_elem_temp_f
5706 if TYPE_CHAM == "ELNO_TEMP_R" : return cham_elem_temp_r
5707 if TYPE_CHAM == "ELNO_VARI_R" : return cham_elem_vari_r
5708 if TYPE_CHAM == "ELNO_VNOR_C" : return cham_elem_vnor_c
5709 if TYPE_CHAM == "ELGA_DBEL_R" : return cham_elem_dbel_r
5710 if TYPE_CHAM == "ELGA_DEPL_C" : return cham_elem_depl_c
5711 if TYPE_CHAM == "ELGA_DEPL_F" : return cham_elem_depl_f
5712 if TYPE_CHAM == "ELGA_DEPL_R" : return cham_elem_depl_r
5713 if TYPE_CHAM == "ELGA_DURT_R" : return cham_elem_durt_r
5714 if TYPE_CHAM == "ELGA_ENER_R" : return cham_elem_ener_r
5715 if TYPE_CHAM == "ELGA_EPSI_R" : return cham_elem_epsi_r
5716 if TYPE_CHAM == "ELGA_ERREUR" : return cham_elem_erreur
5717 if TYPE_CHAM == "ELGA_FLUX_R" : return cham_elem_flux_r
5718 if TYPE_CHAM == "ELGA_GEOM_R" : return cham_elem_geom_r
5719 if TYPE_CHAM == "ELGA_G_DEPL_R" : return cham_elem_g_depl
5720 if TYPE_CHAM == "ELGA_HYDR_R" : return cham_elem_hydr_r
5721 if TYPE_CHAM == "ELGA_INST_R" : return cham_elem_inst_r
5722 if TYPE_CHAM == "ELGA_INTE_R" : return cham_elem_inte_r
5723 if TYPE_CHAM == "ELGA_META_R" : return cham_elem_meta_r
5724 if TYPE_CHAM == "ELGA_NEUT_F" : return cham_elem_neut_f
5725 if TYPE_CHAM == "ELGA_NEUT_R" : return cham_elem_neut_r
5726 if TYPE_CHAM == "ELGA_PRES_R" : return cham_elem_pres_r
5727 if TYPE_CHAM == "ELGA_SIEF_R" : return cham_elem_sief_r
5728 if TYPE_CHAM == "ELGA_SOUR_R" : return cham_elem_sour_r
5729 if TYPE_CHAM == "ELGA_TEMP_F" : return cham_elem_temp_f
5730 if TYPE_CHAM == "ELGA_TEMP_R" : return cham_elem_temp_r
5731 if TYPE_CHAM == "ELGA_VARI_R" : return cham_elem_vari_r
5732 if TYPE_CHAM == "ELGA_VNOR_C" : return cham_elem_vnor_c
5733 if TYPE_CHAM == "CART_IRRA_R" : return carte_irra_r
5734 if TYPE_CHAM == "NOEU_IRRA_R" : return cham_no_irra_r
5735 if TYPE_CHAM == "ELEM_IRRA_R" : return cham_elem_irra_r
5736 if TYPE_CHAM == "ELNO_IRRA_R" : return cham_elem_irra_r
5737 if TYPE_CHAM == "ELGA_IRRA_R" : return cham_elem_irra_r
5738 if TYPE_CHAM == "ELEM_SPMA_R" : return cham_elem_spma_r
5739 raise AsException("type de concept resultat non prevu")
5741 CREA_CHAMP=OPER(nom="CREA_CHAMP",op= 195,sd_prod=crea_champ_prod,
5742 fr=" ",docu="U4.72.04-b1",reentrant='n',
5743 UIinfo={"groupes":("Résultats et champs",)},
5744 TYPE_CHAM =SIMP(statut='o',typ='TXM',
5745 into=("CART_DBEL_R","NOEU_DBEL_R","ELEM_DBEL_R",
5746 "ELNO_DBEL_R","ELGA_DBEL_R","CART_DEPL_C",
5747 "NOEU_DEPL_C","ELEM_DEPL_C","ELNO_DEPL_C",
5748 "ELGA_DEPL_C","CART_DEPL_F","NOEU_DEPL_F",
5749 "ELEM_DEPL_F","ELNO_DEPL_F","ELGA_DEPL_F",
5750 "CART_DEPL_R","NOEU_DEPL_R","ELEM_DEPL_R",
5751 "ELNO_DEPL_R","ELGA_DEPL_R","CART_DURT_R",
5752 "NOEU_DURT_R","ELEM_DURT_R","ELNO_DURT_R",
5753 "ELGA_DURT_R","CART_ENER_R","NOEU_ENER_R",
5754 "ELEM_ENER_R","ELNO_ENER_R","ELGA_ENER_R",
5755 "CART_EPSI_R","NOEU_EPSI_R","ELEM_EPSI_R",
5756 "ELNO_EPSI_R","ELGA_EPSI_R","CART_ERREUR",
5757 "NOEU_ERREUR","ELEM_ERREUR","ELNO_ERREUR",
5758 "ELGA_ERREUR","CART_FLUX_R","NOEU_FLUX_R",
5759 "ELEM_FLUX_R","ELNO_FLUX_R","ELGA_FLUX_R",
5760 "CART_GEOM_R","NOEU_GEOM_R","ELEM_GEOM_R",
5761 "ELNO_GEOM_R","ELGA_GEOM_R","CART_G_DEPL_R",
5762 "NOEU_G_DEPL_R","ELEM_G_DEPL_R","ELNO_G_DEPL_R",
5763 "ELGA_G_DEPL_R","CART_HYDR_R","NOEU_HYDR_R",
5764 "ELEM_HYDR_R","ELNO_HYDR_R","ELGA_HYDR_R",
5765 "CART_INST_R","NOEU_INST_R","ELEM_INST_R",
5766 "ELNO_INST_R","ELGA_INST_R","CART_INTE_R",
5767 "NOEU_INTE_R","ELEM_INTE_R","ELNO_INTE_R",
5768 "ELGA_INTE_R","CART_META_R","NOEU_META_R",
5769 "ELEM_META_R","ELNO_META_R","ELGA_META_R",
5770 "CART_NEUT_F","NOEU_NEUT_F","ELEM_NEUT_F",
5771 "ELNO_NEUT_F","ELGA_NEUT_F","CART_NEUT_R",
5772 "NOEU_NEUT_R","ELEM_NEUT_R","ELNO_NEUT_R",
5773 "ELGA_NEUT_R","CART_PRES_R","NOEU_PRES_R",
5774 "ELEM_PRES_R","ELNO_PRES_R","ELGA_PRES_R",
5775 "CART_SIEF_R","NOEU_SIEF_R","ELEM_SIEF_R",
5776 "ELNO_SIEF_R","ELGA_SIEF_R","CART_SOUR_R",
5777 "NOEU_SOUR_R","ELEM_SOUR_R","ELNO_SOUR_R",
5778 "ELGA_SOUR_R","CART_TEMP_F","NOEU_TEMP_F",
5779 "ELEM_TEMP_F","ELNO_TEMP_F","ELGA_TEMP_F",
5780 "CART_TEMP_R","NOEU_TEMP_R","ELEM_TEMP_R",
5781 "ELNO_TEMP_R","ELGA_TEMP_R","CART_VAR2_R",
5782 "NOEU_VAR2_R","ELEM_VARI_R","ELNO_VARI_R",
5783 "ELGA_VARI_R","CART_VNOR_C","NOEU_VNOR_C",
5784 "ELEM_VNOR_C","ELNO_VNOR_C","ELGA_VNOR_C",
5785 "CART_IRRA_R","NOEU_IRRA_R","ELEM_IRRA_R",
5786 "ELNO_IRRA_R","ELGA_IRRA_R","ELEM_SPMA_R",) ),
5788 # SI CREATION D'UN CHAM_NO, POUR IMPOSER LA NUMEROTATION DES DDLS :
5789 # ------------------------------------------------------------------
5790 regles=(EXCLUS('NUME_DDL','CHAM_NO',)),
5791 NUME_DDL =SIMP(statut='f',typ=(nume_ddl) ),
5792 CHAM_NO =SIMP(statut='f',typ=(cham_no) ),
5794 OPERATION =SIMP(statut='o',typ='TXM',into=("AFFE","ASSE","EVAL","EXTR","DISC",) ),
5796 b_affe =BLOC(condition = "OPERATION == 'AFFE'",
5797 regles=(UN_PARMI('MAILLAGE','MODELE'),),
5798 MAILLAGE =SIMP(statut='f',typ=(maillage) ),
5799 MODELE =SIMP(statut='f',typ=(modele) ),
5800 b_affe_modele =BLOC(condition = "MODELE != None",
5801 PROL_ZERO =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ), ),
5802 AFFE =FACT(statut='o',min=1,max='**',
5803 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
5804 UN_PARMI('VALE','VALE_I','VALE_C','VALE_F', ),),
5805 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5806 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5807 MAILLE =SIMP(statut='f',typ=ma,max='**'),
5808 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
5809 NOEUD =SIMP(statut='f',typ=no,max='**'),
5810 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
5811 VALE =SIMP(statut='f',typ='R',max='**' ),
5812 VALE_I =SIMP(statut='f',typ='I',max='**' ),
5813 VALE_C =SIMP(statut='f',typ='C',max='**' ),
5814 VALE_F =SIMP(statut='f',typ=fonction,max='**'),
5817 b_asse =BLOC(condition = "OPERATION == 'ASSE'",
5818 regles=(UN_PARMI('MAILLAGE','MODELE'),),
5819 MAILLAGE =SIMP(statut='f',typ=(maillage) ),
5820 MODELE =SIMP(statut='f',typ=(modele) ),
5821 b_asse_modele =BLOC(condition = "MODELE != None",
5822 PROL_ZERO =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ), ),
5823 ASSE =FACT(statut='o',min=1,max='**',
5824 regles=(AU_MOINS_UN('TOUT','GROUP_MA','GROUP_NO','MAILLE','NOEUD',),
5825 PRESENT_PRESENT('NOM_CMP_RESU','NOM_CMP', ),),
5826 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5827 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5828 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
5829 MAILLE =SIMP(statut='f',typ=ma,max='**'),
5830 NOEUD =SIMP(statut='f',typ=no,max='**'),
5831 CHAM_GD =SIMP(statut='o',typ=(cham_gd)),
5832 NOM_CMP =SIMP(statut='f',typ='TXM',max='**' ),
5833 NOM_CMP_RESU =SIMP(statut='f',typ='TXM',max='**' ),
5834 CUMUL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
5835 COEF_R =SIMP(statut='f',typ='R',defaut= 1. ),
5838 b_eval =BLOC(condition = "OPERATION == 'EVAL'",
5839 CHAM_F =SIMP(statut='o',typ=(cham_gd)),
5840 CHAM_PARA =SIMP(statut='o',typ=(cham_gd),max='**'),
5842 b_disc =BLOC(condition = "OPERATION == 'DISC'",
5843 MODELE =SIMP(statut='f',typ=(modele) ),
5844 PROL_ZERO =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
5845 CHAM_GD =SIMP(statut='o',typ=(cham_gd)),
5847 b_extr =BLOC(condition = "OPERATION == 'EXTR'",
5848 regles=(UN_PARMI('MAILLAGE','RESULTAT'),),
5849 MAILLAGE =SIMP(statut='f',typ=(maillage) ),
5850 RESULTAT =SIMP(statut='f',typ=(resultat) ),
5851 b_extr_maillage =BLOC(condition = "MAILLAGE != None",
5852 NOM_CHAM =SIMP(statut='o',typ='TXM',into=("GEOMETRIE",)),
5854 b_extr_resultat =BLOC(condition = "RESULTAT != None",
5855 regles=(EXCLUS('TYPE_MAXI','NUME_ORDRE','INST','FREQ','NUME_MODE',
5856 'NOEUD_CMP','NOM_CAS','ANGL', ),),
5857 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),
5858 fr="Paramètre de sensibilité.",
5859 ang="Sensitivity parameter"),
5860 NOM_CHAM =SIMP(statut='o',typ='TXM',
5861 into=("DEPL","VITE","ACCE",
5862 "DEPL_ABSOLU","VITE_ABSOLU",
5863 "TEMP","IRRA","ACCE_ABSOLU",
5864 "FORC_NODA","REAC_NODA","EFGE_NOEU_DEPL",
5865 "EFGE_NOEU_CART","EPSI_NOEU_DEPL",
5866 "SIGM_NOEU_DEPL","SIGM_NOEU_CART",
5867 "SIPO_NOEU_DEPL","EQUI_NOEU_SIGM",
5868 "EQUI_NOEU_EPSI","FLUX_NOEU_TEMP",
5869 "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP",
5870 "META_ELGA_TEMP","META_ELNO_TEMP",
5871 "META_NOEU_TEMP","DURT_ELGA_META",
5872 "DURT_ELNO_META","DURT_NOEU_META","SIEF_ELGA",
5873 "SIEF_ELNO_ELGA","SIEF_ELGA_DEPL",
5874 "VARI_ELNO_ELGA","VARI_ELGA","EPOT_ELEM_DEPL",
5875 "ECIN_ELEM_DEPL","SOUR_ELGA_ELEC",
5876 "PRES_ELNO_REEL","PRES_ELNO_IMAG",
5877 "PRES_ELNO_DBEL","INTE_ELNO_ACTI",
5878 "INTE_ELNO_REAC","EFGE_ELNO_DEPL",
5879 "SIGM_ELNO_DEPL","EFGE_ELNO_CART",
5880 "SIGM_ELNO_CART","SIPO_ELNO_DEPL",
5881 "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL",
5882 "EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO",
5883 "EPSP_ELGA","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
5884 "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
5885 "ERRE_ELNO_ELGA","ERRE_ELGA_NORE",
5886 "ERRE_ELEM_NOZ1","ERRE_ELEM_NOZ2",
5887 "SIGM_NOZ1_ELGA","SIGM_NOZ2_ELGA",
5888 "DEGE_ELNO_DEPL","SIRE_ELNO_DEPL",
5889 "VNOR_ELEM_DEPL","SIEF_ELNO","VARI_ELNO",
5890 "SIEF_NOEU_ELGA","VARI_NOEU_ELGA",
5891 "PRES_NOEU_DBEL","PRES_NOEU_REEL",
5892 "PRES_NOEU_IMAG","INTE_NOEU_ACTI",
5893 "INTE_NOEU_REAC","DCHA_ELGA_SIGM",
5894 "DCHA_ELNO_SIGM","RADI_ELGA_SIGM",
5895 "RADI_ELNO_SIGM","ENDO_ELNO_SIGA",
5896 "ENDO_ELNO_SINO","ENDO_ELNO_SIGM",
5897 "SIGM_ELNO_VARI","SIGM_NOEU_VARI",
5898 "EPME_ELNO_DEPL","EPME_ELGA_DEPL",
5899 "EPME_ELNO_DPGE","EPMG_ELNO_DEPL",
5900 "EPMG_ELGA_DEPL","GRAD_ELGA_THETA",
5901 "GTHE_ELNO_ELGA","GRAD_NOEU_THETA",
5902 "HYDR_ELGA","HYDR_ELNO_ELGA","HYDR_NOEU_ELGA",
5903 "THETA","SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",
5904 "VALE_CONT","VALE_NCOU_MAXI") ),
5905 TYPE_MAXI =SIMP(statut='f',typ='TXM',into=("MAXI","MINI","MAXI_ABS","MINI_ABS","NORM_TRAN",) ),
5906 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="VALE",into=("VALE","INST",) ),
5907 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5908 LIST_INST =SIMP(statut='f',typ=(listr8) ),
5909 NUME_ORDRE =SIMP(statut='f',typ='I'),
5910 INST =SIMP(statut='f',typ='R'),
5911 FREQ =SIMP(statut='f',typ='R'),
5912 NUME_MODE =SIMP(statut='f',typ='I'),
5913 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
5914 NOM_CAS =SIMP(statut='f',typ='TXM'),
5915 ANGL =SIMP(statut='f',typ='R'),
5916 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
5917 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
5918 INTERPOL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN",) ),
5922 # FIN DU CATALOGUE : INFO,TITRE ET TYPAGE DU RESULAT :
5923 #-----------------------------------------------------
5924 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,) ),
5925 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
5927 #& MODIF COMMANDE DATE 07/01/2003 AUTEUR GJBHHEL E.LORENTZ
5928 # CONFIGURATION MANAGEMENT OF EDF VERSION
5929 # ======================================================================
5930 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
5931 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5932 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5933 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5934 # (AT YOUR OPTION) ANY LATER VERSION.
5936 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5937 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5938 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5939 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5941 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5942 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5943 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5944 # ======================================================================
5945 CREA_MAILLAGE=OPER(nom="CREA_MAILLAGE",op= 167,sd_prod=maillage,
5946 docu="U4.23.02-d1",reentrant='n',
5947 UIinfo={"groupes":("Maillage",)},
5948 regles=(EXCLUS('ECLA_PG','CREA_MAILLE'),
5949 EXCLUS('ECLA_PG','CREA_GROUP_MA'),
5950 EXCLUS('ECLA_PG','DETR_GROUP_MA'),
5951 EXCLUS('ECLA_PG','MODI_MAILLE'),
5952 EXCLUS('ECLA_PG','LINE_QUAD'),
5953 EXCLUS('LINE_QUAD','MODI_MAILLE'),
5954 EXCLUS('LINE_QUAD','CREA_MAILLE'),
5955 EXCLUS('LINE_QUAD','CREA_GROUP_MA'),
5956 EXCLUS('LINE_QUAD','DETR_GROUP_MA'),
5958 MAILLAGE =SIMP(statut='o',typ=maillage ),
5959 CREA_POI1 =FACT(statut='f',min=1,max='**',fr="Création de mailles de type POI1 à partir de noeuds",
5960 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD' ),),
5961 NOM_GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5962 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5963 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5964 MAILLE =SIMP(statut='f',typ=ma,max='**'),
5965 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
5966 NOEUD =SIMP(statut='f',typ=no,max='**'),
5968 CREA_MAILLE =FACT(statut='f',min=1,max='**',fr="Duplication de mailles",
5969 regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA'),),
5970 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5971 MAILLE =SIMP(statut='f',typ=ma,max='**'),
5972 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5973 PREF_MAILLE =SIMP(statut='o',typ='TXM' ),
5974 PREF_NUME =SIMP(statut='f',typ='I' ),
5976 CREA_GROUP_MA =FACT(statut='f',min=1,max='**',fr="Duplication de mailles et création de groupes de mailles",
5977 regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
5978 NOM =SIMP(statut='o',typ='TXM'),
5979 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5980 MAILLE =SIMP(statut='f',typ=ma,max='**'),
5981 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5982 PREF_MAILLE =SIMP(statut='o',typ='TXM' ),
5983 PREF_NUME =SIMP(statut='f',typ='I' ),
5985 DETR_GROUP_MA =FACT(statut='f',min=1,max=1,fr="Destruction de groupes de mailles",
5986 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
5987 NB_MAILLE =SIMP(statut='f',typ='I',defaut= 0,
5988 fr="Nombre minimal de mailles que doit contenir le groupe pour etre détruit", ),
5990 MODI_MAILLE =FACT(statut='f',min=1,max='**',fr="Modification du type de mailles",
5991 regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
5992 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5993 MAILLE =SIMP(statut='f',typ=grma,max='**'),
5994 GROUP_MA =SIMP(statut='f',typ=ma,max='**'),
5995 OPTION =SIMP(statut='o',typ='TXM',into=("TRIA6_7","QUAD8_9","SEG3_4"),fr="Choix de la transformation" ),
5996 PREF_NOEUD =SIMP(statut='f',typ='TXM',defaut="NS"),
5997 PREF_NUME =SIMP(statut='f',typ='I',defaut= 1 ),
5999 LINE_QUAD =FACT(statut='f',min=01,max=1,fr="Passage linéaire -> quadratique",
6000 regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
6001 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6002 MAILLE =SIMP(statut='f',typ=grma,max='**'),
6003 GROUP_MA =SIMP(statut='f',typ=ma,max='**'),
6004 PREF_NOEUD =SIMP(statut='f',typ='TXM',defaut="NS"),
6005 PREF_NUME =SIMP(statut='f',typ='I',defaut= 1 ),
6007 REPERE =FACT(statut='f',min=1,max='**',
6008 fr="changement de repère servant à déterminer les caractéristiques d une section de poutre",
6009 TABLE =SIMP(statut='o',typ=tabl_cara_geom,
6010 fr="Nom de la table contenant les caractéristiques de la section de poutre" ),
6011 NOM_ORIG =SIMP(statut='f',typ='TXM',into=("CDG","TORSION"),fr="Origine du nouveau repère" ),
6012 NOM_ROTA =SIMP(statut='f',typ='TXM',into=("INERTIE",),fr="Direction du repére" ),
6013 b_cdg =BLOC(condition = "NOM_ORIG == 'CDG'",
6014 GROUP_MA =SIMP(statut='f',typ=grma,
6015 fr="Nom du groupe de mailles dont le centre de gravité sera l origine du nouveau repère"),
6018 ECLA_PG =FACT(statut='f',min=1,max=1,
6019 fr="Eclatement des mailles en petites mailles contenant chacune un seul point de gauss",
6020 MODELE =SIMP(statut='o',typ=modele ),
6021 SHRINK =SIMP(statut='f',typ='R',defaut= 0.9, fr="Facteur de réduction" ),
6023 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6025 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
6026 # CONFIGURATION MANAGEMENT OF EDF VERSION
6027 # ======================================================================
6028 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
6029 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6030 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6031 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6032 # (AT YOUR OPTION) ANY LATER VERSION.
6034 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6035 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6036 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6037 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6039 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6040 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6041 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6042 # ======================================================================
6043 def crea_resu_prod(TYPE_RESU,**args):
6044 if TYPE_RESU == "EVOL_ELAS" : return evol_elas
6045 if TYPE_RESU == "EVOL_NOLI" : return evol_noli
6046 if TYPE_RESU == "EVOL_THER" : return evol_ther
6047 if TYPE_RESU == "MULT_ELAS" : return mult_elas
6048 if TYPE_RESU == "FOURIER_ELAS" : return fourier_elas
6049 if TYPE_RESU == "EVOL_VARC" : return evol_varc
6050 raise AsException("type de concept resultat non prevu")
6052 CREA_RESU=OPER(nom="CREA_RESU",op=124,sd_prod=crea_resu_prod,docu="U4.44.12-e3",reentrant='f',
6053 UIinfo={"groupes":("Modélisation",)},
6054 fr="Engendrer ou enrichir une structure de donnees en affectant les cham_gd associes",
6056 OPERATION =SIMP(statut='o',typ='TXM',into=("AFFE","ECLA_PG","PERM_CHAM","PROL_RTZ",),
6057 fr="choix de la fonction a activer",),
6059 b_affe =BLOC(condition = "OPERATION == 'AFFE'",
6061 TYPE_RESU =SIMP(statut='o',typ='TXM',into=("MULT_ELAS","EVOL_ELAS","EVOL_NOLI","FOURIER_ELAS",
6062 "EVOL_THER","EVOL_VARC",) ),
6063 NOM_CHAM =SIMP(statut='f',typ='TXM',into=("DEPL","TEMP","IRRA","HYDR_ELGA",),max=1 ),
6064 AFFE =FACT(statut='f',min=1,max='**',
6065 regles=(UN_PARMI('NOM_CAS','NUME_MODE','LIST_INST','INST',),),
6066 CHAM_GD =SIMP(statut='f',typ=(cham_gd)),
6067 NOM_CAS =SIMP(statut='f',typ='TXM' ),
6068 NUME_MODE =SIMP(statut='f',typ='I'),
6069 TYPE_MODE =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
6070 INST =SIMP(statut='f',typ='R',max='**'),
6071 LIST_INST =SIMP(statut='f',typ=listr8),
6072 NUME_INIT =SIMP(statut='f',typ='I'),
6073 NUME_FIN =SIMP(statut='f',typ='I'),
6074 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
6075 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6079 b_ecla_pg =BLOC(condition = "OPERATION == 'ECLA_PG'",
6081 TYPE_RESU =SIMP(statut='o',typ='TXM',into=("EVOL_ELAS","EVOL_NOLI","EVOL_THER"), ),
6083 ECLA_PG =FACT(statut='f',min=1,max=1,
6084 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
6085 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
6086 into=("SIEF_ELGA","VARI_ELGA","SIEF_ELGA_DEPL","FLUX_ELGA_TEMP",) ),
6087 MODELE_INIT =SIMP(statut='o',typ=modele),
6088 RESU_INIT =SIMP(statut='o',typ=resultat),
6089 MAILLAGE =SIMP(statut='o',typ=maillage),
6090 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6091 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
6092 LIST_ORDRE =SIMP(statut='f',typ=listis),
6093 INST =SIMP(statut='f',typ='R',max='**'),
6094 LIST_INST =SIMP(statut='f',typ=listr8),
6095 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
6096 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
6100 b_perm_cham =BLOC(condition = "OPERATION == 'PERM_CHAM'",
6102 TYPE_RESU =SIMP(statut='o',typ='TXM',into=("EVOL_NOLI",) ),
6103 NOM_CHAM =SIMP(statut='f',typ='TXM',into=("DEPL","SIEF_ELGA","VARI_ELGA",),max='**' ),
6104 RESU_INIT =SIMP(statut='o',typ=evol_noli),
6105 INST_INIT =SIMP(statut='f',typ='R'),
6106 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
6107 CRITERE =SIMP(statut='f',typ='TXM',into=('RELATIF','ABSOLU'),defaut='RELATIF'),
6108 MAILLAGE_INIT =SIMP(statut='o',typ=maillage,),
6109 RESU_FINAL =SIMP(statut='o',typ=evol_noli,),
6110 MAILLAGE_FINAL =SIMP(statut='o',typ=maillage,),
6111 PERM_CHAM =FACT(statut='o',min=1,max=1,
6112 GROUP_MA_FINAL =SIMP(statut='o',typ=grma),
6113 GROUP_MA_INIT =SIMP(statut='o',typ=grma),
6114 TRAN =SIMP(statut='o',typ='R',max='**'),
6115 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
6119 b_prol_rtz =BLOC(condition = "OPERATION == 'PROL_RTZ'",
6121 TYPE_RESU =SIMP(statut='o',typ='TXM',into=("EVOL_THER",) ),
6123 PROL_RTZ =FACT(statut='f',min=1,max=1,
6124 regles=(EXCLUS('INST','LIST_INST'),),
6125 MAILLAGE_FINAL =SIMP(statut='o',typ=maillage,),
6126 TABLE =SIMP(statut='o',typ=tabl_post_rele,fr="Table issue de post_releve_t"),
6127 INST =SIMP(statut='f',typ='R',max='**'),
6128 LIST_INST =SIMP(statut='f',typ=listr8),
6129 b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)",
6130 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
6131 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6133 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU",),),
6134 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU",),),
6135 REPERE =SIMP(statut='o',typ='TXM',into=("CYLINDRIQUE",),),
6136 ORIGINE =SIMP(statut='o',typ='R',min=3,max=3),
6137 AXE_Z =SIMP(statut='o',typ='R',min=3,max=3),
6142 #& MODIF COMMANDE DATE 20/01/2003 AUTEUR DURAND C.DURAND
6143 # CONFIGURATION MANAGEMENT OF EDF VERSION
6144 # ======================================================================
6145 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
6146 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6147 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6148 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6149 # (AT YOUR OPTION) ANY LATER VERSION.
6151 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6152 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6153 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6154 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6156 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6157 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6158 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6159 # ======================================================================
6160 DEBUT=MACRO(nom="DEBUT",op=ops.build_debut ,docu="U4.11.01-g2",repetable='n',
6161 UIinfo={"groupes":("Gestion du travail",)},
6162 fr="Ouverture d une étude. Allocation des ressources mémoire et disque",
6165 PAR_LOT =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
6166 into=("OUI","NON"),defaut="OUI"),
6167 BASE =FACT(fr="définition des paramètres associés aux bases JEVEUX",
6168 statut='f',min=1,max=3,
6169 FICHIER =SIMP(fr="nom de la base",statut='o',typ='TXM',
6170 into=('GLOBALE','VOLATILE','LOCALE'),),
6171 TITRE =SIMP(statut='f',typ='TXM'),
6172 CAS =SIMP(statut='f',typ='TXM'),
6173 NMAX_ENRE =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
6174 LONG_ENRE =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
6175 LONG_REPE =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
6177 IMPRESSION =FACT(statut='f',min=1,max=3,
6178 FICHIER =SIMP(statut='o',typ='TXM'),
6179 UNITE =SIMP(statut='o',typ='I'),
6181 CATALOGUE =FACT(statut='f',min=1,max=10,
6182 FICHIER =SIMP(statut='o',typ='TXM'),
6183 TITRE =SIMP(statut='f',typ='TXM'),
6184 UNITE =SIMP(statut='f',typ='I'),
6186 CODE =FACT(fr="définition d un nom pour l'esemble d'une étude",
6187 statut='f',min=1,max=1,
6188 NOM =SIMP(statut='o',typ='TXM'),
6189 NIV_PUB_WEB =SIMP(statut='o',typ='TXM',into=('INTERNET','INTRANET')),
6190 UNITE =SIMP(statut='f',typ='I',defaut=15),
6192 DEBUG =FACT(fr="option de déboggage reservée aux développeurs",
6193 statut='f',min=1,max=1,
6194 JXVERI =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
6195 statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
6196 JEVEUX =SIMP(fr="force les déchargement sur disque",
6197 statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
6198 ENVIMA =SIMP(fr="imprime les valeurs définies dans ENVIMA",
6199 statut='f',typ='TXM',into=('TEST',)),
6201 MEMOIRE =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=1,max=1,
6202 GESTION =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
6203 TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
6204 TAILLE =SIMP(statut='f',typ='I'),
6205 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut=800.),
6206 PARTITION =SIMP(statut='f',typ='R'),
6209 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
6210 # CONFIGURATION MANAGEMENT OF EDF VERSION
6211 # ======================================================================
6212 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
6213 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6214 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6215 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6216 # (AT YOUR OPTION) ANY LATER VERSION.
6218 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6219 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6220 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6221 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6223 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6224 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6225 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6226 # ======================================================================
6227 DEFI_BASE_MODALE=OPER(nom="DEFI_BASE_MODALE",op= 99,sd_prod=base_modale,
6228 docu="U4.64.02-f1",reentrant='f',
6229 UIinfo={"groupes":("Matrices/vecteurs",)},
6230 regles=(UN_PARMI('CLASSIQUE','RITZ','DIAG_MASS'),),
6231 CLASSIQUE =FACT(statut='f',min=1,max=1,
6232 INTERF_DYNA =SIMP(statut='o',typ=interf_dyna_clas ),
6233 MODE_MECA =SIMP(statut='o',typ=mode_meca,max='**' ),
6234 NMAX_MODE =SIMP(statut='f',typ='I',defaut= 10 ),
6236 RITZ =FACT(statut='f',min=1,max='**',
6237 regles=(UN_PARMI('MODE_STAT','MODE_MECA','MULT_ELAS','BASE_MODALE'),),
6238 MODE_MECA =SIMP(statut='f',typ=mode_meca,max='**' ),
6239 NMAX_MODE =SIMP(statut='f',typ='I',defaut= 999 ),
6240 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
6241 MULT_ELAS =SIMP(statut='f',typ=mult_elas ),
6242 BASE_MODALE =SIMP(statut='f',typ=base_modale ),
6244 DIAG_MASS =FACT(statut='f',min=1,max='**',
6245 MODE_MECA =SIMP(statut='o',typ=mode_meca,max='**' ),
6246 MODE_STAT =SIMP(statut='o',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
6248 # le bloc conditionnel remplace-t-il PRESENT_PRESENT('RITZ','NUME_REF'),
6249 # PRESENT_ABSENT('INTERF_DYNA','CLASSIQUE'),
6250 b_ritz =BLOC(condition = "RITZ != None",
6251 INTERF_DYNA =SIMP(statut='f',typ=interf_dyna_clas ),
6252 NUME_REF =SIMP(statut='o',typ=nume_ddl ),
6254 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6255 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6257 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
6258 # CONFIGURATION MANAGEMENT OF EDF VERSION
6259 # ======================================================================
6260 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
6261 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6262 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6263 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6264 # (AT YOUR OPTION) ANY LATER VERSION.
6266 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6267 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6268 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6269 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6271 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6272 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6273 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6274 # ======================================================================
6275 DEFI_CABLE_BP=OPER(nom="DEFI_CABLE_BP",op= 180,sd_prod=cabl_precont,
6277 docu="U4.42.04-a",reentrant='n',
6278 UIinfo={"groupes":("Modélisation",)},
6279 MODELE =SIMP(statut='o',typ=modele ),
6280 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
6281 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
6282 GROUP_MA_BETON =SIMP(statut='o',typ=grma),
6283 DEFI_CABLE =FACT(statut='o',min=1,max='**',
6284 regles=(UN_PARMI('MAILLE','GROUP_MA'),
6285 UN_PARMI('NOEUD_ANCRAGE','GROUP_NO_ANCRAGE'),),
6286 MAILLE =SIMP(statut='f',typ=ma,min=2,max='**'),
6287 GROUP_MA =SIMP(statut='f',typ=grma),
6288 NOEUD_ANCRAGE =SIMP(statut='f',typ=no,max=2),
6289 GROUP_NO_ANCRAGE=SIMP(statut='f',typ=grno,max=2),
6290 TYPE_ANCRAGE =SIMP(statut='o',typ='TXM',min=2,max=2,
6291 into=("ACTIF","PASSIF") ),
6293 TENSION_INIT =SIMP(statut='o',typ='R',val_min=0.E+0 ),
6294 RECUL_ANCRAGE =SIMP(statut='o',typ='R',val_min=0.E+0 ),
6295 RELAXATION =FACT(statut='f',min=0,max=1,
6296 R_J =SIMP(statut='o',typ='R',val_min=0.E+0 ),
6298 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
6300 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
6301 # CONFIGURATION MANAGEMENT OF EDF VERSION
6302 # ======================================================================
6303 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
6304 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6305 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6306 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6307 # (AT YOUR OPTION) ANY LATER VERSION.
6309 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6310 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6311 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6312 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6314 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6315 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6316 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6317 # ======================================================================
6318 DEFI_CONSTANTE=OPER(nom="DEFI_CONSTANTE",op= 2,sd_prod=fonction,
6319 fr="Définition d une fonction constante",
6320 docu="U4.31.01-f",reentrant='n',
6321 UIinfo={"groupes":("Fonction",)},
6322 NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
6323 VALE =SIMP(statut='o',typ='R',max=1 ),
6324 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6326 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
6327 # CONFIGURATION MANAGEMENT OF EDF VERSION
6328 # ======================================================================
6329 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
6330 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6331 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6332 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6333 # (AT YOUR OPTION) ANY LATER VERSION.
6335 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6336 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6337 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6338 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6340 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6341 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6342 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6343 # ======================================================================
6344 DEFI_COQU_MULT=OPER(nom="DEFI_COQU_MULT",op=56,sd_prod=mater,docu="U4.42.03-e",reentrant='n',
6345 UIinfo={"groupes":("Modélisation",)},
6346 fr="Définition d une coque composite couche par couche",
6347 COUCHE =FACT(statut='o',min=1,max='**',
6348 EPAIS =SIMP(statut='o',typ='R',val_min=0.E+0 ),
6349 MATER =SIMP(statut='o',typ=(mater) ),
6350 ORIENTATION =SIMP(statut='f',typ='R',defaut= 0.E+0,
6351 val_min=-90.E+0,val_max=90.E+0 ),
6353 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
6354 IMPRESSION =FACT(statut='f',min=1,max=1,
6355 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
6356 into=("RESULTAT",) ),
6359 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
6360 # CONFIGURATION MANAGEMENT OF EDF VERSION
6361 # ======================================================================
6362 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
6363 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6364 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6365 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6366 # (AT YOUR OPTION) ANY LATER VERSION.
6368 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6369 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6370 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6371 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6373 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6374 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6375 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6376 # ======================================================================
6377 DEFI_FLUI_STRU=OPER(nom="DEFI_FLUI_STRU",op= 143,sd_prod=type_flui_stru,
6378 docu="U4.25.01-d",reentrant='n',
6379 UIinfo={"groupes":("Maillage",)},
6380 regles=( UN_PARMI('FAISCEAU_TRANS','GRAPPE','FAISCEAU_AXIAL','COQUE_COAX',),),
6381 FAISCEAU_TRANS =FACT(statut='f',min=1,max='**',
6382 COUPLAGE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
6383 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
6384 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
6385 PROF_RHO_F_INT =SIMP(statut='f',typ=fonction ),
6386 PROF_RHO_F_EXT =SIMP(statut='f',typ=fonction ),
6387 NOM_CMP =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ") ),
6388 COEF_MASS_AJOU =SIMP(statut='f',typ='R' ),
6389 TYPE_PAS =SIMP(statut='f',typ='TXM',into=("CARRE_LIGN","TRIA_LIGN") ),
6390 TYPE_RESEAU =SIMP(statut='f',typ='I' ),
6391 UNITE_CD =SIMP(statut='f',typ='I',defaut=70),
6392 UNITE_CK =SIMP(statut='f',typ='I',defaut=71),
6393 PAS =SIMP(statut='f',typ='R' ),
6395 GRAPPE =FACT(statut='f',max=1,
6396 regles=(ENSEMBLE('GRAPPE_2','NOEUD','CARA_ELEM','MODELE','RHO_FLUI',),
6397 PRESENT_PRESENT('COEF_MASS_AJOU','GRAPPE_2', ),),
6398 # peut on créer un bloc a partir de la valeur de couplage
6399 COUPLAGE =SIMP(statut='o',typ='TXM',into=("OUI","NON") ),
6400 GRAPPE_2 =SIMP(statut='f',typ='TXM',
6401 into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC") ),
6402 NOEUD =SIMP(statut='f',typ=no),
6403 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
6404 MODELE =SIMP(statut='f',typ=modele ),
6405 COEF_MASS_AJOU =SIMP(statut='f',typ='R' ),
6406 RHO_FLUI =SIMP(statut='f',typ='R' ),
6407 UNITE_CA =SIMP(statut='f',typ='I',defaut=70),
6408 UNITE_KA =SIMP(statut='f',typ='I',defaut=71),
6410 FAISCEAU_AXIAL =FACT(statut='f',min=1,max='**',
6411 regles=(UN_PARMI('GROUP_MA','TRI_GROUP_MA'),
6412 UN_PARMI('CARA_ELEM','RAYON_TUBE'),
6413 ENSEMBLE('RAYON_TUBE','COOR_TUBE'),
6414 PRESENT_ABSENT('RAYON_TUBE','TRI_GROUP_MA'),
6415 ENSEMBLE('CARA_PAROI','VALE_PAROI'),
6416 ENSEMBLE('LONG_TYPG','LARG_TYPG','EPAI_TYPG','RUGO_TYPG','COEF_TRAI_TYPG','COEF_DPOR_TYPG',
6417 'COOR_GRILLE','TYPE_GRILLE', ),),
6418 # on doit pouvoir mettre des blocs conditionnels mais pas assez d infos pour le faire
6419 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
6420 TRI_GROUP_MA =SIMP(statut='f',typ='TXM' ),
6421 VECT_X =SIMP(statut='f',typ='R',max=3),
6422 PROF_RHO_FLUI =SIMP(statut='f',typ=fonction ),
6423 PROF_VISC_CINE =SIMP(statut='f',typ=fonction ),
6424 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
6425 RAYON_TUBE =SIMP(statut='f',typ='R' ),
6426 COOR_TUBE =SIMP(statut='f',typ='R',max='**'),
6427 PESANTEUR =SIMP(statut='f',typ='R',min=4,max=4),
6428 RUGO_TUBE =SIMP(statut='f',typ='R' ),
6429 CARA_PAROI =SIMP(statut='f',typ='TXM',max=5,
6430 into=("YC","ZC","R","HY","HZ") ),
6431 VALE_PAROI =SIMP(statut='f',typ='R',max=5),
6432 ANGL_VRIL =SIMP(statut='f',typ='R' ),
6433 LONG_TYPG =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
6434 LARG_TYPG =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
6435 EPAI_TYPG =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
6436 RUGO_TYPG =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
6437 COEF_TRAI_TYPG =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
6438 COEF_DPOR_TYPG =SIMP(statut='f',typ='R',max='**'),
6439 COOR_GRILLE =SIMP(statut='f',typ='R',max='**'),
6440 TYPE_GRILLE =SIMP(statut='f',typ='I',max='**'),
6442 COQUE_COAX =FACT(statut='f',max=1,
6443 MASS_AJOU =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
6444 GROUP_MA_INT =SIMP(statut='o',typ=grma),
6445 GROUP_MA_EXT =SIMP(statut='o',typ=grma),
6446 VECT_X =SIMP(statut='o',typ='R',max='**'),
6447 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
6448 MATER_INT =SIMP(statut='o',typ=mater ),
6449 MATER_EXT =SIMP(statut='o',typ=mater ),
6450 RHO_FLUI =SIMP(statut='o',typ='R' ),
6451 VISC_CINE =SIMP(statut='o',typ='R' ),
6452 RUGOSITE =SIMP(statut='o',typ='R' ),
6453 PDC_MOY_1 =SIMP(statut='o',typ='R' ),
6454 PDC_DYN_1 =SIMP(statut='o',typ='R' ),
6455 PDC_MOY_2 =SIMP(statut='o',typ='R' ),
6456 PDC_DYN_2 =SIMP(statut='o',typ='R' ),
6458 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6460 #& MODIF COMMANDE DATE 03/12/2002 AUTEUR DURAND C.DURAND
6461 # CONFIGURATION MANAGEMENT OF EDF VERSION
6462 # ======================================================================
6463 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
6464 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6465 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6466 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6467 # (AT YOUR OPTION) ANY LATER VERSION.
6469 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6470 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6471 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6472 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6474 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6475 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6476 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6477 # ======================================================================
6478 DEFI_FONC_ELEC=OPER(nom="DEFI_FONC_ELEC",op=64,sd_prod=fonction,docu="U4.mk.10-e",reentrant='n',
6479 UIinfo={"groupes":("Outils métier",)},
6480 fr="Définition d une fonction du temps pour calculer des forces de LAPLACE",
6481 regles=(UN_PARMI('COUR_PRIN','COUR'),
6482 EXCLUS('COUR','COUR_SECO'), ),
6483 FREQ =SIMP(statut='f',typ='R',defaut= 50.),
6484 SIGNAL =SIMP(statut='f',typ='TXM',defaut="COMPLET",into=("COMPLET","CONTINU") ),
6485 COUR =FACT(statut='f',min=1,max='**',
6486 fr="Définition du courant de court-circuit",
6487 regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),
6488 UN_PARMI('PHI_CC_2','INTC_CC_2'),),
6489 INTE_CC_1 =SIMP(statut='o',typ='R'),
6490 TAU_CC_1 =SIMP(statut='o',typ='R'),
6491 PHI_CC_1 =SIMP(statut='f',typ='R'),
6492 INTC_CC_1 =SIMP(statut='f',typ='R'),
6493 INTE_CC_2 =SIMP(statut='o',typ='R'),
6494 TAU_CC_2 =SIMP(statut='o',typ='R'),
6495 PHI_CC_2 =SIMP(statut='f',typ='R'),
6496 INTC_CC_2 =SIMP(statut='f',typ='R'),
6497 INST_CC_INIT =SIMP(statut='o',typ='R'),
6498 INST_CC_FIN =SIMP(statut='o',typ='R'),
6500 COUR_PRIN =FACT(statut='f',min=1,max=1,
6501 fr="Définition du courant de court-circuit avec réenclenchement",
6502 regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),),
6503 INTE_CC_1 =SIMP(statut='o',typ='R'),
6504 TAU_CC_1 =SIMP(statut='o',typ='R'),
6505 PHI_CC_1 =SIMP(statut='f',typ='R'),
6506 INTC_CC_1 =SIMP(statut='f',typ='R'),
6507 INTE_RENC_1 =SIMP(statut='f',typ='R'),
6508 TAU_RENC_1 =SIMP(statut='f',typ='R'),
6509 PHI_RENC_1 =SIMP(statut='f',typ='R'),
6510 INST_CC_INIT =SIMP(statut='o',typ='R'),
6511 INST_CC_FIN =SIMP(statut='o',typ='R'),
6512 INST_RENC_INIT =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6513 INST_RENC_FIN =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6515 COUR_SECO =FACT(statut='f',min=1,max='**',
6516 fr="Définition du courant de court-circuit avec un intervalle de temps différent de celui de COUR_PRIN",
6517 regles=(UN_PARMI('PHI_CC_2','INTC_CC_2'),),
6518 INTE_CC_2 =SIMP(statut='o',typ='R'),
6519 TAU_CC_2 =SIMP(statut='o',typ='R'),
6520 PHI_CC_2 =SIMP(statut='f',typ='R'),
6521 INTC_CC_2 =SIMP(statut='f',typ='R'),
6522 INTE_RENC_2 =SIMP(statut='f',typ='R'),
6523 TAU_RENC_2 =SIMP(statut='f',typ='R'),
6524 PHI_RENC_2 =SIMP(statut='f',typ='R'),
6525 DIST =SIMP(statut='f',typ='R',defaut=1.0E+0),
6527 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
6529 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
6530 # CONFIGURATION MANAGEMENT OF EDF VERSION
6531 # ======================================================================
6532 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
6533 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6534 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6535 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6536 # (AT YOUR OPTION) ANY LATER VERSION.
6538 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6539 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6540 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6541 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6543 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6544 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6545 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6546 # ======================================================================
6547 DEFI_FONC_FLUI=OPER(nom="DEFI_FONC_FLUI",op= 142,sd_prod=fonction,
6548 docu="U4.35.01-c",reentrant='n',
6549 UIinfo={"groupes":("Fonction",)},
6550 MAILLAGE =SIMP(statut='o',typ=(maillage) ),
6551 NOEUD_INIT =SIMP(statut='o',typ=no),
6552 NOEUD_FIN =SIMP(statut='o',typ=no),
6553 VITE =FACT(statut='o',min=1,max=1,
6554 VALE =SIMP(statut='f',typ='R',defaut= 1. ),
6555 PROFIL =SIMP(statut='o',typ='TXM',into=("UNIFORME","LEONARD") ),
6556 NB_BAV =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 2 , 3 ) ),
6558 INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",
6559 into=("NON","LIN","LOG") ),
6560 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",
6561 into=("CONSTANT","LINEAIRE","EXCLU") ),
6562 PROL_GAUCHE =SIMP(statut='f',typ='TXM' ,defaut="EXCLU",
6563 into=("CONSTANT","LINEAIRE","EXCLU") ),
6564 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
6565 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6567 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
6568 # CONFIGURATION MANAGEMENT OF EDF VERSION
6569 # ======================================================================
6570 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
6571 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6572 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6573 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6574 # (AT YOUR OPTION) ANY LATER VERSION.
6576 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6577 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6578 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6579 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6581 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6582 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6583 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6584 # ======================================================================
6585 # RESPONSABLE MCOURTOI M.COURTOIS
6586 def defi_fonction_prod(VALE,VALE_PARA,VALE_C,NOEUD_PARA,**args):
6587 if VALE != None : return fonction
6588 if VALE_C != None : return fonction_c
6589 if VALE_PARA != None : return fonction
6590 if NOEUD_PARA != None : return fonction
6591 raise AsException("type de concept resultat non prevu")
6593 DEFI_FONCTION=OPER(nom="DEFI_FONCTION",op=3,sd_prod=defi_fonction_prod
6594 ,fr="Définition des valeurs réelles ou complexes d une fonction réelle",
6595 docu="U4.31.02-g3",reentrant='n',
6596 UIinfo={"groupes":("Fonction",)},
6597 regles=(UN_PARMI('VALE','VALE_C','VALE_PARA','NOEUD_PARA'),),
6598 NOM_PARA =SIMP(statut='o',typ='TXM',
6599 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
6600 "INST","X","Y","Z","EPSI","META","FREQ","PULS",
6601 "AMOR","ABSC","SIGM","HYDR","SECH","PORO","SAT",
6602 "PGAZ","PCAP","VITE") ),
6603 NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
6604 VALE =SIMP(statut='f',typ='R',min=2,max='**',
6605 fr ="Fonction réelle définie par une liste de couples (abscisse,ordonnée)"),
6606 VALE_C =SIMP(statut='f',typ='R',min=2,max='**',
6607 fr ="Fonction complexe définie par une liste de couples"),
6608 VALE_PARA =SIMP(statut='f',typ=listr8,
6609 fr ="Fonction réelle définie par deux concepts de type listr8" ),
6610 b_vale_para =BLOC(condition = "VALE_PARA != None",
6611 VALE_FONC =SIMP(statut='o',typ=listr8 ),
6613 NOEUD_PARA =SIMP(statut='f',typ=no,max='**',
6614 fr ="Fonction réelle définie par une liste de noeuds et un maillage"),
6615 b_noeud_para =BLOC(condition = "NOEUD_PARA != None",
6616 MAILLAGE =SIMP(statut='o',typ=maillage ),
6617 VALE_Y =SIMP(statut='o',typ='R',max='**'),
6620 INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
6621 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6622 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6623 VERIF =SIMP(statut='f',typ='TXM',defaut="CROISSANT",into=("CROISSANT","NON") ),
6624 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6625 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6627 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
6628 # CONFIGURATION MANAGEMENT OF EDF VERSION
6629 # ======================================================================
6630 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
6631 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6632 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6633 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6634 # (AT YOUR OPTION) ANY LATER VERSION.
6636 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6637 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6638 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6639 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6641 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6642 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6643 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6644 # ======================================================================
6645 DEFI_FOND_FISS=OPER(nom="DEFI_FOND_FISS",op=55,sd_prod=fond_fiss,docu="U4.82.01-e",reentrant='n',
6646 UIinfo={"groupes":("Post traitements",)},
6647 fr="Définition de lèvres et d un fond de fissure en 3D",
6648 regles=(UN_PARMI('FOND','FOND_FERME'),
6649 EXCLUS('FOND_FERME','DTAN_ORIG'),
6650 EXCLUS('FOND_FERME','DTAN_EXTR'),
6651 EXCLUS('FOND_FERME','VECT_GRNO_ORIG'),
6652 EXCLUS('FOND_FERME','VECT_GRNO_EXTR'),
6653 UN_PARMI('LEVRE_SUP','NORMALE'),
6654 EXCLUS('LEVRE_INF','NORMALE'),
6655 ENSEMBLE('DTAN_ORIG','DTAN_EXTR'),
6656 ENSEMBLE('VECT_GRNO_ORIG','VECT_GRNO_EXTR'),
6657 EXCLUS('DTAN_ORIG','VECT_GRNO_ORIG'),
6658 EXCLUS('DTAN_EXTR','VECT_GRNO_EXTR') ,),
6659 MAILLAGE =SIMP(statut='o',typ=maillage ),
6660 FOND =FACT(statut='f',min=1,max=1,
6661 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
6662 EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
6663 EXCLUS('NOEUD_EXTR','GROUP_NO_EXTR'),),
6664 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
6665 NOEUD =SIMP(statut='f',typ=no,max='**'),
6666 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
6667 MAILLE =SIMP(statut='f',typ=ma,max='**'),
6668 # à mettre à jour le max vaut-il 1
6669 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
6670 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
6671 NOEUD_EXTR =SIMP(statut='f',typ=no,max=1),
6672 GROUP_NO_EXTR =SIMP(statut='f',typ=grno,max=1),
6674 FOND_FERME =FACT(statut='f',min=1,max=1,
6675 regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
6676 EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),),
6677 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
6678 NOEUD =SIMP(statut='f',typ=no,max='**'),
6679 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
6680 MAILLE =SIMP(statut='f',typ=ma,max='**'),
6681 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
6682 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
6683 MAILLE_ORIG =SIMP(statut='f',typ=ma,max=1),
6684 GROUP_MA_ORIG =SIMP(statut='f',typ=ma,max=1),
6686 LEVRE_SUP =FACT(statut='f',min=1,max=1,
6687 regles=(UN_PARMI('GROUP_MA','MAILLE'),),
6688 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
6689 MAILLE =SIMP(statut='f',typ=ma,max='**'),
6691 LEVRE_INF =FACT(statut='f',min=1,max=1,
6692 regles=(UN_PARMI('GROUP_MA','MAILLE', ),),
6693 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
6694 MAILLE =SIMP(statut='f',typ=ma,max='**'),
6696 NORMALE =SIMP(statut='f',typ='R',max='**'),
6697 DTAN_ORIG =SIMP(statut='f',typ='R',max='**'),
6698 DTAN_EXTR =SIMP(statut='f',typ='R',max='**'),
6699 VECT_GRNO_ORIG =SIMP(statut='f',typ=grno,max=2),
6700 VECT_GRNO_EXTR =SIMP(statut='f',typ=grno,max=2),
6701 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
6703 #& MODIF COMMANDE DATE 07/01/2003 AUTEUR GJBHHEL E.LORENTZ
6704 # CONFIGURATION MANAGEMENT OF EDF VERSION
6705 # ======================================================================
6706 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
6707 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6708 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6709 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6710 # (AT YOUR OPTION) ANY LATER VERSION.
6712 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6713 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6714 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6715 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6717 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6718 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6719 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6720 # ======================================================================
6721 # RESPONSABLE VABHHTS J.PELLET
6722 def defi_group_prod(MAILLAGE,**args):
6723 if AsType(MAILLAGE) == maillage : return maillage
6724 if AsType(MAILLAGE) == squelette : return squelette
6725 raise AsException("type de concept resultat non prevu")
6727 DEFI_GROUP=OPER(nom="DEFI_GROUP",op= 104,sd_prod=defi_group_prod,
6728 fr="Définition de nouveaux groupes de noeuds et/ou de mailles dans un concept maillage",
6729 docu="U4.22.01-f1",reentrant='o',
6730 UIinfo={"groupes":("Maillage",)},
6731 regles=(AU_MOINS_UN('CREA_GROUP_MA','CREA_GROUP_NO'),),
6732 MAILLAGE =SIMP(statut='o',typ=(maillage,squelette) ),
6734 CREA_GROUP_MA =FACT(statut='f',min=1,max='**',
6735 regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','INTERSEC','UNION','DIFFE','OPTION'),),
6736 # quel est le concept attendu deriere NOM
6737 NOM =SIMP(statut='o',typ=grma),
6738 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6739 GROUP_MA =SIMP(statut='f',typ=grma),
6740 MAILLE =SIMP(statut='f',typ=ma,max='**'),
6741 INTERSEC =SIMP(statut='f',typ=grma,max='**'),
6742 UNION =SIMP(statut='f',typ=grma,max='**'),
6743 DIFFE =SIMP(statut='f',typ=grma,max='**'),
6744 OPTION =SIMP(statut='f',typ='TXM',into=("FACE_NORMALE","SPHERE","CYLINDRE","BANDE") ),
6745 b_group_ma =BLOC(condition = "GROUP_MA != None",
6746 regles=(EXCLUS('POSITION','NUME_INIT'),),
6747 NUME_INIT =SIMP(statut='f',typ='I'),
6748 POSITION =SIMP(statut='f',typ='TXM',into=("INIT","FIN","MILIEU") ),
6749 b_nume_init =BLOC(condition = "NUME_INIT != None",
6750 NUME_FIN =SIMP(statut='f',typ='I' ),
6753 b_face_normale =BLOC(condition = "OPTION == 'FACE_NORMALE'",
6754 regles=(UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
6755 ANGL_NAUT =SIMP(statut='f',typ='R',max=2),
6756 VECT_NORMALE =SIMP(statut='f',typ='R',max=3),
6757 ANGL_PREC =SIMP(statut='f',typ='R',defaut= 0.5 ),
6758 VERI_SIGNE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
6760 b_sphere =BLOC(condition = "OPTION == 'SPHERE'",
6761 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),),
6762 POINT =SIMP(statut='f',typ='R',max=3),
6763 NOEUD_CENTRE =SIMP(statut='f',typ=no),
6764 RAYON =SIMP(statut='o',typ='R' ),
6766 b_cylindre =BLOC(condition = "OPTION == 'CYLINDRE'",
6767 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
6768 UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
6769 POINT =SIMP(statut='f',typ='R',max=3),
6770 NOEUD_CENTRE =SIMP(statut='f',typ=no),
6771 RAYON =SIMP(statut='o',typ='R' ),
6772 ANGL_NAUT =SIMP(statut='f',typ='R',max=2),
6773 VECT_NORMALE =SIMP(statut='f',typ='R',max=3),
6775 b_bande =BLOC(condition = "OPTION == 'BANDE'",
6776 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
6777 UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
6778 POINT =SIMP(statut='f',typ='R',max=3),
6779 NOEUD_CENTRE =SIMP(statut='f',typ=no),
6780 DIST =SIMP(statut='o',typ='R' ),
6781 ANGL_NAUT =SIMP(statut='f',typ='R',max=2),
6782 VECT_NORMALE =SIMP(statut='f',typ='R',max=3),
6785 CREA_GROUP_NO =FACT(statut='f',min=1,max='**',
6787 AU_MOINS_UN ('TOUT_GROUP_MA','GROUP_MA','NOEUD',
6788 'INTERSEC','UNION','DIFFE','GROUP_NO','OPTION'),
6789 EXCLUS ('TOUT_GROUP_MA','GROUP_MA','NOEUD','INTERSEC','UNION','DIFFE'),),
6790 TOUT_GROUP_MA =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6791 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
6793 NOEUD =SIMP(statut='f',typ=no,max='**'),
6794 INTERSEC =SIMP(statut='f',typ=grno,max='**'),
6795 UNION =SIMP(statut='f',typ=grno,max='**'),
6796 DIFFE =SIMP(statut='f',typ=grno,max='**'),
6797 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
6798 OPTION =SIMP(statut='f',typ='TXM',into=("ENV_SPHERE","ENV_CYLINDRE","PLAN",
6799 "SEGM_DROI_ORDO","NOEUD_ORDO") ),
6800 b_nom_group_ma =BLOC(condition = "GROUP_MA != None",
6801 NOM =SIMP(statut='f',typ=grma,max='**'),
6803 b_crit_noeud = BLOC(condition = "GROUP_MA != None",
6804 CRIT_NOEUD = SIMP(statut='f',typ='TXM',defaut="TOUS",
6805 into=("TOUS","SOMMET","MILIEU","CENTRE"),),),
6806 b_nom =BLOC(condition = "GROUP_MA == None and TOUT_GROUP_MA == None" ,
6807 NOM =SIMP(statut='o',typ=geom),
6809 b_group_no =BLOC(condition = "GROUP_NO != None",
6810 regles=(EXCLUS('POSITION','NUME_INIT'),),
6811 NUME_INIT =SIMP(statut='f',typ='I'),
6812 POSITION =SIMP(statut='f',typ='TXM',into=("INIT","FIN","MILIEU") ),
6813 b_nume_init =BLOC(condition = "NUME_INIT != None",
6814 NUME_FIN =SIMP(statut='f',typ='I' ),
6817 b_env_sphere =BLOC(condition = "OPTION == 'ENV_SPHERE'",
6818 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),),
6819 POINT =SIMP(statut='f',typ='R',max=3),
6820 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=1),
6821 RAYON =SIMP(statut='o',typ='R' ),
6822 PRECISION =SIMP(statut='f',typ='R' ),
6823 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
6825 b_env_cylindre =BLOC(condition = "OPTION == 'ENV_CYLINDRE'",
6826 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
6827 UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
6828 POINT =SIMP(statut='f',typ='R',max=3),
6829 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=1),
6830 RAYON =SIMP(statut='o',typ='R' ),
6831 ANGL_NAUT =SIMP(statut='f',typ='R',max=3),
6832 VECT_NORMALE =SIMP(statut='f',typ='R',max=3),
6833 PRECISION =SIMP(statut='f',typ='R' ),
6834 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
6836 b_env_plan =BLOC(condition = "OPTION == 'PLAN'",
6837 regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
6838 UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
6839 POINT =SIMP(statut='f',typ='R',max=3),
6840 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=1),
6841 ANGL_NAUT =SIMP(statut='f',typ='R',max=3),
6842 VECT_NORMALE =SIMP(statut='f',typ='R',max=3),
6843 PRECISION =SIMP(statut='f',typ='R' ),
6844 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
6846 b_segm_droi_ordo=BLOC(condition = "OPTION == 'SEGM_DROI_ORDO'",
6847 regles=(UN_PARMI('NOEUD_ORIG','GROUP_NO_ORIG'),
6848 UN_PARMI('NOEUD_EXTR','GROUP_NO_EXTR'),),
6849 NOEUD_ORIG =SIMP(statut='f',typ=no),
6850 GROUP_NO_ORIG =SIMP(statut='f',typ=grno),
6851 NOEUD_EXTR =SIMP(statut='f',typ=no),
6852 GROUP_NO_EXTR =SIMP(statut='f',typ=grno),
6853 PRECISION =SIMP(statut='f',typ='R' ),
6854 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
6856 b_noeud_ordo =BLOC(condition = "OPTION == 'NOEUD_ORDO'",
6857 regles=(EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
6858 EXCLUS('NOEUD_EXTR','GROUP_NO_EXTR'),),
6859 NOEUD_ORIG =SIMP(statut='f',typ=no),
6860 GROUP_NO_ORIG =SIMP(statut='f',typ=grno),
6861 NOEUD_EXTR =SIMP(statut='f',typ=no),
6862 GROUP_NO_EXTR =SIMP(statut='f',typ=grno),
6863 PRECISION =SIMP(statut='f',typ='R' ),
6864 CRITERE =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
6867 INFO =SIMP(statut='f',typ='I',into=( 1 , 2 ) ),
6869 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
6870 # CONFIGURATION MANAGEMENT OF EDF VERSION
6871 # ======================================================================
6872 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
6873 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6874 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6875 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6876 # (AT YOUR OPTION) ANY LATER VERSION.
6878 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6879 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6880 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6881 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6883 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6884 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6885 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6886 # ======================================================================
6887 DEFI_INTE_SPEC=OPER(nom="DEFI_INTE_SPEC",op= 115,sd_prod=tabl_intsp,
6888 docu="U4.36.02-f2",reentrant='n',
6889 UIinfo={"groupes":("Fonction",)},
6891 DIMENSION =SIMP(statut='f',typ='I',defaut= 1 ),
6893 PAR_FONCTION =FACT(statut='f',min=1,max='**',
6894 NUME_ORDRE_I =SIMP(statut='o',typ='I' ),
6895 NUME_ORDRE_J =SIMP(statut='o',typ='I' ),
6896 FONCTION =SIMP(statut='o',typ=fonction_c ),
6898 KANAI_TAJIMI =FACT(statut='f',min=1,max='**',
6899 regles=(EXCLUS('VALE_R','VALE_C'),),
6900 NUME_ORDRE_I =SIMP(statut='o',typ='I' ),
6901 NUME_ORDRE_J =SIMP(statut='o',typ='I' ),
6902 FREQ_MIN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6903 FREQ_MAX =SIMP(statut='f',typ='R',defaut= 100. ),
6904 PAS =SIMP(statut='f',typ='R',defaut= 1. ),
6905 AMOR_REDUIT =SIMP(statut='f',typ='R',defaut= 0.6 ),
6906 FREQ_MOY =SIMP(statut='f',typ='R',defaut= 5. ),
6907 VALE_R =SIMP(statut='f',typ='R' ),
6908 VALE_C =SIMP(statut='f',typ='C' ),
6909 INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
6910 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6911 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6913 CONSTANT =FACT(statut='f',min=1,max='**',
6914 regles=(EXCLUS('VALE_R','VALE_C'),),
6915 NUME_ORDRE_I =SIMP(statut='o',typ='I' ),
6916 NUME_ORDRE_J =SIMP(statut='o',typ='I' ),
6917 FREQ_MIN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6918 FREQ_MAX =SIMP(statut='f',typ='R',defaut= 100. ),
6919 PAS =SIMP(statut='f',typ='R',defaut= 1. ),
6920 VALE_R =SIMP(statut='f',typ='R' ),
6921 VALE_C =SIMP(statut='f',typ='C' ),
6922 INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
6923 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6924 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6926 TITRE =SIMP(statut='f',typ='TXM',max='**'),
6927 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6929 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
6930 # CONFIGURATION MANAGEMENT OF EDF VERSION
6931 # ======================================================================
6932 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
6933 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6934 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6935 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6936 # (AT YOUR OPTION) ANY LATER VERSION.
6938 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6939 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6940 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6941 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6943 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6944 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6945 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6946 # ======================================================================
6947 DEFI_INTERF_DYNA=OPER(nom="DEFI_INTERF_DYNA",op= 98,sd_prod=interf_dyna_clas,
6948 docu="U4.64.01-e",reentrant='n',
6949 UIinfo={"groupes":("Matrices/vecteurs",)},
6950 NUME_DDL =SIMP(statut='o',typ=nume_ddl ),
6951 INTERFACE =FACT(statut='o',min=1,max='**',
6952 regles=(ENSEMBLE('NOM','TYPE'),
6953 # erreur doc U sur la condition qui suit
6954 UN_PARMI('NOEUD','GROUP_NO'),),
6955 NOM =SIMP(statut='f',typ='TXM' ),
6956 TYPE =SIMP(statut='f',typ='TXM',into=("MNEAL","CRAIGB","CB_HARMO","AUCUN") ),
6957 NOEUD =SIMP(statut='f',typ=no,max='**'),
6958 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
6959 DDL_ACTIF =SIMP(statut='f',typ='TXM',max='**'),
6960 MASQUE =SIMP(statut='f',typ='TXM',max='**'),
6962 FREQ =SIMP(statut='f',typ='R',defaut= 1.),
6963 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6965 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
6966 # CONFIGURATION MANAGEMENT OF EDF VERSION
6967 # ======================================================================
6968 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
6969 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6970 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6971 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6972 # (AT YOUR OPTION) ANY LATER VERSION.
6974 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6975 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6976 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6977 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6979 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6980 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6981 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6982 # ======================================================================
6983 # RESPONSABLE VABHHTS J.PELLET
6984 DEFI_LIST_ENTI=OPER(nom="DEFI_LIST_ENTI",op=22,sd_prod=listis,
6985 fr="Définition d une suite croissante d entiers",
6986 docu="U4.34.02-f",reentrant='n',
6987 UIinfo={"groupes":("Fonction",)},
6988 regles=(UN_PARMI('VALE','DEBUT'),
6989 EXCLUS('VALE','INTERVALLE'),),
6990 VALE =SIMP(statut='f',typ='I',max='**'),
6991 DEBUT =SIMP(statut='f',typ='I'),
6992 INTERVALLE =FACT(statut='f',min=1,max='**',
6993 regles=(UN_PARMI('NOMBRE','PAS'),),
6994 JUSQU_A =SIMP(statut='o',typ='I'),
6995 NOMBRE =SIMP(statut='f',typ='I',val_min=1,),
6996 PAS =SIMP(statut='f',typ='I',val_min=1,),
6998 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
6999 TITRE =SIMP(statut='f',typ='TXM',max='**'),
7001 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
7002 # CONFIGURATION MANAGEMENT OF EDF VERSION
7003 # ======================================================================
7004 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7005 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7006 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7007 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7008 # (AT YOUR OPTION) ANY LATER VERSION.
7010 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7011 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7012 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7013 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7015 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7016 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7017 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7018 # ======================================================================
7019 # RESPONSABLE VABHHTS J.PELLET
7020 DEFI_LIST_REEL=OPER(nom="DEFI_LIST_REEL",op=24,sd_prod=listr8,
7021 fr="Définition d une suite croissante de réels",
7022 docu="U4.34.01-g1",reentrant='n',
7023 UIinfo={"groupes":("Fonction",)},
7024 regles=(UN_PARMI('VALE','DEBUT',),
7025 EXCLUS('VALE','INTERVALLE'),
7026 ENSEMBLE('DEBUT','INTERVALLE')),
7027 VALE =SIMP(statut='f',typ='R',max='**'),
7028 DEBUT =SIMP(statut='f',typ='R'),
7029 INTERVALLE =FACT(statut='f',min=1,max='**',
7030 regles=(UN_PARMI('NOMBRE','PAS'),),
7031 JUSQU_A =SIMP(statut='o',typ='R'),
7032 NOMBRE =SIMP(statut='f',typ='I'),
7033 PAS =SIMP(statut='f',typ='R'),
7035 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
7036 TITRE =SIMP(statut='f',typ='TXM',max='**'),
7038 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
7039 # CONFIGURATION MANAGEMENT OF EDF VERSION
7040 # ======================================================================
7041 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7042 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7043 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7044 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7045 # (AT YOUR OPTION) ANY LATER VERSION.
7047 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7048 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7049 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7050 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7052 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7053 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7054 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7055 # ======================================================================
7056 # RESPONSABLE VABHHTS J.PELLET
7057 DEFI_MAILLAGE=OPER(nom="DEFI_MAILLAGE",op= 88,sd_prod=maillage,
7058 fr="Définition d un nouveau maillage à partir de macro éléments",
7059 docu="U4.23.01-e",reentrant='n',
7060 UIinfo={"groupes":("Maillage",)},
7061 DEFI_MAILLE =FACT(statut='o',min=1,max='**',
7062 MACR_ELEM_STAT =SIMP(statut='o',typ=macr_elem_stat,max='**' ),
7063 MAILLE =SIMP(statut='f',typ=ma,max='**'),
7064 TRAN =SIMP(statut='f',typ='R',max=3),
7065 ANGL_NAUT =SIMP(statut='f',typ='R',max=3),
7066 b_angl_naut =BLOC(condition = "ANGL_NAUT != None",
7067 CENTRE =SIMP(statut='f',typ='R',max=3),
7070 RECO_GLOBAL =FACT(statut='f',min=1,max='**',
7071 regles=(UN_PARMI('TOUT','MAILLE'),),
7072 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7073 MAILLE =SIMP(statut='f',typ=ma,max='**'),
7074 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7075 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
7077 RECO_MAILLE =FACT(statut='f',min=1,max='**',
7078 MAILLE =SIMP(statut='o',typ=ma,max='**'),
7079 GROUP_NO =SIMP(statut='o',typ=grno,max='**'),
7080 OPTION =SIMP(statut='f',typ='TXM',defaut="GEOMETRIQUE",into=("GEOMETRIQUE","NOEUD_A_NOEUD","INVERSE") ),
7081 geometrique =BLOC(condition = "OPTION == 'GEOMETRIQUE'",
7082 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7083 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
7086 DEFI_NOEUD =FACT(statut='f',min=1,max='**',
7087 regles=(UN_PARMI('TOUT','NOEUD_INIT'),),
7088 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",),
7089 fr="Renommage de tous les noeuds" ),
7090 NOEUD_INIT =SIMP(statut='f',typ=no,
7091 fr="Renommage d un seul noeud"),
7092 b_tout =BLOC(condition = "TOUT != None",
7093 PREFIXE =SIMP(statut='f',typ='TXM' ),
7094 INDEX =SIMP(statut='o',typ='I',max='**'),
7096 b_noeud_init =BLOC(condition = "NOEUD_INIT != None",
7097 MAILLE =SIMP(statut='o',typ=ma),
7098 NOEUD_FIN =SIMP(statut='o',typ=no),
7101 DEFI_GROUP_NO =FACT(statut='f',min=1,max='**',
7102 regles=(UN_PARMI('TOUT','MAILLE'),
7103 AU_MOINS_UN('INDEX','GROUP_NO_FIN'),
7104 ENSEMBLE('GROUP_NO_INIT','GROUP_NO_FIN'),),
7105 # la regle ancien catalogue AU_MOINS_UN__: ( INDEX , GROUP_NO_FIN ) incoherente avec doc U
7106 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",),
7107 fr="Création de plusieurs groupes de noeuds" ),
7108 MAILLE =SIMP(statut='f',typ=ma,
7109 fr="Création de plusieurs groupes de noeuds"),
7110 GROUP_NO_INIT =SIMP(statut='f',typ=grno,
7111 fr="Création d un seul groupe de noeuds"),
7112 PREFIXE =SIMP(statut='f',typ='TXM' ),
7113 INDEX =SIMP(statut='f',typ='I',max='**'),
7114 GROUP_NO_FIN =SIMP(statut='f',typ=grno),
7117 #& MODIF COMMANDE DATE 24/02/2003 AUTEUR F6BHHBO P.DEBONNIERES
7118 # CONFIGURATION MANAGEMENT OF EDF VERSION
7119 # ======================================================================
7120 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
7121 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7122 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7123 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7124 # (AT YOUR OPTION) ANY LATER VERSION.
7126 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7127 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7128 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7129 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7131 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7132 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7133 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7134 # ======================================================================
7135 DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater,
7136 fr="Définition des paramètres décrivant le comportement d un matériau",
7137 docu="U4.43.01-g4",reentrant='n',
7138 UIinfo={"groupes":("Modélisation",)},
7139 regles=(EXCLUS('ELAS','ELAS_FO','ELAS_FLUI','ELAS_ISTR','ELAS_ISTR_FO','ELAS_ORTH',
7140 'ELAS_ORTH_FO','ELAS_COQUE','ELAS_COQUE_FO',
7141 'SURF_ETAT_SATU','CAM_CLAY_THM','SURF_ETAT_NSAT'),
7142 EXCLUS('THER','THER_FO','THER_ORTH','THER_NL'),
7143 EXCLUS('ECRO_LINE','ECRO_LINE_FO'),
7144 EXCLUS('TAHERI','TAHERI_FO'),
7145 EXCLUS('ROUSSELIER','ROUSSELIER_FO'),
7146 PRESENT_PRESENT('ROUSSELIER','TRACTION'),
7147 PRESENT_PRESENT('ROUSSELIER_FO','TRACTION'),
7148 EXCLUS('CIN1_CHAB','CIN1_CHAB_FO'),
7149 EXCLUS('CIN2_CHAB','CIN2_CHAB_FO'),
7150 EXCLUS('VISCOCHAB','VISCOCHAB_FO'),
7151 EXCLUS('POLY_CFC','POLY_CFC_FO'),
7152 EXCLUS('LEMAITRE','LEMAITRE_FO','ZIRC_CYRA2','ZIRC_EPRI'),
7153 EXCLUS('OHNO','OHNO_FO'),
7154 EXCLUS('LMARC','LMARC_FO'),
7155 EXCLUS('VMIS_POUTRE','VMIS_POUTRE_FO'),
7156 EXCLUS('VENDOCHAB','VENDOCHAB_FO'),
7157 PRESENT_PRESENT('BPEL_ACIER','ELAS'),
7158 EXCLUS('RCCM','RCCM_FO'),
7159 EXCLUS('WEIBULL','WEIBULL_FO'),
7160 PRESENT_PRESENT('CAM_CLAY','ELAS'),
7161 PRESENT_PRESENT('LAIGLE','ELAS'),
7162 EXCLUS('MAZARS','MAZARS_FO'),
7163 PRESENT_PRESENT('BAZANT_FD','ELAS_FO'),
7167 # comportement élastique
7169 ELAS =FACT(statut='f',min=0,max=1,
7170 E =SIMP(statut='o',typ='R',val_min=0.E+0),
7171 NU =SIMP(statut='o',typ='R',val_min=-1.E+0,val_max=0.5E+0),
7172 RHO =SIMP(statut='f',typ='R'),
7173 ALPHA =SIMP(statut='f',typ='R'),
7174 AMOR_ALPHA =SIMP(statut='f',typ='R'),
7175 AMOR_BETA =SIMP(statut='f',typ='R'),
7176 AMOR_HYST =SIMP(statut='f',typ='R'),
7178 ELAS_FO =FACT(statut='f',min=0,max=1,
7179 regles=(PRESENT_PRESENT('ALPHA','TEMP_DEF_ALPHA'),),
7180 E =SIMP(statut='o',typ=fonction),
7181 NU =SIMP(statut='o',typ=fonction),
7182 RHO =SIMP(statut='f',typ='R'),
7183 TEMP_DEF_ALPHA =SIMP(statut='f',typ='R'),
7184 PRECISION =SIMP(statut='f',typ='R',defaut= 1.),
7185 ALPHA =SIMP(statut='f',typ=fonction),
7186 AMOR_ALPHA =SIMP(statut='f',typ=fonction),
7187 AMOR_BETA =SIMP(statut='f',typ=fonction),
7188 AMOR_HYST =SIMP(statut='f',typ=fonction),
7189 K_DESSIC =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7190 B_ENDOGE =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7191 FONC_DESORP =SIMP(statut='f',typ=fonction),
7192 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
7193 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="INST",into=("TEMP","INST",) ),
7194 VERI_P3 =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
7195 VERI_P4 =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
7197 ELAS_FLUI =FACT(statut='f',min=0,max=1,
7198 E =SIMP(statut='o',typ='R'),
7199 NU =SIMP(statut='o',typ='R'),
7200 RHO =SIMP(statut='o',typ='R'),
7201 PROF_RHO_F_INT =SIMP(statut='o',typ=fonction),
7202 PROF_RHO_F_EXT =SIMP(statut='o',typ=fonction),
7203 COEF_MASS_AJOU =SIMP(statut='o',typ=fonction),
7204 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="ABSC",into=("ABSC",) ),
7206 ELAS_ISTR =FACT(statut='f',min=0,max=1,
7207 E_L =SIMP(statut='o',typ='R'),
7208 E_N =SIMP(statut='o',typ='R'),
7209 NU_LT =SIMP(statut='o',typ='R'),
7210 NU_LN =SIMP(statut='o',typ='R'),
7211 G_LN =SIMP(statut='o',typ='R'),
7212 RHO =SIMP(statut='f',typ='R'),
7213 ALPHA_L =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7214 ALPHA_N =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7216 ELAS_ISTR_FO =FACT(statut='f',min=0,max=1,
7218 PRESENT_PRESENT('ALPHA_L','TEMP_DEF_ALPHA'),
7219 PRESENT_PRESENT('ALPHA_N','TEMP_DEF_ALPHA'),
7221 E_L =SIMP(statut='o',typ=fonction),
7222 E_N =SIMP(statut='o',typ=fonction),
7223 NU_LT =SIMP(statut='o',typ=fonction),
7224 NU_LN =SIMP(statut='o',typ=fonction),
7225 G_LN =SIMP(statut='o',typ=fonction),
7226 RHO =SIMP(statut='f',typ='R'),
7227 TEMP_DEF_ALPHA =SIMP(statut='f',typ='R'),
7228 PRECISION =SIMP(statut='f',typ='R',defaut= 1.),
7229 ALPHA_L =SIMP(statut='f',typ=fonction),
7230 ALPHA_N =SIMP(statut='f',typ=fonction),
7231 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST")),
7233 ELAS_ORTH =FACT(statut='f',min=0,max=1,
7234 E_L =SIMP(statut='o',typ='R'),
7235 E_T =SIMP(statut='o',typ='R'),
7236 E_N =SIMP(statut='f',typ='R'),
7237 NU_LT =SIMP(statut='o',typ='R'),
7238 NU_LN =SIMP(statut='f',typ='R'),
7239 NU_TN =SIMP(statut='f',typ='R'),
7240 G_LT =SIMP(statut='o',typ='R'),
7241 G_LN =SIMP(statut='f',typ='R'),
7242 G_TN =SIMP(statut='f',typ='R'),
7243 RHO =SIMP(statut='f',typ='R'),
7244 ALPHA_L =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7245 ALPHA_T =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7246 ALPHA_N =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7247 XT =SIMP(statut='f',typ='R',defaut= 1. ),
7248 XC =SIMP(statut='f',typ='R',defaut= 1. ),
7249 YT =SIMP(statut='f',typ='R',defaut= 1. ),
7250 YC =SIMP(statut='f',typ='R',defaut= 1. ),
7251 S_LT =SIMP(statut='f',typ='R',defaut= 1. ),
7253 ELAS_ORTH_FO =FACT(statut='f',min=0,max=1,
7255 PRESENT_PRESENT('ALPHA_L','TEMP_DEF_ALPHA'),
7256 PRESENT_PRESENT('ALPHA_N','TEMP_DEF_ALPHA'),
7257 PRESENT_PRESENT('ALPHA_T','TEMP_DEF_ALPHA'),
7259 E_L =SIMP(statut='o',typ=fonction),
7260 E_T =SIMP(statut='o',typ=fonction),
7261 E_N =SIMP(statut='o',typ=fonction),
7262 NU_LT =SIMP(statut='o',typ=fonction),
7263 NU_LN =SIMP(statut='o',typ=fonction),
7264 NU_TN =SIMP(statut='o',typ=fonction),
7265 G_LT =SIMP(statut='o',typ=fonction),
7266 G_LN =SIMP(statut='o',typ=fonction),
7267 G_TN =SIMP(statut='o',typ=fonction),
7268 RHO =SIMP(statut='f',typ='R'),
7269 TEMP_DEF_ALPHA =SIMP(statut='f',typ='R'),
7270 PRECISION =SIMP(statut='f',typ='R',defaut= 1. ),
7271 ALPHA_L =SIMP(statut='f',typ=fonction),
7272 ALPHA_T =SIMP(statut='f',typ=fonction),
7273 ALPHA_N =SIMP(statut='f',typ=fonction),
7274 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
7276 ELAS_THM =FACT(statut='f',min=0,max=1,
7277 RHO_S =SIMP(statut='o',typ='R'),
7278 UN_SUR_KS =SIMP(statut='o',typ='R'),
7279 E =SIMP(statut='f',typ='R'),
7280 KB =SIMP(statut='f',typ='R'),
7281 D_KB_T =SIMP(statut='f',typ='R'),
7282 ALPHA_S =SIMP(statut='f',typ='R'),
7283 ALPHA_D =SIMP(statut='f',typ='R'),
7285 SURF_ETAT_SATU =FACT(statut='f',min=0,max=1,
7286 E_CHAR =SIMP(statut='o',typ='R'),
7287 E_DECHAR =SIMP(statut='o',typ='R'),
7288 XN =SIMP(statut='f',typ='R'),
7289 RF =SIMP(statut='f',typ='R'),
7290 EV_KB =SIMP(statut='f',typ='R'),
7291 EV_XM =SIMP(statut='f',typ='R'),
7292 D_E_T =SIMP(statut='f',typ='R'),
7293 ALPHA0 =SIMP(statut='f',typ='R'),
7294 ALPHA1 =SIMP(statut='f',typ='R'),
7295 ALPHA2 =SIMP(statut='f',typ='R'),
7296 ALPHA3 =SIMP(statut='f',typ='R'),
7297 ALPHA_S =SIMP(statut='f',typ='R'),
7298 ANG_FRT =SIMP(statut='o',typ='R'),
7299 COHE =SIMP(statut='o',typ='R'),
7300 RESI_TRAC =SIMP(statut='o',typ='R'),
7302 CAM_CLAY_THM =FACT(statut='f',min=0,max=1,
7303 NU =SIMP(statut='f',typ='R'),
7304 LAMBDA =SIMP(statut='o',typ='R'),
7305 KAPA =SIMP(statut='o',typ='R'),
7306 M =SIMP(statut='f',typ='R'),
7307 PRES_CRIT =SIMP(statut='f',typ='R'),
7308 GAMA =SIMP(statut='o',typ='R'),
7309 A0_PC =SIMP(statut='o',typ='R'),
7310 A1_PC =SIMP(statut='f',typ='R'),
7311 A2_PC =SIMP(statut='f',typ='R'),
7312 ALPHA0_PC =SIMP(statut='f',typ='R'),
7313 ALPHA1_PC =SIMP(statut='f',typ='R'),
7314 ALPHA2_PC =SIMP(statut='f',typ='R'),
7315 ALPHA3_PC =SIMP(statut='f',typ='R'),
7316 ALPHA_S =SIMP(statut='f',typ='R'),
7318 SURF_ETAT_NSAT =FACT(statut='f',min=0,max=1,
7319 E_CHAR =SIMP(statut='o',typ='R'),
7320 E_DECHAR =SIMP(statut='o',typ='R'),
7321 XN =SIMP(statut='f',typ='R'),
7322 RF =SIMP(statut='f',typ='R'),
7323 EV_KB =SIMP(statut='f',typ='R'),
7324 EV_XM =SIMP(statut='f',typ='R'),
7325 EV_A =SIMP(statut='f',typ='R'),
7326 EV_B =SIMP(statut='f',typ='R'),
7327 EV_CT =SIMP(statut='f',typ='R'),
7328 EV_SIGB =SIMP(statut='f',typ='R'),
7329 D_E_T =SIMP(statut='f',typ='R'),
7330 D_E_SUCC =SIMP(statut='f',typ='R'),
7331 ANG_FRT =SIMP(statut='o',typ='R'),
7332 COHE =SIMP(statut='o',typ='R'),
7333 D_COEH_SUCC =SIMP(statut='f',typ='R'),
7334 ANG_FRT_ULT =SIMP(statut='f',typ='R'),
7335 SUCC_ULTM =SIMP(statut='f',typ='R'),
7336 RESI_TRAC =SIMP(statut='f',typ='R'),
7337 A_SURF_SATU =SIMP(statut='f',typ='R'),
7338 B_SURF_SATU =SIMP(statut='f',typ='R'),
7339 C_SURF_SATU =SIMP(statut='f',typ='R'),
7340 D_SURF_SATU =SIMP(statut='f',typ='R'),
7342 ELAS_COQUE =FACT(statut='f',min=0,max=1,
7343 regles=(EXCLUS('MEMB_L','M_LLLL',),
7344 PRESENT_PRESENT('MEMB_L','MEMB_LT', 'MEMB_T','MEMB_G_LT','FLEX_L','FLEX_LT',
7345 'FLEX_T','FLEX_G_LT','CISA_L','CISA_T',),
7346 PRESENT_PRESENT('M_LLLL','M_LLTT','M_LLLT','M_TTTT','M_TTLT','M_LTLT','F_LLLL',
7347 'F_LLTT','F_LLLT','F_TTTT','F_TTLT','F_LTLT','MF_LLLL',
7348 'MF_LLTT','MF_LLLT','MF_TTTT','MF_TTLT','MF_LTLT','MC_LLLZ',
7349 'MC_LLTZ','MC_TTLZ','MC_TTTZ','MC_LTLZ','MC_LTTZ','FC_LLLZ',
7350 'FC_LLTZ','FC_TTLZ','FC_TTTZ','FC_LTLZ','FC_LTTZ','C_LZLZ',
7351 'C_LZTZ','C_TZTZ'),),
7352 MEMB_L =SIMP(statut='f',typ='R'),
7353 MEMB_LT =SIMP(statut='f',typ='R'),
7354 MEMB_T =SIMP(statut='f',typ='R'),
7355 MEMB_G_LT =SIMP(statut='f',typ='R'),
7356 FLEX_L =SIMP(statut='f',typ='R'),
7357 FLEX_LT =SIMP(statut='f',typ='R'),
7358 FLEX_T =SIMP(statut='f',typ='R'),
7359 FLEX_G_LT =SIMP(statut='f',typ='R'),
7360 CISA_L =SIMP(statut='f',typ='R'),
7361 CISA_T =SIMP(statut='f',typ='R'),
7362 M_LLLL =SIMP(statut='f',typ='R'),
7363 M_LLTT =SIMP(statut='f',typ='R'),
7364 M_LLLT =SIMP(statut='f',typ='R'),
7365 M_TTTT =SIMP(statut='f',typ='R'),
7366 M_TTLT =SIMP(statut='f',typ='R'),
7367 M_LTLT =SIMP(statut='f',typ='R'),
7368 F_LLLL =SIMP(statut='f',typ='R'),
7369 F_LLTT =SIMP(statut='f',typ='R'),
7370 F_LLLT =SIMP(statut='f',typ='R'),
7371 F_TTTT =SIMP(statut='f',typ='R'),
7372 F_TTLT =SIMP(statut='f',typ='R'),
7373 F_LTLT =SIMP(statut='f',typ='R'),
7374 MF_LLLL =SIMP(statut='f',typ='R'),
7375 MF_LLTT =SIMP(statut='f',typ='R'),
7376 MF_LLLT =SIMP(statut='f',typ='R'),
7377 MF_TTTT =SIMP(statut='f',typ='R'),
7378 MF_TTLT =SIMP(statut='f',typ='R'),
7379 MF_LTLT =SIMP(statut='f',typ='R'),
7380 MC_LLLZ =SIMP(statut='f',typ='R'),
7381 MC_LLTZ =SIMP(statut='f',typ='R'),
7382 MC_TTLZ =SIMP(statut='f',typ='R'),
7383 MC_TTTZ =SIMP(statut='f',typ='R'),
7384 MC_LTLZ =SIMP(statut='f',typ='R'),
7385 MC_LTTZ =SIMP(statut='f',typ='R'),
7386 FC_LLLZ =SIMP(statut='f',typ='R'),
7387 FC_LLTZ =SIMP(statut='f',typ='R'),
7388 FC_TTLZ =SIMP(statut='f',typ='R'),
7389 FC_TTTZ =SIMP(statut='f',typ='R'),
7390 FC_LTLZ =SIMP(statut='f',typ='R'),
7391 FC_LTTZ =SIMP(statut='f',typ='R'),
7392 C_LZLZ =SIMP(statut='f',typ='R'),
7393 C_LZTZ =SIMP(statut='f',typ='R'),
7394 C_TZTZ =SIMP(statut='f',typ='R'),
7395 RHO =SIMP(statut='f',typ='R'),
7396 ALPHA =SIMP(statut='f',typ='R'),
7398 ELAS_COQUE_FO =FACT(statut='f',min=0,max=1,
7399 regles=(EXCLUS('MEMB_L','M_LLLL',),
7400 PRESENT_PRESENT('MEMB_L','MEMB_LT','MEMB_T','MEMB_G_LT','FLEX_L','FLEX_LT',
7401 'FLEX_T','FLEX_G_LT','CISA_L','CISA_T',),
7402 PRESENT_PRESENT('M_LLLL','M_LLTT','M_LLLT','M_TTTT','M_TTLT','M_LTLT','F_LLLL',
7403 'F_LLTT','F_LLLT','F_TTTT','F_TTLT','F_LTLT','MF_LLLL','MF_LLTT',
7404 'MF_LLLT','MF_TTTT','MF_TTLT','MF_LTLT','MC_LLLZ','MC_LLTZ',
7405 'MC_TTLZ','MC_TTTZ','MC_LTLZ','MC_LTTZ','FC_LLLZ','FC_LLTZ',
7406 'FC_TTLZ','FC_TTTZ','FC_LTLZ','FC_LTTZ','C_LZLZ','C_LZTZ','C_TZTZ'),),
7407 MEMB_L =SIMP(statut='f',typ=fonction),
7408 MEMB_LT =SIMP(statut='f',typ=fonction),
7409 MEMB_T =SIMP(statut='f',typ=fonction),
7410 MEMB_G_LT =SIMP(statut='f',typ=fonction),
7411 FLEX_L =SIMP(statut='f',typ=fonction),
7412 FLEX_LT =SIMP(statut='f',typ=fonction),
7413 FLEX_T =SIMP(statut='f',typ=fonction),
7414 FLEX_G_LT =SIMP(statut='f',typ=fonction),
7415 CISA_L =SIMP(statut='f',typ=fonction),
7416 CISA_T =SIMP(statut='f',typ=fonction),
7417 M_LLLL =SIMP(statut='f',typ=fonction),
7418 M_LLTT =SIMP(statut='f',typ=fonction),
7419 M_LLLT =SIMP(statut='f',typ=fonction),
7420 M_TTTT =SIMP(statut='f',typ=fonction),
7421 M_TTLT =SIMP(statut='f',typ=fonction),
7422 M_LTLT =SIMP(statut='f',typ=fonction),
7423 F_LLLL =SIMP(statut='f',typ=fonction),
7424 F_LLTT =SIMP(statut='f',typ=fonction),
7425 F_LLLT =SIMP(statut='f',typ=fonction),
7426 F_TTTT =SIMP(statut='f',typ=fonction),
7427 F_TTLT =SIMP(statut='f',typ=fonction),
7428 F_LTLT =SIMP(statut='f',typ=fonction),
7429 MF_LLLL =SIMP(statut='f',typ=fonction),
7430 MF_LLTT =SIMP(statut='f',typ=fonction),
7431 MF_LLLT =SIMP(statut='f',typ=fonction),
7432 MF_TTTT =SIMP(statut='f',typ=fonction),
7433 MF_TTLT =SIMP(statut='f',typ=fonction),
7434 MF_LTLT =SIMP(statut='f',typ=fonction),
7435 MC_LLLZ =SIMP(statut='f',typ=fonction),
7436 MC_LLTZ =SIMP(statut='f',typ=fonction),
7437 MC_TTLZ =SIMP(statut='f',typ=fonction),
7438 MC_TTTZ =SIMP(statut='f',typ=fonction),
7439 MC_LTLZ =SIMP(statut='f',typ=fonction),
7440 MC_LTTZ =SIMP(statut='f',typ=fonction),
7441 FC_LLLZ =SIMP(statut='f',typ=fonction),
7442 FC_LLTZ =SIMP(statut='f',typ=fonction),
7443 FC_TTLZ =SIMP(statut='f',typ=fonction),
7444 FC_TTTZ =SIMP(statut='f',typ=fonction),
7445 FC_LTLZ =SIMP(statut='f',typ=fonction),
7446 FC_LTTZ =SIMP(statut='f',typ=fonction),
7447 C_LZLZ =SIMP(statut='f',typ=fonction),
7448 C_LZTZ =SIMP(statut='f',typ=fonction),
7449 C_TZTZ =SIMP(statut='f',typ=fonction),
7450 RHO =SIMP(statut='f',typ='R'),
7451 ALPHA =SIMP(statut='f',typ=fonction),
7452 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST") ),
7454 APPUI_ELAS =FACT(statut='f',min=0,max=1,
7455 E_N =SIMP(statut='o',typ='R'),
7456 E_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0),
7458 CABLE =FACT(statut='f',min=0,max=1,
7459 E =SIMP(statut='o',typ='R'),
7460 EC_SUR_E =SIMP(statut='f',typ='R',defaut= 1.E-4 ),
7461 RHO =SIMP(statut='f',typ='R'),
7462 ALPHA =SIMP(statut='f',typ='R'),
7463 AMOR_ALPHA =SIMP(statut='f',typ='R'),
7464 AMOR_BETA =SIMP(statut='f',typ='R'),
7467 # comportement mécanique non linéaire
7469 TRACTION =FACT(statut='f',min=0,max=1,
7470 SIGM =SIMP(statut='o',typ=fonction),
7471 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",) ),
7472 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7473 VERI_P3 =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
7474 VERI_P4 =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
7476 ECRO_LINE =FACT(statut='f',min=0,max=1,
7477 D_SIGM_EPSI =SIMP(statut='o',typ='R'),
7478 SY =SIMP(statut='o',typ='R'),
7480 ECRO_LINE_FO =FACT(statut='f',min=0,max=1,
7481 D_SIGM_EPSI =SIMP(statut='o',typ=fonction),
7482 SY =SIMP(statut='o',typ=fonction),
7483 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7485 PRAGER =FACT(statut='f',min=0,max=1,
7486 C =SIMP(statut='o',typ='R'),
7488 PRAGER_FO =FACT(statut='f',min=0,max=1,
7489 C =SIMP(statut='o',typ=fonction),
7490 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7492 ECRO_FLEJOU =FACT(statut='f',min=0,max=1,
7493 EP =SIMP(statut='o',typ='R'),
7494 SY =SIMP(statut='o',typ='R'),
7495 SU =SIMP(statut='o',typ='R'),
7496 PUISS =SIMP(statut='o',typ='R'),
7498 TAHERI =FACT(statut='f',min=0,max=1,
7499 R_0 =SIMP(statut='o',typ='R'),
7500 ALPHA =SIMP(statut='o',typ='R'),
7501 M =SIMP(statut='o',typ='R'),
7502 A =SIMP(statut='o',typ='R'),
7503 B =SIMP(statut='o',typ='R'),
7504 C1 =SIMP(statut='o',typ='R'),
7505 C_INF =SIMP(statut='o',typ='R'),
7506 S =SIMP(statut='o',typ='R'),
7508 TAHERI_FO =FACT(statut='f',min=0,max=1,
7509 R_0 =SIMP(statut='o',typ=fonction),
7510 ALPHA =SIMP(statut='o',typ=fonction),
7511 M =SIMP(statut='o',typ=fonction),
7512 A =SIMP(statut='o',typ=fonction),
7513 B =SIMP(statut='o',typ=fonction),
7514 C1 =SIMP(statut='o',typ=fonction),
7515 C_INF =SIMP(statut='o',typ=fonction),
7516 S =SIMP(statut='o',typ=fonction),
7517 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7519 ROUSSELIER =FACT(statut='f',min=0,max=1,
7520 D =SIMP(statut='o',typ='R'),
7521 SIGM_1 =SIMP(statut='o',typ='R'),
7522 PORO_INIT =SIMP(statut='o',typ='R'),
7523 PORO_CRIT =SIMP(statut='f',typ='R',defaut= 1. ),
7524 PORO_ACCE =SIMP(statut='f',typ='R',defaut= 1. ),
7525 PORO_LIMI =SIMP(statut='f',typ='R',defaut= 0.999 ),
7526 D_SIGM_EPSI_NORM=SIMP(statut='f',typ='R',defaut= 1. ),
7527 AN =SIMP(statut='f',typ='R',defaut= 0. ),
7529 ROUSSELIER_FO =FACT(statut='f',min=0,max=1,
7530 D =SIMP(statut='o',typ=fonction),
7531 SIGM_1 =SIMP(statut='o',typ=fonction),
7532 PORO_INIT =SIMP(statut='o',typ=fonction),
7533 PORO_CRIT =SIMP(statut='f',typ='R',defaut= 1. ),
7534 PORO_ACCE =SIMP(statut='f',typ='R',defaut= 1. ),
7535 PORO_LIMI =SIMP(statut='f',typ='R',defaut= 0.999 ),
7536 D_SIGM_EPSI_NORM=SIMP(statut='f',typ='R',defaut= 1. ),
7537 AN =SIMP(statut='f',typ='R',defaut= 0. ),
7538 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7540 ROUSS_VISC =FACT(statut='f',min=0,max=1,
7541 SIGM_0 =SIMP(statut='o',typ='R'),
7542 EPSI_0 =SIMP(statut='o',typ='R'),
7543 M =SIMP(statut='o',typ='R'),
7545 CHABOCHE =FACT(statut='f',min=0,max=1,
7546 R_I =SIMP(statut='o',typ='R'),
7547 R_0 =SIMP(statut='o',typ='R'),
7548 B =SIMP(statut='o',typ='R'),
7549 K =SIMP(statut='o',typ='R'),
7550 W =SIMP(statut='o',typ='R'),
7551 A1 =SIMP(statut='o',typ='R'),
7552 A2 =SIMP(statut='o',typ='R'),
7553 C1 =SIMP(statut='o',typ='R'),
7554 C2 =SIMP(statut='o',typ='R'),
7556 CIN1_CHAB =FACT(statut='f',min=0,max=1,
7557 R_0 =SIMP(statut='o',typ='R'),
7558 R_I =SIMP(statut='f',typ='R'),
7559 B =SIMP(statut='f',typ='R',defaut= 0.0E+0),
7560 C_I =SIMP(statut='o',typ='R'),
7561 K =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7562 W =SIMP(statut='f',typ='R',defaut= 0.0E+0),
7563 G_0 =SIMP(statut='o',typ='R'),
7564 A_I =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7566 CIN1_CHAB_FO =FACT(statut='f',min=0,max=1,
7567 R_0 =SIMP(statut='o',typ=fonction),
7568 R_I =SIMP(statut='o',typ=fonction),
7569 B =SIMP(statut='o',typ=fonction),
7570 C_I =SIMP(statut='o',typ=fonction),
7571 K =SIMP(statut='o',typ=fonction),
7572 W =SIMP(statut='o',typ=fonction),
7573 G_0 =SIMP(statut='o',typ=fonction),
7574 A_I =SIMP(statut='o',typ=fonction),
7575 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7577 CIN2_CHAB =FACT(statut='f',min=0,max=1,
7578 R_0 =SIMP(statut='o',typ='R'),
7579 R_I =SIMP(statut='f',typ='R'),
7580 B =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7581 C1_I =SIMP(statut='o',typ='R'),
7582 C2_I =SIMP(statut='o',typ='R'),
7583 K =SIMP(statut='f',typ='R',defaut= 1.),
7584 W =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7585 G1_0 =SIMP(statut='o',typ='R'),
7586 G2_0 =SIMP(statut='o',typ='R'),
7587 A_I =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
7589 CIN2_CHAB_FO =FACT(statut='f',min=0,max=1,
7590 R_0 =SIMP(statut='o',typ=fonction),
7591 R_I =SIMP(statut='o',typ=fonction),
7592 B =SIMP(statut='o',typ=fonction),
7593 C1_I =SIMP(statut='o',typ=fonction),
7594 C2_I =SIMP(statut='o',typ=fonction),
7595 K =SIMP(statut='o',typ=fonction),
7596 W =SIMP(statut='o',typ=fonction),
7597 G1_0 =SIMP(statut='o',typ=fonction),
7598 G2_0 =SIMP(statut='o',typ=fonction),
7599 A_I =SIMP(statut='o',typ=fonction),
7600 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7602 VISCOCHAB =FACT(statut='f',min=0,max=1,
7603 K_0 =SIMP(statut='o',typ='R'),
7604 A_K =SIMP(statut='o',typ='R'),
7605 A_R =SIMP(statut='o',typ='R'),
7606 K =SIMP(statut='o',typ='R'),
7607 N =SIMP(statut='o',typ='R'),
7608 ALP =SIMP(statut='o',typ='R'),
7609 B =SIMP(statut='o',typ='R'),
7610 M_R =SIMP(statut='o',typ='R'),
7611 G_R =SIMP(statut='o',typ='R'),
7612 MU =SIMP(statut='o',typ='R'),
7613 Q_M =SIMP(statut='o',typ='R'),
7614 Q_0 =SIMP(statut='o',typ='R'),
7615 QR_0 =SIMP(statut='o',typ='R'),
7616 ETA =SIMP(statut='o',typ='R'),
7617 C1 =SIMP(statut='o',typ='R'),
7618 M_1 =SIMP(statut='o',typ='R'),
7619 D1 =SIMP(statut='o',typ='R'),
7620 G_X1 =SIMP(statut='o',typ='R'),
7621 G1_0 =SIMP(statut='o',typ='R'),
7622 C2 =SIMP(statut='o',typ='R'),
7623 M_2 =SIMP(statut='o',typ='R'),
7624 D2 =SIMP(statut='o',typ='R'),
7625 G_X2 =SIMP(statut='o',typ='R'),
7626 G2_0 =SIMP(statut='o',typ='R'),
7627 A_I =SIMP(statut='o',typ='R'),
7629 VISCOCHAB_FO =FACT(statut='f',min=0,max=1,
7630 K_0 =SIMP(statut='o',typ=fonction),
7631 A_K =SIMP(statut='o',typ=fonction),
7632 A_R =SIMP(statut='o',typ=fonction),
7633 K =SIMP(statut='o',typ=fonction),
7634 N =SIMP(statut='o',typ=fonction),
7635 ALP =SIMP(statut='o',typ=fonction),
7636 B =SIMP(statut='o',typ=fonction),
7637 M_R =SIMP(statut='o',typ=fonction),
7638 G_R =SIMP(statut='o',typ=fonction),
7639 MU =SIMP(statut='o',typ=fonction),
7640 Q_M =SIMP(statut='o',typ=fonction),
7641 Q_0 =SIMP(statut='o',typ=fonction),
7642 QR_0 =SIMP(statut='o',typ=fonction),
7643 ETA =SIMP(statut='o',typ=fonction),
7644 C1 =SIMP(statut='o',typ=fonction),
7645 M_1 =SIMP(statut='o',typ=fonction),
7646 D1 =SIMP(statut='o',typ=fonction),
7647 G_X1 =SIMP(statut='o',typ=fonction),
7648 G1_0 =SIMP(statut='o',typ=fonction),
7649 C2 =SIMP(statut='o',typ=fonction),
7650 M_2 =SIMP(statut='o',typ=fonction),
7651 D2 =SIMP(statut='o',typ=fonction),
7652 G_X2 =SIMP(statut='o',typ=fonction),
7653 G2_0 =SIMP(statut='o',typ=fonction),
7654 A_I =SIMP(statut='o',typ=fonction),
7655 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7657 POLY_CFC =FACT(statut='f',min=0,max=1,
7658 TEXTURE =SIMP(statut='o',typ=(tabl_texture) ),
7659 DL =SIMP(statut='f',typ='R'),
7660 DA =SIMP(statut='f',typ='R'),
7661 N =SIMP(statut='o',typ='R'),
7662 K =SIMP(statut='o',typ='R'),
7663 TAU_0 =SIMP(statut='o',typ='R'),
7664 Q1 =SIMP(statut='o',typ='R'),
7665 B1 =SIMP(statut='o',typ='R'),
7666 HL =SIMP(statut='o',typ='R'),
7667 Q2 =SIMP(statut='o',typ='R'),
7668 B2 =SIMP(statut='o',typ='R'),
7669 C1 =SIMP(statut='o',typ='R'),
7670 D1 =SIMP(statut='o',typ='R'),
7671 C2 =SIMP(statut='o',typ='R'),
7673 POLY_CFC_FO =FACT(statut='f',min=0,max=1,
7674 TEXTURE =SIMP(statut='o',typ=(tabl_texture) ),
7675 DL =SIMP(statut='o',typ=fonction),
7676 DA =SIMP(statut='o',typ=fonction),
7677 N =SIMP(statut='o',typ=fonction),
7678 K =SIMP(statut='o',typ=fonction),
7679 TAU_0 =SIMP(statut='o',typ=fonction),
7680 Q1 =SIMP(statut='o',typ=fonction),
7681 B1 =SIMP(statut='o',typ=fonction),
7682 HL =SIMP(statut='o',typ=fonction),
7683 Q2 =SIMP(statut='o',typ=fonction),
7684 B2 =SIMP(statut='o',typ=fonction),
7685 C1 =SIMP(statut='o',typ=fonction),
7686 D1 =SIMP(statut='o',typ=fonction),
7687 C2 =SIMP(statut='o',typ=fonction),
7688 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7690 LEMAITRE =FACT(statut='f',min=0,max=1,
7691 N =SIMP(statut='o',typ='R'),
7692 UN_SUR_K =SIMP(statut='o',typ='R'),
7693 UN_SUR_M =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7695 ZIRC_CYRA2 =FACT(statut='f',min=0,max=1,
7696 EPSI_FAB =SIMP(statut='o',typ=fonction),
7697 TEMP_RECUIT =SIMP(statut='o',typ=fonction),
7698 FLUX_PHI =SIMP(statut='o',typ=fonction),
7699 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
7701 ZIRC_EPRI =FACT(statut='f',min=0,max=1,
7702 FLUX_PHI =SIMP(statut='o',typ='R'),
7703 R_P =SIMP(statut='o',typ='R'),
7704 THETA_MAX =SIMP(statut='o',typ='R'),
7706 LEMAITRE_FO =FACT(statut='f',min=0,max=1,
7707 N =SIMP(statut='o',typ=fonction),
7708 UN_SUR_K =SIMP(statut='o',typ=fonction),
7709 UN_SUR_M =SIMP(statut='o',typ=fonction),
7710 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7712 GRAN_IRRA =FACT(statut='f',min=0,max=1,
7713 A =SIMP(statut='f',typ='R',defaut= 0.E+0),
7714 B =SIMP(statut='f',typ='R',defaut= 0.E+0),
7715 S =SIMP(statut='f',typ='R',defaut= 0.E+0),
7717 FLU_IRRA =FACT(statut='f',min=0,max=1,
7718 QSR_K =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7719 BETA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7720 PHI_ZERO =SIMP(statut='f',typ='R',defaut= 1.E+20),
7721 L =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7723 OHNO =FACT(statut='f',min=0,max=1,
7724 R_I =SIMP(statut='o',typ='R'),
7725 R_0 =SIMP(statut='o',typ='R'),
7726 B =SIMP(statut='o',typ='R'),
7727 PHI =SIMP(statut='o',typ='R'),
7728 A1 =SIMP(statut='o',typ='R'),
7729 A2 =SIMP(statut='o',typ='R'),
7730 A3 =SIMP(statut='o',typ='R'),
7731 A4 =SIMP(statut='o',typ='R'),
7732 A5 =SIMP(statut='o',typ='R'),
7733 GAMMA1 =SIMP(statut='o',typ='R'),
7734 GAMMA2 =SIMP(statut='o',typ='R'),
7735 GAMMA3 =SIMP(statut='o',typ='R'),
7736 GAMMA4 =SIMP(statut='o',typ='R'),
7737 GAMMA5 =SIMP(statut='o',typ='R'),
7738 M1 =SIMP(statut='o',typ='R'),
7739 M2 =SIMP(statut='o',typ='R'),
7740 M3 =SIMP(statut='o',typ='R'),
7741 M4 =SIMP(statut='o',typ='R'),
7742 M5 =SIMP(statut='o',typ='R'),
7744 OHNO_FO =FACT(statut='f',min=0,max=1,
7745 R_I =SIMP(statut='o',typ=fonction),
7746 R_0 =SIMP(statut='o',typ=fonction),
7747 B =SIMP(statut='o',typ=fonction),
7748 PHI =SIMP(statut='o',typ=fonction),
7749 A1 =SIMP(statut='o',typ=fonction),
7750 A2 =SIMP(statut='o',typ=fonction),
7751 A3 =SIMP(statut='o',typ=fonction),
7752 A4 =SIMP(statut='o',typ=fonction),
7753 A5 =SIMP(statut='o',typ=fonction),
7754 GAMMA1 =SIMP(statut='o',typ=fonction),
7755 GAMMA2 =SIMP(statut='o',typ=fonction),
7756 GAMMA3 =SIMP(statut='o',typ=fonction),
7757 GAMMA4 =SIMP(statut='o',typ=fonction),
7758 GAMMA5 =SIMP(statut='o',typ=fonction),
7759 M1 =SIMP(statut='o',typ=fonction),
7760 M2 =SIMP(statut='o',typ=fonction),
7761 M3 =SIMP(statut='o',typ=fonction),
7762 M4 =SIMP(statut='o',typ=fonction),
7763 M5 =SIMP(statut='o',typ=fonction),
7764 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7766 LMARC =FACT(statut='f',min=0,max=1,
7767 DE_0 =SIMP(statut='o',typ='R'),
7768 R_0 =SIMP(statut='o',typ='R'),
7769 N =SIMP(statut='o',typ='R'),
7770 K =SIMP(statut='o',typ='R'),
7771 Y_I =SIMP(statut='o',typ='R'),
7772 Y_0 =SIMP(statut='o',typ='R'),
7773 B =SIMP(statut='o',typ='R'),
7774 A_0 =SIMP(statut='o',typ='R'),
7775 RM =SIMP(statut='o',typ='R'),
7776 M =SIMP(statut='o',typ='R'),
7777 P =SIMP(statut='o',typ='R'),
7778 P1 =SIMP(statut='o',typ='R'),
7779 P2 =SIMP(statut='o',typ='R'),
7780 M11 =SIMP(statut='o',typ='R'),
7781 M22 =SIMP(statut='o',typ='R'),
7782 M33 =SIMP(statut='o',typ='R'),
7783 M66 =SIMP(statut='o',typ='R'),
7784 N11 =SIMP(statut='o',typ='R'),
7785 N22 =SIMP(statut='o',typ='R'),
7786 N33 =SIMP(statut='o',typ='R'),
7787 N66 =SIMP(statut='o',typ='R'),
7788 Q11 =SIMP(statut='o',typ='R'),
7789 Q22 =SIMP(statut='o',typ='R'),
7790 Q33 =SIMP(statut='o',typ='R'),
7791 Q66 =SIMP(statut='o',typ='R'),
7792 R11 =SIMP(statut='o',typ='R'),
7793 R22 =SIMP(statut='o',typ='R'),
7794 R33 =SIMP(statut='o',typ='R'),
7795 R66 =SIMP(statut='o',typ='R'),
7797 LMARC_FO =FACT(statut='f',min=0,max=1,
7798 DE_0 =SIMP(statut='o',typ=fonction),
7799 R_0 =SIMP(statut='o',typ=fonction),
7800 N =SIMP(statut='o',typ=fonction),
7801 K =SIMP(statut='o',typ=fonction),
7802 Y_I =SIMP(statut='o',typ=fonction),
7803 Y_0 =SIMP(statut='o',typ=fonction),
7804 B =SIMP(statut='o',typ=fonction),
7805 A_0 =SIMP(statut='o',typ=fonction),
7806 RM =SIMP(statut='o',typ=fonction),
7807 M =SIMP(statut='o',typ=fonction),
7808 P =SIMP(statut='o',typ=fonction),
7809 P1 =SIMP(statut='o',typ=fonction),
7810 P2 =SIMP(statut='o',typ=fonction),
7811 M11 =SIMP(statut='o',typ=fonction),
7812 M22 =SIMP(statut='o',typ=fonction),
7813 M33 =SIMP(statut='o',typ=fonction),
7814 M66 =SIMP(statut='o',typ=fonction),
7815 N11 =SIMP(statut='o',typ=fonction),
7816 N22 =SIMP(statut='o',typ=fonction),
7817 N33 =SIMP(statut='o',typ=fonction),
7818 N66 =SIMP(statut='o',typ=fonction),
7819 Q11 =SIMP(statut='o',typ=fonction),
7820 Q22 =SIMP(statut='o',typ=fonction),
7821 Q33 =SIMP(statut='o',typ=fonction),
7822 Q66 =SIMP(statut='o',typ=fonction),
7823 R11 =SIMP(statut='o',typ=fonction),
7824 R22 =SIMP(statut='o',typ=fonction),
7825 R33 =SIMP(statut='o',typ=fonction),
7826 R66 =SIMP(statut='o',typ=fonction),
7827 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7829 VMIS_POUTRE =FACT(statut='f',min=0,max=1,
7830 NP =SIMP(statut='o',typ='R'),
7831 MEY =SIMP(statut='o',typ='R'),
7832 MPY =SIMP(statut='o',typ='R'),
7833 CAY =SIMP(statut='o',typ='R'),
7834 CBY =SIMP(statut='o',typ='R'),
7835 MEZ =SIMP(statut='o',typ='R'),
7836 MPZ =SIMP(statut='o',typ='R'),
7837 CAZ =SIMP(statut='o',typ='R'),
7838 CBZ =SIMP(statut='o',typ='R'),
7839 MPX =SIMP(statut='o',typ='R'),
7841 VMIS_POUTRE_FO =FACT(statut='f',min=0,max=1,
7842 NP =SIMP(statut='o',typ=fonction),
7843 MEY =SIMP(statut='o',typ=fonction),
7844 MPY =SIMP(statut='o',typ=fonction),
7845 CAY =SIMP(statut='o',typ=fonction),
7846 CBY =SIMP(statut='o',typ=fonction),
7847 MEZ =SIMP(statut='o',typ=fonction),
7848 MPZ =SIMP(statut='o',typ=fonction),
7849 CAZ =SIMP(statut='o',typ=fonction),
7850 CBZ =SIMP(statut='o',typ=fonction),
7851 MPX =SIMP(statut='o',typ=fonction),
7852 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7854 ARME =FACT(statut='f',min=0,max=1,
7855 KYE =SIMP(statut='o',typ='R'),
7856 DLE =SIMP(statut='o',typ='R'),
7857 KYP =SIMP(statut='o',typ='R'),
7858 DLP =SIMP(statut='o',typ='R'),
7859 KYG =SIMP(statut='o',typ='R'),
7861 ASSE_CORN =FACT(statut='f',min=0,max=1,
7862 NU_1 =SIMP(statut='o',typ='R'),
7863 MU_1 =SIMP(statut='o',typ='R'),
7864 DXU_1 =SIMP(statut='o',typ='R'),
7865 DRYU_1 =SIMP(statut='o',typ='R'),
7866 C_1 =SIMP(statut='o',typ='R'),
7867 NU_2 =SIMP(statut='o',typ='R'),
7868 MU_2 =SIMP(statut='o',typ='R'),
7869 DXU_2 =SIMP(statut='o',typ='R'),
7870 DRYU_2 =SIMP(statut='o',typ='R'),
7871 C_2 =SIMP(statut='o',typ='R'),
7872 KY =SIMP(statut='o',typ='R'),
7873 KZ =SIMP(statut='o',typ='R'),
7874 KRX =SIMP(statut='o',typ='R'),
7875 KRZ =SIMP(statut='o',typ='R'),
7877 DIS_CONTACT =FACT(statut='f',min=0,max=1,
7878 RIGI_NOR =SIMP(statut='f',typ='R' ),
7879 DIST_1 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7880 DIST_2 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7881 RIGI_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7882 AMOR_NOR =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7883 AMOR_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7884 COULOMB =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7885 JEU =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7886 KT_ULTM =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7887 EFFO_N_INIT =SIMP(statut='f',typ=fonction),
7888 regles=(EXCLUS('RIGI_N_FO','RIGI_N_IRRA',),),
7889 RIGI_N_IRRA =SIMP(statut='f',typ=fonction),
7890 RIGI_N_FO =SIMP(statut='f',typ=fonction),
7891 RELA_MZ =SIMP(statut='f',typ=fonction),
7892 C_PRAGER_MZ =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7893 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="DRZ",into=("DRZ",) ),
7894 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
7895 VERI_P3 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7897 NADAI_B =FACT(statut='f',min=0,max=1,
7898 F_C =SIMP(statut='o',typ='R'),
7899 F_T =SIMP(statut='o',typ='R'),
7900 CRIT_E_C =SIMP(statut='o',typ='R'),
7901 EPSP_P_C =SIMP(statut='o',typ='R'),
7902 EPSP_R_C =SIMP(statut='o',typ='R'),
7903 EPSI_R_T =SIMP(statut='o',typ='R'),
7904 FAC_T_C =SIMP(statut='o',typ='R'),
7906 BETON_DOUBLE_DP =FACT(statut='f',min=0,max=1,
7907 F_C =SIMP(statut='o',typ=fonction),
7908 F_T =SIMP(statut='o',typ=fonction),
7909 COEF_BIAX =SIMP(statut='o',typ=fonction),
7910 ENER_COMP_RUPT =SIMP(statut='o',typ=fonction),
7911 ENER_TRAC_RUPT =SIMP(statut='o',typ=fonction),
7912 COEF_ELAS_COMP =SIMP(statut='o',typ='R'),
7913 LONG_CARA =SIMP(statut='f',typ='R'),
7914 ECRO_COMP_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","PARABOLE") ),
7915 ECRO_TRAC_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","EXPONENT") ),
7916 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
7917 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="INST",into=("TEMP","INST",) ),
7918 VERI_P3 =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
7919 VERI_P4 =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
7921 LABORD_1D=FACT(statut='f',min=0 ,max=1,
7922 Y01 =SIMP(statut='o',typ='R'),
7923 Y02 =SIMP(statut='o',typ='R'),
7924 A1 =SIMP(statut='o',typ='R'),
7925 A2 =SIMP(statut='o',typ='R'),
7926 B1 =SIMP(statut='o',typ='R'),
7927 B2 =SIMP(statut='o',typ='R'),
7928 BETA1 =SIMP(statut='o',typ='R'),
7929 BETA2 =SIMP(statut='o',typ='R'),
7930 SIGF =SIMP(statut='o',typ='R'),
7932 MAZARS=FACT(statut='f',min=0 ,max=1,
7933 EPSD0 =SIMP(statut='o',typ='R'),
7934 BETA =SIMP(statut='o',typ='R'),
7935 AC =SIMP(statut='o',typ='R'),
7936 BC =SIMP(statut='o',typ='R'),
7937 AT =SIMP(statut='o',typ='R'),
7938 BT =SIMP(statut='o',typ='R'),
7940 MAZARS_FO=FACT(statut='f',min=0 ,max=1,
7941 EPSD0 =SIMP(statut='o',typ=fonction),
7942 BETA =SIMP(statut='o',typ='R'),
7943 AC =SIMP(statut='o',typ=fonction),
7944 BC =SIMP(statut='o',typ=fonction),
7945 AT =SIMP(statut='o',typ=fonction),
7946 BT =SIMP(statut='o',typ=fonction),
7947 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7949 VENDOCHAB =FACT(statut='f',min=0,max=1,
7950 S_VP =SIMP(statut='o',typ='R'),
7951 SEDVP1 =SIMP(statut='o',typ='R'),
7952 SEDVP2 =SIMP(statut='o',typ='R'),
7953 N_VP =SIMP(statut='o',typ='R'),
7954 M_VP =SIMP(statut='o',typ='R'),
7955 K_VP =SIMP(statut='o',typ='R'),
7956 R_D =SIMP(statut='o',typ='R'),
7957 A_D =SIMP(statut='o',typ='R'),
7958 K_D =SIMP(statut='o',typ='R'),
7960 VENDOCHAB_FO =FACT(statut='f',min=0,max=1,
7961 S_VP =SIMP(statut='o',typ=fonction),
7962 SEDVP1 =SIMP(statut='o',typ=fonction),
7963 SEDVP2 =SIMP(statut='o',typ=fonction),
7964 N_VP =SIMP(statut='o',typ=fonction),
7965 M_VP =SIMP(statut='o',typ=fonction),
7966 K_VP =SIMP(statut='o',typ=fonction),
7967 R_D =SIMP(statut='o',typ=fonction),
7968 A_D =SIMP(statut='o',typ=fonction),
7969 K_D =SIMP(statut='o',typ=fonction),
7970 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7971 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="X",into=("X",) ),
7973 PINTO_MENEGOTTO =FACT(statut='f',min=0,max=1,
7974 SY =SIMP(statut='o',typ='R'),
7975 EPSI_ULTM =SIMP(statut='o',typ='R'),
7976 SIGM_ULTM =SIMP(statut='o',typ='R'),
7977 ELAN =SIMP(statut='f',typ='R',defaut= 4. ),
7978 EPSP_HARD =SIMP(statut='o',typ='R'),
7979 R_PM =SIMP(statut='f',typ='R',defaut= 20. ),
7980 EP_SUR_E =SIMP(statut='f',typ='R'),
7981 A1_PM =SIMP(statut='f',typ='R',defaut= 18.5 ),
7982 A2_PM =SIMP(statut='f',typ='R',defaut= 0.15 ),
7983 A6_PM =SIMP(statut='f',typ='R',defaut= 620. ),
7984 C_PM =SIMP(statut='f',typ='R',defaut= 0.5 ),
7985 A_PM =SIMP(statut='f',typ='R',defaut= 6.0E-3 ),
7987 BPEL_BETON =FACT(statut='f',min=0,max=1,
7988 PERT_FLUA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7989 PERT_RETR =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7991 BPEL_ACIER =FACT(statut='f',min=0,max=1,
7992 RELAX_1000 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7993 MU0_RELAX =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7994 SY =SIMP(statut='o',typ='R'),
7995 FROT_COURB =SIMP(statut='o',typ='R'),
7996 FROT_LINE =SIMP(statut='o',typ='R'),
7998 CAM_CLAY =FACT(statut='f',min=0,max=1,
7999 PORO =SIMP(statut='o',typ='R'),
8000 LAMBDA =SIMP(statut='o',typ='R'),
8001 KAPA =SIMP(statut='o',typ='R'),
8002 M =SIMP(statut='o',typ='R'),
8003 PRES_CRIT =SIMP(statut='o',typ='R'),
8004 PA =SIMP(statut='o',typ='R'),
8006 CJS =FACT(statut='f',min=0,max=1,
8007 BETA_CJS =SIMP(statut='o',typ='R'),
8008 RM =SIMP(statut='o',typ='R'),
8009 N_CJS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8010 KP =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8011 RC =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8012 A_CJS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8013 B_CJS =SIMP(statut='f',typ='R',defaut= 1.0E+25 ),
8014 C_CJS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8015 GAMMA_CJS =SIMP(statut='o',typ='R'),
8016 MU_CJS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8017 PCO =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8018 PA =SIMP(statut='o',typ='R'),
8019 Q_INIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8020 R_INIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8022 ECRO_ASYM_LINE =FACT(statut='f',min=0,max=1,
8023 DC_SIGM_EPSI =SIMP(statut='o',typ='R'),
8024 SY_C =SIMP(statut='o',typ='R'),
8025 DT_SIGM_EPSI =SIMP(statut='o',typ='R'),
8026 SY_T =SIMP(statut='o',typ='R'),
8028 GRANGER_FP =FACT(statut='f',min=0,max=1,
8029 J1 =SIMP(statut='f',typ='R'),
8030 J2 =SIMP(statut='f',typ='R'),
8031 J3 =SIMP(statut='f',typ='R'),
8032 J4 =SIMP(statut='f',typ='R'),
8033 J5 =SIMP(statut='f',typ='R'),
8034 J6 =SIMP(statut='f',typ='R'),
8035 J7 =SIMP(statut='f',typ='R'),
8036 J8 =SIMP(statut='f',typ='R'),
8037 TAUX_1 =SIMP(statut='f',typ='R'),
8038 TAUX_2 =SIMP(statut='f',typ='R'),
8039 TAUX_3 =SIMP(statut='f',typ='R'),
8040 TAUX_4 =SIMP(statut='f',typ='R'),
8041 TAUX_5 =SIMP(statut='f',typ='R'),
8042 TAUX_6 =SIMP(statut='f',typ='R'),
8043 TAUX_7 =SIMP(statut='f',typ='R'),
8044 TAUX_8 =SIMP(statut='f',typ='R'),
8045 QSR_K =SIMP(statut='f',typ='R'),
8047 V_GRANGER_FP =FACT(statut='f',min=0,max=1,
8048 QSR_VEIL =SIMP(statut='f',typ='R'),
8049 FONC_V =SIMP(statut='f',typ=fonction),
8050 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
8052 BAZANT_FD =FACT(statut='f',min=0,max=1,
8053 LAM_VISC =SIMP(statut='o',typ='R'),
8055 BETON_UMLV_FP =FACT(statut='f',min=0 ,max=1,
8056 K_RS =SIMP(statut='o',typ='R'),
8057 ETA_RS =SIMP(statut='o',typ='R'),
8058 K_IS =SIMP(statut='o',typ='R'),
8059 ETA_IS =SIMP(statut='o',typ='R'),
8060 K_RD =SIMP(statut='o',typ='R'),
8061 ETA_RD =SIMP(statut='o',typ='R'),
8062 ETA_ID =SIMP(statut='o',typ='R'),
8065 # comportement thermique
8067 THER_NL =FACT(statut='f',min=0,max=1,
8068 regles=(UN_PARMI('BETA','RHO_CP', ),),
8069 LAMBDA =SIMP(statut='o',typ=fonction),
8070 BETA =SIMP(statut='f',typ=fonction),
8071 RHO_CP =SIMP(statut='f',typ=fonction),
8072 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
8074 THER_HYDR =FACT(statut='f',min=0,max=1,
8075 LAMBDA =SIMP(statut='o',typ=fonction),
8076 BETA =SIMP(statut='f',typ=fonction),
8077 AFFINITE =SIMP(statut='o',typ=fonction),
8078 CHALHYDR =SIMP(statut='o',typ='R'),
8079 QSR_K =SIMP(statut='o',typ='R'),
8080 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("HYDR",) ),
8081 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
8083 THER =FACT(statut='f',min=0,max=1,
8084 LAMBDA =SIMP(statut='o',typ='R'),
8085 RHO_CP =SIMP(statut='f',typ='R'),
8087 THER_FO =FACT(statut='f',min=0,max=1,
8088 LAMBDA =SIMP(statut='o',typ=fonction),
8089 RHO_CP =SIMP(statut='f',typ=fonction),
8090 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
8092 THER_ORTH =FACT(statut='f',min=0,max=1,
8093 LAMBDA_L =SIMP(statut='o',typ='R'),
8094 LAMBDA_T =SIMP(statut='o',typ='R'),
8095 LAMBDA_N =SIMP(statut='f',typ='R'),
8096 RHO_CP =SIMP(statut='f',typ='R'),
8098 THER_COQUE =FACT(statut='f',min=0,max=1,
8099 COND_LMM =SIMP(statut='o',typ='R'),
8100 COND_TMM =SIMP(statut='o',typ='R'),
8101 COND_LMP =SIMP(statut='o',typ='R'),
8102 COND_TMP =SIMP(statut='o',typ='R'),
8103 COND_LPP =SIMP(statut='o',typ='R'),
8104 COND_TPP =SIMP(statut='o',typ='R'),
8105 COND_LSI =SIMP(statut='o',typ='R'),
8106 COND_TSI =SIMP(statut='o',typ='R'),
8107 COND_NMM =SIMP(statut='o',typ='R'),
8108 COND_NMP =SIMP(statut='o',typ='R'),
8109 COND_NPP =SIMP(statut='o',typ='R'),
8110 COND_NSI =SIMP(statut='o',typ='R'),
8111 CMAS_MM =SIMP(statut='f',typ='R'),
8112 CMAS_MP =SIMP(statut='f',typ='R'),
8113 CMAS_PP =SIMP(statut='f',typ='R'),
8114 CMAS_SI =SIMP(statut='f',typ='R'),
8116 THER_COQUE_FO =FACT(statut='f',min=0,max=1,
8117 COND_LMM =SIMP(statut='o',typ=fonction),
8118 COND_TMM =SIMP(statut='o',typ=fonction),
8119 COND_LMP =SIMP(statut='o',typ=fonction),
8120 COND_TMP =SIMP(statut='o',typ=fonction),
8121 COND_LPP =SIMP(statut='o',typ=fonction),
8122 COND_TPP =SIMP(statut='o',typ=fonction),
8123 COND_LSI =SIMP(statut='o',typ=fonction),
8124 COND_TSI =SIMP(statut='o',typ=fonction),
8125 COND_NMM =SIMP(statut='o',typ=fonction),
8126 COND_NMP =SIMP(statut='o',typ=fonction),
8127 COND_NPP =SIMP(statut='o',typ=fonction),
8128 COND_NSI =SIMP(statut='o',typ=fonction),
8129 CMAS_MM =SIMP(statut='f',typ=fonction),
8130 CMAS_MP =SIMP(statut='f',typ=fonction),
8131 CMAS_PP =SIMP(statut='f',typ=fonction),
8132 CMAS_SI =SIMP(statut='f',typ=fonction),
8134 SECH_GRANGER =FACT(statut='f',min=0,max=1,
8135 A =SIMP(statut='o',typ='R'),
8136 B =SIMP(statut='o',typ='R'),
8137 QSR_K =SIMP(statut='o',typ='R'),
8138 TEMP_0_C =SIMP(statut='o',typ='R'),
8140 SECH_MENSI =FACT(statut='f',min=0,max=1,
8141 A =SIMP(statut='o',typ='R'),
8142 B =SIMP(statut='o',typ='R'),
8144 SECH_BAZANT =FACT(statut='f',min=0,max=1,
8145 D1 =SIMP(statut='o',typ='R'),
8146 ALPHA_BAZANT =SIMP(statut='o',typ='R'),
8147 N =SIMP(statut='o',typ='R'),
8149 SECH_NAPPE =FACT(statut='f',min=0,max=1,
8150 FONCTION =SIMP(statut='o',typ=fonction),
8151 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
8152 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="TSEC",into=("TSEC",) ),
8155 # comportement métallurgique
8157 META_ACIER =FACT(statut='f',min=0,max=1,
8158 TRC =SIMP(statut='o',typ=(tabl_trc) ),
8159 AR3 =SIMP(statut='o',typ='R'),
8160 ALPHA =SIMP(statut='o',typ='R'),
8161 MS0 =SIMP(statut='o',typ='R'),
8162 AC1 =SIMP(statut='o',typ='R'),
8163 AC3 =SIMP(statut='o',typ='R'),
8164 TAUX_1 =SIMP(statut='o',typ='R'),
8165 TAUX_3 =SIMP(statut='o',typ='R'),
8166 LAMBDA0 =SIMP(statut='f',typ='R'),
8167 QSR_K =SIMP(statut='f',typ='R'),
8168 D10 =SIMP(statut='f',typ='R'),
8169 WSR_K =SIMP(statut='f',typ='R'),
8171 META_ZIRC =FACT(statut='f',min=0,max=1,
8172 TDEQ =SIMP(statut='o',typ='R'),
8173 N =SIMP(statut='o',typ='R'),
8174 K =SIMP(statut='o',typ='R'),
8175 TDC =SIMP(statut='o',typ='R'),
8176 AC =SIMP(statut='o',typ='R'),
8177 M =SIMP(statut='o',typ='R'),
8178 QSR_K =SIMP(statut='f',typ='R'),
8179 TDR =SIMP(statut='o',typ='R'),
8180 AR =SIMP(statut='o',typ='R'),
8181 BR =SIMP(statut='o',typ='R'),
8183 DURT_META =FACT(statut='f',min=0,max=1,
8184 F1_DURT =SIMP(statut='o',typ='R'),
8185 F2_DURT =SIMP(statut='o',typ='R'),
8186 F3_DURT =SIMP(statut='o',typ='R'),
8187 F4_DURT =SIMP(statut='o',typ='R'),
8188 C_DURT =SIMP(statut='o',typ='R'),
8190 ELAS_META =FACT(statut='f',min=0,max=1,
8191 E =SIMP(statut='o',typ='R'),
8192 NU =SIMP(statut='o',typ='R'),
8193 F_ALPHA =SIMP(statut='o',typ='R'),
8194 C_ALPHA =SIMP(statut='o',typ='R'),
8195 PHASE_REFE =SIMP(statut='o',typ='TXM',into=("CHAUD","FROID")),
8196 EPSF_EPSC_TREF =SIMP(statut='o',typ='R'),
8197 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8198 F1_SY =SIMP(statut='f',typ='R'),
8199 F2_SY =SIMP(statut='f',typ='R'),
8200 F3_SY =SIMP(statut='f',typ='R'),
8201 F4_SY =SIMP(statut='f',typ='R'),
8202 C_SY =SIMP(statut='f',typ='R'),
8203 SY_MELANGE =SIMP(statut='f',typ=fonction),
8204 F1_S_VP =SIMP(statut='f',typ='R'),
8205 F2_S_VP =SIMP(statut='f',typ='R'),
8206 F3_S_VP =SIMP(statut='f',typ='R'),
8207 F4_S_VP =SIMP(statut='f',typ='R'),
8208 C_S_VP =SIMP(statut='f',typ='R' ),
8209 S_VP_MELANGE =SIMP(statut='f',typ=fonction),
8210 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="META",into=("META",)),
8212 ELAS_META_FO =FACT(statut='f',min=0,max=1,
8214 PRESENT_PRESENT('F_ALPHA','TEMP_DEF_ALPHA'),
8215 PRESENT_PRESENT('C_ALPHA','TEMP_DEF_ALPHA'),
8217 E =SIMP(statut='o',typ=fonction),
8218 NU =SIMP(statut='o',typ=fonction),
8219 F_ALPHA =SIMP(statut='o',typ=fonction),
8220 C_ALPHA =SIMP(statut='o',typ=fonction),
8221 PHASE_REFE =SIMP(statut='o',typ='TXM',into=("CHAUD","FROID")),
8222 EPSF_EPSC_TREF =SIMP(statut='o',typ='R'),
8223 TEMP_DEF_ALPHA =SIMP(statut='f',typ='R'),
8224 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8225 F1_SY =SIMP(statut='f',typ=fonction),
8226 F2_SY =SIMP(statut='f',typ=fonction),
8227 F3_SY =SIMP(statut='f',typ=fonction),
8228 F4_SY =SIMP(statut='f',typ=fonction),
8229 C_SY =SIMP(statut='f',typ=fonction),
8230 SY_MELANGE =SIMP(statut='f',typ=fonction),
8231 F1_S_VP =SIMP(statut='f',typ=fonction),
8232 F2_S_VP =SIMP(statut='f',typ=fonction),
8233 F3_S_VP =SIMP(statut='f',typ=fonction),
8234 F4_S_VP =SIMP(statut='f',typ=fonction),
8235 C_S_VP =SIMP(statut='f',typ=fonction),
8236 S_VP_MELANGE =SIMP(statut='f',typ=fonction),
8237 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
8238 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="META",into=("META",)),
8240 META_ECRO_LINE =FACT(statut='f',min=0,max=1,
8241 F1_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
8242 F2_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
8243 F3_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
8244 F4_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
8245 C_D_SIGM_EPSI =SIMP(statut='f',typ=fonction),
8246 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
8248 META_TRACTION =FACT(statut='f',min=0,max=1,
8249 SIGM_F1 =SIMP(statut='f',typ=fonction),
8250 SIGM_F2 =SIMP(statut='f',typ=fonction),
8251 SIGM_F3 =SIMP(statut='f',typ=fonction),
8252 SIGM_F4 =SIMP(statut='f',typ=fonction),
8253 SIGM_C =SIMP(statut='f',typ=fonction),
8254 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",)),
8255 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
8257 META_VISC_FO =FACT(statut='f',min=0,max=1,
8258 F1_ETA =SIMP(statut='f',typ=fonction),
8259 F1_N =SIMP(statut='f',typ=fonction),
8260 F1_C =SIMP(statut='f',typ=fonction),
8261 F1_M =SIMP(statut='f',typ=fonction),
8262 F2_ETA =SIMP(statut='f',typ=fonction),
8263 F2_N =SIMP(statut='f',typ=fonction),
8264 F2_C =SIMP(statut='f',typ=fonction),
8265 F2_M =SIMP(statut='f',typ=fonction),
8266 F3_ETA =SIMP(statut='f',typ=fonction),
8267 F3_N =SIMP(statut='f',typ=fonction),
8268 F3_C =SIMP(statut='f',typ=fonction),
8269 F3_M =SIMP(statut='f',typ=fonction),
8270 F4_ETA =SIMP(statut='f',typ=fonction),
8271 F4_N =SIMP(statut='f',typ=fonction),
8272 F4_C =SIMP(statut='f',typ=fonction),
8273 F4_M =SIMP(statut='f',typ=fonction),
8274 C_ETA =SIMP(statut='f',typ=fonction),
8275 C_N =SIMP(statut='f',typ=fonction),
8276 C_C =SIMP(statut='f',typ=fonction),
8277 C_M =SIMP(statut='f',typ=fonction),
8278 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
8280 META_PT =FACT(statut='f',min=0,max=1,
8281 F1_K =SIMP(statut='f',typ='R'),
8282 F2_K =SIMP(statut='f',typ='R'),
8283 F3_K =SIMP(statut='f',typ='R'),
8284 F4_K =SIMP(statut='f',typ='R'),
8285 F1_D_F_META =SIMP(statut='f',typ=fonction),
8286 F2_D_F_META =SIMP(statut='f',typ=fonction),
8287 F3_D_F_META =SIMP(statut='f',typ=fonction),
8288 F4_D_F_META =SIMP(statut='f',typ=fonction),
8289 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
8290 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="META",into=("META",) ),
8292 META_RE =FACT(statut='f',min=0,max=1,
8293 C_F1_THETA =SIMP(statut='f',typ='R'),
8294 C_F2_THETA =SIMP(statut='f',typ='R'),
8295 C_F3_THETA =SIMP(statut='f',typ='R'),
8296 C_F4_THETA =SIMP(statut='f',typ='R'),
8297 F1_C_THETA =SIMP(statut='f',typ='R'),
8298 F2_C_THETA =SIMP(statut='f',typ='R'),
8299 F3_C_THETA =SIMP(statut='f',typ='R'),
8300 F4_C_THETA =SIMP(statut='f',typ='R'),
8303 # comportement fluide
8305 FLUIDE =FACT(statut='f',min=0,max=1,
8306 regles=(EXCLUS('CELE_C','CELE_R'),),
8307 RHO =SIMP(statut='o',typ='R'),
8308 CELE_C =SIMP(statut='f',typ='C'),
8309 CELE_R =SIMP(statut='f',typ='R'),
8311 PORO_JOINT =FACT(statut='f',min=0,max=1,
8312 RHO_FLUI =SIMP(statut='o',typ='R'),
8313 ENTRO_FLUI =SIMP(statut='o',typ='R'),
8314 BIOT_M =SIMP(statut='o',typ='R'),
8315 C_0 =SIMP(statut='o',typ='R'),
8316 T_R =SIMP(statut='o',typ='R'),
8317 ALPHA_M =SIMP(statut='o',typ='R'),
8318 LAMBDA_T =SIMP(statut='o',typ='R'),
8319 LAMBDA_H =SIMP(statut='o',typ='R'),
8320 SOURCE_INIT =SIMP(statut='o',typ='R'),
8321 OMEGA_0 =SIMP(statut='o',typ='R'),
8323 THM_LIQU =FACT(statut='f',min=0,max=1,
8324 RHO =SIMP(statut='o',typ='R'),
8325 UN_SUR_K =SIMP(statut='f',typ='R'),
8326 ALPHA =SIMP(statut='f',typ='R'),
8327 CP =SIMP(statut='f',typ='R'),
8328 VISC =SIMP(statut='f',typ=fonction),
8329 D_VISC_TEMP =SIMP(statut='f',typ=fonction),
8330 LAMBDA =SIMP(statut='f',typ=fonction),
8331 D_LAMBDA_TEMP =SIMP(statut='f',typ=fonction),
8332 COEF_HENRY =SIMP(statut='f',typ='R'),
8333 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
8335 THM_GAZ =FACT(statut='f',min=0,max=1,
8336 MASS_MOL =SIMP(statut='f',typ='R'),
8337 CP =SIMP(statut='f',typ='R'),
8338 VISC =SIMP(statut='f',typ=fonction),
8339 D_VISC_TEMP =SIMP(statut='f',typ=fonction),
8340 LAMBDA =SIMP(statut='f',typ=fonction),
8341 D_LAMBDA_TEMP =SIMP(statut='f',typ=fonction),
8342 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
8344 THM_VAPE_GAZ =FACT(statut='f',min=0,max=1,
8345 MASS_MOL =SIMP(statut='f',typ='R'),
8346 CP =SIMP(statut='f',typ='R'),
8347 VISC =SIMP(statut='f',typ=fonction),
8348 D_VISC_TEMP =SIMP(statut='f',typ=fonction),
8349 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
8351 THM_INIT =FACT(statut='f',min=0,max=1,
8352 TEMP =SIMP(statut='o',typ='R'),
8353 PRE1 =SIMP(statut='o',typ='R'),
8354 PRE2 =SIMP(statut='o',typ='R'),
8355 PORO =SIMP(statut='o',typ='R'),
8356 PRES_VAPE =SIMP(statut='o',typ='R'),
8357 DEGR_SATU =SIMP(statut='f',typ='R'),
8358 PRES_ATMO =SIMP(statut='f',typ='R'),
8360 THM_DIFFU =FACT(statut='f',min=0,max=1,
8361 R_GAZ =SIMP(statut='o',typ='R'),
8362 RHO =SIMP(statut='f',typ='R'),
8363 CP =SIMP(statut='f',typ='R'),
8364 BIOT_COEF =SIMP(statut='f',typ='R'),
8365 SATU_PRES =SIMP(statut='f',typ=fonction),
8366 D_SATU_PRES =SIMP(statut='f',typ=fonction),
8367 PESA_X =SIMP(statut='f',typ='R'),
8368 PESA_Y =SIMP(statut='f',typ='R'),
8369 PESA_Z =SIMP(statut='f',typ='R'),
8370 PERM_IN =SIMP(statut='f',typ=fonction),
8371 PERM_LIQU =SIMP(statut='f',typ=fonction),
8372 D_PERM_LIQU_SATU=SIMP(statut='f',typ=fonction),
8373 PERM_GAZ =SIMP(statut='f',typ=fonction),
8374 D_PERM_SATU_GAZ =SIMP(statut='f',typ=fonction),
8375 D_PERM_PRES_GAZ =SIMP(statut='f',typ=fonction),
8376 FICK =SIMP(statut='f',typ=fonction),
8377 D_FICK_TEMP =SIMP(statut='f',typ=fonction),
8378 D_FICK_GAZ_PRES =SIMP(statut='f',typ=fonction),
8379 LAMBDA =SIMP(statut='f',typ=fonction),
8380 D_LAMBDA_TEMP =SIMP(statut='f',typ=fonction),
8381 SIGMA_T =SIMP(statut='f',typ=fonction),
8382 D_SIGMA_T =SIMP(statut='f',typ=fonction),
8383 PERM_G_INTR =SIMP(statut='f',typ=fonction),
8384 CHAL_VAPO =SIMP(statut='f',typ=fonction),
8385 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
8386 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="SAT",into=("SAT",) ),
8387 VERI_P3 =SIMP(statut='c',typ='TXM',defaut="PORO",into=("PORO",) ),
8388 VERI_P4 =SIMP(statut='c',typ='TXM',defaut="PGAZ",into=("PGAZ",) ),
8389 VERI_P5 =SIMP(statut='c',typ='TXM',defaut="PCAP",into=("PCAP",) ),
8392 # courbes et coefficients associés à la fatigue et au dommage
8394 FATIGUE =FACT(statut='f',min=0,max=1,
8395 regles=(PRESENT_ABSENT('WOHLER','A_BASQUIN','BETA_BASQUIN'),
8396 PRESENT_ABSENT('WOHLER','A0','A1','A2','A3','SL'),
8397 PRESENT_ABSENT('A_BASQUIN','A0','A1','A2','A3','SL'),
8398 ENSEMBLE('A_BASQUIN','BETA_BASQUIN'),
8399 ENSEMBLE('A0','A1','A2','A3','SL'),
8400 PRESENT_PRESENT('A0','E_REFE'),
8401 ENSEMBLE('D0','TAU0'),),
8402 WOHLER =SIMP(statut='f',typ=fonction),
8403 A_BASQUIN =SIMP(statut='f',typ='R'),
8404 BETA_BASQUIN =SIMP(statut='f',typ='R'),
8405 A0 =SIMP(statut='f',typ='R'),
8406 A1 =SIMP(statut='f',typ='R'),
8407 A2 =SIMP(statut='f',typ='R'),
8408 A3 =SIMP(statut='f',typ='R'),
8409 SL =SIMP(statut='f',typ='R'),
8410 MANSON_COFFIN =SIMP(statut='f',typ=fonction),
8411 E_REFE =SIMP(statut='f',typ='R'),
8412 D0 =SIMP(statut='f',typ='R'),
8413 TAU0 =SIMP(statut='f',typ='R'),
8414 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="SIGM",into=("SIGM",) ),
8415 VERI_P2 =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",) ),
8417 DOMMA_LEMAITRE =FACT(statut='f',min=0,max=1,
8418 S =SIMP(statut='o',typ=fonction),
8419 EPSP_SEUIL =SIMP(statut='o',typ='R'),
8420 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
8422 CISA_PLAN_CRIT =FACT(statut='f',min=0,max=1,
8423 CRITERE =SIMP(statut='o',typ='TXM',into=("MATAKE","DANG_VAN") ),
8425 b_critere_matake =BLOC(condition="CRITERE=='MATAKE'",
8426 fr="cisaillement plan critique critère de matake",
8427 MATAKE_A =SIMP(statut='o',typ='R'),
8428 MATAKE_B =SIMP(statut='o',typ='R'),
8429 COEF_FLEX_TORS =SIMP(statut='o',typ='R',val_min=1.0E0,val_max=1.7321E0),
8432 b_critere_dang_van =BLOC(condition="CRITERE=='DANG_VAN'",
8433 fr="cisaillement plan critique critère de Dang Van",
8434 D_VAN_A =SIMP(statut='o',typ='R'),
8435 D_VAN_B =SIMP(statut='o',typ='R'),
8436 COEF_CISA_TRAC =SIMP(statut='o',typ='R',val_min=1.0E0,val_max=1.7321E0),
8440 # autres comportements ...
8442 WEIBULL =FACT(statut='f',min=0,max=1,
8443 M =SIMP(statut='o',typ='R'),
8444 VOLU_REFE =SIMP(statut='o',typ='R'),
8445 SIGM_REFE =SIMP(statut='o',typ='R'),
8446 SEUIL_EPSP_CUMU =SIMP(statut='f',typ='R',defaut= 1.0E-6),
8448 WEIBULL_FO =FACT(statut='f',min=0,max=1,
8449 M =SIMP(statut='o',typ='R'),
8450 VOLU_REFE =SIMP(statut='o',typ='R'),
8451 SIGM_CNV =SIMP(statut='o',typ='R'),
8452 SIGM_REFE =SIMP(statut='o',typ=fonction),
8453 SEUIL_EPSP_CUMU =SIMP(statut='f',typ='R',defaut= 1.0E-6),
8454 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
8456 CONTACT =FACT(statut='f',min=0,max=1,
8457 E_N =SIMP(statut='o',typ='R'),
8458 E_T =SIMP(statut='f',typ='R',defaut= 0.E+0),
8459 COULOMB =SIMP(statut='f',typ='R',defaut= 0.E+0),
8461 NON_LOCAL =FACT(statut='f',min=0,max=1,
8462 LONG_CARA =SIMP(statut='o',typ='R'),
8463 COEF_RIGI_MINI =SIMP(statut='f',typ='R'),
8465 RUPT_FRAG =FACT(statut='f',min=0,max=1,
8466 GC =SIMP(statut='o',typ='R'),
8467 SIGM_C =SIMP(statut='f',typ='R'),
8468 SAUT_C =SIMP(statut='f',typ='R'),
8470 RCCM =FACT(statut='f',min=0,max=1,
8471 SY_02 =SIMP(statut='f',typ='R'),
8472 SM =SIMP(statut='f',typ='R'),
8473 SU =SIMP(statut='f',typ='R'),
8474 SC =SIMP(statut='f',typ='R'),
8475 SH =SIMP(statut='f',typ='R'),
8476 N_KE =SIMP(statut='f',typ='R'),
8477 M_KE =SIMP(statut='f',typ='R'),
8479 RCCM_FO =FACT(statut='f',min=0,max=1,
8480 SY_02 =SIMP(statut='f',typ=fonction),
8481 SM =SIMP(statut='f',typ=fonction),
8482 SU =SIMP(statut='f',typ=fonction),
8483 S =SIMP(statut='f',typ=fonction),
8484 N_KE =SIMP(statut='f',typ=fonction),
8485 M_KE =SIMP(statut='f',typ=fonction),
8486 VERI_P1 =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
8488 LAIGLE =FACT(statut='f',min=0,max=1,
8489 GAMMA_ULT =SIMP(statut='o',typ='R'),
8490 GAMMA_E =SIMP(statut='o',typ='R'),
8491 M_ULT =SIMP(statut='o',typ='R'),
8492 M_E =SIMP(statut='o',typ='R'),
8493 A_E =SIMP(statut='o',typ='R'),
8494 M_PIC =SIMP(statut='o',typ='R'),
8495 A_PIC =SIMP(statut='o',typ='R'),
8496 ETA =SIMP(statut='o',typ='R'),
8497 SIGMA_C =SIMP(statut='o',typ='R'),
8498 GAMMA =SIMP(statut='o',typ='R'),
8499 KSI =SIMP(statut='o',typ='R'),
8500 GAMMA_CJS =SIMP(statut='o',typ='R'),
8501 SIGMA_P1 =SIMP(statut='o',typ='R'),
8502 PA =SIMP(statut='o',typ='R'),
8504 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
8506 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
8507 # CONFIGURATION MANAGEMENT OF EDF VERSION
8508 # ======================================================================
8509 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8510 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8511 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8512 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8513 # (AT YOUR OPTION) ANY LATER VERSION.
8515 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8516 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8517 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8518 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8520 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8521 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8522 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8523 # ======================================================================
8524 DEFI_MODELE_GENE=OPER(nom="DEFI_MODELE_GENE",op= 126,sd_prod=modele_gene,
8525 docu="U4.65.02-d",reentrant='n',
8526 UIinfo={"groupes":("Matrices/vecteurs",)},
8527 SOUS_STRUC =FACT(statut='o',min=1,max='**',
8528 NOM =SIMP(statut='o',typ='TXM' ),
8529 MACR_ELEM_DYNA =SIMP(statut='o',typ=macr_elem_dyna ),
8530 ANGL_NAUT =SIMP(statut='f',typ='R',max=3),
8531 TRANS =SIMP(statut='f',typ='R',max=3),
8533 LIAISON =FACT(statut='o',min=1,max='**',
8534 SOUS_STRUC_1 =SIMP(statut='o',typ='TXM' ),
8535 INTERFACE_1 =SIMP(statut='o',typ='TXM' ),
8536 SOUS_STRUC_2 =SIMP(statut='o',typ='TXM' ),
8537 INTERFACE_2 =SIMP(statut='o',typ='TXM' ),
8539 VERIF =FACT(statut='f',min=1,max='**',
8540 # dans la doc U stop_erreur est obligatoire
8541 STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8542 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
8543 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8546 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
8547 # CONFIGURATION MANAGEMENT OF EDF VERSION
8548 # ======================================================================
8549 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8550 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8551 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8552 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8553 # (AT YOUR OPTION) ANY LATER VERSION.
8555 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8556 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8557 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8558 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8560 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8561 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8562 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8563 # ======================================================================
8564 DEFI_NAPPE=OPER(nom="DEFI_NAPPE",op= 4,sd_prod=fonction,
8565 fr="Définition des valeurs d une fonction de deux variables réelles",
8566 docu="U4.31.03-g1",reentrant='n',
8567 UIinfo={"groupes":("Fonction",)},
8568 regles=(UN_PARMI('FONCTION','DEFI_FONCTION'),
8569 EXCLUS('FONCTION','NOM_PARA_FONC',),
8570 ENSEMBLE('NOM_PARA_FONC','DEFI_FONCTION'),),
8571 NOM_PARA =SIMP(statut='o',typ='TXM',into=("TEMP","INST","X","Y","Z","FREQ","PULS",
8572 "AMOR","EPAIS","TSEC","HYDR","SECH",
8573 "SAT", "PGAZ","PCAP"
8575 NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
8576 PARA =SIMP(statut='o',typ='R',max='**'),
8577 FONCTION =SIMP(statut='f',typ=fonction,max='**' ),
8578 NOM_PARA_FONC =SIMP(statut='f',typ='TXM',into=("TEMP","INST","X","Y","Z","EPSI","FREQ",
8579 "PULS","AMOR","EPAIS","SAT", "PGAZ","PCAP") ),
8580 DEFI_FONCTION =FACT(statut='f',max='**',
8581 VALE =SIMP(statut='o',typ='R',max='**'),
8582 INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
8583 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
8584 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
8586 INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
8587 PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
8588 PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
8589 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
8590 VERIF =SIMP(statut='f',typ='TXM',into=("CROISSANT",) ),
8591 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8593 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
8594 # CONFIGURATION MANAGEMENT OF EDF VERSION
8595 # ======================================================================
8596 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8597 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8598 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8599 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8600 # (AT YOUR OPTION) ANY LATER VERSION.
8602 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8603 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8604 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8605 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8607 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8608 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8609 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8610 # ======================================================================
8611 DEFI_OBSTACLE=OPER(nom="DEFI_OBSTACLE",op= 73,sd_prod=obstacle
8612 ,fr="Définition d un obstacle plan perpendiculaire à une structure filaire",
8613 docu="U4.44.21-e",reentrant='n',
8614 UIinfo={"groupes":("Modélisation",)},
8615 TYPE =SIMP(statut='o',typ='TXM',defaut="CERCLE",
8616 into=("CERCLE","PLAN_Y","PLAN_Z","DISCRET",
8617 "BI_CERCLE","BI_PLAN_Y","BI_PLAN_Z","BI_CERC_INT",
8618 "CRAYON_900","CRAYON_1300","GUID_A_CARTE_900",
8619 "GUID_B_CARTE_900","GUID_C_CARTE_900",
8620 "GUID_D_CARTE_900","GUID_E_CARTE_900",
8621 "GUID_F_CARTE_900","GUID_A_CARTE_1300",
8622 "GUID_B_CARTE_1300","GUID_C_CARTE_1300",
8623 "GUID_D_CARTE_1300","GUID_E_CARTE_1300",
8624 "GUID_F_CARTE_1300","GUID_A_CARSP_900",
8625 "GUID_B_CARSP_900","GUID_C_CARSP_900",
8626 "GUID_D_CARSP_900","GUID_E_CARSP_900",
8627 "GUID_F_CARSP_900","GUID_A_CARSP_1300",
8628 "GUID_B_CARSP_1300","GUID_C_CARSP_1300",
8629 "GUID_D_CARSP_1300","GUID_E_CARSP_1300",
8630 "GUID_F_CARSP_1300","GUID_A_GCONT_900",
8631 "GUID_B_GCONT_900","GUID_C_GCONT_900",
8632 "GUID_D_GCONT_900","GUID_E_GCONT_900",
8633 "GUID_F_GCONT_900","GUID_A_GCONT_1300",
8634 "GUID_B_GCONT_1300","GUID_C_GCONT_1300",
8635 "GUID_D_GCONT_1300","GUID_E_GCONT_1300",
8636 "GUID_F_GCONT_1300","GUID_A_GCOMB_900",
8637 "GUID_B_GCOMB_900","GUID_C_GCOMB_900",
8638 "GUID_D_GCOMB_900","GUID_E_GCOMB_900",
8639 "GUID_F_GCOMB_900","GUID_A_GCOMB_1300",
8640 "GUID_B_GCOMB_1300","GUID_C_GCOMB_1300",
8641 "GUID_D_GCOMB_1300","GUID_E_GCOMB_1300",
8642 "GUID_F_GCOMB_1300",) ),
8643 VALE =SIMP(statut='f',typ='R',max='**'),
8644 VERIF =SIMP(statut='f',typ='TXM',defaut="FERME"),
8646 #& MODIF COMMANDE DATE 03/12/2002 AUTEUR DURAND C.DURAND
8647 # CONFIGURATION MANAGEMENT OF EDF VERSION
8648 # ======================================================================
8649 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8650 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8651 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8652 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8653 # (AT YOUR OPTION) ANY LATER VERSION.
8655 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8656 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8657 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8658 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8660 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8661 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8662 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8663 # ======================================================================
8664 # RESPONSABLE GNICOLAS G.NICOLAS
8665 DEFI_PARA_SENSI=OPER(nom="DEFI_PARA_SENSI",op= 2,sd_prod=para_sensi,
8666 fr="Définition d'un paramètre de sensibilité",
8667 ang="Definition of a sensitive parameter",
8668 docu="U4.31.06-a1",reentrant='n',
8669 UIinfo={"groupes":("Fonction",)},
8670 NOM_RESU =SIMP(statut='c',typ='TXM',into=("TOUTRESU",),defaut="TOUTRESU",
8671 fr="Nom du concept créé",
8672 ang="Name of the concept"),
8673 VALE =SIMP(statut='o',typ='R',max=1,
8674 fr="Valeur du parametre",
8675 ang="Value of the parameter"),
8676 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8678 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
8679 # CONFIGURATION MANAGEMENT OF EDF VERSION
8680 # ======================================================================
8681 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8682 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8683 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8684 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8685 # (AT YOUR OPTION) ANY LATER VERSION.
8687 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8688 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8689 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8690 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8692 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8693 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8694 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8695 # ======================================================================
8696 DEFI_SPEC_TURB=OPER(nom="DEFI_SPEC_TURB",op= 145,sd_prod=spectre,
8697 fr="Définition d'un spectre d'excitation turbulente",
8698 docu="U4.44.31-c",reentrant='n',
8699 UIinfo={"groupes":("Modélisation",)},
8700 regles=(UN_PARMI('SPEC_LONG_COR_1','SPEC_LONG_COR_2','SPEC_LONG_COR_3',
8701 'SPEC_LONG_COR_4','SPEC_CORR_CONV_1','SPEC_CORR_CONV_2',
8702 'SPEC_FONC_FORME','SPEC_EXCI_POINT'),),
8703 SPEC_LONG_COR_1 =FACT(statut='f',max=1,
8704 LONG_COR =SIMP(statut='o',typ='R' ),
8705 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
8706 VISC_CINE =SIMP(statut='o',typ='R' ),
8708 SPEC_LONG_COR_2 =FACT(statut='f',max=1,
8709 regles=(ENSEMBLE('FREQ_COUP','PHI0','BETA' ),),
8710 LONG_COR =SIMP(statut='o',typ='R' ),
8711 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
8712 FREQ_COUP =SIMP(statut='f',typ='R',defaut= 0.1 ),
8713 PHI0 =SIMP(statut='f',typ='R',defaut= 1.5E-3 ),
8714 BETA =SIMP(statut='f',typ='R',defaut= 2.7 ),
8716 SPEC_LONG_COR_3 =FACT(statut='f',max=1,
8717 regles=(ENSEMBLE('PHI0_1','BETA_1','PHI0_2','BETA_2','FREQ_COUP'),),
8718 LONG_COR =SIMP(statut='o',typ='R' ),
8719 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
8720 FREQ_COUP =SIMP(statut='f',typ='R',defaut= 0.2 ),
8721 PHI0_1 =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
8722 BETA_1 =SIMP(statut='f',typ='R',defaut= 0.5 ),
8723 PHI0_2 =SIMP(statut='f',typ='R',defaut= 4.E-5 ),
8724 BETA_2 =SIMP(statut='f',typ='R',defaut= 3.5 ),
8726 SPEC_LONG_COR_4 =FACT(statut='f',max=1,
8727 regles=(ENSEMBLE('BETA','GAMMA'),),
8728 LONG_COR =SIMP(statut='o',typ='R' ),
8729 PROF_VITE_FLUI =SIMP(statut='o',typ=fonction ),
8730 TAUX_VIDE =SIMP(statut='o',typ='R' ),
8731 BETA =SIMP(statut='f',typ='R',defaut= 2. ),
8732 GAMMA =SIMP(statut='f',typ='R',defaut= 4. ),
8734 SPEC_CORR_CONV_1=FACT(statut='f',max=1,
8735 LONG_COR_1 =SIMP(statut='o',typ='R' ),
8736 LONG_COR_2 =SIMP(statut='f',typ='R' ),
8737 VITE_FLUI =SIMP(statut='o',typ='R' ),
8738 RHO_FLUI =SIMP(statut='o',typ='R' ),
8739 FREQ_COUP =SIMP(statut='f',typ='R' ),
8740 K =SIMP(statut='f',typ='R',defaut= 5.8E-3 ),
8741 D_FLUI =SIMP(statut='o',typ='R' ),
8742 COEF_VITE_FLUI_A=SIMP(statut='f',typ='R' ),
8743 COEF_VITE_FLUI_O=SIMP(statut='f',typ='R' ),
8744 METHODE =SIMP(statut='f',typ='TXM',defaut="GENERALE",
8745 into=("AU_YANG","GENERALE","CORCOS") ),
8747 SPEC_CORR_CONV_2=FACT(statut='f',max=1,
8748 FONCTION =SIMP(statut='o',typ=fonction ),
8749 VITE_FLUI =SIMP(statut='o',typ='R' ),
8750 FREQ_COUP =SIMP(statut='f',typ='R' ),
8751 METHODE =SIMP(statut='f',typ='TXM',defaut="GENERALE",
8752 into=("AU_YANG","GENERALE","CORCOS",) ),
8753 COEF_VITE_FLUI_A=SIMP(statut='f',typ='R' ),
8754 COEF_VITE_FLUI_O=SIMP(statut='f',typ='R' ),
8756 SPEC_FONC_FORME =FACT(statut='f',max=1,
8757 regles=(UN_PARMI('INTE_SPEC','GRAPPE_1'),
8758 ENSEMBLE('INTE_SPEC','FONCTION'),),
8759 INTE_SPEC =SIMP(statut='f',typ=tabl_intsp ),
8760 FONCTION =SIMP(statut='f',typ=fonction,max='**'),
8761 GRAPPE_1 =SIMP(statut='f',typ='TXM',into=("DEBIT_180","DEBIT_300",) ),
8762 NOEUD =SIMP(statut='o',typ=no),
8763 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
8764 MODELE =SIMP(statut='o',typ=modele ),
8766 SPEC_EXCI_POINT =FACT(statut='f',max=1,
8767 regles=(UN_PARMI('INTE_SPEC','GRAPPE_2'),),
8768 INTE_SPEC =SIMP(statut='f',typ=tabl_intsp ),
8769 GRAPPE_2 =SIMP(statut='f',typ='TXM',
8770 into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC",) ),
8771 # Quels sont les statuts des mots cles à l interieur des deux blocs qui suivent
8772 b_inte_spec =BLOC(condition = "INTE_SPEC != None",
8773 NATURE =SIMP(statut='o',typ='TXM',max='**',into=("FORCE","MOMENT",) ),
8774 ANGL =SIMP(statut='o',typ='R',max='**'),
8775 NOEUD =SIMP(statut='o',typ=no,max='**'),
8777 b_grappe_2 =BLOC(condition = "GRAPPE_2 != None",
8778 RHO_FLUI =SIMP(statut='o',typ='R' ),
8779 NOEUD =SIMP(statut='o',typ=no),
8781 CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
8782 MODELE =SIMP(statut='o',typ=modele ),
8784 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8786 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
8787 # CONFIGURATION MANAGEMENT OF EDF VERSION
8788 # ======================================================================
8789 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8790 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8791 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8792 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8793 # (AT YOUR OPTION) ANY LATER VERSION.
8795 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8796 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8797 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8798 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8800 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8801 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8802 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8803 # ======================================================================
8804 DEFI_SQUELETTE=OPER(nom="DEFI_SQUELETTE",op= 110,sd_prod=squelette,
8805 fr="Définition d un maillage de visualisation",
8806 docu="U4.24.01-e",reentrant='n',
8807 UIinfo={"groupes":("Maillage",)},
8808 regles=(UN_PARMI('MODE_CYCL','MODELE_GENE','MAILLAGE'),
8809 PRESENT_PRESENT('MODE_CYCL','SECTEUR'),
8810 EXCLUS('SOUS_STRUC','SECTEUR'),
8811 PRESENT_PRESENT('NOM_GROUP_MA','MODELE_GENE'),
8812 PRESENT_PRESENT('NOM_GROUP_MA','SOUS_STRUC'),),
8813 MODE_CYCL =SIMP(statut='f',typ=mode_cycl ),
8814 MODELE_GENE =SIMP(statut='f',typ=modele_gene ),
8815 SQUELETTE =SIMP(statut='f',typ=squelette ),
8816 RECO_GLOBAL =FACT(statut='f',min=1,max='**',
8817 regles=(EXCLUS('TOUT','GROUP_NO_1'),
8818 PRESENT_PRESENT('GROUP_NO_1','GROUP_NO_2'),
8819 PRESENT_PRESENT('GROUP_NO_1','SOUS_STRUC_1'),
8820 PRESENT_PRESENT('GROUP_NO_2','SOUS_STRUC_2'),
8821 PRESENT_PRESENT('SOUS_STRUC_1','SOUS_STRUC_2'),),
8822 TOUT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",) ),
8823 GROUP_NO_1 =SIMP(statut='f',typ=grno),
8824 SOUS_STRUC_1 =SIMP(statut='f',typ='TXM' ),
8825 GROUP_NO_2 =SIMP(statut='f',typ=grno),
8826 SOUS_STRUC_2 =SIMP(statut='f',typ='TXM' ),
8827 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
8828 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8829 DIST_REFE =SIMP(statut='f',typ='R' ),
8831 NOM_GROUP_MA =FACT(statut='f',min=1,max='**',
8832 NOM =SIMP(statut='o',typ='TXM' ),
8833 SOUS_STRUC =SIMP(statut='o',typ='TXM' ),
8834 GROUP_MA =SIMP(statut='o',typ=grma),
8836 EXCLUSIF =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8837 MAILLAGE =SIMP(statut='f',typ=maillage ),
8838 MAILLE =SIMP(statut='f',typ=ma,max='**'),
8839 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
8840 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8841 TRANS =SIMP(statut='f',typ='R',min=3,max=3),
8842 ANGL_NAUT =SIMP(statut='f',typ='R',min=3,max=3),
8843 SOUS_STRUC =FACT(statut='f',min=1,max='**',
8844 NOM =SIMP(statut='f',typ='TXM' ),
8845 MAILLE =SIMP(statut='f',typ=ma,max='**'),
8846 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
8847 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8849 SECTEUR =FACT(statut='f',min=1,max='**',
8850 MAILLE =SIMP(statut='f',typ=ma,max='**'),
8851 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
8852 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8854 TITRE =SIMP(statut='f',typ='TXM',max='**'),
8856 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
8857 # CONFIGURATION MANAGEMENT OF EDF VERSION
8858 # ======================================================================
8859 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8860 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8861 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8862 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8863 # (AT YOUR OPTION) ANY LATER VERSION.
8865 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8866 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8867 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8868 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8870 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8871 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8872 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8873 # ======================================================================
8874 DEFI_TEXTURE=OPER(nom="DEFI_TEXTURE",op= 181,sd_prod=tabl_texture,
8875 fr=" ",docu="U4.43.05-a",reentrant='n',
8876 UIinfo={"groupes":("Modélisation",)},
8877 SYST_GLISSEMENT =FACT(statut='o',min=3,max=3,
8878 N =SIMP(statut='o',typ='R',min=12,max=12 ),
8879 L =SIMP(statut='o',typ='R',max='**' ),
8881 PLAN =FACT(statut='o',min=40,max=40,
8882 ANGL_NAUT =SIMP(statut='o',typ='R',max='**' ),
8883 PROPORTION =SIMP(statut='o',typ='R' ),
8885 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
8887 #& MODIF COMMANDE DATE 03/12/2002 AUTEUR DURAND C.DURAND
8888 # CONFIGURATION MANAGEMENT OF EDF VERSION
8889 # ======================================================================
8890 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8891 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8892 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8893 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8894 # (AT YOUR OPTION) ANY LATER VERSION.
8896 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8897 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8898 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8899 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8901 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8902 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8903 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8904 # ======================================================================
8905 DEFI_THER_JOULE=OPER(nom="DEFI_THER_JOULE",op= 121,sd_prod=fonction,docu="U4.mk.20-d",reentrant='n',
8906 UIinfo={"groupes":("Outils métier",)},
8907 fr="Calculer la fonction d évolution temporelle de température due à l effet JOULE dans un cable",
8908 LIST_INST =SIMP(statut='o',typ=listr8),
8909 INST_CC_INIT =SIMP(statut='f',typ='R',defaut= 0.0E+0 ),
8910 INST_CC_FIN =SIMP(statut='f',typ='R',defaut= 1.0E+10),
8911 INST_RENC_INIT =SIMP(statut='f',typ='R',defaut= 1.0E+10),
8912 INST_RENC_FIN =SIMP(statut='f',typ='R',defaut= 1.0E+10),
8913 TEMP_EXT_POSE =SIMP(statut='f',typ='R',defaut= 15.0E+0),
8914 TEMP_EXT =SIMP(statut='f',typ='R',defaut= 15.0E+0),
8915 TEMP_RESI_REF =SIMP(statut='f',typ='R',defaut= 20.0E+0),
8916 PARA_COND_1D =FACT(statut='f',min=1,max='**',
8917 INTE_CC =SIMP(statut='f',typ='R',defaut= 0.0E+0),
8918 INTE_RENC =SIMP(statut='f',typ='R',defaut= 0.0E+0),
8919 A =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8920 SECTION =SIMP(statut='f',typ='TXM',defaut="CERCLE",into=("CERCLE",) ),
8921 RESI_R0 =SIMP(statut='f',typ='R',defaut= 0.0E+0),
8922 RESI_R1 =SIMP(statut='f',typ='R',defaut= 0.E+0),
8923 RHO_CP =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8924 COEF_H =SIMP(statut='f',typ='R',defaut= 40.0E+0),
8925 TEMP_INIT =SIMP(statut='f',typ='R',defaut= 15.0E+0),
8929 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
8930 # CONFIGURATION MANAGEMENT OF EDF VERSION
8931 # ======================================================================
8932 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8933 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8934 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8935 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8936 # (AT YOUR OPTION) ANY LATER VERSION.
8938 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8939 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8940 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8941 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8943 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8944 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8945 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8946 # ======================================================================
8947 DEFI_TRC=OPER(nom="DEFI_TRC",op=94,sd_prod=tabl_trc,docu="U4.43.04-e",reentrant='n',
8948 UIinfo={"groupes":("Modélisation",)},
8949 fr="Définition d un diagramme de transformations en refroidissement continu d un acier",
8950 HIST_EXP =FACT(statut='o',min=1,max='**',
8951 VALE =SIMP(statut='o',typ='R',max='**'),
8953 TEMP_MS =FACT(statut='o',min=1,max='**',
8954 SEUIL =SIMP(statut='o',typ='R'),
8955 AKM =SIMP(statut='o',typ='R'),
8956 BKM =SIMP(statut='o',typ='R'),
8957 TPLM =SIMP(statut='o',typ='R'),
8959 GRAIN_AUST =FACT(statut='f',min=1,max='**',
8960 DREF =SIMP(statut='f',typ='R'),
8961 A =SIMP(statut='f',typ='R'),
8964 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
8965 # CONFIGURATION MANAGEMENT OF EDF VERSION
8966 # ======================================================================
8967 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
8968 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8969 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8970 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8971 # (AT YOUR OPTION) ANY LATER VERSION.
8973 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8974 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8975 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8976 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8978 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8979 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8980 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8981 # ======================================================================
8982 def defi_valeur_prod(self,IS=None,R8=None,TX=None,C8=None,LS=None):
8983 if IS != None : return entier
8984 if R8 != None : return reel
8985 if TX != None : return chaine
8986 if C8 != None : return complexe
8987 if LS != None : return liste
8988 raise AsException("type de concept resultat non prevu")
8990 DEFI_VALEUR=MACRO(nom="DEFI_VALEUR",op=-4,sd_prod=defi_valeur_prod,
8991 fr="Affectation d une valeur à une variable Superviseur",
8992 docu="U4.31.04-f1",reentrant='f',
8993 UIinfo={"groupes":("Fonction",)},
8994 regles=(UN_PARMI('IS','R8','TX','C8','LS'),),
8995 IS =SIMP(statut='f',typ='I',max='**'),
8996 R8 =SIMP(statut='f',typ='R',max='**'),
8997 TX =SIMP(statut='f',typ='TXM',max='**'),
8998 C8 =SIMP(statut='f',typ='C',max='**'),
8999 LS =SIMP(statut='f',typ='L',max='**'),
9001 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9002 # CONFIGURATION MANAGEMENT OF EDF VERSION
9003 # ======================================================================
9004 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9005 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9006 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9007 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9008 # (AT YOUR OPTION) ANY LATER VERSION.
9010 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9011 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9012 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9013 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9015 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9016 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9017 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9018 # ======================================================================
9019 DEFUFI=PROC(nom="DEFUFI",op=21,docu="U4.12.01-d",
9020 UIinfo={"groupes":("Gestion du travail",)},
9021 fr="Modification / ajout d une unité logique en sortie en complément de celles définies dans DEBUT",
9022 IMPRESSION =FACT(statut='o',min=1,max='**',
9023 NOM =SIMP(statut='o',typ='TXM',max='**'),
9024 UNITE =SIMP(statut='o',typ='I' ),
9027 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9028 # CONFIGURATION MANAGEMENT OF EDF VERSION
9029 # ======================================================================
9030 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9031 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9032 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9033 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9034 # (AT YOUR OPTION) ANY LATER VERSION.
9036 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9037 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9038 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9039 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9041 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9042 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9043 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9044 # ======================================================================
9045 DEPL_INTERNE=OPER(nom="DEPL_INTERNE",op=89,sd_prod=cham_no_depl_r,docu="U4.62.02-e",reentrant='n',
9046 UIinfo={"groupes":("Matrices/vecteurs",)},
9047 fr="Récupération du champ de déplacement interne à une sous-structure",
9048 DEPL_GLOBAL =SIMP(statut='o',typ=cham_no_depl_r),
9049 MAILLE =SIMP(statut='o',typ=ma,max=1),
9050 NOM_CAS =SIMP(statut='f',typ='TXM',defaut=" "),
9052 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9053 # CONFIGURATION MANAGEMENT OF EDF VERSION
9054 # ======================================================================
9055 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9056 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9057 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9058 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9059 # (AT YOUR OPTION) ANY LATER VERSION.
9061 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9062 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9063 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9064 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9066 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9067 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9068 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9069 # ======================================================================
9070 DETRUIRE=PROC(nom="DETRUIRE",op=-7,docu="U4.14.01-d",
9071 UIinfo={"groupes":("Gestion du travail",)},
9072 fr="Destruction d un concept utilisateur dans la base GLOBALE",
9073 op_init=ops.detruire,
9074 CONCEPT =FACT(statut='o',min=01,
9075 NOM =SIMP(statut='o',typ=assd,max='**'),
9078 #& MODIF COMMANDE DATE 13/01/2003 AUTEUR DURAND C.DURAND
9079 # CONFIGURATION MANAGEMENT OF EDF VERSION
9080 # ======================================================================
9081 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9082 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9083 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9084 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9085 # (AT YOUR OPTION) ANY LATER VERSION.
9087 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9088 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9089 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9090 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9092 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9093 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9094 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9095 # ======================================================================
9096 DIST_LIGN_3D=OPER(nom="DIST_LIGN_3D",op= 133,sd_prod=fonction,docu="U4.mk.30-d",reentrant='n',
9097 UIinfo={"groupes":("Outils métier",)},
9098 fr="Calcul sous forme d une fonction du temps de la distance minimale entre deux structures filaires",
9099 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),
9100 UN_PARMI('GROUP_MA_2','POIN_FIXE'),),
9101 MODELE =SIMP(statut='o',typ=modele),
9102 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,evol_noli) ),
9103 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",)),
9104 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
9105 INST =SIMP(statut='f',typ='R',max='**'),
9106 LIST_INST =SIMP(statut='f',typ=listr8),
9107 LIST_ORDRE =SIMP(statut='f',typ=listis),
9108 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
9109 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
9110 GROUP_MA_1 =SIMP(statut='o',typ=grma,max='**'),
9111 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
9112 POIN_FIXE =SIMP(statut='f',typ='R',min=3,max=3),
9113 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
9115 #& MODIF COMMANDE DATE 14/10/2002 AUTEUR BOYERE E.BOYERE
9116 # CONFIGURATION MANAGEMENT OF EDF VERSION
9117 # ======================================================================
9118 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9119 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9120 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9121 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9122 # (AT YOUR OPTION) ANY LATER VERSION.
9124 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9125 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9126 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9127 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9129 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9130 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9131 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9132 # ======================================================================
9133 DYNA_ALEA_MODAL=OPER(nom="DYNA_ALEA_MODAL",op= 131,sd_prod=tabl_intsp
9134 ,fr="Calcule la réponse spectrale d une structure linéaire sous une excitation connue par sa DSP",
9135 docu="U4.53.22-d",reentrant='n',
9136 UIinfo={"groupes":("Résolution",)},
9137 BASE_MODALE =FACT(statut='o',min=1,max=1,
9138 regles=(UN_PARMI('NUME_ORDRE','BANDE'),),
9139 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
9140 BANDE =SIMP(statut='f',typ='R',max=2),
9141 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
9142 b_bande =BLOC(condition = "BANDE != None",
9143 AMOR_UNIF =SIMP(statut='o',typ='R' ),
9145 b_nume_ordre =BLOC(condition = "NUME_ORDRE != None",
9146 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
9149 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,)),
9150 EXCIT =FACT(statut='o',min=1,max=1,
9151 regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I'),
9152 EXCLUS('CHAM_NO','NOEUD'),),
9153 DERIVATION =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ) ),
9154 MODAL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9155 # dans la doc U il y a plus de choix pour GRANDEUR
9156 GRANDEUR =SIMP(statut='f',typ='TXM',defaut="DEPL_R",
9157 into=("DEPL_R","EFFO","SOUR_DEBI_VOLU","SOUR_DEBI_MASS","SOUR_PRESS","SOUR_FORCE")),
9158 INTE_SPEC =SIMP(statut='o',typ=tabl_intsp ),
9159 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
9160 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG",) ),
9161 # Toutes les regles ne semblent pas avoir été ecrites dans la doc U
9162 NUME_ORDRE_I =SIMP(statut='f',typ='I',max='**'),
9163 NOEUD_I =SIMP(statut='f',typ=no,max='**'),
9164 b_nume_ordre_i =BLOC(condition = "NUME_ORDRE_I != None",
9165 NUME_ORDRE_J =SIMP(statut='o',typ='I',max='**'),
9167 b_noeud_i =BLOC(condition = "NOEUD_I != None",
9168 NOEUD_J =SIMP(statut='o',typ=no,max='**'),
9169 NOM_CMP_I =SIMP(statut='o',typ='TXM',max='**'),
9170 NOM_CMP_J =SIMP(statut='o',typ='TXM',max='**'),
9172 CHAM_NO =SIMP(statut='f',typ=cham_no),
9173 NOEUD =SIMP(statut='f',typ=no,max='**'),
9174 b_noeud =BLOC(condition = "NOEUD != None",
9175 NOM_CMP =SIMP(statut='o',typ='TXM',max='**'),
9178 REPONSE =FACT(statut='f',min=1,max=1,
9179 regles=( ENSEMBLE('FREQ_MIN','FREQ_MAX'),),
9180 DERIVATION =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ,) ),
9181 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
9182 FREQ_MIN =SIMP(statut='f',typ='R' ),
9183 FREQ_MAX =SIMP(statut='f',typ='R' ),
9184 PAS =SIMP(statut='f',typ='R' ),
9185 b_defaut_freq =BLOC(condition = "FREQ_MIN == NONE",
9186 FREQ_EXCIT =SIMP(statut='f',typ='TXM',defaut="AVEC",into=("AVEC","SANS") ),
9187 NB_POIN_MODE =SIMP(statut='f',typ='I',defaut= 50 ),
9190 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9191 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
9193 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9194 # CONFIGURATION MANAGEMENT OF EDF VERSION
9195 # ======================================================================
9196 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9197 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9198 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9199 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9200 # (AT YOUR OPTION) ANY LATER VERSION.
9202 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9203 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9204 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9205 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9207 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9208 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9209 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9210 # ======================================================================
9211 def dyna_line_harm_prod(MATR_MASS,**args):
9212 if AsType(MATR_MASS) == matr_asse_depl_r : return dyna_harmo
9213 if AsType(MATR_MASS) == matr_asse_depl_c : return dyna_harmo
9214 if AsType(MATR_MASS) == matr_asse_pres_c : return acou_harmo
9215 if AsType(MATR_MASS) == matr_asse_gene_r : return harm_gene
9216 raise AsException("type de concept resultat non prevu")
9218 DYNA_LINE_HARM=OPER(nom="DYNA_LINE_HARM",op= 60,sd_prod=dyna_line_harm_prod,
9219 fr="Réponse dynamique complexe d un système à une excitation harmonique",
9220 docu="U4.53.11-e",reentrant='n',
9221 UIinfo={"groupes":("Résolution",)},
9222 regles=(PRESENT_ABSENT('AMOR_REDUIT','MATR_AMOR'),
9223 PRESENT_ABSENT('AMOR_REDUIT','LIST_AMOR'),
9224 PRESENT_ABSENT('MATR_AMOR','LIST_AMOR'),
9225 UN_PARMI('FREQ','LIST_FREQ'),),
9226 MODELE =SIMP(statut='f',typ=modele ),
9227 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
9228 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
9229 MATR_MASS =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_pres_c,matr_asse_gene_r ) ),
9230 MATR_RIGI =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_pres_c
9231 ,matr_asse_gene_r,matr_asse_gene_c ) ),
9232 MATR_AMOR =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_pres_c,matr_asse_gene_r ) ),
9233 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
9234 LIST_AMOR =SIMP(statut='f',typ=listr8 ),
9235 MATR_IMPE_PHI =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_gene_r) ),
9236 FREQ =SIMP(statut='f',typ='R',max='**'),
9237 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
9238 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI",)),
9239 NOM_CHAM =SIMP(statut='f',typ='TXM',max=3,into=("DEPL","VITE","ACCE") ),
9240 EXCIT =FACT(statut='o',min=1,max='**',
9241 regles=(UN_PARMI('VECT_ASSE','CHARGE'),
9242 UN_PARMI('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
9243 VECT_ASSE =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_pres_c,vect_asse_gene ) ),
9244 CHARGE =SIMP(statut='f',typ=char_meca ),
9245 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
9246 FONC_MULT_C =SIMP(statut='f',typ=fonction_c ),
9247 COEF_MULT_C =SIMP(statut='f',typ='C' ),
9248 FONC_MULT =SIMP(statut='f',typ=fonction ),
9249 COEF_MULT =SIMP(statut='f',typ='R' ),
9250 PHAS_DEG =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9251 PUIS_PULS =SIMP(statut='f',typ='I',defaut= 0 ),
9253 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9254 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
9255 fr="Liste des paramètres de sensibilité.",
9256 ang="List of sensitivity parameters"),
9258 # Rajouter test icompatibilite vect_asse et sensibilite
9259 # Peut-on aussi rajouter ici le test d incompatibilite charge complexe - derivation
9260 # presents dans le Fortran
9261 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9262 # CONFIGURATION MANAGEMENT OF EDF VERSION
9263 # ======================================================================
9264 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9265 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9266 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9267 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9268 # (AT YOUR OPTION) ANY LATER VERSION.
9270 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9271 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9272 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9273 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9275 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9276 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9277 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9278 # ======================================================================
9279 DYNA_LINE_TRAN=OPER(nom="DYNA_LINE_TRAN",op= 48,sd_prod=dyna_trans,
9280 fr="Réponse temporelle d un système à une excitation transitoire",
9281 docu="U4.53.02-g1",reentrant='f',
9282 UIinfo={"groupes":("Résolution",)},
9283 # regles=(UN_PARMI('WILSON','DIFF_CENTRE','ADAPT'),),
9284 regles=(UN_PARMI('NEWMARK','WILSON','DIFF_CENTRE','ADAPT'),),
9285 MODELE =SIMP(statut='f',typ=modele ),
9286 CHAM_MATER =SIMP(statut='f',typ=cham_mater ),
9287 CARA_ELEM =SIMP(statut='f',typ=cara_elem ),
9288 MATR_MASS =SIMP(statut='o',typ=matr_asse_depl_r ),
9289 MATR_RIGI =SIMP(statut='o',typ=matr_asse_depl_r ),
9290 MATR_AMOR =SIMP(statut='f',typ=matr_asse_depl_r ),
9291 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
9292 NEWMARK =FACT(statut='f',min=1,max=1,
9293 ALPHA =SIMP(statut='f',typ='R',defaut= 0.25 ),
9294 DELTA =SIMP(statut='f',typ='R',defaut= 0.5 ),
9296 WILSON =FACT(statut='f',min=1,max=1,
9297 THETA =SIMP(statut='f',typ='R',defaut= 1.4 ),
9299 DIFF_CENTRE =FACT(statut='f',min=1,max=1,
9301 ADAPT =FACT(statut='f',min=1,max=1,
9303 ETAT_INIT =FACT(statut='f',min=1,max=1,
9304 regles=(AU_MOINS_UN('DYNA_TRANS', 'DEPL_INIT', 'VITE_INIT',),
9305 PRESENT_ABSENT('DYNA_TRANS', 'DEPL_INIT', 'VITE_INIT'),),
9306 DYNA_TRANS =SIMP(statut='f',typ=dyna_trans ),
9307 b_dyna_trans =BLOC(condition = "DYNA_TRANS != None",
9308 regles=(EXCLUS('NUME_INIT','INST_INIT' ),),
9309 NUME_INIT =SIMP(statut='f',typ='I' ),
9310 INST_INIT =SIMP(statut='f',typ='R' ),
9311 b_inst_init =BLOC(condition = "INST_INIT != None",
9312 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9313 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
9316 DEPL_INIT =SIMP(statut='f',typ=(cham_no_depl_r) ),
9317 VITE_INIT =SIMP(statut='f',typ=(cham_no_depl_r) ),
9319 EXCIT =FACT(statut='f',min=1,max='**',
9320 regles=(UN_PARMI('CHARGE','VECT_ASSE'),
9321 EXCLUS('CHARGE','COEF_MULT'),
9322 EXCLUS('FONC_MULT','COEF_MULT'),
9323 EXCLUS('ACCE','COEF_MULT'),
9324 PRESENT_ABSENT('ACCE','FONC_MULT'),
9325 PRESENT_PRESENT('ACCE','VITE','DEPL'),
9326 PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
9327 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r ),
9328 CHARGE =SIMP(statut='f',typ=char_meca ),
9329 FONC_MULT =SIMP(statut='f',typ=fonction ),
9330 COEF_MULT =SIMP(statut='f',typ='R' ),
9331 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
9332 ACCE =SIMP(statut='f',typ=fonction ),
9333 VITE =SIMP(statut='f',typ=fonction ),
9334 DEPL =SIMP(statut='f',typ=fonction ),
9335 MULT_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9336 DIRECTION =SIMP(statut='f',typ='R',max='**'),
9337 NOEUD =SIMP(statut='f',typ=no,max='**'),
9338 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
9340 AMOR_MODAL =FACT(statut='f',min=1,max=1,
9341 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
9342 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
9343 NB_MODE =SIMP(statut='f',typ='I',defaut= 9999 ),
9344 REAC_VITE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9346 # ce n est pas le mot clesolveur standard
9347 SOLVEUR =FACT(statut='d',min=1,max=1,
9348 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9349 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
9350 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9351 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
9352 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
9354 INCREMENT =FACT(statut='o',min=1,max='**',
9355 regles=(UN_PARMI('LIST_INST','FONC_INST','PAS'),),
9356 LIST_INST =SIMP(statut='f',typ=listr8 ),
9357 FONC_INST =SIMP(statut='f',typ=fonction ),
9358 PAS =SIMP(statut='f',typ='R' ),
9359 b_pas =BLOC(condition = "PAS != None",
9360 INST_INIT =SIMP(statut='f',typ='R' ),
9361 INST_FIN =SIMP(statut='f',typ='R' ),
9363 b_list_fonc =BLOC(condition = "LIST_INST != None or FONC_INST != None",
9364 regles=(EXCLUS('INST_FIN','NUME_FIN'),),
9365 NUME_FIN =SIMP(statut='f',typ='I' ),
9366 INST_FIN =SIMP(statut='f',typ='R' ),
9368 VITE_MIN =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
9369 COEF_MULT_PAS =SIMP(statut='f',typ='R',defaut= 1.1 ),
9370 COEF_DIVI_PAS =SIMP(statut='f',typ='R',defaut= 1.33334 ),
9371 PAS_LIMI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
9372 NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
9373 NMAX_ITER_PAS =SIMP(statut='f',typ='I',defaut= 16 ),
9374 PAS_CALCUL =SIMP(statut='f',typ='I',defaut= 1 ),
9376 ARCHIVAGE =FACT(statut='f',min=1,max=1,
9377 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH', ),),
9378 LIST_ARCH =SIMP(statut='f',typ=listis ),
9379 PAS_ARCH =SIMP(statut='f',typ='I' ),
9380 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","VITE","ACCE") ),
9382 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9383 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
9385 #& MODIF COMMANDE DATE 31/01/2003 AUTEUR PBADEL P.BADEL
9386 # CONFIGURATION MANAGEMENT OF EDF VERSION
9387 # ======================================================================
9388 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9389 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9390 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9391 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9392 # (AT YOUR OPTION) ANY LATER VERSION.
9394 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9395 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9396 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9397 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9399 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9400 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9401 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9402 # ======================================================================
9403 DYNA_NON_LINE=OPER(nom="DYNA_NON_LINE",op= 70,sd_prod=evol_noli,reentrant='f',
9404 fr="Analyse mécanique dynamique non linéaire",docu="U4.53.01-f2",
9405 UIinfo={"groupes":("Résolution",)},
9406 regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS',),
9407 UN_PARMI('NEWMARK','HHT', ),),
9408 MODELE =SIMP(statut='o',typ=modele),
9409 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
9410 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,)),
9411 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
9412 EXCIT =FACT(statut='o',min=1,max='**',
9413 regles=(PRESENT_ABSENT('FONC_MULT','ACCE'),
9414 PRESENT_PRESENT('ACCE','VITE','DEPL'),
9415 PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
9416 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
9417 into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
9418 CHARGE =SIMP(statut='o',typ=char_meca),
9419 FONC_MULT =SIMP(statut='f',typ=fonction),
9420 DEPL =SIMP(statut='f',typ=fonction),
9421 ACCE =SIMP(statut='f',typ=fonction),
9422 VITE =SIMP(statut='f',typ=fonction),
9423 MULT_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9424 DIRECTION =SIMP(statut='f',typ='R',max='**'),
9425 NOEUD =SIMP(statut='f',typ=no,max='**'),
9426 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
9428 AMOR_MODAL =FACT(statut='f',min=1,max=1,
9429 MODE_MECA =SIMP(statut='f',typ=mode_meca),
9430 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**' ),
9431 NB_MODE =SIMP(statut='f',typ='I',defaut= 9999 ),
9432 REAC_VITE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9434 VARI_COMM =FACT(statut='f',
9435 regles=(AU_MOINS_UN('IRRA',),),
9436 IRRA =SIMP(statut='f',typ=evol_varc),
9438 COMP_INCR =C_COMP_INCR(),
9439 COMP_ELAS =FACT(statut='f',min=1,max='**',
9440 RELATION =SIMP(statut='o',typ='TXM',defaut="ELAS",
9441 into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
9442 "ELAS_POUTRE_GR","CABLE")),
9443 ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
9444 ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
9445 ELAS_VMIS_LINE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
9446 ELAS_POUTRE_GR =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
9447 CABLE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
9448 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GREEN","GREEN_GR",) ),
9449 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
9450 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9451 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9452 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9454 #-------------------------------------------------------------------
9455 ETAT_INIT =FACT(statut='f',min=1,max=1,
9456 regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','VITE','SIGM','VARI','VARI_NON_LOCAL',),
9457 EXCLUS('EVOL_NOLI','DEPL',),
9458 EXCLUS('EVOL_NOLI','VITE'),
9459 EXCLUS('EVOL_NOLI','SIGM',),
9460 EXCLUS('EVOL_NOLI','VARI',),
9461 EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
9462 EXCLUS('NUME_ORDRE','INST'), ),
9463 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
9464 VITE =SIMP(statut='f',typ=cham_no_depl_r),
9465 SIGM =SIMP(statut='f',typ=(cham_elem_sief_r,carte_sief_r)),
9466 VARI =SIMP(statut='f',typ=cham_elem_vari_r),
9467 VARI_NON_LOCAL =SIMP(statut='f',typ=cham_no_vanl_r),
9468 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
9469 NUME_ORDRE =SIMP(statut='f',typ='I'),
9470 INST =SIMP(statut='f',typ='R'),
9471 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
9472 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
9473 NUME_DIDI =SIMP(statut='f',typ='I'),
9474 INST_ETAT_INIT =SIMP(statut='f',typ='R'),
9476 #-------------------------------------------------------------------
9477 INCREMENT =FACT(statut='o',min=1,max=1,
9478 regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
9479 EXCLUS('NUME_INST_FIN','INST_FIN'),),
9480 LIST_INST =SIMP(statut='o',typ=listr8),
9481 EVOLUTION =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
9482 into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
9483 NUME_INST_INIT =SIMP(statut='f',typ='I'),
9484 INST_INIT =SIMP(statut='f',typ='R'),
9485 NUME_INST_FIN =SIMP(statut='f',typ='I'),
9486 INST_FIN =SIMP(statut='f',typ='R'),
9487 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
9488 SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
9489 SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
9490 COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
9491 OPTI_LIST_INST =SIMP(statut='f',typ='TXM',into=("INCR_MAXI",),),
9492 NOM_CHAM =SIMP(statut='f',typ='TXM',),
9493 NOM_CMP =SIMP(statut='f',typ='TXM',),
9494 VALE =SIMP(statut='f',typ='R'),
9496 #-------------------------------------------------------------------
9497 NEWMARK =FACT(statut='f',min=1,max=1,
9498 ALPHA =SIMP(statut='f',typ='R',defaut= 0.25),
9499 DELTA =SIMP(statut='f',typ='R',defaut= 0.5),
9501 HHT =FACT(statut='f',min=1,max=1,
9502 ALPHA =SIMP(statut='f',typ='R'
9503 ,defaut= -0.29999999999999999 ),
9505 NEWTON =FACT(statut='d',min=1,max=1,
9506 REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
9507 PREDICTION =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE") ),
9508 MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
9509 REAC_ITER =SIMP(statut='f',typ='I',defaut= 0),
9510 PAS_MINI_ELAS =SIMP(statut='f',typ='R',defaut=0.0E+0),
9512 SOLVEUR =FACT(statut='d',min=1,max=1,
9513 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
9514 b_mult_front =BLOC(condition= "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
9515 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
9517 b_ldlt =BLOC(condition= "METHODE == 'LDLT'",fr="Paramètres de la méthode LDLT",
9518 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
9520 b_ldlt_mult =BLOC(condition="METHODE == 'LDLT' or METHODE == 'MULT_FRONT'",
9521 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
9522 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
9523 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","DECOUPE") ),
9525 b_gcpc =BLOC(condition="METHODE == 'GCPC'",fr="Paramètres de la méthode du gradient conjugué",
9526 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
9527 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
9528 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
9529 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
9530 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
9532 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9533 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9535 #-------------------------------------------------------------------
9536 RECH_LINEAIRE =FACT(statut='f',min=1,max=1,
9537 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
9538 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 3),
9539 ITER_LINE_CRIT =SIMP(statut='f',typ='I',defaut= 20),
9540 PAS_MINI_CRIT =SIMP(statut='f',typ='R',defaut=0.0E+0),
9541 RHO_MIN =SIMP(statut='f',typ='R',defaut=1.0E-2),
9542 RHO_MAX =SIMP(statut='f',typ='R',defaut=1.0E+1),
9543 RHO_EXCL =SIMP(statut='f',typ='R',defaut=0.9E-2),
9545 PILOTAGE =FACT(statut='f',min=1,max=1,
9546 regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
9547 TYPE =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","PRED_ELAS_INCR","DEFORMATION","ANA_LIM") ),
9548 COEF_MULT =SIMP(statut='f',typ='R',defaut= 1.0E+0),
9549 ETA_PILO_MAX =SIMP(statut='f',typ='R'),
9550 ETA_PILO_MIN =SIMP(statut='f',typ='R'),
9551 ETA_PILO_R_MAX =SIMP(statut='f',typ='R'),
9552 ETA_PILO_R_MIN =SIMP(statut='f',typ='R'),
9553 PROJ_BORNES =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
9554 SELECTION =SIMP(statut='f',typ='TXM',defaut="NORM_INCR_DEPL", into=("RESIDU","ANGL_INCR_DEPL","NORM_INCR_DEPL") ),
9555 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9556 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
9557 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9558 NOEUD =SIMP(statut='f',typ=no,max='**'),
9559 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
9560 NOM_CMP =SIMP(statut='f',typ='TXM',max='**' ),
9562 CONVERGENCE =FACT(statut='d',min=1,max=1,
9563 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
9564 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
9565 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
9566 ITER_GLOB_ELAS =SIMP(statut='f',typ='I',defaut=25),
9567 ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
9568 RESI_INTE_RELA =SIMP(statut='f',typ='R'
9570 ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
9571 ITER_INTE_PAS =SIMP(statut='f',typ='I',defaut= 0 ),
9572 TYPE_MATR_COMP =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
9573 RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
9574 into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
9576 #-------------------------------------------------------------------
9577 OPTION =SIMP(statut='f',typ='TXM',max='**',defaut="ELNO",
9578 into=("SIEF_ELNO_ELGA","VARI_ELNO_ELGA","EFGE_ELNO_CART","ELNO","SANS") ),
9579 ARCHIVAGE =FACT(statut='f',min=1,max=1,
9580 regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
9581 EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
9582 LIST_INST =SIMP(statut='f',typ=(listr8) ),
9583 INST =SIMP(statut='f',typ='R',max='**' ),
9584 PAS_ARCH =SIMP(statut='f',typ='I' ),
9585 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
9586 ARCH_ETAT_INIT =SIMP(statut='f',typ='TXM',into=("OUI",)),
9587 NUME_INIT =SIMP(statut='f',typ='I'),
9588 DETR_NUME_SUIV =SIMP(statut='f',typ='TXM',into=("OUI",)),
9589 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**',
9590 into=("DEPL","SIEF_ELGA","VARI_ELGA","ACCE","VITE","VARI_NON_LOCAL","LANL_ELGA")),
9592 OBSERVATION =FACT(statut='f',min=1,max='**',
9593 regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
9594 PRESENT_PRESENT('MAILLE','POINT'),),
9595 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
9597 into=("DEPL","VITE","ACCE","SIEF_ELGA","VARI_ELGA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU") ),
9598 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
9599 LIST_ARCH =SIMP(statut='f',typ=listis),
9600 LIST_INST =SIMP(statut='f',typ=listr8),
9601 INST =SIMP(statut='f',typ='R',max='**' ),
9602 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
9603 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
9604 PAS_OBSE =SIMP(statut='f',typ='I'),
9605 NOEUD =SIMP(statut='f',typ=no,max='**'),
9606 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
9607 MAILLE =SIMP(statut='f',typ=ma,max='**'),
9608 POINT =SIMP(statut='f',typ='I',max='**'),
9610 #-------------------------------------------------------------------
9611 SOLV_NON_LOCAL =FACT(statut='f',min=1,max=1,
9612 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
9613 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
9614 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
9616 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
9617 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
9619 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
9620 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
9621 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
9622 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9624 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
9625 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
9626 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
9627 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
9628 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
9630 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9632 LAGR_NON_LOCAL =FACT(statut='f',max=1,
9633 ITER_DUAL_MAXI =SIMP(statut='f',typ='I',defaut= 50),
9634 RESI_DUAL_ABSO =SIMP(statut='o',typ='R'),
9635 RESI_PRIM_ABSO =SIMP(statut='o',typ='R'),
9636 R =SIMP(statut='f',typ='R',defaut= 1000.),
9637 ITER_PRIM_MAXI =SIMP(statut='f',typ='I',defaut= 10),
9639 #-------------------------------------------------------------------
9640 PARM_THETA =SIMP(statut='f',typ='R'
9642 #-------------------------------------------------------------------
9643 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
9644 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9646 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9647 # CONFIGURATION MANAGEMENT OF EDF VERSION
9648 # ======================================================================
9649 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9650 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9651 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9652 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9653 # (AT YOUR OPTION) ANY LATER VERSION.
9655 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9656 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9657 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9658 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9660 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9661 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9662 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9663 # ======================================================================
9664 DYNA_SPEC_MODAL=OPER(nom="DYNA_SPEC_MODAL",op= 147,sd_prod=tabl_intsp,
9665 fr="Calcul de la réponse par recombinaison modale d'une structure linéaire pour une excitation aléatoire",
9666 docu="U4.53.23-c",reentrant='n',
9667 UIinfo={"groupes":("Résolution",)},
9668 BASE_ELAS_FLUI =SIMP(statut='o',typ=melasflu ),
9669 EXCIT =FACT(statut='o',max=1,
9670 INTE_SPEC_GENE =SIMP(statut='o',typ=tabl_intsp ),
9672 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
9673 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9675 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9676 # CONFIGURATION MANAGEMENT OF EDF VERSION
9677 # ======================================================================
9678 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9679 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9680 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9681 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9682 # (AT YOUR OPTION) ANY LATER VERSION.
9684 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9685 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9686 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9687 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9689 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9690 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9691 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9692 # ======================================================================
9693 DYNA_TRAN_MODAL=OPER(nom="DYNA_TRAN_MODAL",op= 74,sd_prod=tran_gene,
9694 fr="Réponse dynamique transitoire en coordonnées généralisées par recombinaison modale",
9695 docu="U4.53.21-f1",reentrant='f',
9696 UIinfo={"groupes":("Résolution",)},
9697 regles=(EXCLUS('AMOR_REDUIT','AMOR_GENE','LIST_AMOR'),
9698 PRESENT_ABSENT('MODE_STAT','MODE_CORR'),),
9699 METHODE =SIMP(statut='f',typ='TXM',defaut="EULER",
9700 into=("EULER","NEWMARK","DEVOGE","ADAPT","ITMI") ),
9701 MASS_GENE =SIMP(statut='o',typ=matr_asse_gene_r ),
9702 RIGI_GENE =SIMP(statut='o',typ=matr_asse_gene_r ),
9703 AMOR_GENE =SIMP(statut='f',typ=matr_asse_gene_r ),
9704 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
9705 LIST_AMOR =SIMP(statut='f',typ=listr8 ),
9706 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc) ),
9707 MODE_CORR =SIMP(statut='f',typ=(mult_elas,mode_stat_acce) ,),
9709 ETAT_INIT =FACT(statut='f',min=1,max=1,
9710 regles=(EXCLUS('RESU_GENE','DEPL_INIT_GENE'),
9711 EXCLUS('RESU_GENE','VITE_INIT_GENE'),),
9712 RESU_GENE =SIMP(statut='f',typ=tran_gene ),
9713 b_resu_gene =BLOC(condition = "RESU_GENE != None",
9714 INST_INIT =SIMP(statut='f',typ='R' ),
9715 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9716 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
9718 DEPL_INIT_GENE =SIMP(statut='f',typ=vect_asse_gene ),
9719 VITE_INIT_GENE =SIMP(statut='f',typ=vect_asse_gene ),
9721 INCREMENT =FACT(statut='o',min=1,max='**',
9722 INST_INIT =SIMP(statut='f',typ='R' ),
9723 INST_FIN =SIMP(statut='o',typ='R' ),
9724 PAS =SIMP(statut='f',typ='R' ),
9725 VERI_PAS =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9726 VITE_MIN =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
9727 COEF_MULT_PAS =SIMP(statut='f',typ='R',defaut= 1.1 ),
9728 COEF_DIVI_PAS =SIMP(statut='f',typ='R',defaut= 1.3333334 ),
9729 PAS_LIMI_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-6 ),
9730 NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
9731 NMAX_ITER_PAS =SIMP(statut='f',typ='I',defaut= 16 ),
9733 ARCHIVAGE =FACT(statut='f',min=1,max=1,
9734 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH'),),
9735 LIST_ARCH =SIMP(statut='f',typ=listis ),
9736 PAS_ARCH =SIMP(statut='f',typ='I' ),
9739 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 20 ),
9740 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
9741 LAMBDA =SIMP(statut='f',typ='R',defaut= 10. ),
9743 EXCIT =FACT(statut='f',min=1,max='**',
9744 regles=(UN_PARMI('FONC_MULT','COEF_MULT','ACCE'),
9745 PRESENT_PRESENT('ACCE','VITE','DEPL'),
9746 PRESENT_PRESENT('D_FONC_DT','D_FONC_DT2'),
9747 PRESENT_ABSENT('NUME_MODE','VECT_GENE','COEF_MULT'),
9748 EXCLUS('MULT_APPUI','CORR_STAT'),
9749 PRESENT_ABSENT('MULT_APPUI','COEF_MULT'),
9750 PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
9751 VECT_GENE =SIMP(statut='f',typ=vect_asse_gene ),
9752 NUME_MODE =SIMP(statut='f',typ='I' ),
9753 FONC_MULT =SIMP(statut='f',typ=fonction ),
9754 COEF_MULT =SIMP(statut='f',typ='R' ),
9755 ACCE =SIMP(statut='f',typ=fonction ),
9756 VITE =SIMP(statut='f',typ=fonction ),
9757 DEPL =SIMP(statut='f',typ=fonction ),
9758 MULT_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9759 DIRECTION =SIMP(statut='f',typ='R',max='**'),
9760 b_loca =BLOC(condition= "DIRECTION != None",
9761 regles=(EXCLUS('NOEUD','GROUP_NO'),),
9762 NOEUD =SIMP(statut='f',typ=no,max='**'),
9763 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
9765 CORR_STAT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9766 D_FONC_DT =SIMP(statut='f',typ=fonction ),
9767 D_FONC_DT2 =SIMP(statut='f',typ=fonction ),
9769 CHOC =FACT(statut='f',min=1,max='**',
9770 regles=(UN_PARMI('NOEUD_1','GROUP_NO_1' ),
9771 PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
9772 PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
9773 INTITULE =SIMP(statut='f',typ='TXM' ),
9774 NOEUD_1 =SIMP(statut='f',typ=no),
9775 NOEUD_2 =SIMP(statut='f',typ=no),
9776 GROUP_NO_1 =SIMP(statut='f',typ=grno),
9777 GROUP_NO_2 =SIMP(statut='f',typ=grno),
9778 OBSTACLE =SIMP(statut='o',typ=obstacle ),
9779 ORIG_OBST =SIMP(statut='f',typ='R',min=3,max=3),
9780 NORM_OBST =SIMP(statut='o',typ='R',min=3,max=3),
9781 ANGL_VRIL =SIMP(statut='f',typ='R' ),
9782 JEU =SIMP(statut='f',typ='R',defaut= 1. ),
9783 DIST_1 =SIMP(statut='f',typ='R',val_min=0.E+0 ),
9784 DIST_2 =SIMP(statut='f',typ='R',val_min=0.E+0 ),
9785 SOUS_STRUC_1 =SIMP(statut='f',typ='TXM' ),
9786 SOUS_STRUC_2 =SIMP(statut='f',typ='TXM' ),
9787 REPERE =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
9788 RIGI_NOR =SIMP(statut='f',typ='R' ),
9789 AMOR_NOR =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9790 RIGI_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9791 AMOR_TAN =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9792 COULOMB =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9794 LAME_FLUIDE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9795 b_lame =BLOC(condition="LAME_FLUIDE=='OUI'",
9796 ALPHA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9797 BETA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9798 CHI =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9799 DELTA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9802 VERI_CHOC =FACT(statut='f',min=1,max='**',
9803 STOP_CRITERE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9804 SEUIL =SIMP(statut='f',typ='R',defaut= 0.5 ),
9806 FLAMBAGE =FACT(statut='f',min=1,max='**',
9807 regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
9808 PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
9809 PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
9810 NOEUD_1 =SIMP(statut='f',typ=no),
9811 NOEUD_2 =SIMP(statut='f',typ=no),
9812 GROUP_NO_1 =SIMP(statut='f',typ=grno),
9813 GROUP_NO_2 =SIMP(statut='f',typ=grno),
9814 OBSTACLE =SIMP(statut='o',typ=obstacle ),
9815 ORIG_OBST =SIMP(statut='f',typ='R',max='**'),
9816 NORM_OBST =SIMP(statut='o',typ='R',max='**'),
9817 ANGL_VRIL =SIMP(statut='f',typ='R' ),
9818 JEU =SIMP(statut='f',typ='R',defaut= 1. ),
9819 DIST_1 =SIMP(statut='f',typ='R' ),
9820 DIST_2 =SIMP(statut='f',typ='R' ),
9821 REPERE =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
9822 RIGI_NOR =SIMP(statut='f',typ='R' ),
9823 FNOR_CRIT =SIMP(statut='f',typ='R' ),
9824 FNOR_POST_FL =SIMP(statut='f',typ='R' ),
9825 RIGI_NOR_POST_FL=SIMP(statut='f',typ='R' ),
9827 ANTI_SISM =FACT(statut='f',min=1,max='**',
9828 regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
9829 UN_PARMI('NOEUD_2','GROUP_NO_2'),
9830 PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
9831 PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
9832 NOEUD_1 =SIMP(statut='f',typ=no),
9833 NOEUD_2 =SIMP(statut='f',typ=no),
9834 GROUP_NO_1 =SIMP(statut='f',typ=grno),
9835 GROUP_NO_2 =SIMP(statut='f',typ=grno),
9836 RIGI_K1 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9837 RIGI_K2 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9838 SEUIL_FX =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9839 C =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9840 PUIS_ALPHA =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9841 DX_MAX =SIMP(statut='f',typ='R',defaut= 1. ),
9843 RELA_EFFO_DEPL =FACT(statut='f',min=1,max='**',
9844 NOEUD =SIMP(statut='o',typ=no),
9845 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
9846 NOM_CMP =SIMP(statut='f',typ='TXM' ),
9847 RELATION =SIMP(statut='o',typ=fonction ),
9849 RELA_TRANSIS =FACT(statut='f',min=1,max='**',
9850 NOEUD =SIMP(statut='o',typ=no),
9851 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
9852 NOM_CMP =SIMP(statut='f',typ='TXM' ),
9853 RELATION =SIMP(statut='o',typ=fonction ),
9855 RELA_EFFO_VITE =FACT(statut='f',min=1,max='**',
9856 NOEUD =SIMP(statut='o',typ=no),
9857 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
9858 NOM_CMP =SIMP(statut='f',typ='TXM' ),
9859 RELATION =SIMP(statut='o',typ=fonction ),
9861 b_itmi =BLOC(condition = "METHODE=='ITMI'",
9862 regles=(ENSEMBLE('BASE_ELAS_FLUI','NUME_VITE_FLUI'),),
9863 BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu ),
9864 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
9865 ETAT_STAT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9866 PREC_DUREE =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
9867 CHOC_FLUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9868 NB_MODE =SIMP(statut='f',typ='I' ),
9869 NB_MODE_FLUI =SIMP(statut='f',typ='I' ),
9870 NB_MODE_DIAG =SIMP(statut='f',typ='I' ),
9871 TS_REG_ETAB =SIMP(statut='f',typ='R' ),
9873 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
9874 IMPRESSION =FACT(statut='f',min=1,max='**',
9875 regles=(EXCLUS('TOUT','NIVEAU'),),
9876 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9877 NIVEAU =SIMP(statut='f',typ='TXM',into=("DEPL_LOC","VITE_LOC","FORC_LOC","TAUX_CHOC") ),
9878 INST_INIT =SIMP(statut='f',typ='R' ),
9879 INST_FIN =SIMP(statut='f',typ='R' ),
9881 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9883 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9884 # CONFIGURATION MANAGEMENT OF EDF VERSION
9885 # ======================================================================
9886 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9887 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9888 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9889 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9890 # (AT YOUR OPTION) ANY LATER VERSION.
9892 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9893 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9894 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9895 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9897 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9898 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9899 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9900 # ======================================================================
9901 # RESPONSABLE VABHHTS J.PELLET
9902 ENGENDRE_TEST=PROC(nom="ENGENDRE_TEST",op=178,docu="U4.92.11-b",
9903 UIinfo={"groupes":("Impression",)},
9904 regles=(UN_PARMI('TOUT','CO'),),
9905 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
9906 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9907 CO =SIMP(statut='f',typ=assd,max='**'),
9908 TYPE_TEST =SIMP(statut='f',typ='TXM',defaut="SOMME",into=("SOMME","RESUME") ),
9909 FORMAT_R =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
9910 PREC_R =SIMP(statut='f',typ='TXM',defaut="1.E-5"),
9912 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9913 # CONFIGURATION MANAGEMENT OF EDF VERSION
9914 # ======================================================================
9915 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9916 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9917 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9918 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9919 # (AT YOUR OPTION) ANY LATER VERSION.
9921 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9922 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9923 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9924 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9926 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9927 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9928 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9929 # ======================================================================
9930 EXEC_LOGICIEL=PROC(nom="EXEC_LOGICIEL",op= 183,fr="",docu="U7.00.01-a",
9931 UIinfo={"groupes":("Impression",)},
9932 LOGICIEL =SIMP(statut='f',typ='TXM' ),
9933 ARGUMENT =FACT(statut='f',min=1,max='**',
9934 NOM_PARA =SIMP(statut='f',typ='TXM' ),
9937 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9938 # CONFIGURATION MANAGEMENT OF EDF VERSION
9939 # ======================================================================
9940 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9941 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9942 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9943 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9944 # (AT YOUR OPTION) ANY LATER VERSION.
9946 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9947 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9948 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9949 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9951 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9952 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9953 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9954 # ======================================================================
9955 def extr_mode_prod(FILTRE_MODE,**args):
9956 vale=FILTRE_MODE[0]['MODE']
9957 if AsType(vale) == mode_meca : return mode_meca
9958 if AsType(vale) == mode_meca_c : return mode_meca_c
9959 if AsType(vale) == mode_gene : return mode_gene
9960 raise AsException("type de concept resultat non prevu")
9962 EXTR_MODE=OPER(nom="EXTR_MODE",op= 168,sd_prod=extr_mode_prod,
9963 docu="U4.52.12-c",reentrant='n',
9964 UIinfo={"groupes":("Résolution",)},
9965 FILTRE_MODE =FACT(statut='o',min=1,max='**',
9966 regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','NUME_MODE','NUME_MODE_EXCLU','FREQ_MIN','CRIT_EXTR',),),
9967 MODE =SIMP(statut='o',typ=(mode_meca,mode_meca_c,mode_gene ) ),
9968 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9969 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
9970 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
9971 NUME_MODE_EXCLU =SIMP(statut='f',typ='I',max='**'),
9972 FREQ_MIN =SIMP(statut='f',typ='R' ),
9973 CRIT_EXTR =SIMP(statut='f',typ='TXM',into=("MASS_EFFE_UN","MASS_GENE") ),
9974 b_freq_min =BLOC(condition = "FREQ_MIN != None",
9975 FREQ_MAX =SIMP(statut='o',typ='R' ),
9976 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9978 b_crit_extr =BLOC(condition = "CRIT_EXTR != None",
9979 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9982 TITRE =SIMP(statut='f',typ='TXM',max='**'),
9983 IMPRESSION =FACT(statut='f',min=1,max=1,
9984 CUMUL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9985 CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",into=("MASS_EFFE_UN","MASS_GENE") ),
9988 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
9989 # CONFIGURATION MANAGEMENT OF EDF VERSION
9990 # ======================================================================
9991 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
9992 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9993 # REDISTRIBUTION OF THIS FILE.
9994 # ======================================================================
9995 def extr_resu_prod(RESULTAT,**args):
9996 if AsType(RESULTAT) == evol_elas : return evol_elas
9997 if AsType(RESULTAT) == evol_noli : return evol_noli
9998 if AsType(RESULTAT) == evol_ther : return evol_ther
9999 if AsType(RESULTAT) == dyna_trans : return dyna_trans
10000 if AsType(RESULTAT) == dyna_harmo : return dyna_harmo
10001 if AsType(RESULTAT) == acou_harmo : return acou_harmo
10002 if AsType(RESULTAT) == mode_meca : return mode_meca
10003 if AsType(RESULTAT) == mode_acou : return mode_acou
10004 if AsType(RESULTAT) == mode_stat : return mode_stat
10005 if AsType(mode_stat) == mode_stat_depl : return mode_stat_depl
10006 if AsType(mode_stat) == mode_stat_acce : return mode_stat_acce
10007 if AsType(mode_stat) == mode_stat_forc : return mode_stat_forc
10008 if AsType(RESULTAT) == mult_elas : return mult_elas
10009 if AsType(RESULTAT) == fourier_elas : return fourier_elas
10010 raise AsException("type de concept resultat non prevu")
10012 EXTR_RESU=OPER(nom="EXTR_RESU",op=176,sd_prod=extr_resu_prod,docu="U4.71.04-c2",reentrant='f',
10013 UIinfo={"groupes":("Résultats et champs",)},
10014 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
10015 mode_acou,mode_stat_depl,mode_stat_acce,mode_stat_forc,evol_ther,evol_noli,
10016 mult_elas,fourier_elas ) ),
10018 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
10019 fr="Liste des paramètres de sensibilité.",
10020 ang="List of sensitivity parameters"),
10022 ARCHIVAGE =FACT(statut='f',min=1,max=1,
10023 regles=( UN_PARMI('NUME_ORDRE', 'INST', 'FREQ', 'NUME_MODE',
10024 'NOEUD_CMP', 'LIST_INST', 'LIST_FREQ', 'LIST_ORDRE',
10025 'NOM_CAS', 'LIST_ARCH', 'PAS_ARCH' ),
10026 EXCLUS( 'CHAM_EXCLU','NOM_CHAM' ), ),
10027 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**'),
10028 NOM_CHAM =SIMP(statut='f',typ='TXM',max='**'),
10029 PRECISION =SIMP(statut='f',typ='R',defaut=1.E-3 ),
10030 CRITERE =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),defaut="RELATIF"),
10031 LIST_ARCH =SIMP(statut='f',typ=listis),
10032 PAS_ARCH =SIMP(statut='f',typ='I'),
10033 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
10034 LIST_ORDRE =SIMP(statut='f',typ=listis),
10035 INST =SIMP(statut='f',typ='R',max='**'),
10036 LIST_INST =SIMP(statut='f',typ=listr8),
10037 FREQ =SIMP(statut='f',typ='R',max='**'),
10038 LIST_FREQ =SIMP(statut='f',typ=listr8),
10039 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
10040 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
10041 NOM_CAS =SIMP(statut='f',typ='TXM'),
10044 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
10046 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10047 # CONFIGURATION MANAGEMENT OF EDF VERSION
10048 # ======================================================================
10049 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10050 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10051 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10052 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10053 # (AT YOUR OPTION) ANY LATER VERSION.
10055 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10056 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10057 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10058 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10060 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10061 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10062 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10063 # ======================================================================
10064 def fact_grad_prod(MATR_ASSE,**args):
10065 if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
10066 if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
10067 if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
10068 raise AsException("type de concept resultat non prevu")
10070 FACT_GRAD=OPER(nom="FACT_GRAD",op=85,sd_prod=fact_grad_prod,docu="U4.55.03-e",
10071 UIinfo={"groupes":("Résolution",)},
10072 fr="Préconditionnement pour résolution par gradient conjugué",
10074 MATR_ASSE =SIMP(statut='o',
10075 typ=(matr_asse_depl_r,matr_asse_temp_r,
10076 matr_asse_pres_r) ),
10077 PRE_COND =SIMP(statut='f',typ='TXM',defaut="LDLT_INC",into=("LDLT_INC",) ),
10078 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
10079 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
10081 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10082 # CONFIGURATION MANAGEMENT OF EDF VERSION
10083 # ======================================================================
10084 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10085 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10086 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10087 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10088 # (AT YOUR OPTION) ANY LATER VERSION.
10090 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10091 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10092 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10093 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10095 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10096 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10097 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10098 # ======================================================================
10099 FACT_INTE_SPEC=OPER(nom="FACT_INTE_SPEC",op= 117,sd_prod=interspfact,
10100 fr="Factorisation d une matrice interspectrale hermitienne",
10101 docu="U4.36.04-e",reentrant='n',
10102 UIinfo={"groupes":("Fonction",)},
10103 regles=(ENSEMBLE('FREQ_FIN','NB_POIN'),),
10104 # regle non indiquée dans la doc U
10105 INTE_SPEC =SIMP(statut='o',typ=tabl_intsp ),
10106 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
10107 FREQ_INIT =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
10108 FREQ_FIN =SIMP(statut='f',typ='R' ),
10109 NB_POIN =SIMP(statut='f',typ='I',defaut= 0 ),
10110 SUR_ECHAN =SIMP(statut='f',typ='R',defaut= 1. ),
10111 TITRE =SIMP(statut='f',typ='TXM',max='**'),
10113 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10114 # CONFIGURATION MANAGEMENT OF EDF VERSION
10115 # ======================================================================
10116 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10117 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10118 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10119 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10120 # (AT YOUR OPTION) ANY LATER VERSION.
10122 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10123 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10124 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10125 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10127 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10128 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10129 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10130 # ======================================================================
10131 # RESPONSABLE VABHHTS J.PELLET
10132 def fact_ldlt_prod(MATR_ASSE,**args):
10133 if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
10134 if AsType(MATR_ASSE) == matr_asse_depl_c : return matr_asse_depl_c
10135 if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
10136 if AsType(MATR_ASSE) == matr_asse_temp_c : return matr_asse_temp_c
10137 if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
10138 if AsType(MATR_ASSE) == matr_asse_pres_c : return matr_asse_pres_c
10139 raise AsException("type de concept resultat non prevu")
10141 FACT_LDLT=OPER(nom="FACT_LDLT",op=14,sd_prod=fact_ldlt_prod,fr="Factorisation en place ou hors place",
10142 docu="U4.55.01-f",reentrant='f',
10143 UIinfo={"groupes":("Résolution",)},
10144 regles=(EXCLUS('BLOC_DEBUT','DDL_DEBUT'),
10145 EXCLUS('BLOC_FIN','DDL_FIN'),),
10146 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
10147 matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
10148 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10149 NPREC =SIMP(statut='f',typ='I',defaut=8,val_min=0,),
10150 PRE_COND =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","DIAG") ),
10151 BLOC_DEBUT =SIMP(statut='f',typ='I',val_min=1,),
10152 DDL_DEBUT =SIMP(statut='f',typ='I',val_min=1,),
10153 BLOC_FIN =SIMP(statut='f',typ='I',val_min=1,),
10154 DDL_FIN =SIMP(statut='f',typ='I',val_min=1,),
10156 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
10158 TITRE =SIMP(statut='f',typ='TXM',max='**'),
10159 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
10161 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10162 # CONFIGURATION MANAGEMENT OF EDF VERSION
10163 # ======================================================================
10164 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10165 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10166 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10167 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10168 # (AT YOUR OPTION) ANY LATER VERSION.
10170 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10171 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10172 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10173 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10175 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10176 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10177 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10178 # ======================================================================
10180 FERMER=PROC(nom="FERMER",op= 10,fr=" ",
10182 UIinfo={"groupes":("Gestion du travail",)},
10183 UNITE =SIMP(statut='o',typ='I',max='**' ),
10185 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10186 # CONFIGURATION MANAGEMENT OF EDF VERSION
10187 # ======================================================================
10188 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10189 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10190 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10191 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10192 # (AT YOUR OPTION) ANY LATER VERSION.
10194 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10195 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10196 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10197 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10199 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10200 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10201 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10202 # ======================================================================
10203 FIN=PROC(nom="FIN",op=9999,repetable='n',fr="Fin d'une étude",
10205 UIinfo={"groupes":("Gestion du travail",)},
10206 RETASSAGE =SIMP(fr="provoque le retassage de la base GLOBALE",
10207 statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
10208 PERFORMANCE =SIMP(fr="provoque l'impression d'un résumé des mesures de temps ",
10209 statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
10210 INFO_RESU =SIMP(fr="provoque l'impression des informations sur les structures de données",
10211 statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
10212 FICHIER =SIMP(statut='f',typ='TXM',defaut="MESSAGE"),
10214 #& MODIF COMMANDE DATE 15/10/2002 AUTEUR DURAND C.DURAND
10215 # CONFIGURATION MANAGEMENT OF EDF VERSION
10216 # ======================================================================
10217 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10218 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10219 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10220 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10221 # (AT YOUR OPTION) ANY LATER VERSION.
10223 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10224 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10225 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10226 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10228 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10229 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10230 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10231 # ======================================================================
10232 FONC_FLUI_STRU=OPER(nom="FONC_FLUI_STRU",op= 169,sd_prod=fonction,
10233 docu="U4.35.02-c",reentrant='n',
10234 UIinfo={"groupes":("Fonction",)},
10235 TYPE_FLUI_STRU =SIMP(statut='o',typ=(type_flui_stru) ),
10237 #& MODIF COMMANDE DATE 20/01/2003 AUTEUR DURAND C.DURAND
10238 # CONFIGURATION MANAGEMENT OF EDF VERSION
10239 # ======================================================================
10240 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10241 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10242 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10243 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10244 # (AT YOUR OPTION) ANY LATER VERSION.
10246 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10247 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10248 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10249 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10251 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10252 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10253 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10254 # ======================================================================
10255 FORMULE = FORM( nom='FORMULE',op=ops.build_formule,sd_prod=fonction,
10256 fr="Définition d une fonction",reentrant = 'n',
10257 regles=(UN_PARMI('REEL','ENTIER','COMPLEXE'),),
10258 REEL = SIMP(typ = 'shell',max=1),
10259 ENTIER = SIMP(typ = 'shell',max=1),
10260 COMPLEXE = SIMP(typ = 'shell',max=1),
10262 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10263 # CONFIGURATION MANAGEMENT OF EDF VERSION
10264 # ======================================================================
10265 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10266 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10267 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10268 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10269 # (AT YOUR OPTION) ANY LATER VERSION.
10271 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10272 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10273 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10274 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10276 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10277 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10278 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10279 # ======================================================================
10280 GENE_FONC_ALEA=OPER(nom="GENE_FONC_ALEA",op= 118,sd_prod=tabl_fonc,
10281 fr="Génération de la fonction temporelle à partir d une matrice interspectrale factorisée",
10282 docu="U4.36.05-e",reentrant='n',
10283 UIinfo={"groupes":("Fonction",)},
10284 INTE_SPEC_FACT =SIMP(statut='o',typ=interspfact ),
10285 INIT_ALEA =SIMP(statut='f',typ='I',defaut= 12312745 ),
10286 NB_TIRAGE =SIMP(statut='f',typ='I',defaut= 1 ),
10287 NB_POIN =SIMP(statut='f',typ='I' ),
10288 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
10290 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10291 # CONFIGURATION MANAGEMENT OF EDF VERSION
10292 # ======================================================================
10293 # COPYRIGHT (C) 1991 - 2002 EDF R&D WWW.CODE-ASTER.ORG
10294 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10295 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10296 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10297 # (AT YOUR OPTION) ANY LATER VERSION.
10299 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10300 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10301 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10302 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10304 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10305 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10306 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10307 # ======================================================================
10308 GENE_MATR_ALEA=OPER(nom="GENE_MATR_ALEA",op= 27,sd_prod=matr_asse_gene_r,
10309 fr="Generateur de matrice aleatoire",
10310 docu="U4.36.06",reentrant='n',
10311 UIinfo={"groupes":("Fonction",)},
10312 MATR_MOYEN = SIMP(statut='o', typ=matr_asse_gene_r),
10313 DELTA = SIMP(statut='f', typ='R', defaut=0.1),
10314 INIT = SIMP(statut='f', typ='TXM', into=("OUI","NON"),defaut="NON"),
10317 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10318 # CONFIGURATION MANAGEMENT OF EDF VERSION
10319 # ======================================================================
10320 # COPYRIGHT (C) 1991 - 2002 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 GENE_VARI_ALEA=OPER(nom="GENE_VARI_ALEA",op= 28,sd_prod=table,
10336 fr="Generateur de variable aleatoire",
10337 docu="U4.36.07",reentrant='n',
10338 UIinfo={"groupes":("Fonction",)},
10339 TYPE = SIMP(statut='f', typ='TXM', into=("EXP_TRONQUEE", "EXPONENTIELLE", "GAMMA"), defaut="EXP_TRONQUEE"),
10340 VALE_MOY = SIMP(statut='f', typ='R', defaut=0.),
10341 DELTA = SIMP(statut='f', typ='R', defaut=0.1),
10342 A = SIMP(statut='f', typ='R', defaut=-1.),
10343 B = SIMP(statut='f', typ='R', defaut=1.),
10344 INIT = SIMP(statut='f', typ='TXM', into=("OUI","NON"),defaut="NON"),
10347 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10348 # CONFIGURATION MANAGEMENT OF EDF VERSION
10349 # ======================================================================
10350 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10351 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10352 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10353 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10354 # (AT YOUR OPTION) ANY LATER VERSION.
10356 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10357 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10358 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10359 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10361 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10362 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10363 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10364 # ======================================================================
10365 IMPR_CHARGE=PROC(nom="IMPR_CHARGE",op= 158,
10366 fr="Impression des charges mécaniques de type ddl imposés et relations linéaires entre les ddl",
10368 UIinfo={"groupes":("Fonction",)},
10369 FICHIER =SIMP(statut='f',typ='TXM' ),
10370 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",) ),
10371 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10372 CHARGE =SIMP(statut='o',typ=char_meca,max='**', ),
10374 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10375 # CONFIGURATION MANAGEMENT OF EDF VERSION
10376 # ======================================================================
10377 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10378 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10379 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10380 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10381 # (AT YOUR OPTION) ANY LATER VERSION.
10383 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10384 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10385 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10386 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10388 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10389 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10390 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10391 # ======================================================================
10392 IMPR_CLASSI=PROC(nom="IMPR_CLASSI",op= 114,docu="U7.04.21-a",
10393 UIinfo={"groupes":("Fonction",)},
10394 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ',
10396 UNITE_CLASSI =SIMP(statut='o',typ='I' ),
10397 MODE_MECA =SIMP(statut='o',typ=mode_meca ),
10398 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10399 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
10400 LIST_ORDRE =SIMP(statut='f',typ=listis ),
10401 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
10402 FREQ =SIMP(statut='f',typ='R',max='**'),
10403 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
10404 b_prec_crit =BLOC(condition = "LIST_FREQ != None or FREQ != None",
10405 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10406 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
10407 into=("RELATIF","ABSOLU") ),
10409 IMPRESSION =FACT(statut='f',min=1,max='**',
10410 regles=(UN_PARMI('NOEUD','GROUP_NO', ),),
10411 NOEUD =SIMP(statut='f',typ=no,max='**'),
10412 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
10413 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
10415 AMOR =SIMP(statut='o',typ='R',max='**'),
10417 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10418 # CONFIGURATION MANAGEMENT OF EDF VERSION
10419 # ======================================================================
10420 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10421 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10422 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10423 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10424 # (AT YOUR OPTION) ANY LATER VERSION.
10426 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10427 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10428 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10429 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10431 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10432 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10433 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10434 # ======================================================================
10435 # RESPONSABLE VABHHTS J.PELLET
10436 IMPR_CO=PROC(nom="IMPR_CO",op=17,docu="U4.91.11-f",
10437 UIinfo={"groupes":("Impression",)},
10438 fr="Impression du contenu d un concept utilisateur (pour développeur)",
10439 regles=(UN_PARMI('CO','CHAINE', ),),
10440 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
10441 NIVEAU =SIMP(statut='f',typ='I',defaut=2,into=(0,1,2) ),
10442 ATTRIBUT =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","OUI") ),
10443 CONTENU =SIMP(statut='f',typ='TXM',defaut="OUI",into=("NON","OUI") ),
10444 BASE =SIMP(statut='f',typ='TXM',defaut="G",into=("","G","V","L") ),
10445 CO =SIMP(statut='f',typ=assd,max='**'),
10446 CHAINE =SIMP(statut='f',typ='TXM'),
10447 POSITION =SIMP(statut='f',typ='I',defaut=1),
10449 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10450 # CONFIGURATION MANAGEMENT OF EDF VERSION
10451 # ======================================================================
10452 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10453 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10454 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10455 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10456 # (AT YOUR OPTION) ANY LATER VERSION.
10458 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10459 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10460 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10461 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10463 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10464 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10465 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10466 # ======================================================================
10467 # RESPONSABLE MCOURTOI M.COURTOIS
10468 IMPR_COURBE=PROC(nom="IMPR_COURBE",op= 141,fr="Impression, sur fichiers",
10469 docu="U4.33.01-e2",
10470 UIinfo={"groupes":("Fonction",)},
10471 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
10472 FORMAT =SIMP(statut='f',typ='TXM',position='global'
10473 ,into=("AGRAF","EXCEL","POSTSCRIPT","RESULTAT","COMMANDE","SEISME") ),
10474 b_agraf_post =BLOC(condition = "(FORMAT=='AGRAF') or (FORMAT=='POSTSCRIPT')",fr="Mots-clés communs AGRAF et POSTCRIPT",
10475 BORNE_X =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des abcisses"),
10476 ECHELLE_X =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),fr="Type d'échelle pour les abcisses" ),
10477 BORNE_Y =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des ordonnées"),
10478 ECHELLE_Y =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),fr="Type d'échelle pour les ordonnées" ),
10480 b_agraf =BLOC(condition = "(FORMAT=='AGRAF')",fr="Mots-clés propres à AGRAF",
10481 TITRE_GRAPHIQUE =SIMP(statut='f',typ='TXM',fr="Titre associé au graphique" ),
10482 COMMENTAIRE =SIMP(statut='f',typ='TXM',max='**',fr="Commentaires associés au graphique"),
10483 LEGENDE_X =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des abcisses" ),
10484 LEGENDE_Y =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des ordonnées" ),
10485 FREQ_GRILLE_X =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence de tracage du quadrillage vertical" ),
10486 FREQ_GRILLE_Y =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence de tracage du quadrillage horizontal" ),
10488 b_excel = BLOC(condition = "(FORMAT=='EXCEL')",fr="Mots-clés propres au format Excel",
10489 BORNE_X =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des abcisses"),
10490 BORNE_Y =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des ordonnées"),
10492 b_post = BLOC ( condition = "(FORMAT=='POSTSCRIPT')",fr="Mots-clés propres à POSTCRIPT",
10493 TITRE =SIMP(statut='f',typ='TXM',fr="Titre associé au graphique" ),
10494 LABEL_X =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des abcisses" ),
10495 LABEL_Y =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des ordonnées" ),
10496 SORTIE =SIMP(statut='f',typ='TXM',defaut="COULEUR",into=("MONOCHROME","COULEUR"),fr="Type d impression" ),
10497 DATE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de la date" ),
10498 GRILLE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression du quadrillage" ),
10499 AXE_ZERO_X =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de l axe x égal zéro" ),
10500 AXE_ZERO_Y =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de l axe y égal zéro" ),
10501 PRESENTATION =SIMP(statut='f',typ='TXM',defaut="PAYSAGE",into=("PAYSAGE","PORTRAIT"),
10502 fr="Disposition du graphique sur la feuille" ),
10503 FENETRE =SIMP(statut='f',typ='TXM',defaut="RECTANGLE",into=("CARREE","RECTANGLE"),
10504 fr="Forme de la fenetre contenant le graphique" ),
10506 COURBE =FACT(statut='o',min=1,max='**',fr="Définition de la courbe à tracer",
10507 regles=(UN_PARMI('FONCTION','LIST_RESU','TABLE','FONC_X','RESU_GENE'),),
10508 FONCTION =SIMP(statut='f',typ=(fonction, fonction_c),
10509 fr="Fonction réelle ou complexe", ),
10510 LIST_RESU =SIMP(statut='f',typ=listr8,
10511 fr="Liste des ordonnees d une fonction réelle définie par deux listes", ),
10512 # creer le type table
10513 TABLE =SIMP(statut='f',typ=table,
10514 fr="Nom de la table dont 2 colonnes définissent la fonction",),
10515 FONC_X =SIMP(statut='f',typ=fonction,
10516 fr="Fonction abscisses d une fonction paramétrique",),
10517 RESU_GENE =SIMP(statut='f',typ=tran_gene, ),
10518 b_fonction =BLOC(condition = "FONCTION != None",
10519 LIST_PARA =SIMP(statut='f',typ=listr8 ),
10521 b_fonction_c =BLOC(condition = "AsType(FONCTION) == fonction_c",
10522 fr="Fonction complexe définie par le mot-clé fonction",
10523 PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
10525 b_list_resu =BLOC(condition = "LIST_RESU != None",
10526 LIST_PARA =SIMP(statut='o',typ=listr8 ),
10528 b_table =BLOC(condition = "TABLE != None",
10529 PARA_X =SIMP(statut='o',typ='TXM',
10530 fr="Paramètre de la table associé aux abcisses de la fonction à tracer" ),
10531 PARA_Y =SIMP(statut='o',typ='TXM',
10532 fr="Paramètre de la table associé aux ordonnées de la fonction à tracer" ),
10534 b_fonc_x =BLOC(condition = "FONC_X != None",
10535 FONC_Y =SIMP(statut='o',typ=fonction,fr="Fonction ordonnées d une fonction paramétrique" ),
10536 PARA =SIMP(statut='f',typ='TXM',defaut="FONC_X",into=("FONC_X","FONC_Y"),
10537 fr="Permutation des roles des deux fonctions" ),
10538 LIST_PARA =SIMP(statut='f',typ=listr8 ),
10540 b_resu_gene =BLOC(condition = "RESU_GENE != None",
10541 regles=(UN_PARMI('NOEUD_CHOC','GROUP_NO_CHOC'),),
10542 NOEUD_CHOC =SIMP(statut='f',typ=no),
10543 GROUP_NO_CHOC =SIMP(statut='f',typ=grno),
10544 PARA_X =SIMP(statut='o',typ='TXM'),
10545 PARA_Y =SIMP(statut='o',typ='TXM'),
10546 LIST_PARA =SIMP(statut='f',typ=listr8 ),
10547 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
10548 INTITULE =SIMP(statut='f',typ='TXM' ),
10552 LEGENDE =SIMP(statut='f',typ='TXM',fr="Légende associée à la courbe" ),
10553 STYLE =SIMP(statut='f',typ='TXM',defaut="LIGNE",fr="Style de la ligne représentant la courbe",
10554 into=("LIGNE","POINTILLE","POINT","POINT_RELIE") ),
10555 COULEUR =SIMP(statut='f',typ='TXM',fr="Couleur associée à la courbe",
10556 into=("NOIR","ROUGE","VERT_FONCE","BLEU",
10557 "MAGENTA","CYAN","VERT","SIENNE","ORANGE",
10558 "POURPRE","JAUNE","DAIM","TURQUOISE","VIOLET",
10559 "BRUN","CORAIL","MARRON","MAUVE","MARRON_CLAIR") ),
10560 MARQUEUR =SIMP(statut='f',typ='TXM',fr="Type du marqueur associé à la courbe",
10561 into=("POINT_F","CARRE_F","TRIANGLE_F",
10562 "LOSANGE_F","ETOILE_F","FUSEE_F","POINT",
10563 "CARRE","TRIANGLE","LOSANGE","ETOILE","FUSEE",
10564 "PLUS","X","CERCLE","CERCLE_P","CARRE_P",
10565 "LOSANGE_P","CERCLE_P_X","LOSANGE_P_X",
10566 "CERCLE_X","CARRE_X","LOSANGE_X") ),
10567 b_agraf =BLOC(condition = "(FORMAT=='AGRAF')",fr="Mots-clés propres à AGRAF",
10568 TRI =SIMP(statut='f',typ='TXM',defaut="N",
10569 fr="Choix du tri effectué sur les abcisses ou sur les ordonnées",
10570 into=("N","X","Y","XY","YX") ),
10571 FREQ_MARQUEUR =SIMP(statut='f',typ='I',defaut= 0,
10572 fr="Fréquence d impression du marqueur associé à la courbe", ),
10576 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10577 # CONFIGURATION MANAGEMENT OF EDF VERSION
10578 # ======================================================================
10579 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10580 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10581 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10582 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10583 # (AT YOUR OPTION) ANY LATER VERSION.
10585 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10586 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10587 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10588 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10590 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10591 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10592 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10593 # ======================================================================
10594 # RESPONSABLE GNICOLAS G.NICOLAS
10595 IMPR_FICO_HOMA=PROC(nom="IMPR_FICO_HOMA",op= 189, docu="U7.04.01-b2",
10596 UIinfo={"groupes":("Fonction",)},
10597 fr="Imprime le fichier de configuration de HOMARD.",
10598 ang="Writes the configuration file for HOMARD.",
10600 # 1. Le niveau d'information
10602 INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10604 # 2. LE REPERTOIRE OU AURA LIEU LE CALCUL HOMARD
10606 REP =SIMP(statut='f',typ='TXM'),
10608 # 3. Langue des messages issus de HOMARD
10610 LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
10611 into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
10612 fr="Langue des messages issus de HOMARD.",
10613 ang="Language for HOMARD messages." ),
10615 # 4. L'UNITE LOGIQUE D'ECRITURE DU FICHIER DE CONFIGURATION HOMARD
10617 UNITE =SIMP(statut='f',typ='I',defaut= 71 ),
10619 # 5. LE TYPE DE TRAITEMENT :
10621 TRAITEMENT =FACT(statut='o',min=1,max=1,
10623 # 5.1. QUATRE CHOIX EXCLUSIFS :
10626 # A. ADAPTATION PAR UN INDICATEUR D'ERREUR, AVEC TROIS VARIANTES :
10627 # . RAFFINEMENT ET DERAFFINEMENT
10628 # . RAFFINEMENT SEUL
10629 # . DERAFFINEMENT SEUL
10630 # B. ADAPTATION UNIFORME, AVEC DEUX VARIANTES :
10631 # . RAFFINEMENT SEUL
10632 # . DERAFFINEMENT SEUL
10633 # . RIEN : LE MAILLAGE EST LE MEME A LA SORTIE ET A L'ENTREE
10634 # C. INFORMATION SUR UN MAILLAGE
10635 # D. MISE A JOUR DE SOLUTIONS
10637 regles=( UN_PARMI('ADAPTATION','UNIFORME','INFORMATION','MAJSOLUTION'),),
10638 ADAPTATION =SIMP(statut='f',typ='TXM',
10639 fr="Adaptation libre",
10640 ang="Free adaptation",
10641 into=("RAFFINEMENT","DERAFFINEMENT","RAFF_DERA") ),
10642 UNIFORME =SIMP(statut='f',typ='TXM',
10643 fr="Adaptation uniforme",
10644 ang="Uniforme adaptation",
10645 into=("RAFFINEMENT","DERAFFINEMENT","RIEN") ),
10646 INFORMATION =SIMP(statut='f',typ='TXM',
10647 fr="Adaptation libre",
10648 ang="Free adaptation",
10650 MAJSOLUTION =SIMP(statut='f',typ='TXM',
10651 fr="Mise à jour de solutions",
10652 ang="Solution updating",
10655 # 5.1.2. LES CONTRAINTES :
10657 # 5.1.2.1. POUR DE L'ADAPTATION LIBRE, IL FAUT :
10658 # A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10659 # B. LE NOM MED DU MAILLAGE D'ENTREE
10660 # C. LE NOM MED DE L'INDICATEUR D'ERREUR
10661 # D. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10662 # E. LA MISE A JOUR DE SOLUTION
10663 # F. LE NOM MED DU MAILLAGE DE SORTIE
10664 # REMARQUE : IL FAUT DES CRITERES, MAIS ON NE SAIT PAS LESQUELS
10666 # 5.1.2.2. POUR DE L'ADAPTATION UNIFORME
10668 # A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10669 # B. LE NOM MED DU MAILLAGE DE SORTIE
10671 # A. LE NOM MED DE L'INDICATEUR D'ERREUR
10672 # B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
10674 # REMARQUE : A L'ITERATION 0, OU AUX ITERATIONS SUIVANTES SI MAJ DE SOLUTION,
10675 # IL FAUT LE NOM MED DU MAILLAGE D'ENTREE
10677 # 5.1.2.3. POUR DE LA MISE A JOUR DE SOLUTION :
10679 # A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10680 # B. LE NOM MED DU MAILLAGE D'ENTREE
10682 # A. LE NOM MED DE L'INDICATEUR D'ERREUR
10683 # B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
10687 # 5.1.2.4. POUR DE L'INFORMATION :
10689 # A. LE NOM MED DU MAILLAGE D'ENTREE
10691 # A. LE NOM MED DE L'INDICATEUR D'ERREUR
10692 # B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
10694 # D. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10695 # E. LA MISE A JOUR DE SOLUTION
10697 b_maillage_initial =BLOC(condition = "( INFORMATION != None ) or ( ADAPTATION != None ) or \
10698 ( MAJSOLUTION != None ) ",
10699 fr="Nom MED du maillage en entrée",
10700 ang="MED name of the in-mesh",
10701 NOM_MED_MAILLAGE_N =SIMP(statut='o',typ='TXM',),
10704 b_maillage_initial_uniforme =BLOC(condition = "( UNIFORME != None ) ",
10705 fr="Nom MED du maillage en entrée",
10706 ang="MED name of the in-mesh",
10707 NOM_MED_MAILLAGE_N =SIMP(statut='f',typ='TXM',),
10710 b_iteration_maj_champ =BLOC(condition = "( UNIFORME != None ) or ( ADAPTATION != None ) or \
10711 ( MAJSOLUTION != None ) ",
10712 fr="Nom MED du maillage en sortie, numero d'iteration et mise à jour de champs",
10713 ang="MED name of the out-mesh, iteration rank and field updating",
10714 NITER =SIMP(statut='o',typ='I',
10715 fr="Numéro d'itération.",
10716 ang="Iteration number." ),
10717 NOM_MED_MAILLAGE_NP1 =SIMP(statut='o',typ='TXM',
10718 fr="Nom MED du maillage en sortie",
10719 ang="MED name of the out-mesh" ),
10720 MAJ_CHAM =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10721 fr="Mise à jour de champs",
10722 ang="Field updating" ),
10725 b_indicateur_d_erreur =BLOC(condition = "ADAPTATION != None",
10726 fr="Indicateur d'erreur",
10727 ang="Error indicator",
10728 regles=(AU_MOINS_UN('NUMORD_INDICA','NOM_RESU_INDICA'),
10729 EXCLUS('NUMORD_INDICA','NOM_RESU_INDICA'),
10730 PRESENT_PRESENT('NUMORD_INDICA','NUMPT_INDICA'),
10731 PRESENT_PRESENT('NOM_RESU_INDICA','NOM_CHAM_INDICA'),),
10732 NOM_MED_INDICA =SIMP(statut='o',typ='TXM',
10733 fr="Nom MED de l'indicateur d'erreur.",
10734 ang="MED name of error indicator.",),
10735 NOM_CMP_INDICA =SIMP(statut='o',typ='TXM',
10736 fr="Nom de la composante de l'indicateur d'erreur retenue.",
10737 ang="Name of the selected component of the error indicator.",),
10738 NUMORD_INDICA =SIMP(statut='f',typ='I',
10739 fr="Numero d'ordre de l'indicateur.",
10740 ang="Rank number of the error indicator.",),
10741 NUMPT_INDICA =SIMP(statut='f',typ='I',
10742 fr="Numero du pas de temps de l'indicateur.",
10743 ang="Time step number of the error indicator.",),
10744 NOM_RESU_INDICA =SIMP(statut='f',typ='TXM',
10745 fr="Concept contenant l'indicateur.",
10746 ang="Conceipt wich contains the error indicator.",),
10747 NOM_CHAM_INDICA =SIMP(statut='f',typ='TXM',
10748 fr="Nom du champ dans le résultat de l'indicateur.",
10749 ang="Name of the field of the error indicator.",),
10752 b_critere_de_raffinement =BLOC( condition = "( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'RAFFINEMENT' )" ,
10753 fr="Critère de raffinement.",
10754 ang="Refinement threshold.",
10755 regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE' ),),
10756 CRIT_RAFF_ABS =SIMP(statut='f',typ='R',
10757 fr="Critère absolu",
10758 ang="Absolute threshold" ),
10759 CRIT_RAFF_REL =SIMP(statut='f',typ='R',
10760 fr="Critère relatif",
10761 ang="Relative threshold" ),
10762 CRIT_RAFF_PE =SIMP(statut='f',typ='R',
10763 fr="Pourcentage d'éléments",
10764 ang="Percentage of elements" ),
10767 b_critere_de_deraffinement =BLOC ( condition = "( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'DERAFFINEMENT' )" ,
10768 fr="Critère de déraffinement.",
10769 ang="Unrefinement threshold.",
10770 regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE' ),),
10771 CRIT_DERA_ABS =SIMP(statut='f',typ='R' ,
10772 fr="Critère absolu",
10773 ang="Absolute threshold" ),
10774 CRIT_DERA_REL =SIMP(statut='f',typ='R',
10775 fr="Critère relatif",
10776 ang="Relative threshold" ),
10777 CRIT_DERA_PE =SIMP(statut='f',typ='R',
10778 fr="Pourcentage d'éléments",
10779 ang="Percentage of elements" ),
10782 b_niveau_maximum =BLOC ( condition = " ( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'RAFFINEMENT' ) or \
10783 ( UNIFORME == 'RAFFINEMENT' )" ,
10784 fr="Niveau maximum de profondeur de raffinement",
10785 ang="Maximum level for refinement",
10786 NIVE_MAX =SIMP(statut='f',typ='I' ),
10789 b_niveau_minimum =BLOC ( condition = " ( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'DERAFFINEMENT' ) or \
10790 ( UNIFORME == 'DERAFFINEMENT' )" ,
10791 fr="Niveau minimum de déraffinement",
10792 ang="Minimum level for unrefinement",
10793 NIVE_MIN =SIMP(statut='f',typ='I' ),
10798 # 6. L'ANALYSE DU MAILLAGE
10800 ANALYSE =FACT(statut='f',min=1,max=1,
10801 fr="Analyse du maillage.",
10802 ang="Mesh analysis.",
10804 # 6.1. CHOIX NON EXCLUSIFS, AVEC DEUX VARIANTES (OUI/NON) :
10805 # A. NOMBRE DES ELEMENTS
10806 # B. QUALITE DES ELEMENTS
10807 # C. INTERPENETRATION DES ELEMENTS
10808 # D. CONNEXITE DU MAILLAGE
10809 # E. TAILLE DES DIFFERENTS SOUS-DOMAINES
10811 regles=(AU_MOINS_UN('NOMBRE','QUALITE','INTERPENETRATION','CONNEXITE','TAILLE'),),
10813 NOMBRE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
10814 fr="Nombre de noeuds et éléments du maillage",
10815 ang="Number of nodes and elements in the mesh" ),
10817 QUALITE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10818 fr="Qualité du maillage",
10819 ang="Mesh quality" ),
10821 INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10822 fr="Controle de la non interpénétration des éléments.",
10823 ang="Overlapping checking." ),
10825 CONNEXITE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10826 fr="Connexité du maillage.",
10827 ang="Mesh connexity." ),
10829 TAILLE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10830 fr="Tailles des sous-domaines du maillage.",
10831 ang="Sizes of mesh sub-domains." ),
10836 #& MODIF COMMANDE DATE 09/10/2002 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 IMPR_GENE=PROC(nom="IMPR_GENE",op= 157,
10855 fr="Calcul du dommage subi par une structure soumise à une sollicitation de type aléatoire",
10857 UIinfo={"groupes":("Impression",)},
10858 GENE =FACT(statut='o',min=1,max='**',
10859 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
10860 'LIST_INST','LIST_FREQ','TOUT_MODE','TOUT_INST','LIST_ORDRE'),
10861 EXCLUS('TOUT_MODE','NUME_ORDRE','INST','FREQ','NUME_MODE',
10862 'LIST_INST','LIST_FREQ','TOUT_ORDRE','TOUT_INST','LIST_ORDRE'),
10863 EXCLUS('TOUT_INST','NUME_ORDRE','INST','FREQ','NUME_MODE',
10864 'LIST_INST','LIST_FREQ','TOUT_ORDRE','LIST_ORDRE'),
10865 EXCLUS('TOUT_CMP_GENE','NUME_CMP_GENE'),
10866 EXCLUS('TOUT_CHAM','NOM_CHAM'),
10867 EXCLUS('TOUT_PARA','NOM_PARA'),),
10868 # faut-il faire des blocs selon le type de RESU_GENE
10869 RESU_GENE =SIMP(statut='o',typ=(vect_asse_gene, tran_gene, mode_gene, harm_gene)),
10870 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
10871 FICHIER =SIMP(statut='f',typ='TXM' ),
10872 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10873 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
10874 LIST_ORDRE =SIMP(statut='f',typ=listis ),
10875 TOUT_MODE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10876 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
10877 INST =SIMP(statut='f',typ='R',max='**'),
10878 LIST_INST =SIMP(statut='f',typ=listr8 ),
10879 TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10880 FREQ =SIMP(statut='f',typ='R',max='**'),
10881 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
10882 b_prec_crit =BLOC(condition = "LIST_FREQ != None or FREQ != None",
10883 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10884 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
10885 into=("RELATIF","ABSOLU") ),
10887 TOUT_CMP_GENE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10888 NUME_CMP_GENE =SIMP(statut='f',typ='I',max='**'),
10889 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10890 NOM_CHAM =SIMP(statut='f',typ='TXM',max='**'),
10891 TOUT_PARA =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10892 NOM_PARA =SIMP(statut='f',typ='TXM',max='**'),
10893 SOUS_TITRE =SIMP(statut='f',typ='TXM',max='**'),
10894 INFO_CMP_GENE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10895 INFO_GENE =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10898 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10899 # CONFIGURATION MANAGEMENT OF EDF VERSION
10900 # ======================================================================
10901 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10902 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10903 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10904 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10905 # (AT YOUR OPTION) ANY LATER VERSION.
10907 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10908 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10909 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10910 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10912 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10913 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10914 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10915 # ======================================================================
10916 IMPR_JEVEUX=PROC(nom="IMPR_JEVEUX",op=16,docu="U4.91.21-f",
10917 UIinfo={"groupes":("Impression",)},
10918 fr="Impression de caractéristiques d'objets JEVEUX (pour développeur)",
10919 ENTITE =SIMP(fr="choix de l'observation",statut='o',typ='TXM',
10920 into=("DISQUE","MEMOIRE","REPERTOIRE",
10921 "OBJET","ATTRIBUT","SYSTEME") ),
10922 b_objet =BLOC(condition = "(ENTITE=='OBJET')",
10923 NOMOBJ =SIMP(fr="nom d'objet",statut='f',typ='TXM' ),
10924 NUMOC =SIMP(fr="numéro d objet de collection",statut='f',typ='I' ),
10925 NOMOC =SIMP(fr="nom d'objet de collection",statut='f',typ='TXM' ),
10927 b_attribut =BLOC(condition = "(ENTITE=='ATTRIBUT')",
10928 NOMOBJ =SIMP(fr="nom de collection",statut='f',typ='TXM' ),
10929 NOMATR =SIMP(fr="nom d attribut de collection",statut='f',typ='TXM',
10930 into=('$$DESO','$$IADD','$$IADM','$$NOM','$$LONG',
10931 '$$LONO','$$LUTI','$$NUM') ),
10933 b_systeme =BLOC(condition = "(ENTITE=='SYSTEME')",
10934 CLASSE =SIMP(statut='o',typ='TXM',into=('G','V','L') ),
10935 NOMATR =SIMP(fr="nom d attribut systeme",statut='f',typ='TXM',
10936 into=('$$CARA','$$IADD','$$GENR','$$TYPE','$$ETAT',
10937 '$$DOCU','$$ORIG','$$RNOM','$$LTYP','$$LONG',
10938 '$$LONO','$$DATE','$$LUTI','$$HCOD','$$INDX',
10939 '$$TLEC','$$TECR','$$IADM','$$ACCE') ),
10941 b_repertoire =BLOC(condition = "(ENTITE=='REPERTOIRE')",
10942 CLASSE =SIMP(statut='f',typ='TXM',into=('G','V','L',' '),defaut=' '),
10944 b_disque =BLOC(condition = "(ENTITE=='DISQUE')",
10945 CLASSE =SIMP(statut='f',typ='TXM' ,into=('G','V','L',' '),defaut=' '),
10947 IMPRESSION =FACT(statut='f',min=1,max=1,
10948 NOM =SIMP(statut='f',typ='TXM' ),
10949 UNITE =SIMP(statut='f',typ='I'),
10951 COMMENTAIRE =SIMP(statut='f',typ='TXM' ),
10953 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
10954 # CONFIGURATION MANAGEMENT OF EDF VERSION
10955 # ======================================================================
10956 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
10957 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10958 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10959 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10960 # (AT YOUR OPTION) ANY LATER VERSION.
10962 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10963 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10964 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10965 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10967 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10968 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10969 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10970 # ======================================================================
10971 IMPR_MACR_ELEM=PROC(nom="IMPR_MACR_ELEM",op= 160,
10972 docu="U7.04.33-d1",
10973 UIinfo={"groupes":("Impression",)},
10974 MACR_ELEM_DYNA =SIMP(statut='o',typ=macr_elem_dyna ),
10975 FICHIER =SIMP(statut='f',typ='TXM' ),
10976 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",
10977 into=("MISS_3D","IDEAS","CADYRO","PLEXUS") ),
10978 b_ideas =BLOC(condition = "FORMAT == 'PLEXUS'",
10979 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10981 b_plexus =BLOC(condition = "FORMAT == 'IDEAS'",
10982 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10984 b_miss_3d =BLOC(condition = "FORMAT == 'MISS_3D'",
10985 UNITE =SIMP(statut='f',typ='I',defaut= 26 ),
10986 SOUS_TITRE =SIMP(statut='f',typ='TXM',max='**'),
10987 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
10988 GROUP_MA_INTERF =SIMP(statut='o',typ=grma,max='**'),
10989 # Ces trois mots cles sont-ils dans le bon bloc et avec le bon statut
10990 GROUP_MA_FLU_STR=SIMP(statut='f',typ=grma,max='**'),
10991 GROUP_MA_FLU_SOL=SIMP(statut='f',typ=grma,max='**'),
10992 GROUP_MA_SOL_SOL=SIMP(statut='f',typ=grma,max='**'),
10993 IMPR_MODE_MECA =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10994 IMPR_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10996 b_cadyro =BLOC(condition = "FORMAT == 'CADYRO'",
10997 SQUELETTE =SIMP(statut='f',typ=squelette ),
10998 UNITE_MODE_MECA =SIMP(statut='f',typ='I',defaut= 26 ),
10999 UNITE_MODE_STAT =SIMP(statut='f',typ='I',defaut= 27 ),
11000 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut= 28 ),
11001 IMPR_MODE_MECA =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11002 IMPR_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11006 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
11007 # CONFIGURATION MANAGEMENT OF EDF VERSION
11008 # ======================================================================
11009 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11010 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11011 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11012 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11013 # (AT YOUR OPTION) ANY LATER VERSION.
11015 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11016 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11017 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11018 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11020 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11021 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11022 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11023 # ======================================================================
11024 IMPR_MATRICE=PROC(nom="IMPR_MATRICE",op= 159,
11025 fr="Impression des matrices élémentaires et des matrices assemblées",
11027 UIinfo={"groupes":("Impression",)},
11028 regles=(AU_MOINS_UN('MATR_ELEM','MATR_ASSE'),),
11030 MATR_ELEM =FACT(statut='f',min=1,max='**',
11031 FICHIER =SIMP(statut='f',typ='TXM' ),
11032 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",
11033 into=("IDEAS","RESULTAT") ),
11034 b_format =BLOC(condition = "FORMAT == 'IDEAS'",
11035 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
11037 # créer les types matr_elem et vect_elem
11038 MATRICE =SIMP(statut='o',typ=(matr_elem, vect_elem)),
11039 # Quelle regle pour TOUT, NOEUD, GROUP_NO, MAILLE, GROUP_MA
11040 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11041 NOEUD =SIMP(statut='f',typ=no,max='**'),
11042 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
11043 MAILLE =SIMP(statut='f',typ=ma,max='**'),
11044 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
11045 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
11046 GRAIN =SIMP(statut='f',typ='TXM',defaut="VALEUR",
11047 into=("VALEUR","NOEUD","MAILLE") ),
11048 NB_CHIFFRE =SIMP(statut='f',typ='I',defaut= 4 ),
11050 MATR_ASSE =FACT(statut='f',min=1,max='**',
11051 FICHIER =SIMP(statut='f',typ='TXM' ),
11052 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",
11053 into=("IDEAS","RESULTAT") ),
11054 VERSION =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
11055 # créer le type matr_elem
11056 MATRICE =SIMP(statut='o',typ=matr_asse),
11057 # Quelle regle pour TOUT, NOEUD, GROUP_NO, MAILLE, GROUP_MA
11058 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11059 NOEUD =SIMP(statut='f',typ=no,max='**'),
11060 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
11061 MAILLE =SIMP(statut='f',typ=ma,max='**'),
11062 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
11063 OPTION =SIMP(statut='f',typ='TXM',defaut="SOUS_MATRICE",
11064 into=("SOUS_MATRICE","LIGNE","COLONNE") ),
11065 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
11066 GRAIN =SIMP(statut='f',typ='TXM',defaut="VALEUR",
11067 into=("VALEUR","NOEUD") ),
11068 NB_CHIFFRE =SIMP(statut='f',typ='I',defaut= 4 ),
11069 VALE_ZERO =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11072 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
11073 # CONFIGURATION MANAGEMENT OF EDF VERSION
11074 # ======================================================================
11075 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11076 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11077 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11078 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11079 # (AT YOUR OPTION) ANY LATER VERSION.
11081 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11082 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11083 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11084 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11086 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11087 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11088 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11089 # ======================================================================
11090 IMPR_MISS_3D=PROC(nom="IMPR_MISS_3D",op= 162,
11092 UIinfo={"groupes":("Impression",)},
11093 regles=(UN_PARMI('INST_INIT','FREQ_INIT'),
11094 PRESENT_PRESENT('INST_INIT','INST_FIN'),
11095 PRESENT_PRESENT('FREQ_INIT','FREQ_FIN'),),
11096 MACR_ELEM_DYNA =SIMP(statut='o',typ=macr_elem_dyna ),
11097 EXCIT =FACT(statut='f',min=1,max='**',
11098 regles=(UN_PARMI('FONC_MULT','COEF_MULT' ),),
11099 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r ),
11100 FONC_MULT =SIMP(statut='f',typ=fonction ),
11101 COEF_MULT =SIMP(statut='f',typ='R' ),
11103 EXCIT_SOL =FACT(statut='f',min=1,max='**',
11104 DIRECTION =SIMP(statut='o',typ='R',max='**'),
11105 FONC_SIGNAL =SIMP(statut='f',typ=fonction ),
11106 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",
11107 into=("DEPL","VITE","ACCE","FORC",) ),
11109 INST_INIT =SIMP(statut='f',typ='R' ),
11110 INST_FIN =SIMP(statut='f',typ='R' ),
11111 FREQ_INIT =SIMP(statut='f',typ='R' ),
11112 FREQ_FIN =SIMP(statut='f',typ='R' ),
11113 PAS =SIMP(statut='o',typ='R' ),
11114 UNITE =SIMP(statut='f',typ='I',defaut= 26 ),
11115 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
11116 TITRE =SIMP(statut='f',typ='TXM',max='**'),
11118 #& MODIF COMMANDE DATE 09/12/2002 AUTEUR PABHHHH N.TARDIEU
11119 # CONFIGURATION MANAGEMENT OF EDF VERSION
11120 # ======================================================================
11121 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11122 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11123 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11124 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11125 # (AT YOUR OPTION) ANY LATER VERSION.
11127 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11128 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11129 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11130 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11132 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11133 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11134 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11135 # ======================================================================
11136 IMPR_RESU=PROC(nom="IMPR_RESU",op=39,docu="U4.91.01-g1",
11137 UIinfo={"groupes":("Impression",)},
11138 fr="Impression du résultat d un calcul (différents formats)",
11139 MODELE =SIMP(statut='f',typ=modele),
11140 RESU =FACT(statut='o',min=1,max='**',
11141 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
11142 into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED","GMSH") ),
11144 b_format_ideas =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
11145 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
11148 b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
11149 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
11152 b_format_gmsh =BLOC(condition="FORMAT=='GMSH'",fr="version post traitement de GMSH",
11153 VERSION =SIMP(statut='f',typ='R',defaut=1.0,into=(1.0,1.2)),
11156 regles=(AU_MOINS_UN('CHAM_GD','RESULTAT','MAILLAGE'),
11157 EXCLUS('CHAM_GD','RESULTAT'),),
11158 MAILLAGE =SIMP(statut='f',typ=(maillage,squelette)),
11159 INFO_MAILLAGE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11160 CHAM_GD =SIMP(statut='f',typ=cham_gd),
11161 RESULTAT =SIMP(statut='f',typ=resultat),# CO() sd a creer !!!
11163 b_sensibilite =BLOC(condition="RESULTAT != None",
11164 fr="Définition des paramètres de sensibilité",
11165 ang="Definition of sensitivity parameters",
11166 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
11167 fr="Liste des paramètres de sensibilité.",
11168 ang="List of sensitivity parameters"),),
11170 b_extrac =BLOC(condition="RESULTAT != None",
11171 fr="extraction d un champ de grandeur",
11172 regles=(EXCLUS('TOUT_CHAM','NOM_CHAM'),
11173 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP',
11174 'LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS','ANGL'),),
11175 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
11176 NOM_CHAM =SIMP(statut='f',typ='TXM',max='**'),
11178 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11179 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
11180 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
11181 LIST_ORDRE =SIMP(statut='f',typ=listis),
11182 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
11183 NOM_CAS =SIMP(statut='f',typ='TXM',max='**'),
11184 ANGL =SIMP(statut='f',typ='R',max='**'),
11185 FREQ =SIMP(statut='f',typ='R',max='**'),
11186 LIST_FREQ =SIMP(statut='f',typ=listr8),
11187 INST =SIMP(statut='f',typ='R',max='**'),
11188 LIST_INST =SIMP(statut='f',typ=listr8),
11190 b_acce_reel =BLOC(condition="(FREQ != None)or(LIST_FREQ != None)or(INST != None)or(LIST_INST != None)",
11191 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
11192 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
11196 b_parametres =BLOC(condition="""(RESULTAT != None)and(FORMAT == 'RESULTAT')""",
11197 regles=(EXCLUS('TOUT_PARA','NOM_PARA'),),
11198 INFO_RESU =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11199 TOUT_PARA =SIMP(statut='f',typ='TXM',into=("OUI","NON",) ),
11200 NOM_PARA =SIMP(statut='f',typ='TXM',max='**'),
11201 FORM_TABL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON","EXCEL") ),
11204 b_cmp=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and\
11205 ((FORMAT == 'RESULTAT')or(FORMAT == 'IDEAS')or(FORMAT == 'ENSIGHT')or(FORMAT == 'MED'))""",
11206 fr="sélection des composantes",
11207 regles=(EXCLUS('TOUT_CMP','NOM_CMP'),),
11208 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11209 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
11212 b_gmsh=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and((FORMAT == 'GMSH'))""",
11213 fr="sélection des composantes et des entités toplogiques",
11214 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
11215 MAILLE =SIMP(statut='f',typ=ma,max='**'),
11216 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
11219 b_topologie=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and\
11220 ((FORMAT == 'RESULTAT')or(FORMAT == 'IDEAS')or(FORMAT == 'MED'))""",
11221 fr="sélection des entités toplogiques",
11222 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11223 NOEUD =SIMP(statut='f',typ=no,max='**'),
11224 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
11225 MAILLE =SIMP(statut='f',typ=ma,max='**'),
11226 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
11229 b_valeurs =BLOC(condition="(FORMAT == 'RESULTAT')",
11230 fr="sélection sur les valeurs",
11231 VALE_MAX =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11232 VALE_MIN =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11233 BORNE_SUP =SIMP(statut='f',typ='R'),
11234 BORNE_INF =SIMP(statut='f',typ='R'),
11235 IMPR_COOR =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11236 FORMAT_R =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
11239 SOUS_TITRE =SIMP(statut='f',typ='TXM',max='**'),
11240 FICHIER =SIMP(statut='f',typ='TXM'),
11242 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
11244 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
11245 # CONFIGURATION MANAGEMENT OF EDF VERSION
11246 # ======================================================================
11247 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11248 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11249 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11250 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11251 # (AT YOUR OPTION) ANY LATER VERSION.
11253 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11254 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11255 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11256 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11258 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11259 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11260 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11261 # ======================================================================
11262 IMPR_STURM=PROC(nom="IMPR_STURM",op=32,fr="Calculer et imprimer le nombre de valeurs propres dans un intervalle donné",
11264 UIinfo={"groupes":("Résolution",)},
11265 MATR_A =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
11266 MATR_B =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
11267 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="DYNAMIQUE",into=("MODE_FLAMB","DYNAMIQUE"),
11268 fr="Type d analyse" ),
11269 b_dynamique =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
11270 fr="Recheche du nombre de fréquences propres",
11271 FREQ_MIN =SIMP(statut='f',typ='R',defaut= 0.E+0 ,fr="Borne inférieure de l intervalle" ),
11272 FREQ_MAX =SIMP(statut='o',typ='R',fr="Borne supérieure de l intervalle" ),
11274 b_mode_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
11275 fr="Recherche du nombre de charges critiques",
11276 CHAR_CRIT_MIN =SIMP(statut='o',typ='R',fr="Borne inférieure de l intervalle" ),
11277 CHAR_CRIT_MAX =SIMP(statut='o',typ='R',fr="Borne supérieure de l intervalle" ),
11279 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8 ),
11280 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
11281 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
11282 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
11283 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
11285 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
11286 # CONFIGURATION MANAGEMENT OF EDF VERSION
11287 # ======================================================================
11288 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11289 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11290 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11291 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11292 # (AT YOUR OPTION) ANY LATER VERSION.
11294 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11295 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11296 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11297 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11299 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11300 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11301 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11302 # ======================================================================
11303 # RESPONSABLE VABHHTS J.PELLET
11304 IMPR_TABLE=PROC(nom="IMPR_TABLE",op=155,docu="U4.91.03-d2",
11305 UIinfo={"groupes":("Impression",)},
11306 fr="Impression d un concept de type table",
11307 TABLE =SIMP(statut='o',typ=table),
11308 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT", ),
11309 FORMAT =SIMP(statut='f',typ='TXM',defaut="EXCEL",
11310 into=("EXCEL","AGRAF","MOT_CLE","TABLEAU","ASTER") ),
11311 FILTRE =FACT(statut='f',min=1,max='**',
11312 NOM_PARA =SIMP(statut='o',typ='TXM'),
11313 CRIT_COMP =SIMP(statut='f',typ='TXM',defaut="EQ",
11314 into=("EQ","LT","GT","NE","LE","GE","VIDE",
11315 "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
11316 b_vale =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
11317 regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
11318 VALE =SIMP(statut='f',typ='R'),
11319 VALE_I =SIMP(statut='f',typ='I'),
11320 VALE_C =SIMP(statut='f',typ='C'),
11321 VALE_K =SIMP(statut='f',typ='TXM'),),
11323 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
11324 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11326 TRI =FACT(statut='f',min=1,max=1,
11327 NOM_PARA =SIMP(statut='o',typ='TXM',max='**'),
11328 ORDRE =SIMP(statut='f',typ='TXM',max='**',defaut="CROISSANT",
11329 into=("CROISSANT","DECROISSANT") ),
11330 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
11331 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11333 PAGINATION =SIMP(statut='f',typ='TXM',max='**'),
11334 FORMAT_R =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
11335 FORMAT_C =SIMP(statut='f',typ='TXM',defaut="MODULE_PHASE",
11336 into=("MODULE_PHASE","REEL_IMAG") ),
11337 NOM_PARA =SIMP(statut='f',typ='TXM',max='**'),
11338 TOUT_PARA =SIMP(statut='f',typ='TXM',into=("OUI",)),
11339 IMPR_FONCTION =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11341 #& MODIF COMMANDE DATE 20/01/2003 AUTEUR DURAND C.DURAND
11342 # CONFIGURATION MANAGEMENT OF EDF VERSION
11343 # ======================================================================
11344 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11345 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11346 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11347 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11348 # (AT YOUR OPTION) ANY LATER VERSION.
11350 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11351 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11352 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11353 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11355 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11356 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11357 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11358 # ======================================================================
11359 INCLUDE=MACRO(nom="INCLUDE",op=ops.build_include,docu="U4.13.01-e",
11360 UIinfo={"groupes":("Gestion du travail",)},
11361 fr="Débranchement vers un fichier de commandes secondaires",
11362 sd_prod=ops.INCLUDE,op_init=ops.INCLUDE_context,fichier_ini=1,
11363 UNITE = SIMP(statut='o',typ='I'),
11364 INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
11366 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
11367 # CONFIGURATION MANAGEMENT OF EDF VERSION
11368 # ======================================================================
11369 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11370 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11371 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11372 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11373 # (AT YOUR OPTION) ANY LATER VERSION.
11375 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11376 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11377 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11378 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11380 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11381 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11382 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11383 # ======================================================================
11384 INCLUDE_MATERIAU=MACRO(nom="INCLUDE_MATERIAU",op=-14,docu="U4.43.02-a",
11385 UIinfo={"groupes":("Modélisation",)},
11387 sd_prod=ops.INCLUDE_MATERIAU,op_init=ops.INCLUDE_context,fichier_ini=0,
11388 NOM_AFNOR =SIMP(statut='o',typ='TXM' ),
11389 TYPE_MODELE =SIMP(statut='o',typ='TXM',into=("REF","PAR") ),
11390 VARIANTE =SIMP(statut='o',typ='TXM',
11391 into=("A","B","C","D","E","F","G","H","I","J",
11392 "K","L","M","N","O","P","Q","R","S","T","U","V",
11393 "W","X","Y","Z",) ),
11394 TYPE_VALE =SIMP(statut='o',typ='TXM',into=("NOMI","MINI","MAXI") ),
11395 NOM_MATER =SIMP(statut='o',typ='TXM' ),
11396 UNITE =SIMP(statut='f',typ='I',defaut= 32 ),
11397 EXTRACTION =FACT(statut='f',min=1,max=99,
11398 COMPOR =SIMP(statut='o',typ='TXM' ),
11399 TEMP_EVAL =SIMP(statut='o',typ='R' ),
11401 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11403 #& MODIF COMMANDE DATE 03/12/2002 AUTEUR D6BHHJP J.P.LEFEBVRE
11404 # CONFIGURATION MANAGEMENT OF EDF VERSION
11405 # ======================================================================
11406 # COPYRIGHT (C) 1991 - 2002 EDF R&D WWW.CODE-ASTER.ORG
11407 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11408 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11409 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11410 # (AT YOUR OPTION) ANY LATER VERSION.
11412 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11413 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11414 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11415 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11417 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11418 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11419 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11420 # ======================================================================
11421 # RESPONSABLE D6BHHJP J.P.LEFEBVRE
11422 INFO_EXEC_ASTER=OPER(nom="INFO_EXEC_ASTER",op=35,sd_prod=table,
11423 fr="Récupère différentes informations propres à l'exécution en cours",
11424 docu="U4.00.00-a1",reentrant='n',
11425 UIinfo={"groupes":("Gestion du travail",)},
11428 LISTE_INFO =SIMP(statut='o',typ='TXM',max='**',
11429 into=("CPU_RESTANT","CPU",),),
11431 TITRE =SIMP(statut='f',typ='TXM',max='**'),
11432 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
11434 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
11435 # CONFIGURATION MANAGEMENT OF EDF VERSION
11436 # ======================================================================
11437 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11438 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11439 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11440 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11441 # (AT YOUR OPTION) ANY LATER VERSION.
11443 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11444 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11445 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11446 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11448 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11449 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11450 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11451 # ======================================================================
11452 # RESPONSABLE G8BHHXD X.DESROCHES
11453 INTE_MAIL_2D=OPER(nom="INTE_MAIL_2D",op=50,sd_prod=courbe,docu="U4.81.11-e",
11454 UIinfo={"groupes":("Post traitements",)},
11455 fr="Définition d une courbe sur un maillage 2D",reentrant='n',
11457 MAILLAGE =SIMP(statut='o',typ=(maillage) ),
11459 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
11460 AU_MOINS_UN('DEFI_SEGMENT','DEFI_ARC','DEFI_CHEMIN'),
11461 PRESENT_ABSENT('DEFI_CHEMIN','DEFI_SEGMENT','DEFI_ARC'),
11462 PRESENT_ABSENT('DEFI_SEGMENT','NOEUD_ORIG','GROUP_NO_ORIG'),
11463 PRESENT_ABSENT('DEFI_ARC','NOEUD_ORIG','GROUP_NO_ORIG'),
11464 EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
11465 EXCLUS('DEFI_CHEMIN','DEFI_SEGMENT'),
11466 EXCLUS('DEFI_CHEMIN','DEFI_ARC'),),
11468 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11469 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
11470 MAILLE =SIMP(statut='f',typ=ma,max='**'),
11472 DEFI_SEGMENT =FACT(statut='f',min=1,max='**',
11473 regles=(UN_PARMI('ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
11474 UN_PARMI('EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),),
11475 ORIGINE =SIMP(statut='f',typ='R',min=2,max=2),
11476 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
11477 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
11478 EXTREMITE =SIMP(statut='f',typ='R',min=2,max=2),
11479 NOEUD_EXTR =SIMP(statut='f',typ=no,max=1),
11480 GROUP_NO_EXTR =SIMP(statut='f',typ=grno,max=1),
11483 DEFI_ARC =FACT(statut='f',min=1,max='**',
11484 regles=(UN_PARMI('CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),
11485 UN_PARMI('RAYON','ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
11486 UN_PARMI('RAYON','EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),
11487 PRESENT_PRESENT('RAYON','SECTEUR'),),
11488 CENTRE =SIMP(statut='f',typ='R',min=2,max=2),
11489 NOEUD_CENTRE =SIMP(statut='f',typ=no,max=1),
11490 GROUP_NO_CENTRE =SIMP(statut='f',typ=grno,max=1),
11491 RAYON =SIMP(statut='f',typ='R',max=1,val_min=0.E+0),
11492 SECTEUR =SIMP(statut='f',typ='R',min=2,max=2,
11493 val_min=-180.E+0,val_max=180E+0),
11494 ORIGINE =SIMP(statut='f',typ='R',min=2,max=2),
11495 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
11496 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
11497 EXTREMITE =SIMP(statut='f',typ='R',min=2,max=2),
11498 NOEUD_EXTR =SIMP(statut='f',typ=no,max=1),
11499 GROUP_NO_EXTR =SIMP(statut='f',typ=grno,max=1),
11500 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11501 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
11502 into=("RELATIF","ABSOLU",) ),
11505 DEFI_CHEMIN =FACT(statut='f',min=1,max='**',
11506 regles=(UN_PARMI('MAILLE','GROUP_MA'),),
11507 MAILLE =SIMP(statut='f',typ=ma,max='**'),
11508 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
11511 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
11512 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
11513 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
11514 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
11516 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
11517 # CONFIGURATION MANAGEMENT OF EDF VERSION
11518 # ======================================================================
11519 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11520 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11521 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11522 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11523 # (AT YOUR OPTION) ANY LATER VERSION.
11525 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11526 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11527 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11528 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11530 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11531 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11532 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11533 # ======================================================================
11534 # RESPONSABLE G8BHHXD X.DESROCHES
11535 INTE_MAIL_3D=OPER(nom="INTE_MAIL_3D",op=96,sd_prod=surface,docu="U4.81.12-e",
11536 UIinfo={"groupes":("Post traitements",)},
11537 fr="Définition d un chemin sur un maillage 3D",reentrant='n',
11538 MAILLAGE =SIMP(statut='o',typ=maillage),
11539 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11540 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
11541 MAILLE =SIMP(statut='f',typ=ma,max='**'),
11542 DEFI_SEGMENT =FACT(statut='o',min=1,max='**',
11543 regles=(UN_PARMI('ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
11544 UN_PARMI('EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),),
11545 ORIGINE =SIMP(statut='f',typ='R',min=3,max=3),
11546 NOEUD_ORIG =SIMP(statut='f',typ=no,max=1),
11547 GROUP_NO_ORIG =SIMP(statut='f',typ=grno,max=1),
11548 EXTREMITE =SIMP(statut='f',typ='R',min=3,max=3),
11549 NOEUD_EXTR =SIMP(statut='f',typ=no,max=1),
11550 GROUP_NO_EXTR =SIMP(statut='f',typ=grno,max=1),
11552 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
11553 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
11555 #& MODIF COMMANDE DATE 24/02/2003 AUTEUR DURAND C.DURAND
11556 # CONFIGURATION MANAGEMENT OF EDF VERSION
11557 # ======================================================================
11558 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11559 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11560 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11561 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11562 # (AT YOUR OPTION) ANY LATER VERSION.
11564 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11565 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11566 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11567 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11569 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11570 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11571 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11572 # ======================================================================
11573 def lire_champ_prod(TYPE_CHAM=None,**args):
11574 if TYPE_CHAM == "NOEU_DBEL_R" : return cham_no_dbel_r
11575 if TYPE_CHAM == "NOEU_DEPL_C" : return cham_no_depl_c
11576 if TYPE_CHAM == "NOEU_DEPL_F" : return cham_no_depl_f
11577 if TYPE_CHAM == "NOEU_DEPL_R" : return cham_no_depl_r
11578 if TYPE_CHAM == "NOEU_DURT_R" : return cham_no_durt_r
11579 if TYPE_CHAM == "NOEU_ENER_R" : return cham_no_ener_r
11580 if TYPE_CHAM == "NOEU_EPSI_R" : return cham_no_epsi_r
11581 if TYPE_CHAM == "NOEU_ERREUR" : return cham_no_erreur
11582 if TYPE_CHAM == "NOEU_FLUX_R" : return cham_no_flux_r
11583 if TYPE_CHAM == "NOEU_GEOM_R" : return cham_no_geom_r
11584 if TYPE_CHAM == "NOEU_G_DEPL_R" : return cham_no_g_depl_r
11585 if TYPE_CHAM == "NOEU_HYDR_R" : return cham_no_hydr_r
11586 if TYPE_CHAM == "NOEU_INST_R" : return cham_no_inst_r
11587 if TYPE_CHAM == "NOEU_INTE_R" : return cham_no_inte_r
11588 if TYPE_CHAM == "NOEU_META_R" : return cham_no_meta_r
11589 if TYPE_CHAM == "NOEU_NEUT_F" : return cham_no_neut_f
11590 if TYPE_CHAM == "NOEU_NEUT_R" : return cham_no_neut_r
11591 if TYPE_CHAM == "NOEU_PRES_R" : return cham_no_pres_r
11592 if TYPE_CHAM == "NOEU_SIEF_R" : return cham_no_sief_r
11593 if TYPE_CHAM == "NOEU_SOUR_R" : return cham_no_sour_r
11594 if TYPE_CHAM == "NOEU_TEMP_F" : return cham_no_temp_f
11595 if TYPE_CHAM == "NOEU_TEMP_R" : return cham_no_temp_r
11596 if TYPE_CHAM == "NOEU_VAR2_R" : return cham_no_var2_r
11597 if TYPE_CHAM == "NOEU_VNOR_C" : return cham_no_vnor_c
11598 if TYPE_CHAM == "ELEM_DBEL_R" : return cham_elem_dbel_r
11599 if TYPE_CHAM == "ELEM_DEPL_C" : return cham_elem_depl_c
11600 if TYPE_CHAM == "ELEM_DEPL_F" : return cham_elem_depl_f
11601 if TYPE_CHAM == "ELEM_DEPL_R" : return cham_elem_depl_r
11602 if TYPE_CHAM == "ELEM_DURT_R" : return cham_elem_durt_r
11603 if TYPE_CHAM == "ELEM_ENER_R" : return cham_elem_ener_r
11604 if TYPE_CHAM == "ELEM_EPSI_R" : return cham_elem_epsi_r
11605 if TYPE_CHAM == "ELEM_ERREUR" : return cham_elem_erreur
11606 if TYPE_CHAM == "ELEM_FLUX_R" : return cham_elem_flux_r
11607 if TYPE_CHAM == "ELEM_GEOM_R" : return cham_elem_geom_r
11608 if TYPE_CHAM == "ELEM_G_DEPL_R" : return cham_elem_g_depl
11609 if TYPE_CHAM == "ELEM_HYDR_R" : return cham_elem_hydr_r
11610 if TYPE_CHAM == "ELEM_INST_R" : return cham_elem_inst_r
11611 if TYPE_CHAM == "ELEM_INTE_R" : return cham_elem_inte_r
11612 if TYPE_CHAM == "ELEM_META_R" : return cham_elem_meta_r
11613 if TYPE_CHAM == "ELEM_NEUT_F" : return cham_elem_neut_f
11614 if TYPE_CHAM == "ELEM_NEUT_R" : return cham_elem_neut_r
11615 if TYPE_CHAM == "ELEM_PRES_R" : return cham_elem_pres_r
11616 if TYPE_CHAM == "ELEM_SIEF_R" : return cham_elem_sief_r
11617 if TYPE_CHAM == "ELEM_SOUR_R" : return cham_elem_sour_r
11618 if TYPE_CHAM == "ELEM_TEMP_F" : return cham_elem_temp_f
11619 if TYPE_CHAM == "ELEM_TEMP_R" : return cham_elem_temp_r
11620 if TYPE_CHAM == "ELEM_VARI_R" : return cham_elem_vari_r
11621 if TYPE_CHAM == "ELEM_VNOR_C" : return cham_elem_vnor_c
11622 if TYPE_CHAM == "ELNO_DBEL_R" : return cham_elem_dbel_r
11623 if TYPE_CHAM == "ELNO_DEPL_C" : return cham_elem_depl_c
11624 if TYPE_CHAM == "ELNO_DEPL_F" : return cham_elem_depl_f
11625 if TYPE_CHAM == "ELNO_DEPL_R" : return cham_elem_depl_r
11626 if TYPE_CHAM == "ELNO_DURT_R" : return cham_elem_durt_r
11627 if TYPE_CHAM == "ELNO_ENER_R" : return cham_elem_ener_r
11628 if TYPE_CHAM == "ELNO_EPSI_R" : return cham_elem_epsi_r
11629 if TYPE_CHAM == "ELNO_ERREUR" : return cham_elem_erreur
11630 if TYPE_CHAM == "ELNO_FLUX_R" : return cham_elem_flux_r
11631 if TYPE_CHAM == "ELNO_GEOM_R" : return cham_elem_geom_r
11632 if TYPE_CHAM == "ELNO_G_DEPL_R" : return cham_elem_g_depl
11633 if TYPE_CHAM == "ELNO_HYDR_R" : return cham_elem_hydr_r
11634 if TYPE_CHAM == "ELNO_INST_R" : return cham_elem_inst_r
11635 if TYPE_CHAM == "ELNO_INTE_R" : return cham_elem_inte_r
11636 if TYPE_CHAM == "ELNO_META_R" : return cham_elem_meta_r
11637 if TYPE_CHAM == "ELNO_NEUT_F" : return cham_elem_neut_f
11638 if TYPE_CHAM == "ELNO_NEUT_R" : return cham_elem_neut_r
11639 if TYPE_CHAM == "ELNO_PRES_R" : return cham_elem_pres_r
11640 if TYPE_CHAM == "ELNO_SIEF_R" : return cham_elem_sief_r
11641 if TYPE_CHAM == "ELNO_SOUR_R" : return cham_elem_sour_r
11642 if TYPE_CHAM == "ELNO_TEMP_F" : return cham_elem_temp_f
11643 if TYPE_CHAM == "ELNO_TEMP_R" : return cham_elem_temp_r
11644 if TYPE_CHAM == "ELNO_VARI_R" : return cham_elem_vari_r
11645 if TYPE_CHAM == "ELNO_VNOR_C" : return cham_elem_vnor_c
11646 if TYPE_CHAM == "ELGA_DBEL_R" : return cham_elem_dbel_r
11647 if TYPE_CHAM == "ELGA_DEPL_C" : return cham_elem_depl_c
11648 if TYPE_CHAM == "ELGA_DEPL_F" : return cham_elem_depl_f
11649 if TYPE_CHAM == "ELGA_DEPL_R" : return cham_elem_depl_r
11650 if TYPE_CHAM == "ELGA_DURT_R" : return cham_elem_durt_r
11651 if TYPE_CHAM == "ELGA_ENER_R" : return cham_elem_ener_r
11652 if TYPE_CHAM == "ELGA_EPSI_R" : return cham_elem_epsi_r
11653 if TYPE_CHAM == "ELGA_ERREUR" : return cham_elem_erreur
11654 if TYPE_CHAM == "ELGA_FLUX_R" : return cham_elem_flux_r
11655 if TYPE_CHAM == "ELGA_GEOM_R" : return cham_elem_geom_r
11656 if TYPE_CHAM == "ELGA_G_DEPL_R" : return cham_elem_g_depl
11657 if TYPE_CHAM == "ELGA_HYDR_R" : return cham_elem_hydr_r
11658 if TYPE_CHAM == "ELGA_INST_R" : return cham_elem_inst_r
11659 if TYPE_CHAM == "ELGA_INTE_R" : return cham_elem_inte_r
11660 if TYPE_CHAM == "ELGA_META_R" : return cham_elem_meta_r
11661 if TYPE_CHAM == "ELGA_NEUT_F" : return cham_elem_neut_f
11662 if TYPE_CHAM == "ELGA_NEUT_R" : return cham_elem_neut_r
11663 if TYPE_CHAM == "ELGA_PRES_R" : return cham_elem_pres_r
11664 if TYPE_CHAM == "ELGA_SIEF_R" : return cham_elem_sief_r
11665 if TYPE_CHAM == "ELGA_SOUR_R" : return cham_elem_sour_r
11666 if TYPE_CHAM == "ELGA_TEMP_F" : return cham_elem_temp_f
11667 if TYPE_CHAM == "ELGA_TEMP_R" : return cham_elem_temp_r
11668 if TYPE_CHAM == "ELGA_VARI_R" : return cham_elem_vari_r
11669 if TYPE_CHAM == "ELGA_VNOR_C" : return cham_elem_vnor_c
11670 if TYPE_CHAM == "NOEU_IRRA_R" : return cham_no_irra_r
11671 if TYPE_CHAM == "ELEM_IRRA_R" : return cham_elem_irra_r
11672 if TYPE_CHAM == "ELNO_IRRA_R" : return cham_elem_irra_r
11673 if TYPE_CHAM == "ELGA_IRRA_R" : return cham_elem_irra_r
11674 raise AsException("type de concept resultat non prevu")
11676 LIRE_CHAMP=OPER(nom="LIRE_CHAMP",op= 192,sd_prod=lire_champ_prod,
11677 fr="Lire un champ dans un fichier et le stocker dans un concept.",
11678 docu="U7.02.02-b3",reentrant='n',
11679 MAILLAGE =SIMP(statut='o',typ=maillage,),
11680 FORMAT =SIMP(statut='f',typ='TXM',defaut="MED",into=("MED",),),
11681 UNITE =SIMP(statut='f',typ='I',defaut= 81,),
11682 b_format =BLOC(condition = "FORMAT == 'MED'",
11683 regles=(UN_PARMI('NOM_CMP_IDEM','NOM_CMP'),
11684 PRESENT_PRESENT('NOM_CMP','NOM_CMP_MED' ),),
11685 NOM_MED =SIMP(statut='o',typ='TXM', ),
11686 NOM_CMP_IDEM =SIMP(statut='f',typ='TXM',into=("OUI",), ),
11687 NOM_CMP =SIMP(statut='f',typ='TXM',max='**',),
11688 NOM_CMP_MED =SIMP(statut='f',typ='TXM',max='**',),
11689 NUME_ORDRE =SIMP(statut='f',typ='I',max='**',),
11690 NUME_PT =SIMP(statut='f',typ='I',max='**',),
11691 NOM_MAIL_MED = SIMP(statut='f',typ='TXM',),
11693 TYPE_CHAM =SIMP(statut='o',typ='TXM',
11694 into=("NOEU_DBEL_R", "ELEM_DBEL_R", "ELNO_DBEL_R", "ELGA_DBEL_R",
11695 "NOEU_DEPL_C", "ELEM_DEPL_C", "ELNO_DEPL_C", "ELGA_DEPL_C",
11696 "NOEU_DEPL_F", "ELEM_DEPL_F", "ELNO_DEPL_F", "ELGA_DEPL_F",
11697 "NOEU_DEPL_R", "ELEM_DEPL_R", "ELNO_DEPL_R", "ELGA_DEPL_R",
11698 "NOEU_DURT_R", "ELEM_DURT_R", "ELNO_DURT_R", "ELGA_DURT_R",
11699 "NOEU_ENER_R", "ELEM_ENER_R", "ELNO_ENER_R", "ELGA_ENER_R",
11700 "NOEU_EPSI_R", "ELEM_EPSI_R", "ELNO_EPSI_R", "ELGA_EPSI_R",
11701 "NOEU_ERREUR", "ELEM_ERREUR", "ELNO_ERREUR", "ELGA_ERREUR",
11702 "NOEU_FLUX_R", "ELEM_FLUX_R", "ELNO_FLUX_R", "ELGA_FLUX_R",
11703 "NOEU_GEOM_R", "ELEM_GEOM_R", "ELNO_GEOM_R", "ELGA_GEOM_R",
11704 "NOEU_G_DEPL_R","ELEM_G_DEPL_R","ELNO_G_DEPL_R","ELGA_G_DEPL_R",
11705 "NOEU_HYDR_R", "ELEM_HYDR_R", "ELNO_HYDR_R", "ELGA_HYDR_R",
11706 "NOEU_INST_R", "ELEM_INST_R", "ELNO_INST_R", "ELGA_INST_R",
11707 "NOEU_INTE_R", "ELEM_INTE_R", "ELNO_INTE_R", "ELGA_INTE_R",
11708 "NOEU_META_R", "ELEM_META_R", "ELNO_META_R", "ELGA_META_R",
11709 "NOEU_NEUT_F", "ELEM_NEUT_F", "ELNO_NEUT_F", "ELGA_NEUT_F",
11710 "NOEU_NEUT_R", "ELEM_NEUT_R", "ELNO_NEUT_R", "ELGA_NEUT_R",
11711 "NOEU_PRES_R", "ELEM_PRES_R", "ELNO_PRES_R", "ELGA_PRES_R",
11712 "NOEU_SIEF_R", "ELEM_SIEF_R", "ELNO_SIEF_R", "ELGA_SIEF_R",
11713 "NOEU_SOUR_R", "ELEM_SOUR_R", "ELNO_SOUR_R", "ELGA_SOUR_R",
11714 "NOEU_TEMP_F", "ELEM_TEMP_F", "ELNO_TEMP_F", "ELGA_TEMP_F",
11715 "NOEU_TEMP_R", "ELEM_TEMP_R", "ELNO_TEMP_R", "ELGA_TEMP_R",
11716 "NOEU_VAR2_R", "ELEM_VARI_R", "ELNO_VARI_R", "ELGA_VARI_R",
11717 "NOEU_VNOR_C", "ELEM_VNOR_C", "ELNO_VNOR_C", "ELGA_VNOR_C",
11718 "NOEU_IRRA_R", "ELEM_IRRA_R", "ELNO_IRRA_R", "ELGA_IRRA_R",) ),
11719 b_modele =BLOC(condition = "TYPE_CHAM[0:2] == 'EL'",
11720 MODELE =SIMP(statut='o',typ=modele, ),
11722 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11724 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
11725 # CONFIGURATION MANAGEMENT OF EDF VERSION
11726 # ======================================================================
11727 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11728 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11729 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11730 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11731 # (AT YOUR OPTION) ANY LATER VERSION.
11733 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11734 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11735 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11736 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11738 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11739 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11740 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11741 # ======================================================================
11742 LIRE_FONCTION=OPER(nom="LIRE_FONCTION",op= 83,sd_prod=fonction,
11743 fr="Lecture d une fonction dans un fichier ",
11744 docu="U4.32.02-f1",reentrant='n',
11745 UIinfo={"groupes":("Fonction",)},
11746 UNITE =SIMP(statut='o',typ='I' ),
11747 NOM_PARA =SIMP(statut='f',typ='TXM',
11748 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
11749 "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
11750 NOM_RESU =SIMP(statut='f',typ='TXM' ),
11751 INTERPOL =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
11752 PROL_DROITE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
11753 PROL_GAUCHE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
11754 NOM_PARA_FONC =SIMP(statut='f',typ='TXM',
11755 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
11756 "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
11757 INTERPOL_FONC =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
11758 PROL_DROITE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
11759 PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
11760 INFO =SIMP(statut='f',typ='I',defaut= 2,into=( 1 , 2) ),
11761 TITRE =SIMP(statut='f',typ='TXM',max='**'),
11763 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
11764 # CONFIGURATION MANAGEMENT OF EDF VERSION
11765 # ======================================================================
11766 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11767 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11768 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11769 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11770 # (AT YOUR OPTION) ANY LATER VERSION.
11772 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11773 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11774 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11775 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11777 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11778 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11779 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11780 # ======================================================================
11781 LIRE_INTE_SPEC=OPER(nom="LIRE_INTE_SPEC",op= 116,sd_prod=tabl_intsp,
11782 fr="Lecture sur un fichier externe de fonctions complexes pour créer une matrice interspectrale",
11783 docu="U4.36.01-f2",reentrant='n',
11784 UIinfo={"groupes":("Fonction",)},
11785 UNITE =SIMP(statut='o',typ='I' ),
11786 FORMAT =SIMP(statut='f',typ='TXM',defaut="MODULE_PHASE",into=("REEL_IMAG","MODULE_PHASE") ),
11787 NOM_PARA =SIMP(statut='f',typ='TXM',
11788 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
11789 "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
11790 NOM_RESU =SIMP(statut='f',typ='TXM' ),
11791 INTERPOL =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
11792 PROL_DROITE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
11793 PROL_GAUCHE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
11794 TITRE =SIMP(statut='f',typ='TXM',max='**'),
11795 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
11797 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
11798 # CONFIGURATION MANAGEMENT OF EDF VERSION
11799 # ======================================================================
11800 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11801 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11802 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11803 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11804 # (AT YOUR OPTION) ANY LATER VERSION.
11806 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11807 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11808 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11809 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11811 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11812 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11813 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11814 # ======================================================================
11815 # RESPONSABLE VABHHTS J.PELLET
11816 LIRE_MAILLAGE=OPER(nom="LIRE_MAILLAGE",op= 1,sd_prod=maillage,
11817 fr="Lecture d'un fichier de maillage",
11818 ang="Readings of a mesh file",
11819 docu="U4.21.01-g1",reentrant='n',
11820 UIinfo={"groupes":("Maillage",)},
11822 UNITE =SIMP(statut='f',typ='I',defaut= 20 ),
11824 FORMAT =SIMP(statut='f',typ='TXM',defaut="ASTER",into=("ASTER","MED"),
11825 fr="Format du fichier : ASTER ou MED.",
11826 ang="Format of the file : ASTER or MED.",),
11828 ABSC_CURV =FACT(statut='f',min=0,max=1,
11829 TOUT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11832 VERI_MAIL =FACT(statut='d',min=1,max=1,
11833 VERIF =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11834 APLAT =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11837 b_format_med =BLOC( condition = " ( FORMAT == 'MED' ) " ,
11838 fr="Informations complémentaires pour la lecture MED.",
11839 ang="Further information for MED readings.",
11841 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
11842 # le maillage y a été enregistré. Par défaut, on va le chercher sous le nom du concept à créer.
11844 NOM_MED = SIMP(statut='f',typ='TXM',
11845 fr="Nom du maillage dans le fichier MED.",
11846 ang="Name of the mesh into the MED file.",),
11848 INFO_MED = SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11852 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11855 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
11856 # CONFIGURATION MANAGEMENT OF EDF VERSION
11857 # ======================================================================
11858 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11859 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11860 # REDISTRIBUTION OF THIS FILE.
11861 # ======================================================================
11862 def lire_miss_3d_prod(TYPE_RESU,**args):
11863 if TYPE_RESU == "TRANS" : return dyna_trans
11864 if TYPE_RESU == "HARMO" : return dyna_harmo
11865 raise AsException("type de concept resultat non prevu")
11867 LIRE_MISS_3D=OPER(nom="LIRE_MISS_3D",op= 163,sd_prod=lire_miss_3d_prod,
11868 fr="Restitution au format MISS3D d une évolution harmonique ou transitoire",
11869 docu="U7.02.31-c",reentrant='n',
11870 UIinfo={"groupes":("Maillage",)},
11871 MACR_ELEM_DYNA =SIMP(statut='o',typ=macr_elem_dyna ),
11872 UNITE =SIMP(statut='f',typ='I',defaut= 27 ),
11873 NOM =SIMP(statut='f',typ='TXM' ),
11874 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="TRANS",into=("TRANS","HARMO") ),
11875 TITRE =SIMP(statut='f',typ='TXM',max='**'),
11877 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
11878 # CONFIGURATION MANAGEMENT OF EDF VERSION
11879 # ======================================================================
11880 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11881 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11882 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11883 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11884 # (AT YOUR OPTION) ANY LATER VERSION.
11886 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11887 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11888 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11889 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11891 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11892 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11893 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11894 # ======================================================================
11895 LIRE_PLEXUS=OPER(nom="LIRE_PLEXUS",op= 184,sd_prod=evol_char,
11897 docu="U7.02.11-a",reentrant='n',
11898 UIinfo={"groupes":("Maillage",)},
11899 regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
11900 UNITE =SIMP(statut='f',typ='I',defaut= 19 ),
11901 FORMAT =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",)),
11902 MAIL_PLEXUS =SIMP(statut='o',typ=maillage ),
11903 MAILLAGE =SIMP(statut='o',typ=maillage ),
11904 MODELE =SIMP(statut='o',typ=modele ),
11905 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11906 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
11907 LIST_ORDRE =SIMP(statut='f',typ=listis ),
11908 INST =SIMP(statut='f',typ='R',max='**'),
11909 LIST_INST =SIMP(statut='f',typ=listr8 ),
11910 b_prec_crit =BLOC(condition = "LIST_INST != None or INST != None",
11911 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
11912 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
11913 into=("RELATIF","ABSOLU") ),
11915 TITRE =SIMP(statut='f',typ='TXM',max='**'),
11917 #& MODIF COMMANDE DATE 03/03/2003 AUTEUR DURAND C.DURAND
11918 # CONFIGURATION MANAGEMENT OF EDF VERSION
11919 # ======================================================================
11920 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
11921 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11922 # REDISTRIBUTION OF THIS FILE.
11923 # ======================================================================
11924 # RESPONSABLE VABHHTS J.PELLET
11925 def lire_resu_prod(TYPE_RESU,**args):
11926 if TYPE_RESU == "EVOL_CHAR" : return evol_char
11927 if TYPE_RESU == "EVOL_THER" : return evol_ther
11928 if TYPE_RESU == "EVOL_ELAS" : return evol_elas
11929 if TYPE_RESU == "EVOL_NOLI" : return evol_noli
11930 if TYPE_RESU == "DYNA_TRANS" : return dyna_trans
11931 if TYPE_RESU == "DYNA_HARMO" : return dyna_harmo
11932 if TYPE_RESU == "HARM_GENE" : return harm_gene
11933 if TYPE_RESU == "MODE_MECA" : return mode_meca
11934 raise AsException("type de concept resultat non prevu")
11936 LIRE_RESU=OPER(nom="LIRE_RESU",op=150,sd_prod=lire_resu_prod,docu="U7.02.01-d2",reentrant='n',
11937 UIinfo={"groupes":("Maillage",)},
11938 fr="Lecture de champs aux noeuds ou par éléments aux noeuds sur un fichier IDEAS ou EnSight",
11941 # 0 mots clés généraux :
11942 #----------------------
11943 TYPE_RESU =SIMP(statut='o',typ='TXM',into=("EVOL_THER","EVOL_ELAS","EVOL_NOLI","MODE_MECA",
11944 "DYNA_TRANS","DYNA_HARMO","HARM_GENE","EVOL_CHAR") ),
11946 FORMAT =SIMP(statut='o',typ='TXM',into=("IDEAS","IDEAS_DS58","ENSIGHT","MED") ),
11948 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
11949 TITRE =SIMP(statut='f',typ='TXM',max='**'),
11951 regles=(UN_PARMI('MAILLAGE','MODELE'),),
11952 MAILLAGE =SIMP(statut='f',typ=maillage),
11953 MODELE =SIMP(statut='f',typ=modele),
11955 NB_VARI =SIMP(statut='f',typ='I' ),
11958 # 1 blocs selon le format choisi :
11959 #---------------------------------
11961 # 1-1 ideas dataset-58 :
11963 b_dataset_58 = BLOC(condition="FORMAT=='IDEAS_DS58'",
11964 UNITE =SIMP(statut='f',typ='I',defaut= 19 ),
11966 b_dataset_58_b = BLOC(condition="(FORMAT=='IDEAS_DS58') and ((TYPE_RESU=='DYNA_TRANS') or\
11967 (TYPE_RESU=='DYNA_HARMO') or (TYPE_RESU=='HARM_GENE'))",
11968 UNITE =SIMP(statut='f',typ='I',defaut= 19 ),
11969 NOM_CHAM=SIMP(statut='o',typ='TXM',into=("DEPL","VITE","ACCE","EPSI_NOEU_DEPL","SIEF_NOEU",) ),
11970 REDEFI_ORIENT=FACT(statut='f',max='**',
11971 regles=(PRESENT_PRESENT('CODE_DIR','DIRECTION','NOEUD',),),
11972 CODE_DIR =SIMP(statut='f',typ='I',into=(1,2,3,) ),
11973 DIRECTION=SIMP(statut='f',typ='R',min=3,max=3,),
11974 NOEUD =SIMP(statut='f',typ=no,max='**'),),
11979 b_ideas =BLOC(condition="FORMAT=='IDEAS'",
11980 UNITE =SIMP(statut='f',typ='I',defaut= 19 ),
11981 FORMAT_IDEAS =FACT(statut='f',max='**',
11982 regles=(UN_PARMI('POSI_INST','POSI_FREQ'),),
11983 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',into=("TEMP","DEPL","VITE","ACCE","PRES","VARI_ELNO",
11984 "SIEF_ELNO","EPSA_ELNO","TEMP_PEAU","VITE_VENT",
11985 "FVOL_3D","FVOL_2D","FSUR_3D","FSUR_2D") ),
11986 NUME_DATASET =SIMP(statut='f',typ='I',into=(55,57,2414) ),
11987 RECORD_3 =SIMP(statut='f',typ='I',max=10),
11988 RECORD_6 =SIMP(statut='f',typ='I',max=10),
11989 RECORD_9 =SIMP(statut='f',typ='I',max=10),
11990 POSI_ORDRE =SIMP(statut='o',typ='I',min=2,max=2),
11991 POSI_NUME_MODE =SIMP(statut='f',typ='I',min=2,max=2),
11992 POSI_MASS_GENE =SIMP(statut='f',typ='I',min=2,max=2),
11993 POSI_INST =SIMP(statut='f',typ='I',min=2,max=2),
11994 POSI_FREQ =SIMP(statut='f',typ='I',min=2,max=2),
11995 NOM_CMP =SIMP(statut='o',typ='TXM',max='**'),),
11999 b_ensight =BLOC(condition="FORMAT=='ENSIGHT'",
12000 NOM_FICHIER =SIMP(statut='f',typ='TXM'),
12004 b_med =BLOC(condition = "FORMAT == 'MED'",fr="Nom du champ dans le fichier MED",
12005 # regles=(UN_PARMI('NOM_CMP_IDEM','NOM_CMP'),
12006 # PRESENT_PRESENT('NOM_CMP','NOM_CMP_MED' ),),
12007 NOM_MED =SIMP(statut='o',typ='TXM',
12008 fr="Nom du champ dans le fichier MED.",
12009 ang="Name of the field in the MED file." ),
12010 NOM_CMP_IDEM =SIMP(statut='f',typ='TXM',into=("OUI",),
12011 fr="Les composantes ont le meme nom dans MED et ASTER.",
12012 ang="The names of the components are the same in ASTER and MED." ),
12013 NOM_CMP =SIMP(statut='f',typ='TXM',max='**',
12014 fr="Nom des composantes dans ASTER.",
12015 ang="Names of the components in ASTER" ),
12016 NOM_CMP_MED =SIMP(statut='f',typ='TXM',max='**',
12017 fr="Nom des composantes dans MED.",
12018 ang="Names of the components in MED" ),
12019 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
12020 # le maillage associé au champ y a été enregistré. Par défaut, on prendra le premier maillage.
12021 NOM_MAIL_MED =SIMP(statut='f',typ='TXM',
12022 fr="Nom du maillage dans le fichier MED.",
12023 ang="Name of the mesh into the MED file.",),
12024 UNITE =SIMP(statut='f',typ='I',defaut= 81,
12025 fr="Le fichier est : fort.n.",
12026 ang="File is : fort.n" ),
12030 # 2 blocs selon le type du résultat :
12031 #---------------------------------
12032 b_evol_elas =BLOC(condition="TYPE_RESU=='EVOL_ELAS'",
12033 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
12036 b_evol_ther =BLOC(condition="TYPE_RESU=='EVOL_THER'",
12037 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
12038 into=("TEMP","TEMP_PEAU") ),
12040 b_evol_char =BLOC(condition="TYPE_RESU=='EVOL_CHAR'",
12041 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
12042 into=("PRES","VITE_VENT",
12043 "FVOL_3D","FVOL_2D",
12044 "FSUR_3D","FSUR_2D") ),
12046 b_evol_noli =BLOC(condition="TYPE_RESU=='EVOL_NOLI'",
12047 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
12048 into=("DEPL","VITE","ACCE","VARI_ELNO",
12049 "SIEF_ELNO","EPSA_ELNO") ),
12051 b_mode_meca =BLOC(condition="TYPE_RESU=='MODE_MECA'",
12052 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
12055 MATR_A =SIMP(statut='f',typ=matr_asse_depl_r,min=1,max=1,),
12056 MATR_B =SIMP(statut='f',typ=matr_asse_depl_r,min=1,max=1,),
12058 b_dyna =BLOC(condition="((TYPE_RESU=='DYNA_TRANS') or (TYPE_RESU=='DYNA_HARMO') or\
12059 (TYPE_RESU=='HARM_GENE')) and (FORMAT!='IDEAS_DS58')",
12060 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',
12061 into=("DEPL","VITE","ACCE",) ),
12066 #---------------------------------
12067 b_extrac =BLOC(condition="1",fr="accès à un champ dans la structure de données résultat",
12068 regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST','FREQ','LIST_FREQ'),),
12069 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12070 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
12071 INST =SIMP(statut='f',typ='R',max='**'),
12072 LIST_INST =SIMP(statut='f',typ=listr8),
12073 LIST_ORDRE =SIMP(statut='f',typ=listis),
12074 FREQ =SIMP(statut='f',typ='R',max='**'),
12075 LIST_FREQ =SIMP(statut='f',typ=listr8),
12077 b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)or(FREQ != None)or(LIST_FREQ != None)",
12078 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
12079 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
12083 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
12084 # CONFIGURATION MANAGEMENT OF EDF VERSION
12085 # ======================================================================
12086 # COPYRIGHT (C) 1991 - 2002 EDF R&D WWW.CODE-ASTER.ORG
12087 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12088 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12089 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12090 # (AT YOUR OPTION) ANY LATER VERSION.
12092 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12093 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12094 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12095 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12097 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12098 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12099 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12100 # ======================================================================
12101 def lire_table_prod(TYPE_TABLE,**args):
12102 if TYPE_TABLE == "TABLE" : return table
12103 if TYPE_TABLE == "TABL_CARA_GEOM" : return tabl_cara_geom
12104 if TYPE_TABLE == "TABL_POST_RELE" : return tabl_post_rele
12105 if TYPE_TABLE == "TABL_POST_USUR" : return tabl_post_usur
12106 if TYPE_TABLE == "TABL_POST_ALEA" : return tabl_post_alea
12107 raise AsException("type de concept resultat non prevu")
12108 LIRE_TABLE=OPER(nom="LIRE_TABLE",op=29,sd_prod=lire_table_prod,
12109 docu="U7.02.03",fr="Lecture d un concept de type table",
12110 UIinfo={"groupes":("Maillage",)},
12111 UNITE =SIMP(statut='o',typ='I' ),
12112 FORMAT =SIMP(statut='f',typ='TXM',into=("ASTER",),defaut="ASTER"),
12113 NUME_TABLE =SIMP(statut='f',typ='I',defaut=1),
12114 TYPE_TABLE =SIMP(statut='f',typ='TXM',defaut="TABLE",
12119 "TABL_POST_ALEA" ) ),
12120 SEPARATEUR =SIMP(statut='o',typ='TXM'),
12121 TITRE =SIMP(statut='f',typ='TXM',max='**'),
12123 #& MODIF COMMANDE DATE 24/02/2003 AUTEUR DURAND C.DURAND
12124 # CONFIGURATION MANAGEMENT OF EDF VERSION
12125 # ======================================================================
12126 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12127 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12128 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12129 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12130 # (AT YOUR OPTION) ANY LATER VERSION.
12132 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12133 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12134 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12135 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12137 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12138 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12139 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12140 # ======================================================================
12141 # RESPONSABLE GNICOLAS G.NICOLAS
12142 def macr_adap_mail_prod(self,MAJ_CHAM,ADAPTATION,**args):
12143 mail1=ADAPTATION['MAILLAGE_N']
12144 self.type_sdprod(mail1,maillage)
12145 mail2=ADAPTATION['MAILLAGE_NP1']
12146 self.type_sdprod(mail2,maillage)
12147 if MAJ_CHAM == None:return None
12148 for ch in MAJ_CHAM:
12150 if t == 'NOEU_TEMP_R':self.type_sdprod(ch['CHAM_MAJ'],cham_no_temp_r)
12151 if t == 'NOEU_DEPL_R':self.type_sdprod(ch['CHAM_MAJ'],cham_no_depl_r)
12154 MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",op=-24,sd_prod=macr_adap_mail_prod,
12155 fr="Adapter un maillage avec le logiciel HOMARD.",
12156 ang="Mesh adaptation with HOMARD software.",
12157 docu="U7.03.01-b2",
12159 # 1. Le niveau d'information
12161 INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12163 # 2. Version de HOMARD
12165 VERSION_HOMARD = SIMP(statut='f',typ='TXM',defaut="V5_5",
12166 into=("V5_5", "V5_N", "V5_N_PERSO"),
12167 fr="Version de HOMARD",
12168 ang="HOMARD release"),
12170 # 3. Langue des messages issus de HOMARD
12172 LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
12173 into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
12174 fr="Langue des messages issus de HOMARD.",
12175 ang="Language for HOMARD messages." ),
12177 # 4. LE TYPE DE TRAITEMENT :
12179 ADAPTATION =FACT(statut='o',min=01,max=01,
12180 fr="Type d'adaptation",
12181 ang="Type of adaptation",
12183 # 4.1. DEUX CHOIX D'ADAPTATION EXCLUSIFS :
12186 # A. SELON UN INDICATEUR D'ERREUR, AVEC TROIS VARIANTES :
12187 # . RAFFINEMENT ET DERAFFINEMENT
12188 # . RAFFINEMENT SEUL
12189 # . DERAFFINEMENT SEUL
12190 # B. UNIFORME, AVEC TROIS VARIANTES :
12191 # . RAFFINEMENT SEUL
12192 # . DERAFFINEMENT SEUL
12193 # . RIEN : LE MAILLAGE EST LE MEME A LA SORTIE ET A L'ENTREE
12196 UN_PARMI('LIBRE','UNIFORME'),
12198 LIBRE = SIMP(statut='f',typ='TXM',
12199 into=("RAFF_DERA","RAFFINEMENT","DERAFFINEMENT"),
12200 fr="Adaptation selon un indicateur d'erreur.",
12201 ang="Adaptation among an error indicator" ),
12202 UNIFORME = SIMP(statut='f',typ='TXM',
12203 into=("RAFFINEMENT","DERAFFINEMENT","RIEN"),
12204 fr="Adaptation uniforme.",
12205 ang="Uniform adaptation" ),
12207 # 4.2. QUEL QUE SOIT LE TYPE DE TRAITEMENT, IL FAUT DONNER :
12208 # A. LE CONCEPT DU MAILLAGE INITIAL
12209 # B. LE CONCEPT DU MAILLAGE FINAL
12211 MAILLAGE_N = SIMP(statut='o',typ=(CO,maillage),
12212 fr="Maillage avant adaptation",
12213 ang="Mesh before adaptation" ),
12214 MAILLAGE_NP1 = SIMP(statut='o',typ=(CO,maillage),
12215 fr="Maillage apres adaptation",
12216 ang="Mesh after adaptation" ),
12218 # 4.3. POUR DE L'ADAPTATION LIBRE, IL FAUT L'INDICATEUR D'ERREUR
12221 b_indicateur_d_erreur =BLOC( condition = " LIBRE != None " ,
12222 fr="Indicateur d'erreur",
12223 ang="Error indicator",
12225 # 4.3.1. LE NOM DU CONCEPT RESULTAT
12227 RESULTAT_N = SIMP(statut='o',typ=(evol_elas,evol_noli,evol_ther) ,
12228 fr="Resultat contenant l'indicateur d'erreur",
12229 ang="Result with error indicator" ),
12231 # 4.3.2. LE CHAMP D'INDICATEUR D'ERREUR
12233 INDICATEUR = SIMP(statut='o',typ='TXM',
12234 fr="Champ de l'indicateur d'erreur",
12235 ang="Error indicator field" ),
12237 # 4.3.3. LA COMPOSANTE RETENUE
12239 NOM_CMP_INDICA = SIMP(statut='o',typ='TXM',
12240 fr="Composante retenue",
12241 ang="Selected component" ),
12243 # 4.3.4. LE NUMERO D'ORDRE
12245 NUME_ORDRE = SIMP(statut='f',typ='I' ,
12246 fr="Numero d ordre",
12250 # 4.4. LES CRITERES POUR DE L'ADAPTATION LIBRE :
12251 # ABSOLU, RELATIF, EN PROPORTION D'ENTITE
12252 # 4.4.1. POUR LE RAFFINEMENT :
12254 b_critere_de_raffinement =BLOC( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'RAFFINEMENT' ) " ,
12255 fr="Critère de raffinement.",
12256 ang="Refinement threshold.",
12257 regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE' ),),
12258 CRIT_RAFF_ABS = SIMP(statut='f',typ='R',
12259 fr="Critère absolu",
12260 ang="Absolute threshold" ),
12261 CRIT_RAFF_REL = SIMP(statut='f',typ='R',
12262 fr="Critère relatif",
12263 ang="Relative threshold" ),
12264 CRIT_RAFF_PE = SIMP(statut='f',typ='R',
12265 fr="Pourcentage d'éléments",
12266 ang="Percentage of elements" ),
12269 # 4.4.2. POUR LE DERAFFINEMENT :
12271 b_critere_de_deraffinement =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'DERAFFINEMENT' ) " ,
12272 fr="Critère de déraffinement.",
12273 ang="Unrefinement threshold.",
12274 regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE' ),),
12275 CRIT_DERA_ABS = SIMP(statut='f',typ='R' ,
12276 fr="Critère absolu",
12277 ang="Absolute threshold" ),
12278 CRIT_DERA_REL = SIMP(statut='f',typ='R',
12279 fr="Critère relatif",
12280 ang="Relative threshold" ),
12281 CRIT_DERA_PE = SIMP(statut='f',typ='R',
12282 fr="Pourcentage d'éléments",
12283 ang="Percentage of elements" ),
12286 # 4.5. LES NIVEAUX EXTREMES POUR LE MAILLAGE ADAPTE
12287 # 4.5.1. POUR LE RAFFINEMENT :
12289 b_niveau_maximum =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'RAFFINEMENT' ) or \
12290 ( UNIFORME == 'RAFFINEMENT' ) " ,
12291 fr="Niveau maximum de profondeur de raffinement",
12292 ang="Maximum level for refinement",
12293 NIVE_MAX = SIMP(statut='f',typ='I' ),
12296 # 4.5.2. POUR LE DERAFFINEMENT :
12298 b_niveau_minimum =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'DERAFFINEMENT' ) or \
12299 ( UNIFORME == 'DERAFFINEMENT' ) " ,
12300 fr="Niveau minimum de profondeur de déraffinement",
12301 ang="Minimum level for unrefinement",
12302 NIVE_MIN = SIMP(statut='f',typ='I' ),
12306 # 5. LA MISE A JOUR DE CHAMPS.
12307 # PAR DEFAUT, RIEN NE SE FAIT
12309 MAJ_CHAM =FACT(statut='f',min=01,max='**',
12310 fr="Mise à jour de champs sur le nouveau maillage.",
12311 ang="Updating of fields over the new mesh.",
12313 # 5.1. LE NOM DU RESULTAT DU CHAMP A INTERPOLER
12315 RESULTAT = SIMP(statut='o',
12316 typ=(evol_elas,evol_noli,evol_ther),
12317 fr="Resultat contenant le champ à mettre à jour",
12318 ang="Result with field to be updated" ),
12320 # 5.2. LE NOM DU CHAMP A INTERPOLER
12322 NOM_CHAM = SIMP(statut='o',typ='TXM',
12323 fr="Nom du champ à mettre à jour",
12324 ang="Name of the field to be updated" ),
12326 # 5.3. LE NUMERO D'ORDRE POUR LE CHAMP A INTERPOLER
12328 NUME_ORDRE = SIMP(statut='f',typ='I',
12329 fr="Numero d ordre du champ à mettre à jour",
12330 ang="Rank of the field to be updated" ),
12332 # 5.4. LE NOM DU CHAMP QUI CONTIENDRA LE RESULTAT DE LA MISE A JOUR
12334 CHAM_MAJ = SIMP(statut='o',typ=(CO,cham_gd),
12335 fr="Nom du champ qui contiendra le champ mis à jour",
12336 ang="Name of the field for the updated field"),
12338 # 5.5. LE TYPE DU CHAMP QUI CONTIENDRA LE RESULTAT DE LA MISE A JOUR
12340 TYPE_CHAM = SIMP(statut='o',typ='TXM',
12341 into=("NOEU_TEMP_R","NOEU_DEPL_R"),
12342 fr="Type du champ qui contiendra le champ mis à jour",
12343 ang="Type of the field for the updated field" ),
12346 # 6. INFORMATION SUR LE MAILLAGE : par defaut, on ne fait que les nombres
12347 # A. NOMBRE DE NOEUDS ET ELEMENTS DU MAILLAGE
12348 # B. QUALITE DES ELEMENTS DU MAILLAGE
12349 # C. CONTROLE DE LA NON INTERPENETRATION DES ELEMENTS DU MAILLAGE
12350 # D. CONNEXITE DU MAILLAGE
12351 # E. TAILLE DES DIFFERENTS SOUS-DOMAINES
12353 NOMBRE = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
12354 fr="Nombre de noeuds et éléments du maillage",
12355 ang="Number of nodes and elements in the mesh" ),
12357 QUALITE = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12358 fr="Qualité du maillage",
12359 ang="Mesh quality" ),
12361 INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12362 fr="Controle de la non interpénétration des éléments.",
12363 ang="Overlapping checking." ),
12365 CONNEXITE = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12366 fr="Connexité du maillage.",
12367 ang="Mesh connexity." ),
12369 TAILLE = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12370 fr="Tailles des sous-domaines du maillage.",
12371 ang="Sizes of mesh sub-domains." ),
12373 MENAGE = SIMP(statut='f',typ='TXM',into=("MAILLAGE","SOLUTION","TOUT") ),
12376 #& MODIF COMMANDE DATE 03/12/2002 AUTEUR DURAND C.DURAND
12377 # CONFIGURATION MANAGEMENT OF EDF VERSION
12378 # ======================================================================
12379 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12380 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12381 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12382 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12383 # (AT YOUR OPTION) ANY LATER VERSION.
12385 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12386 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12387 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12388 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12390 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12391 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12392 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12393 # ======================================================================
12394 # RESPONSABLE F1BHHAJ J.ANGLES
12395 def macr_ascouf_calc_prod(self,MODELE,CHAM_MATER,CARA_ELEM,FOND_FISS,CHARGE,RESU_THER,**args):
12396 self.type_sdprod(MODELE,modele)
12397 if CHAM_MATER != None:self.type_sdprod(CHAM_MATER,cham_mater)
12398 if CARA_ELEM != None:self.type_sdprod(CARA_ELEM,cara_elem)
12399 if FOND_FISS != None:self.type_sdprod(FOND_FISS,fond_fiss)
12400 if CHARGE != None:self.type_sdprod(CHARGE,char_meca)
12401 if RESU_THER != None:self.type_sdprod(RESU_THER,evol_ther)
12404 MACR_ASCOUF_CALC=MACRO(nom="MACR_ASCOUF_CALC",op= -20,sd_prod=macr_ascouf_calc_prod,
12406 docu="U4.cf.20-b1",reentrant='n',
12407 UIinfo={"groupes":("Outils métier",)},
12408 regles=(UN_PARMI('COMP_INCR','COMP_ELAS'),),
12410 TYPE_MAILLAGE =SIMP(statut='o',typ='TXM',
12417 CL_BOL_P2_GV =FACT(statut='f',min=1,max=1,
12418 ANGLE =SIMP(statut='o',typ='R' ),
12419 AZIMUT =SIMP(statut='f',typ='R',defaut= 90. ),
12422 MAILLAGE =SIMP(statut='o',typ=maillage ),
12423 MODELE =SIMP(statut='o',typ=(CO,modele)),
12424 CHAM_MATER =SIMP(statut='f',typ=(CO,cham_mater)),
12425 CARA_ELEM =SIMP(statut='f',typ=(CO,cara_elem)),
12426 FOND_FISS =SIMP(statut='f',typ=(CO,fond_fiss)),
12427 CHARGE =SIMP(statut='f',typ=(CO,char_meca)),
12428 RESU_THER =SIMP(statut='f',typ=(CO,evol_ther)),
12430 AFFE_MATERIAU =FACT(statut='o',min=1,max=3,
12431 regles=(UN_PARMI('TOUT','GROUP_MA'),),
12432 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12433 GROUP_MA =SIMP(statut='f',typ='TXM',into=("COUDE","BOL") ),
12434 MATER =SIMP(statut='o',typ=mater ),
12435 TEMP_REF =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12438 PRES_REP =FACT(statut='f',min=1,max=1,
12439 PRES =SIMP(statut='o',typ='R' ),
12440 EFFE_FOND_P1 =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12441 PRES_LEVRE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
12442 FONC_MULT =SIMP(statut='f',typ=fonction ),
12445 ECHANGE =FACT(statut='f',min=1,max=1,
12446 COEF_H =SIMP(statut='f',typ=fonction ),
12447 TEMP_EXT =SIMP(statut='f',typ=fonction ),
12450 TORS_P1 =FACT(statut='f',min=1,max=6,
12451 regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
12452 FX =SIMP(statut='f',typ='R' ),
12453 FY =SIMP(statut='f',typ='R' ),
12454 FZ =SIMP(statut='f',typ='R' ),
12455 MX =SIMP(statut='f',typ='R' ),
12456 MY =SIMP(statut='f',typ='R' ),
12457 MZ =SIMP(statut='f',typ='R' ),
12458 FONC_MULT =SIMP(statut='f',typ=fonction ),
12461 COMP_INCR =FACT(statut='f',min=1,max=1,
12462 RELATION =SIMP(statut='o',typ='TXM',into=("VMIS_ISOT_TRAC",) ),
12463 VMIS_ISOT_TRAC =SIMP(statut='c',typ='I',defaut= 2,into=( 2 ,) ),
12466 COMP_ELAS =FACT(statut='f',min=1,max=1,
12467 RELATION =SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC") ),
12468 ELAS =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
12469 ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
12472 SOLVEUR =FACT(statut='d',min=1,max=1,
12473 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
12474 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
12475 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
12477 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
12478 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
12480 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
12481 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
12482 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
12483 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12485 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
12486 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
12487 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
12488 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
12489 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
12490 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
12493 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12494 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
12497 CONVERGENCE =FACT(statut='d',min=1,max=1,
12498 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
12499 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
12500 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
12501 ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
12502 RESI_INTE_RELA =SIMP(statut='f',typ='R'
12504 ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
12505 ITER_INTE_PAS =SIMP(statut='f',typ='I',defaut= 0 ),
12506 TYPE_MATR_COMP =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
12507 RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
12510 NEWTON =FACT(statut='d',min=1,max=1,
12511 REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
12512 PREDICTION =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
12513 MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
12514 REAC_ITER =SIMP(statut='f',typ='I',defaut=0),
12515 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
12518 RECH_LINEAIRE =FACT(statut='f',min=1,max=1,
12519 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
12520 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 3),
12523 INCREMENT =FACT(statut='o',min=1,max=1,
12524 regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
12525 EXCLUS('NUME_INST_FIN','INST_FIN'),),
12526 LIST_INST =SIMP(statut='o',typ=listr8),
12527 EVOLUTION =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
12528 into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
12529 NUME_INST_INIT =SIMP(statut='f',typ='I'),
12530 INST_INIT =SIMP(statut='f',typ='R'),
12531 NUME_INST_FIN =SIMP(statut='f',typ='I'),
12532 INST_FIN =SIMP(statut='f',typ='R'),
12533 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
12534 SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
12535 SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
12536 COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
12539 THETA_3D =FACT(statut='f',min=1,max='**',
12540 R_INF =SIMP(statut='o',typ='R' ),
12541 R_SUP =SIMP(statut='o',typ='R' ),
12544 IMPR_TABLE =FACT(statut='f',min=1,max=1,
12545 regles=(UN_PARMI('TOUT_PARA','NOM_PARA', ),
12546 PRESENT_PRESENT('TOUT_PARA','ANGLE', ),
12547 PRESENT_PRESENT('TOUT_PARA','R_CINTR', ),
12548 UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL',),),
12549 NOM_PARA =SIMP(statut='f',typ='TXM',max=4,
12550 into=("TRESCA_MEMBRANE",
12557 TOUT_PARA =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12558 ANGLE =SIMP(statut='f',typ='R',max='**' ),
12559 R_CINTR =SIMP(statut='f',typ='R',max='**' ),
12560 POSI_CURV_LONGI =SIMP(statut='f',typ='R',max='**' ),
12561 POSI_ANGUL =SIMP(statut='f',typ='R',max='**' ),
12562 TRANSFORMEE =SIMP(statut='f',typ='TXM',defaut="COUDE",into=("COUDE","TUBE") ),
12565 IMPRESSION =FACT(statut='f',min=1,max=1,
12566 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
12567 into=("RESULTAT","ASTER","IDEAS","CASTEM") ),
12569 b_format_ideas =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
12570 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12573 b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
12574 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
12579 TITRE =SIMP(statut='f',typ='TXM' ),
12581 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
12583 #& MODIF COMMANDE DATE 03/12/2002 AUTEUR DURAND C.DURAND
12584 # CONFIGURATION MANAGEMENT OF EDF VERSION
12585 # ======================================================================
12586 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12587 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12588 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12589 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12590 # (AT YOUR OPTION) ANY LATER VERSION.
12592 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12593 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12594 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12595 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12597 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12598 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12599 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12600 # ======================================================================
12601 # RESPONSABLE F1BHHAJ J.ANGLES
12602 MACR_ASCOUF_MAIL=MACRO(nom="MACR_ASCOUF_MAIL",op= -19,sd_prod=maillage,
12603 fr=" ",docu="U4.cf.10-b1",reentrant='n',
12604 UIinfo={"groupes":("Outils métier",)},
12606 regles=(EXCLUS('SOUS_EPAIS_COUDE','FISS_COUDE','SOUS_EPAIS_MULTI'),),
12608 EXEC_MAILLAGE =FACT(statut='o',min=1,max=1,
12609 LOGICIEL =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000") ),
12610 UNITE_DATG =SIMP(statut='f',typ='I',defaut=70),
12611 UNITE_MGIB =SIMP(statut='f',typ='I',defaut=19),
12612 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10,11)),
12615 TYPE_ELEM =SIMP(statut='f',typ='TXM',defaut="CU20",into=("CU20","CUB8") ),
12617 COUDE =FACT(statut='o',min=1,max=1,
12618 ANGLE =SIMP(statut='o',typ='R' ),
12619 R_CINTR =SIMP(statut='o',typ='R' ),
12620 L_TUBE_P1 =SIMP(statut='o',typ='R' ),
12621 L_TUBE_P2 =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12622 NB_ELEM_EPAIS =SIMP(statut='f',typ='I',defaut= 3 ),
12623 SYME =SIMP(statut='f',typ='TXM',defaut="ENTIER",into=("ENTIER","QUART","DEMI") ),
12624 TRANSFORMEE =SIMP(statut='o',typ='TXM',defaut="COUDE",into=("COUDE","TUBE") ),
12625 b_transf_coude =BLOC(condition = "TRANSFORMEE == 'COUDE' ",
12626 DEXT =SIMP(statut='o',typ='R' ),
12627 EPAIS =SIMP(statut='o',typ='R' ),
12628 SUR_EPAIS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12629 BOL_P2 =SIMP(statut='f',typ='TXM',into=("ASP_MPP","CUVE","GV") ),
12631 b_transf_tube =BLOC(condition = "TRANSFORMEE == 'TUBE' ",
12632 TRAN_EPAIS =SIMP(statut='o',typ='TXM',defaut="NON",into=("OUI","NON") ),
12633 b_trans_epais_oui =BLOC(condition = "TRAN_EPAIS == 'OUI' ",
12634 regles=(ENSEMBLE('ANGL_TETA2','EPAIS_TI'),
12635 UN_PARMI('ABSC_CURV_TRAN','POSI_ANGU_TRAN'),),
12636 DEXT_T1 =SIMP(statut='o',typ='R' ),
12637 EPAIS_T1 =SIMP(statut='o',typ='R' ),
12638 EPAIS_T2 =SIMP(statut='o',typ='R' ),
12639 EPAIS_TI =SIMP(statut='f',typ='R' ),
12640 ANGL_TETA1 =SIMP(statut='o',typ='R' ),
12641 ANGL_TETA2 =SIMP(statut='f',typ='R' ),
12642 ABSC_CURV_TRAN =SIMP(statut='f',typ='R' ),
12643 POSI_ANGU_TRAN =SIMP(statut='f',typ='R' ),
12645 b_trans_epais_non =BLOC(condition = "TRAN_EPAIS == 'NON' ",
12646 DEXT =SIMP(statut='o',typ='R' ),
12647 EPAIS =SIMP(statut='o',typ='R' ),
12648 SUR_EPAIS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12649 BOL_P2 =SIMP(statut='f',typ='TXM',into=("ASP_MPP","CUVE","GV") ),
12654 SOUS_EPAIS_COUDE=FACT(statut='f',min=1,max=1,
12655 regles=(UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL'),
12656 UN_PARMI('POSI_CURV_CIRC','AZIMUT'),),
12657 TYPE =SIMP(statut='o',typ='TXM',into=("AXIS","ELLI") ),
12658 AXE_CIRC =SIMP(statut='f',typ='R' ),
12659 AXE_LONGI =SIMP(statut='o',typ='R' ),
12660 PROFONDEUR =SIMP(statut='o',typ='R' ),
12661 POSI_CURV_LONGI =SIMP(statut='f',typ='R' ),
12662 POSI_ANGUL =SIMP(statut='f',typ='R' ),
12663 POSI_CURV_CIRC =SIMP(statut='f',typ='R' ),
12664 AZIMUT =SIMP(statut='f',typ='R' ),
12665 SOUS_EPAIS =SIMP(statut='o',typ='TXM',into=("INTERNE","EXTERNE") ),
12666 NB_ELEM_LONGI =SIMP(statut='o',typ='I' ),
12667 NB_ELEM_CIRC =SIMP(statut='o',typ='I' ),
12668 NB_ELEM_RADI =SIMP(statut='f',typ='I',defaut= 3 ),
12669 EMPREINTE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12672 SOUS_EPAIS_MULTI=FACT(statut='f',min=1,max='**',
12673 regles=(UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL'),
12674 UN_PARMI('POSI_CURV_CIRC','AZIMUT'),),
12675 TYPE =SIMP(statut='o',typ='TXM',into=("AXIS","ELLI") ),
12676 AXE_CIRC =SIMP(statut='f',typ='R' ),
12677 AXE_LONGI =SIMP(statut='o',typ='R' ),
12678 PROFONDEUR =SIMP(statut='o',typ='R' ),
12679 POSI_CURV_LONGI =SIMP(statut='f',typ='R' ),
12680 POSI_ANGUL =SIMP(statut='f',typ='R' ),
12681 POSI_CURV_CIRC =SIMP(statut='f',typ='R' ),
12682 AZIMUT =SIMP(statut='f',typ='R' ),
12683 SOUS_EPAIS =SIMP(statut='o',typ='TXM',into=("INTERNE","EXTERNE") ),
12684 NB_ELEM_LONGI =SIMP(statut='o',typ='I' ),
12685 NB_ELEM_CIRC =SIMP(statut='o',typ='I' ),
12686 EMPREINTE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12689 FISS_COUDE =FACT(statut='f',min=1,max=1,
12690 regles=(UN_PARMI('ABSC_CURV','POSI_ANGUL'),),
12691 AXIS =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON" ),
12692 b_axis_non =BLOC(condition = "AXIS == 'NON' ",
12693 LONGUEUR =SIMP(statut='o',typ='R' ),
12695 b_axis_oui =BLOC(condition = "AXIS == 'OUI' ",
12696 LONGUEUR =SIMP(statut='f',typ='R' ),
12698 PROFONDEUR =SIMP(statut='o',typ='R' ),
12699 ABSC_CURV =SIMP(statut='f',typ='R' ),
12700 POSI_ANGUL =SIMP(statut='f',typ='R' ),
12701 FISSURE =SIMP(statut='o',typ='TXM',into=("DEB_INT","DEB_EXT") ),
12702 AZIMUT =SIMP(statut='f',typ='R',defaut= 90. ),
12703 ORIEN =SIMP(statut='o',typ='R',
12704 into=(45.,-45.,90.,0.E+0) ),
12705 NB_TRANCHE =SIMP(statut='o',typ='I' ),
12706 NB_SECTEUR =SIMP(statut='o',typ='I' ),
12707 NB_COURONNE =SIMP(statut='o',typ='I' ),
12708 RAYON_TORE =SIMP(statut='f',typ='R' ),
12709 COEF_MULT_RC2 =SIMP(statut='f',typ='R',defaut= 1. ),
12710 COEF_MULT_RC3 =SIMP(statut='f',typ='R' ),
12711 ANGL_OUVERTURE =SIMP(statut='f',typ='R',defaut= 0.5 ),
12714 IMPRESSION =FACT(statut='f',min=1,max='**',
12715 regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
12716 FORMAT =SIMP(statut='f',typ='TXM',defaut="ASTER",
12717 into=("ASTER","IDEAS","CASTEM") ),
12718 b_format_ideas =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
12719 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12721 b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
12722 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
12724 FICHIER =SIMP(statut='f',typ='TXM' ),
12725 UNITE =SIMP(statut='f',typ='I' ),
12728 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
12730 #& MODIF COMMANDE DATE 03/12/2002 AUTEUR DURAND C.DURAND
12731 # CONFIGURATION MANAGEMENT OF EDF VERSION
12732 # ======================================================================
12733 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12734 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12735 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12736 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12737 # (AT YOUR OPTION) ANY LATER VERSION.
12739 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12740 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12741 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12742 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12744 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12745 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12746 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12747 # ======================================================================
12748 # RESPONSABLE F1BHHAJ J.ANGLES
12749 def macr_aspic_calc_prod(self,MODELE,CHAM_MATER,CARA_ELEM,FOND_FISS_1,FOND_FISS_2,CHARGE,RESU_THER,**args):
12750 if MODELE != None:self.type_sdprod(MODELE,modele)
12751 if CHAM_MATER != None:self.type_sdprod(CHAM_MATER,cham_mater)
12752 if CARA_ELEM != None:self.type_sdprod(CARA_ELEM,cara_elem)
12753 if FOND_FISS_1 != None:self.type_sdprod(FOND_FISS_1,fond_fiss)
12754 if FOND_FISS_2 != None:self.type_sdprod(FOND_FISS_2,fond_fiss)
12755 if CHARGE != None:self.type_sdprod(CHARGE,char_meca)
12756 if RESU_THER != None:self.type_sdprod(RESU_THER,evol_ther)
12759 MACR_ASPIC_CALC=MACRO(nom="MACR_ASPIC_CALC",op=-17,sd_prod=macr_aspic_calc_prod,
12760 fr=" ",docu="U4.pc.20-b2",reentrant='n',
12761 UIinfo={"groupes":("Outils métier",)},
12762 regles=(UN_PARMI('COMP_INCR','COMP_ELAS'),),
12764 TYPE_MAILLAGE =SIMP(statut='o',typ='TXM',
12765 into=("SAIN_FIN","SAIN_GROS","FISS_COUR_DEB","FISS_COUR_NONDEB","FISS_LONG_DEB",
12766 "FISS_LONG_NONDEB","FISS_AXIS_DEB","FISS_AXIS_NONDEB") ),
12768 TUBULURE =FACT(statut='o',min=1,max=1,
12769 TYPE =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2") ),
12771 MAILLAGE =SIMP(statut='o',typ=maillage),
12772 MODELE =SIMP(statut='f',typ=(CO,modele)),
12773 CHAM_MATER =SIMP(statut='f',typ=(CO,cham_mater)),
12774 CARA_ELEM =SIMP(statut='f',typ=(CO,cara_elem)),
12775 FOND_FISS_1 =SIMP(statut='f',typ=(CO,fond_fiss)),
12776 FOND_FISS_2 =SIMP(statut='f',typ=(CO,fond_fiss)),
12777 CHARGE =SIMP(statut='f',typ=(CO,char_meca)),
12778 RESU_THER =SIMP(statut='f',typ=(CO,evol_ther)),
12780 AFFE_MATERIAU =FACT(statut='o',min=1,max=3,
12781 regles=(UN_PARMI('TOUT','GROUP_MA'),),
12782 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
12783 GROUP_MA =SIMP(statut='f',typ='TXM',into=("TUBU","CORP","SOUD","SOUDCORP","SOUDTUBU") ),
12784 MATER =SIMP(statut='o',typ=mater),
12785 TEMP_REF =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12786 RCCM =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
12789 EQUILIBRE =FACT(statut='o',min=1,max=1,
12790 NOEUD =SIMP(statut='o',typ=no),
12793 PRES_REP =FACT(statut='o',min=1,max=1,
12794 PRES =SIMP(statut='o',typ='R'),
12795 NOEUD =SIMP(statut='f',typ=no),
12796 EFFE_FOND =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
12797 PRES_LEVRE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
12798 FONC_MULT =SIMP(statut='f',typ=fonction),
12801 ECHANGE =FACT(statut='f',min=1,max=1,
12802 COEF_H_TUBU =SIMP(statut='o',typ=fonction),
12803 COEF_H_CORP =SIMP(statut='o',typ=fonction),
12804 TEMP_EXT =SIMP(statut='o',typ=fonction),
12807 TORS_CORP =FACT(statut='f',min=1,max=6,
12808 regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
12809 NOEUD =SIMP(statut='o',typ=no),
12810 FX =SIMP(statut='f',typ='R'),
12811 FY =SIMP(statut='f',typ='R'),
12812 FZ =SIMP(statut='f',typ='R'),
12813 MX =SIMP(statut='f',typ='R'),
12814 MY =SIMP(statut='f',typ='R'),
12815 MZ =SIMP(statut='f',typ='R'),
12816 FONC_MULT =SIMP(statut='f',typ=fonction),
12819 TORS_TUBU =FACT(statut='f',min=1,max=6,
12820 regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
12821 FX =SIMP(statut='f',typ='R'),
12822 FY =SIMP(statut='f',typ='R'),
12823 FZ =SIMP(statut='f',typ='R'),
12824 MX =SIMP(statut='f',typ='R'),
12825 MY =SIMP(statut='f',typ='R'),
12826 MZ =SIMP(statut='f',typ='R'),
12827 FONC_MULT =SIMP(statut='f',typ=fonction),
12830 COMP_INCR =FACT(statut='f',min=1,max=1,
12831 RELATION =SIMP(statut='o',typ='TXM',into=("VMIS_ISOT_TRAC",) ),
12832 VMIS_ISOT_TRAC =SIMP(statut='c',typ='I',defaut= 2,into=( 2 ,) ),
12835 COMP_ELAS =FACT(statut='f',min=1,max=1,
12836 RELATION =SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC") ),
12837 ELAS =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
12838 ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
12841 THETA_3D =FACT(statut='f',min=1,max='**',
12842 R_INF =SIMP(statut='o',typ='R'),
12843 R_SUP =SIMP(statut='o',typ='R'),
12846 OPTION =SIMP(statut='f',typ='TXM',into=("CALC_G_MAX","CALC_G_MAX_LOCAL") ),
12847 BORNES =FACT(statut='f',min=1,max='**',
12848 NUME_ORDRE =SIMP(statut='o',typ='I'),
12849 VALE_MIN =SIMP(statut='o',typ='R'),
12850 VALE_MAX =SIMP(statut='o',typ='R'),
12853 SOLVEUR =FACT(statut='d',min=1,max=1,
12854 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
12855 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
12856 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
12858 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
12859 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
12861 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
12862 fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
12863 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
12864 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12866 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
12867 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
12868 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
12869 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
12870 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
12871 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
12874 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12875 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
12878 CONVERGENCE =FACT(statut='d',min=1,max=1,
12879 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
12880 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
12881 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
12882 ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
12883 RESI_INTE_RELA =SIMP(statut='f',typ='R',defaut=1.0E-6),
12884 ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut=10),
12885 ITER_INTE_PAS =SIMP(statut='f',typ='I',defaut=0),
12886 TYPE_MATR_COMP =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
12887 RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
12890 NEWTON =FACT(statut='d',min=1,max=1,
12891 REAC_INCR =SIMP(statut='f',typ='I',defaut=1),
12892 PREDICTION =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE","EXTRAPOL","DEPL_CALCULE")),
12893 MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE")),
12894 REAC_ITER =SIMP(statut='f',typ='I',defaut= 0),
12897 RECH_LINEAIRE =FACT(statut='d',min=1,max=1,
12898 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut=1.0E-3),
12899 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut=3),
12902 INCREMENT =FACT(statut='o',min=1,max=1,
12903 regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
12904 EXCLUS('NUME_INST_FIN','INST_FIN'),),
12905 LIST_INST =SIMP(statut='o',typ=listr8),
12906 EVOLUTION =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
12907 into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
12908 NUME_INST_INIT =SIMP(statut='f',typ='I'),
12909 INST_INIT =SIMP(statut='f',typ='R'),
12910 NUME_INST_FIN =SIMP(statut='f',typ='I'),
12911 INST_FIN =SIMP(statut='f',typ='R'),
12912 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
12913 SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
12914 SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
12915 COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
12918 PAS_AZIMUT =SIMP(statut='f',typ='I',defaut=1),
12920 IMPRESSION =FACT(statut='f',min=1,max=1,
12921 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
12922 into=("RESULTAT","ASTER","CASTEM","IDEAS")),
12924 b_format_ideas =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
12925 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12928 b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
12929 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
12932 b_extrac =BLOC(condition="((FORMAT=='IDEAS')or(FORMAT=='CASTEM'))",
12933 fr="extraction d un champ de grandeur",
12934 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST'),),
12935 NOM_CHAM =SIMP(statut='f',typ='TXM',max=3,
12936 into=("DEPL","EQUI_ELNO_SIGM","TEMP")),
12938 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12939 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
12940 INST =SIMP(statut='f',typ='R',max='**'),
12944 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12946 TITRE =SIMP(statut='f',typ='TXM'),
12949 #& MODIF COMMANDE DATE 03/12/2002 AUTEUR DURAND C.DURAND
12950 # CONFIGURATION MANAGEMENT OF EDF VERSION
12951 # ======================================================================
12952 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
12953 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12954 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12955 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12956 # (AT YOUR OPTION) ANY LATER VERSION.
12958 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12959 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12960 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12961 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12963 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12964 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12965 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12966 # ======================================================================
12967 # RESPONSABLE F1BHHAJ J.ANGLES
12968 MACR_ASPIC_MAIL=MACRO(nom="MACR_ASPIC_MAIL",op= -16,sd_prod=maillage,reentrant='n',
12969 fr=" ",docu="U4.pc.10-b1",
12970 UIinfo={"groupes":("Outils métier",)},
12972 EXEC_MAILLAGE =FACT(statut='o',min=1,max=1,
12973 LOGICIEL =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000")),
12974 UNITE_DATG =SIMP(statut='f',typ='I',defaut=70),
12975 UNITE_MGIB =SIMP(statut='f',typ='I',defaut=19),
12976 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10,11)),
12979 TYPE_ELEM =SIMP(statut='f',typ='TXM',defaut="CU20",into=("CU20","CUB8")),
12981 RAFF_MAIL =SIMP(statut='f',typ='TXM',defaut="GROS",into=("GROS","FIN")),
12983 TUBULURE =FACT(statut='o',min=1,max=1,
12984 E_BASE =SIMP(statut='o',typ='R'),
12985 DEXT_BASE =SIMP(statut='o',typ='R'),
12986 L_BASE =SIMP(statut='o',typ='R'),
12987 L_CHANF =SIMP(statut='o',typ='R'),
12988 E_TUBU =SIMP(statut='o',typ='R'),
12989 DEXT_TUBU =SIMP(statut='o',typ='R'),
12990 Z_MAX =SIMP(statut='o',typ='R'),
12991 TYPE =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2")),
12992 L_PENETR =SIMP(statut='f',typ='R',defaut= 0.0E+0),
12995 SOUDURE =FACT(statut='o',min=1,max=1,
12996 H_SOUD =SIMP(statut='o',typ='R'),
12997 ANGL_SOUD =SIMP(statut='o',typ='R'),
12998 JEU_SOUD =SIMP(statut='o',typ='R'),
13001 CORPS =FACT(statut='o',min=1,max=1,
13002 E_CORP =SIMP(statut='o',typ='R'),
13003 DEXT_CORP =SIMP(statut='o',typ='R'),
13004 X_MAX =SIMP(statut='o',typ='R'),
13007 FISS_SOUDURE =FACT(statut='f',min=1,max=1,
13008 TYPE =SIMP(statut='o',typ='TXM',into=("LONGUE","COURTE")),
13009 AXIS =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
13010 PROFONDEUR =SIMP(statut='o',typ='R'),
13011 LONGUEUR =SIMP(statut='f',typ='R'),
13012 AZIMUT =SIMP(statut='o',typ='R'),
13013 RAYON_TORE =SIMP(statut='f',typ='R'),
13014 POSITION =SIMP(statut='o',typ='TXM',into=("DROIT","INCLINE")),
13015 FISSURE =SIMP(statut='o',typ='TXM',into=("DEB_INT","DEB_EXT","NON_DEB","TRAVERS")),
13016 LIGA_INT =SIMP(statut='f',typ='R'),
13017 ANGL_OUVERTURE =SIMP(statut='f',typ='R',defaut= 0.0E+0),
13018 COEF_MULT_RC1 =SIMP(statut='f',typ='R'),
13019 COEF_MULT_RC2 =SIMP(statut='f',typ='R'),
13020 COEF_MULT_RC3 =SIMP(statut='f',typ='R'),
13021 NB_TRANCHE =SIMP(statut='f',typ='I'),
13022 NB_SECTEUR =SIMP(statut='f',typ='I'),
13023 NB_COURONNE =SIMP(statut='f',typ='I'),
13026 IMPRESSION =FACT(statut='f',min=1,max='**',
13027 regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
13028 FORMAT =SIMP(statut='f',typ='TXM',defaut="ASTER",into=("ASTER","IDEAS","CASTEM")),
13030 b_format_ideas =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
13031 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
13034 b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
13035 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
13037 FICHIER =SIMP(statut='f',typ='TXM'),
13038 UNITE =SIMP(statut='f',typ='I'),
13041 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13043 #& MODIF COMMANDE DATE 28/01/2003 AUTEUR JMBHH01 J.M.PROIX
13044 # CONFIGURATION MANAGEMENT OF EDF VERSION
13045 # ======================================================================
13046 # COPYRIGHT (C) 1991 - 2003 EDF R&D WWW.CODE-ASTER.ORG
13047 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13048 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13049 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13050 # (AT YOUR OPTION) ANY LATER VERSION.
13052 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13053 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13054 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13055 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13057 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13058 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13059 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13060 # ======================================================================
13061 # RESPONSABLE JMBHH01 J.M.PROIX
13063 from Macro.macr_cara_poutre_ops import macr_cara_poutre_ops
13065 MACR_CARA_POUTRE=MACRO(nom="MACR_CARA_POUTRE",op=macr_cara_poutre_ops,sd_prod=tabl_cara_geom,
13066 docu="U4.42.02-d1",reentrant='n',
13067 UIinfo={"groupes":("Modélisation",)},
13068 fr="caractéristiques d'une section transversale de poutre à partir d'un maillage 2D",
13069 regles=(EXCLUS('SYME_X','GROUP_MA_BORD'),
13070 EXCLUS('SYME_Y','GROUP_MA_BORD'),),
13072 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut= 20 ),
13073 ORIG_INER =SIMP(statut='f',typ='R',max='**',defaut=(0.E+0,0.E+0),
13074 fr="Point par rapport auquel sont calculées les inerties"),
13075 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13077 SYME_X =SIMP(statut='f',typ='TXM',into=("OUI",),fr="demi maillage par rapport a x=0"),
13078 SYME_Y =SIMP(statut='f',typ='TXM',into=("OUI",),fr="demi maillage par rapport a y=0"),
13080 GROUP_MA =SIMP(statut='f',typ=grma,max='**',
13081 fr="Calcul des caractéristiques équivalentes a plusieurs sections disjointes"),
13083 GROUP_MA_BORD =SIMP(statut='f',typ=grma,max='**',
13084 fr="Groupe(s) de mailles linéiques, bord(s) de(s) section(s)"),
13086 b_gma_bord = BLOC( condition = "GROUP_MA_BORD != None",
13087 fr=" calcul des carac. mecaniques",
13089 NOEUD =SIMP(statut='f',typ=no,max='**',
13090 fr="Simplement pour empecher des pivots nuls le cas echeant. Fournir un noeud quelconque"),
13091 GROUP_MA_INTE =SIMP(statut='f',typ=grma,max='**',
13092 fr="groupes de mailles linéiques bordant des trous dans la section"),
13095 b_reseau = BLOC( condition ="""(GROUP_MA_BORD != None) and (GROUP_MA != None)""",
13096 fr=" calcul des coef de cisaillement équivalents a un reseau de poutres",
13097 regles=(ENSEMBLE('LONGUEUR','LIAISON','MATERIAU') ,),
13098 LONGUEUR =SIMP(statut='f',typ='R',fr="Longueur du réseau de poutres"),
13099 MATERIAU =SIMP(statut='f',typ=mater,fr="Materiau elastique lineaire du reseau"),
13100 LIAISON =SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT"),
13101 fr="type de conditions aux limites sur le plancher supérieur" ),
13104 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13105 # CONFIGURATION MANAGEMENT OF EDF VERSION
13106 # ======================================================================
13107 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13108 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13109 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13110 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13111 # (AT YOUR OPTION) ANY LATER VERSION.
13113 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13114 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13115 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13116 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13118 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13119 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13120 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13121 # ======================================================================
13122 MACR_ELEM_DYNA=OPER(nom="MACR_ELEM_DYNA",op= 81,sd_prod=macr_elem_dyna,
13123 fr="Définition d un macro élément pour analyse modale ou harmonique par sous structuration dynamique",
13124 docu="U4.65.01-e1",reentrant='n',
13125 UIinfo={"groupes":("Matrices/vecteurs",)},
13126 regles=(EXCLUS('MATR_AMOR','AMOR_REDUIT' ),),
13127 BASE_MODALE =SIMP(statut='o',typ=base_modale ),
13128 MATR_RIGI =SIMP(statut='f',typ=matr_asse_depl_r ),
13129 MATR_MASS =SIMP(statut='f',typ=matr_asse_depl_r ),
13130 MATR_AMOR =SIMP(statut='f',typ=matr_asse_depl_r ),
13131 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
13132 OPTION =SIMP(statut='f',typ='TXM',defaut="CLASSIQUE",into=("CLASSIQUE","RITZ",
13135 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13136 # CONFIGURATION MANAGEMENT OF EDF VERSION
13137 # ======================================================================
13138 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13139 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13140 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13141 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13142 # (AT YOUR OPTION) ANY LATER VERSION.
13144 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13145 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13146 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13147 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13149 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13150 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13151 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13152 # ======================================================================
13153 MACR_ELEM_STAT=OPER(nom="MACR_ELEM_STAT",op=86,sd_prod=macr_elem_stat,docu="U4.62.01-f1",reentrant='f',
13154 UIinfo={"groupes":("Matrices/vecteurs",)},
13155 fr="Définition d un macro-élément pour l analyse statique par sous structuration",
13156 regles=(AU_MOINS_UN('DEFINITION','RIGI_MECA','MASS_MECA','CAS_CHARGE'),
13157 ENSEMBLE('DEFINITION','EXTERIEUR'),),
13158 DEFINITION =FACT(statut='f',min=1,max=1,
13159 MODELE =SIMP(statut='o',typ=modele),
13160 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
13161 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
13162 CHAR_MACR_ELEM =SIMP(statut='f',typ=char_meca),
13163 INST =SIMP(statut='f',typ='R',defaut=0.0E+0 ),
13164 NMAX_CAS =SIMP(statut='f',typ='I',defaut=10),
13165 NMAX_CHAR =SIMP(statut='f',typ='I',defaut=10),
13167 EXTERIEUR =FACT(statut='f',min=1,max=1,
13168 regles=(AU_MOINS_UN('NOEUD','GROUP_NO'),),
13169 NOEUD =SIMP(statut='f',typ=no,max='**'),
13170 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
13172 RIGI_MECA =FACT(statut='f',min=1,max=1,
13174 MASS_MECA =FACT(statut='f',min=1,max=1,
13175 BIDO1 =SIMP(statut='f',typ='I',defaut=0),
13177 CAS_CHARGE =FACT(statut='f',min=1,max='**',
13178 NOM_CAS =SIMP(statut='o',typ='TXM'),
13179 SUIV =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
13180 CHARGE =SIMP(statut='f',typ=char_meca,max='**'),
13181 INST =SIMP(statut='f',typ='R',defaut=0.E+0),
13184 #& MODIF COMMANDE DATE 03/12/2002 AUTEUR DURAND C.DURAND
13185 # CONFIGURATION MANAGEMENT OF EDF VERSION
13186 # ======================================================================
13187 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13188 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13189 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13190 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13191 # (AT YOUR OPTION) ANY LATER VERSION.
13193 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13194 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13195 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13196 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13198 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13199 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13200 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13201 # ======================================================================
13202 MACR_GOUJ2E_CALC=MACRO(nom="MACR_GOUJ2E_CALC",op=-23,sd_prod=evol_noli,
13203 fr=" ",docu="U4.gj.20-a",reentrant='n',
13204 UIinfo={"groupes":("Outils métier",)},
13205 MAILLAGE =SIMP(statut='o',typ=maillage),
13206 DEFI_GOUJ =FACT(statut='o',min=1,max=1,
13207 TYPE =SIMP(statut='o',typ='TXM',into=("M33","M64","M90","M115","M155","M180","M186")),
13208 VARIANTE =SIMP(statut='o',typ='TXM',into=("A","B","C","D","E","F","G","H","I","J","K","L","M",
13209 "N","O","P","Q","R","S","T","U","V","W","X","Y","Z")),
13210 FILET_TRONQUE =SIMP(statut='f',typ='I',max='**'),
13211 FILET_TRONQA =SIMP(statut='f',typ='I',max='**'),
13212 FILET_TRONQB =SIMP(statut='f',typ='I',max='**'),
13213 FILET_JEU_HT =SIMP(statut='f',typ='I',max='**'),
13214 FILET_JEU_HTA =SIMP(statut='f',typ='I',max='**'),
13215 FILET_JEU_HTB =SIMP(statut='f',typ='I',max='**'),
13217 EXCIT =FACT(statut='o',min=1,max=1,
13218 TYPE_BLOCAGE =SIMP(statut='o',typ='I',defaut=2,into=(1,2,3)),
13219 FORCE_GOUJ =SIMP(statut='o',typ='R'),
13221 CALCUL =FACT(statut='o',min=1,max=1,
13222 TYPE_CALCUL =SIMP(statut='o',typ='TXM',into=("ELASTIQUE","ELASTOPLASTIQUE")),
13223 NB_INCR =SIMP(statut='o',typ='I'),
13225 IMPRESSION =FACT(statut='f',min=1,max=1,
13226 FORMAT =SIMP(statut='f',typ='TXM',defaut="TABLE",
13227 into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED","TABLE")),
13228 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
13230 TITRE =SIMP(statut='f',typ='TXM'),
13231 INFO =SIMP(statut='f',typ='I',defaut=1 ,into=(1,2)),
13233 #& MODIF COMMANDE DATE 03/12/2002 AUTEUR DURAND C.DURAND
13234 # CONFIGURATION MANAGEMENT OF EDF VERSION
13235 # ======================================================================
13236 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13237 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13238 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13239 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13240 # (AT YOUR OPTION) ANY LATER VERSION.
13242 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13243 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13244 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13245 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13247 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13248 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13249 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13250 # ======================================================================
13251 MACR_GOUJ2E_MAIL=MACRO(nom="MACR_GOUJ2E_MAIL",op= -22,sd_prod=maillage,
13252 fr=" ",docu="U4.gj.10-a",reentrant='n',
13253 UIinfo={"groupes":("Outils métier",)},
13254 EXEC_MAILLAGE =FACT(statut='o',min=1,max=1,
13255 LOGICIEL =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000") ),
13256 UNITE_DATG =SIMP(statut='f',typ='I',defaut=70),
13257 UNITE_MGIB =SIMP(statut='f',typ='I',defaut=19),
13258 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10)),
13260 DEFI_GOUJ =FACT(statut='o',min=1,max=1,
13261 TYPE =SIMP(statut='o',typ='TXM',into=("M33","M64","M90","M115","M155","M180","M186")),
13262 VARIANTE =SIMP(statut='o',typ='TXM',into=("A","B","C","D","E","F","G","H","I","J","K","L","M",
13263 "N","O","P","Q","R","S","T","U","V","W","X","Y","Z")),
13265 GEOM_GOUJ_BRID =FACT(statut='o',min=1,max=1,
13266 NB_FILET =SIMP(statut='o',typ='I'),
13267 H_CORP_BRID =SIMP(statut='o',typ='R'),
13268 R_EXT_BRID =SIMP(statut='o',typ='R'),
13269 H_HAUT_BRID =SIMP(statut='f',typ='R',defaut=0.0E+0),
13270 H_BAS_BRID =SIMP(statut='f',typ='R',defaut= 0.0E+0),
13271 FILET_ABST =SIMP(statut='f',typ='I',max='**'),
13273 IMPRESSION =FACT(statut='f',min=1,max=1,
13274 regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
13275 FORMAT =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
13276 into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED")),
13277 FICHIER =SIMP(statut='f',typ='TXM'),
13278 UNITE =SIMP(statut='f',typ='I'),
13279 VERSION =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
13280 NIVE_GIBI =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
13282 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13284 #& MODIF COMMANDE DATE 08/10/2002 AUTEUR GNICOLAS G.NICOLAS
13285 # CONFIGURATION MANAGEMENT OF EDF VERSION
13286 # ======================================================================
13287 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13288 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13289 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13290 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13291 # (AT YOUR OPTION) ANY LATER VERSION.
13293 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13294 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13295 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13296 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13298 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13299 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13300 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13301 # ======================================================================
13302 # RESPONSABLE GNICOLAS G.NICOLAS
13303 MACR_INFO_MAIL=MACRO(nom="MACR_INFO_MAIL",op=-24,docu="U7.03.02-b2",
13304 fr="Donner des informations sur un maillage.",
13305 ang="To give information about a mesh.",
13307 # 1. Le niveau d'information
13309 INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13311 # 2. Version de HOMARD
13313 VERSION_HOMARD = SIMP(statut='f',typ='TXM',defaut="V5_5",
13314 into=("V5_5", "V5_N","V5_N_PERSO"),
13315 fr="Version de HOMARD",
13316 ang="HOMARD release"),
13318 # 3. Langue des messages issus de HOMARD
13320 LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
13321 into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
13322 fr="Langue des messages issus de HOMARD.",
13323 ang="Language for HOMARD messages." ),
13325 # 4. Le nom du maillage a analyser
13327 MAILLAGE = SIMP(statut='o',typ=maillage,
13328 fr="Maillage à analyser.",
13329 ang="Mesh to be checked." ),
13331 # 5. Les options ; par defaut, on ne fait que les nombres
13332 # 5.1. Nombre de noeuds et elements
13334 NOMBRE = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
13335 fr="Nombre de noeuds et éléments du maillage",
13336 ang="Number of nodes and elements in the mesh" ),
13338 # 5.2. Determination de la qualite des elements du maillage
13340 QUALITE = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
13341 fr="Qualité du maillage",
13342 ang="Mesh quality" ),
13344 # 5.3. Connexite du maillage
13346 CONNEXITE = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
13347 fr="Connexité du maillage.",
13348 ang="Mesh connexity." ),
13350 # 5.4. Taille des sous-domaines du maillage
13352 TAILLE = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
13353 fr="Tailles des sous-domaines du maillage.",
13354 ang="Sizes of mesh sub-domains." ),
13356 # 5.5. Controle de la non-interpenetration des elements
13358 INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
13359 fr="Controle de la non interpénétration des éléments.",
13360 ang="Overlapping checking." ),
13363 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13364 # CONFIGURATION MANAGEMENT OF EDF VERSION
13365 # ======================================================================
13366 # COPYRIGHT (C) 1991 - 2002 EDF R&D WWW.CODE-ASTER.ORG
13367 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13368 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13369 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13370 # (AT YOUR OPTION) ANY LATER VERSION.
13372 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13373 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13374 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13375 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13377 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13378 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13379 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13380 # ======================================================================
13382 from Macro.macr_lign_coupe_ops import macr_lign_coupe_ops
13384 def macr_lign_coupe_prod(self,LIGN_COUPE,**args):
13385 if not LIGN_COUPE: raise AsException("Impossible de typer les concepts resultats")
13386 for m in LIGN_COUPE:
13387 self.type_sdprod(m['TABLE'],table)
13391 MACR_LIGN_COUPE=MACRO(nom="MACR_LIGN_COUPE",op=macr_lign_coupe_ops,sd_prod=macr_lign_coupe_prod,
13392 docu="",reentrant='n',
13393 UIinfo={"groupes":("Outils métier",)},
13394 fr="extraction d un résultat sur des lignes de coupes définies par 2 points et un intervalle",
13395 RESULTAT =SIMP(statut='o',typ=(evol_elas,evol_noli,evol_ther) ),
13396 b_meca =BLOC(condition = "AsType(RESULTAT) in (evol_elas,evol_noli)",fr="résultat mécanique",
13397 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut='SIGM_NOEU_DEPL' ),
13399 b_ther =BLOC(condition = "AsType(RESULTAT) in (evol_ther,)",fr="résultat thermique",
13400 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut='TEMP' ),
13402 MODELE =SIMP(statut='o',typ=modele ),
13403 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=25),
13404 LIGN_COUPE =FACT(statut='o',min=1,max='**',
13405 NB_POINTS =SIMP(statut='o',typ='I'),
13406 COOR_ORIG =SIMP(statut='o',typ='R',min=2,max=3),
13407 COOR_EXTR =SIMP(statut='o',typ='R',min=2,max=3),
13408 TABLE =SIMP(statut='o',typ=(table,CO)),
13411 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13412 # CONFIGURATION MANAGEMENT OF EDF VERSION
13413 # ======================================================================
13414 # COPYRIGHT (C) 1991 - 2002 EDF R&D WWW.CODE-ASTER.ORG
13415 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13416 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13417 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13418 # (AT YOUR OPTION) ANY LATER VERSION.
13420 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13421 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13422 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13423 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13425 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13426 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13427 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13428 # ======================================================================
13430 from Macro.macr_recal_ops import macr_recal_ops
13432 def macr_recal_prod(self,**args ):
13435 MACR_RECAL = MACRO(nom="MACR_RECAL",op=macr_recal_ops,docu="U4.73.02",
13436 UIinfo={"groupes":("Résultats et champs",)},
13437 sd_prod=macr_recal_prod,
13438 fr="Réalise le recalage de modèles Aster",
13439 UNITE_ESCL =SIMP(statut='o',typ='I'),
13440 RESU_EXP =SIMP(statut='o',typ=assd,min = 1, max='**'),
13441 RESU_CALC =SIMP(statut='o',typ=assd,min = 1, max='**'),
13442 LIST_PARA =SIMP(statut='o',typ=assd,min = 1, max='**'),
13443 ITER_MAXI =SIMP(statut='f',typ='I',defaut=10),
13444 RESI_GLOB_RELA =SIMP(statut='f',typ='R',defaut=1.E-3),
13445 UNITE_RESU =SIMP(statut='f',typ='I',defaut=91),
13446 PARA_DIFF_FINI =SIMP(statut='f',typ='R',defaut=0.001),
13447 GRAPHIQUE =FACT(statut='d',min=1,max=1,
13448 UNITE =SIMP(statut='f',typ='I',defaut=90),
13449 INTERACTIF =SIMP(statut='f',typ='TXM',defaut='NON',into=("OUI","NON")),)
13451 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13452 # CONFIGURATION MANAGEMENT OF EDF VERSION
13453 # ======================================================================
13454 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13455 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13456 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13457 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13458 # (AT YOUR OPTION) ANY LATER VERSION.
13460 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13461 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13462 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13463 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13465 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13466 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13467 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13468 # ======================================================================
13469 # RESPONSABLE G8BHHXD X.DESROCHES
13471 from Macro.macro_elas_mult_ops import macro_elas_mult_ops
13473 def macro_elas_mult_prod(self,NUME_DDL,CAS_CHARGE,**args ):
13474 self.type_sdprod(NUME_DDL,nume_ddl)
13475 if CAS_CHARGE[0]['NOM_CAS'] != None : return mult_elas
13476 if CAS_CHARGE[0]['MODE_FOURIER'] != None : return fourier_elas
13477 raise AsException("type de concept resultat non prevu")
13479 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',
13480 UIinfo={"groupes":("Résolution",)},
13481 regles=(UN_PARMI('CHAR_MECA_GLOBAL','CHAR_CINE_GLOBAL','LIAISON_DISCRET', ),),
13482 MODELE =SIMP(statut='o',typ=modele),
13483 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
13484 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
13485 NUME_DDL =SIMP(statut='f',typ=(nume_ddl,CO)),
13486 CHAR_MECA_GLOBAL=SIMP(statut='f',typ=char_meca,max='**'),
13487 CHAR_CINE_GLOBAL=SIMP(statut='f',typ=char_meca,max='**'),
13488 LIAISON_DISCRET =SIMP(statut='f',typ='TXM',into=("OUI",)),
13489 CAS_CHARGE =FACT(statut='o',min=1,max='**',
13490 regles=(UN_PARMI('NOM_CAS','MODE_FOURIER'),
13491 UN_PARMI('CHAR_MECA','CHAR_CINE','VECT_ASSE'),),
13492 NOM_CAS =SIMP(statut='f',typ='TXM' ),
13493 MODE_FOURIER =SIMP(statut='f',typ='I' ),
13494 TYPE_MODE =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
13495 CHAR_MECA =SIMP(statut='f',typ=char_meca,max='**'),
13496 CHAR_CINE =SIMP(statut='f',typ=char_meca,max='**'),
13497 OPTION =SIMP(statut='f',typ='TXM',max='**',
13498 into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
13499 "SIGM_ELNO_CART","EFGE_ELNO_CART","DEGE_ELNO_DEPL","EPSI_ELNO_DEPL",
13500 "EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO","EPSP_ELGA",
13501 "ECIN_ELEM_DEPL","FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","SOUR_ELGA_ELEC",
13502 "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG","INTE_ELNO_ACTI",
13503 "INTE_ELNO_REAC","SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA",
13504 "ERRE_ELEM_NOZ2","VNOR_ELEM_DEPL","ERRE_ELNO_ELGA","SIRE_ELNO_DEPL",
13505 "ERRE_ELGA_NORE","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI",
13506 "EQUI_ELGA_EPSI","FORC_NODA","REAC_NODA","EPSI_NOEU_DEPL","SIGM_NOEU_DEPL",
13507 "EFGE_NOEU_DEPL","EQUI_NOEU_SIGM","EQUI_NOEU_EPSI","FLUX_NOEU_TEMP") ),
13508 NUME_COUCHE =SIMP(statut='f',typ='I',defaut=1),
13509 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY")),
13510 SOUS_TITRE =SIMP(statut='f',typ='TXM',max='**'),
13511 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r),
13513 SOLVEUR =FACT(statut='d',min=1,max=1,
13514 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT") ),
13515 b_mult_front = BLOC ( condition = "METHODE == 'MULT_FRONT' ",
13516 fr="Paramètres de la méthode multi frontale",
13517 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
13519 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
13520 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
13522 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
13523 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
13524 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
13525 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13528 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2)),
13529 TITRE =SIMP(statut='f',typ='TXM',max='**'),
13531 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13532 # CONFIGURATION MANAGEMENT OF EDF VERSION
13533 # ======================================================================
13534 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13535 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13536 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13537 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13538 # (AT YOUR OPTION) ANY LATER VERSION.
13540 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13541 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13542 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13543 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13545 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13546 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13547 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13548 # ======================================================================
13549 def macro_matr_ajou_prod(self,MATR_AMOR_AJOU,MATR_MASS_AJOU,MATR_RIGI_AJOU,FORC_AJOU,**args):
13550 self.type_sdprod(MATR_AMOR_AJOU,matr_asse_depl_r)
13551 self.type_sdprod(MATR_MASS_AJOU,matr_asse_depl_r)
13552 self.type_sdprod(MATR_RIGI_AJOU,matr_asse_depl_r)
13553 if FORC_AJOU != None:
13554 for m in FORC_AJOU:
13555 self.type_sdprod(m['VECTEUR'],vect_asse_gene)
13559 MACRO_MATR_AJOU=MACRO(nom="MACRO_MATR_AJOU",op=-13,docu="U4.66.11-c1",sd_prod=macro_matr_ajou_prod,
13560 UIinfo={"groupes":("Matrices/vecteurs",)},
13561 regles=(AU_MOINS_UN('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
13562 AU_MOINS_UN('MATR_MASS_AJOU','MATR_AMOR_AJOU','MATR_RIGI_AJOU'),
13563 EXCLUS('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
13564 EXCLUS('MONO_APPUI','MODE_STAT',),
13566 MAILLAGE =SIMP(statut='o',typ=maillage),
13567 GROUP_MA_FLUIDE =SIMP(statut='o',typ=grma),
13568 GROUP_MA_INTERF =SIMP(statut='o',typ=grma),
13569 MODELISATION =SIMP(statut='o',typ='TXM',into=("PLAN","AXIS","3D")),
13570 FLUIDE =FACT(statut='o',min=1,max='**',
13571 RHO =SIMP(statut='o',typ='R'),
13572 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
13573 GROUP_MA =SIMP(statut='f',typ=grma),
13574 MAILLE =SIMP(statut='f',typ=ma),
13576 DDL_IMPO =FACT(statut='o',min=1,max='**',
13577 regles=(UN_PARMI('NOEUD','GROUP_NO'),
13578 UN_PARMI('PRES_FLUIDE','PRES_SORTIE'),),
13579 NOEUD =SIMP(statut='f',typ=no),
13580 GROUP_NO =SIMP(statut='f',typ=grno),
13581 PRES_FLUIDE =SIMP(statut='f',typ='R'),
13582 PRES_SORTIE =SIMP(statut='f',typ='R'),
13584 ECOULEMENT =FACT(statut='f',min=1,max='**',
13585 GROUP_MA_1 =SIMP(statut='o',typ=grma),
13586 GROUP_MA_2 =SIMP(statut='o',typ=grma),
13587 VNOR_1 =SIMP(statut='o',typ='R'),
13588 VNOR_2 =SIMP(statut='f',typ='R'),
13589 POTENTIEL =SIMP(statut='f',typ=evol_ther),
13591 MODE_MECA =SIMP(statut='f',typ=mode_meca),
13592 DEPL_IMPO =SIMP(statut='f',typ=cham_no_depl_r),
13593 MODELE_GENE =SIMP(statut='f',typ=modele_gene),
13594 NUME_DDL_GENE =SIMP(statut='f',typ=nume_ddl_gene),
13595 DIST_REFE =SIMP(statut='f',typ='R',defaut= 1.0E-2),
13596 MATR_MASS_AJOU =SIMP(statut='f',typ=(CO,matr_asse)),
13597 MATR_RIGI_AJOU =SIMP(statut='f',typ=(CO,matr_asse)),
13598 MATR_AMOR_AJOU =SIMP(statut='f',typ=(CO,matr_asse)),
13599 MONO_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",),),
13600 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,),),
13601 FORC_AJOU =FACT(statut='f',min=1,max='**',
13602 DIRECTION =SIMP(statut='o',typ='R',max=3),
13603 NOEUD =SIMP(statut='f',typ=no,max='**'),
13604 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
13605 VECTEUR =SIMP(statut='o',typ=(CO,vect_asse_gene)),
13607 SOLVEUR =FACT(statut='d',min=1,max=1,
13608 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
13609 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
13610 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
13612 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
13613 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
13615 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
13616 fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
13617 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
13618 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13620 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
13621 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
13622 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
13623 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
13624 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
13625 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
13628 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
13630 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13631 NOEUD_DOUBLE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
13632 AVEC_MODE_STAT =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
13634 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13635 # CONFIGURATION MANAGEMENT OF EDF VERSION
13636 # ======================================================================
13637 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13638 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13639 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13640 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13641 # (AT YOUR OPTION) ANY LATER VERSION.
13643 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13644 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13645 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13646 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13648 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13649 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13650 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13651 # ======================================================================
13653 from Macro.macro_matr_asse_ops import macro_matr_asse_ops
13655 def macro_matr_asse_prod(self,NUME_DDL,MATR_ASSE,**args):
13656 if not MATR_ASSE: raise AsException("Impossible de typer les concepts resultats")
13657 if not NUME_DDL: raise AsException("Impossible de typer les concepts resultats")
13658 self.type_sdprod(NUME_DDL,nume_ddl)
13659 for m in MATR_ASSE:
13662 if opti in ( "RIGI_MECA","RIGI_FLUI_STRU","RIGI_MECA_LAGR" ,
13663 "MASS_MECA" , "MASS_FLUI_STRU" ,"RIGI_GEOM" ,"RIGI_ROTA",
13664 "AMOR_MECA","IMPE_MECA","MASS_ID_MDEP_R","MASS_ID_MDNS_R",
13665 "ONDE_FLUI","MASS_MECA_DIAG" ) : t=matr_asse_depl_r
13667 if opti in ( "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",) : t=matr_asse_pres_c
13669 if opti in ( "RIGI_THER","MASS_THER","RIGI_THER_CONV" ,
13670 "RIGI_THER_CONV_D","MASS_ID_MTEM_R","MASS_ID_MTNS_R",) : t=matr_asse_temp_r
13672 if opti == "RIGI_MECA_HYST" : t= matr_asse_depl_c
13674 self.type_sdprod(m['MATRICE'],t)
13677 MACRO_MATR_ASSE=MACRO(nom="MACRO_MATR_ASSE",op=macro_matr_asse_ops,docu="U4.61.21-d1",
13678 UIinfo={"groupes":("Matrices/vecteurs",)},
13679 sd_prod=macro_matr_asse_prod,
13680 fr="Calcul des matrices assemblées (matr_asse_gd) par exemple de rigidité, de masse ",
13681 MODELE =SIMP(statut='o',typ=modele),
13682 CHAM_MATER =SIMP(statut='f',typ=cham_mater),
13683 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
13684 CHARGE =SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**'),
13685 INST =SIMP(statut='f',typ='R'),
13686 NUME_DDL =SIMP(statut='o',typ=(nume_ddl,CO)),
13687 SOLVEUR =FACT(statut='d',min=1,max=1,
13688 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",
13689 into=("LDLT","MULT_FRONT","GCPC")),
13690 RENUM =SIMP(statut='f',typ='TXM',into=("SANS","RCMK","MD","MDA","METIS")),
13692 MATR_ASSE =FACT(statut='o',min=1,max='**',
13693 MATRICE =SIMP(statut='o',typ=(matr_asse,CO)),
13694 OPTION =SIMP(statut='o',typ='TXM',
13695 into=("RIGI_MECA","MASS_MECA","MASS_MECA_DIAG",
13696 "AMOR_MECA","RIGI_MECA_HYST","IMPE_MECA",
13697 "ONDE_FLUI","RIGI_FLUI_STRU","MASS_FLUI_STRU",
13698 "RIGI_ROTA","RIGI_GEOM","RIGI_MECA_LAGR",
13699 "RIGI_THER","MASS_THER",
13700 "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",
13701 "MASS_ID_MTEM_R","MASS_ID_MTNS_R","MASS_ID_MDEP_R","MASS_ID_MDNS_R",)
13703 SIEF_ELGA =SIMP(statut='f',typ=cham_elem_sief_r),
13704 MODE_FOURIER =SIMP(statut='f',typ='I'),
13705 THETA =SIMP(statut='f',typ=theta_geom),
13706 PROPAGATION =SIMP(statut='f',typ='R'),
13708 TITRE =SIMP(statut='f',typ='TXM',max='**'),
13709 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13711 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13712 # CONFIGURATION MANAGEMENT OF EDF VERSION
13713 # ======================================================================
13714 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13715 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13716 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13717 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13718 # (AT YOUR OPTION) ANY LATER VERSION.
13720 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13721 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13722 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13723 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13725 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13726 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13727 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13728 # ======================================================================
13730 from Macro.macro_miss_3d_ops import macro_miss_3d_ops
13732 MACRO_MISS_3D=MACRO(nom="MACRO_MISS_3D",op=macro_miss_3d_ops,fr=" ",docu="U7.03.11-a",
13733 UIinfo={"groupes":("Matrices/vecteurs",)},
13734 OPTION =FACT(statut='o',min=1,max=1,
13735 regles=(UN_PARMI('TOUT','MODULE'),),
13736 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
13737 MODULE =SIMP(statut='f',typ='TXM',into=("PRE_MISS","MISS_EVOL","MISS_IMPE")),
13739 PROJET =SIMP(statut='o',typ='TXM'),
13740 REPERTOIRE =SIMP(statut='f',typ='TXM'),
13741 UNITE_IMPR_ASTER=SIMP(statut='f',typ='I',defaut=25),
13742 UNITE_OPTI_MISS =SIMP(statut='f',typ='I',defaut=26),
13743 UNITE_MODELE_SOL=SIMP(statut='f',typ='I',defaut=27),
13744 UNITE_RESU_IMPE =SIMP(statut='f',typ='I',defaut=30),
13746 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13747 # CONFIGURATION MANAGEMENT OF EDF VERSION
13748 # ======================================================================
13749 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13750 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13751 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13752 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13753 # (AT YOUR OPTION) ANY LATER VERSION.
13755 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13756 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13757 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13758 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13760 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13761 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13762 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13763 # ======================================================================
13765 from Macro.macro_mode_meca_ops import macro_mode_meca_ops
13767 def macro_mode_meca_prod(self,MATR_A,MATR_B,**args ):
13768 self.type_sdprod(MATR_A,matr_asse_depl_r)
13769 self.type_sdprod(MATR_B,matr_asse_depl_r)
13772 MACRO_MODE_MECA=MACRO(nom="MACRO_MODE_MECA",op=macro_mode_meca_ops,sd_prod=macro_mode_meca_prod,
13773 docu="U4.52.02-d1",reentrant='n',
13774 UIinfo={"groupes":("Résolution",)},
13775 MATR_A =SIMP(statut='o',typ=(CO,matr_asse_depl_r) ),
13776 MATR_B =SIMP(statut='o',typ=(CO,matr_asse_depl_r) ),
13777 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
13778 # ce mot cle ne devrait il pas etre dans calc_freq
13779 METHODE =SIMP(statut='f',typ='TXM',defaut="SORENSEN",
13780 into=("TRI_DIAG","JACOBI","SORENSEN",) ),
13781 b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
13782 PREC_ORTHO =SIMP(statut='f',typ='R',defaut= 1.E-12,val_min=0.E+0 ),
13783 NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13784 PREC_LANCZOS =SIMP(statut='f',typ='R',defaut= 1.E-8,val_min=0.E+0 ),
13785 NMAX_ITER_QR =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
13787 b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
13788 PREC_BATHE =SIMP(statut='f',typ='R',defaut= 1.E-10,val_min=0.E+0 ),
13789 NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40,val_min=0 ),
13790 PREC_JACOBI =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13791 NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12,val_min=0 ),
13793 b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
13794 PREC_SOREN =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
13795 NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
13796 PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
13798 OPTION =SIMP(statut='f',typ='TXM',defaut="SANS",
13799 into=("MODE_RIGIDE","SANS") ),
13800 CALC_FREQ =FACT(statut='d',min=0,max=1,
13801 regles=(UN_PARMI('FREQ','FREQ_MAX'),
13802 PRESENT_PRESENT('FREQ_MIN','FREQ_MAX'),
13803 PRESENT_PRESENT('FREQ_MAX','NB_BLOC_FREQ'),
13804 EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
13805 FREQ =SIMP(statut='f',typ='R',min=2,max='**',val_min=0.E+0 ),
13806 FREQ_MIN =SIMP(statut='f',typ='R' ),
13807 FREQ_MAX =SIMP(statut='f',typ='R' ),
13808 NB_BLOC_FREQ =SIMP(statut='f',typ='I' ),
13809 DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
13810 COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
13811 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8 ),
13812 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
13813 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
13814 SEUIL_FREQ =SIMP(statut='f',typ='R' ,defaut= 1.E-2 ),
13815 STOP_FREQ_VIDE =SIMP(statut='f',typ='TXM',defaut="NON" ,into=("OUI","NON") ),
13817 VERI_MODE =FACT(statut='d',min=0,max=1,
13818 STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13819 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
13820 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
13821 STURM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13823 NORM_MODE =FACT(statut='o',min=1,max='**',
13824 MASS_INER =SIMP(statut='o',typ=tabl_mass_iner ),
13825 NORME =SIMP(statut='f',typ='TXM',defaut="TRAN_ROTA",
13826 into=("MASS_GENE","RIGI_GENE","EUCL",
13827 "EUCL_TRAN","TRAN","TRAN_ROTA") ),
13828 INFO =SIMP(statut='f',typ='I',defaut= 1 ,into=(1,2) ),
13830 FILTRE_MODE =FACT(statut='f',min=1,max=1,
13831 CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
13832 into=("MASS_EFFE_UN","MASS_GENE") ),
13833 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
13835 IMPRESSION =FACT(statut='d',min=1,max=1,
13836 TOUT_PARA =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13837 CUMUL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13838 CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
13839 into=("MASS_EFFE_UN","MASS_GENE",) ),
13842 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13843 # CONFIGURATION MANAGEMENT OF EDF VERSION
13844 # ======================================================================
13845 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13846 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13847 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13848 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13849 # (AT YOUR OPTION) ANY LATER VERSION.
13851 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13852 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13853 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13854 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13856 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13857 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13858 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13859 # ======================================================================
13861 from Macro.macro_proj_base_ops import macro_proj_base_ops
13863 def macro_proj_base_prod(self,MATR_ASSE_GENE,VECT_ASSE_GENE,**args ):
13864 if MATR_ASSE_GENE != None:
13865 for m in MATR_ASSE_GENE:
13866 self.type_sdprod(m['MATRICE'],matr_asse_gene_r)
13867 self.type_sdprod(m['MATR_ASSE'],matr_asse_depl_r)
13868 if VECT_ASSE_GENE != None:
13869 for v in VECT_ASSE_GENE:
13870 self.type_sdprod(v['VECTEUR'],vect_asse_gene)
13873 MACRO_PROJ_BASE=MACRO(nom="MACRO_PROJ_BASE",op=macro_proj_base_ops,docu="U4.63.11-d1",
13874 UIinfo={"groupes":("Matrices/vecteurs",)},
13875 sd_prod=macro_proj_base_prod,
13876 fr="Projection des matrices et/ou vecteurs assemblés sur une base de vecteurs",
13877 BASE =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene) ),
13878 NB_VECT =SIMP(statut='f',typ='I',defaut= 9999),
13879 MATR_ASSE_GENE =FACT(statut='f',min=1,max='**',
13880 MATRICE =SIMP(statut='o',typ=(CO,matr_asse)),
13881 MATR_ASSE =SIMP(statut='f',typ=matr_asse_depl_r),
13882 MATR_ASSE_GENE =SIMP(statut='f',typ=matr_asse_gene_r),
13883 PROFIL =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("PLEIN","DIAG") ),
13885 VECT_ASSE_GENE =FACT(statut='f',min=1,max='**',
13886 VECTEUR =SIMP(statut='o',typ=(CO,vect_asse)),
13887 TYPE_VECT =SIMP(statut='f',typ='TXM',defaut="FORC"),
13888 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r),
13889 VECT_ASSE_GENE =SIMP(statut='f',typ=vect_asse_gene),
13891 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13893 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13894 # CONFIGURATION MANAGEMENT OF EDF VERSION
13895 # ======================================================================
13896 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13897 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13898 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13899 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13900 # (AT YOUR OPTION) ANY LATER VERSION.
13902 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13903 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13904 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13905 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13907 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13908 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13909 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13910 # ======================================================================
13911 MAJ_CATA=PROC(nom="MAJ_CATA",op=20,docu="U4.15.01-e1",
13912 UIinfo={"groupes":("Gestion du travail",)},
13913 fr="Compilation des catalogues de commandes et d éléments",
13915 ELEMENT =FACT(statut='f',min=1,max=1,),
13918 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
13919 # CONFIGURATION MANAGEMENT OF EDF VERSION
13920 # ======================================================================
13921 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13922 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
13923 # REDISTRIBUTION OF THIS FILE.
13924 # ======================================================================
13925 # RESPONSABLE VABHHTS J.PELLET
13926 MECA_STATIQUE=OPER(nom="MECA_STATIQUE",op=46,sd_prod=evol_elas,
13927 fr="Analyse mécanique statique linéaire",docu="U4.51.01-g1",reentrant='n',
13928 UIinfo={"groupes":("Résolution",)},
13929 regles=(EXCLUS("INST","LIST_INST"),
13930 AU_MOINS_UN('CHAM_MATER','CARA_ELEM',), ),
13931 MODELE =SIMP(statut='o',typ=modele),
13932 CHAM_MATER =SIMP(statut='f',typ=cham_mater,
13933 fr="le CHAM_MATER est nécessaire, sauf si le modèle ne contient que des éléments discrets (modélisations DIS_XXX)",
13934 ang="CHAM_MATER is compulsory, except if the model contains only discret elements (modelizations DIS_XXX)"),
13935 CARA_ELEM =SIMP(statut='f',typ=cara_elem,
13936 fr="le CARA_ELEM est nécessaire dès que le modèle contient des éléments de structure : coques, poutres, ...",
13937 ang="CARA_ELEM is compulsory as soon as the model contains structural elements : plates, beams, ..."),
13938 TITRE =SIMP(statut='f',typ='TXM',max='**'),
13939 EXCIT =FACT(statut='o',min=1,max='**',
13940 CHARGE =SIMP(statut='o',typ=(char_meca,char_cine_meca)),
13941 FONC_MULT =SIMP(statut='f',typ=fonction),
13942 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
13944 INST =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
13945 LIST_INST =SIMP(statut='f',typ=listr8),
13946 OPTION =SIMP(statut='f',typ='TXM',max='**',
13947 into=("SANS","SIGM_ELNO_DEPL","SIPO_ELNO_DEPL","EFGE_ELNO_DEPL",
13948 "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPME_ELNO_DEPL","EPME_ELGA_DEPL",
13949 "EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
13950 "EQUI_ELNO_EPME","EQUI_ELGA_EPME","DEGE_ELNO_DEPL","EPOT_ELEM_DEPL",
13951 "ENEL_ELGA","ENEL_ELNO_ELGA") ),
13952 NUME_COUCHE =SIMP(statut='f',typ='I',defaut=1),
13953 NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
13954 ANGLE =SIMP(statut='f',typ='I',defaut=0),
13955 PLAN =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL") ),
13956 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
13957 fr="Liste des paramètres de sensibilité.",
13958 ang="List of sensitivity parameters"),
13959 SOLVEUR =FACT(statut='d',min=1,max=1,
13960 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
13961 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
13962 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
13964 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
13965 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
13967 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
13968 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
13969 NPREC =SIMP(statut='f',typ='I',defaut=8),
13970 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13972 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
13973 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
13974 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
13975 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
13976 RESI_RELA =SIMP(statut='f',typ='R',defaut=1.E-6),
13977 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
13980 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
13982 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
13984 #& MODIF COMMANDE DATE 03/12/2002 AUTEUR DURAND C.DURAND
13985 # CONFIGURATION MANAGEMENT OF EDF VERSION
13986 # ======================================================================
13987 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
13988 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13989 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13990 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13991 # (AT YOUR OPTION) ANY LATER VERSION.
13993 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13994 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13995 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13996 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13998 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13999 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14000 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14001 # ======================================================================
14002 # RESPONSABLE GNICOLAS G.NICOLAS
14003 MEMO_NOM_SENSI=PROC(nom="MEMO_NOM_SENSI",op=129,docu="U4.31.07-a1",
14004 UIinfo={"groupes":("Fonction",)},
14005 fr="Mémorisation des noms des concepts dérivés.",
14006 ang="Memorisation of the names of the sensitive concepts.",
14008 regles=(AU_MOINS_UN('NOM','NOM_ZERO','NOM_UN'),),
14010 NOM=FACT(statut='f',max='**',
14011 regles=(PRESENT_PRESENT('MOT_CLE','VALEUR' ),),
14013 NOM_SD=SIMP(statut='o',typ='TXM',
14014 fr="Nom de la structure de base",
14015 ang="Name of the basic structure"),
14017 PARA_SENSI=SIMP(statut='o',typ=(para_sensi,theta_geom),
14018 fr="Nom du paramètre sensible",
14019 ang="Name of the sensitive parameter"),
14021 NOM_COMPOSE=SIMP(statut='f',typ='TXM',defaut=" ",
14022 fr="Nom de la structure composée",
14023 ang="Name of the built structure"),
14025 MOT_CLE=SIMP(statut='f',typ='TXM',max='**',
14026 fr="Liste des mots clés concernés par la dérivation",
14027 ang="Keyword list involved in derivation"),
14029 VALEUR=SIMP(statut='f',typ='TXM',max='**',
14030 fr="Liste des objets concernés par la dérivation",
14031 ang="Object list involved in derivation"),
14035 NOM_ZERO=SIMP(statut='f',typ=fonction,
14036 fr="Nom de la fonction nulle",
14037 ang="Name of the zero fonction"),
14039 NOM_UN=SIMP (statut='f',typ=fonction,
14040 fr="Nom de la fonction unité",
14041 ang="Name of the one fonction"),
14044 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
14045 # CONFIGURATION MANAGEMENT OF EDF VERSION
14046 # ======================================================================
14047 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14048 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14049 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14050 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14051 # (AT YOUR OPTION) ANY LATER VERSION.
14053 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14054 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14055 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14056 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14058 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14059 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14060 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14061 # ======================================================================
14062 MODE_ITER_CYCL=OPER(nom="MODE_ITER_CYCL",op= 80,sd_prod=mode_cycl,
14063 fr="Modes propres d une structure à répétitivité cyclique à partir d une base de modes propres réels",
14064 docu="U4.52.05-e",reentrant='n',
14065 UIinfo={"groupes":("Résolution",)},
14066 BASE_MODALE =SIMP(statut='o',typ=base_modale ),
14067 NB_MODE =SIMP(statut='f',typ='I',defaut= 999 ),
14068 NB_SECTEUR =SIMP(statut='o',typ='I' ),
14069 LIAISON =FACT(statut='o',min=1,max=1,
14070 DROITE =SIMP(statut='o',typ='TXM' ),
14071 GAUCHE =SIMP(statut='o',typ='TXM' ),
14072 AXE =SIMP(statut='f',typ='TXM' ),
14074 VERI_CYCL =FACT(statut='f',min=1,max=1,
14075 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
14076 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF",) ),
14077 DIST_REFE =SIMP(statut='f',typ='R' ),
14079 CALCUL =FACT(statut='o',min=1,max=1,
14080 TOUT_DIAM =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14081 NB_DIAM =SIMP(statut='f',typ='I',max='**'),
14082 OPTION =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE"
14083 ,into=("PLUS_PETITE","CENTRE","BANDE") ),
14084 b_centre =BLOC(condition = "OPTION == 'CENTRE'",
14085 FREQ =SIMP(statut='o',typ='R',min=1,max=1),
14087 b_bande =BLOC(condition = "OPTION == 'BANDE'",
14088 FREQ =SIMP(statut='o',typ='R',min=2,max=2),
14090 # NMAX_FREQ n a-t-il pas un sens qu avec OPTION CENTRE
14091 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10 ),
14092 PREC_SEPARE =SIMP(statut='f',typ='R',defaut= 100. ),
14093 PREC_AJUSTE =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
14094 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 50 ),
14096 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
14098 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
14099 # CONFIGURATION MANAGEMENT OF EDF VERSION
14100 # ======================================================================
14101 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14102 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14103 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14104 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14105 # (AT YOUR OPTION) ANY LATER VERSION.
14107 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14108 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14109 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14110 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14112 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14113 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14114 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14115 # ======================================================================
14116 def mode_iter_inv_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
14117 if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
14118 if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
14119 if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
14120 if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
14121 if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
14122 raise AsException("type de concept resultat non prevu")
14124 MODE_ITER_INV=OPER(nom="MODE_ITER_INV",op= 44,sd_prod=mode_iter_inv_prod
14125 ,fr="Modes propres par itérations inverses ; valeurs propres et modes réels ou complexes",
14126 docu="U4.52.04-g1",reentrant='n',
14127 UIinfo={"groupes":("Résolution",)},
14128 MATR_A =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
14129 MATR_B =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
14130 MATR_C =SIMP(statut='f',typ=matr_asse_depl_r ),
14131 TYPE_RESU =SIMP(statut='f',position='global',typ='TXM',defaut="DYNAMIQUE",
14132 into=("MODE_FLAMB","DYNAMIQUE"),fr="Type d analyse" ),
14133 b_dynam =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
14134 CALC_FREQ =FACT(statut='o',min=1,max=1,fr="Choix des paramètres pour le calcul des valeurs propres",
14136 OPTION =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
14137 fr="Choix de l option pour estimer les valeurs propres" ),
14138 FREQ =SIMP(statut='o',typ='R',max='**'),
14139 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
14140 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 0,val_min=0 ),
14141 NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30,val_min=0 ),
14142 PREC_SEPARE =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0 ),
14143 NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15,val_min=0 ),
14144 PREC_AJUSTE =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0 ),
14146 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
14147 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
14148 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0, ),
14149 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0, ),
14152 b_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
14153 CALC_FREQ =FACT(statut='o',min=1,max=1,fr="Choix des paramètres pour le calcul des valeurs propres",
14155 OPTION =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
14156 fr="Choix de l option pour estimer les valeurs propres" ),
14157 CHAR_CRIT =SIMP(statut='o',typ='R',max='**' ),
14158 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 0,val_min=0 ),
14159 NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30,val_min=0 ),
14160 PREC_SEPARE =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0, ),
14161 NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15 ),
14162 PREC_AJUSTE =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0, ),
14164 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
14165 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
14166 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0, ),
14167 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0, ),
14170 CALC_MODE =FACT(statut='d',min=0,max=1,fr="Choix des paramètres pour le calcul des vecteurs propres",
14171 OPTION =SIMP(statut='f',typ='TXM',defaut="DIRECT",into=("DIRECT","RAYLEIGH") ),
14172 PREC =SIMP(statut='f',typ='R',defaut= 1.E-5,val_min=0.E+0,fr="Précision de convergence" ),
14173 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
14175 VERI_MODE =FACT(statut='d',min=0,max=1,
14176 STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
14177 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0,
14178 fr="Valeur limite admise pour l ereur a posteriori des modes" ),
14180 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
14181 TITRE =SIMP(statut='f',typ='TXM',max='**'),
14183 #& MODIF COMMANDE DATE 24/02/2003 AUTEUR NICOLAS O.NICOLAS
14184 # CONFIGURATION MANAGEMENT OF EDF VERSION
14185 # ======================================================================
14186 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14187 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14188 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14189 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14190 # (AT YOUR OPTION) ANY LATER VERSION.
14192 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14193 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14194 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14195 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14197 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14198 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14199 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14200 # ======================================================================
14201 def mode_iter_simult_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
14202 if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
14203 if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
14204 if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
14205 if AsType(MATR_A) == matr_asse_depl_c : return mode_meca_c
14206 if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
14207 if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
14208 raise AsException("type de concept resultat non prevu")
14210 MODE_ITER_SIMULT=OPER(nom="MODE_ITER_SIMULT",op= 45,sd_prod=mode_iter_simult_prod,
14211 fr="Modes propres par itérations simultanées ; valeurs propres et modes propres réels ou complexes",
14212 docu="U4.52.03-f2",reentrant='n',
14213 UIinfo={"groupes":("Résolution",)},
14214 MATR_A =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_gene_r,matr_asse_pres_r ) ),
14215 MATR_B =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
14216 MATR_C =SIMP(statut='f',position='global',typ=matr_asse_depl_r ),
14217 METHODE =SIMP(statut='f',position='global',typ='TXM',defaut="SORENSEN",
14218 into=("TRI_DIAG","JACOBI","SORENSEN") ),
14219 b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
14220 PREC_ORTHO =SIMP(statut='f',typ='R',defaut= 1.E-12,val_min=0.E+0 ),
14221 NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
14222 PREC_LANCZOS =SIMP(statut='f',typ='R',defaut= 1.E-8,val_min=0.E+0 ),
14223 NMAX_ITER_QR =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
14225 b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
14226 PREC_BATHE =SIMP(statut='f',typ='R',defaut= 1.E-10,val_min=0.E+0 ),
14227 NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40,val_min=0 ),
14228 PREC_JACOBI =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
14229 NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12,val_min=0 ),
14231 b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
14232 PREC_SOREN =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
14233 NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
14234 PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
14236 TYPE_RESU =SIMP(statut='f',position='global',typ='TXM',defaut="DYNAMIQUE",
14237 into=("MODE_FLAMB","DYNAMIQUE"),
14238 fr="Type d analyse" ),
14239 OPTION =SIMP(statut='f',typ='TXM',defaut="SANS",into=("MODE_RIGIDE","SANS"),
14240 fr="Calcul des modes de corps rigide, uniquement pour la méthode TRI_DIAG" ),
14242 b_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
14243 CALC_FREQ =FACT(statut='d',min=0,max=1,
14244 OPTION =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
14245 fr="Choix de l option et par conséquent du shift du problème modal" ),
14246 b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
14247 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
14249 b_centre =BLOC(condition = "OPTION == 'CENTRE'",
14250 fr="Recherche des valeurs propres les plus proches d une valeur donnée",
14251 CHAR_CRIT =SIMP(statut='o',typ='R',min=1,max=1,
14252 fr="Charge critique autour de laquelle on cherche les charges critiques propres"),
14254 b_bande =BLOC(condition = "(OPTION == 'BANDE')",
14255 fr="Recherche des valeurs propres dans une bande donnée",
14256 CHAR_CRIT =SIMP(statut='o',typ='R',min=2,max=2,
14257 fr="Valeur des deux charges critiques délimitant la bande de recherche"),
14259 APPROCHE =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG"),
14260 fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
14261 regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
14262 DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
14263 COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
14264 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
14265 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
14266 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0 ),
14267 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
14271 b_dynam =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
14272 CALC_FREQ =FACT(statut='d',min=0,max=1,
14273 OPTION =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
14274 fr="Choix de l option et par conséquent du shift du problème modal" ),
14275 b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
14276 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
14278 b_centre =BLOC(condition = "OPTION == 'CENTRE'",
14279 fr="Recherche des valeurs propres les plus proches d une valeur donnée",
14280 FREQ =SIMP(statut='o',typ='R',min=1,max=1,
14281 fr="Fréquence autour de laquelle on cherche les fréquences propres"),
14282 AMOR_REDUIT =SIMP(statut='f',typ='R',max=1,),
14283 NMAX_FREQ =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
14285 b_bande =BLOC(condition = "(OPTION == 'BANDE')",
14286 fr="Recherche des valeurs propres dans une bande donnée",
14287 FREQ =SIMP(statut='o',typ='R',min=2,max=2,
14288 fr="Valeur des deux fréquences délimitant la bande de recherche"),
14290 APPROCHE =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG","COMPLEXE"),
14291 fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
14292 regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
14293 DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
14294 COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
14295 NPREC_SOLVEUR =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
14296 NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
14297 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0 ),
14298 SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
14302 VERI_MODE =FACT(statut='d',min=0,max=1,
14303 STOP_ERREUR =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
14304 PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-3,val_min=0.E+0 ),
14305 SEUIL =SIMP(statut='f',typ='R',defaut= 1.E-6,val_min=0.E+0,
14306 fr="Valeur limite admise pour l ereur a posteriori des modes" ),
14307 STURM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
14309 STOP_FREQ_VIDE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
14310 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
14311 TITRE =SIMP(statut='f',typ='TXM',max='**'),
14313 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
14314 # CONFIGURATION MANAGEMENT OF EDF VERSION
14315 # ======================================================================
14316 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14317 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14318 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14319 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14320 # (AT YOUR OPTION) ANY LATER VERSION.
14322 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14323 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14324 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14325 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14327 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14328 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14329 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14330 # ======================================================================
14331 def mode_stat_prod(MODE_STAT,FORCE_NODALE,PSEUDO_MODE,**args):
14332 if (MODE_STAT != None) : return mode_stat_depl
14333 if (PSEUDO_MODE !=None) : return mode_stat_acce
14334 if (FORCE_NODALE != None) : return mode_stat_forc
14335 raise AsException("type de concept resultat non prevu")
14336 MODE_STATIQUE=OPER(nom="MODE_STATIQUE",op= 93,sd_prod=mode_stat_prod,
14337 fr="Calcul de modes statiques",
14338 docu="U4.52.14-f2",reentrant='n',
14339 UIinfo={"groupes":("Résolution",)},
14340 MATR_RIGI =SIMP(statut='o',typ=matr_asse_depl_r ),
14341 MATR_MASS =SIMP(statut='f',typ=matr_asse_depl_r ),
14342 regles=(UN_PARMI('MODE_STAT','FORCE_NODALE','PSEUDO_MODE'),),
14343 MODE_STAT =FACT(statut='f',min=1,max='**',
14344 regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
14345 UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
14346 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ,),
14347 NOEUD =SIMP(statut='f',typ=no,max='**'),
14348 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
14349 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",) ,),
14350 AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
14351 SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
14353 FORCE_NODALE =FACT(statut='f',min=1,max='**',
14354 regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
14355 UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
14356 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",), ),
14357 NOEUD =SIMP(statut='f',typ=no,max='**'),
14358 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
14359 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",), ),
14360 AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
14361 SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
14363 PSEUDO_MODE =FACT(statut='f',min=1,max='**',
14364 regles=(UN_PARMI('AXE','DIRECTION','TOUT','NOEUD','GROUP_NO' ),),
14365 AXE =SIMP(statut='f',typ='TXM',into=("X","Y","Z"),max=3),
14366 DIRECTION =SIMP(statut='f',typ='R',min=3,max=3),
14367 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",)),
14368 NOEUD =SIMP(statut='f',typ=no,max='**'),
14369 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
14370 b_dir =BLOC(condition = "DIRECTION != None",
14371 NOM_DIR =SIMP(statut='f',typ='TXM' ),),
14372 b_cmp =BLOC(condition="TOUT!= None or NOEUD!=None or GROUP_NO!=None",
14373 regles=(UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
14374 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14375 AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
14376 SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
14379 TITRE =SIMP(statut='f',typ='TXM',max='**'),
14380 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
14382 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
14383 # CONFIGURATION MANAGEMENT OF EDF VERSION
14384 # ======================================================================
14385 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14386 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14387 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14388 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14389 # (AT YOUR OPTION) ANY LATER VERSION.
14391 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14392 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14393 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14394 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14396 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14397 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14398 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14399 # ======================================================================
14400 MODI_BASE_MODALE=OPER(nom="MODI_BASE_MODALE",op= 149,sd_prod=mode_meca,
14401 docu="U4.66.21-c",reentrant='f',
14402 UIinfo={"groupes":("Matrices/vecteurs",)},
14403 # la commande modi_base _modale : reentrant = f ou o
14404 regles=(EXCLUS('AMOR_UNIF','AMOR_REDUIT', ),),
14405 BASE =SIMP(statut='o',typ=mode_meca ),
14406 BASE_ELAS_FLUI =SIMP(statut='o',typ=melasflu ),
14407 NUME_VITE_FLUI =SIMP(statut='o',typ='I' ),
14408 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
14409 AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
14410 AMOR_UNIF =SIMP(statut='f',typ='R' ),
14411 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
14412 TITRE =SIMP(statut='f',typ='TXM',max='**'),
14414 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
14415 # CONFIGURATION MANAGEMENT OF EDF VERSION
14416 # ======================================================================
14417 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14418 # SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
14419 # REDISTRIBUTION OF THIS FILE.
14420 # ======================================================================
14421 # RESPONSABLE G8BHHXD X.DESROCHES
14422 MODI_MAILLAGE=OPER(nom="MODI_MAILLAGE",op= 154,sd_prod=maillage,
14423 fr="Modification de la connectivité de groupes de mailles 2D ou 3D affectées à la modélisation de contact",
14424 docu="U4.23.04-d1",reentrant='o',
14425 UIinfo={"groupes":("Maillage",)},
14426 regles=(AU_MOINS_UN('ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
14427 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',
14428 'TRANSLATION','ROTATION','MODI_BASE','ECHELLE',),
14429 PRESENT_ABSENT('ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
14430 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
14431 PRESENT_ABSENT('DEFORME','ORIE_CONTACT','EQUE_PIQUA','ORIE_PEAU_2D',
14432 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
14433 PRESENT_ABSENT('EQUE_PIQUA','ORIE_CONTACT','DEFORME','ORIE_PEAU_2D',
14434 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
14435 PRESENT_ABSENT('ORIE_PEAU_2D','ORIE_CONTACT','DEFORME','EQUE_PIQUA',
14436 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
14437 PRESENT_ABSENT('ORIE_PEAU_3D','ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
14438 'ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
14439 PRESENT_ABSENT('ORIE_NORM_COQUE','ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
14440 'ORIE_PEAU_3D','PLAQ_TUBE','MODI_MAILLE',),
14441 PRESENT_ABSENT('PLAQ_TUBE','ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
14442 'ORIE_PEAU_3D','ORIE_NORM_COQUE','MODI_MAILLE',),
14443 PRESENT_ABSENT('MODI_MAILLE','ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
14444 'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE',),
14445 EXCLUS('EQUE_PIQUA','PLAQ_TUBE'),
14446 EXCLUS('EQUE_PIQUA','TUBE_COUDE'),
14447 EXCLUS('ROTATION','MODI_BASE'),),
14448 MAILLAGE =SIMP(statut='o',typ=maillage ),
14450 ORIE_CONTACT =FACT(statut='f',min=1,max=1,
14451 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
14454 DEFORME =FACT(statut='f',min=1,max=1,
14455 OPTION =SIMP(statut='o',typ='TXM',into=("TRAN","TRAN_APPUI") ),
14456 DEPL =SIMP(statut='o',typ=cham_no_depl_r ),
14457 b_deform =BLOC(condition = "OPTION=='TRAN_APPUI'",
14458 GROUP_NO_APPUI = SIMP(statut='o',typ=grno,max='**' ),
14459 GROUP_NO_STRU = SIMP(statut='o',typ=grno,max='**' ),),
14462 EQUE_PIQUA =FACT(statut='f',min=1,max=1,
14463 GROUP_NO =SIMP(statut='o',typ=grno),
14464 E_BASE =SIMP(statut='o',typ='R' ),
14465 DEXT_BASE =SIMP(statut='o',typ='R' ),
14466 L_BASE =SIMP(statut='o',typ='R' ),
14467 L_CHANF =SIMP(statut='o',typ='R' ),
14468 TYPE =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2")),
14469 H_SOUD =SIMP(statut='o',typ='R' ),
14470 ANGL_SOUD =SIMP(statut='o',typ='R' ),
14471 JEU_SOUD =SIMP(statut='o',typ='R' ),
14472 E_CORP =SIMP(statut='o',typ='R' ),
14473 DEXT_CORP =SIMP(statut='o',typ='R' ),
14474 AZIMUT =SIMP(statut='o',typ='R' ),
14475 RAFF_MAIL =SIMP(statut='o',typ='TXM' ),
14476 X_MAX =SIMP(statut='o',typ='R' ),
14478 ORIE_PEAU_2D =FACT(statut='f',min=1,max='**',
14479 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
14481 ORIE_PEAU_3D =FACT(statut='f',min=1,max='**',
14482 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
14484 ORIE_NORM_COQUE =FACT(statut='f',min=1,max='**',
14485 regles=(EXCLUS('NOEUD','GROUP_NO'),
14486 PRESENT_PRESENT('NOEUD','VECT_NORM'),
14487 PRESENT_PRESENT('GROUP_NO','VECT_NORM'),),
14488 GROUP_MA =SIMP(statut='o',typ=grma,max='**'),
14489 VECT_NORM =SIMP(statut='f',typ='R',max=3),
14490 NOEUD =SIMP(statut='f',typ=no),
14491 GROUP_NO =SIMP(statut='f',typ=grno),
14493 b_modele =BLOC(condition = "(ORIE_PEAU_2D != None) or (ORIE_PEAU_3D != None) or(ORIE_NORM_COQUE != None)",
14494 MODELE =SIMP(statut='o',typ=modele ),
14496 PLAQ_TUBE =FACT(statut='f',min=1,max=1,
14497 DEXT =SIMP(statut='o',typ='R' ),
14498 EPAIS =SIMP(statut='o',typ='R' ),
14499 L_TUBE_P1 =SIMP(statut='o',typ='R' ),
14500 AZIMUT =SIMP(statut='f',typ='R',defaut= 90. ),
14501 COUTURE =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
14503 TUBE_COUDE =FACT(statut='f',min=1,max=1,
14504 ANGLE =SIMP(statut='o',typ='R' ),
14505 R_CINTR =SIMP(statut='o',typ='R' ),
14506 L_TUBE_P1 =SIMP(statut='o',typ='R' ),
14508 MODI_MAILLE =FACT(statut='f',min=1,max=1,
14509 regles=(AU_MOINS_UN('GROUP_MA_FOND','MAILLE_FOND','GROUP_NO_FOND','NOEUD_FOND'),),
14510 OPTION =SIMP(statut='o',typ='TXM',into=("NOEUD_QUART",) ),
14511 GROUP_MA_FOND =SIMP(statut='f',typ=grma,max='**'),
14512 MAILLE_FOND =SIMP(statut='f',typ=ma,max='**'),
14513 GROUP_NO_FOND =SIMP(statut='f',typ=grno,max='**'),
14514 NOEUD_FOND =SIMP(statut='f',typ=no,max='**'),
14516 MODI_BASE =FACT(statut='f',min=1,max=1,
14517 VECT_X =SIMP(statut='o',typ='R',min=2,max=3),
14518 VECT_Y =SIMP(statut='f',typ='R',min=2,max=3),
14520 ECHELLE =SIMP(statut='f',typ='R',min=1,max=1),
14521 TRANSLATION =SIMP(statut='f',typ='R',min=2,max=3),
14522 ROTATION =FACT(statut='f',min=1,max='**',
14523 POIN_1 =SIMP(statut='o',typ='R',min=2,max=3),
14524 ANGL =SIMP(statut='o',typ='R',defaut= 0.E+0 ),
14525 regles=(EXCLUS('DIR','POIN_2'),),
14526 POIN_2 =SIMP(statut='f',typ='R',min=2,max=3),
14527 DIR =SIMP(statut='f',typ='R',min=2,max=3),
14530 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
14532 #& MODIF COMMANDE DATE 02/12/2002 AUTEUR CIBHHLV L.VIVAN
14533 # CONFIGURATION MANAGEMENT OF EDF VERSION
14534 # ======================================================================
14535 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14536 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14537 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14538 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14539 # (AT YOUR OPTION) ANY LATER VERSION.
14541 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14542 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14543 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14544 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14546 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14547 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14548 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14549 # ======================================================================
14550 MODI_OBSTACLE=OPER(nom="MODI_OBSTACLE",op=182,sd_prod=obstacle,
14551 fr=" ",docu="U4.44.22-a",reentrant='f',
14552 UIinfo={"groupes":("Modélisation",)},
14553 regles=(PRESENT_ABSENT('R_MOBILE','CRAYON'),
14554 PRESENT_PRESENT('V_USUR_TUBE','V_USUR_OBST'),),
14555 V_USUR_TUBE =SIMP(statut='f',typ='R',max='**'),
14556 V_USUR_OBST =SIMP(statut='f',typ='R',max='**'),
14557 TABL_USURE =SIMP(statut='f',typ=tabl_post_usur),
14558 INST =SIMP(statut='f',typ='R'),
14559 OBSTACLE =SIMP(statut='f',typ=obstacle),
14560 GUIDE =SIMP(statut='o',typ=obstacle),
14561 CRAYON =SIMP(statut='f',typ=obstacle),
14562 R_MOBILE =SIMP(statut='f',typ='R'),
14563 PERCEMENT =SIMP(statut='f',typ='R',defaut=1),
14564 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14566 #& MODIF COMMANDE DATE 31/01/2003 AUTEUR CIBHHGB G.BERTRAND
14567 # CONFIGURATION MANAGEMENT OF EDF VERSION
14568 # ======================================================================
14569 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14570 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14571 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14572 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14573 # (AT YOUR OPTION) ANY LATER VERSION.
14575 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14576 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14577 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14578 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14580 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14581 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14582 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14583 # ======================================================================
14584 # RESPONSABLE JMBHH01 J.M.PROIX
14585 def modi_repere_prod(RESULTAT,**args):
14586 if AsType(RESULTAT) == evol_elas : return evol_elas
14587 if AsType(RESULTAT) == evol_noli : return evol_noli
14588 if AsType(RESULTAT) == evol_ther : return evol_ther
14589 if AsType(RESULTAT) == dyna_trans : return dyna_trans
14590 if AsType(RESULTAT) == dyna_harmo : return dyna_harmo
14591 if AsType(RESULTAT) == mode_meca : return mode_meca
14592 if AsType(RESULTAT) == mode_flamb : return mode_flamb
14593 if AsType(RESULTAT) == mult_elas : return mult_elas
14594 if AsType(RESULTAT) == base_modale : return base_modale
14595 raise AsException("type de concept resultat non prevu")
14597 MODI_REPERE=OPER(nom="MODI_REPERE",op=191,sd_prod=modi_repere_prod,docu="U4.74.01-a3",reentrant='n',
14598 UIinfo={"groupes":("Résultats et champs",)},
14599 fr="Impression des resultats dans un repere cylindrique",
14600 RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,mode_meca,
14601 evol_noli,mult_elas,
14602 evol_ther,base_modale,mode_flamb) ),
14603 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
14604 'NOEUD_CMP','LIST_INST','LIST_FREQ','NOM_CAS'),),
14605 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14606 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
14607 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
14608 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
14609 NOM_CAS =SIMP(statut='f',typ='TXM' ),
14611 INST =SIMP(statut='f',typ='R',max='**'),
14612 FREQ =SIMP(statut='f',typ='R',max='**'),
14613 LIST_INST =SIMP(statut='f',typ=listr8),
14614 LIST_FREQ =SIMP(statut='f',typ=listr8),
14616 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
14617 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",),),
14619 MODI_CHAM =FACT(statut='o',min=1,max='**',
14620 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
14621 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
14622 MAILLE =SIMP(statut='f',typ=ma,max='**'),
14623 NOEUD =SIMP(statut='f',typ=no,max='**'),
14624 TYPE_CHAM =SIMP(statut='o',typ='TXM', max=1,
14625 into=("VECT_2D","VECT_3D","TORS_3D","TENS_2D","TENS_3D"),),
14626 NOM_CHAM =SIMP(statut='o',typ='TXM',max=1 ),
14627 b_vect_2d =BLOC(condition = "TYPE_CHAM=='VECT_2D'",
14628 NOM_CMP =SIMP(statut='o',typ='TXM',min=2,max=2 ),),
14629 b_vect_3d =BLOC(condition = "TYPE_CHAM=='VECT_3D'",
14630 NOM_CMP =SIMP(statut='o',typ='TXM',min=3,max=3 ),),
14631 b_tors_3d =BLOC(condition = "TYPE_CHAM=='TORS_3D'",
14632 NOM_CMP =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
14633 b_tens_2d =BLOC(condition = "TYPE_CHAM=='TENS_2D'",
14634 NOM_CMP =SIMP(statut='o',typ='TXM',min=4,max=4 ),),
14635 b_tens_3d =BLOC(condition = "TYPE_CHAM=='TENS_3D'",
14636 NOM_CMP =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
14638 DEFI_REPERE =FACT(statut='o',min=1,max=1,
14639 regles=(UN_PARMI('ANGL_NAUT','ORIGINE'),),
14640 REPERE =SIMP(statut='f',typ='TXM',defaut="UTILISATEUR",
14641 into=("UTILISATEUR","CYLINDRIQUE"),),
14642 ANGL_NAUT =SIMP(statut='f',typ='R',min=1,max=3),
14643 ORIGINE =SIMP(statut='f',typ='R',min=2,max=3),
14644 AXE_Z =SIMP(statut='f',typ='R',min=3,max=3),
14646 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14648 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
14649 # CONFIGURATION MANAGEMENT OF EDF VERSION
14650 # ======================================================================
14651 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14652 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14653 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14654 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14655 # (AT YOUR OPTION) ANY LATER VERSION.
14657 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14658 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14659 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14660 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14662 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14663 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14664 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14665 # ======================================================================
14666 def norm_mode_prod(MODE,**args ):
14667 if AsType(MODE) == mode_meca : return mode_meca
14668 if AsType(MODE) == mode_meca_c : return mode_meca_c
14669 if AsType(MODE) == mode_flamb : return mode_flamb
14670 raise AsException("type de concept resultat non prevu")
14672 NORM_MODE=OPER(nom="NORM_MODE",op= 37,sd_prod=norm_mode_prod,
14673 fr="Normalisation de modes propres",
14674 docu="U4.52.11-e",reentrant='f',
14675 UIinfo={"groupes":("Résolution",)},
14676 regles=(UN_PARMI('NORME','NOEUD','AVEC_CMP','SANS_CMP'),),
14677 MODE =SIMP(statut='o',typ=(mode_meca,mode_flamb) ),
14678 NORME =SIMP(statut='f',typ='TXM',fr="Norme prédéfinie : masse généralisée, euclidienne,...",
14679 into=("MASS_GENE","RIGI_GENE","EUCL","EUCL_TRAN","TRAN","TRAN_ROTA") ),
14680 NOEUD =SIMP(statut='f',typ=no, fr="Composante donnée d un noeud spécifié égale à 1"),
14681 b_noeud =BLOC(condition = "NOEUD != None",
14682 NOM_CMP =SIMP(statut='o',typ='TXM' ),
14684 AVEC_CMP =SIMP(statut='f',typ='TXM',max='**'),
14685 SANS_CMP =SIMP(statut='f',typ='TXM',max='**'),
14686 MASS_INER =SIMP(statut='f',typ=tabl_mass_iner ),
14687 MODE_SIGNE =FACT(statut='f',max=1,fr="Imposer un signe sur une des composantes des modes",
14688 NOEUD =SIMP(statut='o',typ=no,fr="Noeud ou sera imposé le signe"),
14689 NOM_CMP =SIMP(statut='o',typ='TXM',fr="Composante du noeud ou sera imposé le signe" ),
14690 SIGNE =SIMP(statut='f',typ='TXM',defaut="POSITIF",into=("NEGATIF","POSITIF"),
14691 fr="Choix du signe" ),
14693 TITRE =SIMP(statut='f',typ='TXM',max='**'),
14694 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
14696 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
14697 # CONFIGURATION MANAGEMENT OF EDF VERSION
14698 # ======================================================================
14699 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14700 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14701 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14702 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14703 # (AT YOUR OPTION) ANY LATER VERSION.
14705 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14706 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14707 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14708 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14710 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14711 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14712 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14713 # ======================================================================
14714 # RESPONSABLE VABHHTS J.PELLET
14715 NUME_DDL=OPER(nom="NUME_DDL",op=11,sd_prod=nume_ddl,docu="U4.61.11-g1",reentrant='n',
14716 UIinfo={"groupes":("Matrices/vecteurs",)},
14717 fr="Etablissement de la numérotation des ddl avec ou sans renumérotation et du stockage de la matrice",
14718 regles=(UN_PARMI('MATR_RIGI','MODELE'),),
14719 MATR_RIGI =SIMP(statut='f',typ=(matr_elem_depl_r ,matr_elem_depl_c,
14720 matr_elem_temp_r,matr_elem_pres_c),max=100 ),
14721 MODELE =SIMP(statut='f',typ=modele ),
14722 b_modele =BLOC(condition = "MODELE != None",
14723 CHARGE =SIMP(statut='f',max='**',typ=(char_meca,char_ther,char_acou, ),),
14725 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
14726 b_mult_front =BLOC(condition="METHODE=='MULT_FRONT'",fr="paramètres associés à la méthode multifrontale",
14727 RENUM =SIMP(statut='f',typ='TXM',into=("MD","MDA","METIS"),defaut="METIS" ),
14729 b_ldlt =BLOC(condition="METHODE=='LDLT'",fr="paramètres associés à la méthode LDLT",
14730 RENUM =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK" ),
14732 b_gcpc =BLOC(condition="METHODE=='GCPC'",fr="paramètres associés à la méthode gradient conjugué",
14733 RENUM =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK" ),
14735 INFO =SIMP(statut='f',typ='I',into=(1,2)),
14737 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
14738 # CONFIGURATION MANAGEMENT OF EDF VERSION
14739 # ======================================================================
14740 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14741 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14742 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14743 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14744 # (AT YOUR OPTION) ANY LATER VERSION.
14746 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14747 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14748 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14749 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14751 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14752 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14753 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14754 # ======================================================================
14755 NUME_DDL_GENE=OPER(nom="NUME_DDL_GENE",op= 127,sd_prod=nume_ddl_gene,
14756 fr="Etablissement de la numérotation des ddl d un modèle établi en coordonnées généralisées",
14757 docu="U4.65.03-e1",reentrant='n',
14758 UIinfo={"groupes":("Matrices/vecteurs",)},
14759 regles=UN_PARMI('MODELE_GENE','BASE'),
14760 MODELE_GENE =SIMP(statut='f',typ=modele_gene ),
14761 b_modele_gene =BLOC(condition = "MODELE_GENE != None",
14762 STOCKAGE =SIMP(statut='f',typ='TXM',defaut="LIGN_CIEL",into=("LIGN_CIEL","PLEIN") ),
14764 BASE =SIMP(statut='f',typ=(mode_meca,base_modale,mode_gene ) ),
14765 b_base =BLOC(condition = "BASE != None",
14766 STOCKAGE =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("DIAG","PLEIN") ),
14767 NB_VECT =SIMP(statut='f',typ='I',defaut= 9999 ),
14770 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
14771 # CONFIGURATION MANAGEMENT OF EDF VERSION
14772 # ======================================================================
14773 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14774 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14775 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14776 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14777 # (AT YOUR OPTION) ANY LATER VERSION.
14779 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14780 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14781 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14782 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14784 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14785 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14786 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14787 # ======================================================================
14788 POST_DYNA_ALEA=OPER(nom="POST_DYNA_ALEA",op= 132,sd_prod=tabl_post_alea,
14789 fr="Traitements statistiques de résultats de type interspectre et impression sur fichiers",
14790 docu="U4.84.04-d",reentrant='n',
14791 UIinfo={"groupes":("Post traitements",)},
14792 regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I','OPTION'),),
14793 INTE_SPEC =SIMP(statut='o',typ=tabl_intsp ),
14794 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
14795 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14796 NUME_ORDRE_I =SIMP(statut='f',typ='I',max='**' ),
14797 NOEUD_I =SIMP(statut='f',typ=no,max='**'),
14798 OPTION =SIMP(statut='f',typ='TXM',into=("DIAG",) ),
14799 b_nume_ordre_i =BLOC(condition = "NUME_ORDRE_I != None",
14800 NUME_ORDRE_J =SIMP(statut='o',typ='I',max='**' ),
14802 b_noeud_i =BLOC(condition = "NOEUD_I != None",
14803 NOEUD_J =SIMP(statut='o',typ=no,max='**'),
14804 NOM_CMP_I =SIMP(statut='o',typ='TXM',max='**' ),
14805 NOM_CMP_J =SIMP(statut='o',typ='TXM',max='**' ),
14807 DEPASSEMENT =FACT(statut='f',min=1,max='**',
14808 fr="Loi de dépassement d un seuil pendant une durée donnée",
14809 regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
14810 VALE_MIN =SIMP(statut='f',typ='R' ),
14811 VALE_MAX =SIMP(statut='f',typ='R' ),
14812 PAS =SIMP(statut='f',typ='R' ),
14813 DUREE =SIMP(statut='f',typ='R',defaut= 1. ),
14815 RAYLEIGH =FACT(statut='f',min=1,max='**',
14816 fr="Densité de probabilité de pic positif, loi adaptée à des signaux à bande étroite",
14817 regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
14818 VALE_MIN =SIMP(statut='f',typ='R' ),
14819 VALE_MAX =SIMP(statut='f',typ='R' ),
14820 PAS =SIMP(statut='f',typ='R' ),
14822 GAUSS =FACT(statut='f',min=1,max='**',
14823 fr="Densité de probabilité de pic positif, loi normale adaptée à des signaux large bande",
14824 regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
14825 VALE_MIN =SIMP(statut='f',typ='R' ),
14826 VALE_MAX =SIMP(statut='f',typ='R' ),
14827 PAS =SIMP(statut='f',typ='R' ),
14829 VANMARCKE =FACT(statut='f',min=1,max='**',
14830 fr="Probabilité de non dépassement de seuil pendant une durée donnée (analyse sismique)",
14831 regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
14832 VALE_MIN =SIMP(statut='f',typ='R' ),
14833 VALE_MAX =SIMP(statut='f',typ='R' ),
14834 PAS =SIMP(statut='f',typ='R' ),
14835 DUREE =SIMP(statut='f',typ='R',defaut= 10. ),
14837 MOMENT =SIMP(statut='f',typ='I',max='**',fr="Moments spectraux en complément des cinq premiers" ),
14838 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
14839 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
14841 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
14842 # CONFIGURATION MANAGEMENT OF EDF VERSION
14843 # ======================================================================
14844 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
14845 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14846 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14847 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14848 # (AT YOUR OPTION) ANY LATER VERSION.
14850 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14851 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14852 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14853 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14855 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14856 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14857 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14858 # ======================================================================
14859 POST_DYNA_MODA_T=OPER(nom="POST_DYNA_MODA_T",op= 130,sd_prod=tabl_post_dyna,
14860 fr="Post-traitements en coordonnées généralisées issus de DYNA_TRAN_MODAL",
14861 docu="U4.84.02-d",reentrant='n',
14862 UIinfo={"groupes":("Post traitements",)},
14863 regles=(UN_PARMI('CHOC','RELA_EFFO_DEPL', ),),
14864 RESU_GENE =SIMP(statut='o',typ=tran_gene ),
14865 CHOC =FACT(statut='f',min=1,max='**',
14866 fr="Analyse des non linéarités de choc",
14867 INST_INIT =SIMP(statut='f',typ='R',defaut= -1. ),
14868 INST_FIN =SIMP(statut='f',typ='R',defaut= 999. ),
14869 NB_BLOC =SIMP(statut='f',typ='I',defaut= 1 ),
14870 SEUIL_FORCE =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
14871 DUREE_REPOS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
14872 OPTION =SIMP(statut='f',typ='TXM',defaut="USURE",into=("IMPACT","USURE") ),
14873 NB_CLASSE =SIMP(statut='f',typ='I',defaut= 10 ),
14875 RELA_EFFO_DEPL =FACT(statut='f',min=1,max=1,
14876 fr="Analyse des relationsnon linéaires effort-déplacement",
14877 NOEUD =SIMP(statut='o',typ=no),
14878 NOM_CMP =SIMP(statut='o',typ='TXM' ),
14880 INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
14881 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
14883 #& MODIF COMMANDE DATE 09/10/2002 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 # RESPONSABLE G8BHHXD X.DESROCHES
14902 def post_elem_prod( MASS_INER,ENER_POT,ENER_CIN,TRAV_EXT,WEIBULL,
14903 CARA_GEOM,CARA_POUTRE,RICE_TRACEY,CHAR_LIMITE,
14904 INDIC_ENER,INDIC_SEUIL,ENER_ELAS,ENER_TOTALE,
14905 AIRE_INTERNE,**args ):
14906 if MASS_INER != None : return tabl_mass_iner
14907 if ENER_POT != None : return tabl_ener_pot
14908 if ENER_CIN != None : return tabl_ener_cin
14909 if TRAV_EXT != None : return tabl_trav_ext
14910 if WEIBULL != None : return tabl_weibull
14911 if CARA_GEOM != None : return tabl_cara_geom
14912 if CARA_POUTRE != None : return tabl_cara_geom
14913 if RICE_TRACEY != None : return tabl_rice_tracey
14914 if CHAR_LIMITE != None : return tabl_char_limite
14915 if INDIC_ENER != None : return tabl_indic_ener
14916 if INDIC_SEUIL != None : return tabl_indic_seuil
14917 if ENER_ELAS != None : return tabl_ener_elas
14918 if ENER_TOTALE != None : return tabl_ener_totale
14919 if AIRE_INTERNE != None : return tabl_aire_int
14920 raise AsException("type de concept resultat non prevu")
14922 POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=post_elem_prod,docu="U4.81.22-e3",reentrant='f',
14923 UIinfo={"groupes":("Post traitements",)},
14924 fr="Calcul de quantités globales (masse, inerties, énergie, ...) sur tout ou partie du modèle",
14926 regles=(UN_PARMI('MASS_INER', 'ENER_POT', 'ENER_CIN','TRAV_EXT',
14927 'WEIBULL', 'RICE_TRACEY', 'CARA_GEOM','CHAR_LIMITE',
14928 'CARA_POUTRE', 'INDIC_ENER', 'INDIC_SEUIL',
14929 'AIRE_INTERNE','ENER_ELAS','ENER_TOTALE'),
14932 MASS_INER = FACT(statut='f',min=1,max='**',
14933 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14934 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14935 MAILLE = SIMP(statut='f',typ=ma,max='**'),
14936 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
14937 ORIG_INER = SIMP(statut='f',typ='R',min=3,max=3 ),
14939 b_mass_iner = BLOC(condition = "( MASS_INER != None )",
14940 fr="calcul de la masse, les inerties et le centre de gravité",
14941 regles=(EXCLUS('CHAM_GD','RESULTAT'),
14942 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
14943 'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
14944 MODELE = SIMP(statut='o',typ=modele),
14945 CHAM_MATER = SIMP(statut='f',typ=cham_mater),
14946 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
14947 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14948 NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
14949 NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14950 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
14951 GEOMETRIE = SIMP(statut='f',typ='TXM',defaut="INITIALE",into=("INITIALE","DEFORMEE")),
14952 CHAM_GD = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14953 RESULTAT = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_noli,mult_elas,
14954 fourier_elas,dyna_trans) ),
14955 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14956 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14957 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14958 NUME_ORDRE = SIMP(statut='f',typ='I',max=1),
14959 LIST_ORDRE = SIMP(statut='f',typ=listis),
14960 INST = SIMP(statut='f',typ='R',max=1),
14961 LIST_INST = SIMP(statut='f',typ=listr8),
14962 FREQ = SIMP(statut='f',typ='R',max=1),
14963 LIST_FREQ = SIMP(statut='f',typ=listr8),
14964 NUME_MODE = SIMP(statut='f',typ='I',max=1),
14965 NOEUD_CMP = SIMP(statut='f',typ='TXM',min=2,max=2),
14966 NOM_CAS = SIMP(statut='f',typ='TXM',max=1),
14969 ENER_POT = FACT(statut='f',min=1,max='**',
14970 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14971 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14972 MAILLE = SIMP(statut='f',typ=ma,max='**'),
14973 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
14975 b_ener_pot = BLOC(condition = "( ENER_POT != None )",
14976 fr="calcul de l'énergie potentielle de déformation",
14977 regles=(UN_PARMI('CHAM_GD','RESULTAT'),
14978 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
14979 'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
14980 MODELE = SIMP(statut='o',typ=modele),
14981 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
14982 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
14983 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14984 NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
14985 NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14986 ANGLE = SIMP(statut='f',typ='I',defaut=0),
14987 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
14988 CHAM_GD = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14989 RESULTAT = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,dyna_trans) ),
14990 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14991 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14992 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14993 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
14994 LIST_ORDRE = SIMP(statut='f',typ=listis),
14995 INST = SIMP(statut='f',typ='R',max='**'),
14996 LIST_INST = SIMP(statut='f',typ=listr8),
14997 FREQ = SIMP(statut='f',typ='R',max='**'),
14998 LIST_FREQ = SIMP(statut='f',typ=listr8),
14999 NUME_MODE = SIMP(statut='f',typ='I',max='**'),
15000 NOEUD_CMP = SIMP(statut='f',typ='TXM',max='**'),
15001 NOM_CAS = SIMP(statut='f',typ='TXM',max='**'),
15004 ENER_CIN = FACT(statut='f',min=1,max='**',
15005 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15006 OPTION = SIMP(statut='f',typ='TXM',
15007 into=("MASS_MECA","MASS_MECA_DIAG"),
15008 defaut="MASS_MECA" ),
15009 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15010 MAILLE = SIMP(statut='f',typ=ma,max='**'),
15011 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
15013 b_ener_cin = BLOC(condition = "( ENER_CIN != None )",
15014 fr="calcul de l'énergie cinétique",
15015 regles=(UN_PARMI('CHAM_GD','RESULTAT'),
15016 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
15017 'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
15018 MODELE = SIMP(statut='o',typ=modele),
15019 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
15020 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
15021 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
15022 NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
15023 NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
15024 ANGLE = SIMP(statut='f',typ='I',defaut=0),
15025 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
15026 CHAM_GD = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
15027 RESULTAT = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,dyna_trans) ),
15028 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
15029 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15030 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15031 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
15032 LIST_ORDRE = SIMP(statut='f',typ=listis),
15033 INST = SIMP(statut='f',typ='R',max='**'),
15034 LIST_INST = SIMP(statut='f',typ=listr8),
15035 FREQ = SIMP(statut='f',typ='R',max='**'),
15036 LIST_FREQ = SIMP(statut='f',typ=listr8),
15037 NUME_MODE = SIMP(statut='f',typ='I',max='**'),
15038 NOEUD_CMP = SIMP(statut='f',typ='TXM',max='**'),
15039 NOM_CAS = SIMP(statut='f',typ='TXM',max='**'),
15042 ENER_ELAS = FACT(statut='f',min=1,max='**',
15043 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15044 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15045 MAILLE = SIMP(statut='f',typ=ma,max='**'),
15046 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
15048 b_ener_elas = BLOC(condition = "( ENER_ELAS != None )",
15049 fr="calcul de l'énergie de déformation élastique",
15050 MODELE = SIMP(statut='o',typ=modele),
15051 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
15052 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
15053 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
15054 NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
15055 NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
15056 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
15057 RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
15058 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
15059 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
15060 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15061 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15062 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
15063 LIST_ORDRE = SIMP(statut='f',typ=listis),
15064 INST = SIMP(statut='f',typ='R',max='**'),
15065 LIST_INST = SIMP(statut='f',typ=listr8),
15068 ENER_TOTALE = FACT(statut='f',min=1,max='**',
15069 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15070 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15071 MAILLE = SIMP(statut='f',typ=ma,max='**'),
15072 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
15074 b_ener_totale = BLOC(condition = "( ENER_TOTALE != None )",
15075 fr="calcul de l'énergie de déformation totale",
15076 MODELE = SIMP(statut='o',typ=modele),
15077 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
15078 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
15079 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
15080 NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
15081 NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
15082 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
15083 RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
15084 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
15085 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
15086 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15087 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15088 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
15089 LIST_ORDRE = SIMP(statut='f',typ=listis),
15090 INST = SIMP(statut='f',typ='R',max='**'),
15091 LIST_INST = SIMP(statut='f',typ=listr8),
15094 WEIBULL = FACT(statut='f',min=1,max='**',
15095 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15096 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15097 MAILLE = SIMP(statut='f',typ=ma,max='**'),
15098 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
15099 OPTION = SIMP(statut='f',typ='TXM',
15100 into=("SIGM_ELGA","SIGM_ELMOY"),
15101 defaut="SIGM_ELGA"),
15102 CORR_PLAST = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
15103 COEF_MULT = SIMP(statut='f',typ='R',defaut=1.),
15105 b_weibull = BLOC(condition = "( WEIBULL != None )",
15106 fr="calcul du champ élémentaire de la puissance m-ième de la contrainte de Weibull",
15107 regles=(UN_PARMI('CHAM_GD','RESULTAT'),
15108 EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
15109 MODELE = SIMP(statut='o',typ=modele),
15110 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
15111 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
15112 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
15113 NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
15114 NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
15115 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
15116 CHAM_GD = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
15117 RESULTAT = SIMP(statut='f',typ=(evol_noli) ),
15118 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
15119 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15120 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15121 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
15122 LIST_ORDRE = SIMP(statut='f',typ=listis),
15123 INST = SIMP(statut='f',typ='R',max='**'),
15124 LIST_INST = SIMP(statut='f',typ=listr8),
15127 RICE_TRACEY = FACT(statut='f',min=1,max='**',
15128 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15129 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15130 MAILLE = SIMP(statut='f',typ=ma,max='**'),
15131 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
15132 OPTION = SIMP(statut='f',typ='TXM',
15133 into=("SIGM_ELGA","SIGM_ELMOY"),
15134 defaut="SIGM_ELGA"),
15135 LOCAL = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
15137 b_rice_tracey = BLOC(condition = "( RICE_TRACEY != None )",
15138 fr="calcul du taux de croissance d'une cavité sphérique par rapport à un domaine",
15139 regles=(UN_PARMI('CHAM_GD','RESULTAT'),
15140 EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
15141 MODELE = SIMP(statut='o',typ=modele),
15142 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
15143 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
15144 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
15145 NUME_COUCHE = SIMP(statut='f',typ='I',defaut=1),
15146 NIVE_COUCHE = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
15147 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
15148 CHAM_GD = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
15149 RESULTAT = SIMP(statut='f',typ=(evol_noli) ),
15150 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
15151 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15152 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15153 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
15154 LIST_ORDRE = SIMP(statut='f',typ=listis),
15155 INST = SIMP(statut='f',typ='R',max='**'),
15156 LIST_INST = SIMP(statut='f',typ=listr8),
15159 INDIC_ENER = FACT(statut='f',min=1,max='**',
15160 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15161 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15162 MAILLE = SIMP(statut='f',typ=ma,max='**'),
15163 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
15165 b_indic_ener = BLOC(condition = "( INDIC_ENER != None )",
15166 fr="calcul un indicateur global de perte de proportionnalité du chargement",
15167 MODELE = SIMP(statut='o',typ=modele),
15168 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
15169 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
15170 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
15171 RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
15172 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
15173 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
15174 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15175 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15176 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
15177 LIST_ORDRE = SIMP(statut='f',typ=listis),
15178 INST = SIMP(statut='f',typ='R',max='**'),
15179 LIST_INST = SIMP(statut='f',typ=listr8),
15182 INDIC_SEUIL = FACT(statut='f',min=1,max='**',
15183 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15184 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15185 MAILLE = SIMP(statut='f',typ=ma,max='**'),
15186 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
15188 b_indic_seuil = BLOC(condition = "( INDIC_SEUIL != None )",
15189 fr="calcul un indicateur global de perte de proportionnalité du chargement",
15190 MODELE = SIMP(statut='o',typ=modele),
15191 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
15192 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
15193 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
15194 RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
15195 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
15196 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
15197 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15198 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15199 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
15200 LIST_ORDRE = SIMP(statut='f',typ=listis),
15201 INST = SIMP(statut='f',typ='R',max='**'),
15202 LIST_INST = SIMP(statut='f',typ=listr8),
15205 CHAR_LIMITE = FACT(statut='f',min=0,max=1,
15206 CHAR_CSTE = SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON")
15208 b_char_limite = BLOC(condition = "( CHAR_LIMITE != None )",
15209 fr="post-traitement du calcul de la charge limite",
15210 MODELE = SIMP(statut='o',typ=modele),
15211 CHAM_MATER = SIMP(statut='o',typ=cham_mater),
15212 CARA_ELEM = SIMP(statut='f',typ=cara_elem),
15213 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
15214 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
15215 RESULTAT = SIMP(statut='o',typ=(evol_noli) ),
15216 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
15217 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
15218 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15219 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15220 NUME_ORDRE = SIMP(statut='f',typ='I',max='**'),
15221 LIST_ORDRE = SIMP(statut='f',typ=listis),
15222 INST = SIMP(statut='f',typ='R',max='**'),
15223 LIST_INST = SIMP(statut='f',typ=listr8),
15226 CARA_GEOM = FACT(statut='f',min=1,max='**',
15227 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15228 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15229 MAILLE = SIMP(statut='f',typ=ma,max='**'),
15230 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
15231 SYME_X = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
15232 SYME_Y = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
15233 ORIG_INER = SIMP(statut='f',typ='R',min=2,max=2),
15235 b_cara_geom = BLOC(condition = "( CARA_GEOM != None )",
15236 fr="calcul des caractéristiques géométriques d'un section de poutre",
15237 MODELE = SIMP(statut='o',typ=modele),
15238 CHAM_MATER = SIMP(statut='f',typ=cham_mater),
15239 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
15240 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
15243 CARA_POUTRE = FACT(statut='f',min=1,max='**',
15244 regles=(AU_MOINS_UN('TOUT','GROUP_MA'),
15245 ENSEMBLE('LONGUEUR','LIAISON','MATERIAU'),),
15246 TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15247 GROUP_MA = SIMP(statut='f',typ=grma,max='**'),
15248 GROUP_MA_INTE = SIMP(statut='f',typ=grma,max='**'),
15249 CARA_GEOM = SIMP(statut='f',typ=tabl_cara_geom),
15250 LAPL_PHI = SIMP(statut='f',typ=evol_ther),
15251 LAPL_PHI_Y = SIMP(statut='f',typ=evol_ther),
15252 LAPL_PHI_Z = SIMP(statut='f',typ=evol_ther),
15253 LIAISON = SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT")),
15254 LONGUEUR = SIMP(statut='f',typ='R'),
15255 MATERIAU = SIMP(statut='f',typ=mater),
15256 OPTION = SIMP(statut='f',typ='TXM',
15257 into=("CARA_TORSION","CARA_CISAILLEMENT","CARA_GAUCHI") ),
15259 b_cara_poutre = BLOC(condition = "( CARA_POUTRE != None )",
15260 fr="calcul des caractéristiques mécaniques d'un section de poutre",
15261 MODELE = SIMP(statut='o',typ=modele),
15262 CHAM_MATER = SIMP(statut='f',typ=cham_mater),
15263 CHARGE = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
15264 MODE_FOURIER = SIMP(statut='f',typ='I',defaut=0),
15267 AIRE_INTERNE = FACT(statut='f',min=1,max='**',
15268 GROUP_MA_BORD = SIMP(statut='o',typ=grma,max='**'),
15270 b_aire_interne = BLOC(condition = "( AIRE_INTERNE != None )",
15271 fr="calcul de l'aire d'un trou dans un maillage 2D",
15272 MODELE = SIMP(statut='o',typ=modele),
15275 TRAV_EXT = FACT(statut='f',min=1,max=1),
15276 b_trav_ext = BLOC(condition = "( TRAV_EXT != None )",
15277 fr="calcul du travail des efforts extérieurs",
15278 RESULTAT = SIMP(statut='o',typ=(evol_elas,evol_noli,dyna_trans) ),
15279 PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
15280 CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15281 TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15284 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
15285 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
15288 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15289 # CONFIGURATION MANAGEMENT OF EDF VERSION
15290 # ======================================================================
15291 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15292 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15293 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15294 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15295 # (AT YOUR OPTION) ANY LATER VERSION.
15297 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15298 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15299 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15300 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15302 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15303 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15304 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15305 # ======================================================================
15306 POST_FATI_ALEA=OPER(nom="POST_FATI_ALEA",op=170,sd_prod=tabl_post_f_alea,docu="U4.84.03-c",reentrant='n',
15307 UIinfo={"groupes":("Post traitements",)},
15308 fr="Calcul du dommage subi par une structure soumise à unesollicitation de type aléatoire",
15309 regles=(ENSEMBLE('MOMENT_SPEC_0','MOMENT_SPEC_2'),
15310 PRESENT_PRESENT( 'MOMENT_SPEC_4','MOMENT_SPEC_0'),
15311 UN_PARMI('TABL_POST_ALEA','MOMENT_SPEC_0'), ),
15312 MOMENT_SPEC_0 =SIMP(statut='f',typ='R'),
15313 MOMENT_SPEC_2 =SIMP(statut='f',typ='R'),
15314 MOMENT_SPEC_4 =SIMP(statut='f',typ='R'),
15315 TABL_POST_ALEA =SIMP(statut='f',typ=tabl_post_alea),
15316 COMPTAGE =SIMP(statut='o',typ='TXM',into=("PIC","NIVEAU")),
15317 DUREE =SIMP(statut='f',typ='R',defaut= 1.),
15318 CORR_KE =SIMP(statut='f',typ='TXM',into=("RCCM",)),
15319 DOMMAGE =SIMP(statut='o',typ='TXM',into=("WOHLER",)),
15320 MATER =SIMP(statut='o',typ=mater),
15321 TITRE =SIMP(statut='f',typ='TXM',max='**'),
15323 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15324 # CONFIGURATION MANAGEMENT OF EDF VERSION
15325 # ======================================================================
15326 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15327 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15328 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15329 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15330 # (AT YOUR OPTION) ANY LATER VERSION.
15332 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15333 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15334 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15335 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15337 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15338 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15339 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15340 # ======================================================================
15341 POST_FATIGUE=OPER(nom="POST_FATIGUE",op=136,sd_prod=tabl_post_fatig,docu="U4.83.01-d1",reentrant='n',
15342 UIinfo={"groupes":("Post traitements",)},
15343 fr="Calcul du dommage subi par une structure soumise à une histoire de chargement",
15345 CHARGEMENT = SIMP(statut='o',typ='TXM',into=("UNIAXIAL","PERIODIQUE","QUELCONQUE")),
15347 b_uniaxial = BLOC( condition = "CHARGEMENT=='UNIAXIAL'",
15348 regles=(PRESENT_PRESENT('CORR_KE','MATER'),
15349 PRESENT_PRESENT('CORR_SIGM_MOYE','MATER'),
15350 PRESENT_PRESENT('DOMMAGE','MATER'),),
15351 HISTOIRE = FACT(statut='o',min=1,max=1,
15352 regles=(UN_PARMI('SIGM','EPSI'),),
15353 SIGM = SIMP(statut='f',typ=fonction),
15354 EPSI = SIMP(statut='f',typ=fonction),),
15355 COMPTAGE = SIMP(statut='o',typ='TXM',into=("RAINFLOW","RCCM","NATUREL")),
15356 DELTA_OSCI = SIMP(statut='f',typ='R',defaut= 0.0E+0),
15357 COEF_MULT = FACT(statut='f',min=1,max=1,
15358 KT = SIMP(statut='o',typ='R'),),
15359 CORR_KE = SIMP(statut='f',typ='TXM',into=("RCCM",)),
15360 DOMMAGE = SIMP(statut='f',typ='TXM',into=("WOHLER","MANSON_COFFIN",
15361 "TAHERI_MANSON","TAHERI_MIXTE")),
15362 MATER = SIMP(statut='f',typ=mater),
15363 CORR_SIGM_MOYE = SIMP(statut='f',typ='TXM',into=("GOODMAN","GERBER")),
15364 TAHERI_NAPPE = SIMP(statut='f',typ=fonction),
15365 TAHERI_FONC = SIMP(statut='f',typ=fonction),
15366 CUMUL = SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
15369 b_periodique = BLOC( condition = "CHARGEMENT=='PERIODIQUE'",
15370 HISTOIRE = FACT(statut='o',min=1,max=1,
15371 SIGM_XX = SIMP(statut='o',typ=fonction),
15372 SIGM_YY = SIMP(statut='o',typ=fonction),
15373 SIGM_ZZ = SIMP(statut='o',typ=fonction),
15374 SIGM_XY = SIMP(statut='o',typ=fonction),
15375 SIGM_XZ = SIMP(statut='f',typ=fonction),
15376 SIGM_YZ = SIMP(statut='f',typ=fonction),),
15377 CRITERE = SIMP(statut='o',typ='TXM',into=("CROSSLAND","PAPADOPOULOS")),
15378 DOMMAGE = SIMP(statut='f',typ='TXM',into=("WOHLER",)),
15379 MATER = SIMP(statut='o',typ=mater),
15380 COEF_CORR = SIMP(statut='f',typ='R'),
15383 b_quelconque = BLOC( condition = "CHARGEMENT=='QUELCONQUE'",
15384 HISTOIRE = FACT(statut='o',min=1,max=1,
15385 SIGM_XX = SIMP(statut='o',typ=fonction),
15386 SIGM_YY = SIMP(statut='o',typ=fonction),
15387 SIGM_ZZ = SIMP(statut='o',typ=fonction),
15388 SIGM_XY = SIMP(statut='o',typ=fonction),
15389 SIGM_XZ = SIMP(statut='f',typ=fonction),
15390 SIGM_YZ = SIMP(statut='f',typ=fonction),
15391 EPSP = SIMP(statut='o',typ=fonction),
15392 TEMP = SIMP(statut='o',typ=fonction),),
15393 DOMMAGE = SIMP(statut='f',typ='TXM',into=("LEMAITRE",),defaut="LEMAITRE"),
15394 MATER = SIMP(statut='o',typ=mater),
15395 CUMUL = SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
15398 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
15399 TITRE =SIMP(statut='f',typ='TXM',max='**'),
15401 #& MODIF COMMANDE DATE 03/12/2002 AUTEUR DURAND C.DURAND
15402 # CONFIGURATION MANAGEMENT OF EDF VERSION
15403 # ======================================================================
15404 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15405 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15406 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15407 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15408 # (AT YOUR OPTION) ANY LATER VERSION.
15410 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15411 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15412 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15413 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15415 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15416 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15417 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15418 # ======================================================================
15419 POST_GOUJ2E=OPER(nom="POST_GOUJ2E",op=187,sd_prod=tabl_post_gouj2e,reentrant='n',
15420 fr=" ",docu="U4.gj.30-a",
15421 UIinfo={"groupes":("Outils métier",)},
15422 TABLE =SIMP(statut='o',typ=tabl_post_rele),
15424 #& MODIF COMMANDE DATE 04/02/2003 AUTEUR DURAND C.DURAND
15425 # CONFIGURATION MANAGEMENT OF EDF VERSION
15426 # ======================================================================
15427 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15428 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15429 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15430 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15431 # (AT YOUR OPTION) ANY LATER VERSION.
15433 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15434 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15435 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15436 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15438 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15439 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15440 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15441 # ======================================================================
15442 # RESPONSABLE JMBHH01 J.M.PROIX
15443 POST_K1_K2_K3=OPER(nom="POST_K1_K2_K3",op=188,sd_prod=tabl_post_k,
15444 fr="Calcul des FIC par extrapolation du champ de déplacements sur les lèvres de la fissure",
15445 docu="U4.82.05-b2",reentrant='n',
15446 UIinfo={"groupes":("Post traitements",)},
15448 regles=(UN_PARMI('RESULTAT','TABL_DEPL_SUP'),
15449 PRESENT_PRESENT('TABL_DEPL_SUP','TABL_DEPL_INF'),
15450 PRESENT_PRESENT('RESULTAT','FOND_FISS'),),
15452 MODELISATION =SIMP(statut='o',typ='TXM',
15453 into=("3D","AXIS","D_PLAN","C_PLAN"),
15454 fr="Modélisation cohérente avec celle utilisée pour le calcul des déplacements"),
15455 FOND_FISS =SIMP(statut='f',typ=fond_fiss),
15456 b_fond_fiss =BLOC (condition="(FOND_FISS!= None)",
15457 MAILLAGE = SIMP(statut='o',typ=maillage),
15458 PRECISION = SIMP(statut='f',typ='R',defaut=0.001),
15459 NOEUD = SIMP(statut='f',typ=no,max='**'),
15460 GROUP_NO = SIMP(statut='f',typ=grno,max='**'),
15461 SANS_NOEUD = SIMP(statut='f',typ=no,max='**'),
15462 SANS_GROUP_NO = SIMP(statut='f',typ=grno,max='**')
15464 MATER =SIMP(statut='o',typ=mater,
15465 fr="Matériau homogène et isotrope cohérent avec celui utilisé pour le calcul des déplacements"),
15466 RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_noli),
15467 fr="Table déplacement des noeuds de la lèvre supérieure et inférieure"),
15468 TABL_DEPL_SUP =SIMP(statut='f',typ=tabl_post_rele,
15469 fr="Table issue de post_releve_t sur les noeuds de la lèvre supérieure"),
15470 TABL_DEPL_INF =SIMP(statut='f',typ=tabl_post_rele,
15471 fr="Table issue de post_releve_t sur les noeuds de la lèvre inférieure"),
15472 ABSC_CURV_MAXI=SIMP(statut='f',typ='R',
15473 fr="distance maximum à partir du fond de fissure à utiliser pour le calcul"),
15474 PREC_VIS_A_VIS= SIMP(statut='f',typ='R',defaut=0.1),
15475 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15476 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
15477 LIST_ORDRE =SIMP(statut='f',typ=listis),
15478 INST =SIMP(statut='f',typ='R',max='**'),
15479 LIST_INST =SIMP(statut='f',typ=listr8),
15480 b_acce_reel =BLOC(condition="(INST != None)or(LIST_INST != None)",
15481 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
15482 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
15484 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
15485 VECT_K1 =SIMP(statut='o',typ='R',max='**',
15486 fr="Vecteur normal au plan de fissure, orienté de la lèvre inférieure vers la lèvre supérieure"),
15487 TITRE =SIMP(statut='f',typ='TXM',max='**'),
15489 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15490 # CONFIGURATION MANAGEMENT OF EDF VERSION
15491 # ======================================================================
15492 # COPYRIGHT (C) 1991 - 2002 EDF R&D WWW.CODE-ASTER.ORG
15493 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15494 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15495 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15496 # (AT YOUR OPTION) ANY LATER VERSION.
15498 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15499 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15500 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15501 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15503 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15504 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15505 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15508 # ======================================================================
15510 POST_K_BETA=OPER(nom="POST_K_BETA",op=198,sd_prod=tabl_post_beta,
15511 fr="Calcul des FIC par la méthode K_BETA",
15512 docu="U4.82.07-a",reentrant='n',
15513 UIinfo={"groupes":("Post traitements",)},
15514 MAILLAGE = SIMP(statut='o',typ=maillage),
15515 MATER_REV = SIMP(statut='o',typ=mater),
15516 EPAIS_REV = SIMP(statut='o',typ='R'),
15517 FISSURE = FACT(statut='o',min=1,max=1,
15518 DECALAGE = SIMP(statut='f',typ='R',defaut=-2.e-04),
15519 PROFONDEUR = SIMP(statut='o',typ='R'),
15520 LONGUEUR = SIMP(statut='o',typ='R'),
15521 ORIENTATION = SIMP(statut='o',typ='TXM',
15522 into=("CIRC","LONGI"),),
15524 K1D = FACT(statut='o',min=1,max='**',
15525 TABL_MECA_REV = SIMP(statut='o',typ=(tabl_post_rele)),
15526 TABL_MECA_MDB = SIMP(statut='o',typ=(tabl_post_rele)),
15527 TABL_THER = SIMP(statut='o',typ=(tabl_post_rele)),
15528 INTITULE = SIMP(statut='o',typ='TXM' ),
15530 INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
15531 TITRE = SIMP(statut='f',typ='TXM',max='**'),
15533 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15534 # CONFIGURATION MANAGEMENT OF EDF VERSION
15535 # ======================================================================
15536 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15537 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15538 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15539 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15540 # (AT YOUR OPTION) ANY LATER VERSION.
15542 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15543 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15544 # MERCHANTABILITY OR FITNESS FOR A PARTIC
15546 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15547 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15548 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15549 # ======================================================================
15550 # RESPONSABLE JMBHH01 J.M.PROIX
15551 POST_RCCM=OPER(nom="POST_RCCM",op= 165,sd_prod=tabl_post_rccm,
15552 fr="Vérification des critères de niveau 0 et certains critères de niveau A du RCC-M-B3200 (Edition 1991)",
15553 docu="U4.83.11-d1",reentrant='n',
15554 UIinfo={"groupes":("Post traitements",)},
15555 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="VALE_MAX",into=("VALE_MAX","VALE_INST") ),
15556 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
15557 TITRE =SIMP(statut='f',typ='TXM',max='**'),
15558 OPTION =SIMP(statut='o',typ='TXM',max='**',
15566 b_pm_sn =BLOC(condition="(OPTION == 'PM_PB')or(OPTION == 'SN')or(OPTION == 'FATIGUE_SPMAX')or(OPTION == 'FATIGUE_ZH210')",
15567 MATER =SIMP(statut='o',typ=mater ),
15568 MAILLAGE =SIMP(statut='f',typ=maillage),
15569 SEGMENT =FACT(statut='o',min=1,max='**',fr="Segment sur lequel s effectue le depouillement",
15570 regles=(AU_MOINS_UN('CHEMIN','GROUP_NO','NOEUD'),
15571 EXCLUS('CHEMIN','GROUP_NO'),
15572 EXCLUS('CHEMIN','NOEUD'),),
15573 INTITULE =SIMP(statut='f',typ='TXM' ),
15574 CHEMIN =SIMP(statut='f',typ=(courbe,surface),),
15575 NOEUD =SIMP(statut='f',typ=no,max='**'),
15576 GROUP_NO =SIMP(statut='f',typ=grno),
15577 b_acce_noeud =BLOC(condition="(NOEUD != None)or(GROUP_NO != None)",
15578 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
15579 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
15582 TRANSITOIRE =FACT(statut='o',min=1,max='**',fr="transitoire à dépouiller",
15583 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
15584 RESULTAT =SIMP(statut='o',typ=(evol_elas,evol_noli) ),
15585 RESU_SIGM_THER =SIMP(statut='f',typ=(evol_elas,evol_noli),fr="résultat sous chargement thermique seul" ),
15586 NB_OCCUR =SIMP(statut='f',typ='I',defaut= 1,fr="nombre d occurences réelles de ce transitoire" ),
15587 NOM_CHAM =SIMP(statut='o',typ='TXM',into=("SIEF_ELNO_ELGA","SIGM_ELNO_DEPL") ),
15588 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15589 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
15590 LIST_ORDRE =SIMP(statut='f',typ=listis ),
15591 INST =SIMP(statut='f',typ='R',max='**'),
15592 LIST_INST =SIMP(statut='f',typ=listr8 ),
15593 b_inst =BLOC(condition = "(INST != None) or (LIST_INST != None)" ,
15594 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
15595 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
15600 b_3200 =BLOC(condition="(OPTION == 'FATIGUE_B3200')",
15601 MATER =SIMP(statut='o',typ=mater ),
15602 CHAR_MECA =FACT(statut='o',min=1,max='**',fr="Chargements mécaniques",
15603 NUME_CHAR =SIMP(statut='o',typ='I',max=1,fr="numéro du chargement" ),
15604 NOM_CHAR =SIMP(statut='f',typ='TXM',max=1,fr="nom du chargement" ),
15605 TYPE_CHAR =SIMP(statut='f',typ='TXM',max=1,fr="nature du chargement",into=( "SEISME","AUTRE"),defaut="AUTRE",),
15606 FX =SIMP(statut='f',typ='R',max=1,fr="effort suivant x", ),
15607 FY =SIMP(statut='f',typ='R',max=1,fr="effort suivant y", ),
15608 FZ =SIMP(statut='f',typ='R',max=1,fr="effort suivant z", ),
15609 MX =SIMP(statut='o',typ='R',max=1,fr="moment suivant x", ),
15610 MY =SIMP(statut='o',typ='R',max=1,fr="moment suivant y", ),
15611 MZ =SIMP(statut='o',typ='R',max=1,fr="moment suivant z", ),
15613 RESU_MECA_UNIT =FACT(statut='o',min=1,max=1,fr="resultats mécaniques unitaires",
15614 TABL_FX =SIMP(statut='f',typ=table,max=1,
15615 fr="table relevé des contraintes pour chargement unitaire FX"),
15616 TABL_FY =SIMP(statut='f',typ=table,max=1,
15617 fr="table relevé des contraintes pour chargement unitaire FY"),
15618 TABL_FZ =SIMP(statut='f',typ=table,max=1,
15619 fr="table relevé des contraintes pour chargement unitaire FZ"),
15620 TABL_MX =SIMP(statut='o',typ=table,max=1,
15621 fr="table relevé des contraintes pour chargement unitaire MX"),
15622 TABL_MY =SIMP(statut='o',typ=table,max=1,
15623 fr="table relevé des contraintes pour chargement unitaire MY"),
15624 TABL_MZ =SIMP(statut='o',typ=table,max=1,
15625 fr="table relevé des contraintes pour chargement unitaire MZ"),
15626 TABL_PRES =SIMP(statut='o',typ=table,max=1,
15627 fr="table relevé des contraintes pour chargement unitaire de pression"),
15629 RESU_THER =FACT(statut='f',min=1,max='**',fr="resultats thermiques",
15630 NUME_RESU_THER =SIMP(statut='o',typ='I',max=1,fr="numéro de la table de résultat thermique" ),
15631 TABL_RESU_THER =SIMP(statut='o',typ=table,max=1,
15632 fr="table relevé des contraintes pour chargement thermique"),
15634 SITUATION =FACT(statut='o',min=1,max='**',fr="Situation",ang="situation_ang",
15635 NB_OCCUR =SIMP(statut='o',typ='I',fr="nombre d'occurences de la situation" ),
15636 NB_CYCL_SEISME =SIMP(statut='f',typ='I',fr="nombre de cycles associé au séisme" ),
15637 NUME_SITU =SIMP(statut='o',typ='I',fr="numéro de la situation" ),
15638 NOM_SITU =SIMP(statut='f',typ='TXM',fr="nom de la situation" ),
15639 COMBINABLE =SIMP(statut='f',typ='TXM',defaut= "OUI",into=("OUI","NON"),fr="non = sous-cycle" ),
15640 NUME_GROUPE =SIMP(statut='o',typ='I',fr="numéro du groupe de la situation" ),
15641 NUME_PASSAGE =SIMP(statut='f',typ='I',max=2,fr="numéro des deux groupes en relation" ),
15642 NUME_RESU_THER =SIMP(statut='f',typ='I',max='**',fr="numeros de transitoires thermiques" ),
15643 CHAR_ETAT_A =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat A" ),
15644 CHAR_ETAT_B =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat B" ),
15645 PRES_A =SIMP(statut='o',typ='R',fr="pression etat A"),
15646 PRES_B =SIMP(statut='o',typ='R',fr="pression etat B"),
15647 TEMP_REF_A =SIMP(statut='f',typ='R',fr="temperature référence etat A"),
15648 TEMP_REF_B =SIMP(statut='f',typ='R',fr="temperature référence etat B"),
15651 b_3600 =BLOC(condition="(OPTION == 'FATIGUE_B3600')",
15652 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
15653 MODELE =SIMP(statut='o',typ=modele),
15654 CARA_ELEM =SIMP(statut='o',typ=cara_elem),
15655 ZONE_ANALYSE =FACT(statut='o',min=1,max=1,fr="liste des mailles ou des noeuds analysés",
15656 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15657 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15658 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
15659 MAILLE =SIMP(statut='f',typ=ma,max='**'),
15661 RESU_MECA =FACT(statut='o',min=1,max='**',fr="Chargements mécaniques",
15662 regles=(UN_PARMI('CHAM_GD','RESULTAT'),),
15663 NUME_CHAR =SIMP(statut='o',typ='I',max=1,fr="numéro du chargement" ),
15664 NOM_CHAR =SIMP(statut='f',typ='TXM',max=1,fr="nom du chargement" ),
15665 TYPE_CHAR =SIMP(statut='f',typ='TXM',max=1,fr="nature du chargement",into=( "SEISME","AUTRE"),defaut="AUTRE",),
15666 CHAM_GD =SIMP(statut='f',typ=cham_gd),
15667 RESULTAT =SIMP(statut='f',typ=resultat),
15668 b_extrac =BLOC(condition="RESULTAT != None",
15669 fr="extraction d un champ de grandeur",
15670 regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','INST','NOEUD_CMP'),),
15671 NOM_CHAM =SIMP(statut='o',typ='TXM',max=1,into=("EFGE_ELNO_DEPL","SIEF_ELNO_ELGA"),),
15672 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15673 NUME_ORDRE =SIMP(statut='f',typ='I',max=1),
15674 INST =SIMP(statut='f',typ='R',max=1),
15675 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
15676 b_acce_reel =BLOC(condition="(INST != None)",
15677 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3),
15678 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU"), ),
15682 INDI_SIGM =FACT(statut='o',min=1,max='**',fr="indices de contraintes",
15683 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15684 C1 =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes C1 du RCCM"),
15685 K1 =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes K1 du RCCM"),
15686 C2 =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes C2 du RCCM"),
15687 K2 =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes K2 du RCCM"),
15688 C3 =SIMP(statut='f',typ='R',max=1,defaut=0.5,fr="indice de contraintes C3 du RCCM"),
15689 K3 =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes K3 du RCCM"),
15690 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",),),
15691 GROUP_MA =SIMP(statut='f',typ=grma,max='**',
15692 fr="groupe(s) de mailles ou sont affectés les indices de contraintes"),
15693 MAILLE =SIMP(statut='f',typ=ma,max='**',
15694 fr="liste des mailles ou sont affectés les indices de contraintes"),
15695 b_grma =BLOC(condition="(GROUP_MA != None)or(MAILLE != None)",
15696 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
15697 NOEUD =SIMP(statut='f',typ=no,max='**'),
15699 TYPE_ELEM_STANDARD =SIMP(statut='f',typ='TXM',into=("DRO","COU","TRN","TEE"),
15700 fr="type d'élément de tuyauterie ou sont affectés les indices de contraintes"),
15702 RESU_THER =FACT(statut='f',min=1,max='**',fr="resultats thermiques",
15703 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15704 NUME_RESU_THER =SIMP(statut='o',typ='I',max=1,fr="numéro de la table de résultat thermique" ),
15705 TABL_RESU_THER =SIMP(statut='o',typ=table,max=1,
15706 fr="table relevé des températures sur la section"),
15707 TABL_MOYE_THER =SIMP(statut='o',typ=table,max=1,
15708 fr="table relevé des moyennes sur la section"),
15709 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15710 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
15711 MAILLE =SIMP(statut='f',typ=ma,max='**'),
15712 b_grma =BLOC(condition="(GROUP_MA != None)or(MAILLE != None)",
15713 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
15714 NOEUD =SIMP(statut='f',typ=no,max='**'),
15717 SITUATION =FACT(statut='o',min=1,max='**',fr="Situation",ang="situation_ang",
15718 NB_OCCUR =SIMP(statut='o',typ='I',fr="nombre d'occurences de la situation" ),
15719 NB_CYCL_SEISME =SIMP(statut='f',typ='I',fr="nombre de cycles associé au séisme" ),
15720 NUME_SITU =SIMP(statut='o',typ='I',fr="numéro de la situation" ),
15721 NOM_SITU =SIMP(statut='f',typ='TXM',fr="nom de la situation" ),
15722 COMBINABLE =SIMP(statut='f',typ='TXM',defaut= "OUI",into=("OUI","NON"),fr="non = sous-cycle" ),
15723 NUME_GROUPE =SIMP(statut='o',typ='I',fr="numéro du groupe de la situation" ),
15724 NUME_PASSAGE =SIMP(statut='f',typ='I',max=2,fr="numéro des deux groupes en relation" ),
15725 NUME_RESU_THER =SIMP(statut='f',typ='I',max='**',fr="numeros de transitoires thermiques" ),
15726 CHAR_ETAT_A =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat A" ),
15727 CHAR_ETAT_B =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat B" ),
15728 PRES_A =SIMP(statut='o',typ='R',fr="pression etat A"),
15729 PRES_B =SIMP(statut='o',typ='R',fr="pression etat B"),
15730 TEMP_REF_A =SIMP(statut='f',typ='R',fr="temperature référence etat A"),
15731 TEMP_REF_B =SIMP(statut='f',typ='R',fr="temperature référence etat B"),
15735 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15736 # ======================================================================
15737 # CONFIGURATION MANAGEMENT OF EDF VERSION
15738 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15739 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15740 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15741 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15742 # (AT YOUR OPTION) ANY LATER VERSION.
15744 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15745 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15746 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15747 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15749 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15750 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15751 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15752 # ======================================================================
15753 # RESPONSABLE G8BHHXD X.DESROCHES
15754 POST_RELEVE_T=OPER(nom="POST_RELEVE_T",op=51,sd_prod=tabl_post_rele,docu="U4.81.21-e1",reentrant='n',
15755 UIinfo={"groupes":("Post traitements",)},
15756 ACTION =FACT(statut='o',min=1,max='**',
15757 regles=(AU_MOINS_UN('CHEMIN','GROUP_NO','NOEUD'),
15758 EXCLUS('CHEMIN','GROUP_NO'),
15759 EXCLUS('CHEMIN','NOEUD'),
15760 PRESENT_ABSENT('CHEMIN','GROUP_MA','MAILLE'),
15761 UN_PARMI('RESULTAT','CHAM_GD'),
15762 UN_PARMI('TOUT_CMP','NOM_CMP','INVARIANT','ELEM_PRINCIPAUX','RESULTANTE'),
15763 PRESENT_PRESENT('TRAC_DIR','DIRECTION'),
15764 PRESENT_PRESENT('TRAC_DIRECTION','DIRECTION'),
15765 ENSEMBLE('MOMENT','POINT'),
15766 PRESENT_PRESENT('MOMENT','RESULTANTE'),
15767 PRESENT_ABSENT('TOUT_CMP','TRAC_DIRECTION','TRAC_NORMALE'),
15768 PRESENT_ABSENT('TOUT_CMP','TRAC_DIR','TRAC_NOR'),
15769 PRESENT_PRESENT('ORIGINE','AXE_Z'),),
15770 INTITULE =SIMP(statut='o',typ='TXM'),
15771 CHEMIN =SIMP(statut='f',typ=(courbe,surface) ),
15772 NOEUD =SIMP(statut='f',typ=no,max='**'),
15773 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15774 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
15775 MAILLE =SIMP(statut='f',typ=ma,max='**'),
15776 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
15777 FORMAT_C =SIMP(statut='f',typ='TXM',defaut="MODULE",into=("MODULE","REEL","IMAG")),
15778 CHAM_GD =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r,cham_no_var2_r,
15779 cham_elem_sief_r,cham_elem_epsi_r,cham_elem_flux_r,cham_elem_crit_r,
15780 cham_elem_ener_r,cham_elem_dbel_r,cham_elem_pres_r,cham_elem_erreur,
15781 cham_elem_vari_r,cham_no_depl_c,cham_no_temp_c,cham_no_pres_c,
15782 cham_elem_sief_c,cham_elem_epsi_c)),
15783 RESULTAT =SIMP(statut='f',typ=(evol_elas,evol_ther,evol_noli,dyna_trans,
15784 mode_meca,mode_flamb,mode_acou,base_modale,mode_stat,
15785 mult_elas,fourier_elas,dyna_harmo,acou_harmo)),
15786 b_sensibilite =BLOC(condition="RESULTAT != None",
15787 fr="Définition des paramètres de sensibilité",
15788 ang="Definition of sensitivity parameters",
15789 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
15790 fr="Liste des paramètres de sensibilité.",
15791 ang="List of sensitivity parameters"),),
15793 b_extrac =BLOC(condition = "RESULTAT != None",fr="extraction des résultats",
15794 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','NUME_MODE','LIST_MODE',
15795 'INST','LIST_INST','FREQ','LIST_FREQ','NOEUD_CMP','NOM_CAS'), ),
15796 NOM_CHAM =SIMP(statut='o',typ='TXM' ),
15797 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15798 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
15799 LIST_ORDRE =SIMP(statut='f',typ=listis),
15800 NUME_MODE =SIMP(statut='f',typ='I',max='**'),
15801 LIST_MODE =SIMP(statut='f',typ=listis),
15802 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**'),
15803 NOM_CAS =SIMP(statut='f',typ='TXM',max='**'),
15804 FREQ =SIMP(statut='f',typ='R',max='**'),
15805 LIST_FREQ =SIMP(statut='f',typ=listr8),
15806 INST =SIMP(statut='f',typ='R',max='**'),
15807 LIST_INST =SIMP(statut='f',typ=listr8),
15808 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-6),
15809 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15811 TOUT_CMP =SIMP(statut='f',typ='TXM',into=("OUI",)),
15812 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
15813 INVARIANT =SIMP(statut='f',typ='TXM',into=("OUI",)),
15814 ELEM_PRINCIPAUX =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15815 RESULTANTE =SIMP(statut='f',typ='TXM',max='**'),
15816 MOMENT =SIMP(statut='f',typ='TXM',max='**'),
15817 POINT =SIMP(statut='f',typ='R',max='**'),
15819 REPERE =SIMP(statut='f',typ='TXM',defaut="GLOBAL",
15820 into=("GLOBAL","LOCAL","POLAIRE","UTILISATEUR","CYLINDRIQUE"),),
15821 ANGL_NAUT =SIMP(statut='f',typ='R',min=3,max=3),
15822 ORIGINE =SIMP(statut='f',typ='R',min=3,max=3),
15823 AXE_Z =SIMP(statut='f',typ='R',min=3,max=3),
15825 TRAC_NOR =SIMP(statut='f',typ='TXM',into=("OUI",)),
15826 TRAC_DIR =SIMP(statut='f',typ='TXM',into=("OUI",)),
15827 DIRECTION =SIMP(statut='f',typ='R',max='**'),
15828 TRAC_DIRECTION =SIMP(statut='f',typ='TXM',into=("OUI",)),
15829 TRAC_NORMALE =SIMP(statut='f',typ='TXM',into=("OUI",)),
15831 VECT_Y =SIMP(statut='f',typ='R',max='**'),
15832 MOYE_NOEUD =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
15833 OPERATION =SIMP(statut='o',typ='TXM',into=("EXTRACTION","MOYENNE"),max=2),
15835 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
15836 TITRE =SIMP(statut='f',typ='TXM',max='**'),
15838 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15839 # CONFIGURATION MANAGEMENT OF EDF VERSION
15840 # ======================================================================
15841 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15842 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15843 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15844 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15845 # (AT YOUR OPTION) ANY LATER VERSION.
15847 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15848 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15849 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15850 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15852 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15853 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15854 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15855 # ======================================================================
15856 POST_SIMPLIFIE=OPER(nom="POST_SIMPLIFIE",op=185,sd_prod=tabl_post_simpli,
15857 fr=" ",docu="U4.PS.10-a",reentrant='n',
15858 UIinfo={"groupes":("Outils métier",)},
15859 MATER =SIMP(statut='o',typ=(mater) ),
15860 DEF_EQUI =FACT(statut='f',min=1,max=1,
15861 METHODE =SIMP(statut='f',typ='TXM',max='**',defaut="UTO_2_3",
15862 into=("UTO_2_3",) ),
15863 EPAIS =SIMP(statut='o',typ='R'),
15864 LONG_FISS =SIMP(statut='o',typ='R'),
15865 LONG_LIGA_INT =SIMP(statut='o',typ='R'),
15866 DEXT =SIMP(statut='o',typ='R'),
15867 TEMP_ANALYSE =SIMP(statut='f',typ='R'),
15870 #& MODIF COMMANDE DATE 02/12/2002 AUTEUR CIBHHLV L.VIVAN
15871 # CONFIGURATION MANAGEMENT OF EDF VERSION
15872 # ======================================================================
15873 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15874 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15875 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15876 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15877 # (AT YOUR OPTION) ANY LATER VERSION.
15879 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15880 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15881 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15882 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15884 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15885 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15886 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15887 # ======================================================================
15888 POST_USURE=OPER(nom="POST_USURE",op=153,sd_prod=tabl_post_usur,docu="U4.84.05-d1",reentrant='f',
15889 UIinfo={"groupes":("Post traitements",)},
15890 fr="Calcul des volumes d'usure et des profondeurs d'usure",
15891 regles=(UN_PARMI('TUBE_NEUF','RESU_GENE','PUIS_USURE'),
15892 PRESENT_PRESENT('RESU_GENE','NOEUD','LOI_USURE'),
15893 PRESENT_PRESENT('PUIS_USURE','LOI_USURE'),),
15894 TUBE_NEUF =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15895 ETAT_INIT =FACT(statut='f',min=1,max=1,
15896 TABL_USURE =SIMP(statut='f',typ=tabl_post_usur),
15897 INST_INIT =SIMP(statut='f',typ='R'),
15899 RESU_GENE =SIMP(statut='f',typ=tran_gene),
15900 NOEUD =SIMP(statut='f',typ=no,max=1),
15901 INST_INIT =SIMP(statut='f',typ='R',defaut=-1.0E+0),
15902 INST_FIN =SIMP(statut='f',typ='R'),
15903 NB_BLOC =SIMP(statut='f',typ='I',defaut= 1 ),
15904 PUIS_USURE =SIMP(statut='f',typ='R'),
15905 LOI_USURE =SIMP(statut='f',typ='TXM',into=("ARCHARD","KWU_EPRI","EDF_MZ")),
15906 b_archard =BLOC(condition = "LOI_USURE == 'ARCHARD'",
15907 regles=(UN_PARMI('MOBILE','MATER_USURE','SECTEUR'),
15908 EXCLUS('MATER_USURE','OBSTACLE'),
15909 EXCLUS('MOBILE','USURE_OBST'),),
15910 MOBILE =FACT(statut='f',min=1,max=1,
15911 COEF_USURE =SIMP(statut='o',typ='R'),
15913 OBSTACLE =FACT(statut='f',min=1,max=1,
15914 COEF_USURE =SIMP(statut='o',typ='R'),
15916 SECTEUR =FACT(statut='f',min=1,max='**',
15917 CONTACT =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
15918 "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
15919 "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
15920 COEF_USUR_MOBILE=SIMP(statut='f',typ='R'),
15921 COEF_USUR_OBST =SIMP(statut='f',typ='R'),
15922 ANGL_INIT =SIMP(statut='f',typ='R'),
15923 ANGL_FIN =SIMP(statut='f',typ='R'),
15925 MATER_USURE =SIMP(statut='f',typ='TXM'),
15926 USURE_OBST =SIMP(statut='f',typ='TXM',into=("OUI",)),
15928 b_kwu_epri =BLOC(condition = "LOI_USURE == 'KWU_EPRI'",
15929 regles=(UN_PARMI('MOBILE','MATER_USURE'),
15930 EXCLUS('MATER_USURE','OBSTACLE'),
15931 EXCLUS('MOBILE','USURE_OBST'),),
15932 MOBILE =FACT(statut='f',min=1,max=1,
15933 COEF_FNOR =SIMP(statut='f',typ='R'),
15934 COEF_VTAN =SIMP(statut='f',typ='R'),
15935 COEF_USURE =SIMP(statut='f',typ='R'),
15936 COEF_K =SIMP(statut='f',typ='R',defaut=5.0E+0),
15937 COEF_C =SIMP(statut='f',typ='R',defaut=10.0E+0),
15939 OBSTACLE =FACT(statut='f',min=1,max=1,
15940 COEF_FNOR =SIMP(statut='f',typ='R' ),
15941 COEF_VTAN =SIMP(statut='f',typ='R' ),
15942 COEF_USURE =SIMP(statut='o',typ='R'),
15943 COEF_K =SIMP(statut='f',typ='R',defaut=5.0E+0),
15944 COEF_C =SIMP(statut='f',typ='R',defaut=10.0E+0),
15946 MATER_USURE =SIMP(statut='f',typ='TXM'),
15947 USURE_OBST =SIMP(statut='f',typ='TXM',into=("OUI",)),
15948 FNOR_MAXI =SIMP(statut='f',typ='R' ),
15949 VTAN_MAXI =SIMP(statut='f',typ='R' ),
15951 b_edf_mz =BLOC(condition = "LOI_USURE == 'EDF_MZ'",
15952 regles=(UN_PARMI('MOBILE','MATER_USURE'),
15953 EXCLUS('MATER_USURE','OBSTACLE'),
15954 EXCLUS('MOBILE','USURE_OBST'),),
15955 MOBILE =FACT(statut='f',min=1,max=1,
15956 COEF_USURE =SIMP(statut='f',typ='R',defaut=1.0E-13),
15957 COEF_B =SIMP(statut='f',typ='R',defaut=1.2E+0),
15958 COEF_N =SIMP(statut='f',typ='R',defaut=2.44E-8),
15959 COEF_S =SIMP(statut='f',typ='R',defaut=1.14E-16),
15961 OBSTACLE =FACT(statut='f',min=1,max=1,
15962 COEF_USURE =SIMP(statut='o',typ='R',defaut=1.0E-13),
15963 COEF_B =SIMP(statut='f',typ='R',defaut=1.2E+0),
15964 COEF_N =SIMP(statut='f',typ='R',defaut=2.44E-8),
15965 COEF_S =SIMP(statut='f',typ='R',defaut=1.14E-16),
15967 MATER_USURE =SIMP(statut='f',typ='TXM'),
15968 USURE_OBST =SIMP(statut='f',typ='TXM',into=("OUI",)),
15970 b_tube_neuf =BLOC(condition = "TUBE_NEUF == 'OUI'",
15971 TABL_USURE =SIMP(statut='o',typ=tabl_post_usur),
15972 INST =SIMP(statut='f',typ='R'),
15974 CONTACT =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
15975 "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
15976 "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
15977 RAYON_MOBILE =SIMP(statut='f',typ='R'),
15978 RAYON_OBST =SIMP(statut='f',typ='R'),
15979 LARGEUR_OBST =SIMP(statut='f',typ='R'),
15980 ANGL_INCLI =SIMP(statut='f',typ='R'),
15981 ANGL_ISTHME =SIMP(statut='f',typ='R'),
15982 ANGL_IMPACT =SIMP(statut='f',typ='R'),
15983 INST =SIMP(statut='f',typ='R',max='**'),
15984 LIST_INST =SIMP(statut='f',typ=listr8),
15985 COEF_INST =SIMP(statut='f',typ='R',defaut=1.0E+0),
15986 INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
15987 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
15989 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
15990 # CONFIGURATION MANAGEMENT OF EDF VERSION
15991 # ======================================================================
15992 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
15993 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15994 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15995 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15996 # (AT YOUR OPTION) ANY LATER VERSION.
15998 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15999 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16000 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16001 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16003 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16004 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16005 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16006 # ======================================================================
16007 POST_ZAC=OPER(nom="POST_ZAC",op= 175,sd_prod=mult_elas,docu="U4.83.21-b",reentrant='n',
16008 UIinfo={"groupes":("Post traitements",)},
16009 fr="Donne l'état adapté ou accommodé d'une structure sous chargement cyclique élastique affine ou non",
16010 MODELE =SIMP(statut='o',typ=modele),
16011 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
16012 EXCIT =FACT(statut='o',min=1,max='**',
16013 CHARGE =SIMP(statut='o',typ=char_meca),
16014 FONC_MULT =SIMP(statut='f',typ=fonction),
16015 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",into=("FIXE_CSTE",)),
16017 EVOL_ELAS =SIMP(statut='o',typ=evol_elas),
16018 b_evol_elas =BLOC(condition="EVOL_ELAS != None",
16019 regles=(UN_PARMI('NUME_ORDRE','LIST_INST','INST'),),
16020 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
16021 LIST_INST =SIMP(statut='f',typ=listr8),
16022 INST =SIMP(statut='f',typ='R',max='**'),
16024 TEMP_ZAC =SIMP(statut='f',typ='R',defaut=0.0E+0),
16025 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
16026 b_evol_noli =BLOC(condition="EVOL_NOLI != None",
16027 INST_MAX =SIMP(statut='o',typ='R'),
16029 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
16030 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
16033 #& MODIF COMMANDE DATE 20/01/2003 AUTEUR DURAND C.DURAND
16034 # CONFIGURATION MANAGEMENT OF EDF VERSION
16035 # ======================================================================
16036 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16037 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16038 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16039 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16040 # (AT YOUR OPTION) ANY LATER VERSION.
16042 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16043 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16044 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16045 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16047 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16048 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16049 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16050 # ======================================================================
16051 POURSUITE=MACRO(nom="POURSUITE",op=ops.build_poursuite,repetable='n',fr="Poursuite d une étude",
16052 docu="U4.11.03-g2",sd_prod = ops.POURSUITE,
16053 UIinfo={"groupes":("Gestion du travail",)},
16054 op_init = ops.POURSUITE_context,fichier_ini = 1,
16055 PAR_LOT =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
16056 into=("OUI","NON"),defaut="OUI"),
16057 BASE =FACT(fr="définition des parmètres associés aux bases JEVEUX",
16058 statut='f',min=1,max=3,
16059 FICHIER =SIMP(fr="nom de la base",statut='o',typ='TXM'),
16060 TITRE =SIMP(statut='f',typ='TXM'),
16061 CAS =SIMP(statut='f',typ='TXM'),
16062 NMAX_ENRE =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
16063 LONG_ENRE =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
16064 LONG_REPE =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
16066 IMPRESSION =FACT(statut='f',min=1,max=3,
16067 FICHIER =SIMP(statut='o',typ='TXM'),
16068 UNITE =SIMP(statut='o',typ='I'),
16070 CATALOGUE =FACT(statut='f',min=1,max=10,
16071 FICHIER =SIMP(statut='o',typ='TXM'),
16072 TITRE =SIMP(statut='f',typ='TXM'),
16073 UNITE =SIMP(statut='f',typ='I'),
16075 DEBUG =FACT(fr="option de déboggage reservée aux développeurs",
16076 statut='f',min=1,max=1,
16077 JXVERI =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
16078 statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
16079 JEVEUX =SIMP(fr="force les déchargement sur disque",
16080 statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
16081 ENVIMA =SIMP(fr="imprime les valeurs définies dans ENVIMA",
16082 statut='f',typ='TXM',into=('TES',)),
16084 MEMOIRE =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=1,max=1,
16085 GESTION =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
16086 TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
16087 TAILLE =SIMP(statut='f',typ='I'),
16088 TAILLE_BLOC =SIMP(statut='f',typ='R',defaut=800.),
16089 PARTITION =SIMP(statut='f',typ='R' ),
16091 CODE =FACT("définition d un nom pour l'esemble d'une étude",
16092 statut='f',min=1,max=1,
16093 NOM =SIMP(statut='o',typ='TXM'),
16094 UNITE =SIMP(statut='f',typ='I',defaut=15),
16097 #& MODIF COMMANDE DATE 21/12/2000 AUTEUR DURAND C.DURAND
16098 # CONFIGURATION MANAGEMENT OF EDF VERSION
16099 # ======================================================================
16100 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16101 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16102 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16103 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16104 # (AT YOUR OPTION) ANY LATER VERSION.
16106 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16107 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16108 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16109 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16111 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16112 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16113 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16114 # ======================================================================
16115 PRE_CHAR_IDEAS=PROC(nom="PRE_CHAR_IDEAS",op=100,docu="U7.01.02-e",
16116 fr="Conversion de conditions aux limites et chargements IDEAS en commandes Aster",
16117 UNITE_IDEAS =SIMP(statut='f',typ='I',defaut=19),
16118 UNITE_ASTER =SIMP(statut='f',typ='I',defaut=21),
16119 MODELE =SIMP(statut='o',typ=modele),
16121 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16122 # CONFIGURATION MANAGEMENT OF EDF VERSION
16123 # ======================================================================
16124 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16125 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16126 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16127 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16128 # (AT YOUR OPTION) ANY LATER VERSION.
16130 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16131 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16132 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16133 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16135 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16136 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16137 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16138 # ======================================================================
16139 PRE_GIBI=PROC(nom="PRE_GIBI",op=49,docu="U7.01.11-f",
16140 UIinfo={"groupes":("Gestion du travail",)},
16141 fr="Conversion d un fichier de maillage GIBI",
16142 UNITE_GIBI =SIMP(statut='f',typ='I',defaut=19),
16143 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=20),
16145 #& MODIF COMMANDE DATE 13/01/2003 AUTEUR DURAND C.DURAND
16146 # CONFIGURATION MANAGEMENT OF EDF VERSION
16147 # ======================================================================
16148 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16149 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16150 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16151 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16152 # (AT YOUR OPTION) ANY LATER VERSION.
16154 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16155 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16156 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16157 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16159 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16160 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16161 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16162 # ======================================================================
16164 PRE_GMSH=PROC(nom="PRE_GMSH",op=47,docu="U7.01.01-f",
16165 UIinfo={"groupes":("Gestion du travail",)},
16166 fr="Conversion d un fichier universel GMSH au format Aster",
16167 UNITE_GMSH =SIMP(statut='f',typ='I',defaut=19),
16168 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=20),
16170 #& MODIF COMMANDE DATE 02/12/2002 AUTEUR CIBHHLV L.VIVAN
16171 # CONFIGURATION MANAGEMENT OF EDF VERSION
16172 # ======================================================================
16173 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16174 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16175 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16176 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16177 # (AT YOUR OPTION) ANY LATER VERSION.
16179 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16180 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16181 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16182 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16184 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16185 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16186 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16187 # ======================================================================
16188 PRE_IDEAS=PROC(nom="PRE_IDEAS",op=47,docu="U7.01.01-f",
16189 UIinfo={"groupes":("Gestion du travail",)},
16190 fr="Conversion d un fichier universel IDEAS-SUPERTAB au format Aster",
16191 UNITE_IDEAS =SIMP(statut='f',typ='I',defaut=19),
16192 UNITE_MAILLAGE =SIMP(statut='f',typ='I',defaut=20),
16193 CREA_GROUP_COUL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
16195 #& MODIF COMMANDE DATE 20/01/2003 AUTEUR DURAND C.DURAND
16196 # CONFIGURATION MANAGEMENT OF EDF VERSION
16197 # ======================================================================
16198 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16199 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16200 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16201 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16202 # (AT YOUR OPTION) ANY LATER VERSION.
16204 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16205 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16206 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16207 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16209 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16210 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16211 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16212 # ======================================================================
16213 PROCEDURE=MACRO(nom="PROCEDURE",op=ops.build_procedure, docu="U4.13.03-e",
16214 UIinfo={"groupes":("Gestion du travail",)},
16215 fr="Nommer le fichier de commandes secondaires",
16216 NOM =SIMP(statut='f',typ='TXM',defaut=" "),
16218 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16219 # CONFIGURATION MANAGEMENT OF EDF VERSION
16220 # ======================================================================
16221 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16222 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16223 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16224 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16225 # (AT YOUR OPTION) ANY LATER VERSION.
16227 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16228 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16229 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16230 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16232 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16233 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16234 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16235 # ======================================================================
16236 def prod_matr_cham_prod(MATR_ASSE,**args):
16237 if AsType(MATR_ASSE) == matr_asse_depl_r : return cham_no_depl_r
16238 if AsType(MATR_ASSE) == matr_asse_depl_c : return cham_no_depl_c
16239 if AsType(MATR_ASSE) == matr_asse_temp_r : return cham_no_temp_r
16240 if AsType(MATR_ASSE) == matr_asse_pres_c : return cham_no_pres_c
16241 raise AsException("type de concept resultat non prevu")
16243 PROD_MATR_CHAM=OPER(nom="PROD_MATR_CHAM",op= 156,sd_prod=prod_matr_cham_prod,
16244 fr="Effectuer le produit d une matrice par un vecteur",
16245 docu="U4.72.06-b",reentrant='n',
16246 UIinfo={"groupes":("Résultats et champs",)},
16247 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_pres_c ) ),
16248 CHAM_NO =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_temp_r,cham_no_pres_c ) ),
16249 TITRE =SIMP(statut='f',typ='TXM',max='**'),
16251 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16252 # CONFIGURATION MANAGEMENT OF EDF VERSION
16253 # ======================================================================
16254 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16255 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16256 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16257 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16258 # (AT YOUR OPTION) ANY LATER VERSION.
16260 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16261 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16262 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16263 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16265 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16266 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16267 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16268 # ======================================================================
16269 # RESPONSABLE VABHHTS J.PELLET
16270 def proj_champ_prod(RESULTAT=None,CHAM_NO_REFE=None,**args ):
16271 if AsType(RESULTAT) == evol_ther : return evol_ther
16272 if AsType(RESULTAT) == evol_elas : return evol_elas
16273 if AsType(RESULTAT) == evol_noli : return evol_noli
16274 if AsType(RESULTAT) == evol_char : return evol_char
16275 if AsType(CHAM_NO_REFE) == cham_no_depl_r : return cham_no_depl_r
16276 if AsType(CHAM_NO_REFE) == cham_no_depl_c : return cham_no_depl_c
16277 if AsType(CHAM_NO_REFE) == cham_no_pres_c : return cham_no_pres_c
16278 if AsType(CHAM_NO_REFE) == cham_no_temp_r : return cham_no_temp_r
16279 if AsType(CHAM_NO_REFE) == cham_no_epsi_r : return cham_no_epsi_r
16280 if AsType(CHAM_NO_REFE) == cham_no_sief_r : return cham_no_sief_r
16281 if AsType(CHAM_NO_REFE) == cham_no_flux_r : return cham_no_flux_r
16282 raise AsException("type de concept resultat non prevu")
16284 PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,docu="U4.72.05-d2",reentrant='n',
16285 UIinfo={"groupes":("Résultats et champs",)},
16286 fr="Projection d'un champ aux noeuds sur les noeuds d'un autre maillage",
16288 METHODE =SIMP(statut='f',typ='TXM',defaut="NUAGE_DEG_1",
16289 into=("NUAGE_DEG_0","NUAGE_DEG_1","ELEM",) ),
16290 b_nuage =BLOC(condition="(METHODE=='NUAGE_DEG_1') or (METHODE=='NUAGE_DEG_0')",
16291 fr="Lissage d'un nuage de points",
16292 CHAM_NO =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_pres_c,cham_no_temp_r,
16293 cham_no_epsi_r,cham_no_sief_r,cham_no_flux_r)),
16294 CHAM_NO_REFE =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_pres_c,cham_no_temp_r,
16295 cham_no_epsi_r,cham_no_sief_r,cham_no_flux_r)),
16297 b_elem =BLOC(condition="METHODE=='ELEM'",
16298 fr="Utilisation des fonctions de forme du maillage initial",
16299 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','LIST_INST','LIST_FREQ','LIST_ORDRE'),
16300 EXCLUS('TOUT_CHAM','NOM_CHAM',), ),
16301 RESULTAT =SIMP(statut='o',typ=(evol_ther,evol_elas,evol_noli,evol_char) ),
16302 MODELE_1 =SIMP(statut='o',typ=modele),
16303 MODELE_2 =SIMP(statut='o',typ=modele),
16305 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16306 NOM_CHAM =SIMP(statut='f',typ='TXM',max='**'),
16308 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16309 NUME_ORDRE =SIMP(statut='f',typ='I',max='**' ),
16310 LIST_ORDRE =SIMP(statut='f',typ=listis),
16311 INST =SIMP(statut='f',typ='R',max='**' ),
16312 LIST_INST =SIMP(statut='f',typ=listr8),
16313 FREQ =SIMP(statut='f',typ='R',max='**' ),
16314 LIST_FREQ =SIMP(statut='f',typ=listr8),
16317 VIS_A_VIS =FACT(statut='f',min=1,max='**',
16318 regles=(AU_MOINS_UN('TOUT_1','GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
16319 AU_MOINS_UN('TOUT_2','GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),),
16320 TOUT_1 =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16321 GROUP_MA_1 =SIMP(statut='f',typ=grma,max='**'),
16322 MAILLE_1 =SIMP(statut='f',typ=ma,max='**'),
16323 GROUP_NO_1 =SIMP(statut='f',typ=grno,max='**'),
16324 NOEUD_1 =SIMP(statut='f',typ=no,max='**'),
16325 TOUT_2 =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16326 GROUP_MA_2 =SIMP(statut='f',typ=grma,max='**'),
16327 MAILLE_2 =SIMP(statut='f',typ=ma,max='**'),
16328 GROUP_NO_2 =SIMP(statut='f',typ=grno,max='**'),
16329 NOEUD_2 =SIMP(statut='f',typ=no,max='**'),
16332 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
16334 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16335 # CONFIGURATION MANAGEMENT OF EDF VERSION
16336 # ======================================================================
16337 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16338 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16339 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16340 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16341 # (AT YOUR OPTION) ANY LATER VERSION.
16343 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16344 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16345 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16346 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16348 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16349 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16350 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16351 # ======================================================================
16352 def matr_asse_gene_prod(MATR_ASSE,MATR_ASSE_GENE,**args):
16353 if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_gene_r
16354 if AsType(MATR_ASSE_GENE) == matr_asse_gene_r : return matr_asse_gene_r
16355 if AsType(MATR_ASSE) == matr_asse_depl_c : return matr_asse_gene_c
16356 if AsType(MATR_ASSE_GENE) == matr_asse_gene_c : return matr_asse_gene_c
16357 raise AsException("type de concept resultat non prevu")
16359 PROJ_MATR_BASE=OPER(nom="PROJ_MATR_BASE",op= 71,sd_prod=matr_asse_gene_prod,
16360 fr="Projection d une matrice assemblée sur une base (modale ou de RITZ)",
16361 docu="U4.63.12-f1",reentrant='n',
16362 UIinfo={"groupes":("Matrices/vecteurs",)},
16363 regles=(UN_PARMI('MATR_ASSE','MATR_ASSE_GENE'),),
16364 BASE =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene ) ),
16365 NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
16366 MATR_ASSE =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_depl_c) ),
16367 MATR_ASSE_GENE =SIMP(statut='f',typ=(matr_asse_gene_r,matr_asse_gene_c) ),
16370 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16371 # CONFIGURATION MANAGEMENT OF EDF VERSION
16372 # ======================================================================
16373 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16374 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16375 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16376 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16377 # (AT YOUR OPTION) ANY LATER VERSION.
16379 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16380 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16381 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16382 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16384 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16385 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16386 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16387 # ======================================================================
16388 def proj_mesu_modal_prod(MODELE_MESURE,**args):
16389 vale=MODELE_MESURE['NOM_PARA']
16390 if vale == 'INST' : return tran_gene
16391 if vale == 'FREQ' : return harm_gene
16392 if vale == 'DEFORMEE' : return mode_gene
16393 raise AsException("type de concept resultat non prevu")
16395 PROJ_MESU_MODAL=OPER(nom="PROJ_MESU_MODAL",op= 193,
16396 sd_prod=proj_mesu_modal_prod,
16397 docu="U4.73.01-a",reentrant='n',
16398 UIinfo={"groupes":("Résultats et champs",)},
16399 fr="Calcul de coordonnees generalisees de mesure experimentale relatives a une base de projection",
16401 MODELE_CALCUL =FACT(statut='o',min=1,max=1,
16402 MODELE =SIMP(statut='o',typ=(modele) ),
16403 BASE =SIMP(statut='o',typ=(mode_meca,base_modale,) ),
16405 MODELE_MESURE =FACT(statut='o',min=1,max=1,
16406 MODELE =SIMP(statut='o',typ=(modele) ),
16407 MESURE =SIMP(statut='o',typ=(dyna_trans,dyna_harmo,base_modale,) ),
16408 NOM_PARA =SIMP(statut='f',typ='TXM',defaut="INST",into=("INST","FREQ","DEFORMEE",),),
16409 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE","SIEF_NOEU","EPSI_NOEU_DEPL",) ),
16411 CORR_MANU =FACT(statut='f',min=1,max='**',
16412 regles=(PRESENT_PRESENT('NOEU_CALCUL','NOEU_MESURE'),),
16413 NOEU_CALCUL =SIMP(statut='f',typ=no),
16414 NOEU_MESURE =SIMP(statut='f',typ=no),
16416 RESOLUTION =FACT(statut='f',min=1,max=1,
16417 METHODE =SIMP(statut='f',typ='TXM',defaut="LU",into=("LU","SVD",) ),
16418 b_svd =BLOC(condition="METHODE=='SVD'",
16419 EPS=SIMP(statut='f',typ='R',defaut=0. ),
16421 REGUL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","NORM_MIN","TIK_RELA",) ),
16422 b_regul =BLOC(condition="REGUL!='NON'",
16423 regles=(PRESENT_ABSENT('COEF_PONDER','COEF_PONDER_F', ),),
16424 COEF_PONDER =SIMP(statut='f',typ='R',max='**',defaut=0. ),
16425 COEF_PONDER_F =SIMP(statut='f',typ=(fonction),max='**' ),
16430 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16431 # CONFIGURATION MANAGEMENT OF EDF VERSION
16432 # ======================================================================
16433 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16434 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16435 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16436 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16437 # (AT YOUR OPTION) ANY LATER VERSION.
16439 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16440 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16441 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16442 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16444 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16445 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16446 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16447 # ======================================================================
16448 PROJ_SPEC_BASE=OPER(nom="PROJ_SPEC_BASE",op= 146,sd_prod=tabl_intsp,docu="U4.63.14-c",reentrant='n',
16449 UIinfo={"groupes":("Matrices/vecteurs",)},
16450 fr="Projection d un ou plusieurs spectres de turbulenc sur un ensemble de bases modales ",
16451 regles=(UN_PARMI('BASE_ELAS_FLUI','MODE_MECA','CHAM_NO'),
16452 ENSEMBLE('FREQ_INIT','FREQ_FIN','NB_POIN'),),
16453 SPEC_TURB =SIMP(statut='o',typ=spectre,max='**' ),
16454 BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu ),
16455 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
16456 CHAM_NO =SIMP(statut='f',typ=cham_no_depl_r ),
16457 FREQ_INIT =SIMP(statut='f',typ='R',val_min=0.E+0 ),
16458 FREQ_FIN =SIMP(statut='f',typ='R',val_min=0.E+0 ),
16459 NB_POIN =SIMP(statut='f',typ='I' ),
16460 OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG")),
16461 GROUP_MA =SIMP(statut='f',typ=grma),
16462 # Quel est le type attendu derriere MODELE_INTERFACE
16463 MODELE_INTERFACE=SIMP(statut='f',typ=modele),
16464 VECT_X =SIMP(statut='f',typ='R',min=3,max=3 ),
16465 VECT_Y =SIMP(statut='f',typ='R',min=3,max=3 ),
16466 ORIG_AXE =SIMP(statut='f',typ='R',min=3,max=3 ),
16467 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
16469 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
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 PROJ_VECT_BASE=OPER(nom="PROJ_VECT_BASE",op= 72,sd_prod=vect_asse_gene,
16488 fr="Projection d un vecteur assemblé sur une base (modale ou de RITZ)",
16489 docu="U4.63.13-f1",reentrant='n',
16490 UIinfo={"groupes":("Matrices/vecteurs",)},
16491 regles=(UN_PARMI('VECT_ASSE','VECT_ASSE_GENE'),),
16492 BASE =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene ) ),
16493 NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
16494 TYPE_VECT =SIMP(statut='f',typ='TXM',defaut="FORC"),
16495 VECT_ASSE =SIMP(statut='f',typ=cham_no_depl_r ),
16496 VECT_ASSE_GENE =SIMP(statut='f',typ=vect_asse_gene ),
16498 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16499 # CONFIGURATION MANAGEMENT OF EDF VERSION
16500 # ======================================================================
16501 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16502 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16503 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16504 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16505 # (AT YOUR OPTION) ANY LATER VERSION.
16507 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16508 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16509 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16510 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16512 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16513 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16514 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16515 # ======================================================================
16516 RECA_WEIBULL=OPER(nom="RECA_WEIBULL",op= 197,sd_prod=tabl_reca_weib,
16517 fr=" ",docu="U4.82.06-a",reentrant='n',
16518 UIinfo={"groupes":("Post traitements",)},
16519 LIST_PARA =SIMP(statut='o',typ='TXM',max='**',into=("SIGM_REFE","M",) ),
16520 RESU =FACT(statut='o',min=1,max='**',
16521 regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST',),
16522 AU_MOINS_UN('TOUT','GROUP_MA','MAILLE', ),),
16523 EVOL_NOLI =SIMP(statut='o',typ=(evol_noli) ),
16524 MODELE =SIMP(statut='o',typ=(modele) ),
16525 CHAM_MATER =SIMP(statut='o',typ=(cham_mater) ),
16526 TEMPE =SIMP(statut='f',typ='R' ),
16527 LIST_INST_RUPT =SIMP(statut='o',typ='R',max='**' ),
16528 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16529 NUME_ORDRE =SIMP(statut='f',typ='I',max='**' ),
16530 INST =SIMP(statut='f',typ='R',max='**' ),
16531 LIST_INST =SIMP(statut='f',typ=(listr8) ),
16532 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16533 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
16534 MAILLE =SIMP(statut='f',typ=ma,max='**'),
16535 COEF_MULT =SIMP(statut='f',typ='R',defaut= 1.E0 ),
16537 OPTION =SIMP(statut='f',typ='TXM',defaut="SIGM_ELGA",into=("SIGM_ELGA","SIGM_ELMOY",) ),
16538 CORR_PLAST =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
16539 METHODE =SIMP(statut='f',typ='TXM',defaut="MAXI_VRAI",into=("MAXI_VRAI","REGR_LINE",) ),
16540 INCO_GLOB_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16541 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
16542 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
16544 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16545 # CONFIGURATION MANAGEMENT OF EDF VERSION
16546 # ======================================================================
16547 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16548 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16549 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16550 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16551 # (AT YOUR OPTION) ANY LATER VERSION.
16553 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16554 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16555 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16556 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16558 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16559 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16560 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16561 # ======================================================================
16562 # RESPONSABLE MCOURTOI M.COURTOIS
16563 def recu_fonction_prod(RESULTAT=None,TABLE=None,OBSTACLE=None,
16564 RESU_GENE=None,BASE_ELAS_FLUI=None,CHAM_GD=None,
16565 TYPE_RESU=None,**args):
16566 if AsType(RESULTAT) == dyna_harmo : return fonction_c
16567 # On ne sait pas interpreter les deux conditions suivantes
16569 if TYPE_RESU != None :
16570 if TYPE_RESU == "FONCTION_C" : return fonction_c
16571 if TYPE_RESU == "FONCTION" : return fonction
16574 if RESU_GENE != None : return fonction
16575 if BASE_ELAS_FLUI != None : return fonction
16576 if RESULTAT != None : return fonction
16577 if CHAM_GD != None : return fonction
16578 if OBSTACLE != None : return fonction
16579 raise AsException("type de concept resultat non prevu")
16581 RECU_FONCTION=OPER(nom="RECU_FONCTION",op= 90,sd_prod=recu_fonction_prod,
16582 fr="Extraire sous forme d une fonction, l évolution temporelle d une composante d un champ ou d une table",
16583 docu="U4.32.03-f2",reentrant='n',
16584 UIinfo={"groupes":("Fonction",)},
16585 regles=(UN_PARMI('CHAM_GD','RESULTAT','RESU_GENE','TABLE','BASE_ELAS_FLUI','OBSTACLE'),),
16587 CHAM_GD =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r,cham_elem_sief_r,
16588 cham_elem_vari_r,cham_elem_epsi_r,cham_elem_flux_r,
16589 cham_elem_pres_r,cham_elem_meta_r ) ),
16590 RESULTAT =SIMP(statut='f',typ=(evol_elas,dyna_trans,evol_noli,evol_ther,dyna_harmo ) ),
16591 RESU_GENE =SIMP(statut='f',typ=tran_gene),
16592 # concept table à créer
16593 TABLE =SIMP(statut='f',typ=table),
16594 BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu),
16595 REPERE =SIMP(statut='f',typ='TXM',into=("POLAIRE","GLOBAL") ),
16596 OBSTACLE =SIMP(statut='f',typ=obstacle),
16598 b_tran_gene = BLOC ( condition = "RESU_GENE != None",
16599 fr="Récupération de la fonction concernant les chocs à partir d un concept TRAN_GENE",
16600 regles=(PRESENT_PRESENT('SOUS_STRUC','INTITULE'),
16601 EXCLUS('MULT_APPUI','CORR_STAT'),),
16602 MULT_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16603 CORR_STAT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16604 ACCE_MONO_APPUI =SIMP(statut='f',typ=fonction),
16605 PARA_X =SIMP(statut='f',typ='TXM' ),
16606 PARA_Y =SIMP(statut='f',typ='TXM' ),
16607 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
16608 LIST_PARA =SIMP(statut='f',typ=listr8 ),
16609 INTITULE =SIMP(statut='f',typ='TXM' ),
16611 b_base_elas_flui = BLOC ( condition = "BASE_ELAS_FLUI != None",
16612 fr="Récupération de la fonction à partir d un concept melasflu",
16613 regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE'),),
16614 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16615 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
16616 NUME_MODE =SIMP(statut='o',typ='I' ),
16617 PARA_X =SIMP(statut='o',typ='TXM',into=("VITE_FLU",) ),
16618 PARA_Y =SIMP(statut='o',typ='TXM',into=("FREQ","AMOR") ),
16620 b_table = BLOC ( condition = "TABLE != None",fr="Récupération de la fonction à partir d un concept table",
16621 regles=(UN_PARMI('PARA_X','NOM_PARA_TABL'),
16622 PRESENT_PRESENT('PARA_X','PARA_Y'),),
16623 PARA_X =SIMP(statut='f',typ='TXM',
16624 fr="1ère colonne de la table qui définit la fonction à récupérer", ),
16625 PARA_Y =SIMP(statut='f',typ='TXM',
16626 fr="2ème colonne de la table qui définit la fonction à récupérer", ),
16627 NOM_PARA_TABL =SIMP(statut='f',typ='TXM',into=("FONCTION",),
16628 fr="Nom du paramètre de la table à qui est associé la fonction" ),
16629 b_nom_para_tabl = BLOC (condition = "NOM_PARA_TABL != None",
16630 TYPE_RESU =SIMP(statut='f',typ='TXM',defaut="FONCTION",into=("FONCTION","FONCTION_C") ),
16633 FILTRE =FACT(statut='f',min=1,max='**',
16634 NOM_PARA =SIMP(statut='o',typ='TXM' ),
16635 CRIT_COMP =SIMP(statut='f',typ='TXM',defaut="EQ",
16636 into=("EQ","LT","GT","NE","LE","GE","VIDE",
16637 "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
16638 b_vale =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
16639 regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
16640 VALE =SIMP(statut='f',typ='R' ),
16641 VALE_I =SIMP(statut='f',typ='I' ),
16642 VALE_C =SIMP(statut='f',typ='C' ),
16643 VALE_K =SIMP(statut='f',typ='TXM' ),),
16645 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16646 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16650 b_resu = BLOC ( condition = "RESULTAT != None", fr="Opérandes en cas de RESULTAT",
16652 # A voir par Mathieu Courtois : il existe de tests (SDNX300B) qui ne satisfont pas ce UN_PARMI
16653 # UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','TOUT_INST','LIST_INST','FREQ','LIST_FREQ'),
16654 AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC','NOM_PARA_RESU'),
16655 PRESENT_PRESENT('MAILLE','NOM_CMP'),
16656 PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
16657 PRESENT_PRESENT('NOEUD','NOM_CMP'),
16658 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16659 PRESENT_PRESENT('POINT','NOM_CMP'),
16660 EXCLUS('POINT','NOEUD'),
16661 EXCLUS('GROUP_MA','MAILLE'),
16662 EXCLUS('GROUP_NO','NOEUD'),
16663 EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),
16664 UN_PARMI('NOM_CHAM','NOM_PARA_RESU'),),
16665 NOM_CHAM =SIMP(statut='f',typ='TXM' ),
16666 NOM_PARA_RESU =SIMP(statut='f',typ='TXM' ),
16667 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16668 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
16669 LIST_ORDRE =SIMP(statut='f',typ=listis ),
16670 TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16671 INST =SIMP(statut='f',typ='R',max='**'),
16672 LIST_INST =SIMP(statut='f',typ=listr8 ),
16673 FREQ =SIMP(statut='f',typ='R',max='**'),
16674 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
16675 b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
16676 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16677 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16678 INTERP_NUME =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN") ),
16680 NOM_CMP =SIMP(statut='f',typ='TXM' ),
16682 MAILLE =SIMP(statut='f',typ=ma),
16683 GROUP_MA =SIMP(statut='f',typ=grma),
16684 NOEUD =SIMP(statut='f',typ=no),
16685 GROUP_NO =SIMP(statut='f',typ=grno),
16686 POINT =SIMP(statut='f',typ='I' ),
16687 SOUS_POINT =SIMP(statut='f',typ='I' ),
16688 NOEUD_CHOC =SIMP(statut='f',typ=no),
16689 GROUP_NO_CHOC =SIMP(statut='f',typ=grno),
16692 b_resu_gene = BLOC ( condition = "RESU_GENE != None", fr="Opérandes en cas de RESU_GENE",
16693 # A voir par Mathieu Courtois : il existe de tests (SDNX300B) qui ne satisfont pas ce UN_PARMI
16694 # regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','TOUT_INST','LIST_INST','FREQ','LIST_FREQ'),),
16695 NOM_CHAM =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE","PTEM") ),
16696 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16697 NUME_ORDRE =SIMP(statut='f',typ='I',max='**'),
16698 LIST_ORDRE =SIMP(statut='f',typ=listis ),
16699 TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16700 INST =SIMP(statut='f',typ='R',max='**'),
16701 LIST_INST =SIMP(statut='f',typ=listr8 ),
16702 FREQ =SIMP(statut='f',typ='R',max='**'),
16703 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
16704 b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
16705 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16706 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16707 INTERP_NUME =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN") ),
16709 b_local_cham = BLOC ( condition = "NOM_CHAM!='PTEM'", fr="Opérandes de localisation du champ",
16710 regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
16711 PRESENT_PRESENT('MAILLE','NOM_CMP'),
16712 PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
16713 PRESENT_PRESENT('NOEUD','NOM_CMP'),
16714 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16715 PRESENT_PRESENT('POINT','NOM_CMP'),
16716 EXCLUS('POINT','NOEUD'),
16717 EXCLUS('GROUP_MA','MAILLE'),
16718 EXCLUS('GROUP_NO','NOEUD'),
16719 EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
16720 NOM_CMP =SIMP(statut='f',typ='TXM' ),
16722 MAILLE =SIMP(statut='f',typ=ma),
16723 GROUP_MA =SIMP(statut='f',typ=grma),
16724 NOEUD =SIMP(statut='f',typ=no),
16725 GROUP_NO =SIMP(statut='f',typ=grno),
16726 POINT =SIMP(statut='f',typ='I' ),
16727 SOUS_POINT =SIMP(statut='f',typ='I' ),
16728 NOEUD_CHOC =SIMP(statut='f',typ=no),
16729 GROUP_NO_CHOC =SIMP(statut='f',typ=grno),
16733 b_cham_gd = BLOC ( condition = "(CHAM_GD != None)", fr="Opérandes en cas de CHAM_GD",
16735 regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
16736 PRESENT_PRESENT('MAILLE','NOM_CMP'),
16737 PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
16738 PRESENT_PRESENT('NOEUD','NOM_CMP'),
16739 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16740 PRESENT_PRESENT('POINT','NOM_CMP'),
16741 EXCLUS('POINT','NOEUD'),
16742 EXCLUS('GROUP_MA','MAILLE'),
16743 EXCLUS('GROUP_NO','NOEUD'),
16744 EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
16745 NOM_CMP =SIMP(statut='f',typ='TXM' ),
16747 MAILLE =SIMP(statut='f',typ=ma),
16748 GROUP_MA =SIMP(statut='f',typ=grma),
16749 NOEUD =SIMP(statut='f',typ=no),
16750 GROUP_NO =SIMP(statut='f',typ=grno),
16751 POINT =SIMP(statut='f',typ='I' ),
16752 SOUS_POINT =SIMP(statut='f',typ='I' ),
16753 NOEUD_CHOC =SIMP(statut='f',typ=no),
16754 GROUP_NO_CHOC =SIMP(statut='f',typ=grno),
16757 NOM_PARA =SIMP(statut='f',typ='TXM',
16758 into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
16759 "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC") ),
16760 NOM_RESU =SIMP(statut='f',typ='TXM' ),
16761 INTERPOL =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
16762 PROL_DROITE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
16763 PROL_GAUCHE =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
16765 TITRE =SIMP(statut='f',typ='TXM',max='**'),
16766 INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
16768 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16769 # CONFIGURATION MANAGEMENT OF EDF VERSION
16770 # ======================================================================
16771 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16772 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16773 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16774 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16775 # (AT YOUR OPTION) ANY LATER VERSION.
16777 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16778 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16779 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16780 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16782 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16783 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16784 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16785 # ======================================================================
16786 RECU_GENE=OPER(nom="RECU_GENE",op= 76,sd_prod=vect_asse_gene,docu="U4.71.03-e",reentrant='n',
16787 UIinfo={"groupes":("Résultats et champs",)},
16788 fr="Récupération d un champ de grandeur à partir d un résultat en coordonnées généralisées",
16789 RESU_GENE =SIMP(statut='o',typ=tran_gene ),
16790 INST =SIMP(statut='o',typ='R' ),
16791 NOM_CHAM =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE") ),
16792 INTERPOL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
16793 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF" ,into=("ABSOLU","RELATIF") ),
16794 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16796 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16797 # CONFIGURATION MANAGEMENT OF EDF VERSION
16798 # ======================================================================
16799 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16800 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16801 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16802 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16803 # (AT YOUR OPTION) ANY LATER VERSION.
16805 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16806 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16807 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16808 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16810 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16811 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16812 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16813 # ======================================================================
16814 # RESPONSABLE VABHHTS J.PELLET
16815 RECU_TABLE=OPER(nom="RECU_TABLE",op= 174,sd_prod=table,
16816 fr=" ",docu="U4.71.02-b2",reentrant='n',
16817 UIinfo={"groupes":("Résultats et champs",)},
16818 CO =SIMP(statut='o',typ=assd),
16819 regles=(UN_PARMI('NOM_TABLE','NOM_PARA')),
16820 NOM_TABLE =SIMP(statut='f',typ='TXM' ),
16821 NOM_PARA =SIMP(statut='f',typ='TXM',max='**'),
16822 TITRE =SIMP(statut='f',typ='TXM',max='**'),
16824 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16825 # CONFIGURATION MANAGEMENT OF EDF VERSION
16826 # ======================================================================
16827 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16828 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16829 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16830 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16831 # (AT YOUR OPTION) ANY LATER VERSION.
16833 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16834 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16835 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16836 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16838 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16839 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16840 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16841 # ======================================================================
16842 def reso_grad_prod(MATR_ASSE,**args ):
16843 if AsType(MATR_ASSE) == matr_asse_depl_r : return cham_no_depl_r
16844 if AsType(MATR_ASSE) == matr_asse_temp_r : return cham_no_temp_r
16845 if AsType(MATR_ASSE) == matr_asse_pres_r : return cham_no_pres_r
16846 raise AsException("type de concept resultat non prevu")
16848 RESO_GRAD=OPER(nom="RESO_GRAD",op= 84,sd_prod=reso_grad_prod,
16849 fr="Résolution par la méthode du gradient conjugué préconditionné",
16850 docu="U4.55.04-e",reentrant='f',
16851 UIinfo={"groupes":("Résolution",)},
16852 MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
16853 CHAM_NO =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r ) ),
16854 CHAM_CINE =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r ) ),
16855 MATR_FACT =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
16856 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
16857 REPRISE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
16858 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1E-6 ),
16859 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
16861 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16862 # CONFIGURATION MANAGEMENT OF EDF VERSION
16863 # ======================================================================
16864 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16865 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16866 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16867 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16868 # (AT YOUR OPTION) ANY LATER VERSION.
16870 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16871 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16872 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16873 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16875 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16876 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16877 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16878 # ======================================================================
16879 # RESPONSABLE VABHHTS J.PELLET
16880 def reso_ldlt_prod(CHAM_NO,**args ):
16881 if AsType(CHAM_NO) == cham_no_temp_r : return cham_no_temp_r
16882 if AsType(CHAM_NO) == cham_no_depl_r : return cham_no_depl_r
16883 if AsType(CHAM_NO) == cham_no_pres_r : return cham_no_pres_r
16884 if AsType(CHAM_NO) == cham_no_temp_c : return cham_no_temp_c
16885 if AsType(CHAM_NO) == cham_no_depl_c : return cham_no_depl_c
16886 if AsType(CHAM_NO) == cham_no_pres_c : return cham_no_pres_c
16887 raise AsException("type de concept resultat non prevu")
16889 RESO_LDLT=OPER(nom="RESO_LDLT",op=15,sd_prod=reso_ldlt_prod,reentrant='f',
16890 fr="Résolution en place ou hors place d un système factorisé",docu="U4.55.02-f",
16891 UIinfo={"groupes":("Résolution",)},
16892 MATR_FACT =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
16893 matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
16894 CHAM_NO =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r,
16895 cham_no_temp_c,cham_no_depl_c,cham_no_pres_c) ),
16896 CHAM_CINE =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_c) ),
16897 TITRE =SIMP(statut='f',typ='TXM',max='**'),
16898 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
16900 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16901 # CONFIGURATION MANAGEMENT OF EDF VERSION
16902 # ======================================================================
16903 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16904 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16905 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16906 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16907 # (AT YOUR OPTION) ANY LATER VERSION.
16909 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16910 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16911 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16912 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16914 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16915 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16916 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16917 # ======================================================================
16918 # RESPONSABLE BOYERE E.BOYERE
16919 def rest_base_phys_prod(RESU_GENE,RESULTAT,**args ):
16920 if AsType(RESU_GENE) == tran_gene : return dyna_trans
16921 if AsType(RESU_GENE) == mode_gene : return mode_meca
16922 if AsType(RESU_GENE) == mode_cycl : return mode_meca
16923 if AsType(RESU_GENE) == harm_gene : return dyna_harmo
16924 if AsType(RESULTAT) == mode_meca : return mode_meca
16925 raise AsException("type de concept resultat non prevu")
16927 REST_BASE_PHYS=OPER(nom="REST_BASE_PHYS",op= 75,sd_prod=rest_base_phys_prod,
16928 fr="Restituer dans la base physique des résultats en coordonnées généralisées",
16929 docu="U4.63.21-e",reentrant='n',
16930 UIinfo={"groupes":("Matrices/vecteurs",)},
16931 regles=(UN_PARMI('RESU_GENE','RESULTAT'),
16932 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','TOUT_INST'),
16933 EXCLUS('TOUT_INST','NUME_ORDRE','INST','LIST_INST','TOUT_ORDRE'),
16935 EXCLUS('MULT_APPUI','CORR_STAT'),
16936 EXCLUS('MULT_APPUI','NOEUD','GROUP_NO'),
16937 EXCLUS('CORR_STAT','NOEUD','GROUP_NO'),
16938 EXCLUS('NOEUD','GROUP_NO'),
16939 PRESENT_PRESENT('RESULTAT','SQUELETTE'),
16940 PRESENT_PRESENT('ACCE_MONO_APPUI','DIRECTION'),),
16941 RESU_GENE =SIMP(statut='f',typ=(tran_gene,mode_gene,mode_cycl,harm_gene ) ),
16942 RESULTAT =SIMP(statut='f',typ=mode_meca ),
16944 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
16945 TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16946 NUME_ORDRE =SIMP(statut='f',typ='I',max='**' ),
16947 TOUT_INST =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16948 INST =SIMP(statut='f',typ='R',max='**' ),
16949 LIST_INST =SIMP(statut='f',typ=listr8 ),
16950 FREQ =SIMP(statut='f',typ='R',max='**' ),
16951 LIST_FREQ =SIMP(statut='f',typ=listr8 ),
16952 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
16953 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16954 INTERPOL =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
16955 MULT_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16956 CORR_STAT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16957 NOM_CHAM =SIMP(statut='f',typ='TXM',max=8,defaut="ACCE",
16958 into=("DEPL","VITE","ACCE","ACCE_ABSOLU","EFGE_ELNO_DEPL","SIPO_ELNO_DEPL",
16959 "SIGM_ELNO_DEPL","FORC_NODA",) ),
16960 TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16961 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
16962 NOEUD =SIMP(statut='f',typ=no,max='**'),
16964 ACCE_MONO_APPUI =SIMP(statut='f',typ=fonction),
16965 DIRECTION =SIMP(statut='f',typ='R',max='**' ),
16967 SQUELETTE =SIMP(statut='f',typ=squelette ),
16968 SOUS_STRUC =SIMP(statut='f',typ='TXM' ),
16969 SECTEUR =SIMP(statut='f',typ='I',defaut= 1 ),
16970 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
16972 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
16973 # CONFIGURATION MANAGEMENT OF EDF VERSION
16974 # ======================================================================
16975 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
16976 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16977 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16978 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16979 # (AT YOUR OPTION) ANY LATER VERSION.
16981 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16982 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16983 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16984 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16986 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16987 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16988 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16989 # ======================================================================
16990 REST_SPEC_PHYS=OPER(nom="REST_SPEC_PHYS",op= 148,sd_prod=tabl_intsp,
16991 docu="U4.63.22-c",reentrant='n',
16992 UIinfo={"groupes":("Matrices/vecteurs",)},
16993 regles=(AU_MOINS_UN('BASE_ELAS_FLUI','MODE_MECA'),),
16994 BASE_ELAS_FLUI =SIMP(statut='f',typ=melasflu ),
16995 MODE_MECA =SIMP(statut='f',typ=mode_meca ),
16996 BANDE =SIMP(statut='f',typ='R',min=2,max=2 ),
16997 NUME_ORDRE =SIMP(statut='f',typ='I',max='**' ),
16998 INTE_SPEC_GENE =SIMP(statut='o',typ=tabl_intsp ),
16999 NOEUD =SIMP(statut='o',typ=no,max='**'),
17000 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
17001 MAILLE =SIMP(statut='f',typ=ma,max='**'),
17002 NOM_CHAM =SIMP(statut='o',typ='TXM',max=7,
17003 into=("DEPL","VITE","ACCE","EFGE_ELNO_DEPL",
17004 "SIPO_ELNO_DEPL","SIGM_ELNO_DEPL","FORC_NODA") ),
17005 MODE_STAT =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc), ),
17006 EXCIT =FACT(statut='f',max=1,
17007 NOEUD =SIMP(statut='o',typ=no,max='**'),
17008 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
17010 MOUVEMENT =SIMP(statut='f',typ='TXM',defaut="ABSOLU",into=("RELATIF","ABSOLU","DIFFERENTIEL") ),
17011 OPTION =SIMP(statut='f',typ='TXM',defaut="DIAG_DIAG",
17012 into=("DIAG_TOUT","DIAG_DIAG","TOUT_TOUT","TOUT_DIAG") ),
17013 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
17015 #& MODIF COMMANDE DATE 20/01/2003 AUTEUR DURAND C.DURAND
17016 # CONFIGURATION MANAGEMENT OF EDF VERSION
17017 # ======================================================================
17018 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
17019 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17020 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17021 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17022 # (AT YOUR OPTION) ANY LATER VERSION.
17024 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17025 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17026 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17027 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17029 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17030 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17031 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17032 # ======================================================================
17033 RETOUR=MACRO(nom="RETOUR",op= -2,docu="U4.13.02-e",
17034 UIinfo={"groupes":("Gestion du travail",)},
17035 fr="Retour au fichier de commandes appelant",
17037 #& MODIF COMMANDE DATE 11/02/2003 AUTEUR PBADEL P.BADEL
17038 # CONFIGURATION MANAGEMENT OF EDF VERSION
17039 # ======================================================================
17040 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
17041 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17042 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17043 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17044 # (AT YOUR OPTION) ANY LATER VERSION.
17046 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17047 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17048 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17049 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17051 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17052 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17053 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17054 # ======================================================================
17055 # RESPONSABLE PBADEL P.BADEL
17056 STAT_NON_LINE=OPER(nom="STAT_NON_LINE",op=70,sd_prod=evol_noli,
17057 fr="Analyse mécanique statique non linéaire",
17058 docu="U4.51.03-f4",reentrant='f',
17059 UIinfo={"groupes":("Résolution",)},
17060 regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS'),),
17061 MODELE =SIMP(statut='o',typ=modele),
17062 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
17063 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
17064 EXCIT =FACT(statut='o',min=1,max='**',
17065 CHARGE =SIMP(statut='o',typ=char_meca),
17066 FONC_MULT =SIMP(statut='f',typ=fonction),
17067 TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
17068 into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
17070 VARI_COMM =FACT(statut='f',
17071 regles=(AU_MOINS_UN('IRRA',),),
17072 IRRA =SIMP(statut='f',typ=evol_varc),
17074 COMP_INCR =C_COMP_INCR(),
17075 COMP_ELAS =FACT(statut='f',min=1,max='**',
17076 RELATION =SIMP(statut='o',typ='TXM',defaut="ELAS",
17077 into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
17078 "ELAS_POUTRE_GR","CABLE")),
17079 ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
17080 ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
17081 ELAS_VMIS_LINE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
17082 ELAS_POUTRE_GR =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
17083 CABLE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
17084 DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GREEN","GREEN_GR",) ),
17085 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
17086 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
17087 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
17088 MAILLE =SIMP(statut='f',typ=ma,max='**'),
17090 ETAT_INIT =FACT(statut='f',min=1,max=1,
17091 regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI','VARI_NON_LOCAL',),
17092 EXCLUS('EVOL_NOLI','DEPL',),
17093 EXCLUS('EVOL_NOLI','SIGM',),
17094 EXCLUS('EVOL_NOLI','VARI',),
17095 EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
17096 EXCLUS('NUME_ORDRE','INST'), ),
17097 DEPL =SIMP(statut='f',typ=cham_no_depl_r),
17098 SIGM =SIMP(statut='f',typ=(cham_elem_sief_r,carte_sief_r)),
17099 VARI =SIMP(statut='f',typ=cham_elem_vari_r),
17100 VARI_NON_LOCAL =SIMP(statut='f',typ=cham_no_vanl_r),
17101 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
17102 NUME_ORDRE =SIMP(statut='f',typ='I'),
17103 INST =SIMP(statut='f',typ='R'),
17104 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
17105 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
17106 NUME_DIDI =SIMP(statut='f',typ='I'),
17107 INST_ETAT_INIT =SIMP(statut='f',typ='R'),
17109 INCREMENT =FACT(statut='o',min=1,max=1,
17110 regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
17111 EXCLUS('NUME_INST_FIN','INST_FIN'),),
17112 LIST_INST =SIMP(statut='o',typ=listr8),
17113 EVOLUTION =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
17114 into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
17115 NUME_INST_INIT =SIMP(statut='f',typ='I'),
17116 INST_INIT =SIMP(statut='f',typ='R'),
17117 NUME_INST_FIN =SIMP(statut='f',typ='I'),
17118 INST_FIN =SIMP(statut='f',typ='R'),
17119 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
17120 SUBD_PAS =SIMP(statut='f',typ='I',defaut=1),
17121 SUBD_PAS_MINI =SIMP(statut='f',typ='R'),
17122 COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
17123 OPTI_LIST_INST =SIMP(statut='f',typ='TXM',into=("INCR_MAXI",),),
17124 NOM_CHAM =SIMP(statut='f',typ='TXM',),
17125 NOM_CMP =SIMP(statut='f',typ='TXM',),
17126 VALE =SIMP(statut='f',typ='R'),
17128 NEWTON =FACT(statut='d',min=1,max=1,
17129 REAC_INCR =SIMP(statut='f',typ='I',defaut= 1 ),
17130 PREDICTION =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
17131 MATRICE =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
17132 PAS_MINI_ELAS =SIMP(statut='f',typ='R',defaut=0.0E+0),
17133 REAC_ITER =SIMP(statut='f',typ='I',defaut=0),
17134 EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
17136 RECH_LINEAIRE =FACT(statut='f',min=1,max=1,
17137 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
17138 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 3),
17139 ITER_LINE_CRIT =SIMP(statut='f',typ='I',defaut= 20),
17140 PAS_MINI_CRIT =SIMP(statut='f',typ='R',defaut=0.0E+0),
17141 RHO_MIN =SIMP(statut='f',typ='R',defaut=1.0E-2),
17142 RHO_MAX =SIMP(statut='f',typ='R',defaut=1.0E+1),
17143 RHO_EXCL =SIMP(statut='f',typ='R',defaut=0.9E-2),
17145 PILOTAGE =FACT(statut='f',min=1,max=1,
17146 regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
17147 TYPE =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","PRED_ELAS_INCR","DEFORMATION","ANA_LIM") ),
17148 COEF_MULT =SIMP(statut='f',typ='R',defaut= 1.0E+0),
17149 ETA_PILO_MAX =SIMP(statut='f',typ='R'),
17150 ETA_PILO_MIN =SIMP(statut='f',typ='R'),
17151 ETA_PILO_R_MAX =SIMP(statut='f',typ='R'),
17152 ETA_PILO_R_MIN =SIMP(statut='f',typ='R'),
17153 PROJ_BORNES =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
17154 SELECTION =SIMP(statut='f',typ='TXM',defaut="NORM_INCR_DEPL", into=("RESIDU","ANGL_INCR_DEPL","NORM_INCR_DEPL") ),
17155 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
17156 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
17157 MAILLE =SIMP(statut='f',typ=ma,max='**'),
17158 NOEUD =SIMP(statut='f',typ=no,max='**'),
17159 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
17160 NOM_CMP =SIMP(statut='f',typ='TXM',max='**' ),
17162 CONVERGENCE =FACT(statut='d',min=1,max=1,
17163 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
17164 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
17165 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut=10),
17166 ITER_GLOB_ELAS =SIMP(statut='f',typ='I',defaut=25),
17167 ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
17168 RESI_INTE_RELA =SIMP(statut='f',typ='R'
17170 ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
17171 ITER_INTE_PAS =SIMP(statut='f',typ='I',defaut= 0 ),
17172 TYPE_MATR_COMP =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
17173 RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
17174 into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
17176 PARM_THETA =SIMP(statut='f',typ='R'
17178 SOLVEUR =FACT(statut='d',min=1,max=1,
17179 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
17180 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
17181 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
17183 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
17184 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
17186 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
17187 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
17188 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
17189 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","DECOUPE") ),
17191 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
17192 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
17193 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
17194 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
17195 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
17196 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
17199 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
17200 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
17202 ARCHIVAGE =FACT(statut='f',min=1,max=1,
17203 regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
17204 EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
17205 LIST_INST =SIMP(statut='f',typ=(listr8) ),
17206 INST =SIMP(statut='f',typ='R',max='**' ),
17207 PAS_ARCH =SIMP(statut='f',typ='I' ),
17208 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
17209 ARCH_ETAT_INIT =SIMP(statut='f',typ='TXM',into=("OUI",)),
17210 NUME_INIT =SIMP(statut='f',typ='I'),
17211 DETR_NUME_SUIV =SIMP(statut='f',typ='TXM',into=("OUI",)),
17212 CHAM_EXCLU =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","SIEF_ELGA","VARI_ELGA",
17213 "VARI_NON_LOCAL","LANL_ELGA")),
17215 OBSERVATION =FACT(statut='f',min=1,max='**',
17216 regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
17217 PRESENT_PRESENT('MAILLE','POINT'),),
17218 NOM_CHAM =SIMP(statut='o',typ='TXM',max='**',into=("DEPL","VITE","ACCE","SIEF_ELGA",
17219 "VARI_ELGA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU")),
17220 NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
17221 LIST_ARCH =SIMP(statut='f',typ=listis),
17222 LIST_INST =SIMP(statut='f',typ=listr8),
17223 INST =SIMP(statut='f',typ='R',max='**' ),
17224 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
17225 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
17226 PAS_OBSE =SIMP(statut='f',typ='I'),
17227 NOEUD =SIMP(statut='f',typ=no,max='**'),
17228 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
17229 MAILLE =SIMP(statut='f',typ=ma,max='**'),
17230 POINT =SIMP(statut='f',typ='I',max='**'),
17232 SOLV_NON_LOCAL =FACT(statut='f',min=1,max=1,
17233 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
17234 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
17235 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
17237 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
17238 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
17240 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
17241 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
17242 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
17243 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
17245 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
17246 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
17247 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
17248 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
17249 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
17251 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
17253 LAGR_NON_LOCAL =FACT(statut='f',max=1,
17254 ITER_DUAL_MAXI =SIMP(statut='f',typ='I',defaut= 50),
17255 RESI_DUAL_ABSO =SIMP(statut='o',typ='R'),
17256 RESI_PRIM_ABSO =SIMP(statut='o',typ='R'),
17257 R =SIMP(statut='f',typ='R',defaut= 1000.),
17258 ITER_PRIM_MAXI =SIMP(statut='f',typ='I',defaut= 10),
17260 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
17261 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
17263 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
17264 # CONFIGURATION MANAGEMENT OF EDF VERSION
17265 # ======================================================================
17266 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
17267 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17268 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17269 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17270 # (AT YOUR OPTION) ANY LATER VERSION.
17272 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17273 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17274 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17275 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17277 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17278 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17279 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17280 # ======================================================================
17281 # RESPONSABLE MCOURTOI M.COURTOIS
17282 TEST_FONCTION=PROC(nom="TEST_FONCTION",op= 135,fr="Extraction d une valeur numérique ou d un attribut de fonction",
17283 docu="U4.92.02-f2",
17284 UIinfo={"groupes":("Impression",)},
17285 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
17286 TEST_NOOK =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
17287 VALEUR =FACT(statut='f',min=1,max='**',
17288 fr="Tester la valeur d une fonction ou d une nappe",
17289 regles=(UN_PARMI('VALE_REFE','VALE_REFE_C', ),),
17290 FONCTION =SIMP(statut='o',typ=fonction ),
17291 NOM_PARA =SIMP(statut='f',typ='TXM',max=2),
17292 VALE_PARA =SIMP(statut='o',typ='R',max=2),
17293 VALE_REFE =SIMP(statut='f',typ='R' ),
17294 VALE_REFE_C =SIMP(statut='f',typ='C' ),
17295 CRITERE =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
17296 defaut="RELATIF",into=("RELATIF","ABSOLU") ),
17297 PRECISION =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
17299 REFERENCE =SIMP(statut='f',typ='TXM',
17300 into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
17301 b_version = BLOC (condition = "REFERENCE == 'NON_REGRESSION'",
17302 VERSION =SIMP(statut='f',typ='TXM' ),
17305 ATTRIBUT =FACT(statut='f',min=1,max='**',
17306 fr="Tester la valeur d un attribut d une fonction ou d''une nappe",
17307 FONCTION =SIMP(statut='o',typ=fonction ),
17308 PARA =SIMP(statut='f',typ='R' ),
17309 CRIT_PARA =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
17310 PREC_PARA =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
17311 ATTR =SIMP(statut='o',typ='TXM',
17312 into=("NOM_PARA","NOM_RESU","PROL_DROITE","PROL_GAUCHE","INTERPOL",
17313 "PROL_GAUCHE_FONC","PROL_DROITE_FONC","INTERPOL_FONC","NOM_PARA_FONC") ),
17314 ATTR_REFE =SIMP(statut='o',typ='TXM' ),
17315 REFERENCE =SIMP(statut='f',typ='TXM',
17316 into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
17317 b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
17318 VERSION =SIMP(statut='f',typ='TXM' ),
17321 TABL_INTSP =FACT(statut='f',min=1,max='**',
17322 fr="Tester la valeur d une fonction contenue dans une table interspectrale",
17323 regles=(UN_PARMI('NUME_ORDRE_I','NOEUD_I'),),
17324 INTE_SPEC =SIMP(statut='o',typ=tabl_intsp ),
17325 NOEUD_I =SIMP(statut='f',typ=no),
17326 NUME_ORDRE_I =SIMP(statut='f',typ='I' ),
17327 b_nume_ordre_i = BLOC (condition = "NUME_ORDRE_I != None",
17328 NUME_ORDRE_J =SIMP(statut='o',typ='I' ),
17330 b_noeud_i = BLOC (condition = "NOEUD_I != None",
17331 NOEUD_J =SIMP(statut='o',typ=no),
17332 NOM_CMP_I =SIMP(statut='o',typ='TXM' ),
17333 NOM_CMP_J =SIMP(statut='o',typ='TXM' ),
17335 NUME_VITE_FLUI =SIMP(statut='f',typ='I' ),
17336 VALE_PARA =SIMP(statut='o',typ='R' ),
17337 VALE_REFE_C =SIMP(statut='o',typ='C' ),
17338 CRITERE =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
17339 defaut="RELATIF",into=("RELATIF","ABSOLU") ),
17340 PRECISION =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
17342 REFERENCE =SIMP(statut='f',typ='TXM',
17343 into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
17344 b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
17345 VERSION =SIMP(statut='f',typ='TXM' ),
17349 #& MODIF COMMANDE DATE 13/01/2003 AUTEUR VABHHTS J.PELLET
17350 # RESPONSABLE VABHHTS J.PELLET
17351 # CONFIGURATION MANAGEMENT OF EDF VERSION
17352 # ======================================================================
17353 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
17354 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17355 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17356 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17357 # (AT YOUR OPTION) ANY LATER VERSION.
17359 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17360 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17361 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17362 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17364 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17365 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17366 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17369 # ======================================================================
17370 TEST_RESU=PROC(nom="TEST_RESU",op=23,docu="U4.92.01-g3",
17371 UIinfo={"groupes":("Impression",)},
17372 fr="Extraction d une valeur et comparaison à une valeur de référence",
17373 regles=(AU_MOINS_UN('CHAM_NO','CHAM_ELEM','RESU','OBJET')),
17374 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
17376 CHAM_NO =FACT(statut='f',min=1,max='**',
17377 regles=(UN_PARMI('NOEUD','GROUP_NO','TYPE_TEST'),
17378 EXCLUS('NOEUD','GROUP_NO'),
17379 PRESENT_PRESENT('NOEUD','NOM_CMP'),
17380 PRESENT_PRESENT( 'GROUP_NO','NOM_CMP'),
17381 UN_PARMI('VALE','VALE_I','VALE_C'),),
17382 CHAM_GD =SIMP(statut='o',typ=cham_no),
17383 NOEUD =SIMP(statut='f',typ=no,max='**'),
17384 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
17385 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
17386 TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
17387 VALE =SIMP(statut='f',typ='R'),
17388 VALE_I =SIMP(statut='f',typ='I'),
17389 VALE_C =SIMP(statut='f',typ='C'),
17390 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
17391 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
17392 REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
17393 "NON_REGRESSION","AUTRE_ASTER")),
17394 VERSION =SIMP(statut='f',typ='TXM'),
17397 CHAM_ELEM =FACT(statut='f',min=1,max='**',
17398 regles=(UN_PARMI('MAILLE','TYPE_TEST',),
17399 EXCLUS('NOEUD','GROUP_NO','POINT'),
17400 PRESENT_PRESENT('NOEUD','NOM_CMP'),
17401 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
17402 PRESENT_PRESENT('POINT','NOM_CMP'),
17403 UN_PARMI('VALE','VALE_I','VALE_C'), ),
17404 CHAM_GD =SIMP(statut='o',typ=cham_elem),# CO()
17405 MAILLE =SIMP(statut='f',typ=ma),# CO()
17406 POINT =SIMP(statut='f',typ='I' ),
17407 SOUS_POINT =SIMP(statut='f',typ='I'),
17408 NOEUD =SIMP(statut='f',typ=no),# CO()
17409 GROUP_NO =SIMP(statut='f',typ=grno),# CO()
17410 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
17411 TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
17412 VALE =SIMP(statut='f',typ='R' ),
17413 VALE_I =SIMP(statut='f',typ='I' ),
17414 VALE_C =SIMP(statut='f',typ='C' ),
17415 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
17416 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
17417 REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
17418 "NON_REGRESSION","AUTRE_ASTER") ),
17419 VERSION =SIMP(statut='f',typ='TXM' ),
17422 RESU =FACT(statut='f',min=1,max='**',
17423 regles=(UN_PARMI('NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP','NOM_CAS','ANGL'),
17424 UN_PARMI('NOM_CHAM','PARA'),
17425 PRESENT_ABSENT('PARA','NOEUD','GROUP_NO','POINT','NOM_CMP','TYPE_TEST'),
17426 PRESENT_PRESENT('NOM_CMP','NOM_CHAM'),
17427 EXCLUS('NOEUD','GROUP_NO','POINT','TYPE_TEST'),
17428 PRESENT_PRESENT('NOEUD','NOM_CMP'),
17429 PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
17430 PRESENT_PRESENT('POINT','NOM_CMP'),
17431 UN_PARMI('VALE','VALE_I','VALE_C') ,),
17432 RESULTAT =SIMP(statut='o',typ=resultat),
17433 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),
17434 fr="Paramètre de sensibilité.",
17435 ang="Sensitivity parameter"),
17436 NUME_ORDRE =SIMP(statut='f',typ='I'),
17437 INST =SIMP(statut='f',typ='R'),
17438 FREQ =SIMP(statut='f',typ='R'),
17439 NUME_MODE =SIMP(statut='f',typ='I'),
17440 NOEUD_CMP =SIMP(statut='f',typ='TXM',max='**' ),
17441 NOM_CAS =SIMP(statut='f',typ='TXM'),
17442 ANGL =SIMP(statut='f',typ='R'),
17443 PARA =SIMP(statut='f',typ='TXM'),
17444 NOM_CHAM =SIMP(statut='f',typ='TXM'),
17445 NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
17446 MAILLE =SIMP(statut='f',typ=ma,max='**'),
17447 NOEUD =SIMP(statut='f',typ=no,max='**'),
17448 GROUP_NO =SIMP(statut='f',typ=grno,max='**'),
17449 POINT =SIMP(statut='f',typ='I'),
17450 SOUS_POINT =SIMP(statut='f',typ='I'),
17451 TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
17452 VALE =SIMP(statut='f',typ='R'),
17453 VALE_I =SIMP(statut='f',typ='I'),
17454 VALE_C =SIMP(statut='f',typ='C'),
17455 CRITERE =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),max=2),
17456 PRECISION =SIMP(statut='f',typ='R',max=2),
17457 REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
17458 "NON_REGRESSION","AUTRE_ASTER",) ),
17459 VERSION =SIMP(statut='f',typ='TXM' ),
17462 OBJET =FACT(statut='f',max='**',
17463 regles=(UN_PARMI('INDICE','S_I','S_R','RESUME',),
17464 UN_PARMI('VALE','VALE_I','VALE_C','RESUME','S_R','S_I'),),
17465 NOM =SIMP(statut='o',typ='TXM'),
17466 INDICE =SIMP(statut='f',typ='I'),
17467 NUM_OBJ =SIMP(statut='f',typ='I'),
17468 S_R =SIMP(statut='f',typ='R'),
17469 S_I =SIMP(statut='f',typ='I'),
17470 RESUME =SIMP(statut='f',typ='I'),
17471 VALE =SIMP(statut='f',typ='R'),
17472 VALE_I =SIMP(statut='f',typ='I'),
17473 VALE_C =SIMP(statut='f',typ='C'),
17474 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
17475 PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
17476 REFERENCE =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
17477 "NON_REGRESSION","AUTRE_ASTER",) ),
17478 VERSION =SIMP(statut='f',typ='TXM' ),
17481 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
17482 # CONFIGURATION MANAGEMENT OF EDF VERSION
17483 # ======================================================================
17484 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
17485 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17486 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17487 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17488 # (AT YOUR OPTION) ANY LATER VERSION.
17490 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17491 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17492 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17493 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17495 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17496 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17497 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17498 # ======================================================================
17499 # RESPONSABLE VABHHTS J.PELLET
17500 TEST_TABLE=PROC(nom="TEST_TABLE",op= 177,
17501 docu="U4.92.03-c1",
17502 UIinfo={"groupes":("Impression",)},
17503 regles=(UN_PARMI('VALE','VALE_I','VALE_C', ),),
17504 FICHIER =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
17505 # concept table à créer
17506 TABLE =SIMP(statut='o',typ=table),
17508 FILTRE =FACT(statut='f',min=1,max='**',
17509 NOM_PARA =SIMP(statut='o',typ='TXM' ),
17510 CRIT_COMP =SIMP(statut='f',typ='TXM',defaut="EQ",
17511 into=("EQ","LT","GT","NE","LE","GE","VIDE",
17512 "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
17513 b_vale =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
17514 regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
17515 VALE =SIMP(statut='f',typ='R' ),
17516 VALE_I =SIMP(statut='f',typ='I' ),
17517 VALE_C =SIMP(statut='f',typ='C' ),
17518 VALE_K =SIMP(statut='f',typ='TXM' ),),
17520 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
17521 PRECISION =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
17523 TYPE_TEST =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
17524 NOM_PARA =SIMP(statut='o',typ='TXM' ),
17525 VALE =SIMP(statut='f',typ='R' ),
17526 VALE_I =SIMP(statut='f',typ='I' ),
17527 VALE_C =SIMP(statut='f',typ='C' ),
17528 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
17529 PRECISION =SIMP(statut='f',typ='R',defaut= 1.2E-3 ),
17530 REFERENCE =SIMP(statut='f',typ='TXM',
17531 into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
17532 b_version =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
17533 VERSION =SIMP(statut='f',typ='TXM' ),
17536 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
17537 # CONFIGURATION MANAGEMENT OF EDF VERSION
17538 # ======================================================================
17539 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
17540 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17541 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17542 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17543 # (AT YOUR OPTION) ANY LATER VERSION.
17545 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17546 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17547 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17548 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17550 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17551 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17552 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17553 # ======================================================================
17554 THER_LINEAIRE=OPER(nom="THER_LINEAIRE",op=25,sd_prod=evol_ther,docu="U4.54.01-g2",reentrant='f',
17555 UIinfo={"groupes":("Résolution",)},
17556 fr="Analyse thermique linéaire stationnaire ou transitoire",
17557 MODELE =SIMP(statut='o',typ=modele),
17558 CHAM_MATER =SIMP(statut='o',typ=cham_mater),
17559 CARA_ELEM =SIMP(statut='f',typ=cara_elem),
17560 EXCIT =FACT(statut='o',min=1,max='**',
17561 CHARGE =SIMP(statut='o',typ=(char_ther,char_cine_ther)),
17562 FONC_MULT =SIMP(statut='f',typ=fonction),
17564 INCREMENT =FACT(statut='f',min=1,max=1,
17565 LIST_INST =SIMP(statut='o',typ=listr8 ),
17566 NUME_INIT =SIMP(statut='f',typ='I'),
17567 NUME_FIN =SIMP(statut='f',typ='I'),
17569 TEMP_INIT =FACT(statut='f',min=1,max=1,
17570 regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
17571 STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
17572 EVOL_THER =SIMP(statut='f',typ=evol_ther),
17573 CHAM_NO =SIMP(statut='f',typ=cham_no_temp_r),
17574 VALE =SIMP(statut='f',typ='R'),
17575 NUME_INIT =SIMP(statut='f',typ='I'),
17577 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
17578 fr="Liste des paramètres de sensibilité.",
17579 ang="List of sensitivity parameters",
17581 SENS_INIT =FACT(statut='f',min=1,max=1,
17582 regles=(EXCLUS('STATIONNAIRE','EVOL_THER', ),),
17583 STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
17584 EVOL_THER =SIMP(statut='f',typ=evol_ther),
17585 NUME_INIT =SIMP(statut='f',typ='I'),
17587 SOLVEUR =FACT(statut='d',min=1,max=1,
17588 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
17589 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
17590 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
17592 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
17593 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
17595 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
17596 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
17597 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
17598 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
17600 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
17601 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
17602 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
17603 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
17604 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
17605 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
17608 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
17610 PARM_THETA =SIMP(statut='f',typ='R',defaut= 0.57),
17611 ARCHIVAGE =FACT(statut='f',min=1,max=1,
17612 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST'),),
17613 LIST_ARCH =SIMP(statut='f',typ=listis),
17614 LIST_INST =SIMP(statut='f',typ=listr8),
17615 INST =SIMP(statut='f',typ='R',max='**'),
17616 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
17617 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
17618 into=("RELATIF","ABSOLU")),
17619 PAS_ARCH =SIMP(statut='f',typ='I'),
17620 CHAM_EXCLU =SIMP(statut='f',typ='TXM',into=("VARI",)),
17622 TITRE =SIMP(statut='f',typ='TXM',max='**'),
17623 INFO =SIMP(statut='f',typ='I',into=(1,2)),
17625 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
17626 # CONFIGURATION MANAGEMENT OF EDF VERSION
17627 # ======================================================================
17628 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
17629 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17630 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17631 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17632 # (AT YOUR OPTION) ANY LATER VERSION.
17634 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17635 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17636 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17637 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17639 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17640 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17641 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17642 # ======================================================================
17643 THER_NON_LINE=OPER(nom="THER_NON_LINE",op= 186,sd_prod=evol_ther,docu="U4.54.02-e2",reentrant='f',
17644 UIinfo={"groupes":("Résolution",)},
17645 fr="Analyse thermique non linéaire stationnaire ou transitoire" ,
17646 MODELE =SIMP(statut='o',typ=(modele) ),
17647 CHAM_MATER =SIMP(statut='o',typ=(cham_mater) ),
17648 CARA_ELEM =SIMP(statut='c',typ=(cara_elem) ),
17649 COMP_THER_NL =FACT(statut='d',min=1,max='**',
17650 RELATION =SIMP(statut='f',typ='TXM',defaut="THER_NL",
17658 regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
17659 TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
17660 GROUP_MA =SIMP(statut='f',typ=grma,max='**'),
17661 MAILLE =SIMP(statut='f',typ=ma,max='**'),
17663 EVOL_THER_SECH =SIMP(statut='f',typ=evol_ther),
17664 EXCIT =FACT(statut='o',min=1,max='**',
17665 CHARGE =SIMP(statut='o',typ=char_ther),
17666 FONC_MULT =SIMP(statut='f',typ=fonction),
17668 INCREMENT =FACT(statut='f',min=1,max=1,
17669 LIST_INST =SIMP(statut='o',typ=listr8),
17670 NUME_INIT =SIMP(statut='f',typ='I'),
17671 NUME_FIN =SIMP(statut='f',typ='I'),
17673 TEMP_INIT =FACT(statut='f',min=1,max=1,
17674 regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
17675 STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",)),
17676 EVOL_THER =SIMP(statut='f',typ=evol_ther),
17677 CHAM_NO =SIMP(statut='f',typ=cham_no_temp_r),
17678 VALE =SIMP(statut='f',typ='R'),
17679 NUME_INIT =SIMP(statut='f',typ='I'),
17681 NEWTON =FACT(statut='d',min=1,max=1,
17682 REAC_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
17683 RESI_LINE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
17684 ITER_LINE_MAXI =SIMP(statut='f',typ='I',defaut= 0 ),
17686 CONVERGENCE =FACT(statut='d',min=1,max=1,
17687 RESI_GLOB_MAXI =SIMP(statut='f',typ='R'),
17688 RESI_GLOB_RELA =SIMP(statut='f',typ='R'),
17689 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
17691 SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
17692 fr="Liste des paramètres de sensibilité.",
17693 ang="List of sensitivity parameters",
17695 SOLVEUR =FACT(statut='d',min=1,max=1,
17696 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
17697 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Parametres de la méthode multi frontale",
17698 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
17700 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Parametres de la méthode LDLT",
17701 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
17703 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
17704 fr="Parametres relatifs a la non inversibilité de la matrice a factorise",
17705 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
17706 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
17708 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Parametres de la méthode du gradient conjugué",
17709 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
17710 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
17711 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
17712 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
17713 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
17716 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
17717 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
17719 PARM_THETA =SIMP(statut='f',typ='R',defaut= 0.57 ),
17720 ARCHIVAGE =FACT(statut='f',min=1,max=1,
17721 regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST', ),),
17722 LIST_ARCH =SIMP(statut='f',typ=(listis) ),
17723 LIST_INST =SIMP(statut='f',typ=(listr8) ),
17724 INST =SIMP(statut='f',typ='R',max='**'),
17725 PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
17726 CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
17727 PAS_ARCH =SIMP(statut='f',typ='I'),
17728 CHAM_EXCLU =SIMP(statut='f',typ='TXM',into=("VARI",)),
17730 TITRE =SIMP(statut='f',typ='TXM',max='**'),
17731 OPTION =SIMP(statut='f',typ='TXM',max='**',
17732 into=("FLUX_ELGA_TEMP","FLUX_ELNO_TEMP") ),
17733 INFO =SIMP(statut='f',typ='I',into=(1,2) ),
17736 #& MODIF COMMANDE DATE 09/10/2002 AUTEUR DURAND C.DURAND
17737 # CONFIGURATION MANAGEMENT OF EDF VERSION
17738 # ======================================================================
17739 # COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
17740 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17741 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17742 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17743 # (AT YOUR OPTION) ANY LATER VERSION.
17745 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17746 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17747 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17748 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17750 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17751 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17752 # 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17753 # ======================================================================
17754 THER_NON_LINE_MO=OPER(nom="THER_NON_LINE_MO",op= 171,sd_prod=evol_ther,
17755 fr="Thermique non lineaire en repere mobile",
17756 docu="U4.54.03-b",reentrant='f',
17757 UIinfo={"groupes":("Résolution",)},
17758 MODELE =SIMP(statut='o',typ=modele ),
17759 CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
17760 CARA_ELEM =SIMP(statut='c',typ=cara_elem ),
17761 EXCIT =FACT(statut='o',min=1,max='**',
17762 CHARGE =SIMP(statut='o',typ=char_ther ),
17763 FONC_MULT =SIMP(statut='c',typ=fonction ),
17765 TEMP_INIT =FACT(statut='f',min=1,max=1,
17766 EVOL_THER =SIMP(statut='f',typ=evol_ther ),
17767 NUME_INIT =SIMP(statut='f',typ='I',defaut= 0 ),
17769 CONVERGENCE =FACT(statut='d',min=1,max=1,
17770 CRIT_TEMP_RELA =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
17771 CRIT_ENTH_RELA =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
17772 ITER_GLOB_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
17773 ARRET =SIMP(statut='c',typ='TXM',defaut="OUI",into=("OUI","NON") ),
17775 SOLVEUR =FACT(statut='d',min=1,max=1,
17776 METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
17777 b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
17778 RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
17780 b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
17781 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
17783 b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
17784 fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
17785 NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
17786 STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
17788 b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
17789 PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
17790 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
17791 RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
17792 RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
17793 NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
17795 EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
17796 SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
17798 TITRE =SIMP(statut='f',typ='TXM',max='**' ),
17799 INFO =SIMP(statut='f',typ='I',into=(1,2) ),