Aster/Cata/cata.py

   1 #& MODIF COMMANDE  DATE 30/01/2002   AUTEUR VABHHTS J.TESELET
   2 #            CONFIGURATION MANAGEMENT OF EDF VERSION
   3 # ======================================================================
   4 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
   5 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
   6 #              REDISTRIBUTION OF THIS FILE.
   7 # ======================================================================
   8 import Accas
   9 from Accas import *
  10 from Accas import _F
  11
  12 import ops
  13
  14 try:
  15   import aster
  16 except:
  17   pass
  18
  19 #
  20 __version__="$Name:  $"
  21 __Id__="$Id: cata_aster_v6.py,v 1.12 2001/01/16 15:55:05 iliade Exp $"
  22 #
  23 JdC = JDC_CATA(code='ASTER',
  24                execmodul=None,
  25                regles = (AU_MOINS_UN('DEBUT','POURSUITE'),
  26                          AU_MOINS_UN('FIN'),
  27                          A_CLASSER(('DEBUT','POURSUITE'),'FIN')))
  28 # Type le plus general
  29 class entier  (ASSD):pass
  30 class reel    (ASSD):pass
  31 class complexe(ASSD):pass
  32 class liste   (ASSD):pass
  33 class chaine  (ASSD):pass
  34
  35 # Type geometriques
  36 class no  (GEOM):pass
  37 class grno(GEOM):pass
  38 class ma  (GEOM):pass
  39 class grma(GEOM):pass
  40
  41
  42
  43 # Autres
  44
  45 class cabl_precont    (ASSD):pass
  46 class cara_elem       (ASSD):pass
  47 class cara_pout       (ASSD):pass
  48 class cham_mater      (ASSD):pass
  49 class char_acou       (ASSD):pass
  50 class char_cine_acou  (ASSD):pass
  51 class char_cine_meca  (ASSD):pass
  52 class char_cine_ther  (ASSD):pass
  53 class char_meca       (ASSD):pass
  54 class char_ther       (ASSD):pass
  55 class courbe          (ASSD):pass
  56 class fond_fiss       (ASSD):pass
  57 class interf_dyna_clas(ASSD):pass
  58 class interspfact     (ASSD):pass
  59 class listis          (ASSD):pass
  60 class listr8          (ASSD):pass
  61 class macr_elem_dyna  (ASSD):pass
  62 class macr_elem_stat  (ASSD):pass
  63 class mater           (ASSD):pass
  64 class melasflu        (ASSD):pass
  65 class modele          (ASSD):pass
  66 class modele_gene     (ASSD):pass
  67 class nume_ddl        (ASSD):pass
  68 class nume_ddl_gene   (ASSD):pass
  69 class obstacle        (ASSD):pass
  70 class spectre         (ASSD):pass
  71 class surface         (ASSD):pass
  72 class tran_gene       (ASSD):pass
  73 class type_flui_stru  (ASSD):pass
  74 class valeur          (ASSD):pass
  75
  76 # maillage :
  77 #--------------------------------
  78 class maillage(ASSD):pass
  79 class squelette     (maillage):pass
  80
  81
  82 # cham_gd (carte,cham_no,cham_elem)
  83 #--------------------------------
  84
  85 class cham_gd(ASSD):pass
  86
  87 # cham_gd/carte :
  88 #--------------------------------
  89 class carte(cham_gd):pass
  90 class carte_dbel_r   (carte):pass
  91 class carte_depl_c   (carte):pass
  92 class carte_depl_f   (carte):pass
  93 class carte_depl_r   (carte):pass
  94 class carte_durt_r   (carte):pass
  95 class carte_ener_r   (carte):pass
  96 class carte_epsi_r   (carte):pass
  97 class carte_erreur   (carte):pass
  98 class carte_flux_r   (carte):pass
  99 class carte_g_depl_r (carte):pass
 100 class carte_geom_r   (carte):pass
 101 class carte_hydr_r   (carte):pass
 102 class carte_inst_r   (carte):pass
 103 class carte_inte_r   (carte):pass
 104 class carte_irra_r   (carte):pass
 105 class carte_meta_r   (carte):pass
 106 class carte_neut_f   (carte):pass
 107 class carte_neut_r   (carte):pass
 108 class carte_pres_r   (carte):pass
 109 class carte_sief_r   (carte):pass
 110 class carte_sour_r   (carte):pass
 111 class carte_temp_f   (carte):pass
 112 class carte_temp_r   (carte):pass
 113 class carte_var2_r   (carte):pass
 114 class carte_vnor_c   (carte):pass
 115
 116
 117 # cham_gd/cham_elem :
 118 #--------------------------------
 119 class cham_elem(cham_gd):pass
 120 class cham_elem_crit_r(cham_elem):pass
 121 class cham_elem_dbel_r(cham_elem):pass
 122 class cham_elem_depl_c(cham_elem):pass
 123 class cham_elem_depl_f(cham_elem):pass
 124 class cham_elem_depl_r(cham_elem):pass
 125 class cham_elem_dommag(cham_elem):pass
 126 class cham_elem_durt_r(cham_elem):pass
 127 class cham_elem_ener_r(cham_elem):pass
 128 class cham_elem_epsi_c(cham_elem):pass
 129 class cham_elem_epsi_r(cham_elem):pass
 130 class cham_elem_erreur(cham_elem):pass
 131 class cham_elem_flux_r(cham_elem):pass
 132 class cham_elem_g_depl(cham_elem):pass
 133 class cham_elem_geom_r(cham_elem):pass
 134 class cham_elem_hydr_r(cham_elem):pass
 135 class cham_elem_inst_r(cham_elem):pass
 136 class cham_elem_inte_r(cham_elem):pass
 137 class cham_elem_irra_r(cham_elem):pass
 138 class cham_elem_meta_r(cham_elem):pass
 139 class cham_elem_neut_f(cham_elem):pass
 140 class cham_elem_neut_r(cham_elem):pass
 141 class cham_elem_pres_r(cham_elem):pass
 142 class cham_elem_sief_c(cham_elem):pass
 143 class cham_elem_sief_r(cham_elem):pass
 144 class cham_elem_sour_r(cham_elem):pass
 145 class cham_elem_temp_f(cham_elem):pass
 146 class cham_elem_temp_r(cham_elem):pass
 147 class cham_elem_vari_r(cham_elem):pass
 148 class cham_elem_vnor_c(cham_elem):pass
 149
 150
 151 # cham_gd/cham_no :
 152 #--------------------------------
 153 class cham_no(cham_gd):pass
 154 class cham_no_dbel_r   (cham_no):pass
 155 class cham_no_depl_c   (cham_no):pass
 156 class cham_no_depl_f   (cham_no):pass
 157 class cham_no_depl_r   (cham_no):pass
 158 class cham_no_durt_r   (cham_no):pass
 159 class cham_no_ener_r   (cham_no):pass
 160 class cham_no_epsi_r   (cham_no):pass
 161 class cham_no_erreur   (cham_no):pass
 162 class cham_no_flux_r   (cham_no):pass
 163 class cham_no_g_depl_r (cham_no):pass
 164 class cham_no_geom_r   (cham_no):pass
 165 class cham_no_hydr_r   (cham_no):pass
 166 class cham_no_inst_r   (cham_no):pass
 167 class cham_no_inte_r   (cham_no):pass
 168 class cham_no_irra_r   (cham_no):pass
 169 class cham_no_meta_r   (cham_no):pass
 170 class cham_no_neut_f   (cham_no):pass
 171 class cham_no_neut_r   (cham_no):pass
 172 class cham_no_pres_c   (cham_no):pass
 173 class cham_no_pres_r   (cham_no):pass
 174 class cham_no_sief_r   (cham_no):pass
 175 class cham_no_sour_r   (cham_no):pass
 176 class cham_no_temp_c   (cham_no):pass
 177 class cham_no_temp_f   (cham_no):pass
 178 class cham_no_temp_r   (cham_no):pass
 179 class cham_no_vanl_r   (cham_no):pass
 180 class cham_no_var2_r   (cham_no):pass
 181 class cham_no_vnor_c   (cham_no):pass
 182
 183
 184 # resultat : (evol,mode_stat,mode_meca)
 185 #--------------------------------
 186
 187 class resultat(ASSD):
 188   def __getitem__(self,key):
 189     return aster.getpara(self.get_name(),"RESULTAT",key[0],key[1])
 190
 191 class acou_harmo    (resultat):pass
 192 class base_modale     (resultat):pass
 193 class comb_fourier  (resultat):pass
 194 class dyna_harmo    (resultat):pass
 195 class dyna_trans    (resultat):pass
 196 class fourier_elas  (resultat):pass
 197 class harm_gene     (resultat):pass
 198 class mode_acou     (resultat):pass
 199 class mode_cycl     (resultat):pass
 200 class mode_flamb    (resultat):pass
 201 class mode_gene     (resultat):pass
 202 class mult_elas     (resultat):pass
 203 class theta_geom    (resultat):pass
 204
 205 # resultat/evol :
 206 #--------------------------------
 207 class evol(resultat):pass
 208 class evol_char(evol):pass
 209 class evol_elas(evol):pass
 210 class evol_noli(evol):pass
 211 class evol_ther(evol):pass
 212 class evol_varc(evol):pass
 213
 214 # resultat/mode_stat :
 215 #--------------------------------
 216 class mode_stat(resultat):pass
 217 class mode_stat_depl(mode_stat):pass
 218 class mode_stat_acce(mode_stat):pass
 219 class mode_stat_forc(mode_stat):pass
 220
 221
 222 # resultat/mode_meca :
 223 #--------------------------------
 224 class mode_meca(resultat):pass
 225 class mode_meca_c(mode_meca):pass
 226
 227
 228 # fonction :
 229 #--------------------------------
 230 class para_sensi(fonction):pass
 231 class fonction_c(fonction):pass
 232
 233
 234 # matr_asse :
 235 #--------------------------------
 236 class matr_asse(ASSD):pass
 237 class matr_asse_depl_c(matr_asse):pass
 238 class matr_asse_depl_r(matr_asse):pass
 239 class matr_asse_gene_r(matr_asse):pass
 240 class matr_asse_gene_c(matr_asse):pass
 241 class matr_asse_pres_c(matr_asse):pass
 242 class matr_asse_pres_r(matr_asse):pass
 243 class matr_asse_temp_c(matr_asse):pass
 244 class matr_asse_temp_r(matr_asse):pass
 245
 246 # matr_elem :
 247 #--------------------------------
 248 class matr_elem(ASSD):pass
 249 class matr_elem_depl_c(matr_elem):pass
 250 class matr_elem_depl_r(matr_elem):pass
 251 class matr_elem_pres_c(matr_elem):pass
 252 class matr_elem_temp_r(matr_elem):pass
 253
 254
 255
 256
 257 # table : (tabl_fonc)
 258 #--------------------------------
 259
 260 class table(ASSD):
 261   def __getitem__(self,key):
 262     return aster.getpara(self.get_name(),"TABLE",key[0],key[1])
 263
 264 class tabl_aire_int   (table):pass
 265 class tabl_calc_g_loca(table):pass
 266 class tabl_calc_g_th  (table):pass
 267 class tabl_cara_geom  (table):pass
 268 class tabl_char_limite(table):pass
 269 class tabl_ener_elas  (table):pass
 270 class tabl_ener_pot   (table):pass
 271 class tabl_ener_cin   (table):pass
 272 class tabl_ener_ext   (table):pass
 273 class tabl_ener_totale(table):pass
 274 class tabl_indic_ener (table):pass
 275 class tabl_indic_seuil(table):pass
 276 class tabl_intsp      (table):pass
 277 class tabl_mass_iner  (table):pass
 278 class tabl_post_alea  (table):pass
 279 class tabl_post_dyna  (table):pass
 280 class tabl_post_f_alea(table):pass
 281 class tabl_post_fatig (table):pass
 282 class tabl_post_gouj2e(table):pass
 283 class tabl_post_k     (table):pass
 284 class tabl_post_rccm  (table):pass
 285 class tabl_post_rele  (table):pass
 286 class tabl_post_simpli(table):pass
 287 class tabl_post_usur  (table):pass
 288 class tabl_reca_weib  (table):pass
 289 class tabl_rice_tracey(table):pass
 290 class tabl_texture    (table):pass
 291 class tabl_trc        (table):pass
 292 class tabl_weibull    (table):pass
 293
 294 # table/tabl_fonc
 295 #--------------------------------
 296 class tabl_fonc       (table):pass
 297 class tabl_fonc_max   (tabl_fonc):pass
 298 class tabl_fonc_noci  (tabl_fonc):pass
 299 class tabl_fonc_rms   (tabl_fonc):pass
 300
 301
 302 # vect_asse :
 303 #--------------------------------
 304 class vect_asse(ASSD):pass
 305 class vect_asse_gene(vect_asse):pass
 306
 307
 308 # vect_elem :
 309 #--------------------------------
 310 class vect_elem(ASSD):pass
 311 class vect_elem_depl_r(vect_elem):pass
 312 class vect_elem_pres_c(vect_elem):pass
 313 class vect_elem_pres_r(vect_elem):pass
 314 class vect_elem_temp_r(vect_elem):pass
 315
 316 #& MODIF COMMANDE  DATE 22/11/2001   AUTEUR VABHHTS J.PELLET
 317 AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
 318                     fr="Affectation de caractéristiques à des éléments de structure",
 319                     docu="U4.42.01-f1",reentrant='n',
 320          regles=(AU_MOINS_UN('POUTRE','BARRE','COQUE','CABLE','DISCRET','MASSIF',
 321                              'ASSE_GRIL','GRILLE','AFFE_SECT','AFFE_FIBRE'),),
 322          MODELE          =SIMP(statut='o',typ=modele ),
 323          INFO            =SIMP(statut='f',typ='I', defaut= 1 ,into=(1,2) ),
 324          VERIF           =SIMP(statut='f',typ='TXM',max='**',into=("MAILLE","NOEUD") ),
 325
 326          POUTRE          =FACT(statut='f',min=01,max='**',
 327            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 328            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 329            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 330            SECTION         =SIMP(statut='o',typ='TXM' ,into=("GENERALE","RECTANGLE","CERCLE") ),
 331            CARA_SECT       =SIMP(statut='f',typ=(cara_pout) ),
 332            TUYAU_NCOU      =SIMP(statut='f',typ='I',min=1,max=10,defaut=3),
 333            TUYAU_NSEC      =SIMP(statut='f',typ='I',min=1,max=32,defaut=16),
 334            b_generale      =BLOC( condition = "SECTION=='GENERALE'",
 335              CARA            =SIMP(statut='o',typ='TXM',max='**',
 336                                  into=("A","IY","IZ","AY","AZ","EY","EZ","JX","RY","RZ","RT",
 337                                                            "AI","JG","IYR2","IZR2","A1",
 338                                        "IY1","IZ1","AY1","AZ1","EY1","EZ1","JX1","RY1",
 339                                        "RZ1","RT1","AI1","JG1","IYR21","IZR21","A2",
 340                                        "IY2","IZ2","AY2","AZ2","EY2","EZ2","JX2","RY2",
 341                                        "RZ2","RT2","AI2","JG2","IYR22","IZR22","H",
 342                                        "HZ","HY","EP","EPY","EPZ","H1","HZ1","HY1",
 343                                        "EP1","EPY1","EPZ1","H2","HZ2","HY2","EP2",
 344                                        "EPY2","EPZ2","R","R1","R2") ),
 345              VALE            =SIMP(statut='o',typ='R',max='**'),
 346              VARI_SECT       =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE",) ),
 347            ),
 348            b_rectangle     =BLOC( condition = "SECTION=='RECTANGLE'",
 349              CARA            =SIMP(statut='o',typ='TXM',max='**',
 350                                  into=("H","EP","HY","HZ","EPY","EPZ",
 351                                                            "H1","HZ1","HY1","EP1","EPY1","EPZ1",
 352                                                            "H2","HZ2","HY2","EP2","EPY2","EPZ2") ),
 353              VALE            =SIMP(statut='o',typ='R',max='**'),
 354              VARI_SECT       =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE","AFFINE"),defaut="HOMOTHETIQUE"),
 355            ),
 356            b_cercle        =BLOC( condition = "SECTION=='CERCLE'",
 357              CARA            =SIMP(statut='o',typ='TXM',max='**',
 358                                  into=("R","EP","R1","R2","EP1","EP2") ),
 359              VALE            =SIMP(statut='o',typ='R',max='**'),
 360              VARI_SECT       =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE",) ),
 361              MODI_METRIQUE   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
 362            ),
 363            FCX             =SIMP(statut='f',typ=(fonction) ),
 364          ),
 365
 366          BARRE           =FACT(statut='f',min=01,max='**',
 367            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 368            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 369            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 370            SECTION         =SIMP(statut='o',typ='TXM',into=("GENERALE","RECTANGLE","CERCLE") ),
 371            b_generale      =BLOC( condition = "SECTION=='GENERALE'",
 372              CARA            =SIMP(statut='o',typ='TXM',into=("A",) ),
 373              VALE            =SIMP(statut='o',typ='R' ),
 374            ),
 375            b_rectangle     =BLOC( condition = "SECTION=='RECTANGLE'",
 376              CARA            =SIMP(statut='o',typ='TXM',into=("H","HZ","HY","EPY","EPZ","EP"),max=6 ),
 377              VALE            =SIMP(statut='o',typ='R',max=6 ),
 378            ),
 379            b_cercle        =BLOC( condition = "SECTION=='CERCLE'",
 380              CARA            =SIMP(statut='o',typ='TXM',max=2,into=("R","EP") ),
 381              VALE            =SIMP(statut='o',typ='R',max=2 ),
 382            ),
 383            FCX             =SIMP(statut='f',typ=(fonction) ),
 384          ),
 385
 386          COQUE           =FACT(statut='f',min=01,max='**',
 387            regles=(UN_PARMI('MAILLE','GROUP_MA' ),
 388                    PRESENT_PRESENT( 'EXCENTREMENT','INER_ROTA' ),),
 389            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 390            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 391            EPAIS           =SIMP(statut='o',typ='R' ),
 392            ANGL_REP        =SIMP(statut='f',typ='R',min=2,max=2),
 393            A_CIS           =SIMP(statut='f',typ='R',defaut= 0.8333333E0),
 394            COEF_RIGI_DRZ   =SIMP(statut='f',typ='R',defaut= 1.0E-5 ),
 395            COQUE_NCOU      =SIMP(statut='f',typ='I',defaut= 1 ),
 396            EXCENTREMENT    =SIMP(statut='f',typ='R' ),
 397            INER_ROTA       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 398            MODI_METRIQUE   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
 399          ),
 400
 401          CABLE           =FACT(statut='f',min=01,max='**',
 402            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 403                    UN_PARMI('A','SECTION') ),
 404            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 405            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 406            N_INIT          =SIMP(statut='f',typ='R',defaut= 5000. ),
 407            A               =SIMP(statut='f',typ='R' ),
 408            SECTION         =SIMP(statut='f',typ='R' ),
 409            FCX             =SIMP(statut='f',typ=(fonction) ),
 410          ),
 411
 412          DISCRET         =FACT(statut='f',min=01,max='**',
 413            regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
 414            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 415            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 416            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 417            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 418            REPERE          =SIMP(statut='f',typ='TXM',into=("LOCAL","GLOBAL") ),
 419            AMOR_HYST       =SIMP(statut='f',typ='R' ),
 420            CARA            =SIMP(statut='o',typ='TXM',max='**',
 421                                  into=("K_T_D_N","K_T_D_L","K_TR_D_N","K_TR_D_L",
 422                                                            "K_T_N",  "K_T_L",  "K_TR_N",  "K_TR_L",
 423                                                                 "M_T_D_N","M_TR_D_N","M_T_N",
 424                                                            "M_T_L",  "M_TR_N",  "M_TR_L",
 425                                        "A_T_D_N","A_TR_D_N","A_T_D_L","A_TR_D_L",
 426                                                            "A_T_N",  "A_T_L",   "A_TR_N", "A_TR_L") ),
 427            VALE            =SIMP(statut='o',typ='R',max='**'),
 428          ),
 429
 430          ORIENTATION     =FACT(statut='f',min=01,max='**',
 431            regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO' ),),
 432            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 433            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 434            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 435            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 436            CARA            =SIMP(statut='o',typ='TXM',
 437                                  into=("VECT_Y","ANGL_VRIL","VECT_X_Y","ANGL_NAUT","GENE_TUYAU") ),
 438            VALE            =SIMP(statut='o',typ='R',max='**'),
 439            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-4 ),
 440            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
 441          ),
 442
 443          DEFI_ARC        =FACT(statut='f',min=01,max='**',
 444            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 445                    UN_PARMI('ORIE_ARC','CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE',
 446                             'POIN_TANG','NOEUD_POIN_TANG','GROUP_NO_POIN_TG'),
 447                    PRESENT_PRESENT('ORIE_ARC','RAYON'),
 448                    EXCLUS('COEF_FLEX','COEF_FLEX_XY'),
 449                    EXCLUS('COEF_FLEX','COEF_FLEX_XZ'),
 450                    EXCLUS('INDI_SIGM','INDI_SIGM_XY'),
 451                    EXCLUS('INDI_SIGM','INDI_SIGM_XZ'),
 452                    PRESENT_PRESENT('COEF_FLEX_XY','COEF_FLEX_XZ'),
 453                    PRESENT_PRESENT('INDI_SIGM_XY','INDI_SIGM_XZ'),),
 454            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 455            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 456            ORIE_ARC        =SIMP(statut='f',typ='R'),
 457            CENTRE          =SIMP(statut='f',typ='R',max='**'),
 458            NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=1),
 459            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno,max=1),
 460            POIN_TANG       =SIMP(statut='f',typ='R',max='**'),
 461            NOEUD_POIN_TANG =SIMP(statut='f',typ=no,max=1),
 462            GROUP_NO_POIN_TG=SIMP(statut='f',typ=grno,max=1),
 463            RAYON           =SIMP(statut='f',typ='R'),
 464            COEF_FLEX       =SIMP(statut='f',typ='R'),
 465            INDI_SIGM       =SIMP(statut='f',typ='R'),
 466            COEF_FLEX_XY    =SIMP(statut='f',typ='R'),
 467            INDI_SIGM_XY    =SIMP(statut='f',typ='R'),
 468            COEF_FLEX_XZ    =SIMP(statut='f',typ='R'),
 469            INDI_SIGM_XZ    =SIMP(statut='f',typ='R'),
 470            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
 471            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
 472          ),
 473
 474          MASSIF          =FACT(statut='f',min=01,max='**',
 475            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 476                    UN_PARMI('ANGL_REP','ANGL_AXE'),
 477                    EXCLUS('ANGL_REP','ANGL_AXE'),
 478                    EXCLUS('ANGL_REP','ORIG_AXE'),
 479                    PRESENT_PRESENT('ANGL_AXE','ORIG_AXE'), ),
 480            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 481            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 482            ANGL_REP        =SIMP(statut='f',typ='R',max=3),
 483            ANGL_AXE        =SIMP(statut='f',typ='R',max=2),
 484            ORIG_AXE        =SIMP(statut='f',typ='R',max=3),
 485          ),
 486
 487          POUTRE_FLUI     =FACT(statut='f',min=01,max='**',
 488            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 489            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 490            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 491            B_T             =SIMP(statut='o',typ='R'),
 492            B_N             =SIMP(statut='o',typ='R'),
 493            B_TN            =SIMP(statut='o',typ='R',defaut= 0.E+0 ),
 494            A_FLUI          =SIMP(statut='o',typ='R'),
 495            A_CELL          =SIMP(statut='o',typ='R'),
 496            COEF_ECHELLE    =SIMP(statut='o',typ='R'),
 497          ),
 498
 499          GRILLE          =FACT(statut='f',min=01,max='**',
 500            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 501                    EXCLUS('ANGL_REP','ORIG_AXE'),
 502                    EXCLUS('EXCENTREMENT','DIST_N'),
 503                    ENSEMBLE('ORIG_AXE','AXE')),
 504            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 505            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 506            SECTION_L       =SIMP(statut='o',typ='R'),
 507            ANGL_REP        =SIMP(statut='f',typ='R',max=2),
 508            ANGL_L          =SIMP(statut='f',typ='R'),
 509            POUR_CENT_L     =SIMP(statut='f',typ='R'),
 510            POUR_CENT_T     =SIMP(statut='f',typ='R'),
 511            DIST_N          =SIMP(statut='f',typ='R'),
 512            EXCENTREMENT    =SIMP(statut='f',typ='R'),
 513            ORIG_AXE        =SIMP(statut='f',typ='R',max='**'),
 514            AXE             =SIMP(statut='f',typ='R',max='**'),
 515            COEF_RIGI_DRZ   =SIMP(statut='f',typ='R',defaut= 1.0E-10 ),
 516            GRILLE_NCOU     =SIMP(statut='f',typ='I',defaut= 1,min=1,max=1 ),
 517          ),
 518
 519          RIGI_PARASOL    =FACT(statut='f',min=01,max='**',
 520            regles=(UN_PARMI('COEF_GROUP','FONC_GROUP'),
 521                    UN_PARMI('COOR_CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),),
 522            GROUP_MA        =SIMP(statut='o',typ=ma,max='**'),
 523            FONC_GROUP      =SIMP(statut='f',typ=(fonction) ),
 524            COEF_GROUP      =SIMP(statut='f',typ='R',max='**'),
 525            REPERE          =SIMP(statut='f',typ='TXM',into=("LOCAL","GLOBAL") ),
 526            CARA            =SIMP(statut='o',typ='TXM',max='**',into=("K_TR_D_N","A_TR_D_N") ),
 527            VALE            =SIMP(statut='o',typ='R',max='**'),
 528            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno),
 529            NOEUD_CENTRE    =SIMP(statut='f',typ=no),
 530            COOR_CENTRE     =SIMP(statut='f',typ='R',max='**'),
 531          ),
 532
 533          ASSE_GRIL       =FACT(statut='f',min=01,max='**',
 534            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 535            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 536            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 537            CARA            =SIMP(statut='o',typ='TXM',max='**',
 538                                  into=("K_TR_D_N","K_TR_D_L_T","K_TR_D_L_N",) ),
 539            VALE            =SIMP(statut='o',typ='R',max='**'),
 540            PAS_T           =SIMP(statut='o',typ='R'),
 541            PAS_N           =SIMP(statut='o',typ='R'),
 542            ANGL_REP        =SIMP(statut='o',typ='R',max='**'),
 543            COEF_ECHELLE    =SIMP(statut='o',typ='R'),
 544          ),
 545
 546
 547          AFFE_SECT     =FACT(statut='f',min=1,max='**',
 548               regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
 549                       AU_MOINS_UN('TOUT_SECT','GROUP_MA_SECT','MAILLE_SECT'),
 550                       PRESENT_ABSENT('TOUT_SECT','GROUP_MA_SECT','MAILLE_SECT'),),
 551
 552               GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 553               MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 554
 555               TOUT_SECT         =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 556               GROUP_MA_SECT     =SIMP(statut='f',typ=grma,max='**'),
 557               MAILLE_SECT       =SIMP(statut='f',typ=ma,max='**'),
 558
 559               MAILLAGE_SECT     =SIMP(statut='o',typ=maillage),
 560               COOR_AXE_POUTRE    =SIMP(statut='o',typ='R',min=2,max=2),
 561          ),
 562
 563
 564          AFFE_FIBRE     =FACT(statut='f',min=1,max='**',
 565               regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
 566
 567               GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 568               MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 569
 570               CARA              =SIMP(statut='f',typ='TXM',defaut='SURFACE',into=('SURFACE','DIAMETRE',)),
 571               VALE              =SIMP(statut='o',typ='R',max='**'),
 572               COOR_AXE_POUTRE    =SIMP(statut='o',typ='R',min=2,max=2),
 573          ),
 574
 575
 576 ) ;
 577 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
 578 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 579 # ======================================================================
 580 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 581 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
 582 #              REDISTRIBUTION OF THIS FILE.
 583 # ======================================================================
 584 AFFE_CHAR_ACOU=OPER(nom="AFFE_CHAR_ACOU",op=  68,sd_prod=char_acou,
 585                     fr="Affectation de charges et conditions aux limites acoustiques constantes",
 586                     docu="U4.44.04-e",reentrant='n',
 587          regles=(AU_MOINS_UN('PRES_IMPO','VITE_FACE','IMPE_FACE','LIAISON_UNIF' ),),
 588          MODELE          =SIMP(statut='o',typ=modele ),
 589          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
 590          PRES_IMPO       =FACT(statut='f',min=01,max='**',
 591            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
 592            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 593            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 594            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 595            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 596            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 597            PRES            =SIMP(statut='o',typ='C' ),
 598          ),
 599          VITE_FACE       =FACT(statut='f',min=01,max='**',
 600              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
 601                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
 602            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 603            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 604            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 605            VNOR            =SIMP(statut='o',typ='C' ),
 606          ),
 607          IMPE_FACE       =FACT(statut='f',min=01,max='**',
 608              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
 609                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
 610            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 611            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 612            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 613            IMPE            =SIMP(statut='o',typ='C' ),
 614          ),
 615          LIAISON_UNIF    =FACT(statut='f',min=01,max='**',
 616            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE' ),),
 617            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 618            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 619            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 620            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 621            DDL             =SIMP(statut='o',typ='TXM',max='**'),
 622          ),
 623 )  ;
 624 #& MODIF COMMANDE  DATE 21/06/2001   AUTEUR VABHHTS J.PELLET
 625 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 626 # ======================================================================
 627 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 628 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
 629 #              REDISTRIBUTION OF THIS FILE.
 630 # ======================================================================
 631 # RESPONSABLE VABHHTS J.PELLET
 632 def affe_char_cine_prod(MECA_IMPO,THER_IMPO,ACOU_IMPO,**args):
 633   if MECA_IMPO != None  : return char_cine_meca
 634   if THER_IMPO != None  : return char_cine_ther
 635   if ACOU_IMPO != None  : return char_cine_acou
 636   raise AsException("type de concept resultat non prevu")
 637
 638 AFFE_CHAR_CINE=OPER(nom="AFFE_CHAR_CINE",op= 101,sd_prod=affe_char_cine_prod
 639                     ,fr="Affectation de conditions aux limites cinématiques pour traitement sans dualisation",
 640                      docu="U4.44.03-e",reentrant='n',
 641          regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO','ACOU_IMPO'),
 642                  EXCLUS('MECA_IMPO','THER_IMPO'),
 643                  EXCLUS('MECA_IMPO','ACOU_IMPO'),
 644                  EXCLUS('THER_IMPO','ACOU_IMPO'),),
 645          MODELE          =SIMP(statut='o',typ=modele ),
 646          MECA_IMPO       =FACT(statut='f',min=01,max='**',
 647            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
 648                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','TEMP','PHI'),),
 649            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 650            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 651            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 652            DX              =SIMP(statut='f',typ='R' ),
 653            DY              =SIMP(statut='f',typ='R' ),
 654            DZ              =SIMP(statut='f',typ='R' ),
 655            DRX             =SIMP(statut='f',typ='R' ),
 656            DRY             =SIMP(statut='f',typ='R' ),
 657            DRZ             =SIMP(statut='f',typ='R' ),
 658            GRX             =SIMP(statut='f',typ='R' ),
 659            PRES            =SIMP(statut='f',typ='R' ),
 660            TEMP            =SIMP(statut='f',typ='R' ),
 661            PHI             =SIMP(statut='f',typ='R' ),
 662          ),
 663          THER_IMPO       =FACT(statut='f',min=01,max='**',
 664            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
 665                    AU_MOINS_UN('TEMP','TEMP_INF','TEMP_SUP'),),
 666            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 667            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 668            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 669            TEMP_SUP        =SIMP(statut='f',typ='R' ),
 670            TEMP            =SIMP(statut='f',typ='R' ),
 671            TEMP_INF        =SIMP(statut='f',typ='R' ),
 672          ),
 673          ACOU_IMPO       =FACT(statut='f',min=01,max='**',
 674            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD' ),),
 675            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 676            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 677            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 678            PRES            =SIMP(statut='o',typ='C' ),
 679          ),
 680          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 681 )  ;
 682 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
 683 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 684 # ======================================================================
 685 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 686 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
 687 #              REDISTRIBUTION OF THIS FILE.
 688 # ======================================================================
 689 def affe_char_cine_f_prod(MECA_IMPO,THER_IMPO,**args):
 690   if MECA_IMPO != None  : return char_cine_meca
 691   if THER_IMPO != None  : return char_cine_ther
 692   raise AsException("type de concept resultat non prevu")
 693
 694 AFFE_CHAR_CINE_F=OPER(nom="AFFE_CHAR_CINE_F",op= 108,sd_prod=affe_char_cine_f_prod
 695                     ,fr="Affectation de conditions aux limites cinématiques pour traitement sans dualisation",
 696                      docu="U4.44.03-e",reentrant='n',
 697          regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO'),
 698                  EXCLUS('MECA_IMPO','THER_IMPO'),),
 699          MODELE          =SIMP(statut='o',typ=modele ),
 700          MECA_IMPO       =FACT(statut='f',min=01,max='**',
 701            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
 702                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','TEMP','PHI'),),
 703            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 704            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 705            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 706            DX              =SIMP(statut='f',typ=fonction ),
 707            DY              =SIMP(statut='f',typ=fonction ),
 708            DZ              =SIMP(statut='f',typ=fonction ),
 709            DRX             =SIMP(statut='f',typ=fonction ),
 710            DRY             =SIMP(statut='f',typ=fonction ),
 711            DRZ             =SIMP(statut='f',typ=fonction ),
 712            GRX             =SIMP(statut='f',typ=fonction ),
 713            PRES            =SIMP(statut='f',typ=fonction ),
 714            TEMP            =SIMP(statut='f',typ=fonction ),
 715            PHI             =SIMP(statut='f',typ=fonction ),
 716          ),
 717          THER_IMPO       =FACT(statut='f',min=01,max='**',
 718            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
 719                    AU_MOINS_UN('TEMP','TEMP_INF','TEMP_SUP' ),),
 720            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 721            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 722            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 723            TEMP_SUP        =SIMP(statut='f',typ=fonction ),
 724            TEMP            =SIMP(statut='f',typ=fonction ),
 725            TEMP_INF        =SIMP(statut='f',typ=fonction ),
 726          ),
 727          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 728 )  ;
 729 #& MODIF COMMANDE  DATE 24/01/2002   AUTEUR SMICHEL S.MICHEL-PONNELLE
 730 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 731 # ======================================================================
 732 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 733 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
 734 #              REDISTRIBUTION OF THIS FILE.
 735 # ======================================================================
 736 # RESPONSABLE G8BHHXD X.DESROCHES
 737 AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca
 738                     ,fr="Affectation de charges et conditions aux limites mécaniques constantes",
 739                      docu="U4.44.01-f1",reentrant='n',
 740          regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
 741                              'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
 742                              'PRES_REP','FORCE_POUTRE','FORCE_COQUE','LIAISON_OBLIQUE',
 743                              'FORCE_ELEC','INTE_ELEC','PESANTEUR','ROTATION','IMPE_FACE',
 744                              'VITE_FACE','TEMP_CALCULEE','RELA_CINE_BP','EPSI_INIT','CONTACT',
 745                              'LIAISON_UNIL_NO','LIAISON_GROUP','LIAISON_UNIF','FLUX_THM_REP',
 746                              'LIAISON_SOLIDE','LIAISON_ELEM','ONDE_FLUI','PRES_CALCULEE',
 747                              'EPSA_CALCULEE','LIAISON_CHAMNO','VECT_ASSE','LIAISON_COQUE',
 748                              'LIAISON_MAIL','FORCE_TUYAU','SECH_CALCULEE','HYDR_CALCULEE',
 749                              'EFFE_FOND','EVOL_CHAR','ARLEQUIN'),
 750                  EXCLUS('PRES_CALCULEE','EVOL_CHAR'),
 751                  EXCLUS('LIAISON_UNIL_NO','CONTACT'),),
 752
 753          MODELE          =SIMP(statut='o',typ=(modele) ),
 754          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
 755          VERI_NORM       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
 756 #    A TERME PRES_CALCULEE N'EXISTERA PLUS
 757          EVOL_CHAR       =SIMP(statut='f',fr="Champ de pression issu d'un autre calcul",
 758                                typ=evol_char ),
 759          PRES_CALCULEE   =SIMP(statut='f',fr="Champ de pression issu d'un autre calcul",
 760                                typ=evol_char ),
 761          TEMP_CALCULEE   =SIMP(statut='f',fr="Champ de température issu d'un autre calcul",
 762                                typ=(evol_ther,cham_no_temp_r,carte_temp_r,carte_temp_f ) ),
 763          HYDR_CALCULEE   =SIMP(statut='f',fr="Champ d hydratation issu d'un autre calcul",
 764                                typ=evol_ther ),
 765          SECH_CALCULEE   =SIMP(statut='f',fr="Champ de séchage issu d'un autre calcul",
 766                                typ=(evol_ther,cham_no_temp_r,carte_temp_r,carte_temp_f ) ),
 767          EPSA_CALCULEE   =SIMP(statut='f',fr="Champ de déformation anélastique issu d'un autre calcul",
 768                                typ=evol_noli ),
 769          VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
 770
 771          ARLEQUIN        =FACT(statut='f',min=1,max='**',
 772            GROUP_MA_1     =SIMP(statut='o',typ=grma,max='**'),
 773            GROUP_MA_2     =SIMP(statut='o',typ=grma,max='**'),
 774            GROUP_MA_COLL  =SIMP(statut='o',typ=grma,max='**'),
 775            regles        =(UN_PARMI('POIDS_1','POIDS_2'),),
 776            POIDS_1       =SIMP(statut='f',typ='R'),
 777            POIDS_2       =SIMP(statut='f',typ='R'),
 778          ),
 779
 780          CONTACT         =FACT(statut='f',fr="Imposer du contact avec ou sans frottement",min=1,max='**',
 781            regles=(UN_PARMI('GROUP_MA_2','MAILLE_2'),),
 782            APPARIEMENT     =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
 783                                  into=("NON","NODAL","NODAL_SYME","MAIT_ESCL","MAIT_ESCL_SYME")),
 784            RECHERCHE       =SIMP(statut='f',typ='TXM',defaut="NOEUD_VOISIN",into=("NOEUD_BOUCLE","NOEUD_VOISIN")),
 785            LISSAGE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
 786            NORMALE         =SIMP(statut='f',typ='TXM',defaut="MAIT",into=("MAIT","MAIT_ESCL")),
 787            METHODE         =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
 788                                  into=("CONTRAINTE","LAGRANGIEN","PENALISATION","CONTINUE") ),
 789            PROJECTION      =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE",) ),
 790            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
 791            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
 792            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
 793            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
 794            b_active        =BLOC(condition = "METHODE == 'CONTRAINTE' ",
 795                                  fr="Paramètres de la méthode des contraintes actives (contact uniquement)",
 796                 regles=(EXCLUS('DIST_2','COEF_IMPO'),
 797                         EXCLUS('DIST_1','COEF_IMPO'),),
 798                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","PRES","TEMP")),
 799                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS",) ),
 800                 REAC_GEOM_INTE  =SIMP(statut='f',typ='I',defaut= 2),
 801                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
 802                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
 803                 COEF_IMPO       =SIMP(statut='f',typ='R'),
 804                 COEF_MULT_2     =SIMP(statut='f',typ='R'),
 805                 VECT_NORM_2     =SIMP(statut='f',typ='R',max=3),
 806                 DIST_1          =SIMP(statut='f',typ='R'),
 807                 DIST_2          =SIMP(statut='f',typ='R'),),
 808            b_lagrangien    =BLOC(condition = "METHODE == 'LAGRANGIEN' ",
 809                                  fr="Paramètres de la méthode Lagrangienne (contact avec ou sans frottement)",
 810                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
 811                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
 812                 REAC_GEOM_INTE  =SIMP(statut='f',typ='I',defaut= 2),
 813                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
 814                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
 815                 DIST_1          =SIMP(statut='f',typ='R'),
 816                 DIST_2          =SIMP(statut='f',typ='R'),
 817                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
 818                      COULOMB         =SIMP(statut='o',typ='R',max=1),
 819                      COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut=0.E+0),
 820                      VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),),),
 821            b_penalisation       =BLOC(condition = "METHODE == 'PENALISATION' ",
 822                                       fr="Paramètres de la méthode pénalisée (contact avec ou sans frottement)",
 823                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
 824                 E_N             =SIMP(statut='f',typ='R'),
 825                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
 826                 REAC_GEOM_INTE  =SIMP(statut='f',typ='I',defaut= 2),
 827                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
 828                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
 829                 DIST_1          =SIMP(statut='f',typ='R'),
 830                 DIST_2          =SIMP(statut='f',typ='R'),
 831                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
 832                      COULOMB         =SIMP(statut='o',typ='R',max=1),
 833                      E_T             =SIMP(statut='f',typ='R',
 834                                            fr="Active la pénalisation sur le frottement et définit le coefficient de pénalisation"),
 835                      COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut=0.E+0),
 836                      VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),),),
 837            b_continue      =BLOC(condition = "METHODE == 'CONTINUE' ",
 838                                  fr="Paramètres de la méthode continue (contact avec ou sans frottement)",
 839                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
 840                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
 841                 INTEGRATION     =SIMP(statut='f',typ='TXM',defaut="NOEUD",into=("GAUSS","NOEUD")),
 842                 COEF_REGU_CONT  =SIMP(statut='f',typ='R',defaut=100.E+0),
 843                 MODL_AXIS       =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
 844                 ITER_GEOM_MAXI  =SIMP(statut='f',typ='I',defaut=2),
 845                 ITER_CONT_MAXI  =SIMP(statut='f',typ='I',defaut=30),
 846                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
 847                      COULOMB         =SIMP(statut='o',typ='R',max=1),
 848                      ITER_FROT_MAXI  =SIMP(statut='f',typ='I',defaut=2),
 849                      COEF_REGU_FROT  =SIMP(statut='f',typ='R',defaut=100.E+0),
 850                      SEUIL_INIT      =SIMP(statut='f',typ='I',defaut=0),),),
 851          ),
 852
 853         DDL_IMPO        =FACT(statut='f',min=1,max='**',
 854              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
 855                      AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
 856                                  'TEMP','PRE1','PRE2','UI2','UI3','VI2','VI3','WI2','WI3','UO2',
 857                                  'UO3','VO2','VO3','WO2','WO3','UI4','UI5','VI4','VI5','WI4',
 858                                  'WI5','UO4','UO5','VO4','VO5','WO4','WO5','UI6','UO6','VI6',
 859                                  'VO6','WI6','WO6','WO','WI1','WO1','GONF'),),
 860              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 861              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 862              NOEUD           =SIMP(statut='f',typ=no,max='**'),
 863              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 864              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 865              DX              =SIMP(statut='f',typ='R' ),
 866              DY              =SIMP(statut='f',typ='R' ),
 867              DZ              =SIMP(statut='f',typ='R' ),
 868              DRX             =SIMP(statut='f',typ='R' ),
 869              DRY             =SIMP(statut='f',typ='R' ),
 870              DRZ             =SIMP(statut='f',typ='R' ),
 871              GRX             =SIMP(statut='f',typ='R' ),
 872              PRES            =SIMP(statut='f',typ='R' ),
 873              PHI             =SIMP(statut='f',typ='R' ),
 874              TEMP            =SIMP(statut='f',typ='R' ),
 875              PRE1            =SIMP(statut='f',typ='R' ),
 876              PRE2            =SIMP(statut='f',typ='R' ),
 877              UI2             =SIMP(statut='f',typ='R' ),
 878              UI3             =SIMP(statut='f',typ='R' ),
 879              UI4             =SIMP(statut='f',typ='R' ),
 880              UI5             =SIMP(statut='f',typ='R' ),
 881              UI6             =SIMP(statut='f',typ='R' ),
 882              UO2             =SIMP(statut='f',typ='R' ),
 883              UO3             =SIMP(statut='f',typ='R' ),
 884              UO4             =SIMP(statut='f',typ='R' ),
 885              UO5             =SIMP(statut='f',typ='R' ),
 886              UO6             =SIMP(statut='f',typ='R' ),
 887              VI2             =SIMP(statut='f',typ='R' ),
 888              VI3             =SIMP(statut='f',typ='R' ),
 889              VI4             =SIMP(statut='f',typ='R' ),
 890              VI5             =SIMP(statut='f',typ='R' ),
 891              VI6             =SIMP(statut='f',typ='R' ),
 892              VO2             =SIMP(statut='f',typ='R' ),
 893              VO3             =SIMP(statut='f',typ='R' ),
 894              VO4             =SIMP(statut='f',typ='R' ),
 895              VO5             =SIMP(statut='f',typ='R' ),
 896              VO6             =SIMP(statut='f',typ='R' ),
 897              WI2             =SIMP(statut='f',typ='R' ),
 898              WI3             =SIMP(statut='f',typ='R' ),
 899              WI4             =SIMP(statut='f',typ='R' ),
 900              WI5             =SIMP(statut='f',typ='R' ),
 901              WI6             =SIMP(statut='f',typ='R' ),
 902              WO2             =SIMP(statut='f',typ='R' ),
 903              WO3             =SIMP(statut='f',typ='R' ),
 904              WO4             =SIMP(statut='f',typ='R' ),
 905              WO5             =SIMP(statut='f',typ='R' ),
 906              WO6             =SIMP(statut='f',typ='R' ),
 907              WO              =SIMP(statut='f',typ='R' ),
 908              WI1             =SIMP(statut='f',typ='R' ),
 909              WO1             =SIMP(statut='f',typ='R' ),
 910              GONF            =SIMP(statut='f',typ='R' ),
 911            ),
 912
 913          EFFE_FOND       =FACT(statut='f',fr="Imposer un effet de fond",min=1,max='**',
 914            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
 915            GROUP_MA_INT    =SIMP(statut='o',typ=grma,max='**'),
 916            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 917            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 918            PRES            =SIMP(statut='o',typ='R' ),
 919          ),
 920
 921          EPSI_INIT       =FACT(statut='f',fr="Appliquer un chargement de déformation initiale à un volume 3D ou 2D",
 922                                  min=1,max='**',
 923              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
 924                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
 925                      AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ','EPX',
 926                                  'KY','KZ','EXX','EYY','EXY','KXX','KYY','KXY'),),
 927              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 928              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 929              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 930              EPXX            =SIMP(statut='f',typ='R' ),
 931              EPYY            =SIMP(statut='f',typ='R' ),
 932              EPZZ            =SIMP(statut='f',typ='R' ),
 933              EPXY            =SIMP(statut='f',typ='R' ),
 934              EPXZ            =SIMP(statut='f',typ='R' ),
 935              EPYZ            =SIMP(statut='f',typ='R' ),
 936              EPX             =SIMP(statut='f',typ='R' ),
 937              KY              =SIMP(statut='f',typ='R' ),
 938              KZ              =SIMP(statut='f',typ='R' ),
 939              EXX             =SIMP(statut='f',typ='R' ),
 940              EYY             =SIMP(statut='f',typ='R' ),
 941              EXY             =SIMP(statut='f',typ='R' ),
 942              KXX             =SIMP(statut='f',typ='R' ),
 943              KYY             =SIMP(statut='f',typ='R' ),
 944              KXY             =SIMP(statut='f',typ='R' ),
 945            ),
 946
 947            FACE_IMPO       =FACT(statut='f',min=1,max='**',
 948              regles=(UN_PARMI('GROUP_MA','MAILLE',),
 949                      AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
 950                                  'TEMP','PRE1','PRE2','DNOR','DTAN'),
 951                      EXCLUS('DNOR','DX'),
 952                      EXCLUS('DNOR','DY'),
 953                      EXCLUS('DNOR','DZ'),
 954                      EXCLUS('DNOR','DRX'),
 955                      EXCLUS('DNOR','DRY'),
 956                      EXCLUS('DNOR','DRZ'),
 957                      EXCLUS('DTAN','DX'),
 958                      EXCLUS('DTAN','DY'),
 959                      EXCLUS('DTAN','DZ'),
 960                      EXCLUS('DTAN','DRX'),
 961                      EXCLUS('DTAN','DRY'),
 962                      EXCLUS('DTAN','DRZ'),),
 963 #  rajout d'un mot clé REPERE :/ LOCAL /GLOBAL
 964              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 965              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 966              DX              =SIMP(statut='f',typ='R' ),
 967              DY              =SIMP(statut='f',typ='R' ),
 968              DZ              =SIMP(statut='f',typ='R' ),
 969              DRX             =SIMP(statut='f',typ='R' ),
 970              DRY             =SIMP(statut='f',typ='R' ),
 971              DRZ             =SIMP(statut='f',typ='R' ),
 972              DNOR            =SIMP(statut='f',typ='R' ),
 973              DTAN            =SIMP(statut='f',typ='R' ),
 974              GRX             =SIMP(statut='f',typ='R' ),
 975              PRES            =SIMP(statut='f',typ='R' ),
 976              PHI             =SIMP(statut='f',typ='R' ),
 977              TEMP            =SIMP(statut='f',typ='R' ),
 978              PRE1            =SIMP(statut='f',typ='R' ),
 979              PRE2            =SIMP(statut='f',typ='R' ),
 980            ),
 981
 982          FLUX_THM_REP    =FACT(statut='f',min=1,max='**',
 983              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
 984                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
 985                      AU_MOINS_UN('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
 986              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 987              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 988              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 989              FLUN            =SIMP(statut='f',typ='R' ),
 990              FLUN_HYDR1      =SIMP(statut='f',typ='R' ),
 991              FLUN_HYDR2      =SIMP(statut='f',typ='R' ),
 992            ),
 993
 994          FORCE_ARETE     =FACT(statut='f',fr="Appliquer des forces linéiques à une arete d élément volumique ou de coque",
 995                                  min=1,max='**',
 996              regles=(AU_MOINS_UN('GROUP_MA','MAILLE',),
 997                      AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
 998              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 999              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1000              FX              =SIMP(statut='f',typ='R' ),
1001              FY              =SIMP(statut='f',typ='R' ),
1002              FZ              =SIMP(statut='f',typ='R' ),
1003              MX              =SIMP(statut='f',typ='R' ),
1004              MY              =SIMP(statut='f',typ='R' ),
1005              MZ              =SIMP(statut='f',typ='R' ),
1006            ),
1007
1008            FORCE_COQUE     =FACT(statut='f',fr="Appliquer des forces surfaciques sur des coques",min=1,max='**',
1009              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1010                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1011                      AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
1012                      PRESENT_ABSENT('FX','PRES','F1','F2','F3','MF1','MF2'),
1013                      PRESENT_ABSENT('FY','PRES','F1','F2','F3','MF1','MF2'),
1014                      PRESENT_ABSENT('FZ','PRES','F1','F2','F3','MF1','MF2'),
1015                      PRESENT_ABSENT('MX','PRES','F1','F2','F3','MF1','MF2'),
1016                      PRESENT_ABSENT('MY','PRES','F1','F2','F3','MF1','MF2'),
1017                      PRESENT_ABSENT('MZ','PRES','F1','F2','F3','MF1','MF2'),
1018                      PRESENT_ABSENT('F1','FX','FY','FZ','MX','MY','MZ','PRES'),
1019                      PRESENT_ABSENT('F2','FX','FY','FZ','MX','MY','MZ','PRES'),
1020                      PRESENT_ABSENT('F3','FX','FY','FZ','MX','MY','MZ','PRES'),
1021                      PRESENT_ABSENT('MF1','FX','FY','FZ','MX','MY','MZ','PRES'),
1022                      PRESENT_ABSENT('MF2','FX','FY','FZ','MX','MY','MZ','PRES'),
1023                      PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
1024 #  rajour d'un mot clé REPERE :/ LOCAL /GLOBAL
1025              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1026              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1027              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1028
1029                FX              =SIMP(statut='f',typ='R' ),
1030                FY              =SIMP(statut='f',typ='R' ),
1031                FZ              =SIMP(statut='f',typ='R' ),
1032                MX              =SIMP(statut='f',typ='R' ),
1033                MY              =SIMP(statut='f',typ='R' ),
1034                MZ              =SIMP(statut='f',typ='R' ),
1035
1036                F1              =SIMP(statut='f',typ='R' ),
1037                F2              =SIMP(statut='f',typ='R' ),
1038                F3              =SIMP(statut='f',typ='R' ),
1039                MF1             =SIMP(statut='f',typ='R' ),
1040                MF2             =SIMP(statut='f',typ='R' ),
1041
1042              PRES            =SIMP(statut='f',typ='R' ),
1043              PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL",) ),
1044            ),
1045
1046          FORCE_CONTOUR   =FACT(statut='f',fr="Appliquer des forces linéiques au bord d'un domaine 2D ou AXIS_FOURIER",
1047                                  min=1,max='**',
1048              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1049                      AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1050              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1051              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1052              FX              =SIMP(statut='f',typ='R' ),
1053              FY              =SIMP(statut='f',typ='R' ),
1054              FZ              =SIMP(statut='f',typ='R' ),
1055              MX              =SIMP(statut='f',typ='R' ),
1056              MY              =SIMP(statut='f',typ='R' ),
1057              MZ              =SIMP(statut='f',typ='R' ),
1058            ),
1059
1060          FORCE_ELEC      =FACT(statut='f',
1061                                  fr="Force de Laplace due à la présence d'un conducteur rectiligne secondaire non maillé",
1062                                  min=1,max='**',
1063              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1064                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1065                      AU_MOINS_UN('FX','FY','FZ','POSITION'),
1066                      EXCLUS('FX','POSITION'),
1067                      EXCLUS('FY','POSITION'),
1068                      EXCLUS('FZ','POSITION'),),
1069 #  trop de regles : les blocs conditionnels permettent d en suprimer
1070              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1071              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1072              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1073
1074              FX              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1075              FY              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1076              FZ              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1077
1078              POSITION        =SIMP(statut='f',typ='TXM',fr="Direction prédéfinie",into=("PARA","INFI","FINI",) ),
1079              b_para     =BLOC ( condition = "POSITION == 'PARA'",
1080                regles=(UN_PARMI('TRANS','DIST'),),
1081                TRANS           =SIMP(statut='f',typ='R',max=3),
1082                DIST            =SIMP(statut='f',typ='R' ),
1083                b_point2        =BLOC ( condition = "DIST != None",
1084                  POINT2           =SIMP(statut='o',typ='R',max=3),
1085                ),
1086              ),
1087              b_fini_infi     =BLOC ( condition = "(POSITION == 'FINI') or (POSITION == 'INFI')",
1088                POINT1          =SIMP(statut='o',typ='R',max=3),
1089                POINT2          =SIMP(statut='o',typ='R',max=3),
1090              ),
1091            ),
1092
1093          FORCE_FACE      =FACT(statut='f',fr="Appliquer des forces surfaciques sur une face d'éléments volumiques",
1094                                  min=1,max='**',
1095              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1096                      AU_MOINS_UN('FX','FY','FZ'),),
1097              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1098              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1099              FX              =SIMP(statut='f',typ='R' ),
1100              FY              =SIMP(statut='f',typ='R' ),
1101              FZ              =SIMP(statut='f',typ='R' ),
1102            ),
1103
1104          FORCE_INTERNE   =FACT(statut='f',fr="Appliquer des forces volumiques (2D ou 3D) à un domaine volumique",
1105                                  min=1,max='**',
1106              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1107                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1108                      AU_MOINS_UN('FX','FY','FZ' ),),
1109              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1110              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1111              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1112              FX              =SIMP(statut='f',typ='R' ),
1113              FY              =SIMP(statut='f',typ='R' ),
1114              FZ              =SIMP(statut='f',typ='R' ),
1115            ),
1116
1117          IMPE_FACE       =FACT(statut='f',fr="Appliquer une impédance acoustique à une face",min=1,max='**',
1118              regles=(AU_MOINS_UN('GROUP_MA','MAILLE' ),),
1119              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1120              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1121              IMPE            =SIMP(statut='o',typ='R' ),
1122            ),
1123
1124          FORCE_NODALE    =FACT(statut='f',fr="Imposer des forces nodales en des noeuds",min=1,max='**',
1125            regles=(AU_MOINS_UN('GROUP_NO','NOEUD'),
1126                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
1127            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1128            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1129            FX              =SIMP(statut='f',typ='R' ),
1130            FY              =SIMP(statut='f',typ='R' ),
1131            FZ              =SIMP(statut='f',typ='R' ),
1132            MX              =SIMP(statut='f',typ='R' ),
1133            MY              =SIMP(statut='f',typ='R' ),
1134            MZ              =SIMP(statut='f',typ='R' ),
1135            ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
1136          ),
1137
1138         FORCE_POUTRE    =FACT(statut='f',fr="Appliquer des forces linéiques sur des poutres",min=1,max='**',
1139              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1140                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1141                      AU_MOINS_UN('FX','FY','FZ','N','VY','VZ'),
1142                      PRESENT_ABSENT('FX','N','VY','VZ'),
1143                      PRESENT_ABSENT('FY','N','VY','VZ'),
1144                      PRESENT_ABSENT('FZ','N','VY','VZ'),
1145                      PRESENT_ABSENT('N','FX','FY','FZ'),
1146                      PRESENT_ABSENT('VY','FX','FY','FZ'),
1147                      PRESENT_ABSENT('VZ','FX','FY','FZ'),),
1148              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1149              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1150              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1151              TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE",) ),
1152 #  rajour d'un mot clé REPERE :/ LOCAL /GLOBAL
1153                FX              =SIMP(statut='f',typ='R' ),
1154                FY              =SIMP(statut='f',typ='R' ),
1155                FZ              =SIMP(statut='f',typ='R' ),
1156
1157                N               =SIMP(statut='f',typ='R' ),
1158                VY              =SIMP(statut='f',typ='R' ),
1159                VZ              =SIMP(statut='f',typ='R' ),
1160
1161            ),
1162
1163          FORCE_TUYAU     =FACT(statut='f',fr="imposer une pression dans un élément TUYAU",min=1,max='**',
1164              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1165                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
1166              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1167              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1168              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1169              PRES            =SIMP(statut='f',typ='R' ),
1170            ),
1171
1172         INTE_ELEC       =FACT(statut='f',fr="Force de Laplace due à la présence d'un conducteur non rectiligne secondaire",
1173                                  min=1,max='**',
1174              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1175                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1176                      AU_MOINS_UN('GROUP_MA_2','MAILLE_2','TRANS','SYME'),
1177                      EXCLUS('TRANS','SYME'),),
1178              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1179              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1180              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1181              GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1182              MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1183              TRANS           =SIMP(statut='f',typ='R',max='**'),
1184              SYME            =SIMP(statut='f',typ='R',max='**'),
1185            ),
1186
1187          LIAISON_CHAMNO  =FACT(statut='f',fr="définir une relation linéaire entre tous les ddls d'un concept cham_nno",
1188                                  min=1,max='**',
1189 #  type de cham_no CO()
1190              CHAM_NO         =SIMP(statut='o',typ=cham_no), #CO()
1191              COEF_IMPO       =SIMP(statut='o',typ='R' ),
1192              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1193            ),
1194
1195            LIAISON_COQUE   =FACT(statut='f',min=1,max='**',
1196              GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1197              MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1198              GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
1199              NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
1200              GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1201              MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1202              GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
1203              NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1204              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1205            ),
1206            LIAISON_DDL     =FACT(statut='f',fr="Définir une relation linéaire entre des ddls de deux ou plusieurs noeuds",
1207                                  min=1,max='**',
1208              regles=(UN_PARMI('GROUP_NO','NOEUD'),),
1209              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1210              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1211              DDL             =SIMP(statut='o',typ='TXM',max='**'),
1212              COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
1213              COEF_IMPO       =SIMP(statut='o',typ='R' ),
1214            ),
1215
1216            LIAISON_ELEM    =FACT(statut='f',fr="Raccorder une poutre à une partie massive 3D ou une coque", min=1,max='**',
1217              regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
1218                      UN_PARMI('GROUP_NO_2','NOEUD_2'),),
1219              OPTION          =SIMP(statut='o',typ='TXM',into=("3D_TUYAU","3D_POU","COQ_POU","COQ_TUYAU") ),
1220              GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1221              MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1222              GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
1223              NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1224              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1225              CARA_ELEM       =SIMP(statut='f',typ=(cara_elem) ),
1226              AXE_POUTRE      =SIMP(statut='f',typ='R',max=3),
1227              ANGL_MAX        =SIMP(statut='f',typ='R',defaut= 1. ),
1228            ),
1229
1230            LIAISON_GROUP   =FACT(statut='f',fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1231                                  min=1,max='**',
1232              regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1233                      UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1234                      EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1235                      EXCLUS('GROUP_MA_1','NOEUD_2'),
1236                      EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1237                      EXCLUS('GROUP_NO_1','MAILLE_2'),
1238                      EXCLUS('MAILLE_1','GROUP_NO_2'),
1239                      EXCLUS('MAILLE_1','NOEUD_2'),
1240                      EXCLUS('NOEUD_1','GROUP_MA_2'),
1241                      EXCLUS('NOEUD_1','MAILLE_2'),
1242                      EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1243
1244                GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1245                MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1246                GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1247                MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1248                GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
1249                NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
1250                GROUP_NO_2      =SIMP(statut='f',typ=no,max='**'),
1251                NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1252
1253              SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1254              SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1255              DDL_1           =SIMP(statut='o',typ='TXM',max='**'),
1256              COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
1257              DDL_2           =SIMP(statut='o',typ='TXM',max='**'),
1258              COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
1259              COEF_IMPO       =SIMP(statut='o',typ='R' ),
1260              SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1261              TRAN            =SIMP(statut='f',typ='R',max=3),
1262              ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
1263              CENTRE          =SIMP(statut='f',typ='R',max=3),
1264            ),
1265
1266            LIAISON_OBLIQUE =FACT(statut='f',fr="Appliquer à des noeuds une valeur de déplacement dans un repere oblique",
1267                                  min=1,max='**',
1268              regles=(UN_PARMI('GROUP_NO','NOEUD'),
1269                      UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
1270              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1271              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1272              ANGL_NAUT       =SIMP(statut='o',typ='R',max=3),
1273              DX              =SIMP(statut='f',typ='R' ),
1274              DY              =SIMP(statut='f',typ='R' ),
1275              DZ              =SIMP(statut='f',typ='R' ),
1276              DRX             =SIMP(statut='f',typ='R' ),
1277              DRY             =SIMP(statut='f',typ='R' ),
1278              DRZ             =SIMP(statut='f',typ='R' ),
1279            ),
1280
1281            LIAISON_SOLIDE  =FACT(statut='f',fr="Modéliser une partie indéformable d'une structure",min=1,max='**',
1282              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1283              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1284              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1285              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1286              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1287              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1288            ),
1289
1290            LIAISON_UNIF    =FACT(statut='f',fr="Imposer une meme valeur (inconnue) à des ddls d'un emsemble de noeuds",
1291                                  min=1,max='**',
1292              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1293              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1294              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1295              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1296              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1297              DDL             =SIMP(statut='o',typ='TXM',max='**'),
1298            ),
1299
1300          LIAISON_UNIL_NO =FACT(statut='f',min=1,max='**',
1301            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
1302                    UN_PARMI('GROUP_MA_2','MAILLE_2'),),
1303            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),# CO()
1304            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),# CO()
1305            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),# CO()
1306            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),# CO()
1307            SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1308            TRAN            =SIMP(statut='f',typ='R',max=3 ),
1309            ANGL_NAUT       =SIMP(statut='f',typ='R',max=3 ),
1310            CENTRE          =SIMP(statut='f',typ='R',max=3 ),
1311            ANGLE_MAX       =SIMP(statut='f',typ='R' ),
1312            VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
1313            FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",
1314                                  into=("SANS","TRESCA","COULOMB") ),
1315            METHODE         =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
1316                                  into=("CONTRAINTE","LAGRANGIEN","PENALISATION") ),
1317            COULOMB         =SIMP(statut='f',typ='R' ),
1318            TRESCA          =SIMP(statut='f',typ='R' ),
1319            E_T             =SIMP(statut='f',typ='R' ),
1320            COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1321            CONTACT         =SIMP(statut='f',typ='TXM',into=("MAINTENU",) ),
1322            JEU             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1323          ),
1324
1325            LIAISON_MAIL    =FACT(statut='f',min=1,max='**',
1326              regles=(AU_MOINS_UN('GROUP_MA_MAIT','MAILLE_MAIT'),
1327                      AU_MOINS_UN('GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL','NOEUD_ESCL'),
1328                      PRESENT_PRESENT('DDL_MAIT','DDL_ESCL'),),
1329               GROUP_MA_MAIT   =SIMP(statut='f',typ=grma,max='**'),
1330               MAILLE_MAIT     =SIMP(statut='f',typ=ma,max='**'),
1331               GROUP_MA_ESCL   =SIMP(statut='f',typ=grma,max='**'),
1332               MAILLE_ESCL     =SIMP(statut='f',typ=ma,max='**'),
1333               GROUP_NO_ESCL   =SIMP(statut='f',typ=grno,max='**'),
1334               NOEUD_ESCL      =SIMP(statut='f',typ=no,max='**'),
1335               TRAN            =SIMP(statut='f',typ='R',max=3 ),
1336               ANGL_NAUT       =SIMP(statut='f',typ='R',max=3 ),
1337               CENTRE          =SIMP(statut='f',typ='R',max=3 ),
1338               DDL_MAIT        =SIMP(statut='f',typ='TXM',into=("DNOR",) ),
1339               DDL_ESCL        =SIMP(statut='f',typ='TXM',into=("DNOR",) ),
1340          ),
1341
1342          ONDE_FLUI       =FACT(statut='f',fr="Appliquer une amplitude de pression d onde incidente",min=1,max='**',
1343              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1344              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1345              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1346              PRES            =SIMP(statut='o',typ='R' ),
1347            ),
1348
1349          PRES_REP        =FACT(statut='f',fr="Appliquer une pression à un domaine de milieu continu 2D ou 3D",
1350                                  min=1,max='**',
1351              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1352                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1353                      AU_MOINS_UN('PRES','CISA_2D' ),),
1354              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1355              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1356              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1357              PRES            =SIMP(statut='f',typ='R' ),
1358              CISA_2D         =SIMP(statut='f',typ='R' ),
1359            ),
1360
1361          PESANTEUR       =SIMP(statut='f',typ='R',fr="Champ de pesanteur",min=4,max=4),
1362
1363          RELA_CINE_BP    =FACT(statut='f',min=1,max='**',
1364            CABLE_BP        =SIMP(statut='o',typ=cabl_precont ),
1365            SIGM_BPEL       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1366            RELA_CINE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1367          ),
1368
1369         ROTATION        =SIMP(statut='f',typ='R',fr="Champ de rotation",min=4,max=4),
1370          b_rotation      =BLOC ( condition = "ROTATION != None",
1371            CENTRE          =SIMP(statut='f',typ='R',defaut=(0.,0.,0.),max=3),),
1372
1373          VITE_FACE       =FACT(statut='f',fr="Imposer des vitesses acoustiquesnormales à une face",min=1,max='**',
1374              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1375              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1376              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1377              VNOR            =SIMP(statut='o',typ='R' ),
1378            ),
1379          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1380 )  ;
1381 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
1382 #            CONFIGURATION MANAGEMENT OF EDF VERSION
1383 # ======================================================================
1384 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
1385 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
1386 #              REDISTRIBUTION OF THIS FILE.
1387 # ======================================================================
1388 # RESPONSABLE G8BHHXD X.DESROCHES
1389 AFFE_CHAR_MECA_C=OPER(nom="AFFE_CHAR_MECA_C",op=   7,sd_prod=char_meca,
1390                      fr="Affectation de charges et conditions aux limites mécaniques complexes",
1391                      docu="U4.44.05-c",reentrant='n',
1392          regles=(AU_MOINS_UN('DDL_IMPO','FORCE_POUTRE','LIAISON_DDL', ),),
1393          MODELE          =SIMP(statut='o',typ=modele ),
1394          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1395          DDL_IMPO        =FACT(statut='f',min=01,max='**',
1396            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
1397                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI', ),),
1398            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1399            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1400            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1401            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1402            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1403            DX              =SIMP(statut='f',typ='C' ),
1404            DY              =SIMP(statut='f',typ='C' ),
1405            DZ              =SIMP(statut='f',typ='C' ),
1406            DRX             =SIMP(statut='f',typ='C' ),
1407            DRY             =SIMP(statut='f',typ='C' ),
1408            DRZ             =SIMP(statut='f',typ='C' ),
1409            GRX             =SIMP(statut='f',typ='C' ),
1410            PRES            =SIMP(statut='f',typ='C' ),
1411            PHI             =SIMP(statut='f',typ='C' ),
1412          ),
1413          FORCE_POUTRE    =FACT(statut='f',min=01,max='**',
1414            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1415                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1416                    AU_MOINS_UN('FX','FY','FZ','N','VY','VZ',),
1417                    PRESENT_ABSENT('FX','N','VY','VZ',),
1418                    PRESENT_ABSENT('FY','N','VY','VZ',),
1419                    PRESENT_ABSENT('FZ','N','VY','VZ',),
1420                    PRESENT_ABSENT('N','FX','FY','FZ',),
1421                    PRESENT_ABSENT('VY', 'FX','FY','FZ',),
1422                    PRESENT_ABSENT('VZ','FX','FY','FZ', ),),
1423            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1424            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1425            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1426            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE") ),
1427            FX              =SIMP(statut='f',typ='C' ),
1428            FY              =SIMP(statut='f',typ='C' ),
1429            FZ              =SIMP(statut='f',typ='C' ),
1430            N               =SIMP(statut='f',typ='C' ),
1431            VY              =SIMP(statut='f',typ='C' ),
1432            VZ              =SIMP(statut='f',typ='C' ),
1433          ),
1434          LIAISON_DDL     =FACT(statut='f',min=01,max='**',
1435            regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
1436            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1437            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1438            DDL             =SIMP(statut='o',typ='TXM',max='**'),
1439            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
1440            COEF_IMPO       =SIMP(statut='o',typ='C' ),
1441          ),
1442          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1443 )  ;
1444 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
1445 #            CONFIGURATION MANAGEMENT OF EDF VERSION
1446 # ======================================================================
1447 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
1448 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
1449 #              REDISTRIBUTION OF THIS FILE.
1450 # ======================================================================
1451 # RESPONSABLE G8BHHXD X.DESROCHES
1452 AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
1453                       fr="Affectation de charges et conditions aux limites mécaniques fonction d une grandeur",
1454                       docu="U4.44.01-f",reentrant='n',
1455         regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
1456                             'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
1457                             'PRES_REP','FORCE_POUTRE','VITE_FACE','IMPE_FACE','ONDE_PLANE',
1458                             'LIAISON_OBLIQUE','EPSI_INIT','LIAISON_GROUP','LIAISON_UNIF',
1459                             'LIAISON_SOLIDE','FORCE_COQUE','LIAISON_COQUE','FORCE_TUYAU',
1460                             'CONTACT'),),
1461          MODELE          =SIMP(statut='o',typ=modele ),
1462          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1463          VERI_NORM       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1464
1465          DDL_IMPO        =FACT(statut='f',min=1,max='**',
1466            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
1467                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
1468                                'TEMP','PRE1','PRE2'),),
1469            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1470            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1471            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1472            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1473            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1474            DX              =SIMP(statut='f',typ=(fonction) ),
1475            DY              =SIMP(statut='f',typ=(fonction) ),
1476            DZ              =SIMP(statut='f',typ=(fonction) ),
1477            DRX             =SIMP(statut='f',typ=(fonction) ),
1478            DRY             =SIMP(statut='f',typ=(fonction) ),
1479            DRZ             =SIMP(statut='f',typ=(fonction) ),
1480            GRX             =SIMP(statut='f',typ=(fonction) ),
1481            PRES            =SIMP(statut='f',typ=(fonction) ),
1482            PHI             =SIMP(statut='f',typ=(fonction) ),
1483            TEMP            =SIMP(statut='f',typ=(fonction) ),
1484            PRE1            =SIMP(statut='f',typ=(fonction) ),
1485            PRE2            =SIMP(statut='f',typ=(fonction) ),
1486          ),
1487          LIAISON_UNIF    =FACT(statut='f',min=1,max='**',
1488                                fr="Imposer une meme valeur (inconnue) a des ddls d un emsemble de noeuds",
1489            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1490            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1491            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1492            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1493            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1494            DDL             =SIMP(statut='o',typ='TXM',max='**'),
1495          ),
1496          LIAISON_SOLIDE  =FACT(statut='f',min=1,max='**',
1497                                fr="Modéliser une partie indéformable d une structure",
1498            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1499            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1500            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1501            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1502            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1503            NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
1504          ),
1505          LIAISON_OBLIQUE =FACT(statut='f',min=1,max='**',
1506                                fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1507            regles=(UN_PARMI('GROUP_NO','NOEUD'),
1508                    UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
1509            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1510            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1511            ANGL_NAUT       =SIMP(statut='o',typ='R',max=3),
1512            DX              =SIMP(statut='f',typ=(fonction) ),
1513            DY              =SIMP(statut='f',typ=(fonction) ),
1514            DZ              =SIMP(statut='f',typ=(fonction) ),
1515            DRX             =SIMP(statut='f',typ=(fonction) ),
1516            DRY             =SIMP(statut='f',typ=(fonction) ),
1517            DRZ             =SIMP(statut='f',typ=(fonction) ),
1518          ),
1519          LIAISON_COQUE   =FACT(statut='f',min=1,max='**',
1520            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1521            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1522            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
1523            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
1524            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1525            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1526            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
1527            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1528            NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
1529          ),
1530          FACE_IMPO       =FACT(statut='f',min=1,max='**',
1531            regles=(UN_PARMI('GROUP_MA','MAILLE'),
1532                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI','TEMP','PRE1','PRE2','DNOR','DTAN'),
1533                    EXCLUS('DNOR','DX'),
1534                    EXCLUS('DNOR','DY'),
1535                    EXCLUS('DNOR','DZ'),
1536                    EXCLUS('DNOR','DRX'),
1537                    EXCLUS('DNOR','DRY'),
1538                    EXCLUS('DNOR','DRZ'),
1539                    EXCLUS('DTAN','DX'),
1540                    EXCLUS('DTAN','DY'),
1541                    EXCLUS('DTAN','DZ'),
1542                    EXCLUS('DTAN','DRX'),
1543                    EXCLUS('DTAN','DRY'),
1544                    EXCLUS('DTAN','DRZ'),),
1545 #  rajout d un mot cle REPERE : / GLOBAL / LOCAL
1546            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1547            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1548            DX              =SIMP(statut='f',typ=(fonction) ),
1549            DY              =SIMP(statut='f',typ=(fonction) ),
1550            DZ              =SIMP(statut='f',typ=(fonction) ),
1551            DRX             =SIMP(statut='f',typ=(fonction) ),
1552            DRY             =SIMP(statut='f',typ=(fonction) ),
1553            DRZ             =SIMP(statut='f',typ=(fonction) ),
1554            GRX             =SIMP(statut='f',typ=(fonction) ),
1555            PRES            =SIMP(statut='f',typ=(fonction) ),
1556            PHI             =SIMP(statut='f',typ=(fonction) ),
1557            TEMP            =SIMP(statut='f',typ=(fonction) ),
1558            PRE1            =SIMP(statut='f',typ=(fonction) ),
1559            PRE2            =SIMP(statut='f',typ=(fonction) ),
1560            DNOR            =SIMP(statut='f',typ=(fonction) ),
1561            DTAN            =SIMP(statut='f',typ=(fonction) ),
1562          ),
1563          LIAISON_DDL     =FACT(statut='f',min=1,max='**',
1564                                fr="Définir une relation linéaire entre des ddls de deux ou plusieurs noeuds",
1565            regles=(UN_PARMI('GROUP_NO','NOEUD'),),
1566            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1567            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1568            DDL             =SIMP(statut='o',typ='TXM',max='**'),
1569            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
1570            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
1571          ),
1572          LIAISON_GROUP   =FACT(statut='f',min=1,max='**',
1573                                fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1574            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1575                    UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1576                    EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1577                    EXCLUS('GROUP_MA_1','NOEUD_2'),
1578                    EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1579                    EXCLUS('GROUP_NO_1','MAILLE_2'),
1580                    EXCLUS('MAILLE_1','GROUP_NO_2'),
1581                    EXCLUS('MAILLE_1','NOEUD_2'),
1582                    EXCLUS('NOEUD_1','GROUP_MA_2'),
1583                    EXCLUS('NOEUD_1','MAILLE_2'),
1584                    EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1585            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1586            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1587            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
1588            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
1589            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1590            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1591            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
1592            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1593            SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1594            SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1595            DDL_1           =SIMP(statut='o',typ='TXM',max='**'),
1596            COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
1597            DDL_2           =SIMP(statut='o',typ='TXM',max='**'),
1598            COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
1599            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
1600            SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1601            TRAN            =SIMP(statut='f',typ='R',max=3),
1602            ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
1603            CENTRE          =SIMP(statut='f',typ='R',max=3),
1604          ),
1605
1606          FORCE_NODALE    =FACT(statut='f',min=1,max='**',
1607            regles=(UN_PARMI('GROUP_NO','NOEUD'),
1608                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1609            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1610            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1611            FX              =SIMP(statut='f',typ=(fonction) ),
1612            FY              =SIMP(statut='f',typ=(fonction) ),
1613            FZ              =SIMP(statut='f',typ=(fonction) ),
1614            MX              =SIMP(statut='f',typ=(fonction) ),
1615            MY              =SIMP(statut='f',typ=(fonction) ),
1616            MZ              =SIMP(statut='f',typ=(fonction) ),
1617            ANGL_NAUT       =SIMP(statut='f',typ=(fonction),max=3 ),
1618          ),
1619          FORCE_INTERNE   =FACT(statut='f',min=1,max='**',
1620            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1621                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1622                    AU_MOINS_UN('FX','FY','FZ'),),
1623            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1624            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1625            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1626            FX              =SIMP(statut='f',typ=(fonction) ),
1627            FY              =SIMP(statut='f',typ=(fonction) ),
1628            FZ              =SIMP(statut='f',typ=(fonction) ),
1629          ),
1630          FORCE_FACE      =FACT(statut='f',min=1,max='**',
1631            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1632                    AU_MOINS_UN('FX','FY','FZ'),),
1633            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1634            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1635            FX              =SIMP(statut='f',typ=(fonction) ),
1636            FY              =SIMP(statut='f',typ=(fonction) ),
1637            FZ              =SIMP(statut='f',typ=(fonction) ),
1638          ),
1639          FORCE_ARETE     =FACT(statut='f',min=1,max='**',
1640            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1641                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1642            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1643            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1644            FX              =SIMP(statut='f',typ=(fonction) ),
1645            FY              =SIMP(statut='f',typ=(fonction) ),
1646            FZ              =SIMP(statut='f',typ=(fonction) ),
1647            MX              =SIMP(statut='f',typ=(fonction) ),
1648            MY              =SIMP(statut='f',typ=(fonction) ),
1649            MZ              =SIMP(statut='f',typ=(fonction) ),
1650          ),
1651          FORCE_CONTOUR   =FACT(statut='f',min=1,max='**',
1652            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1653                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1654            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1655            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1656            FX              =SIMP(statut='f',typ=(fonction) ),
1657            FY              =SIMP(statut='f',typ=(fonction) ),
1658            FZ              =SIMP(statut='f',typ=(fonction) ),
1659            MX              =SIMP(statut='f',typ=(fonction) ),
1660            MY              =SIMP(statut='f',typ=(fonction) ),
1661            MZ              =SIMP(statut='f',typ=(fonction) ),
1662          ),
1663          PRES_REP        =FACT(statut='f',min=1,max='**',
1664            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1665                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1666                    AU_MOINS_UN('PRES','CISA_2D'),),
1667            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1668            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1669            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1670            PRES            =SIMP(statut='f',typ=(fonction) ),
1671            CISA_2D         =SIMP(statut='f',typ=(fonction) ),
1672          ),
1673
1674          FORCE_COQUE     =FACT(statut='f',min=1,max='**',
1675            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1676                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1677                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
1678                    PRESENT_ABSENT('FX','PRES','F1','F2','F3','MF1','MF2'),
1679                    PRESENT_ABSENT('FY','PRES','F1','F2','F3','MF1','MF2'),
1680                    PRESENT_ABSENT('FZ','PRES','F1','F2','F3','MF1','MF2'),
1681                    PRESENT_ABSENT('MX','PRES','F1','F2','F3','MF1','MF2'),
1682                    PRESENT_ABSENT('MY','PRES','F1','F2','F3','MF1','MF2'),
1683                    PRESENT_ABSENT('MZ','PRES','F1','F2','F3','MF1','MF2'),
1684                    PRESENT_ABSENT('F1','PRES','FX','FY','FZ','MX','MY','MZ'),
1685                    PRESENT_ABSENT('F2','PRES','FX','FY','FZ','MX','MY','MZ'),
1686                    PRESENT_ABSENT('F3','PRES','FX','FY','FZ','MX','MY','MZ'),
1687                    PRESENT_ABSENT('MF1','PRES','FX','FY','FZ','MX','MY','MZ'),
1688                    PRESENT_ABSENT('MF2','PRES','FX','FY','FZ','MX','MY','MZ'),
1689                    PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
1690 #  rajout d un mot cle REPERE : / GLOBAL / LOCAL
1691            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1692            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1693            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1694            FX              =SIMP(statut='f',typ=(fonction) ),
1695            FY              =SIMP(statut='f',typ=(fonction) ),
1696            FZ              =SIMP(statut='f',typ=(fonction) ),
1697            MX              =SIMP(statut='f',typ=(fonction) ),
1698            MY              =SIMP(statut='f',typ=(fonction) ),
1699            MZ              =SIMP(statut='f',typ=(fonction) ),
1700            F1              =SIMP(statut='f',typ=(fonction) ),
1701            F2              =SIMP(statut='f',typ=(fonction) ),
1702            F3              =SIMP(statut='f',typ=(fonction) ),
1703            MF1             =SIMP(statut='f',typ=(fonction) ),
1704            MF2             =SIMP(statut='f',typ=(fonction) ),
1705            PRES            =SIMP(statut='f',typ=(fonction) ),
1706            PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",
1707                                  into=("SUP","INF","MOY","MAIL") ),
1708          ),
1709          FORCE_POUTRE    =FACT(statut='f',min=1,max='**',
1710            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1711                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1712                    AU_MOINS_UN('FX','FY','FZ','N','VY','VZ'),
1713                    PRESENT_ABSENT('FX','N','VY','VZ'),
1714                    PRESENT_ABSENT('FY','N','VY','VZ'),
1715                    PRESENT_ABSENT('FZ','N','VY','VZ'),
1716                    PRESENT_ABSENT('N','FX','FY','FZ'),
1717                    PRESENT_ABSENT('VY','FX','FY','FZ'),
1718                    PRESENT_ABSENT('VZ','FX','FY','FZ'),),
1719 #  rajout d un mot cle REPERE : / GLOBAL / LOCAL
1720            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1721            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1722            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1723            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE") ),
1724            FX              =SIMP(statut='f',typ=(fonction) ),
1725            FY              =SIMP(statut='f',typ=(fonction) ),
1726            FZ              =SIMP(statut='f',typ=(fonction) ),
1727            N               =SIMP(statut='f',typ=(fonction) ),
1728            VY              =SIMP(statut='f',typ=(fonction) ),
1729            VZ              =SIMP(statut='f',typ=(fonction) ),
1730          ),
1731          FORCE_TUYAU     =FACT(statut='f',min=1,max='**',
1732            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1733                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
1734            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1735            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1736            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1737            PRES            =SIMP(statut='f',typ=(fonction) ),
1738          ),
1739          VITE_FACE       =FACT(statut='f',min=1,max='**',
1740            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1741                    PRESENT_ABSENT('GROUP_MA','MAILLE'),),
1742            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1743            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1744            VNOR            =SIMP(statut='o',typ=(fonction) ),
1745          ),
1746          IMPE_FACE       =FACT(statut='f',min=1,max='**',
1747            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1748                    PRESENT_ABSENT('GROUP_MA','MAILLE'),),
1749            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1750            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1751            IMPE            =SIMP(statut='o',typ=(fonction) ),
1752          ),
1753          ONDE_PLANE      =FACT(statut='f',min=1,max='**',
1754            DIRECTION       =SIMP(statut='o',typ='R',max='**'),
1755            TYPE_ONDE       =SIMP(statut='o',typ='TXM' ),
1756            FONC_SIGNAL     =SIMP(statut='o',typ=(fonction) ),
1757            DIST_ORIG       =SIMP(statut='o',typ='R' ),
1758          ),
1759          EPSI_INIT       =FACT(statut='f',min=1,max='**',
1760            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1761                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1762                    AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ'),),
1763            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1764            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1765            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1766            EPXX            =SIMP(statut='f',typ=(fonction) ),
1767            EPYY            =SIMP(statut='f',typ=(fonction) ),
1768            EPZZ            =SIMP(statut='f',typ=(fonction) ),
1769            EPXY            =SIMP(statut='f',typ=(fonction) ),
1770            EPXZ            =SIMP(statut='f',typ=(fonction) ),
1771            EPYZ            =SIMP(statut='f',typ=(fonction) ),
1772          ),
1773
1774          CONTACT         =FACT(statut='f',min=1,max='**',
1775            regles=(UN_PARMI('GROUP_MA_2','MAILLE_2'),
1776                    EXCLUS('DIST_2','COEF_IMPO'),
1777                    EXCLUS('DIST_1','COEF_IMPO'),
1778                    EXCLUS('COEF_MULT_2','GROUP_MA_1'),
1779                    EXCLUS('COEF_MULT_2','MAILLE_1'),
1780                    EXCLUS('COEF_IMPO','GROUP_MA_1'),
1781                    EXCLUS('COEF_IMPO','MAILLE_1'),),
1782            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","PRES","TEMP") ),
1783            APPARIEMENT     =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
1784                                  into=("NON","NODAL","NODAL_SYME","MAIT_ESCL","MAIT_ESCL_SYME") ),
1785            RECHERCHE       =SIMP(statut='f',typ='TXM',defaut="NOEUD_VOISIN",
1786                                  into=("NOEUD_BOUCLE","NOEUD_VOISIN") ),
1787            INTEGRATION     =SIMP(statut='f',typ='TXM',defaut="NOEUD",into=("GAUSS","NOEUD")),
1788            COEF_REGU_CONT  =SIMP(statut='f',typ='R',defaut=100.E+0),
1789            COEF_REGU_FROT  =SIMP(statut='f',typ='R',defaut=100.E+0),
1790            MODL_AXIS       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
1791            ITER_GEOM_MAXI  =SIMP(statut='f',typ='I',defaut=2),
1792            ITER_CONT_MAXI  =SIMP(statut='f',typ='I',defaut=30),
1793            ITER_FROT_MAXI  =SIMP(statut='f',typ='I',defaut=2),
1794            LISSAGE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
1795            SEUIL_INIT      =SIMP(statut='f',typ='I',defaut=0),
1796            REAC_GEOM_INTE  =SIMP(statut='f',typ='I',defaut= 2),
1797            NORMALE         =SIMP(statut='f',typ='TXM',defaut="MAIT",into=("MAIT","MAIT_ESCL")),
1798            METHODE         =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
1799                                  into=("CONTRAINTE","LAGRANGIEN","PENALISATION") ),
1800            FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1801            COULOMB         =SIMP(statut='f',typ='R',max=1,defaut=0.E+0),
1802            E_N             =SIMP(statut='f',typ='R' ),
1803            E_T             =SIMP(statut='f',typ='R' ),
1804            COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut=0.E+0),
1805            VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
1806            VECT_NORM_2     =SIMP(statut='f',typ='R',max=3),
1807            PROJECTION      =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE",) ),
1808            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1809            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'  ),
1810            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1811            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'  ),
1812            SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'  ),
1813            SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1814            DIST_1          =SIMP(statut='f',typ=(fonction) ),
1815            DIST_2          =SIMP(statut='f',typ=(fonction) ),
1816            COEF_IMPO       =SIMP(statut='f',typ='R',defaut=0.E+0),
1817            COEF_MULT_2     =SIMP(statut='f',typ='R',defaut=1.E+0),
1818          ),
1819          FLUX_THM_REP    =FACT(statut='f',min=1,max='**',
1820            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1821                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1822                    AU_MOINS_UN('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
1823            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1824            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1825            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1826            FLUN            =SIMP(statut='f',typ=(fonction) ),
1827            FLUN_HYDR1      =SIMP(statut='f',typ=(fonction) ),
1828            FLUN_HYDR2      =SIMP(statut='f',typ=(fonction) ),
1829          ),
1830
1831          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1832 )  ;
1833 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
1834 #            CONFIGURATION MANAGEMENT OF EDF VERSION
1835 # ======================================================================
1836 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
1837 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
1838 #              REDISTRIBUTION OF THIS FILE.
1839 # ======================================================================
1840 AFFE_CHAR_OPS011=OPER(nom="AFFE_CHAR_OPS011",op= 190,sd_prod=char_ther,
1841                       fr=" ",
1842                       docu="",reentrant='n',
1843          regles=(AU_MOINS_UN('CARA_TORSION', ),),
1844          MODELE          =SIMP(statut='o',typ=modele ),
1845          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",
1846                                into=("OUI","NON") ),
1847          CARA_TORSION    =FACT(statut='f',min=01,max='**',
1848            regles=(UN_PARMI('TOUT','GROUP_MA'),),
1849            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1850            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1851          ),
1852          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
1853 )  ;
1854 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
1855 #            CONFIGURATION MANAGEMENT OF EDF VERSION
1856 # ======================================================================
1857 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
1858 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
1859 #              REDISTRIBUTION OF THIS FILE.
1860 # ======================================================================
1861 AFFE_CHAR_THER=OPER(nom="AFFE_CHAR_THER",op=34,sd_prod=char_ther
1862                     ,fr="Affectation de charges et conditions aux limites thermiques constantes",
1863                     docu="U4.44.02-f",reentrant='n',
1864       regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','FLUX_REP','ECHANGE',
1865                           'ECHANGE_PAROI','GRAD_TEMP_INIT','LIAISON_DDL','LIAISON_GROUP',
1866                           'LIAISON_UNIF','LIAISON_CHAMNO','RAYONNEMENT','LIAISON_MAIL' ),),
1867          MODELE          =SIMP(statut='o',typ=(modele) ),
1868          VERI_DDL        =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="OUI"),
1869          LIAISON_DDL     =FACT(statut='f',min=01,max='**',
1870            regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
1871            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1872            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1873            DDL             =SIMP(statut='f',typ='TXM',max='**',
1874                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
1875            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
1876            COEF_IMPO       =SIMP(statut='o',typ='R' ),
1877          ),
1878          TEMP_IMPO       =FACT(statut='f',min=01,max='**',
1879            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
1880                    AU_MOINS_UN('TEMP_SUP','TEMP','TEMP_INF'),),
1881            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1882            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1883            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1884            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1885            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1886            TEMP            =SIMP(statut='f',typ='R'),
1887            TEMP_INF        =SIMP(statut='f',typ='R'),
1888            TEMP_SUP        =SIMP(statut='f',typ='R'), ),
1889          LIAISON_UNIF    =FACT(statut='f',min=01,max='**',
1890            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1891            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1892            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1893            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1894            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1895            DDL             =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
1896                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
1897          ),
1898          LIAISON_CHAMNO  =FACT(statut='f',min=01,max='**',
1899            CHAM_NO         =SIMP(statut='o',typ=cham_no),# CO()# "il faut definir une structure de donnee generique chamno"
1900            COEF_IMPO       =SIMP(statut='o',typ='R' ),
1901            NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1902          ),
1903          SOURCE          =FACT(statut='f',min=01,max='**',
1904            regles=(UN_PARMI('SOUR','SOUR_CALCULEE',),
1905                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1906                    PRESENT_ABSENT('SOUR_CALCULEE','TOUT','GROUP_MA','MAILLE'),),
1907            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1908            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1909            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1910            SOUR            =SIMP(statut='f',typ='R'),
1911            SOUR_CALCULEE   =SIMP(statut='f',typ=(cham_elem_sour_r) ),
1912          ),
1913          FLUX_REP        =FACT(statut='f',min=01,max='**',
1914            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1915                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1916                    PRESENT_PRESENT('CARA_TORSION','GROUP_MA'),
1917                    AU_MOINS_UN('FLUN','FLUN_INF','FLUN_SUP','CARA_TORSION') ),
1918            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1919            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1920            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1921            FLUN            =SIMP(statut='f',typ='R'),
1922            FLUN_INF        =SIMP(statut='f',typ='R'),
1923            FLUN_SUP        =SIMP(statut='f',typ='R'),
1924            CARA_TORSION    =SIMP(statut='f',typ=tabl_aire_int ),
1925          ),
1926          ECHANGE         =FACT(statut='f',min=01,max='**',
1927            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1928                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1929                    AU_MOINS_UN('COEF_H','COEF_H_INF','COEF_H_SUP'),
1930                    ENSEMBLE('COEF_H','TEMP_EXT',),
1931                    ENSEMBLE('COEF_H_INF','TEMP_EXT_INF'),
1932                              ENSEMBLE('COEF_H_SUP','TEMP_EXT_SUP'),),
1933            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1934            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1935            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1936            COEF_H          =SIMP(statut='f',typ='R'),
1937            TEMP_EXT        =SIMP(statut='f',typ='R'),
1938            COEF_H_INF      =SIMP(statut='f',typ='R'),
1939            TEMP_EXT_INF    =SIMP(statut='f',typ='R'),
1940            COEF_H_SUP      =SIMP(statut='f',typ='R'),
1941            TEMP_EXT_SUP    =SIMP(statut='f',typ='R'),
1942          ),
1943          ECHANGE_PAROI   =FACT(statut='f',min=01,max='**',
1944            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
1945                    UN_PARMI('GROUP_MA_2','MAILLE_2'),),
1946            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1947            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1948            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1949            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1950            COEF_H          =SIMP(statut='f',typ='R'),
1951            TRAN            =SIMP(statut='f',typ='R',min=2,max=3),
1952            ANGL_NAUT       =SIMP(statut='f',typ='R',min=1,max=3),
1953            CENTRE          =SIMP(statut='f',typ='R',min=2,max=3),
1954                          ),
1955          GRAD_TEMP_INIT  =FACT(statut='f',min=01,max='**',
1956            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1957                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1958                    AU_MOINS_UN('FLUX_X','FLUX_Y','FLUX_Z'),),
1959            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1960            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1961            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1962            FLUX_X          =SIMP(statut='f',typ='R' ),
1963            FLUX_Y          =SIMP(statut='f',typ='R' ),
1964            FLUX_Z          =SIMP(statut='f',typ='R' ),
1965                          ),
1966          LIAISON_GROUP   =FACT(statut='f',min=01,max='**',
1967            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1968                    UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1969                              EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1970                              EXCLUS('GROUP_MA_1','NOEUD_2'),
1971                    EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1972                              EXCLUS('GROUP_NO_1','MAILLE_2'),
1973                              EXCLUS('MAILLE_1','GROUP_NO_2'),
1974                              EXCLUS('MAILLE_1','NOEUD_2'),
1975                              EXCLUS('NOEUD_1','GROUP_MA_2'),
1976                              EXCLUS('NOEUD_1','MAILLE_2'),
1977                              EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1978            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1979            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1980            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
1981            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
1982            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1983            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1984            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
1985            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1986            SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1987            SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1988            DDL_1           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
1989                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
1990            COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
1991            DDL_2           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
1992                                  into=("TEMP","TEMP_INF","TEMP_SUP",) ),
1993            COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
1994            COEF_IMPO       =SIMP(statut='o',typ='R' ),
1995            SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1996            TRAN            =SIMP(statut='f',typ='R',max='**'),
1997            ANGL_NAUT       =SIMP(statut='f',typ='R',max='**'),
1998            CENTRE          =SIMP(statut='f',typ='R',max='**'),
1999          ),
2000          CONVECTION      =FACT(statut='f',min=01,max='**',
2001            VITESSE         =SIMP(statut='o',typ=(cham_no_depl_r) ),
2002          ),
2003          RAYONNEMENT     =FACT(statut='f',min=01,max='**',
2004            fr="Attention, exprimer les températures en Celsius si rayonnement",
2005            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2006                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2007            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2008            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2009            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2010            SIGMA           =SIMP(statut='o',typ='R'),
2011            EPSILON         =SIMP(statut='o',typ='R'),
2012            TEMP_EXT        =SIMP(statut='o',typ='R'),
2013          ),
2014          LIAISON_MAIL    =FACT(statut='f',min=01,max='**',
2015            regles=(AU_MOINS_UN('GROUP_MA_MAIT','MAILLE_MAIT'),
2016                    AU_MOINS_UN('GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL',
2017                                'NOEUD_ESCL'),),
2018            GROUP_MA_MAIT   =SIMP(statut='f',typ=grma,max='**'),
2019            MAILLE_MAIT     =SIMP(statut='f',typ=ma,max='**'),
2020            GROUP_MA_ESCL   =SIMP(statut='f',typ=grma,max='**'),
2021            MAILLE_ESCL     =SIMP(statut='f',typ=ma,max='**'),
2022            GROUP_NO_ESCL   =SIMP(statut='f',typ=grno,max='**'),
2023            NOEUD_ESCL      =SIMP(statut='f',typ=no,max='**'),
2024            TRAN            =SIMP(statut='f',typ='R',max='**' ),
2025            ANGL_NAUT       =SIMP(statut='f',typ='R',max='**' ),
2026            CENTRE          =SIMP(statut='f',typ='R',max='**' ),
2027          ),
2028          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2029 )  ;
2030 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
2031 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2032 # ======================================================================
2033 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2034 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
2035 #              REDISTRIBUTION OF THIS FILE.
2036 # ======================================================================
2037 AFFE_CHAR_THER_F=OPER(nom="AFFE_CHAR_THER_F",op=33,sd_prod=char_ther,
2038                      fr="Affectation de charges et conditions aux limites thermiques fonction dune grandeur (temps, ...)",
2039                      docu="U4.44.02-f",reentrant='n',
2040       regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','FLUX_REP','FLUX_NL','ECHANGE',
2041                           'ECHANGE_PAROI','LIAISON_DDL','LIAISON_GROUP','LIAISON_UNIF',
2042                           'GRAD_TEMP_INIT','RAYONNEMENT'),),
2043          MODELE          =SIMP(statut='o',typ=(modele) ),
2044          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2045          LIAISON_DDL     =FACT(statut='f',min=1,max='**',
2046            regles=(UN_PARMI('GROUP_NO','NOEUD'),),
2047            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2048            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2049            DDL             =SIMP(statut='f',typ='TXM',max='**',into=("TEMP","TEMP_INF","TEMP_SUP") ),
2050            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
2051            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
2052          ),
2053          TEMP_IMPO       =FACT(statut='f',min=1,max='**',
2054            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
2055                    AU_MOINS_UN('TEMP_SUP','TEMP','TEMP_INF','EVOL_THER'),
2056                    PRESENT_ABSENT('EVOL_THER','TEMP','TEMP_INF','TEMP_SUP'),),
2057            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2058            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2059            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2060            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2061            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2062            EVOL_THER       =SIMP(statut='f',typ=(evol_ther) ),
2063            DDL             =SIMP(statut='f',typ='TXM',into=("TEMP",) ),
2064            TEMP            =SIMP(statut='f',typ=(fonction) ),
2065            TEMP_INF        =SIMP(statut='f',typ=(fonction) ),
2066            TEMP_SUP        =SIMP(statut='f',typ=(fonction) ),
2067          ),
2068          LIAISON_UNIF    =FACT(statut='f',min=1,max='**',
2069            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
2070            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2071            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2072            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2073            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2074            DDL             =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2075                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2076          ),
2077          SOURCE          =FACT(statut='f',min=1,max='**',
2078            regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),),
2079            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2080            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2081            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2082            SOUR            =SIMP(statut='o',typ=(fonction) ),
2083          ),
2084          FLUX_REP        =FACT(statut='f',min=1,max='**',
2085            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2086                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2087                    AU_MOINS_UN('FLUN','FLUN_INF','FLUN_SUP','FLUX_X','FLUX_Y','FLUX_Z'),),
2088            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2089            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2090            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2091            FLUN            =SIMP(statut='f',typ=(fonction) ),
2092            FLUN_INF        =SIMP(statut='f',typ=(fonction) ),
2093            FLUN_SUP        =SIMP(statut='f',typ=(fonction) ),
2094            FLUX_X          =SIMP(statut='f',typ=(fonction) ),
2095            FLUX_Y          =SIMP(statut='f',typ=(fonction) ),
2096            FLUX_Z          =SIMP(statut='f',typ=(fonction) ),
2097          ),
2098          FLUX_NL         =FACT(statut='f',min=1,max='**',
2099            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2100                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2101            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2102            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2103            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2104            FLUN            =SIMP(statut='o',typ=(fonction) ),
2105          ),
2106          ECHANGE         =FACT(statut='f',min=1,max='**',
2107            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2108                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2109                    AU_MOINS_UN('COEF_H','COEF_H_INF','COEF_H_SUP'),
2110                    ENSEMBLE('COEF_H','TEMP_EXT'),
2111                    ENSEMBLE('COEF_H_INF','TEMP_EXT_INF'),
2112                    ENSEMBLE('COEF_H_SUP','TEMP_EXT_SUP'),),
2113            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2114            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2115            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2116            COEF_H          =SIMP(statut='f',typ=(fonction) ),
2117            TEMP_EXT        =SIMP(statut='f',typ=(fonction) ),
2118            COEF_H_INF      =SIMP(statut='f',typ=(fonction) ),
2119            TEMP_EXT_INF    =SIMP(statut='f',typ=(fonction) ),
2120            COEF_H_SUP      =SIMP(statut='f',typ=(fonction) ),
2121            TEMP_EXT_SUP    =SIMP(statut='f',typ=(fonction) ),
2122          ),
2123          ECHANGE_PAROI   =FACT(statut='f',min=1,max='**',
2124            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
2125                         UN_PARMI('GROUP_MA_2','MAILLE_2'),),
2126            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2127            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2128            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2129            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2130            COEF_H          =SIMP(statut='o',typ=(fonction) ),
2131            TRAN            =SIMP(statut='f',typ='R',min=2,max=3),
2132            ANGL_NAUT       =SIMP(statut='f',typ='R',min=1,max=3),
2133            CENTRE          =SIMP(statut='f',typ='R',min=2,max=3),
2134          ),
2135          GRAD_TEMP_INIT  =FACT(statut='f',min=1,max='**',
2136            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2137                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2138                    AU_MOINS_UN('FLUX_X','FLUX_Y','FLUX_Z'),),
2139            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2140            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2141            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2142            FLUX_X          =SIMP(statut='f',typ=(fonction) ),
2143            FLUX_Y          =SIMP(statut='f',typ=(fonction) ),
2144            FLUX_Z          =SIMP(statut='f',typ=(fonction) ),
2145          ),
2146          LIAISON_GROUP   =FACT(statut='f',min=1,max='**',
2147            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
2148                    UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
2149                              EXCLUS('GROUP_MA_1','GROUP_NO_2'),
2150                         EXCLUS('GROUP_MA_1','NOEUD_2'),
2151                    EXCLUS('GROUP_NO_1','GROUP_MA_2'),
2152                         EXCLUS('GROUP_NO_1','MAILLE_2'),
2153                         EXCLUS('MAILLE_1','GROUP_NO_2'),
2154                         EXCLUS('MAILLE_1','NOEUD_2'),
2155                         EXCLUS('NOEUD_1','GROUP_MA_2'),
2156                         EXCLUS('NOEUD_1','MAILLE_2'),
2157                         EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
2158            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2159            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2160            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
2161            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
2162            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2163            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2164            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
2165            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
2166            SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
2167            SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
2168            DDL_1           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2169                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2170            COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
2171            DDL_2           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2172                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2173            COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
2174            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
2175            SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2176            TRAN            =SIMP(statut='f',typ='R',max='**'),
2177            ANGL_NAUT       =SIMP(statut='f',typ='R',max='**'),
2178            CENTRE          =SIMP(statut='f',typ='R',max='**'),
2179          ),
2180          CONVECTION      =FACT(statut='f',min=1,max='**',
2181            VITESSE         =SIMP(statut='o',typ=(cham_no_depl_r) ),
2182          ),
2183          RAYONNEMENT     =FACT(statut='f',min=1,max='**',
2184            fr="Attention, exprimer les températures en Celsius si rayonnement",
2185            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2186                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2187            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2188            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2189            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2190            SIGMA           =SIMP(statut='o',typ=(fonction) ),
2191            EPSILON         =SIMP(statut='o',typ=(fonction) ),
2192            TEMP_EXT        =SIMP(statut='o',typ=(fonction) ),
2193          ),
2194          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2195 )  ;
2196 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2197 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2198 # ======================================================================
2199 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2200 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
2201 #              REDISTRIBUTION OF THIS FILE.
2202 # ======================================================================
2203 # RESPONSABLE VABHHTS J.PELLET
2204 AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
2205                    fr="Affectation de caractéristiques de matériaux à un maillage",
2206                          docu="U4.43.03-f",reentrant='n',
2207          MAILLAGE        =SIMP(statut='o',typ=maillage),
2208          MODELE          =SIMP(statut='f',typ=modele),
2209          AFFE            =FACT(statut='o',min=01,max='**',
2210            regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
2211            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2212            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2213            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2214            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2215            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2216            MATER           =SIMP(statut='o',typ=mater),
2217            TEMP_REF        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2218          ),
2219 )  ;
2220 #& MODIF COMMANDE  DATE 30/01/2002   AUTEUR VABHHTS J.TESELET
2221 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2222 # ======================================================================
2223 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2224 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
2225 #              REDISTRIBUTION OF THIS FILE.
2226 # ======================================================================
2227 # RESPONSABLE JMBHH01 J.M.PROIX
2228 AFFE_MODELE=OPER(nom="AFFE_MODELE",op=18,sd_prod=modele,docu="U4.41.01-f1",
2229                  fr="Affectation des éléments finis sur le maillage",reentrant='n',
2230          regles=(AU_MOINS_UN('AFFE','AFFE_SOUS_STRUC'),),
2231          MAILLAGE        =SIMP(statut='o',typ=(maillage) ),
2232          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
2233          VERIF           =SIMP(statut='f',typ='TXM',max=2,into=("MAILLE","NOEUD") ),
2234          AFFE_SOUS_STRUC =FACT(statut='f',min=01,max=01,
2235            regles=(UN_PARMI('TOUT','MAILLE'),),
2236            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2237            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2238            PHENOMENE       =SIMP(statut='f',typ='TXM',defaut="MECANIQUE",into=("MECANIQUE",) ),
2239          ),
2240          AFFE            =FACT(statut='f',min=01,max='**',
2241            regles=(UN_PARMI('TOUT','GROUP_MA','GROUP_NO','MAILLE','NOEUD'),),
2242            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2243            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2244            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2245            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2246            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2247            PHENOMENE       =SIMP(statut='o',typ='TXM',
2248                                  into=("MECANIQUE","THERMIQUE","ACOUSTIQUE","NON_LOCAL") ),
2249                 b_mecanique     =BLOC( condition = "PHENOMENE=='MECANIQUE'",
2250                                         fr="modelisations mécaniques",
2251                     MODELISATION    =SIMP(statut='o',typ='TXM', into=(
2252                                                                       "2D_CONTACT",
2253                                                                       "2D_DIS_T",
2254                                                                       "2D_DIS_TR",
2255                                                                       "2D_FLUI_ABSO",
2256                                                                       "2D_FLUI_PESA",
2257                                                                       "2D_FLUI_STRU",
2258                                                                       "2D_FLUIDE",
2259                                                                       "3D",
2260                                                                       "3D_ABSO",
2261                                                                       "3D_CONTACT",
2262                                                                       "3D_FAISCEAU",
2263                                                                       "3D_FLUI_ABSO",
2264                                                                       "3D_FLUIDE",
2265                                                                       "3D_HHM" ,
2266                                                                       "3D_HM",
2267                                                                       "3D_INCO",
2268                                                                       "3D_JOINT_CT",
2269                                                                       "3D_SI",
2270                                                                       "3D_THH",
2271                                                                       "3D_THHM",
2272                                                                       "3D_THM",
2273                                                                       "APPUI_REP",
2274                                                                       "ASSE_GRIL",
2275                                                                       "AXIS",
2276                                                                       "AXIS_FLUI_STRU",
2277                                                                       "AXIS_FLUIDE",
2278                                                                       "AXIS_FOURIER",
2279                                                                       "AXIS_HHM",
2280                                                                       "AXIS_HM",
2281                                                                       "AXIS_INCO",
2282                                                                       "AXIS_SI",
2283                                                                       "AXIS_THH",
2284                                                                       "AXIS_THHM",
2285                                                                       "AXIS_THM",
2286                                                                       "BARRE",
2287                                                                       "2D_BARRE",
2288                                                                       "C_PLAN",
2289                                                                       "C_PLAN_SI",
2290                                                                       "CABLE",
2291                                                                       "CABLE_POULIE",
2292                                                                       "COQUE_3D",
2293                                                                       "COQUE_AXIS",
2294                                                                       "COQUE_C_PLAN",
2295                                                                       "COQUE_D_PLAN",
2296                                                                       "CONT_DVP_2D",
2297                                                                       "CONT_DVP_3D",
2298                                                                       "D_PLAN",
2299                                                                       "D_PLAN_ABSO",
2300                                                                       "D_PLAN_HHM",
2301                                                                       "D_PLAN_HM",
2302                                                                       "D_PLAN_INCO",
2303                                                                       "D_PLAN_SI",
2304                                                                       "D_PLAN_THH",
2305                                                                       "D_PLAN_THHM",
2306                                                                       "D_PLAN_THM",
2307                                                                       "DIS_T",
2308                                                                       "DIS_TR",
2309                                                                       "DKT",
2310                                                                       "DST",
2311                                                                       "FLUI_STRU",
2312                                                                       "GRILLE",
2313                                                                       "POU_C_T",
2314                                                                       "POU_D_E",
2315                                                                       "POU_D_EM",
2316                                                                       "POU_D_T",
2317                                                                       "POU_D_T_GD",
2318                                                                       "POU_D_TG",
2319                                                                       "Q4G",
2320                                                                       "TUYAU",
2321                                                                       "TUYAU_3M",
2322                                                                       "TUYAU_6M"
2323                                                                      )  )  ),
2324
2325                 b_thermique     =BLOC( condition = "PHENOMENE=='THERMIQUE'",
2326                                         fr="modelisations thermiques",
2327                     MODELISATION    =SIMP(statut='o',typ='TXM',into=(
2328                                                                       "3D",
2329                                                                       "3D_DIAG",
2330                                                                       "AXIS",
2331                                                                       "AXIS_DIAG",
2332                                                                       "AXIS_FOURIER",
2333                                                                       "COQUE",
2334                                                                       "COQUE_AXIS",
2335                                                                       "COQUE_PLAN",
2336                                                                       "PLAN",
2337                                                                       "PLAN_DIAG",
2338                                                                       ),),),
2339
2340                 b_acoustique    =BLOC( condition = "PHENOMENE=='ACOUSTIQUE'",
2341                                         fr="modelisations acoustiques",
2342                      MODELISATION    =SIMP(statut='o',typ='TXM',into=(
2343                                                                        "3D",
2344                                                                        "PLAN"
2345                                                                        ), ),),
2346
2347                 b_non_local     =BLOC( condition = "PHENOMENE=='NON_LOCAL'",
2348                                         fr="modelisations non locales",
2349                      MODELISATION    =SIMP(statut='o',typ='TXM',into=(
2350                                                                       "3D",
2351                                                                       "AXIS",
2352                                                                       "C_PLAN",
2353                                                                       "D_PLAN",
2354                                                                      ) ), ),
2355          ),
2356 ) ;
2357 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2358 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2359 # ======================================================================
2360 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2361 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
2362 #              REDISTRIBUTION OF THIS FILE.
2363 # ======================================================================
2364 AIDE=PROC(nom="AIDE",op=42,docu="U4.02.01-f",
2365           fr="Interrogation sur le catalogue des commandes et les concepts produits",
2366          regles=(AU_MOINS_UN('COMMANDE','CONCEPT','TYPE_ELEM', ),),
2367          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
2368          TYPE_ELEM       =FACT(fr="couple type_elem option",
2369                                statut='f',min=01,max=01,
2370            INITEL          =SIMP(statut='f',typ='TXM',defaut="NON",
2371                                  into=("OUI","NON",) ),
2372          ),
2373          COMMANDE        =FACT(statut='f',min=01,max='**',
2374            NOM             =SIMP(fr="liste des noms de commande",
2375                                  statut='f',typ='TXM',max='**',defaut="*"),
2376            OPTION          =SIMP(fr="option d'édition de commande",
2377                                  statut='f',typ='TXM',defaut="CATALOGUE",
2378                                  into=("CATALOGUE","A_REMPLIR","NUMERO",) ),
2379          ),
2380          CONCEPT         =FACT(statut='f',min=01,max='**',
2381            NOM             =SIMP(fr="liste des noms de concept",
2382                                  statut='f',typ='TXM',max='**',defaut="*"),
2383            OPTION          =SIMP(fr="option d'édition de concept",
2384                                  statut='f',typ='TXM',defaut="TOUT_TYPE",
2385                                  into=("TOUT_TYPE","CREER","A_CREER",) ),
2386          ),
2387 ) ;
2388 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
2389 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2390 # ======================================================================
2391 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2392 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
2393 #              REDISTRIBUTION OF THIS FILE.
2394 # ======================================================================
2395 # RESPONSABLE VABHHTS J.PELLET
2396 ASSE_MAILLAGE=OPER(nom="ASSE_MAILLAGE",op= 105,sd_prod=maillage,
2397                    fr="Assembler deux maillages sous un seul nom",
2398                    docu="U4.23.03-e",reentrant='n',
2399          MAILLAGE        =SIMP(statut='o',typ=maillage,min=2,max=2 ),
2400 )  ;
2401 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2402 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2403 # ======================================================================
2404 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2405 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
2406 #              REDISTRIBUTION OF THIS FILE.
2407 # ======================================================================
2408 ASSE_MATR_GENE=OPER(nom="ASSE_MATR_GENE",op= 128,sd_prod=matr_asse_gene_r,
2409                     fr="Assemblage des matrices généralisées de macro éléments pour construction de la matrice globale généralisée",
2410                     docu="U4.65.04-d",reentrant='n',
2411          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
2412          OPTION          =SIMP(statut='o',typ='TXM',into=("RIGI_GENE","MASS_GENE","AMOR_GENE") ),
2413 )  ;
2414 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2415 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2416 # ======================================================================
2417 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2418 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
2419 #              REDISTRIBUTION OF THIS FILE.
2420 # ======================================================================
2421 # RESPONSABLE VABHHTS J.PELLET
2422 def asse_matrice_prod(MATR_ELEM,**args):
2423   if AsType(MATR_ELEM) == matr_elem_depl_r : return matr_asse_depl_r
2424   if AsType(MATR_ELEM) == matr_elem_depl_c : return matr_asse_depl_c
2425   if AsType(MATR_ELEM) == matr_elem_temp_r : return matr_asse_temp_r
2426   if AsType(MATR_ELEM) == matr_elem_pres_c : return matr_asse_pres_c
2427   raise AsException("type de concept resultat non prevu")
2428
2429 ASSE_MATRICE=OPER(nom="ASSE_MATRICE",op=12,sd_prod=asse_matrice_prod,
2430                   fr="Construction d une matrice assemblée",docu="U4.61.22-f",reentrant='n',
2431          MATR_ELEM       =SIMP(statut='o',
2432                                typ=(matr_elem_depl_r,matr_elem_depl_c,matr_elem_temp_r,matr_elem_pres_c) ),
2433          NUME_DDL        =SIMP(statut='o',typ=nume_ddl),
2434          CHAR_CINE       =SIMP(statut='f',typ=(char_cine_meca,char_cine_ther,char_cine_acou) ),
2435          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
2436 )  ;
2437 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2438 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2439 # ======================================================================
2440 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2441 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
2442 #              REDISTRIBUTION OF THIS FILE.
2443 # ======================================================================
2444 ASSE_VECT_GENE=OPER(nom="ASSE_VECT_GENE",op= 140,sd_prod=vect_asse_gene,
2445                     fr="Assemblage de vecteurs de chargement en coordonnées généralisées",
2446                     docu="U4.65.05-d",reentrant='n',
2447          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
2448          CHAR_SOUS_STRUC =FACT(statut='o',min=01,max='**',
2449            SOUS_STRUC      =SIMP(statut='o',typ='TXM' ),
2450            VECT_ASSE       =SIMP(statut='o',typ=cham_no_depl_r ),
2451          ),
2452 )  ;
2453 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2454 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2455 # ======================================================================
2456 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2457 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
2458 #              REDISTRIBUTION OF THIS FILE.
2459 # ======================================================================
2460 # RESPONSABLE VABHHTS J.PELLET
2461 def asse_vecteur_prod(VECT_ELEM,**args):
2462   if AsType(VECT_ELEM) == vect_elem_depl_r : return cham_no_depl_r
2463   if AsType(VECT_ELEM) == vect_elem_temp_r : return cham_no_temp_r
2464   if AsType(VECT_ELEM) == vect_elem_pres_r : return cham_no_pres_r
2465   if AsType(VECT_ELEM) == vect_elem_pres_c : return cham_no_pres_c
2466   raise AsException("type de concept resultat non prevu ")
2467
2468 ASSE_VECTEUR=OPER(nom="ASSE_VECTEUR",op=13,sd_prod=asse_vecteur_prod,
2469                   fr="Assemblage d un second membre",docu="U4.61.23-f",reentrant='n',
2470          VECT_ELEM       =SIMP(statut='o',typ=vect_elem,max='**'),
2471          NUME_DDL        =SIMP(statut='o',typ=nume_ddl ),
2472          INFO            =SIMP(statut='f',typ='I',into=(1,2,) ),
2473 )  ;
2474 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2475 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2476 # ======================================================================
2477 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2478 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
2479 #              REDISTRIBUTION OF THIS FILE.
2480 # ======================================================================
2481 CALC_AMOR_MODAL=OPER(nom="CALC_AMOR_MODAL",op= 172,sd_prod=listr8,
2482                      fr="Création d'une liste d'amortissements modaux calculés selon la règle du RCC-G",
2483                      docu="U4.52.13-c",reentrant='n',
2484          ENER_SOL        =FACT(statut='o',min=01,max=01,
2485            regles=(UN_PARMI('GROUP_NO_RADIER','GROUP_MA_RADIER'),
2486                    PRESENT_ABSENT('COEF_GROUP','FONC_GROUP'),
2487 #  Peut-on remplacer les deux règles suivantes par un ENSEMBLE_('KRX','KRY','KRZ')
2488                    PRESENT_PRESENT('KRX','KRY'),
2489                    PRESENT_PRESENT('KRX','KRZ'),
2490                    PRESENT_ABSENT('COOR_CENTRE','NOEUD_CENTRE'),
2491                    PRESENT_ABSENT('GROUP_NO_CENTRE','NOEUD_CENTRE'),
2492                    PRESENT_ABSENT('GROUP_NO_CENTRE','COOR_CENTRE'),),
2493            METHODE         =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","RIGI_PARASOL") ),
2494            MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
2495            GROUP_NO_RADIER =SIMP(statut='f',typ=grno,max='**'),
2496            GROUP_MA_RADIER =SIMP(statut='f',typ=grma,max='**'),
2497            FONC_GROUP      =SIMP(statut='f',typ=fonction ),
2498            COEF_GROUP      =SIMP(statut='f',typ='R',max='**'),
2499            KX              =SIMP(statut='o',typ='R' ),
2500            KY              =SIMP(statut='o',typ='R' ),
2501            KZ              =SIMP(statut='o',typ='R' ),
2502            KRX             =SIMP(statut='f',typ='R' ),
2503            KRY             =SIMP(statut='f',typ='R' ),
2504            KRZ             =SIMP(statut='f',typ='R' ),
2505            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno),
2506            NOEUD_CENTRE    =SIMP(statut='f',typ=no),
2507            COOR_CENTRE     =SIMP(statut='f',typ='R',max=03),
2508          ),
2509          AMOR_INTERNE    =FACT(statut='o',min=01,max=01,
2510            ENER_POT        =SIMP(statut='o',typ=tabl_ener_pot ),
2511            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
2512            AMOR_REDUIT     =SIMP(statut='o',typ='R',max='**'),
2513          ),
2514          AMOR_SOL        =FACT(statut='o',min=01,max=01,
2515            AMOR_REDUIT     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2516            FONC_AMOR_GEO   =SIMP(statut='o',typ=fonction,max='**' ),
2517            HOMOGENE        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2518            SEUIL           =SIMP(statut='f',typ='R',defaut= 0.3 ),
2519          ),
2520 )  ;
2521 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
2522 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2523 # ======================================================================
2524 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2525 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
2526 #              REDISTRIBUTION OF THIS FILE.
2527 # ======================================================================
2528 # RESPONSABLE JMBHH01 J.M.PROIX
2529 def calc_cham_elem_prod(OPTION,**args):
2530
2531 # options mecaniques
2532   if OPTION == "DEGE_ELNO_DEPL" : return cham_elem_epsi_r
2533   if OPTION == "ECIN_ELEM_DEPL" : return cham_elem_ener_r
2534   if OPTION == "EFGE_ELNO_CART" : return cham_elem_sief_r
2535   if OPTION == "EFGE_ELNO_DEPL" : return cham_elem_sief_r
2536   if OPTION == "ENDO_ELNO_SIGM" : return cham_elem_sief_r
2537   if OPTION == "EPOT_ELEM_DEPL" : return cham_elem_ener_r
2538   if OPTION == "ENEL_ELGA" :      return cham_elem_ener_r
2539   if OPTION == "ENEL_ELNO_ELGA" : return cham_elem_ener_r
2540   if OPTION == "EPSI_ELNO_DEPL" : return cham_elem_epsi_r
2541   if OPTION == "EQUI_ELGA_EPSI" : return cham_elem_epsi_r
2542   if OPTION == "EQUI_ELGA_SIGM" : return cham_elem_sief_r
2543   if OPTION == "EQUI_ELNO_EPSI" : return cham_elem_epsi_r
2544   if OPTION == "EQUI_ELNO_SIGM" : return cham_elem_sief_r
2545   if OPTION == "PRES_DBEL_DEPL" : return cham_elem_dbel_r
2546   if OPTION == "SIEF_ELGA_DEPL" : return cham_elem_sief_r
2547   if OPTION == "SIEF_ELGA_LAGR" : return cham_elem_sief_r
2548   if OPTION == "SIGM_ELNO_CART" : return cham_elem_sief_r
2549   if OPTION == "SIGM_ELNO_DEPL" : return cham_elem_sief_r
2550   if OPTION == "SIGM_ELNO_LAGR" : return cham_elem_sief_r
2551   if OPTION == "SIPO_ELNO_DEPL" : return cham_elem_sief_r
2552
2553 # options thermiques
2554
2555   if OPTION == "FLUX_ELGA_TEMP" : return cham_elem_flux_r
2556   if OPTION == "FLUX_ELNO_TEMP" : return cham_elem_flux_r
2557   if OPTION == "SOUR_ELGA_ELEC" : return cham_elem_sour_r
2558
2559 # options acoustiques
2560
2561   if OPTION == "PRES_ELNO_DBEL" : return cham_elem_dbel_r
2562   if OPTION == "PRES_ELNO_REEL" : return cham_elem_pres_r
2563   if OPTION == "PRES_ELNO_IMAG" : return cham_elem_pres_r
2564
2565 # autres options
2566
2567   if OPTION == "COOR_ELGA" :      return cham_elem_geom_r
2568
2569   raise AsException("type de concept resultat non prevu")
2570
2571 CALC_CHAM_ELEM=OPER(nom="CALC_CHAM_ELEM",op=38,sd_prod=calc_cham_elem_prod,
2572                     fr="Calcul de champs par éléments à partir de champs solution ou de champs par éléments",
2573                     docu="U4.81.03-f",reentrant='n',
2574          MODELE          =SIMP(statut='o',typ=modele),
2575          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
2576          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
2577
2578          regles=(EXCLUS('TOUT','GROUP_MA',),EXCLUS('TOUT','MAILLE',),),
2579          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2580          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2581          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2582
2583 #
2584 #
2585 #  introduire un mot cle de type modelisation : mécanique,thermique,...
2586 #
2587
2588          OPTION          =SIMP(statut='o',typ='TXM',
2589                                into=("DEGE_ELNO_DEPL","ECIN_ELEM_DEPL","EFGE_ELNO_CART",
2590                                      "EFGE_ELNO_DEPL","ENDO_ELNO_SIGM","EPOT_ELEM_DEPL",
2591                                      "ENEL_ELGA",     "ENEL_ELNO_ELGA","EPSI_ELNO_DEPL",
2592                                      "EQUI_ELGA_EPSI","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI",
2593                                      "EQUI_ELNO_SIGM","PRES_DBEL_DEPL","SIEF_ELGA_DEPL",
2594                                      "SIEF_ELGA_LAGR","SIGM_ELNO_CART","SIGM_ELNO_DEPL",
2595                                      "SIGM_ELNO_LAGR","SIPO_ELNO_DEPL",
2596                                      "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","SOUR_ELGA_ELEC",
2597                                      "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG",
2598                                      "COOR_ELGA"), ),
2599
2600          b_dege_elno_depl  =BLOC(condition="OPTION=='DEGE_ELNO_DEPL'",
2601            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2602            PLAN            =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
2603          ),
2604
2605          b_ecin_elem_depl  =BLOC(condition="OPTION=='ECIN_ELEM_DEPL'",
2606            regles=(UN_PARMI('VITE','DEPL',),ENSEMBLE('DEPL','FREQ',),),
2607            FREQ            =SIMP(statut='f',typ='R'),
2608            VITE            =SIMP(statut='f',typ=cham_no_depl_r),
2609            DEPL            =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_depl_c)),
2610          ),
2611
2612          b_efge_elno_cart  =BLOC(condition="OPTION=='EFGE_ELNO_CART'",
2613            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2614            PLAN            =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
2615          ),
2616
2617          b_efge_elno_depl  =BLOC(condition="OPTION=='EFGE_ELNO_DEPL'",
2618            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2619            PLAN            =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
2620          ),
2621
2622          b_endo_elno_sigm  =BLOC(condition="OPTION=='ENDO_ELNO_SIGM'",
2623            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2624          ),
2625
2626          b_epot_elem_depl  =BLOC(condition="OPTION=='EPOT_ELEM_DEPL'",
2627            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2628          ),
2629
2630          b_enel_elga       =BLOC(condition="OPTION=='ENEL_ELGA'",
2631            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2632          ),
2633
2634          b_enel_elno_elga  =BLOC(condition="OPTION=='ENEL_ELNO_ELGA'",
2635            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2636          ),
2637
2638          b_epsi_elno_depl  =BLOC(condition="OPTION=='EPSI_ELNO_DEPL'",
2639            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2640          ),
2641
2642          b_equi_elga_epsi  =BLOC(condition="OPTION=='EQUI_ELGA_EPSI'",
2643            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_epsi_r,) ),
2644          ),
2645
2646          b_equi_elga_sigm  =BLOC(condition="OPTION=='EQUI_ELGA_SIGM'",
2647            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2648          ),
2649
2650          b_equi_elno_epsi  =BLOC(condition="OPTION=='EQUI_ELNO_EPSI'",
2651            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_epsi_r,) ),
2652          ),
2653
2654          b_equi_elno_sigm  =BLOC(condition="OPTION=='EQUI_ELNO_SIGM'",
2655            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2656          ),
2657
2658          b_pres_dbel_depl  =BLOC(condition="OPTION=='PRES_DBEL_DEPL'",
2659            DEPL            =SIMP(statut='o',typ=(cham_no_depl_c,)),
2660          ),
2661
2662          b_sief_elga_depl  =BLOC(condition="OPTION=='SIEF_ELGA_DEPL'",
2663            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2664          ),
2665
2666          b_sief_elga_lagr  =BLOC(condition="OPTION=='SIEF_ELGA_LAGR'",
2667            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2668            THETA           =SIMP(statut='o',typ=(theta_geom,)),
2669            PROPAGATION     =SIMP(statut='f',typ='R',defaut=0.E+0),
2670          ),
2671
2672          b_sigm_elno_cart  =BLOC(condition="OPTION=='SIGM_ELNO_CART'",
2673            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2674          ),
2675
2676          b_sigm_elno_depl  =BLOC(condition="OPTION=='SIGM_ELNO_DEPL'",
2677            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,) ),
2678          ),
2679
2680          b_sigm_elno_lagr  =BLOC(condition="OPTION=='SIGM_ELNO_LAGR'",
2681            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2682            THETA           =SIMP(statut='o',typ=(theta_geom,)),
2683            PROPAGATION     =SIMP(statut='f',typ='R',defaut=0.E+0),
2684          ),
2685
2686          b_sipo_elno_depl  =BLOC(condition="OPTION=='SIPO_ELNO_DEPL'",
2687            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2688          ),
2689
2690          b_thermique  =BLOC(condition="OPTION in ('FLUX_ELNO_TEMP','FLUX_ELGA_TEMP','SOUR_ELGA_ELEC',)",
2691            TEMP            =SIMP(statut='o',typ=(cham_no_temp_r,)),
2692          ),
2693
2694          b_acoustique  =BLOC(condition="OPTION in ('PRES_ELNO_DBEL','PRES_ELNO_REEL','PRES_ELNO_IMAG',)",
2695            PRES            =SIMP(statut='o',typ=(cham_no_pres_c,)),
2696          ),
2697
2698
2699
2700          EXCIT           =FACT(statut='f',min=01,max='**',
2701                regles=(EXCLUS('FONC_MULT','COEF_MULT', ),),
2702                CHARGE          =SIMP(statut='o',typ=(char_meca,char_ther,char_acou)),
2703                FONC_MULT       =SIMP(statut='f',typ=fonction),
2704                COEF_MULT       =SIMP(statut='f',typ='R'), ),
2705
2706          INST            =SIMP(statut='f',typ='R',defaut= 0.E+0),
2707          ACCE            =SIMP(statut='f',typ=cham_no_depl_r),
2708          NUME_COUCHE     =SIMP(statut='f',typ='I',defaut= 1),
2709          NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
2710          MODE_FOURIER    =SIMP(statut='f',typ='I',defaut= 0 ),
2711          ANGLE           =SIMP(statut='f',typ='I',defaut= 0),
2712 )  ;
2713 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2714 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2715 # ======================================================================
2716 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2717 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
2718 #              REDISTRIBUTION OF THIS FILE.
2719 # ======================================================================
2720 # RESPONSABLE VABHHTS J.PELLET
2721 def calc_char_cine_prod(CHAR_CINE,**args):
2722   if AsType(CHAR_CINE) == char_cine_meca : return cham_no_depl_r
2723   if AsType(CHAR_CINE) == char_cine_ther : return cham_no_temp_r
2724   if AsType(CHAR_CINE) == char_cine_acou : return cham_no_pres_c
2725   raise AsException("type de concept resultat non prevu")
2726
2727 CALC_CHAR_CINE=OPER(nom="CALC_CHAR_CINE",op= 102,sd_prod=calc_char_cine_prod,
2728                     fr="Calcul des seconds membres associés à des charges cinématiques (conditions aux limites non dualisées)",
2729                     docu="U4.61.03-e",reentrant='n',
2730          NUME_DDL        =SIMP(statut='o',typ=nume_ddl ),
2731          CHAR_CINE       =SIMP(statut='o',typ=(char_cine_meca,char_cine_ther,char_cine_acou ) ),
2732          INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2733          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
2734 )  ;
2735 #& MODIF COMMANDE  DATE 28/03/2001   AUTEUR CIBHHLV L.VIVAN
2736 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2737 # ======================================================================
2738 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2739 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
2740 #              REDISTRIBUTION OF THIS FILE.
2741 # ======================================================================
2742 def calc_char_seisme_prod(MATR_MASS,**args ):
2743   if AsType(MATR_MASS) == matr_asse_depl_r : return cham_no_depl_r
2744   raise AsException("type de concept resultat non prevu")
2745
2746 CALC_CHAR_SEISME=OPER(nom="CALC_CHAR_SEISME",op=  92,sd_prod=calc_char_seisme_prod,
2747                       docu="U4.63.01-e",reentrant='n',
2748          regles=(UN_PARMI('MONO_APPUI','MODE_STAT' ),),
2749          MATR_MASS       =SIMP(statut='o',typ=matr_asse_depl_r,fr="Matrice de masse" ),
2750          DIRECTION       =SIMP(statut='o',typ='R',max=06,fr="Directions du séisme imposé"),
2751          MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2752          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
2753          b_mode_stat     =BLOC ( condition = "MODE_STAT != None",
2754            regles=(UN_PARMI('NOEUD','GROUP_NO' ),),
2755            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2756            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2757          ),
2758          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
2759 )  ;
2760 #& MODIF COMMANDE  DATE 04/12/2001   AUTEUR GNICOLAS G.NICOLAS
2761 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2762 # ======================================================================
2763 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2764 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
2765 #              REDISTRIBUTION OF THIS FILE.
2766 # ======================================================================
2767 # RESPONSABLE JMBHH01 J.M.PROIX
2768 def calc_elem_prod(RESULTAT,**args):
2769    if AsType(RESULTAT) != None : return AsType(RESULTAT)
2770    raise AsException("type de concept resultat non prevu")
2771
2772 CALC_ELEM=OPER(nom="CALC_ELEM",op=58,sd_prod=calc_elem_prod,docu="U4.81.01-f1",reentrant='f',
2773                     fr="Compléter un résultat en calculant des champs par éléments (contraintes, déformations,... )",
2774          MODELE          =SIMP(statut='o',typ=modele),
2775          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
2776          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
2777
2778          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2779          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2780          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2781
2782          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
2783                         'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),),
2784          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2785          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
2786          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
2787          NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
2788          NOM_CAS         =SIMP(statut='f',typ='TXM' ),
2789
2790          INST            =SIMP(statut='f',typ='R',max='**'),
2791          FREQ            =SIMP(statut='f',typ='R',max='**'),
2792          LIST_INST       =SIMP(statut='f',typ=listr8),
2793          LIST_FREQ       =SIMP(statut='f',typ=listr8),
2794          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
2795          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
2796
2797          LIST_ORDRE      =SIMP(statut='f',typ=listis),
2798
2799          OPTION          =SIMP(statut='o',typ='TXM',max='**',
2800                                into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
2801                                      "SIGM_ELNO_TUYO","SIGM_ELNO_CART","DEGE_ELNO_DEPL","EFGE_ELNO_CART",
2802                                      "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL",
2803                                      "EPME_ELNO_DEPL","EPME_ELGA_DEPL","EPMG_ELNO_DEPL","EPMG_ELGA_DEPL",
2804                                      "EPSP_ELNO","EPSP_ELGA","ECIN_ELEM_DEPL","SIPO_ELNO_DEPL",
2805                                      "EPGR_ELNO","EPGR_ELGA","DURT_ELGA_META","DURT_ELNO_META",
2806                                      "SIGM_ELNO_COQU","SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",
2807                                      "SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA","ERRE_ELEM_NOZ2",
2808                                      "VNOR_ELEM_DEPL","SIRE_ELNO_DEPL","ERRE_ELGA_NORE","ERRE_ELNO_ELGA",
2809                                      "VARI_ELNO_ELGA","VARI_ELNO_TUYO","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
2810                                      "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI","EQUI_ELNO_EPME","EQUI_ELGA_EPME",
2811                                      "DCHA_ELNO_SIGM","DCHA_ELGA_SIGM","RADI_ELNO_SIGM","RADI_ELGA_SIGM",
2812                                      "ENDO_ELNO_SIGA","ENDO_ELNO_SINO","ENEL_ELGA","ENEL_ELNO_ELGA","SIEF_ELNO_ELGA",
2813                                      "DEUL_ELGA_TEMP","DETE_ELNO_DLTE","DEUL_ELGA_DEPL","DEDE_ELNO_DLDE",
2814                                      "DESI_ELNO_DLSI","PMPB_ELNO_SIEF","PMPB_ELGA_SIEF",
2815                                      "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","HYDR_ELNO_ELGA",
2816                                      "SOUR_ELGA_ELEC",
2817                                      "PRES_ELNO_DBEL","PRES_DBEL_DEPL","PRES_ELNO_REEL","PRES_ELNO_IMAG",
2818                                      "INTE_ELNO_ACTI","INTE_ELNO_REAC","ERTH_ELEM_TEMP","ERTH_ELNO_ELEM"
2819                                      ) ),
2820          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,mode_meca,
2821                                     mode_stat,mode_stat_depl,mode_stat_acce,mode_stat_forc,
2822                                     evol_noli,mult_elas,fourier_elas,
2823                                                evol_ther,base_modale,
2824                                                acou_harmo,mode_acou,mode_flamb) ),
2825          EXCIT           =FACT(statut='f',min=1,max='**',
2826              regles=(EXCLUS('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
2827              CHARGE          =SIMP(statut='o',typ=(char_meca,char_ther,char_acou) ),
2828              FONC_MULT       =SIMP(statut='f',typ=fonction),
2829              FONC_MULT_C     =SIMP(statut='f',typ=fonction_c),
2830              COEF_MULT       =SIMP(statut='f',typ='R'),
2831              COEF_MULT_C     =SIMP(statut='f',typ='C'),
2832              PHAS_DEG        =SIMP(statut='f',typ='R'),
2833              PUIS_PULS       =SIMP(statut='f',typ='I'),
2834              TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
2835          ),
2836          NORME           =SIMP(statut='f',typ='TXM',defaut="VMIS",
2837                                into=("VMIS","TOTAL","VMIS_CINE","TOTAL_CINE") ),
2838          NUME_COUCHE     =SIMP(statut='f',typ='I',defaut= 1 ),
2839          NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
2840
2841          ANGLE           =SIMP(statut='f',typ='I',defaut= 0 ),
2842          PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL") ),
2843          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
2844                                fr="Liste des paramètres de sensibilité.",
2845                                ang="List of sensitivity parameters"),
2846          TAILLE_BLOC     =SIMP(statut='f',typ='R',defaut= 400.),
2847
2848          TEMP_INIT       =FACT(statut='f',min=1,max='**',
2849              regles=(EXCLUS('META_INIT','EVOL_THER'),),
2850              META_INIT       =SIMP(statut='f',typ=carte_meta_r),
2851              EVOL_THER       =SIMP(statut='f',typ=evol_ther,),
2852              NUME_INIT       =SIMP(statut='f',typ='I'),
2853          ),
2854          PARM_THETA      =SIMP(statut='f',typ='R',defaut= 0.57,),
2855          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
2856          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
2857 )  ;
2858 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2859 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2860 # ======================================================================
2861 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2862 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
2863 #              REDISTRIBUTION OF THIS FILE.
2864 # ======================================================================
2865 CALC_FATIGUE=OPER(nom="CALC_FATIGUE",op= 151,sd_prod=cham_elem_dommag,reentrant='n',
2866                   fr="Calcul d un champ de dommage subi par une structure",
2867                   docu="U4.83.02-c",
2868       regles=(PRESENT_PRESENT('DOMMAGE','MATER', ),),
2869          OPTION          =SIMP(statut='o',typ='TXM',
2870                                into=("DOMA_ELNO_SIGM","DOMA_ELGA_SIGM",
2871                                      "DOMA_ELNO_EPSI","DOMA_ELGA_EPSI",
2872                                      "DOMA_ELNO_EPME","DOMA_ELGA_EPME") ),
2873          HISTOIRE        =FACT(statut='o',min=01,max=01,
2874            RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,evol_noli) ),
2875            EQUI_GD         =SIMP(statut='f',typ='TXM',defaut="VMIS_SG",into=("VMIS_SG","INVA_2_SG") ),
2876          ),
2877          DOMMAGE         =SIMP(statut='o',typ='TXM',
2878                                into=("WOHLER","MANSON_COFFIN","TAHERI_MANSON","TAHERI_MIXTE",) ),
2879          MATER           =SIMP(statut='o',typ=(mater) ),
2880          TAHERI_NAPPE    =SIMP(statut='f',typ=(fonction) ),
2881          TAHERI_FONC     =SIMP(statut='f',typ=(fonction) ),
2882          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2883 )  ;
2884 #& MODIF COMMANDE  DATE 23/04/2001   AUTEUR MCOURTOI M.COURTOIS
2885 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2886 # ======================================================================
2887 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2888 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
2889 #              REDISTRIBUTION OF THIS FILE.
2890 # ======================================================================
2891 CALC_FLUI_STRU=OPER(nom="CALC_FLUI_STRU",op= 144,sd_prod=melasflu,
2892                     docu="U4.66.02-d",reentrant='n',
2893          VITE_FLUI       =FACT(statut='o',min=01,max=01,
2894                                fr="Définir la plage de vitesse fluide étudiée",
2895            VITE_MIN        =SIMP(statut='o',typ='R' ),
2896            VITE_MAX        =SIMP(statut='o',typ='R' ),
2897            NB_POIN         =SIMP(statut='o',typ='I' ),
2898          ),
2899          BASE_MODALE     =FACT(statut='o',min=01,max=01,
2900
2901            regles=(UN_PARMI('AMOR_REDUIT','AMOR_UNIF'),),
2902            MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
2903            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
2904            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
2905            AMOR_UNIF       =SIMP(statut='f',typ='R' ),
2906          ),
2907          TYPE_FLUI_STRU  =SIMP(statut='o',typ=type_flui_stru ),
2908          IMPRESSION      =FACT(statut='f',min=01,max=01,
2909                                fr="Choix des informations à imprimer dans le fichier RESULTAT",
2910            PARA_COUPLAGE   =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2911            DEFORMEE        =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
2912          ),
2913 )  ;
2914 #& MODIF COMMANDE  DATE 03/10/2001   AUTEUR DURAND C.DURAND
2915 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2916 # ======================================================================
2917 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2918 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
2919 #              REDISTRIBUTION OF THIS FILE.
2920 # ======================================================================
2921 CALC_FONC_INTERP=OPER(nom="CALC_FONC_INTERP",op= 134,sd_prod=fonction,
2922                       docu="U4.32.01-d1",reentrant='f',
2923          regles=(UN_PARMI('VALE_R','LIST_PARA'),),
2924          FONCTION        =SIMP(statut='o',typ=fonction ),
2925          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
2926          VALE_R          =SIMP(statut='f',typ='R',max='**'),
2927          LIST_PARA       =SIMP(statut='f',typ=listr8 ),
2928          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG","INT") ),
2929          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("EXCLU","CONSTANT","LINEAIRE","INTERPRE") ),
2930          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("EXCLU","CONSTANT","LINEAIRE","INTERPRE") ),
2931          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
2932          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
2933 )  ;
2934 #& MODIF COMMANDE  DATE 03/10/2001   AUTEUR DURAND C.DURAND
2935 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2936 # ======================================================================
2937 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2938 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
2939 #              REDISTRIBUTION OF THIS FILE.
2940 # ======================================================================
2941 # RESPONSABLE MCOURTOI M.COURTOIS
2942 def calc_fonction_prod(DERIVE,EXTRACTION,INTEGRE,RMS,NOCI_SEISME,MAX,COMB,COMB_C,ENVELOPPE,SPEC_OSCI,ASSE,FFT,COMPOSE,**args):
2943   if (RMS != None)        : return tabl_fonc_rms
2944   if (MAX != None)        : return tabl_fonc_max
2945   if (NOCI_SEISME != None): return tabl_fonc_noci
2946   if (INTEGRE != None)    : return fonction
2947   if (DERIVE != None)     : return fonction
2948   if (COMB != None)       : return fonction
2949   if (ENVELOPPE != None)  : return fonction
2950   if (EXTRACTION != None) : return fonction
2951   if (SPEC_OSCI != None)  : return fonction
2952   if (COMB_C != None)     : return fonction_c
2953   if (COMPOSE != None)    : return fonction
2954   if (ASSE != None)       : return fonction
2955   if (FFT != None)        :
2956      vale=FFT.get_child('FONCTION').get_valeur()
2957      if (AsType(vale) == fonction )  : return fonction_c
2958      if (AsType(vale) == fonction_c) : return fonction
2959   raise AsException("type de concept resultat non prevu")
2960
2961 CALC_FONCTION=OPER(nom="CALC_FONCTION",op=  91,sd_prod=calc_fonction_prod
2962                     ,fr="Opérations mathématiques sur des concepts de type fonction",
2963                      docu="U4.32.04-e1",reentrant='n',
2964          regles=(UN_PARMI('DERIVE','INTEGRE','SPEC_OSCI','MAX','COMB','COMB_C','ENVELOPPE','RMS',
2965                           'NOCI_SEISME','COMPOSE','EXTRACTION','ASSE','FFT' ),),
2966          FFT             =FACT(statut='f',min=1,max=1,fr="Calcul de la transformee de Fourier ou de son inverse",
2967            FONCTION        =SIMP(statut='o',typ=(fonction,fonction_c) )
2968          ),
2969          DERIVE          =FACT(statut='f',min=1,max=1,fr="Calcul de la dérivée d une fonction",
2970            METHODE         =SIMP(statut='f',typ='TXM',defaut="DIFF_CENTREE",into=("DIFF_CENTREE",) ),
2971            FONCTION        =SIMP(statut='o',typ=fonction ),
2972          ),
2973          INTEGRE         =FACT(statut='f',min=1,max=1,fr="Calcul de l intégrale d une fonction",
2974            METHODE         =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
2975            FONCTION        =SIMP(statut='o',typ=fonction),
2976            COEF            =SIMP(statut='f',typ='R',defaut= 0.E+0,fr="Valeur de la constante d intégration" ),
2977          ),
2978          RMS             =FACT(statut='f',min=1,max=1,fr="Calcul de la valeur RMS d une fonction",
2979            METHODE         =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
2980            FONCTION        =SIMP(statut='o',typ=fonction ),
2981            INST_INIT       =SIMP(statut='f',typ='R',fr="Instant initial définissant le début du signal" ),
2982            INST_FIN        =SIMP(statut='f',typ='R',fr="Instant final définissant la fin du signal" ),
2983            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
2984            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
2985          ),
2986          NOCI_SEISME     =FACT(statut='f',min=1,max=1,
2987            FONCTION        =SIMP(statut='f',typ=fonction ),
2988            SPEC_OSCI       =SIMP(statut='f',typ=fonction ),
2989            OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",max='**',
2990                                  into=("INTE_ARIAS","POUV_DEST","INTE_SPEC","VITE_ABSO_CUMU",
2991                                        "DUREE_PHAS_FORT","MAXI","ACCE_SUR_VITE","TOUT",) ),
2992            INST_INIT       =SIMP(statut='f',typ='R'),
2993            INST_FIN        =SIMP(statut='f',typ='R'),
2994            NATURE          =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE") ),
2995            COEF            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2996            PESANTEUR       =SIMP(statut='f',typ='R',defaut= 9.81E+0 ),
2997            FREQ_INIT       =SIMP(statut='f',typ='R',defaut= 4.E-1 ),
2998            FREQ_FIN        =SIMP(statut='f',typ='R',defaut= 10.E+0 ),
2999            AMOR_REDUIT     =SIMP(statut='f',typ='R'),
3000            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
3001            FREQ            =SIMP(statut='f',typ='R',max='**'),
3002            NORME           =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
3003            BORNE_INF       =SIMP(statut='f',typ='R',defaut= 0.05E+0 ),
3004            BORNE_SUP       =SIMP(statut='f',typ='R',defaut= 0.95E+0 ),
3005            b_acce_reel     =BLOC(condition="(INST_INIT != None)or(INST_FIN != None)or(FREQ_INIT != None)or(FREQ_FIN != None)",
3006              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
3007              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3008            ),
3009          ),
3010          SPEC_OSCI       =FACT(statut='f',min=1,max=1,fr="Calcul du spectre d oscillateur",
3011            METHODE         =SIMP(statut='f',typ='TXM',defaut="NIGAM",into=("NIGAM",) ),
3012            FONCTION        =SIMP(statut='o',typ=fonction ),
3013            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
3014            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
3015            FREQ            =SIMP(statut='f',typ='R',max='**'),
3016            NORME           =SIMP(statut='f',typ='R',defaut= 9.81E+0,fr="Valeur de la norme du spectre d oscillateur" ),
3017            NATURE          =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
3018            NATURE_FONC     =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
3019          ),
3020          MAX             =FACT(statut='f',min=1,max=1,fr="Calcul des extrémas locaux d une fonction",
3021            FONCTION        =SIMP(statut='o',typ=fonction ),
3022          ),
3023          COMB            =FACT(statut='f',min=1,max='**',fr="Calcul d une combinaison linéaire réelle de fonctions",
3024            FONCTION        =SIMP(statut='o',typ=fonction ),
3025            COEF            =SIMP(statut='o',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
3026          ),
3027          COMB_C          =FACT(statut='f',min=1,max='**',fr="Calcul d une combinaison linéaire complexe de fonctions",
3028            regles=(UN_PARMI('COEF_R','COEF_C'),),
3029            FONCTION        =SIMP(statut='o',typ=(fonction, fonction_c) ),
3030            COEF_R          =SIMP(statut='f',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
3031            COEF_C          =SIMP(statut='f',typ='C',fr="Coefficient complexe de la combinaison linéaire associée à la fonction" ),
3032          ),
3033          b_comb          =BLOC ( condition = " (COMB != None) or (COMB_C != None)",
3034              LIST_PARA      =SIMP(statut='f',typ=listr8 ),
3035          ),
3036          COMPOSE         =FACT(statut='f',min=1,max=1,fr="Calcul de la composition de deux fonctions FONC_RESU(FONC_PARA)",
3037            FONC_RESU       =SIMP(statut='o',typ=fonction),
3038            FONC_PARA       =SIMP(statut='o',typ=fonction),
3039          ),
3040          EXTRACTION      =FACT(statut='f',min=1,max=1,fr="Opération d extraction sur une fonction complexe",
3041            FONCTION        =SIMP(statut='o',typ=fonction_c),
3042            PARTIE          =SIMP(statut='o',typ='TXM',into=("REEL","IMAG","MODULE","PHASE"),fr="Partie à extraire"),
3043          ),
3044          ENVELOPPE       =FACT(statut='f',min=1,max=1,fr="Calcul de l enveloppe d une famille de fonctions",
3045            FONCTION        =SIMP(statut='o',typ=fonction,max='**' ),
3046            CRITERE         =SIMP(statut='f',typ='TXM',defaut="SUP",into=("SUP","INF"),fr="Type de l enveloppe" ),
3047          ),
3048          ASSE            =FACT(statut='f',min=1,max=1,fr="Création à partir de la concatenation de fonctions",
3049            FONCTION        =SIMP(statut='o',typ=fonction,max='**' ),
3050            SURCHARGE       =SIMP(statut='f',typ='TXM',defaut="DROITE",into=("DROITE","GAUCHE")),
3051          ),
3052          NOM_PARA        =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
3053                                                           "INST","X","Y","Z","EPSI","FREQ","PULS",
3054                                                           "AMOR","ABSC") ),
3055          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
3056          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
3057          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3058          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3059          NOM_PARA_FONC   =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
3060                                                           "INST","X","Y","Z","EPSI","FREQ","PULS",
3061                                                           "AMOR","ABSC") ),
3062          INTERPOL_FONC   =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
3063          PROL_DROITE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3064          PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3065          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3066          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3067 )  ;
3068 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
3069 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3070 # ======================================================================
3071 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3072 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3073 #              REDISTRIBUTION OF THIS FILE.
3074 # ======================================================================
3075 CALC_FORC_AJOU=OPER(nom="CALC_FORC_AJOU",op=199,sd_prod=vect_asse_gene,
3076                    fr="calcul de la force ajoutee ",
3077                    docu="U4.66.03-a",reentrant ='n',
3078
3079         regles=(EXCLUS('MODE_MECA','MODELE_GENE'),
3080                 PRESENT_PRESENT( 'MODELE_GENE','NUME_DDL_GENE'),
3081                 UN_PARMI('MONO_APPUI', 'NOEUD','GROUP_NO'),
3082                 UN_PARMI('MONO_APPUI','MODE_STAT')),
3083
3084          MODELE_FLUIDE   =SIMP(statut='o',typ=modele ),
3085          MODELE_INTERFACE=SIMP(statut='o',typ=modele ),
3086          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
3087          CHARGE          =SIMP(statut='o',typ=char_ther ),
3088          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
3089          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
3090          NUME_DDL_GENE   =SIMP(statut='f',typ=nume_ddl_gene ),
3091          DIST_REFE       =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
3092          AVEC_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3093          NUME_MODE_MECA  =SIMP(statut='f',typ='I',max='**'),
3094          POTENTIEL       =SIMP(statut='f',typ=evol_ther ),
3095          NOEUD_DOUBLE    =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3096
3097          DIRECTION       =SIMP(statut='o',typ='R',max=3),
3098          MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",),),
3099          NOEUD           =SIMP(statut='f',typ=no,max='**'),
3100          GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
3101          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,),),
3102
3103          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3104
3105          SOLVEUR         =FACT(statut='d',min=1,max=1,
3106            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
3107            b_mult_front    = BLOC ( condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
3108              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
3109            ),
3110            b_ldlt          =BLOC( condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
3111              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
3112            ),
3113            b_ldlt_mult     =BLOC( condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
3114                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
3115              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
3116              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3117            ),
3118            b_gcpc          =BLOC (condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
3119              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
3120              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
3121              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
3122              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
3123              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
3124            ),
3125 #  A quoi sert eps
3126            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0),  ),
3127
3128            ) ;
3129 #& MODIF COMMANDE  DATE 12/09/2001   AUTEUR MCOURTOI M.COURTOIS
3130 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3131 # ======================================================================
3132 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3133 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3134 #              REDISTRIBUTION OF THIS FILE.
3135 # ======================================================================
3136 CALC_G_LOCAL_T=OPER(nom="CALC_G_LOCAL_T",op=77,sd_prod=tabl_calc_g_loca,
3137                     fr="Calcul du taux de restitution local d énergie",docu="U4.82.04-e1",reentrant='n',
3138          MODELE          =SIMP(statut='o',typ=modele),
3139          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
3140          FOND            =SIMP(statut='o',typ=fond_fiss),
3141          regles=(UN_PARMI('RESULTAT','DEPL'),
3142                  UN_PARMI('R_INF','R_INF_FO'),
3143                  PRESENT_PRESENT('R_INF','R_SUP'),
3144                  PRESENT_PRESENT('R_INF_FO','R_SUP_FO'), ),
3145
3146          DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
3147          RESULTAT        =SIMP(statut='f',typ=(evol_elas,evol_noli),),
3148          b_extrac        =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
3149              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
3150              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3151              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
3152              LIST_ORDRE      =SIMP(statut='f',typ=listis),
3153              INST            =SIMP(statut='f',typ='R',max='**'),
3154              LIST_INST       =SIMP(statut='f',typ=listr8),
3155
3156              b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
3157                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
3158                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3159              ),
3160          ),
3161
3162          CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
3163          SYME_CHAR       =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
3164
3165          COMP_ELAS       =FACT(statut='f',min=01,max=01,
3166                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
3167                                      into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
3168                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3169                ELAS_VMIS_LINE  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3170                ELAS_VMIS_TRAC  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3171                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
3172       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3173                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3174                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3175                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3176          ),
3177
3178          COMP_INCR       =FACT(statut='f',min=01,max=01,
3179                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
3180                                      into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
3181                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3182                VMIS_ISOT_TRAC  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3183                VMIS_ISOT_LINE  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3184                VMIS_CINE_LINE  =SIMP(statut='f',typ='I',defaut=7,into=(7,) ),
3185                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
3186       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3187                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3188                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3189                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3190          ),
3191
3192          ETAT_INIT       =FACT(statut='f',min=01,max=01,
3193            SIGM            =SIMP(statut='f',typ=cham_elem_sief_r),
3194            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
3195          ),
3196
3197          OPTION          =SIMP(statut='f',typ='TXM',defaut="CALC_G",
3198                                into=("CALC_G","CALC_G_LGLO","G_BILINEAIRE","CALC_G_MAX") ),
3199          b_g             =BLOC(condition="OPTION=='CALC_G'",
3200            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3201            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE","LAGRANGE_NO_NO",) ),
3202          ),
3203          b_g_lglo        =BLOC(condition="OPTION=='CALC_G_LGLO'",
3204            PROPAGATION     =SIMP(statut='o',typ='R'),
3205            THETA           =SIMP(statut='o',typ=theta_geom),
3206            DIRE_THETA      =SIMP(statut='f',typ=cham_no_depl_r),
3207            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3208            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE","LAGRANGE_NO_NO",) ),
3209          ),
3210          b_g_bilin       =BLOC(condition="OPTION=='G_BILINEAIRE'",
3211            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3212            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3213          ),
3214          b_calc_g_max    =BLOC(condition="OPTION=='CALC_G_MAX'",
3215            BORNES          =FACT(statut='o',min=01,max='**',
3216               NUME_ORDRE     =SIMP(statut='o',typ='I'),
3217               VALE_MIN       =SIMP(statut='o',typ='R'),
3218               VALE_MAX       =SIMP(statut='o',typ='R'),
3219                                 ),
3220            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3221            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3222          ),
3223
3224          DEGRE           =SIMP(statut='f',typ='I',defaut=5,into=(0,1,2,3,4,5,6,7) ),
3225
3226          R_INF           =SIMP(statut='f',typ='R'),
3227          R_SUP           =SIMP(statut='f',typ='R'),
3228          R_INF_FO        =SIMP(statut='f',typ=fonction),
3229          R_SUP_FO        =SIMP(statut='f',typ=fonction),
3230
3231          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3232          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
3233 )  ;
3234 #& MODIF COMMANDE  DATE 12/09/2001   AUTEUR MCOURTOI M.COURTOIS
3235 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3236 # ======================================================================
3237 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3238 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3239 #              REDISTRIBUTION OF THIS FILE.
3240 # ======================================================================
3241 CALC_G_THETA_T=OPER(nom="CALC_G_THETA_T",op=53,sd_prod=tabl_calc_g_th,
3242                     fr="Calcul du taux de restitution d énergie par la méthode theta en thermo-élasticité en 2D ou en 3D",
3243                     docu="U4.82.03-e1",reentrant='n',
3244          regles=(UN_PARMI('RESULTAT','DEPL'),
3245                  EXCLUS('COMP_ELAS','COMP_INCR'),),
3246          MODELE          =SIMP(statut='o',typ=modele),
3247          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
3248          THETA           =SIMP(statut='o',typ=theta_geom),
3249          DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
3250          RESULTAT        =SIMP(statut='f',typ=(evol_elas,evol_noli),),
3251
3252          b_extrac        =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
3253            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
3254            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3255            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
3256            LIST_ORDRE      =SIMP(statut='f',typ=listis),
3257            INST            =SIMP(statut='f',typ='R',max='**'),
3258            LIST_INST       =SIMP(statut='f',typ=listr8),
3259
3260            b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
3261              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
3262              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3263            ),
3264          ),
3265
3266          CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
3267          SYME_CHAR       =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
3268
3269          COMP_ELAS       =FACT(statut='f',min=01,max=01,
3270                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
3271                                      into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
3272                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3273                ELAS_VMIS_LINE  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3274                ELAS_VMIS_TRAC  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3275                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
3276       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3277                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3278                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3279                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3280          ),
3281          COMP_INCR       =FACT(statut='f',min=01,max=01,
3282                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
3283                                      into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
3284                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3285                VMIS_ISOT_TRAC  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3286                VMIS_ISOT_LINE  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3287                VMIS_CINE_LINE  =SIMP(statut='f',typ='I',defaut=7,into=(7,) ),
3288                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
3289       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3290                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3291                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3292                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3293          ),
3294          ETAT_INIT       =FACT(statut='f',min=01,max=01,
3295            SIGM            =SIMP(statut='f',typ=cham_elem_sief_r),
3296            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
3297          ),
3298          OPTION          =SIMP(statut='f',typ='TXM',defaut="CALC_G",
3299                                into=("CALC_G","CALC_G_LAGR","CALC_K_G","G_BILINEAIRE","CALC_G_MAX","CALC_DG",) ),
3300          b_calc_g_max    =BLOC(condition="OPTION=='CALC_G_MAX'",
3301            BORNES          =FACT(statut='o',min=01,max='**',
3302                 NUME_ORDRE     =SIMP(statut='o',typ='I'),
3303                 VALE_MIN       =SIMP(statut='o',typ='R'),
3304                 VALE_MAX       =SIMP(statut='o',typ='R'),
3305                                 ),
3306          ),
3307          b_calc_k_g      =BLOC(condition="OPTION=='CALC_K_G'",
3308            FOND            =SIMP(statut='o',typ=fond_fiss),
3309          ),
3310          b_calc_g_lagr   =BLOC(condition="OPTION=='CALC_G_LAGR'",
3311            PROPAGATION     =SIMP(statut='o',typ='R'),
3312          ),
3313          b_calc_dg       =BLOC(condition="OPTION=='CALC_DG'",
3314            SENSIBILITE     =FACT(statut='f',min=01,max=01,
3315                  THETA          =SIMP(statut='o',typ=theta_geom ),
3316                                ),
3317          ),
3318
3319          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3320          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
3321 )  ;
3322 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
3323 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3324 # ======================================================================
3325 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3326 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3327 #              REDISTRIBUTION OF THIS FILE.
3328 # ======================================================================
3329 CALC_INTE_SPEC=OPER(nom="CALC_INTE_SPEC",op= 120,sd_prod=tabl_intsp,
3330                     fr="Calcul d une matrice interspectrale d une fonction du temps",
3331                     docu="U4.36.03-e",reentrant='n',
3332          INST_INIT       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3333          INST_FIN        =SIMP(statut='o',typ='R' ),
3334          DUREE_ANALYSE   =SIMP(statut='f',typ='R' ),
3335          DUREE_DECALAGE  =SIMP(statut='f',typ='R' ),
3336          NB_POIN         =SIMP(statut='o',typ='I' ),
3337          FONCTION        =SIMP(statut='o',typ=fonction,max='**' ),
3338          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3339          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
3340 )  ;
3341 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
3342 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3343 # ======================================================================
3344 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3345 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3346 #              REDISTRIBUTION OF THIS FILE.
3347 # ======================================================================
3348 CALC_MATR_AJOU=OPER(nom="CALC_MATR_AJOU",op= 152,sd_prod=matr_asse_gene_r,
3349                     fr="Calcul des matrices de masse, d amortissement ou de raideur ajoutées",
3350                     docu="U4.66.01-c",reentrant='n',
3351          regles=(EXCLUS('MODE_MECA','CHAM_NO','MODELE_GENE'),
3352                  PRESENT_ABSENT('NUME_DDL_GENE','CHAM_NO'),
3353                  PRESENT_PRESENT('MODELE_GENE','NUME_DDL_GENE'),),
3354          MODELE_FLUIDE   =SIMP(statut='o',typ=modele ),
3355          MODELE_INTERFACE=SIMP(statut='o',typ=modele ),
3356          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
3357          CHARGE          =SIMP(statut='o',typ=char_ther ),
3358          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
3359          CHAM_NO         =SIMP(statut='f',typ=cham_no_depl_r ),
3360          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
3361          NUME_DDL_GENE   =SIMP(statut='f',typ=nume_ddl_gene ),
3362          DIST_REFE       =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
3363          AVEC_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3364          NUME_MODE_MECA  =SIMP(statut='f',typ='I',max='**'),
3365          OPTION          =SIMP(statut='o',typ='TXM',into=("MASS_AJOU","AMOR_AJOU","RIGI_AJOU") ),
3366          POTENTIEL       =SIMP(statut='f',typ=evol_ther ),
3367          NOEUD_DOUBLE    =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3368          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3369
3370          SOLVEUR         =FACT(statut='d',min=1,max=1,
3371            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
3372            b_mult_front    = BLOC ( condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
3373              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
3374            ),
3375            b_ldlt          =BLOC( condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
3376              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
3377            ),
3378            b_ldlt_mult     =BLOC( condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
3379                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
3380              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
3381              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3382            ),
3383            b_gcpc          =BLOC (condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
3384              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
3385              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
3386              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
3387              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
3388              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
3389            ),
3390 #  A quoi sert eps
3391            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3392          ),
3393 )  ;
3394 #& MODIF COMMANDE  DATE 11/12/2001   AUTEUR DURAND C.DURAND
3395 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3396 # ======================================================================
3397 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3398 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3399 #              REDISTRIBUTION OF THIS FILE.
3400 # ======================================================================
3401 # RESPONSABLE VABHHTS J.PELLET
3402 def calc_matr_elem_prod(OPTION,**args):
3403   if OPTION == "RIGI_MECA"        : return matr_elem_depl_r
3404   if OPTION == "RIGI_FLUI_STRU"   : return matr_elem_depl_r
3405   if OPTION == "RIGI_MECA_LAGR"   : return matr_elem_depl_r
3406   if OPTION == "MASS_ID_MDEP_R"   : return matr_elem_depl_r
3407   if OPTION == "MASS_ID_MDNS_R"   : return matr_elem_depl_r
3408   if OPTION == "MASS_ID_MTEM_R"   : return matr_elem_temp_r
3409   if OPTION == "MASS_ID_MTNS_R"   : return matr_elem_temp_r
3410   if OPTION == "MASS_MECA"        : return matr_elem_depl_r
3411   if OPTION == "MASS_FLUI_STRU"   : return matr_elem_depl_r
3412   if OPTION == "RIGI_GEOM"        : return matr_elem_depl_r
3413   if OPTION == "RIGI_ROTA"        : return matr_elem_depl_r
3414   if OPTION == "AMOR_MECA"        : return matr_elem_depl_r
3415   if OPTION == "IMPE_MECA"        : return matr_elem_depl_r
3416   if OPTION == "ONDE_FLUI"        : return matr_elem_depl_r
3417   if OPTION == "RIGI_MECA_HYST"   : return matr_elem_depl_c
3418   if OPTION == "RIGI_THER"        : return matr_elem_temp_r
3419   if OPTION == "MASS_THER"        : return matr_elem_temp_r
3420   if OPTION == "MASS_MECA_DIAG"   : return matr_elem_depl_r
3421   if OPTION == "RIGI_ACOU"        : return matr_elem_pres_c
3422   if OPTION == "MASS_ACOU"        : return matr_elem_pres_c
3423   if OPTION == "AMOR_ACOU"        : return matr_elem_pres_c
3424   raise AsException("type de concept resultat non prevu")
3425
3426 CALC_MATR_ELEM=OPER(nom="CALC_MATR_ELEM",op=   9,sd_prod=calc_matr_elem_prod
3427                     ,fr="Calcul des matrices élémentaires",docu="U4.61.01-f",reentrant='n',
3428          OPTION          =SIMP(statut='o',typ='TXM',
3429                                into=("RIGI_MECA","MASS_MECA","RIGI_GEOM",
3430                                      "AMOR_MECA","RIGI_THER","MASS_THER","IMPE_MECA",
3431                                      "ONDE_FLUI","MASS_FLUI_STRU","RIGI_FLUI_STRU",
3432                                      "RIGI_ROTA","MASS_MECA_DIAG","RIGI_ACOU",
3433                                      "MASS_ID_MDEP_R","MASS_ID_MDNS_R","MASS_ID_MTEM_R","MASS_ID_MTNS_R",
3434                                      "MASS_ACOU","AMOR_ACOU","RIGI_MECA_HYST",
3435                                      "RIGI_MECA_LAGR") ),
3436
3437          b_rigi_meca = BLOC( condition = "OPTION=='RIGI_MECA'",
3438            regles=(AU_MOINS_UN('MODELE','CHARGE' ),),
3439            MODELE          =SIMP(statut='f',typ=modele ),
3440            b_modele        =BLOC(condition = "MODELE != None",
3441              CHAM_MATER      =SIMP(statut='f',typ=cham_mater ),
3442              CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
3443              MODE_FOURIER    =SIMP(statut='f',typ='I',defaut= 0 ),
3444            ),
3445            CHARGE          =SIMP(statut='f',typ=char_meca,max='**' ),
3446            b_charge        =BLOC (condition = "CHARGE != None",
3447              INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3448            ),
3449          ),
3450
3451          b_rigi_meca_lagr  =BLOC(condition = "OPTION=='RIGI_MECA_LAGR'",
3452            MODELE            =SIMP(statut='o',typ=modele ),
3453            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
3454            CHARGE            =SIMP(statut='f',typ=char_meca,max='**'  ),
3455            b_charge        =BLOC(condition = "CHARGE != None",
3456              INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3457            ),
3458            THETA           =SIMP(statut='o',typ=theta_geom ),
3459            PROPAGATION     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3460          ),
3461
3462          b_mass_meca       =BLOC(condition = "(OPTION=='MASS_MECA') or (OPTION=='MASS_MECA_DIAG')",
3463            regles=(AU_MOINS_UN('MODELE','CHARGE'),),
3464            MODELE          =SIMP(statut='f',typ=modele ),
3465            b_modele          =BLOC(condition = "MODELE != None",
3466              CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
3467              CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
3468            ),
3469            CHARGE          =SIMP(statut='f',typ=char_meca,max='**' ),
3470            b_charge        =BLOC(condition = "CHARGE != None",
3471              INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3472            ),
3473          ),
3474
3475          b_mass_identite   =BLOC(condition = "(OPTION in ('MASS_ID_MDEP_R','MASS_ID_MTEM_R','MASS_ID_MDNS_R','MASS_ID_MTNS_R')) ",
3476            MODELE            =SIMP(statut='o',typ=modele ),
3477            # j'ajoute ces 2 mot clés inutiles à cause de l'alarme pas assez subtile de MEDOME
3478            CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
3479            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
3480          ),
3481
3482          b_rigi_geom       =BLOC(condition = "OPTION=='RIGI_GEOM'",
3483            MODELE            =SIMP(statut='o',typ=modele ),
3484            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
3485            SIEF_ELGA         =SIMP(statut='o',typ=cham_elem_sief_r ),
3486            MODE_FOURIER      =SIMP(statut='f',typ='I',defaut= 0 ),
3487          ),
3488
3489          b_rigi_rota       =BLOC(condition = "OPTION=='RIGI_ROTA'",
3490            MODELE            =SIMP(statut='o',typ=modele ),
3491            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
3492            CHARGE            =SIMP(statut='o',typ=char_meca,max='**' ),
3493            INST              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3494          ),
3495
3496          b_amor_meca       =BLOC(condition = "OPTION=='AMOR_MECA'",
3497            regles=(AU_MOINS_UN('CARA_ELEM','RIGI_MECA'),
3498                    ENSEMBLE('RIGI_MECA','MASS_MECA','CHAM_MATER'), ),
3499            MODELE            =SIMP(statut='o',typ=modele ),
3500            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
3501            CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
3502            RIGI_MECA         =SIMP(statut='f',typ=matr_elem_depl_r ),
3503            MASS_MECA         =SIMP(statut='f',typ=matr_elem_depl_r ),
3504            CHARGE            =SIMP(statut='f',typ=char_meca,max='**' ),
3505          ),
3506
3507          b_rigi_meca_hyst  =BLOC( condition = "OPTION=='RIGI_MECA_HYST'",
3508            MODELE            =SIMP(statut='o',typ=modele ),
3509            CHARGE            =SIMP(statut='o',typ=char_meca ,max='**' ),
3510            CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
3511            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
3512            RIGI_MECA         =SIMP(statut='o',typ=matr_elem_depl_r ),
3513          ),
3514
3515          b_rigi_ther       =BLOC(condition = "OPTION=='RIGI_THER'",
3516            regles=(AU_MOINS_UN('MODELE','CHARGE' ),),
3517            MODELE            =SIMP(statut='f',typ=modele ),
3518            b_modele          =BLOC(condition = "MODELE != None",
3519              CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
3520              CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
3521              MODE_FOURIER      =SIMP(statut='f',typ='I',defaut= 0 ),
3522            ),
3523            CHARGE            =SIMP(statut='f',typ=char_ther,max='**' ),
3524          ),
3525
3526          b_mass_ther       =BLOC(condition = "OPTION=='MASS_THER'",
3527            MODELE            =SIMP(statut='o',typ=modele ),
3528            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
3529            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
3530          ),
3531
3532          b_rigi_acou       =BLOC(condition = "(OPTION=='RIGI_ACOU') or (OPTION=='MASS_ACOU') or (OPTION=='AMOR_ACOU')",
3533            MODELE            =SIMP(statut='o',typ=modele ),
3534            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
3535            CHARGE            =SIMP(statut='f',typ=char_acou ,max='**' ),
3536          ),
3537
3538          b_rigi_flui       =BLOC(condition = "(OPTION=='RIGI_FLUI_STRU') or (OPTION=='MASS_FLUI_STRU')",
3539            MODELE            =SIMP(statut='o',typ=modele ),
3540            CARA_ELEM         =SIMP(statut='o',typ=cara_elem ),
3541            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
3542            CHARGE            =SIMP(statut='o',typ=char_meca ,max='**' ),
3543            INST              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3544          ),
3545
3546          b_impe_meca       =BLOC(condition = "(OPTION=='IMPE_MECA') or (OPTION=='ONDE_FLUI')",
3547            MODELE            =SIMP(statut='o',typ=modele ),
3548            CHARGE            =SIMP(statut='o',typ=char_meca,max='**' ),
3549            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
3550          ),
3551 )  ;
3552 #& MODIF COMMANDE  DATE 27/06/2001   AUTEUR CIBHHLV L.VIVAN
3553 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3554 # ======================================================================
3555 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3556 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3557 #              REDISTRIBUTION OF THIS FILE.
3558 # ======================================================================
3559 CALC_META=OPER(nom="CALC_META",op=194,sd_prod=evol_ther,docu="U4.85.01-a",reentrant='o',
3560                fr="Calcule la métallurgie a partir du résultat du calcul thermique",
3561          MODELE          =SIMP(statut='o',typ=modele ),
3562          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
3563          RESULTAT        =SIMP(statut='o',typ=evol_ther ),
3564          ETAT_INIT       =FACT(statut='o',min=01,max=01,
3565       regles=(UN_PARMI('NUME_INIT','META_INIT',),),
3566            EVOL_THER       =SIMP(statut='f',typ=evol_ther ),
3567            NUME_INIT       =SIMP(statut='f',typ='I' ),
3568            META_INIT       =SIMP(statut='f',typ=carte_var2_r ),
3569          ),
3570          COMP_INCR       =FACT(statut='o',min=01,max='**',
3571            RELATION        =SIMP(statut='o',typ='TXM',into=("ACIER","ZIRC",) ),
3572            ACIER           =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
3573            ZIRC            =SIMP(statut='c',typ='I',defaut=3,into=(3,) ),
3574       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3575            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3576            GROUP_MA        =SIMP(statut='f',typ=grma),
3577            MAILLE          =SIMP(statut='f',typ=ma),
3578          ),
3579          OPTION          =SIMP(statut='f',typ='TXM'
3580                              ,into=("META_ELNO_TEMP",) ),
3581 )  ;
3582 #& MODIF COMMANDE  DATE 04/12/2001   AUTEUR GNICOLAS G.NICOLAS
3583 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3584 # ======================================================================
3585 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3586 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3587 #              REDISTRIBUTION OF THIS FILE.
3588 # ======================================================================
3589 # RESPONSABLE G8BHHXD X.DESROCHES
3590 def calc_no_prod(RESULTAT,**args):
3591    if AsType(RESULTAT) != None : return AsType(RESULTAT)
3592    raise AsException("type de concept resultat non prevu")
3593
3594 CALC_NO=OPER(nom="CALC_NO",op= 106,sd_prod=calc_no_prod,docu="U4.81.02-e1",reentrant='o',
3595          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
3596                                                mode_acou,mode_stat,mode_stat_depl,mode_stat_acce,
3597                                               mode_stat_forc,evol_ther,evol_noli,base_modale,
3598                                                mult_elas,fourier_elas,mode_flamb ) ),
3599          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
3600                                fr="Liste des paramètres de sensibilité.",
3601                                ang="List of sensitivity parameters"),
3602
3603          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
3604                         'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),),
3605          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3606          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
3607          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
3608          NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
3609          NOM_CAS         =SIMP(statut='f',typ='TXM' ),
3610          INST            =SIMP(statut='f',typ='R',max='**'),
3611          FREQ            =SIMP(statut='f',typ='R',max='**'),
3612          LIST_INST       =SIMP(statut='f',typ=listr8),
3613          LIST_FREQ       =SIMP(statut='f',typ=listr8),
3614          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
3615          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3616          LIST_ORDRE      =SIMP(statut='f',typ=listis),
3617
3618          OPTION          =SIMP(statut='o',typ='TXM',max='**',
3619                                into=("FORC_NODA","REAC_NODA",
3620                                      "DCHA_NOEU_SIGM",
3621                                      "DEGE_NOEU_DEPL",
3622                                      "DETE_NOEU_DLTE",
3623                                      "DEDE_NOEU_DLDE",
3624                                      "DESI_NOEU_DLSI",
3625                                      "DURT_NOEU_META",
3626                                      "EFGE_NOEU_CART","EFGE_NOEU_DEPL",
3627                                      "ENDO_NOEU_SINO",
3628                                      "ENEL_NOEU_ELGA",
3629                                      "EPMG_NOEU_DEPL",
3630                                      "EPSA_NOEU",
3631                                      "EPSG_NOEU"     ,"EPSG_NOEU_DEPL",
3632                                      "EPSI_NOEU_DEPL","EPSI_NOEU_DPGE",
3633                                      "EPSP_NOEU"     ,"EPSP_NOEU_ZAC",
3634                                      "EQUI_NOEU_EPME","EQUI_NOEU_EPSI","EQUI_NOEU_SIGM",
3635                                      "ERRE_NOEU_ELGA",
3636                                      "FLUX_NOEU_TEMP",
3637                                      "GRAD_NOEU_THETA",
3638                                      "HYDR_NOEU_ELGA",
3639                                      "INTE_NOEU_ACTI","INTE_NOEU_REAC",
3640                                      "META_NOEU_TEMP",
3641                                      "PMPB_NOEU_SIEF",
3642                                      "PRES_NOEU_DBEL","PRES_NOEU_IMAG","PRES_NOEU_REEL",
3643                                      "RADI_NOEU_SIGM",
3644                                      "SIEF_NOEU"     ,"SIEF_NOEU_ELGA",
3645                                      "SIGM_NOEU_CART","SIGM_NOEU_COQU","SIGM_NOEU_DEPL","SIGM_NOEU_DPGE",
3646                                      "SIGM_NOEU_SIEF","SIGM_NOEU_VARI","SIGM_NOEU_ZAC",
3647                                      "SIPO_NOEU_DEPL","SIPO_NOEU_SIEF",
3648                                      "SIRE_NOEU_DEPL",
3649                                      "VARI_NOEU"     ,"VARI_NOEU_ELGA",) ),
3650
3651          b_forc_reac     =BLOC(condition = """(OPTION == 'FORC_NODA') or (type(OPTION) == type(()) and 'FORC_NODA' in OPTION) or\
3652  (OPTION == 'REAC_NODA') or (type(OPTION) == type(()) and 'REAC_NODA' in OPTION)""",
3653              MODELE          =SIMP(statut='o',typ=modele),
3654          ),
3655
3656          CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
3657          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
3658          EXCIT           =FACT(statut='f',min=1,max='**',
3659            CHARGE          =SIMP(statut='f',typ=(char_meca,char_ther,char_acou) ),
3660            FONC_MULT       =SIMP(statut='f',typ=fonction),
3661            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
3662                                  into=("FIXE_CSTE","FIXE_PILO","SUIV") ),
3663          ),
3664          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3665          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3666          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3667          TAILLE_BLOC     =SIMP(statut='f',typ='R' ,defaut= 400. ),
3668 )  ;
3669 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
3670 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3671 # ======================================================================
3672 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3673 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3674 #              REDISTRIBUTION OF THIS FILE.
3675 # ======================================================================
3676 CALC_THETA=OPER(nom="CALC_THETA",op=54,sd_prod=theta_geom,docu="U4.82.02-d",reentrant='n',
3677                 fr="Affectation d un champ sur le maillage (mécanique de la rupture)",
3678          regles=(UN_PARMI('THETA_2D','THETA_3D','THETA_BANDE'),
3679                  PRESENT_PRESENT('THETA_3D','FOND_3D'),
3680                  PRESENT_ABSENT('THETA_2D','DIRE_THETA'),
3681                  EXCLUS('DIRECTION','DIRE_THETA'),),
3682          OPTION          =SIMP(statut='f',typ='TXM',defaut="COURONNE",into=("COURONNE","BANDE") ),
3683          MODELE          =SIMP(statut='o',typ=(modele) ),
3684          FOND_3D         =SIMP(statut='f',typ=(fond_fiss) ),
3685          THETA_3D        =FACT(statut='f',min=01,max='**',
3686            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
3687                    UN_PARMI('MODULE','MODULE_FO'),
3688                    ENSEMBLE('MODULE','R_INF','R_SUP'),
3689                    ENSEMBLE('MODULE_FO','R_INF_FO','R_SUP_FO'),),
3690            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3691            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
3692            NOEUD           =SIMP(statut='f',typ=no,max='**'),
3693            MODULE          =SIMP(statut='f',typ='R'),
3694            R_INF           =SIMP(statut='f',typ='R'),
3695            R_SUP           =SIMP(statut='f',typ='R'),
3696            MODULE_FO       =SIMP(statut='f',typ=fonction),
3697            R_INF_FO        =SIMP(statut='f',typ=fonction),
3698            R_SUP_FO        =SIMP(statut='f',typ=fonction),
3699                          ),
3700          DIRE_THETA      =SIMP(statut='f',typ=(cham_no_depl_r) ),
3701          DIRECTION       =SIMP(statut='f',typ='R',max='**'),
3702          THETA_2D        =FACT(statut='f',min=01,max='**',
3703            regles=(UN_PARMI('GROUP_NO','NOEUD'),),
3704            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
3705            NOEUD           =SIMP(statut='f',typ=no,max='**'),
3706            MODULE          =SIMP(statut='o',typ='R'),
3707            R_INF           =SIMP(statut='o',typ='R'),
3708            R_SUP           =SIMP(statut='o',typ='R'),
3709          ),
3710          THETA_BANDE     =FACT(statut='f',min=01,max='**',
3711            MODULE          =SIMP(statut='o',typ='R'),
3712            R_INF           =SIMP(statut='o',typ='R'),
3713            R_SUP           =SIMP(statut='o',typ='R'),
3714          ),
3715          GRAD_NOEU_THETA =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3716          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
3717          IMPRESSION      =FACT(statut='f',min=01,max=01,
3718            FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
3719            FORMAT          =SIMP(statut='f',typ='TXM',defaut="EXCEL",into=("EXCEL","AGRAF") ),
3720          ),
3721 )  ;
3722 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
3723 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3724 # ======================================================================
3725 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3726 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3727 #              REDISTRIBUTION OF THIS FILE.
3728 # ======================================================================
3729 # RESPONSABLE VABHHTS J.PELLET
3730 def calc_vect_elem_prod(OPTION,**args):
3731   if OPTION == "CHAR_MECA" :      return vect_elem_depl_r
3732   if OPTION == "CHAR_MECA_LAGR" : return vect_elem_depl_r
3733   if OPTION == "CHAR_THER" :      return vect_elem_temp_r
3734   if OPTION == "CHAR_ACOU" :      return vect_elem_pres_c
3735   if OPTION == "FORC_NODA" :      return vect_elem_depl_r
3736   raise AsException("type de concept resultat non prevu")
3737
3738 CALC_VECT_ELEM=OPER(nom="CALC_VECT_ELEM",op=8,sd_prod=calc_vect_elem_prod,docu="U4.61.02-f",reentrant='n',
3739                     fr="Calcul des seconds membres élémentaires",
3740          OPTION          =SIMP(statut='o',typ='TXM',into=("CHAR_MECA","CHAR_THER","CHAR_ACOU",
3741                                                            "FORC_NODA","CHAR_MECA_LAGR") ),
3742          b_char_meca     =BLOC(condition = "OPTION=='CHAR_MECA'",
3743            regles=(AU_MOINS_UN('CHARGE','MODELE'),),
3744            CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
3745            MODELE          =SIMP(statut='f',typ=modele),
3746            b_charge     =BLOC(condition = "CHARGE != None", fr="modèle ne contenant pas de sous-structure",
3747               CHAM_MATER   =SIMP(statut='f',typ=cham_mater),
3748               CARA_ELEM    =SIMP(statut='f',typ=cara_elem),
3749               INST         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3750               MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
3751            ),
3752            b_modele     =BLOC(condition = "(MODELE != None)",fr="modèle contenant une sous-structure",
3753               SOUS_STRUC      =FACT(statut='o',min=01,
3754                 regles=(UN_PARMI('TOUT','MAILLE'),),
3755                 CAS_CHARGE  =SIMP(statut='o',typ='TXM' ),
3756                 TOUT        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3757                 MAILLE      =SIMP(statut='f',typ=ma,max='**',),
3758               ),
3759            ),
3760          ),
3761          b_char_ther     =BLOC(condition = "OPTION=='CHAR_THER'",
3762            CARA_ELEM        =SIMP(statut='f',typ=cara_elem),
3763            CHARGE           =SIMP(statut='o',typ=char_ther,max='**'),
3764            INST             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3765          ),
3766
3767          b_char_acou     =BLOC(condition = "OPTION=='CHAR_ACOU'",
3768            CHAM_MATER        =SIMP(statut='o',typ=cham_mater),
3769            CHARGE            =SIMP(statut='o',typ=char_acou,max='**'),
3770          ),
3771
3772          b_forc_noda     =BLOC(condition = "OPTION=='FORC_NODA'",
3773            SIEF_ELGA         =SIMP(statut='o',typ=cham_elem_sief_r),
3774            CARA_ELEM         =SIMP(statut='f',typ=cara_elem),
3775            MODELE            =SIMP(statut='f',typ=modele),
3776          ),
3777
3778          b_meca_lagr     =BLOC(condition = "OPTION=='CHAR_MECA_LAGR'",
3779            CHAM_MATER        =SIMP(statut='o',typ=cham_mater),
3780            THETA             =SIMP(statut='o',typ=theta_geom),
3781            PROPAGATION       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3782            CHARGE            =SIMP(statut='f',typ=char_meca,max='**'),
3783            INST              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3784          ),
3785 ) ;
3786 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
3787 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3788 # ======================================================================
3789 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3790 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3791 #              REDISTRIBUTION OF THIS FILE.
3792 # ======================================================================
3793 # RESPONSABLE G8BHHXD X.DESROCHES
3794 def comb_cham_elem_prod(COMB_R=None,COMB_C=None,COMB_FOURIER=None,**args):
3795
3796   if COMB_R != None:
3797     vale=COMB_R.get_child('CHAM_ELEM').get_valeur()
3798   elif COMB_C != None:
3799     vale=COMB_C.get_child('CHAM_ELEM').get_valeur()
3800   elif COMB_FOURIER != None:
3801     vale=COMB_FOURIER.get_child('CHAM_ELEM').get_valeur()
3802   else :
3803     raise AsException("type de concept resultat non prevu")
3804
3805   if AsType(vale) == cham_elem_sief_r : return cham_elem_sief_r
3806   if AsType(vale) == cham_elem_flux_r : return cham_elem_flux_r
3807   if AsType(vale) == cham_elem_epsi_r : return cham_elem_epsi_r
3808   if AsType(vale) == cham_elem_ener_r : return cham_elem_ener_r
3809   if AsType(vale) == cham_elem_crit_r : return cham_elem_crit_r
3810   if AsType(vale) == cham_elem_dbel_r : return cham_elem_dbel_r
3811   if AsType(vale) == cham_elem_pres_r : return cham_elem_pres_r
3812   if AsType(vale) == cham_elem_sief_c : return cham_elem_sief_c
3813   raise AsException("type de concept resultat non prevu")
3814
3815 COMB_CHAM_ELEM=OPER(nom="COMB_CHAM_ELEM",op= 139,sd_prod=comb_cham_elem_prod,reentrant='f',
3816                     fr="Combinaison linéaire de champs par éléments",docu="U4.72.03-e",
3817       regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),
3818               PRESENT_PRESENT('COMB_FOURIER','ANGL'),),
3819       COMB_R          =FACT(statut='f',min=01,max='**',
3820         PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
3821         COEF_R          =SIMP(statut='o',typ='R'),
3822         CHAM_ELEM       =SIMP(statut='o',
3823                               typ=(cham_elem_sief_r,cham_elem_flux_r,cham_elem_epsi_r,
3824                                    cham_elem_ener_r,cham_elem_crit_r,cham_elem_dbel_r,
3825                                    cham_elem_pres_r,cham_elem_sief_c ) ),
3826       ),
3827       COMB_C          =FACT(statut='f',min=01,max='**',
3828         regles=(UN_PARMI('COEF_R','COEF_C', ),),
3829         COEF_R          =SIMP(statut='f',typ='R'),
3830         COEF_C          =SIMP(statut='f',typ='C'),
3831         CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r) ),
3832       ),
3833       COMB_FOURIER    =FACT(statut='f',min=01,max='**',
3834         COEF_R          =SIMP(statut='f',typ='R',defaut= 1.),
3835         NUME_MODE       =SIMP(statut='o',typ='I'),
3836         TYPE_MODE       =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
3837         CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,cham_elem_flux_r,cham_elem_epsi_r ) ),
3838       ),
3839       ANGL            =SIMP(statut='f',typ='R' ),
3840 )  ;
3841
3842 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
3843 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3844 # ======================================================================
3845 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3846 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3847 #              REDISTRIBUTION OF THIS FILE.
3848 # ======================================================================
3849 # RESPONSABLE G8BHHXD X.DESROCHES
3850 def comb_cham_no_prod(COMB_R,COMB_C,COMB_FOURIER,**args):
3851   if COMB_C != None:
3852     type_mat = AsType(COMB_C.get_child('CHAM_NO').get_valeur())
3853     if type_mat in  (cham_no_depl_c,cham_no_depl_r) : return cham_no_depl_c
3854     if type_mat in  (cham_no_temp_c,cham_no_temp_r) : return cham_no_temp_c
3855     if type_mat in  (cham_no_pres_c,cham_no_pres_r) : return cham_no_pres_c
3856   elif COMB_R != None:
3857     type_mat = AsType(COMB_R.get_child('CHAM_NO').get_valeur())
3858     if type_mat in  (cham_no_depl_c,cham_no_depl_r) : return cham_no_depl_r
3859     if type_mat in  (cham_no_temp_c,cham_no_temp_r) : return cham_no_temp_r
3860     if type_mat in  (cham_no_pres_c,cham_no_pres_r) : return cham_no_pres_r
3861     if type_mat ==  matr_asse_gene_r : return matr_asse_gene_r
3862   elif COMB_FOURIER != None:
3863     type_mat = AsType(COMB_FOURIER.get_child('CHAM_NO').get_valeur())
3864     if type_mat == cham_no_temp_r : return cham_no_temp_r
3865     if type_mat == cham_no_depl_r : return cham_no_depl_r
3866   raise AsException("type de concept resultat non prevu")
3867
3868
3869 COMB_CHAM_NO=OPER(nom="COMB_CHAM_NO",op=  30,sd_prod=comb_cham_no_prod
3870                     ,fr="Combinaison linéaire de champs aux noeuds",
3871                      docu="U4.72.02-f",reentrant='f',
3872          regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),),
3873          COMB_R          =FACT(statut='f',min=01,max='**',
3874            PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG",) ),
3875            CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_temp_c,cham_no_depl_r,cham_no_depl_c
3876                                                 ,cham_no_pres_r,cham_no_pres_c ) ),
3877            COEF_R          =SIMP(statut='o',typ='R' ),
3878          ),
3879          COMB_C          =FACT(statut='f',min=01,max='**',
3880            regles=(UN_PARMI('COEF_R','COEF_C' ),),
3881            CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r,cham_no_temp_c
3882                                                 ,cham_no_depl_c,cham_no_pres_c ) ),
3883            COEF_R          =SIMP(statut='f',typ='R' ),
3884            COEF_C          =SIMP(statut='f',typ='C' ),
3885          ),
3886          COMB_FOURIER    =FACT(statut='f',min=01,max='**',
3887            CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r) ),
3888            COEF_R          =SIMP(statut='f',typ='R',defaut= 1. ),
3889            NUME_MODE       =SIMP(statut='o',typ='I' ),
3890            TYPE_MODE       =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
3891          ),
3892          b_angl = BLOC ( condition = "COMB_FOURIER != None",
3893            ANGL            =SIMP(statut='o',typ='R' ),
3894          ),
3895 )  ;
3896 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
3897 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3898 # ======================================================================
3899 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3900 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3901 #              REDISTRIBUTION OF THIS FILE.
3902 # ======================================================================
3903 # RESPONSABLE G8BHHXD X.DESROCHES
3904 COMB_FOURIER=OPER(nom="COMB_FOURIER",op= 161,sd_prod=comb_fourier,
3905                   docu="U4.83.31-c",reentrant='n',
3906          RESULTAT        =SIMP(statut='o',typ=fourier_elas ),
3907          ANGL            =SIMP(statut='o',typ='R',max='**'),
3908          NOM_CHAM        =SIMP(statut='o',typ='TXM',max=05,
3909                                into=("DEPL","REAC_NODA","SIEF_ELGA_DEPL","EPSI_ELNO_DEPL","SIGM_ELNO_DEPL") ),
3910 )  ;
3911 #& MODIF COMMANDE  DATE 10/07/2001   AUTEUR ACBHHCD G.DEVESA
3912 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3913 # ======================================================================
3914 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3915 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3916 #              REDISTRIBUTION OF THIS FILE.
3917 # ======================================================================
3918 # RESPONSABLE VABHHTS J.PELLET
3919 def comb_matr_asse_prod(COMB_R,COMB_C,**args):
3920   if COMB_C != None:
3921     type_mat = AsType(COMB_C.get_child('MATR_ASSE').get_valeur())
3922     if type_mat in  (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_c
3923     if type_mat in  (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_c
3924     if type_mat in  (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_c
3925     if type_mat in  (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_c
3926   elif COMB_R != None:
3927     type_mat = AsType(COMB_R.get_child('MATR_ASSE').get_valeur())
3928     if type_mat in  (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_r
3929     if type_mat in  (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_r
3930     if type_mat in  (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_r
3931     if type_mat in  (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_r
3932   raise AsException("type de concept resultat non prevu")
3933
3934 COMB_MATR_ASSE=OPER(nom="COMB_MATR_ASSE",op=  31,sd_prod=comb_matr_asse_prod,
3935                     fr="Combinaison linéaire de matrices assemblées",
3936                     docu="U4.72.01-f",reentrant='f',
3937          regles=(UN_PARMI('COMB_R','COMB_C' ),),
3938          COMB_R          =FACT(statut='f',min=01,max='**',
3939            PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
3940            MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_temp_c
3941                                                 ,matr_asse_pres_r,matr_asse_pres_c,matr_asse_gene_r,matr_asse_gene_c ) ),
3942            COEF_R          =SIMP(statut='o',typ='R' ),
3943          ),
3944          COMB_C          =FACT(statut='f',min=01,max='**',
3945            regles=(UN_PARMI('COEF_R','COEF_C' ),),
3946            MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_temp_c
3947                                                 ,matr_asse_pres_r,matr_asse_pres_c,matr_asse_gene_r,matr_asse_gene_c ) ),
3948            COEF_R          =SIMP(statut='f',typ='R' ),
3949            COEF_C          =SIMP(statut='f',typ='C' ),
3950          ),
3951          SANS_CMP        =SIMP(statut='f',typ='TXM',into=("LAGR",) ),
3952 )  ;
3953 #& MODIF COMMANDE  DATE 28/03/2001   AUTEUR CIBHHLV L.VIVAN
3954 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3955 # ======================================================================
3956 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3957 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3958 #              REDISTRIBUTION OF THIS FILE.
3959 # ======================================================================
3960 COMB_SISM_MODAL=OPER(nom="COMB_SISM_MODAL",op= 109,sd_prod=mode_stat,
3961                      fr="Réponse sismique par recombinaison modale par une méthode spectrale",
3962                      docu="U4.84.01-d",reentrant='n',
3963          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ','LIST_ORDRE'),
3964                  UN_PARMI('AMOR_REDUIT','LIST_AMOR','AMOR_GENE' ),),
3965          MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
3966          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3967          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
3968          LIST_ORDRE      =SIMP(statut='f',typ=listis ),
3969          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
3970          FREQ            =SIMP(statut='f',typ='R',max='**'),
3971          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
3972          b_freq          =BLOC(condition = "FREQ != None or LIST_FREQ != None",
3973            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
3974            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3975          ),
3976          MODE_CORR       =SIMP(statut='f',typ=mode_stat_acce ),
3977
3978          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
3979          LIST_AMOR       =SIMP(statut='f',typ=listr8 ),
3980          AMOR_GENE       =SIMP(statut='f',typ=matr_asse_gene_r ),
3981
3982          MASS_INER       =SIMP(statut='f',typ=tabl_mass_iner ),
3983          CORR_FREQ       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3984
3985          EXCIT           =FACT(statut='o',min=01,max='**',
3986            regles=(UN_PARMI('MONO_APPUI','NOEUD','GROUP_NO'),
3987                    UN_PARMI('AXE','TRI_AXE','TRI_SPEC' ),),
3988
3989            MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3990            NOEUD           =SIMP(statut='f',typ=no,max='**'),
3991            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
3992            AXE             =SIMP(statut='f',fr="Excitation suivant un seul axe",
3993                                  typ='R',max=03),
3994            TRI_AXE         =SIMP(statut='f',fr="Excitation suivant les trois axes mais avec le meme spectre",
3995                                  typ='R',max=03),
3996            TRI_SPEC        =SIMP(statut='f',fr="Excitation suivant les trois axes  avec trois spectres",
3997                                  typ='TXM',into=("OUI",) ),
3998            b_axe           =BLOC(condition = "AXE != None",fr="Excitation suivant un seul axe",
3999              SPEC_OSCI       =SIMP(statut='o',typ=fonction,max=01 ),
4000              ECHELLE         =SIMP(statut='f',typ='R',max=01),
4001            ),
4002            b_tri_axe       =BLOC(condition = "TRI_AXE != None",fr="Excitation suivant les trois axes mais avec le meme spectre",
4003              SPEC_OSCI       =SIMP(statut='o',typ=fonction,max=01 ),
4004              ECHELLE         =SIMP(statut='f',typ='R',max=01),
4005            ),
4006            b_tri_spec      =BLOC(condition = "TRI_SPEC != None",fr="Excitation suivant les trois axes  avec trois spectres",
4007              SPEC_OSCI       =SIMP(statut='o',typ=fonction,min=03,max=03 ),
4008              ECHELLE         =SIMP(statut='f',typ='R',min=03,max=03),
4009            ),
4010            NATURE          =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("ACCE","VITE","DEPL") ),
4011          ),
4012          COMB_MODE       =FACT(statut='o',min=01,max=01,
4013            TYPE            =SIMP(statut='o',typ='TXM',into=("SRSS","CQC","DSC","ABS","DPC") ),
4014            DUREE           =SIMP(statut='f',typ='R' ),
4015          ),
4016          COMB_DIRECTION  =FACT(statut='f',min=01,max=01,
4017            TYPE            =SIMP(statut='f',typ='TXM',into=("QUAD","NEWMARK") ),
4018          ),
4019          COMB_MULT_APPUI =FACT(statut='f',min=01,max='**',
4020            regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO' ),),
4021            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4022            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4023            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4024            TYPE            =SIMP(statut='o',typ='TXM',into=("QUAD","LINE","ABS") ),
4025          ),
4026          DEPL_MULT_APPUI =FACT(statut='f',min=01,max='**',
4027            regles=(UN_PARMI('NOEUD','GROUP_NO'),
4028                    AU_MOINS_UN('DX','DY','DZ' ),),
4029            MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,), ),
4030            NOEUD_REFE      =SIMP(statut='f',typ=no),
4031            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4032            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4033            DX              =SIMP(statut='f',typ='R' ),
4034            DY              =SIMP(statut='f',typ='R' ),
4035            DZ              =SIMP(statut='f',typ='R' ),
4036          ),
4037          OPTION          =SIMP(statut='o',typ='TXM',max=9,
4038                                into=("DEPL","VITE","ACCE_ABSOLU","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
4039                                      "EFGE_ELNO_DEPL","REAC_NODA","FORC_NODA","EFGE_ELNO_CART",
4040                                      "SIPO_ELNO_DEPL") ),
4041          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
4042          IMPRESSION      =FACT(statut='f',min=01,max='**',
4043            regles=(EXCLUS('TOUT','NIVEAU'),),
4044            TOUT            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4045            NIVEAU          =SIMP(statut='f',typ='TXM',into=("SPEC_OSCI","MASS_EFFE","MAXI_GENE"),max=03 ),
4046          ),
4047          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
4048 )  ;
4049 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
4050 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4051 # ======================================================================
4052 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4053 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
4054 #              REDISTRIBUTION OF THIS FILE.
4055 # ======================================================================
4056 def crea_champ_prod(TYPE_CHAM,**args):
4057   if TYPE_CHAM == "CART_DBEL_R" : return carte_dbel_r
4058   if TYPE_CHAM == "CART_DEPL_C" : return carte_depl_c
4059   if TYPE_CHAM == "CART_DEPL_F" : return carte_depl_f
4060   if TYPE_CHAM == "CART_DEPL_R" : return carte_depl_r
4061   if TYPE_CHAM == "CART_DURT_R" : return carte_durt_r
4062   if TYPE_CHAM == "CART_ENER_R" : return carte_ener_r
4063   if TYPE_CHAM == "CART_EPSI_R" : return carte_epsi_r
4064   if TYPE_CHAM == "CART_ERREUR" : return carte_erreur
4065   if TYPE_CHAM == "CART_FLUX_R" : return carte_flux_r
4066   if TYPE_CHAM == "CART_GEOM_R" : return carte_geom_r
4067   if TYPE_CHAM == "CART_G_DEPL_R" : return carte_g_depl_r
4068   if TYPE_CHAM == "CART_HYDR_R" : return carte_hydr_r
4069   if TYPE_CHAM == "CART_INST_R" : return carte_inst_r
4070   if TYPE_CHAM == "CART_INTE_R" : return carte_inte_r
4071   if TYPE_CHAM == "CART_META_R" : return carte_meta_r
4072   if TYPE_CHAM == "CART_NEUT_F" : return carte_neut_f
4073   if TYPE_CHAM == "CART_NEUT_R" : return carte_neut_r
4074   if TYPE_CHAM == "CART_PRES_R" : return carte_pres_r
4075   if TYPE_CHAM == "CART_SIEF_R" : return carte_sief_r
4076   if TYPE_CHAM == "CART_SOUR_R" : return carte_sour_r
4077   if TYPE_CHAM == "CART_TEMP_F" : return carte_temp_f
4078   if TYPE_CHAM == "CART_TEMP_R" : return carte_temp_r
4079   if TYPE_CHAM == "CART_VAR2_R" : return carte_var2_r
4080   if TYPE_CHAM == "CART_VNOR_C" : return carte_vnor_c
4081   if TYPE_CHAM == "NOEU_DBEL_R" : return cham_no_dbel_r
4082   if TYPE_CHAM == "NOEU_DEPL_C" : return cham_no_depl_c
4083   if TYPE_CHAM == "NOEU_DEPL_F" : return cham_no_depl_f
4084   if TYPE_CHAM == "NOEU_DEPL_R" : return cham_no_depl_r
4085   if TYPE_CHAM == "NOEU_DURT_R" : return cham_no_durt_r
4086   if TYPE_CHAM == "NOEU_ENER_R" : return cham_no_ener_r
4087   if TYPE_CHAM == "NOEU_EPSI_R" : return cham_no_epsi_r
4088   if TYPE_CHAM == "NOEU_ERREUR" : return cham_no_erreur
4089   if TYPE_CHAM == "NOEU_FLUX_R" : return cham_no_flux_r
4090   if TYPE_CHAM == "NOEU_GEOM_R" : return cham_no_geom_r
4091   if TYPE_CHAM == "NOEU_G_DEPL_R" : return cham_no_g_depl_r
4092   if TYPE_CHAM == "NOEU_HYDR_R" : return cham_no_hydr_r
4093   if TYPE_CHAM == "NOEU_INST_R" : return cham_no_inst_r
4094   if TYPE_CHAM == "NOEU_INTE_R" : return cham_no_inte_r
4095   if TYPE_CHAM == "NOEU_META_R" : return cham_no_meta_r
4096   if TYPE_CHAM == "NOEU_NEUT_F" : return cham_no_neut_f
4097   if TYPE_CHAM == "NOEU_NEUT_R" : return cham_no_neut_r
4098   if TYPE_CHAM == "NOEU_PRES_R" : return cham_no_pres_r
4099   if TYPE_CHAM == "NOEU_SIEF_R" : return cham_no_sief_r
4100   if TYPE_CHAM == "NOEU_SOUR_R" : return cham_no_sour_r
4101   if TYPE_CHAM == "NOEU_TEMP_F" : return cham_no_temp_f
4102   if TYPE_CHAM == "NOEU_TEMP_R" : return cham_no_temp_r
4103   if TYPE_CHAM == "NOEU_VAR2_R" : return cham_no_var2_r
4104   if TYPE_CHAM == "NOEU_VNOR_C" : return cham_no_vnor_c
4105   if TYPE_CHAM == "ELEM_DBEL_R" : return cham_elem_dbel_r
4106   if TYPE_CHAM == "ELEM_DEPL_C" : return cham_elem_depl_c
4107   if TYPE_CHAM == "ELEM_DEPL_F" : return cham_elem_depl_f
4108   if TYPE_CHAM == "ELEM_DEPL_R" : return cham_elem_depl_r
4109   if TYPE_CHAM == "ELEM_DURT_R" : return cham_elem_durt_r
4110   if TYPE_CHAM == "ELEM_ENER_R" : return cham_elem_ener_r
4111   if TYPE_CHAM == "ELEM_EPSI_R" : return cham_elem_epsi_r
4112   if TYPE_CHAM == "ELEM_ERREUR" : return cham_elem_erreur
4113   if TYPE_CHAM == "ELEM_FLUX_R" : return cham_elem_flux_r
4114   if TYPE_CHAM == "ELEM_GEOM_R" : return cham_elem_geom_r
4115   if TYPE_CHAM == "ELEM_G_DEPL_R" : return cham_elem_g_depl
4116   if TYPE_CHAM == "ELEM_HYDR_R" : return cham_elem_hydr_r
4117   if TYPE_CHAM == "ELEM_INST_R" : return cham_elem_inst_r
4118   if TYPE_CHAM == "ELEM_INTE_R" : return cham_elem_inte_r
4119   if TYPE_CHAM == "ELEM_META_R" : return cham_elem_meta_r
4120   if TYPE_CHAM == "ELEM_NEUT_F" : return cham_elem_neut_f
4121   if TYPE_CHAM == "ELEM_NEUT_R" : return cham_elem_neut_r
4122   if TYPE_CHAM == "ELEM_PRES_R" : return cham_elem_pres_r
4123   if TYPE_CHAM == "ELEM_SIEF_R" : return cham_elem_sief_r
4124   if TYPE_CHAM == "ELEM_SOUR_R" : return cham_elem_sour_r
4125   if TYPE_CHAM == "ELEM_TEMP_F" : return cham_elem_temp_f
4126   if TYPE_CHAM == "ELEM_TEMP_R" : return cham_elem_temp_r
4127   if TYPE_CHAM == "ELEM_VARI_R" : return cham_elem_vari_r
4128   if TYPE_CHAM == "ELEM_VNOR_C" : return cham_elem_vnor_c
4129   if TYPE_CHAM == "ELNO_DBEL_R" : return cham_elem_dbel_r
4130   if TYPE_CHAM == "ELNO_DEPL_C" : return cham_elem_depl_c
4131   if TYPE_CHAM == "ELNO_DEPL_F" : return cham_elem_depl_f
4132   if TYPE_CHAM == "ELNO_DEPL_R" : return cham_elem_depl_r
4133   if TYPE_CHAM == "ELNO_DURT_R" : return cham_elem_durt_r
4134   if TYPE_CHAM == "ELNO_ENER_R" : return cham_elem_ener_r
4135   if TYPE_CHAM == "ELNO_EPSI_R" : return cham_elem_epsi_r
4136   if TYPE_CHAM == "ELNO_ERREUR" : return cham_elem_erreur
4137   if TYPE_CHAM == "ELNO_FLUX_R" : return cham_elem_flux_r
4138   if TYPE_CHAM == "ELNO_GEOM_R" : return cham_elem_geom_r
4139   if TYPE_CHAM == "ELNO_G_DEPL_R" : return cham_elem_g_depl
4140   if TYPE_CHAM == "ELNO_HYDR_R" : return cham_elem_hydr_r
4141   if TYPE_CHAM == "ELNO_INST_R" : return cham_elem_inst_r
4142   if TYPE_CHAM == "ELNO_INTE_R" : return cham_elem_inte_r
4143   if TYPE_CHAM == "ELNO_META_R" : return cham_elem_meta_r
4144   if TYPE_CHAM == "ELNO_NEUT_F" : return cham_elem_neut_f
4145   if TYPE_CHAM == "ELNO_NEUT_R" : return cham_elem_neut_r
4146   if TYPE_CHAM == "ELNO_PRES_R" : return cham_elem_pres_r
4147   if TYPE_CHAM == "ELNO_SIEF_R" : return cham_elem_sief_r
4148   if TYPE_CHAM == "ELNO_SOUR_R" : return cham_elem_sour_r
4149   if TYPE_CHAM == "ELNO_TEMP_F" : return cham_elem_temp_f
4150   if TYPE_CHAM == "ELNO_TEMP_R" : return cham_elem_temp_r
4151   if TYPE_CHAM == "ELNO_VARI_R" : return cham_elem_vari_r
4152   if TYPE_CHAM == "ELNO_VNOR_C" : return cham_elem_vnor_c
4153   if TYPE_CHAM == "ELGA_DBEL_R" : return cham_elem_dbel_r
4154   if TYPE_CHAM == "ELGA_DEPL_C" : return cham_elem_depl_c
4155   if TYPE_CHAM == "ELGA_DEPL_F" : return cham_elem_depl_f
4156   if TYPE_CHAM == "ELGA_DEPL_R" : return cham_elem_depl_r
4157   if TYPE_CHAM == "ELGA_DURT_R" : return cham_elem_durt_r
4158   if TYPE_CHAM == "ELGA_ENER_R" : return cham_elem_ener_r
4159   if TYPE_CHAM == "ELGA_EPSI_R" : return cham_elem_epsi_r
4160   if TYPE_CHAM == "ELGA_ERREUR" : return cham_elem_erreur
4161   if TYPE_CHAM == "ELGA_FLUX_R" : return cham_elem_flux_r
4162   if TYPE_CHAM == "ELGA_GEOM_R" : return cham_elem_geom_r
4163   if TYPE_CHAM == "ELGA_G_DEPL_R" : return cham_elem_g_depl
4164   if TYPE_CHAM == "ELGA_HYDR_R" : return cham_elem_hydr_r
4165   if TYPE_CHAM == "ELGA_INST_R" : return cham_elem_inst_r
4166   if TYPE_CHAM == "ELGA_INTE_R" : return cham_elem_inte_r
4167   if TYPE_CHAM == "ELGA_META_R" : return cham_elem_meta_r
4168   if TYPE_CHAM == "ELGA_NEUT_F" : return cham_elem_neut_f
4169   if TYPE_CHAM == "ELGA_NEUT_R" : return cham_elem_neut_r
4170   if TYPE_CHAM == "ELGA_PRES_R" : return cham_elem_pres_r
4171   if TYPE_CHAM == "ELGA_SIEF_R" : return cham_elem_sief_r
4172   if TYPE_CHAM == "ELGA_SOUR_R" : return cham_elem_sour_r
4173   if TYPE_CHAM == "ELGA_TEMP_F" : return cham_elem_temp_f
4174   if TYPE_CHAM == "ELGA_TEMP_R" : return cham_elem_temp_r
4175   if TYPE_CHAM == "ELGA_VARI_R" : return cham_elem_vari_r
4176   if TYPE_CHAM == "ELGA_VNOR_C" : return cham_elem_vnor_c
4177   if TYPE_CHAM == "CART_IRRA_R" : return carte_irra_r
4178   if TYPE_CHAM == "NOEU_IRRA_R" : return cham_no_irra_r
4179   if TYPE_CHAM == "ELEM_IRRA_R" : return cham_elem_irra_r
4180   if TYPE_CHAM == "ELNO_IRRA_R" : return cham_elem_irra_r
4181   if TYPE_CHAM == "ELGA_IRRA_R" : return cham_elem_irra_r
4182   raise AsException("type de concept resultat non prevu")
4183
4184 CREA_CHAMP=OPER(nom="CREA_CHAMP",op= 195,sd_prod=crea_champ_prod,
4185                 fr="  ",docu="U4.72.04-a1",reentrant='n',
4186          TYPE_CHAM       =SIMP(statut='o',typ='TXM',
4187                         into=("CART_DBEL_R","NOEU_DBEL_R","ELEM_DBEL_R",
4188                              "ELNO_DBEL_R","ELGA_DBEL_R","CART_DEPL_C",
4189                              "NOEU_DEPL_C","ELEM_DEPL_C","ELNO_DEPL_C",
4190                              "ELGA_DEPL_C","CART_DEPL_F","NOEU_DEPL_F",
4191                              "ELEM_DEPL_F","ELNO_DEPL_F","ELGA_DEPL_F",
4192                              "CART_DEPL_R","NOEU_DEPL_R","ELEM_DEPL_R",
4193                              "ELNO_DEPL_R","ELGA_DEPL_R","CART_DURT_R",
4194                              "NOEU_DURT_R","ELEM_DURT_R","ELNO_DURT_R",
4195                              "ELGA_DURT_R","CART_ENER_R","NOEU_ENER_R",
4196                              "ELEM_ENER_R","ELNO_ENER_R","ELGA_ENER_R",
4197                              "CART_EPSI_R","NOEU_EPSI_R","ELEM_EPSI_R",
4198                              "ELNO_EPSI_R","ELGA_EPSI_R","CART_ERREUR",
4199                              "NOEU_ERREUR","ELEM_ERREUR","ELNO_ERREUR",
4200                              "ELGA_ERREUR","CART_FLUX_R","NOEU_FLUX_R",
4201                              "ELEM_FLUX_R","ELNO_FLUX_R","ELGA_FLUX_R",
4202                              "CART_GEOM_R","NOEU_GEOM_R","ELEM_GEOM_R",
4203                              "ELNO_GEOM_R","ELGA_GEOM_R","CART_G_DEPL_R",
4204                              "NOEU_G_DEPL_R","ELEM_G_DEPL_R","ELNO_G_DEPL_R",
4205                              "ELGA_G_DEPL_R","CART_HYDR_R","NOEU_HYDR_R",
4206                              "ELEM_HYDR_R","ELNO_HYDR_R","ELGA_HYDR_R",
4207                              "CART_INST_R","NOEU_INST_R","ELEM_INST_R",
4208                              "ELNO_INST_R","ELGA_INST_R","CART_INTE_R",
4209                              "NOEU_INTE_R","ELEM_INTE_R","ELNO_INTE_R",
4210                              "ELGA_INTE_R","CART_META_R","NOEU_META_R",
4211                              "ELEM_META_R","ELNO_META_R","ELGA_META_R",
4212                              "CART_NEUT_F","NOEU_NEUT_F","ELEM_NEUT_F",
4213                              "ELNO_NEUT_F","ELGA_NEUT_F","CART_NEUT_R",
4214                              "NOEU_NEUT_R","ELEM_NEUT_R","ELNO_NEUT_R",
4215                              "ELGA_NEUT_R","CART_PRES_R","NOEU_PRES_R",
4216                              "ELEM_PRES_R","ELNO_PRES_R","ELGA_PRES_R",
4217                              "CART_SIEF_R","NOEU_SIEF_R","ELEM_SIEF_R",
4218                              "ELNO_SIEF_R","ELGA_SIEF_R","CART_SOUR_R",
4219                              "NOEU_SOUR_R","ELEM_SOUR_R","ELNO_SOUR_R",
4220                              "ELGA_SOUR_R","CART_TEMP_F","NOEU_TEMP_F",
4221                              "ELEM_TEMP_F","ELNO_TEMP_F","ELGA_TEMP_F",
4222                              "CART_TEMP_R","NOEU_TEMP_R","ELEM_TEMP_R",
4223                              "ELNO_TEMP_R","ELGA_TEMP_R","CART_VAR2_R",
4224                              "NOEU_VAR2_R","ELEM_VARI_R","ELNO_VARI_R",
4225                              "ELGA_VARI_R","CART_VNOR_C","NOEU_VNOR_C",
4226                              "ELEM_VNOR_C","ELNO_VNOR_C","ELGA_VNOR_C",
4227                              "CART_IRRA_R","NOEU_IRRA_R","ELEM_IRRA_R",
4228                              "ELNO_IRRA_R","ELGA_IRRA_R",) ),
4229
4230 #        SI CREATION D'UN CHAM_NO, POUR IMPOSER LA NUMEROTATION DES DDLS :
4231 #        ------------------------------------------------------------------
4232          regles=(EXCLUS('NUME_DDL','CHAM_NO',)),
4233          NUME_DDL        =SIMP(statut='f',typ=(nume_ddl) ),
4234          CHAM_NO         =SIMP(statut='f',typ=(cham_no) ),
4235
4236          OPERATION       =SIMP(statut='o',typ='TXM',into=("AFFE","ASSE","EVAL","EXTR","DISC",) ),
4237
4238          b_affe          =BLOC(condition = "OPERATION == 'AFFE'",
4239              regles=(UN_PARMI('MAILLAGE','MODELE'),EXCLUS('MAILLAGE','PROL_ZERO'),),
4240              MAILLAGE        =SIMP(statut='f',typ=(maillage) ),
4241              MODELE          =SIMP(statut='f',typ=(modele) ),
4242              PROL_ZERO       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
4243              AFFE            =FACT(statut='o',min=01,max='**',
4244                 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
4245                         UN_PARMI('VALE','VALE_I','VALE_C','VALE_F', ),),
4246                 TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4247                 GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4248                 MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4249                 GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4250                 NOEUD           =SIMP(statut='f',typ=no,max='**'),
4251                 NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
4252                 VALE            =SIMP(statut='f',typ='R',max='**' ),
4253                 VALE_I          =SIMP(statut='f',typ='I',max='**' ),
4254                 VALE_C          =SIMP(statut='f',typ='C',max='**' ),
4255                 VALE_F          =SIMP(statut='f',typ=fonction,max='**'),
4256                                    ),
4257                              ),
4258          b_asse          =BLOC(condition = "OPERATION == 'ASSE'",
4259              regles=(UN_PARMI('MAILLAGE','MODELE'),EXCLUS('MAILLAGE','PROL_ZERO'),),
4260              MAILLAGE        =SIMP(statut='f',typ=(maillage) ),
4261              MODELE          =SIMP(statut='f',typ=(modele) ),
4262              PROL_ZERO       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
4263              ASSE            =FACT(statut='o',min=01,max='**',
4264                 regles=(AU_MOINS_UN('TOUT','GROUP_MA','GROUP_NO','MAILLE','NOEUD',),
4265                 PRESENT_PRESENT('NOM_CMP_RESU','NOM_CMP', ),),
4266                 TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4267                 GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4268                 GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4269                 MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4270                 NOEUD           =SIMP(statut='f',typ=no,max='**'),
4271                 CHAM_GD         =SIMP(statut='o',typ=(cham_gd)),
4272                 NOM_CMP         =SIMP(statut='f',typ='TXM',max='**' ),
4273                 NOM_CMP_RESU    =SIMP(statut='f',typ='TXM',max='**' ),
4274                 CUMUL           =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
4275                 COEF_R          =SIMP(statut='f',typ='R',defaut= 1. ),
4276                                     ),
4277                              ),
4278          b_eval          =BLOC(condition = "OPERATION == 'EVAL'",
4279              CHAM_F          =SIMP(statut='o',typ=(cham_gd)),
4280              CHAM_PARA       =SIMP(statut='o',typ=(cham_gd),max='**'),
4281                              ),
4282          b_disc          =BLOC(condition = "OPERATION == 'DISC'",
4283              MODELE          =SIMP(statut='f',typ=(modele) ),
4284              PROL_ZERO       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
4285              CHAM_GD         =SIMP(statut='o',typ=(cham_gd)),
4286                              ),
4287          b_extr          =BLOC(condition = "OPERATION == 'EXTR'",
4288              regles=(UN_PARMI('MAILLAGE','RESULTAT'),),
4289              MAILLAGE        =SIMP(statut='f',typ=(maillage) ),
4290              RESULTAT        =SIMP(statut='f',typ=(resultat) ),
4291              b_extr_maillage =BLOC(condition = "MAILLAGE != None",
4292                  NOM_CHAM        =SIMP(statut='o',typ='TXM',into=("GEOMETRIE",)),
4293                                   ),
4294              b_extr_resultat =BLOC(condition = "RESULTAT != None",
4295                  regles=(EXCLUS('TYPE_MAXI','NUME_ORDRE','INST','FREQ','NUME_MODE',
4296                                 'NOEUD_CMP','NOM_CAS','ANGL', ),),
4297                  NOM_CHAM        =SIMP(statut='o',typ='TXM',
4298                            into=("DEPL","VITE","ACCE",
4299                              "DEPL_ABSOLU","VITE_ABSOLU",
4300                              "TEMP","IRRA","ACCE_ABSOLU",
4301                              "FORC_NODA","REAC_NODA","EFGE_NOEU_DEPL",
4302                              "EFGE_NOEU_CART","EPSI_NOEU_DEPL",
4303                              "SIGM_NOEU_DEPL","SIGM_NOEU_CART",
4304                              "SIPO_NOEU_DEPL","EQUI_NOEU_SIGM",
4305                              "EQUI_NOEU_EPSI","FLUX_NOEU_TEMP",
4306                              "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP",
4307                              "META_ELGA_TEMP","META_ELNO_TEMP",
4308                              "META_NOEU_TEMP","DURT_ELGA_META",
4309                              "DURT_ELNO_META","DURT_NOEU_META","SIEF_ELGA",
4310                              "SIEF_ELNO_ELGA","SIEF_ELGA_DEPL",
4311                              "VARI_ELNO_ELGA","VARI_ELGA","EPOT_ELEM_DEPL",
4312                              "ECIN_ELEM_DEPL","SOUR_ELGA_ELEC",
4313                              "PRES_ELNO_REEL","PRES_ELNO_IMAG",
4314                              "PRES_ELNO_DBEL","INTE_ELNO_ACTI",
4315                              "INTE_ELNO_REAC","EFGE_ELNO_DEPL",
4316                              "SIGM_ELNO_DEPL","EFGE_ELNO_CART",
4317                              "SIGM_ELNO_CART","SIPO_ELNO_DEPL",
4318                              "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL",
4319                              "EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO",
4320                              "EPSP_ELGA","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
4321                              "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
4322                              "ERRE_ELNO_ELGA","ERRE_ELGA_NORE",
4323                              "ERRE_ELEM_NOZ1","ERRE_ELEM_NOZ2",
4324                              "SIGM_NOZ1_ELGA","SIGM_NOZ2_ELGA",
4325                              "DEGE_ELNO_DEPL","SIRE_ELNO_DEPL",
4326                              "VNOR_ELEM_DEPL","SIEF_ELNO","VARI_ELNO",
4327                              "SIEF_NOEU_ELGA","VARI_NOEU_ELGA",
4328                              "PRES_NOEU_DBEL","PRES_NOEU_REEL",
4329                              "PRES_NOEU_IMAG","INTE_NOEU_ACTI",
4330                              "INTE_NOEU_REAC","DCHA_ELGA_SIGM",
4331                              "DCHA_ELNO_SIGM","RADI_ELGA_SIGM",
4332                              "RADI_ELNO_SIGM","ENDO_ELNO_SIGA",
4333                              "ENDO_ELNO_SINO","ENDO_ELNO_SIGM",
4334                              "SIGM_ELNO_VARI","SIGM_NOEU_VARI",
4335                              "EPME_ELNO_DEPL","EPME_ELGA_DEPL",
4336                              "EPME_ELNO_DPGE","EPMG_ELNO_DEPL",
4337                              "EPMG_ELGA_DEPL","GRAD_ELGA_THETA",
4338                              "GTHE_ELNO_ELGA","GRAD_NOEU_THETA",
4339                              "HYDR_ELGA","HYDR_ELNO_ELGA","HYDR_NOEU_ELGA",
4340                              "THETA","SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",
4341                              "VALE_CONT",) ),
4342                  TYPE_MAXI       =SIMP(statut='f',typ='TXM',into=("MAXI","MINI","MAXI_ABS","MINI_ABS","NORM_TRAN",) ),
4343                  TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="VALE",into=("VALE","INST",) ),
4344                  TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4345                  LIST_INST       =SIMP(statut='f',typ=(listr8) ),
4346                  NUME_ORDRE      =SIMP(statut='f',typ='I'),
4347                  INST            =SIMP(statut='f',typ='R'),
4348                  FREQ            =SIMP(statut='f',typ='R'),
4349                  NUME_MODE       =SIMP(statut='f',typ='I'),
4350                  NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
4351                  NOM_CAS         =SIMP(statut='f',typ='TXM'),
4352                  ANGL            =SIMP(statut='f',typ='R'),
4353                  PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
4354                  CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
4355                  INTERPOL        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN",) ),
4356                               ),
4357
4358                 ),
4359 # FIN DU CATALOGUE : INFO,TITRE ET TYPAGE DU RESULAT :
4360 #-----------------------------------------------------
4361          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,) ),
4362          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
4363 )  ;
4364 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
4365 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4366 # ======================================================================
4367 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4368 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
4369 #              REDISTRIBUTION OF THIS FILE.
4370 # ======================================================================
4371 CREA_MAILLAGE=OPER(nom="CREA_MAILLAGE",op= 167,sd_prod=maillage,
4372                      docu="U4.23.02-c",reentrant='n',
4373          regles=(EXCLUS('ECLA_PG','CREA_MAILLE'),
4374                  EXCLUS('ECLA_PG','CREA_GROUP_MA'),
4375                  EXCLUS('ECLA_PG','DETR_GROUP_MA'),
4376                  EXCLUS('ECLA_PG','MODI_MAILLE'),),
4377          MAILLAGE        =SIMP(statut='o',typ=maillage ),
4378          CREA_POI1       =FACT(statut='f',min=01,max='**',fr="Création de mailles de type POI1 à partir de noeuds",
4379            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD' ),),
4380            NOM_GROUP_MA    =SIMP(statut='f',typ=grma,max='**'),
4381            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4382            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4383            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4384            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4385            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4386          ),
4387          CREA_MAILLE     =FACT(statut='f',min=01,max='**',fr="Duplication de mailles",
4388            regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA'),),
4389            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4390            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4391            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4392            PREF_MAILLE     =SIMP(statut='o',typ='TXM' ),
4393            PREF_NUME       =SIMP(statut='f',typ='I' ),
4394          ),
4395          CREA_GROUP_MA   =FACT(statut='f',min=01,max='**',fr="Duplication de mailles et création de groupes de mailles",
4396            regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
4397            NOM             =SIMP(statut='o',typ='TXM'),
4398            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4399            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4400            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4401            PREF_MAILLE     =SIMP(statut='o',typ='TXM' ),
4402            PREF_NUME       =SIMP(statut='f',typ='I' ),
4403          ),
4404          DETR_GROUP_MA   =FACT(statut='f',min=01,max=01,fr="Destruction de groupes de mailles",
4405            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4406            NB_MAILLE       =SIMP(statut='f',typ='I',defaut= 0,
4407                                  fr="Nombre minimal de mailles que doit contenir le groupe pour etre détruit",  ),
4408          ),
4409          MODI_MAILLE     =FACT(statut='f',min=01,max='**',fr="Modification du type de mailles",
4410            regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
4411            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4412            MAILLE          =SIMP(statut='f',typ=grma,max='**'),
4413            GROUP_MA        =SIMP(statut='f',typ=ma,max='**'),
4414            OPTION          =SIMP(statut='o',typ='TXM',into=("TRIA6_7","QUAD8_9","SEG3_4"),fr="Choix de la transformation" ),
4415            PREF_NOEUD      =SIMP(statut='f',typ='TXM',defaut="NS"),
4416            PREF_NUME       =SIMP(statut='f',typ='I',defaut= 1 ),
4417          ),
4418          REPERE          =FACT(statut='f',min=01,max='**',
4419                                fr="changement de repère servant à déterminer les caractéristiques d une section de poutre",
4420            TABLE           =SIMP(statut='o',typ=tabl_cara_geom,
4421                                  fr="Nom de la table contenant les caractéristiques de la section de poutre" ),
4422            NOM_ORIG        =SIMP(statut='f',typ='TXM',into=("CDG","TORSION"),fr="Origine du nouveau repère" ),
4423            NOM_ROTA        =SIMP(statut='f',typ='TXM',into=("INERTIE",),fr="Direction du repére"  ),
4424            b_cdg =BLOC(condition = "NOM_ORIG == 'CDG'",
4425              GROUP_MA        =SIMP(statut='f',typ=grma,
4426                                    fr="Nom du groupe de mailles dont le centre de gravité sera l origine du nouveau repère"),
4427            ),
4428          ),
4429          ECLA_PG         =FACT(statut='f',min=01,max=01,
4430                                fr="Eclatement des mailles en petites mailles contenant chacune un seul point de gauss",
4431            MODELE          =SIMP(statut='o',typ=modele ),
4432            SHRINK          =SIMP(statut='f',typ='R',defaut= 0.9, fr="Facteur de réduction" ),
4433          ),
4434          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
4435 )  ;
4436 #& MODIF COMMANDE  DATE 07/01/2002   AUTEUR D6BHHJP J.P.LEFEBVRE
4437 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4438 # ======================================================================
4439 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4440 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
4441 #              REDISTRIBUTION OF THIS FILE.
4442 # ======================================================================
4443 def crea_resu_prod(TYPE_RESU,**args):
4444   if TYPE_RESU == "EVOL_ELAS"    : return evol_elas
4445   if TYPE_RESU == "EVOL_NOLI"    : return evol_noli
4446   if TYPE_RESU == "EVOL_THER"    : return evol_ther
4447   if TYPE_RESU == "MULT_ELAS"    : return mult_elas
4448   if TYPE_RESU == "FOURIER_ELAS" : return fourier_elas
4449   if TYPE_RESU == "EVOL_VARC"    : return evol_varc
4450   raise AsException("type de concept resultat non prevu")
4451
4452 CREA_RESU=OPER(nom="CREA_RESU",op=124,sd_prod=crea_resu_prod,docu="U4.44.12-d1",reentrant='f',
4453                fr="Engendrer ou enrichir une structure de donnees en affectant les cham_gd associes",
4454
4455          OPERATION =SIMP(statut='o',typ='TXM',into=("AFFE","ECLA_PG","PERM_CHAM","PROL_RTZ",),
4456                          fr="choix de la fonction a activer",),
4457
4458          b_affe       =BLOC(condition = "OPERATION == 'AFFE'",
4459
4460            TYPE_RESU    =SIMP(statut='o',typ='TXM',into=("MULT_ELAS","EVOL_ELAS","EVOL_NOLI","FOURIER_ELAS",
4461                                                          "EVOL_THER","EVOL_VARC",) ),
4462            NOM_CHAM     =SIMP(statut='f',typ='TXM',into=("DEPL","TEMP","IRRA","HYDR_ELGA",),max=1 ),
4463            AFFE         =FACT(statut='f',min=01,max='**',
4464              regles=(UN_PARMI('NOM_CAS','NUME_MODE','LIST_INST','INST',),),
4465              CHAM_GD         =SIMP(statut='f',typ=(cham_gd)),
4466              NUME_ORDRE_INIT =SIMP(statut='f',typ='I'),
4467              NOM_CAS         =SIMP(statut='f',typ='TXM' ),
4468              NUME_MODE       =SIMP(statut='f',typ='I'),
4469              TYPE_MODE       =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
4470              INST            =SIMP(statut='f',typ='R',max='**'),
4471              LIST_INST       =SIMP(statut='f',typ=listr8),
4472              NUME_INIT       =SIMP(statut='f',typ='I'),
4473              NUME_FIN        =SIMP(statut='f',typ='I'),
4474            ),
4475          ),
4476
4477          b_ecla_pg    =BLOC(condition = "OPERATION == 'ECLA_PG'",
4478
4479            TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_ELAS","EVOL_NOLI","EVOL_THER"), ),
4480
4481            ECLA_PG         =FACT(statut='f',min=01,max=01,
4482              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
4483              NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
4484                                    into=("SIEF_ELGA","VARI_ELGA","SIEF_ELGA_DEPL","FLUX_ELGA_TEMP",) ),
4485              MODELE_INIT     =SIMP(statut='o',typ=modele),
4486              RESU_INIT       =SIMP(statut='o',typ=resultat),
4487              MAILLAGE        =SIMP(statut='o',typ=maillage),
4488              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",) ),
4489              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
4490              LIST_ORDRE      =SIMP(statut='f',typ=listis),
4491              INST            =SIMP(statut='f',typ='R',max='**'),
4492              LIST_INST       =SIMP(statut='f',typ=listr8),
4493              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
4494              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
4495            ),
4496          ),
4497
4498          b_perm_cham =BLOC(condition = "OPERATION == 'PERM_CHAM'",
4499
4500            TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_NOLI",) ),
4501            NOM_CHAM        =SIMP(statut='f',typ='TXM',into=("DEPL","SIEF_ELGA","VARI_ELGA",),max='**' ),
4502            RESU_INIT       =SIMP(statut='o',typ=evol_noli),
4503            INST_INIT       =SIMP(statut='f',typ='R'),
4504            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
4505            CRITERE         =SIMP(statut='f',typ='TXM',into=('RELATIF','ABSOLU'),defaut='RELATIF'),
4506            MAILLAGE_INIT   =SIMP(statut='o',typ=maillage,),
4507            RESU_FINAL      =SIMP(statut='o',typ=evol_noli,),
4508            MAILLAGE_FINAL  =SIMP(statut='o',typ=maillage,),
4509            PERM_CHAM       =FACT(statut='o',min=01,max=01,
4510               GROUP_MA_FINAL =SIMP(statut='o',typ=grma),
4511               GROUP_MA_INIT  =SIMP(statut='o',typ=grma),
4512               TRAN           =SIMP(statut='o',typ='R',max='**'),
4513               PRECISION      =SIMP(statut='f',typ='R',defaut=1.0E-3),
4514            ),
4515          ),
4516
4517          b_prol_rtz   =BLOC(condition = "OPERATION == 'PROL_RTZ'",
4518
4519            TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_THER",) ),
4520
4521            PROL_RTZ        =FACT(statut='f',min=01,max=01,
4522               regles=(EXCLUS('INST','LIST_INST'),),
4523               MAILLAGE_FINAL  =SIMP(statut='o',typ=maillage,),
4524               TABLE           =SIMP(statut='o',typ=tabl_post_rele,fr="Table issue de post_releve_t"),
4525               INST            =SIMP(statut='f',typ='R',max='**'),
4526               LIST_INST       =SIMP(statut='f',typ=listr8),
4527               b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
4528                  PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
4529                  CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4530               ),
4531               PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU",),),
4532               PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU",),),
4533               REPERE          =SIMP(statut='o',typ='TXM',into=("CYLINDRIQUE",),),
4534               ORIGINE         =SIMP(statut='o',typ='R',min=03,max=03),
4535               AXE_Z           =SIMP(statut='o',typ='R',min=03,max=03),
4536            ),
4537          ),
4538
4539 )  ;
4540 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
4541 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4542 # ======================================================================
4543 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4544 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
4545 #              REDISTRIBUTION OF THIS FILE.
4546 # ======================================================================
4547 DEBUT=MACRO(nom="DEBUT",op=0 ,docu="U4.11.01-f1",repetable='n',
4548            fr="Ouverture d une étude. Allocation des ressources mémoire et disque",
4549           sd_prod=ops.DEBUT,
4550
4551          PAR_LOT         =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
4552                            into=("OUI","NON"),defaut="OUI"),
4553          BASE            =FACT(fr="définition des paramètres associés aux bases JEVEUX",
4554                                statut='f',min=01,max=03,
4555            FICHIER         =SIMP(fr="nom de la base",statut='o',typ='TXM',
4556                                  into=('GLOBALE','VOLATILE','LOCALE'),),
4557            TITRE           =SIMP(statut='f',typ='TXM'),
4558            CAS             =SIMP(statut='f',typ='TXM'),
4559            NMAX_ENRE       =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
4560            LONG_ENRE       =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
4561            LONG_REPE       =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
4562          ),
4563          IMPRESSION      =FACT(statut='f',min=01,max=03,
4564            FICHIER         =SIMP(statut='o',typ='TXM'),
4565            UNITE           =SIMP(statut='o',typ='I'),
4566          ),
4567          CATALOGUE       =FACT(statut='f',min=01,max=10,
4568            FICHIER         =SIMP(statut='o',typ='TXM'),
4569            TITRE           =SIMP(statut='f',typ='TXM'),
4570            UNITE           =SIMP(statut='f',typ='I'),
4571          ),
4572          CODE            =FACT("définition d un nom pour l'esemble d'une étude",
4573                                statut='f',min=01,max=01,
4574            NOM             =SIMP(statut='o',typ='TXM'),
4575            UNITE           =SIMP(statut='f',typ='I',defaut=15),
4576          ),
4577          DEBUG           =FACT(fr="option de déboggage reservée aux développeurs",
4578                                statut='f',min=01,max=01,
4579            JXVERI          =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
4580                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
4581            JEVEUX          =SIMP(fr="force les déchargement sur disque",
4582                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
4583            ENVIMA          =SIMP(fr="imprime les valeurs définies dans ENVIMA",
4584                                  statut='f',typ='TXM',into=('TEST',)),
4585          ),
4586          MEMOIRE         =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=01,max=01,
4587            GESTION         =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
4588            TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
4589            TAILLE          =SIMP(statut='f',typ='I'),
4590            TAILLE_BLOC     =SIMP(statut='f',typ='R',defaut=800.),
4591            PARTITION       =SIMP(statut='f',typ='R'),
4592          ),
4593  );
4594 #& MODIF COMMANDE  DATE 19/12/2001   AUTEUR CIBHHPD D.NUNEZ
4595 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4596 # ======================================================================
4597 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4598 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
4599 #              REDISTRIBUTION OF THIS FILE.
4600 # ======================================================================
4601 DEFI_BASE_MODALE=OPER(nom="DEFI_BASE_MODALE",op=  99,sd_prod=base_modale,
4602                      docu="U4.64.02-e",reentrant='f',
4603          regles=(UN_PARMI('CLASSIQUE','RITZ','DIAG_MASS'),),
4604          CLASSIQUE       =FACT(statut='f',min=01,max=01,
4605            INTERF_DYNA     =SIMP(statut='o',typ=interf_dyna_clas ),
4606            MODE_MECA       =SIMP(statut='o',typ=mode_meca,max='**' ),
4607            NMAX_MODE       =SIMP(statut='f',typ='I',defaut= 10 ),
4608          ),
4609          RITZ            =FACT(statut='f',min=01,max='**',
4610            regles=(UN_PARMI('MODE_STAT','MODE_MECA','MULT_ELAS','BASE_MODALE'),),
4611            MODE_MECA       =SIMP(statut='f',typ=mode_meca,max='**'  ),
4612            NMAX_MODE       =SIMP(statut='f',typ='I',defaut= 999 ),
4613            MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
4614            MULT_ELAS       =SIMP(statut='f',typ=mult_elas ),
4615            BASE_MODALE     =SIMP(statut='f',typ=base_modale ),
4616          ),
4617         DIAG_MASS        =FACT(statut='f',min=01,max='**',
4618            MODE_MECA       =SIMP(statut='o',typ=mode_meca,max='**'  ),
4619            MODE_STAT       =SIMP(statut='o',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
4620          ),
4621 #  le bloc conditionnel remplace-t-il PRESENT_PRESENT('RITZ','NUME_REF'),
4622 #                                     PRESENT_ABSENT('INTERF_DYNA','CLASSIQUE'),
4623          b_ritz          =BLOC(condition = "RITZ != None",
4624            INTERF_DYNA     =SIMP(statut='f',typ=interf_dyna_clas ),
4625            NUME_REF        =SIMP(statut='o',typ=nume_ddl ),
4626          ),
4627          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
4628          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
4629 )  ;
4630 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
4631 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4632 # ======================================================================
4633 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4634 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
4635 #              REDISTRIBUTION OF THIS FILE.
4636 # ======================================================================
4637 DEFI_CABLE_BP=OPER(nom="DEFI_CABLE_BP",op= 180,sd_prod=cabl_precont,
4638                    fr=" ",
4639                    docu="U4.42.04-a",reentrant='n',
4640          MODELE          =SIMP(statut='o',typ=modele ),
4641          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
4642          CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
4643          GROUP_MA_BETON  =SIMP(statut='o',typ=grma),
4644          DEFI_CABLE      =FACT(statut='o',min=1,max='**',
4645            regles=(UN_PARMI('MAILLE','GROUP_MA'),
4646                    UN_PARMI('NOEUD_ANCRAGE','GROUP_NO_ANCRAGE'),),
4647            MAILLE          =SIMP(statut='f',typ=ma,min=2,max='**'),
4648            GROUP_MA        =SIMP(statut='f',typ=grma),
4649            NOEUD_ANCRAGE   =SIMP(statut='f',typ=no,max=2),
4650            GROUP_NO_ANCRAGE=SIMP(statut='f',typ=grno,max=2),
4651            TYPE_ANCRAGE    =SIMP(statut='o',typ='TXM',min=2,max=2,
4652                                  into=("ACTIF","PASSIF") ),
4653          ),
4654          TENSION_INIT    =SIMP(statut='o',typ='R',val_min=0.E+0 ),
4655          RECUL_ANCRAGE   =SIMP(statut='o',typ='R',val_min=0.E+0 ),
4656          RELAXATION      =FACT(statut='f',min=0,max=1,
4657            R_J             =SIMP(statut='o',typ='R',val_min=0.E+0 ),
4658          ),
4659          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
4660 )  ;
4661 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
4662 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4663 # ======================================================================
4664 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4665 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
4666 #              REDISTRIBUTION OF THIS FILE.
4667 # ======================================================================
4668 DEFI_CONSTANTE=OPER(nom="DEFI_CONSTANTE",op=   2,sd_prod=fonction,
4669                     fr="Définition d une fonction constante",
4670                     docu="U4.31.01-f",reentrant='n',
4671          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
4672          VALE            =SIMP(statut='o',typ='R',max=01 ),
4673          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
4674 )  ;
4675 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
4676 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4677 # ======================================================================
4678 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4679 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
4680 #              REDISTRIBUTION OF THIS FILE.
4681 # ======================================================================
4682 DEFI_COQU_MULT=OPER(nom="DEFI_COQU_MULT",op=56,sd_prod=mater,docu="U4.42.03-e",reentrant='n',
4683                     fr="Définition d une coque composite couche par couche",
4684          COUCHE          =FACT(statut='o',min=01,max='**',
4685            EPAIS           =SIMP(statut='o',typ='R',val_min=0.E+0 ),
4686            MATER           =SIMP(statut='o',typ=(mater) ),
4687            ORIENTATION     =SIMP(statut='f',typ='R',defaut= 0.E+0,
4688                                  val_min=-90.E+0,val_max=90.E+0   ),
4689          ),
4690          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
4691          IMPRESSION      =FACT(statut='f',min=01,max=01,
4692            FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
4693                                  into=("RESULTAT",) ),
4694          ),
4695 )  ;
4696 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
4697 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4698 # ======================================================================
4699 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4700 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
4701 #              REDISTRIBUTION OF THIS FILE.
4702 # ======================================================================
4703 DEFI_FLUI_STRU=OPER(nom="DEFI_FLUI_STRU",op= 143,sd_prod=type_flui_stru,
4704                     docu="U4.25.01-d",reentrant='n',
4705          regles=(  UN_PARMI('FAISCEAU_TRANS','GRAPPE','FAISCEAU_AXIAL','COQUE_COAX',),),
4706          FAISCEAU_TRANS  =FACT(statut='f',min=01,max='**',
4707            COUPLAGE        =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
4708            CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
4709            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
4710            PROF_RHO_F_INT  =SIMP(statut='f',typ=fonction ),
4711            PROF_RHO_F_EXT  =SIMP(statut='f',typ=fonction ),
4712            NOM_CMP         =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ") ),
4713            COEF_MASS_AJOU  =SIMP(statut='f',typ='R' ),
4714            TYPE_PAS        =SIMP(statut='f',typ='TXM',into=("CARRE_LIGN","TRIA_LIGN") ),
4715            TYPE_RESEAU     =SIMP(statut='f',typ='I' ),
4716            UNITE_CD        =SIMP(statut='f',typ='I',defaut=70),
4717            UNITE_CK        =SIMP(statut='f',typ='I',defaut=71),
4718            PAS             =SIMP(statut='f',typ='R' ),
4719          ),
4720          GRAPPE          =FACT(statut='f',min=00,max=01,
4721            regles=(ENSEMBLE('GRAPPE_2','NOEUD','CARA_ELEM','MODELE','RHO_FLUI',),
4722                    PRESENT_PRESENT('COEF_MASS_AJOU','GRAPPE_2', ),),
4723 #  peut on créer un bloc a partir de la valeur de couplage
4724            COUPLAGE        =SIMP(statut='o',typ='TXM',into=("OUI","NON") ),
4725            GRAPPE_2        =SIMP(statut='f',typ='TXM',
4726                                  into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC") ),
4727            NOEUD           =SIMP(statut='f',typ=no),
4728            CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
4729            MODELE          =SIMP(statut='f',typ=modele ),
4730            COEF_MASS_AJOU  =SIMP(statut='f',typ='R' ),
4731            RHO_FLUI        =SIMP(statut='f',typ='R' ),
4732            UNITE_CA        =SIMP(statut='f',typ='I',defaut=70),
4733            UNITE_KA        =SIMP(statut='f',typ='I',defaut=71),
4734          ),
4735          FAISCEAU_AXIAL  =FACT(statut='f',min=01,max='**',
4736            regles=(UN_PARMI('GROUP_MA','TRI_GROUP_MA'),
4737                    UN_PARMI('CARA_ELEM','RAYON_TUBE'),
4738                    ENSEMBLE('RAYON_TUBE','COOR_TUBE'),
4739                    PRESENT_ABSENT('RAYON_TUBE','TRI_GROUP_MA'),
4740                    ENSEMBLE('CARA_PAROI','VALE_PAROI'),
4741                    ENSEMBLE('LONG_TYPG','LARG_TYPG','EPAI_TYPG','RUGO_TYPG','COEF_TRAI_TYPG','COEF_DPOR_TYPG',
4742                             'COOR_GRILLE','TYPE_GRILLE', ),),
4743 #  on doit pouvoir mettre des blocs conditionnels mais pas assez d infos pour le faire
4744            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4745            TRI_GROUP_MA    =SIMP(statut='f',typ='TXM' ),
4746            VECT_X          =SIMP(statut='f',typ='R',max=03),
4747            PROF_RHO_FLUI   =SIMP(statut='f',typ=fonction ),
4748            PROF_VISC_CINE  =SIMP(statut='f',typ=fonction ),
4749            CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
4750            RAYON_TUBE      =SIMP(statut='f',typ='R' ),
4751            COOR_TUBE       =SIMP(statut='f',typ='R',max='**'),
4752            PESANTEUR       =SIMP(statut='f',typ='R',min=04,max=04),
4753            RUGO_TUBE       =SIMP(statut='f',typ='R' ),
4754            CARA_PAROI      =SIMP(statut='f',typ='TXM',max=05,
4755                                  into=("YC","ZC","R","HY","HZ") ),
4756            VALE_PAROI      =SIMP(statut='f',typ='R',max=05),
4757            ANGL_VRIL       =SIMP(statut='f',typ='R' ),
4758            LONG_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
4759            LARG_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
4760            EPAI_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
4761            RUGO_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
4762            COEF_TRAI_TYPG  =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
4763            COEF_DPOR_TYPG  =SIMP(statut='f',typ='R',max='**'),
4764            COOR_GRILLE     =SIMP(statut='f',typ='R',max='**'),
4765            TYPE_GRILLE     =SIMP(statut='f',typ='I',max='**'),
4766          ),
4767          COQUE_COAX      =FACT(statut='f',min=00,max=01,
4768            MASS_AJOU       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4769            GROUP_MA_INT    =SIMP(statut='o',typ=grma),
4770            GROUP_MA_EXT    =SIMP(statut='o',typ=grma),
4771            VECT_X          =SIMP(statut='o',typ='R',max='**'),
4772            CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
4773            MATER_INT       =SIMP(statut='o',typ=mater ),
4774            MATER_EXT       =SIMP(statut='o',typ=mater ),
4775            RHO_FLUI        =SIMP(statut='o',typ='R' ),
4776            VISC_CINE       =SIMP(statut='o',typ='R' ),
4777            RUGOSITE        =SIMP(statut='o',typ='R' ),
4778            PDC_MOY_1       =SIMP(statut='o',typ='R' ),
4779            PDC_DYN_1       =SIMP(statut='o',typ='R' ),
4780            PDC_MOY_2       =SIMP(statut='o',typ='R' ),
4781            PDC_DYN_2       =SIMP(statut='o',typ='R' ),
4782          ),
4783          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
4784 )  ;
4785 #& MODIF COMMANDE  DATE 23/01/2002   AUTEUR DURAND C.DURAND
4786 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4787 # ======================================================================
4788 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4789 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
4790 #              REDISTRIBUTION OF THIS FILE.
4791 # ======================================================================
4792 DEFI_FONC_ELEC=OPER(nom="DEFI_FONC_ELEC",op=64,sd_prod=fonction,docu="U4.MK.10-e",reentrant='n',
4793                     fr="Définition d une fonction du temps pour calculer des forces de LAPLACE",
4794       regles=(UN_PARMI('COUR_PRIN','COUR'),
4795               EXCLUS('COUR','COUR_SECO'), ),
4796          FREQ            =SIMP(statut='f',typ='R',defaut= 50.),
4797          SIGNAL          =SIMP(statut='f',typ='TXM',defaut="COMPLET",into=("COMPLET","CONTINU") ),
4798          COUR            =FACT(statut='f',min=1,max='**',
4799          fr="Définition du courant de court-circuit",
4800            regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),
4801                    UN_PARMI('PHI_CC_2','INTC_CC_2'),),
4802            INTE_CC_1       =SIMP(statut='o',typ='R'),
4803            TAU_CC_1        =SIMP(statut='o',typ='R'),
4804            PHI_CC_1        =SIMP(statut='f',typ='R'),
4805            INTC_CC_1       =SIMP(statut='f',typ='R'),
4806            INTE_CC_2       =SIMP(statut='o',typ='R'),
4807            TAU_CC_2        =SIMP(statut='o',typ='R'),
4808            PHI_CC_2        =SIMP(statut='f',typ='R'),
4809            INTC_CC_2       =SIMP(statut='f',typ='R'),
4810            INST_CC_INIT    =SIMP(statut='o',typ='R'),
4811            INST_CC_FIN     =SIMP(statut='o',typ='R'),
4812          ),
4813          COUR_PRIN       =FACT(statut='f',min=1,max=1,
4814          fr="Définition du courant de court-circuit avec réenclenchement",
4815            regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),),
4816            INTE_CC_1       =SIMP(statut='o',typ='R'),
4817            TAU_CC_1        =SIMP(statut='o',typ='R'),
4818            PHI_CC_1        =SIMP(statut='f',typ='R'),
4819            INTC_CC_1       =SIMP(statut='f',typ='R'),
4820            INTE_RENC_1     =SIMP(statut='f',typ='R'),
4821            TAU_RENC_1      =SIMP(statut='f',typ='R'),
4822            PHI_RENC_1      =SIMP(statut='f',typ='R'),
4823            INST_CC_INIT    =SIMP(statut='o',typ='R'),
4824            INST_CC_FIN     =SIMP(statut='o',typ='R'),
4825            INST_RENC_INIT  =SIMP(statut='f',typ='R',defaut= 0.0E+0),
4826            INST_RENC_FIN   =SIMP(statut='f',typ='R',defaut= 0.0E+0),
4827          ),
4828          COUR_SECO       =FACT(statut='f',min=1,max='**',
4829          fr="Définition du courant de court-circuit avec un intervalle de temps différent de celui de COUR_PRIN",
4830            regles=(UN_PARMI('PHI_CC_2','INTC_CC_2'),),
4831            INTE_CC_2       =SIMP(statut='o',typ='R'),
4832            TAU_CC_2        =SIMP(statut='o',typ='R'),
4833            PHI_CC_2        =SIMP(statut='f',typ='R'),
4834            INTC_CC_2       =SIMP(statut='f',typ='R'),
4835            INTE_RENC_2     =SIMP(statut='f',typ='R'),
4836            TAU_RENC_2      =SIMP(statut='f',typ='R'),
4837            PHI_RENC_2      =SIMP(statut='f',typ='R'),
4838            DIST            =SIMP(statut='f',typ='R',defaut=1.0E+0),
4839          ),
4840          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
4841 )  ;
4842 #& MODIF COMMANDE  DATE 03/10/2001   AUTEUR DURAND C.DURAND
4843 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4844 # ======================================================================
4845 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4846 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
4847 #              REDISTRIBUTION OF THIS FILE.
4848 # ======================================================================
4849 DEFI_FONC_FLUI=OPER(nom="DEFI_FONC_FLUI",op= 142,sd_prod=fonction,
4850                     docu="U4.35.01-c",reentrant='n',
4851          MAILLAGE        =SIMP(statut='o',typ=(maillage) ),
4852          NOEUD_INIT      =SIMP(statut='o',typ=no),
4853          NOEUD_FIN       =SIMP(statut='o',typ=no),
4854          VITE            =FACT(statut='o',min=1,max=1,
4855            VALE            =SIMP(statut='f',typ='R',defaut= 1. ),
4856            PROFIL          =SIMP(statut='o',typ='TXM',into=("UNIFORME","LEONARD") ),
4857            NB_BAV          =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 2 , 3 ) ),
4858          ),
4859          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",
4860                                into=("NON","LIN","LOG") ),
4861          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",
4862                                into=("CONSTANT","LINEAIRE","EXCLU") ),
4863          PROL_GAUCHE     =SIMP(statut='f',typ='TXM' ,defaut="EXCLU",
4864                                into=("CONSTANT","LINEAIRE","EXCLU") ),
4865          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
4866          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
4867 )  ;
4868 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
4869 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4870 # ======================================================================
4871 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4872 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
4873 #              REDISTRIBUTION OF THIS FILE.
4874 # ======================================================================
4875 # RESPONSABLE MCOURTOI M.COURTOIS
4876 def defi_fonction_prod(VALE,VALE_PARA,VALE_C,NOEUD_PARA,**args):
4877   if VALE != None  : return fonction
4878   if VALE_C != None  : return fonction_c
4879   if VALE_PARA != None  : return fonction
4880   if NOEUD_PARA != None  : return fonction
4881   raise AsException("type de concept resultat non prevu")
4882
4883 DEFI_FONCTION=OPER(nom="DEFI_FONCTION",op=3,sd_prod=defi_fonction_prod
4884                     ,fr="Définition des valeurs réelles ou complexes d une fonction réelle",
4885                      docu="U4.31.02-f1",reentrant='n',
4886          regles=(UN_PARMI('VALE','VALE_C','VALE_PARA','NOEUD_PARA'),),
4887          NOM_PARA        =SIMP(statut='o',typ='TXM',
4888                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
4889                                      "INST","X","Y","Z","EPSI","META","FREQ","PULS",
4890                                      "AMOR","ABSC","SIGM","HYDR","SECH","PORO","SAT",
4891                                      "PGAZ","PCAP","VITE") ),
4892          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
4893          VALE            =SIMP(statut='f',typ='R',min=2,max='**',
4894                                fr ="Fonction réelle définie par une liste de couples (abscisse,ordonnée)"),
4895          VALE_C          =SIMP(statut='f',typ='R',min=2,max='**',
4896                                fr ="Fonction complexe définie par une liste de couples"),
4897          VALE_PARA       =SIMP(statut='f',typ=listr8,
4898                                fr ="Fonction réelle définie par deux concepts de type listr8" ),
4899          b_vale_para     =BLOC(condition = "VALE_PARA != None",
4900            VALE_FONC       =SIMP(statut='o',typ=listr8 ),
4901          ),
4902          NOEUD_PARA      =SIMP(statut='f',typ=no,max='**',
4903                                fr ="Fonction réelle définie par une liste de noeuds et un maillage"),
4904          b_noeud_para    =BLOC(condition = "NOEUD_PARA != None",
4905            MAILLAGE        =SIMP(statut='o',typ=maillage ),
4906            VALE_Y          =SIMP(statut='o',typ='R',max='**'),
4907          ),
4908
4909          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
4910          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
4911          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
4912          VERIF           =SIMP(statut='f',typ='TXM',defaut="CROISSANT",into=("CROISSANT","NON") ),
4913          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
4914          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
4915 )  ;
4916 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
4917 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4918 # ======================================================================
4919 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4920 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
4921 #              REDISTRIBUTION OF THIS FILE.
4922 # ======================================================================
4923 DEFI_FOND_FISS=OPER(nom="DEFI_FOND_FISS",op=55,sd_prod=fond_fiss,docu="U4.82.01-e",reentrant='n',
4924                     fr="Définition de lèvres et d un fond de fissure en 3D",
4925          regles=(UN_PARMI('FOND','FOND_FERME'),
4926                  EXCLUS('FOND_FERME','DTAN_ORIG'),
4927                  EXCLUS('FOND_FERME','DTAN_EXTR'),
4928                       EXCLUS('FOND_FERME','VECT_GRNO_ORIG'),
4929                       EXCLUS('FOND_FERME','VECT_GRNO_EXTR'),
4930                  UN_PARMI('LEVRE_SUP','NORMALE'),
4931                       EXCLUS('LEVRE_INF','NORMALE'),
4932                  ENSEMBLE('DTAN_ORIG','DTAN_EXTR'),
4933                       ENSEMBLE('VECT_GRNO_ORIG','VECT_GRNO_EXTR'),
4934                       EXCLUS('DTAN_ORIG','VECT_GRNO_ORIG'),
4935                       EXCLUS('DTAN_EXTR','VECT_GRNO_EXTR') ,),
4936            MAILLAGE        =SIMP(statut='o',typ=maillage ),
4937            FOND            =FACT(statut='f',min=01,max=01,
4938              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
4939                      EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
4940                           EXCLUS('NOEUD_EXTR','GROUP_NO_EXTR'),),
4941              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4942              NOEUD           =SIMP(statut='f',typ=no,max='**'),
4943              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4944              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4945 #  à mettre à jour le max vaut-il 1
4946              NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
4947              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
4948              NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
4949              GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
4950            ),
4951            FOND_FERME      =FACT(statut='f',min=01,max=01,
4952              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
4953                           EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),),
4954              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4955              NOEUD           =SIMP(statut='f',typ=no,max='**'),
4956              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4957              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4958              NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
4959              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
4960              MAILLE_ORIG     =SIMP(statut='f',typ=ma,max=1),
4961              GROUP_MA_ORIG   =SIMP(statut='f',typ=ma,max=1),
4962            ),
4963            LEVRE_SUP       =FACT(statut='f',min=01,max=01,
4964              regles=(UN_PARMI('GROUP_MA','MAILLE'),),
4965              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4966              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4967            ),
4968            LEVRE_INF       =FACT(statut='f',min=01,max=01,
4969              regles=(UN_PARMI('GROUP_MA','MAILLE', ),),
4970              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4971              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4972            ),
4973            NORMALE         =SIMP(statut='f',typ='R',max='**'),
4974            DTAN_ORIG       =SIMP(statut='f',typ='R',max='**'),
4975            DTAN_EXTR       =SIMP(statut='f',typ='R',max='**'),
4976            VECT_GRNO_ORIG  =SIMP(statut='f',typ=grno,max=2),
4977            VECT_GRNO_EXTR  =SIMP(statut='f',typ=grno,max=2),
4978            INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
4979 )  ;
4980 #& MODIF COMMANDE  DATE 30/01/2002   AUTEUR VABHHTS J.TESELET
4981 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4982 # ======================================================================
4983 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4984 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
4985 #              REDISTRIBUTION OF THIS FILE.
4986 # ======================================================================
4987 # RESPONSABLE VABHHTS J.PELLET
4988 def defi_group_prod(MAILLAGE,**args):
4989   if AsType(MAILLAGE) == maillage : return maillage
4990   if AsType(MAILLAGE) == squelette : return squelette
4991   raise AsException("type de concept resultat non prevu")
4992
4993 DEFI_GROUP=OPER(nom="DEFI_GROUP",op= 104,sd_prod=defi_group_prod,
4994                 fr="Définition de nouveaux groupes de noeuds et/ou de mailles dans un concept maillage",
4995                 docu="U4.22.01-e",reentrant='o',
4996          regles=(AU_MOINS_UN('CREA_GROUP_MA','CREA_GROUP_NO'),),
4997          MAILLAGE        =SIMP(statut='o',typ=(maillage,squelette) ),
4998
4999          CREA_GROUP_MA   =FACT(statut='f',min=01,max='**',
5000            regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','INTERSEC','UNION','DIFFE','OPTION'),),
5001 #  quel est le concept attendu deriere NOM
5002            NOM             =SIMP(statut='o',typ=grma),
5003            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5004            GROUP_MA        =SIMP(statut='f',typ=grma),
5005            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5006            INTERSEC        =SIMP(statut='f',typ=grma,max='**'),
5007            UNION           =SIMP(statut='f',typ=grma,max='**'),
5008            DIFFE           =SIMP(statut='f',typ=grma,max='**'),
5009            OPTION          =SIMP(statut='f',typ='TXM',into=("FACE_NORMALE","SPHERE","CYLINDRE","BANDE") ),
5010            b_group_ma      =BLOC(condition = "GROUP_MA != None",
5011              regles=(EXCLUS('POSITION','NUME_INIT'),),
5012              NUME_INIT       =SIMP(statut='f',typ='I',defaut= 1 ),
5013              POSITION        =SIMP(statut='f',typ='TXM',into=("INIT","FIN","MILIEU") ),
5014              b_nume_init   =BLOC(condition = "NUME_INIT != None",
5015                NUME_FIN        =SIMP(statut='f',typ='I' ),
5016              ),
5017            ),
5018            b_face_normale  =BLOC(condition = "OPTION == 'FACE_NORMALE'",
5019              regles=(UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5020              ANGL_NAUT       =SIMP(statut='f',typ='R',max=02),
5021              VECT_NORMALE    =SIMP(statut='f',typ='R',max=03),
5022              ANGL_PREC       =SIMP(statut='f',typ='R',defaut= 0.5 ),
5023              VERI_SIGNE      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
5024            ),
5025            b_sphere        =BLOC(condition = "OPTION == 'SPHERE'",
5026              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),),
5027              POINT           =SIMP(statut='f',typ='R',max=03),
5028              NOEUD_CENTRE    =SIMP(statut='f',typ=no),
5029              RAYON           =SIMP(statut='o',typ='R' ),
5030            ),
5031            b_cylindre      =BLOC(condition = "OPTION == 'CYLINDRE'",
5032              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5033                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5034              POINT           =SIMP(statut='f',typ='R',max=03),
5035              NOEUD_CENTRE    =SIMP(statut='f',typ=no),
5036              RAYON           =SIMP(statut='o',typ='R' ),
5037              ANGL_NAUT       =SIMP(statut='f',typ='R',max=02),
5038              VECT_NORMALE    =SIMP(statut='f',typ='R',max=03),
5039            ),
5040            b_bande         =BLOC(condition = "OPTION == 'BANDE'",
5041              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5042                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5043              POINT           =SIMP(statut='f',typ='R',max=03),
5044              NOEUD_CENTRE    =SIMP(statut='f',typ=no),
5045              DIST            =SIMP(statut='o',typ='R' ),
5046              ANGL_NAUT       =SIMP(statut='f',typ='R',max=02),
5047              VECT_NORMALE    =SIMP(statut='f',typ='R',max=03),
5048            ),
5049          ),
5050          CREA_GROUP_NO   =FACT(statut='f',min=01,max='**',
5051            regles = (
5052          AU_MOINS_UN ('TOUT_GROUP_MA','GROUP_MA','NOEUD',
5053                      'INTERSEC','UNION','DIFFE','GROUP_NO','OPTION'),
5054                    EXCLUS ('TOUT_GROUP_MA','GROUP_MA','NOEUD','INTERSEC','UNION','DIFFE'),),
5055            TOUT_GROUP_MA   =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5056            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5057
5058            NOEUD           =SIMP(statut='f',typ=no,max='**'),
5059            INTERSEC        =SIMP(statut='f',typ=grno,max='**'),
5060            UNION           =SIMP(statut='f',typ=grno,max='**'),
5061            DIFFE           =SIMP(statut='f',typ=grno,max='**'),
5062            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5063            OPTION          =SIMP(statut='f',typ='TXM',into=("ENV_SPHERE","ENV_CYLINDRE","PLAN",
5064                                                             "SEGM_DROI_ORDO","NOEUD_ORDO") ),
5065            b_nom_group_ma  =BLOC(condition = "GROUP_MA != None",
5066              NOM             =SIMP(statut='f',typ=grma,max='**'),
5067            ),
5068            b_crit_noeud    = BLOC(condition = "GROUP_MA != None",
5069              CRIT_NOEUD    = SIMP(statut='f',typ='TXM',defaut="TOUS",
5070                             into=("TOUS","SOMMET","MILIEU","CENTRE"),),),
5071            b_nom =BLOC(condition = "GROUP_MA == None and TOUT_GROUP_MA == None" ,
5072              NOM             =SIMP(statut='o',typ=geom),
5073            ),
5074            b_group_no      =BLOC(condition = "GROUP_NO != None",
5075              regles=(EXCLUS('POSITION','NUME_INIT'),),
5076              NUME_INIT       =SIMP(statut='f',typ='I',defaut= 1 ),
5077              POSITION        =SIMP(statut='f',typ='TXM',into=("INIT","FIN","MILIEU") ),
5078              b_nume_init     =BLOC(condition = "NUME_INIT != None",
5079                NUME_FIN        =SIMP(statut='f',typ='I' ),
5080              ),
5081            ),
5082            b_env_sphere    =BLOC(condition = "OPTION == 'ENV_SPHERE'",
5083              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),),
5084              POINT           =SIMP(statut='f',typ='R',max=03),
5085              NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=01),
5086              RAYON           =SIMP(statut='o',typ='R' ),
5087              PRECISION       =SIMP(statut='f',typ='R' ),
5088              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5089            ),
5090            b_env_cylindre  =BLOC(condition = "OPTION == 'ENV_CYLINDRE'",
5091              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5092                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5093              POINT           =SIMP(statut='f',typ='R',max=03),
5094              NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=01),
5095              RAYON           =SIMP(statut='o',typ='R' ),
5096              ANGL_NAUT       =SIMP(statut='f',typ='R',max=03),
5097              VECT_NORMALE    =SIMP(statut='f',typ='R',max=03),
5098              PRECISION       =SIMP(statut='f',typ='R' ),
5099              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5100            ),
5101            b_env_plan      =BLOC(condition = "OPTION == 'PLAN'",
5102              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5103                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5104              POINT           =SIMP(statut='f',typ='R',max=03),
5105              NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=01),
5106              ANGL_NAUT       =SIMP(statut='f',typ='R',max=03),
5107              VECT_NORMALE    =SIMP(statut='f',typ='R',max=03),
5108              PRECISION       =SIMP(statut='f',typ='R' ),
5109              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5110            ),
5111            b_segm_droi_ordo=BLOC(condition = "OPTION == 'SEGM_DROI_ORDO'",
5112              regles=(UN_PARMI('NOEUD_ORIG','GROUP_NO_ORIG'),
5113                      UN_PARMI('NOEUD_EXTR','GROUP_NO_EXTR'),),
5114              NOEUD_ORIG      =SIMP(statut='f',typ=no),
5115              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno),
5116              NOEUD_EXTR      =SIMP(statut='f',typ=no),
5117              GROUP_NO_EXTR   =SIMP(statut='f',typ=grno),
5118              PRECISION       =SIMP(statut='f',typ='R' ),
5119              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5120            ),
5121            b_noeud_ordo    =BLOC(condition = "OPTION == 'NOEUD_ORDO'",
5122              regles=(UN_PARMI('NOEUD_ORIG','GROUP_NO_ORIG'),
5123                      UN_PARMI('NOEUD_EXTR','GROUP_NO_EXTR'),),
5124              NOEUD_ORIG      =SIMP(statut='f',typ=no),
5125              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno),
5126              NOEUD_EXTR      =SIMP(statut='f',typ=no),
5127              GROUP_NO_EXTR   =SIMP(statut='f',typ=grno),
5128              PRECISION       =SIMP(statut='f',typ='R' ),
5129              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5130            ),
5131          ),
5132          INFO            =SIMP(statut='f',typ='I',into=( 1 , 2 ) ),
5133 )  ;
5134 #& MODIF COMMANDE  DATE 03/10/2001   AUTEUR DURAND C.DURAND
5135 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5136 # ======================================================================
5137 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5138 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
5139 #              REDISTRIBUTION OF THIS FILE.
5140 # ======================================================================
5141 DEFI_INTE_SPEC=OPER(nom="DEFI_INTE_SPEC",op= 115,sd_prod=tabl_intsp,
5142                     docu="U4.36.02-e1",reentrant='n',
5143
5144          DIMENSION       =SIMP(statut='f',typ='I',defaut= 1 ),
5145
5146          PAR_FONCTION    =FACT(statut='f',min=1,max='**',
5147            NUME_ORDRE_I    =SIMP(statut='o',typ='I' ),
5148            NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
5149            FONCTION        =SIMP(statut='o',typ=fonction_c ),
5150          ),
5151          KANAI_TAJIMI    =FACT(statut='f',min=1,max='**',
5152            regles=(EXCLUS('VALE_R','VALE_C'),),
5153            NUME_ORDRE_I    =SIMP(statut='o',typ='I' ),
5154            NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
5155            FREQ_MIN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5156            FREQ_MAX        =SIMP(statut='f',typ='R',defaut= 100. ),
5157            PAS             =SIMP(statut='f',typ='R',defaut= 1. ),
5158            AMOR_REDUIT     =SIMP(statut='f',typ='R',defaut= 0.6 ),
5159            FREQ_MOY        =SIMP(statut='f',typ='R',defaut= 5. ),
5160            VALE_R          =SIMP(statut='f',typ='R' ),
5161            VALE_C          =SIMP(statut='f',typ='C' ),
5162            INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
5163            PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5164            PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5165          ),
5166          CONSTANT        =FACT(statut='f',min=1,max='**',
5167            regles=(EXCLUS('VALE_R','VALE_C'),),
5168            NUME_ORDRE_I    =SIMP(statut='o',typ='I' ),
5169            NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
5170            FREQ_MIN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5171            FREQ_MAX        =SIMP(statut='f',typ='R',defaut= 100. ),
5172            PAS             =SIMP(statut='f',typ='R',defaut= 1. ),
5173            VALE_R          =SIMP(statut='f',typ='R' ),
5174            VALE_C          =SIMP(statut='f',typ='C' ),
5175            INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
5176            PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5177            PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5178          ),
5179          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5180          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5181 )  ;
5182 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
5183 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5184 # ======================================================================
5185 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5186 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
5187 #              REDISTRIBUTION OF THIS FILE.
5188 # ======================================================================
5189 DEFI_INTERF_DYNA=OPER(nom="DEFI_INTERF_DYNA",op=  98,sd_prod=interf_dyna_clas,
5190                       docu="U4.64.01-e",reentrant='n',
5191          NUME_DDL        =SIMP(statut='o',typ=nume_ddl ),
5192          INTERFACE       =FACT(statut='o',min=01,max='**',
5193            regles=(ENSEMBLE('NOM','TYPE'),
5194 #  erreur doc U sur la condition qui suit
5195                    UN_PARMI('NOEUD','GROUP_NO'),),
5196            NOM             =SIMP(statut='f',typ='TXM' ),
5197            TYPE            =SIMP(statut='f',typ='TXM',into=("MNEAL","CRAIGB","CB_HARMO","AUCUN") ),
5198            NOEUD           =SIMP(statut='f',typ=no,max='**'),
5199            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5200            DDL_ACTIF       =SIMP(statut='f',typ='TXM',max='**'),
5201            MASQUE          =SIMP(statut='f',typ='TXM',max='**'),
5202          ),
5203          FREQ            =SIMP(statut='f',typ='R',defaut= 1.),
5204          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5205 )  ;
5206 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
5207 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5208 # ======================================================================
5209 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5210 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
5211 #              REDISTRIBUTION OF THIS FILE.
5212 # ======================================================================
5213 # RESPONSABLE VABHHTS J.PELLET
5214 DEFI_LIST_ENTI=OPER(nom="DEFI_LIST_ENTI",op=22,sd_prod=listis,
5215                     fr="Définition d une suite croissante d entiers",
5216                     docu="U4.34.02-f",reentrant='n',
5217          regles=(UN_PARMI('VALE','DEBUT'),
5218                  EXCLUS('VALE','INTERVALLE'),),
5219          VALE            =SIMP(statut='f',typ='I',max='**'),
5220          DEBUT           =SIMP(statut='f',typ='I'),
5221          INTERVALLE      =FACT(statut='f',min=01,max='**',
5222            regles=(UN_PARMI('NOMBRE','PAS'),),
5223            JUSQU_A         =SIMP(statut='o',typ='I'),
5224            NOMBRE          =SIMP(statut='f',typ='I',val_min=1,),
5225            PAS             =SIMP(statut='f',typ='I',val_min=1,),
5226          ),
5227          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
5228          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5229 )  ;
5230 #& MODIF COMMANDE  DATE 07/03/2001   AUTEUR VABHHTS J.PELLET
5231 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5232 # ======================================================================
5233 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5234 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
5235 #              REDISTRIBUTION OF THIS FILE.
5236 # ======================================================================
5237 # RESPONSABLE VABHHTS J.PELLET
5238 DEFI_LIST_REEL=OPER(nom="DEFI_LIST_REEL",op=24,sd_prod=listr8,
5239                     fr="Définition d une suite croissante de réels",
5240                     docu="U4.34.01-f",reentrant='n',
5241          regles=(UN_PARMI('VALE','DEBUT',),
5242                  EXCLUS('VALE','INTERVALLE'),
5243                  ENSEMBLE('DEBUT','INTERVALLE')),
5244          VALE            =SIMP(statut='f',typ='R',max='**'),
5245          DEBUT           =SIMP(statut='f',typ='R'),
5246          INTERVALLE      =FACT(statut='f',min=01,max='**',
5247            regles=(UN_PARMI('NOMBRE','PAS'),),
5248            JUSQU_A         =SIMP(statut='o',typ='R'),
5249            NOMBRE          =SIMP(statut='f',typ='I'),
5250            PAS             =SIMP(statut='f',typ='R'),
5251          ),
5252          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
5253          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5254 )  ;
5255 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
5256 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5257 # ======================================================================
5258 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5259 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
5260 #              REDISTRIBUTION OF THIS FILE.
5261 # ======================================================================
5262 # RESPONSABLE VABHHTS J.PELLET
5263 DEFI_MAILLAGE=OPER(nom="DEFI_MAILLAGE",op=  88,sd_prod=maillage,
5264                    fr="Définition d un nouveau maillage à partir de macro éléments",
5265                    docu="U4.23.01-e",reentrant='n',
5266          DEFI_MAILLE     =FACT(statut='o',min=01,max='**',
5267            MACR_ELEM_STAT  =SIMP(statut='o',typ=macr_elem_stat,max='**' ),
5268            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5269            TRAN            =SIMP(statut='f',typ='R',max=03),
5270            ANGL_NAUT       =SIMP(statut='f',typ='R',max=03),
5271            b_angl_naut     =BLOC(condition = "ANGL_NAUT != None",
5272              CENTRE          =SIMP(statut='f',typ='R',max=03),
5273            ),
5274          ),
5275          RECO_GLOBAL     =FACT(statut='f',min=01,max='**',
5276            regles=(UN_PARMI('TOUT','MAILLE'),),
5277            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5278            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5279            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5280            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
5281          ),
5282          RECO_MAILLE     =FACT(statut='f',min=01,max='**',
5283            MAILLE          =SIMP(statut='o',typ=ma,max='**'),
5284            GROUP_NO        =SIMP(statut='o',typ=grno,max='**'),
5285            OPTION          =SIMP(statut='f',typ='TXM',defaut="GEOMETRIQUE",into=("GEOMETRIQUE","NOEUD_A_NOEUD","INVERSE") ),
5286            geometrique     =BLOC(condition = "OPTION == 'GEOMETRIQUE'",
5287              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5288              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
5289            ),
5290          ),
5291          DEFI_NOEUD      =FACT(statut='f',min=01,max='**',
5292            regles=(UN_PARMI('TOUT','NOEUD_INIT'),),
5293            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",),
5294                                  fr="Renommage de tous les noeuds" ),
5295            NOEUD_INIT      =SIMP(statut='f',typ=no,
5296                                  fr="Renommage d un seul noeud"),
5297            b_tout          =BLOC(condition = "TOUT != None",
5298              PREFIXE         =SIMP(statut='f',typ='TXM' ),
5299              INDEX           =SIMP(statut='o',typ='I',max='**'),
5300            ),
5301            b_noeud_init    =BLOC(condition = "NOEUD_INIT != None",
5302              MAILLE          =SIMP(statut='o',typ=ma),
5303              NOEUD_FIN       =SIMP(statut='o',typ=no),
5304            ),
5305          ),
5306          DEFI_GROUP_NO   =FACT(statut='f',min=01,max='**',
5307            regles=(UN_PARMI('TOUT','MAILLE'),
5308                 AU_MOINS_UN('INDEX','GROUP_NO_FIN'),
5309                    ENSEMBLE('GROUP_NO_INIT','GROUP_NO_FIN'),),
5310 #  la regle ancien catalogue AU_MOINS_UN__: ( INDEX , GROUP_NO_FIN ) incoherente avec doc U
5311            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",),
5312                                  fr="Création de plusieurs groupes de noeuds" ),
5313            MAILLE          =SIMP(statut='f',typ=ma,
5314                                  fr="Création de plusieurs groupes de noeuds"),
5315            GROUP_NO_INIT   =SIMP(statut='f',typ=grno,
5316                                  fr="Création d un seul groupe de noeuds"),
5317            PREFIXE         =SIMP(statut='f',typ='TXM' ),
5318            INDEX           =SIMP(statut='f',typ='I',max='**'),
5319            GROUP_NO_FIN    =SIMP(statut='f',typ=grno),
5320          ),
5321 )  ;
5322 #& MODIF COMMANDE  DATE 30/01/2002   AUTEUR VABHHTS J.TESELET
5323 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5324 # ======================================================================
5325 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5326 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
5327 #              REDISTRIBUTION OF THIS FILE.
5328 # ======================================================================
5329 DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater,
5330                    fr="Définition des paramètres décrivant le comportement d un matériau",
5331                    docu="U4.43.01-f1",reentrant='n',
5332        regles=(EXCLUS('ELAS','ELAS_FO','ELAS_FLUI','ELAS_ISTR','ELAS_ISTR_FO','ELAS_ORTH',
5333                       'ELAS_ORTH_FO','ELAS_COQUE','ELAS_COQUE_FO',
5334                       'SURF_ETAT_SATU','CAM_CLAY_THM','SURF_ETAT_NSAT'),
5335                EXCLUS('THER','THER_FO','THER_ORTH','THER_NL'),
5336                EXCLUS('ECRO_LINE','ECRO_LINE_FO'),
5337                EXCLUS('TAHERI','TAHERI_FO'),
5338                EXCLUS('ROUSSELIER','ROUSSELIER_FO'),
5339                PRESENT_PRESENT('ROUSSELIER','TRACTION'),
5340                PRESENT_PRESENT('ROUSSELIER_FO','TRACTION'),
5341                EXCLUS('CIN1_CHAB','CIN1_CHAB_FO'),
5342                EXCLUS('CIN2_CHAB','CIN2_CHAB_FO'),
5343                EXCLUS('VISCOCHAB','VISCOCHAB_FO'),
5344                EXCLUS('POLY_CFC','POLY_CFC_FO'),
5345                EXCLUS('LEMAITRE','LEMAITRE_FO','ZIRC_CYRA2','ZIRC_EPRI'),
5346                EXCLUS('OHNO','OHNO_FO'),
5347                EXCLUS('LMARC','LMARC_FO'),
5348                EXCLUS('VMIS_POUTRE','VMIS_POUTRE_FO'),
5349                EXCLUS('VENDOCHAB','VENDOCHAB_FO'),
5350                PRESENT_PRESENT('BPEL_BETON','ELAS'),
5351                PRESENT_PRESENT('BPEL_ACIER','ELAS'),
5352                EXCLUS('RCCM','RCCM_FO'),
5353                EXCLUS('WEIBULL','WEIBULL_FO'),),
5354 #
5355 # comportement élastique
5356 #
5357            ELAS            =FACT(statut='f',min=0,max=1,
5358              E               =SIMP(statut='o',typ='R',val_min=0.E+0),
5359              NU              =SIMP(statut='o',typ='R',val_min=-1.E+0,val_max=0.5E+0),
5360              RHO             =SIMP(statut='f',typ='R'),
5361              ALPHA           =SIMP(statut='f',typ='R'),
5362              AMOR_ALPHA      =SIMP(statut='f',typ='R'),
5363              AMOR_BETA       =SIMP(statut='f',typ='R'),
5364              AMOR_HYST       =SIMP(statut='f',typ='R'),
5365            ),
5366            ELAS_FO         =FACT(statut='f',min=0,max=1,
5367              E               =SIMP(statut='o',typ=fonction),
5368              NU              =SIMP(statut='o',typ=fonction),
5369              RHO             =SIMP(statut='f',typ='R'),
5370              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
5371              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.),
5372              ALPHA           =SIMP(statut='f',typ=fonction),
5373              AMOR_ALPHA      =SIMP(statut='f',typ=fonction),
5374              AMOR_BETA       =SIMP(statut='f',typ=fonction),
5375              AMOR_HYST       =SIMP(statut='f',typ=fonction),
5376              K_DESSIC        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5377              B_ENDOGE        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5378              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
5379              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="INST",into=("TEMP","INST",) ),
5380              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
5381              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
5382            ),
5383            ELAS_FLUI       =FACT(statut='f',min=0,max=1,
5384              E               =SIMP(statut='o',typ='R'),
5385              NU              =SIMP(statut='o',typ='R'),
5386              RHO             =SIMP(statut='o',typ='R'),
5387              PROF_RHO_F_INT  =SIMP(statut='o',typ=fonction),
5388              PROF_RHO_F_EXT  =SIMP(statut='o',typ=fonction),
5389              COEF_MASS_AJOU  =SIMP(statut='o',typ=fonction),
5390              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="ABSC",into=("ABSC",) ),
5391            ),
5392            ELAS_ISTR       =FACT(statut='f',min=0,max=1,
5393              E_L             =SIMP(statut='o',typ='R'),
5394              E_N             =SIMP(statut='o',typ='R'),
5395              NU_LT           =SIMP(statut='o',typ='R'),
5396              NU_LN           =SIMP(statut='o',typ='R'),
5397              G_LN            =SIMP(statut='o',typ='R'),
5398              RHO             =SIMP(statut='f',typ='R'),
5399              ALPHA_L         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5400              ALPHA_N         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5401            ),
5402            ELAS_ISTR_FO    =FACT(statut='f',min=0,max=1,
5403              E_L             =SIMP(statut='o',typ=fonction),
5404              E_N             =SIMP(statut='o',typ=fonction),
5405              NU_LT           =SIMP(statut='o',typ=fonction),
5406              NU_LN           =SIMP(statut='o',typ=fonction),
5407              G_LN            =SIMP(statut='o',typ=fonction),
5408              RHO             =SIMP(statut='f',typ='R'),
5409              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
5410              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.),
5411              ALPHA_L         =SIMP(statut='f',typ=fonction),
5412              ALPHA_N         =SIMP(statut='f',typ=fonction),
5413              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST")),
5414            ),
5415            ELAS_ORTH       =FACT(statut='f',min=0,max=1,
5416              E_L             =SIMP(statut='o',typ='R'),
5417              E_T             =SIMP(statut='o',typ='R'),
5418              E_N             =SIMP(statut='f',typ='R'),
5419              NU_LT           =SIMP(statut='o',typ='R'),
5420              NU_LN           =SIMP(statut='f',typ='R'),
5421              NU_TN           =SIMP(statut='f',typ='R'),
5422              G_LT            =SIMP(statut='o',typ='R'),
5423              G_LN            =SIMP(statut='f',typ='R'),
5424              G_TN            =SIMP(statut='f',typ='R'),
5425              RHO             =SIMP(statut='f',typ='R'),
5426              ALPHA_L         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5427              ALPHA_T         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5428              ALPHA_N         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5429              XT              =SIMP(statut='f',typ='R',defaut= 1. ),
5430              XC              =SIMP(statut='f',typ='R',defaut= 1. ),
5431              YT              =SIMP(statut='f',typ='R',defaut= 1. ),
5432              YC              =SIMP(statut='f',typ='R',defaut= 1. ),
5433              S_LT            =SIMP(statut='f',typ='R',defaut= 1. ),
5434            ),
5435            ELAS_ORTH_FO    =FACT(statut='f',min=0,max=1,
5436              E_L             =SIMP(statut='o',typ=fonction),
5437              E_T             =SIMP(statut='o',typ=fonction),
5438              E_N             =SIMP(statut='o',typ=fonction),
5439              NU_LT           =SIMP(statut='o',typ=fonction),
5440              NU_LN           =SIMP(statut='o',typ=fonction),
5441              NU_TN           =SIMP(statut='o',typ=fonction),
5442              G_LT            =SIMP(statut='o',typ=fonction),
5443              G_LN            =SIMP(statut='o',typ=fonction),
5444              G_TN            =SIMP(statut='o',typ=fonction),
5445              RHO             =SIMP(statut='f',typ='R'),
5446              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
5447              PRECISION       =SIMP(statut='f',typ='R',defaut= 1. ),
5448              ALPHA_L         =SIMP(statut='f',typ=fonction),
5449              ALPHA_T         =SIMP(statut='f',typ=fonction),
5450              ALPHA_N         =SIMP(statut='f',typ=fonction),
5451              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
5452            ),
5453            ELAS_THM        =FACT(statut='f',min=0,max=1,
5454              RHO_S           =SIMP(statut='o',typ='R'),
5455              UN_SUR_KS       =SIMP(statut='o',typ='R'),
5456              E               =SIMP(statut='f',typ='R'),
5457              KB              =SIMP(statut='f',typ='R'),
5458              D_KB_T          =SIMP(statut='f',typ='R'),
5459              ALPHA_S         =SIMP(statut='f',typ='R'),
5460              ALPHA_D         =SIMP(statut='f',typ='R'),
5461            ),
5462            SURF_ETAT_SATU  =FACT(statut='f',min=0,max=1,
5463              E_CHAR          =SIMP(statut='o',typ='R'),
5464              E_DECHAR        =SIMP(statut='o',typ='R'),
5465              XN              =SIMP(statut='f',typ='R'),
5466              RF              =SIMP(statut='f',typ='R'),
5467              EV_KB           =SIMP(statut='f',typ='R'),
5468              EV_XM           =SIMP(statut='f',typ='R'),
5469              D_E_T           =SIMP(statut='f',typ='R'),
5470              ALPHA0          =SIMP(statut='f',typ='R'),
5471              ALPHA1          =SIMP(statut='f',typ='R'),
5472              ALPHA2          =SIMP(statut='f',typ='R'),
5473              ALPHA3          =SIMP(statut='f',typ='R'),
5474              ALPHA_S         =SIMP(statut='f',typ='R'),
5475              ANG_FRT         =SIMP(statut='o',typ='R'),
5476              COHE            =SIMP(statut='o',typ='R'),
5477              RESI_TRAC       =SIMP(statut='o',typ='R'),
5478            ),
5479            CAM_CLAY_THM    =FACT(statut='f',min=0,max=1,
5480              NU              =SIMP(statut='f',typ='R'),
5481              LAMBDA          =SIMP(statut='o',typ='R'),
5482              KAPA            =SIMP(statut='o',typ='R'),
5483              M               =SIMP(statut='f',typ='R'),
5484              PRES_CRIT       =SIMP(statut='f',typ='R'),
5485              GAMA            =SIMP(statut='o',typ='R'),
5486              A0_PC           =SIMP(statut='o',typ='R'),
5487              A1_PC           =SIMP(statut='f',typ='R'),
5488              A2_PC           =SIMP(statut='f',typ='R'),
5489              ALPHA0_PC       =SIMP(statut='f',typ='R'),
5490              ALPHA1_PC       =SIMP(statut='f',typ='R'),
5491              ALPHA2_PC       =SIMP(statut='f',typ='R'),
5492              ALPHA3_PC       =SIMP(statut='f',typ='R'),
5493              ALPHA_S         =SIMP(statut='f',typ='R'),
5494                          ),
5495            SURF_ETAT_NSAT  =FACT(statut='f',min=0,max=1,
5496              E_CHAR          =SIMP(statut='o',typ='R'),
5497              E_DECHAR        =SIMP(statut='o',typ='R'),
5498              XN              =SIMP(statut='f',typ='R'),
5499              RF              =SIMP(statut='f',typ='R'),
5500              EV_KB           =SIMP(statut='f',typ='R'),
5501              EV_XM           =SIMP(statut='f',typ='R'),
5502              EV_A            =SIMP(statut='f',typ='R'),
5503              EV_B            =SIMP(statut='f',typ='R'),
5504              EV_CT           =SIMP(statut='f',typ='R'),
5505              EV_SIGB         =SIMP(statut='f',typ='R'),
5506              D_E_T           =SIMP(statut='f',typ='R'),
5507              D_E_SUCC        =SIMP(statut='f',typ='R'),
5508              ANG_FRT         =SIMP(statut='o',typ='R'),
5509              COHE            =SIMP(statut='o',typ='R'),
5510              D_COEH_SUCC     =SIMP(statut='f',typ='R'),
5511              ANG_FRT_ULT     =SIMP(statut='f',typ='R'),
5512              SUCC_ULTM       =SIMP(statut='f',typ='R'),
5513              RESI_TRAC       =SIMP(statut='f',typ='R'),
5514              A_SURF_SATU     =SIMP(statut='f',typ='R'),
5515              B_SURF_SATU     =SIMP(statut='f',typ='R'),
5516              C_SURF_SATU     =SIMP(statut='f',typ='R'),
5517              D_SURF_SATU     =SIMP(statut='f',typ='R'),
5518            ),
5519            ELAS_COQUE      =FACT(statut='f',min=0,max=1,
5520              regles=(EXCLUS('MEMB_L','M_LLLL',),
5521                      PRESENT_PRESENT('MEMB_L','MEMB_LT', 'MEMB_T','MEMB_G_LT','FLEX_L','FLEX_LT',
5522                                      'FLEX_T','FLEX_G_LT','CISA_L','CISA_T',),
5523                      PRESENT_PRESENT('M_LLLL','M_LLTT','M_LLLT','M_TTTT','M_TTLT','M_LTLT','F_LLLL',
5524                                      'F_LLTT','F_LLLT','F_TTTT','F_TTLT','F_LTLT','MF_LLLL',
5525                                      'MF_LLTT','MF_LLLT','MF_TTTT','MF_TTLT','MF_LTLT','MC_LLLZ',
5526                                      'MC_LLTZ','MC_TTLZ','MC_TTTZ','MC_LTLZ','MC_LTTZ','FC_LLLZ',
5527                                      'FC_LLTZ','FC_TTLZ','FC_TTTZ','FC_LTLZ','FC_LTTZ','C_LZLZ',
5528                                      'C_LZTZ','C_TZTZ'),),
5529              MEMB_L          =SIMP(statut='f',typ='R'),
5530              MEMB_LT         =SIMP(statut='f',typ='R'),
5531              MEMB_T          =SIMP(statut='f',typ='R'),
5532              MEMB_G_LT       =SIMP(statut='f',typ='R'),
5533              FLEX_L          =SIMP(statut='f',typ='R'),
5534              FLEX_LT         =SIMP(statut='f',typ='R'),
5535              FLEX_T          =SIMP(statut='f',typ='R'),
5536              FLEX_G_LT       =SIMP(statut='f',typ='R'),
5537              CISA_L          =SIMP(statut='f',typ='R'),
5538              CISA_T          =SIMP(statut='f',typ='R'),
5539              M_LLLL          =SIMP(statut='f',typ='R'),
5540              M_LLTT          =SIMP(statut='f',typ='R'),
5541              M_LLLT          =SIMP(statut='f',typ='R'),
5542              M_TTTT          =SIMP(statut='f',typ='R'),
5543              M_TTLT          =SIMP(statut='f',typ='R'),
5544              M_LTLT          =SIMP(statut='f',typ='R'),
5545              F_LLLL          =SIMP(statut='f',typ='R'),
5546              F_LLTT          =SIMP(statut='f',typ='R'),
5547              F_LLLT          =SIMP(statut='f',typ='R'),
5548              F_TTTT          =SIMP(statut='f',typ='R'),
5549              F_TTLT          =SIMP(statut='f',typ='R'),
5550              F_LTLT          =SIMP(statut='f',typ='R'),
5551              MF_LLLL         =SIMP(statut='f',typ='R'),
5552              MF_LLTT         =SIMP(statut='f',typ='R'),
5553              MF_LLLT         =SIMP(statut='f',typ='R'),
5554              MF_TTTT         =SIMP(statut='f',typ='R'),
5555              MF_TTLT         =SIMP(statut='f',typ='R'),
5556              MF_LTLT         =SIMP(statut='f',typ='R'),
5557              MC_LLLZ         =SIMP(statut='f',typ='R'),
5558              MC_LLTZ         =SIMP(statut='f',typ='R'),
5559              MC_TTLZ         =SIMP(statut='f',typ='R'),
5560              MC_TTTZ         =SIMP(statut='f',typ='R'),
5561              MC_LTLZ         =SIMP(statut='f',typ='R'),
5562              MC_LTTZ         =SIMP(statut='f',typ='R'),
5563              FC_LLLZ         =SIMP(statut='f',typ='R'),
5564              FC_LLTZ         =SIMP(statut='f',typ='R'),
5565              FC_TTLZ         =SIMP(statut='f',typ='R'),
5566              FC_TTTZ         =SIMP(statut='f',typ='R'),
5567              FC_LTLZ         =SIMP(statut='f',typ='R'),
5568              FC_LTTZ         =SIMP(statut='f',typ='R'),
5569              C_LZLZ          =SIMP(statut='f',typ='R'),
5570              C_LZTZ          =SIMP(statut='f',typ='R'),
5571              C_TZTZ          =SIMP(statut='f',typ='R'),
5572              RHO             =SIMP(statut='f',typ='R'),
5573              ALPHA           =SIMP(statut='f',typ='R'),
5574            ),
5575            ELAS_COQUE_FO   =FACT(statut='f',min=0,max=1,
5576              regles=(EXCLUS('MEMB_L','M_LLLL',),
5577                      PRESENT_PRESENT('MEMB_L','MEMB_LT','MEMB_T','MEMB_G_LT','FLEX_L','FLEX_LT',
5578                                      'FLEX_T','FLEX_G_LT','CISA_L','CISA_T',),
5579                      PRESENT_PRESENT('M_LLLL','M_LLTT','M_LLLT','M_TTTT','M_TTLT','M_LTLT','F_LLLL',
5580                                      'F_LLTT','F_LLLT','F_TTTT','F_TTLT','F_LTLT','MF_LLLL','MF_LLTT',
5581                                      'MF_LLLT','MF_TTTT','MF_TTLT','MF_LTLT','MC_LLLZ','MC_LLTZ',
5582                                      'MC_TTLZ','MC_TTTZ','MC_LTLZ','MC_LTTZ','FC_LLLZ','FC_LLTZ',
5583                                      'FC_TTLZ','FC_TTTZ','FC_LTLZ','FC_LTTZ','C_LZLZ','C_LZTZ','C_TZTZ'),),
5584              MEMB_L          =SIMP(statut='f',typ=fonction),
5585              MEMB_LT         =SIMP(statut='f',typ=fonction),
5586              MEMB_T          =SIMP(statut='f',typ=fonction),
5587              MEMB_G_LT       =SIMP(statut='f',typ=fonction),
5588              FLEX_L          =SIMP(statut='f',typ=fonction),
5589              FLEX_LT         =SIMP(statut='f',typ=fonction),
5590              FLEX_T          =SIMP(statut='f',typ=fonction),
5591              FLEX_G_LT       =SIMP(statut='f',typ=fonction),
5592              CISA_L          =SIMP(statut='f',typ=fonction),
5593              CISA_T          =SIMP(statut='f',typ=fonction),
5594              M_LLLL          =SIMP(statut='f',typ=fonction),
5595              M_LLTT          =SIMP(statut='f',typ=fonction),
5596              M_LLLT          =SIMP(statut='f',typ=fonction),
5597              M_TTTT          =SIMP(statut='f',typ=fonction),
5598              M_TTLT          =SIMP(statut='f',typ=fonction),
5599              M_LTLT          =SIMP(statut='f',typ=fonction),
5600              F_LLLL          =SIMP(statut='f',typ=fonction),
5601              F_LLTT          =SIMP(statut='f',typ=fonction),
5602              F_LLLT          =SIMP(statut='f',typ=fonction),
5603              F_TTTT          =SIMP(statut='f',typ=fonction),
5604              F_TTLT          =SIMP(statut='f',typ=fonction),
5605              F_LTLT          =SIMP(statut='f',typ=fonction),
5606              MF_LLLL         =SIMP(statut='f',typ=fonction),
5607              MF_LLTT         =SIMP(statut='f',typ=fonction),
5608              MF_LLLT         =SIMP(statut='f',typ=fonction),
5609              MF_TTTT         =SIMP(statut='f',typ=fonction),
5610              MF_TTLT         =SIMP(statut='f',typ=fonction),
5611              MF_LTLT         =SIMP(statut='f',typ=fonction),
5612              MC_LLLZ         =SIMP(statut='f',typ=fonction),
5613              MC_LLTZ         =SIMP(statut='f',typ=fonction),
5614              MC_TTLZ         =SIMP(statut='f',typ=fonction),
5615              MC_TTTZ         =SIMP(statut='f',typ=fonction),
5616              MC_LTLZ         =SIMP(statut='f',typ=fonction),
5617              MC_LTTZ         =SIMP(statut='f',typ=fonction),
5618              FC_LLLZ         =SIMP(statut='f',typ=fonction),
5619              FC_LLTZ         =SIMP(statut='f',typ=fonction),
5620              FC_TTLZ         =SIMP(statut='f',typ=fonction),
5621              FC_TTTZ         =SIMP(statut='f',typ=fonction),
5622              FC_LTLZ         =SIMP(statut='f',typ=fonction),
5623              FC_LTTZ         =SIMP(statut='f',typ=fonction),
5624              C_LZLZ          =SIMP(statut='f',typ=fonction),
5625              C_LZTZ          =SIMP(statut='f',typ=fonction),
5626              C_TZTZ          =SIMP(statut='f',typ=fonction),
5627              RHO             =SIMP(statut='f',typ='R'),
5628              ALPHA           =SIMP(statut='f',typ=fonction),
5629              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST") ),
5630            ),
5631            APPUI_ELAS      =FACT(statut='f',min=0,max=1,
5632              E_N             =SIMP(statut='o',typ='R'),
5633              E_TAN           =SIMP(statut='f',typ='R',defaut= 0.E+0),
5634            ),
5635            CABLE           =FACT(statut='f',min=0,max=1,
5636              E               =SIMP(statut='o',typ='R'),
5637              EC_SUR_E        =SIMP(statut='f',typ='R',defaut= 1.E-4 ),
5638              RHO             =SIMP(statut='f',typ='R'),
5639              ALPHA           =SIMP(statut='f',typ='R'),
5640              AMOR_ALPHA      =SIMP(statut='f',typ='R'),
5641              AMOR_BETA       =SIMP(statut='f',typ='R'),
5642            ),
5643 #
5644 # comportement mécanique non linéaire
5645 #
5646            TRACTION        =FACT(statut='f',min=0,max=1,
5647              SIGM            =SIMP(statut='o',typ=fonction),
5648              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",) ),
5649              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5650              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
5651              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
5652            ),
5653            ECRO_LINE       =FACT(statut='f',min=0,max=1,
5654              D_SIGM_EPSI     =SIMP(statut='o',typ='R'),
5655              SY              =SIMP(statut='o',typ='R'),
5656            ),
5657            ECRO_LINE_FO    =FACT(statut='f',min=0,max=1,
5658              D_SIGM_EPSI     =SIMP(statut='o',typ=fonction),
5659              SY              =SIMP(statut='o',typ=fonction),
5660              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5661            ),
5662            PRAGER          =FACT(statut='f',min=0,max=1,
5663              C               =SIMP(statut='o',typ='R'),
5664            ),
5665            PRAGER_FO       =FACT(statut='f',min=0,max=1,
5666              C               =SIMP(statut='o',typ=fonction),
5667              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5668            ),
5669            ECRO_FLEJOU     =FACT(statut='f',min=0,max=1,
5670              EP              =SIMP(statut='o',typ='R'),
5671              SY              =SIMP(statut='o',typ='R'),
5672              SU              =SIMP(statut='o',typ='R'),
5673              PUISS           =SIMP(statut='o',typ='R'),
5674            ),
5675            TAHERI          =FACT(statut='f',min=0,max=1,
5676              R_0             =SIMP(statut='o',typ='R'),
5677              ALPHA           =SIMP(statut='o',typ='R'),
5678              M               =SIMP(statut='o',typ='R'),
5679              A               =SIMP(statut='o',typ='R'),
5680              B               =SIMP(statut='o',typ='R'),
5681              C1              =SIMP(statut='o',typ='R'),
5682              C_INF           =SIMP(statut='o',typ='R'),
5683              S               =SIMP(statut='o',typ='R'),
5684            ),
5685            TAHERI_FO       =FACT(statut='f',min=0,max=1,
5686              R_0             =SIMP(statut='o',typ=fonction),
5687              ALPHA           =SIMP(statut='o',typ=fonction),
5688              M               =SIMP(statut='o',typ=fonction),
5689              A               =SIMP(statut='o',typ=fonction),
5690              B               =SIMP(statut='o',typ=fonction),
5691              C1              =SIMP(statut='o',typ=fonction),
5692              C_INF           =SIMP(statut='o',typ=fonction),
5693              S               =SIMP(statut='o',typ=fonction),
5694              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5695            ),
5696            ROUSSELIER      =FACT(statut='f',min=0,max=1,
5697              D               =SIMP(statut='o',typ='R'),
5698              SIGM_1          =SIMP(statut='o',typ='R'),
5699              PORO_INIT       =SIMP(statut='o',typ='R'),
5700              PORO_CRIT       =SIMP(statut='f',typ='R',defaut= 1. ),
5701              PORO_ACCE       =SIMP(statut='f',typ='R',defaut= 1. ),
5702              PORO_LIMI       =SIMP(statut='f',typ='R',defaut= 0.999 ),
5703              D_SIGM_EPSI_NORM=SIMP(statut='f',typ='R',defaut= 1. ),
5704              AN              =SIMP(statut='f',typ='R',defaut= 0. ),
5705            ),
5706            ROUSSELIER_FO   =FACT(statut='f',min=0,max=1,
5707              D               =SIMP(statut='o',typ=fonction),
5708              SIGM_1          =SIMP(statut='o',typ=fonction),
5709              PORO_INIT       =SIMP(statut='o',typ=fonction),
5710              PORO_CRIT       =SIMP(statut='f',typ='R',defaut= 1. ),
5711              PORO_ACCE       =SIMP(statut='f',typ='R',defaut= 1. ),
5712              PORO_LIMI       =SIMP(statut='f',typ='R',defaut= 0.999 ),
5713              D_SIGM_EPSI_NORM=SIMP(statut='f',typ='R',defaut= 1. ),
5714              AN              =SIMP(statut='f',typ='R',defaut= 0. ),
5715              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5716            ),
5717            ROUSS_VISC      =FACT(statut='f',min=0,max=1,
5718              SIGM_0          =SIMP(statut='o',typ='R'),
5719              EPSI_0          =SIMP(statut='o',typ='R'),
5720              M               =SIMP(statut='o',typ='R'),
5721            ),
5722            CHABOCHE        =FACT(statut='f',min=0,max=1,
5723              R_I             =SIMP(statut='o',typ='R'),
5724              R_0             =SIMP(statut='o',typ='R'),
5725              B               =SIMP(statut='o',typ='R'),
5726              K               =SIMP(statut='o',typ='R'),
5727              W               =SIMP(statut='o',typ='R'),
5728              A1              =SIMP(statut='o',typ='R'),
5729              A2              =SIMP(statut='o',typ='R'),
5730              C1              =SIMP(statut='o',typ='R'),
5731              C2              =SIMP(statut='o',typ='R'),
5732            ),
5733            CIN1_CHAB  =FACT(statut='f',min=0,max=1,
5734              R_0             =SIMP(statut='o',typ='R'),
5735              R_I             =SIMP(statut='f',typ='R'),
5736              B               =SIMP(statut='f',typ='R',defaut= 0.0E+0),
5737              C_I             =SIMP(statut='o',typ='R'),
5738              K               =SIMP(statut='f',typ='R',defaut= 1.0E+0),
5739              W               =SIMP(statut='f',typ='R',defaut= 0.0E+0),
5740              G_0             =SIMP(statut='o',typ='R'),
5741              A_I             =SIMP(statut='f',typ='R',defaut= 1.0E+0),
5742            ),
5743            CIN1_CHAB_FO  =FACT(statut='f',min=0,max=1,
5744              R_0             =SIMP(statut='o',typ=fonction),
5745              R_I             =SIMP(statut='o',typ=fonction),
5746              B               =SIMP(statut='o',typ=fonction),
5747              C_I             =SIMP(statut='o',typ=fonction),
5748              K               =SIMP(statut='o',typ=fonction),
5749              W               =SIMP(statut='o',typ=fonction),
5750              G_0             =SIMP(statut='o',typ=fonction),
5751              A_I             =SIMP(statut='o',typ=fonction),
5752              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
5753            ),
5754            CIN2_CHAB  =FACT(statut='f',min=0,max=1,
5755              R_0             =SIMP(statut='o',typ='R'),
5756              R_I             =SIMP(statut='f',typ='R'),
5757              B               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5758              C1_I            =SIMP(statut='o',typ='R'),
5759              C2_I            =SIMP(statut='o',typ='R'),
5760              K               =SIMP(statut='f',typ='R',defaut= 1.),
5761              W               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5762              G1_0            =SIMP(statut='o',typ='R'),
5763              G2_0            =SIMP(statut='o',typ='R'),
5764              A_I             =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
5765            ),
5766            CIN2_CHAB_FO  =FACT(statut='f',min=0,max=1,
5767              R_0             =SIMP(statut='o',typ=fonction),
5768              R_I             =SIMP(statut='o',typ=fonction),
5769              B               =SIMP(statut='o',typ=fonction),
5770              C1_I            =SIMP(statut='o',typ=fonction),
5771              C2_I            =SIMP(statut='o',typ=fonction),
5772              K               =SIMP(statut='o',typ=fonction),
5773              W               =SIMP(statut='o',typ=fonction),
5774              G1_0            =SIMP(statut='o',typ=fonction),
5775              G2_0            =SIMP(statut='o',typ=fonction),
5776              A_I             =SIMP(statut='o',typ=fonction),
5777              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5778            ),
5779            VISCOCHAB       =FACT(statut='f',min=0,max=1,
5780              K_0             =SIMP(statut='o',typ='R'),
5781              A_K             =SIMP(statut='o',typ='R'),
5782              A_R             =SIMP(statut='o',typ='R'),
5783              K               =SIMP(statut='o',typ='R'),
5784              N               =SIMP(statut='o',typ='R'),
5785              ALP             =SIMP(statut='o',typ='R'),
5786              B               =SIMP(statut='o',typ='R'),
5787              M_R             =SIMP(statut='o',typ='R'),
5788              G_R             =SIMP(statut='o',typ='R'),
5789              MU              =SIMP(statut='o',typ='R'),
5790              Q_M             =SIMP(statut='o',typ='R'),
5791              Q_0             =SIMP(statut='o',typ='R'),
5792              QR_0            =SIMP(statut='o',typ='R'),
5793              ETA             =SIMP(statut='o',typ='R'),
5794              C1              =SIMP(statut='o',typ='R'),
5795              M_1             =SIMP(statut='o',typ='R'),
5796              D1              =SIMP(statut='o',typ='R'),
5797              G_X1            =SIMP(statut='o',typ='R'),
5798              G1_0            =SIMP(statut='o',typ='R'),
5799              C2              =SIMP(statut='o',typ='R'),
5800              M_2             =SIMP(statut='o',typ='R'),
5801              D2              =SIMP(statut='o',typ='R'),
5802              G_X2            =SIMP(statut='o',typ='R'),
5803              G2_0            =SIMP(statut='o',typ='R'),
5804              A_I             =SIMP(statut='o',typ='R'),
5805            ),
5806            VISCOCHAB_FO    =FACT(statut='f',min=0,max=1,
5807              K_0             =SIMP(statut='o',typ=fonction),
5808              A_K             =SIMP(statut='o',typ=fonction),
5809              A_R             =SIMP(statut='o',typ=fonction),
5810              K               =SIMP(statut='o',typ=fonction),
5811              N               =SIMP(statut='o',typ=fonction),
5812              ALP             =SIMP(statut='o',typ=fonction),
5813              B               =SIMP(statut='o',typ=fonction),
5814              M_R             =SIMP(statut='o',typ=fonction),
5815              G_R             =SIMP(statut='o',typ=fonction),
5816              MU              =SIMP(statut='o',typ=fonction),
5817              Q_M             =SIMP(statut='o',typ=fonction),
5818              Q_0             =SIMP(statut='o',typ=fonction),
5819              QR_0            =SIMP(statut='o',typ=fonction),
5820              ETA             =SIMP(statut='o',typ=fonction),
5821              C1              =SIMP(statut='o',typ=fonction),
5822              M_1             =SIMP(statut='o',typ=fonction),
5823              D1              =SIMP(statut='o',typ=fonction),
5824              G_X1            =SIMP(statut='o',typ=fonction),
5825              G1_0            =SIMP(statut='o',typ=fonction),
5826              C2              =SIMP(statut='o',typ=fonction),
5827              M_2             =SIMP(statut='o',typ=fonction),
5828              D2              =SIMP(statut='o',typ=fonction),
5829              G_X2            =SIMP(statut='o',typ=fonction),
5830              G2_0            =SIMP(statut='o',typ=fonction),
5831              A_I             =SIMP(statut='o',typ=fonction),
5832              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5833            ),
5834            POLY_CFC        =FACT(statut='f',min=0,max=1,
5835              TEXTURE         =SIMP(statut='o',typ=(tabl_texture) ),
5836              DL              =SIMP(statut='f',typ='R'),
5837              DA              =SIMP(statut='f',typ='R'),
5838              N               =SIMP(statut='o',typ='R'),
5839              K               =SIMP(statut='o',typ='R'),
5840              TAU_0           =SIMP(statut='o',typ='R'),
5841              Q1              =SIMP(statut='o',typ='R'),
5842              B1              =SIMP(statut='o',typ='R'),
5843              HL              =SIMP(statut='o',typ='R'),
5844              Q2              =SIMP(statut='o',typ='R'),
5845              B2              =SIMP(statut='o',typ='R'),
5846              C1              =SIMP(statut='o',typ='R'),
5847              D1              =SIMP(statut='o',typ='R'),
5848              C2              =SIMP(statut='o',typ='R'),
5849            ),
5850            POLY_CFC_FO     =FACT(statut='f',min=0,max=1,
5851              TEXTURE         =SIMP(statut='o',typ=(tabl_texture) ),
5852              DL              =SIMP(statut='o',typ=fonction),
5853              DA              =SIMP(statut='o',typ=fonction),
5854              N               =SIMP(statut='o',typ=fonction),
5855              K               =SIMP(statut='o',typ=fonction),
5856              TAU_0           =SIMP(statut='o',typ=fonction),
5857              Q1              =SIMP(statut='o',typ=fonction),
5858              B1              =SIMP(statut='o',typ=fonction),
5859              HL              =SIMP(statut='o',typ=fonction),
5860              Q2              =SIMP(statut='o',typ=fonction),
5861              B2              =SIMP(statut='o',typ=fonction),
5862              C1              =SIMP(statut='o',typ=fonction),
5863              D1              =SIMP(statut='o',typ=fonction),
5864              C2              =SIMP(statut='o',typ=fonction),
5865              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5866            ),
5867            NORTON_HOFF     =FACT(statut='f',min=0,max=1,
5868              SY              =SIMP(statut='o',typ='R'),
5869            ),
5870            LEMAITRE        =FACT(statut='f',min=0,max=1,
5871              N               =SIMP(statut='o',typ='R'),
5872              UN_SUR_K        =SIMP(statut='o',typ='R'),
5873              UN_SUR_M        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5874            ),
5875            ZIRC_CYRA2      =FACT(statut='f',min=0,max=1,
5876              EPSI_FAB        =SIMP(statut='o',typ=fonction),
5877              TEMP_RECUIT     =SIMP(statut='o',typ=fonction),
5878              FLUX_PHI        =SIMP(statut='o',typ=fonction),
5879              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
5880            ),
5881            ZIRC_EPRI       =FACT(statut='f',min=0,max=1,
5882              FLUX_PHI        =SIMP(statut='o',typ='R'),
5883              R_P             =SIMP(statut='o',typ='R'),
5884              THETA_MAX       =SIMP(statut='o',typ='R'),
5885            ),
5886            LEMAITRE_FO     =FACT(statut='f',min=0,max=1,
5887              N               =SIMP(statut='o',typ=fonction),
5888              UN_SUR_K        =SIMP(statut='o',typ=fonction),
5889              UN_SUR_M        =SIMP(statut='f',typ=fonction),
5890              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5891            ),
5892            GRAN_IRRA       =FACT(statut='f',min=0,max=1,
5893              A               =SIMP(statut='f',typ='R',defaut= 0.E+0),
5894              B               =SIMP(statut='f',typ='R',defaut= 0.E+0),
5895              S               =SIMP(statut='f',typ='R',defaut= 0.E+0),
5896            ),
5897            FLU_IRRA       =FACT(statut='f',min=0,max=1,
5898              QSR_K           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5899              BETA            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5900              PHI_ZERO        =SIMP(statut='f',typ='R',defaut= 1.E+20),
5901              L               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5902            ),
5903            OHNO            =FACT(statut='f',min=0,max=1,
5904              R_I             =SIMP(statut='o',typ='R'),
5905              R_0             =SIMP(statut='o',typ='R'),
5906              B               =SIMP(statut='o',typ='R'),
5907              PHI             =SIMP(statut='o',typ='R'),
5908              A1              =SIMP(statut='o',typ='R'),
5909              A2              =SIMP(statut='o',typ='R'),
5910              A3              =SIMP(statut='o',typ='R'),
5911              A4              =SIMP(statut='o',typ='R'),
5912              A5              =SIMP(statut='o',typ='R'),
5913              GAMMA1          =SIMP(statut='o',typ='R'),
5914              GAMMA2          =SIMP(statut='o',typ='R'),
5915              GAMMA3          =SIMP(statut='o',typ='R'),
5916              GAMMA4          =SIMP(statut='o',typ='R'),
5917              GAMMA5          =SIMP(statut='o',typ='R'),
5918              M1              =SIMP(statut='o',typ='R'),
5919              M2              =SIMP(statut='o',typ='R'),
5920              M3              =SIMP(statut='o',typ='R'),
5921              M4              =SIMP(statut='o',typ='R'),
5922              M5              =SIMP(statut='o',typ='R'),
5923                            ),
5924            OHNO_FO         =FACT(statut='f',min=0,max=1,
5925              R_I             =SIMP(statut='o',typ=fonction),
5926              R_0             =SIMP(statut='o',typ=fonction),
5927              B               =SIMP(statut='o',typ=fonction),
5928              PHI             =SIMP(statut='o',typ=fonction),
5929              A1              =SIMP(statut='o',typ=fonction),
5930              A2              =SIMP(statut='o',typ=fonction),
5931              A3              =SIMP(statut='o',typ=fonction),
5932              A4              =SIMP(statut='o',typ=fonction),
5933              A5              =SIMP(statut='o',typ=fonction),
5934              GAMMA1          =SIMP(statut='o',typ=fonction),
5935              GAMMA2          =SIMP(statut='o',typ=fonction),
5936              GAMMA3          =SIMP(statut='o',typ=fonction),
5937              GAMMA4          =SIMP(statut='o',typ=fonction),
5938              GAMMA5          =SIMP(statut='o',typ=fonction),
5939              M1              =SIMP(statut='o',typ=fonction),
5940              M2              =SIMP(statut='o',typ=fonction),
5941              M3              =SIMP(statut='o',typ=fonction),
5942              M4              =SIMP(statut='o',typ=fonction),
5943              M5              =SIMP(statut='o',typ=fonction),
5944              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
5945            ),
5946            LMARC           =FACT(statut='f',min=0,max=1,
5947              DE_0            =SIMP(statut='o',typ='R'),
5948              R_0             =SIMP(statut='o',typ='R'),
5949              N               =SIMP(statut='o',typ='R'),
5950              K               =SIMP(statut='o',typ='R'),
5951              Y_I             =SIMP(statut='o',typ='R'),
5952              Y_0             =SIMP(statut='o',typ='R'),
5953              B               =SIMP(statut='o',typ='R'),
5954              A_0             =SIMP(statut='o',typ='R'),
5955              RM              =SIMP(statut='o',typ='R'),
5956              M               =SIMP(statut='o',typ='R'),
5957              P               =SIMP(statut='o',typ='R'),
5958              P1              =SIMP(statut='o',typ='R'),
5959              P2              =SIMP(statut='o',typ='R'),
5960              M11             =SIMP(statut='o',typ='R'),
5961              M22             =SIMP(statut='o',typ='R'),
5962              M33             =SIMP(statut='o',typ='R'),
5963              M66             =SIMP(statut='o',typ='R'),
5964              N11             =SIMP(statut='o',typ='R'),
5965              N22             =SIMP(statut='o',typ='R'),
5966              N33             =SIMP(statut='o',typ='R'),
5967              N66             =SIMP(statut='o',typ='R'),
5968              Q11             =SIMP(statut='o',typ='R'),
5969              Q22             =SIMP(statut='o',typ='R'),
5970              Q33             =SIMP(statut='o',typ='R'),
5971              Q66             =SIMP(statut='o',typ='R'),
5972              R11             =SIMP(statut='o',typ='R'),
5973              R22             =SIMP(statut='o',typ='R'),
5974              R33             =SIMP(statut='o',typ='R'),
5975              R66             =SIMP(statut='o',typ='R'),
5976            ),
5977            LMARC_FO        =FACT(statut='f',min=0,max=1,
5978              DE_0            =SIMP(statut='o',typ=fonction),
5979              R_0             =SIMP(statut='o',typ=fonction),
5980              N               =SIMP(statut='o',typ=fonction),
5981              K               =SIMP(statut='o',typ=fonction),
5982              Y_I             =SIMP(statut='o',typ=fonction),
5983              Y_0             =SIMP(statut='o',typ=fonction),
5984              B               =SIMP(statut='o',typ=fonction),
5985              A_0             =SIMP(statut='o',typ=fonction),
5986              RM              =SIMP(statut='o',typ=fonction),
5987              M               =SIMP(statut='o',typ=fonction),
5988              P               =SIMP(statut='o',typ=fonction),
5989              P1              =SIMP(statut='o',typ=fonction),
5990              P2              =SIMP(statut='o',typ=fonction),
5991              M11             =SIMP(statut='o',typ=fonction),
5992              M22             =SIMP(statut='o',typ=fonction),
5993              M33             =SIMP(statut='o',typ=fonction),
5994              M66             =SIMP(statut='o',typ=fonction),
5995              N11             =SIMP(statut='o',typ=fonction),
5996              N22             =SIMP(statut='o',typ=fonction),
5997              N33             =SIMP(statut='o',typ=fonction),
5998              N66             =SIMP(statut='o',typ=fonction),
5999              Q11             =SIMP(statut='o',typ=fonction),
6000              Q22             =SIMP(statut='o',typ=fonction),
6001              Q33             =SIMP(statut='o',typ=fonction),
6002              Q66             =SIMP(statut='o',typ=fonction),
6003              R11             =SIMP(statut='o',typ=fonction),
6004              R22             =SIMP(statut='o',typ=fonction),
6005              R33             =SIMP(statut='o',typ=fonction),
6006              R66             =SIMP(statut='o',typ=fonction),
6007              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6008            ),
6009            VMIS_POUTRE     =FACT(statut='f',min=0,max=1,
6010              NP              =SIMP(statut='o',typ='R'),
6011              MEY             =SIMP(statut='o',typ='R'),
6012              MPY             =SIMP(statut='o',typ='R'),
6013              CAY             =SIMP(statut='o',typ='R'),
6014              CBY             =SIMP(statut='o',typ='R'),
6015              MEZ             =SIMP(statut='o',typ='R'),
6016              MPZ             =SIMP(statut='o',typ='R'),
6017              CAZ             =SIMP(statut='o',typ='R'),
6018              CBZ             =SIMP(statut='o',typ='R'),
6019              MPX             =SIMP(statut='o',typ='R'),
6020            ),
6021            VMIS_POUTRE_FO  =FACT(statut='f',min=0,max=1,
6022              NP              =SIMP(statut='o',typ=fonction),
6023              MEY             =SIMP(statut='o',typ=fonction),
6024              MPY             =SIMP(statut='o',typ=fonction),
6025              CAY             =SIMP(statut='o',typ=fonction),
6026              CBY             =SIMP(statut='o',typ=fonction),
6027              MEZ             =SIMP(statut='o',typ=fonction),
6028              MPZ             =SIMP(statut='o',typ=fonction),
6029              CAZ             =SIMP(statut='o',typ=fonction),
6030              CBZ             =SIMP(statut='o',typ=fonction),
6031              MPX             =SIMP(statut='o',typ=fonction),
6032              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6033            ),
6034            ARME            =FACT(statut='f',min=0,max=1,
6035              KYE             =SIMP(statut='o',typ='R'),
6036              DLE             =SIMP(statut='o',typ='R'),
6037              KYP             =SIMP(statut='o',typ='R'),
6038              DLP             =SIMP(statut='o',typ='R'),
6039              KYG             =SIMP(statut='o',typ='R'),
6040            ),
6041            ASSE_CORN       =FACT(statut='f',min=0,max=1,
6042              NU_1            =SIMP(statut='o',typ='R'),
6043              MU_1            =SIMP(statut='o',typ='R'),
6044              DXU_1           =SIMP(statut='o',typ='R'),
6045              DRYU_1          =SIMP(statut='o',typ='R'),
6046              C_1             =SIMP(statut='o',typ='R'),
6047              NU_2            =SIMP(statut='o',typ='R'),
6048              MU_2            =SIMP(statut='o',typ='R'),
6049              DXU_2           =SIMP(statut='o',typ='R'),
6050              DRYU_2          =SIMP(statut='o',typ='R'),
6051              C_2             =SIMP(statut='o',typ='R'),
6052              KY              =SIMP(statut='o',typ='R'),
6053              KZ              =SIMP(statut='o',typ='R'),
6054              KRX             =SIMP(statut='o',typ='R'),
6055              KRZ             =SIMP(statut='o',typ='R'),
6056            ),
6057            DIS_CONTACT     =FACT(statut='f',min=0,max=1,
6058              RIGI_NOR        =SIMP(statut='f',typ='R' ),
6059              DIST_1          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6060              DIST_2          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6061              RIGI_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6062              AMOR_NOR        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6063              AMOR_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6064              COULOMB         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6065              JEU             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6066              KT_ULTM         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6067              EFFO_N_INIT     =SIMP(statut='f',typ='R'),
6068              regles=(EXCLUS('RIGI_N_FO','RIGI_N_IRRA',),),
6069              RIGI_N_IRRA     =SIMP(statut='f',typ=fonction),
6070              RIGI_N_FO       =SIMP(statut='f',typ=fonction),
6071              RELA_MZ         =SIMP(statut='f',typ=fonction),
6072              C_PRAGER_MZ     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6073              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="DRZ",into=("DRZ",) ),
6074              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
6075            ),
6076            NADAI_B         =FACT(statut='f',min=0,max=1,
6077              F_C             =SIMP(statut='o',typ='R'),
6078              F_T             =SIMP(statut='o',typ='R'),
6079              CRIT_E_C        =SIMP(statut='o',typ='R'),
6080              EPSP_P_C        =SIMP(statut='o',typ='R'),
6081              EPSP_R_C        =SIMP(statut='o',typ='R'),
6082              EPSI_R_T        =SIMP(statut='o',typ='R'),
6083              FAC_T_C         =SIMP(statut='o',typ='R'),
6084            ),
6085            BETON_DOUBLE_DP =FACT(statut='f',min=0,max=1,
6086              F_C             =SIMP(statut='o',typ=fonction),
6087              F_T             =SIMP(statut='o',typ=fonction),
6088              COEF_BIAX       =SIMP(statut='o',typ=fonction),
6089              ENER_COMP_RUPT  =SIMP(statut='o',typ=fonction),
6090              ENER_TRAC_RUPT  =SIMP(statut='o',typ=fonction),
6091              COEF_ELAS_COMP  =SIMP(statut='o',typ='R'),
6092              LONG_CARA       =SIMP(statut='f',typ='R'),
6093              ECRO_COMP_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","PARABOLE") ),
6094              ECRO_TRAC_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","EXPONENT") ),
6095              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
6096              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="INST",into=("TEMP","INST",) ),
6097              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
6098              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
6099            ),
6100            LABORD_1D=FACT(statut='f',min=0 ,max=1,
6101              Y01             =SIMP(statut='o',typ='R'),
6102              Y02             =SIMP(statut='o',typ='R'),
6103              A1              =SIMP(statut='o',typ='R'),
6104              A2              =SIMP(statut='o',typ='R'),
6105              B1              =SIMP(statut='o',typ='R'),
6106              B2              =SIMP(statut='o',typ='R'),
6107              BETA1           =SIMP(statut='o',typ='R'),
6108              BETA2           =SIMP(statut='o',typ='R'),
6109              SIGF            =SIMP(statut='o',typ='R'),
6110            ),
6111
6112            VENDOCHAB       =FACT(statut='f',min=0,max=1,
6113              S_VP            =SIMP(statut='o',typ='R'),
6114              SEDVP1          =SIMP(statut='o',typ='R'),
6115              SEDVP2          =SIMP(statut='o',typ='R'),
6116              N_VP            =SIMP(statut='o',typ='R'),
6117              M_VP            =SIMP(statut='o',typ='R'),
6118              K_VP            =SIMP(statut='o',typ='R'),
6119              R_D             =SIMP(statut='o',typ='R'),
6120              A_D             =SIMP(statut='o',typ='R'),
6121              K_D             =SIMP(statut='o',typ='R'),
6122            ),
6123            VENDOCHAB_FO    =FACT(statut='f',min=0,max=1,
6124              S_VP            =SIMP(statut='o',typ=fonction),
6125              SEDVP1          =SIMP(statut='o',typ=fonction),
6126              SEDVP2          =SIMP(statut='o',typ=fonction),
6127              N_VP            =SIMP(statut='o',typ=fonction),
6128              M_VP            =SIMP(statut='o',typ=fonction),
6129              K_VP            =SIMP(statut='o',typ=fonction),
6130              R_D             =SIMP(statut='o',typ=fonction),
6131              A_D             =SIMP(statut='o',typ=fonction),
6132              K_D             =SIMP(statut='o',typ=fonction),
6133              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6134              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="X",into=("X",) ),
6135            ),
6136            PINTO_MENEGOTTO =FACT(statut='f',min=0,max=1,
6137              SY              =SIMP(statut='o',typ='R'),
6138              EPSI_ULTM       =SIMP(statut='o',typ='R'),
6139              SIGM_ULTM       =SIMP(statut='o',typ='R'),
6140              ELAN            =SIMP(statut='f',typ='R',defaut= 4. ),
6141              EPSP_HARD       =SIMP(statut='o',typ='R'),
6142              R_PM            =SIMP(statut='f',typ='R',defaut= 20. ),
6143              EP_SUR_E        =SIMP(statut='f',typ='R'),
6144              A1_PM           =SIMP(statut='f',typ='R',defaut= 18.5 ),
6145              A2_PM           =SIMP(statut='f',typ='R',defaut= 0.15 ),
6146              A6_PM           =SIMP(statut='f',typ='R',defaut= 620. ),
6147              C_PM            =SIMP(statut='f',typ='R',defaut= 0.5 ),
6148              A_PM            =SIMP(statut='f',typ='R',defaut= 6.0E-3 ),
6149            ),
6150            BPEL_BETON      =FACT(statut='f',min=0,max=1,
6151              PERT_FLUA       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6152              PERT_RETR       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6153            ),
6154            BPEL_ACIER      =FACT(statut='f',min=0,max=1,
6155              RELAX_1000      =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6156              MU0_RELAX       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6157              SY              =SIMP(statut='o',typ='R'),
6158              FROT_COURB      =SIMP(statut='o',typ='R'),
6159              FROT_LINE       =SIMP(statut='o',typ='R'),
6160            ),
6161            CJS             =FACT(statut='f',min=0,max=1,
6162              regles=(ENSEMBLE('B_CJS','C_CJS','MU_CJS','PCO',),
6163                      ENSEMBLE('N_CJS','KP','RC',),
6164                      PRESENT_ABSENT('A_CJS','B_CJS',),
6165                      PRESENT_PRESENT('A_CJS','N_CJS',),
6166                      PRESENT_PRESENT('B_CJS','N_CJS', ),),
6167              BETA_CJS        =SIMP(statut='o',typ='R'),
6168              RM              =SIMP(statut='o',typ='R'),
6169              N_CJS           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6170              KP              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6171              RC              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6172              A_CJS           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6173              B_CJS           =SIMP(statut='f',typ='R',defaut= 1.0E+25 ),
6174              C_CJS           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6175              GAMMA_CJS       =SIMP(statut='o',typ='R'),
6176              MU_CJS          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6177              PCO             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6178              PA              =SIMP(statut='o',typ='R'),
6179              Q_INIT          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6180              R_INIT          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6181            ),
6182            ECRO_ASYM_LINE  =FACT(statut='f',min=0,max=1,
6183              DC_SIGM_EPSI    =SIMP(statut='o',typ='R'),
6184              SY_C            =SIMP(statut='o',typ='R'),
6185              DT_SIGM_EPSI    =SIMP(statut='o',typ='R'),
6186              SY_T            =SIMP(statut='o',typ='R'),
6187            ),
6188            GRANGER_FP      =FACT(statut='f',min=0,max=1,
6189              J1              =SIMP(statut='f',typ='R'),
6190              J2              =SIMP(statut='f',typ='R'),
6191              J3              =SIMP(statut='f',typ='R'),
6192              J4              =SIMP(statut='f',typ='R'),
6193              J5              =SIMP(statut='f',typ='R'),
6194              J6              =SIMP(statut='f',typ='R'),
6195              J7              =SIMP(statut='f',typ='R'),
6196              J8              =SIMP(statut='f',typ='R'),
6197              TAUX_1          =SIMP(statut='f',typ='R'),
6198              TAUX_2          =SIMP(statut='f',typ='R'),
6199              TAUX_3          =SIMP(statut='f',typ='R'),
6200              TAUX_4          =SIMP(statut='f',typ='R'),
6201              TAUX_5          =SIMP(statut='f',typ='R'),
6202              TAUX_6          =SIMP(statut='f',typ='R'),
6203              TAUX_7          =SIMP(statut='f',typ='R'),
6204              TAUX_8          =SIMP(statut='f',typ='R'),
6205              FONC_DESORP     =SIMP(statut='f',typ=fonction),
6206              QSR_K           =SIMP(statut='f',typ='R'),
6207              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
6208            ),
6209            V_GRANGER_FP    =FACT(statut='f',min=0,max=1,
6210              QSR_VEIL        =SIMP(statut='f',typ='R'),
6211              FONC_V          =SIMP(statut='f',typ=fonction),
6212              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
6213            ),
6214 #
6215 # comportement thermique
6216 #
6217            THER_NL         =FACT(statut='f',min=0,max=1,
6218              regles=(UN_PARMI('BETA','RHO_CP', ),),
6219              LAMBDA          =SIMP(statut='o',typ=fonction),
6220              BETA            =SIMP(statut='f',typ=fonction),
6221              RHO_CP          =SIMP(statut='f',typ=fonction),
6222              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6223            ),
6224            THER_HYDR       =FACT(statut='f',min=0,max=1,
6225              LAMBDA          =SIMP(statut='o',typ=fonction),
6226              BETA            =SIMP(statut='f',typ=fonction),
6227              AFFINITE        =SIMP(statut='o',typ=fonction),
6228              CHALHYDR        =SIMP(statut='o',typ='R'),
6229              QSR_K           =SIMP(statut='o',typ='R'),
6230              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("HYDR",) ),
6231              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
6232            ),
6233            THER            =FACT(statut='f',min=0,max=1,
6234              LAMBDA          =SIMP(statut='o',typ='R'),
6235              RHO_CP          =SIMP(statut='f',typ='R'),
6236            ),
6237            THER_FO         =FACT(statut='f',min=0,max=1,
6238              LAMBDA          =SIMP(statut='o',typ=fonction),
6239              RHO_CP          =SIMP(statut='f',typ=fonction),
6240              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
6241            ),
6242            THER_ORTH       =FACT(statut='f',min=0,max=1,
6243              LAMBDA_L        =SIMP(statut='o',typ='R'),
6244              LAMBDA_T        =SIMP(statut='o',typ='R'),
6245              LAMBDA_N        =SIMP(statut='f',typ='R'),
6246              RHO_CP          =SIMP(statut='f',typ='R'),
6247            ),
6248            THER_COQUE      =FACT(statut='f',min=0,max=1,
6249              COND_LMM        =SIMP(statut='o',typ='R'),
6250              COND_TMM        =SIMP(statut='o',typ='R'),
6251              COND_LMP        =SIMP(statut='o',typ='R'),
6252              COND_TMP        =SIMP(statut='o',typ='R'),
6253              COND_LPP        =SIMP(statut='o',typ='R'),
6254              COND_TPP        =SIMP(statut='o',typ='R'),
6255              COND_LSI        =SIMP(statut='o',typ='R'),
6256              COND_TSI        =SIMP(statut='o',typ='R'),
6257              COND_NMM        =SIMP(statut='o',typ='R'),
6258              COND_NMP        =SIMP(statut='o',typ='R'),
6259              COND_NPP        =SIMP(statut='o',typ='R'),
6260              COND_NSI        =SIMP(statut='o',typ='R'),
6261              CMAS_MM         =SIMP(statut='f',typ='R'),
6262              CMAS_MP         =SIMP(statut='f',typ='R'),
6263              CMAS_PP         =SIMP(statut='f',typ='R'),
6264              CMAS_SI         =SIMP(statut='f',typ='R'),
6265            ),
6266            THER_COQUE_FO   =FACT(statut='f',min=0,max=1,
6267              COND_LMM        =SIMP(statut='o',typ=fonction),
6268              COND_TMM        =SIMP(statut='o',typ=fonction),
6269              COND_LMP        =SIMP(statut='o',typ=fonction),
6270              COND_TMP        =SIMP(statut='o',typ=fonction),
6271              COND_LPP        =SIMP(statut='o',typ=fonction),
6272              COND_TPP        =SIMP(statut='o',typ=fonction),
6273              COND_LSI        =SIMP(statut='o',typ=fonction),
6274              COND_TSI        =SIMP(statut='o',typ=fonction),
6275              COND_NMM        =SIMP(statut='o',typ=fonction),
6276              COND_NMP        =SIMP(statut='o',typ=fonction),
6277              COND_NPP        =SIMP(statut='o',typ=fonction),
6278              COND_NSI        =SIMP(statut='o',typ=fonction),
6279              CMAS_MM         =SIMP(statut='f',typ=fonction),
6280              CMAS_MP         =SIMP(statut='f',typ=fonction),
6281              CMAS_PP         =SIMP(statut='f',typ=fonction),
6282              CMAS_SI         =SIMP(statut='f',typ=fonction),
6283            ),
6284            SECH_GRANGER    =FACT(statut='f',min=0,max=1,
6285              A               =SIMP(statut='o',typ='R'),
6286              B               =SIMP(statut='o',typ='R'),
6287              QSR_K           =SIMP(statut='o',typ='R'),
6288              TEMP_0_C        =SIMP(statut='o',typ='R'),
6289            ),
6290            SECH_MENSI      =FACT(statut='f',min=0,max=1,
6291              A               =SIMP(statut='o',typ='R'),
6292              B               =SIMP(statut='o',typ='R'),
6293            ),
6294            SECH_BAZANT     =FACT(statut='f',min=0,max=1,
6295              D1              =SIMP(statut='o',typ='R'),
6296              ALPHA_BAZANT    =SIMP(statut='o',typ='R'),
6297              N               =SIMP(statut='o',typ='R'),
6298              FONC_DESORP     =SIMP(statut='o',typ=fonction),
6299              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6300            ),
6301            SECH_NAPPE      =FACT(statut='f',min=0,max=1,
6302              FONCTION        =SIMP(statut='o',typ=fonction),
6303              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6304              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="TSEC",into=("TSEC",) ),
6305            ),
6306 #
6307 # comportement métallurgique
6308 #
6309            META_ACIER      =FACT(statut='f',min=0,max=1,
6310              TRC             =SIMP(statut='o',typ=(tabl_trc) ),
6311              AR3             =SIMP(statut='o',typ='R'),
6312              ALPHA           =SIMP(statut='o',typ='R'),
6313              MS0             =SIMP(statut='o',typ='R'),
6314              AC1             =SIMP(statut='o',typ='R'),
6315              AC3             =SIMP(statut='o',typ='R'),
6316              TAUX_1          =SIMP(statut='o',typ='R'),
6317              TAUX_3          =SIMP(statut='o',typ='R'),
6318              LAMBDA0         =SIMP(statut='f',typ='R'),
6319              QSR_K           =SIMP(statut='f',typ='R'),
6320              D10             =SIMP(statut='f',typ='R'),
6321              WSR_K           =SIMP(statut='f',typ='R'),
6322            ),
6323            META_ZIRC       =FACT(statut='f',min=0,max=1,
6324              TDEQ            =SIMP(statut='o',typ='R'),
6325              N               =SIMP(statut='o',typ='R'),
6326              K               =SIMP(statut='o',typ='R'),
6327              TDC             =SIMP(statut='o',typ='R'),
6328              AC              =SIMP(statut='o',typ='R'),
6329              M               =SIMP(statut='o',typ='R'),
6330              QSR_K           =SIMP(statut='f',typ='R'),
6331              TDR             =SIMP(statut='o',typ='R'),
6332              AR              =SIMP(statut='o',typ='R'),
6333              BR              =SIMP(statut='o',typ='R'),
6334            ),
6335            DURT_META       =FACT(statut='f',min=0,max=1,
6336              F1_DURT         =SIMP(statut='o',typ='R'),
6337              F2_DURT         =SIMP(statut='o',typ='R'),
6338              F3_DURT         =SIMP(statut='o',typ='R'),
6339              F4_DURT         =SIMP(statut='o',typ='R'),
6340              C_DURT          =SIMP(statut='o',typ='R'),
6341            ),
6342            ELAS_META       =FACT(statut='f',min=0,max=1,
6343              E               =SIMP(statut='o',typ='R'),
6344              NU              =SIMP(statut='o',typ='R'),
6345              F_ALPHA         =SIMP(statut='o',typ='R'),
6346              C_ALPHA         =SIMP(statut='o',typ='R'),
6347              PHASE_REFE      =SIMP(statut='o',typ='TXM',into=("CHAUD","FROID")),
6348              EPSF_EPSC_TREF  =SIMP(statut='o',typ='R'),
6349              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
6350              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
6351              F1_SY           =SIMP(statut='f',typ='R'),
6352              F2_SY           =SIMP(statut='f',typ='R'),
6353              F3_SY           =SIMP(statut='f',typ='R'),
6354              F4_SY           =SIMP(statut='f',typ='R'),
6355              C_SY            =SIMP(statut='f',typ='R'),
6356              SY_MELANGE      =SIMP(statut='f',typ=fonction),
6357              F1_S_VP         =SIMP(statut='f',typ='R'),
6358              F2_S_VP         =SIMP(statut='f',typ='R'),
6359              F3_S_VP         =SIMP(statut='f',typ='R'),
6360              F4_S_VP         =SIMP(statut='f',typ='R'),
6361              C_S_VP          =SIMP(statut='f',typ='R' ),
6362              S_VP_MELANGE    =SIMP(statut='f',typ=fonction),
6363              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="META",into=("META",)),
6364            ),
6365            ELAS_META_FO    =FACT(statut='f',min=0,max=1,
6366              E               =SIMP(statut='o',typ=fonction),
6367              NU              =SIMP(statut='o',typ=fonction),
6368              F_ALPHA         =SIMP(statut='o',typ=fonction),
6369              C_ALPHA         =SIMP(statut='o',typ=fonction),
6370              PHASE_REFE      =SIMP(statut='o',typ='TXM',into=("CHAUD","FROID")),
6371              EPSF_EPSC_TREF  =SIMP(statut='o',typ='R'),
6372              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
6373              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
6374              F1_SY           =SIMP(statut='f',typ=fonction),
6375              F2_SY           =SIMP(statut='f',typ=fonction),
6376              F3_SY           =SIMP(statut='f',typ=fonction),
6377              F4_SY           =SIMP(statut='f',typ=fonction),
6378              C_SY            =SIMP(statut='f',typ=fonction),
6379              SY_MELANGE      =SIMP(statut='f',typ=fonction),
6380              F1_S_VP         =SIMP(statut='f',typ=fonction),
6381              F2_S_VP         =SIMP(statut='f',typ=fonction),
6382              F3_S_VP         =SIMP(statut='f',typ=fonction),
6383              F4_S_VP         =SIMP(statut='f',typ=fonction),
6384              C_S_VP          =SIMP(statut='f',typ=fonction),
6385              S_VP_MELANGE    =SIMP(statut='f',typ=fonction),
6386              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
6387              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="META",into=("META",)),
6388            ),
6389            META_ECRO_LINE  =FACT(statut='f',min=0,max=1,
6390              F1_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
6391              F2_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
6392              F3_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
6393              F4_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
6394              C_D_SIGM_EPSI   =SIMP(statut='f',typ=fonction),
6395              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
6396            ),
6397            META_TRACTION   =FACT(statut='f',min=0,max=1,
6398              SIGM_F1         =SIMP(statut='f',typ=fonction),
6399              SIGM_F2         =SIMP(statut='f',typ=fonction),
6400              SIGM_F3         =SIMP(statut='f',typ=fonction),
6401              SIGM_F4         =SIMP(statut='f',typ=fonction),
6402              SIGM_C          =SIMP(statut='f',typ=fonction),
6403              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",)),
6404              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
6405            ),
6406            META_VISC_FO    =FACT(statut='f',min=0,max=1,
6407              F1_ETA          =SIMP(statut='f',typ=fonction),
6408              F1_N            =SIMP(statut='f',typ=fonction),
6409              F1_C            =SIMP(statut='f',typ=fonction),
6410              F1_M            =SIMP(statut='f',typ=fonction),
6411              F2_ETA          =SIMP(statut='f',typ=fonction),
6412              F2_N            =SIMP(statut='f',typ=fonction),
6413              F2_C            =SIMP(statut='f',typ=fonction),
6414              F2_M            =SIMP(statut='f',typ=fonction),
6415              F3_ETA          =SIMP(statut='f',typ=fonction),
6416              F3_N            =SIMP(statut='f',typ=fonction),
6417              F3_C            =SIMP(statut='f',typ=fonction),
6418              F3_M            =SIMP(statut='f',typ=fonction),
6419              F4_ETA          =SIMP(statut='f',typ=fonction),
6420              F4_N            =SIMP(statut='f',typ=fonction),
6421              F4_C            =SIMP(statut='f',typ=fonction),
6422              F4_M            =SIMP(statut='f',typ=fonction),
6423              C_ETA           =SIMP(statut='f',typ=fonction),
6424              C_N             =SIMP(statut='f',typ=fonction),
6425              C_C             =SIMP(statut='f',typ=fonction),
6426              C_M             =SIMP(statut='f',typ=fonction),
6427              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6428            ),
6429            META_PT         =FACT(statut='f',min=0,max=1,
6430              F1_K            =SIMP(statut='f',typ='R'),
6431              F2_K            =SIMP(statut='f',typ='R'),
6432              F3_K            =SIMP(statut='f',typ='R'),
6433              F4_K            =SIMP(statut='f',typ='R'),
6434              F1_D_F_META     =SIMP(statut='f',typ=fonction),
6435              F2_D_F_META     =SIMP(statut='f',typ=fonction),
6436              F3_D_F_META     =SIMP(statut='f',typ=fonction),
6437              F4_D_F_META     =SIMP(statut='f',typ=fonction),
6438              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6439              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="META",into=("META",) ),
6440            ),
6441            META_RE         =FACT(statut='f',min=0,max=1,
6442              C_F1_THETA      =SIMP(statut='f',typ='R'),
6443              C_F2_THETA      =SIMP(statut='f',typ='R'),
6444              C_F3_THETA      =SIMP(statut='f',typ='R'),
6445              C_F4_THETA      =SIMP(statut='f',typ='R'),
6446              F1_C_THETA      =SIMP(statut='f',typ='R'),
6447              F2_C_THETA      =SIMP(statut='f',typ='R'),
6448              F3_C_THETA      =SIMP(statut='f',typ='R'),
6449              F4_C_THETA      =SIMP(statut='f',typ='R'),
6450            ),
6451 #
6452 # comportement fluide
6453 #
6454            FLUIDE          =FACT(statut='f',min=0,max=1,
6455              regles=(EXCLUS('CELE_C','CELE_R'),),
6456              RHO             =SIMP(statut='o',typ='R'),
6457              CELE_C          =SIMP(statut='f',typ='C'),
6458              CELE_R          =SIMP(statut='f',typ='R'),
6459            ),
6460            PORO_JOINT      =FACT(statut='f',min=0,max=1,
6461              RHO_FLUI        =SIMP(statut='o',typ='R'),
6462              ENTRO_FLUI      =SIMP(statut='o',typ='R'),
6463              BIOT_M          =SIMP(statut='o',typ='R'),
6464              C_0             =SIMP(statut='o',typ='R'),
6465              T_R             =SIMP(statut='o',typ='R'),
6466              ALPHA_M         =SIMP(statut='o',typ='R'),
6467              LAMBDA_T        =SIMP(statut='o',typ='R'),
6468              LAMBDA_H        =SIMP(statut='o',typ='R'),
6469              SOURCE_INIT     =SIMP(statut='o',typ='R'),
6470              OMEGA_0         =SIMP(statut='o',typ='R'),
6471            ),
6472            THM_LIQU        =FACT(statut='f',min=0,max=1,
6473              RHO             =SIMP(statut='o',typ='R'),
6474              UN_SUR_K        =SIMP(statut='f',typ='R'),
6475              ALPHA           =SIMP(statut='f',typ='R'),
6476              CP              =SIMP(statut='f',typ='R'),
6477              VISC            =SIMP(statut='f',typ=fonction),
6478              D_VISC_TEMP     =SIMP(statut='f',typ=fonction),
6479              LAMBDA          =SIMP(statut='f',typ=fonction),
6480              D_LAMBDA_TEMP   =SIMP(statut='f',typ=fonction),
6481              COEF_HENRY      =SIMP(statut='f',typ='R'),
6482              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
6483            ),
6484            THM_GAZ         =FACT(statut='f',min=0,max=1,
6485              MASS_MOL        =SIMP(statut='f',typ='R'),
6486              CP              =SIMP(statut='f',typ='R'),
6487              VISC            =SIMP(statut='f',typ=fonction),
6488              D_VISC_TEMP     =SIMP(statut='f',typ=fonction),
6489              LAMBDA          =SIMP(statut='f',typ=fonction),
6490              D_LAMBDA_TEMP   =SIMP(statut='f',typ=fonction),
6491              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
6492            ),
6493            THM_VAPE_GAZ    =FACT(statut='f',min=0,max=1,
6494              MASS_MOL        =SIMP(statut='f',typ='R'),
6495              CP              =SIMP(statut='f',typ='R'),
6496              VISC            =SIMP(statut='f',typ=fonction),
6497              D_VISC_TEMP     =SIMP(statut='f',typ=fonction),
6498              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
6499            ),
6500            THM_INIT        =FACT(statut='f',min=0,max=1,
6501              TEMP            =SIMP(statut='o',typ='R'),
6502              PRE1            =SIMP(statut='o',typ='R'),
6503              PRE2            =SIMP(statut='o',typ='R'),
6504              PORO            =SIMP(statut='o',typ='R'),
6505              PRES_VAPE       =SIMP(statut='o',typ='R'),
6506              DEGR_SATU       =SIMP(statut='f',typ='R'),
6507              PRES_ATMO       =SIMP(statut='f',typ='R'),
6508            ),
6509            THM_DIFFU       =FACT(statut='f',min=0,max=1,
6510              R_GAZ           =SIMP(statut='o',typ='R'),
6511              RHO             =SIMP(statut='f',typ='R'),
6512              CP              =SIMP(statut='f',typ='R'),
6513              BIOT_COEF       =SIMP(statut='f',typ='R'),
6514              SATU_PRES       =SIMP(statut='f',typ=fonction),
6515              D_SATU_PRES     =SIMP(statut='f',typ=fonction),
6516              PESA_X          =SIMP(statut='f',typ='R'),
6517              PESA_Y          =SIMP(statut='f',typ='R'),
6518              PESA_Z          =SIMP(statut='f',typ='R'),
6519              PERM_IN         =SIMP(statut='f',typ=fonction),
6520              PERM_LIQU       =SIMP(statut='f',typ=fonction),
6521              D_PERM_LIQU_SATU=SIMP(statut='f',typ=fonction),
6522              PERM_GAZ        =SIMP(statut='f',typ=fonction),
6523              D_PERM_SATU_GAZ =SIMP(statut='f',typ=fonction),
6524              D_PERM_PRES_GAZ =SIMP(statut='f',typ=fonction),
6525              FICK            =SIMP(statut='f',typ=fonction),
6526              D_FICK_TEMP     =SIMP(statut='f',typ=fonction),
6527              D_FICK_GAZ_PRES =SIMP(statut='f',typ=fonction),
6528              LAMBDA          =SIMP(statut='f',typ=fonction),
6529              D_LAMBDA_TEMP   =SIMP(statut='f',typ=fonction),
6530              SIGMA_T         =SIMP(statut='f',typ=fonction),
6531              D_SIGMA_T       =SIMP(statut='f',typ=fonction),
6532              PERM_G_INTR     =SIMP(statut='f',typ=fonction),
6533              CHAL_VAPO       =SIMP(statut='f',typ=fonction),
6534              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6535              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="SAT",into=("SAT",) ),
6536              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="PORO",into=("PORO",) ),
6537              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="PGAZ",into=("PGAZ",) ),
6538              VERI_P5         =SIMP(statut='c',typ='TXM',defaut="PGAP",into=("PGAP",) ),
6539            ),
6540 #
6541 # courbes et coefficients associés à la fatigue et au dommage
6542 #
6543            FATIGUE         =FACT(statut='f',min=0,max=1,
6544              regles=(PRESENT_ABSENT('WOHLER','A_BASQUIN','BETA_BASQUIN'),
6545                      PRESENT_ABSENT('WOHLER','A0','A1','A2','A3','SL'),
6546                      PRESENT_ABSENT('A_BASQUIN','A0','A1','A2','A3','SL'),
6547                      ENSEMBLE('A_BASQUIN','BETA_BASQUIN'),
6548                      ENSEMBLE('A0','A1','A2','A3','SL'),
6549                      PRESENT_PRESENT('A0','E_REFE'),
6550                      ENSEMBLE('D0','TAU0'),),
6551              WOHLER          =SIMP(statut='f',typ=fonction),
6552              A_BASQUIN       =SIMP(statut='f',typ='R'),
6553              BETA_BASQUIN    =SIMP(statut='f',typ='R'),
6554              A0              =SIMP(statut='f',typ='R'),
6555              A1              =SIMP(statut='f',typ='R'),
6556              A2              =SIMP(statut='f',typ='R'),
6557              A3              =SIMP(statut='f',typ='R'),
6558              SL              =SIMP(statut='f',typ='R'),
6559              MANSON_COFFIN   =SIMP(statut='f',typ=fonction),
6560              E_REFE          =SIMP(statut='f',typ='R'),
6561              D0              =SIMP(statut='f',typ='R'),
6562              TAU0            =SIMP(statut='f',typ='R'),
6563              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="SIGM",into=("SIGM",) ),
6564              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",) ),
6565            ),
6566            DOMMA_LEMAITRE  =FACT(statut='f',min=0,max=1,
6567              S               =SIMP(statut='o',typ=fonction),
6568              EPSP_SEUIL      =SIMP(statut='o',typ='R'),
6569              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6570            ),
6571 #
6572 # autres comportements ...
6573 #
6574            WEIBULL         =FACT(statut='f',min=0,max=1,
6575              M               =SIMP(statut='o',typ='R'),
6576              VOLU_REFE       =SIMP(statut='o',typ='R'),
6577              SIGM_REFE       =SIMP(statut='o',typ='R'),
6578              SEUIL_EPSP_CUMU =SIMP(statut='f',typ='R',defaut= 1.0E-6),
6579            ),
6580            WEIBULL_FO      =FACT(statut='f',min=0,max=1,
6581              M               =SIMP(statut='o',typ='R'),
6582              VOLU_REFE       =SIMP(statut='o',typ='R'),
6583              SIGM_CNV        =SIMP(statut='o',typ='R'),
6584              SIGM_REFE       =SIMP(statut='o',typ=fonction),
6585              SEUIL_EPSP_CUMU =SIMP(statut='f',typ='R',defaut= 1.0E-6),
6586              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6587            ),
6588            CONTACT         =FACT(statut='f',min=0,max=1,
6589              E_N             =SIMP(statut='o',typ='R'),
6590              E_T             =SIMP(statut='f',typ='R',defaut= 0.E+0),
6591              COULOMB         =SIMP(statut='f',typ='R',defaut= 0.E+0),
6592            ),
6593            NON_LOCAL       =FACT(statut='f',min=0,max=1,
6594              LONG_CARA       =SIMP(statut='o',typ='R'),
6595              COEF_RIGI_MINI  =SIMP(statut='f',typ='R'),
6596            ),
6597            RUPT_FRAG       =FACT(statut='f',min=0,max=1,
6598              GC              =SIMP(statut='o',typ='R'),
6599            ),
6600            RCCM            =FACT(statut='f',min=0,max=1,
6601              SY_02           =SIMP(statut='f',typ='R'),
6602              SM              =SIMP(statut='f',typ='R'),
6603              SU              =SIMP(statut='f',typ='R'),
6604              SC              =SIMP(statut='f',typ='R'),
6605              SH              =SIMP(statut='f',typ='R'),
6606              N_KE            =SIMP(statut='f',typ='R'),
6607              M_KE            =SIMP(statut='f',typ='R'),
6608            ),
6609            RCCM_FO         =FACT(statut='f',min=0,max=1,
6610              SY_02           =SIMP(statut='f',typ=fonction),
6611              SM              =SIMP(statut='f',typ=fonction),
6612              SU              =SIMP(statut='f',typ=fonction),
6613              S               =SIMP(statut='f',typ=fonction),
6614              N_KE            =SIMP(statut='f',typ=fonction),
6615              M_KE            =SIMP(statut='f',typ=fonction),
6616            ),
6617            INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
6618 )  ;
6619 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
6620 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6621 # ======================================================================
6622 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6623 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
6624 #              REDISTRIBUTION OF THIS FILE.
6625 # ======================================================================
6626 DEFI_MODELE_GENE=OPER(nom="DEFI_MODELE_GENE",op= 126,sd_prod=modele_gene,
6627                       docu="U4.65.02-d",reentrant='n',
6628          SOUS_STRUC      =FACT(statut='o',min=01,max='**',
6629            NOM             =SIMP(statut='o',typ='TXM' ),
6630            MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
6631            ANGL_NAUT       =SIMP(statut='f',typ='R',max=03),
6632            TRANS           =SIMP(statut='f',typ='R',max=03),
6633          ),
6634          LIAISON         =FACT(statut='o',min=01,max='**',
6635            SOUS_STRUC_1    =SIMP(statut='o',typ='TXM' ),
6636            INTERFACE_1     =SIMP(statut='o',typ='TXM' ),
6637            SOUS_STRUC_2    =SIMP(statut='o',typ='TXM' ),
6638            INTERFACE_2     =SIMP(statut='o',typ='TXM' ),
6639          ),
6640          VERIF           =FACT(statut='f',min=01,max='**',
6641 #  dans la doc U stop_erreur est obligatoire
6642            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
6643            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
6644            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6645          ),
6646 )  ;
6647 #& MODIF COMMANDE  DATE 03/10/2001   AUTEUR DURAND C.DURAND
6648 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6649 # ======================================================================
6650 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6651 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
6652 #              REDISTRIBUTION OF THIS FILE.
6653 # ======================================================================
6654 DEFI_NAPPE=OPER(nom="DEFI_NAPPE",op=   4,sd_prod=fonction,
6655                 fr="Définition des valeurs d une fonction de deux variables réelles",
6656                 docu="U4.31.03-f1",reentrant='n',
6657          regles=(UN_PARMI('FONCTION','DEFI_FONCTION'),
6658                  EXCLUS('FONCTION','NOM_PARA_FONC',),
6659                  ENSEMBLE('NOM_PARA_FONC','DEFI_FONCTION'),),
6660          NOM_PARA        =SIMP(statut='o',typ='TXM',into=("TEMP","INST","X","Y","Z","FREQ","PULS",
6661                                                           "AMOR","EPAIS","TSEC","HYDR","SECH") ),
6662          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
6663          PARA            =SIMP(statut='o',typ='R',max='**'),
6664          FONCTION        =SIMP(statut='f',typ=fonction,max='**' ),
6665          NOM_PARA_FONC   =SIMP(statut='f',typ='TXM',into=("TEMP","INST","X","Y","Z","EPSI","FREQ",
6666                                                           "PULS","AMOR","EPAIS") ),
6667          DEFI_FONCTION   =FACT(statut='f',max='**',
6668            VALE            =SIMP(statut='o',typ='R',max='**'),
6669            INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
6670            PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6671            PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6672          ),
6673          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
6674          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6675          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6676          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6677          VERIF           =SIMP(statut='f',typ='TXM',into=("CROISSANT",) ),
6678          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
6679 )  ;
6680 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
6681 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6682 # ======================================================================
6683 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6684 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
6685 #              REDISTRIBUTION OF THIS FILE.
6686 # ======================================================================
6687 DEFI_OBSTACLE=OPER(nom="DEFI_OBSTACLE",op=  73,sd_prod=obstacle
6688                     ,fr="Définition d un obstacle plan perpendiculaire à une structure filaire",
6689                      docu="U4.44.21-e",reentrant='n',
6690          TYPE            =SIMP(statut='o',typ='TXM',defaut="CERCLE",
6691                              into=("CERCLE","PLAN_Y","PLAN_Z","DISCRET",
6692                              "BI_CERCLE","BI_PLAN_Y","BI_PLAN_Z","BI_CERC_INT",
6693                              "CRAYON_900","CRAYON_1300","GUID_A_CARTE_900",
6694                              "GUID_B_CARTE_900","GUID_C_CARTE_900",
6695                              "GUID_D_CARTE_900","GUID_E_CARTE_900",
6696                              "GUID_F_CARTE_900","GUID_A_CARTE_1300",
6697                              "GUID_B_CARTE_1300","GUID_C_CARTE_1300",
6698                              "GUID_D_CARTE_1300","GUID_E_CARTE_1300",
6699                              "GUID_F_CARTE_1300","GUID_A_CARSP_900",
6700                              "GUID_B_CARSP_900","GUID_C_CARSP_900",
6701                              "GUID_D_CARSP_900","GUID_E_CARSP_900",
6702                              "GUID_F_CARSP_900","GUID_A_CARSP_1300",
6703                              "GUID_B_CARSP_1300","GUID_C_CARSP_1300",
6704                              "GUID_D_CARSP_1300","GUID_E_CARSP_1300",
6705                              "GUID_F_CARSP_1300","GUID_A_GCONT_900",
6706                              "GUID_B_GCONT_900","GUID_C_GCONT_900",
6707                              "GUID_D_GCONT_900","GUID_E_GCONT_900",
6708                              "GUID_F_GCONT_900","GUID_A_GCONT_1300",
6709                              "GUID_B_GCONT_1300","GUID_C_GCONT_1300",
6710                              "GUID_D_GCONT_1300","GUID_E_GCONT_1300",
6711                              "GUID_F_GCONT_1300","GUID_A_GCOMB_900",
6712                              "GUID_B_GCOMB_900","GUID_C_GCOMB_900",
6713                              "GUID_D_GCOMB_900","GUID_E_GCOMB_900",
6714                              "GUID_F_GCOMB_900","GUID_A_GCOMB_1300",
6715                              "GUID_B_GCOMB_1300","GUID_C_GCOMB_1300",
6716                              "GUID_D_GCOMB_1300","GUID_E_GCOMB_1300",
6717                              "GUID_F_GCOMB_1300",) ),
6718          VALE            =SIMP(statut='f',typ='R',max='**'),
6719          VERIF           =SIMP(statut='f',typ='TXM',defaut="FERME"),
6720 )  ;
6721 #& MODIF COMMANDE  DATE 10/10/2001   AUTEUR DURAND C.DURAND
6722 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6723 # ======================================================================
6724 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6725 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
6726 #              REDISTRIBUTION OF THIS FILE.
6727 # ======================================================================
6728 # RESPONSABLE GNICOLAS G.NICOLAS
6729 DEFI_PARA_SENSI=OPER(nom="DEFI_PARA_SENSI",op=   2,sd_prod=para_sensi,
6730                     fr="Définition d'un paramètre de sensibilité",
6731                     ang="Definition of a sensitive parameter",
6732                     docu="U4.31.xx-a",reentrant='n',
6733          NOM_RESU        =SIMP(statut='c',typ='TXM',into=("TOUTRESU",),defaut="TOUTRESU",
6734                                fr="Nom du concept créé",
6735                                ang="Name of the concept"),
6736          VALE            =SIMP(statut='o',typ='R',max=01,
6737                                fr="Valeur du parametre",
6738                                ang="Value of the parameter"),
6739          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
6740 )  ;
6741 #& MODIF COMMANDE  DATE 07/03/2001   AUTEUR VABHHTS J.PELLET
6742 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6743 # ======================================================================
6744 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6745 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
6746 #              REDISTRIBUTION OF THIS FILE.
6747 # ======================================================================
6748 DEFI_SPEC_TURB=OPER(nom="DEFI_SPEC_TURB",op= 145,sd_prod=spectre,
6749                     fr="Définition d'un spectre d'excitation turbulente",
6750                     docu="U4.44.31-c",reentrant='n',
6751          regles=(UN_PARMI('SPEC_LONG_COR_1','SPEC_LONG_COR_2','SPEC_LONG_COR_3',
6752                           'SPEC_LONG_COR_4','SPEC_CORR_CONV_1','SPEC_CORR_CONV_2',
6753                           'SPEC_FONC_FORME','SPEC_EXCI_POINT'),),
6754          SPEC_LONG_COR_1 =FACT(statut='f',min=00,max=01,
6755            LONG_COR        =SIMP(statut='o',typ='R' ),
6756            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
6757            VISC_CINE       =SIMP(statut='o',typ='R' ),
6758          ),
6759          SPEC_LONG_COR_2 =FACT(statut='f',min=00,max=01,
6760            regles=(ENSEMBLE('FREQ_COUP','PHI0','BETA' ),),
6761            LONG_COR        =SIMP(statut='o',typ='R' ),
6762            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
6763            FREQ_COUP       =SIMP(statut='f',typ='R',defaut= 0.1 ),
6764            PHI0            =SIMP(statut='f',typ='R',defaut= 1.5E-3 ),
6765            BETA            =SIMP(statut='f',typ='R',defaut= 2.7 ),
6766          ),
6767          SPEC_LONG_COR_3 =FACT(statut='f',min=00,max=01,
6768            regles=(ENSEMBLE('PHI0_1','BETA_1','PHI0_2','BETA_2','FREQ_COUP'),),
6769            LONG_COR        =SIMP(statut='o',typ='R' ),
6770            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
6771            FREQ_COUP       =SIMP(statut='f',typ='R',defaut= 0.2 ),
6772            PHI0_1          =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
6773            BETA_1          =SIMP(statut='f',typ='R',defaut= 0.5 ),
6774            PHI0_2          =SIMP(statut='f',typ='R',defaut= 4.E-5 ),
6775            BETA_2          =SIMP(statut='f',typ='R',defaut= 3.5 ),
6776          ),
6777          SPEC_LONG_COR_4 =FACT(statut='f',min=00,max=01,
6778            regles=(ENSEMBLE('BETA','GAMMA'),),
6779            LONG_COR        =SIMP(statut='o',typ='R' ),
6780            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
6781            TAUX_VIDE       =SIMP(statut='o',typ='R' ),
6782            BETA            =SIMP(statut='f',typ='R',defaut= 2. ),
6783            GAMMA           =SIMP(statut='f',typ='R',defaut= 4. ),
6784          ),
6785          SPEC_CORR_CONV_1=FACT(statut='f',min=00,max=01,
6786            LONG_COR_1      =SIMP(statut='o',typ='R' ),
6787            LONG_COR_2      =SIMP(statut='f',typ='R' ),
6788            VITE_FLUI       =SIMP(statut='o',typ='R' ),
6789            RHO_FLUI        =SIMP(statut='o',typ='R' ),
6790            FREQ_COUP       =SIMP(statut='f',typ='R' ),
6791            K               =SIMP(statut='f',typ='R',defaut= 5.8E-3 ),
6792            D_FLUI          =SIMP(statut='o',typ='R' ),
6793            COEF_VITE_FLUI_A=SIMP(statut='f',typ='R' ),
6794            COEF_VITE_FLUI_O=SIMP(statut='f',typ='R' ),
6795            METHODE         =SIMP(statut='f',typ='TXM',defaut="GENERALE",
6796                                  into=("AU_YANG","GENERALE","CORCOS") ),
6797          ),
6798          SPEC_CORR_CONV_2=FACT(statut='f',min=00,max=01,
6799            FONCTION        =SIMP(statut='o',typ=fonction ),
6800            VITE_FLUI       =SIMP(statut='o',typ='R' ),
6801            FREQ_COUP       =SIMP(statut='f',typ='R' ),
6802            METHODE         =SIMP(statut='f',typ='TXM',defaut="GENERALE",
6803                                  into=("AU_YANG","GENERALE","CORCOS",) ),
6804            COEF_VITE_FLUI_A=SIMP(statut='f',typ='R' ),
6805            COEF_VITE_FLUI_O=SIMP(statut='f',typ='R' ),
6806          ),
6807          SPEC_FONC_FORME =FACT(statut='f',min=00,max=01,
6808            regles=(UN_PARMI('INTE_SPEC','GRAPPE_1'),
6809                    ENSEMBLE('INTE_SPEC','FONCTION'),),
6810            INTE_SPEC       =SIMP(statut='f',typ=tabl_intsp ),
6811            FONCTION        =SIMP(statut='f',typ=fonction,max='**'),
6812            GRAPPE_1        =SIMP(statut='f',typ='TXM',into=("DEBIT_180","DEBIT_300",) ),
6813            NOEUD           =SIMP(statut='o',typ=no),
6814            CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
6815            MODELE          =SIMP(statut='o',typ=modele ),
6816          ),
6817          SPEC_EXCI_POINT =FACT(statut='f',min=00,max=01,
6818            regles=(UN_PARMI('INTE_SPEC','GRAPPE_2'),),
6819            INTE_SPEC       =SIMP(statut='f',typ=tabl_intsp ),
6820            GRAPPE_2        =SIMP(statut='f',typ='TXM',
6821                                  into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC",) ),
6822 #  Quels sont les statuts des mots cles à l interieur des deux blocs qui suivent
6823            b_inte_spec =BLOC(condition = "INTE_SPEC != None",
6824              NATURE          =SIMP(statut='o',typ='TXM',max='**',into=("FORCE","MOMENT",) ),
6825              ANGL            =SIMP(statut='o',typ='R',max='**'),
6826              NOEUD           =SIMP(statut='o',typ=no,max='**'),
6827            ),
6828            b_grappe_2      =BLOC(condition = "GRAPPE_2 != None",
6829              RHO_FLUI        =SIMP(statut='o',typ='R' ),
6830              NOEUD           =SIMP(statut='o',typ=no),
6831            ),
6832            CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
6833            MODELE          =SIMP(statut='o',typ=modele ),
6834          ),
6835          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
6836 )  ;
6837 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
6838 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6839 # ======================================================================
6840 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6841 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
6842 #              REDISTRIBUTION OF THIS FILE.
6843 # ======================================================================
6844 DEFI_SQUELETTE=OPER(nom="DEFI_SQUELETTE",op= 110,sd_prod=squelette,
6845                     fr="Définition d un maillage de visualisation",
6846                     docu="U4.24.01-e",reentrant='n',
6847          regles=(UN_PARMI('MODE_CYCL','MODELE_GENE','MAILLAGE'),
6848                  PRESENT_PRESENT('MODE_CYCL','SECTEUR'),
6849                  EXCLUS('SOUS_STRUC','SECTEUR'),
6850                  PRESENT_PRESENT('NOM_GROUP_MA','MODELE_GENE'),
6851                  PRESENT_PRESENT('NOM_GROUP_MA','SOUS_STRUC'),),
6852          MODE_CYCL       =SIMP(statut='f',typ=mode_cycl ),
6853          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
6854          SQUELETTE       =SIMP(statut='f',typ=squelette ),
6855          RECO_GLOBAL     =FACT(statut='f',min=01,max='**',
6856            regles=(EXCLUS('TOUT','GROUP_NO_1'),
6857                    PRESENT_PRESENT('GROUP_NO_1','GROUP_NO_2'),
6858                    PRESENT_PRESENT('GROUP_NO_1','SOUS_STRUC_1'),
6859                    PRESENT_PRESENT('GROUP_NO_2','SOUS_STRUC_2'),
6860                    PRESENT_PRESENT('SOUS_STRUC_1','SOUS_STRUC_2'),),
6861            TOUT            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",) ),
6862            GROUP_NO_1      =SIMP(statut='f',typ=grno),
6863            SOUS_STRUC_1    =SIMP(statut='f',typ='TXM' ),
6864            GROUP_NO_2      =SIMP(statut='f',typ=grno),
6865            SOUS_STRUC_2    =SIMP(statut='f',typ='TXM' ),
6866            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
6867            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6868            DIST_REFE       =SIMP(statut='f',typ='R' ),
6869          ),
6870          NOM_GROUP_MA    =FACT(statut='f',min=01,max='**',
6871            NOM             =SIMP(statut='o',typ='TXM' ),
6872            SOUS_STRUC      =SIMP(statut='o',typ='TXM' ),
6873            GROUP_MA        =SIMP(statut='o',typ=grma),
6874          ),
6875          EXCLUSIF        =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
6876          MAILLAGE        =SIMP(statut='f',typ=maillage ),
6877          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
6878          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
6879          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6880          TRANS           =SIMP(statut='f',typ='R',min=3,max=3),
6881          ANGL_NAUT       =SIMP(statut='f',typ='R',min=3,max=3),
6882          SOUS_STRUC      =FACT(statut='f',min=01,max='**',
6883            NOM             =SIMP(statut='f',typ='TXM' ),
6884            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
6885            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
6886            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6887          ),
6888          SECTEUR         =FACT(statut='f',min=01,max='**',
6889            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
6890            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
6891            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6892          ),
6893          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
6894 )  ;
6895 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
6896 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6897 # ======================================================================
6898 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6899 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
6900 #              REDISTRIBUTION OF THIS FILE.
6901 # ======================================================================
6902 DEFI_TEXTURE=OPER(nom="DEFI_TEXTURE",op= 181,sd_prod=tabl_texture,
6903                   fr=" ",docu="U4.43.05-a",reentrant='n',
6904          SYST_GLISSEMENT =FACT(statut='o',min=3,max=3,
6905            N               =SIMP(statut='o',typ='R',min=12,max=12 ),
6906            L               =SIMP(statut='o',typ='R',max='**' ),
6907          ),
6908          PLAN            =FACT(statut='o',min=40,max=40,
6909            ANGL_NAUT       =SIMP(statut='o',typ='R',max='**' ),
6910            PROPORTION      =SIMP(statut='o',typ='R' ),
6911          ),
6912          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
6913 )  ;
6914 #& MODIF COMMANDE  DATE 03/10/2001   AUTEUR DURAND C.DURAND
6915 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6916 # ======================================================================
6917 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6918 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
6919 #              REDISTRIBUTION OF THIS FILE.
6920 # ======================================================================
6921 DEFI_THER_JOULE=OPER(nom="DEFI_THER_JOULE",op= 121,sd_prod=fonction,docu="U4.MK.20-d",reentrant='n',
6922                     fr="Calculer la fonction d évolution temporelle de température due à l effet JOULE dans un cable",
6923          LIST_INST       =SIMP(statut='o',typ=listr8),
6924          INST_CC_INIT    =SIMP(statut='f',typ='R',defaut= 0.0E+0 ),
6925          INST_CC_FIN     =SIMP(statut='f',typ='R',defaut= 1.0E+10),
6926          INST_RENC_INIT  =SIMP(statut='f',typ='R',defaut= 1.0E+10),
6927          INST_RENC_FIN   =SIMP(statut='f',typ='R',defaut= 1.0E+10),
6928          TEMP_EXT_POSE   =SIMP(statut='f',typ='R',defaut= 15.0E+0),
6929          TEMP_EXT        =SIMP(statut='f',typ='R',defaut= 15.0E+0),
6930          TEMP_RESI_REF   =SIMP(statut='f',typ='R',defaut= 20.0E+0),
6931          PARA_COND_1D    =FACT(statut='f',min=01,max='**',
6932            INTE_CC         =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6933            INTE_RENC       =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6934            A               =SIMP(statut='f',typ='R',defaut= 1.0E+0),
6935            SECTION         =SIMP(statut='f',typ='TXM',defaut="CERCLE",into=("CERCLE",) ),
6936            RESI_R0         =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6937            RESI_R1         =SIMP(statut='f',typ='R',defaut= 0.E+0),
6938            RHO_CP          =SIMP(statut='f',typ='R',defaut= 1.0E+0),
6939            COEF_H          =SIMP(statut='f',typ='R',defaut= 40.0E+0),
6940            TEMP_INIT       =SIMP(statut='f',typ='R',defaut= 15.0E+0),
6941          ),
6942 )  ;
6943
6944 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
6945 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6946 # ======================================================================
6947 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6948 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
6949 #              REDISTRIBUTION OF THIS FILE.
6950 # ======================================================================
6951 DEFI_TRC=OPER(nom="DEFI_TRC",op=94,sd_prod=tabl_trc,docu="U4.43.04-e",reentrant='n',
6952               fr="Définition d un diagramme de transformations en refroidissement continu d un acier",
6953          HIST_EXP        =FACT(statut='o',min=01,max='**',
6954            VALE            =SIMP(statut='o',typ='R',max='**'),
6955          ),
6956          TEMP_MS         =FACT(statut='o',min=01,max='**',
6957            SEUIL           =SIMP(statut='o',typ='R'),
6958            AKM             =SIMP(statut='o',typ='R'),
6959            BKM             =SIMP(statut='o',typ='R'),
6960            TPLM            =SIMP(statut='o',typ='R'),
6961          ),
6962          GRAIN_AUST      =FACT(statut='f',min=01,max='**',
6963            DREF           =SIMP(statut='f',typ='R'),
6964            A              =SIMP(statut='f',typ='R'),
6965          ),
6966 )  ;
6967 #& MODIF COMMANDE  DATE 12/09/2001   AUTEUR MCOURTOI M.COURTOIS
6968 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6969 # ======================================================================
6970 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6971 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
6972 #              REDISTRIBUTION OF THIS FILE.
6973 # ======================================================================
6974 def defi_valeur_prod(self,IS=None,R8=None,TX=None,C8=None,LS=None):
6975   if IS != None  : return entier
6976   if R8 != None  : return reel
6977   if TX != None  : return chaine
6978   if C8 != None  : return complexe
6979   if LS != None  : return liste
6980   raise AsException("type de concept resultat non prevu")
6981
6982 DEFI_VALEUR=MACRO(nom="DEFI_VALEUR",op=-4,sd_prod=defi_valeur_prod,
6983                  fr="Affectation d une valeur à une variable Superviseur",
6984                  docu="U4.31.04-e1",reentrant='f',
6985          regles=(UN_PARMI('IS','R8','TX','C8','LS'),),
6986          IS              =SIMP(statut='f',typ='I',max='**'),
6987          R8              =SIMP(statut='f',typ='R',max='**'),
6988          TX              =SIMP(statut='f',typ='TXM',max='**'),
6989          C8              =SIMP(statut='f',typ='C',max='**'),
6990          LS              =SIMP(statut='f',typ='L',max='**'),
6991 )  ;
6992 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
6993 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6994 # ======================================================================
6995 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6996 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
6997 #              REDISTRIBUTION OF THIS FILE.
6998 # ======================================================================
6999 DEFUFI=PROC(nom="DEFUFI",op=21,docu="U4.12.01-d",
7000             fr="Modification / ajout d une unité logique en sortie en complément de celles définies dans DEBUT",
7001          IMPRESSION      =FACT(statut='o',min=01,max='**',
7002            NOM             =SIMP(statut='o',typ='TXM',max='**'),
7003            UNITE           =SIMP(statut='o',typ='I' ),
7004          ),
7005 )  ;
7006 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
7007 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7008 # ======================================================================
7009 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7010 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
7011 #              REDISTRIBUTION OF THIS FILE.
7012 # ======================================================================
7013 DEPL_INTERNE=OPER(nom="DEPL_INTERNE",op=89,sd_prod=cham_no_depl_r,docu="U4.62.02-e",reentrant='n',
7014                   fr="Récupération du champ de déplacement interne à une sous-structure",
7015          DEPL_GLOBAL     =SIMP(statut='o',typ=cham_no_depl_r),
7016          MAILLE          =SIMP(statut='o',typ=ma,max=1),
7017          NOM_CAS         =SIMP(statut='f',typ='TXM',defaut=" "),
7018 )  ;
7019 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
7020 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7021 # ======================================================================
7022 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7023 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
7024 #              REDISTRIBUTION OF THIS FILE.
7025 # ======================================================================
7026 DETRUIRE=PROC(nom="DETRUIRE",op=-7,docu="U4.14.01-d",
7027               fr="Destruction d un concept utilisateur dans la base GLOBALE",
7028              op_init=ops.detruire,
7029             CONCEPT     =FACT(statut='o',min=01,
7030             NOM         =SIMP(statut='o',typ=assd,max='**'),
7031         ),
7032 );
7033 #& MODIF COMMANDE  DATE 03/10/2001   AUTEUR DURAND C.DURAND
7034 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7035 # ======================================================================
7036 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7037 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
7038 #              REDISTRIBUTION OF THIS FILE.
7039 # ======================================================================
7040 DIST_LIGN_3D=OPER(nom="DIST_LIGN_3D",op= 133,sd_prod=fonction,docu="U4.MK.30-d",reentrant='n',
7041                   fr="Calcul sous forme d une fonction du temps de la distance minimale entre deux structures filaires",
7042       regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),
7043               UN_PARMI('GROUP_MA_2','POIN_FIXE'),),
7044          MODELE          =SIMP(statut='o',typ=modele),
7045          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,evol_noli) ),
7046          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",)),
7047          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
7048          INST            =SIMP(statut='f',typ='R',max='**'),
7049          LIST_INST       =SIMP(statut='f',typ=listr8),
7050          LIST_ORDRE      =SIMP(statut='f',typ=listis),
7051          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
7052          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7053          GROUP_MA_1      =SIMP(statut='o',typ=grma,max='**'),
7054          GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
7055          POIN_FIXE       =SIMP(statut='f',typ='R',min=3,max=3),
7056          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
7057 )  ;
7058 #& MODIF COMMANDE  DATE 28/03/2001   AUTEUR CIBHHLV L.VIVAN
7059 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7060 # ======================================================================
7061 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7062 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
7063 #              REDISTRIBUTION OF THIS FILE.
7064 # ======================================================================
7065 DYNA_ALEA_MODAL=OPER(nom="DYNA_ALEA_MODAL",op= 131,sd_prod=tabl_intsp
7066                     ,fr="Calcule la réponse spectrale d une structure linéaire sous une excitation connue par sa DSP",
7067                      docu="U4.53.22-d",reentrant='n',
7068          BASE_MODALE     =FACT(statut='o',min=01,max=01,
7069            regles=(UN_PARMI('NUME_ORDRE','BANDE'),),
7070            MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
7071            BANDE           =SIMP(statut='f',typ='R',max=02),
7072            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
7073            b_bande =BLOC(condition = "BANDE != None",
7074              AMOR_UNIF       =SIMP(statut='o',typ='R' ),
7075            ),
7076            b_nume_ordre =BLOC(condition = "NUME_ORDRE != None",
7077              AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
7078            ),
7079          ),
7080          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,)),
7081          EXCIT           =FACT(statut='o',min=01,max=01,
7082            regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I'),
7083                    EXCLUS('CHAM_NO','NOEUD'),),
7084            DERIVATION      =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ) ),
7085            MODAL           =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7086 #  dans la doc U il y a plus de choix pour GRANDEUR
7087            GRANDEUR        =SIMP(statut='f',typ='TXM',defaut="DEPL_R",
7088                                  into=("DEPL_R","EFFO","SOUR_DEBI_VOLU","SOUR_DEBI_MASS","SOUR_PRESS","SOUR_FORCE")),
7089            INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
7090            NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
7091            OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG",) ),
7092 #  Toutes les regles ne semblent pas avoir été ecrites dans la doc U
7093            NUME_ORDRE_I    =SIMP(statut='f',typ='I',max='**'),
7094            NOEUD_I         =SIMP(statut='f',typ=no,max='**'),
7095            b_nume_ordre_i  =BLOC(condition = "NUME_ORDRE_I != None",
7096              NUME_ORDRE_J    =SIMP(statut='o',typ='I',max='**'),
7097            ),
7098            b_noeud_i       =BLOC(condition = "NOEUD_I != None",
7099              NOEUD_J         =SIMP(statut='o',typ=no,max='**'),
7100              NOM_CMP_I       =SIMP(statut='o',typ='TXM',max='**'),
7101              NOM_CMP_J       =SIMP(statut='o',typ='TXM',max='**'),
7102            ),
7103            CHAM_NO         =SIMP(statut='f',typ=cham_no),
7104            NOEUD           =SIMP(statut='f',typ=no,max='**'),
7105            b_noeud         =BLOC(condition = "NOEUD != None",
7106              NOM_CMP         =SIMP(statut='o',typ='TXM',max='**'),
7107            ),
7108          ),
7109          REPONSE         =FACT(statut='f',min=01,max=01,
7110            regles=(EXCLUS('FREQ_MIN','NB_POIN_MODE'),
7111                    EXCLUS('FREQ_MIN','FREQ_EXCIT'),
7112                    ENSEMBLE('FREQ_MIN','FREQ_MAX'),),
7113 #  Toutes les regles ne semblent pas avoir été ecrites dans la doc U
7114            DERIVATION      =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ,) ),
7115            OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
7116            FREQ_MIN        =SIMP(statut='f',typ='R' ),
7117            FREQ_MAX        =SIMP(statut='f',typ='R' ),
7118            PAS             =SIMP(statut='f',typ='R' ),
7119            FREQ_EXCIT      =SIMP(statut='f',typ='TXM',defaut="AVEC",into=("AVEC","SANS") ),
7120            NB_POIN_MODE    =SIMP(statut='f',typ='I',defaut= 50 ),
7121          ),
7122          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7123          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
7124 )  ;
7125 #& MODIF COMMANDE  DATE 10/07/2001   AUTEUR ACBHHCD G.DEVESA
7126 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7127 # ======================================================================
7128 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7129 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
7130 #              REDISTRIBUTION OF THIS FILE.
7131 # ======================================================================
7132 def dyna_line_harm_prod(MATR_MASS,**args):
7133   if AsType(MATR_MASS) == matr_asse_depl_r : return dyna_harmo
7134   if AsType(MATR_MASS) == matr_asse_depl_c : return dyna_harmo
7135   if AsType(MATR_MASS) == matr_asse_pres_c : return acou_harmo
7136   if AsType(MATR_MASS) == matr_asse_gene_r : return harm_gene
7137   raise AsException("type de concept resultat non prevu")
7138
7139 DYNA_LINE_HARM=OPER(nom="DYNA_LINE_HARM",op=  60,sd_prod=dyna_line_harm_prod,
7140                     fr="Réponse dynamique complexe d un système à une excitation harmonique",
7141                     docu="U4.53.11-e",reentrant='n',
7142          regles=(PRESENT_ABSENT('AMOR_REDUIT','MATR_AMOR'),
7143                  PRESENT_ABSENT('AMOR_REDUIT','LIST_AMOR'),
7144                  PRESENT_ABSENT('MATR_AMOR','LIST_AMOR'),
7145                  UN_PARMI('FREQ','LIST_FREQ'),),
7146          MODELE          =SIMP(statut='f',typ=modele ),
7147          CHAM_MATER      =SIMP(statut='f',typ=cham_mater ),
7148          CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
7149          MATR_MASS       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_pres_c,matr_asse_gene_r ) ),
7150          MATR_RIGI       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_pres_c
7151                                               ,matr_asse_gene_r,matr_asse_gene_c ) ),
7152          MATR_AMOR       =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_pres_c,matr_asse_gene_r ) ),
7153          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
7154          LIST_AMOR       =SIMP(statut='f',typ=listr8 ),
7155          MATR_IMPE_PHI   =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_gene_r) ),
7156          FREQ            =SIMP(statut='f',typ='R',max='**'),
7157          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
7158          TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI",)),
7159          NOM_CHAM        =SIMP(statut='f',typ='TXM',max=03,into=("DEPL","VITE","ACCE") ),
7160          EXCIT           =FACT(statut='o',min=01,max='**',
7161            regles=(UN_PARMI('VECT_ASSE','CHARGE'),
7162                    UN_PARMI('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
7163            VECT_ASSE       =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_pres_c,vect_asse_gene ) ),
7164            CHARGE          =SIMP(statut='f',typ=char_meca ),
7165            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
7166            FONC_MULT_C     =SIMP(statut='f',typ=fonction_c ),
7167            COEF_MULT_C     =SIMP(statut='f',typ='C' ),
7168            FONC_MULT       =SIMP(statut='f',typ=fonction ),
7169            COEF_MULT       =SIMP(statut='f',typ='R' ),
7170            PHAS_DEG        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7171            PUIS_PULS       =SIMP(statut='f',typ='I',defaut= 0 ),
7172          ),
7173          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7174 )  ;
7175 #& MODIF COMMANDE  DATE 28/03/2001   AUTEUR CIBHHLV L.VIVAN
7176 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7177 # ======================================================================
7178 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7179 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
7180 #              REDISTRIBUTION OF THIS FILE.
7181 # ======================================================================
7182 DYNA_LINE_TRAN=OPER(nom="DYNA_LINE_TRAN",op=  48,sd_prod=dyna_trans,
7183                     fr="Réponse temporelle d un système à une excitation transitoire",
7184                     docu="U4.53.02-f",reentrant='f',
7185          regles=(UN_PARMI('NEWMARK','WILSON','DIFF_CENTRE','ADAPT'),),
7186          MODELE          =SIMP(statut='f',typ=modele ),
7187          CHAM_MATER      =SIMP(statut='f',typ=cham_mater ),
7188          CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
7189          MATR_MASS       =SIMP(statut='o',typ=matr_asse_depl_r ),
7190          MATR_RIGI       =SIMP(statut='o',typ=matr_asse_depl_r ),
7191          MATR_AMOR       =SIMP(statut='f',typ=matr_asse_depl_r ),
7192          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
7193          NEWMARK         =FACT(statut='f',min=01,max=01,
7194            ALPHA           =SIMP(statut='f',typ='R',defaut= 0.25 ),
7195            DELTA           =SIMP(statut='f',typ='R',defaut= 0.5 ),
7196          ),
7197          WILSON          =FACT(statut='f',min=01,max=01,
7198            THETA           =SIMP(statut='f',typ='R',defaut= 1.4 ),
7199          ),
7200          DIFF_CENTRE     =FACT(statut='f',min=01,max=01,
7201          ),
7202          ADAPT           =FACT(statut='f',min=01,max=01,
7203          ),
7204          ETAT_INIT       =FACT(statut='f',min=01,max=01,
7205            regles=(EXCLUS('DYNA_TRANS','DEPL_INIT'),
7206                    EXCLUS('DYNA_TRANS','VITE_INIT'),),
7207            DYNA_TRANS      =SIMP(statut='f',typ=dyna_trans ),
7208 #  j ai interprete la doc U : est-ce bon
7209            b_dyna_trans    =BLOC(condition = "DYNA_TRANS != None",
7210              regles=(EXCLUS('NUME_INIT','INST_INIT' ),),
7211              NUME_INIT       =SIMP(statut='f',typ='I' ),
7212              INST_INIT       =SIMP(statut='f',typ='R' ),
7213              b_inst_init     =BLOC(condition = "INST_INIT != None",
7214                PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
7215                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7216              ),
7217            ),
7218            DEPL_INIT       =SIMP(statut='f',typ=(cham_no_depl_r) ),
7219            VITE_INIT       =SIMP(statut='f',typ=(cham_no_depl_r) ),
7220          ),
7221          EXCIT           =FACT(statut='f',min=01,max='**',
7222            regles=(UN_PARMI('CHARGE','VECT_ASSE'),
7223                    EXCLUS('CHARGE','COEF_MULT'),
7224                    EXCLUS('FONC_MULT','COEF_MULT'),
7225                    EXCLUS('ACCE','COEF_MULT'),
7226                    PRESENT_ABSENT('ACCE','FONC_MULT'),
7227                    PRESENT_PRESENT('ACCE','VITE','DEPL'),
7228                    PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
7229            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
7230            CHARGE          =SIMP(statut='f',typ=char_meca ),
7231            FONC_MULT       =SIMP(statut='f',typ=fonction ),
7232            COEF_MULT       =SIMP(statut='f',typ='R' ),
7233            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
7234            ACCE            =SIMP(statut='f',typ=fonction ),
7235            VITE            =SIMP(statut='f',typ=fonction ),
7236            DEPL            =SIMP(statut='f',typ=fonction ),
7237            MULT_APPUI      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
7238            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
7239            NOEUD           =SIMP(statut='f',typ=no,max='**'),
7240            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
7241          ),
7242          AMOR_MODAL      =FACT(statut='f',min=01,max=01,
7243            MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
7244            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
7245            NB_MODE         =SIMP(statut='f',typ='I',defaut= 9999 ),
7246            REAC_VITE       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7247          ),
7248 #  ce n est pas le mot clesolveur standard
7249          SOLVEUR         =FACT(statut='d',min=01,max=01,
7250            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7251            NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
7252            STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7253            RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
7254            NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
7255          ),
7256          INCREMENT       =FACT(statut='o',min=01,max='**',
7257            regles=(UN_PARMI('LIST_INST','FONC_INST','PAS'),),
7258            LIST_INST       =SIMP(statut='f',typ=listr8 ),
7259            FONC_INST       =SIMP(statut='f',typ=fonction ),
7260            PAS             =SIMP(statut='f',typ='R' ),
7261            b_pas           =BLOC(condition = "PAS != None",
7262                INST_INIT       =SIMP(statut='f',typ='R' ),
7263                INST_FIN        =SIMP(statut='f',typ='R' ),
7264            ),
7265            b_list_fonc     =BLOC(condition = "LIST_INST != None or FONC_INST != None",
7266                regles=(EXCLUS('INST_FIN','NUME_FIN'),),
7267                NUME_FIN        =SIMP(statut='f',typ='I' ),
7268                INST_FIN        =SIMP(statut='f',typ='R' ),
7269            ),
7270            VITE_MIN        =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
7271            COEF_MULT_PAS   =SIMP(statut='f',typ='R',defaut= 1.1 ),
7272            COEF_DIVI_PAS   =SIMP(statut='f',typ='R',defaut= 1.33334 ),
7273            PAS_LIMI_RELA   =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
7274            NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
7275            NMAX_ITER_PAS   =SIMP(statut='f',typ='I',defaut= 16 ),
7276            PAS_CALCUL      =SIMP(statut='f',typ='I',defaut= 1 ),
7277          ),
7278          ARCHIVAGE       =FACT(statut='f',min=01,max=01,
7279            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH', ),),
7280            LIST_ARCH       =SIMP(statut='f',typ=listis ),
7281            PAS_ARCH        =SIMP(statut='f',typ='I' ),
7282            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","VITE","ACCE") ),
7283          ),
7284          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7285          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
7286 )  ;
7287 #& MODIF COMMANDE  DATE 30/01/2002   AUTEUR VABHHTS J.TESELET
7288 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7289 # ======================================================================
7290 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7291 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
7292 #              REDISTRIBUTION OF THIS FILE.
7293 # ======================================================================
7294 DYNA_NON_LINE=OPER(nom="DYNA_NON_LINE",op= 70,sd_prod=evol_noli,reentrant='f',
7295                    fr="Analyse mécanique dynamique non linéaire",docu="U4.53.01-e1",
7296          regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS',),
7297                  UN_PARMI('NEWMARK','HHT', ),),
7298          MODELE          =SIMP(statut='o',typ=modele),
7299          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
7300          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,)),
7301          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
7302          EXCIT           =FACT(statut='o',min=1,max='**',
7303            regles=(PRESENT_ABSENT('FONC_MULT','ACCE'),
7304                    PRESENT_PRESENT('ACCE','VITE','DEPL'),
7305                    PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
7306            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
7307                                  into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
7308            CHARGE          =SIMP(statut='o',typ=char_meca),
7309            FONC_MULT       =SIMP(statut='f',typ=fonction),
7310            DEPL            =SIMP(statut='f',typ=fonction),
7311            ACCE            =SIMP(statut='f',typ=fonction),
7312            VITE            =SIMP(statut='f',typ=fonction),
7313            MULT_APPUI      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7314            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
7315            NOEUD           =SIMP(statut='f',typ=no,max='**'),
7316            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
7317          ),
7318          AMOR_MODAL      =FACT(statut='f',min=1,max=1,
7319            MODE_MECA       =SIMP(statut='f',typ=mode_meca),
7320            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**' ),
7321            NB_MODE         =SIMP(statut='f',typ='I',defaut= 9999 ),
7322            REAC_VITE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7323          ),
7324          COMP_INCR       =FACT(statut='f',min=1,max='**',
7325            RELATION        =SIMP(statut='o',typ='TXM',defaut="VMIS_ISOT_TRAC",
7326                                  into=( "ELAS",
7327                                         "VMIS_ISOT_TRAC",
7328                                         "VMIS_ISOT_LINE",
7329                                         "VMIS_ECMI_TRAC",
7330                                         "VMIS_ECMI_LINE",
7331                                         "LABORD_1D",
7332                                         "ENDO_LOCAL",
7333                                         "ENDO_FRAGILE",
7334                                         "BETON_ENDO_LOCAL",
7335                                         "RUPT_FRAG",
7336                                         "PLAS_GRAD_LINE",
7337                                         "PLAS_GRAD_TRAC",
7338                                         "DURC_GRAD",
7339                                         "META_P_IL",
7340                                         "META_P_IL_PT",
7341                                         "META_P_IL_RE",
7342                                         "META_P_IL_PT_RE",
7343                                         "META_V_IL",
7344                                         "META_V_IL_PT",
7345                                         "META_V_IL_RE",
7346                                         "META_V_IL_PT_RE",
7347                                         "META_P_INL",
7348                                         "META_P_INL_PT",
7349                                         "META_P_INL_RE",
7350                                         "META_P_INL_PT_RE",
7351                                         "META_V_INL",
7352                                         "META_V_INL_PT",
7353                                         "META_V_INL_RE",
7354                                         "META_V_INL_PT_RE",
7355                                         "META_P_CL",
7356                                         "META_P_CL_PT",
7357                                         "META_P_CL_RE",
7358                                         "META_P_CL_PT_RE",
7359                                         "META_V_CL",
7360                                         "META_V_CL_PT",
7361                                         "META_V_CL_RE",
7362                                         "META_V_CL_PT_RE",
7363                                         "VMIS_CINE_LINE",
7364                                         "VISC_TAHERI",
7365                                         "CHABOCHE",
7366                                         "VISCOCHAB",
7367                                         "VMIS_CIN1_CHAB",
7368                                         "VMIS_CIN2_CHAB",
7369                                         "POLY_CFC",
7370                                         "LMARC",
7371                                         "ROUSSELIER",
7372                                         "ROUSS_PR",
7373                                         "ROUSS_VISC",
7374                                         "VMIS_POU_LINE",
7375                                         "VMIS_POU_FLEJOU",
7376                                         "COULOMB",
7377                                         "ARME",
7378                                         "ASSE_CORN",
7379                                         "NORTON_HOFF",
7380                                         "LEMAITRE",
7381                                         "ZIRC_CYRA2",
7382                                         "ZIRC_EPRI",
7383                                         "ASSE_COMBU",
7384                                         "VENDOCHAB",
7385                                         "NADAI_B",
7386                                         "DIS_CONTACT",
7387                                         "DIS_CHOC",
7388                                         "DIS_GOUJ2E_PLAS",
7389                                         "DIS_GOUJ2E_ELAS",
7390                                         "GRILLE_ISOT_LINE",
7391                                         "GRILLE_CINE_LINE",
7392                                         "GRILLE_PINTO_MEN",
7393                                         "PINTO_MENEGOTTO",
7394                                         "CJS",
7395                                         "OHNO",
7396                                         "GRANGER_FP",
7397                                         "GRANGER_FP_V",
7398                                         "BETON_DOUBLE_DP",
7399                                         "KIT_HM",
7400                                         "KIT_HHM",
7401                                         "KIT_THH",
7402                                         "KIT_THM",
7403                                         "KIT_THHM",
7404                                         "VMIS_ASYM_LINE",
7405                                         "ELAS_THM",
7406                                         "SURF_ETAT_NSAT",
7407                                         "SURF_ETAT_SATU",
7408                                         "CAM_CLAY_THM",
7409                                         "KIT_DDI",
7410                                      ) ),
7411            ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7412            VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
7413            VMIS_ISOT_LINE  =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
7414            VMIS_ECMI_TRAC  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
7415            VMIS_ECMI_LINE  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
7416            LABORD_1D   =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
7417            ENDO_LOCAL      =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
7418            ENDO_FRAGILE    =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
7419            BETON_ENDO_LOCAL=SIMP(statut='c',typ='I',defaut=2,into=(2,)),
7420            RUPT_FRAG       =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
7421            PLAS_GRAD_LINE  =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
7422            PLAS_GRAD_TRAC  =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
7423            DURC_GRAD       =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
7424            META_P_IL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7425           META_P_IL_PT       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7426           META_P_IL_RE       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7427           META_P_IL_PT_RE    =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7428           META_V_IL          =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7429           META_V_IL_PT       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7430           META_V_IL_RE       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7431           META_V_IL_PT_RE    =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7432           META_P_INL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7433           META_P_INL_PT      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7434           META_P_INL_RE      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7435           META_P_INL_PT_RE   =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7436           META_V_INL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7437           META_V_INL_PT      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7438           META_V_INL_RE      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7439           META_V_INL_PT_RE   =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7440           META_P_CL          =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
7441           META_P_CL_PT       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
7442           META_P_CL_RE       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
7443           META_P_CL_PT_RE    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
7444           META_V_CL          =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
7445           META_V_CL_PT       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
7446           META_V_CL_RE       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
7447           META_V_CL_PT_RE    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
7448            VMIS_CINE_LINE  =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
7449            CHABOCHE        =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
7450            VISCOCHAB       =SIMP(statut='c',typ='I',defaut=28,into=(28,)),
7451            VMIS_CIN1_CHAB  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
7452            VMIS_CIN2_CHAB  =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
7453            POLY_CFC        =SIMP(statut='c',typ='I',defaut=1688,into=(1688,)),
7454            LMARC           =SIMP(statut='c',typ='I',defaut=20,into=(20,)),
7455            VISC_TAHERI     =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
7456            ROUSSELIER      =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
7457            ROUSS_PR        =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
7458            ROUSS_VISC      =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
7459            VMIS_POU_LINE   =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
7460            VMIS_POU_FLEJOU =SIMP(statut='c',typ='I',defaut=9 ,into=(9,)),
7461            COULOMB         =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
7462            ASSE_CORN       =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
7463            ARME            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7464            NORTON_HOFF     =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7465            LEMAITRE        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
7466            ZIRC_CYRA2      =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
7467            ZIRC_EPRI       =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
7468            ASSE_COMBU      =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
7469            NADAI_B         =SIMP(statut='c',typ='I',defaut=34,into=(34,)),
7470            VENDOCHAB       =SIMP(statut='c',typ='I',defaut=10,into=(10,)),
7471            GRILLE_ISOT_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
7472            GRILLE_CINE_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
7473            GRILLE_PINTO_MEN=SIMP(statut='c',typ='I',defaut=16,into=(16,)),
7474            DIS_CONTACT     =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
7475            DIS_CHOC        =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
7476            DIS_GOUJ2E_PLAS =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
7477            DIS_GOUJ2E_ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7478            PINTO_MENEGOTTO =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
7479            CJS             =SIMP(statut='c',typ='I',defaut=16,into=(16,)),
7480            OHNO            =SIMP(statut='c',typ='I',defaut=32,into=(32,)),
7481            GRANGER_FP      =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
7482            GRANGER_FP_V    =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
7483            BETON_DOUBLE_DP =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
7484            KIT_HM          =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
7485            KIT_HHM         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
7486            KIT_THH         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
7487            KIT_THM         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
7488            KIT_THHM        =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
7489            VMIS_ASYM_LINE  =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
7490
7491            RELATION_KIT    =SIMP(statut='f',typ='TXM',max='**',
7492                                  into=(
7493 # MECA
7494                                        "ELAS",
7495                                        "CJS",
7496                                        "ELAS_THM",
7497                                        "SURF_ETAT_NSAT",
7498                                        "SURF_ETAT_SATU",
7499                                        "CAM_CLAY_THM",
7500 # THMC
7501                                        "GAZ",
7502                                        "LIQU_SATU",
7503                                        "LIQU_SATU_GAT",
7504                                        "LIQU_GAZ_ATM",
7505                                        "LIQU_VAPE_GAZ",
7506                                        "LIQU_NSAT_GAT",
7507                                        "LIQU_GAZ",
7508 # THER
7509                                        "THER_HOMO",
7510                                        "THER_POLY",
7511 # HYDR
7512                                        "HYDR_UTIL",
7513                                        "HYDR",
7514 # MECA_META
7515                                        "ACIER",
7516                                        "ZIRC",
7517 # MECA KIT_DDI
7518                                        "VMIS_ISOT_TRAC",
7519                                        "VMIS_ISOT_LINE",
7520                                        "VMIS_ISOT_CINE",
7521                                        "GRANGER_FP",
7522                                        "GRANGER_FP_V",
7523                                        "ROUSSELIER",
7524                                        "CHABOCHE",
7525                                        "OHNO",
7526                                        "NADAI_B",
7527                                        "BETON_DOUBLE_DP",
7528                                        ) ),
7529            ELAS_THM        =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7530            SURF_ETAT_NSAT  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7531            SURF_ETAT_SATU  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7532            CAM_CLAY_THM    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
7533            GAZ             =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7534            LIQU_SATU       =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
7535            LIQU_SATU_GAT   =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
7536            LIQU_GAZ_ATM    =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
7537            LIQU_VAPE_GAZ   =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
7538            LIQU_NSAT_GAT   =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
7539            LIQU_GAZ        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
7540            THER_HOMO       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
7541            THER_POLY       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
7542            HYDR_UTIL       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
7543            HYDR            =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
7544            ACIER           =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
7545            ZIRC            =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
7546
7547            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC","SIMO_MIEHE","GREEN_GR","GREEN",)),
7548            ALGO_C_PLAN     =SIMP(statut='f',typ='TXM',defaut="ANALYTIQUE",into=("DEBORST","ANALYTIQUE",)),
7549       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
7550            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7551            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
7552            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
7553          ),
7554          COMP_ELAS       =FACT(statut='f',min=1,max='**',
7555            RELATION        =SIMP(statut='o',typ='TXM',defaut="ELAS",
7556                                  into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
7557                                        "ELAS_POUTRE_GR","CABLE")),
7558            ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7559            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7560            ELAS_VMIS_LINE  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7561            ELAS_POUTRE_GR  =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
7562            CABLE           =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
7563            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GREEN","GREEN_GR",) ),
7564       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
7565            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7566            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
7567            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
7568          ),
7569 #-------------------------------------------------------------------
7570          ETAT_INIT       =FACT(statut='f',min=1,max=1,
7571            regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','VITE','SIGM','VARI','VARI_NON_LOCAL',),
7572                    EXCLUS('EVOL_NOLI','DEPL',),
7573                    EXCLUS('EVOL_NOLI','VITE'),
7574                    EXCLUS('EVOL_NOLI','SIGM',),
7575                    EXCLUS('EVOL_NOLI','VARI',),
7576                    EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
7577                    EXCLUS('NUME_ORDRE','INST'), ),
7578            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
7579            VITE            =SIMP(statut='f',typ=cham_no_depl_r),
7580            SIGM            =SIMP(statut='f',typ=(cham_elem_sief_r,carte_sief_r)),
7581            VARI            =SIMP(statut='f',typ=cham_elem_vari_r),
7582            VARI_NON_LOCAL  =SIMP(statut='f',typ=cham_no_vanl_r),
7583            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
7584            NUME_ORDRE      =SIMP(statut='f',typ='I'),
7585            INST            =SIMP(statut='f',typ='R'),
7586            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
7587            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7588            NUME_DIDI       =SIMP(statut='f',typ='I'),
7589            INST_ETAT_INIT  =SIMP(statut='f',typ='R'),
7590          ),
7591 #-------------------------------------------------------------------
7592          INCREMENT       =FACT(statut='o',min=1,max=1,
7593            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
7594                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
7595            LIST_INST       =SIMP(statut='o',typ=listr8),
7596            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
7597                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
7598            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
7599            INST_INIT       =SIMP(statut='f',typ='R'),
7600            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
7601            INST_FIN        =SIMP(statut='f',typ='R'),
7602            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
7603            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
7604            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
7605            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7606          ),
7607 #-------------------------------------------------------------------
7608          NEWMARK         =FACT(statut='f',min=1,max=1,
7609            ALPHA           =SIMP(statut='f',typ='R',defaut= 0.25),
7610            DELTA           =SIMP(statut='f',typ='R',defaut= 0.5),
7611          ),
7612          HHT             =FACT(statut='f',min=1,max=1,
7613            ALPHA           =SIMP(statut='f',typ='R'
7614                                 ,defaut= -0.29999999999999999 ),
7615          ),
7616          NEWTON          =FACT(statut='d',min=1,max=1,
7617            REAC_INCR       =SIMP(statut='f',typ='I',defaut= 1 ),
7618            PREDICTION      =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE") ),
7619            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
7620            REAC_ITER       =SIMP(statut='f',typ='I',defaut= 0),
7621            PAS_MINI_ELAS   =SIMP(statut='f',typ='R',defaut=0.0E+0),
7622          ),
7623          SOLVEUR         =FACT(statut='d',min=1,max=1,
7624            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
7625            b_mult_front    =BLOC(condition= "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
7626              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
7627            ),
7628            b_ldlt          =BLOC(condition= "METHODE == 'LDLT'",fr="Paramètres de la méthode LDLT",
7629              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
7630            ),
7631            b_ldlt_mult     =BLOC(condition="METHODE == 'LDLT' or METHODE == 'MULT_FRONT'",
7632                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
7633              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
7634              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","DECOUPE") ),
7635            ),
7636            b_gcpc          =BLOC(condition="METHODE == 'GCPC'",fr="Paramètres de la méthode du gradient conjugué",
7637              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
7638              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
7639              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
7640              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
7641              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
7642            ),
7643            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7644            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7645          ),
7646 #-------------------------------------------------------------------
7647          RECH_LINEAIRE   =FACT(statut='f',min=1,max=1,
7648            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
7649            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 3),
7650          ),
7651          PILOTAGE        =FACT(statut='f',min=1,max=1,
7652            regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
7653            TYPE            =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","PRED_ELAS_INCR","DEFORMATION") ),
7654            COEF_MULT       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7655            ETA_PILO_MAX    =SIMP(statut='f',typ='R'),
7656            ETA_PILO_MIN    =SIMP(statut='f',typ='R'),
7657            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7658            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
7659            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
7660            NOEUD           =SIMP(statut='f',typ=no,max='**'),
7661            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
7662            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**' ),
7663                          ),
7664          CONVERGENCE     =FACT(statut='d',min=1,max=1,
7665            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
7666            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
7667            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
7668            ITER_GLOB_ELAS  =SIMP(statut='f',typ='I',defaut=25),
7669            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
7670            RESI_INTE_RELA  =SIMP(statut='f',typ='R'
7671                                 ,defaut= 1.0E-6),
7672            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
7673            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut= 0 ),
7674            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
7675            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
7676                                  into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
7677          ),
7678 #-------------------------------------------------------------------
7679          OPTION          =SIMP(statut='f',typ='TXM',max='**',defaut="ELNO",
7680                                into=("SIEF_ELNO_ELGA","VARI_ELNO_ELGA","EFGE_ELNO_CART","ELNO","SANS") ),
7681          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
7682            regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
7683                    EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
7684            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
7685            INST            =SIMP(statut='f',typ='R',max='**' ),
7686            PAS_ARCH        =SIMP(statut='f',typ='I' ),
7687            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
7688            ARCH_ETAT_INIT  =SIMP(statut='f',typ='TXM',into=("OUI",)),
7689            NUME_INIT       =SIMP(statut='f',typ='I'),
7690            DETR_NUME_SUIV  =SIMP(statut='f',typ='TXM',into=("OUI",)),
7691            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**',
7692            into=("DEPL","SIEF_ELGA","VARI_ELGA","ACCE","VITE","VARI_NON_LOCAL","LANL_ELGA")),
7693          ),
7694          OBSERVATION     =FACT(statut='f',min=1,max='**',
7695            regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
7696                    PRESENT_PRESENT('MAILLE','POINT'),),
7697            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
7698
7699 into=("DEPL","VITE","ACCE","SIEF_ELGA","VARI_ELGA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU") ),
7700            NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
7701            LIST_ARCH       =SIMP(statut='f',typ=listis),
7702            LIST_INST       =SIMP(statut='f',typ=listr8),
7703            INST            =SIMP(statut='f',typ='R',max='**' ),
7704            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
7705            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7706            PAS_OBSE        =SIMP(statut='f',typ='I'),
7707            NOEUD           =SIMP(statut='f',typ=no,max='**'),
7708            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
7709            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
7710            POINT           =SIMP(statut='f',typ='I',max='**'),
7711          ),
7712 #-------------------------------------------------------------------
7713          MODELE_NON_LOCAL=SIMP(statut='f',typ=(modele) ),
7714          b_non_local = BLOC ( condition = "MODELE_NON_LOCAL != None",
7715                               fr="Données spécifiques au modèle non local",
7716            SOLV_NON_LOCAL  =FACT(statut='f',min=1,max=1,
7717              METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
7718              b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
7719                RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
7720              ),
7721              b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
7722                RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
7723              ),
7724              b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
7725                                     fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
7726                NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
7727                STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7728              ),
7729              b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
7730                PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
7731                NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
7732                RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
7733                NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
7734              ),
7735              EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7736            ),
7737            LAGR_NON_LOCAL  =FACT(statut='f',max=1,
7738              ITER_DUAL_MAXI  =SIMP(statut='f',typ='I',defaut= 50),
7739              RESI_DUAL_ABSO  =SIMP(statut='o',typ='R'),
7740              RESI_PRIM_ABSO  =SIMP(statut='o',typ='R'),
7741              RHO             =SIMP(statut='f',typ='R',defaut= 1000.),
7742              ITER_PRIM_MAXI  =SIMP(statut='f',typ='I',defaut= 10),
7743            ),
7744          ),
7745 #-------------------------------------------------------------------
7746          PARM_THETA      =SIMP(statut='f',typ='R'
7747                               ,defaut= 1. ),
7748 #-------------------------------------------------------------------
7749          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
7750          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7751 )  ;
7752 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
7753 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7754 # ======================================================================
7755 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7756 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
7757 #              REDISTRIBUTION OF THIS FILE.
7758 # ======================================================================
7759 DYNA_SPEC_MODAL=OPER(nom="DYNA_SPEC_MODAL",op= 147,sd_prod=tabl_intsp,
7760                      fr="Calcul de la réponse par recombinaison modale d'une structure linéaire pour une excitation aléatoire",
7761                      docu="U4.53.23-c",reentrant='n',
7762          BASE_ELAS_FLUI  =SIMP(statut='o',typ=melasflu ),
7763          EXCIT           =FACT(statut='o',min=00,max=01,
7764            INTE_SPEC_GENE  =SIMP(statut='o',typ=tabl_intsp ),
7765          ),
7766          OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
7767          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7768 )  ;
7769 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
7770 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7771 # ======================================================================
7772 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7773 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
7774 #              REDISTRIBUTION OF THIS FILE.
7775 # ======================================================================
7776 DYNA_TRAN_MODAL=OPER(nom="DYNA_TRAN_MODAL",op=  74,sd_prod=tran_gene,
7777                      fr="Réponse dynamique transitoire en coordonnées généralisées par recombinaison modale",
7778                      docu="U4.53.21-e",reentrant='f',
7779       regles=(EXCLUS('AMOR_REDUIT','AMOR_GENE','LIST_AMOR'),
7780               PRESENT_ABSENT('MODE_STAT','MODE_CORR'),),
7781          METHODE         =SIMP(statut='f',typ='TXM',defaut="EULER",
7782                                into=("EULER","NEWMARK","DEVOGE","ADAPT","ITMI") ),
7783          MASS_GENE       =SIMP(statut='o',typ=matr_asse_gene_r ),
7784          RIGI_GENE       =SIMP(statut='o',typ=matr_asse_gene_r ),
7785          AMOR_GENE       =SIMP(statut='f',typ=matr_asse_gene_r ),
7786          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
7787          LIST_AMOR       =SIMP(statut='f',typ=listr8 ),
7788          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc) ),
7789          MODE_CORR       =SIMP(statut='f',typ=(mult_elas,mode_stat_acce) ,),
7790
7791          ETAT_INIT       =FACT(statut='f',min=01,max=01,
7792            regles=(EXCLUS('RESU_GENE','DEPL_INIT_GENE'),
7793                    EXCLUS('RESU_GENE','VITE_INIT_GENE'),),
7794            RESU_GENE       =SIMP(statut='f',typ=tran_gene ),
7795            b_resu_gene     =BLOC(condition = "RESU_GENE != None",
7796              INST_INIT       =SIMP(statut='f',typ='R' ),
7797              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
7798              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7799            ),
7800            DEPL_INIT_GENE  =SIMP(statut='f',typ=vect_asse_gene ),
7801            VITE_INIT_GENE  =SIMP(statut='f',typ=vect_asse_gene ),
7802          ),
7803          INCREMENT       =FACT(statut='o',min=01,max='**',
7804            INST_INIT       =SIMP(statut='f',typ='R' ),
7805            INST_FIN        =SIMP(statut='o',typ='R' ),
7806            PAS             =SIMP(statut='f',typ='R' ),
7807            VERI_PAS        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7808            VITE_MIN        =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
7809            COEF_MULT_PAS   =SIMP(statut='f',typ='R',defaut= 1.1 ),
7810            COEF_DIVI_PAS   =SIMP(statut='f',typ='R',defaut= 1.3333334 ),
7811            PAS_LIMI_RELA   =SIMP(statut='f',typ='R',defaut= 1.0E-6 ),
7812            NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
7813            NMAX_ITER_PAS   =SIMP(statut='f',typ='I',defaut= 16 ),
7814          ),
7815          ARCHIVAGE       =FACT(statut='f',min=01,max=01,
7816            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH'),),
7817            LIST_ARCH       =SIMP(statut='f',typ=listis ),
7818            PAS_ARCH        =SIMP(statut='f',typ='I' ),
7819          ),
7820
7821          NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 20 ),
7822          RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
7823          LAMBDA          =SIMP(statut='f',typ='R',defaut= 10. ),
7824
7825          EXCIT           =FACT(statut='f',min=01,max='**',
7826            regles=(UN_PARMI('FONC_MULT','COEF_MULT','ACCE'),
7827                    PRESENT_PRESENT('ACCE','VITE','DEPL'),
7828                    PRESENT_PRESENT('D_FONC_DT','D_FONC_DT2'),
7829                    PRESENT_ABSENT('NUME_MODE','VECT_GENE','COEF_MULT'),
7830                    PRESENT_ABSENT('MULT_APPUI','CORR_STAT'),
7831                    PRESENT_ABSENT('MULT_APPUI','COEF_MULT'),
7832                    PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
7833            VECT_GENE       =SIMP(statut='f',typ=vect_asse_gene ),
7834            NUME_MODE       =SIMP(statut='f',typ='I' ),
7835            FONC_MULT       =SIMP(statut='f',typ=fonction ),
7836            COEF_MULT       =SIMP(statut='f',typ='R' ),
7837            ACCE            =SIMP(statut='f',typ=fonction ),
7838            VITE            =SIMP(statut='f',typ=fonction ),
7839            DEPL            =SIMP(statut='f',typ=fonction ),
7840            MULT_APPUI      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7841            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
7842            b_loca          =BLOC(condition= "DIRECTION != None",
7843              regles=(EXCLUS('NOEUD','GROUP_NO'),),
7844              NOEUD           =SIMP(statut='f',typ=no,max='**'),
7845              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
7846            ),
7847            CORR_STAT       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7848            D_FONC_DT       =SIMP(statut='f',typ=fonction ),
7849            D_FONC_DT2      =SIMP(statut='f',typ=fonction ),
7850          ),
7851          CHOC            =FACT(statut='f',min=01,max='**',
7852            regles=(UN_PARMI('NOEUD_1','GROUP_NO_1' ),
7853                    PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
7854                    PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
7855            INTITULE        =SIMP(statut='f',typ='TXM' ),
7856            NOEUD_1         =SIMP(statut='f',typ=no),
7857            NOEUD_2         =SIMP(statut='f',typ=no),
7858            GROUP_NO_1      =SIMP(statut='f',typ=grno),
7859            GROUP_NO_2      =SIMP(statut='f',typ=grno),
7860            OBSTACLE        =SIMP(statut='o',typ=obstacle ),
7861            ORIG_OBST       =SIMP(statut='f',typ='R',min=3,max=3),
7862            NORM_OBST       =SIMP(statut='o',typ='R',min=3,max=3),
7863            ANGL_VRIL       =SIMP(statut='f',typ='R' ),
7864            JEU             =SIMP(statut='f',typ='R',defaut= 1. ),
7865            DIST_1          =SIMP(statut='f',typ='R',val_min=0.E+0 ),
7866            DIST_2          =SIMP(statut='f',typ='R',val_min=0.E+0 ),
7867            SOUS_STRUC_1    =SIMP(statut='f',typ='TXM' ),
7868            SOUS_STRUC_2    =SIMP(statut='f',typ='TXM' ),
7869            REPERE          =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
7870            RIGI_NOR        =SIMP(statut='f',typ='R' ),
7871            AMOR_NOR        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7872            RIGI_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7873            AMOR_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7874            COULOMB         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7875
7876            LAME_FLUIDE     =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7877            b_lame          =BLOC(condition="LAME_FLUIDE=='OUI'",
7878                ALPHA           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7879                BETA            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7880                CHI             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7881                DELTA           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7882            ),
7883          ),
7884          VERI_CHOC       =FACT(statut='f',min=01,max='**',
7885            STOP_CRITERE    =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7886            SEUIL           =SIMP(statut='f',typ='R',defaut= 0.5 ),
7887          ),
7888          FLAMBAGE        =FACT(statut='f',min=01,max='**',
7889            regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
7890                    PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
7891                    PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
7892            NOEUD_1         =SIMP(statut='f',typ=no),
7893            NOEUD_2         =SIMP(statut='f',typ=no),
7894            GROUP_NO_1      =SIMP(statut='f',typ=grno),
7895            GROUP_NO_2      =SIMP(statut='f',typ=grno),
7896            OBSTACLE        =SIMP(statut='o',typ=obstacle ),
7897            ORIG_OBST       =SIMP(statut='f',typ='R',max='**'),
7898            NORM_OBST       =SIMP(statut='o',typ='R',max='**'),
7899            ANGL_VRIL       =SIMP(statut='f',typ='R' ),
7900            JEU             =SIMP(statut='f',typ='R',defaut= 1. ),
7901            DIST_1          =SIMP(statut='f',typ='R' ),
7902            DIST_2          =SIMP(statut='f',typ='R' ),
7903            REPERE          =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
7904            RIGI_NOR        =SIMP(statut='f',typ='R' ),
7905            FNOR_CRIT       =SIMP(statut='f',typ='R' ),
7906            FNOR_POST_FL    =SIMP(statut='f',typ='R' ),
7907            RIGI_NOR_POST_FL=SIMP(statut='f',typ='R' ),
7908          ),
7909          ANTI_SISM       =FACT(statut='f',min=01,max='**',
7910            regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
7911                    UN_PARMI('NOEUD_2','GROUP_NO_2'),
7912                    PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
7913                    PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
7914            NOEUD_1         =SIMP(statut='f',typ=no),
7915            NOEUD_2         =SIMP(statut='f',typ=no),
7916            GROUP_NO_1      =SIMP(statut='f',typ=grno),
7917            GROUP_NO_2      =SIMP(statut='f',typ=grno),
7918            RIGI_K1         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7919            RIGI_K2         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7920            SEUIL_FX        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7921            C               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7922            PUIS_ALPHA      =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7923            DX_MAX          =SIMP(statut='f',typ='R',defaut= 1. ),
7924          ),
7925          RELA_EFFO_DEPL  =FACT(statut='f',min=01,max='**',
7926            NOEUD           =SIMP(statut='o',typ=no),
7927            SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
7928            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
7929            RELATION        =SIMP(statut='o',typ=fonction ),
7930          ),
7931          RELA_TRANSIS    =FACT(statut='f',min=01,max='**',
7932            NOEUD           =SIMP(statut='o',typ=no),
7933            SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
7934            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
7935            RELATION        =SIMP(statut='o',typ=fonction ),
7936          ),
7937          RELA_EFFO_VITE  =FACT(statut='f',min=01,max='**',
7938            NOEUD           =SIMP(statut='o',typ=no),
7939            SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
7940            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
7941            RELATION        =SIMP(statut='o',typ=fonction ),
7942          ),
7943          b_itmi          =BLOC(condition = "METHODE=='ITMI'",
7944                 regles=(ENSEMBLE('BASE_ELAS_FLUI','NUME_VITE_FLUI'),),
7945                 BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu ),
7946                 NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
7947                 ETAT_STAT       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7948                 PREC_DUREE      =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
7949                 CHOC_FLUI       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7950                 NB_MODE         =SIMP(statut='f',typ='I' ),
7951                 NB_MODE_FLUI    =SIMP(statut='f',typ='I' ),
7952                 NB_MODE_DIAG    =SIMP(statut='f',typ='I' ),
7953                 TS_REG_ETAB     =SIMP(statut='f',typ='R' ),
7954          ),
7955          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
7956          IMPRESSION      =FACT(statut='f',min=01,max='**',
7957            regles=(EXCLUS('TOUT','NIVEAU'),),
7958            TOUT            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7959            NIVEAU          =SIMP(statut='f',typ='TXM',into=("DEPL_LOC","VITE_LOC","FORC_LOC","TAUX_CHOC") ),
7960            INST_INIT       =SIMP(statut='f',typ='R' ),
7961            INST_FIN        =SIMP(statut='f',typ='R' ),
7962          ),
7963          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7964  )  ;
7965 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
7966 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7967 # ======================================================================
7968 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7969 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
7970 #              REDISTRIBUTION OF THIS FILE.
7971 # ======================================================================
7972 # RESPONSABLE VABHHTS J.PELLET
7973 ENGENDRE_TEST=PROC(nom="ENGENDRE_TEST",op=178,docu="U4.92.11-b",
7974       regles=(UN_PARMI('TOUT','CO'),),
7975          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
7976          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7977          CO              =SIMP(statut='f',typ=assd,max='**'),
7978          TYPE_TEST       =SIMP(statut='f',typ='TXM',defaut="SOMME",into=("SOMME","RESUME") ),
7979          FORMAT_R        =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
7980          PREC_R          =SIMP(statut='f',typ='TXM',defaut="1.E-5"),
7981 )  ;
7982 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
7983 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7984 # ======================================================================
7985 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7986 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
7987 #              REDISTRIBUTION OF THIS FILE.
7988 # ======================================================================
7989 EXEC_LOGICIEL=PROC(nom="EXEC_LOGICIEL",op= 183,fr="",docu="U7.00.01-a",
7990          LOGICIEL        =SIMP(statut='f',typ='TXM' ),
7991          ARGUMENT        =FACT(statut='f',min=01,max='**',
7992            NOM_PARA        =SIMP(statut='f',typ='TXM' ),
7993          ),
7994 )  ;
7995 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
7996 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7997 # ======================================================================
7998 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7999 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8000 #              REDISTRIBUTION OF THIS FILE.
8001 # ======================================================================
8002 #def extr_mode_prod(FILTRE_MODE,TITRE,IMPRESSION ):
8003 #  Sait-on faire
8004 def extr_mode_prod(FILTRE_MODE,**args):
8005   vale=FILTRE_MODE[0]['MODE']
8006   if AsType(vale) == mode_meca   : return mode_meca
8007   if AsType(vale) == mode_meca_c : return mode_meca_c
8008   if AsType(vale) == mode_gene   : return mode_gene
8009   raise AsException("type de concept resultat non prevu")
8010
8011 EXTR_MODE=OPER(nom="EXTR_MODE",op= 168,sd_prod=extr_mode_prod,
8012                docu="U4.52.12-c",reentrant='n',
8013          FILTRE_MODE     =FACT(statut='o',min=01,max='**',
8014            regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','NUME_MODE','NUME_MODE_EXCLU','FREQ_MIN','CRIT_EXTR',),),
8015            MODE            =SIMP(statut='o',typ=(mode_meca,mode_meca_c,mode_gene ) ),
8016            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
8017            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
8018            NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
8019            NUME_MODE_EXCLU =SIMP(statut='f',typ='I',max='**'),
8020            FREQ_MIN        =SIMP(statut='f',typ='R' ),
8021            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN"
8022                                   ,into=("MASS_EFFE_UN","MASS_GENE") ),
8023            b_freq_min      =BLOC(condition = "FREQ_MIN != None",
8024              FREQ_MAX        =SIMP(statut='o',typ='R' ),
8025              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
8026            ),
8027            b_crit_extr     =BLOC(condition = "CRIT_EXTR != None",
8028              SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
8029            ),
8030          ),
8031          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8032          IMPRESSION      =FACT(statut='f',min=01,max=01,
8033            CUMUL           =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8034            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",into=("MASS_EFFE_UN","MASS_GENE") ),
8035          ),
8036 )  ;
8037 #& MODIF COMMANDE  DATE 23/01/2002   AUTEUR CIBHHAB N.RAHNI
8038 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8039 # ======================================================================
8040 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8041 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8042 #              REDISTRIBUTION OF THIS FILE.
8043 # ======================================================================
8044 def extr_resu_prod(RESULTAT,**args):
8045   if AsType(RESULTAT) == evol_elas    : return evol_elas
8046   if AsType(RESULTAT) == evol_noli    : return evol_noli
8047   if AsType(RESULTAT) == evol_ther    : return evol_ther
8048   if AsType(RESULTAT) == dyna_trans   : return dyna_trans
8049   if AsType(RESULTAT) == dyna_harmo   : return dyna_harmo
8050   if AsType(RESULTAT) == acou_harmo   : return acou_harmo
8051   if AsType(RESULTAT) == mode_meca    : return mode_meca
8052   if AsType(RESULTAT) == mode_acou    : return mode_acou
8053   if AsType(RESULTAT) == mode_stat :    return mode_stat
8054   if AsType(mode_stat) == mode_stat_depl :    return mode_stat_depl
8055   if AsType(mode_stat) == mode_stat_acce :    return mode_stat_acce
8056   if AsType(mode_stat) == mode_stat_forc :    return mode_stat_forc
8057   if AsType(RESULTAT) == mult_elas    : return mult_elas
8058   if AsType(RESULTAT) == fourier_elas : return fourier_elas
8059   raise AsException("type de concept resultat non prevu")
8060
8061 EXTR_RESU=OPER(nom="EXTR_RESU",op=176,sd_prod=extr_resu_prod,docu="U4.71.04-b1",reentrant='f',
8062          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
8063                                                mode_acou,mode_stat_depl,mode_stat_acce,mode_stat_forc,evol_ther,evol_noli,
8064                                                mult_elas,fourier_elas ) ),
8065
8066          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
8067            regles=(  UN_PARMI('NUME_ORDRE', 'INST', 'FREQ', 'NUME_MODE',
8068                         'NOEUD_CMP', 'LIST_INST', 'LIST_FREQ', 'LIST_ORDRE',
8069                         'NOM_CAS', 'LIST_ARCH', 'PAS_ARCH' ),
8070                      EXCLUS( 'CHAM_EXCLU','NOM_CHAM' ),   ),
8071            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**'),
8072            NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
8073            PRECISION       =SIMP(statut='f',typ='R',defaut=1.E-3 ),
8074            CRITERE         =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),defaut="RELATIF"),
8075            LIST_ARCH       =SIMP(statut='f',typ=listis),
8076            PAS_ARCH        =SIMP(statut='f',typ='I'),
8077            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
8078            LIST_ORDRE      =SIMP(statut='f',typ=listis),
8079            INST            =SIMP(statut='f',typ='R',max='**'),
8080            LIST_INST       =SIMP(statut='f',typ=listr8),
8081            FREQ            =SIMP(statut='f',typ='R',max='**'),
8082            LIST_FREQ       =SIMP(statut='f',typ=listr8),
8083            NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
8084            NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
8085            NOM_CAS         =SIMP(statut='f',typ='TXM'),
8086                                ),
8087
8088          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
8089 )  ;
8090 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
8091 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8092 # ======================================================================
8093 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8094 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8095 #              REDISTRIBUTION OF THIS FILE.
8096 # ======================================================================
8097 def fact_grad_prod(MATR_ASSE,**args):
8098   if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
8099   if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
8100   if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
8101   raise AsException("type de concept resultat non prevu")
8102
8103 FACT_GRAD=OPER(nom="FACT_GRAD",op=85,sd_prod=fact_grad_prod,docu="U4.55.03-e",
8104                fr="Préconditionnement pour résolution par gradient conjugué",
8105                reentrant='n',
8106          MATR_ASSE       =SIMP(statut='o',
8107                                typ=(matr_asse_depl_r,matr_asse_temp_r,
8108                                     matr_asse_pres_r) ),
8109          PRE_COND        =SIMP(statut='f',typ='TXM',defaut="LDLT_INC",into=("LDLT_INC",) ),
8110          NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
8111          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
8112 )  ;
8113 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
8114 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8115 # ======================================================================
8116 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8117 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8118 #              REDISTRIBUTION OF THIS FILE.
8119 # ======================================================================
8120 FACT_INTE_SPEC=OPER(nom="FACT_INTE_SPEC",op= 117,sd_prod=interspfact,
8121                     fr="Factorisation d une matrice interspectrale hermitienne",
8122                     docu="U4.36.04-e",reentrant='n',
8123          regles=(ENSEMBLE('FREQ_FIN','NB_POIN'),),
8124 #  regle non indiquée dans la doc U
8125          INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
8126          NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
8127          FREQ_INIT       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8128          FREQ_FIN        =SIMP(statut='f',typ='R' ),
8129          NB_POIN         =SIMP(statut='f',typ='I',defaut= 0 ),
8130          SUR_ECHAN       =SIMP(statut='f',typ='R',defaut= 1. ),
8131          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8132 )  ;
8133 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
8134 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8135 # ======================================================================
8136 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8137 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8138 #              REDISTRIBUTION OF THIS FILE.
8139 # ======================================================================
8140 # RESPONSABLE VABHHTS J.PELLET
8141 def fact_ldlt_prod(MATR_ASSE,**args):
8142   if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
8143   if AsType(MATR_ASSE) == matr_asse_depl_c : return matr_asse_depl_c
8144   if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
8145   if AsType(MATR_ASSE) == matr_asse_temp_c : return matr_asse_temp_c
8146   if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
8147   if AsType(MATR_ASSE) == matr_asse_pres_c : return matr_asse_pres_c
8148   raise AsException("type de concept resultat non prevu")
8149
8150 FACT_LDLT=OPER(nom="FACT_LDLT",op=14,sd_prod=fact_ldlt_prod,fr="Factorisation en place ou hors place",
8151                docu="U4.55.01-f",reentrant='f',
8152          regles=(EXCLUS('BLOC_DEBUT','DDL_DEBUT'),
8153                  EXCLUS('BLOC_FIN','DDL_FIN'),),
8154          MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
8155                                                matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
8156          STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8157          NPREC           =SIMP(statut='f',typ='I',defaut=8,val_min=0,),
8158          PRE_COND        =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","DIAG") ),
8159          BLOC_DEBUT      =SIMP(statut='f',typ='I',val_min=1,),
8160          DDL_DEBUT       =SIMP(statut='f',typ='I',val_min=1,),
8161          BLOC_FIN        =SIMP(statut='f',typ='I',val_min=1,),
8162          DDL_FIN         =SIMP(statut='f',typ='I',val_min=1,),
8163 #
8164          EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8165 #
8166          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8167          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
8168 )  ;
8169 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
8170 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8171 # ======================================================================
8172 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8173 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8174 #              REDISTRIBUTION OF THIS FILE.
8175 # ======================================================================
8176 # NEW 5.3.23
8177 FERMER=PROC(nom="FERMER",op=  10,fr=" ",
8178             docu="U4.12.02-a",
8179          UNITE           =SIMP(statut='o',typ='I',max='**' ),
8180 )  ;
8181 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
8182 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8183 # ======================================================================
8184 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8185 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8186 #              REDISTRIBUTION OF THIS FILE.
8187 # ======================================================================
8188 FIN=PROC(nom="FIN",op=9999,repetable='n',fr="Fin d'une étude",
8189          docu="U4.11.02-f",
8190          RETASSAGE       =SIMP(fr="provoque le retassage de la base GLOBALE",
8191                                statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
8192          PERFORMANCE     =SIMP(fr="provoque l'impression d'un résumé des mesures de temps ",
8193                                statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
8194          INFO_RESU       =SIMP(fr="provoque l'impression des informations sur les structures de données",
8195                                statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
8196          FICHIER         =SIMP(statut='f',typ='TXM',defaut="MESSAGE"),
8197 )  ;
8198 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
8199 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8200 # ======================================================================
8201 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8202 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8203 #              REDISTRIBUTION OF THIS FILE.
8204 # ======================================================================
8205 FONC_FLUI_STRU=OPER(nom="FONC_FLUI_STRU",op= 169,sd_prod=fonction,
8206                     docu="U4.35.02-c",reentrant='n',
8207          TYPE_FLUI_STRU  =SIMP(statut='o',typ=(type_flui_stru) ),
8208 )  ;
8209 #& MODIF COMMANDE  DATE 17/09/2001   AUTEUR MCOURTOI M.COURTOIS
8210 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8211 # ======================================================================
8212 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8213 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8214 #              REDISTRIBUTION OF THIS FILE.
8215 # ======================================================================
8216 FORMULE = FORM( nom='FORMULE',op=-5,sd_prod=fonction,
8217                 fr="Définition d une fonction",reentrant = 'n',
8218                 regles=(UN_PARMI('REEL','ENTIER','COMPLEXE'),),
8219                 REEL = SIMP(typ = 'shell',max=1),
8220                 ENTIER = SIMP(typ = 'shell',max=1),
8221                 COMPLEXE = SIMP(typ = 'shell',max=1),
8222 ) ;
8223 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
8224 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8225 # ======================================================================
8226 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8227 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8228 #              REDISTRIBUTION OF THIS FILE.
8229 # ======================================================================
8230 GENE_FONC_ALEA=OPER(nom="GENE_FONC_ALEA",op= 118,sd_prod=tabl_fonc,
8231                     fr="Génération de la fonction temporelle à partir d une matrice interspectrale factorisée",
8232                     docu="U4.36.05-e",reentrant='n',
8233          INTE_SPEC_FACT  =SIMP(statut='o',typ=interspfact ),
8234          INIT_ALEA       =SIMP(statut='f',typ='I',defaut= 12312745 ),
8235          NB_TIRAGE       =SIMP(statut='f',typ='I',defaut= 1 ),
8236          NB_POIN         =SIMP(statut='f',typ='I' ),
8237          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
8238 )  ;
8239 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
8240 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8241 # ======================================================================
8242 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8243 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8244 #              REDISTRIBUTION OF THIS FILE.
8245 # ======================================================================
8246 IMPR_CHARGE=PROC(nom="IMPR_CHARGE",op= 158,
8247                  fr="Impression des charges mécaniques de type ddl imposés et relations linéaires entre les ddl",
8248                  docu="U7.04.31-c",
8249          FICHIER         =SIMP(statut='f',typ='TXM' ),
8250          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",) ),
8251          VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
8252          CHARGE          =SIMP(statut='o',typ=char_meca,max='**', ),
8253 )  ;
8254 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
8255 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8256 # ======================================================================
8257 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8258 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8259 #              REDISTRIBUTION OF THIS FILE.
8260 # ======================================================================
8261 IMPR_CLASSI=PROC(nom="IMPR_CLASSI",op= 114,docu="U7.04.21-a",
8262          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ',
8263                         'LIST_ORDRE' ),),
8264          UNITE_CLASSI    =SIMP(statut='o',typ='I' ),
8265          MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
8266          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8267          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
8268          LIST_ORDRE      =SIMP(statut='f',typ=listis ),
8269          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
8270          FREQ            =SIMP(statut='f',typ='R',max='**'),
8271          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
8272          b_prec_crit     =BLOC(condition = "LIST_FREQ != None or FREQ != None",
8273              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
8274              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
8275                                    into=("RELATIF","ABSOLU") ),
8276          ),
8277          IMPRESSION      =FACT(statut='f',min=01,max='**',
8278            regles=(UN_PARMI('NOEUD','GROUP_NO', ),),
8279            NOEUD           =SIMP(statut='f',typ=no,max='**'),
8280            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
8281            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
8282          ),
8283          AMOR            =SIMP(statut='o',typ='R',max='**'),
8284 )  ;
8285 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
8286 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8287 # ======================================================================
8288 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8289 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8290 #              REDISTRIBUTION OF THIS FILE.
8291 # ======================================================================
8292 # RESPONSABLE VABHHTS J.PELLET
8293 IMPR_CO=PROC(nom="IMPR_CO",op=17,docu="U4.91.11-f",
8294              fr="Impression du contenu d un concept utilisateur (pour développeur)",
8295          regles=(UN_PARMI('CO','CHAINE', ),),
8296          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
8297          NIVEAU          =SIMP(statut='f',typ='I',defaut=2,into=(0,1,2) ),
8298          ATTRIBUT        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","OUI") ),
8299          CONTENU         =SIMP(statut='f',typ='TXM',defaut="OUI",into=("NON","OUI") ),
8300          BASE            =SIMP(statut='f',typ='TXM',defaut="G",into=("","G","V","L") ),
8301          CO              =SIMP(statut='f',typ=assd,max='**'),
8302          CHAINE          =SIMP(statut='f',typ='TXM'),
8303          POSITION        =SIMP(statut='f',typ='I',defaut=1),
8304 )  ;
8305 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
8306 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8307 # ======================================================================
8308 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8309 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8310 #              REDISTRIBUTION OF THIS FILE.
8311 # ======================================================================
8312 # RESPONSABLE MCOURTOI M.COURTOIS
8313 IMPR_COURBE=PROC(nom="IMPR_COURBE",op= 141,fr="Impression, sur fichiers",
8314                  docu="U4.33.01-d1",
8315          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
8316          FORMAT          =SIMP(statut='f',typ='TXM',position='global'
8317                               ,into=("AGRAF","EXCEL","POSTSCRIPT","RESULTAT","COMMANDE","SEISME") ),
8318          b_agraf_post =BLOC(condition = "(FORMAT=='AGRAF') or (FORMAT=='POSTSCRIPT')",fr="Mots-clés communs AGRAF et POSTCRIPT",
8319            BORNE_X         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des abcisses"),
8320            ECHELLE_X       =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),fr="Type d'échelle pour les abcisses" ),
8321            BORNE_Y         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des ordonnées"),
8322            ECHELLE_Y       =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),fr="Type d'échelle pour les ordonnées" ),
8323          ),
8324          b_agraf =BLOC(condition = "(FORMAT=='AGRAF')",fr="Mots-clés propres à AGRAF",
8325            TITRE_GRAPHIQUE =SIMP(statut='f',typ='TXM',fr="Titre associé au graphique" ),
8326            COMMENTAIRE     =SIMP(statut='f',typ='TXM',max='**',fr="Commentaires associés au graphique"),
8327            LEGENDE_X       =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des abcisses" ),
8328            LEGENDE_Y       =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des ordonnées" ),
8329            FREQ_GRILLE_X   =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence de tracage du quadrillage vertical" ),
8330            FREQ_GRILLE_Y   =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence de tracage du quadrillage horizontal" ),
8331          ),
8332          b_excel = BLOC(condition = "(FORMAT=='EXCEL')",fr="Mots-clés propres au format Excel",
8333            BORNE_X         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des abcisses"),
8334            BORNE_Y         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des ordonnées"),
8335          ),
8336          b_post = BLOC (  condition = "(FORMAT=='POSTSCRIPT')",fr="Mots-clés propres à POSTCRIPT",
8337            TITRE           =SIMP(statut='f',typ='TXM',fr="Titre associé au graphique" ),
8338            LABEL_X         =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des abcisses" ),
8339            LABEL_Y         =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des ordonnées" ),
8340            SORTIE          =SIMP(statut='f',typ='TXM',defaut="COULEUR",into=("MONOCHROME","COULEUR"),fr="Type d impression" ),
8341            DATE            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de la date" ),
8342            GRILLE          =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression du quadrillage" ),
8343            AXE_ZERO_X      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de l axe x égal zéro" ),
8344            AXE_ZERO_Y      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de l axe y égal zéro" ),
8345            PRESENTATION    =SIMP(statut='f',typ='TXM',defaut="PAYSAGE",into=("PAYSAGE","PORTRAIT"),
8346                                  fr="Disposition du graphique sur la feuille" ),
8347            FENETRE         =SIMP(statut='f',typ='TXM',defaut="RECTANGLE",into=("CARREE","RECTANGLE"),
8348                                  fr="Forme de la fenetre contenant le graphique" ),
8349          ),
8350          COURBE          =FACT(statut='o',min=01,max='**',fr="Définition de la courbe à tracer",
8351            regles=(UN_PARMI('FONCTION','LIST_RESU','TABLE','FONC_X','RESU_GENE'),),
8352            FONCTION        =SIMP(statut='f',typ=(fonction, fonction_c),
8353                                  fr="Fonction réelle ou complexe", ),
8354            LIST_RESU       =SIMP(statut='f',typ=listr8,
8355                                  fr="Liste des ordonnees d une fonction réelle définie par deux listes", ),
8356 #  creer le type table
8357            TABLE           =SIMP(statut='f',typ=table,
8358                                  fr="Nom de la table dont 2 colonnes définissent la fonction",),
8359            FONC_X          =SIMP(statut='f',typ=fonction,
8360                                  fr="Fonction abscisses d une fonction paramétrique",),
8361            RESU_GENE       =SIMP(statut='f',typ=tran_gene, ),
8362            b_fonction      =BLOC(condition = "FONCTION != None",
8363              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
8364            ),
8365            b_fonction_c  =BLOC(condition = "AsType(FONCTION) == fonction_c",
8366                                  fr="Fonction complexe définie par le mot-clé fonction",
8367              PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
8368            ),
8369            b_list_resu     =BLOC(condition = "LIST_RESU != None",
8370              LIST_PARA       =SIMP(statut='o',typ=listr8 ),
8371            ),
8372            b_table         =BLOC(condition = "TABLE != None",
8373              PARA_X          =SIMP(statut='o',typ='TXM',
8374                                    fr="Paramètre de la table associé aux abcisses de la fonction à tracer" ),
8375              PARA_Y          =SIMP(statut='o',typ='TXM',
8376                                    fr="Paramètre de la table associé aux ordonnées de la fonction à tracer" ),
8377            ),
8378            b_fonc_x        =BLOC(condition = "FONC_X != None",
8379              FONC_Y          =SIMP(statut='o',typ=fonction,fr="Fonction ordonnées d une fonction paramétrique" ),
8380              PARA            =SIMP(statut='f',typ='TXM',defaut="FONC_X",into=("FONC_X","FONC_Y"),
8381                                    fr="Permutation des roles des deux fonctions" ),
8382              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
8383            ),
8384            b_resu_gene     =BLOC(condition = "RESU_GENE != None",
8385              regles=(UN_PARMI('NOEUD_CHOC','GROUP_NO_CHOC'),),
8386              NOEUD_CHOC      =SIMP(statut='f',typ=no),
8387              GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
8388              PARA_X          =SIMP(statut='o',typ='TXM'),
8389              PARA_Y          =SIMP(statut='o',typ='TXM'),
8390              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
8391              SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
8392              INTITULE        =SIMP(statut='f',typ='TXM' ),
8393            ),
8394
8395
8396            LEGENDE         =SIMP(statut='f',typ='TXM',fr="Légende associée à la courbe" ),
8397            STYLE           =SIMP(statut='f',typ='TXM',defaut="LIGNE",fr="Style de la ligne représentant la courbe",
8398                                  into=("LIGNE","POINTILLE","POINT","POINT_RELIE") ),
8399            COULEUR         =SIMP(statut='f',typ='TXM',fr="Couleur associée à la courbe",
8400                                  into=("NOIR","ROUGE","VERT_FONCE","BLEU",
8401                                        "MAGENTA","CYAN","VERT","SIENNE","ORANGE",
8402                                        "POURPRE","JAUNE","DAIM","TURQUOISE","VIOLET",
8403                                        "BRUN","CORAIL","MARRON","MAUVE","MARRON_CLAIR") ),
8404            MARQUEUR        =SIMP(statut='f',typ='TXM',fr="Type du marqueur associé à la courbe",
8405                                  into=("POINT_F","CARRE_F","TRIANGLE_F",
8406                                        "LOSANGE_F","ETOILE_F","FUSEE_F","POINT",
8407                                        "CARRE","TRIANGLE","LOSANGE","ETOILE","FUSEE",
8408                                        "PLUS","X","CERCLE","CERCLE_P","CARRE_P",
8409                                        "LOSANGE_P","CERCLE_P_X","LOSANGE_P_X",
8410                                        "CERCLE_X","CARRE_X","LOSANGE_X") ),
8411             b_agraf =BLOC(condition = "(FORMAT=='AGRAF')",fr="Mots-clés propres à AGRAF",
8412               TRI             =SIMP(statut='f',typ='TXM',defaut="N",
8413                                     fr="Choix du tri effectué sur les abcisses ou sur les ordonnées",
8414                                     into=("N","X","Y","XY","YX") ),
8415               FREQ_MARQUEUR   =SIMP(statut='f',typ='I',defaut= 0,
8416                                     fr="Fréquence d impression du marqueur associé à la courbe", ),
8417             ),
8418          ),
8419 )  ;
8420 #& MODIF COMMANDE  DATE 25/01/2002   AUTEUR GNICOLAS G.NICOLAS
8421 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8422 # ======================================================================
8423 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8424 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8425 #              REDISTRIBUTION OF THIS FILE.
8426 # ======================================================================
8427 # RESPONSABLE GNICOLAS G.NICOLAS
8428 IMPR_FICO_HOMA=PROC(nom="IMPR_FICO_HOMA",op= 189, docu="U7.04.01-a",
8429                     fr="Imprime le fichier de configuration de HOMARD.",
8430                     ang="Writes the configuration file for HOMARD.",
8431 #
8432 # 1. Le niveau d'information
8433 #
8434          INFO           = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
8435 #
8436 # 2. LE REPERTOIRE OU AURA LIEU LE CALCUL HOMARD
8437 #
8438          REP             =SIMP(statut='f',typ='TXM'),
8439 #
8440 # 3. Langue des messages issus de HOMARD
8441 #
8442          LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
8443                                into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
8444                            fr="Langue des messages issus de HOMARD.",
8445                            ang="Language for HOMARD messages." ),
8446 #
8447 # 4. L'UNITE LOGIQUE D'ECRITURE DU FICHIER DE CONFIGURATION HOMARD
8448 #
8449          UNITE           =SIMP(statut='f',typ='I',defaut= 71 ),
8450 #
8451 # 5. LE TYPE DE TRAITEMENT :
8452 #
8453          TRAITEMENT      =FACT(statut='o',min=01,max=01,
8454 #
8455 # 5.1. QUATRE CHOIX EXCLUSIFS :
8456 #
8457 # 5.1.1.
8458 #      A. ADAPTATION PAR UN INDICATEUR D'ERREUR, AVEC TROIS VARIANTES :
8459 #         . RAFFINEMENT ET DERAFFINEMENT
8460 #         . RAFFINEMENT SEUL
8461 #         . DERAFFINEMENT SEUL
8462 #      B. ADAPTATION UNIFORME, AVEC DEUX VARIANTES :
8463 #         . RAFFINEMENT SEUL
8464 #         . DERAFFINEMENT SEUL
8465 #         . RIEN : LE MAILLAGE EST LE MEME A LA SORTIE ET A L'ENTREE
8466 #      C. INFORMATION SUR UN MAILLAGE
8467 #      D. MISE A JOUR DE SOLUTIONS
8468 #
8469            regles=( UN_PARMI('ADAPTATION','UNIFORME','INFORMATION','MAJSOLUTION'),),
8470            ADAPTATION      =SIMP(statut='f',typ='TXM',
8471                                  fr="Adaptation libre",
8472                                  ang="Free adaptation",
8473                                  into=("RAFFINEMENT","DERAFFINEMENT","RAFF_DERA") ),
8474            UNIFORME        =SIMP(statut='f',typ='TXM',
8475                                  fr="Adaptation uniforme",
8476                                  ang="Uniforme adaptation",
8477                                  into=("RAFFINEMENT","DERAFFINEMENT","RIEN") ),
8478            INFORMATION     =SIMP(statut='f',typ='TXM',
8479                                  fr="Adaptation libre",
8480                                  ang="Free adaptation",
8481                                  into=("OUI",) ),
8482            MAJSOLUTION     =SIMP(statut='f',typ='TXM',
8483                                  fr="Mise à jour de solutions",
8484                                  ang="Solution updating",
8485                                  into=("OUI",) ),
8486 #
8487 # 5.1.2. LES CONTRAINTES :
8488 #
8489 # 5.1.2.1. POUR DE L'ADAPTATION LIBRE, IL FAUT :
8490 #      A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
8491 #      B. LE NOM MED DU MAILLAGE D'ENTREE
8492 #      C. LE NOM MED DE L'INDICATEUR D'ERREUR
8493 #      D. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
8494 #      E. LA MISE A JOUR DE SOLUTION
8495 #      F. LE NOM MED DU MAILLAGE DE SORTIE
8496 #      REMARQUE : IL FAUT DES CRITERES, MAIS ON NE SAIT PAS LESQUELS
8497 #
8498 # 5.1.2.2. POUR DE L'ADAPTATION UNIFORME
8499 #          IL FAUT :
8500 #      A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
8501 #      B. LE NOM MED DU MAILLAGE DE SORTIE
8502 #          IL NE FAUT PAS :
8503 #      A. LE NOM MED DE L'INDICATEUR D'ERREUR
8504 #      B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
8505 #      C. LES CRITERES
8506 #      REMARQUE : A L'ITERATION 0, OU AUX ITERATIONS SUIVANTES SI MAJ DE SOLUTION,
8507 #                 IL FAUT LE NOM MED DU MAILLAGE D'ENTREE
8508 #
8509 # 5.1.2.3. POUR DE LA MISE A JOUR DE SOLUTION :
8510 #          IL FAUT :
8511 #      A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
8512 #      B. LE NOM MED DU MAILLAGE D'ENTREE
8513 #          IL NE FAUT PAS :
8514 #      A. LE NOM MED DE L'INDICATEUR D'ERREUR
8515 #      B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
8516 #      C. LES CRITERES
8517 #
8518 #
8519 # 5.1.2.4. POUR DE L'INFORMATION :
8520 #          IL FAUT :
8521 #      A. LE NOM MED DU MAILLAGE D'ENTREE
8522 #          IL NE FAUT PAS :
8523 #      A. LE NOM MED DE L'INDICATEUR D'ERREUR
8524 #      B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
8525 #      C. LES CRITERES
8526 #      D. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
8527 #      E. LA MISE A JOUR DE SOLUTION
8528 #
8529            b_maillage_initial =BLOC(condition = "( INFORMATION != None ) or ( ADAPTATION != None ) or "+
8530                                                    "( MAJSOLUTION != None ) ",
8531                            fr="Nom MED du maillage en entrée",
8532                            ang="MED name of the in-mesh",
8533                            NOM_MED_MAILLAGE_N   =SIMP(statut='o',typ='TXM',),
8534                            ) ,
8535 #
8536            b_maillage_initial_uniforme =BLOC(condition = "( UNIFORME != None ) ",
8537                            fr="Nom MED du maillage en entrée",
8538                            ang="MED name of the in-mesh",
8539                            NOM_MED_MAILLAGE_N   =SIMP(statut='f',typ='TXM',),
8540                            ) ,
8541 #
8542            b_iteration_maj_champ =BLOC(condition = "( UNIFORME != None ) or ( ADAPTATION != None ) or "+
8543                                                    "( MAJSOLUTION != None ) ",
8544                            fr="Nom MED du maillage en sortie, numero d'iteration et mise à jour de champs",
8545                            ang="MED name of the out-mesh, iteration rank and field updating",
8546                            NITER                =SIMP(statut='o',typ='I',
8547                            fr="Numéro d'itération.",
8548                            ang="Iteration #." ),
8549                            NOM_MED_MAILLAGE_NP1 =SIMP(statut='o',typ='TXM'),
8550                            MAJ_CHAM             =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8551                            ) ,
8552 #
8553            b_indicateur_d_erreur  =BLOC(condition = "ADAPTATION != None",
8554                            fr="Indicateur d'erreur",
8555                            ang="Error indicator",
8556                            NOM_MED_INDICA  =SIMP(statut='o',typ='TXM',
8557                            fr="Nom MED de l'indicateur d'erreur.",
8558                            ang="MED name of error indicator.",),
8559                            NOM_CMP_INDICA  =SIMP(statut='o',typ='TXM',
8560                            fr="Nom de la composante de l'indicateur d'erreur retenue.",
8561                            ang="Name of the selected component of the error indicator.",),
8562                            NUMDT_INDICA  =SIMP(statut='o',typ='I',
8563                            fr="Numero du pas de temps de l'indicateur.",
8564                            ang="Time step # of the error indicator.",),
8565                            NUMORD_INDICA  =SIMP(statut='o',typ='I',
8566                            fr="Numero d'ordre de l'indicateur.",
8567                            ang="Rank # of the error indicator.",),
8568                            ) ,
8569 #
8570            b_critere_de_raffinement =BLOC( condition = "( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'RAFFINEMENT' )" ,
8571                            fr="Critère de raffinement.",
8572                            ang="Refinement threshold.",
8573                            regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE' ),),
8574                            CRIT_RAFF_ABS   =SIMP(statut='f',typ='R',
8575                                                  fr="Critère absolu",
8576                                                  ang="Absolute threshold"  ),
8577                            CRIT_RAFF_REL   =SIMP(statut='f',typ='R',
8578                                                  fr="Critère relatif",
8579                                                  ang="Relative threshold" ),
8580                            CRIT_RAFF_PE    =SIMP(statut='f',typ='R',
8581                                                  fr="Pourcentage d'éléments",
8582                                                  ang="Percentage of elements" ),
8583                            ) ,
8584 #
8585            b_critere_de_deraffinement =BLOC ( condition = "( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'DERAFFINEMENT' )" ,
8586                            fr="Critère de déraffinement.",
8587                            ang="Unrefinement threshold.",
8588                            regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE' ),),
8589                            CRIT_DERA_ABS   =SIMP(statut='f',typ='R' ,
8590                                                  fr="Critère absolu",
8591                                                  ang="Absolute threshold" ),
8592                            CRIT_DERA_REL   =SIMP(statut='f',typ='R',
8593                                                  fr="Critère relatif",
8594                                                  ang="Relative threshold" ),
8595                            CRIT_DERA_PE    =SIMP(statut='f',typ='R',
8596                                                  fr="Pourcentage d'éléments",
8597                                                  ang="Percentage of elements" ),
8598                            ) ,
8599 #
8600            b_niveau_maximum =BLOC ( condition = " ( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'RAFFINEMENT' ) or "+
8601                                                 " ( UNIFORME == 'RAFFINEMENT' )" ,
8602                              fr="Niveau maximum de profondeur de raffinement",
8603                              ang="Maximum level for refinement",
8604                              NIVE_MAX        =SIMP(statut='f',typ='I' ),
8605                            ) ,
8606 #
8607            b_niveau_minimum =BLOC ( condition = " ( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'DERAFFINEMENT' ) or"+
8608                                                 " ( UNIFORME == 'DERAFFINEMENT' )" ,
8609                              fr="Niveau minimum de déraffinement",
8610                              ang="Minimum level for unrefinement",
8611                              NIVE_MIN        =SIMP(statut='f',typ='I' ),
8612                            ) ,
8613 #
8614          ),
8615 #
8616 # 6. L'ANALYSE DU MAILLAGE
8617 #
8618          ANALYSE         =FACT(statut='f',min=01,max=01,
8619                                fr="Analyse du maillage.",
8620                                ang="Mesh analysis.",
8621 #
8622 # 6.1. CHOIX NON EXCLUSIFS, AVEC DEUX VARIANTES (OUI/NON) :
8623 #    A. NOMBRE DES ELEMENTS
8624 #    B. QUALITE DES ELEMENTS
8625 #    C. INTERPENETRATION DES ELEMENTS
8626 #    D. CONNEXITE DU MAILLAGE
8627 #    E. TAILLE DES DIFFERENTS SOUS-DOMAINES
8628 #
8629            regles=(AU_MOINS_UN('NOMBRE','QUALITE','INTERPENETRATION','CONNEXITE','TAILLE'),),
8630 #
8631          NOMBRE          =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
8632                           fr="Nombre de noeuds et éléments du maillage",
8633                           ang="Number of nodes and elements in the mesh" ),
8634 #
8635          QUALITE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
8636                           fr="Qualité du maillage",
8637                           ang="Mesh quality" ),
8638 #
8639          INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
8640                           fr="Controle de la non interpénétration des éléments.",
8641                           ang="Overlapping checking." ),
8642 #
8643          CONNEXITE       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
8644                           fr="Connexité du maillage.",
8645                           ang="Mesh connexity." ),
8646 #
8647          TAILLE          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
8648                           fr="Tailles des sous-domaines du maillage.",
8649                           ang="Sizes of mesh sub-domains." ),
8650 #
8651          ),
8652 #
8653 )  ;
8654 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
8655 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8656 # ======================================================================
8657 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8658 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8659 #              REDISTRIBUTION OF THIS FILE.
8660 # ======================================================================
8661 IMPR_GENE=PROC(nom="IMPR_GENE",op= 157,
8662                fr="Calcul du dommage subi par une structure soumise à une sollicitation de type aléatoire",
8663                docu="U4.91.02-c",
8664          GENE            =FACT(statut='o',min=01,max='**',
8665            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
8666                           'LIST_INST','LIST_FREQ','TOUT_MODE','TOUT_INST','LIST_ORDRE'),
8667                    EXCLUS('TOUT_MODE','NUME_ORDRE','INST','FREQ','NUME_MODE',
8668                           'LIST_INST','LIST_FREQ','TOUT_ORDRE','TOUT_INST','LIST_ORDRE'),
8669                    EXCLUS('TOUT_INST','NUME_ORDRE','INST','FREQ','NUME_MODE',
8670                           'LIST_INST','LIST_FREQ','TOUT_ORDRE','LIST_ORDRE'),
8671                    EXCLUS('TOUT_CMP_GENE','NUME_CMP_GENE'),
8672                    EXCLUS('TOUT_CHAM','NOM_CHAM'),
8673                    EXCLUS('TOUT_PARA','NOM_PARA'),),
8674 #  faut-il faire des blocs selon le type de RESU_GENE
8675            RESU_GENE       =SIMP(statut='o',typ=(vect_asse_gene, tran_gene, mode_gene, harm_gene)),
8676            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
8677            FICHIER         =SIMP(statut='f',typ='TXM' ),
8678            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8679            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
8680            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
8681            TOUT_MODE       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8682            NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
8683            INST            =SIMP(statut='f',typ='R',max='**'),
8684            LIST_INST       =SIMP(statut='f',typ=listr8 ),
8685            TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8686            FREQ            =SIMP(statut='f',typ='R',max='**'),
8687            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
8688            b_prec_crit     =BLOC(condition = "LIST_FREQ != None or FREQ != None",
8689              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
8690              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
8691                                    into=("RELATIF","ABSOLU") ),
8692            ),
8693            TOUT_CMP_GENE   =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
8694            NUME_CMP_GENE   =SIMP(statut='f',typ='I',max='**'),
8695            TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
8696            NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
8697            TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
8698            NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
8699            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
8700            INFO_CMP_GENE   =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
8701            INFO_GENE       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
8702          ),
8703 )  ;
8704 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
8705 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8706 # ======================================================================
8707 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8708 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8709 #              REDISTRIBUTION OF THIS FILE.
8710 # ======================================================================
8711 IMPR_JEVEUX=PROC(nom="IMPR_JEVEUX",op=16,docu="U4.91.21-f",
8712                  fr="Impression de caractéristiques d'objets JEVEUX (pour développeur)",
8713          ENTITE          =SIMP(fr="choix de l'observation",statut='o',typ='TXM',
8714                                into=("DISQUE","MEMOIRE","REPERTOIRE",
8715                                      "OBJET","ATTRIBUT","SYSTEME") ),
8716          b_objet      =BLOC(condition = "(ENTITE=='OBJET')",
8717             NOMOBJ          =SIMP(fr="nom d'objet",statut='f',typ='TXM' ),
8718             NUMOC           =SIMP(fr="numéro d objet de collection",statut='f',typ='I' ),
8719             NOMOC           =SIMP(fr="nom d'objet de collection",statut='f',typ='TXM' ),
8720          ),
8721          b_attribut   =BLOC(condition = "(ENTITE=='ATTRIBUT')",
8722             NOMOBJ          =SIMP(fr="nom de collection",statut='f',typ='TXM' ),
8723             NOMATR          =SIMP(fr="nom d attribut de collection",statut='f',typ='TXM',
8724                                   into=('$$DESO','$$IADD','$$IADM','$$NOM','$$LONG',
8725                                       '$$LONO','$$LUTI','$$NUM') ),
8726          ),
8727          b_systeme    =BLOC(condition = "(ENTITE=='SYSTEME')",
8728             CLASSE          =SIMP(statut='o',typ='TXM',into=('G','V','L') ),
8729             NOMATR          =SIMP(fr="nom d attribut systeme",statut='f',typ='TXM',
8730                                   into=('$$CARA','$$IADD','$$GENR','$$TYPE','$$ETAT',
8731                                       '$$DOCU','$$ORIG','$$RNOM','$$LTYP','$$LONG',
8732                                       '$$LONO','$$DATE','$$LUTI','$$HCOD','$$INDX',
8733                                       '$$TLEC','$$TECR','$$IADM','$$ACCE') ),
8734          ),
8735          b_repertoire =BLOC(condition = "(ENTITE=='REPERTOIRE')",
8736             CLASSE          =SIMP(statut='f',typ='TXM',into=('G','V','L',' '),defaut=' '),
8737          ),
8738          b_disque     =BLOC(condition = "(ENTITE=='DISQUE')",
8739             CLASSE          =SIMP(statut='f',typ='TXM' ,into=('G','V','L',' '),defaut=' '),
8740          ),
8741          IMPRESSION      =FACT(statut='f',min=01,max=01,
8742            NOM             =SIMP(statut='f',typ='TXM' ),
8743            UNITE           =SIMP(statut='f',typ='I'),
8744          ),
8745          COMMENTAIRE     =SIMP(statut='f',typ='TXM' ),
8746 )  ;
8747 #& MODIF COMMANDE  DATE 19/12/2001   AUTEUR CIBHHPD D.NUNEZ
8748 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8749 # ======================================================================
8750 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8751 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8752 #              REDISTRIBUTION OF THIS FILE.
8753 # ======================================================================
8754 IMPR_MACR_ELEM=PROC(nom="IMPR_MACR_ELEM",op= 160,
8755                     docu="U7.04.33-c",
8756          MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
8757          FICHIER         =SIMP(statut='f',typ='TXM' ),
8758          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",
8759                                into=("MISS_3D","IDEAS","CADYRO","PLEXUS") ),
8760          b_ideas         =BLOC(condition = "FORMAT == 'PLEXUS'",
8761            VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
8762          ),
8763          b_plexus         =BLOC(condition = "FORMAT == 'IDEAS'",
8764            VERSION          =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
8765          ),
8766          b_miss_3d       =BLOC(condition = "FORMAT == 'MISS_3D'",
8767            UNITE           =SIMP(statut='f',typ='I',defaut= 26 ),
8768            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
8769            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
8770            GROUP_MA_INTERF =SIMP(statut='o',typ=grma,max='**'),
8771 #  Ces trois mots cles sont-ils dans le bon bloc et avec le bon statut
8772            GROUP_MA_FLU_STR=SIMP(statut='f',typ=grma,max='**'),
8773            GROUP_MA_FLU_SOL=SIMP(statut='f',typ=grma,max='**'),
8774            GROUP_MA_SOL_SOL=SIMP(statut='f',typ=grma,max='**'),
8775            IMPR_MODE_MECA  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8776            IMPR_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8777          ),
8778          b_cadyro        =BLOC(condition = "FORMAT == 'CADYRO'",
8779            SQUELETTE       =SIMP(statut='f',typ=squelette ),
8780            UNITE_MODE_MECA =SIMP(statut='f',typ='I',defaut= 26 ),
8781            UNITE_MODE_STAT =SIMP(statut='f',typ='I',defaut= 27 ),
8782            UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut= 28 ),
8783            IMPR_MODE_MECA  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8784            IMPR_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8785          ),
8786
8787 )  ;
8788 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
8789 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8790 # ======================================================================
8791 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8792 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8793 #              REDISTRIBUTION OF THIS FILE.
8794 # ======================================================================
8795 IMPR_MATRICE=PROC(nom="IMPR_MATRICE",op= 159,
8796                   fr="Impression des matrices élémentaires et des matrices assemblées",
8797                   docu="U7.04.32-c",
8798          regles=(AU_MOINS_UN('MATR_ELEM','MATR_ASSE'),),
8799
8800          MATR_ELEM       =FACT(statut='f',min=01,max='**',
8801            FICHIER         =SIMP(statut='f',typ='TXM' ),
8802            FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",
8803                                  into=("IDEAS","RESULTAT") ),
8804            b_format      =BLOC(condition = "FORMAT == 'IDEAS'",
8805              VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
8806            ),
8807 #  créer les types matr_elem  et vect_elem
8808            MATRICE         =SIMP(statut='o',typ=(matr_elem, vect_elem)),
8809 #  Quelle regle pour TOUT, NOEUD, GROUP_NO, MAILLE, GROUP_MA
8810            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8811            NOEUD           =SIMP(statut='f',typ=no,max='**'),
8812            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
8813            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
8814            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
8815            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
8816            GRAIN           =SIMP(statut='f',typ='TXM',defaut="VALEUR",
8817                                  into=("VALEUR","NOEUD","MAILLE") ),
8818            NB_CHIFFRE      =SIMP(statut='f',typ='I',defaut= 4 ),
8819          ),
8820          MATR_ASSE       =FACT(statut='f',min=01,max='**',
8821            FICHIER         =SIMP(statut='f',typ='TXM' ),
8822            FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",
8823                                  into=("IDEAS","RESULTAT") ),
8824            VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
8825 #  créer le type matr_elem
8826            MATRICE         =SIMP(statut='o',typ=matr_asse),
8827 #  Quelle regle pour TOUT, NOEUD, GROUP_NO, MAILLE, GROUP_MA
8828            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8829            NOEUD           =SIMP(statut='f',typ=no,max='**'),
8830            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
8831            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
8832            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
8833            OPTION          =SIMP(statut='f',typ='TXM',defaut="SOUS_MATRICE",
8834                                  into=("SOUS_MATRICE","LIGNE","COLONNE") ),
8835            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
8836            GRAIN           =SIMP(statut='f',typ='TXM',defaut="VALEUR",
8837                                  into=("VALEUR","NOEUD") ),
8838            NB_CHIFFRE      =SIMP(statut='f',typ='I',defaut= 4 ),
8839            VALE_ZERO       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8840          ),
8841 )  ;
8842 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
8843 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8844 # ======================================================================
8845 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8846 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8847 #              REDISTRIBUTION OF THIS FILE.
8848 # ======================================================================
8849 IMPR_MISS_3D=PROC(nom="IMPR_MISS_3D",op= 162,
8850                   docu="U7.04.11-c",
8851          regles=(UN_PARMI('INST_INIT','FREQ_INIT'),
8852                  PRESENT_PRESENT('INST_INIT','INST_FIN'),
8853                  PRESENT_PRESENT('FREQ_INIT','FREQ_FIN'),),
8854          MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
8855          EXCIT           =FACT(statut='f',min=01,max='**',
8856            regles=(UN_PARMI('FONC_MULT','COEF_MULT' ),),
8857            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
8858            FONC_MULT       =SIMP(statut='f',typ=fonction ),
8859            COEF_MULT       =SIMP(statut='f',typ='R' ),
8860          ),
8861          EXCIT_SOL       =FACT(statut='f',min=01,max='**',
8862            DIRECTION       =SIMP(statut='o',typ='R',max='**'),
8863            FONC_SIGNAL     =SIMP(statut='f',typ=fonction ),
8864            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",
8865                                  into=("DEPL","VITE","ACCE","FORC",) ),
8866          ),
8867          INST_INIT       =SIMP(statut='f',typ='R' ),
8868          INST_FIN        =SIMP(statut='f',typ='R' ),
8869          FREQ_INIT       =SIMP(statut='f',typ='R' ),
8870          FREQ_FIN        =SIMP(statut='f',typ='R' ),
8871          PAS             =SIMP(statut='o',typ='R' ),
8872          UNITE           =SIMP(statut='f',typ='I',defaut= 26 ),
8873          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
8874          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8875 )  ;
8876 #& MODIF COMMANDE  DATE 30/01/2002   AUTEUR CIBHHLV L.VIVAN
8877 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8878 # ======================================================================
8879 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8880 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8881 #              REDISTRIBUTION OF THIS FILE.
8882 # ======================================================================
8883 IMPR_RESU=PROC(nom="IMPR_RESU",op=39,docu="U4.91.01-f1",
8884                fr="Impression du résultat d un calcul (différents formats)",
8885          MODELE          =SIMP(statut='f',typ=modele),
8886          RESU            =FACT(statut='o',min=01,max='**',
8887            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
8888                                  into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED","GMSH") ),
8889
8890            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
8891              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
8892            ),
8893
8894            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
8895              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
8896            ),
8897
8898            regles=(AU_MOINS_UN('CHAM_GD','RESULTAT','MAILLAGE'),
8899                    EXCLUS('CHAM_GD','RESULTAT'),),
8900            MAILLAGE        =SIMP(statut='f',typ=(maillage,squelette)),
8901            INFO_MAILLAGE   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8902            CHAM_GD         =SIMP(statut='f',typ=cham_gd),
8903            RESULTAT        =SIMP(statut='f',typ=resultat),# CO() sd a creer !!!
8904
8905            b_sensibilite   =BLOC(condition="RESULTAT != None",
8906                                  fr="Définition des paramètres de sensibilité",
8907                                  ang="Definition of sensitivity parameters",
8908              SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
8909                                    fr="Liste des paramètres de sensibilité.",
8910                                    ang="List of sensitivity parameters"),),
8911
8912            b_extrac        =BLOC(condition="RESULTAT != None",
8913                                  fr="extraction d un champ de grandeur",
8914              regles=(EXCLUS('TOUT_CHAM','NOM_CHAM'),
8915                      EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP',
8916                             'LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS','ANGL'),),
8917              TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
8918              NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
8919
8920              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8921              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
8922              NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
8923              LIST_ORDRE      =SIMP(statut='f',typ=listis),
8924              NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
8925              NOM_CAS         =SIMP(statut='f',typ='TXM',max='**'),
8926              ANGL            =SIMP(statut='f',typ='R',max='**'),
8927              FREQ            =SIMP(statut='f',typ='R',max='**'),
8928              LIST_FREQ       =SIMP(statut='f',typ=listr8),
8929              INST            =SIMP(statut='f',typ='R',max='**'),
8930              LIST_INST       =SIMP(statut='f',typ=listr8),
8931
8932              b_acce_reel     =BLOC(condition="(FREQ != None)or(LIST_FREQ != None)or(INST != None)or(LIST_INST != None)",
8933                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
8934                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8935              ),
8936            ),
8937
8938            b_parametres    =BLOC(condition="""(RESULTAT != None)and(FORMAT == 'RESULTAT')""",
8939              regles=(EXCLUS('TOUT_PARA','NOM_PARA'),),
8940              INFO_RESU       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8941              TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI","NON",) ),
8942              NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
8943              FORM_TABL       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON","EXCEL") ),
8944            ),
8945
8946            b_cmp=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and((FORMAT == 'RESULTAT')or(FORMAT == 'ENSIGHT'))""",
8947                                  fr="sélection des composantes",
8948              regles=(EXCLUS('TOUT_CMP','NOM_CMP'),),
8949              TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8950              NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
8951            ),
8952
8953            b_gmsh=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and((FORMAT == 'GMSH'))""",
8954                                  fr="sélection des composantes et des entités toplogiques",
8955              NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
8956              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
8957              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
8958            ),
8959
8960            b_topologie=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and((FORMAT == 'RESULTAT')or(FORMAT == 'IDEAS'))""",
8961                                    fr="sélection des entités toplogiques",
8962              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8963              NOEUD           =SIMP(statut='f',typ=no,max='**'),
8964              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
8965              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
8966              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
8967            ),
8968
8969            b_valeurs         =BLOC(condition="(FORMAT == 'RESULTAT')",
8970                                    fr="sélection sur les valeurs",
8971              VALE_MAX        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8972              VALE_MIN        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8973              BORNE_SUP       =SIMP(statut='f',typ='R'),
8974              BORNE_INF       =SIMP(statut='f',typ='R'),
8975              IMPR_COOR       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8976              FORMAT_R        =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
8977            ),
8978
8979            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
8980            FICHIER         =SIMP(statut='f',typ='TXM'),
8981          ),
8982          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
8983 ) ;
8984 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
8985 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8986 # ======================================================================
8987 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8988 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
8989 #              REDISTRIBUTION OF THIS FILE.
8990 # ======================================================================
8991 IMPR_STURM=PROC(nom="IMPR_STURM",op=32,fr="Calculer et imprimer le nombre de valeurs propres dans un intervalle donné",
8992                 docu="U4.52.01-f",
8993          MATR_A          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
8994          MATR_B          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
8995          TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="DYNAMIQUE",into=("MODE_FLAMB","DYNAMIQUE"),
8996                                fr="Type d analyse" ),
8997          b_dynamique  =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
8998                             fr="Recheche du nombre de fréquences propres",
8999              FREQ_MIN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ,fr="Borne inférieure de l intervalle" ),
9000              FREQ_MAX        =SIMP(statut='o',typ='R',fr="Borne supérieure de l intervalle" ),
9001          ),
9002          b_mode_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
9003                             fr="Recherche du nombre de charges critiques",
9004              CHAR_CRIT_MIN   =SIMP(statut='o',typ='R',fr="Borne inférieure de l intervalle" ),
9005              CHAR_CRIT_MAX   =SIMP(statut='o',typ='R',fr="Borne supérieure de l intervalle" ),
9006          ),
9007          NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8 ),
9008          NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
9009          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
9010          PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
9011          SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
9012 )  ;
9013 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
9014 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9015 # ======================================================================
9016 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9017 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9018 #              REDISTRIBUTION OF THIS FILE.
9019 # ======================================================================
9020 # RESPONSABLE VABHHTS J.PELLET
9021 IMPR_TABLE=PROC(nom="IMPR_TABLE",op=155,docu="U4.91.03-c1",
9022                 fr="Impression d un concept de type table",
9023          TABLE           =SIMP(statut='o',typ=table),
9024          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT", ),
9025          FORMAT          =SIMP(statut='f',typ='TXM',defaut="EXCEL",
9026                                into=("EXCEL","AGRAF","MOT_CLE","TABLEAU") ),
9027          FILTRE          =FACT(statut='f',min=1,max='**',
9028            NOM_PARA        =SIMP(statut='o',typ='TXM'),
9029            CRIT_COMP       =SIMP(statut='f',typ='TXM',defaut="EQ",
9030                                  into=("EQ","LT","GT","NE","LE","GE","VIDE",
9031                                        "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
9032            b_vale          =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
9033               regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
9034               VALE            =SIMP(statut='f',typ='R'),
9035               VALE_I          =SIMP(statut='f',typ='I'),
9036               VALE_C          =SIMP(statut='f',typ='C'),
9037               VALE_K          =SIMP(statut='f',typ='TXM'),),
9038
9039            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
9040            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
9041          ),
9042          TRI             =FACT(statut='f',min=1,max=1,
9043            NOM_PARA        =SIMP(statut='o',typ='TXM',max='**'),
9044            ORDRE           =SIMP(statut='f',typ='TXM',max='**',defaut="CROISSANT",
9045                                  into=("CROISSANT","DECROISSANT") ),
9046          ),
9047          PAGINATION      =SIMP(statut='f',typ='TXM',max='**'),
9048          FORMAT_R        =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
9049          FORMAT_C        =SIMP(statut='f',typ='TXM',defaut="MODULE_PHASE",
9050                                     into=("MODULE_PHASE","REEL_IMAG") ),
9051          NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
9052          TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI",)),
9053          IMPR_FONCTION   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9054 )  ;
9055 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9056 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9057 # ======================================================================
9058 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9059 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9060 #              REDISTRIBUTION OF THIS FILE.
9061 # ======================================================================
9062 INCLUDE=MACRO(nom="INCLUDE",op=-1,docu="U4.13.01-e",
9063              fr="Débranchement vers un fichier de commandes secondaires",
9064              sd_prod=ops.INCLUDE,op_init=ops.INCLUDE_context,fichier_ini=1,
9065          UNITE = SIMP(statut='o',typ='I'),
9066          INFO  = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
9067 );
9068 #& MODIF COMMANDE  DATE 14/02/2001   AUTEUR DURAND C.DURAND
9069 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9070 # ======================================================================
9071 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9072 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9073 #              REDISTRIBUTION OF THIS FILE.
9074 # ======================================================================
9075 INCLUDE_MATERIAU=MACRO(nom="INCLUDE_MATERIAU",op=-14,docu="U4.43.02-a",
9076                        fr=" ",
9077          sd_prod=ops.INCLUDE_MATERIAU,op_init=ops.INCLUDE_context,fichier_ini=0,
9078          NOM_AFNOR       =SIMP(statut='o',typ='TXM' ),
9079          TYPE_MODELE     =SIMP(statut='o',typ='TXM',into=("REF","PAR") ),
9080          VARIANTE        =SIMP(statut='o',typ='TXM',
9081                                into=("A","B","C","D","E","F","G","H","I","J",
9082                                      "K","L","M","N","O","P","Q","R","S","T","U","V",
9083                                      "W","X","Y","Z",) ),
9084          TYPE_VALE       =SIMP(statut='o',typ='TXM',into=("NOMI","MINI","MAXI") ),
9085          NOM_MATER       =SIMP(statut='o',typ='TXM' ),
9086          UNITE           =SIMP(statut='f',typ='I',defaut= 32 ),
9087          EXTRACTION      =FACT(statut='f',min=01,max=99,
9088            COMPOR          =SIMP(statut='o',typ='TXM' ),
9089            TEMP_EVAL       =SIMP(statut='o',typ='R' ),
9090          ),
9091          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
9092 )  ;
9093 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
9094 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9095 # ======================================================================
9096 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9097 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9098 #              REDISTRIBUTION OF THIS FILE.
9099 # ======================================================================
9100 # RESPONSABLE G8BHHXD X.DESROCHES
9101 INTE_MAIL_2D=OPER(nom="INTE_MAIL_2D",op=50,sd_prod=courbe,docu="U4.81.11-e",
9102                   fr="Définition d une courbe sur un maillage 2D",reentrant='n',
9103
9104          MAILLAGE        =SIMP(statut='o',typ=(maillage) ),
9105
9106          regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
9107                  AU_MOINS_UN('DEFI_SEGMENT','DEFI_ARC','DEFI_CHEMIN'),
9108                  PRESENT_ABSENT('DEFI_CHEMIN','DEFI_SEGMENT','DEFI_ARC'),
9109                  PRESENT_ABSENT('DEFI_SEGMENT','NOEUD_ORIG','GROUP_NO_ORIG'),
9110                  PRESENT_ABSENT('DEFI_ARC','NOEUD_ORIG','GROUP_NO_ORIG'),
9111                  EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
9112                  EXCLUS('DEFI_CHEMIN','DEFI_SEGMENT'),
9113                  EXCLUS('DEFI_CHEMIN','DEFI_ARC'),),
9114
9115          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9116          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
9117          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
9118
9119          DEFI_SEGMENT    =FACT(statut='f',min=01,max='**',
9120            regles=(UN_PARMI('ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
9121                    UN_PARMI('EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),),
9122            ORIGINE         =SIMP(statut='f',typ='R',min=2,max=2),
9123            NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
9124            GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
9125            EXTREMITE       =SIMP(statut='f',typ='R',min=2,max=2),
9126            NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
9127            GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
9128          ),
9129
9130          DEFI_ARC        =FACT(statut='f',min=01,max='**',
9131            regles=(UN_PARMI('CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),
9132                    UN_PARMI('RAYON','ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
9133                    UN_PARMI('RAYON','EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),
9134                    PRESENT_PRESENT('RAYON','SECTEUR'),),
9135            CENTRE          =SIMP(statut='f',typ='R',min=2,max=2),
9136            NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=1),
9137            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno,max=1),
9138            RAYON           =SIMP(statut='f',typ='R',max=1,val_min=0.E+0),
9139            SECTEUR         =SIMP(statut='f',typ='R',min=2,max=2,
9140                                  val_min=-180.E+0,val_max=180E+0),
9141            ORIGINE         =SIMP(statut='f',typ='R',min=2,max=2),
9142            NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
9143            GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
9144            EXTREMITE       =SIMP(statut='f',typ='R',min=2,max=2),
9145            NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
9146            GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
9147            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
9148            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
9149                                  into=("RELATIF","ABSOLU",) ),
9150          ),
9151
9152          DEFI_CHEMIN     =FACT(statut='f',min=01,max='**',
9153            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
9154            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
9155            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
9156          ),
9157
9158          NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
9159          GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
9160          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
9161          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
9162 )  ;
9163 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9164 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9165 # ======================================================================
9166 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9167 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9168 #              REDISTRIBUTION OF THIS FILE.
9169 # ======================================================================
9170 # RESPONSABLE G8BHHXD X.DESROCHES
9171 INTE_MAIL_3D=OPER(nom="INTE_MAIL_3D",op=96,sd_prod=surface,docu="U4.81.12-e",
9172                   fr="Définition d un chemin sur un maillage 3D",reentrant='n',
9173          MAILLAGE        =SIMP(statut='o',typ=maillage),
9174          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9175          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
9176          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
9177          DEFI_SEGMENT    =FACT(statut='o',min=01,max='**',
9178            regles=(UN_PARMI('ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
9179                    UN_PARMI('EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),),
9180            ORIGINE         =SIMP(statut='f',typ='R',min=3,max=3),
9181            NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
9182            GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
9183            EXTREMITE       =SIMP(statut='f',typ='R',min=3,max=3),
9184            NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
9185            GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
9186          ),
9187          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
9188          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
9189 )  ;
9190 #& MODIF COMMANDE  DATE 25/01/2002   AUTEUR GNICOLAS G.NICOLAS
9191 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9192 # ======================================================================
9193 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9194 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9195 #              REDISTRIBUTION OF THIS FILE.
9196 # ======================================================================
9197 def lire_champ_prod(TYPE_CHAM=None,**args):
9198   if TYPE_CHAM == "CHAM_NO_TEMP_R" : return cham_no_temp_r
9199   if TYPE_CHAM == "CHAM_NO_DEPL_R" : return cham_no_depl_r
9200   raise AsException("type de concept resultat non prevu")
9201
9202 LIRE_CHAMP=OPER(nom="LIRE_CHAMP",op= 192,sd_prod=lire_champ_prod,
9203                 fr="Lire un champ dans un fichier et le stocker dans un concept.",
9204                 ang="To read a field in a file and to save it in a concept.",
9205                 docu="U7.02.02-a1",reentrant='n',
9206 #
9207 # 1. Le maillage support du champ
9208 #
9209          MAILLAGE        =SIMP(statut='o',typ=maillage,
9210                           fr="Nom du maillage support du champ",
9211                           ang="Name of the mesh on which the field is defined" ),
9212 #
9213 # 2. Format de lecture
9214 #    Remarque : seul MED est operationnel dans cette version.
9215 #
9216          FORMAT          =SIMP(statut='f',typ='TXM',defaut="MED",into=("MED",),
9217                           fr="Format du fichier : MED seulement",
9218                           ang="Format of the file : MED only" ),
9219 #
9220 # 3. L'unite logique du fichier.
9221 #
9222          UNITE           =SIMP(statut='f',typ='I',defaut= 81,
9223                           fr="Le fichier est : fort.n.",
9224                           ang="File is : fort.n" ),
9225 #
9226 # 4. Pour le format MED, il faut preciser le nom sous lequel le champ est connu dans le fichier
9227 #    et les composantes a lire
9228 #
9229          b_format =BLOC(condition = "FORMAT == 'MED'",
9230                         fr="Nom du champ dans le fichier MED",
9231          regles=(UN_PARMI('NOM_CMP_IDEM','NOM_CMP'),
9232           PRESENT_PRESENT('NOM_CMP','NOM_CMP_MED' ),),
9233 #
9234             NOM_MED      =SIMP(statut='o',typ='TXM',
9235                           fr="Nom du champ dans le fichier MED.",
9236                           ang="Name of the field in the MED file." ),
9237 #
9238             NOM_CMP_IDEM =SIMP(statut='f',typ='TXM',into=("OUI",),
9239                           fr="Les composantes ont le meme nom dans MED et ASTER.",
9240                           ang="The names of the components are the same in ASTER and MED." ),
9241             NOM_CMP      =SIMP(statut='f',typ='TXM',max='**',
9242                           fr="Nom des composantes dans ASTER.",
9243                           ang="Names of the components in ASTER" ),
9244             NOM_CMP_MED  =SIMP(statut='f',typ='TXM',max='**',
9245                           fr="Nom des composantes dans MED.",
9246                           ang="Names of the components in MED" ),
9247 #
9248             NUME_ORDRE   =SIMP(statut='f',typ='I',max='**',
9249                           fr="Numero d'ordre du champ à lire.",
9250                           ang="Rank number of the field to read."),
9251 #
9252 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
9253 # le maillage associé au champ y a été enregistré. Par défaut, on prendra le premier maillage.
9254 #
9255             NOM_MAIL_MED = SIMP(statut='f',typ='TXM',
9256                            fr="Nom du maillage dans le fichier MED.",
9257                            ang="Name of the mesh into the MED file.",),
9258 #
9259                   ),
9260 #
9261 # 5. Le type du concept lu
9262 #
9263          TYPE_CHAM       =SIMP(statut='o',typ='TXM',into=("CHAM_NO_TEMP_R","CHAM_NO_DEPL_R"),
9264                           fr="Type de champ à créer.",
9265                           ang="Type of the field to create." ),
9266 #
9267 # 6. Le niveau d'information
9268 #
9269          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
9270 )  ;
9271 #& MODIF COMMANDE  DATE 03/10/2001   AUTEUR DURAND C.DURAND
9272 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9273 # ======================================================================
9274 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9275 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9276 #              REDISTRIBUTION OF THIS FILE.
9277 # ======================================================================
9278 LIRE_FONCTION=OPER(nom="LIRE_FONCTION",op=  83,sd_prod=fonction,
9279                    fr="Lecture d une fonction dans un fichier ",
9280                    docu="U4.32.02-e1",reentrant='n',
9281          UNITE           =SIMP(statut='o',typ='I' ),
9282          NOM_PARA        =SIMP(statut='f',typ='TXM',
9283                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
9284                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
9285          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
9286          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
9287          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
9288          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
9289          NOM_PARA_FONC   =SIMP(statut='f',typ='TXM',
9290                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
9291                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
9292          INTERPOL_FONC   =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
9293          PROL_DROITE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
9294          PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
9295          INFO            =SIMP(statut='f',typ='I',defaut= 2,into=( 1 , 2) ),
9296          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9297 )  ;
9298 #& MODIF COMMANDE  DATE 03/10/2001   AUTEUR DURAND C.DURAND
9299 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9300 # ======================================================================
9301 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9302 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9303 #              REDISTRIBUTION OF THIS FILE.
9304 # ======================================================================
9305 LIRE_INTE_SPEC=OPER(nom="LIRE_INTE_SPEC",op= 116,sd_prod=tabl_intsp,
9306                     fr="Lecture sur un fichier externe de  fonctions complexes pour créer une matrice interspectrale",
9307                     docu="U4.36.01-e1",reentrant='n',
9308          UNITE           =SIMP(statut='o',typ='I' ),
9309          FORMAT          =SIMP(statut='f',typ='TXM',defaut="MODULE_PHASE",into=("REEL_IMAG","MODULE_PHASE") ),
9310          NOM_PARA        =SIMP(statut='f',typ='TXM',
9311                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
9312                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
9313          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
9314          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
9315          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
9316          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
9317          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9318          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
9319 )  ;
9320 #& MODIF COMMANDE  DATE 10/10/2001   AUTEUR GNICOLAS G.NICOLAS
9321 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9322 # ======================================================================
9323 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9324 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9325 #              REDISTRIBUTION OF THIS FILE.
9326 # ======================================================================
9327 # RESPONSABLE VABHHTS J.PELLET
9328 LIRE_MAILLAGE=OPER(nom="LIRE_MAILLAGE",op=   1,sd_prod=maillage,
9329                    fr="Lecture d'un fichier de maillage",
9330                    ang="Readings of a mesh file",
9331                    docu="U4.21.01-f",reentrant='n',
9332 #
9333          UNITE           =SIMP(statut='f',typ='I',defaut= 20 ),
9334 #
9335          FORMAT          =SIMP(statut='f',typ='TXM',defaut="ASTER",into=("ASTER","MED"),
9336                             fr="Format du fichier : ASTER ou MED.",
9337                             ang="Format of the file : ASTER or MED.",),
9338 #
9339          ABSC_CURV       =FACT(statut='f',min=00,max=01,
9340                TOUT          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9341          ),
9342 #
9343          VERI_MAIL       =FACT(statut='d',min=01,max=01,
9344                APLAT         =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
9345          ),
9346 #
9347          b_format_med =BLOC( condition = " ( FORMAT == 'MED' ) " ,
9348                            fr="Informations complémentaires pour la lecture MED.",
9349                            ang="Further information for MED readings.",
9350 #
9351 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
9352 # le maillage y a été enregistré. Par défaut, on va le chercher sous le nom du concept à créer.
9353 #
9354               NOM_MED    = SIMP(statut='f',typ='TXM',
9355                             fr="Nom du maillage dans le fichier MED.",
9356                             ang="Name of the mesh into the MED file.",),
9357 #
9358               INFO_MED   = SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
9359 #
9360                            ) ,
9361 #
9362          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
9363 #
9364 )  ;
9365 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9366 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9367 # ======================================================================
9368 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9369 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9370 #              REDISTRIBUTION OF THIS FILE.
9371 # ======================================================================
9372 def lire_miss_3d_prod(TYPE_RESU,**args):
9373   if TYPE_RESU == "TRANS" : return dyna_trans
9374   if TYPE_RESU == "HARMO" : return dyna_harmo
9375   raise AsException("type de concept resultat non prevu")
9376
9377 LIRE_MISS_3D=OPER(nom="LIRE_MISS_3D",op= 163,sd_prod=lire_miss_3d_prod,
9378                   fr="Restitution au format MISS3D d une évolution harmonique ou transitoire",
9379                   docu="U7.02.31-c",reentrant='n',
9380          MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
9381          UNITE           =SIMP(statut='f',typ='I',defaut= 27 ),
9382          TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="TRANS",into=("TRANS","HARMO") ),
9383          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9384 )  ;
9385 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9386 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9387 # ======================================================================
9388 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9389 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9390 #              REDISTRIBUTION OF THIS FILE.
9391 # ======================================================================
9392 LIRE_PLEXUS=OPER(nom="LIRE_PLEXUS",op= 184,sd_prod=evol_char,
9393                  fr=" ",
9394                  docu="U7.02.11-a",reentrant='n',
9395          regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
9396          UNITE           =SIMP(statut='f',typ='I',defaut= 19 ),
9397          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",)),
9398          MAIL_PLEXUS     =SIMP(statut='o',typ=maillage ),
9399          MAILLAGE        =SIMP(statut='o',typ=maillage ),
9400          MODELE          =SIMP(statut='o',typ=modele ),
9401          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9402          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
9403          LIST_ORDRE      =SIMP(statut='f',typ=listis ),
9404          INST            =SIMP(statut='f',typ='R',max='**'),
9405          LIST_INST       =SIMP(statut='f',typ=listr8 ),
9406          b_prec_crit     =BLOC(condition = "LIST_INST != None or INST != None",
9407              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9408              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
9409                                    into=("RELATIF","ABSOLU") ),
9410          ),
9411          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9412 )  ;
9413 #& MODIF COMMANDE  DATE 12/09/2001   AUTEUR MCOURTOI M.COURTOIS
9414 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9415 # ======================================================================
9416 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9417 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9418 #              REDISTRIBUTION OF THIS FILE.
9419 # ======================================================================
9420 # RESPONSABLE VABHHTS J.PELLET
9421 def lire_resu_prod(TYPE_RESU,**args):
9422   if TYPE_RESU == "EVOL_CHAR" :  return evol_char
9423   if TYPE_RESU == "EVOL_THER" :  return evol_ther
9424   if TYPE_RESU == "EVOL_ELAS" :  return evol_elas
9425   if TYPE_RESU == "EVOL_NOLI" :  return evol_noli
9426   if TYPE_RESU == "DYNA_TRANS" : return dyna_trans
9427   if TYPE_RESU == "DYNA_HARMO" : return dyna_harmo
9428   if TYPE_RESU == "HARM_GENE" :  return harm_gene
9429   raise AsException("type de concept resultat non prevu")
9430
9431 LIRE_RESU=OPER(nom="LIRE_RESU",op=150,sd_prod=lire_resu_prod,docu="U7.02.01-c1",reentrant='n',
9432                fr="Lecture de champs aux noeuds ou par éléments aux noeuds sur un fichier IDEAS ou EnSight",
9433          regles=(UN_PARMI('MAILLAGE','MODELE'),),
9434          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS","ENSIGHT","MED") ),
9435          b_unite         =BLOC(condition="FORMAT=='IDEAS'",
9436            UNITE           =SIMP(statut='f',typ='I',defaut= 19 ),
9437          ),
9438          b_nom_fichier     =BLOC(condition="FORMAT=='ENSIGHT'",
9439            NOM_FICHIER     =SIMP(statut='f',typ='TXM'),
9440          ),
9441          TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_THER","EVOL_ELAS","EVOL_NOLI",
9442                                                           "DYNA_TRANS","DYNA_HARMO","HARM_GENE","EVOL_CHAR") ),
9443          b_evol_elas     =BLOC(condition="TYPE_RESU=='EVOL_ELAS'",
9444            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
9445                                  into=("DEPL",) ),
9446          ),
9447          b_evol_ther     =BLOC(condition="TYPE_RESU=='EVOL_THER'",
9448            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
9449                                  into=("TEMP","TEMP_PEAU") ),
9450          ),
9451          b_evol_char     =BLOC(condition="TYPE_RESU=='EVOL_CHAR'",
9452            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
9453                                  into=("PRES","VITE_VENT",
9454                                        "FVOL_3D","FVOL_2D",
9455                                        "FSUR_3D","FSUR_2D") ),
9456          ),
9457          b_evol_noli     =BLOC(condition="TYPE_RESU=='EVOL_NOLI'",
9458            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
9459                                  into=("DEPL","VITE","ACCE","VARI_ELNO",
9460                                        "SIEF_ELNO","EPSA_ELNO") ),
9461          ),
9462          b_dyna          =BLOC(condition="(TYPE_RESU=='DYNA_TRANS') or (TYPE_RESU=='DYNA_HARMO') or\
9463                                           (TYPE_RESU=='HARM_GENE')",
9464            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
9465                                  into=("DEPL","VITE","ACCE",) ),
9466          ),
9467          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
9468          MAILLAGE        =SIMP(statut='f',typ=maillage),
9469          MODELE          =SIMP(statut='f',typ=modele),
9470          NB_VARI         =SIMP(statut='f',typ='I' ),
9471          FORMAT_IDEAS    =FACT(statut='f',min=01,max='**',
9472            regles=(UN_PARMI('POSI_INST','POSI_FREQ'),),
9473            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',into=("TEMP","DEPL","VITE","ACCE","PRES","VARI_ELNO",
9474                                                                      "SIEF_ELNO","EPSA_ELNO","TEMP_PEAU","VITE_VENT",
9475                                                                      "FVOL_3D","FVOL_2D","FSUR_3D","FSUR_2D") ),
9476            NUME_DATASET    =SIMP(statut='f',typ='I',into=(55,57,2414) ),
9477            RECORD_3        =SIMP(statut='f',typ='I',max='**'),
9478            RECORD_6        =SIMP(statut='f',typ='I',max='**'),
9479            RECORD_9        =SIMP(statut='f',typ='I',max='**'),
9480            POSI_ORDRE      =SIMP(statut='o',typ='I',max='**'),
9481            POSI_INST       =SIMP(statut='f',typ='I',max='**'),
9482            POSI_FREQ       =SIMP(statut='f',typ='I',max='**'),
9483            NOM_CMP         =SIMP(statut='o',typ='TXM',max='**'),
9484          ),
9485          b_extrac        =BLOC(condition="1",fr="accès à un champ dans la structure de données résultat",
9486            regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST','FREQ','LIST_FREQ'),),
9487            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9488            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
9489            INST            =SIMP(statut='f',typ='R',max='**'),
9490            LIST_INST       =SIMP(statut='f',typ=listr8),
9491            LIST_ORDRE      =SIMP(statut='f',typ=listis),
9492            FREQ            =SIMP(statut='f',typ='R',max='**'),
9493            LIST_FREQ       =SIMP(statut='f',typ=listr8),
9494
9495            b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)or(FREQ != None)or(LIST_FREQ != None)",
9496              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
9497              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
9498            ),
9499          ),
9500          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9501 )  ;
9502 #& MODIF COMMANDE  DATE 25/01/2002   AUTEUR GNICOLAS G.NICOLAS
9503 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9504 # ======================================================================
9505 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9506 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9507 #              REDISTRIBUTION OF THIS FILE.
9508 # ======================================================================
9509 # RESPONSABLE GNICOLAS G.NICOLAS
9510 def macr_adap_mail_prod(self,MAJ_CHAM,ADAPTATION,**args):
9511   mail1=ADAPTATION['MAILLAGE_N']
9512   self.type_sdprod(mail1,maillage)
9513   mail2=ADAPTATION['MAILLAGE_NP1']
9514   self.type_sdprod(mail2,maillage)
9515   if MAJ_CHAM == None:return None
9516   for ch in MAJ_CHAM:
9517     t=ch['TYPE_CHAM']
9518     if t == 'CHAM_NO_TEMP_R':self.type_sdprod(ch['CHAM_MAJ'],cham_no_temp_r)
9519     if t == 'CHAM_NO_DEPL_R':self.type_sdprod(ch['CHAM_MAJ'],cham_no_depl_r)
9520   return None
9521
9522 MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",op=-24,sd_prod=macr_adap_mail_prod,
9523                      fr="Adapter un maillage avec le logiciel HOMARD.",
9524                      ang="Mesh adaptation with HOMARD software.",
9525                      docu="U7.03.01-a",
9526 #
9527 # 1. Le niveau d'information
9528 #
9529          INFO           = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
9530 #
9531 # 2. Version de HOMARD
9532 #
9533          VERSION_HOMARD = SIMP(statut='f',typ='TXM',defaut="V5_1",
9534                                into=("V5_1", "V5_N", "V5_N_PERSO"),
9535                            fr="Version de HOMARD",
9536                            ang="HOMARD release"),
9537 #
9538 # 3. Langue des messages issus de HOMARD
9539 #
9540          LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
9541                                into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
9542                            fr="Langue des messages issus de HOMARD.",
9543                            ang="Language for HOMARD messages." ),
9544 #
9545 # 4. LE TYPE DE TRAITEMENT :
9546 #
9547          ADAPTATION      =FACT(statut='o',min=01,max=01,
9548                            fr="Type d'adaptation",
9549                            ang="Type of adaptation",
9550 #
9551 # 4.1. DEUX CHOIX D'ADAPTATION EXCLUSIFS :
9552 #
9553 # 4.1.
9554 #      A. SELON UN INDICATEUR D'ERREUR, AVEC TROIS VARIANTES :
9555 #         . RAFFINEMENT ET DERAFFINEMENT
9556 #         . RAFFINEMENT SEUL
9557 #         . DERAFFINEMENT SEUL
9558 #      B. UNIFORME, AVEC TROIS VARIANTES :
9559 #         . RAFFINEMENT SEUL
9560 #         . DERAFFINEMENT SEUL
9561 #         . RIEN : LE MAILLAGE EST LE MEME A LA SORTIE ET A L'ENTREE
9562 #
9563            regles=(
9564                    UN_PARMI('LIBRE','UNIFORME'),
9565                   ),
9566            LIBRE          = SIMP(statut='f',typ='TXM',
9567                                  into=("RAFF_DERA","RAFFINEMENT","DERAFFINEMENT"),
9568                            fr="Adaptation selon un indicateur d'erreur.",
9569                            ang="Adaptation among an error indicator" ),
9570            UNIFORME       = SIMP(statut='f',typ='TXM',
9571                                  into=("RAFFINEMENT","DERAFFINEMENT","RIEN"),
9572                            fr="Adaptation uniforme.",
9573                            ang="Uniform adaptation" ),
9574 #
9575 # 4.2. QUEL QUE SOIT LE TYPE DE TRAITEMENT, IL FAUT DONNER  :
9576 #      A. LE CONCEPT DU MAILLAGE INITIAL
9577 #      B. LE CONCEPT DU MAILLAGE FINAL
9578 #
9579            MAILLAGE_N     = SIMP(statut='o',typ=(CO,maillage),
9580                            fr="Maillage avant adaptation",
9581                            ang="Mesh before adaptation" ),
9582            MAILLAGE_NP1   = SIMP(statut='o',typ=(CO,maillage),
9583                            fr="Maillage apres adaptation",
9584                            ang="Mesh after adaptation" ),
9585 #
9586 # 4.3. POUR DE L'ADAPTATION LIBRE, IL FAUT L'INDICATEUR D'ERREUR
9587 #
9588 #
9589            b_indicateur_d_erreur   =BLOC( condition = " LIBRE != None " ,
9590                            fr="Indicateur d'erreur",
9591                            ang="Error indicator",
9592 #
9593 # 4.3.1. LE NOM DU CONCEPT RESULTAT
9594 #
9595                            RESULTAT_N     = SIMP(statut='o',typ=(evol_elas,evol_noli,evol_ther) ,
9596                            fr="Resultat contenant l'indicateur d'erreur",
9597                            ang="Result with error indicator" ),
9598 #
9599 # 4.3.2. LE CHAMP D'INDICATEUR D'ERREUR
9600 #
9601                            INDICATEUR     = SIMP(statut='o',typ='TXM',
9602                            fr="Champ de l'indicateur d'erreur",
9603                            ang="Error indicator field" ),
9604 #
9605 # 4.3.3. LA COMPOSANTE RETENUE
9606 #
9607                            NOM_CMP_INDICA = SIMP(statut='o',typ='TXM',
9608                            fr="Composante retenue",
9609                            ang="Selected component" ),
9610 #
9611 # 4.3.4. LE NUMERO D'ORDRE
9612 #
9613                            NUME_ORDRE     = SIMP(statut='f',typ='I' ,
9614                            fr="Numero d ordre",
9615                            ang="Rank" ),
9616                            ) ,
9617 #
9618 # 4.4. LES CRITERES POUR DE L'ADAPTATION LIBRE :
9619 #        ABSOLU, RELATIF, EN PROPORTION D'ENTITE
9620 # 4.4.1. POUR LE RAFFINEMENT :
9621 #
9622            b_critere_de_raffinement =BLOC( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'RAFFINEMENT' ) " ,
9623                            fr="Critère de raffinement.",
9624                            ang="Refinement threshold.",
9625                            regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE' ),),
9626                            CRIT_RAFF_ABS  = SIMP(statut='f',typ='R',
9627                                                    fr="Critère absolu",
9628                                                    ang="Absolute threshold" ),
9629                            CRIT_RAFF_REL  = SIMP(statut='f',typ='R',
9630                                                    fr="Critère relatif",
9631                                                    ang="Relative threshold" ),
9632                            CRIT_RAFF_PE   = SIMP(statut='f',typ='R',
9633                                                    fr="Pourcentage d'éléments",
9634                                                    ang="Percentage of elements" ),
9635                            ) ,
9636 #
9637 # 4.4.2. POUR LE DERAFFINEMENT :
9638 #
9639            b_critere_de_deraffinement =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'DERAFFINEMENT' ) " ,
9640                            fr="Critère de déraffinement.",
9641                            ang="Unrefinement threshold.",
9642                            regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE' ),),
9643                            CRIT_DERA_ABS  = SIMP(statut='f',typ='R' ,
9644                                                  fr="Critère absolu",
9645                                                  ang="Absolute threshold" ),
9646                            CRIT_DERA_REL  = SIMP(statut='f',typ='R',
9647                                                  fr="Critère relatif",
9648                                                  ang="Relative threshold" ),
9649                            CRIT_DERA_PE   = SIMP(statut='f',typ='R',
9650                                                  fr="Pourcentage d'éléments",
9651                                                  ang="Percentage of elements" ),
9652                            ) ,
9653 #
9654 # 4.5. LES NIVEAUX EXTREMES POUR LE MAILLAGE ADAPTE
9655 # 4.5.1. POUR LE RAFFINEMENT :
9656 #
9657            b_niveau_maximum =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'RAFFINEMENT' ) or "+
9658                                                 " ( UNIFORME == 'RAFFINEMENT' ) " ,
9659                              fr="Niveau maximum de profondeur de raffinement",
9660                              ang="Maximum level for refinement",
9661                              NIVE_MAX       = SIMP(statut='f',typ='I' ),
9662                            ) ,
9663 #
9664 # 4.5.2. POUR LE DERAFFINEMENT :
9665 #
9666            b_niveau_minimum =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'DERAFFINEMENT' ) or "+
9667                                                 " ( UNIFORME == 'DERAFFINEMENT' ) " ,
9668                              fr="Niveau minimum de profondeur de déraffinement",
9669                              ang="Minimum level for unrefinement",
9670                              NIVE_MIN       = SIMP(statut='f',typ='I' ),
9671                            ) ,
9672          ),
9673 #
9674 # 5. LA MISE A JOUR DE CHAMPS.
9675 #    PAR DEFAUT, RIEN NE SE FAIT
9676 #
9677          MAJ_CHAM        =FACT(statut='f',min=01,max='**',
9678                            fr="Mise à jour de champs sur le nouveau maillage.",
9679                            ang="Updationg of fields over the new mesh.",
9680 #
9681 # 5.1. LE NOM DU RESULTAT DU CHAMP A INTERPOLER
9682 #
9683            RESULTAT       = SIMP(statut='o',
9684                                  typ=(evol_elas,evol_noli,evol_ther),
9685                            fr="Resultat contenant le champ à mettre à jour",
9686                            ang="Result with field to be updated" ),
9687 #
9688 # 5.2. LE NOM DU CHAMP A INTERPOLER
9689 #
9690            NOM_CHAM       = SIMP(statut='o',typ='TXM',
9691                            fr="Nom du champ à mettre à jour",
9692                            ang="Name of the field to be updated" ),
9693 #
9694 # 5.3. LE NUMERO D'ORDRE POUR LE CHAMP A INTERPOLER
9695 #
9696            NUME_ORDRE     = SIMP(statut='f',typ='I',
9697                            fr="Numero d ordre du champ à mettre à jour",
9698                            ang="Rank of the field to be updated" ),
9699 #
9700 # 5.4. LE NOM DU CHAMP QUI CONTIENDRA LE RESULTAT DE LA MISE A JOUR
9701 #
9702            CHAM_MAJ       = SIMP(statut='o',typ=(CO,cham_gd),
9703                            fr="Nom du champ qui contiendra le champ mis à jour",
9704                            ang="Name of the field for the updated field"),
9705 #
9706 # 5.5. LE TYPE DU CHAMP QUI CONTIENDRA LE RESULTAT DE LA MISE A JOUR
9707 #
9708            TYPE_CHAM      = SIMP(statut='o',typ='TXM',
9709                                  into=("CHAM_NO_TEMP_R","CHAM_NO_DEPL_R"),
9710                            fr="Type du champ qui contiendra le champ mis à jour",
9711                            ang="Type of the field for the updated field" ),
9712          ),
9713 #
9714 # 6. INFORMATION SUR LE MAILLAGE : par defaut, on ne fait que les nombres
9715 #    A. NOMBRE DE NOEUDS ET ELEMENTS DU MAILLAGE
9716 #    B. QUALITE DES ELEMENTS DU MAILLAGE
9717 #    C. CONTROLE DE LA NON INTERPENETRATION DES ELEMENTS DU MAILLAGE
9718 #    D. CONNEXITE DU MAILLAGE
9719 #    E. TAILLE DES DIFFERENTS SOUS-DOMAINES
9720 #
9721          NOMBRE         = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
9722                           fr="Nombre de noeuds et éléments du maillage",
9723                           ang="Number of nodes and elements in the mesh" ),
9724 #
9725          QUALITE        = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
9726                           fr="Qualité du maillage",
9727                           ang="Mesh quality" ),
9728 #
9729          INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
9730                           fr="Controle de la non interpénétration des éléments.",
9731                           ang="Overlapping checking." ),
9732 #
9733          CONNEXITE      = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
9734                           fr="Connexité du maillage.",
9735                           ang="Mesh connexity." ),
9736 #
9737          TAILLE         = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
9738                           fr="Tailles des sous-domaines du maillage.",
9739                           ang="Sizes of mesh sub-domains." ),
9740 #
9741          MENAGE         = SIMP(statut='f',typ='TXM',into=("MAILLAGE","SOLUTION","TOUT") ),
9742 #
9743 )  ;
9744 #& MODIF COMMANDE  DATE 20/12/2001   AUTEUR F1BHHAJ J.ANGLES
9745 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9746 # ======================================================================
9747 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9748 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9749 #              REDISTRIBUTION OF THIS FILE.
9750 # ======================================================================
9751 # RESPONSABLE F1BHHAJ J.ANGLES
9752 def macr_ascouf_calc_prod(self,MODELE,CHAM_MATER,CARA_ELEM,FOND_FISS,CHARGE,RESU_THER,**args):
9753   self.type_sdprod(MODELE,modele)
9754   if CHAM_MATER != None:self.type_sdprod(CHAM_MATER,cham_mater)
9755   if CARA_ELEM  != None:self.type_sdprod(CARA_ELEM,cara_elem)
9756   if FOND_FISS  != None:self.type_sdprod(FOND_FISS,fond_fiss)
9757   if CHARGE     != None:self.type_sdprod(CHARGE,char_meca)
9758   if RESU_THER  != None:self.type_sdprod(RESU_THER,evol_ther)
9759   return evol_noli
9760
9761 MACR_ASCOUF_CALC=MACRO(nom="MACR_ASCOUF_CALC",op= -20,sd_prod=macr_ascouf_calc_prod,
9762                       fr=" ",
9763                       docu="U4.CF.20-a",reentrant='n',
9764          regles=(UN_PARMI('COMP_INCR','COMP_ELAS'),),
9765
9766          TYPE_MAILLAGE   =SIMP(statut='o',typ='TXM',
9767                                into=("SAIN",
9768                                      "FISS_COUDE",
9769                                      "SOUS_EPAIS_COUDE"
9770                                      ) ),
9771
9772          CL_BOL_P2_GV    =FACT(statut='f',min=1,max=1,
9773            ANGLE           =SIMP(statut='o',typ='R' ),
9774            AZIMUT          =SIMP(statut='f',typ='R',defaut= 90. ),
9775          ),
9776
9777          MAILLAGE        =SIMP(statut='o',typ=maillage ),
9778          MODELE          =SIMP(statut='o',typ=(CO,modele)),
9779          CHAM_MATER      =SIMP(statut='f',typ=(CO,cham_mater)),
9780          CARA_ELEM       =SIMP(statut='f',typ=(CO,cara_elem)),
9781          FOND_FISS       =SIMP(statut='f',typ=(CO,fond_fiss)),
9782          CHARGE          =SIMP(statut='f',typ=(CO,char_meca)),
9783          RESU_THER       =SIMP(statut='f',typ=(CO,evol_ther)),
9784
9785          AFFE_MATERIAU   =FACT(statut='o',min=1,max=3,
9786            regles=(UN_PARMI('TOUT','GROUP_MA'),),
9787            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9788            GROUP_MA        =SIMP(statut='f',typ='TXM',into=("COUDE","BOL") ),
9789            MATER           =SIMP(statut='o',typ=mater ),
9790            TEMP_REF        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9791          ),
9792
9793          PRES_REP        =FACT(statut='f',min=1,max=1,
9794            PRES            =SIMP(statut='o',typ='R' ),
9795            EFFE_FOND_P1    =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9796            FONC_MULT       =SIMP(statut='f',typ=fonction ),
9797          ),
9798
9799          ECHANGE         =FACT(statut='f',min=1,max=1,
9800            COEF_H          =SIMP(statut='f',typ=fonction ),
9801            TEMP_EXT        =SIMP(statut='f',typ=fonction ),
9802          ),
9803
9804          TORS_P1         =FACT(statut='f',min=1,max=6,
9805            regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
9806            FX              =SIMP(statut='f',typ='R' ),
9807            FY              =SIMP(statut='f',typ='R' ),
9808            FZ              =SIMP(statut='f',typ='R' ),
9809            MX              =SIMP(statut='f',typ='R' ),
9810            MY              =SIMP(statut='f',typ='R' ),
9811            MZ              =SIMP(statut='f',typ='R' ),
9812            FONC_MULT       =SIMP(statut='f',typ=fonction ),
9813          ),
9814
9815          COMP_INCR       =FACT(statut='f',min=1,max=1,
9816            RELATION        =SIMP(statut='o',typ='TXM',into=("VMIS_ISOT_TRAC",) ),
9817            VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut= 2,into=( 2 ,) ),
9818          ),
9819
9820          COMP_ELAS       =FACT(statut='f',min=1,max=1,
9821            RELATION        =SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC") ),
9822            ELAS            =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
9823            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
9824          ),
9825
9826          SOLVEUR         =FACT(statut='d',min=1,max=1,
9827            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
9828            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
9829              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
9830            ),
9831            b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
9832              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
9833            ),
9834            b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
9835                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
9836              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
9837              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9838            ),
9839            b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
9840              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
9841              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
9842              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
9843              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
9844              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
9845            ),
9846 #  A quoi sert eps
9847            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9848            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9849          ),
9850
9851          CONVERGENCE     =FACT(statut='d',min=1,max=1,
9852            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
9853            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
9854            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
9855            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
9856            RESI_INTE_RELA  =SIMP(statut='f',typ='R'
9857                                 ,defaut= 1.0E-6),
9858            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
9859            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut= 0 ),
9860            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
9861            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
9862          ),
9863
9864          NEWTON          =FACT(statut='d',min=1,max=1,
9865            REAC_INCR       =SIMP(statut='f',typ='I',defaut= 1 ),
9866            PREDICTION      =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
9867            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
9868            REAC_ITER       =SIMP(statut='f',typ='I',defaut=0),
9869            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
9870          ),
9871
9872          RECH_LINEAIRE   =FACT(statut='f',min=1,max=1,
9873            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
9874            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 3),
9875          ),
9876
9877          INCREMENT       =FACT(statut='o',min=1,max=1,
9878            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
9879                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
9880            LIST_INST       =SIMP(statut='o',typ=listr8),
9881            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
9882                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
9883            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
9884            INST_INIT       =SIMP(statut='f',typ='R'),
9885            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
9886            INST_FIN        =SIMP(statut='f',typ='R'),
9887            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
9888            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
9889            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
9890            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
9891          ),
9892
9893          THETA_3D        =FACT(statut='f',min=1,max='**',
9894            R_INF           =SIMP(statut='o',typ='R' ),
9895            R_SUP           =SIMP(statut='o',typ='R' ),
9896          ),
9897
9898          IMPR_TABLE      =FACT(statut='f',min=1,max=1,
9899            regles=(UN_PARMI('TOUT_PARA','NOM_PARA', ),
9900             PRESENT_PRESENT('TOUT_PARA','ANGLE',    ),
9901                    UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL',),),
9902            NOM_PARA        =SIMP(statut='f',typ='TXM',max=4,
9903                                  into=("TRESCA_MEMBRANE",
9904                                        "TRESCA_MFLE",
9905                                        "TRESCA",
9906                                        "SI_LONG"
9907                                        ) ),
9908            TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9909            ANGLE           =SIMP(statut='f',typ='R',max='**' ),
9910            R_CINTR         =SIMP(statut='f',typ='R',max='**' ),
9911            POSI_CURV_LONGI =SIMP(statut='f',typ='R',max='**' ),
9912            POSI_ANGUL      =SIMP(statut='f',typ='R',max='**' ),
9913          ),
9914
9915          IMPRESSION      =FACT(statut='f',min=1,max=1,
9916            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
9917                                  into=("RESULTAT","ASTER","IDEAS","CASTEM") ),
9918
9919            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
9920              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
9921            ),
9922
9923            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
9924              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
9925            ),
9926
9927          ),
9928
9929          TITRE           =SIMP(statut='f',typ='TXM' ),
9930
9931          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
9932 )  ;
9933 #& MODIF COMMANDE  DATE 20/12/2001   AUTEUR F1BHHAJ J.ANGLES
9934 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9935 # ======================================================================
9936 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9937 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9938 #              REDISTRIBUTION OF THIS FILE.
9939 # ======================================================================
9940 # RESPONSABLE F1BHHAJ J.ANGLES
9941 MACR_ASCOUF_MAIL=MACRO(nom="MACR_ASCOUF_MAIL",op= -19,sd_prod=maillage,
9942                       fr=" ",docu="U4.CF.10-a",reentrant='n',
9943
9944          regles=(EXCLUS('SOUS_EPAIS_COUDE','FISS_COUDE','SOUS_EPAIS_MULTI'),),
9945
9946          EXEC_MAILLAGE   =FACT(statut='o',min=1,max=1,
9947            LOGICIEL        =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000") ),
9948            UNITE_DATG      =SIMP(statut='f',typ='I',defaut=70),
9949            UNITE_MGIB      =SIMP(statut='f',typ='I',defaut=19),
9950            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10,11)),
9951          ),
9952
9953          TYPE_ELEM       =SIMP(statut='f',typ='TXM',defaut="CU20",into=("CU20","CUB8") ),
9954
9955          COUDE           =FACT(statut='o',min=1,max=1,
9956            ANGLE           =SIMP(statut='o',typ='R' ),
9957            R_CINTR         =SIMP(statut='o',typ='R' ),
9958            L_TUBE_P1       =SIMP(statut='o',typ='R' ),
9959            L_TUBE_P2       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9960            NB_ELEM_EPAIS   =SIMP(statut='f',typ='I',defaut= 3 ),
9961            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9962            TRANSFORMEE     =SIMP(statut='o',typ='TXM',defaut="COUDE",into=("COUDE","TUBE") ),
9963            b_transf_coude  =BLOC(condition = "TRANSFORMEE == 'COUDE' ",
9964               DEXT            =SIMP(statut='o',typ='R' ),
9965               EPAIS           =SIMP(statut='o',typ='R' ),
9966               SUR_EPAIS       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9967               BOL_P2          =SIMP(statut='f',typ='TXM',into=("ASP_MPP","CUVE","GV") ),
9968            ),
9969            b_transf_tube   =BLOC(condition = "TRANSFORMEE == 'TUBE' ",
9970               TRAN_EPAIS      =SIMP(statut='o',typ='TXM',defaut="NON",into=("OUI","NON") ),
9971               b_trans_epais_oui    =BLOC(condition = "TRAN_EPAIS == 'OUI' ",
9972                       regles=(ENSEMBLE('ANGL_TETA2','EPAIS_TI'),
9973                               UN_PARMI('ABSC_CURV_TRAN','POSI_ANGU_TRAN'),),
9974                       DEXT_T1         =SIMP(statut='o',typ='R' ),
9975                       EPAIS_T1        =SIMP(statut='o',typ='R' ),
9976                       EPAIS_T2        =SIMP(statut='o',typ='R' ),
9977                       EPAIS_TI        =SIMP(statut='f',typ='R' ),
9978                       ANGL_TETA1      =SIMP(statut='o',typ='R' ),
9979                       ANGL_TETA2      =SIMP(statut='f',typ='R' ),
9980                       ABSC_CURV_TRAN  =SIMP(statut='f',typ='R' ),
9981                       POSI_ANGU_TRAN  =SIMP(statut='f',typ='R' ),
9982               ),
9983               b_trans_epais_non    =BLOC(condition = "TRAN_EPAIS == 'NON' ",
9984                       DEXT            =SIMP(statut='o',typ='R' ),
9985                       EPAIS           =SIMP(statut='o',typ='R' ),
9986                       SUR_EPAIS       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9987                       BOL_P2          =SIMP(statut='f',typ='TXM',into=("ASP_MPP","CUVE","GV") ),
9988               ),
9989            ),
9990          ),
9991
9992          SOUS_EPAIS_COUDE=FACT(statut='f',min=1,max=1,
9993            regles=(UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL'),
9994                    UN_PARMI('POSI_CURV_CIRC','AZIMUT'),),
9995            TYPE            =SIMP(statut='o',typ='TXM',into=("AXIS","ELLI") ),
9996            AXE_CIRC        =SIMP(statut='f',typ='R' ),
9997            AXE_LONGI       =SIMP(statut='o',typ='R' ),
9998            PROFONDEUR      =SIMP(statut='o',typ='R' ),
9999            POSI_CURV_LONGI =SIMP(statut='f',typ='R' ),
10000            POSI_ANGUL      =SIMP(statut='f',typ='R' ),
10001            POSI_CURV_CIRC  =SIMP(statut='f',typ='R' ),
10002            AZIMUT          =SIMP(statut='f',typ='R' ),
10003            SOUS_EPAIS      =SIMP(statut='o',typ='TXM',into=("INTERNE","EXTERNE") ),
10004            NB_ELEM_LONGI   =SIMP(statut='o',typ='I' ),
10005            NB_ELEM_CIRC    =SIMP(statut='o',typ='I' ),
10006            NB_ELEM_RADI    =SIMP(statut='f',typ='I',defaut= 3 ),
10007            EMPREINTE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10008          ),
10009
10010          SOUS_EPAIS_MULTI=FACT(statut='f',min=1,max='**',
10011            regles=(UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL'),
10012                    UN_PARMI('POSI_CURV_CIRC','AZIMUT'),),
10013            TYPE            =SIMP(statut='o',typ='TXM',into=("AXIS","ELLI") ),
10014            AXE_CIRC        =SIMP(statut='f',typ='R' ),
10015            AXE_LONGI       =SIMP(statut='o',typ='R' ),
10016            PROFONDEUR      =SIMP(statut='o',typ='R' ),
10017            POSI_CURV_LONGI =SIMP(statut='f',typ='R' ),
10018            POSI_ANGUL      =SIMP(statut='f',typ='R' ),
10019            POSI_CURV_CIRC  =SIMP(statut='f',typ='R' ),
10020            AZIMUT          =SIMP(statut='f',typ='R' ),
10021            SOUS_EPAIS      =SIMP(statut='o',typ='TXM',into=("INTERNE","EXTERNE") ),
10022            NB_ELEM_LONGI   =SIMP(statut='o',typ='I' ),
10023            NB_ELEM_CIRC    =SIMP(statut='o',typ='I' ),
10024            EMPREINTE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10025          ),
10026
10027          FISS_COUDE      =FACT(statut='f',min=1,max=1,
10028            regles=(UN_PARMI('ABSC_CURV','POSI_ANGUL'),),
10029            AXIS            =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON" ),
10030            PROFONDEUR      =SIMP(statut='o',typ='R' ),
10031            LONGUEUR        =SIMP(statut='o',typ='R' ),
10032            ABSC_CURV       =SIMP(statut='f',typ='R' ),
10033            POSI_ANGUL      =SIMP(statut='f',typ='R' ),
10034            FISSURE         =SIMP(statut='o',typ='TXM',into=("DEB_INT","DEB_EXT") ),
10035            AZIMUT          =SIMP(statut='f',typ='R',defaut= 90. ),
10036            ORIEN           =SIMP(statut='o',typ='R',
10037                                  into=(45.,-45.,90.,0.E+0) ),
10038            NB_TRANCHE      =SIMP(statut='o',typ='I' ),
10039            NB_SECTEUR      =SIMP(statut='o',typ='I' ),
10040            NB_COURONNE     =SIMP(statut='o',typ='I' ),
10041            RAYON_TORE      =SIMP(statut='f',typ='R' ),
10042            COEF_MULT_RC2   =SIMP(statut='f',typ='R',defaut= 1. ),
10043            COEF_MULT_RC3   =SIMP(statut='f',typ='R' ),
10044            ANGL_OUVERTURE  =SIMP(statut='f',typ='R',defaut= 0.5 ),
10045          ),
10046
10047          IMPRESSION      =FACT(statut='f',min=1,max='**',
10048            regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
10049            FORMAT          =SIMP(statut='f',typ='TXM',defaut="ASTER",
10050                                  into=("ASTER","IDEAS","CASTEM") ),
10051            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
10052              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
10053            ),
10054            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
10055              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
10056            ),
10057            FICHIER         =SIMP(statut='f',typ='TXM' ),
10058            UNITE           =SIMP(statut='f',typ='I' ),
10059          ),
10060
10061          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
10062 )  ;
10063 #& MODIF COMMANDE  DATE 20/12/2001   AUTEUR F1BHHAJ J.ANGLES
10064 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10065 # ======================================================================
10066 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10067 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
10068 #              REDISTRIBUTION OF THIS FILE.
10069 # ======================================================================
10070 # RESPONSABLE F1BHHAJ J.ANGLES
10071 def macr_aspic_calc_prod(self,MODELE,CHAM_MATER,CARA_ELEM,FOND_FISS_1,FOND_FISS_2,CHARGE,RESU_THER,**args):
10072   if MODELE      != None:self.type_sdprod(MODELE,modele)
10073   if CHAM_MATER  != None:self.type_sdprod(CHAM_MATER,cham_mater)
10074   if CARA_ELEM   != None:self.type_sdprod(CARA_ELEM,cara_elem)
10075   if FOND_FISS_1 != None:self.type_sdprod(FOND_FISS_1,fond_fiss)
10076   if FOND_FISS_2 != None:self.type_sdprod(FOND_FISS_2,fond_fiss)
10077   if CHARGE      != None:self.type_sdprod(CHARGE,char_meca)
10078   if RESU_THER   != None:self.type_sdprod(RESU_THER,evol_ther)
10079   return evol_noli
10080
10081 MACR_ASPIC_CALC=MACRO(nom="MACR_ASPIC_CALC",op=-17,sd_prod=macr_aspic_calc_prod,
10082                     fr=" ",docu="U4.PC.20-a1",reentrant='n',
10083          regles=(UN_PARMI('COMP_INCR','COMP_ELAS'),),
10084
10085          TYPE_MAILLAGE   =SIMP(statut='o',typ='TXM',
10086                                into=("SAIN_FIN","SAIN_GROS","FISS_COUR_DEB","FISS_COUR_NONDEB","FISS_LONG_DEB",
10087                                      "FISS_LONG_NONDEB","FISS_AXIS_DEB","FISS_AXIS_NONDEB") ),
10088
10089          TUBULURE        =FACT(statut='o',min=1,max=1,
10090            TYPE            =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2") ),
10091          ),
10092          MAILLAGE        =SIMP(statut='o',typ=maillage),
10093          MODELE          =SIMP(statut='f',typ=(CO,modele)),
10094          CHAM_MATER      =SIMP(statut='f',typ=(CO,cham_mater)),
10095          CARA_ELEM       =SIMP(statut='f',typ=(CO,cara_elem)),
10096          FOND_FISS_1     =SIMP(statut='f',typ=(CO,fond_fiss)),
10097          FOND_FISS_2     =SIMP(statut='f',typ=(CO,fond_fiss)),
10098          CHARGE          =SIMP(statut='f',typ=(CO,char_meca)),
10099          RESU_THER       =SIMP(statut='f',typ=(CO,evol_ther)),
10100
10101          AFFE_MATERIAU   =FACT(statut='o',min=1,max=3,
10102            regles=(UN_PARMI('TOUT','GROUP_MA'),),
10103            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
10104            GROUP_MA        =SIMP(statut='f',typ='TXM',into=("TUBU","CORP","SOUD","SOUDCORP","SOUDTUBU") ),
10105            MATER           =SIMP(statut='o',typ=mater),
10106            TEMP_REF        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
10107            RCCM            =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
10108          ),
10109
10110          EQUILIBRE       =FACT(statut='o',min=1,max=1,
10111            NOEUD           =SIMP(statut='o',typ=no),
10112          ),
10113
10114          PRES_REP        =FACT(statut='o',min=1,max=1,
10115            PRES            =SIMP(statut='o',typ='R'),
10116            NOEUD           =SIMP(statut='f',typ=no),
10117            EFFE_FOND       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
10118            FONC_MULT       =SIMP(statut='f',typ=fonction),
10119          ),
10120
10121          ECHANGE         =FACT(statut='f',min=1,max=1,
10122            COEF_H_TUBU     =SIMP(statut='o',typ=fonction),
10123            COEF_H_CORP     =SIMP(statut='o',typ=fonction),
10124            TEMP_EXT        =SIMP(statut='o',typ=fonction),
10125          ),
10126
10127          TORS_CORP       =FACT(statut='f',min=1,max=6,
10128            regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
10129            NOEUD           =SIMP(statut='o',typ=no),
10130            FX              =SIMP(statut='f',typ='R'),
10131            FY              =SIMP(statut='f',typ='R'),
10132            FZ              =SIMP(statut='f',typ='R'),
10133            MX              =SIMP(statut='f',typ='R'),
10134            MY              =SIMP(statut='f',typ='R'),
10135            MZ              =SIMP(statut='f',typ='R'),
10136            FONC_MULT       =SIMP(statut='f',typ=fonction),
10137          ),
10138
10139          TORS_TUBU       =FACT(statut='f',min=1,max=6,
10140            regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
10141            FX              =SIMP(statut='f',typ='R'),
10142            FY              =SIMP(statut='f',typ='R'),
10143            FZ              =SIMP(statut='f',typ='R'),
10144            MX              =SIMP(statut='f',typ='R'),
10145            MY              =SIMP(statut='f',typ='R'),
10146            MZ              =SIMP(statut='f',typ='R'),
10147            FONC_MULT       =SIMP(statut='f',typ=fonction),
10148          ),
10149
10150          COMP_INCR       =FACT(statut='f',min=1,max=1,
10151            RELATION        =SIMP(statut='o',typ='TXM',into=("VMIS_ISOT_TRAC",) ),
10152            VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut= 2,into=( 2 ,) ),
10153          ),
10154
10155          COMP_ELAS       =FACT(statut='f',min=1,max=1,
10156            RELATION        =SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC") ),
10157            ELAS            =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
10158            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
10159          ),
10160
10161          THETA_3D        =FACT(statut='f',min=1,max='**',
10162            R_INF           =SIMP(statut='o',typ='R'),
10163            R_SUP           =SIMP(statut='o',typ='R'),
10164          ),
10165
10166          OPTION          =SIMP(statut='f',typ='TXM',into=("CALC_G_MAX","CALC_G_MAX_LOCAL") ),
10167          BORNES          =FACT(statut='f',min=1,max='**',
10168            NUME_ORDRE      =SIMP(statut='o',typ='I'),
10169            VALE_MIN        =SIMP(statut='o',typ='R'),
10170            VALE_MAX        =SIMP(statut='o',typ='R'),
10171          ),
10172
10173          SOLVEUR         =FACT(statut='d',min=1,max=1,
10174            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
10175            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
10176              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
10177            ),
10178            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
10179              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
10180            ),
10181            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
10182                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
10183              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
10184              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10185            ),
10186            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
10187              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
10188              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
10189              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
10190              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
10191              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
10192            ),
10193 #  A quoi sert eps
10194            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
10195            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10196          ),
10197
10198          CONVERGENCE     =FACT(statut='d',min=1,max=1,
10199            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
10200            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
10201            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
10202            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
10203            RESI_INTE_RELA  =SIMP(statut='f',typ='R',defaut=1.0E-6),
10204            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut=10),
10205            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut=0),
10206            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
10207            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
10208          ),
10209
10210          NEWTON          =FACT(statut='d',min=1,max=1,
10211            REAC_INCR       =SIMP(statut='f',typ='I',defaut=1),
10212            PREDICTION      =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE","EXTRAPOL","DEPL_CALCULE")),
10213            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE")),
10214            REAC_ITER       =SIMP(statut='f',typ='I',defaut= 0),
10215          ),
10216
10217          RECH_LINEAIRE   =FACT(statut='d',min=1,max=1,
10218            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut=1.0E-3),
10219            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut=3),
10220          ),
10221
10222          INCREMENT       =FACT(statut='o',min=1,max=1,
10223            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
10224                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
10225            LIST_INST       =SIMP(statut='o',typ=listr8),
10226            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
10227                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
10228            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
10229            INST_INIT       =SIMP(statut='f',typ='R'),
10230            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
10231            INST_FIN        =SIMP(statut='f',typ='R'),
10232            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
10233            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
10234            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
10235            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
10236          ),
10237
10238          PAS_AZIMUT      =SIMP(statut='f',typ='I',defaut=1),
10239
10240          IMPRESSION      =FACT(statut='f',min=1,max=1,
10241            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
10242                                  into=("RESULTAT","ASTER","CASTEM","IDEAS")),
10243
10244            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
10245              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
10246            ),
10247
10248            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
10249              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
10250            ),
10251
10252            b_extrac        =BLOC(condition="((FORMAT=='IDEAS')or(FORMAT=='CASTEM'))",
10253                                  fr="extraction d un champ de grandeur",
10254              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST'),),
10255              NOM_CHAM        =SIMP(statut='f',typ='TXM',max=3,
10256                                    into=("DEPL","EQUI_ELNO_SIGM","TEMP")),
10257
10258              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10259              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
10260              INST            =SIMP(statut='f',typ='R',max='**'),
10261            ),
10262          ),
10263
10264          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10265
10266          TITRE           =SIMP(statut='f',typ='TXM'),
10267 )  ;
10268 # debut entete
10269 #& MODIF COMMANDE  DATE 20/12/2001   AUTEUR F1BHHAJ J.ANGLES
10270 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10271 # ======================================================================
10272 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10273 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
10274 #              REDISTRIBUTION OF THIS FILE.
10275 # ======================================================================
10276 # RESPONSABLE F1BHHAJ J.ANGLES
10277 MACR_ASPIC_MAIL=MACRO(nom="MACR_ASPIC_MAIL",op= -16,sd_prod=maillage,reentrant='n',
10278                     fr=" ",docu="U4.PC.10-a",
10279
10280          EXEC_MAILLAGE   =FACT(statut='o',min=1,max=1,
10281            LOGICIEL        =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000")),
10282            UNITE_DATG      =SIMP(statut='f',typ='I',defaut=70),
10283            UNITE_MGIB      =SIMP(statut='f',typ='I',defaut=19),
10284            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10,11)),
10285          ),
10286
10287          TYPE_ELEM       =SIMP(statut='f',typ='TXM',defaut="CU20",into=("CU20","CUB8")),
10288
10289          RAFF_MAIL       =SIMP(statut='f',typ='TXM',defaut="GROS",into=("GROS","FIN")),
10290
10291          TUBULURE        =FACT(statut='o',min=1,max=1,
10292            E_BASE          =SIMP(statut='o',typ='R'),
10293            DEXT_BASE       =SIMP(statut='o',typ='R'),
10294            L_BASE          =SIMP(statut='o',typ='R'),
10295            L_CHANF         =SIMP(statut='o',typ='R'),
10296            E_TUBU          =SIMP(statut='o',typ='R'),
10297            DEXT_TUBU       =SIMP(statut='o',typ='R'),
10298            Z_MAX           =SIMP(statut='o',typ='R'),
10299            TYPE            =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2")),
10300            L_PENETR        =SIMP(statut='f',typ='R',defaut= 0.0E+0),
10301          ),
10302
10303          SOUDURE         =FACT(statut='o',min=1,max=1,
10304            H_SOUD          =SIMP(statut='o',typ='R'),
10305            ANGL_SOUD       =SIMP(statut='o',typ='R'),
10306            JEU_SOUD        =SIMP(statut='o',typ='R'),
10307          ),
10308
10309          CORPS           =FACT(statut='o',min=1,max=1,
10310            E_CORP          =SIMP(statut='o',typ='R'),
10311            DEXT_CORP       =SIMP(statut='o',typ='R'),
10312            X_MAX           =SIMP(statut='o',typ='R'),
10313          ),
10314
10315          FISS_SOUDURE    =FACT(statut='f',min=1,max=1,
10316            TYPE            =SIMP(statut='o',typ='TXM',into=("LONGUE","COURTE")),
10317            AXIS            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
10318            PROFONDEUR      =SIMP(statut='o',typ='R'),
10319            LONGUEUR        =SIMP(statut='f',typ='R'),
10320            AZIMUT          =SIMP(statut='o',typ='R'),
10321            RAYON_TORE      =SIMP(statut='f',typ='R'),
10322            POSITION        =SIMP(statut='o',typ='TXM',into=("DROIT","INCLINE")),
10323            FISSURE         =SIMP(statut='o',typ='TXM',into=("DEB_INT","DEB_EXT","NON_DEB","TRAVERS")),
10324            LIGA_INT        =SIMP(statut='f',typ='R'),
10325            ANGL_OUVERTURE  =SIMP(statut='f',typ='R',defaut= 0.0E+0),
10326            COEF_MULT_RC1   =SIMP(statut='f',typ='R'),
10327            COEF_MULT_RC2   =SIMP(statut='f',typ='R'),
10328            COEF_MULT_RC3   =SIMP(statut='f',typ='R'),
10329            NB_TRANCHE      =SIMP(statut='f',typ='I'),
10330            NB_SECTEUR      =SIMP(statut='f',typ='I'),
10331            NB_COURONNE     =SIMP(statut='f',typ='I'),
10332          ),
10333
10334          IMPRESSION      =FACT(statut='f',min=1,max='**',
10335            regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
10336            FORMAT          =SIMP(statut='f',typ='TXM',defaut="ASTER",into=("ASTER","IDEAS","CASTEM")),
10337
10338            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
10339              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
10340            ),
10341
10342            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
10343              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
10344            ),
10345            FICHIER         =SIMP(statut='f',typ='TXM'),
10346            UNITE           =SIMP(statut='f',typ='I'),
10347          ),
10348
10349          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10350 )  ;
10351 #& MODIF COMMANDE  DATE 19/12/2001   AUTEUR CIBHHPD D.NUNEZ
10352 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10353 # ======================================================================
10354 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10355 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
10356 #              REDISTRIBUTION OF THIS FILE.
10357 # ======================================================================
10358 MACR_ELEM_DYNA=OPER(nom="MACR_ELEM_DYNA",op=  81,sd_prod=macr_elem_dyna,
10359                     fr="Définition d un macro élément pour analyse modale ou harmonique par sous structuration dynamique",
10360                     docu="U4.65.01-d",reentrant='n',
10361          regles=(EXCLUS('MATR_AMOR','AMOR_REDUIT' ),),
10362          BASE_MODALE     =SIMP(statut='o',typ=base_modale ),
10363          MATR_RIGI       =SIMP(statut='f',typ=matr_asse_depl_r ),
10364          MATR_MASS       =SIMP(statut='f',typ=matr_asse_depl_r ),
10365          MATR_AMOR       =SIMP(statut='f',typ=matr_asse_depl_r ),
10366          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
10367          OPTION          =SIMP(statut='f',typ='TXM',defaut="CLASSIQUE",into=("CLASSIQUE","RITZ",
10368                           "DIAG_MASS") ),
10369 )  ;
10370 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
10371 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10372 # ======================================================================
10373 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10374 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
10375 #              REDISTRIBUTION OF THIS FILE.
10376 # ======================================================================
10377 MACR_ELEM_STAT=OPER(nom="MACR_ELEM_STAT",op=86,sd_prod=macr_elem_stat,docu="U4.62.01-e",reentrant='f',
10378                     fr="Définition d un macro-élément pour l analyse statique par sous structuration",
10379         regles=(AU_MOINS_UN('DEFINITION','RIGI_MECA','MASS_MECA','CAS_CHARGE'),
10380                 ENSEMBLE('DEFINITION','EXTERIEUR'),),
10381          DEFINITION      =FACT(statut='f',min=1,max=1,
10382            MODELE          =SIMP(statut='o',typ=modele),
10383            CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
10384            CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
10385            CHAR_MACR_ELEM  =SIMP(statut='f',typ=char_meca),
10386            INST            =SIMP(statut='f',typ='R',defaut=0.0E+0 ),
10387            NMAX_CAS        =SIMP(statut='f',typ='I',defaut=10),
10388            NMAX_CHAR       =SIMP(statut='f',typ='I',defaut=10),
10389          ),
10390          EXTERIEUR       =FACT(statut='f',min=1,max=1,
10391            regles=(AU_MOINS_UN('NOEUD','GROUP_NO'),),
10392            NOEUD           =SIMP(statut='f',typ=no,max='**'),
10393            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
10394          ),
10395          RIGI_MECA       =FACT(statut='f',min=1,max=1,
10396          ),
10397          MASS_MECA       =FACT(statut='f',min=1,max=1,
10398            BIDO1           =SIMP(statut='f',typ='I',defaut=0),
10399          ),
10400          CAS_CHARGE      =FACT(statut='f',min=1,max='**',
10401            NOM_CAS         =SIMP(statut='o',typ='TXM'),
10402            SUIV            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
10403            CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
10404            INST            =SIMP(statut='f',typ='R',defaut=0.E+0),
10405          ),
10406 )  ;
10407 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
10408 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10409 # ======================================================================
10410 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10411 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
10412 #              REDISTRIBUTION OF THIS FILE.
10413 # ======================================================================
10414 MACR_GOUJ2E_CALC=MACRO(nom="MACR_GOUJ2E_CALC",op=-23,sd_prod=evol_noli,
10415                       fr=" ",docu="U4.GJ.20-a",reentrant='n',
10416          MAILLAGE        =SIMP(statut='o',typ=maillage),
10417          DEFI_GOUJ       =FACT(statut='o',min=01,max=01,
10418            TYPE            =SIMP(statut='o',typ='TXM',into=("M33","M64","M90","M115","M155","M180","M186")),
10419            VARIANTE        =SIMP(statut='o',typ='TXM',into=("A","B","C","D","E","F","G","H","I","J","K","L","M",
10420                                                             "N","O","P","Q","R","S","T","U","V","W","X","Y","Z")),
10421            FILET_TRONQUE   =SIMP(statut='f',typ='I',max='**'),
10422            FILET_TRONQA    =SIMP(statut='f',typ='I',max='**'),
10423            FILET_TRONQB    =SIMP(statut='f',typ='I',max='**'),
10424            FILET_JEU_HT    =SIMP(statut='f',typ='I',max='**'),
10425            FILET_JEU_HTA   =SIMP(statut='f',typ='I',max='**'),
10426            FILET_JEU_HTB   =SIMP(statut='f',typ='I',max='**'),
10427          ),
10428          EXCIT           =FACT(statut='o',min=01,max=01,
10429            TYPE_BLOCAGE    =SIMP(statut='o',typ='I',defaut=2,into=(1,2,3)),
10430            FORCE_GOUJ      =SIMP(statut='o',typ='R'),
10431          ),
10432          CALCUL          =FACT(statut='o',min=01,max=01,
10433            TYPE_CALCUL     =SIMP(statut='o',typ='TXM',into=("ELASTIQUE","ELASTOPLASTIQUE")),
10434            NB_INCR         =SIMP(statut='o',typ='I'),
10435          ),
10436          IMPRESSION      =FACT(statut='f',min=01,max=01,
10437            FORMAT          =SIMP(statut='f',typ='TXM',defaut="TABLE",
10438                                  into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED","TABLE")),
10439            VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
10440          ),
10441          TITRE           =SIMP(statut='f',typ='TXM'),
10442          INFO            =SIMP(statut='f',typ='I',defaut=1 ,into=(1,2)),
10443 )  ;
10444 #& MODIF COMMANDE  DATE 03/10/2001   AUTEUR DURAND C.DURAND
10445 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10446 # ======================================================================
10447 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10448 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
10449 #              REDISTRIBUTION OF THIS FILE.
10450 # ======================================================================
10451 MACR_GOUJ2E_MAIL=MACRO(nom="MACR_GOUJ2E_MAIL",op= -22,sd_prod=maillage,
10452                       fr=" ",docu="U4.GJ.10-a",reentrant='n',
10453          EXEC_MAILLAGE   =FACT(statut='o',min=1,max=1,
10454            LOGICIEL        =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000") ),
10455            UNITE_DATG      =SIMP(statut='f',typ='I',defaut=70),
10456            UNITE_MGIB      =SIMP(statut='f',typ='I',defaut=19),
10457            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10)),
10458          ),
10459          DEFI_GOUJ       =FACT(statut='o',min=1,max=1,
10460            TYPE            =SIMP(statut='o',typ='TXM',into=("M33","M64","M90","M115","M155","M180","M186")),
10461            VARIANTE        =SIMP(statut='o',typ='TXM',into=("A","B","C","D","E","F","G","H","I","J","K","L","M",
10462                                                             "N","O","P","Q","R","S","T","U","V","W","X","Y","Z")),
10463          ),
10464          GEOM_GOUJ_BRID  =FACT(statut='o',min=1,max=1,
10465            NB_FILET        =SIMP(statut='o',typ='I'),
10466            H_CORP_BRID     =SIMP(statut='o',typ='R'),
10467            R_EXT_BRID      =SIMP(statut='o',typ='R'),
10468            H_HAUT_BRID     =SIMP(statut='f',typ='R',defaut=0.0E+0),
10469            H_BAS_BRID      =SIMP(statut='f',typ='R',defaut= 0.0E+0),
10470            FILET_ABST      =SIMP(statut='f',typ='I',max='**'),
10471          ),
10472          IMPRESSION      =FACT(statut='f',min=1,max=1,
10473            regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
10474            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
10475                                  into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED")),
10476            FICHIER         =SIMP(statut='f',typ='TXM'),
10477            UNITE           =SIMP(statut='f',typ='I'),
10478            VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
10479            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
10480          ),
10481          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10482 )  ;
10483 #& MODIF COMMANDE  DATE 25/01/2002   AUTEUR GNICOLAS G.NICOLAS
10484 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10485 # ======================================================================
10486 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10487 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
10488 #              REDISTRIBUTION OF THIS FILE.
10489 # ======================================================================
10490 # RESPONSABLE GNICOLAS G.NICOLAS
10491 MACR_INFO_MAIL=MACRO(nom="MACR_INFO_MAIL",op=-24,docu="U7.03.02-a",
10492                      fr="Donner des informations sur un maillage.",
10493                      ang="To give information about a mesh.",
10494 #
10495 # 1. Le niveau d'information
10496 #
10497          INFO           = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10498 #
10499 # 2. Version de HOMARD
10500 #
10501          VERSION_HOMARD = SIMP(statut='f',typ='TXM',defaut="V5_1",
10502                                into=("V5_1", "V5_N","V5_N_PERSO"),
10503                            fr="Version de HOMARD",
10504                            ang="HOMARD release"),
10505 #
10506 # 3. Langue des messages issus de HOMARD
10507 #
10508          LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
10509                                into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
10510                            fr="Langue des messages issus de HOMARD.",
10511                            ang="Language for HOMARD messages." ),
10512 #
10513 # 4. Le nom du maillage a analyser
10514 #
10515          MAILLAGE       = SIMP(statut='o',typ=maillage,
10516                            fr="Maillage à analyser.",
10517                            ang="Mesh to be checked." ),
10518 #
10519 # 5. Les options ; par defaut, on ne fait que les nombres
10520 # 5.1. Nombre de noeuds et elements
10521 #
10522          NOMBRE         = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
10523                           fr="Nombre de noeuds et éléments du maillage",
10524                           ang="Number of nodes and elements in the mesh" ),
10525 #
10526 # 5.2. Determination de la qualite des elements du maillage
10527 #
10528          QUALITE        = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10529                           fr="Qualité du maillage",
10530                           ang="Mesh quality" ),
10531 #
10532 # 5.3. Connexite du maillage
10533 #
10534          CONNEXITE      = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10535                           fr="Connexité du maillage.",
10536                           ang="Mesh connexity." ),
10537 #
10538 # 5.4. Taille des sous-domaines du maillage
10539 #
10540          TAILLE         = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10541                           fr="Tailles des sous-domaines du maillage.",
10542                           ang="Sizes of mesh sub-domains." ),
10543 #
10544 # 5.5. Controle de la non-interpenetration des elements
10545 #
10546          INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10547                           fr="Controle de la non interpénétration des éléments.",
10548                           ang="Overlapping checking." ),
10549 #
10550 )  ;
10551 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
10552 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10553 # ======================================================================
10554 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10555 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
10556 #              REDISTRIBUTION OF THIS FILE.
10557 # ======================================================================
10558 # RESPONSABLE JMBHH01 J.M.PROIX
10559 MACRO_CARA_POUTRE=MACRO(nom="MACRO_CARA_POUTRE",op=-11,sd_prod=tabl_cara_geom,
10560                        docu="U4.42.02-c",reentrant='n',
10561                        fr="caractéristiques d'une section transversale de poutre à partir d'un maillage 2D",
10562          regles=(EXCLUS('SYME_X','GROUP_MA_BORD'),
10563                  EXCLUS('SYME_Y','GROUP_MA_BORD'),
10564                  ENSEMBLE('LONGUEUR','LIAISON','MATERIAU') ,),
10565          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut= 20 ),
10566          SYME_X          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
10567          SYME_Y          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
10568          GROUP_MA_BORD   =SIMP(statut='f',typ=grma,max='**'),
10569          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10570          ORIG_INER       =SIMP(statut='f',typ='R',max='**'),
10571          NOEUD           =SIMP(statut='f',typ=no,max='**'),
10572          GROUP_MA_INTE   =SIMP(statut='f',typ=grma,max='**'),
10573          LONGUEUR        =SIMP(statut='f',typ='R'),
10574          MATERIAU        =SIMP(statut='f',typ=mater),
10575          LIAISON         =SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT")),
10576          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10577 )  ;
10578 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
10579 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10580 # ======================================================================
10581 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10582 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
10583 #              REDISTRIBUTION OF THIS FILE.
10584 # ======================================================================
10585 MACRO_CHAR_F_U=MACRO(nom="MACRO_CHAR_F_U",op=-15,sd_prod=char_meca,
10586                     fr=" ",docu="U4.72.07-a",reentrant='n',
10587          MODELE          =SIMP(statut='o',typ=modele),
10588          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
10589          CHARGE          =SIMP(statut='o',typ=char_meca),
10590          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
10591          COEF_IMPO       =SIMP(statut='f',typ='R',defaut=1.0E+0),
10592          NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="APRES",into=("NORMAL","APRES")),
10593          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10594 )  ;
10595 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
10596 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10597 # ======================================================================
10598 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10599 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
10600 #              REDISTRIBUTION OF THIS FILE.
10601 # ======================================================================
10602 # RESPONSABLE G8BHHXD X.DESROCHES
10603 def macro_elas_mult_prod(self,NUME_DDL,CAS_CHARGE,**args ):
10604   self.type_sdprod(NUME_DDL,nume_ddl)
10605   if CAS_CHARGE[0]['NOM_CAS']      != None : return mult_elas
10606   if CAS_CHARGE[0]['MODE_FOURIER'] != None : return fourier_elas
10607   raise AsException("type de concept resultat non prevu")
10608
10609 MACRO_ELAS_MULT=MACRO(nom="MACRO_ELAS_MULT",op=-10,sd_prod=macro_elas_mult_prod,docu="U4.51.02-c1",reentrant='f',
10610          regles=(UN_PARMI('CHAR_MECA_GLOBAL','CHAR_CINE_GLOBAL','LIAISON_DISCRET', ),),
10611          MODELE          =SIMP(statut='o',typ=modele),
10612          CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
10613          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
10614          NUME_DDL        =SIMP(statut='f',typ=(CO,nume_ddl)),# CO()
10615          CHAR_MECA_GLOBAL=SIMP(statut='f',typ=char_meca,max='**'),
10616          CHAR_CINE_GLOBAL=SIMP(statut='f',typ=char_meca,max='**'),
10617          LIAISON_DISCRET =SIMP(statut='f',typ='TXM',into=("OUI",)),
10618          CAS_CHARGE      =FACT(statut='o',min=1,max='**',
10619            regles=(UN_PARMI('NOM_CAS','MODE_FOURIER'),
10620                    UN_PARMI('CHAR_MECA','CHAR_CINE','VECT_ASSE'),),
10621            NOM_CAS         =SIMP(statut='f',typ='TXM' ),
10622            MODE_FOURIER    =SIMP(statut='f',typ='I' ),
10623            TYPE_MODE       =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
10624            CHAR_MECA       =SIMP(statut='f',typ=char_meca,max='**'),
10625            CHAR_CINE       =SIMP(statut='f',typ=char_meca,max='**'),
10626            OPTION          =SIMP(statut='f',typ='TXM',max='**',
10627                                  into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
10628                                        "SIGM_ELNO_CART","EFGE_ELNO_CART","DEGE_ELNO_DEPL","EPSI_ELNO_DEPL",
10629                                        "EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO","EPSP_ELGA",
10630                                        "ECIN_ELEM_DEPL","FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","SOUR_ELGA_ELEC",
10631                                        "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG","INTE_ELNO_ACTI",
10632                                        "INTE_ELNO_REAC","SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA",
10633                                        "ERRE_ELEM_NOZ2","VNOR_ELEM_DEPL","ERRE_ELNO_ELGA","SIRE_ELNO_DEPL",
10634                                        "ERRE_ELGA_NORE","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI",
10635                                        "EQUI_ELGA_EPSI","FORC_NODA","REAC_NODA","EPSI_NOEU_DEPL","SIGM_NOEU_DEPL",
10636                                        "EFGE_NOEU_DEPL","EQUI_NOEU_SIGM","EQUI_NOEU_EPSI","FLUX_NOEU_TEMP") ),
10637            NUME_COUCHE     =SIMP(statut='f',typ='I',defaut=1),
10638            NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY")),
10639            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
10640            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r),
10641          ),
10642 #
10643          SOLVEUR         =FACT(statut='d',min=1,max=1,
10644            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT") ),
10645            b_mult_front    = BLOC ( condition = "METHODE == 'MULT_FRONT' ",
10646                                     fr="Paramètres de la méthode multi frontale",
10647              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
10648            ),
10649            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
10650              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
10651             ),
10652            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
10653                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
10654              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
10655              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10656            ),
10657          ),
10658          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2)),
10659          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
10660 )  ;
10661 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
10662 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10663 # ======================================================================
10664 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10665 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
10666 #              REDISTRIBUTION OF THIS FILE.
10667 # ======================================================================
10668 MACRO_MADMACS=MACRO(nom="MACRO_MADMACS",op=-9,docu="U7.03.21-c",
10669                     fr="Impression au format IDEAS des données pour chainage entre Code_Aster et MADMACS",
10670          regles=(UN_PARMI('MATR_ELEM_RIGI','MATR_RIGI'),
10671                  UN_PARMI('MATR_ELEM_MASS','MATR_MASS'),
10672                  PRESENT_ABSENT('MATR_ELEM_AMOR','MATR_AMOR'),),
10673          FICHIER         =SIMP(statut='f',typ='TXM' ),
10674          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",)),
10675          VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(5,)),
10676          MAILLAGE        =SIMP(statut='o',typ=maillage),
10677          NUME_DDL        =SIMP(statut='o',typ=nume_ddl),
10678          CHARGE          =SIMP(statut='o',typ=char_meca,max='**'),
10679          MATR_ELEM_RIGI  =SIMP(statut='f',typ=matr_elem_depl_r),
10680          MATR_RIGI       =SIMP(statut='f',typ=matr_asse_depl_r),
10681          MATR_ELEM_MASS  =SIMP(statut='f',typ=matr_elem_depl_r),
10682          MATR_MASS       =SIMP(statut='f',typ=matr_asse_depl_r),
10683          MATR_ELEM_AMOR  =SIMP(statut='f',typ=matr_elem_depl_r),
10684          MATR_AMOR       =SIMP(statut='f',typ=matr_asse_depl_r),
10685          MODE_MECA       =SIMP(statut='o',typ=mode_meca),
10686          NMAX_MODE       =SIMP(statut='f',typ='I',defaut=10),
10687          INTERFACE       =FACT(statut='f',min=01,max='**',
10688            regles=(UN_PARMI('NOEUD','GROUP_NO'),
10689                    UN_PARMI('DDL_ACTIF','MASQUE'),),
10690            NOM             =SIMP(statut='o',typ='TXM'),
10691            NOEUD           =SIMP(statut='f',typ=no,max='**'),
10692            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
10693            DDL_ACTIF       =SIMP(statut='f',typ='TXM',max='**'),
10694            MASQUE          =SIMP(statut='f',typ='TXM',max='**'),
10695          ),
10696          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10697 )  ;
10698 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
10699 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10700 # ======================================================================
10701 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10702 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
10703 #              REDISTRIBUTION OF THIS FILE.
10704 # ======================================================================
10705 def macro_matr_ajou_prod(self,MATR_AMOR_AJOU,MATR_MASS_AJOU,MATR_RIGI_AJOU,FORC_AJOU,**args):
10706   self.type_sdprod(MATR_AMOR_AJOU,matr_asse_depl_r)
10707   self.type_sdprod(MATR_MASS_AJOU,matr_asse_depl_r)
10708   self.type_sdprod(MATR_RIGI_AJOU,matr_asse_depl_r)
10709   if FORC_AJOU != None:
10710     for m in FORC_AJOU:
10711       self.type_sdprod(m['VECTEUR'],vect_asse_gene)
10712
10713   return None
10714
10715 MACRO_MATR_AJOU=MACRO(nom="MACRO_MATR_AJOU",op=-13,docu="U4.66.11-b",sd_prod=macro_matr_ajou_prod,
10716       regles=(AU_MOINS_UN('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
10717               AU_MOINS_UN('MATR_MASS_AJOU','MATR_AMOR_AJOU','MATR_RIGI_AJOU'),
10718               EXCLUS('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
10719               EXCLUS('MONO_APPUI','MODE_STAT',),
10720              ),
10721          MAILLAGE        =SIMP(statut='o',typ=maillage),
10722          GROUP_MA_FLUIDE =SIMP(statut='o',typ=grma),
10723          GROUP_MA_INTERF =SIMP(statut='o',typ=grma),
10724          MODELISATION    =SIMP(statut='o',typ='TXM',into=("PLAN","AXIS","3D")),
10725          FLUIDE          =FACT(statut='o',min=1,max='**',
10726            RHO             =SIMP(statut='o',typ='R'),
10727            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
10728            GROUP_MA        =SIMP(statut='f',typ=grma),
10729            MAILLE          =SIMP(statut='f',typ=ma),
10730          ),
10731          DDL_IMPO        =FACT(statut='o',min=1,max='**',
10732            regles=(UN_PARMI('NOEUD','GROUP_NO'),
10733                    UN_PARMI('PRES_FLUIDE','PRES_SORTIE'),),
10734            NOEUD           =SIMP(statut='f',typ=no),
10735            GROUP_NO        =SIMP(statut='f',typ=grno),
10736            PRES_FLUIDE     =SIMP(statut='f',typ='R'),
10737            PRES_SORTIE     =SIMP(statut='f',typ='R'),
10738          ),
10739          ECOULEMENT      =FACT(statut='f',min=1,max='**',
10740            GROUP_MA_1      =SIMP(statut='o',typ=grma),
10741            GROUP_MA_2      =SIMP(statut='o',typ=grma),
10742            VNOR_1          =SIMP(statut='o',typ='R'),
10743            VNOR_2          =SIMP(statut='f',typ='R'),
10744            POTENTIEL       =SIMP(statut='f',typ=evol_ther),
10745          ),
10746          MODE_MECA       =SIMP(statut='f',typ=mode_meca),
10747          DEPL_IMPO       =SIMP(statut='f',typ=cham_no_depl_r),
10748          MODELE_GENE     =SIMP(statut='f',typ=modele_gene),
10749          NUME_DDL_GENE   =SIMP(statut='f',typ=nume_ddl_gene),
10750          DIST_REFE       =SIMP(statut='f',typ='R',defaut= 1.0E-2),
10751          MATR_MASS_AJOU  =SIMP(statut='f',typ=(CO,matr_asse)),
10752          MATR_RIGI_AJOU  =SIMP(statut='f',typ=(CO,matr_asse)),
10753          MATR_AMOR_AJOU  =SIMP(statut='f',typ=(CO,matr_asse)),
10754          MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",),),
10755          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,),),
10756          FORC_AJOU       =FACT(statut='f',min=1,max='**',
10757            DIRECTION     =SIMP(statut='o',typ='R',max=3),
10758            NOEUD         =SIMP(statut='f',typ=no,max='**'),
10759            GROUP_NO      =SIMP(statut='f',typ=grno,max='**'),
10760            VECTEUR       =SIMP(statut='o',typ=(CO,vect_asse_gene)),
10761          ),
10762          SOLVEUR         =FACT(statut='d',min=1,max=1,
10763            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
10764            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
10765              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
10766            ),
10767            b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
10768              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
10769            ),
10770            b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
10771                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
10772              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
10773              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10774            ),
10775            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
10776              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
10777              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
10778              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
10779              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
10780              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
10781            ),
10782 #  A quoi sert eps
10783            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
10784          ),
10785          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10786          NOEUD_DOUBLE    =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
10787          AVEC_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
10788 ) ;
10789 #& MODIF COMMANDE  DATE 23/01/2002   AUTEUR DURAND C.DURAND
10790 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10791 # ======================================================================
10792 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10793 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
10794 #              REDISTRIBUTION OF THIS FILE.
10795 # ======================================================================
10796 #% RESPONSABLE VABHHTS J.PELLET
10797
10798 def macro_matr_asse_ops(self,MODELE,CHAM_MATER,CARA_ELEM,MATR_ASSE,
10799                         SOLVEUR,NUME_DDL,CHARGE,INST,**args):
10800   """
10801      Ecriture de la macro MACRO_MATR_ASSE
10802   """
10803   ier=0
10804   # On met le mot cle NUME_DDL dans une variable locale pour le proteger
10805   numeddl=NUME_DDL
10806   # On importe les definitions des commandes a utiliser dans la macro
10807   # Le nom de la variable doit etre obligatoirement le nom de la commande
10808   CALC_MATR_ELEM=self.get_cmd('CALC_MATR_ELEM')
10809   NUME_DDL      =self.get_cmd('NUME_DDL')
10810   ASSE_MATRICE  =self.get_cmd('ASSE_MATRICE')
10811   # La macro compte pour 1 dans la numerotation des commandes
10812   self.icmd=1
10813
10814   if SOLVEUR:
10815     methode=SOLVEUR['METHODE']
10816     if methode=='LDLT':
10817       if SOLVEUR['RENUM']:
10818          renum=SOLVEUR['RENUM']
10819       else:
10820          renum='RCMK'
10821       if renum not in ('SANS','RCMK'):
10822         ier=ier+1
10823         self.cr.fatal("Avec methode LDLT, RENUM doit etre SANS ou RCMK.")
10824         return ier
10825     elif methode=='MULT_FRONT':
10826       if SOLVEUR['RENUM']:
10827          renum=SOLVEUR['RENUM']
10828       else:
10829          renum='MDA'
10830       if renum not in ('MDA','MD','METIS'):
10831         ier=ier+1
10832         self.cr.fatal("Avec methode MULT_FRONT, RENUM doit etre MDA, MD ou RCMK.")
10833         return ier
10834     elif methode=='GCPC':
10835       if SOLVEUR['RENUM']:
10836          renum=SOLVEUR['RENUM']
10837       else:
10838          renum='SANS'
10839       if renum not in ('SANS','RCMK'):
10840         ier=ier+1
10841         self.cr.fatal("Avec methode GCPC, RENUM doit etre SANS ou RCMK.")
10842         return ier
10843   else:
10844     methode='MULT_FRONT'
10845     renum  ='MDA'
10846
10847   if numeddl in self.sdprods:
10848     # Si le concept numeddl est dans self.sdprods
10849     # il doit etre  produit par la macro
10850     # il faudra donc appeler la commande NUME_DDL
10851     lnume = 1
10852   else:
10853     lnume = 0
10854   lrigel = 0
10855   lmasel = 0
10856
10857   iocc=0
10858   for m in MATR_ASSE:
10859     iocc=iocc+1
10860     option=m['OPTION']
10861     if iocc == 1 and lnume == 1 and option not in ('RIGI_MECA','RIGI_MECA_LAGR',
10862                                                    'RIGI_THER','RIGI_ACOU')      :
10863       ier=ier+1
10864       self.cr.fatal("LA PREMIERE OPTION DOIT ETRE RIGI_MECA OU RIGI_THER OU RIGI_ACOU OU RIGI_MECA_LAGR")
10865       return ier
10866
10867     if m['SIEF_ELGA']!=None and option!='RIGI_GEOM':
10868       ier=ier+1
10869       self.cr.fatal("SIEF_ELGA N EST ADMIS QU AVEC L OPTION RIGI_GEOM")
10870       return ier
10871
10872     if m['MODE_FOURIER']!=None and option not in ('RIGI_MECA','RIGI_FLUI_STRU','RIGI_THER'):
10873       ier=ier+1
10874       self.cr.fatal("MODE_FOURIER N EST ADMIS QU AVEC UNE DES OPTIONS RIGI_MECA RIGI_FLUI_STRU RIGI_THER")
10875       return ier
10876
10877     if (m['THETA']!=None or m['PROPAGATION']!=None) and option!='RIGI_MECA_LAGR':
10878       ier=ier+1
10879       self.cr.fatal("PROPAGATION ET,OU THETA NE SONT ADMIS QU AVEC L OPTION RIGI_MECA_LAGR")
10880       return ier
10881
10882     motscles={'OPTION':option}
10883     if option == 'AMOR_MECA':
10884        if (not lrigel or not lmasel):
10885           ier=ier+1
10886           self.cr.fatal("""POUR CALCULER AMOR_MECA, IL FAUT AVOIR CALCULE
10887                            RIGI_MECA ET MASS_MECA AUPARAVANT (DANS LE MEME APPEL)""")
10888           return ier
10889        if CHAM_MATER != None:
10890           motscles['RIGI_MECA']   =rigel
10891           motscles['MASS_MECA']   =masel
10892     if CHARGE     != None:
10893        if option[0:9] not in ('MASS_THER','RIGI_GEOM','MASS_ID_M'):
10894                            motscles['CHARGE']      =CHARGE
10895     if CHAM_MATER != None: motscles['CHAM_MATER']  =CHAM_MATER
10896     if CARA_ELEM  != None: motscles['CARA_ELEM']   =CARA_ELEM
10897     if INST       != None: motscles['INST']        =INST
10898     if m['SIEF_ELGA']   :  motscles['SIEF_ELGA']   =m['SIEF_ELGA']
10899     if m['MODE_FOURIER']:  motscles['MODE_FOURIER']=m['MODE_FOURIER']
10900     if m['THETA']       :  motscles['THETA']       =m['THETA']
10901     if m['PROPAGATION'] :  motscles['PROPAGATION'] =m['PROPAGATION']
10902
10903     __a=CALC_MATR_ELEM(MODELE=MODELE,**motscles)
10904
10905     if option == 'RIGI_MECA':
10906       rigel  = __a
10907       lrigel = 1
10908     if option == 'MASS_MECA':
10909       masel  = __a
10910       lmasel = 1
10911
10912     if lnume and option in ('RIGI_MECA','RIGI_THER','RIGI_ACOU','RIGI_MECA_LAGR'):
10913       self.DeclareOut('num',numeddl)
10914       # On peut passer des mots cles egaux a None. Ils sont ignores
10915       num=NUME_DDL(MATR_RIGI=__a,METHODE=methode,RENUM=renum)
10916     else:
10917       num=numeddl
10918
10919     self.DeclareOut('mm',m['MATRICE'])
10920     mm=ASSE_MATRICE(MATR_ELEM=__a,NUME_DDL=num)
10921   return ier
10922
10923
10924 def macro_matr_asse_prod(self,NUME_DDL,MATR_ASSE,**args):
10925   if not MATR_ASSE:  raise AsException("Impossible de typer les concepts resultats")
10926   if not NUME_DDL:  raise AsException("Impossible de typer les concepts resultats")
10927   self.type_sdprod(NUME_DDL,nume_ddl)
10928   for m in MATR_ASSE:
10929     opti=m['OPTION']
10930
10931     if opti in ( "RIGI_MECA","RIGI_FLUI_STRU","RIGI_MECA_LAGR" ,
10932        "MASS_MECA" , "MASS_FLUI_STRU" ,"RIGI_GEOM" ,"RIGI_ROTA",
10933        "AMOR_MECA","IMPE_MECA","MASS_ID_MDEP_R","MASS_ID_MDNS_R",
10934        "ONDE_FLUI","MASS_MECA_DIAG" ) : t=matr_asse_depl_r
10935
10936     if opti in ( "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",) : t=matr_asse_pres_c
10937
10938     if opti in ( "RIGI_THER","MASS_THER","RIGI_THER_CONV" ,
10939        "RIGI_THER_CONV_D","MASS_ID_MTEM_R","MASS_ID_MTNS_R",) : t=matr_asse_temp_r
10940
10941     if opti == "RIGI_MECA_HYST"   : t= matr_asse_depl_c
10942
10943     self.type_sdprod(m['MATRICE'],t)
10944   return None
10945
10946 MACRO_MATR_ASSE=MACRO(nom="MACRO_MATR_ASSE",op=macro_matr_asse_ops,docu="U4.61.21-c",
10947                       sd_prod=macro_matr_asse_prod,
10948                       fr="Calcul des matrices assemblées (matr_asse_gd) par exemple de rigidité, de masse ",
10949          MODELE          =SIMP(statut='o',typ=modele),
10950          CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
10951          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
10952          CHARGE          =SIMP(statut='f',typ=(char_meca,char_ther,char_acou)),
10953          INST            =SIMP(statut='f',typ='R'),
10954          NUME_DDL        =SIMP(statut='o',typ=(nume_ddl,CO)),
10955          SOLVEUR         =FACT(statut='d',min=01,max=01,
10956            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",
10957                                  into=("LDLT","MULT_FRONT","GCPC")),
10958            RENUM           =SIMP(statut='f',typ='TXM',into=("SANS","RCMK","MD","MDA","METIS")),
10959          ),
10960          MATR_ASSE       =FACT(statut='o',min=01,max='**',
10961            MATRICE         =SIMP(statut='o',typ=(matr_asse,CO)),
10962            OPTION          =SIMP(statut='o',typ='TXM',
10963                                  into=("RIGI_MECA","MASS_MECA","MASS_MECA_DIAG",
10964                                        "AMOR_MECA","RIGI_MECA_HYST","IMPE_MECA",
10965                                        "ONDE_FLUI","RIGI_FLUI_STRU","MASS_FLUI_STRU",
10966                                        "RIGI_ROTA","RIGI_GEOM","RIGI_MECA_LAGR",
10967                                        "RIGI_THER","MASS_THER",
10968                                        "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",
10969                                        "MASS_ID_MTEM_R","MASS_ID_MTNS_R","MASS_ID_MDEP_R","MASS_ID_MDNS_R",)
10970                                  ),
10971            SIEF_ELGA       =SIMP(statut='f',typ=cham_elem_sief_r),
10972            MODE_FOURIER    =SIMP(statut='f',typ='I'),
10973            THETA           =SIMP(statut='f',typ=theta_geom),
10974            PROPAGATION     =SIMP(statut='f',typ='R'),
10975          ),
10976          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
10977          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10978 )  ;
10979 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
10980 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10981 # ======================================================================
10982 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10983 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
10984 #              REDISTRIBUTION OF THIS FILE.
10985 # ======================================================================
10986 MACRO_MISS_3D=MACRO(nom="MACRO_MISS_3D",op=-18,fr=" ",docu="U7.03.11-a",
10987          OPTION          =FACT(statut='o',min=01,max=01,
10988            regles=(UN_PARMI('TOUT','MODULE'),),
10989            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
10990            MODULE          =SIMP(statut='f',typ='TXM',into=("PRE_MISS","MISS_EVOL","MISS_IMPE")),
10991          ),
10992          PROJET          =SIMP(statut='o',typ='TXM'),
10993          REPERTOIRE      =SIMP(statut='f',typ='TXM'),
10994          UNITE_IMPR_ASTER=SIMP(statut='f',typ='I',defaut=25),
10995          UNITE_OPTI_MISS =SIMP(statut='f',typ='I',defaut=26),
10996          UNITE_MODELE_SOL=SIMP(statut='f',typ='I',defaut=27),
10997          UNITE_RESU_IMPE =SIMP(statut='f',typ='I',defaut=30),
10998 )  ;
10999 #& MODIF COMMANDE  DATE 23/01/2002   AUTEUR CIBHHLV L.VIVAN
11000 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11001 # ======================================================================
11002 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11003 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11004 #              REDISTRIBUTION OF THIS FILE.
11005 # ======================================================================
11006 def macro_mode_meca_prod(self,MATR_A,MATR_B,**args ):
11007   self.type_sdprod(MATR_A,matr_asse_depl_r)
11008   self.type_sdprod(MATR_B,matr_asse_depl_r)
11009   return mode_meca
11010
11011 MACRO_MODE_MECA=MACRO(nom="MACRO_MODE_MECA",op= -12,sd_prod=macro_mode_meca_prod,
11012                      docu="U4.52.02-c",reentrant='n',
11013          MATR_A          =SIMP(statut='o',typ=(CO,matr_asse_depl_r) ),
11014          MATR_B          =SIMP(statut='o',typ=(CO,matr_asse_depl_r) ),
11015          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11016 #  ce mot cle ne devrait il pas etre dans calc_freq
11017          METHODE         =SIMP(statut='f',typ='TXM',defaut="SORENSEN",
11018                                into=("TRI_DIAG","JACOBI","SORENSEN",) ),
11019          OPTION          =SIMP(statut='f',typ='TXM',defaut="SANS",
11020                                into=("MODE_RIGIDE","SANS") ),
11021          CALC_FREQ       =FACT(statut='d',min=00,max=01,
11022            regles=(UN_PARMI('FREQ','FREQ_MAX'),
11023                    PRESENT_PRESENT('FREQ_MIN','FREQ_MAX'),
11024                    PRESENT_PRESENT('FREQ_MAX','NB_BLOC_FREQ'),
11025                    EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
11026            FREQ            =SIMP(statut='f',typ='R',max='**' ),
11027            FREQ_MIN        =SIMP(statut='f',typ='R' ),
11028            FREQ_MAX        =SIMP(statut='f',typ='R' ),
11029            NB_BLOC_FREQ    =SIMP(statut='f',typ='I' ),
11030            NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10 ),
11031            DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
11032            COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
11033            NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8 ),
11034            NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
11035            PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
11036            PREC_LANCZOS    =SIMP(statut='f',typ='R',defaut= 1.E-10 ),
11037            PREC_ORTHO      =SIMP(statut='f',typ='R',defaut= 1.E-12 ),
11038            NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5 ),
11039            NMAX_ITER_QR    =SIMP(statut='f',typ='I',defaut= 30 ),
11040            PREC_BATHE      =SIMP(statut='f',typ='R',defaut= 1.4E-10 ),
11041            NMAX_ITER_BATHE =SIMP(statut='f',typ='I' ,defaut= 12 ),
11042            PREC_JACOBI     =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
11043            NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12 ),
11044            PREC_SOREN      =SIMP(statut='f',typ='R',defaut= 0.E0 ),
11045            NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20 ),
11046            PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717 ),
11047            SEUIL_FREQ      =SIMP(statut='f',typ='R' ,defaut= 1.E-2 ),
11048            STOP_FREQ_VIDE  =SIMP(statut='f',typ='TXM',defaut="NON" ,into=("OUI","NON") ),
11049          ),
11050          VERI_MODE       =FACT(statut='d',min=00,max=01,
11051            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11052            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
11053            PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
11054            STURM           =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11055          ),
11056          NORM_MODE       =FACT(statut='o',min=01,max='**',
11057            MASS_INER       =SIMP(statut='o',typ=tabl_mass_iner ),
11058            NORME           =SIMP(statut='f',typ='TXM',defaut="TRAN_ROTA",
11059                                  into=("MASS_GENE","RIGI_GENE","EUCL",
11060                                        "EUCL_TRAN","TRAN","TRAN_ROTA") ),
11061            INFO            =SIMP(statut='f',typ='I',defaut= 1 ,into=(1,2) ),
11062          ),
11063          FILTRE_MODE     =FACT(statut='f',min=01,max=01,
11064            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
11065                                  into=("MASS_EFFE_UN","MASS_GENE") ),
11066            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
11067          ),
11068          IMPRESSION      =FACT(statut='d',min=01,max=01,
11069            TOUT_PARA       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11070            CUMUL           =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11071            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
11072                                  into=("MASS_EFFE_UN","MASS_GENE",) ),
11073          ),
11074 )  ;
11075 #& MODIF COMMANDE  DATE 23/01/2002   AUTEUR DURAND C.DURAND
11076 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11077 # ======================================================================
11078 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11079 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11080 #              REDISTRIBUTION OF THIS FILE.
11081 # ======================================================================
11082 def macro_proj_base_ops(self,BASE,NB_VECT,MATR_ASSE_GENE,VECT_ASSE_GENE,**args):
11083   """
11084      Ecriture de la macro MACRO_PROJ_BASE
11085   """
11086   ier=0
11087   # On importe les definitions des commandes a utiliser dans la macro
11088   NUME_DDL_GENE  =self.get_cmd('NUME_DDL_GENE')
11089   PROJ_MATR_BASE =self.get_cmd('PROJ_MATR_BASE')
11090   PROJ_VECT_BASE =self.get_cmd('PROJ_VECT_BASE')
11091   # La macro compte pour 1 dans la numerotation des commandes
11092   self.icmd=1
11093
11094   nompro=None
11095   iocc=0
11096   if MATR_ASSE_GENE:
11097     for m in MATR_ASSE_GENE:
11098       iocc=iocc+1
11099       if (iocc==1 or (m['PROFIL']!=nompro)):
11100          _num=NUME_DDL_GENE(BASE=BASE,NB_VECT=NB_VECT,STOCKAGE=m['PROFIL'])
11101       nompro=m['PROFIL']
11102       motscles={}
11103       if   m['MATR_ASSE']     :  motscles['MATR_ASSE']     =m['MATR_ASSE']
11104       elif m['MATR_ASSE_GENE']:  motscles['MATR_ASSE_GENE']=m['MATR_ASSE_GENE']
11105       else:
11106           ier=ier+1
11107           self.cr.fatal("MATR_ASSE et MATR_ASSE_GENE absents")
11108           return ier
11109       self.DeclareOut('mm',m['MATRICE'])
11110       mm=PROJ_MATR_BASE(BASE=BASE,NUME_DDL_GENE=_num,NB_VECT=NB_VECT,**motscles)
11111
11112   iocc=0
11113   if VECT_ASSE_GENE:
11114     for v in VECT_ASSE_GENE:
11115       iocc=iocc+1
11116       if (iocc==1 and not MATR_ASSE_GENE):
11117          _num=NUME_DDL_GENE(BASE=BASE,NB_VECT=NB_VECT,STOCKAGE='DIAG')
11118       motscles={}
11119       if   v['VECT_ASSE']     :  motscles['VECT_ASSE']     =v['VECT_ASSE']
11120       elif v['VECT_ASSE_GENE']:  motscles['VECT_ASSE_GENE']=v['VECT_ASSE_GENE']
11121       else:
11122           ier=ier+1
11123           self.cr.fatal("MATR_ASSE et MATR_ASSE_GENE absents")
11124           return ier
11125       motscles['TYPE_VECT']=v['TYPE_VECT']
11126       self.DeclareOut('vv',v['VECTEUR'])
11127       vv=PROJ_VECT_BASE(BASE=BASE,NUME_DDL_GENE=_num,NB_VECT=NB_VECT,**motscles)
11128
11129   return ier
11130
11131
11132 def macro_proj_base_prod(self,MATR_ASSE_GENE,VECT_ASSE_GENE,**args ):
11133   if MATR_ASSE_GENE != None:
11134     for m in MATR_ASSE_GENE:
11135       self.type_sdprod(m['MATRICE'],matr_asse_gene_r)
11136       self.type_sdprod(m['MATR_ASSE'],matr_asse_depl_r)
11137   if VECT_ASSE_GENE != None:
11138     for v in VECT_ASSE_GENE:
11139       self.type_sdprod(v['VECTEUR'],vect_asse_gene)
11140   return None
11141
11142 MACRO_PROJ_BASE=MACRO(nom="MACRO_PROJ_BASE",op=macro_proj_base_ops,docu="U4.63.11-c",
11143                       sd_prod=macro_proj_base_prod,
11144                       fr="Projection des matrices et/ou vecteurs assemblés sur une base de vecteurs",
11145          BASE            =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene) ),
11146          NB_VECT         =SIMP(statut='f',typ='I',defaut= 9999),
11147          MATR_ASSE_GENE  =FACT(statut='f',min=01,max='**',
11148            MATRICE         =SIMP(statut='o',typ=(CO,matr_asse)),
11149            MATR_ASSE       =SIMP(statut='f',typ=matr_asse_depl_r),
11150            MATR_ASSE_GENE  =SIMP(statut='f',typ=matr_asse_gene_r),
11151            PROFIL          =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("PLEIN","DIAG") ),
11152          ),
11153          VECT_ASSE_GENE  =FACT(statut='f',min=01,max='**',
11154            VECTEUR         =SIMP(statut='o',typ=(CO,vect_asse)),
11155            TYPE_VECT       =SIMP(statut='f',typ='TXM',defaut="FORC"),
11156            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r),
11157            VECT_ASSE_GENE  =SIMP(statut='f',typ=vect_asse_gene),
11158          ),
11159          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
11160 )  ;
11161 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
11162 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11163 # ======================================================================
11164 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11165 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11166 #              REDISTRIBUTION OF THIS FILE.
11167 # ======================================================================
11168 MAJ_CATA=PROC(nom="MAJ_CATA",op=20,docu="U4.15.01-d",
11169               fr="Compilation des catalogues de commandes et d éléments",
11170          regles=(UN_PARMI('COMMANDE','ELEMENT','VALIDATION'),),
11171
11172          COMMANDE        =FACT(statut='f',min=01,max=01,
11173            UNITE           =SIMP(statut='o',typ='I',val_min=1,val_max=99, ),
11174          ),
11175
11176          ELEMENT         =FACT(statut='f',min=01,max=01,),
11177
11178          VALIDATION      =FACT(statut='f',min=01,max=01,
11179            UNITE           =SIMP(statut='o',typ='I',val_min=1,val_max=99, ),
11180            TOUT            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",) ),
11181          ),
11182 )  ;
11183 #& MODIF COMMANDE  DATE 04/12/2001   AUTEUR GNICOLAS G.NICOLAS
11184 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11185 # ======================================================================
11186 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11187 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11188 #              REDISTRIBUTION OF THIS FILE.
11189 # ======================================================================
11190 # RESPONSABLE VABHHTS J.PELLET
11191 MECA_STATIQUE=OPER(nom="MECA_STATIQUE",op=46,sd_prod=evol_elas,
11192                    fr="Analyse mécanique statique linéaire",docu="U4.51.01-f",reentrant='n',
11193                    regles=(EXCLUS("INST","LIST_INST"),
11194                            AU_MOINS_UN('CHAM_MATER','CARA_ELEM',), ),
11195          MODELE          =SIMP(statut='o',typ=modele),
11196          CHAM_MATER      =SIMP(statut='f',typ=cham_mater,
11197          fr="le CHAM_MATER est nécessaire, sauf si le modèle ne contient que des éléments discrets (modélisations DIS_XXX)",
11198          ang="CHAM_MATER is compulsory, except if the model contains only discret elements (modelizations DIS_XXX)"),
11199          CARA_ELEM       =SIMP(statut='f',typ=cara_elem,
11200          fr="le CARA_ELEM est nécessaire dès que le modèle contient des éléments de structure : coques, poutres, ...",
11201          ang="CARA_ELEM is compulsory as soon as the model contains structural elements : plates, beams, ..."),
11202          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11203          EXCIT           =FACT(statut='o',min=1,max='**',
11204            CHARGE          =SIMP(statut='o',typ=(char_meca,char_cine_meca)),
11205            FONC_MULT       =SIMP(statut='f',typ=fonction),
11206            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
11207          ),
11208          INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11209          LIST_INST       =SIMP(statut='f',typ=listr8),
11210          OPTION          =SIMP(statut='f',typ='TXM',max='**',
11211                                into=("SIEF_ELGA_DEPL","SIGM_ELNO_DEPL","SIPO_ELNO_DEPL","EFGE_ELNO_DEPL",
11212                                      "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPME_ELNO_DEPL","EPME_ELGA_DEPL",
11213                                      "EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
11214                                      "EQUI_ELNO_EPME","EQUI_ELGA_EPME","DEGE_ELNO_DEPL","EPOT_ELEM_DEPL",
11215                                      "ENEL_ELGA","ENEL_ELNO_ELGA") ),
11216          NUME_COUCHE     =SIMP(statut='f',typ='I',defaut=1),
11217          NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
11218          ANGLE           =SIMP(statut='f',typ='I',defaut=0),
11219          PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL") ),
11220          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
11221                                fr="Liste des paramètres de sensibilité.",
11222                                ang="List of sensitivity parameters"),
11223          SOLVEUR         =FACT(statut='d',min=1,max=1,
11224            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
11225            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
11226              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
11227            ),
11228            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
11229              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11230              TAILLE_BLOC     =SIMP(statut='f',typ='R',defaut= 400.),
11231            ),
11232            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
11233                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
11234              NPREC           =SIMP(statut='f',typ='I',defaut=8),
11235              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11236            ),
11237            b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
11238              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
11239              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
11240              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
11241              RESI_RELA       =SIMP(statut='f',typ='R',defaut=1.E-6),
11242              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
11243            ),
11244 #  A quoi sert eps
11245            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11246          ),
11247          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
11248 )  ;
11249 #& MODIF COMMANDE  DATE 25/09/2001   AUTEUR GNICOLAS G.NICOLAS
11250 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11251 # ======================================================================
11252 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11253 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11254 #              REDISTRIBUTION OF THIS FILE.
11255 # ======================================================================
11256 # RESPONSABLE GNICOLAS G.NICOLAS
11257 MEMO_NOM_SENSI=PROC(nom="MEMO_NOM_SENSI",op=129,docu="U4.31.xx-a",
11258                     fr="Mémorisation des noms des concepts dérivés.",
11259                     ang="Memorisation of the names of the sensitive concepts.",
11260          regles=(AU_MOINS_UN('NOM','NOM_ZERO','NOM_UN'),),
11261
11262          NOM=FACT(statut='f',max='**',
11263              NOM_SD=SIMP(statut='o',typ='TXM',
11264                          fr="Nom de la structure de base",
11265                          ang="Name of the basic structure"),
11266              PARA_SENSI=SIMP(statut='o',typ=(para_sensi,theta_geom),
11267                          fr="Nom du paramètre sensible base",
11268                          ang="Name of the sensitive parameter"),
11269              NOM_COMPOSE=SIMP(statut='f',typ='TXM',defaut=" ",
11270                          fr="Nom de la structure composée",
11271                          ang="Name of the built strcuture"),
11272          ),
11273
11274          NOM_ZERO=SIMP(statut='f',typ=fonction,
11275                        fr="Nom de la fonction nulle",
11276                        ang="Name of the zero fonction"),
11277          NOM_UN=SIMP  (statut='f',typ=fonction,
11278                        fr="Nom de la fonction unité",
11279                        ang="Name of the one fonction"),
11280
11281
11282 )  ;
11283 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
11284 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11285 # ======================================================================
11286 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11287 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11288 #              REDISTRIBUTION OF THIS FILE.
11289 # ======================================================================
11290 MODE_ITER_CYCL=OPER(nom="MODE_ITER_CYCL",op=  80,sd_prod=mode_cycl,
11291                     fr="Modes propres d une structure à répétitivité cyclique à partir d une base de modes propres réels",
11292                     docu="U4.52.05-e",reentrant='n',
11293          BASE_MODALE     =SIMP(statut='o',typ=base_modale ),
11294          NB_MODE         =SIMP(statut='f',typ='I',defaut= 999 ),
11295          NB_SECTEUR      =SIMP(statut='o',typ='I' ),
11296          LIAISON         =FACT(statut='o',min=01,max=01,
11297            DROITE          =SIMP(statut='o',typ='TXM' ),
11298            GAUCHE          =SIMP(statut='o',typ='TXM' ),
11299            AXE             =SIMP(statut='f',typ='TXM' ),
11300          ),
11301          VERI_CYCL       =FACT(statut='f',min=01,max=01,
11302            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
11303            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF",) ),
11304            DIST_REFE       =SIMP(statut='f',typ='R' ),
11305          ),
11306          CALCUL          =FACT(statut='o',min=01,max=01,
11307            TOUT_DIAM       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11308            NB_DIAM         =SIMP(statut='f',typ='I',max='**'),
11309            OPTION          =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE"
11310                                 ,into=("PLUS_PETITE","CENTRE","BANDE") ),
11311            b_centre      =BLOC(condition = "OPTION == 'CENTRE'",
11312              FREQ            =SIMP(statut='o',typ='R',min=01,max=01),
11313            ),
11314            b_bande       =BLOC(condition = "OPTION == 'BANDE'",
11315              FREQ            =SIMP(statut='o',typ='R',min=02,max=02),
11316            ),
11317 #  NMAX_FREQ n a-t-il pas un sens qu avec OPTION CENTRE
11318            NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10 ),
11319            PREC_SEPARE     =SIMP(statut='f',typ='R',defaut= 100. ),
11320            PREC_AJUSTE     =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
11321            NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 50 ),
11322          ),
11323          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
11324 )  ;
11325 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
11326 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11327 # ======================================================================
11328 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11329 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11330 #              REDISTRIBUTION OF THIS FILE.
11331 # ======================================================================
11332 def mode_iter_inv_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
11333   if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
11334   if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
11335   if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
11336   if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
11337   if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
11338   raise AsException("type de concept resultat non prevu")
11339
11340 MODE_ITER_INV=OPER(nom="MODE_ITER_INV",op=  44,sd_prod=mode_iter_inv_prod
11341                     ,fr="Modes propres par itérations inverses ; valeurs propres et modes réels ou complexes",
11342                      docu="U4.52.04-f",reentrant='n',
11343          MATR_A          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
11344          MATR_B          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
11345          MATR_C          =SIMP(statut='f',typ=matr_asse_depl_r ),
11346          TYPE_RESU       =SIMP(statut='f',position='global',typ='TXM',defaut="DYNAMIQUE",
11347                                into=("MODE_FLAMB","DYNAMIQUE"),fr="Type d analyse" ),
11348          b_dynam         =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
11349            CALC_FREQ       =FACT(statut='o',min=1,max=1,fr="Choix des paramètres pour le calcul des valeurs propres",
11350
11351              OPTION          =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
11352                                    fr="Choix de l option pour estimer les valeurs propres"  ),
11353              FREQ            =SIMP(statut='o',typ='R',max='**'),
11354              AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
11355              NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 0,val_min=0 ),
11356              NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30,val_min=0 ),
11357              PREC_SEPARE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0 ),
11358              NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15,val_min=0 ),
11359              PREC_AJUSTE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0 ),
11360
11361              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
11362              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
11363              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0, ),
11364              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0, ),
11365            ),
11366          ),
11367          b_flamb        =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
11368            CALC_FREQ       =FACT(statut='o',min=1,max=1,fr="Choix des paramètres pour le calcul des valeurs propres",
11369
11370              OPTION          =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
11371                                  fr="Choix de l option pour estimer les valeurs propres"  ),
11372              CHAR_CRIT       =SIMP(statut='o',typ='R',max='**' ),
11373              NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 0,val_min=0 ),
11374              NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30,val_min=0 ),
11375              PREC_SEPARE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0, ),
11376              NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15 ),
11377              PREC_AJUSTE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0, ),
11378
11379              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
11380              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
11381              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0, ),
11382              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0, ),
11383            ),
11384          ),
11385          CALC_MODE       =FACT(statut='d',min=0,max=1,fr="Choix des paramètres pour le calcul des vecteurs propres",
11386            OPTION          =SIMP(statut='f',typ='TXM',defaut="DIRECT",into=("DIRECT","RAYLEIGH") ),
11387            PREC            =SIMP(statut='f',typ='R',defaut= 1.E-5,val_min=0.E+0,fr="Précision de convergence" ),
11388            NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
11389          ),
11390          VERI_MODE       =FACT(statut='d',min=0,max=1,
11391            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11392            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0,
11393                                  fr="Valeur limite admise pour l ereur a posteriori des modes"  ),
11394          ),
11395          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
11396          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11397 )  ;
11398 #& MODIF COMMANDE  DATE 23/01/2002   AUTEUR CIBHHLV L.VIVAN
11399 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11400 # ======================================================================
11401 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11402 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11403 #              REDISTRIBUTION OF THIS FILE.
11404 # ======================================================================
11405 def mode_iter_simult_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
11406   if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
11407   if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
11408   if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
11409   if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
11410   if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
11411   raise AsException("type de concept resultat non prevu")
11412
11413 MODE_ITER_SIMULT=OPER(nom="MODE_ITER_SIMULT",op=  45,sd_prod=mode_iter_simult_prod,
11414                       fr="Modes propres par itérations simultanées ; valeurs propres et modes propres réels ou complexes",
11415                       docu="U4.52.03-e",reentrant='n',
11416          MATR_A          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
11417          MATR_B          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
11418          MATR_C          =SIMP(statut='f',position='global',typ=matr_asse_depl_r ),
11419          METHODE         =SIMP(statut='f',position='global',typ='TXM',defaut="SORENSEN",
11420                                into=("TRI_DIAG","JACOBI","SORENSEN") ),
11421          TYPE_RESU       =SIMP(statut='f',position='global',typ='TXM',defaut="DYNAMIQUE",
11422                                into=("MODE_FLAMB","DYNAMIQUE"),
11423                                fr="Type d analyse" ),
11424          OPTION          =SIMP(statut='f',typ='TXM',defaut="SANS",into=("MODE_RIGIDE","SANS"),
11425                                fr="Calcul des modes de corps rigide, uniquement pour la méthode TRI_DIAG" ),
11426
11427          b_flamb         =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
11428            CALC_FREQ       =FACT(statut='d',min=0,max=1,
11429              OPTION          =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
11430                                    fr="Choix de l option et par conséquent du shift du problème modal" ),
11431              b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
11432                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
11433              ),
11434              b_centre      =BLOC(condition = "OPTION == 'CENTRE'",
11435                                  fr="Recherche des valeurs propres les plus proches d une valeur donnée",
11436                CHAR_CRIT       =SIMP(statut='o',typ='R',min=1,max=1,
11437                                      fr="Charge critique autour de laquelle on cherche les charges critiques propres"),
11438              ),
11439              b_bande       =BLOC(condition = "(OPTION == 'BANDE')",
11440                                  fr="Recherche des valeurs propres dans une bande donnée",
11441                CHAR_CRIT       =SIMP(statut='o',typ='R',min=2,max=2,
11442                                      fr="Valeur des deux charges critiques délimitant la bande de recherche"),
11443              ),
11444              APPROCHE        =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG"),
11445                                    fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
11446              regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
11447              DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
11448              COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
11449              b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
11450                PREC_ORTHO      =SIMP(statut='f',typ='R',defaut= 1.E-12,val_min=0.E+0 ),
11451                NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
11452                PREC_LANCZOS    =SIMP(statut='f',typ='R',defaut= 1.E-8,val_min=0.E+0 ),
11453                NMAX_ITER_QR    =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
11454              ),
11455              b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
11456                PREC_BATHE      =SIMP(statut='f',typ='R',defaut= 1.E-10,val_min=0.E+0 ),
11457                NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40,val_min=0 ),
11458                PREC_JACOBI     =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
11459                NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12,val_min=0 ),
11460              ),
11461              b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
11462                PREC_SOREN      =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
11463                NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
11464                PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
11465              ),
11466              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
11467              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
11468              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0 ),
11469              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
11470            ),
11471          ),
11472
11473          b_dynam        =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
11474            CALC_FREQ       =FACT(statut='d',min=0,max=1,
11475              OPTION          =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
11476                                    fr="Choix de l option et par conséquent du shift du problème modal" ),
11477              b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
11478                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
11479              ),
11480              b_centre       =BLOC(condition = "OPTION == 'CENTRE'",
11481                                   fr="Recherche des valeurs propres les plus proches d une valeur donnée",
11482                FREQ            =SIMP(statut='o',typ='R',min=1,max=1,
11483                                      fr="Fréquence autour de laquelle on cherche les fréquences propres"),
11484                AMOR_REDUIT     =SIMP(statut='f',typ='R',max=1,),
11485                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
11486              ),
11487              b_bande         =BLOC(condition = "(OPTION == 'BANDE')",
11488                                    fr="Recherche des valeurs propres dans une bande donnée",
11489                FREQ            =SIMP(statut='o',typ='R',min=2,max=2,
11490                                      fr="Valeur des deux fréquences délimitant la bande de recherche"),
11491              ),
11492              APPROCHE        =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG"),
11493                                    fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
11494              regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
11495              DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
11496              COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
11497              b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
11498                PREC_ORTHO      =SIMP(statut='f',typ='R',defaut= 1.E-12,val_min=0.E+0 ),
11499                NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
11500                PREC_LANCZOS    =SIMP(statut='f',typ='R',defaut= 1.E-8,val_min=0.E+0 ),
11501                NMAX_ITER_QR    =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
11502              ),
11503              b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
11504                PREC_BATHE      =SIMP(statut='f',typ='R',defaut= 1.E-10,val_min=0.E+0 ),
11505                NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40,val_min=0 ),
11506                PREC_JACOBI     =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
11507                NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12,val_min=0 ),
11508              ),
11509              b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
11510                PREC_SOREN      =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
11511                NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
11512                PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
11513              ),
11514              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
11515              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
11516              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0 ),
11517              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
11518            ),
11519          ),
11520
11521          VERI_MODE       =FACT(statut='d',min=0,max=1,
11522            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11523            PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-3,val_min=0.E+0 ),
11524            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-6,val_min=0.E+0,
11525                                  fr="Valeur limite admise pour l ereur a posteriori des modes" ),
11526            STURM           =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11527          ),
11528          STOP_FREQ_VIDE  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11529          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
11530          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11531 )  ;
11532 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
11533 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11534 # ======================================================================
11535 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11536 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11537 #              REDISTRIBUTION OF THIS FILE.
11538 # ======================================================================
11539 def mode_stat_prod(MODE_STAT,FORCE_NODALE,PSEUDO_MODE,**args):
11540  if (MODE_STAT != None)          : return mode_stat_depl
11541  if (PSEUDO_MODE !=None)         : return mode_stat_acce
11542  if (FORCE_NODALE != None)       : return mode_stat_forc
11543  raise AsException("type de concept resultat non prevu")
11544 MODE_STATIQUE=OPER(nom="MODE_STATIQUE",op= 93,sd_prod=mode_stat_prod,
11545                    fr="Calcul de modes statiques",
11546                    docu="U4.52.14-e",reentrant='n',
11547          MATR_RIGI       =SIMP(statut='o',typ=matr_asse_depl_r ),
11548          MATR_MASS       =SIMP(statut='f',typ=matr_asse_depl_r ),
11549                regles=(UN_PARMI('MODE_STAT','FORCE_NODALE','PSEUDO_MODE'),),
11550          MODE_STAT       =FACT(statut='f',min=01,max='**',
11551            regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
11552                    UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
11553            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ,),
11554            NOEUD           =SIMP(statut='f',typ=no,max='**'),
11555            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
11556            TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",) ,),
11557            AVEC_CMP        =SIMP(statut='f',typ='TXM',max='**'),
11558            SANS_CMP        =SIMP(statut='f',typ='TXM',max='**'),
11559          ),
11560          FORCE_NODALE    =FACT(statut='f',min=01,max='**',
11561            regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
11562                    UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
11563            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",), ),
11564            NOEUD           =SIMP(statut='f',typ=no,max='**'),
11565            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
11566            TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",), ),
11567            AVEC_CMP        =SIMP(statut='f',typ='TXM',max='**'),
11568            SANS_CMP        =SIMP(statut='f',typ='TXM',max='**'),
11569          ),
11570          PSEUDO_MODE       =FACT(statut='f',min=01,max='**',
11571            regles=(UN_PARMI('AXE','DIRECTION','TOUT','NOEUD','GROUP_NO' ),),
11572            AXE             =SIMP(statut='f',typ='TXM',into=("X","Y","Z"),max=3),
11573            DIRECTION       =SIMP(statut='f',typ='R',min=3,max=3),
11574            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
11575            NOEUD           =SIMP(statut='f',typ=no,max='**'),
11576            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
11577            b_dir           =BLOC(condition = "DIRECTION != None",
11578              NOM_DIR         =SIMP(statut='f',typ='TXM' ),),
11579            b_cmp          =BLOC(condition="TOUT!= None or NOEUD!=None or GROUP_NO!=None",
11580              regles=(UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
11581              TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11582              AVEC_CMP        =SIMP(statut='f',typ='TXM',max='**'),
11583              SANS_CMP        =SIMP(statut='f',typ='TXM',max='**'),
11584         ),
11585          ),
11586          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11587          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
11588 )  ;
11589 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
11590 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11591 # ======================================================================
11592 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11593 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11594 #              REDISTRIBUTION OF THIS FILE.
11595 # ======================================================================
11596 MODI_BASE_MODALE=OPER(nom="MODI_BASE_MODALE",op= 149,sd_prod=mode_meca,
11597                       docu="U4.66.21-c",reentrant='f',
11598 #  la commande modi_base _modale : reentrant = f ou o
11599          regles=(EXCLUS('AMOR_UNIF','AMOR_REDUIT', ),),
11600          BASE            =SIMP(statut='o',typ=mode_meca ),
11601          BASE_ELAS_FLUI  =SIMP(statut='o',typ=melasflu ),
11602          NUME_VITE_FLUI  =SIMP(statut='o',typ='I' ),
11603          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
11604          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
11605          AMOR_UNIF       =SIMP(statut='f',typ='R' ),
11606          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11607          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11608 )  ;
11609 #& MODIF COMMANDE  DATE 29/01/2002   AUTEUR CIBHHPD D.NUNEZ
11610 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11611 # ======================================================================
11612 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11613 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11614 #              REDISTRIBUTION OF THIS FILE.
11615 # ======================================================================
11616 # RESPONSABLE G8BHHXD X.DESROCHES
11617 MODI_MAILLAGE=OPER(nom="MODI_MAILLAGE",op= 154,sd_prod=maillage,
11618                    fr="Modification de la connectivité de groupes de mailles 2D ou 3D affectées à la modélisation de contact",
11619                    docu="U4.23.04-c",reentrant='o',
11620       regles=(UN_PARMI('ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
11621                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE'),
11622               EXCLUS('EQUE_PIQUA','PLAQ_TUBE'),
11623               EXCLUS('EQUE_PIQUA','TUBE_COUDE'),),
11624          MAILLAGE        =SIMP(statut='o',typ=maillage ),
11625
11626          ORIE_CONTACT    =FACT(statut='f',min=01,max=01,
11627            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
11628          ),
11629
11630          DEFORME         =FACT(statut='f',min=01,max=01,
11631            OPTION          =SIMP(statut='o',typ='TXM',into=("TRAN","TRAN_APPUI") ),
11632            DEPL            =SIMP(statut='o',typ=cham_no_depl_r ),
11633         b_deform        =BLOC(condition = "OPTION=='TRAN_APPUI'",
11634            GROUP_NO_APPUI = SIMP(statut='o',typ=grno,max='**' ),
11635            GROUP_NO_STRU = SIMP(statut='o',typ=grno,max='**' ),),
11636          ),
11637
11638          EQUE_PIQUA      =FACT(statut='f',min=01,max=01,
11639            GROUP_NO        =SIMP(statut='o',typ=grno),
11640            E_BASE          =SIMP(statut='o',typ='R' ),
11641            DEXT_BASE       =SIMP(statut='o',typ='R' ),
11642            L_BASE          =SIMP(statut='o',typ='R' ),
11643            L_CHANF         =SIMP(statut='o',typ='R' ),
11644            H_SOUD          =SIMP(statut='o',typ='R' ),
11645            ANGL_SOUD       =SIMP(statut='o',typ='R' ),
11646            JEU_SOUD        =SIMP(statut='o',typ='R' ),
11647            E_CORP          =SIMP(statut='o',typ='R' ),
11648            DEXT_CORP       =SIMP(statut='o',typ='R' ),
11649            AZIMUT          =SIMP(statut='o',typ='R' ),
11650            RAFF_MAIL       =SIMP(statut='o',typ='TXM' ),
11651            X_MAX           =SIMP(statut='o',typ='R' ),
11652          ),
11653          ORIE_PEAU_2D    =FACT(statut='f',min=01,max='**',
11654            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
11655          ),
11656          ORIE_PEAU_3D    =FACT(statut='f',min=01,max='**',
11657            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
11658          ),
11659          ORIE_NORM_COQUE =FACT(statut='f',min=01,max='**',
11660            regles=(EXCLUS('NOEUD','GROUP_NO'),
11661                    PRESENT_PRESENT('NOEUD','VECT_NORM'),
11662                    PRESENT_PRESENT('GROUP_NO','VECT_NORM'),),
11663            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
11664            VECT_NORM       =SIMP(statut='f',typ='R',max=03),
11665            NOEUD           =SIMP(statut='f',typ=no),
11666            GROUP_NO        =SIMP(statut='f',typ=grno),
11667          ),
11668          b_modele        =BLOC(condition = "(ORIE_PEAU_2D != None) or (ORIE_PEAU_3D != None) or(ORIE_NORM_COQUE != None)",
11669            MODELE          =SIMP(statut='o',typ=modele ),
11670          ),
11671          PLAQ_TUBE       =FACT(statut='f',min=01,max=01,
11672            DEXT            =SIMP(statut='o',typ='R' ),
11673            EPAIS           =SIMP(statut='o',typ='R' ),
11674            L_TUBE_P1       =SIMP(statut='o',typ='R' ),
11675            AZIMUT          =SIMP(statut='f',typ='R',defaut= 90. ),
11676            COUTURE         =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",)  ),
11677          ),
11678          TUBE_COUDE      =FACT(statut='f',min=01,max=01,
11679            ANGLE           =SIMP(statut='o',typ='R' ),
11680            R_CINTR         =SIMP(statut='o',typ='R' ),
11681            L_TUBE_P1       =SIMP(statut='o',typ='R' ),
11682          ),
11683          MODI_MAILLE     =FACT(statut='f',min=01,max=01,
11684            regles=(AU_MOINS_UN('GROUP_MA_FOND','MAILLE_FOND','GROUP_NO_FOND','NOEUD_FOND'),),
11685            OPTION          =SIMP(statut='o',typ='TXM',into=("NOEUD_QUART",) ),
11686            GROUP_MA_FOND   =SIMP(statut='f',typ=grma,max='**'),
11687            MAILLE_FOND     =SIMP(statut='f',typ=ma,max='**'),
11688            GROUP_NO_FOND   =SIMP(statut='f',typ=grno,max='**'),
11689            NOEUD_FOND      =SIMP(statut='f',typ=no,max='**'),
11690          ),
11691          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
11692 )  ;
11693 #& MODIF COMMANDE  DATE 15/01/2002   AUTEUR CIBHHLV L.VIVAN
11694 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11695 # ======================================================================
11696 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11697 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11698 #              REDISTRIBUTION OF THIS FILE.
11699 # ======================================================================
11700 MODI_OBSTACLE=OPER(nom="MODI_OBSTACLE",op=182,sd_prod=obstacle,
11701                    fr=" ",docu="U4.44.22-a",reentrant='f',
11702       regles=(PRESENT_ABSENT('R_MOBILE','CRAYON'),
11703               PRESENT_PRESENT('TUBE_NEUF','TABL_USURE'),
11704               PRESENT_PRESENT('V_USUR_TUBE','V_USUR_OBST'),),
11705          TUBE_NEUF       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11706          V_USUR_TUBE     =SIMP(statut='f',typ='R',max='**'),
11707          V_USUR_OBST     =SIMP(statut='f',typ='R',max='**'),
11708          TABL_USURE      =SIMP(statut='f',typ=tabl_post_usur),
11709          INST            =SIMP(statut='f',typ='R'),
11710          OBSTACLE        =SIMP(statut='f',typ=obstacle),
11711          GUIDE           =SIMP(statut='o',typ=obstacle),
11712          CRAYON          =SIMP(statut='f',typ=obstacle),
11713          R_MOBILE        =SIMP(statut='f',typ='R'),
11714          PERCEMENT       =SIMP(statut='f',typ='R',defaut=1),
11715          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
11716 )  ;
11717 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
11718 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11719 # ======================================================================
11720 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11721 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11722 #              REDISTRIBUTION OF THIS FILE.
11723 # ======================================================================
11724 # RESPONSABLE JMBHH01 J.M.PROIX
11725 def modi_repere_prod(RESULTAT,**args):
11726   if AsType(RESULTAT) == evol_elas :    return evol_elas
11727   if AsType(RESULTAT) == evol_noli :    return evol_noli
11728   if AsType(RESULTAT) == evol_ther :    return evol_ther
11729   if AsType(RESULTAT) == dyna_trans :   return dyna_trans
11730   if AsType(RESULTAT) == dyna_harmo :   return dyna_harmo
11731   if AsType(RESULTAT) == mode_meca :    return mode_meca
11732   if AsType(RESULTAT) == mode_flamb :   return mode_flamb
11733   if AsType(RESULTAT) == mult_elas :    return mult_elas
11734   if AsType(RESULTAT) == base_modale  : return base_modale
11735   raise AsException("type de concept resultat non prevu")
11736
11737 MODI_REPERE=OPER(nom="MODI_REPERE",op=191,sd_prod=modi_repere_prod,docu="U4.74.01-a1",reentrant='n',
11738                     fr="Impression des resultats dans un repere cylindrique",
11739          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,mode_meca,
11740                                                evol_noli,mult_elas,
11741                                                evol_ther,base_modale,mode_flamb) ),
11742          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
11743                         'NOEUD_CMP','LIST_INST','LIST_FREQ','NOM_CAS'),),
11744          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11745          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
11746          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
11747          NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
11748          NOM_CAS         =SIMP(statut='f',typ='TXM' ),
11749
11750          INST            =SIMP(statut='f',typ='R',max='**'),
11751          FREQ            =SIMP(statut='f',typ='R',max='**'),
11752          LIST_INST       =SIMP(statut='f',typ=listr8),
11753          LIST_FREQ       =SIMP(statut='f',typ=listr8),
11754
11755          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
11756          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",),),
11757
11758          MODI_CHAM       =FACT(statut='o',min=01,max='**',
11759            TYPE_CHAM       =SIMP(statut='o',typ='TXM', max=1,
11760                                  into=("VECT_2D","VECT_3D","TORS_3D","TENS_2D","TENS_3D"),),
11761            NOM_CHAM        =SIMP(statut='o',typ='TXM',max=1 ),
11762            b_vect_2d       =BLOC(condition = "TYPE_CHAM=='VECT_2D'",
11763               NOM_CMP         =SIMP(statut='o',typ='TXM',min=2,max=2 ),),
11764            b_vect_3d       =BLOC(condition = "TYPE_CHAM=='VECT_3D'",
11765               NOM_CMP         =SIMP(statut='o',typ='TXM',min=3,max=3 ),),
11766            b_tors_3d       =BLOC(condition = "TYPE_CHAM=='TORS_3D'",
11767               NOM_CMP         =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
11768            b_tens_2d       =BLOC(condition = "TYPE_CHAM=='TENS_2D'",
11769               NOM_CMP         =SIMP(statut='o',typ='TXM',min=4,max=4 ),),
11770            b_tens_3d       =BLOC(condition = "TYPE_CHAM=='TENS_3D'",
11771               NOM_CMP         =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
11772          ),
11773          DEFI_REPERE     =FACT(statut='o',min=1,max=1,
11774          regles=(UN_PARMI('ANGL_NAUT','ORIGINE'),),
11775            REPERE          =SIMP(statut='f',typ='TXM',defaut="UTILISATEUR",
11776                                  into=("UTILISATEUR","CYLINDRIQUE"),),
11777            ANGL_NAUT       =SIMP(statut='f',typ='R',min=1,max=3),
11778            ORIGINE         =SIMP(statut='f',typ='R',min=2,max=3),
11779            AXE_Z           =SIMP(statut='f',typ='R',min=3,max=3),
11780          ),
11781          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
11782 )  ;
11783 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
11784 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11785 # ======================================================================
11786 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11787 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11788 #              REDISTRIBUTION OF THIS FILE.
11789 # ======================================================================
11790 def norm_mode_prod(MODE,**args ):
11791   if AsType(MODE) == mode_meca   : return mode_meca
11792   if AsType(MODE) == mode_meca_c : return mode_meca_c
11793   if AsType(MODE) == mode_flamb  : return mode_flamb
11794   raise AsException("type de concept resultat non prevu")
11795
11796 NORM_MODE=OPER(nom="NORM_MODE",op=  37,sd_prod=norm_mode_prod,
11797                fr="Normalisation de modes propres",
11798                docu="U4.52.11-e",reentrant='f',
11799          regles=(UN_PARMI('NORME','NOEUD','AVEC_CMP','SANS_CMP'),),
11800          MODE       =SIMP(statut='o',typ=(mode_meca,mode_flamb) ),
11801          NORME      =SIMP(statut='f',typ='TXM',fr="Norme prédéfinie : masse généralisée, euclidienne,...",
11802                           into=("MASS_GENE","RIGI_GENE","EUCL","EUCL_TRAN","TRAN","TRAN_ROTA") ),
11803          NOEUD      =SIMP(statut='f',typ=no, fr="Composante donnée d un noeud spécifié égale à 1"),
11804          b_noeud    =BLOC(condition = "NOEUD != None",
11805            NOM_CMP    =SIMP(statut='o',typ='TXM' ),
11806          ),
11807          AVEC_CMP   =SIMP(statut='f',typ='TXM',max='**'),
11808          SANS_CMP   =SIMP(statut='f',typ='TXM',max='**'),
11809          MASS_INER  =SIMP(statut='f',typ=tabl_mass_iner ),
11810          MODE_SIGNE =FACT(statut='f',min=00,max=01,fr="Imposer un signe sur une des composantes des modes",
11811            NOEUD      =SIMP(statut='o',typ=no,fr="Noeud ou sera imposé le signe"),
11812            NOM_CMP    =SIMP(statut='o',typ='TXM',fr="Composante du noeud ou sera imposé le signe" ),
11813            SIGNE      =SIMP(statut='f',typ='TXM',defaut="POSITIF",into=("NEGATIF","POSITIF"),
11814                             fr="Choix du signe" ),
11815          ),
11816          TITRE      =SIMP(statut='f',typ='TXM',max='**'),
11817          INFO       =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
11818 )  ;
11819 #& MODIF COMMANDE  DATE 22/01/2002   AUTEUR CIBHHPD D.NUNEZ
11820 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11821 # ======================================================================
11822 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11823 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11824 #              REDISTRIBUTION OF THIS FILE.
11825 # ======================================================================
11826 # RESPONSABLE VABHHTS J.PELLET
11827 NUME_DDL=OPER(nom="NUME_DDL",op=11,sd_prod=nume_ddl,docu="U4.61.11-f",reentrant='n',
11828               fr="Etablissement de la numérotation des ddl avec ou sans renumérotation et du stockage de la matrice",
11829                   regles=(UN_PARMI('MATR_RIGI','MODELE'),),
11830          MATR_RIGI       =SIMP(statut='f',typ=(matr_elem_depl_r ,matr_elem_depl_c,
11831                                                matr_elem_temp_r,matr_elem_pres_c),max=100 ),
11832          MODELE          =SIMP(statut='f',typ=modele ),
11833          b_modele        =BLOC(condition = "MODELE != None",
11834            CHARGE     =SIMP(statut='f',max='**',typ=(char_meca,char_ther,char_acou, ),),
11835          ),
11836          METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
11837          b_mult_front    =BLOC(condition="METHODE=='MULT_FRONT'",fr="paramètres associés à la méthode multifrontale",
11838            RENUM           =SIMP(statut='f',typ='TXM',into=("MD","MDA","METIS"),defaut="METIS" ),
11839          ),
11840          b_ldlt          =BLOC(condition="METHODE=='LDLT'",fr="paramètres associés à la méthode LDLT",
11841            RENUM           =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK"  ),
11842          ),
11843          b_gcpc          =BLOC(condition="METHODE=='GCPC'",fr="paramètres associés à la méthode gradient conjugué",
11844            RENUM           =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK"  ),
11845          ),
11846          INFO            =SIMP(statut='f',typ='I',into=(1,2)),
11847 )  ;
11848 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
11849 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11850 # ======================================================================
11851 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11852 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11853 #              REDISTRIBUTION OF THIS FILE.
11854 # ======================================================================
11855 NUME_DDL_GENE=OPER(nom="NUME_DDL_GENE",op= 127,sd_prod=nume_ddl_gene,
11856                    fr="Etablissement de la numérotation des ddl d un modèle établi en coordonnées généralisées",
11857                     docu="U4.65.03-d",reentrant='n',
11858          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
11859          BASE            =SIMP(statut='f',typ=(mode_meca,base_modale,mode_gene ) ),
11860          NB_VECT         =SIMP(statut='f',typ='I',defaut= 9999 ),
11861          STOCKAGE        =SIMP(statut='f',typ='TXM',defaut="LIGN_CIEL",into=("PLEIN","DIAG","LIGN_CIEL") ),
11862 )  ;
11863 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
11864 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11865 # ======================================================================
11866 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11867 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11868 #              REDISTRIBUTION OF THIS FILE.
11869 # ======================================================================
11870 POST_DYNA_ALEA=OPER(nom="POST_DYNA_ALEA",op= 132,sd_prod=tabl_post_alea,
11871                     fr="Traitements statistiques de résultats de type interspectre et impression sur fichiers",
11872                     docu="U4.84.04-d",reentrant='n',
11873          regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I','OPTION'),),
11874          INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
11875          NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
11876          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11877          NUME_ORDRE_I    =SIMP(statut='f',typ='I',max='**' ),
11878          NOEUD_I         =SIMP(statut='f',typ=no,max='**'),
11879          OPTION          =SIMP(statut='f',typ='TXM',into=("DIAG",) ),
11880          b_nume_ordre_i =BLOC(condition = "NUME_ORDRE_I != None",
11881            NUME_ORDRE_J    =SIMP(statut='o',typ='I',max='**' ),
11882          ),
11883          b_noeud_i      =BLOC(condition = "NOEUD_I != None",
11884            NOEUD_J         =SIMP(statut='o',typ=no,max='**'),
11885            NOM_CMP_I       =SIMP(statut='o',typ='TXM',max='**' ),
11886            NOM_CMP_J       =SIMP(statut='o',typ='TXM',max='**' ),
11887          ),
11888          DEPASSEMENT     =FACT(statut='f',min=01,max='**',
11889            fr="Loi de dépassement d un seuil pendant une durée donnée",
11890            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
11891            VALE_MIN        =SIMP(statut='f',typ='R' ),
11892            VALE_MAX        =SIMP(statut='f',typ='R' ),
11893            PAS             =SIMP(statut='f',typ='R' ),
11894            DUREE           =SIMP(statut='f',typ='R',defaut= 1. ),
11895          ),
11896          RAYLEIGH        =FACT(statut='f',min=01,max='**',
11897            fr="Densité de probabilité de pic positif, loi adaptée à des signaux à bande étroite",
11898            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
11899            VALE_MIN        =SIMP(statut='f',typ='R' ),
11900            VALE_MAX        =SIMP(statut='f',typ='R' ),
11901            PAS             =SIMP(statut='f',typ='R' ),
11902          ),
11903          GAUSS           =FACT(statut='f',min=01,max='**',
11904            fr="Densité de probabilité de pic positif, loi normale adaptée à des signaux large bande",
11905            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
11906            VALE_MIN        =SIMP(statut='f',typ='R' ),
11907            VALE_MAX        =SIMP(statut='f',typ='R' ),
11908            PAS             =SIMP(statut='f',typ='R' ),
11909          ),
11910          VANMARCKE       =FACT(statut='f',min=01,max='**',
11911            fr="Probabilité de non dépassement de seuil pendant une durée donnée (analyse sismique)",
11912            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
11913            VALE_MIN        =SIMP(statut='f',typ='R' ),
11914            VALE_MAX        =SIMP(statut='f',typ='R' ),
11915            PAS             =SIMP(statut='f',typ='R' ),
11916            DUREE           =SIMP(statut='f',typ='R',defaut= 10. ),
11917          ),
11918          MOMENT          =SIMP(statut='f',typ='I',max='**',fr="Moments spectraux en complément des cinq premiers" ),
11919          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
11920          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11921 )  ;
11922 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
11923 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11924 # ======================================================================
11925 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11926 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11927 #              REDISTRIBUTION OF THIS FILE.
11928 # ======================================================================
11929 POST_DYNA_MODA_T=OPER(nom="POST_DYNA_MODA_T",op= 130,sd_prod=tabl_post_dyna,
11930                       fr="Post-traitements en coordonnées généralisées issus de DYNA_TRAN_MODAL",
11931                       docu="U4.84.02-d",reentrant='n',
11932         regles=(UN_PARMI('CHOC','RELA_EFFO_DEPL', ),),
11933          RESU_GENE       =SIMP(statut='o',typ=tran_gene ),
11934          CHOC            =FACT(statut='f',min=01,max='**',
11935                                fr="Analyse des non linéarités de choc",
11936            INST_INIT       =SIMP(statut='f',typ='R',defaut= -1. ),
11937            INST_FIN        =SIMP(statut='f',typ='R',defaut= 999. ),
11938            NB_BLOC         =SIMP(statut='f',typ='I',defaut= 1 ),
11939            SEUIL_FORCE     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11940            DUREE_REPOS     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11941            OPTION          =SIMP(statut='f',typ='TXM',defaut="USURE",into=("IMPACT","USURE") ),
11942            NB_CLASSE       =SIMP(statut='f',typ='I',defaut= 10 ),
11943          ),
11944          RELA_EFFO_DEPL  =FACT(statut='f',min=01,max=01,
11945                                fr="Analyse des relationsnon linéaires effort-déplacement",
11946            NOEUD           =SIMP(statut='o',typ=no),
11947            NOM_CMP         =SIMP(statut='o',typ='TXM' ),
11948          ),
11949          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11950          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
11951 )  ;
11952 #& MODIF COMMANDE  DATE 30/01/2002   AUTEUR VABHHTS J.TESELET
11953 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11954 # ======================================================================
11955 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11956 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11957 #              REDISTRIBUTION OF THIS FILE.
11958 # ======================================================================
11959 # RESPONSABLE G8BHHXD X.DESROCHES
11960 def post_elem_prod( MASS_INER,ENER_POT,ENER_CIN,ENER_EXT,WEIBULL,
11961                     CARA_GEOM,CARA_POUTRE,RICE_TRACEY,CHAR_LIMITE,
11962                     INDIC_ENER,INDIC_SEUIL,ENER_ELAS,ENER_TOTALE,
11963                     AIRE_INTERNE,**args ):
11964   if MASS_INER    != None  : return tabl_mass_iner
11965   if ENER_POT     != None  : return tabl_ener_pot
11966   if ENER_CIN     != None  : return tabl_ener_cin
11967   if ENER_EXT     != None  : return tabl_ener_ext
11968   if WEIBULL      != None  : return tabl_weibull
11969   if CARA_GEOM    != None  : return tabl_cara_geom
11970   if CARA_POUTRE  != None  : return tabl_cara_geom
11971   if RICE_TRACEY  != None  : return tabl_rice_tracey
11972   if CHAR_LIMITE  != None  : return tabl_char_limite
11973   if INDIC_ENER   != None  : return tabl_indic_ener
11974   if INDIC_SEUIL  != None  : return tabl_indic_seuil
11975   if ENER_ELAS    != None  : return tabl_ener_elas
11976   if ENER_TOTALE  != None  : return tabl_ener_totale
11977   if AIRE_INTERNE != None  : return tabl_aire_int
11978   raise AsException("type de concept resultat non prevu")
11979
11980 POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=post_elem_prod,docu="U4.81.22-d1",reentrant='f',
11981                fr="Calcul de quantités globales (masse, inerties, énergie, ...) sur tout ou partie du modèle",
11982          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
11983                         'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),
11984                  EXCLUS('CHAM_GD','RESULTAT'),
11985                  UN_PARMI('MASS_INER', 'ENER_POT', 'ENER_CIN','ENER_EXT',
11986                           'WEIBULL', 'RICE_TRACEY', 'CARA_GEOM','CHAR_LIMITE',
11987                           'CARA_POUTRE', 'INDIC_ENER', 'INDIC_SEUIL',
11988                           'AIRE_INTERNE','ENER_ELAS','ENER_TOTALE'),
11989                  PRESENT_PRESENT( 'MASS_INER', 'MODELE' ),
11990                  PRESENT_PRESENT( 'CARA_GEOM', 'MODELE' ),
11991                  PRESENT_PRESENT( 'AIRE_INTERNE', 'MODELE' ),
11992                  PRESENT_PRESENT( 'CARA_POUTRE', 'MODELE' ),
11993                  PRESENT_PRESENT( 'ENER_POT', 'MODELE', 'CHAM_MATER' ),
11994                  PRESENT_PRESENT( 'ENER_CIN', 'MODELE', 'CHAM_MATER' ),
11995                  PRESENT_PRESENT( 'WEIBULL', 'MODELE', 'CHAM_MATER' ),
11996                  PRESENT_PRESENT( 'RICE_TRACEY', 'MODELE', 'CHAM_MATER' ),
11997                  PRESENT_PRESENT( 'INDIC_ENER', 'MODELE', 'CHAM_MATER' ),
11998                  PRESENT_PRESENT( 'INDIC_SEUIL', 'MODELE', 'CHAM_MATER' ),
11999                  PRESENT_PRESENT( 'ENER_ELAS', 'MODELE', 'CHAM_MATER' ),
12000                  PRESENT_PRESENT( 'ENER_TOTALE', 'MODELE', 'CHAM_MATER' ),
12001                  PRESENT_PRESENT( 'CHAR_LIMITE', 'MODELE', 'CHAM_MATER' ),
12002              ),
12003          MODELE          =SIMP(statut='f',typ=modele),
12004          CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
12005          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
12006          CHARGE          =SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
12007          MODE_FOURIER    =SIMP(statut='f',typ='I',defaut=0),
12008          NUME_COUCHE     =SIMP(statut='f',typ='I',defaut=1),
12009          NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
12010          ANGLE           =SIMP(statut='f',typ='I',defaut=0),
12011          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
12012          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12013          GEOMETRIE       =SIMP(statut='f',typ='TXM',defaut="INITIALE",into=("INITIALE","DEFORMEE")),
12014          CHAM_GD         =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
12015          RESULTAT        =SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,mult_elas,
12016                                                fourier_elas,dyna_trans) ),
12017          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12018          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
12019          LIST_ORDRE      =SIMP(statut='f',typ=listis),
12020          INST            =SIMP(statut='f',typ='R',max='**'),
12021          LIST_INST       =SIMP(statut='f',typ=listr8),
12022          FREQ            =SIMP(statut='f',typ='R',max='**'),
12023          LIST_FREQ       =SIMP(statut='f',typ=listr8),
12024          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
12025          NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
12026          NOM_CAS         =SIMP(statut='f',typ='TXM',max='**'),
12027          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
12028          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
12029
12030          MASS_INER       =FACT(statut='f',min=1,max='**',
12031            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
12032            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12033            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
12034            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
12035            ORIG_INER       =SIMP(statut='f',typ='R',min=3,max=3 ),
12036          ),
12037
12038          ENER_POT        =FACT(statut='f',min=1,max='**',
12039            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
12040            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12041            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
12042            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
12043          ),
12044
12045          ENER_CIN        =FACT(statut='f',min=1,max='**',
12046            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
12047            OPTION          =SIMP(statut='f',typ='TXM',into=("MASS_MECA","MASS_MECA_DIAG"),
12048                                                       defaut="MASS_MECA" ),
12049            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12050            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
12051            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
12052          ),
12053
12054          WEIBULL         =FACT(statut='f',min=1,max='**',
12055            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
12056            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12057            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
12058            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
12059            OPTION          =SIMP(statut='f',typ='TXM',defaut="SIGM_ELGA",into=("SIGM_ELGA","SIGM_ELMOY")),
12060            CORR_PLAST      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
12061            COEF_MULT       =SIMP(statut='f',typ='R',defaut=1.),
12062          ),
12063
12064          RICE_TRACEY     =FACT(statut='f',min=1,max='**',
12065            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
12066            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12067            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
12068            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
12069            OPTION          =SIMP(statut='f',typ='TXM',defaut="SIGM_ELGA",into=("SIGM_ELGA","SIGM_ELMOY")),
12070            LOCAL           =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
12071          ),
12072
12073          INDIC_ENER      =FACT(statut='f',min=1,max='**',
12074            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
12075            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12076            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
12077            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
12078          ),
12079
12080          ENER_ELAS       =FACT(statut='f',min=1,max='**',
12081            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
12082            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12083            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
12084            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
12085          ),
12086
12087          ENER_TOTALE    =FACT(statut='f',min=1,max='**',
12088            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
12089            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12090            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
12091            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
12092          ),
12093
12094          ENER_EXT     =FACT(statut='f',min=00,max=01,
12095            TOUT            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",) ),
12096          ),
12097
12098          CHAR_LIMITE     =FACT(statut='f',min=00,max=01,
12099          CHAR_CSTE = SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON")
12100          ),
12101
12102          INDIC_SEUIL     =FACT(statut='f',min=1,max='**',
12103            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
12104            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12105            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
12106            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
12107          ),
12108
12109          CARA_GEOM       =FACT(statut='f',min=1,max='**',
12110            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
12111            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12112            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
12113            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
12114            SYME_X          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
12115            SYME_Y          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
12116            ORIG_INER       =SIMP(statut='f',typ='R',min=2,max=2),
12117          ),
12118
12119          CARA_POUTRE     =FACT(statut='f',min=1,max='**',
12120            regles=(AU_MOINS_UN('TOUT','GROUP_MA'),
12121                    ENSEMBLE('LONGUEUR','LIAISON','MATERIAU'),),
12122            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12123            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
12124            GROUP_MA_INTE   =SIMP(statut='f',typ=grma,max='**'),
12125            CARA_GEOM       =SIMP(statut='f',typ=tabl_cara_geom),
12126            LAPL_PHI        =SIMP(statut='f',typ=evol_ther),
12127            LAPL_PHI_Y      =SIMP(statut='f',typ=evol_ther),
12128            LAPL_PHI_Z      =SIMP(statut='f',typ=evol_ther),
12129            LIAISON         =SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT")),
12130            LONGUEUR        =SIMP(statut='f',typ='R'),
12131            MATERIAU        =SIMP(statut='f',typ=mater),
12132            OPTION          =SIMP(statut='f',typ='TXM',into=("CARA_TORSION","CARA_CISAILLEMENT","CARA_GAUCHI") ),
12133          ),
12134
12135          AIRE_INTERNE    =FACT(statut='f',min=1,max='**',
12136            GROUP_MA_BORD   =SIMP(statut='o',typ=grma,max='**'),
12137          ),
12138  )  ;
12139 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
12140 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12141 # ======================================================================
12142 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12143 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12144 #              REDISTRIBUTION OF THIS FILE.
12145 # ======================================================================
12146 POST_FATI_ALEA=OPER(nom="POST_FATI_ALEA",op=170,sd_prod=tabl_post_f_alea,docu="U4.84.03-c",reentrant='n',
12147                     fr="Calcul du dommage subi par une structure soumise à unesollicitation de type aléatoire",
12148          regles=(ENSEMBLE('MOMENT_SPEC_0','MOMENT_SPEC_2'),
12149                  PRESENT_PRESENT( 'MOMENT_SPEC_4','MOMENT_SPEC_0'),
12150                  UN_PARMI('TABL_POST_ALEA','MOMENT_SPEC_0'), ),
12151          MOMENT_SPEC_0   =SIMP(statut='f',typ='R'),
12152          MOMENT_SPEC_2   =SIMP(statut='f',typ='R'),
12153          MOMENT_SPEC_4   =SIMP(statut='f',typ='R'),
12154          TABL_POST_ALEA  =SIMP(statut='f',typ=tabl_post_alea),
12155          COMPTAGE        =SIMP(statut='o',typ='TXM',into=("PIC","NIVEAU")),
12156          DUREE           =SIMP(statut='f',typ='R',defaut= 1.),
12157          CORR_KE         =SIMP(statut='f',typ='TXM',into=("RCCM",)),
12158          DOMMAGE         =SIMP(statut='o',typ='TXM',into=("WOHLER",)),
12159          MATER           =SIMP(statut='o',typ=mater),
12160          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
12161 )  ;
12162 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
12163 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12164 # ======================================================================
12165 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12166 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12167 #              REDISTRIBUTION OF THIS FILE.
12168 # ======================================================================
12169 POST_FATIGUE=OPER(nom="POST_FATIGUE",op=136,sd_prod=tabl_post_fatig,docu="U4.83.01-c",reentrant='n',
12170                   fr="Calcul du dommage subi par une structure soumise à une histoire de chargement",
12171
12172          CHARGEMENT = SIMP(statut='o',typ='TXM',into=("UNIAXIAL","PERIODIQUE","QUELCONQUE")),
12173
12174          b_uniaxial = BLOC( condition = "CHARGEMENT=='UNIAXIAL'",
12175                       regles=(PRESENT_PRESENT('CORR_KE','MATER'),
12176                               PRESENT_PRESENT('CORR_SIGM_MOYE','MATER'),
12177                               PRESENT_PRESENT('DOMMAGE','MATER'),),
12178              HISTOIRE       = FACT(statut='o',min=1,max=1,
12179                                  regles=(UN_PARMI('SIGM','EPSI'),),
12180                                  SIGM  = SIMP(statut='f',typ=fonction),
12181                                  EPSI  = SIMP(statut='f',typ=fonction),),
12182              COMPTAGE       = SIMP(statut='o',typ='TXM',into=("RAINFLOW","RCCM","NATUREL")),
12183              DELTA_OSCI     = SIMP(statut='f',typ='R',defaut= 0.0E+0),
12184              COEF_MULT      = FACT(statut='f',min=1,max=1,
12185                                  KT    = SIMP(statut='o',typ='R'),),
12186              CORR_KE        = SIMP(statut='f',typ='TXM',into=("RCCM",)),
12187              DOMMAGE        = SIMP(statut='f',typ='TXM',into=("WOHLER","MANSON_COFFIN",
12188                                                               "TAHERI_MANSON","TAHERI_MIXTE")),
12189              MATER          = SIMP(statut='f',typ=mater),
12190              CORR_SIGM_MOYE = SIMP(statut='f',typ='TXM',into=("GOODMAN","GERBER")),
12191              TAHERI_NAPPE   = SIMP(statut='f',typ=fonction),
12192              TAHERI_FONC    = SIMP(statut='f',typ=fonction),
12193              CUMUL          = SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
12194          ),
12195
12196          b_periodique = BLOC( condition = "CHARGEMENT=='PERIODIQUE'",
12197              HISTOIRE       = FACT(statut='o',min=1,max=1,
12198                                  SIGM_XX  = SIMP(statut='o',typ=fonction),
12199                                  SIGM_YY  = SIMP(statut='o',typ=fonction),
12200                                  SIGM_ZZ  = SIMP(statut='o',typ=fonction),
12201                                  SIGM_XY  = SIMP(statut='o',typ=fonction),
12202                                  SIGM_XZ  = SIMP(statut='f',typ=fonction),
12203                                  SIGM_YZ  = SIMP(statut='f',typ=fonction),),
12204              CRITERE        = SIMP(statut='o',typ='TXM',into=("CROSSLAND","PAPADOPOULOS")),
12205              DOMMAGE        = SIMP(statut='f',typ='TXM',into=("WOHLER",)),
12206              MATER          = SIMP(statut='o',typ=mater),
12207              COEF_CORR      = SIMP(statut='f',typ='R'),
12208          ),
12209
12210          b_quelconque = BLOC( condition = "CHARGEMENT=='QUELCONQUE'",
12211              HISTOIRE       = FACT(statut='o',min=1,max=1,
12212                                  SIGM_XX  = SIMP(statut='o',typ=fonction),
12213                                  SIGM_YY  = SIMP(statut='o',typ=fonction),
12214                                  SIGM_ZZ  = SIMP(statut='o',typ=fonction),
12215                                  SIGM_XY  = SIMP(statut='o',typ=fonction),
12216                                  SIGM_XZ  = SIMP(statut='f',typ=fonction),
12217                                  SIGM_YZ  = SIMP(statut='f',typ=fonction),
12218                                  EPSP     = SIMP(statut='o',typ=fonction),
12219                                  TEMP     = SIMP(statut='o',typ=fonction),),
12220              DOMMAGE        = SIMP(statut='f',typ='TXM',into=("LEMAITRE",),defaut="LEMAITRE"),
12221              MATER          = SIMP(statut='o',typ=mater),
12222              CUMUL          = SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
12223          ),
12224
12225          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12226          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
12227 )  ;
12228 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
12229 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12230 # ======================================================================
12231 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12232 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12233 #              REDISTRIBUTION OF THIS FILE.
12234 # ======================================================================
12235 POST_GOUJ2E=OPER(nom="POST_GOUJ2E",op=187,sd_prod=tabl_post_gouj2e,reentrant='n',
12236                  fr=" ",docu="U4.GJ.30-a",
12237          TABLE           =SIMP(statut='o',typ=tabl_post_rele),
12238 )  ;
12239 #& MODIF COMMANDE  DATE 09/07/2001   AUTEUR CIBHHLV L.VIVAN
12240 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12241 # ======================================================================
12242 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12243 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12244 #              REDISTRIBUTION OF THIS FILE.
12245 # ======================================================================
12246 # RESPONSABLE JMBHH01 J.M.PROIX
12247 POST_K1_K2_K3=OPER(nom="POST_K1_K2_K3",op=188,sd_prod=tabl_post_k,
12248                    fr="Calcul des FIC par extrapolation du champ de déplacements sur les lèvres de la fissure",
12249                    docu="U4.82.05-a",reentrant='n',
12250          MODELISATION  =SIMP(statut='o',typ='TXM',
12251                              into=("3D","AXIS","D_PLAN","C_PLAN"),
12252                              fr="Modélisation cohérente avec celle utilisée pour le calcul des déplacements"),
12253          FOND_3D       =SIMP(statut='f',typ=fond_fiss,fr="Fond de fissure issu de DEFI_FOND_FISS"),
12254          b_fond_3d     =BLOC (condition="(FOND_3D != None)",
12255                          MAILLAGE      = SIMP(statut='o',typ=maillage),
12256                          PRECISION     = SIMP(statut='f',typ='R',defaut=0.001),
12257                          NOEUD         = SIMP(statut='f',typ=no,max='**'),
12258                          GROUP_NO      = SIMP(statut='f',typ=grno,max='**'),
12259                          SANS_NOEUD    = SIMP(statut='f',typ=no,max='**'),
12260                          SANS_GROUP_NO = SIMP(statut='f',typ=grno,max='**')
12261                          ),
12262          MATER         =SIMP(statut='o',typ=mater,
12263                              fr="Matériau homogène et isotrope cohérent avec celui utilisé pour le calcul des déplacements"),
12264          TABL_DEPL_SUP =SIMP(statut='o',typ=tabl_post_rele,
12265                              fr="Table issue de post_releve_t sur les noeuds de la lèvre supérieure"),
12266          TABL_DEPL_INF =SIMP(statut='o',typ=tabl_post_rele,
12267                              fr="Table issue de post_releve_t sur les noeuds de la lèvre inférieure"),
12268          ABSC_CURV_MAXI=SIMP(statut='f',typ='R',
12269                              fr="distance maximum à partir du fond de fissure à utiliser pour le calcul"),
12270          PREC_VIS_A_VIS= SIMP(statut='f',typ='R',defaut=0.001),
12271          INST          =SIMP(statut='f',typ='R',max='**'),
12272          LIST_INST     =SIMP(statut='f',typ=listr8),
12273              b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
12274                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
12275                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
12276              ),
12277          INFO          =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12278          VECT_K1       =SIMP(statut='o',typ='R',max='**',
12279                              fr="Vecteur normal au plan de fissure, orienté de la lèvre inférieure vers la lèvre supérieure"),
12280          TITRE         =SIMP(statut='f',typ='TXM',max='**'),
12281 )  ;
12282 #& MODIF COMMANDE  DATE 23/01/2002   AUTEUR CIBHHLV L.VIVAN
12283 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12284 # ======================================================================
12285 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12286 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12287 #              REDISTRIBUTION OF THIS FILE.
12288 # ======================================================================
12289 # RESPONSABLE JMBHH01 J.M.PROIX
12290 POST_RCCM=OPER(nom="POST_RCCM",op= 165,sd_prod=tabl_post_rccm,
12291                fr="Vérification des critères de niveau 0 et certains critères de niveau A du RCC-M-B3200 (Edition 1991)",
12292                docu="U4.83.11-c",reentrant='n',
12293          MATER           =SIMP(statut='o',typ=mater ),
12294          TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="VALE_MAX",into=("VALE_MAX","VALE_INST") ),
12295          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
12296          MAILLAGE        =SIMP(statut='f',typ=maillage),
12297          OPTION          =SIMP(statut='o',typ='TXM',max='**',
12298                                into=("PM_PB",
12299                                      "SN",
12300                                      "FATIGUE_SPMAX",
12301                                      "FATIGUE_ZH210"
12302                                      ) ),
12303          SEGMENT         =FACT(statut='o',min=01,max='**',fr="Segment sur lequel s effectue le depouillement",
12304            regles=(AU_MOINS_UN('CHEMIN','GROUP_NO','NOEUD'),
12305                    EXCLUS('CHEMIN','GROUP_NO'),
12306                    EXCLUS('CHEMIN','NOEUD'),),
12307            INTITULE        =SIMP(statut='f',typ='TXM' ),
12308            CHEMIN          =SIMP(statut='f',typ=(courbe,surface),),
12309            NOEUD           =SIMP(statut='f',typ=no,max='**'),
12310            GROUP_NO        =SIMP(statut='f',typ=grno),
12311              b_acce_noeud     =BLOC(condition="(NOEUD != None)or(GROUP_NO != None)",
12312                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
12313                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
12314              ),
12315          ),
12316          TRANSITOIRE     =FACT(statut='o',min=01,max='**',fr="transitoire à dépouiller",
12317            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
12318            RESULTAT        =SIMP(statut='o',typ=(evol_elas,evol_noli) ),
12319            RESU_SIGM_THER  =SIMP(statut='f',typ=(evol_elas,evol_noli),fr="résultat sous chargement thermique seul" ),
12320            NB_OCCUR        =SIMP(statut='f',typ='I',defaut= 1,fr="nombre d occurences réelles de ce transitoire" ),
12321            NOM_CHAM        =SIMP(statut='o',typ='TXM',into=("SIEF_ELNO_ELGA","SIGM_ELNO_DEPL") ),
12322            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12323            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
12324            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
12325            INST            =SIMP(statut='f',typ='R',max='**'),
12326            LIST_INST       =SIMP(statut='f',typ=listr8 ),
12327            b_inst          =BLOC(condition = "(INST != None) or (LIST_INST != None)" ,
12328              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
12329              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
12330            ),
12331          ),
12332 )  ;
12333 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
12334 # ======================================================================
12335 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12336 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12337 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12338 #              REDISTRIBUTION OF THIS FILE.
12339 # ======================================================================
12340 # RESPONSABLE G8BHHXD X.DESROCHES
12341 POST_RELEVE_T=OPER(nom="POST_RELEVE_T",op=51,sd_prod=tabl_post_rele,docu="U4.81.21-d",reentrant='n',
12342          ACTION          =FACT(statut='o',min=01,max='**',
12343            regles=(AU_MOINS_UN('CHEMIN','GROUP_NO','NOEUD'),
12344                    EXCLUS('CHEMIN','GROUP_NO'),
12345                    EXCLUS('CHEMIN','NOEUD'),
12346                    PRESENT_ABSENT('CHEMIN','GROUP_MA','MAILLE'),
12347                    UN_PARMI('RESULTAT','CHAM_GD'),
12348                    UN_PARMI('TOUT_CMP','NOM_CMP','INVARIANT','ELEM_PRINCIPAUX','RESULTANTE'),
12349                    PRESENT_PRESENT('TRAC_DIR','DIRECTION'),
12350                    PRESENT_PRESENT('TRAC_DIRECTION','DIRECTION'),
12351                    ENSEMBLE('MOMENT','POINT'),
12352                    PRESENT_PRESENT('MOMENT','RESULTANTE'),
12353                    PRESENT_ABSENT('TOUT_CMP','TRAC_DIRECTION','TRAC_NORMALE'),
12354                    PRESENT_ABSENT('TOUT_CMP','TRAC_DIR','TRAC_NOR'),
12355                    PRESENT_PRESENT('ORIGINE','AXE_Z'),),
12356            INTITULE        =SIMP(statut='o',typ='TXM'),
12357            CHEMIN          =SIMP(statut='f',typ=(courbe,surface) ),
12358            NOEUD           =SIMP(statut='f',typ=no,max='**'),
12359            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12360            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
12361            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
12362            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
12363            FORMAT_C        =SIMP(statut='f',typ='TXM',defaut="MODULE",into=("MODULE","REEL","IMAG")),
12364            CHAM_GD         =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r,cham_no_var2_r,
12365                                                  cham_elem_sief_r,cham_elem_epsi_r,cham_elem_flux_r,cham_elem_crit_r,
12366                                                  cham_elem_ener_r,cham_elem_dbel_r,cham_elem_pres_r,cham_elem_erreur,
12367                                                  cham_elem_vari_r,cham_no_depl_c,cham_no_temp_c,cham_no_pres_c,
12368                                                  cham_elem_sief_c,cham_elem_epsi_c)),
12369            RESULTAT        =SIMP(statut='f',typ=(evol_elas,evol_ther,evol_noli,dyna_trans,
12370                                                  mode_meca,mode_flamb,mode_acou,base_modale,mode_stat,
12371                                                  mult_elas,fourier_elas,dyna_harmo,acou_harmo)),
12372            b_sensibilite   =BLOC(condition="RESULTAT != None",
12373                                  fr="Définition des paramètres de sensibilité",
12374                                  ang="Definition of sensitivity parameters",
12375              SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
12376                                    fr="Liste des paramètres de sensibilité.",
12377                                    ang="List of sensitivity parameters"),),
12378
12379            b_extrac        =BLOC(condition = "RESULTAT != None",fr="extraction des résultats",
12380              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','NUME_MODE','LIST_MODE',
12381                             'INST','LIST_INST','FREQ','LIST_FREQ','NOEUD_CMP','NOM_CAS'), ),
12382              NOM_CHAM        =SIMP(statut='o',typ='TXM' ),
12383              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12384              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
12385              LIST_ORDRE      =SIMP(statut='f',typ=listis),
12386              NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
12387              LIST_MODE       =SIMP(statut='f',typ=listis),
12388              NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
12389              NOM_CAS         =SIMP(statut='f',typ='TXM',max='**'),
12390              FREQ            =SIMP(statut='f',typ='R',max='**'),
12391              LIST_FREQ       =SIMP(statut='f',typ=listr8),
12392              INST            =SIMP(statut='f',typ='R',max='**'),
12393              LIST_INST       =SIMP(statut='f',typ=listr8),
12394              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
12395              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
12396            ),
12397            TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",)),
12398            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
12399            INVARIANT       =SIMP(statut='f',typ='TXM',into=("OUI",)),
12400            ELEM_PRINCIPAUX =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12401            RESULTANTE      =SIMP(statut='f',typ='TXM',max='**'),
12402            MOMENT          =SIMP(statut='f',typ='TXM',max='**'),
12403            POINT           =SIMP(statut='f',typ='R',max='**'),
12404
12405            REPERE          =SIMP(statut='f',typ='TXM',defaut="GLOBAL",
12406                                  into=("GLOBAL","LOCAL","POLAIRE","UTILISATEUR","CYLINDRIQUE"),),
12407            ANGL_NAUT       =SIMP(statut='f',typ='R',min=3,max=3),
12408            ORIGINE         =SIMP(statut='f',typ='R',min=3,max=3),
12409            AXE_Z           =SIMP(statut='f',typ='R',min=3,max=3),
12410
12411            TRAC_NOR        =SIMP(statut='f',typ='TXM',into=("OUI",)),
12412            TRAC_DIR        =SIMP(statut='f',typ='TXM',into=("OUI",)),
12413            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
12414            TRAC_DIRECTION  =SIMP(statut='f',typ='TXM',into=("OUI",)),
12415            TRAC_NORMALE    =SIMP(statut='f',typ='TXM',into=("OUI",)),
12416
12417            VECT_Y          =SIMP(statut='f',typ='R',max='**'),
12418            MOYE_NOEUD      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
12419            OPERATION       =SIMP(statut='o',typ='TXM',into=("EXTRACTION","MOYENNE","MOYENNE_RCCM"),max=2),
12420          ),
12421          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12422          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
12423 )  ;
12424 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
12425 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12426 # ======================================================================
12427 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12428 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12429 #              REDISTRIBUTION OF THIS FILE.
12430 # ======================================================================
12431 POST_SIMPLIFIE=OPER(nom="POST_SIMPLIFIE",op=185,sd_prod=tabl_post_simpli,
12432                     fr=" ",docu="U4.PS.10-a",reentrant='n',
12433          MATER           =SIMP(statut='o',typ=(mater) ),
12434          DEF_EQUI        =FACT(statut='f',min=01,max=01,
12435            METHODE         =SIMP(statut='f',typ='TXM',max='**',defaut="UTO_2_3",
12436                                  into=("UTO_2_3",) ),
12437            EPAIS           =SIMP(statut='o',typ='R'),
12438            LONG_FISS       =SIMP(statut='o',typ='R'),
12439            LONG_LIGA_INT   =SIMP(statut='o',typ='R'),
12440            DEXT            =SIMP(statut='o',typ='R'),
12441            TEMP_ANALYSE    =SIMP(statut='f',typ='R'),
12442          ),
12443 )  ;
12444 #& MODIF COMMANDE  DATE 07/02/2001   AUTEUR D6BHHJP J.P.LEFEBVRE
12445 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12446 # ======================================================================
12447 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12448 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12449 #              REDISTRIBUTION OF THIS FILE.
12450 # ======================================================================
12451 POST_USURE=OPER(nom="POST_USURE",op=153,sd_prod=tabl_post_usur,docu="U4.84.05-c",reentrant='f',
12452                 fr="Calcul des volumes d'usure et des profondeurs d'usure",
12453          regles=(UN_PARMI('RESU_GENE','PUIS_USURE'),
12454                  PRESENT_PRESENT('RESU_GENE','NOEUD'),
12455                  UN_PARMI('INST','LIST_INST'),),
12456          ETAT_INIT       =FACT(statut='f',min=01,max=01,
12457            TABL_USURE      =SIMP(statut='f',typ=tabl_post_usur),
12458            INST_INIT       =SIMP(statut='f',typ='R'),
12459                          ),
12460          RESU_GENE       =SIMP(statut='f',typ=tran_gene),
12461          NOEUD           =SIMP(statut='f',typ=no,max=1),
12462          INST_INIT       =SIMP(statut='f',typ='R',defaut=-1.0E+0),
12463          INST_FIN        =SIMP(statut='f',typ='R'),
12464          NB_BLOC         =SIMP(statut='f',typ='I',defaut= 1 ),
12465          PUIS_USURE      =SIMP(statut='f',typ='R'),
12466          LOI_USURE       =SIMP(statut='o',typ='TXM',into=("ARCHARD","KWU_EPRI","EDF_MZ")),
12467          b_archard       =BLOC(condition = "LOI_USURE == 'ARCHARD'",
12468            regles=(EXCLUS('MATER_USURE','OBSTACLE'),
12469                    EXCLUS('MOBILE','USURE_OBST'),),
12470            MOBILE          =FACT(statut='f',min=01,max=01,
12471              COEF_USURE      =SIMP(statut='o',typ='R'),
12472            ),
12473            OBSTACLE        =FACT(statut='f',min=01,max=01,
12474              COEF_USURE      =SIMP(statut='o',typ='R'),
12475            ),
12476            MATER_USURE     =SIMP(statut='f',typ='TXM'),
12477            USURE_OBST      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
12478          ),
12479          b_kwu_epri        =BLOC(condition = "LOI_USURE == 'KWU_EPRI'",
12480            regles=(UN_PARMI('MOBILE','MATER_USURE'),
12481                    EXCLUS('MATER_USURE','OBSTACLE'),
12482                    EXCLUS('MOBILE','USURE_OBST'),),
12483            MOBILE          =FACT(statut='f',min=01,max=01,
12484              COEF_FNOR       =SIMP(statut='f',typ='R'),
12485              COEF_VTAN       =SIMP(statut='f',typ='R'),
12486              COEF_USURE      =SIMP(statut='f',typ='R'),
12487              COEF_K          =SIMP(statut='f',typ='R',defaut=5.0E+0),
12488              COEF_C          =SIMP(statut='f',typ='R',defaut=10.0E+0),
12489            ),
12490            OBSTACLE        =FACT(statut='f',min=01,max=01,
12491              COEF_FNOR       =SIMP(statut='f',typ='R' ),
12492              COEF_VTAN       =SIMP(statut='f',typ='R' ),
12493              COEF_USURE      =SIMP(statut='o',typ='R'),
12494              COEF_K          =SIMP(statut='f',typ='R',defaut=5.0E+0),
12495              COEF_C          =SIMP(statut='f',typ='R',defaut=10.0E+0),
12496            ),
12497            MATER_USURE     =SIMP(statut='f',typ='TXM'),
12498            USURE_OBST      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
12499            FNOR_MAXI       =SIMP(statut='f',typ='R' ),
12500            VTAN_MAXI       =SIMP(statut='f',typ='R' ),
12501          ),
12502          b_edf_mz          =BLOC(condition = "LOI_USURE == 'EDF_MZ'",
12503            regles=(UN_PARMI('MOBILE','MATER_USURE'),
12504                    EXCLUS('MATER_USURE','OBSTACLE'),
12505                    EXCLUS('MOBILE','USURE_OBST'),),
12506            MOBILE          =FACT(statut='f',min=01,max=01,
12507              COEF_USURE      =SIMP(statut='f',typ='R',defaut=1.0E-13),
12508              COEF_B          =SIMP(statut='f',typ='R',defaut=1.2E+0),
12509              COEF_N          =SIMP(statut='f',typ='R',defaut=2.44E-8),
12510              COEF_S          =SIMP(statut='f',typ='R',defaut=1.14E-16),
12511            ),
12512            OBSTACLE        =FACT(statut='f',min=01,max=01,
12513              COEF_USURE      =SIMP(statut='o',typ='R',defaut=1.0E-13),
12514              COEF_B          =SIMP(statut='f',typ='R',defaut=1.2E+0),
12515              COEF_N          =SIMP(statut='f',typ='R',defaut=2.44E-8),
12516              COEF_S          =SIMP(statut='f',typ='R',defaut=1.14E-16),
12517            ),
12518            MATER_USURE     =SIMP(statut='f',typ='TXM'),
12519            USURE_OBST      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
12520          ),
12521          SECTEUR         =FACT(statut='f',min=01,max='**',
12522            CONTACT         =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
12523                                                             "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
12524                                                             "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
12525            COEF_USUR_MOBILE=SIMP(statut='f',typ='R'),
12526            COEF_USUR_OBST  =SIMP(statut='f',typ='R'),
12527            ANGL_INIT       =SIMP(statut='f',typ='R'),
12528            ANGL_FIN        =SIMP(statut='f',typ='R'),
12529          ),
12530          CONTACT         =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
12531                                                           "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
12532                                                           "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
12533          RAYON_MOBILE    =SIMP(statut='f',typ='R'),
12534          RAYON_OBST      =SIMP(statut='f',typ='R'),
12535          LARGEUR_OBST    =SIMP(statut='f',typ='R'),
12536          ANGL_INCLI      =SIMP(statut='f',typ='R'),
12537          ANGL_ISTHME     =SIMP(statut='f',typ='R'),
12538          ANGL_IMPACT     =SIMP(statut='f',typ='R'),
12539          INST            =SIMP(statut='f',typ='R',max='**'),
12540          LIST_INST       =SIMP(statut='f',typ=listr8),
12541          COEF_INST       =SIMP(statut='f',typ='R',defaut=1.0E+0),
12542          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12543          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
12544 )  ;
12545 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
12546 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12547 # ======================================================================
12548 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12549 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12550 #              REDISTRIBUTION OF THIS FILE.
12551 # ======================================================================
12552 POST_ZAC=OPER(nom="POST_ZAC",op= 175,sd_prod=mult_elas,docu="U4.83.21-b",reentrant='n',
12553               fr="Donne l'état adapté ou accommodé d'une structure sous chargement cyclique élastique affine ou non",
12554          MODELE          =SIMP(statut='o',typ=modele),
12555          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
12556          EXCIT           =FACT(statut='o',min=01,max='**',
12557            CHARGE          =SIMP(statut='o',typ=char_meca),
12558            FONC_MULT       =SIMP(statut='f',typ=fonction),
12559            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",into=("FIXE_CSTE",)),
12560          ),
12561          EVOL_ELAS       =SIMP(statut='o',typ=evol_elas),
12562          b_evol_elas     =BLOC(condition="EVOL_ELAS != None",
12563            regles=(UN_PARMI('NUME_ORDRE','LIST_INST','INST'),),
12564            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
12565            LIST_INST       =SIMP(statut='f',typ=listr8),
12566            INST            =SIMP(statut='f',typ='R',max='**'),
12567          ),
12568          TEMP_ZAC        =SIMP(statut='f',typ='R',defaut=0.0E+0),
12569          EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
12570          b_evol_noli     =BLOC(condition="EVOL_NOLI != None",
12571            INST_MAX        =SIMP(statut='o',typ='R'),
12572          ),
12573          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
12574          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
12575
12576 )  ;
12577 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
12578 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12579 # ======================================================================
12580 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12581 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12582 #              REDISTRIBUTION OF THIS FILE.
12583 # ======================================================================
12584 POURSUITE=MACRO(nom="POURSUITE",op=0,repetable='n',fr="Poursuite d une étude",
12585                 docu="U4.11.03-f1",sd_prod = ops.POURSUITE,
12586                 op_init = ops.POURSUITE_context,fichier_ini = 1,
12587          PAR_LOT         =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
12588                            into=("OUI","NON"),defaut="OUI"),
12589          BASE            =FACT(fr="définition des parmètres associés aux bases JEVEUX",
12590                                statut='f',min=1,max=3,
12591            FICHIER         =SIMP(fr="nom de la base",statut='o',typ='TXM'),
12592            TITRE           =SIMP(statut='f',typ='TXM'),
12593            CAS             =SIMP(statut='f',typ='TXM'),
12594            NMAX_ENRE       =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
12595            LONG_ENRE       =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
12596            LONG_REPE       =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
12597          ),
12598          IMPRESSION      =FACT(statut='f',min=1,max=3,
12599            FICHIER         =SIMP(statut='o',typ='TXM'),
12600            UNITE           =SIMP(statut='o',typ='I'),
12601          ),
12602          CATALOGUE       =FACT(statut='f',min=1,max=10,
12603            FICHIER         =SIMP(statut='o',typ='TXM'),
12604            TITRE           =SIMP(statut='f',typ='TXM'),
12605            UNITE           =SIMP(statut='f',typ='I'),
12606          ),
12607          DEBUG           =FACT(fr="option de déboggage reservée aux développeurs",
12608                                statut='f',min=1,max=1,
12609            JXVERI          =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
12610                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
12611            JEVEUX          =SIMP(fr="force les déchargement sur disque",
12612                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
12613            ENVIMA          =SIMP(fr="imprime les valeurs définies dans ENVIMA",
12614                                  statut='f',typ='TXM',into=('TES',)),
12615          ),
12616          MEMOIRE         =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=1,max=1,
12617            GESTION         =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
12618            TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
12619            TAILLE          =SIMP(statut='f',typ='I'),
12620            TAILLE_BLOC     =SIMP(statut='f',typ='R',defaut=800.),
12621            PARTITION       =SIMP(statut='f',typ='R' ),
12622          ),
12623          CODE            =FACT("définition d un nom pour l'esemble d'une étude",
12624                                statut='f',min=1,max=1,
12625            NOM             =SIMP(statut='o',typ='TXM'),
12626            UNITE           =SIMP(statut='f',typ='I',defaut=15),
12627          ),
12628 )  ;
12629 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
12630 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12631 # ======================================================================
12632 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12633 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12634 #              REDISTRIBUTION OF THIS FILE.
12635 # ======================================================================
12636 PRE_CHAR_IDEAS=PROC(nom="PRE_CHAR_IDEAS",op=100,docu="U7.01.02-e",
12637                     fr="Conversion de conditions aux limites et chargements IDEAS en commandes Aster",
12638          UNITE_IDEAS     =SIMP(statut='f',typ='I',defaut=19),
12639          UNITE_ASTER     =SIMP(statut='f',typ='I',defaut=21),
12640          MODELE          =SIMP(statut='o',typ=modele),
12641 )  ;
12642 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
12643 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12644 # ======================================================================
12645 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12646 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12647 #              REDISTRIBUTION OF THIS FILE.
12648 # ======================================================================
12649 PRE_GIBI=PROC(nom="PRE_GIBI",op=49,docu="U7.01.11-f",
12650               fr="Conversion d un fichier de maillage GIBI",
12651          UNITE_GIBI      =SIMP(statut='f',typ='I',defaut=19),
12652          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),
12653 )  ;
12654 #& MODIF COMMANDE  DATE 17/09/2001   AUTEUR CIBHHGB G.BERTRAND
12655 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12656 # ======================================================================
12657 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12658 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12659 #              REDISTRIBUTION OF THIS FILE.
12660 # ======================================================================
12661 PRE_GMSH=PROC(nom="PRE_GMSH",op=47,docu="U7.01.01-f",
12662                fr="Conversion d un fichier universel GMSH au format Aster",
12663          UNITE_GMSH      =SIMP(statut='f',typ='I',defaut=19),
12664          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),
12665 )  ;
12666 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
12667 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12668 # ======================================================================
12669 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12670 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12671 #              REDISTRIBUTION OF THIS FILE.
12672 # ======================================================================
12673 PRE_IDEAS=PROC(nom="PRE_IDEAS",op=47,docu="U7.01.01-f",
12674                fr="Conversion d un fichier universel IDEAS-SUPERTAB au format Aster",
12675          UNITE_IDEAS     =SIMP(statut='f',typ='I',defaut=19),
12676          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),
12677 )  ;
12678 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
12679 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12680 # ======================================================================
12681 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12682 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12683 #              REDISTRIBUTION OF THIS FILE.
12684 # ======================================================================
12685 PROCEDURE=PROC(nom="PROCEDURE",op=-3, docu="U4.13.03-e",
12686           fr="Nommer le fichier de commandes secondaires",
12687           NOM  =SIMP(statut='f',typ='TXM',defaut=" "),
12688 ) ;
12689 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
12690 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12691 # ======================================================================
12692 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12693 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12694 #              REDISTRIBUTION OF THIS FILE.
12695 # ======================================================================
12696 def prod_matr_cham_prod(MATR_ASSE,**args):
12697   if AsType(MATR_ASSE) == matr_asse_depl_r : return cham_no_depl_r
12698   if AsType(MATR_ASSE) == matr_asse_depl_c : return cham_no_depl_c
12699   if AsType(MATR_ASSE) == matr_asse_temp_r : return cham_no_temp_r
12700   if AsType(MATR_ASSE) == matr_asse_pres_c : return cham_no_pres_c
12701   raise AsException("type de concept resultat non prevu")
12702
12703 PROD_MATR_CHAM=OPER(nom="PROD_MATR_CHAM",op= 156,sd_prod=prod_matr_cham_prod,
12704                     fr="Effectuer le produit d une matrice par un vecteur",
12705                     docu="U4.72.06-b",reentrant='n',
12706          MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_pres_c ) ),
12707          CHAM_NO         =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_temp_r,cham_no_pres_c ) ),
12708          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
12709 )  ;
12710 #& MODIF COMMANDE  DATE 12/09/2001   AUTEUR MCOURTOI M.COURTOIS
12711 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12712 # ======================================================================
12713 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12714 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12715 #              REDISTRIBUTION OF THIS FILE.
12716 # ======================================================================
12717 # RESPONSABLE VABHHTS J.PELLET
12718 def proj_champ_prod(RESULTAT=None,CHAM_NO_REFE=None,**args ):
12719     if AsType(RESULTAT)     == evol_ther      : return evol_ther
12720     if AsType(RESULTAT)     == evol_elas      : return evol_elas
12721     if AsType(RESULTAT)     == evol_noli      : return evol_noli
12722     if AsType(RESULTAT)     == evol_char      : return evol_char
12723     if AsType(CHAM_NO_REFE) == cham_no_depl_r : return cham_no_depl_r
12724     if AsType(CHAM_NO_REFE) == cham_no_depl_c : return cham_no_depl_c
12725     if AsType(CHAM_NO_REFE) == cham_no_pres_c : return cham_no_pres_c
12726     if AsType(CHAM_NO_REFE) == cham_no_temp_r : return cham_no_temp_r
12727     if AsType(CHAM_NO_REFE) == cham_no_epsi_r : return cham_no_epsi_r
12728     if AsType(CHAM_NO_REFE) == cham_no_sief_r : return cham_no_sief_r
12729     if AsType(CHAM_NO_REFE) == cham_no_flux_r : return cham_no_flux_r
12730     raise AsException("type de concept resultat non prevu")
12731
12732 PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,docu="U4.72.05-c1",reentrant='n',
12733                 fr="Projection d un champ aux noeuds sur les noeuds d un autre maillage",
12734 #
12735          METHODE         =SIMP(statut='f',typ='TXM',defaut="NUAGE_DEG_1",
12736                                into=("NUAGE_DEG_0","NUAGE_DEG_1","ELEM",) ),
12737          b_nuage         =BLOC(condition="(METHODE=='NUAGE_DEG_1') or (METHODE=='NUAGE_DEG_0')",
12738                                fr="Lissage d un nuage de points",
12739            CHAM_NO         =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_pres_c,cham_no_temp_r,
12740                                                  cham_no_epsi_r,cham_no_sief_r,cham_no_flux_r)),
12741            CHAM_NO_REFE    =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_pres_c,cham_no_temp_r,
12742                                                  cham_no_epsi_r,cham_no_sief_r,cham_no_flux_r)),
12743          ),
12744          b_elem          =BLOC(condition="METHODE=='ELEM'",
12745                               fr="Utilisation des fonctions de forme",
12746            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','LIST_INST','LIST_FREQ','LIST_ORDRE'), ),
12747            RESULTAT        =SIMP(statut='f',typ=(evol_ther,evol_elas,evol_noli,evol_char) ),
12748            MODELE_1        =SIMP(statut='f',typ=modele),
12749            MODELE_2        =SIMP(statut='f',typ=modele),
12750            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",) ),
12751            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
12752            LIST_ORDRE      =SIMP(statut='f',typ=listis),
12753            INST            =SIMP(statut='f',typ='R',max='**' ),
12754            LIST_INST       =SIMP(statut='f',typ=listr8),
12755            FREQ            =SIMP(statut='f',typ='R',max='**' ),
12756            LIST_FREQ       =SIMP(statut='f',typ=listr8),
12757          ),
12758
12759          VIS_A_VIS       =FACT(statut='f',min=01,max='**',
12760            regles=(AU_MOINS_UN('TOUT_1','GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
12761                    AU_MOINS_UN('TOUT_2','GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),),
12762            TOUT_1          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12763            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
12764            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
12765            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
12766            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
12767            TOUT_2          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12768            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
12769            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
12770            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
12771            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
12772          ),
12773
12774          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
12775 )  ;
12776 #& MODIF COMMANDE  DATE 26/09/2001   AUTEUR CIBHHPD D.NUNEZ
12777 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12778 # ======================================================================
12779 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12780 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12781 #              REDISTRIBUTION OF THIS FILE.
12782 # ======================================================================
12783 def matr_asse_gene_prod(MATR_ASSE,MATR_ASSE_GENE,**args):
12784   if AsType(MATR_ASSE) == matr_asse_depl_r  : return matr_asse_gene_r
12785   if AsType(MATR_ASSE_GENE) == matr_asse_gene_r  : return matr_asse_gene_r
12786   if AsType(MATR_ASSE) == matr_asse_depl_c  : return matr_asse_gene_c
12787   if AsType(MATR_ASSE_GENE) == matr_asse_gene_c  : return matr_asse_gene_c
12788   raise AsException("type de concept resultat non prevu")
12789
12790 PROJ_MATR_BASE=OPER(nom="PROJ_MATR_BASE",op=  71,sd_prod=matr_asse_gene_prod,
12791                     fr="Projection d une matrice assemblée sur une base (modale ou de RITZ)",
12792                     docu="U4.63.12-e",reentrant='n',
12793          regles=(UN_PARMI('MATR_ASSE','MATR_ASSE_GENE'),),
12794          BASE            =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene ) ),
12795          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
12796          NB_VECT         =SIMP(statut='f',typ='I',defaut= 9999 ),
12797          MATR_ASSE       =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_depl_c) ),
12798          MATR_ASSE_GENE  =SIMP(statut='f',typ=(matr_asse_gene_r,matr_asse_gene_c) ),
12799 )  ;
12800
12801 #& MODIF COMMANDE  DATE 19/12/2001   AUTEUR CIBHHAB N.RAHNI
12802 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12803 # ======================================================================
12804 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12805 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12806 #              REDISTRIBUTION OF THIS FILE.
12807 # ======================================================================
12808 def proj_mesu_modal_prod(MESURE,**args):
12809      vale=MESURE['NOM_PARA']
12810      if  vale == 'INST'   : return tran_gene
12811      raise AsException("type de concept resultat non prevu")
12812
12813 PROJ_MESU_MODAL=OPER(nom="PROJ_MESU_MODAL",op= 193,
12814                      sd_prod=proj_mesu_modal_prod,
12815                      docu="U4.73.01-a",reentrant='n',
12816                      fr="Extrapolation de resultats experimentaux sur un modele numerique en dynamique",
12817
12818 # commentaire C. Durand-13/10/2000 :
12819 #le mot cle NOM_PARA, par construction, vaut tjs INST : donc on retourne TRAN_GENE a chaque fois
12820 #def proj_mesu_modal_prod(**args):
12821 #     vale=args['MESURE'].get_child('NOM_PARA').get_valeur()
12822 #     if  vale == 'INST'   : return tran_gene
12823 #     raise AsException("type de concept resultat non prevu")
12824 #PROJ_MESU_MODAL=OPER(nom="PROJ_MESU_MODAL",op= 193,sd_prod=proj_mesu_modal_prod,)
12825
12826          MODELE          =SIMP(statut='f',typ=(modele) ),
12827          MASS_GENE       =SIMP(statut='o',typ=(matr_asse_gene_r) ),
12828          RIGI_GENE       =SIMP(statut='o',typ=(matr_asse_gene_r) ),
12829          MESURE          =FACT(statut='o',min=01,max=01,
12830            MODELE          =SIMP(statut='o',typ=(modele) ),
12831            MAILLAGE        =SIMP(statut='o',typ=(maillage) ),
12832            CARA_ELEM       =SIMP(statut='o',typ=(cara_elem) ),
12833            UNITE           =SIMP(statut='f',typ='I',defaut= 33 ),
12834            NOM_PARA        =SIMP(statut='f',typ='TXM',defaut="INST",into=("INST",) ),
12835            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
12836            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
12837            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","SIGM_NOEU_DEPL","EPSI_NOEU_DEPL",) ),
12838                          ),
12839          REGULARISATION  =FACT(statut='f',min=01,max=01,
12840       regles=(UN_PARMI('COEF_PONDER','COEF_PONDER_F', ),),
12841            METHODE         =SIMP(statut='f',typ='TXM',defaut="TIKHONOV",into=("TIKHONOV",) ),
12842            NORM_MIN        =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
12843            COEF_PONDER     =SIMP(statut='f',typ='R',max='**' ),
12844            COEF_PONDER_F   =SIMP(statut='f',typ=(fonction),max='**' ),
12845                          ),
12846                        )  ;
12847 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
12848 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12849 # ======================================================================
12850 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12851 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12852 #              REDISTRIBUTION OF THIS FILE.
12853 # ======================================================================
12854 PROJ_SPEC_BASE=OPER(nom="PROJ_SPEC_BASE",op= 146,sd_prod=tabl_intsp,docu="U4.63.14-c",reentrant='n',
12855                     fr="Projection d un ou plusieurs spectres de turbulenc sur un ensemble de bases modales ",
12856       regles=(UN_PARMI('BASE_ELAS_FLUI','MODE_MECA','CHAM_NO'),
12857               ENSEMBLE('FREQ_INIT','FREQ_FIN','NB_POIN'),),
12858          SPEC_TURB       =SIMP(statut='o',typ=spectre,max='**' ),
12859          BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu ),
12860          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
12861          CHAM_NO         =SIMP(statut='f',typ=cham_no_depl_r ),
12862          FREQ_INIT       =SIMP(statut='f',typ='R',val_min=0.E+0 ),
12863          FREQ_FIN        =SIMP(statut='f',typ='R',val_min=0.E+0 ),
12864          NB_POIN         =SIMP(statut='f',typ='I' ),
12865          OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG")),
12866          GROUP_MA        =SIMP(statut='f',typ=grma),
12867 #  Quel est le type attendu derriere  MODELE_INTERFACE
12868          MODELE_INTERFACE=SIMP(statut='f',typ=modele),
12869          VECT_X          =SIMP(statut='f',typ='R',min=3,max=3 ),
12870          VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3 ),
12871          ORIG_AXE        =SIMP(statut='f',typ='R',min=3,max=3 ),
12872          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
12873 )  ;
12874 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
12875 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12876 # ======================================================================
12877 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12878 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12879 #              REDISTRIBUTION OF THIS FILE.
12880 # ======================================================================
12881 PROJ_VECT_BASE=OPER(nom="PROJ_VECT_BASE",op=  72,sd_prod=vect_asse_gene,
12882                     fr="Projection d un vecteur assemblé sur une base (modale ou de RITZ)",
12883                     docu="U4.63.13-e",reentrant='n',
12884          regles=(UN_PARMI('VECT_ASSE','VECT_ASSE_GENE'),),
12885          BASE            =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene ) ),
12886          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
12887          NB_VECT         =SIMP(statut='f',typ='I',defaut= 9999 ),
12888          TYPE_VECT       =SIMP(statut='f',typ='TXM',defaut="FORC"),
12889          VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
12890          VECT_ASSE_GENE  =SIMP(statut='f',typ=vect_asse_gene ),
12891 )  ;
12892 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
12893 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12894 # ======================================================================
12895 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12896 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12897 #              REDISTRIBUTION OF THIS FILE.
12898 # ======================================================================
12899 RECA_WEIBULL=OPER(nom="RECA_WEIBULL",op= 197,sd_prod=tabl_reca_weib,
12900                      fr=" ",docu="U4.82.06-a",reentrant='n',
12901          LIST_PARA       =SIMP(statut='o',typ='TXM',max='**',into=("SIGM_REFE","M",) ),
12902          RESU            =FACT(statut='o',min=01,max='**',
12903            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST',),
12904                    AU_MOINS_UN('TOUT','GROUP_MA','MAILLE', ),),
12905            EVOL_NOLI       =SIMP(statut='o',typ=(evol_noli) ),
12906            MODELE          =SIMP(statut='o',typ=(modele) ),
12907            CHAM_MATER      =SIMP(statut='o',typ=(cham_mater) ),
12908            TEMPE           =SIMP(statut='f',typ='R' ),
12909            LIST_INST_RUPT  =SIMP(statut='o',typ='R',max='**' ),
12910            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12911            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
12912            INST            =SIMP(statut='f',typ='R',max='**' ),
12913            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
12914            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12915            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
12916            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
12917            COEF_MULT       =SIMP(statut='f',typ='R',defaut= 1.E0 ),
12918                          ),
12919          OPTION          =SIMP(statut='f',typ='TXM',defaut="SIGM_ELGA",into=("SIGM_ELGA","SIGM_ELMOY",) ),
12920          CORR_PLAST      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
12921          METHODE         =SIMP(statut='f',typ='TXM',defaut="MAXI_VRAI",into=("MAXI_VRAI","REGR_LINE",) ),
12922          INCO_GLOB_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
12923          ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
12924          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
12925                        )  ;
12926 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
12927 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12928 # ======================================================================
12929 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12930 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12931 #              REDISTRIBUTION OF THIS FILE.
12932 # ======================================================================
12933 # RESPONSABLE MCOURTOI M.COURTOIS
12934 def recu_fonction_prod(RESULTAT=None,TABLE=None,OBSTACLE=None,
12935                        RESU_GENE=None,BASE_ELAS_FLUI=None,CHAM_GD=None,
12936                        TYPE_RESU=None,**args):
12937   if AsType(RESULTAT) == dyna_harmo : return fonction_c
12938 #  On ne sait pas interpreter les deux conditions suivantes
12939   if TABLE != None :
12940      if TYPE_RESU != None :
12941         if TYPE_RESU == "FONCTION_C" : return fonction_c
12942         if TYPE_RESU == "FONCTION"   : return fonction
12943      else:
12944         return fonction
12945   if RESU_GENE      != None         : return fonction
12946   if BASE_ELAS_FLUI != None         : return fonction
12947   if RESULTAT       != None         : return fonction
12948   if CHAM_GD        != None         : return fonction
12949   if OBSTACLE       != None         : return fonction
12950   raise AsException("type de concept resultat non prevu")
12951
12952 RECU_FONCTION=OPER(nom="RECU_FONCTION",op=  90,sd_prod=recu_fonction_prod,
12953                    fr="Extraire sous forme d une fonction, l évolution temporelle d une composante d un champ ou d une table",
12954                    docu="U4.32.03-e1",reentrant='n',
12955          regles=(UN_PARMI('CHAM_GD','RESULTAT','RESU_GENE','TABLE','BASE_ELAS_FLUI','OBSTACLE'),),
12956
12957          CHAM_GD         =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r,cham_elem_sief_r,
12958                                                cham_elem_vari_r,cham_elem_epsi_r,cham_elem_flux_r,
12959                                                cham_elem_pres_r,cham_elem_meta_r ) ),
12960          RESULTAT        =SIMP(statut='f',typ=(evol_elas,dyna_trans,evol_noli,evol_ther,dyna_harmo ) ),
12961          RESU_GENE       =SIMP(statut='f',typ=tran_gene),
12962 #  concept table à créer
12963          TABLE           =SIMP(statut='f',typ=table),
12964          BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu),
12965          REPERE          =SIMP(statut='f',typ='TXM',into=("POLAIRE","GLOBAL") ),
12966          OBSTACLE        =SIMP(statut='f',typ=obstacle),
12967
12968          b_tran_gene = BLOC ( condition = "RESU_GENE != None",
12969                               fr="Récupération de la fonction concernant les chocs à partir d un concept TRAN_GENE",
12970             regles=(PRESENT_PRESENT('SOUS_STRUC','INTITULE'),
12971                     PRESENT_ABSENT('MULT_APPUI','CORR_STAT'),),
12972              MULT_APPUI      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
12973              CORR_STAT       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
12974              ACCE_MONO_APPUI =SIMP(statut='f',typ=fonction),
12975              PARA_X          =SIMP(statut='f',typ='TXM' ),
12976              PARA_Y          =SIMP(statut='f',typ='TXM' ),
12977              SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
12978              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
12979              INTITULE        =SIMP(statut='f',typ='TXM' ),
12980          ),
12981          b_base_elas_flui = BLOC ( condition = "BASE_ELAS_FLUI != None",
12982                                    fr="Récupération de la fonction à partir d un concept melasflu",
12983            regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE'),),
12984            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12985            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
12986            NUME_MODE       =SIMP(statut='o',typ='I' ),
12987            PARA_X          =SIMP(statut='o',typ='TXM',into=("VITE_FLU",) ),
12988            PARA_Y          =SIMP(statut='o',typ='TXM',into=("FREQ","AMOR") ),
12989          ),
12990          b_table = BLOC ( condition = "TABLE != None",fr="Récupération de la fonction à partir d un concept table",
12991            regles=(UN_PARMI('PARA_X','NOM_PARA_TABL'),
12992                    PRESENT_PRESENT('PARA_X','PARA_Y'),),
12993            PARA_X          =SIMP(statut='f',typ='TXM',
12994                                  fr="1ère colonne de la table qui définit la fonction à récupérer", ),
12995            PARA_Y          =SIMP(statut='f',typ='TXM',
12996                                  fr="2ème colonne de la table qui définit la fonction à récupérer", ),
12997            NOM_PARA_TABL   =SIMP(statut='f',typ='TXM',into=("FONCTION",),
12998                                  fr="Nom du paramètre de la table à qui est associé la fonction" ),
12999            b_nom_para_tabl = BLOC (condition = "NOM_PARA_TABL != None",
13000              TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="FONCTION",into=("FONCTION","FONCTION_C") ),
13001            ),
13002
13003            FILTRE          =FACT(statut='f',min=1,max='**',
13004               NOM_PARA        =SIMP(statut='o',typ='TXM' ),
13005               CRIT_COMP       =SIMP(statut='f',typ='TXM',defaut="EQ",
13006                                     into=("EQ","LT","GT","NE","LE","GE","VIDE",
13007                                           "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
13008               b_vale          =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
13009                  regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
13010                  VALE            =SIMP(statut='f',typ='R' ),
13011                  VALE_I          =SIMP(statut='f',typ='I' ),
13012                  VALE_C          =SIMP(statut='f',typ='C' ),
13013                  VALE_K          =SIMP(statut='f',typ='TXM' ),),
13014
13015               CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
13016               PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
13017            ),
13018          ),
13019 # RESULTAT
13020          b_resu = BLOC ( condition = "RESULTAT != None", fr="Opérandes en cas de RESULTAT",
13021            regles=(
13022 #    A voir par Mathieu Courtois : il existe de tests (SDNX300B) qui ne satisfont pas ce UN_PARMI
13023 #           UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','TOUT_INST','LIST_INST','FREQ','LIST_FREQ'),
13024                    AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC','NOM_PARA_RESU'),
13025                    PRESENT_PRESENT('MAILLE','NOM_CMP'),
13026                    PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
13027                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
13028                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
13029                    PRESENT_PRESENT('POINT','NOM_CMP'),
13030                    EXCLUS('POINT','NOEUD'),
13031                    EXCLUS('GROUP_MA','MAILLE'),
13032                    EXCLUS('GROUP_NO','NOEUD'),
13033                    EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),
13034                    UN_PARMI('NOM_CHAM','NOM_PARA_RESU'),),
13035            NOM_CHAM        =SIMP(statut='f',typ='TXM' ),
13036            NOM_PARA_RESU   =SIMP(statut='f',typ='TXM' ),
13037            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13038            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
13039            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
13040            TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13041            INST            =SIMP(statut='f',typ='R',max='**'),
13042            LIST_INST       =SIMP(statut='f',typ=listr8 ),
13043            FREQ            =SIMP(statut='f',typ='R',max='**'),
13044            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
13045            b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
13046              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
13047              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
13048              INTERP_NUME     =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN") ),
13049            ),
13050            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
13051
13052            MAILLE          =SIMP(statut='f',typ=ma),
13053            GROUP_MA        =SIMP(statut='f',typ=grma),
13054            NOEUD           =SIMP(statut='f',typ=no),
13055            GROUP_NO        =SIMP(statut='f',typ=grno),
13056            POINT           =SIMP(statut='f',typ='I' ),
13057            SOUS_POINT      =SIMP(statut='f',typ='I' ),
13058            NOEUD_CHOC      =SIMP(statut='f',typ=no),
13059            GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
13060          ),
13061 # RESU_GENE
13062          b_resu_gene = BLOC ( condition = "RESU_GENE != None", fr="Opérandes en cas de RESU_GENE",
13063 #    A voir par Mathieu Courtois : il existe de tests (SDNX300B) qui ne satisfont pas ce UN_PARMI
13064 #           regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','TOUT_INST','LIST_INST','FREQ','LIST_FREQ'),),
13065            NOM_CHAM        =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE","PTEM") ),
13066            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13067            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
13068            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
13069            TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13070            INST            =SIMP(statut='f',typ='R',max='**'),
13071            LIST_INST       =SIMP(statut='f',typ=listr8 ),
13072            FREQ            =SIMP(statut='f',typ='R',max='**'),
13073            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
13074            b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
13075              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
13076              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
13077              INTERP_NUME     =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN") ),
13078            ),
13079            b_local_cham = BLOC ( condition = "NOM_CHAM!='PTEM'", fr="Opérandes de localisation du champ",
13080              regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
13081                      PRESENT_PRESENT('MAILLE','NOM_CMP'),
13082                      PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
13083                      PRESENT_PRESENT('NOEUD','NOM_CMP'),
13084                      PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
13085                      PRESENT_PRESENT('POINT','NOM_CMP'),
13086                      EXCLUS('POINT','NOEUD'),
13087                      EXCLUS('GROUP_MA','MAILLE'),
13088                      EXCLUS('GROUP_NO','NOEUD'),
13089                      EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
13090              NOM_CMP         =SIMP(statut='f',typ='TXM' ),
13091
13092              MAILLE          =SIMP(statut='f',typ=ma),
13093              GROUP_MA        =SIMP(statut='f',typ=grma),
13094              NOEUD           =SIMP(statut='f',typ=no),
13095              GROUP_NO        =SIMP(statut='f',typ=grno),
13096              POINT           =SIMP(statut='f',typ='I' ),
13097              SOUS_POINT      =SIMP(statut='f',typ='I' ),
13098              NOEUD_CHOC      =SIMP(statut='f',typ=no),
13099              GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
13100            ),
13101          ),
13102 # CHAM_GD
13103          b_cham_gd = BLOC ( condition = "(CHAM_GD != None)", fr="Opérandes en cas de CHAM_GD",
13104
13105            regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
13106                    PRESENT_PRESENT('MAILLE','NOM_CMP'),
13107                    PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
13108                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
13109                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
13110                    PRESENT_PRESENT('POINT','NOM_CMP'),
13111                    EXCLUS('POINT','NOEUD'),
13112                    EXCLUS('GROUP_MA','MAILLE'),
13113                    EXCLUS('GROUP_NO','NOEUD'),
13114                    EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
13115            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
13116
13117            MAILLE          =SIMP(statut='f',typ=ma),
13118            GROUP_MA        =SIMP(statut='f',typ=grma),
13119            NOEUD           =SIMP(statut='f',typ=no),
13120            GROUP_NO        =SIMP(statut='f',typ=grno),
13121            POINT           =SIMP(statut='f',typ='I' ),
13122            SOUS_POINT      =SIMP(statut='f',typ='I' ),
13123            NOEUD_CHOC      =SIMP(statut='f',typ=no),
13124            GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
13125          ),
13126 ###
13127          NOM_PARA        =SIMP(statut='f',typ='TXM',
13128                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
13129                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC") ),
13130          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
13131          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
13132          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
13133          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
13134
13135          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13136          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
13137 )  ;
13138 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
13139 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13140 # ======================================================================
13141 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13142 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
13143 #              REDISTRIBUTION OF THIS FILE.
13144 # ======================================================================
13145 RECU_GENE=OPER(nom="RECU_GENE",op=  76,sd_prod=vect_asse_gene,docu="U4.71.03-e",reentrant='n',
13146                fr="Récupération d un champ de grandeur à partir d un résultat en coordonnées généralisées",
13147          RESU_GENE       =SIMP(statut='o',typ=tran_gene ),
13148          INST            =SIMP(statut='o',typ='R' ),
13149          NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE") ),
13150          INTERPOL        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
13151          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF" ,into=("ABSOLU","RELATIF") ),
13152          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
13153 )  ;
13154 #& MODIF COMMANDE  DATE 19/12/2001   AUTEUR PBBHHPB P.BADEL
13155 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13156 # ======================================================================
13157 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13158 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
13159 #              REDISTRIBUTION OF THIS FILE.
13160 # ======================================================================
13161 # RESPONSABLE VABHHTS J.PELLET
13162 RECU_TABLE=OPER(nom="RECU_TABLE",op= 174,sd_prod=table,
13163                 fr=" ",docu="U4.71.02-a1",reentrant='n',
13164          CO              =SIMP(statut='o',typ=assd),
13165          regles=(PRESENT_ABSENT('NOM_TABLE','NOM_PARA')),
13166          NOM_TABLE       =SIMP(statut='f',typ='TXM' ),
13167          NOM_PARA        =SIMP(statut='f',typ='TXM' ),
13168          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13169 )  ;
13170 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
13171 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13172 # ======================================================================
13173 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13174 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
13175 #              REDISTRIBUTION OF THIS FILE.
13176 # ======================================================================
13177 def reso_grad_prod(MATR_ASSE,**args ):
13178   if AsType(MATR_ASSE) == matr_asse_depl_r : return cham_no_depl_r
13179   if AsType(MATR_ASSE) == matr_asse_temp_r : return cham_no_temp_r
13180   if AsType(MATR_ASSE) == matr_asse_pres_r : return cham_no_pres_r
13181   raise AsException("type de concept resultat non prevu")
13182
13183 RESO_GRAD=OPER(nom="RESO_GRAD",op=  84,sd_prod=reso_grad_prod,
13184                fr="Résolution par la méthode du gradient conjugué préconditionné",
13185                docu="U4.55.04-e",reentrant='f',
13186          MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
13187          CHAM_NO         =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r ) ),
13188          CHAM_CINE       =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r ) ),
13189          MATR_FACT       =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
13190          NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
13191          REPRISE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
13192          RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1E-6 ),
13193          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
13194 )  ;
13195 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
13196 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13197 # ======================================================================
13198 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13199 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
13200 #              REDISTRIBUTION OF THIS FILE.
13201 # ======================================================================
13202 # RESPONSABLE VABHHTS J.PELLET
13203 def reso_ldlt_prod(CHAM_NO,**args ):
13204   if AsType(CHAM_NO) == cham_no_temp_r : return cham_no_temp_r
13205   if AsType(CHAM_NO) == cham_no_depl_r : return cham_no_depl_r
13206   if AsType(CHAM_NO) == cham_no_pres_r : return cham_no_pres_r
13207   if AsType(CHAM_NO) == cham_no_temp_c : return cham_no_temp_c
13208   if AsType(CHAM_NO) == cham_no_depl_c : return cham_no_depl_c
13209   if AsType(CHAM_NO) == cham_no_pres_c : return cham_no_pres_c
13210   raise AsException("type de concept resultat non prevu")
13211
13212 RESO_LDLT=OPER(nom="RESO_LDLT",op=15,sd_prod=reso_ldlt_prod,reentrant='f',
13213                fr="Résolution en place ou hors place d un système factorisé",docu="U4.55.02-f",
13214          MATR_FACT       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
13215                                                matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
13216          CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r,
13217                                                cham_no_temp_c,cham_no_depl_c,cham_no_pres_c) ),
13218          CHAM_CINE       =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_c) ),
13219          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13220          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
13221 )  ;
13222 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
13223 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13224 # ======================================================================
13225 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13226 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
13227 #              REDISTRIBUTION OF THIS FILE.
13228 # ======================================================================
13229 def rest_base_phys_prod(RESU_GENE,RESULTAT,**args ):
13230   if AsType(RESU_GENE) == tran_gene : return dyna_trans
13231   if AsType(RESU_GENE) == mode_gene : return mode_meca
13232   if AsType(RESU_GENE) == mode_cycl : return mode_meca
13233   if AsType(RESU_GENE) == harm_gene : return dyna_harmo
13234   if AsType(RESULTAT)  == mode_meca : return mode_meca
13235   raise AsException("type de concept resultat non prevu")
13236
13237 REST_BASE_PHYS=OPER(nom="REST_BASE_PHYS",op=  75,sd_prod=rest_base_phys_prod,
13238                     fr="Restituer dans la base physique des résultats en coordonnées généralisées",
13239                     docu="U4.63.21-e",reentrant='n',
13240         regles=(UN_PARMI('RESU_GENE','RESULTAT'),
13241                 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','TOUT_INST'),
13242                 EXCLUS('TOUT_INST','NUME_ORDRE','INST','LIST_INST','TOUT_ORDRE'),
13243 #  Doc U à revoir
13244                 PRESENT_ABSENT('MULT_APPUI','CORR_STAT'),
13245                 EXCLUS('MULT_APPUI','NOEUD','GROUP_NO'),
13246                 EXCLUS('CORR_STAT','NOEUD','GROUP_NO'),
13247                 EXCLUS('NOEUD','GROUP_NO'),
13248                 PRESENT_PRESENT('RESULTAT','SQUELETTE'),
13249                 PRESENT_PRESENT('ACCE_MONO_APPUI','DIRECTION'),),
13250          RESU_GENE       =SIMP(statut='f',typ=(tran_gene,mode_gene,mode_cycl,harm_gene ) ),
13251          RESULTAT        =SIMP(statut='f',typ=mode_meca ),
13252
13253          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
13254          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13255          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
13256          TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13257          INST            =SIMP(statut='f',typ='R',max='**' ),
13258          LIST_INST       =SIMP(statut='f',typ=listr8 ),
13259          FREQ            =SIMP(statut='f',typ='R',max='**' ),
13260          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
13261          b_prec_crit     =BLOC(condition = "INST != None or LIST_INST != None or FREQ != None or LIST_FREQ != None",
13262            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
13263            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
13264          ),
13265          INTERPOL        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
13266
13267          MULT_APPUI      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
13268          CORR_STAT       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
13269          NOM_CHAM        =SIMP(statut='f',typ='TXM',max=8,defaut="ACCE",
13270                                into=("DEPL","VITE","ACCE","ACCE_ABSOLU","EFGE_ELNO_DEPL","SIPO_ELNO_DEPL",
13271                                      "SIGM_ELNO_DEPL","FORC_NODA",) ),
13272          TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13273          GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
13274          NOEUD           =SIMP(statut='f',typ=no,max='**'),
13275
13276          ACCE_MONO_APPUI =SIMP(statut='f',typ=fonction),
13277          DIRECTION       =SIMP(statut='f',typ='R',max='**' ),
13278
13279          SQUELETTE       =SIMP(statut='f',typ=squelette ),
13280          SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
13281          SECTEUR         =SIMP(statut='f',typ='I',defaut= 1 ),
13282          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
13283 )  ;
13284 #& MODIF COMMANDE  DATE 28/03/2001   AUTEUR CIBHHLV L.VIVAN
13285 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13286 # ======================================================================
13287 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13288 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
13289 #              REDISTRIBUTION OF THIS FILE.
13290 # ======================================================================
13291 REST_SPEC_PHYS=OPER(nom="REST_SPEC_PHYS",op= 148,sd_prod=tabl_intsp,
13292                     docu="U4.63.22-c",reentrant='n',
13293          regles=(AU_MOINS_UN('BASE_ELAS_FLUI','MODE_MECA'),),
13294          BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu ),
13295          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
13296          BANDE           =SIMP(statut='f',typ='R',min=02,max=02 ),
13297          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
13298          INTE_SPEC_GENE  =SIMP(statut='o',typ=tabl_intsp ),
13299          NOEUD           =SIMP(statut='o',typ=no,max='**'),
13300          NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
13301          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
13302          NOM_CHAM        =SIMP(statut='o',typ='TXM',max=07,
13303                                into=("DEPL","VITE","ACCE","EFGE_ELNO_DEPL",
13304                                      "SIPO_ELNO_DEPL","SIGM_ELNO_DEPL","FORC_NODA") ),
13305          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc), ),
13306          EXCIT           =FACT(statut='f',max=01,
13307            NOEUD           =SIMP(statut='o',typ=no,max='**'),
13308            NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
13309          ),
13310          MOUVEMENT       =SIMP(statut='f',typ='TXM',defaut="ABSOLU",into=("RELATIF","ABSOLU","DIFFERENTIEL") ),
13311          OPTION          =SIMP(statut='f',typ='TXM',defaut="DIAG_DIAG",
13312                                into=("DIAG_TOUT","DIAG_DIAG","TOUT_TOUT","TOUT_DIAG") ),
13313          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
13314 )  ;
13315 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
13316 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13317 # ======================================================================
13318 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13319 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
13320 #              REDISTRIBUTION OF THIS FILE.
13321 # ======================================================================
13322 RETOUR=PROC(nom="RETOUR",op= -2,docu="U4.13.02-e",
13323             fr="Retour au fichier de commandes appelant",
13324 ) ;
13325 #& MODIF COMMANDE  DATE 30/01/2002   AUTEUR VABHHTS J.TESELET
13326 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13327 # ======================================================================
13328 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13329 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
13330 #              REDISTRIBUTION OF THIS FILE.
13331 # ======================================================================
13332 #  RESPONSABLE ADBHHVV V.CANO
13333 STAT_NON_LINE=OPER(nom="STAT_NON_LINE",op=70,sd_prod=evol_noli,
13334                    fr="Analyse mécanique statique non linéaire",
13335                    docu="U4.51.03-e1",reentrant='f',
13336          regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS'),),
13337          MODELE          =SIMP(statut='o',typ=modele),
13338          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
13339          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
13340          EXCIT           =FACT(statut='o',min=1,max='**',
13341            CHARGE          =SIMP(statut='o',typ=char_meca),
13342            FONC_MULT       =SIMP(statut='f',typ=fonction),
13343            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
13344                                  into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
13345          ),
13346          VARI_COMM           =FACT(statut='f',
13347            regles=(AU_MOINS_UN('SECH','IRRA','HYDR'),),
13348            IRRA     =SIMP(statut='f',typ=evol_varc),
13349            SECH     =SIMP(statut='f',typ=evol_ther),
13350            HYDR     =SIMP(statut='f',typ=evol_ther),
13351          ),
13352          COMP_INCR       =FACT(statut='f',min=1,max='**',
13353            RELATION        =SIMP(statut='o',typ='TXM',defaut="VMIS_ISOT_TRAC",
13354                                  into=( "ELAS",
13355                                         "VMIS_ISOT_TRAC",
13356                                         "VMIS_ISOT_LINE",
13357                                         "VMIS_ECMI_TRAC",
13358                                         "VMIS_ECMI_LINE",
13359                                         "LABORD_1D",
13360                                         "ENDO_LOCAL",
13361                                         "ENDO_FRAGILE",
13362                                         "BETON_ENDO_LOCAL",
13363                                         "RUPT_FRAG",
13364                                         "PLAS_GRAD_LINE",
13365                                         "PLAS_GRAD_TRAC",
13366                                         "DURC_GRAD",
13367                                         "META_P_IL",
13368                                         "META_P_IL_PT",
13369                                         "META_P_IL_RE",
13370                                         "META_P_IL_PT_RE",
13371                                         "META_V_IL",
13372                                         "META_V_IL_PT",
13373                                         "META_V_IL_RE",
13374                                         "META_V_IL_PT_RE",
13375                                         "META_P_INL",
13376                                         "META_P_INL_PT",
13377                                         "META_P_INL_RE",
13378                                         "META_P_INL_PT_RE",
13379                                         "META_V_INL",
13380                                         "META_V_INL_PT",
13381                                         "META_V_INL_RE",
13382                                         "META_V_INL_PT_RE",
13383                                         "META_P_CL",
13384                                         "META_P_CL_PT",
13385                                         "META_P_CL_RE",
13386                                         "META_P_CL_PT_RE",
13387                                         "META_V_CL",
13388                                         "META_V_CL_PT",
13389                                         "META_V_CL_RE",
13390                                         "META_V_CL_PT_RE",
13391                                         "VMIS_CINE_LINE",
13392                                         "VISC_TAHERI",
13393                                         "CHABOCHE",
13394                                         "VISCOCHAB",
13395                                         "VMIS_CIN1_CHAB",
13396                                         "VMIS_CIN2_CHAB",
13397                                         "POLY_CFC",
13398                                         "LMARC",
13399                                         "ROUSSELIER",
13400                                         "ROUSS_PR",
13401                                         "ROUSS_VISC",
13402                                         "VMIS_POU_LINE",
13403                                         "VMIS_POU_FLEJOU",
13404                                         "COULOMB",
13405                                         "ARME",
13406                                         "ASSE_CORN",
13407                                         "NORTON_HOFF",
13408                                         "LEMAITRE",
13409                                         "ZIRC_CYRA2",
13410                                         "ZIRC_EPRI",
13411                                         "ASSE_COMBU",
13412                                         "VENDOCHAB",
13413                                         "NADAI_B",
13414                                         "DIS_CONTACT",
13415                                         "DIS_CHOC",
13416                                         "DIS_GOUJ2E_PLAS",
13417                                         "DIS_GOUJ2E_ELAS",
13418                                         "GRILLE_ISOT_LINE",
13419                                         "GRILLE_CINE_LINE",
13420                                         "GRILLE_PINTO_MEN",
13421                                         "PINTO_MENEGOTTO",
13422                                         "CJS",
13423                                         "OHNO",
13424                                         "GRANGER_FP",
13425                                         "GRANGER_FP_V",
13426                                         "BETON_DOUBLE_DP",
13427                                         "KIT_HM",
13428                                         "KIT_HHM",
13429                                         "KIT_THH",
13430                                         "KIT_THM",
13431                                         "KIT_THHM",
13432                                         "VMIS_ASYM_LINE",
13433                                         "ELAS_THM",
13434                                         "SURF_ETAT_NSAT",
13435                                         "SURF_ETAT_SATU",
13436                                         "CAM_CLAY_THM",
13437                                         "KIT_DDI",
13438                                      ) ),
13439            ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13440            VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
13441            VMIS_ISOT_LINE  =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
13442            VMIS_ECMI_TRAC  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
13443            VMIS_ECMI_LINE  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
13444            LABORD_1D   =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
13445            ENDO_LOCAL      =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
13446            ENDO_FRAGILE    =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
13447            BETON_ENDO_LOCAL=SIMP(statut='c',typ='I',defaut=2,into=(2,)),
13448            RUPT_FRAG       =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
13449            PLAS_GRAD_LINE  =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
13450            PLAS_GRAD_TRAC  =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
13451            DURC_GRAD       =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
13452            META_P_IL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13453           META_P_IL_PT       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13454           META_P_IL_RE       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13455           META_P_IL_PT_RE    =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13456           META_V_IL          =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13457           META_V_IL_PT       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13458           META_V_IL_RE       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13459           META_V_IL_PT_RE    =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13460           META_P_INL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13461           META_P_INL_PT      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13462           META_P_INL_RE      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13463           META_P_INL_PT_RE   =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13464           META_V_INL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13465           META_V_INL_PT      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13466           META_V_INL_RE      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13467           META_V_INL_PT_RE   =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13468           META_P_CL          =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
13469           META_P_CL_PT       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
13470           META_P_CL_RE       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
13471           META_P_CL_PT_RE    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
13472           META_V_CL          =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
13473           META_V_CL_PT       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
13474           META_V_CL_RE       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
13475           META_V_CL_PT_RE    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
13476            VMIS_CINE_LINE  =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
13477            CHABOCHE        =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
13478            VISCOCHAB       =SIMP(statut='c',typ='I',defaut=28,into=(28,)),
13479            VMIS_CIN1_CHAB  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
13480            VMIS_CIN2_CHAB  =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
13481            POLY_CFC        =SIMP(statut='c',typ='I',defaut=1688,into=(1688,)),
13482            LMARC           =SIMP(statut='c',typ='I',defaut=20,into=(20,)),
13483            VISC_TAHERI     =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
13484            ROUSSELIER      =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
13485            ROUSS_PR        =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
13486            ROUSS_VISC      =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
13487            VMIS_POU_LINE   =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
13488            VMIS_POU_FLEJOU =SIMP(statut='c',typ='I',defaut=9 ,into=(9,)),
13489            COULOMB         =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
13490            ASSE_CORN       =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
13491            ARME            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13492            NORTON_HOFF     =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13493            LEMAITRE        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
13494            ZIRC_CYRA2      =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
13495            ZIRC_EPRI       =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
13496            ASSE_COMBU      =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
13497            NADAI_B         =SIMP(statut='c',typ='I',defaut=34,into=(34,)),
13498            VENDOCHAB       =SIMP(statut='c',typ='I',defaut=10,into=(10,)),
13499            GRILLE_ISOT_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
13500            GRILLE_CINE_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
13501            GRILLE_PINTO_MEN=SIMP(statut='c',typ='I',defaut=16,into=(16,)),
13502            DIS_CONTACT     =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
13503            DIS_CHOC        =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
13504            DIS_GOUJ2E_PLAS =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
13505            DIS_GOUJ2E_ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13506            PINTO_MENEGOTTO =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
13507            CJS             =SIMP(statut='c',typ='I',defaut=16,into=(16,)),
13508            OHNO            =SIMP(statut='c',typ='I',defaut=32,into=(32,)),
13509            GRANGER_FP      =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
13510            GRANGER_FP_V    =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
13511            BETON_DOUBLE_DP =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
13512            KIT_HM          =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
13513            KIT_HHM         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
13514            KIT_THH         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
13515            KIT_THM         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
13516            KIT_THHM        =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
13517            VMIS_ASYM_LINE  =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
13518
13519            RELATION_KIT    =SIMP(statut='f',typ='TXM',max='**',
13520                                  into=(
13521 # MECA
13522                                        "ELAS",
13523                                        "CJS",
13524                                        "ELAS_THM",
13525                                        "SURF_ETAT_NSAT",
13526                                        "SURF_ETAT_SATU",
13527                                        "CAM_CLAY_THM",
13528 # THMC
13529                                        "GAZ",
13530                                        "LIQU_SATU",
13531                                        "LIQU_SATU_GAT",
13532                                        "LIQU_GAZ_ATM",
13533                                        "LIQU_VAPE_GAZ",
13534                                        "LIQU_NSAT_GAT",
13535                                        "LIQU_GAZ",
13536 # THER
13537                                        "THER_HOMO",
13538                                        "THER_POLY",
13539 # HYDR
13540                                        "HYDR_UTIL",
13541                                        "HYDR",
13542 # MECA_META
13543                                        "ACIER",
13544                                        "ZIRC",
13545 # MECA KIT_DDI
13546                                        "VMIS_ISOT_TRAC",
13547                                        "VMIS_ISOT_LINE",
13548                                        "VMIS_ISOT_CINE",
13549                                        "GRANGER_FP",
13550                                        "GRANGER_FP_V",
13551                                        "ROUSSELIER",
13552                                        "CHABOCHE",
13553                                        "OHNO",
13554                                        "NADAI_B",
13555                                        "BETON_DOUBLE_DP",
13556                                        ) ),
13557            ELAS_THM        =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13558            SURF_ETAT_NSAT  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13559            SURF_ETAT_SATU  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13560            CAM_CLAY_THM    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
13561            GAZ             =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13562            LIQU_SATU       =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
13563            LIQU_SATU_GAT   =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
13564            LIQU_GAZ_ATM    =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
13565            LIQU_VAPE_GAZ   =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
13566            LIQU_NSAT_GAT   =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
13567            LIQU_GAZ        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
13568            THER_HOMO       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
13569            THER_POLY       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
13570            HYDR_UTIL       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
13571            HYDR            =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
13572            ACIER           =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
13573            ZIRC            =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
13574
13575            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC","SIMO_MIEHE","GREEN_GR","GREEN",)),
13576            ALGO_C_PLAN     =SIMP(statut='f',typ='TXM',defaut="ANALYTIQUE",into=("DEBORST","ANALYTIQUE",)),
13577       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
13578            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13579            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
13580            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
13581          ),
13582          COMP_ELAS       =FACT(statut='f',min=1,max='**',
13583            RELATION        =SIMP(statut='o',typ='TXM',defaut="ELAS",
13584                                  into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
13585                                        "ELAS_POUTRE_GR","CABLE")),
13586            ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13587            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13588            ELAS_VMIS_LINE  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13589            ELAS_POUTRE_GR  =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
13590            CABLE           =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
13591            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GREEN","GREEN_GR",) ),
13592       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
13593            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13594            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
13595            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
13596          ),
13597          ETAT_INIT       =FACT(statut='f',min=1,max=1,
13598            regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI','VARI_NON_LOCAL',),
13599                    EXCLUS('EVOL_NOLI','DEPL',),
13600                    EXCLUS('EVOL_NOLI','SIGM',),
13601                    EXCLUS('EVOL_NOLI','VARI',),
13602                    EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
13603                    EXCLUS('NUME_ORDRE','INST'), ),
13604            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
13605            SIGM            =SIMP(statut='f',typ=(cham_elem_sief_r,carte_sief_r)),
13606            VARI            =SIMP(statut='f',typ=cham_elem_vari_r),
13607            VARI_NON_LOCAL  =SIMP(statut='f',typ=cham_no_vanl_r),
13608            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
13609            NUME_ORDRE      =SIMP(statut='f',typ='I'),
13610            INST            =SIMP(statut='f',typ='R'),
13611            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
13612            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
13613            NUME_DIDI       =SIMP(statut='f',typ='I'),
13614            INST_ETAT_INIT  =SIMP(statut='f',typ='R'),
13615          ),
13616          INCREMENT       =FACT(statut='o',min=1,max=1,
13617            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
13618                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
13619            LIST_INST       =SIMP(statut='o',typ=listr8),
13620            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
13621                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
13622            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
13623            INST_INIT       =SIMP(statut='f',typ='R'),
13624            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
13625            INST_FIN        =SIMP(statut='f',typ='R'),
13626            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
13627            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
13628            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
13629            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
13630          ),
13631          NEWTON          =FACT(statut='d',min=1,max=1,
13632            REAC_INCR       =SIMP(statut='f',typ='I',defaut= 1 ),
13633            PREDICTION      =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
13634            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
13635            PAS_MINI_ELAS   =SIMP(statut='f',typ='R',defaut=0.0E+0),
13636            REAC_ITER       =SIMP(statut='f',typ='I',defaut=0),
13637            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
13638          ),
13639          RECH_LINEAIRE   =FACT(statut='f',min=1,max=1,
13640            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
13641            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 3),
13642          ),
13643          PILOTAGE        =FACT(statut='f',min=1,max=1,
13644            regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
13645            TYPE    =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","PRED_ELAS_INCR","DEFORMATION","ANA_LIM") ),
13646            COEF_MULT       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
13647            ETA_PILO_MAX    =SIMP(statut='f',typ='R'),
13648            ETA_PILO_MIN    =SIMP(statut='f',typ='R'),
13649            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13650            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
13651            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
13652            NOEUD           =SIMP(statut='f',typ=no,max='**'),
13653            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
13654            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**' ),
13655                          ),
13656          CONVERGENCE     =FACT(statut='d',min=1,max=1,
13657            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
13658            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
13659            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
13660            ITER_GLOB_ELAS  =SIMP(statut='f',typ='I',defaut=25),
13661            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
13662            RESI_INTE_RELA  =SIMP(statut='f',typ='R'
13663                                 ,defaut= 1.0E-6),
13664            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
13665            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut= 0 ),
13666            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
13667            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
13668                                  into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
13669          ),
13670          PARM_THETA      =SIMP(statut='f',typ='R'
13671                               ,defaut= 1. ),
13672          SOLVEUR         =FACT(statut='d',min=1,max=1,
13673            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
13674            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
13675              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
13676            ),
13677            b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
13678              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
13679            ),
13680            b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
13681                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
13682              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
13683              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","DECOUPE") ),
13684            ),
13685            b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
13686              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
13687              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
13688              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
13689              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
13690              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
13691            ),
13692 #  A quoi sert eps
13693            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
13694            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
13695          ),
13696          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
13697            regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
13698                    EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
13699            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
13700            INST            =SIMP(statut='f',typ='R',max='**' ),
13701            PAS_ARCH        =SIMP(statut='f',typ='I' ),
13702            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
13703            ARCH_ETAT_INIT  =SIMP(statut='f',typ='TXM',into=("OUI",)),
13704            NUME_INIT       =SIMP(statut='f',typ='I'),
13705            DETR_NUME_SUIV  =SIMP(statut='f',typ='TXM',into=("OUI",)),
13706            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","SIEF_ELGA","VARI_ELGA",
13707                                                                      "VARI_NON_LOCAL","LANL_ELGA")),
13708          ),
13709          OBSERVATION     =FACT(statut='f',min=1,max='**',
13710            regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
13711                    PRESENT_PRESENT('MAILLE','POINT'),),
13712            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',into=("DEPL","VITE","ACCE","SIEF_ELGA",
13713                                               "VARI_ELGA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU")),
13714            NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
13715            LIST_ARCH       =SIMP(statut='f',typ=listis),
13716            LIST_INST       =SIMP(statut='f',typ=listr8),
13717            INST            =SIMP(statut='f',typ='R',max='**' ),
13718            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
13719            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
13720            PAS_OBSE        =SIMP(statut='f',typ='I'),
13721            NOEUD           =SIMP(statut='f',typ=no,max='**'),
13722            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
13723            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
13724            POINT           =SIMP(statut='f',typ='I',max='**'),
13725          ),
13726          MODELE_NON_LOCAL=SIMP(statut='f',typ=modele ),
13727          b_non_local = BLOC ( condition = "MODELE_NON_LOCAL != None",
13728                               fr="Données spécifiques au modèle non local",
13729            SOLV_NON_LOCAL  =FACT(statut='f',min=1,max=1,
13730              METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
13731              b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
13732                RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
13733              ),
13734              b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
13735                RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
13736              ),
13737              b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
13738                                     fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
13739                NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
13740                STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13741              ),
13742              b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
13743                PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
13744                NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
13745                RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
13746                NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
13747              ),
13748              EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
13749            ),
13750            LAGR_NON_LOCAL  =FACT(statut='f',max=1,
13751              ITER_DUAL_MAXI  =SIMP(statut='f',typ='I',defaut= 50),
13752              RESI_DUAL_ABSO  =SIMP(statut='o',typ='R'),
13753              RESI_PRIM_ABSO  =SIMP(statut='o',typ='R'),
13754              RHO             =SIMP(statut='f',typ='R',defaut= 1000.),
13755              ITER_PRIM_MAXI  =SIMP(statut='f',typ='I',defaut= 10),
13756            ),
13757          ),
13758          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
13759          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
13760  )  ;
13761 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
13762 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13763 # ======================================================================
13764 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13765 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
13766 #              REDISTRIBUTION OF THIS FILE.
13767 # ======================================================================
13768 # RESPONSABLE MCOURTOI M.COURTOIS
13769 TEST_FONCTION=PROC(nom="TEST_FONCTION",op= 135,fr="Extraction d une valeur numérique ou d un attribut de fonction",
13770                    docu="U4.92.02-e1",
13771          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
13772          TEST_NOOK       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
13773          VALEUR          =FACT(statut='f',min=01,max='**',
13774                                fr="Tester la valeur d une fonction ou d une nappe",
13775            regles=(UN_PARMI('VALE_REFE','VALE_REFE_C', ),),
13776            FONCTION        =SIMP(statut='o',typ=fonction ),
13777            NOM_PARA        =SIMP(statut='f',typ='TXM',max=2),
13778            VALE_PARA       =SIMP(statut='o',typ='R',max=2),
13779            VALE_REFE       =SIMP(statut='f',typ='R' ),
13780            VALE_REFE_C     =SIMP(statut='f',typ='C' ),
13781            CRITERE         =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
13782                                  defaut="RELATIF",into=("RELATIF","ABSOLU") ),
13783            PRECISION       =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
13784                                  defaut= 1.E-3 ),
13785            REFERENCE       =SIMP(statut='f',typ='TXM',
13786                                  into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
13787            b_version = BLOC (condition = "REFERENCE == 'NON_REGRESSION'",
13788              VERSION         =SIMP(statut='f',typ='TXM' ),
13789            ),
13790          ),
13791          ATTRIBUT        =FACT(statut='f',min=01,max='**',
13792                                fr="Tester la valeur d un attribut d une fonction ou d''une nappe",
13793            FONCTION        =SIMP(statut='o',typ=fonction ),
13794            PARA            =SIMP(statut='f',typ='R' ),
13795            CRIT_PARA       =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
13796            PREC_PARA       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
13797            ATTR            =SIMP(statut='o',typ='TXM',
13798                                  into=("NOM_PARA","NOM_RESU","PROL_DROITE","PROL_GAUCHE","INTERPOL",
13799                                        "PROL_GAUCHE_FONC","PROL_DROITE_FONC","INTERPOL_FONC","NOM_PARA_FONC") ),
13800            ATTR_REFE       =SIMP(statut='o',typ='TXM' ),
13801            REFERENCE       =SIMP(statut='f',typ='TXM',
13802                                  into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
13803            b_version       =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
13804              VERSION         =SIMP(statut='f',typ='TXM' ),
13805            ),
13806          ),
13807          TABL_INTSP      =FACT(statut='f',min=01,max='**',
13808                                fr="Tester la valeur d une fonction contenue dans une table interspectrale",
13809            regles=(UN_PARMI('NUME_ORDRE_I','NOEUD_I'),),
13810            INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
13811            NOEUD_I         =SIMP(statut='f',typ=no),
13812            NUME_ORDRE_I    =SIMP(statut='f',typ='I' ),
13813            b_nume_ordre_i = BLOC (condition = "NUME_ORDRE_I != None",
13814              NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
13815            ),
13816            b_noeud_i = BLOC (condition = "NOEUD_I != None",
13817              NOEUD_J         =SIMP(statut='o',typ=no),
13818              NOM_CMP_I       =SIMP(statut='o',typ='TXM' ),
13819              NOM_CMP_J       =SIMP(statut='o',typ='TXM' ),
13820            ),
13821            NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
13822            VALE_PARA       =SIMP(statut='o',typ='R' ),
13823            VALE_REFE_C     =SIMP(statut='o',typ='C' ),
13824            CRITERE         =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
13825                                  defaut="RELATIF",into=("RELATIF","ABSOLU") ),
13826            PRECISION       =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
13827                                  defaut= 1.E-3 ),
13828            REFERENCE       =SIMP(statut='f',typ='TXM',
13829                                  into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
13830            b_version       =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
13831              VERSION         =SIMP(statut='f',typ='TXM' ),
13832            ),
13833          ),
13834 )  ;
13835 #& MODIF COMMANDE  DATE 22/11/2001   AUTEUR VABHHTS J.PELLET
13836 # RESPONSABLE VABHHTS J.PELLET
13837 TEST_RESU=PROC(nom="TEST_RESU",op=23,docu="U4.92.01-f1",
13838          fr="Extraction d une valeur et comparaison à une valeur de référence",
13839          regles=(AU_MOINS_UN('CHAM_NO','CHAM_ELEM','RESU','OBJET')),
13840          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
13841
13842          CHAM_NO         =FACT(statut='f',min=01,max='**',
13843            regles=(UN_PARMI('NOEUD','GROUP_NO','TYPE_TEST'),
13844                    EXCLUS('NOEUD','GROUP_NO'),
13845                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
13846                    PRESENT_PRESENT( 'GROUP_NO','NOM_CMP'),
13847                    UN_PARMI('VALE','VALE_I','VALE_C'),),
13848            CHAM_GD         =SIMP(statut='o',typ=cham_no),
13849            NOEUD           =SIMP(statut='f',typ=no,max='**'),
13850            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
13851            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
13852            TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
13853            VALE            =SIMP(statut='f',typ='R'),
13854            VALE_I          =SIMP(statut='f',typ='I'),
13855            VALE_C          =SIMP(statut='f',typ='C'),
13856            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
13857            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
13858            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
13859                                                             "NON_REGRESSION","AUTRE_ASTER")),
13860            VERSION         =SIMP(statut='f',typ='TXM'),
13861          ),
13862
13863          CHAM_ELEM       =FACT(statut='f',min=01,max='**',
13864            regles=(UN_PARMI('MAILLE','TYPE_TEST',),
13865                    EXCLUS('NOEUD','GROUP_NO','POINT'),
13866                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
13867                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
13868                    PRESENT_PRESENT('POINT','NOM_CMP'),
13869                    UN_PARMI('VALE','VALE_I','VALE_C'), ),
13870            CHAM_GD         =SIMP(statut='o',typ=cham_elem),# CO()
13871            MAILLE          =SIMP(statut='f',typ=ma),# CO()
13872            POINT           =SIMP(statut='f',typ='I' ),
13873            SOUS_POINT      =SIMP(statut='f',typ='I'),
13874            NOEUD           =SIMP(statut='f',typ=no),# CO()
13875            GROUP_NO        =SIMP(statut='f',typ=grno),# CO()
13876            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
13877            TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
13878            VALE            =SIMP(statut='f',typ='R' ),
13879            VALE_I          =SIMP(statut='f',typ='I' ),
13880            VALE_C          =SIMP(statut='f',typ='C' ),
13881            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
13882            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
13883            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
13884                                                             "NON_REGRESSION","AUTRE_ASTER") ),
13885            VERSION         =SIMP(statut='f',typ='TXM' ),
13886          ),
13887
13888          RESU            =FACT(statut='f',min=01,max='**',
13889            regles=(UN_PARMI('NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP','NOM_CAS','ANGL'),
13890                    UN_PARMI('NOM_CHAM','PARA'),
13891                    PRESENT_ABSENT('PARA','NOEUD','GROUP_NO','POINT','NOM_CMP','TYPE_TEST'),
13892                    PRESENT_PRESENT('NOM_CMP','NOM_CHAM'),
13893                    EXCLUS('NOEUD','GROUP_NO','POINT','TYPE_TEST'),
13894                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
13895                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
13896                    PRESENT_PRESENT('POINT','NOM_CMP'),
13897                    UN_PARMI('VALE','VALE_I','VALE_C') ,),
13898            RESULTAT        =SIMP(statut='o',typ=resultat),
13899            SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
13900                                  fr="Liste des paramètres de sensibilité.",
13901                                  ang="List of sensitivity parameters"),
13902            NUME_ORDRE      =SIMP(statut='f',typ='I'),
13903            INST            =SIMP(statut='f',typ='R'),
13904            FREQ            =SIMP(statut='f',typ='R'),
13905            NUME_MODE       =SIMP(statut='f',typ='I'),
13906            NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**' ),
13907            NOM_CAS         =SIMP(statut='f',typ='TXM'),
13908            ANGL            =SIMP(statut='f',typ='R'),
13909            PARA            =SIMP(statut='f',typ='TXM'),
13910            NOM_CHAM        =SIMP(statut='f',typ='TXM'),
13911            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
13912            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
13913            NOEUD           =SIMP(statut='f',typ=no,max='**'),
13914            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
13915            POINT           =SIMP(statut='f',typ='I'),
13916            SOUS_POINT      =SIMP(statut='f',typ='I'),
13917            TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
13918            VALE            =SIMP(statut='f',typ='R'),
13919            VALE_I          =SIMP(statut='f',typ='I'),
13920            VALE_C          =SIMP(statut='f',typ='C'),
13921            CRITERE         =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),max=02),
13922            PRECISION       =SIMP(statut='f',typ='R',max=02),
13923            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
13924                                                             "NON_REGRESSION","AUTRE_ASTER",) ),
13925            VERSION         =SIMP(statut='f',typ='TXM' ),
13926          ),
13927
13928          OBJET           =FACT(statut='f',max='**',
13929            regles=(UN_PARMI('INDICE','S_I','S_R','RESUME',),
13930                  UN_PARMI('VALE','VALE_I','VALE_C','RESUME','S_R','S_I'),),
13931            NOM             =SIMP(statut='o',typ='TXM'),
13932            INDICE          =SIMP(statut='f',typ='I'),
13933            NUM_OBJ         =SIMP(statut='f',typ='I'),
13934            S_R             =SIMP(statut='f',typ='R'),
13935            S_I             =SIMP(statut='f',typ='I'),
13936            RESUME          =SIMP(statut='f',typ='I'),
13937            VALE            =SIMP(statut='f',typ='R'),
13938            VALE_I          =SIMP(statut='f',typ='I'),
13939            VALE_C          =SIMP(statut='f',typ='C'),
13940            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
13941            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
13942            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
13943                                                             "NON_REGRESSION","AUTRE_ASTER",) ),
13944            VERSION         =SIMP(statut='f',typ='TXM' ),
13945          ),
13946 )  ;
13947 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
13948 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13949 # ======================================================================
13950 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13951 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
13952 #              REDISTRIBUTION OF THIS FILE.
13953 # ======================================================================
13954 # RESPONSABLE VABHHTS J.PELLET
13955 TEST_TABLE=PROC(nom="TEST_TABLE",op= 177,
13956                 docu="U4.92.03-b1",
13957          regles=(UN_PARMI('VALE','VALE_I','VALE_C', ),),
13958          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
13959 #  concept table à créer
13960          TABLE           =SIMP(statut='o',typ=table),
13961
13962          FILTRE          =FACT(statut='f',min=1,max='**',
13963            NOM_PARA        =SIMP(statut='o',typ='TXM' ),
13964            CRIT_COMP       =SIMP(statut='f',typ='TXM',defaut="EQ",
13965                                  into=("EQ","LT","GT","NE","LE","GE","VIDE",
13966                                        "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
13967            b_vale          =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
13968               regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
13969               VALE            =SIMP(statut='f',typ='R' ),
13970               VALE_I          =SIMP(statut='f',typ='I' ),
13971               VALE_C          =SIMP(statut='f',typ='C' ),
13972               VALE_K          =SIMP(statut='f',typ='TXM' ),),
13973
13974            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
13975            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
13976          ),
13977          TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
13978          NOM_PARA        =SIMP(statut='o',typ='TXM' ),
13979          VALE            =SIMP(statut='f',typ='R' ),
13980          VALE_I          =SIMP(statut='f',typ='I' ),
13981          VALE_C          =SIMP(statut='f',typ='C' ),
13982          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
13983          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.2E-3 ),
13984          REFERENCE       =SIMP(statut='f',typ='TXM',
13985                                into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
13986          b_version       =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
13987              VERSION         =SIMP(statut='f',typ='TXM' ),
13988          ),
13989 )  ;
13990 #& MODIF COMMANDE  DATE 04/12/2001   AUTEUR GNICOLAS G.NICOLAS
13991 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13992 # ======================================================================
13993 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13994 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
13995 #              REDISTRIBUTION OF THIS FILE.
13996 # ======================================================================
13997 THER_LINEAIRE=OPER(nom="THER_LINEAIRE",op=25,sd_prod=evol_ther,docu="U4.54.01-f1",reentrant='f',
13998                    fr="Analyse thermique linéaire stationnaire ou transitoire",
13999          MODELE          =SIMP(statut='o',typ=modele),
14000          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
14001          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
14002          EXCIT           =FACT(statut='o',min=1,max='**',
14003            CHARGE          =SIMP(statut='o',typ=(char_ther,char_cine_ther)),
14004            FONC_MULT       =SIMP(statut='f',typ=fonction),
14005          ),
14006          INCREMENT       =FACT(statut='f',min=1,max=1,
14007            LIST_INST       =SIMP(statut='o',typ=listr8 ),
14008            NUME_INIT       =SIMP(statut='f',typ='I'),
14009            NUME_FIN        =SIMP(statut='f',typ='I'),
14010          ),
14011          TEMP_INIT       =FACT(statut='f',min=1,max=1,
14012            regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
14013            STATIONNAIRE    =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14014            EVOL_THER       =SIMP(statut='f',typ=evol_ther),
14015            CHAM_NO         =SIMP(statut='f',typ=cham_no_temp_r),
14016            VALE            =SIMP(statut='f',typ='R'),
14017            NUME_INIT       =SIMP(statut='f',typ='I'),
14018          ),
14019          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
14020                                fr="Liste des paramètres de sensibilité.",
14021                                ang="List of sensitivity parameters",
14022          ),
14023            SENS_INIT       =FACT(statut='f',min=1,max=1,
14024              regles=(EXCLUS('STATIONNAIRE','EVOL_THER', ),),
14025              STATIONNAIRE    =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14026              EVOL_THER       =SIMP(statut='f',typ=evol_ther),
14027              NUME_INIT       =SIMP(statut='f',typ='I'),
14028            ),
14029          SOLVEUR         =FACT(statut='d',min=1,max=1,
14030            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
14031            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
14032              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
14033            ),
14034            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
14035              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
14036              TAILLE_BLOC     =SIMP(statut='f',typ='R',defaut= 400. ),
14037            ),
14038            b_ldlt_mult      =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
14039                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
14040              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
14041              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
14042            ),
14043            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
14044              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
14045              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
14046              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
14047              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
14048              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
14049            ),
14050 #  A quoi sert eps
14051            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
14052          ),
14053          PARM_THETA      =SIMP(statut='f',typ='R',defaut= 0.57),
14054          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
14055            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST'),),
14056            LIST_ARCH       =SIMP(statut='f',typ=listis),
14057            LIST_INST       =SIMP(statut='f',typ=listr8),
14058            INST            =SIMP(statut='f',typ='R',max='**'),
14059            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
14060            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
14061                                  into=("RELATIF","ABSOLU")),
14062            PAS_ARCH        =SIMP(statut='f',typ='I'),
14063            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',into=("VARI",)),
14064          ),
14065          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
14066          INFO            =SIMP(statut='f',typ='I',into=(1,2)),
14067 )  ;
14068 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
14069 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14070 # ======================================================================
14071 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14072 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
14073 #              REDISTRIBUTION OF THIS FILE.
14074 # ======================================================================
14075 THER_NON_LINE=OPER(nom="THER_NON_LINE",op= 186,sd_prod=evol_ther,docu="U4.54.02-d",reentrant='f',
14076                    fr="Analyse thermique non linéaire stationnaire ou transitoire" ,
14077          MODELE          =SIMP(statut='o',typ=(modele) ),
14078          CHAM_MATER      =SIMP(statut='o',typ=(cham_mater) ),
14079          CARA_ELEM       =SIMP(statut='c',typ=(cara_elem) ),
14080          COMP_THER_NL    =FACT(statut='d',min=1,max='**',
14081            RELATION        =SIMP(statut='f',typ='TXM',defaut="THER_NL",
14082                                  into=("THER_NL",
14083                                        "THER_HYDR",
14084                                        "SECH_GRANGER",
14085                                        "SECH_MENSI",
14086                                        "SECH_BAZANT",
14087                                        "SECH_NAPPE"
14088                                        ) ),
14089       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
14090            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14091            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
14092            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
14093          ),
14094          EVOL_THER_SECH  =SIMP(statut='f',typ=evol_ther),
14095          EXCIT           =FACT(statut='o',min=1,max='**',
14096            CHARGE          =SIMP(statut='o',typ=char_ther),
14097            FONC_MULT       =SIMP(statut='f',typ=fonction),
14098          ),
14099          INCREMENT       =FACT(statut='f',min=1,max=1,
14100            LIST_INST       =SIMP(statut='o',typ=listr8),
14101            NUME_INIT       =SIMP(statut='f',typ='I'),
14102            NUME_FIN        =SIMP(statut='f',typ='I'),
14103          ),
14104          TEMP_INIT       =FACT(statut='f',min=1,max=1,
14105            regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
14106            STATIONNAIRE    =SIMP(statut='f',typ='TXM',into=("OUI",)),
14107            EVOL_THER       =SIMP(statut='f',typ=evol_ther),
14108            CHAM_NO         =SIMP(statut='f',typ=cham_no_temp_r),
14109            VALE            =SIMP(statut='f',typ='R'),
14110            NUME_INIT       =SIMP(statut='f',typ='I'),
14111          ),
14112          NEWTON          =FACT(statut='d',min=1,max=1,
14113            REAC_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
14114            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
14115            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 0 ),
14116          ),
14117          CONVERGENCE     =FACT(statut='d',min=1,max=1,
14118            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
14119            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
14120            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
14121          ),
14122          SOLVEUR         =FACT(statut='d',min=1,max=1,
14123            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
14124            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Parametres de la méthode multi frontale",
14125              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
14126            ),
14127            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Parametres de la méthode LDLT",
14128              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
14129            ),
14130            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
14131                                    fr="Parametres relatifs a la non inversibilité de la matrice a factorise",
14132              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
14133              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
14134            ),
14135            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Parametres de la méthode du gradient conjugué",
14136              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
14137              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
14138              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
14139              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
14140              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
14141            ),
14142 #  A quoi sert eps
14143            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
14144            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
14145          ),
14146          PARM_THETA      =SIMP(statut='f',typ='R',defaut= 0.57 ),
14147          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
14148            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST', ),),
14149            LIST_ARCH       =SIMP(statut='f',typ=(listis) ),
14150            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
14151            INST            =SIMP(statut='f',typ='R',max='**'),
14152            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
14153            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
14154            PAS_ARCH        =SIMP(statut='f',typ='I'),
14155            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',into=("VARI",)),
14156          ),
14157          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
14158          OPTION          =SIMP(statut='f',typ='TXM',max='**',
14159                                into=("FLUX_ELGA_TEMP","FLUX_ELNO_TEMP") ),
14160          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
14161 )  ;
14162 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
14163 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14164 # ======================================================================
14165 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14166 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
14167 #              REDISTRIBUTION OF THIS FILE.
14168 # ======================================================================
14169 THER_NON_LINE_MO=OPER(nom="THER_NON_LINE_MO",op= 171,sd_prod=evol_ther,
14170                      fr="Thermique non lineaire en repere mobile",
14171                      docu="U4.54.03-b",reentrant='f',
14172          MODELE          =SIMP(statut='o',typ=modele ),
14173          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
14174          CARA_ELEM       =SIMP(statut='c',typ=cara_elem ),
14175          EXCIT           =FACT(statut='o',min=1,max='**',
14176            CHARGE          =SIMP(statut='o',typ=char_ther ),
14177            FONC_MULT       =SIMP(statut='c',typ=fonction ),
14178          ),
14179          TEMP_INIT       =FACT(statut='f',min=1,max=1,
14180            EVOL_THER       =SIMP(statut='f',typ=evol_ther ),
14181            NUME_INIT       =SIMP(statut='f',typ='I',defaut= 0 ),
14182          ),
14183          CONVERGENCE     =FACT(statut='d',min=1,max=1,
14184            CRIT_TEMP_RELA  =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
14185            CRIT_ENTH_RELA  =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
14186            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
14187            ARRET           =SIMP(statut='c',typ='TXM',defaut="OUI",into=("OUI","NON") ),
14188          ),
14189          SOLVEUR         =FACT(statut='d',min=1,max=1,
14190            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
14191            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
14192              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
14193            ),
14194            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
14195              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
14196            ),
14197            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
14198                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
14199              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
14200              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
14201            ),
14202            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
14203              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
14204              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
14205              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
14206              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
14207              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
14208            ),
14209            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
14210            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
14211          ),
14212          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
14213          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
14214 )  ;
14215
14216
14217