Aster/Cata/cataSTA6/cata.py

   1 # -*- coding: iso-8859-1 -*-
   2 #& MODIF COMMANDE  DATE 03/02/2003   AUTEUR DURAND C.DURAND
   3 #            CONFIGURATION MANAGEMENT OF EDF VERSION
   4 # ======================================================================
   5 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
   6 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
   7 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
   8 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
   9 # (AT YOUR OPTION) ANY LATER VERSION.
  10 #
  11 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
  12 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
  13 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
  14 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
  15 #
  16 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
  17 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
  18 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
  19 # ======================================================================
  20 import Accas
  21 from Accas import *
  22 from Accas import _F
  23
  24 import ops
  25
  26 try:
  27   import aster
  28 except:
  29   pass
  30
  31 #
  32 __version__="$Name:  $"
  33 __Id__="$Id: cata.py,v 1.5.12.2 2007-05-29 17:08:48 cchris Exp $"
  34 #
  35 JdC = JDC_CATA(code='ASTER',
  36                execmodul=None,
  37                regles = (AU_MOINS_UN('DEBUT','POURSUITE'),
  38                          AU_MOINS_UN('FIN'),
  39                          A_CLASSER(('DEBUT','POURSUITE'),'FIN')))
  40
  41 #compatibilite avec V9
  42 import Noyau
  43 class ASSD(ASSD,Noyau.AsBase):pass
  44 class GEOM(GEOM,Noyau.AsBase):pass
  45 #fin compatibilite
  46
  47 # Type le plus general
  48 class entier  (ASSD):pass
  49 class reel    (ASSD):pass
  50 class complexe(ASSD):pass
  51 class chaine  (ASSD):pass
  52
  53
  54 # Type geometriques
  55 class no  (GEOM):pass
  56 class grno(GEOM):pass
  57 class ma  (GEOM):pass
  58 class grma(GEOM):pass
  59
  60
  61
  62 # Autres
  63
  64 class cabl_precont    (ASSD):pass
  65 class cara_elem       (ASSD):pass
  66 class cara_pout       (ASSD):pass
  67 class cham_mater      (ASSD):pass
  68 class char_acou       (ASSD):pass
  69 class char_cine_acou  (ASSD):pass
  70 class char_cine_meca  (ASSD):pass
  71 class char_cine_ther  (ASSD):pass
  72 class char_meca       (ASSD):pass
  73 class char_ther       (ASSD):pass
  74 class courbe          (ASSD):pass
  75 class fond_fiss       (ASSD):pass
  76 class interf_dyna_clas(ASSD):pass
  77 class interspfact     (ASSD):pass
  78 class listis          (ASSD):pass
  79 class liste           (ASSD):pass
  80 class macr_elem_dyna  (ASSD):pass
  81 class macr_elem_stat  (ASSD):pass
  82 class mater           (ASSD):pass
  83 class melasflu        (ASSD):pass
  84 class modele          (ASSD):pass
  85 class modele_gene     (ASSD):pass
  86 class nume_ddl        (ASSD):pass
  87 class nume_ddl_gene   (ASSD):pass
  88 class obstacle        (ASSD):pass
  89 class spectre         (ASSD):pass
  90 class surface         (ASSD):pass
  91 class tran_gene       (ASSD):pass
  92 class type_flui_stru  (ASSD):pass
  93 class valeur          (ASSD):pass
  94
  95
  96 # liste :
  97 #--------------------------------
  98 class listr8   (ASSD):
  99
 100   def LIST_VALEURS(self) :
 101
 102     """
 103       retourne la liste des valeurs
 104      [ val1, ...]
 105     """
 106
 107     return aster.GetLival(self.get_name(), "VALEURS")
 108
 109
 110
 111 # maillage :
 112 #--------------------------------
 113 class maillage(ASSD):
 114
 115   def LIST_GROUP_NO(self) :
 116
 117     """
 118       retourne la liste des groupes de noeuds sous la forme :
 119         [ (gno1, nb noeuds  gno1), ...]
 120     """
 121
 122     return aster.GetMaillage(self.get_name(), "GROUP_NO")
 123
 124
 125   def LIST_GROUP_MA(self) :
 126
 127     """
 128       retourne la liste des groupes de mailles sous la forme :
 129         [ (gma1, nb mailles gma1, dime max des mailles gma1), ...]
 130     """
 131
 132     return aster.GetMaillage(self.get_name(), "GROUP_MA")
 133
 134
 135 class squelette     (maillage):pass
 136
 137
 138 # cham_gd (carte,cham_no,cham_elem)
 139 #--------------------------------
 140
 141 class cham_gd(ASSD):pass
 142
 143 # cham_gd/carte :
 144 #--------------------------------
 145 class carte(cham_gd):pass
 146 class carte_dbel_r   (carte):pass
 147 class carte_depl_c   (carte):pass
 148 class carte_depl_f   (carte):pass
 149 class carte_depl_r   (carte):pass
 150 class carte_durt_r   (carte):pass
 151 class carte_ener_r   (carte):pass
 152 class carte_epsi_r   (carte):pass
 153 class carte_erreur   (carte):pass
 154 class carte_flux_r   (carte):pass
 155 class carte_g_depl_r (carte):pass
 156 class carte_geom_r   (carte):pass
 157 class carte_hydr_r   (carte):pass
 158 class carte_inst_r   (carte):pass
 159 class carte_inte_r   (carte):pass
 160 class carte_irra_r   (carte):pass
 161 class carte_meta_r   (carte):pass
 162 class carte_neut_f   (carte):pass
 163 class carte_neut_r   (carte):pass
 164 class carte_pres_r   (carte):pass
 165 class carte_sief_r   (carte):pass
 166 class carte_sour_r   (carte):pass
 167 class carte_temp_f   (carte):pass
 168 class carte_temp_r   (carte):pass
 169 class carte_var2_r   (carte):pass
 170 class carte_vnor_c   (carte):pass
 171
 172
 173 # cham_gd/cham_elem :
 174 #--------------------------------
 175 class cham_elem(cham_gd):pass
 176 class cham_elem_crit_r(cham_elem):pass
 177 class cham_elem_dbel_r(cham_elem):pass
 178 class cham_elem_depl_c(cham_elem):pass
 179 class cham_elem_depl_f(cham_elem):pass
 180 class cham_elem_depl_r(cham_elem):pass
 181 class cham_elem_dommag(cham_elem):pass
 182 class cham_elem_durt_r(cham_elem):pass
 183 class cham_elem_ener_r(cham_elem):pass
 184 class cham_elem_epsi_c(cham_elem):pass
 185 class cham_elem_epsi_r(cham_elem):pass
 186 class cham_elem_erreur(cham_elem):pass
 187 class cham_elem_facy_r(cham_elem):pass
 188 class cham_elem_flux_r(cham_elem):pass
 189 class cham_elem_g_depl(cham_elem):pass
 190 class cham_elem_geom_r(cham_elem):pass
 191 class cham_elem_hydr_r(cham_elem):pass
 192 class cham_elem_inst_r(cham_elem):pass
 193 class cham_elem_inte_r(cham_elem):pass
 194 class cham_elem_irra_r(cham_elem):pass
 195 class cham_elem_meta_r(cham_elem):pass
 196 class cham_elem_neut_f(cham_elem):pass
 197 class cham_elem_neut_r(cham_elem):pass
 198 class cham_elem_pres_r(cham_elem):pass
 199 class cham_elem_sief_c(cham_elem):pass
 200 class cham_elem_sief_r(cham_elem):pass
 201 class cham_elem_sour_r(cham_elem):pass
 202 class cham_elem_temp_f(cham_elem):pass
 203 class cham_elem_temp_r(cham_elem):pass
 204 class cham_elem_vari_r(cham_elem):pass
 205 class cham_elem_vnor_c(cham_elem):pass
 206
 207
 208 # cham_gd/cham_no :
 209 #--------------------------------
 210 class cham_no(cham_gd):pass
 211 class cham_no_dbel_r   (cham_no):pass
 212 class cham_no_depl_c   (cham_no):pass
 213 class cham_no_depl_f   (cham_no):pass
 214 class cham_no_depl_r   (cham_no):pass
 215 class cham_no_durt_r   (cham_no):pass
 216 class cham_no_ener_r   (cham_no):pass
 217 class cham_no_epsi_r   (cham_no):pass
 218 class cham_no_erreur   (cham_no):pass
 219 class cham_no_flux_r   (cham_no):pass
 220 class cham_no_g_depl_r (cham_no):pass
 221 class cham_no_geom_r   (cham_no):pass
 222 class cham_no_hydr_r   (cham_no):pass
 223 class cham_no_inst_r   (cham_no):pass
 224 class cham_no_inte_r   (cham_no):pass
 225 class cham_no_irra_r   (cham_no):pass
 226 class cham_no_meta_r   (cham_no):pass
 227 class cham_no_neut_f   (cham_no):pass
 228 class cham_no_neut_r   (cham_no):pass
 229 class cham_no_pres_c   (cham_no):pass
 230 class cham_no_pres_r   (cham_no):pass
 231 class cham_no_sief_r   (cham_no):pass
 232 class cham_no_sour_r   (cham_no):pass
 233 class cham_no_temp_c   (cham_no):pass
 234 class cham_no_temp_f   (cham_no):pass
 235 class cham_no_temp_r   (cham_no):pass
 236 class cham_no_vanl_r   (cham_no):pass
 237 class cham_no_var2_r   (cham_no):pass
 238 class cham_no_vnor_c   (cham_no):pass
 239
 240
 241 # resultat : (evol,mode_stat,mode_meca)
 242 #--------------------------------
 243
 244 class resultat(ASSD):
 245   def __getitem__(self,key):
 246     return aster.getpara(self.get_name(),"RESULTAT",key[0],key[1])
 247
 248   def LIST_CHAMPS (self) :
 249     return aster.GetResu(self.get_name(), "CHAMPS")
 250
 251   def LIST_NOM_CMP (self) :
 252     return aster.GetResu(self.get_name(), "COMPOSANTES")
 253
 254   def LIST_VARI_ACCES (self) :
 255     return aster.GetResu(self.get_name(), "VARI_ACCES")
 256
 257
 258 class acou_harmo    (resultat):pass
 259 class base_modale     (resultat):pass
 260 class comb_fourier  (resultat):pass
 261 class dyna_harmo    (resultat):pass
 262 class dyna_trans    (resultat):pass
 263 class fourier_elas  (resultat):pass
 264 class harm_gene     (resultat):pass
 265 class mode_acou     (resultat):pass
 266 class mode_cycl     (resultat):pass
 267 class mode_flamb    (resultat):pass
 268 class mode_gene     (resultat):pass
 269 class mult_elas     (resultat):pass
 270 class theta_geom    (resultat):pass
 271
 272 # resultat/evol :
 273 #--------------------------------
 274 class evol(resultat):pass
 275 class evol_char(evol):pass
 276 class evol_elas(evol):pass
 277 class evol_noli(evol):pass
 278 class evol_ther(evol):pass
 279 class evol_varc(evol):pass
 280
 281 # resultat/mode_stat :
 282 #--------------------------------
 283 class mode_stat(resultat):pass
 284 class mode_stat_depl(mode_stat):pass
 285 class mode_stat_acce(mode_stat):pass
 286 class mode_stat_forc(mode_stat):pass
 287
 288
 289 # resultat/mode_meca :
 290 #--------------------------------
 291 class mode_meca(resultat):pass
 292 class mode_meca_c(mode_meca):pass
 293
 294
 295 # fonction :
 296 #--------------------------------
 297 class para_sensi(fonction):pass
 298 class fonction_c(fonction):pass
 299
 300
 301 # matr_asse :
 302 #--------------------------------
 303 class matr_asse(ASSD):pass
 304 class matr_asse_depl_c(matr_asse):pass
 305 class matr_asse_depl_r(matr_asse):pass
 306 class matr_asse_gene_r(matr_asse):pass
 307 class matr_asse_gene_c(matr_asse):pass
 308 class matr_asse_pres_c(matr_asse):pass
 309 class matr_asse_pres_r(matr_asse):pass
 310 class matr_asse_temp_c(matr_asse):pass
 311 class matr_asse_temp_r(matr_asse):pass
 312
 313 # matr_elem :
 314 #--------------------------------
 315 class matr_elem(ASSD):pass
 316 class matr_elem_depl_c(matr_elem):pass
 317 class matr_elem_depl_r(matr_elem):pass
 318 class matr_elem_pres_c(matr_elem):pass
 319 class matr_elem_temp_r(matr_elem):pass
 320
 321
 322
 323
 324 # table : (tabl_fonc)
 325 #--------------------------------
 326
 327 class table(ASSD):
 328   def __getitem__(self,key):
 329     return aster.getpara(self.get_name(),"TABLE",key[0],key[1])
 330
 331 class tabl_aire_int   (table):pass
 332 class tabl_calc_g_loca(table):pass
 333 class tabl_calc_g_th  (table):pass
 334 class tabl_cara_geom  (table):pass
 335 class tabl_char_limite(table):pass
 336 class tabl_ener_elas  (table):pass
 337 class tabl_ener_pot   (table):pass
 338 class tabl_ener_cin   (table):pass
 339 class tabl_trav_ext   (table):pass
 340 class tabl_ener_totale(table):pass
 341 class tabl_indic_ener (table):pass
 342 class tabl_indic_seuil(table):pass
 343 class tabl_intsp      (table):pass
 344 class tabl_mass_iner  (table):pass
 345 class tabl_post_alea  (table):pass
 346 class tabl_post_beta  (table):pass
 347 class tabl_post_dyna  (table):pass
 348 class tabl_post_f_alea(table):pass
 349 class tabl_post_fatig (table):pass
 350 class tabl_post_gouj2e(table):pass
 351 class tabl_post_k     (table):pass
 352 class tabl_post_rccm  (table):pass
 353 class tabl_post_rele  (table):pass
 354 class tabl_post_simpli(table):pass
 355 class tabl_post_usur  (table):pass
 356 class tabl_reca_weib  (table):pass
 357 class tabl_rice_tracey(table):pass
 358 class tabl_texture    (table):pass
 359 class tabl_trc        (table):pass
 360 class tabl_weibull    (table):pass
 361
 362 # table/tabl_fonc
 363 #--------------------------------
 364 class tabl_fonc       (table):pass
 365 class tabl_fonc_max   (tabl_fonc):pass
 366 class tabl_fonc_noci  (tabl_fonc):pass
 367 class tabl_fonc_rms   (tabl_fonc):pass
 368
 369
 370 # vect_asse :
 371 #--------------------------------
 372 class vect_asse(ASSD):pass
 373 class vect_asse_gene(vect_asse):pass
 374
 375
 376 # vect_elem :
 377 #--------------------------------
 378 class vect_elem(ASSD):pass
 379 class vect_elem_depl_r(vect_elem):pass
 380 class vect_elem_pres_c(vect_elem):pass
 381 class vect_elem_pres_r(vect_elem):pass
 382 class vect_elem_temp_r(vect_elem):pass
 383
 384 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
 385 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 386 # ======================================================================
 387 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 388 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
 389 #              REDISTRIBUTION OF THIS FILE.
 390 # ======================================================================
 391 # RESPONSABLE JMBHH01 J.M.PROIX
 392 AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
 393                     fr="Affectation de caractéristiques à des éléments de structure",
 394                     docu="U4.42.01-g",reentrant='n',
 395             UIinfo={"groupes":("Modélisation",)},
 396          regles=(AU_MOINS_UN('POUTRE','BARRE','COQUE','CABLE','DISCRET','MASSIF',
 397                              'ASSE_GRIL','GRILLE','AFFE_SECT','AFFE_FIBRE'),),
 398          MODELE          =SIMP(statut='o',typ=modele ),
 399          INFO            =SIMP(statut='f',typ='I', defaut= 1 ,into=(1,2) ),
 400          VERIF           =SIMP(statut='f',typ='TXM',max='**',into=("MAILLE","NOEUD") ),
 401
 402          POUTRE          =FACT(statut='f',min=1,max='**',
 403            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 404            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 405            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 406            SECTION         =SIMP(statut='o',typ='TXM' ,into=("GENERALE","RECTANGLE","CERCLE") ),
 407            CARA_SECT       =SIMP(statut='f',typ=(cara_pout) ),
 408            TUYAU_NCOU      =SIMP(statut='f',typ='I',min=1,max=10,defaut=3),
 409            TUYAU_NSEC      =SIMP(statut='f',typ='I',min=1,max=32,defaut=16),
 410            b_generale      =BLOC( condition = "SECTION=='GENERALE'",
 411              CARA            =SIMP(statut='o',typ='TXM',max='**',
 412                                  into=("A","IY","IZ","AY","AZ","EY","EZ","JX","RY","RZ","RT",
 413                                                            "AI","JG","IYR2","IZR2","A1",
 414                                        "IY1","IZ1","AY1","AZ1","EY1","EZ1","JX1","RY1",
 415                                        "RZ1","RT1","AI1","JG1","IYR21","IZR21","A2",
 416                                        "IY2","IZ2","AY2","AZ2","EY2","EZ2","JX2","RY2",
 417                                        "RZ2","RT2","AI2","JG2","IYR22","IZR22","H",
 418                                        "HZ","HY","EP","EPY","EPZ","H1","HZ1","HY1",
 419                                        "EP1","EPY1","EPZ1","H2","HZ2","HY2","EP2",
 420                                        "EPY2","EPZ2","R","R1","R2") ),
 421              VALE            =SIMP(statut='o',typ='R',max='**'),
 422              VARI_SECT       =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE",) ),
 423            ),
 424            b_rectangle     =BLOC( condition = "SECTION=='RECTANGLE'",
 425              CARA            =SIMP(statut='o',typ='TXM',max='**',
 426                                  into=("H","EP","HY","HZ","EPY","EPZ",
 427                                                            "H1","HZ1","HY1","EP1","EPY1","EPZ1",
 428                                                            "H2","HZ2","HY2","EP2","EPY2","EPZ2") ),
 429              VALE            =SIMP(statut='o',typ='R',max='**'),
 430              VARI_SECT       =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE","AFFINE"),defaut="HOMOTHETIQUE"),
 431            ),
 432            b_cercle        =BLOC( condition = "SECTION=='CERCLE'",
 433              CARA            =SIMP(statut='o',typ='TXM',max='**',
 434                                  into=("R","EP","R1","R2","EP1","EP2") ),
 435              VALE            =SIMP(statut='o',typ='R',max='**'),
 436              VARI_SECT       =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE",) ),
 437              MODI_METRIQUE   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
 438            ),
 439            FCX             =SIMP(statut='f',typ=(fonction) ),
 440          ),
 441
 442          BARRE           =FACT(statut='f',min=1,max='**',
 443            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 444            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 445            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 446            SECTION         =SIMP(statut='o',typ='TXM',into=("GENERALE","RECTANGLE","CERCLE") ),
 447            b_generale      =BLOC( condition = "SECTION=='GENERALE'",
 448              CARA            =SIMP(statut='o',typ='TXM',into=("A",) ),
 449              VALE            =SIMP(statut='o',typ='R' ),
 450            ),
 451            b_rectangle     =BLOC( condition = "SECTION=='RECTANGLE'",
 452              CARA            =SIMP(statut='o',typ='TXM',into=("H","HZ","HY","EPY","EPZ","EP"),max=6 ),
 453              VALE            =SIMP(statut='o',typ='R',max=6 ),
 454            ),
 455            b_cercle        =BLOC( condition = "SECTION=='CERCLE'",
 456              CARA            =SIMP(statut='o',typ='TXM',max=2,into=("R","EP") ),
 457              VALE            =SIMP(statut='o',typ='R',max=2 ),
 458            ),
 459            FCX             =SIMP(statut='f',typ=(fonction) ),
 460          ),
 461
 462          COQUE           =FACT(statut='f',min=1,max='**',
 463            regles=(UN_PARMI('MAILLE','GROUP_MA' ),
 464                    PRESENT_PRESENT( 'EXCENTREMENT','INER_ROTA' ),),
 465            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 466            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 467            EPAIS           =SIMP(statut='o',typ='R' ),
 468            ANGL_REP        =SIMP(statut='f',typ='R',min=2,max=2),
 469            A_CIS           =SIMP(statut='c',typ='R',defaut= 0.8333333E0),
 470            COEF_RIGI_DRZ   =SIMP(statut='f',typ='R',defaut= 1.0E-5 ),
 471            COQUE_NCOU      =SIMP(statut='f',typ='I',defaut= 1 ),
 472            EXCENTREMENT    =SIMP(statut='f',typ='R' ),
 473            INER_ROTA       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 474            MODI_METRIQUE   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
 475          ),
 476
 477          CABLE           =FACT(statut='f',min=1,max='**',
 478            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 479                    UN_PARMI('A','SECTION') ),
 480            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 481            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 482            N_INIT          =SIMP(statut='f',typ='R',defaut= 5000. ),
 483            A               =SIMP(statut='f',typ='R' ),
 484            SECTION         =SIMP(statut='f',typ='R' ),
 485            FCX             =SIMP(statut='f',typ=(fonction) ),
 486          ),
 487
 488          DISCRET         =FACT(statut='f',min=1,max='**',
 489            regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
 490            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 491            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 492            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 493            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 494            REPERE          =SIMP(statut='f',typ='TXM',into=("LOCAL","GLOBAL") ),
 495            AMOR_HYST       =SIMP(statut='f',typ='R' ),
 496            CARA            =SIMP(statut='o',typ='TXM',max='**',
 497                                  into=("K_T_D_N","K_T_D_L","K_TR_D_N","K_TR_D_L",
 498                                                            "K_T_N",  "K_T_L",  "K_TR_N",  "K_TR_L",
 499                                                                 "M_T_D_N","M_TR_D_N","M_T_N",
 500                                                            "M_T_L",  "M_TR_N",  "M_TR_L",
 501                                        "A_T_D_N","A_TR_D_N","A_T_D_L","A_TR_D_L",
 502                                                            "A_T_N",  "A_T_L",   "A_TR_N", "A_TR_L") ),
 503            VALE            =SIMP(statut='o',typ='R',max='**'),
 504          ),
 505
 506          ORIENTATION     =FACT(statut='f',min=1,max='**',
 507            regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO' ),),
 508            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 509            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 510            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 511            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 512            CARA            =SIMP(statut='o',typ='TXM',
 513                                  into=("VECT_Y","ANGL_VRIL","VECT_X_Y","ANGL_NAUT","GENE_TUYAU") ),
 514            VALE            =SIMP(statut='o',typ='R',max='**'),
 515            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-4 ),
 516            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
 517          ),
 518
 519          DEFI_ARC        =FACT(statut='f',min=1,max='**',
 520            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 521                    UN_PARMI('ORIE_ARC','CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE',
 522                             'POIN_TANG','NOEUD_POIN_TANG','GROUP_NO_POIN_TG'),
 523                    PRESENT_PRESENT('ORIE_ARC','RAYON'),
 524                    EXCLUS('COEF_FLEX','COEF_FLEX_XY'),
 525                    EXCLUS('COEF_FLEX','COEF_FLEX_XZ'),
 526                    EXCLUS('INDI_SIGM','INDI_SIGM_XY'),
 527                    EXCLUS('INDI_SIGM','INDI_SIGM_XZ'),
 528                    PRESENT_PRESENT('COEF_FLEX_XY','COEF_FLEX_XZ'),
 529                    PRESENT_PRESENT('INDI_SIGM_XY','INDI_SIGM_XZ'),),
 530            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 531            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 532            ORIE_ARC        =SIMP(statut='f',typ='R'),
 533            CENTRE          =SIMP(statut='f',typ='R',max='**'),
 534            NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=1),
 535            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno,max=1),
 536            POIN_TANG       =SIMP(statut='f',typ='R',max='**'),
 537            NOEUD_POIN_TANG =SIMP(statut='f',typ=no,max=1),
 538            GROUP_NO_POIN_TG=SIMP(statut='f',typ=grno,max=1),
 539            RAYON           =SIMP(statut='f',typ='R'),
 540            COEF_FLEX       =SIMP(statut='f',typ='R'),
 541            INDI_SIGM       =SIMP(statut='f',typ='R'),
 542            COEF_FLEX_XY    =SIMP(statut='f',typ='R'),
 543            INDI_SIGM_XY    =SIMP(statut='f',typ='R'),
 544            COEF_FLEX_XZ    =SIMP(statut='f',typ='R'),
 545            INDI_SIGM_XZ    =SIMP(statut='f',typ='R'),
 546            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
 547            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
 548          ),
 549
 550          MASSIF          =FACT(statut='f',min=1,max='**',
 551            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 552                    UN_PARMI('ANGL_REP','ANGL_AXE'),
 553                    EXCLUS('ANGL_REP','ANGL_AXE'),
 554                    EXCLUS('ANGL_REP','ORIG_AXE'),
 555                    PRESENT_PRESENT('ANGL_AXE','ORIG_AXE'), ),
 556            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 557            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 558            ANGL_REP        =SIMP(statut='f',typ='R',max=3),
 559            ANGL_AXE        =SIMP(statut='f',typ='R',max=2),
 560            ORIG_AXE        =SIMP(statut='f',typ='R',max=3),
 561          ),
 562
 563          POUTRE_FLUI     =FACT(statut='f',min=1,max='**',
 564            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 565            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 566            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 567            B_T             =SIMP(statut='o',typ='R'),
 568            B_N             =SIMP(statut='o',typ='R'),
 569            B_TN            =SIMP(statut='o',typ='R',defaut= 0.E+0 ),
 570            A_FLUI          =SIMP(statut='o',typ='R'),
 571            A_CELL          =SIMP(statut='o',typ='R'),
 572            COEF_ECHELLE    =SIMP(statut='o',typ='R'),
 573          ),
 574
 575          GRILLE          =FACT(statut='f',min=1,max='**',
 576            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 577                    EXCLUS('ANGL_REP','ORIG_AXE'),
 578                    ENSEMBLE('ORIG_AXE','AXE')),
 579            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 580            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 581            SECTION_L       =SIMP(statut='o',typ='R'),
 582            ANGL_REP        =SIMP(statut='f',typ='R',max=2),
 583            ANGL_L          =SIMP(statut='f',typ='R'),
 584            POUR_CENT_L     =SIMP(statut='f',typ='R'),
 585            POUR_CENT_T     =SIMP(statut='f',typ='R'),
 586            EXCENTREMENT    =SIMP(statut='f',typ='R'),
 587            ORIG_AXE        =SIMP(statut='f',typ='R',max='**'),
 588            AXE             =SIMP(statut='f',typ='R',max='**'),
 589            COEF_RIGI_DRZ   =SIMP(statut='f',typ='R',defaut= 1.0E-10 ),
 590            GRILLE_NCOU     =SIMP(statut='f',typ='I',defaut= 1,min=1,max=1 ),
 591          ),
 592
 593          RIGI_PARASOL    =FACT(statut='f',min=1,max='**',
 594            regles=(UN_PARMI('COEF_GROUP','FONC_GROUP'),
 595                    UN_PARMI('COOR_CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),),
 596            GROUP_MA        =SIMP(statut='o',typ=ma,max='**'),
 597            FONC_GROUP      =SIMP(statut='f',typ=(fonction) ),
 598            COEF_GROUP      =SIMP(statut='f',typ='R',max='**'),
 599            REPERE          =SIMP(statut='f',typ='TXM',into=("LOCAL","GLOBAL") ),
 600            CARA            =SIMP(statut='o',typ='TXM',max='**',into=("K_TR_D_N","A_TR_D_N") ),
 601            VALE            =SIMP(statut='o',typ='R',max='**'),
 602            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno),
 603            NOEUD_CENTRE    =SIMP(statut='f',typ=no),
 604            COOR_CENTRE     =SIMP(statut='f',typ='R',max='**'),
 605          ),
 606
 607          ASSE_GRIL       =FACT(statut='f',min=1,max='**',
 608            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 609            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 610            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 611            CARA            =SIMP(statut='o',typ='TXM',max='**',
 612                                  into=("K_TR_D_N","K_TR_D_L_T","K_TR_D_L_N",) ),
 613            VALE            =SIMP(statut='o',typ='R',max='**'),
 614            PAS_T           =SIMP(statut='o',typ='R'),
 615            PAS_N           =SIMP(statut='o',typ='R'),
 616            ANGL_REP        =SIMP(statut='o',typ='R',max='**'),
 617            COEF_ECHELLE    =SIMP(statut='o',typ='R'),
 618          ),
 619
 620
 621          AFFE_SECT     =FACT(statut='f',min=1,max='**',
 622               regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
 623                       AU_MOINS_UN('TOUT_SECT','GROUP_MA_SECT','MAILLE_SECT'),
 624                       PRESENT_ABSENT('TOUT_SECT','GROUP_MA_SECT','MAILLE_SECT'),),
 625
 626               NOM             =SIMP(statut='f',typ='TXM'),
 627
 628               GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 629               MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 630
 631               TOUT_SECT         =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 632               GROUP_MA_SECT     =SIMP(statut='f',typ=grma,max='**'),
 633               MAILLE_SECT       =SIMP(statut='f',typ=ma,max='**'),
 634
 635               MAILLAGE_SECT     =SIMP(statut='o',typ=maillage),
 636               COOR_AXE_POUTRE    =SIMP(statut='o',typ='R',min=2,max=2),
 637          ),
 638
 639
 640          AFFE_FIBRE     =FACT(statut='f',min=1,max='**',
 641               regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
 642
 643               NOM             =SIMP(statut='f',typ='TXM'),
 644
 645               GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 646               MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 647
 648               CARA              =SIMP(statut='f',typ='TXM',defaut='SURFACE',into=('SURFACE','DIAMETRE',)),
 649               VALE              =SIMP(statut='o',typ='R',max='**'),
 650               COOR_AXE_POUTRE    =SIMP(statut='o',typ='R',min=2,max=2),
 651          ),
 652
 653
 654 ) ;
 655 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
 656 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 657 # ======================================================================
 658 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 659 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
 660 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
 661 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
 662 # (AT YOUR OPTION) ANY LATER VERSION.
 663 #
 664 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
 665 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
 666 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
 667 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
 668 #
 669 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
 670 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 671 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 672 # ======================================================================
 673 AFFE_CHAR_ACOU=OPER(nom="AFFE_CHAR_ACOU",op=  68,sd_prod=char_acou,
 674                     fr="Affectation de charges et conditions aux limites acoustiques constantes",
 675                     docu="U4.44.04-f",reentrant='n',
 676             UIinfo={"groupes":("Modélisation",)},
 677          regles=(AU_MOINS_UN('PRES_IMPO','VITE_FACE','IMPE_FACE','LIAISON_UNIF' ),),
 678          MODELE          =SIMP(statut='o',typ=modele ),
 679          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
 680          PRES_IMPO       =FACT(statut='f',min=1,max='**',
 681            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
 682            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 683            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 684            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 685            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 686            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 687            PRES            =SIMP(statut='o',typ='C' ),
 688          ),
 689          VITE_FACE       =FACT(statut='f',min=1,max='**',
 690              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
 691                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
 692            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 693            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 694            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 695            VNOR            =SIMP(statut='o',typ='C' ),
 696          ),
 697          IMPE_FACE       =FACT(statut='f',min=1,max='**',
 698              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
 699                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
 700            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 701            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 702            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 703            IMPE            =SIMP(statut='o',typ='C' ),
 704          ),
 705          LIAISON_UNIF    =FACT(statut='f',min=1,max='**',
 706            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE' ),),
 707            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 708            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 709            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 710            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 711            DDL             =SIMP(statut='o',typ='TXM',max='**'),
 712          ),
 713 )  ;
 714 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
 715 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 716 # ======================================================================
 717 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 718 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
 719 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
 720 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
 721 # (AT YOUR OPTION) ANY LATER VERSION.
 722 #
 723 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
 724 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
 725 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
 726 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
 727 #
 728 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
 729 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 730 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 731 # ======================================================================
 732 # RESPONSABLE VABHHTS J.PELLET
 733 def affe_char_cine_prod(MECA_IMPO,THER_IMPO,ACOU_IMPO,**args):
 734   if MECA_IMPO != None  : return char_cine_meca
 735   if THER_IMPO != None  : return char_cine_ther
 736   if ACOU_IMPO != None  : return char_cine_acou
 737   raise AsException("type de concept resultat non prevu")
 738
 739 AFFE_CHAR_CINE=OPER(nom="AFFE_CHAR_CINE",op= 101,sd_prod=affe_char_cine_prod
 740                     ,fr="Affectation de conditions aux limites cinématiques pour traitement sans dualisation",
 741                      docu="U4.44.03-f",reentrant='n',
 742             UIinfo={"groupes":("Modélisation",)},
 743          regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO','ACOU_IMPO'),
 744                  EXCLUS('MECA_IMPO','THER_IMPO'),
 745                  EXCLUS('MECA_IMPO','ACOU_IMPO'),
 746                  EXCLUS('THER_IMPO','ACOU_IMPO'),),
 747          MODELE          =SIMP(statut='o',typ=modele ),
 748          MECA_IMPO       =FACT(statut='f',min=1,max='**',
 749            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
 750                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','TEMP','PHI'),),
 751            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 752            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 753            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 754            DX              =SIMP(statut='f',typ='R' ),
 755            DY              =SIMP(statut='f',typ='R' ),
 756            DZ              =SIMP(statut='f',typ='R' ),
 757            DRX             =SIMP(statut='f',typ='R' ),
 758            DRY             =SIMP(statut='f',typ='R' ),
 759            DRZ             =SIMP(statut='f',typ='R' ),
 760            GRX             =SIMP(statut='f',typ='R' ),
 761            PRES            =SIMP(statut='f',typ='R' ),
 762            TEMP            =SIMP(statut='f',typ='R' ),
 763            PHI             =SIMP(statut='f',typ='R' ),
 764          ),
 765          THER_IMPO       =FACT(statut='f',min=1,max='**',
 766            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
 767                    AU_MOINS_UN('TEMP','TEMP_INF','TEMP_SUP'),),
 768            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 769            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 770            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 771            TEMP_SUP        =SIMP(statut='f',typ='R' ),
 772            TEMP            =SIMP(statut='f',typ='R' ),
 773            TEMP_INF        =SIMP(statut='f',typ='R' ),
 774          ),
 775          ACOU_IMPO       =FACT(statut='f',min=1,max='**',
 776            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD' ),),
 777            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 778            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 779            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 780            PRES            =SIMP(statut='o',typ='C' ),
 781          ),
 782          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 783 )  ;
 784 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
 785 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 786 # ======================================================================
 787 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 788 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
 789 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
 790 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
 791 # (AT YOUR OPTION) ANY LATER VERSION.
 792 #
 793 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
 794 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
 795 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
 796 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
 797 #
 798 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
 799 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 800 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 801 # ======================================================================
 802 def affe_char_cine_f_prod(MECA_IMPO,THER_IMPO,**args):
 803   if MECA_IMPO != None  : return char_cine_meca
 804   if THER_IMPO != None  : return char_cine_ther
 805   raise AsException("type de concept resultat non prevu")
 806
 807 AFFE_CHAR_CINE_F=OPER(nom="AFFE_CHAR_CINE_F",op= 108,sd_prod=affe_char_cine_f_prod
 808                     ,fr="Affectation de conditions aux limites cinématiques pour traitement sans dualisation",
 809                      docu="U4.44.03-f",reentrant='n',
 810             UIinfo={"groupes":("Modélisation",)},
 811          regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO'),
 812                  EXCLUS('MECA_IMPO','THER_IMPO'),),
 813          MODELE          =SIMP(statut='o',typ=modele ),
 814          MECA_IMPO       =FACT(statut='f',min=1,max='**',
 815            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
 816                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','TEMP','PHI'),),
 817            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 818            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 819            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 820            DX              =SIMP(statut='f',typ=fonction ),
 821            DY              =SIMP(statut='f',typ=fonction ),
 822            DZ              =SIMP(statut='f',typ=fonction ),
 823            DRX             =SIMP(statut='f',typ=fonction ),
 824            DRY             =SIMP(statut='f',typ=fonction ),
 825            DRZ             =SIMP(statut='f',typ=fonction ),
 826            GRX             =SIMP(statut='f',typ=fonction ),
 827            PRES            =SIMP(statut='f',typ=fonction ),
 828            TEMP            =SIMP(statut='f',typ=fonction ),
 829            PHI             =SIMP(statut='f',typ=fonction ),
 830          ),
 831          THER_IMPO       =FACT(statut='f',min=1,max='**',
 832            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
 833                    AU_MOINS_UN('TEMP','TEMP_INF','TEMP_SUP' ),),
 834            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 835            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 836            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 837            TEMP_SUP        =SIMP(statut='f',typ=fonction ),
 838            TEMP            =SIMP(statut='f',typ=fonction ),
 839            TEMP_INF        =SIMP(statut='f',typ=fonction ),
 840          ),
 841          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 842 )  ;
 843 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
 844 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 845 # ======================================================================
 846 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 847 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
 848 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
 849 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
 850 # (AT YOUR OPTION) ANY LATER VERSION.
 851 #
 852 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
 853 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
 854 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
 855 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
 856 #
 857 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
 858 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 859 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 860 # ======================================================================
 861 # RESPONSABLE G8BHHXD X.DESROCHES
 862 AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca
 863                     ,fr="Affectation de charges et conditions aux limites mécaniques constantes",
 864                      docu="U4.44.01-g",reentrant='n',
 865             UIinfo={"groupes":("Modélisation",)},
 866          regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
 867                              'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
 868                              'PRES_REP','FORCE_POUTRE','FORCE_COQUE','LIAISON_OBLIQUE',
 869                              'FORCE_ELEC','INTE_ELEC','PESANTEUR','ROTATION','IMPE_FACE',
 870                              'VITE_FACE','TEMP_CALCULEE','RELA_CINE_BP','EPSI_INIT','CONTACT',
 871                              'LIAISON_GROUP','LIAISON_UNIF','FLUX_THM_REP',
 872                              'LIAISON_SOLIDE','LIAISON_ELEM','ONDE_FLUI','PRES_CALCULEE',
 873                              'EPSA_CALCULEE','LIAISON_CHAMNO','VECT_ASSE','LIAISON_COQUE',
 874                              'LIAISON_MAIL','FORCE_TUYAU','SECH_CALCULEE','HYDR_CALCULEE',
 875                              'EFFE_FOND','EVOL_CHAR','ARLEQUIN'),
 876                  EXCLUS('PRES_CALCULEE','EVOL_CHAR'),),
 877          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
 878          VERI_NORM       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
 879          MODELE          =SIMP(statut='o',typ=(modele) ),
 880          TEMP_CALCULEE   =SIMP(statut='f',fr="Champ de température issu d'un autre calcul",
 881                                typ=(evol_ther,cham_no_temp_r,carte_temp_r,carte_temp_f ) ),
 882          HYDR_CALCULEE   =SIMP(statut='f',fr="Champ d hydratation issu d'un autre calcul",
 883                                typ=evol_ther ),
 884          SECH_CALCULEE   =SIMP(statut='f',fr="Champ de séchage issu d'un autre calcul",
 885                                typ=(evol_ther,cham_no_temp_r,carte_temp_r,carte_temp_f ) ),
 886          EPSA_CALCULEE   =SIMP(statut='f',fr="Champ de déformation anélastique issu d'un autre calcul",
 887                                typ=evol_noli ),
 888 #    A TERME PRES_CALCULEE N'EXISTERA PLUS
 889          EVOL_CHAR       =SIMP(statut='f',fr="Champ de pression issu d'un autre calcul",
 890                                typ=evol_char ),
 891          PRES_CALCULEE   =SIMP(statut='f',fr="Champ de pression issu d'un autre calcul",
 892                                typ=evol_char ),
 893
 894          PESANTEUR       =SIMP(statut='f',typ='R',fr="Champ de pesanteur",min=4,max=4),
 895          ROTATION        =SIMP(statut='f',typ='R',fr="Champ de rotation",min=4,max=4),
 896          b_rotation      =BLOC ( condition = "ROTATION != None",
 897            CENTRE          =SIMP(statut='f',typ='R',defaut=(0.,0.,0.),max=3),),
 898
 899          DDL_IMPO        =FACT(statut='f',min=1,max='**',
 900              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
 901                      AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
 902                                  'TEMP','PRE1','PRE2','UI2','UI3','VI2','VI3','WI2','WI3','UO2',
 903                                  'UO3','VO2','VO3','WO2','WO3','UI4','UI5','VI4','VI5','WI4',
 904                                  'WI5','UO4','UO5','VO4','VO5','WO4','WO5','UI6','UO6','VI6',
 905                                  'VO6','WI6','WO6','WO','WI1','WO1','GONF'),),
 906              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 907              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 908              NOEUD           =SIMP(statut='f',typ=no,max='**'),
 909              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 910              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 911              DX              =SIMP(statut='f',typ='R' ),
 912              DY              =SIMP(statut='f',typ='R' ),
 913              DZ              =SIMP(statut='f',typ='R' ),
 914              DRX             =SIMP(statut='f',typ='R' ),
 915              DRY             =SIMP(statut='f',typ='R' ),
 916              DRZ             =SIMP(statut='f',typ='R' ),
 917              GRX             =SIMP(statut='f',typ='R' ),
 918              PRES            =SIMP(statut='f',typ='R' ),
 919              PHI             =SIMP(statut='f',typ='R' ),
 920              TEMP            =SIMP(statut='f',typ='R' ),
 921              PRE1            =SIMP(statut='f',typ='R' ),
 922              PRE2            =SIMP(statut='f',typ='R' ),
 923              UI2             =SIMP(statut='f',typ='R' ),
 924              UI3             =SIMP(statut='f',typ='R' ),
 925              UI4             =SIMP(statut='f',typ='R' ),
 926              UI5             =SIMP(statut='f',typ='R' ),
 927              UI6             =SIMP(statut='f',typ='R' ),
 928              UO2             =SIMP(statut='f',typ='R' ),
 929              UO3             =SIMP(statut='f',typ='R' ),
 930              UO4             =SIMP(statut='f',typ='R' ),
 931              UO5             =SIMP(statut='f',typ='R' ),
 932              UO6             =SIMP(statut='f',typ='R' ),
 933              VI2             =SIMP(statut='f',typ='R' ),
 934              VI3             =SIMP(statut='f',typ='R' ),
 935              VI4             =SIMP(statut='f',typ='R' ),
 936              VI5             =SIMP(statut='f',typ='R' ),
 937              VI6             =SIMP(statut='f',typ='R' ),
 938              VO2             =SIMP(statut='f',typ='R' ),
 939              VO3             =SIMP(statut='f',typ='R' ),
 940              VO4             =SIMP(statut='f',typ='R' ),
 941              VO5             =SIMP(statut='f',typ='R' ),
 942              VO6             =SIMP(statut='f',typ='R' ),
 943              WI2             =SIMP(statut='f',typ='R' ),
 944              WI3             =SIMP(statut='f',typ='R' ),
 945              WI4             =SIMP(statut='f',typ='R' ),
 946              WI5             =SIMP(statut='f',typ='R' ),
 947              WI6             =SIMP(statut='f',typ='R' ),
 948              WO2             =SIMP(statut='f',typ='R' ),
 949              WO3             =SIMP(statut='f',typ='R' ),
 950              WO4             =SIMP(statut='f',typ='R' ),
 951              WO5             =SIMP(statut='f',typ='R' ),
 952              WO6             =SIMP(statut='f',typ='R' ),
 953              WO              =SIMP(statut='f',typ='R' ),
 954              WI1             =SIMP(statut='f',typ='R' ),
 955              WO1             =SIMP(statut='f',typ='R' ),
 956              GONF            =SIMP(statut='f',typ='R' ),
 957            ),
 958
 959
 960
 961            FACE_IMPO       =FACT(statut='f',min=1,max='**',
 962              regles=(UN_PARMI('GROUP_MA','MAILLE',),
 963                      AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
 964                                  'TEMP','PRE1','PRE2','DNOR','DTAN'),
 965                      EXCLUS('DNOR','DX'),
 966                      EXCLUS('DNOR','DY'),
 967                      EXCLUS('DNOR','DZ'),
 968                      EXCLUS('DNOR','DRX'),
 969                      EXCLUS('DNOR','DRY'),
 970                      EXCLUS('DNOR','DRZ'),
 971                      EXCLUS('DTAN','DX'),
 972                      EXCLUS('DTAN','DY'),
 973                      EXCLUS('DTAN','DZ'),
 974                      EXCLUS('DTAN','DRX'),
 975                      EXCLUS('DTAN','DRY'),
 976                      EXCLUS('DTAN','DRZ'),),
 977 #  rajout d'un mot clé REPERE :/ LOCAL /GLOBAL
 978              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 979              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 980              DX              =SIMP(statut='f',typ='R' ),
 981              DY              =SIMP(statut='f',typ='R' ),
 982              DZ              =SIMP(statut='f',typ='R' ),
 983              DRX             =SIMP(statut='f',typ='R' ),
 984              DRY             =SIMP(statut='f',typ='R' ),
 985              DRZ             =SIMP(statut='f',typ='R' ),
 986              DNOR            =SIMP(statut='f',typ='R' ),
 987              DTAN            =SIMP(statut='f',typ='R' ),
 988              GRX             =SIMP(statut='f',typ='R' ),
 989              PRES            =SIMP(statut='f',typ='R' ),
 990              PHI             =SIMP(statut='f',typ='R' ),
 991              TEMP            =SIMP(statut='f',typ='R' ),
 992              PRE1            =SIMP(statut='f',typ='R' ),
 993              PRE2            =SIMP(statut='f',typ='R' ),
 994            ),
 995
 996            LIAISON_DDL     =FACT(statut='f',fr="Définir une relation linéaire entre des ddls de deux ou plusieurs noeuds",
 997                                  min=1,max='**',
 998              regles=(UN_PARMI('GROUP_NO','NOEUD'),),
 999              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1000              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1001              DDL             =SIMP(statut='o',typ='TXM',max='**'),
1002              COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
1003              COEF_IMPO       =SIMP(statut='o',typ='R' ),
1004            ),
1005
1006            LIAISON_OBLIQUE =FACT(statut='f',fr="Appliquer à des noeuds une valeur de déplacement dans un repere oblique",
1007                                  min=1,max='**',
1008              regles=(UN_PARMI('GROUP_NO','NOEUD'),
1009                      UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
1010              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1011              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1012              ANGL_NAUT       =SIMP(statut='o',typ='R',max=3),
1013              DX              =SIMP(statut='f',typ='R' ),
1014              DY              =SIMP(statut='f',typ='R' ),
1015              DZ              =SIMP(statut='f',typ='R' ),
1016              DRX             =SIMP(statut='f',typ='R' ),
1017              DRY             =SIMP(statut='f',typ='R' ),
1018              DRZ             =SIMP(statut='f',typ='R' ),
1019            ),
1020
1021            LIAISON_GROUP   =FACT(statut='f',fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1022                                  min=1,max='**',
1023              regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1024                      UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1025                      EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1026                      EXCLUS('GROUP_MA_1','NOEUD_2'),
1027                      EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1028                      EXCLUS('GROUP_NO_1','MAILLE_2'),
1029                      EXCLUS('MAILLE_1','GROUP_NO_2'),
1030                      EXCLUS('MAILLE_1','NOEUD_2'),
1031                      EXCLUS('NOEUD_1','GROUP_MA_2'),
1032                      EXCLUS('NOEUD_1','MAILLE_2'),
1033                      EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1034
1035                GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1036                MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1037                GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1038                MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1039                GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
1040                NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
1041                GROUP_NO_2      =SIMP(statut='f',typ=no,max='**'),
1042                NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1043
1044              SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1045              SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1046              DDL_1           =SIMP(statut='o',typ='TXM',max='**'),
1047              COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
1048              DDL_2           =SIMP(statut='o',typ='TXM',max='**'),
1049              COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
1050              COEF_IMPO       =SIMP(statut='o',typ='R' ),
1051              SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1052              TRAN            =SIMP(statut='f',typ='R',max=3),
1053              ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
1054              CENTRE          =SIMP(statut='f',typ='R',max=3),
1055            ),
1056
1057            LIAISON_MAIL    =FACT(statut='f',min=1,max='**',
1058              regles=(AU_MOINS_UN('GROUP_MA_MAIT','MAILLE_MAIT'),
1059                      AU_MOINS_UN('GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL','NOEUD_ESCL'),
1060                      PRESENT_PRESENT('DDL_MAIT','DDL_ESCL'),),
1061               GROUP_MA_MAIT   =SIMP(statut='f',typ=grma,max='**'),
1062               MAILLE_MAIT     =SIMP(statut='f',typ=ma,max='**'),
1063               GROUP_MA_ESCL   =SIMP(statut='f',typ=grma,max='**'),
1064               MAILLE_ESCL     =SIMP(statut='f',typ=ma,max='**'),
1065               GROUP_NO_ESCL   =SIMP(statut='f',typ=grno,max='**'),
1066               NOEUD_ESCL      =SIMP(statut='f',typ=no,max='**'),
1067               TRAN            =SIMP(statut='f',typ='R',max=3 ),
1068               ANGL_NAUT       =SIMP(statut='f',typ='R',max=3 ),
1069               CENTRE          =SIMP(statut='f',typ='R',max=3 ),
1070               DDL_MAIT        =SIMP(statut='f',typ='TXM',into=("DNOR",) ),
1071               DDL_ESCL        =SIMP(statut='f',typ='TXM',into=("DNOR",) ),
1072          ),
1073
1074
1075            LIAISON_SOLIDE  =FACT(statut='f',fr="Modéliser une partie indéformable d'une structure",min=1,max='**',
1076              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1077              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1078              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1079              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1080              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1081              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1082            ),
1083
1084            LIAISON_ELEM    =FACT(statut='f',fr="Raccorder une poutre à une partie massive 3D ou une coque", min=1,max='**',
1085              regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
1086                      UN_PARMI('GROUP_NO_2','NOEUD_2'),),
1087              OPTION          =SIMP(statut='o',typ='TXM',into=("3D_TUYAU","3D_POU","COQ_POU","COQ_TUYAU") ),
1088              GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1089              MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1090              GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
1091              NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1092              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1093              CARA_ELEM       =SIMP(statut='f',typ=(cara_elem) ),
1094              AXE_POUTRE      =SIMP(statut='f',typ='R',max=3),
1095              ANGL_MAX        =SIMP(statut='f',typ='R',defaut= 1. ),
1096            ),
1097
1098            LIAISON_UNIF    =FACT(statut='f',fr="Imposer une meme valeur (inconnue) à des ddls d'un emsemble de noeuds",
1099                                  min=1,max='**',
1100              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1101              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1102              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1103              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1104              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1105              DDL             =SIMP(statut='o',typ='TXM',max='**'),
1106            ),
1107
1108          LIAISON_CHAMNO  =FACT(statut='f',fr="définir une relation linéaire entre tous les ddls d'un concept cham_nno",
1109                                  min=1,max='**',
1110 #  type de cham_no CO()
1111              CHAM_NO         =SIMP(statut='o',typ=cham_no), #CO()
1112              COEF_IMPO       =SIMP(statut='o',typ='R' ),
1113              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1114            ),
1115
1116          VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
1117
1118          CONTACT         =FACT(statut='f',fr="Imposer du contact avec ou sans frottement",min=1,max='**',
1119            regles=(UN_PARMI('GROUP_MA_2','MAILLE_2'),),
1120            APPARIEMENT     =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
1121                                  into=("NON","NODAL","NODAL_SYME","MAIT_ESCL","MAIT_ESCL_SYME")),
1122            RECHERCHE       =SIMP(statut='f',typ='TXM',defaut="NOEUD_VOISIN",into=("NOEUD_BOUCLE","NOEUD_VOISIN")),
1123            LISSAGE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
1124            NORMALE         =SIMP(statut='f',typ='TXM',defaut="MAIT",into=("MAIT","MAIT_ESCL")),
1125            METHODE         =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
1126                                  into=("CONTRAINTE","LAGRANGIEN","PENALISATION","CONTINUE") ),
1127            PROJECTION      =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","QUADRATIQUE") ),
1128            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1129            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1130            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1131            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1132            b_active        =BLOC(condition = "METHODE == 'CONTRAINTE' ",
1133                                  fr="Paramètres de la méthode des contraintes actives (contact uniquement)",
1134                 regles=(EXCLUS('DIST_2','COEF_IMPO'),
1135                         EXCLUS('DIST_1','COEF_IMPO'),),
1136                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","PRES","TEMP")),
1137                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS",) ),
1138                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1139                 b_reac_geom     =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1140                                  fr="Paramètre de la réactualisation géométrique",
1141                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
1142                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1143                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1144                 COEF_IMPO       =SIMP(statut='f',typ='R'),
1145                 COEF_MULT_2     =SIMP(statut='f',typ='R'),
1146                 VECT_NORM_2     =SIMP(statut='f',typ='R',max=3),
1147                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
1148                 DIST_1          =SIMP(statut='f',typ='R'),
1149                 DIST_2          =SIMP(statut='f',typ='R'),
1150                 STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),),
1151            b_lagrangien    =BLOC(condition = "METHODE == 'LAGRANGIEN' ",
1152                                  fr="Paramètres de la méthode Lagrangienne (contact avec ou sans frottement)",
1153                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1154                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1155                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1156                 b_reac_geom     =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1157                                  fr="Paramètre de la réactualisation géométrique",
1158                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
1159                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1160                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1161                 DIST_1          =SIMP(statut='f',typ='R'),
1162                 DIST_2          =SIMP(statut='f',typ='R'),
1163                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
1164                 STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
1165                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1166                      COULOMB         =SIMP(statut='o',typ='R',max=1),
1167                      COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut=0.E+0),
1168                      ),),
1169            b_penalisation       =BLOC(condition = "METHODE == 'PENALISATION' ",
1170                                       fr="Paramètres de la méthode pénalisée (contact avec ou sans frottement)",
1171                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1172                 E_N             =SIMP(statut='f',typ='R'),
1173                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1174                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1175                 b_reac_geom     =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1176                                  fr="Paramètre de la réactualisation géométrique",
1177                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
1178                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1179                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1180                 DIST_1          =SIMP(statut='f',typ='R'),
1181                 DIST_2          =SIMP(statut='f',typ='R'),
1182                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
1183                 STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
1184                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1185                      COULOMB         =SIMP(statut='o',typ='R',max=1),
1186                      E_T             =SIMP(statut='f',typ='R',
1187                                            fr="Active la pénalisation sur le frottement et définit le coefficient de pénalisation"),
1188                      COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut=0.E+0),
1189                      ),),
1190            b_continue      =BLOC(condition = "METHODE == 'CONTINUE' ",
1191                                  fr="Paramètres de la méthode continue (contact avec ou sans frottement)",
1192                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1193                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1194                 INTEGRATION     =SIMP(statut='f',typ='TXM',defaut="NOEUD",into=("GAUSS","NOEUD","SIMPSON","SIMPSON1","SIMPSON2")),
1195                 COEF_REGU_CONT  =SIMP(statut='f',typ='R',defaut=100.E+0),
1196                 MODL_AXIS       =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
1197                 DIRE_APPA       =SIMP(statut='f',typ='R',max=3,defaut=(0.,0.,0.,)),
1198                 ITER_GEOM_MAXI  =SIMP(statut='f',typ='I',defaut=2),
1199                 ITER_CONT_MAXI  =SIMP(statut='f',typ='I',defaut=30),
1200                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1201                      COULOMB         =SIMP(statut='o',typ='R',max=1),
1202                      ITER_FROT_MAXI  =SIMP(statut='f',typ='I',defaut=2),
1203                      COEF_REGU_FROT  =SIMP(statut='f',typ='R',defaut=100.E+0),
1204                      SEUIL_INIT      =SIMP(statut='f',typ='I',defaut=0),),),
1205          ),
1206
1207          FORCE_NODALE    =FACT(statut='f',fr="Imposer des forces nodales en des noeuds",min=1,max='**',
1208            regles=(AU_MOINS_UN('GROUP_NO','NOEUD'),
1209                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
1210            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1211            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1212            FX              =SIMP(statut='f',typ='R' ),
1213            FY              =SIMP(statut='f',typ='R' ),
1214            FZ              =SIMP(statut='f',typ='R' ),
1215            MX              =SIMP(statut='f',typ='R' ),
1216            MY              =SIMP(statut='f',typ='R' ),
1217            MZ              =SIMP(statut='f',typ='R' ),
1218            ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
1219          ),
1220
1221          FORCE_FACE      =FACT(statut='f',fr="Appliquer des forces surfaciques sur une face d'éléments volumiques",
1222                                  min=1,max='**',
1223              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1224                      AU_MOINS_UN('FX','FY','FZ'),),
1225              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1226              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1227              FX              =SIMP(statut='f',typ='R' ),
1228              FY              =SIMP(statut='f',typ='R' ),
1229              FZ              =SIMP(statut='f',typ='R' ),
1230            ),
1231
1232          FORCE_ARETE     =FACT(statut='f',fr="Appliquer des forces linéiques à une arete d élément volumique ou de coque",
1233                                  min=1,max='**',
1234              regles=(AU_MOINS_UN('GROUP_MA','MAILLE',),
1235                      AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
1236              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1237              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1238              FX              =SIMP(statut='f',typ='R' ),
1239              FY              =SIMP(statut='f',typ='R' ),
1240              FZ              =SIMP(statut='f',typ='R' ),
1241              MX              =SIMP(statut='f',typ='R' ),
1242              MY              =SIMP(statut='f',typ='R' ),
1243              MZ              =SIMP(statut='f',typ='R' ),
1244            ),
1245
1246          FORCE_CONTOUR   =FACT(statut='f',fr="Appliquer des forces linéiques au bord d'un domaine 2D ou AXIS_FOURIER",
1247                                  min=1,max='**',
1248              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1249                      AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1250              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1251              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1252              FX              =SIMP(statut='f',typ='R' ),
1253              FY              =SIMP(statut='f',typ='R' ),
1254              FZ              =SIMP(statut='f',typ='R' ),
1255              MX              =SIMP(statut='f',typ='R' ),
1256              MY              =SIMP(statut='f',typ='R' ),
1257              MZ              =SIMP(statut='f',typ='R' ),
1258            ),
1259
1260          FORCE_INTERNE   =FACT(statut='f',fr="Appliquer des forces volumiques (2D ou 3D) à un domaine volumique",
1261                                  min=1,max='**',
1262              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1263                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1264                      AU_MOINS_UN('FX','FY','FZ' ),),
1265              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1266              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1267              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1268              FX              =SIMP(statut='f',typ='R' ),
1269              FY              =SIMP(statut='f',typ='R' ),
1270              FZ              =SIMP(statut='f',typ='R' ),
1271            ),
1272
1273          PRES_REP        =FACT(statut='f',fr="Appliquer une pression à un domaine de milieu continu 2D ou 3D",
1274                                  min=1,max='**',
1275              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1276                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1277                      AU_MOINS_UN('PRES','CISA_2D' ),),
1278              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1279              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1280              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1281              PRES            =SIMP(statut='f',typ='R' ),
1282              CISA_2D         =SIMP(statut='f',typ='R' ),
1283            ),
1284
1285          EFFE_FOND       =FACT(statut='f',fr="Imposer un effet de fond",min=1,max='**',
1286            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1287            GROUP_MA_INT    =SIMP(statut='o',typ=grma,max='**'),
1288            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1289            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1290            PRES            =SIMP(statut='o',typ='R' ),
1291          ),
1292
1293          EPSI_INIT       =FACT(statut='f',fr="Appliquer un chargement de déformation initiale à un volume 3D ou 2D",
1294                                  min=1,max='**',
1295              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1296                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1297                      AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ','EPX',
1298                                  'KY','KZ','EXX','EYY','EXY','KXX','KYY','KXY'),),
1299              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1300              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1301              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1302              EPXX            =SIMP(statut='f',typ='R' ),
1303              EPYY            =SIMP(statut='f',typ='R' ),
1304              EPZZ            =SIMP(statut='f',typ='R' ),
1305              EPXY            =SIMP(statut='f',typ='R' ),
1306              EPXZ            =SIMP(statut='f',typ='R' ),
1307              EPYZ            =SIMP(statut='f',typ='R' ),
1308              EPX             =SIMP(statut='f',typ='R' ),
1309              KY              =SIMP(statut='f',typ='R' ),
1310              KZ              =SIMP(statut='f',typ='R' ),
1311              EXX             =SIMP(statut='f',typ='R' ),
1312              EYY             =SIMP(statut='f',typ='R' ),
1313              EXY             =SIMP(statut='f',typ='R' ),
1314              KXX             =SIMP(statut='f',typ='R' ),
1315              KYY             =SIMP(statut='f',typ='R' ),
1316              KXY             =SIMP(statut='f',typ='R' ),
1317            ),
1318
1319          ARLEQUIN        =FACT(statut='f',min=1,max='**',
1320            GROUP_MA_1     =SIMP(statut='o',typ=grma,max='**'),
1321            GROUP_MA_2     =SIMP(statut='o',typ=grma,max='**'),
1322            GROUP_MA_COLL  =SIMP(statut='o',typ=grma,max='**'),
1323            CARA_ELEM      =SIMP(statut='f',typ=(cara_elem) ),
1324            regles        =(UN_PARMI('POIDS_1','POIDS_2'),),
1325            POIDS_1       =SIMP(statut='f',typ='R'),
1326            POIDS_2       =SIMP(statut='f',typ='R'),
1327          ),
1328
1329         FORCE_POUTRE    =FACT(statut='f',fr="Appliquer des forces linéiques sur des poutres",min=1,max='**',
1330              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1331                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1332                      AU_MOINS_UN('FX','FY','FZ','N','VY','VZ'),
1333                      PRESENT_ABSENT('FX','N','VY','VZ'),
1334                      PRESENT_ABSENT('FY','N','VY','VZ'),
1335                      PRESENT_ABSENT('FZ','N','VY','VZ'),
1336                      PRESENT_ABSENT('N','FX','FY','FZ'),
1337                      PRESENT_ABSENT('VY','FX','FY','FZ'),
1338                      PRESENT_ABSENT('VZ','FX','FY','FZ'),),
1339              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1340              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1341              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1342              TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE",) ),
1343 #  rajour d'un mot clé REPERE :/ LOCAL /GLOBAL
1344                FX              =SIMP(statut='f',typ='R' ),
1345                FY              =SIMP(statut='f',typ='R' ),
1346                FZ              =SIMP(statut='f',typ='R' ),
1347
1348                N               =SIMP(statut='f',typ='R' ),
1349                VY              =SIMP(statut='f',typ='R' ),
1350                VZ              =SIMP(statut='f',typ='R' ),
1351
1352            ),
1353
1354          FORCE_TUYAU     =FACT(statut='f',fr="imposer une pression dans un élément TUYAU",min=1,max='**',
1355              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1356                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
1357              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1358              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1359              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1360              PRES            =SIMP(statut='f',typ='R' ),
1361            ),
1362
1363          FORCE_COQUE     =FACT(statut='f',fr="Appliquer des forces surfaciques sur des coques",min=1,max='**',
1364              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1365                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1366                      AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
1367                      PRESENT_ABSENT('FX','PRES','F1','F2','F3','MF1','MF2'),
1368                      PRESENT_ABSENT('FY','PRES','F1','F2','F3','MF1','MF2'),
1369                      PRESENT_ABSENT('FZ','PRES','F1','F2','F3','MF1','MF2'),
1370                      PRESENT_ABSENT('MX','PRES','F1','F2','F3','MF1','MF2'),
1371                      PRESENT_ABSENT('MY','PRES','F1','F2','F3','MF1','MF2'),
1372                      PRESENT_ABSENT('MZ','PRES','F1','F2','F3','MF1','MF2'),
1373                      PRESENT_ABSENT('F1','FX','FY','FZ','MX','MY','MZ','PRES'),
1374                      PRESENT_ABSENT('F2','FX','FY','FZ','MX','MY','MZ','PRES'),
1375                      PRESENT_ABSENT('F3','FX','FY','FZ','MX','MY','MZ','PRES'),
1376                      PRESENT_ABSENT('MF1','FX','FY','FZ','MX','MY','MZ','PRES'),
1377                      PRESENT_ABSENT('MF2','FX','FY','FZ','MX','MY','MZ','PRES'),
1378                      PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
1379 #  rajour d'un mot clé REPERE :/ LOCAL /GLOBAL
1380              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1381              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1382              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1383
1384                FX              =SIMP(statut='f',typ='R' ),
1385                FY              =SIMP(statut='f',typ='R' ),
1386                FZ              =SIMP(statut='f',typ='R' ),
1387                MX              =SIMP(statut='f',typ='R' ),
1388                MY              =SIMP(statut='f',typ='R' ),
1389                MZ              =SIMP(statut='f',typ='R' ),
1390
1391                F1              =SIMP(statut='f',typ='R' ),
1392                F2              =SIMP(statut='f',typ='R' ),
1393                F3              =SIMP(statut='f',typ='R' ),
1394                MF1             =SIMP(statut='f',typ='R' ),
1395                MF2             =SIMP(statut='f',typ='R' ),
1396
1397              PRES            =SIMP(statut='f',typ='R' ),
1398              PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL",) ),
1399            ),
1400
1401
1402            LIAISON_COQUE   =FACT(statut='f',min=1,max='**',
1403              GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1404              MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1405              GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
1406              NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
1407              GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1408              MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1409              GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
1410              NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1411              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1412            ),
1413
1414          RELA_CINE_BP    =FACT(statut='f',min=1,max='**',
1415            CABLE_BP        =SIMP(statut='o',typ=cabl_precont ),
1416            SIGM_BPEL       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1417            RELA_CINE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1418          ),
1419
1420          FORCE_ELEC      =FACT(statut='f',
1421                                  fr="Force de Laplace due à la présence d'un conducteur rectiligne secondaire non maillé",
1422                                  min=1,max='**',
1423              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1424                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1425                      AU_MOINS_UN('FX','FY','FZ','POSITION'),
1426                      EXCLUS('FX','POSITION'),
1427                      EXCLUS('FY','POSITION'),
1428                      EXCLUS('FZ','POSITION'),),
1429 #  trop de regles : les blocs conditionnels permettent d en suprimer
1430              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1431              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1432              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1433
1434              FX              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1435              FY              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1436              FZ              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1437
1438              POSITION        =SIMP(statut='f',typ='TXM',fr="Direction prédéfinie",into=("PARA","INFI","FINI",) ),
1439              b_para     =BLOC ( condition = "POSITION == 'PARA'",
1440                regles=(UN_PARMI('TRANS','DIST'),),
1441                TRANS           =SIMP(statut='f',typ='R',max=3),
1442                DIST            =SIMP(statut='f',typ='R' ),
1443                b_point2        =BLOC ( condition = "DIST != None",
1444                  POINT2           =SIMP(statut='o',typ='R',max=3),
1445                ),
1446              ),
1447              b_fini_infi     =BLOC ( condition = "(POSITION == 'FINI') or (POSITION == 'INFI')",
1448                POINT1          =SIMP(statut='o',typ='R',max=3),
1449                POINT2          =SIMP(statut='o',typ='R',max=3),
1450              ),
1451            ),
1452
1453
1454
1455
1456         INTE_ELEC       =FACT(statut='f',fr="Force de Laplace due à la présence d'un conducteur non rectiligne secondaire",
1457                                  min=1,max='**',
1458              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1459                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1460                      AU_MOINS_UN('GROUP_MA_2','MAILLE_2','TRANS','SYME'),
1461                      EXCLUS('TRANS','SYME'),),
1462              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1463              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1464              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1465              GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1466              MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1467              TRANS           =SIMP(statut='f',typ='R',max='**'),
1468              SYME            =SIMP(statut='f',typ='R',max='**'),
1469            ),
1470
1471
1472          IMPE_FACE       =FACT(statut='f',fr="Appliquer une impédance acoustique à une face",min=1,max='**',
1473              regles=(AU_MOINS_UN('GROUP_MA','MAILLE' ),),
1474              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1475              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1476              IMPE            =SIMP(statut='o',typ='R' ),
1477            ),
1478
1479          VITE_FACE       =FACT(statut='f',fr="Imposer des vitesses acoustiquesnormales à une face",min=1,max='**',
1480              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1481              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1482              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1483              VNOR            =SIMP(statut='o',typ='R' ),
1484            ),
1485
1486
1487
1488          ONDE_FLUI       =FACT(statut='f',fr="Appliquer une amplitude de pression d onde incidente",min=1,max='**',
1489              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1490              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1491              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1492              PRES            =SIMP(statut='o',typ='R' ),
1493            ),
1494
1495          FLUX_THM_REP    =FACT(statut='f',min=1,max='**',
1496              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1497                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1498                      AU_MOINS_UN('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
1499              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1500              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1501              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1502              FLUN            =SIMP(statut='f',typ='R' ),
1503              FLUN_HYDR1      =SIMP(statut='f',typ='R' ),
1504              FLUN_HYDR2      =SIMP(statut='f',typ='R' ),
1505            ),
1506
1507          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1508 )  ;
1509 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
1510 #            CONFIGURATION MANAGEMENT OF EDF VERSION
1511 # ======================================================================
1512 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
1513 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1514 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1515 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1516 # (AT YOUR OPTION) ANY LATER VERSION.
1517 #
1518 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1519 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1520 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1521 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1522 #
1523 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1524 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1525 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1526 # ======================================================================
1527 # RESPONSABLE G8BHHXD X.DESROCHES
1528 AFFE_CHAR_MECA_C=OPER(nom="AFFE_CHAR_MECA_C",op=   7,sd_prod=char_meca,
1529                      fr="Affectation de charges et conditions aux limites mécaniques complexes",
1530                      docu="U4.44.05-d",reentrant='n',
1531             UIinfo={"groupes":("Modélisation",)},
1532          regles=(AU_MOINS_UN('DDL_IMPO','FORCE_POUTRE','LIAISON_DDL', ),),
1533          MODELE          =SIMP(statut='o',typ=modele ),
1534          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1535          DDL_IMPO        =FACT(statut='f',min=1,max='**',
1536            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
1537                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI', ),),
1538            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1539            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1540            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1541            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1542            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1543            DX              =SIMP(statut='f',typ='C' ),
1544            DY              =SIMP(statut='f',typ='C' ),
1545            DZ              =SIMP(statut='f',typ='C' ),
1546            DRX             =SIMP(statut='f',typ='C' ),
1547            DRY             =SIMP(statut='f',typ='C' ),
1548            DRZ             =SIMP(statut='f',typ='C' ),
1549            GRX             =SIMP(statut='f',typ='C' ),
1550            PRES            =SIMP(statut='f',typ='C' ),
1551            PHI             =SIMP(statut='f',typ='C' ),
1552          ),
1553          FORCE_POUTRE    =FACT(statut='f',min=1,max='**',
1554            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1555                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1556                    AU_MOINS_UN('FX','FY','FZ','N','VY','VZ',),
1557                    PRESENT_ABSENT('FX','N','VY','VZ',),
1558                    PRESENT_ABSENT('FY','N','VY','VZ',),
1559                    PRESENT_ABSENT('FZ','N','VY','VZ',),
1560                    PRESENT_ABSENT('N','FX','FY','FZ',),
1561                    PRESENT_ABSENT('VY', 'FX','FY','FZ',),
1562                    PRESENT_ABSENT('VZ','FX','FY','FZ', ),),
1563            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1564            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1565            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1566            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE") ),
1567            FX              =SIMP(statut='f',typ='C' ),
1568            FY              =SIMP(statut='f',typ='C' ),
1569            FZ              =SIMP(statut='f',typ='C' ),
1570            N               =SIMP(statut='f',typ='C' ),
1571            VY              =SIMP(statut='f',typ='C' ),
1572            VZ              =SIMP(statut='f',typ='C' ),
1573          ),
1574          LIAISON_DDL     =FACT(statut='f',min=1,max='**',
1575            regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
1576            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1577            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1578            DDL             =SIMP(statut='o',typ='TXM',max='**'),
1579            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
1580            COEF_IMPO       =SIMP(statut='o',typ='C' ),
1581          ),
1582          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1583 )  ;
1584 #& MODIF COMMANDE  DATE 24/03/2004   AUTEUR DURAND C.DURAND
1585 #            CONFIGURATION MANAGEMENT OF EDF VERSION
1586 # ======================================================================
1587 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
1588 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1589 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1590 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1591 # (AT YOUR OPTION) ANY LATER VERSION.
1592 #
1593 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1594 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1595 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1596 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1597 #
1598 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1599 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1600 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1601 # ======================================================================
1602 # RESPONSABLE G8BHHXD X.DESROCHES
1603 AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
1604                       fr="Affectation de charges et conditions aux limites mécaniques fonction d une grandeur",
1605                       docu="U4.44.01-g",reentrant='n',
1606             UIinfo={"groupes":("Modélisation",)},
1607         regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
1608                             'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
1609                             'PRES_REP','FORCE_POUTRE','VITE_FACE','IMPE_FACE','ONDE_PLANE',
1610                             'LIAISON_OBLIQUE','EPSI_INIT','LIAISON_GROUP','LIAISON_UNIF',
1611                             'LIAISON_SOLIDE','FORCE_COQUE','LIAISON_COQUE','FORCE_TUYAU',
1612                             'CONTACT','FLUX_THM_REP'),),
1613          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1614          VERI_NORM       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1615          MODELE          =SIMP(statut='o',typ=modele ),
1616
1617          DDL_IMPO        =FACT(statut='f',min=1,max='**',
1618            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
1619                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
1620                                'TEMP','PRE1','PRE2'),),
1621            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1622            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1623            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1624            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1625            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1626            DX              =SIMP(statut='f',typ=(fonction) ),
1627            DY              =SIMP(statut='f',typ=(fonction) ),
1628            DZ              =SIMP(statut='f',typ=(fonction) ),
1629            DRX             =SIMP(statut='f',typ=(fonction) ),
1630            DRY             =SIMP(statut='f',typ=(fonction) ),
1631            DRZ             =SIMP(statut='f',typ=(fonction) ),
1632            GRX             =SIMP(statut='f',typ=(fonction) ),
1633            PRES            =SIMP(statut='f',typ=(fonction) ),
1634            PHI             =SIMP(statut='f',typ=(fonction) ),
1635            TEMP            =SIMP(statut='f',typ=(fonction) ),
1636            PRE1            =SIMP(statut='f',typ=(fonction) ),
1637            PRE2            =SIMP(statut='f',typ=(fonction) ),
1638          ),
1639
1640          FACE_IMPO       =FACT(statut='f',min=1,max='**',
1641            regles=(UN_PARMI('GROUP_MA','MAILLE'),
1642                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI','TEMP','PRE1','PRE2','DNOR','DTAN'),
1643                    EXCLUS('DNOR','DX'),
1644                    EXCLUS('DNOR','DY'),
1645                    EXCLUS('DNOR','DZ'),
1646                    EXCLUS('DNOR','DRX'),
1647                    EXCLUS('DNOR','DRY'),
1648                    EXCLUS('DNOR','DRZ'),
1649                    EXCLUS('DTAN','DX'),
1650                    EXCLUS('DTAN','DY'),
1651                    EXCLUS('DTAN','DZ'),
1652                    EXCLUS('DTAN','DRX'),
1653                    EXCLUS('DTAN','DRY'),
1654                    EXCLUS('DTAN','DRZ'),),
1655 #  rajout d un mot cle REPERE : / GLOBAL / LOCAL
1656            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1657            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1658            DX              =SIMP(statut='f',typ=(fonction) ),
1659            DY              =SIMP(statut='f',typ=(fonction) ),
1660            DZ              =SIMP(statut='f',typ=(fonction) ),
1661            DRX             =SIMP(statut='f',typ=(fonction) ),
1662            DRY             =SIMP(statut='f',typ=(fonction) ),
1663            DRZ             =SIMP(statut='f',typ=(fonction) ),
1664            GRX             =SIMP(statut='f',typ=(fonction) ),
1665            PRES            =SIMP(statut='f',typ=(fonction) ),
1666            PHI             =SIMP(statut='f',typ=(fonction) ),
1667            TEMP            =SIMP(statut='f',typ=(fonction) ),
1668            PRE1            =SIMP(statut='f',typ=(fonction) ),
1669            PRE2            =SIMP(statut='f',typ=(fonction) ),
1670            DNOR            =SIMP(statut='f',typ=(fonction) ),
1671            DTAN            =SIMP(statut='f',typ=(fonction) ),
1672          ),
1673
1674          LIAISON_DDL     =FACT(statut='f',min=1,max='**',
1675                                fr="Définir une relation linéaire entre des ddls de deux ou plusieurs noeuds",
1676            regles=(UN_PARMI('GROUP_NO','NOEUD'),),
1677            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1678            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1679            DDL             =SIMP(statut='o',typ='TXM',max='**'),
1680            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
1681            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
1682          ),
1683
1684          LIAISON_OBLIQUE =FACT(statut='f',min=1,max='**',
1685                                fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1686            regles=(UN_PARMI('GROUP_NO','NOEUD'),
1687                    UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
1688            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1689            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1690            ANGL_NAUT       =SIMP(statut='o',typ='R',max=3),
1691            DX              =SIMP(statut='f',typ=(fonction) ),
1692            DY              =SIMP(statut='f',typ=(fonction) ),
1693            DZ              =SIMP(statut='f',typ=(fonction) ),
1694            DRX             =SIMP(statut='f',typ=(fonction) ),
1695            DRY             =SIMP(statut='f',typ=(fonction) ),
1696            DRZ             =SIMP(statut='f',typ=(fonction) ),
1697          ),
1698
1699          LIAISON_GROUP   =FACT(statut='f',min=1,max='**',
1700                                fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1701            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1702                    UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1703                    EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1704                    EXCLUS('GROUP_MA_1','NOEUD_2'),
1705                    EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1706                    EXCLUS('GROUP_NO_1','MAILLE_2'),
1707                    EXCLUS('MAILLE_1','GROUP_NO_2'),
1708                    EXCLUS('MAILLE_1','NOEUD_2'),
1709                    EXCLUS('NOEUD_1','GROUP_MA_2'),
1710                    EXCLUS('NOEUD_1','MAILLE_2'),
1711                    EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1712            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1713            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1714            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
1715            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
1716            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1717            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1718            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
1719            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1720            SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1721            SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1722            DDL_1           =SIMP(statut='o',typ='TXM',max='**'),
1723            COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
1724            DDL_2           =SIMP(statut='o',typ='TXM',max='**'),
1725            COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
1726            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
1727            SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1728            TRAN            =SIMP(statut='f',typ='R',max=3),
1729            ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
1730            CENTRE          =SIMP(statut='f',typ='R',max=3),
1731          ),
1732
1733          CONTACT         =FACT(statut='f',fr="Imposer du contact avec ou sans frottement",min=1,max='**',
1734            regles=(UN_PARMI('GROUP_MA_2','MAILLE_2'),),
1735            APPARIEMENT     =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
1736                                  into=("NON","NODAL","NODAL_SYME","MAIT_ESCL","MAIT_ESCL_SYME")),
1737            RECHERCHE       =SIMP(statut='f',typ='TXM',defaut="NOEUD_VOISIN",into=("NOEUD_BOUCLE","NOEUD_VOISIN")),
1738            LISSAGE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
1739            NORMALE         =SIMP(statut='f',typ='TXM',defaut="MAIT",into=("MAIT","MAIT_ESCL")),
1740            METHODE         =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
1741                                  into=("CONTRAINTE","LAGRANGIEN","PENALISATION","CONTINUE") ),
1742            PROJECTION      =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","QUADRATIQUE") ),
1743            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1744            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1745            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1746            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1747            b_active        =BLOC(condition = "METHODE == 'CONTRAINTE' ",
1748                                  fr="Paramètres de la méthode des contraintes actives (contact uniquement)",
1749                 regles=(EXCLUS('DIST_2','COEF_IMPO'),
1750                         EXCLUS('DIST_1','COEF_IMPO'),),
1751                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","PRES","TEMP")),
1752                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS",) ),
1753                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1754                 b_reac_geom     =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1755                                  fr="Paramètre de la réactualisation géométrique",
1756                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
1757                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1758                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1759                 COEF_IMPO       =SIMP(statut='f',typ='R'),
1760                 COEF_MULT_2     =SIMP(statut='f',typ='R'),
1761                 VECT_NORM_2     =SIMP(statut='f',typ='R',max=3),
1762                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
1763                 DIST_1          =SIMP(statut='f',typ=(fonction)),
1764                 DIST_2          =SIMP(statut='f',typ=(fonction)),
1765                 STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),),
1766            b_lagrangien    =BLOC(condition = "METHODE == 'LAGRANGIEN' ",
1767                                  fr="Paramètres de la méthode Lagrangienne (contact avec ou sans frottement)",
1768                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1769                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1770                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1771                 b_reac_geom     =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1772                                  fr="Paramètre de la réactualisation géométrique",
1773                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
1774                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1775                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1776                 DIST_1          =SIMP(statut='f',typ=(fonction)),
1777                 DIST_2          =SIMP(statut='f',typ=(fonction)),
1778                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
1779                 STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
1780                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1781                      COULOMB         =SIMP(statut='o',typ='R',max=1),
1782                      COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut=0.E+0),
1783                      ),),
1784            b_penalisation       =BLOC(condition = "METHODE == 'PENALISATION' ",
1785                                       fr="Paramètres de la méthode pénalisée (contact avec ou sans frottement)",
1786                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1787                 E_N             =SIMP(statut='f',typ='R'),
1788                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1789                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1790                 b_reac_geom     =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1791                                  fr="Paramètre de la réactualisation géométrique",
1792                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
1793                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1794                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1795                 DIST_1          =SIMP(statut='f',typ=(fonction)),
1796                 DIST_2          =SIMP(statut='f',typ=(fonction)),
1797                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
1798                 STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
1799                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1800                      COULOMB         =SIMP(statut='o',typ='R',max=1),
1801                      E_T             =SIMP(statut='f',typ='R',
1802                                            fr="Active la pénalisation sur le frottement et définit le coefficient de pénalisation"),
1803                      COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut=0.E+0),
1804                      ),),
1805            b_continue      =BLOC(condition = "METHODE == 'CONTINUE' ",
1806                                  fr="Paramètres de la méthode continue (contact avec ou sans frottement)",
1807                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1808                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1809                 INTEGRATION     =SIMP(statut='f',typ='TXM',defaut="NOEUD",into=("GAUSS","NOEUD","SIMPSON","SIMPSON1","SIMPSON2")),
1810                 COEF_REGU_CONT  =SIMP(statut='f',typ='R',defaut=100.E+0),
1811                 MODL_AXIS       =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
1812                 DIRE_APPA       =SIMP(statut='f',typ='R',max=3),
1813                 ITER_GEOM_MAXI  =SIMP(statut='f',typ='I',defaut=2),
1814                 ITER_CONT_MAXI  =SIMP(statut='f',typ='I',defaut=30),
1815                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1816                      COULOMB         =SIMP(statut='o',typ='R',max=1),
1817                      ITER_FROT_MAXI  =SIMP(statut='f',typ='I',defaut=2),
1818                      COEF_REGU_FROT  =SIMP(statut='f',typ='R',defaut=100.E+0),
1819                      SEUIL_INIT      =SIMP(statut='f',typ='I',defaut=0),),),
1820          ),
1821
1822           LIAISON_UNIF    =FACT(statut='f',min=1,max='**',
1823                                fr="Imposer une meme valeur (inconnue) a des ddls d un emsemble de noeuds",
1824            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1825            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1826            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1827            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1828            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1829            DDL             =SIMP(statut='o',typ='TXM',max='**'),
1830          ),
1831
1832          LIAISON_SOLIDE  =FACT(statut='f',min=1,max='**',
1833                                fr="Modéliser une partie indéformable d une structure",
1834            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1835            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1836            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1837            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1838            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1839            NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
1840          ),
1841
1842
1843
1844          FORCE_NODALE    =FACT(statut='f',min=1,max='**',
1845            regles=(UN_PARMI('GROUP_NO','NOEUD'),
1846                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1847            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1848            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1849            FX              =SIMP(statut='f',typ=(fonction) ),
1850            FY              =SIMP(statut='f',typ=(fonction) ),
1851            FZ              =SIMP(statut='f',typ=(fonction) ),
1852            MX              =SIMP(statut='f',typ=(fonction) ),
1853            MY              =SIMP(statut='f',typ=(fonction) ),
1854            MZ              =SIMP(statut='f',typ=(fonction) ),
1855            ANGL_NAUT       =SIMP(statut='f',typ=(fonction),max=3 ),
1856          ),
1857
1858          FORCE_FACE      =FACT(statut='f',min=1,max='**',
1859            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1860                    AU_MOINS_UN('FX','FY','FZ'),),
1861            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1862            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1863            FX              =SIMP(statut='f',typ=(fonction) ),
1864            FY              =SIMP(statut='f',typ=(fonction) ),
1865            FZ              =SIMP(statut='f',typ=(fonction) ),
1866          ),
1867          FORCE_ARETE     =FACT(statut='f',min=1,max='**',
1868            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1869                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1870            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1871            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1872            FX              =SIMP(statut='f',typ=(fonction) ),
1873            FY              =SIMP(statut='f',typ=(fonction) ),
1874            FZ              =SIMP(statut='f',typ=(fonction) ),
1875            MX              =SIMP(statut='f',typ=(fonction) ),
1876            MY              =SIMP(statut='f',typ=(fonction) ),
1877            MZ              =SIMP(statut='f',typ=(fonction) ),
1878          ),
1879          FORCE_CONTOUR   =FACT(statut='f',min=1,max='**',
1880            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1881                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1882            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1883            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1884            FX              =SIMP(statut='f',typ=(fonction) ),
1885            FY              =SIMP(statut='f',typ=(fonction) ),
1886            FZ              =SIMP(statut='f',typ=(fonction) ),
1887            MX              =SIMP(statut='f',typ=(fonction) ),
1888            MY              =SIMP(statut='f',typ=(fonction) ),
1889            MZ              =SIMP(statut='f',typ=(fonction) ),
1890          ),
1891
1892          FORCE_INTERNE   =FACT(statut='f',min=1,max='**',
1893            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1894                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1895                    AU_MOINS_UN('FX','FY','FZ'),),
1896            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1897            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1898            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1899            FX              =SIMP(statut='f',typ=(fonction) ),
1900            FY              =SIMP(statut='f',typ=(fonction) ),
1901            FZ              =SIMP(statut='f',typ=(fonction) ),
1902          ),
1903
1904          PRES_REP        =FACT(statut='f',min=1,max='**',
1905            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1906                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1907                    AU_MOINS_UN('PRES','CISA_2D'),),
1908            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1909            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1910            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1911            PRES            =SIMP(statut='f',typ=(fonction) ),
1912            CISA_2D         =SIMP(statut='f',typ=(fonction) ),
1913          ),
1914
1915          EPSI_INIT       =FACT(statut='f',min=1,max='**',
1916            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1917                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1918                    AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ'),),
1919            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1920            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1921            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1922            EPXX            =SIMP(statut='f',typ=(fonction) ),
1923            EPYY            =SIMP(statut='f',typ=(fonction) ),
1924            EPZZ            =SIMP(statut='f',typ=(fonction) ),
1925            EPXY            =SIMP(statut='f',typ=(fonction) ),
1926            EPXZ            =SIMP(statut='f',typ=(fonction) ),
1927            EPYZ            =SIMP(statut='f',typ=(fonction) ),
1928          ),
1929
1930          FORCE_POUTRE    =FACT(statut='f',min=1,max='**',
1931            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1932                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1933                    AU_MOINS_UN('FX','FY','FZ','N','VY','VZ'),
1934                    PRESENT_ABSENT('FX','N','VY','VZ'),
1935                    PRESENT_ABSENT('FY','N','VY','VZ'),
1936                    PRESENT_ABSENT('FZ','N','VY','VZ'),
1937                    PRESENT_ABSENT('N','FX','FY','FZ'),
1938                    PRESENT_ABSENT('VY','FX','FY','FZ'),
1939                    PRESENT_ABSENT('VZ','FX','FY','FZ'),),
1940 #  rajout d un mot cle REPERE : / GLOBAL / LOCAL
1941            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1942            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1943            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1944            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE") ),
1945            FX              =SIMP(statut='f',typ=(fonction) ),
1946            FY              =SIMP(statut='f',typ=(fonction) ),
1947            FZ              =SIMP(statut='f',typ=(fonction) ),
1948            N               =SIMP(statut='f',typ=(fonction) ),
1949            VY              =SIMP(statut='f',typ=(fonction) ),
1950            VZ              =SIMP(statut='f',typ=(fonction) ),
1951          ),
1952
1953          FORCE_TUYAU     =FACT(statut='f',min=1,max='**',
1954            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1955                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
1956            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1957            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1958            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1959            PRES            =SIMP(statut='f',typ=(fonction) ),
1960          ),
1961
1962          FORCE_COQUE     =FACT(statut='f',min=1,max='**',
1963            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1964                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1965                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
1966                    PRESENT_ABSENT('FX','PRES','F1','F2','F3','MF1','MF2'),
1967                    PRESENT_ABSENT('FY','PRES','F1','F2','F3','MF1','MF2'),
1968                    PRESENT_ABSENT('FZ','PRES','F1','F2','F3','MF1','MF2'),
1969                    PRESENT_ABSENT('MX','PRES','F1','F2','F3','MF1','MF2'),
1970                    PRESENT_ABSENT('MY','PRES','F1','F2','F3','MF1','MF2'),
1971                    PRESENT_ABSENT('MZ','PRES','F1','F2','F3','MF1','MF2'),
1972                    PRESENT_ABSENT('F1','PRES','FX','FY','FZ','MX','MY','MZ'),
1973                    PRESENT_ABSENT('F2','PRES','FX','FY','FZ','MX','MY','MZ'),
1974                    PRESENT_ABSENT('F3','PRES','FX','FY','FZ','MX','MY','MZ'),
1975                    PRESENT_ABSENT('MF1','PRES','FX','FY','FZ','MX','MY','MZ'),
1976                    PRESENT_ABSENT('MF2','PRES','FX','FY','FZ','MX','MY','MZ'),
1977                    PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
1978 #  rajout d un mot cle REPERE : / GLOBAL / LOCAL
1979            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1980            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1981            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1982            FX              =SIMP(statut='f',typ=(fonction) ),
1983            FY              =SIMP(statut='f',typ=(fonction) ),
1984            FZ              =SIMP(statut='f',typ=(fonction) ),
1985            MX              =SIMP(statut='f',typ=(fonction) ),
1986            MY              =SIMP(statut='f',typ=(fonction) ),
1987            MZ              =SIMP(statut='f',typ=(fonction) ),
1988            F1              =SIMP(statut='f',typ=(fonction) ),
1989            F2              =SIMP(statut='f',typ=(fonction) ),
1990            F3              =SIMP(statut='f',typ=(fonction) ),
1991            MF1             =SIMP(statut='f',typ=(fonction) ),
1992            MF2             =SIMP(statut='f',typ=(fonction) ),
1993            PRES            =SIMP(statut='f',typ=(fonction) ),
1994            PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",
1995                                  into=("SUP","INF","MOY","MAIL") ),
1996          ),
1997
1998          LIAISON_COQUE   =FACT(statut='f',min=1,max='**',
1999            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2000            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2001            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
2002            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
2003            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2004            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2005            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
2006            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
2007            NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
2008          ),
2009
2010
2011          VITE_FACE       =FACT(statut='f',min=1,max='**',
2012            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
2013                    PRESENT_ABSENT('GROUP_MA','MAILLE'),),
2014            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2015            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2016            VNOR            =SIMP(statut='o',typ=(fonction) ),
2017          ),
2018          IMPE_FACE       =FACT(statut='f',min=1,max='**',
2019            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
2020                    PRESENT_ABSENT('GROUP_MA','MAILLE'),),
2021            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2022            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2023            IMPE            =SIMP(statut='o',typ=(fonction) ),
2024          ),
2025          ONDE_PLANE      =FACT(statut='f',min=1,max='**',
2026            DIRECTION       =SIMP(statut='o',typ='R',max='**'),
2027            TYPE_ONDE       =SIMP(statut='o',typ='TXM' ),
2028            FONC_SIGNAL     =SIMP(statut='o',typ=(fonction) ),
2029            DIST_ORIG       =SIMP(statut='o',typ='R' ),
2030          ),
2031
2032
2033
2034          FLUX_THM_REP    =FACT(statut='f',min=1,max='**',
2035            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2036                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2037                    AU_MOINS_UN('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
2038            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2039            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2040            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2041            FLUN            =SIMP(statut='f',typ=(fonction) ),
2042            FLUN_HYDR1      =SIMP(statut='f',typ=(fonction) ),
2043            FLUN_HYDR2      =SIMP(statut='f',typ=(fonction) ),
2044          ),
2045
2046          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
2047 )  ;
2048 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
2049 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2050 # ======================================================================
2051 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2052 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2053 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2054 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2055 # (AT YOUR OPTION) ANY LATER VERSION.
2056 #
2057 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2058 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2059 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2060 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2061 #
2062 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2063 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2064 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2065 # ======================================================================
2066 AFFE_CHAR_OPS011=OPER(nom="AFFE_CHAR_OPS011",op= 190,sd_prod=char_ther,
2067                       fr=" ",
2068                       docu="",reentrant='n',
2069             UIinfo={"groupes":("Outils métier",)},
2070          regles=(AU_MOINS_UN('CARA_TORSION', ),),
2071          MODELE          =SIMP(statut='o',typ=modele ),
2072          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",
2073                                into=("OUI","NON") ),
2074          CARA_TORSION    =FACT(statut='f',min=1,max='**',
2075            regles=(UN_PARMI('TOUT','GROUP_MA'),),
2076            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2077            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2078          ),
2079          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2080 )  ;
2081 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
2082 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2083 # ======================================================================
2084 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2085 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2086 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2087 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2088 # (AT YOUR OPTION) ANY LATER VERSION.
2089 #
2090 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2091 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2092 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2093 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2094 #
2095 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2096 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2097 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2098 # ======================================================================
2099 AFFE_CHAR_THER=OPER(nom="AFFE_CHAR_THER",op=34,sd_prod=char_ther
2100                     ,fr="Affectation de charges et conditions aux limites thermiques constantes",
2101                     docu="U4.44.02-g",reentrant='n',
2102             UIinfo={"groupes":("Modélisation",)},
2103       regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','FLUX_REP','ECHANGE',
2104                           'ECHANGE_PAROI','GRAD_TEMP_INIT','LIAISON_DDL','LIAISON_GROUP',
2105                           'LIAISON_UNIF','LIAISON_CHAMNO','RAYONNEMENT','LIAISON_MAIL' ),),
2106          VERI_DDL        =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="OUI"),
2107          MODELE          =SIMP(statut='o',typ=(modele) ),
2108
2109          TEMP_IMPO       =FACT(statut='f',min=1,max='**',
2110            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
2111                    AU_MOINS_UN('TEMP_SUP','TEMP','TEMP_INF'),),
2112            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2113            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2114            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2115            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2116            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2117            TEMP            =SIMP(statut='f',typ='R'),
2118            TEMP_INF        =SIMP(statut='f',typ='R'),
2119            TEMP_SUP        =SIMP(statut='f',typ='R'), ),
2120
2121          FLUX_REP        =FACT(statut='f',min=1,max='**',
2122            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2123                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2124                    PRESENT_PRESENT('CARA_TORSION','GROUP_MA'),
2125                    AU_MOINS_UN('FLUN','FLUN_INF','FLUN_SUP','CARA_TORSION') ),
2126            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2127            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2128            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2129            FLUN            =SIMP(statut='f',typ='R'),
2130            FLUN_INF        =SIMP(statut='f',typ='R'),
2131            FLUN_SUP        =SIMP(statut='f',typ='R'),
2132            CARA_TORSION    =SIMP(statut='f',typ=tabl_aire_int ),
2133          ),
2134
2135
2136          RAYONNEMENT     =FACT(statut='f',min=1,max='**',
2137            fr="Attention, exprimer les températures en Celsius si rayonnement",
2138            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2139                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2140            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2141            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2142            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2143            SIGMA           =SIMP(statut='o',typ='R'),
2144            EPSILON         =SIMP(statut='o',typ='R'),
2145            TEMP_EXT        =SIMP(statut='o',typ='R'),
2146          ),
2147
2148          ECHANGE         =FACT(statut='f',min=1,max='**',
2149            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2150                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2151                    AU_MOINS_UN('COEF_H','COEF_H_INF','COEF_H_SUP'),
2152                    ENSEMBLE('COEF_H','TEMP_EXT',),
2153                    ENSEMBLE('COEF_H_INF','TEMP_EXT_INF'),
2154                              ENSEMBLE('COEF_H_SUP','TEMP_EXT_SUP'),),
2155            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2156            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2157            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2158            COEF_H          =SIMP(statut='f',typ='R'),
2159            TEMP_EXT        =SIMP(statut='f',typ='R'),
2160            COEF_H_INF      =SIMP(statut='f',typ='R'),
2161            TEMP_EXT_INF    =SIMP(statut='f',typ='R'),
2162            COEF_H_SUP      =SIMP(statut='f',typ='R'),
2163            TEMP_EXT_SUP    =SIMP(statut='f',typ='R'),
2164          ),
2165
2166          SOURCE          =FACT(statut='f',min=1,max='**',
2167            regles=(UN_PARMI('SOUR','SOUR_CALCULEE',),
2168                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2169                    PRESENT_ABSENT('SOUR_CALCULEE','TOUT','GROUP_MA','MAILLE'),),
2170            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2171            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2172            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2173            SOUR            =SIMP(statut='f',typ='R'),
2174            SOUR_CALCULEE   =SIMP(statut='f',typ=(cham_elem_sour_r) ),
2175          ),
2176
2177          GRAD_TEMP_INIT  =FACT(statut='f',min=1,max='**',
2178            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2179                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2180                    AU_MOINS_UN('FLUX_X','FLUX_Y','FLUX_Z'),),
2181            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2182            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2183            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2184            FLUX_X          =SIMP(statut='f',typ='R' ),
2185            FLUX_Y          =SIMP(statut='f',typ='R' ),
2186            FLUX_Z          =SIMP(statut='f',typ='R' ),
2187                          ),
2188
2189          LIAISON_DDL     =FACT(statut='f',min=1,max='**',
2190            regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
2191            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2192            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2193            DDL             =SIMP(statut='f',typ='TXM',max='**',
2194                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2195            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
2196            COEF_IMPO       =SIMP(statut='o',typ='R' ),
2197          ),
2198
2199          LIAISON_GROUP   =FACT(statut='f',min=1,max='**',
2200            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
2201                    UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
2202                              EXCLUS('GROUP_MA_1','GROUP_NO_2'),
2203                              EXCLUS('GROUP_MA_1','NOEUD_2'),
2204                    EXCLUS('GROUP_NO_1','GROUP_MA_2'),
2205                              EXCLUS('GROUP_NO_1','MAILLE_2'),
2206                              EXCLUS('MAILLE_1','GROUP_NO_2'),
2207                              EXCLUS('MAILLE_1','NOEUD_2'),
2208                              EXCLUS('NOEUD_1','GROUP_MA_2'),
2209                              EXCLUS('NOEUD_1','MAILLE_2'),
2210                              EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
2211            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2212            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2213            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
2214            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
2215            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2216            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2217            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
2218            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
2219            SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
2220            SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
2221            DDL_1           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2222                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2223            COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
2224            DDL_2           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2225                                  into=("TEMP","TEMP_INF","TEMP_SUP",) ),
2226            COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
2227            COEF_IMPO       =SIMP(statut='o',typ='R' ),
2228            SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2229            TRAN            =SIMP(statut='f',typ='R',max='**'),
2230            ANGL_NAUT       =SIMP(statut='f',typ='R',max='**'),
2231            CENTRE          =SIMP(statut='f',typ='R',max='**'),
2232          ),
2233
2234          LIAISON_MAIL    =FACT(statut='f',min=1,max='**',
2235            regles=(AU_MOINS_UN('GROUP_MA_MAIT','MAILLE_MAIT'),
2236                    AU_MOINS_UN('GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL',
2237                                'NOEUD_ESCL'),),
2238            GROUP_MA_MAIT   =SIMP(statut='f',typ=grma,max='**'),
2239            MAILLE_MAIT     =SIMP(statut='f',typ=ma,max='**'),
2240            GROUP_MA_ESCL   =SIMP(statut='f',typ=grma,max='**'),
2241            MAILLE_ESCL     =SIMP(statut='f',typ=ma,max='**'),
2242            GROUP_NO_ESCL   =SIMP(statut='f',typ=grno,max='**'),
2243            NOEUD_ESCL      =SIMP(statut='f',typ=no,max='**'),
2244            TRAN            =SIMP(statut='f',typ='R',max='**' ),
2245            ANGL_NAUT       =SIMP(statut='f',typ='R',max='**' ),
2246            CENTRE          =SIMP(statut='f',typ='R',max='**' ),
2247          ),
2248
2249          ECHANGE_PAROI   =FACT(statut='f',min=1,max='**',
2250            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
2251                    UN_PARMI('GROUP_MA_2','MAILLE_2'),),
2252            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2253            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2254            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2255            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2256            COEF_H          =SIMP(statut='f',typ='R'),
2257            TRAN            =SIMP(statut='f',typ='R',min=2,max=3),
2258            ANGL_NAUT       =SIMP(statut='f',typ='R',min=1,max=3),
2259            CENTRE          =SIMP(statut='f',typ='R',min=2,max=3),
2260                          ),
2261
2262          LIAISON_UNIF    =FACT(statut='f',min=1,max='**',
2263            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
2264            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2265            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2266            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2267            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2268            DDL             =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2269                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2270          ),
2271
2272          LIAISON_CHAMNO  =FACT(statut='f',min=1,max='**',
2273            CHAM_NO         =SIMP(statut='o',typ=cham_no),# CO()# "il faut definir une structure de donnee generique chamno"
2274            COEF_IMPO       =SIMP(statut='o',typ='R' ),
2275            NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
2276          ),
2277
2278          CONVECTION      =FACT(statut='f',min=1,max='**',
2279            VITESSE         =SIMP(statut='o',typ=(cham_no_depl_r) ),
2280          ),
2281
2282
2283          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2284 )  ;
2285 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
2286 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2287 # ======================================================================
2288 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2289 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2290 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2291 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2292 # (AT YOUR OPTION) ANY LATER VERSION.
2293 #
2294 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2295 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2296 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2297 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2298 #
2299 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2300 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2301 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2302 # ======================================================================
2303 AFFE_CHAR_THER_F=OPER(nom="AFFE_CHAR_THER_F",op=33,sd_prod=char_ther,
2304                      fr="Affectation de charges et conditions aux limites thermiques fonction dune grandeur (temps, ...)",
2305                      docu="U4.44.02-g",reentrant='n',
2306             UIinfo={"groupes":("Modélisation",)},
2307       regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','FLUX_REP','FLUX_NL','ECHANGE',
2308                           'ECHANGE_PAROI','LIAISON_DDL','LIAISON_GROUP','LIAISON_UNIF',
2309                           'GRAD_TEMP_INIT','RAYONNEMENT'),),
2310          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2311          MODELE          =SIMP(statut='o',typ=(modele) ),
2312
2313          TEMP_IMPO       =FACT(statut='f',min=1,max='**',
2314            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
2315                    AU_MOINS_UN('TEMP_SUP','TEMP','TEMP_INF','EVOL_THER'),
2316                    PRESENT_ABSENT('EVOL_THER','TEMP','TEMP_INF','TEMP_SUP'),),
2317            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2318            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2319            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2320            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2321            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2322            EVOL_THER       =SIMP(statut='f',typ=(evol_ther) ),
2323            DDL             =SIMP(statut='f',typ='TXM',into=("TEMP",) ),
2324            TEMP            =SIMP(statut='f',typ=(fonction) ),
2325            TEMP_INF        =SIMP(statut='f',typ=(fonction) ),
2326            TEMP_SUP        =SIMP(statut='f',typ=(fonction) ),
2327          ),
2328
2329          FLUX_REP        =FACT(statut='f',min=1,max='**',
2330            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2331                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2332                    AU_MOINS_UN('FLUN','FLUN_INF','FLUN_SUP','FLUX_X','FLUX_Y','FLUX_Z'),),
2333            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2334            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2335            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2336            FLUN            =SIMP(statut='f',typ=(fonction) ),
2337            FLUN_INF        =SIMP(statut='f',typ=(fonction) ),
2338            FLUN_SUP        =SIMP(statut='f',typ=(fonction) ),
2339            FLUX_X          =SIMP(statut='f',typ=(fonction) ),
2340            FLUX_Y          =SIMP(statut='f',typ=(fonction) ),
2341            FLUX_Z          =SIMP(statut='f',typ=(fonction) ),
2342          ),
2343
2344          FLUX_NL         =FACT(statut='f',min=1,max='**',
2345            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2346                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2347            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2348            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2349            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2350            FLUN            =SIMP(statut='o',typ=(fonction) ),
2351          ),
2352
2353
2354          RAYONNEMENT     =FACT(statut='f',min=1,max='**',
2355            fr="Attention, exprimer les températures en Celsius si rayonnement",
2356            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2357                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2358            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2359            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2360            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2361            SIGMA           =SIMP(statut='o',typ=(fonction) ),
2362            EPSILON         =SIMP(statut='o',typ=(fonction) ),
2363            TEMP_EXT        =SIMP(statut='o',typ=(fonction) ),
2364          ),
2365
2366
2367
2368          ECHANGE         =FACT(statut='f',min=1,max='**',
2369            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2370                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2371                    AU_MOINS_UN('COEF_H','COEF_H_INF','COEF_H_SUP'),
2372                    ENSEMBLE('COEF_H','TEMP_EXT'),
2373                    ENSEMBLE('COEF_H_INF','TEMP_EXT_INF'),
2374                    ENSEMBLE('COEF_H_SUP','TEMP_EXT_SUP'),),
2375            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2376            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2377            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2378            COEF_H          =SIMP(statut='f',typ=(fonction) ),
2379            TEMP_EXT        =SIMP(statut='f',typ=(fonction) ),
2380            COEF_H_INF      =SIMP(statut='f',typ=(fonction) ),
2381            TEMP_EXT_INF    =SIMP(statut='f',typ=(fonction) ),
2382            COEF_H_SUP      =SIMP(statut='f',typ=(fonction) ),
2383            TEMP_EXT_SUP    =SIMP(statut='f',typ=(fonction) ),
2384          ),
2385
2386
2387          SOURCE          =FACT(statut='f',min=1,max='**',
2388            regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),),
2389            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2390            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2391            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2392            SOUR            =SIMP(statut='o',typ=(fonction) ),
2393          ),
2394
2395          GRAD_TEMP_INIT  =FACT(statut='f',min=1,max='**',
2396            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2397                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2398                    AU_MOINS_UN('FLUX_X','FLUX_Y','FLUX_Z'),),
2399            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2400            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2401            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2402            FLUX_X          =SIMP(statut='f',typ=(fonction) ),
2403            FLUX_Y          =SIMP(statut='f',typ=(fonction) ),
2404            FLUX_Z          =SIMP(statut='f',typ=(fonction) ),
2405          ),
2406
2407          ECHANGE_PAROI   =FACT(statut='f',min=1,max='**',
2408            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
2409                         UN_PARMI('GROUP_MA_2','MAILLE_2'),),
2410            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2411            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2412            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2413            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2414            COEF_H          =SIMP(statut='o',typ=(fonction) ),
2415            TRAN            =SIMP(statut='f',typ='R',min=2,max=3),
2416            ANGL_NAUT       =SIMP(statut='f',typ='R',min=1,max=3),
2417            CENTRE          =SIMP(statut='f',typ='R',min=2,max=3),
2418          ),
2419
2420         LIAISON_DDL     =FACT(statut='f',min=1,max='**',
2421            regles=(UN_PARMI('GROUP_NO','NOEUD'),),
2422            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2423            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2424            DDL             =SIMP(statut='f',typ='TXM',max='**',into=("TEMP","TEMP_INF","TEMP_SUP") ),
2425            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
2426            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
2427          ),
2428
2429          LIAISON_GROUP   =FACT(statut='f',min=1,max='**',
2430            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
2431                    UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
2432                              EXCLUS('GROUP_MA_1','GROUP_NO_2'),
2433                         EXCLUS('GROUP_MA_1','NOEUD_2'),
2434                    EXCLUS('GROUP_NO_1','GROUP_MA_2'),
2435                         EXCLUS('GROUP_NO_1','MAILLE_2'),
2436                         EXCLUS('MAILLE_1','GROUP_NO_2'),
2437                         EXCLUS('MAILLE_1','NOEUD_2'),
2438                         EXCLUS('NOEUD_1','GROUP_MA_2'),
2439                         EXCLUS('NOEUD_1','MAILLE_2'),
2440                         EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
2441            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2442            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2443            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
2444            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
2445            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2446            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2447            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
2448            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
2449            SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
2450            SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
2451            DDL_1           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2452                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2453            COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
2454            DDL_2           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2455                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2456            COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
2457            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
2458            SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2459            TRAN            =SIMP(statut='f',typ='R',max='**'),
2460            ANGL_NAUT       =SIMP(statut='f',typ='R',max='**'),
2461            CENTRE          =SIMP(statut='f',typ='R',max='**'),
2462          ),
2463
2464          LIAISON_UNIF    =FACT(statut='f',min=1,max='**',
2465            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
2466            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2467            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2468            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2469            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2470            DDL             =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2471                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2472          ),
2473
2474          CONVECTION      =FACT(statut='f',min=1,max='**',
2475            VITESSE         =SIMP(statut='o',typ=(cham_no_depl_r) ),
2476          ),
2477
2478          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2479 )  ;
2480 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
2481 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2482 # ======================================================================
2483 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2484 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2485 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2486 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2487 # (AT YOUR OPTION) ANY LATER VERSION.
2488 #
2489 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2490 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2491 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2492 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2493 #
2494 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2495 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2496 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2497 # ======================================================================
2498 # RESPONSABLE VABHHTS J.PELLET
2499 AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
2500                    fr="Affectation de caractéristiques de matériaux à un maillage",
2501                          docu="U4.43.03-g",reentrant='n',
2502             UIinfo={"groupes":("Modélisation",)},
2503          MAILLAGE        =SIMP(statut='o',typ=maillage),
2504          MODELE          =SIMP(statut='f',typ=modele),
2505          AFFE            =FACT(statut='o',min=1,max='**',
2506            regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
2507            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2508            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2509            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2510            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2511            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2512            MATER           =SIMP(statut='o',typ=mater),
2513            TEMP_REF        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2514          ),
2515 )  ;
2516 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
2517 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2518 # ======================================================================
2519 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2520 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2521 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2522 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2523 # (AT YOUR OPTION) ANY LATER VERSION.
2524 #
2525 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2526 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2527 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2528 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2529 #
2530 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2531 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2532 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2533 # ======================================================================
2534 # RESPONSABLE JMBHH01 J.M.PROIX
2535 AFFE_MODELE=OPER(nom="AFFE_MODELE",op=18,sd_prod=modele,docu="U4.41.01-g",
2536             UIinfo={"groupes":("Modélisation",)},
2537                  fr="Affectation des éléments finis sur le maillage",reentrant='n',
2538          regles=(AU_MOINS_UN('AFFE','AFFE_SOUS_STRUC'),),
2539          MAILLAGE        =SIMP(statut='o',typ=(maillage) ),
2540          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
2541          VERIF           =SIMP(statut='f',typ='TXM',max=2,into=("MAILLE","NOEUD") ),
2542          AFFE_SOUS_STRUC =FACT(statut='f',min=1,max=1,
2543            regles=(UN_PARMI('TOUT','MAILLE'),),
2544            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2545            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2546            PHENOMENE       =SIMP(statut='f',typ='TXM',defaut="MECANIQUE",into=("MECANIQUE",) ),
2547          ),
2548          AFFE            =FACT(statut='f',min=1,max='**',
2549            regles=(UN_PARMI('TOUT','GROUP_MA','GROUP_NO','MAILLE','NOEUD'),),
2550            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2551            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2552            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2553            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2554            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2555            PHENOMENE       =SIMP(statut='o',typ='TXM',
2556                                  into=("MECANIQUE","THERMIQUE","ACOUSTIQUE") ),
2557                 b_mecanique     =BLOC( condition = "PHENOMENE=='MECANIQUE'",
2558                                         fr="modelisations mécaniques",
2559                     MODELISATION    =SIMP(statut='o',typ='TXM', into=(
2560                                                                       "2D_DIS_T",
2561                                                                       "2D_DIS_TR",
2562                                                                       "2D_FLUI_ABSO",
2563                                                                       "2D_FLUI_PESA",
2564                                                                       "2D_FLUI_STRU",
2565                                                                       "2D_FLUIDE",
2566                                                                       "3D",
2567                                                                       "3D_ABSO",
2568                                                                       "3D_FAISCEAU",
2569                                                                       "3D_FLUI_ABSO",
2570                                                                       "3D_FLUIDE",
2571                                                                       "3D_HHM" ,
2572                                                                       "3D_HM",
2573                                                                       "3D_INCO",
2574                                                                       "3D_JOINT_CT",
2575                                                                       "3D_SI",
2576                                                                       "3D_THH",
2577                                                                       "3D_THHM",
2578                                                                       "3D_THM",
2579                                                                       "3D_GRAD_EPSI",
2580                                                                       "3D_GRAD_VARI",
2581                                                                       "APPUI_REP",
2582                                                                       "ASSE_GRIL",
2583                                                                       "AXIS",
2584                                                                       "AXIS_FLUI_STRU",
2585                                                                       "AXIS_FLUIDE",
2586                                                                       "AXIS_FOURIER",
2587                                                                       "AXIS_HHM",
2588                                                                       "AXIS_HM",
2589                                                                       "AXIS_INCO",
2590                                                                       "AXIS_SI",
2591                                                                       "AXIS_THH",
2592                                                                       "AXIS_THHM",
2593                                                                       "AXIS_THM",
2594                                                                       "AXIS_GRAD_VARI",
2595                                                                       "AXIS_FISSURE",
2596                                                                       "BARRE",
2597                                                                       "2D_BARRE",
2598                                                                       "C_PLAN",
2599                                                                       "C_PLAN_SI",
2600                                                                       "C_PLAN_GRAD_EPSI",
2601                                                                       "C_PLAN_GRAD_VARI",
2602                                                                       "CABLE",
2603                                                                       "CABLE_POULIE",
2604                                                                       "COQUE_3D",
2605                                                                       "COQUE_AXIS",
2606                                                                       "COQUE_C_PLAN",
2607                                                                       "COQUE_D_PLAN",
2608                                                                       "D_PLAN",
2609                                                                       "D_PLAN_GRAD_EPSI",
2610                                                                       "D_PLAN_GRAD_VARI",
2611                                                                       "PLAN_FISSURE",
2612                                                                       "D_PLAN_ABSO",
2613                                                                       "D_PLAN_HHM",
2614                                                                       "D_PLAN_HM",
2615                                                                       "D_PLAN_INCO",
2616                                                                       "D_PLAN_SI",
2617                                                                       "D_PLAN_THH",
2618                                                                       "D_PLAN_THHM",
2619                                                                       "D_PLAN_THM",
2620                                                                        "3D_HHMD",
2621                                                                        "3D_HMD",
2622                                                                        "3D_THHD",
2623                                                                        "3D_THVD",
2624                                                                        "3D_THHMD",
2625                                                                        "3D_THMD",
2626                                                                        "AXIS_HHMD",
2627                                                                        "AXIS_HMD",
2628                                                                        "AXIS_THHD",
2629                                                                        "AXIS_THVD",
2630                                                                        "AXIS_THHMD",
2631                                                                        "AXIS_THMD",
2632                                                                        "D_PLAN_HHMD",
2633                                                                        "D_PLAN_HMD",
2634                                                                        "D_PLAN_THHD",
2635                                                                        "D_PLAN_THVD",
2636                                                                        "D_PLAN_THHMD",
2637                                                                        "D_PLAN_THMD",
2638                                                                       "DIS_T",
2639                                                                       "DIS_TR",
2640                                                                       "DKT",
2641                                                                       "DST",
2642                                                                       "FLUI_STRU",
2643                                                                       "GRILLE",
2644                                                                       "POU_C_T",
2645                                                                       "POU_D_E",
2646                                                                       "POU_D_EM",
2647                                                                       "POU_D_T",
2648                                                                       "POU_D_T_GD",
2649                                                                       "POU_D_TG",
2650                                                                       "POU_D_TGM",
2651                                                                       "Q4G",
2652                                                                       "TUYAU_3M",
2653                                                                       "TUYAU_6M"
2654                                                                      )  )  ),
2655
2656                 b_thermique     =BLOC( condition = "PHENOMENE=='THERMIQUE'",
2657                                         fr="modelisations thermiques",
2658                     MODELISATION    =SIMP(statut='o',typ='TXM',into=(
2659                                                                       "3D",
2660                                                                       "3D_DIAG",
2661                                                                       "AXIS",
2662                                                                       "AXIS_DIAG",
2663                                                                       "AXIS_FOURIER",
2664                                                                       "COQUE",
2665                                                                       "COQUE_AXIS",
2666                                                                       "COQUE_PLAN",
2667                                                                       "PLAN",
2668                                                                       "PLAN_DIAG",
2669                                                                       ),),),
2670
2671                 b_acoustique    =BLOC( condition = "PHENOMENE=='ACOUSTIQUE'",
2672                                         fr="modelisations acoustiques",
2673                      MODELISATION    =SIMP(statut='o',typ='TXM',into=(
2674                                                                        "3D",
2675                                                                        "PLAN"
2676                                                                        ), ),),
2677
2678          ),
2679 ) ;
2680 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
2681 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2682 # ======================================================================
2683 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2684 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2685 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2686 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2687 # (AT YOUR OPTION) ANY LATER VERSION.
2688 #
2689 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2690 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2691 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2692 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2693 #
2694 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2695 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2696 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2697 # ======================================================================
2698 AIDE=PROC(nom="AIDE",op=42,docu="U4.02.01-g",
2699             UIinfo={"groupes":("Modélisation",)},
2700           fr="Interrogation sur le catalogue des commandes et les concepts produits",
2701          regles=(AU_MOINS_UN('CONCEPT','TYPE_ELEM', ),),
2702          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
2703          TYPE_ELEM       =FACT(fr="couple type_elem option",
2704                                statut='f',min=1,max=1,
2705            INITEL          =SIMP(statut='f',typ='TXM',defaut="NON",
2706                                  into=("OUI","NON",) ),
2707          ),
2708          CONCEPT         =FACT(statut='f',min=1,max='**',
2709            NOM             =SIMP(fr="liste des noms de concept",
2710                                  statut='f',typ='TXM',max='**',defaut="*"),
2711            OPTION          =SIMP(fr="option d'édition de concept",
2712                                  statut='f',typ='TXM',defaut="TOUT_TYPE",
2713                                  into=("TOUT_TYPE","CREER","A_CREER",) ),
2714          ),
2715 ) ;
2716 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
2717 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2718 # ======================================================================
2719 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2720 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2721 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2722 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2723 # (AT YOUR OPTION) ANY LATER VERSION.
2724 #
2725 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2726 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2727 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2728 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2729 #
2730 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2731 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2732 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2733 # ======================================================================
2734 # RESPONSABLE VABHHTS J.PELLET
2735 ASSE_MAILLAGE=OPER(nom="ASSE_MAILLAGE",op= 105,sd_prod=maillage,
2736                    fr="Assembler deux maillages sous un seul nom",
2737                    docu="U4.23.03-f",reentrant='n',
2738             UIinfo={"groupes":("Maillage",)},
2739          MAILLAGE        =SIMP(statut='o',typ=maillage,min=2,max=2 ),
2740 )  ;
2741 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
2742 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2743 # ======================================================================
2744 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2745 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2746 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2747 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2748 # (AT YOUR OPTION) ANY LATER VERSION.
2749 #
2750 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2751 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2752 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2753 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2754 #
2755 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2756 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2757 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2758 # ======================================================================
2759 ASSE_MATR_GENE=OPER(nom="ASSE_MATR_GENE",op= 128,sd_prod=matr_asse_gene_r,
2760                     fr="Assemblage des matrices généralisées de macro éléments pour construction de la matrice globale généralisée",
2761                     docu="U4.65.04-e",reentrant='n',
2762             UIinfo={"groupes":("Matrices/vecteurs",)},
2763          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
2764          OPTION          =SIMP(statut='o',typ='TXM',into=("RIGI_GENE","MASS_GENE","AMOR_GENE") ),
2765 )  ;
2766 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
2767 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2768 # ======================================================================
2769 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2770 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2771 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2772 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2773 # (AT YOUR OPTION) ANY LATER VERSION.
2774 #
2775 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2776 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2777 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2778 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2779 #
2780 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2781 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2782 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2783 # ======================================================================
2784 # RESPONSABLE VABHHTS J.PELLET
2785 def asse_matrice_prod(MATR_ELEM,**args):
2786   if AsType(MATR_ELEM) == matr_elem_depl_r : return matr_asse_depl_r
2787   if AsType(MATR_ELEM) == matr_elem_depl_c : return matr_asse_depl_c
2788   if AsType(MATR_ELEM) == matr_elem_temp_r : return matr_asse_temp_r
2789   if AsType(MATR_ELEM) == matr_elem_pres_c : return matr_asse_pres_c
2790   raise AsException("type de concept resultat non prevu")
2791
2792 ASSE_MATRICE=OPER(nom="ASSE_MATRICE",op=12,sd_prod=asse_matrice_prod,
2793                   fr="Construction d une matrice assemblée",docu="U4.61.22-g",reentrant='n',
2794             UIinfo={"groupes":("Matrices/vecteurs",)},
2795          MATR_ELEM       =SIMP(statut='o',
2796                                typ=(matr_elem_depl_r,matr_elem_depl_c,matr_elem_temp_r,matr_elem_pres_c) ),
2797          NUME_DDL        =SIMP(statut='o',typ=nume_ddl),
2798          CHAR_CINE       =SIMP(statut='f',typ=(char_cine_meca,char_cine_ther,char_cine_acou) ),
2799          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
2800 )  ;
2801 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
2802 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2803 # ======================================================================
2804 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2805 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2806 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2807 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2808 # (AT YOUR OPTION) ANY LATER VERSION.
2809 #
2810 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2811 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2812 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2813 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2814 #
2815 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2816 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2817 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2818 # ======================================================================
2819 ASSE_VECT_GENE=OPER(nom="ASSE_VECT_GENE",op= 140,sd_prod=vect_asse_gene,
2820                     fr="Assemblage de vecteurs de chargement en coordonnées généralisées",
2821                     docu="U4.65.05-e",reentrant='n',
2822             UIinfo={"groupes":("Matrices/vecteurs",)},
2823          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
2824          CHAR_SOUS_STRUC =FACT(statut='o',min=1,max='**',
2825            SOUS_STRUC      =SIMP(statut='o',typ='TXM' ),
2826            VECT_ASSE       =SIMP(statut='o',typ=cham_no_depl_r ),
2827          ),
2828 )  ;
2829 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
2830 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2831 # ======================================================================
2832 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2833 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2834 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2835 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2836 # (AT YOUR OPTION) ANY LATER VERSION.
2837 #
2838 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2839 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2840 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2841 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2842 #
2843 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2844 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2845 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2846 # ======================================================================
2847 # RESPONSABLE VABHHTS J.PELLET
2848 def asse_vecteur_prod(VECT_ELEM,**args):
2849   if AsType(VECT_ELEM) == vect_elem_depl_r : return cham_no_depl_r
2850   if AsType(VECT_ELEM) == vect_elem_temp_r : return cham_no_temp_r
2851   if AsType(VECT_ELEM) == vect_elem_pres_r : return cham_no_pres_r
2852   if AsType(VECT_ELEM) == vect_elem_pres_c : return cham_no_pres_c
2853   raise AsException("type de concept resultat non prevu ")
2854
2855 ASSE_VECTEUR=OPER(nom="ASSE_VECTEUR",op=13,sd_prod=asse_vecteur_prod,
2856                   fr="Assemblage d un second membre",docu="U4.61.23-g",reentrant='n',
2857             UIinfo={"groupes":("Matrices/vecteurs",)},
2858          VECT_ELEM       =SIMP(statut='o',typ=vect_elem,max='**'),
2859          NUME_DDL        =SIMP(statut='o',typ=nume_ddl ),
2860          INFO            =SIMP(statut='f',typ='I',into=(1,2,) ),
2861 )  ;
2862 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
2863 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2864 # ======================================================================
2865 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2866 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2867 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2868 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2869 # (AT YOUR OPTION) ANY LATER VERSION.
2870 #
2871 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2872 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2873 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2874 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2875 #
2876 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2877 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2878 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2879 # ======================================================================
2880 CALC_AMOR_MODAL=OPER(nom="CALC_AMOR_MODAL",op= 172,sd_prod=listr8,
2881                      fr="Création d'une liste d'amortissements modaux calculés selon la règle du RCC-G",
2882                      docu="U4.52.13-d",reentrant='n',
2883             UIinfo={"groupes":("Résolution",)},
2884          ENER_SOL        =FACT(statut='o',min=1,max=1,
2885            regles=(UN_PARMI('GROUP_NO_RADIER','GROUP_MA_RADIER'),
2886                    PRESENT_ABSENT('COEF_GROUP','FONC_GROUP'),
2887 #  Peut-on remplacer les deux règles suivantes par un ENSEMBLE_('KRX','KRY','KRZ')
2888                    PRESENT_PRESENT('KRX','KRY'),
2889                    PRESENT_PRESENT('KRX','KRZ'),
2890                    PRESENT_ABSENT('COOR_CENTRE','NOEUD_CENTRE'),
2891                    PRESENT_ABSENT('GROUP_NO_CENTRE','NOEUD_CENTRE'),
2892                    PRESENT_ABSENT('GROUP_NO_CENTRE','COOR_CENTRE'),),
2893            METHODE         =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","RIGI_PARASOL") ),
2894            MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
2895            GROUP_NO_RADIER =SIMP(statut='f',typ=grno,max='**'),
2896            GROUP_MA_RADIER =SIMP(statut='f',typ=grma,max='**'),
2897            FONC_GROUP      =SIMP(statut='f',typ=fonction ),
2898            COEF_GROUP      =SIMP(statut='f',typ='R',max='**'),
2899            KX              =SIMP(statut='o',typ='R' ),
2900            KY              =SIMP(statut='o',typ='R' ),
2901            KZ              =SIMP(statut='o',typ='R' ),
2902            KRX             =SIMP(statut='f',typ='R' ),
2903            KRY             =SIMP(statut='f',typ='R' ),
2904            KRZ             =SIMP(statut='f',typ='R' ),
2905            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno),
2906            NOEUD_CENTRE    =SIMP(statut='f',typ=no),
2907            COOR_CENTRE     =SIMP(statut='f',typ='R',max=3),
2908          ),
2909          AMOR_INTERNE    =FACT(statut='o',min=1,max=1,
2910            ENER_POT        =SIMP(statut='o',typ=tabl_ener_pot ),
2911            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
2912            AMOR_REDUIT     =SIMP(statut='o',typ='R',max='**'),
2913          ),
2914          AMOR_SOL        =FACT(statut='o',min=1,max=1,
2915            AMOR_REDUIT     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2916            FONC_AMOR_GEO   =SIMP(statut='o',typ=fonction,max='**' ),
2917            HOMOGENE        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2918            SEUIL           =SIMP(statut='f',typ='R',defaut= 0.3 ),
2919          ),
2920 )  ;
2921 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
2922 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2923 # ======================================================================
2924 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2925 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2926 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2927 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2928 # (AT YOUR OPTION) ANY LATER VERSION.
2929 #
2930 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2931 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2932 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2933 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2934 #
2935 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2936 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2937 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2938 # ======================================================================
2939 # RESPONSABLE JMBHH01 J.M.PROIX
2940 def calc_cham_elem_prod(OPTION,**args):
2941
2942 # options mecaniques
2943   if OPTION == "DEGE_ELNO_DEPL" : return cham_elem_epsi_r
2944   if OPTION == "ECIN_ELEM_DEPL" : return cham_elem_ener_r
2945   if OPTION == "EFGE_ELNO_CART" : return cham_elem_sief_r
2946   if OPTION == "EFGE_ELNO_DEPL" : return cham_elem_sief_r
2947   if OPTION == "ENDO_ELNO_SIGM" : return cham_elem_sief_r
2948   if OPTION == "EPOT_ELEM_DEPL" : return cham_elem_ener_r
2949   if OPTION == "ENEL_ELGA" :      return cham_elem_ener_r
2950   if OPTION == "ENEL_ELNO_ELGA" : return cham_elem_ener_r
2951   if OPTION == "EPSI_ELNO_DEPL" : return cham_elem_epsi_r
2952   if OPTION == "EQUI_ELGA_EPSI" : return cham_elem_epsi_r
2953   if OPTION == "EQUI_ELGA_SIGM" : return cham_elem_sief_r
2954   if OPTION == "EQUI_ELNO_EPSI" : return cham_elem_epsi_r
2955   if OPTION == "EQUI_ELNO_SIGM" : return cham_elem_sief_r
2956   if OPTION == "PRES_DBEL_DEPL" : return cham_elem_dbel_r
2957   if OPTION == "SIEF_ELGA_DEPL" : return cham_elem_sief_r
2958   if OPTION == "SIEF_ELGA_LAGR" : return cham_elem_sief_r
2959   if OPTION == "SIGM_ELNO_CART" : return cham_elem_sief_r
2960   if OPTION == "SIGM_ELNO_DEPL" : return cham_elem_sief_r
2961   if OPTION == "SIGM_ELNO_LAGR" : return cham_elem_sief_r
2962   if OPTION == "SIPO_ELNO_DEPL" : return cham_elem_sief_r
2963
2964 # options thermiques
2965
2966   if OPTION == "FLUX_ELGA_TEMP" : return cham_elem_flux_r
2967   if OPTION == "FLUX_ELNO_TEMP" : return cham_elem_flux_r
2968   if OPTION == "SOUR_ELGA_ELEC" : return cham_elem_sour_r
2969
2970 # options acoustiques
2971
2972   if OPTION == "PRES_ELNO_DBEL" : return cham_elem_dbel_r
2973   if OPTION == "PRES_ELNO_REEL" : return cham_elem_pres_r
2974   if OPTION == "PRES_ELNO_IMAG" : return cham_elem_pres_r
2975
2976 # autres options
2977
2978   if OPTION == "COOR_ELGA" :      return cham_elem_geom_r
2979
2980   raise AsException("type de concept resultat non prevu")
2981
2982 CALC_CHAM_ELEM=OPER(nom="CALC_CHAM_ELEM",op=38,sd_prod=calc_cham_elem_prod,
2983                     fr="Calcul de champs par éléments à partir de champs solution ou de champs par éléments",
2984                     docu="U4.81.03-g",reentrant='n',
2985             UIinfo={"groupes":("Post traitements",)},
2986          MODELE          =SIMP(statut='o',typ=modele),
2987          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
2988          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
2989
2990          regles=(EXCLUS('TOUT','GROUP_MA',),EXCLUS('TOUT','MAILLE',),),
2991          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2992          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2993          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2994
2995 #
2996 #
2997 #  introduire un mot cle de type modelisation : mécanique,thermique,...
2998 #
2999
3000          OPTION          =SIMP(statut='o',typ='TXM',
3001                                into=("DEGE_ELNO_DEPL","ECIN_ELEM_DEPL","EFGE_ELNO_CART",
3002                                      "EFGE_ELNO_DEPL","ENDO_ELNO_SIGM","EPOT_ELEM_DEPL",
3003                                      "ENEL_ELGA",     "ENEL_ELNO_ELGA","EPSI_ELNO_DEPL",
3004                                      "EQUI_ELGA_EPSI","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI",
3005                                      "EQUI_ELNO_SIGM","PRES_DBEL_DEPL","SIEF_ELGA_DEPL",
3006                                      "SIEF_ELGA_LAGR","SIGM_ELNO_CART","SIGM_ELNO_DEPL",
3007                                      "SIGM_ELNO_LAGR","SIPO_ELNO_DEPL",
3008                                      "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","SOUR_ELGA_ELEC",
3009                                      "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG",
3010                                      "COOR_ELGA"), ),
3011
3012          b_dege_elno_depl  =BLOC(condition="OPTION=='DEGE_ELNO_DEPL'",
3013            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
3014            PLAN            =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
3015          ),
3016
3017          b_ecin_elem_depl  =BLOC(condition="OPTION=='ECIN_ELEM_DEPL'",
3018            regles=(UN_PARMI('VITE','DEPL',),ENSEMBLE('DEPL','FREQ',),),
3019            FREQ            =SIMP(statut='f',typ='R'),
3020            VITE            =SIMP(statut='f',typ=cham_no_depl_r),
3021            DEPL            =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_depl_c)),
3022          ),
3023
3024          b_efge_elno_cart  =BLOC(condition="OPTION=='EFGE_ELNO_CART'",
3025            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3026            PLAN            =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
3027          ),
3028
3029          b_efge_elno_depl  =BLOC(condition="OPTION=='EFGE_ELNO_DEPL'",
3030            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
3031            PLAN            =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
3032          ),
3033
3034          b_endo_elno_sigm  =BLOC(condition="OPTION=='ENDO_ELNO_SIGM'",
3035            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3036          ),
3037
3038          b_epot_elem_depl  =BLOC(condition="OPTION=='EPOT_ELEM_DEPL'",
3039            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
3040          ),
3041
3042          b_enel_elga       =BLOC(condition="OPTION=='ENEL_ELGA'",
3043            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3044          ),
3045
3046          b_enel_elno_elga  =BLOC(condition="OPTION=='ENEL_ELNO_ELGA'",
3047            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3048          ),
3049
3050          b_epsi_elno_depl  =BLOC(condition="OPTION=='EPSI_ELNO_DEPL'",
3051            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
3052          ),
3053
3054          b_equi_elga_epsi  =BLOC(condition="OPTION=='EQUI_ELGA_EPSI'",
3055            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_epsi_r,) ),
3056          ),
3057
3058          b_equi_elga_sigm  =BLOC(condition="OPTION=='EQUI_ELGA_SIGM'",
3059            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3060          ),
3061
3062          b_equi_elno_epsi  =BLOC(condition="OPTION=='EQUI_ELNO_EPSI'",
3063            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_epsi_r,) ),
3064          ),
3065
3066          b_equi_elno_sigm  =BLOC(condition="OPTION=='EQUI_ELNO_SIGM'",
3067            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3068          ),
3069
3070          b_pres_dbel_depl  =BLOC(condition="OPTION=='PRES_DBEL_DEPL'",
3071            DEPL            =SIMP(statut='o',typ=(cham_no_depl_c,)),
3072          ),
3073
3074          b_sief_elga_depl  =BLOC(condition="OPTION=='SIEF_ELGA_DEPL'",
3075            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
3076          ),
3077
3078          b_sief_elga_lagr  =BLOC(condition="OPTION=='SIEF_ELGA_LAGR'",
3079            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
3080            THETA           =SIMP(statut='o',typ=(theta_geom,)),
3081            PROPAGATION     =SIMP(statut='f',typ='R',defaut=0.E+0),
3082          ),
3083
3084          b_sigm_elno_cart  =BLOC(condition="OPTION=='SIGM_ELNO_CART'",
3085            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3086          ),
3087
3088          b_sigm_elno_depl  =BLOC(condition="OPTION=='SIGM_ELNO_DEPL'",
3089            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,) ),
3090          ),
3091
3092          b_sigm_elno_lagr  =BLOC(condition="OPTION=='SIGM_ELNO_LAGR'",
3093            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
3094            THETA           =SIMP(statut='o',typ=(theta_geom,)),
3095            PROPAGATION     =SIMP(statut='f',typ='R',defaut=0.E+0),
3096          ),
3097
3098          b_sipo_elno_depl  =BLOC(condition="OPTION=='SIPO_ELNO_DEPL'",
3099            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
3100          ),
3101
3102          b_thermique  =BLOC(condition="OPTION in ('FLUX_ELNO_TEMP','FLUX_ELGA_TEMP','SOUR_ELGA_ELEC',)",
3103            TEMP            =SIMP(statut='o',typ=(cham_no_temp_r,)),
3104          ),
3105
3106          b_acoustique  =BLOC(condition="OPTION in ('PRES_ELNO_DBEL','PRES_ELNO_REEL','PRES_ELNO_IMAG',)",
3107            PRES            =SIMP(statut='o',typ=(cham_no_pres_c,)),
3108          ),
3109
3110
3111
3112          EXCIT           =FACT(statut='f',min=1,max='**',
3113                regles=(EXCLUS('FONC_MULT','COEF_MULT', ),),
3114                CHARGE          =SIMP(statut='o',typ=(char_meca,char_ther,char_acou)),
3115                FONC_MULT       =SIMP(statut='f',typ=fonction),
3116                COEF_MULT       =SIMP(statut='f',typ='R'), ),
3117
3118          INST            =SIMP(statut='f',typ='R',defaut= 0.E+0),
3119          ACCE            =SIMP(statut='f',typ=cham_no_depl_r),
3120          NUME_COUCHE     =SIMP(statut='f',typ='I',defaut= 1),
3121          NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
3122          MODE_FOURIER    =SIMP(statut='f',typ='I',defaut= 0 ),
3123          ANGLE           =SIMP(statut='f',typ='I',defaut= 0),
3124 )  ;
3125 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
3126 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3127 # ======================================================================
3128 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3129 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3130 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3131 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3132 # (AT YOUR OPTION) ANY LATER VERSION.
3133 #
3134 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3135 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3136 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3137 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3138 #
3139 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3140 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3141 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3142 # ======================================================================
3143 # RESPONSABLE VABHHTS J.PELLET
3144 def calc_char_cine_prod(CHAR_CINE,**args):
3145   if AsType(CHAR_CINE) == char_cine_meca : return cham_no_depl_r
3146   if AsType(CHAR_CINE) == char_cine_ther : return cham_no_temp_r
3147   if AsType(CHAR_CINE) == char_cine_acou : return cham_no_pres_c
3148   raise AsException("type de concept resultat non prevu")
3149
3150 CALC_CHAR_CINE=OPER(nom="CALC_CHAR_CINE",op= 102,sd_prod=calc_char_cine_prod,
3151                     fr="Calcul des seconds membres associés à des charges cinématiques (conditions aux limites non dualisées)",
3152                     docu="U4.61.03-f",reentrant='n',
3153             UIinfo={"groupes":("Matrices/vecteurs",)},
3154          NUME_DDL        =SIMP(statut='o',typ=nume_ddl ),
3155          CHAR_CINE       =SIMP(statut='o',typ=(char_cine_meca,char_cine_ther,char_cine_acou ) ),
3156          INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3157          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3158 )  ;
3159 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
3160 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3161 # ======================================================================
3162 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3163 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3164 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3165 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3166 # (AT YOUR OPTION) ANY LATER VERSION.
3167 #
3168 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3169 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3170 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3171 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3172 #
3173 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3174 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3175 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3176 # ======================================================================
3177 def calc_char_seisme_prod(MATR_MASS,**args ):
3178   if AsType(MATR_MASS) == matr_asse_depl_r : return cham_no_depl_r
3179   raise AsException("type de concept resultat non prevu")
3180
3181 CALC_CHAR_SEISME=OPER(nom="CALC_CHAR_SEISME",op=  92,sd_prod=calc_char_seisme_prod,
3182                       docu="U4.63.01-f",reentrant='n',
3183             UIinfo={"groupes":("Matrices/vecteurs",)},
3184          regles=(UN_PARMI('MONO_APPUI','MODE_STAT' ),),
3185          MATR_MASS       =SIMP(statut='o',typ=matr_asse_depl_r,fr="Matrice de masse" ),
3186          DIRECTION       =SIMP(statut='o',typ='R',max=6,fr="Directions du séisme imposé"),
3187          MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3188          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
3189          b_mode_stat     =BLOC ( condition = "MODE_STAT != None",
3190            regles=(UN_PARMI('NOEUD','GROUP_NO' ),),
3191            NOEUD           =SIMP(statut='f',typ=no,max='**'),
3192            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
3193          ),
3194          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3195 )  ;
3196 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
3197 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3198 # ======================================================================
3199 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3200 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3201 #              REDISTRIBUTION OF THIS FILE.
3202 # ======================================================================
3203 # RESPONSABLE JMBHH01 J.M.PROIX
3204 def calc_elem_prod(RESULTAT,**args):
3205    if AsType(RESULTAT) != None : return AsType(RESULTAT)
3206    raise AsException("type de concept resultat non prevu")
3207
3208 CALC_ELEM=OPER(nom="CALC_ELEM",op=58,sd_prod=calc_elem_prod,docu="U4.81.01-g",reentrant='f',
3209             UIinfo={"groupes":("Post traitements",)},
3210                     fr="Compléter un résultat en calculant des champs par éléments (contraintes, déformations,... )",
3211          MODELE          =SIMP(statut='o',typ=modele),
3212          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
3213          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
3214
3215          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3216          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3217          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3218
3219          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
3220                         'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),),
3221          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3222          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
3223          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
3224          NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
3225          NOM_CAS         =SIMP(statut='f',typ='TXM' ),
3226
3227          INST            =SIMP(statut='f',typ='R',max='**'),
3228          FREQ            =SIMP(statut='f',typ='R',max='**'),
3229          LIST_INST       =SIMP(statut='f',typ=listr8),
3230          LIST_FREQ       =SIMP(statut='f',typ=listr8),
3231          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
3232          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
3233
3234          LIST_ORDRE      =SIMP(statut='f',typ=listis),
3235
3236          OPTION          =SIMP(statut='o',typ='TXM',max='**',
3237                                into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
3238                                      "SIGM_ELNO_TUYO","SIGM_ELNO_CART","DEGE_ELNO_DEPL","EFGE_ELNO_CART",
3239                                      "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL",
3240                                      "EPME_ELNO_DEPL","EPME_ELGA_DEPL","EPMG_ELNO_DEPL","EPMG_ELGA_DEPL",
3241                                      "EPSP_ELNO","EPSP_ELGA","ECIN_ELEM_DEPL","SIPO_ELNO_DEPL",
3242                                      "EPGR_ELNO","EPGR_ELGA","DURT_ELGA_META","DURT_ELNO_META",
3243                                      "SIGM_ELNO_COQU","SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",
3244                                      "SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA","ERRE_ELEM_NOZ2",
3245                                      "VNOR_ELEM_DEPL","SIRE_ELNO_DEPL","ERRE_ELGA_NORE","ERRE_ELNO_ELGA",
3246                                      "VARI_ELNO_ELGA","VARI_ELNO_TUYO","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
3247                                      "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI","EQUI_ELNO_EPME","EQUI_ELGA_EPME",
3248                                      "DCHA_ELNO_SIGM","DCHA_ELGA_SIGM","RADI_ELNO_SIGM","RADI_ELGA_SIGM",
3249                                      "ENDO_ELNO_SIGA","ENDO_ELNO_SINO","ENEL_ELGA","ENEL_ELNO_ELGA","SIEF_ELNO_ELGA",
3250                                      "DEUL_ELGA_TEMP","DETE_ELNO_DLTE","DEUL_ELGA_DEPL","DEDE_ELNO_DLDE",
3251                                      "DESI_ELNO_DLSI","PMPB_ELNO_SIEF","PMPB_ELGA_SIEF",
3252                                      "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","HYDR_ELNO_ELGA",
3253                                      "SOUR_ELGA_ELEC","VARI_ELNO_COQU","CRIT_ELNO_RUPT",
3254                                      "PRES_ELNO_DBEL","PRES_DBEL_DEPL","PRES_ELNO_REEL","PRES_ELNO_IMAG",
3255                                      "INTE_ELNO_ACTI","INTE_ELNO_REAC","ERTH_ELEM_TEMP","ERTH_ELNO_ELEM",
3256                                      "ETOT_ELGA","ETOT_ELNO_ELGA","ETOT_ELEM","VALE_NCOU_MAXI"
3257                                      ) ),
3258          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,mode_meca,
3259                                     mode_stat,mode_stat_depl,mode_stat_acce,mode_stat_forc,
3260                                     evol_noli,mult_elas,fourier_elas,
3261                                                evol_ther,base_modale,
3262                                                acou_harmo,mode_acou,mode_flamb) ),
3263          EXCIT           =FACT(statut='f',min=1,max='**',
3264              regles=(EXCLUS('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
3265              CHARGE          =SIMP(statut='o',typ=(char_meca,char_ther,char_acou) ),
3266              FONC_MULT       =SIMP(statut='f',typ=fonction),
3267              FONC_MULT_C     =SIMP(statut='f',typ=fonction_c),
3268              COEF_MULT       =SIMP(statut='f',typ='R'),
3269              COEF_MULT_C     =SIMP(statut='f',typ='C'),
3270              PHAS_DEG        =SIMP(statut='f',typ='R'),
3271              PUIS_PULS       =SIMP(statut='f',typ='I'),
3272              TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
3273          ),
3274          NORME           =SIMP(statut='f',typ='TXM',defaut="VMIS",
3275                                into=("VMIS","TOTAL","VMIS_CINE","TOTAL_CINE") ),
3276          NUME_COUCHE     =SIMP(statut='f',typ='I',defaut= 1 ),
3277          NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
3278
3279          ANGLE           =SIMP(statut='f',typ='I',defaut= 0 ),
3280          PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL") ),
3281          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
3282                                fr="Liste des paramètres de sensibilité.",
3283                                ang="List of sensitivity parameters"),
3284          b_maxi          =BLOC( condition = "OPTION=='VALE_NCOU_MAXI'",
3285              NOM_CHAM            =SIMP(statut='o',typ='TXM',max=1 ),
3286              NOM_CMP             =SIMP(statut='o',typ='TXM',max=1 ),),
3287          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
3288          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3289 )  ;
3290 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
3291 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3292 # ======================================================================
3293 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3294 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3295 #              REDISTRIBUTION OF THIS FILE.
3296 # ======================================================================
3297 def calc_fatigue_prod(TYPE_CALCUL,**args):
3298   if TYPE_CALCUL == "CUMUL_DOMMAGE" : return cham_elem_dommag
3299   if TYPE_CALCUL == "FATIGUE_MULTI" : return cham_elem_facy_r
3300   raise AsException("type de calcul non prevu")
3301
3302 CALC_FATIGUE=OPER(nom="CALC_FATIGUE",op= 151,sd_prod=calc_fatigue_prod,reentrant='n',
3303                   fr="Calcul d un cham de dommage ou d un cisaillement maximal dans le plan critique.",
3304                   docu="U4.83.02-d",
3305             UIinfo={"groupes":("Post traitements",)},
3306
3307          TYPE_CALCUL = SIMP(statut='o',typ='TXM',
3308                                into=("CUMUL_DOMMAGE","FATIGUE_MULTI",) ),
3309
3310          b_cumul_domma   =BLOC(condition = "TYPE_CALCUL == 'CUMUL_DOMMAGE'",
3311                                fr="Calcul d un champ de dommage subi par une structure.",
3312            regles=(PRESENT_PRESENT('DOMMAGE','MATER', ),),
3313            OPTION          =SIMP(statut='o',typ='TXM',
3314                                  into=("DOMA_ELNO_SIGM","DOMA_ELGA_SIGM",
3315                                        "DOMA_ELNO_EPSI","DOMA_ELGA_EPSI",
3316                                        "DOMA_ELNO_EPME","DOMA_ELGA_EPME") ),
3317            HISTOIRE        =FACT(statut='o',min=1,max=1,
3318              RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,
3319                                                    evol_noli) ),
3320              EQUI_GD         =SIMP(statut='f',typ='TXM',defaut="VMIS_SG",
3321                                  into=("VMIS_SG","INVA_2_SG") ),
3322            ),
3323            DOMMAGE         =SIMP(statut='o',typ='TXM',
3324                                into=("WOHLER","MANSON_COFFIN","TAHERI_MANSON",
3325                                      "TAHERI_MIXTE",) ),
3326            MATER           =SIMP(statut='o',typ=(mater) ),
3327            TAHERI_NAPPE    =SIMP(statut='f',typ=(fonction) ),
3328            TAHERI_FONC     =SIMP(statut='f',typ=(fonction) ),
3329          ),
3330
3331          b_fatigue_multi   =BLOC(condition = "TYPE_CALCUL == 'FATIGUE_MULTI'",
3332                                  fr="Plan critique dans le cas de la fatigue multiaxiale a grand nombre de cycles.",
3333            RESULTAT      =SIMP(statut='o',typ=(evol_elas, evol_noli) ),
3334            CHAM_MATER    =SIMP(statut='o',typ=(cham_mater) ),
3335            CRITERE       =SIMP(statut='o',typ='TXM',into=("MATAKE",) ),
3336            METHODE       =SIMP(statut='o',typ='TXM',into=("CERCLE_EXACT",) ),
3337          ),
3338
3339          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
3340 )  ;
3341 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
3342 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3343 # ======================================================================
3344 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3345 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3346 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3347 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3348 # (AT YOUR OPTION) ANY LATER VERSION.
3349 #
3350 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3351 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3352 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3353 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3354 #
3355 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3356 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3357 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3358 # ======================================================================
3359 CALC_FLUI_STRU=OPER(nom="CALC_FLUI_STRU",op= 144,sd_prod=melasflu,
3360                     docu="U4.66.02-e",reentrant='n',
3361             UIinfo={"groupes":("Matrices/vecteurs",)},
3362          VITE_FLUI       =FACT(statut='o',min=1,max=1,
3363                                fr="Définir la plage de vitesse fluide étudiée",
3364            VITE_MIN        =SIMP(statut='o',typ='R' ),
3365            VITE_MAX        =SIMP(statut='o',typ='R' ),
3366            NB_POIN         =SIMP(statut='o',typ='I' ),
3367          ),
3368          BASE_MODALE     =FACT(statut='o',min=1,max=1,
3369
3370            regles=(UN_PARMI('AMOR_REDUIT','AMOR_UNIF'),),
3371            MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
3372            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
3373            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
3374            AMOR_UNIF       =SIMP(statut='f',typ='R' ),
3375          ),
3376          TYPE_FLUI_STRU  =SIMP(statut='o',typ=type_flui_stru ),
3377          IMPRESSION      =FACT(statut='f',min=1,max=1,
3378                                fr="Choix des informations à imprimer dans le fichier RESULTAT",
3379            PARA_COUPLAGE   =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3380            DEFORMEE        =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3381          ),
3382 )  ;
3383 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
3384 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3385 # ======================================================================
3386 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3387 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3388 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3389 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3390 # (AT YOUR OPTION) ANY LATER VERSION.
3391 #
3392 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3393 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3394 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3395 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3396 #
3397 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3398 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3399 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3400 # ======================================================================
3401 CALC_FONC_INTERP=OPER(nom="CALC_FONC_INTERP",op= 134,sd_prod=fonction,
3402                       docu="U4.32.01-e",reentrant='f',
3403             UIinfo={"groupes":("Fonction",)},
3404          regles=(UN_PARMI('VALE_R','LIST_PARA'),),
3405          FONCTION        =SIMP(statut='o',typ=fonction ),
3406          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
3407          VALE_R          =SIMP(statut='f',typ='R',max='**'),
3408          LIST_PARA       =SIMP(statut='f',typ=listr8 ),
3409          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG","INT") ),
3410          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("EXCLU","CONSTANT","LINEAIRE","INTERPRE") ),
3411          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("EXCLU","CONSTANT","LINEAIRE","INTERPRE") ),
3412          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3413          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3414 )  ;
3415 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
3416 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3417 # ======================================================================
3418 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3419 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3420 #              REDISTRIBUTION OF THIS FILE.
3421 # ======================================================================
3422 # RESPONSABLE MCOURTOI M.COURTOIS
3423 def calc_fonction_prod(DERIVE,EXTRACTION,INTEGRE,RMS,NOCI_SEISME,MAX,COMB,COMB_C,ENVELOPPE,
3424                        SPEC_OSCI,ASSE,FFT,COMPOSE,CORR_ACCE,PUISSANCE,LISS_ENVELOP,NORME, **args):
3425   if (RMS != None)        : return tabl_fonc_rms
3426   if (MAX != None)        : return tabl_fonc_max
3427   if (NOCI_SEISME != None): return tabl_fonc_noci
3428   if (INTEGRE != None)    : return fonction
3429   if (DERIVE != None)     : return fonction
3430   if (COMB != None)       : return fonction
3431   if (ENVELOPPE != None)  : return fonction
3432   if (EXTRACTION != None) : return fonction
3433   if (SPEC_OSCI != None)  : return fonction
3434   if (COMB_C != None)     : return fonction_c
3435   if (COMPOSE != None)    : return fonction
3436   if (ASSE != None)       : return fonction
3437   if (FFT != None)        :
3438      vale=FFT.get_child('FONCTION').get_valeur()
3439      if (AsType(vale) == fonction )  : return fonction_c
3440      if (AsType(vale) == fonction_c) : return fonction
3441   if (CORR_ACCE != None) : return fonction
3442   if (LISS_ENVELOP != None)  : return fonction
3443   if (PUISSANCE != None) : return fonction
3444   if (NORME != None) : return table
3445   raise AsException("type de concept resultat non prevu")
3446
3447 CALC_FONCTION=OPER(nom="CALC_FONCTION",op=  91,sd_prod=calc_fonction_prod
3448                     ,fr="Opérations mathématiques sur des concepts de type fonction",
3449                      docu="U4.32.04-f",reentrant='n',
3450             UIinfo={"groupes":("Fonction",)},
3451          regles=(UN_PARMI('DERIVE','INTEGRE','SPEC_OSCI','MAX','COMB','COMB_C','ENVELOPPE','RMS',
3452                           'NOCI_SEISME','COMPOSE','EXTRACTION','ASSE','FFT','CORR_ACCE', 'PUISSANCE',
3453                           'NORME','LISS_ENVELOP'),),
3454          FFT             =FACT(statut='f',min=1,max=1,fr="Calcul de la transformee de Fourier ou de son inverse",
3455            FONCTION        =SIMP(statut='o',typ=(fonction,fonction_c) )
3456          ),
3457          DERIVE          =FACT(statut='f',min=1,max=1,fr="Calcul de la dérivée d une fonction",
3458            METHODE         =SIMP(statut='f',typ='TXM',defaut="DIFF_CENTREE",into=("DIFF_CENTREE",) ),
3459            FONCTION        =SIMP(statut='o',typ=fonction ),
3460          ),
3461          INTEGRE         =FACT(statut='f',min=1,max=1,fr="Calcul de l intégrale d une fonction",
3462            METHODE         =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
3463            FONCTION        =SIMP(statut='o',typ=fonction),
3464            COEF            =SIMP(statut='f',typ='R',defaut= 0.E+0,fr="Valeur de la constante d intégration" ),
3465          ),
3466          RMS             =FACT(statut='f',min=1,max=1,fr="Calcul de la valeur RMS d une fonction",
3467            METHODE         =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
3468            FONCTION        =SIMP(statut='o',typ=fonction ),
3469            INST_INIT       =SIMP(statut='f',typ='R',fr="Instant initial définissant le début du signal" ),
3470            INST_FIN        =SIMP(statut='f',typ='R',fr="Instant final définissant la fin du signal" ),
3471            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3472            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
3473          ),
3474          NOCI_SEISME     =FACT(statut='f',min=1,max=1,
3475            FONCTION        =SIMP(statut='f',typ=fonction ),
3476            SPEC_OSCI       =SIMP(statut='f',typ=fonction ),
3477            OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",max='**',
3478                                  into=("INTE_ARIAS","POUV_DEST","INTE_SPEC","VITE_ABSO_CUMU",
3479                                        "DUREE_PHAS_FORT","MAXI","ACCE_SUR_VITE","TOUT",) ),
3480            INST_INIT       =SIMP(statut='f',typ='R'),
3481            INST_FIN        =SIMP(statut='f',typ='R'),
3482            NATURE          =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE") ),
3483            COEF            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3484            PESANTEUR       =SIMP(statut='f',typ='R',defaut= 9.81E+0 ),
3485            FREQ_INIT       =SIMP(statut='f',typ='R',defaut= 4.E-1 ),
3486            FREQ_FIN        =SIMP(statut='f',typ='R',defaut= 10.E+0 ),
3487            AMOR_REDUIT     =SIMP(statut='f',typ='R'),
3488            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
3489            FREQ            =SIMP(statut='f',typ='R',max='**'),
3490            NORME           =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
3491            BORNE_INF       =SIMP(statut='f',typ='R',defaut= 0.05E+0 ),
3492            BORNE_SUP       =SIMP(statut='f',typ='R',defaut= 0.95E+0 ),
3493            b_acce_reel     =BLOC(condition="(INST_INIT != None)or(INST_FIN != None)or(FREQ_INIT != None)or(FREQ_FIN != None)",
3494              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
3495              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3496            ),
3497          ),
3498          LISS_ENVELOP    = FACT(statut='f',min=1,max=1,fr="Lissage d une enveloppe",
3499            FONCTION        =SIMP(statut='o',typ=fonction ),
3500            AMOR            =SIMP(statut='f',typ='R',max='**'),
3501            FREQ_MIN        =SIMP(statut='f',typ='R'),
3502            FREQ_MAX        =SIMP(statut='f',typ='R'),
3503            FREQ_CREUX      =SIMP(statut='f',typ='R',max='**'),
3504            ELARG           =SIMP(statut='f',typ='TXM',defaut="GLOBAL",into=("GLOBAL","LOCAL") ),
3505               b_elarg_glob = BLOC ( condition = " (ELARG=='GLOBAL') ",
3506                    GAUCHE       =SIMP(statut='f',typ='R',defaut =10.0E0 ),
3507                    DROITE       =SIMP(statut='f',typ='R',defaut =10.0E0 ),
3508                 ),
3509               b_elarg_loc = BLOC ( condition = " (ELARG=='LOCAL') ",
3510                    FREQ_1       =SIMP(statut='o',typ='R'),
3511                    FREQ_2       =SIMP(statut='o',typ='R' ),
3512                    GAUCHE       =SIMP(statut='f',typ='R',defaut =10.0E0 ),
3513                    DROITE       =SIMP(statut='f',typ='R',defaut =10.0E0 ),
3514                 ),
3515            TOLE_LISS      =SIMP(statut='f',typ='R',defaut=25.0E0),
3516            ECH_FREQ_REF = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3517                b_oui    =BLOC ( condition = "(ECH_FREQ_REF=='OUI') ",
3518                     regles=(UN_PARMI("LIST_FREQ", "AMOR_ECH"),),
3519                        LIST_FREQ   =SIMP(statut='f',typ=listr8 ),
3520                        AMOR_ECH    =SIMP(statut='f',typ='R',max='**'),
3521                               ),
3522          ),
3523          SPEC_OSCI       =FACT(statut='f',min=1,max=1,fr="Calcul du spectre d oscillateur",
3524            METHODE         =SIMP(statut='f',typ='TXM',defaut="NIGAM",into=("NIGAM",) ),
3525            FONCTION        =SIMP(statut='o',typ=fonction ),
3526            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
3527            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
3528            FREQ            =SIMP(statut='f',typ='R',max='**'),
3529            NORME           =SIMP(statut='f',typ='R',defaut= 9.81E+0,fr="Valeur de la norme du spectre d oscillateur" ),
3530            NATURE          =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
3531            NATURE_FONC     =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
3532          ),
3533          MAX             =FACT(statut='f',min=1,max=1,fr="Calcul des extrémas locaux d une fonction",
3534            FONCTION        =SIMP(statut='o',typ=fonction ),
3535          ),
3536          COMB            =FACT(statut='f',min=1,max='**',fr="Calcul d une combinaison linéaire réelle de fonctions",
3537            FONCTION        =SIMP(statut='o',typ=fonction ),
3538            COEF            =SIMP(statut='o',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
3539          ),
3540          COMB_C          =FACT(statut='f',min=1,max='**',fr="Calcul d une combinaison linéaire complexe de fonctions",
3541            regles=(UN_PARMI('COEF_R','COEF_C'),),
3542            FONCTION        =SIMP(statut='o',typ=(fonction, fonction_c) ),
3543            COEF_R          =SIMP(statut='f',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
3544            COEF_C          =SIMP(statut='f',typ='C',fr="Coefficient complexe de la combinaison linéaire associée à la fonction" ),
3545          ),
3546          b_comb          =BLOC ( condition = " (COMB != None) or (COMB_C != None)",
3547              LIST_PARA      =SIMP(statut='f',typ=listr8 ),
3548          ),
3549          COMPOSE         =FACT(statut='f',min=1,max=1,fr="Calcul de la composition de deux fonctions FONC_RESU(FONC_PARA)",
3550            FONC_RESU       =SIMP(statut='o',typ=fonction),
3551            FONC_PARA       =SIMP(statut='o',typ=fonction),
3552          ),
3553          EXTRACTION      =FACT(statut='f',min=1,max=1,fr="Opération d extraction sur une fonction complexe",
3554            FONCTION        =SIMP(statut='o',typ=fonction_c),
3555            PARTIE          =SIMP(statut='o',typ='TXM',into=("REEL","IMAG","MODULE","PHASE"),fr="Partie à extraire"),
3556          ),
3557          ENVELOPPE       =FACT(statut='f',min=1,max=1,fr="Calcul de l enveloppe d une famille de fonctions",
3558            FONCTION        =SIMP(statut='o',typ=fonction,max='**' ),
3559            CRITERE         =SIMP(statut='f',typ='TXM',defaut="SUP",into=("SUP","INF"),fr="Type de l enveloppe" ),
3560          ),
3561          ASSE            =FACT(statut='f',min=1,max=1,fr="Création à partir de la concatenation de fonctions",
3562            FONCTION        =SIMP(statut='o',typ=fonction,max='**' ),
3563            SURCHARGE       =SIMP(statut='f',typ='TXM',defaut="DROITE",into=("DROITE","GAUCHE")),
3564          ),
3565           CORR_ACCE     =FACT(statut='f',min=1,max=1,fr="Correction d un accelerogramme reel",
3566             CORR_DEPL          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
3567             FONCTION        =SIMP(statut='o',typ=fonction ),
3568          ),
3569          PUISSANCE       =FACT(statut='f',min=1,max=1,fr="Cacul du carré d'une fonction",
3570             FONCTION      =SIMP(statut='o', typ=fonction),
3571             EXPOSANT      =SIMP(statut='f', typ='I', defaut=1 ),
3572          ),
3573          NORME     =FACT(statut='f',min=1,max=1,fr="Cacul de la norme L2 d'une fonction",
3574             FONCTION =SIMP(statut='o', typ=fonction),
3575          ),
3576          NOM_PARA        =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
3577                                                           "INST","X","Y","Z","EPSI","FREQ","PULS",
3578                                                           "AMOR","ABSC") ),
3579          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
3580          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
3581          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3582          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3583          NOM_PARA_FONC   =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
3584                                                           "INST","X","Y","Z","EPSI","FREQ","PULS",
3585                                                           "AMOR","ABSC") ),
3586          INTERPOL_FONC   =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
3587          PROL_DROITE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3588          PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3589          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3590          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3591 )  ;
3592 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
3593 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3594 # ======================================================================
3595 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3596 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3597 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3598 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3599 # (AT YOUR OPTION) ANY LATER VERSION.
3600 #
3601 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3602 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3603 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3604 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3605 #
3606 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3607 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3608 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3609 # ======================================================================
3610 CALC_FORC_AJOU=OPER(nom="CALC_FORC_AJOU",op=199,sd_prod=vect_asse_gene,
3611                    fr="calcul de la force ajoutee ",
3612                    docu="U4.66.03-a",reentrant ='n',
3613             UIinfo={"groupes":("Matrices/vecteurs",)},
3614
3615         regles=(EXCLUS('MODE_MECA','MODELE_GENE'),
3616                 PRESENT_PRESENT( 'MODELE_GENE','NUME_DDL_GENE'),
3617                 UN_PARMI('MONO_APPUI', 'NOEUD','GROUP_NO'),
3618                 UN_PARMI('MONO_APPUI','MODE_STAT')),
3619
3620          MODELE_FLUIDE   =SIMP(statut='o',typ=modele ),
3621          MODELE_INTERFACE=SIMP(statut='o',typ=modele ),
3622          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
3623          CHARGE          =SIMP(statut='o',typ=char_ther ),
3624          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
3625          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
3626          NUME_DDL_GENE   =SIMP(statut='f',typ=nume_ddl_gene ),
3627          DIST_REFE       =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
3628          AVEC_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3629          NUME_MODE_MECA  =SIMP(statut='f',typ='I',max='**'),
3630          POTENTIEL       =SIMP(statut='f',typ=evol_ther ),
3631          NOEUD_DOUBLE    =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3632
3633          DIRECTION       =SIMP(statut='o',typ='R',max=3),
3634          MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",),),
3635          NOEUD           =SIMP(statut='f',typ=no,max='**'),
3636          GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
3637          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,),),
3638
3639          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3640
3641          SOLVEUR         =FACT(statut='d',min=1,max=1,
3642            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
3643            b_mult_front    = BLOC ( condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
3644              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
3645            ),
3646            b_ldlt          =BLOC( condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
3647              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
3648            ),
3649            b_ldlt_mult     =BLOC( condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
3650                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
3651              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
3652              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3653            ),
3654            b_gcpc          =BLOC (condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
3655              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
3656              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
3657              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
3658              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
3659              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
3660            ),
3661 #  A quoi sert eps
3662            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0),  ),
3663
3664            ) ;
3665 #& MODIF COMMANDE  DATE 16/03/2004   AUTEUR GALENNE E.GALENNE
3666 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3667 # ======================================================================
3668 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3669 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3670 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3671 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3672 # (AT YOUR OPTION) ANY LATER VERSION.
3673 #
3674 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3675 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3676 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3677 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3678 #
3679 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3680 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3681 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3682 # ======================================================================
3683 CALC_G_LOCAL_T=OPER(nom="CALC_G_LOCAL_T",op=77,sd_prod=tabl_calc_g_loca,
3684                     fr="Calcul du taux de restitution local d énergie",docu="U4.82.04-f",reentrant='n',
3685             UIinfo={"groupes":("Post traitements",)},
3686          MODELE          =SIMP(statut='o',typ=modele),
3687          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
3688          regles=(UN_PARMI('RESULTAT','DEPL'),
3689                  UN_PARMI('R_INF','R_INF_FO'),
3690                  PRESENT_PRESENT('R_INF','R_SUP'),
3691                  PRESENT_PRESENT('R_INF_FO','R_SUP_FO'), ),
3692          FOND_FISS       =SIMP(statut='o',typ=fond_fiss),
3693          DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
3694          RESULTAT        =SIMP(statut='f',typ=(evol_elas,evol_noli),),
3695          b_extrac        =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
3696              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
3697              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3698              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
3699              LIST_ORDRE      =SIMP(statut='f',typ=listis),
3700              INST            =SIMP(statut='f',typ='R',max='**'),
3701              LIST_INST       =SIMP(statut='f',typ=listr8),
3702
3703              b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
3704                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
3705                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3706              ),
3707          ),
3708
3709          CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
3710          SYME_CHAR       =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
3711
3712          COMP_ELAS       =FACT(statut='f',min=1,max=1,
3713                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
3714                                      into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
3715                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3716                ELAS_VMIS_LINE  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3717                ELAS_VMIS_TRAC  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3718                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
3719       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3720                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3721                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3722                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3723          ),
3724
3725          COMP_INCR       =FACT(statut='f',min=1,max=1,
3726                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
3727                                      into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
3728                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3729                VMIS_ISOT_TRAC  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3730                VMIS_ISOT_LINE  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3731                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
3732       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3733                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3734                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3735                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3736          ),
3737
3738          ETAT_INIT       =FACT(statut='f',min=1,max=1,
3739            SIGM            =SIMP(statut='f',typ=cham_elem_sief_r),
3740            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
3741          ),
3742
3743          OPTION          =SIMP(statut='f',typ='TXM',defaut="CALC_G",
3744                                into=("CALC_G","CALC_G_LGLO","G_BILINEAIRE","CALC_G_MAX") ),
3745          b_g             =BLOC(condition="OPTION=='CALC_G'",
3746            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3747            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE","LAGRANGE_NO_NO",) ),
3748          ),
3749          b_g_lglo        =BLOC(condition="OPTION=='CALC_G_LGLO'",
3750            PROPAGATION     =SIMP(statut='o',typ='R'),
3751            THETA           =SIMP(statut='o',typ=theta_geom),
3752            DIRE_THETA      =SIMP(statut='f',typ=cham_no_depl_r),
3753            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3754            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE","LAGRANGE_NO_NO",) ),
3755          ),
3756          b_g_bilin       =BLOC(condition="OPTION=='G_BILINEAIRE'",
3757            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3758            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3759          ),
3760          b_calc_g_max    =BLOC(condition="OPTION=='CALC_G_MAX'",
3761            BORNES          =FACT(statut='o',min=1,max='**',
3762               NUME_ORDRE     =SIMP(statut='o',typ='I'),
3763               VALE_MIN       =SIMP(statut='o',typ='R'),
3764               VALE_MAX       =SIMP(statut='o',typ='R'),
3765                                 ),
3766            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3767            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3768          ),
3769
3770          DEGRE           =SIMP(statut='f',typ='I',defaut=5,into=(0,1,2,3,4,5,6,7) ),
3771
3772          R_INF           =SIMP(statut='f',typ='R'),
3773          R_SUP           =SIMP(statut='f',typ='R'),
3774          R_INF_FO        =SIMP(statut='f',typ=fonction),
3775          R_SUP_FO        =SIMP(statut='f',typ=fonction),
3776
3777          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3778          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
3779 )  ;
3780 #& MODIF COMMANDE  DATE 16/03/2004   AUTEUR GALENNE E.GALENNE
3781 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3782 # ======================================================================
3783 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3784 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3785 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3786 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3787 # (AT YOUR OPTION) ANY LATER VERSION.
3788 #
3789 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3790 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3791 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3792 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3793 #
3794 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3795 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3796 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3797 # ======================================================================
3798 CALC_G_THETA_T=OPER(nom="CALC_G_THETA_T",op=53,sd_prod=tabl_calc_g_th,
3799                     fr="Calcul du taux de restitution d énergie par la méthode theta en thermo-élasticité en 2D ou en 3D",
3800                     docu="U4.82.03-f",reentrant='n',
3801             UIinfo={"groupes":("Post traitements",)},
3802          regles=(UN_PARMI('RESULTAT','DEPL'),
3803                  EXCLUS('COMP_ELAS','COMP_INCR'),),
3804          MODELE          =SIMP(statut='o',typ=modele),
3805          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
3806          THETA           =SIMP(statut='o',typ=theta_geom),
3807          DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
3808          RESULTAT        =SIMP(statut='f',typ=(evol_elas,evol_noli),),
3809
3810          b_extrac        =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
3811            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
3812            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3813            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
3814            LIST_ORDRE      =SIMP(statut='f',typ=listis),
3815            INST            =SIMP(statut='f',typ='R',max='**'),
3816            LIST_INST       =SIMP(statut='f',typ=listr8),
3817
3818            b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
3819              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
3820              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3821            ),
3822          ),
3823
3824          CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
3825          SYME_CHAR       =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
3826
3827          COMP_ELAS       =FACT(statut='f',min=1,max=1,
3828                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
3829                                      into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
3830                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3831                ELAS_VMIS_LINE  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3832                ELAS_VMIS_TRAC  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3833                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
3834       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3835                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3836                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3837                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3838          ),
3839          COMP_INCR       =FACT(statut='f',min=1,max=1,
3840                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
3841                                      into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
3842                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3843                VMIS_ISOT_TRAC  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3844                VMIS_ISOT_LINE  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3845                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
3846       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3847                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3848                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3849                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3850          ),
3851          ETAT_INIT       =FACT(statut='f',min=1,max=1,
3852            SIGM            =SIMP(statut='f',typ=cham_elem_sief_r),
3853            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
3854          ),
3855          OPTION          =SIMP(statut='f',typ='TXM',defaut="CALC_G",
3856                                into=("CALC_G","CALC_G_LAGR","CALC_K_G","G_BILINEAIRE","CALC_G_MAX","CALC_DG",) ),
3857          b_calc_g_max    =BLOC(condition="OPTION=='CALC_G_MAX'",
3858            BORNES          =FACT(statut='o',min=1,max='**',
3859                 NUME_ORDRE     =SIMP(statut='o',typ='I'),
3860                 VALE_MIN       =SIMP(statut='o',typ='R'),
3861                 VALE_MAX       =SIMP(statut='o',typ='R'),
3862                                 ),
3863          ),
3864          b_calc_k_g      =BLOC(condition="OPTION=='CALC_K_G'",
3865            FOND_FISS       =SIMP(statut='o',typ=fond_fiss),
3866          ),
3867          b_calc_g_lagr   =BLOC(condition="OPTION=='CALC_G_LAGR'",
3868            PROPAGATION     =SIMP(statut='o',typ='R'),
3869          ),
3870          b_calc_dg       =BLOC(condition="OPTION=='CALC_DG'",
3871            SENSIBILITE     =FACT(statut='f',min=1,max=1,
3872                  THETA          =SIMP(statut='o',typ=theta_geom ),
3873                                ),
3874          ),
3875
3876          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3877          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
3878 )  ;
3879 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
3880 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3881 # ======================================================================
3882 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3883 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3884 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3885 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3886 # (AT YOUR OPTION) ANY LATER VERSION.
3887 #
3888 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3889 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3890 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3891 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3892 #
3893 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3894 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3895 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3896 # ======================================================================
3897 CALC_INTE_SPEC=OPER(nom="CALC_INTE_SPEC",op= 120,sd_prod=tabl_intsp,
3898                     fr="Calcul d une matrice interspectrale d une fonction du temps",
3899                     docu="U4.36.03-f",reentrant='n',
3900             UIinfo={"groupes":("Fonction",)},
3901          INST_INIT       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3902          INST_FIN        =SIMP(statut='o',typ='R' ),
3903          DUREE_ANALYSE   =SIMP(statut='f',typ='R' ),
3904          DUREE_DECALAGE  =SIMP(statut='f',typ='R' ),
3905          NB_POIN         =SIMP(statut='o',typ='I' ),
3906          FONCTION        =SIMP(statut='o',typ=fonction,max='**' ),
3907          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3908          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
3909 )  ;
3910 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
3911 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3912 # ======================================================================
3913 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3914 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3915 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3916 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3917 # (AT YOUR OPTION) ANY LATER VERSION.
3918 #
3919 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3920 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3921 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3922 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3923 #
3924 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3925 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3926 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3927 # ======================================================================
3928 CALC_MATR_AJOU=OPER(nom="CALC_MATR_AJOU",op= 152,sd_prod=matr_asse_gene_r,
3929                     fr="Calcul des matrices de masse, d amortissement ou de raideur ajoutées",
3930                     docu="U4.66.01-d",reentrant='n',
3931             UIinfo={"groupes":("Matrices/vecteurs",)},
3932          regles=(EXCLUS('MODE_MECA','CHAM_NO','MODELE_GENE'),
3933                  PRESENT_ABSENT('NUME_DDL_GENE','CHAM_NO'),
3934                  PRESENT_PRESENT('MODELE_GENE','NUME_DDL_GENE'),),
3935          MODELE_FLUIDE   =SIMP(statut='o',typ=modele ),
3936          MODELE_INTERFACE=SIMP(statut='o',typ=modele ),
3937          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
3938          CHARGE          =SIMP(statut='o',typ=char_ther ),
3939          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
3940          CHAM_NO         =SIMP(statut='f',typ=cham_no_depl_r ),
3941          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
3942          NUME_DDL_GENE   =SIMP(statut='f',typ=nume_ddl_gene ),
3943          DIST_REFE       =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
3944          AVEC_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3945          NUME_MODE_MECA  =SIMP(statut='f',typ='I',max='**'),
3946          OPTION          =SIMP(statut='o',typ='TXM',into=("MASS_AJOU","AMOR_AJOU","RIGI_AJOU") ),
3947          POTENTIEL       =SIMP(statut='f',typ=evol_ther ),
3948          NOEUD_DOUBLE    =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3949          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3950
3951          SOLVEUR         =FACT(statut='d',min=1,max=1,
3952            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
3953            b_mult_front    = BLOC ( condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
3954              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
3955            ),
3956            b_ldlt          =BLOC( condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
3957              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
3958            ),
3959            b_ldlt_mult     =BLOC( condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
3960                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
3961              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
3962              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3963            ),
3964            b_gcpc          =BLOC (condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
3965              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
3966              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
3967              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
3968              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
3969              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
3970            ),
3971 #  A quoi sert eps
3972            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3973          ),
3974 )  ;
3975 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
3976 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3977 # ======================================================================
3978 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3979 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3980 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3981 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3982 # (AT YOUR OPTION) ANY LATER VERSION.
3983 #
3984 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3985 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3986 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3987 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3988 #
3989 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3990 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3991 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3992 # ======================================================================
3993 # RESPONSABLE VABHHTS J.PELLET
3994 def calc_matr_elem_prod(OPTION,**args):
3995   if OPTION == "RIGI_MECA"        : return matr_elem_depl_r
3996   if OPTION == "RIGI_FLUI_STRU"   : return matr_elem_depl_r
3997   if OPTION == "RIGI_MECA_LAGR"   : return matr_elem_depl_r
3998   if OPTION == "MASS_ID_MDEP_R"   : return matr_elem_depl_r
3999   if OPTION == "MASS_ID_MDNS_R"   : return matr_elem_depl_r
4000   if OPTION == "MASS_ID_MTEM_R"   : return matr_elem_temp_r
4001   if OPTION == "MASS_ID_MTNS_R"   : return matr_elem_temp_r
4002   if OPTION == "MASS_MECA"        : return matr_elem_depl_r
4003   if OPTION == "MASS_FLUI_STRU"   : return matr_elem_depl_r
4004   if OPTION == "RIGI_GEOM"        : return matr_elem_depl_r
4005   if OPTION == "RIGI_ROTA"        : return matr_elem_depl_r
4006   if OPTION == "AMOR_MECA"        : return matr_elem_depl_r
4007   if OPTION == "IMPE_MECA"        : return matr_elem_depl_r
4008   if OPTION == "ONDE_FLUI"        : return matr_elem_depl_r
4009   if OPTION == "RIGI_MECA_HYST"   : return matr_elem_depl_c
4010   if OPTION == "RIGI_THER"        : return matr_elem_temp_r
4011   if OPTION == "MASS_THER"        : return matr_elem_temp_r
4012   if OPTION == "MASS_MECA_DIAG"   : return matr_elem_depl_r
4013   if OPTION == "RIGI_ACOU"        : return matr_elem_pres_c
4014   if OPTION == "MASS_ACOU"        : return matr_elem_pres_c
4015   if OPTION == "AMOR_ACOU"        : return matr_elem_pres_c
4016   raise AsException("type de concept resultat non prevu")
4017
4018 CALC_MATR_ELEM=OPER(nom="CALC_MATR_ELEM",op=   9,sd_prod=calc_matr_elem_prod
4019                     ,fr="Calcul des matrices élémentaires",docu="U4.61.01-g",reentrant='n',
4020             UIinfo={"groupes":("Matrices/vecteurs",)},
4021          OPTION          =SIMP(statut='o',typ='TXM',
4022                                into=("RIGI_MECA","MASS_MECA","RIGI_GEOM",
4023                                      "AMOR_MECA","RIGI_THER","MASS_THER","IMPE_MECA",
4024                                      "ONDE_FLUI","MASS_FLUI_STRU","RIGI_FLUI_STRU",
4025                                      "RIGI_ROTA","MASS_MECA_DIAG","RIGI_ACOU",
4026                                      "MASS_ID_MDEP_R","MASS_ID_MDNS_R","MASS_ID_MTEM_R","MASS_ID_MTNS_R",
4027                                      "MASS_ACOU","AMOR_ACOU","RIGI_MECA_HYST",
4028                                      "RIGI_MECA_LAGR") ),
4029
4030          b_rigi_meca = BLOC( condition = "OPTION=='RIGI_MECA'",
4031            regles=(AU_MOINS_UN('MODELE','CHARGE' ),),
4032            MODELE          =SIMP(statut='f',typ=modele ),
4033            b_modele        =BLOC(condition = "MODELE != None",
4034              CHAM_MATER      =SIMP(statut='f',typ=cham_mater ),
4035              CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
4036              MODE_FOURIER    =SIMP(statut='f',typ='I',defaut= 0 ),
4037            ),
4038            CHARGE          =SIMP(statut='f',typ=char_meca,max='**' ),
4039            b_charge        =BLOC (condition = "CHARGE != None",
4040              INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4041            ),
4042          ),
4043
4044          b_rigi_meca_lagr  =BLOC(condition = "OPTION=='RIGI_MECA_LAGR'",
4045            MODELE            =SIMP(statut='o',typ=modele ),
4046            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
4047            CHARGE            =SIMP(statut='f',typ=char_meca,max='**'  ),
4048            b_charge        =BLOC(condition = "CHARGE != None",
4049              INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4050            ),
4051            THETA           =SIMP(statut='o',typ=theta_geom ),
4052            PROPAGATION     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4053          ),
4054
4055          b_mass_meca       =BLOC(condition = "(OPTION=='MASS_MECA') or (OPTION=='MASS_MECA_DIAG')",
4056            regles=(AU_MOINS_UN('MODELE','CHARGE'),),
4057            MODELE          =SIMP(statut='f',typ=modele ),
4058            b_modele          =BLOC(condition = "MODELE != None",
4059              CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
4060              CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
4061            ),
4062            CHARGE          =SIMP(statut='f',typ=char_meca,max='**' ),
4063            b_charge        =BLOC(condition = "CHARGE != None",
4064              INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4065            ),
4066          ),
4067
4068          b_mass_identite   =BLOC(condition = "(OPTION in ('MASS_ID_MDEP_R','MASS_ID_MTEM_R','MASS_ID_MDNS_R','MASS_ID_MTNS_R')) ",
4069            MODELE            =SIMP(statut='o',typ=modele ),
4070            # j'ajoute ces 2 mot clés inutiles à cause de l'alarme pas assez subtile de MEDOME
4071            CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
4072            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
4073          ),
4074
4075          b_rigi_geom       =BLOC(condition = "OPTION=='RIGI_GEOM'",
4076            MODELE            =SIMP(statut='o',typ=modele ),
4077            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
4078            SIEF_ELGA         =SIMP(statut='o',typ=cham_elem_sief_r ),
4079            MODE_FOURIER      =SIMP(statut='f',typ='I',defaut= 0 ),
4080          ),
4081
4082          b_rigi_rota       =BLOC(condition = "OPTION=='RIGI_ROTA'",
4083            MODELE            =SIMP(statut='o',typ=modele ),
4084            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
4085            CHARGE            =SIMP(statut='o',typ=char_meca,max='**' ),
4086            INST              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4087          ),
4088
4089          b_amor_meca       =BLOC(condition = "OPTION=='AMOR_MECA'",
4090            regles=(AU_MOINS_UN('CARA_ELEM','RIGI_MECA'),
4091                    ENSEMBLE('RIGI_MECA','MASS_MECA','CHAM_MATER'), ),
4092            MODELE            =SIMP(statut='o',typ=modele ),
4093            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
4094            CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
4095            RIGI_MECA         =SIMP(statut='f',typ=matr_elem_depl_r ),
4096            MASS_MECA         =SIMP(statut='f',typ=matr_elem_depl_r ),
4097            CHARGE            =SIMP(statut='f',typ=char_meca,max='**' ),
4098          ),
4099
4100          b_rigi_meca_hyst  =BLOC( condition = "OPTION=='RIGI_MECA_HYST'",
4101            MODELE            =SIMP(statut='o',typ=modele ),
4102            CHARGE            =SIMP(statut='f',typ=char_meca ,max='**' ),
4103            CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
4104            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
4105            RIGI_MECA         =SIMP(statut='o',typ=matr_elem_depl_r ),
4106          ),
4107
4108          b_rigi_ther       =BLOC(condition = "OPTION=='RIGI_THER'",
4109            regles=(AU_MOINS_UN('MODELE','CHARGE' ),),
4110            MODELE            =SIMP(statut='f',typ=modele ),
4111            b_modele          =BLOC(condition = "MODELE != None",
4112              CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
4113              CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
4114              MODE_FOURIER      =SIMP(statut='f',typ='I',defaut= 0 ),
4115            ),
4116            CHARGE            =SIMP(statut='f',typ=char_ther,max='**' ),
4117          ),
4118
4119          b_mass_ther       =BLOC(condition = "OPTION=='MASS_THER'",
4120            MODELE            =SIMP(statut='o',typ=modele ),
4121            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
4122            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
4123          ),
4124
4125          b_rigi_acou       =BLOC(condition = "(OPTION=='RIGI_ACOU') or (OPTION=='MASS_ACOU') or (OPTION=='AMOR_ACOU')",
4126            MODELE            =SIMP(statut='o',typ=modele ),
4127            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
4128            CHARGE            =SIMP(statut='f',typ=char_acou ,max='**' ),
4129          ),
4130
4131          b_rigi_flui       =BLOC(condition = "(OPTION=='RIGI_FLUI_STRU') or (OPTION=='MASS_FLUI_STRU')",
4132            MODELE            =SIMP(statut='o',typ=modele ),
4133            CARA_ELEM         =SIMP(statut='o',typ=cara_elem ),
4134            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
4135            CHARGE            =SIMP(statut='o',typ=char_meca ,max='**' ),
4136            INST              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4137          ),
4138
4139          b_impe_meca       =BLOC(condition = "(OPTION=='IMPE_MECA') or (OPTION=='ONDE_FLUI')",
4140            MODELE            =SIMP(statut='o',typ=modele ),
4141            CHARGE            =SIMP(statut='o',typ=char_meca,max='**' ),
4142            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
4143          ),
4144 )  ;
4145 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
4146 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4147 # ======================================================================
4148 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4149 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4150 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4151 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4152 # (AT YOUR OPTION) ANY LATER VERSION.
4153 #
4154 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4155 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4156 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4157 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4158 #
4159 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4160 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4161 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4162 # ======================================================================
4163 CALC_META=OPER(nom="CALC_META",op=194,sd_prod=evol_ther,docu="U4.85.01-b",reentrant='o',
4164             UIinfo={"groupes":("Post traitements",)},
4165                fr="Calcule la métallurgie a partir du résultat du calcul thermique",
4166          MODELE          =SIMP(statut='o',typ=modele ),
4167          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
4168          RESULTAT        =SIMP(statut='o',typ=evol_ther ),
4169          ETAT_INIT       =FACT(statut='o',min=1,max=1,
4170       regles=(UN_PARMI('NUME_INIT', 'INST_INIT', 'META_INIT',),),
4171            EVOL_THER       =SIMP(statut='f',typ=evol_ther ),
4172            NUME_INIT       =SIMP(statut='f',typ='I' ),
4173            INST_INIT       =SIMP(statut='f',typ='R'),
4174              b_inst     =BLOC(condition="(INST_INIT != None)",
4175                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
4176                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4177                              ),
4178            META_INIT       =SIMP(statut='f',typ=carte_var2_r ),
4179          ),
4180          COMP_INCR       =FACT(statut='o',min=1,max='**',
4181            RELATION        =SIMP(statut='o',typ='TXM',into=("ACIER","ZIRC",) ),
4182            ACIER           =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
4183            ZIRC            =SIMP(statut='c',typ='I',defaut=3,into=(3,) ),
4184       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
4185            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4186            GROUP_MA        =SIMP(statut='f',typ=grma),
4187            MAILLE          =SIMP(statut='f',typ=ma),
4188          ),
4189          OPTION          =SIMP(statut='f',typ='TXM'
4190                              ,into=("META_ELNO_TEMP",) ),
4191 )  ;
4192 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
4193 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4194 # ======================================================================
4195 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4196 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4197 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4198 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4199 # (AT YOUR OPTION) ANY LATER VERSION.
4200 #
4201 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4202 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4203 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4204 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4205 #
4206 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4207 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4208 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4209 # ======================================================================
4210 # RESPONSABLE G8BHHXD X.DESROCHES
4211 def calc_no_prod(RESULTAT,**args):
4212    if AsType(RESULTAT) != None : return AsType(RESULTAT)
4213    raise AsException("type de concept resultat non prevu")
4214
4215 CALC_NO=OPER(nom="CALC_NO",op= 106,sd_prod=calc_no_prod,docu="U4.81.02-f",reentrant='o',
4216             UIinfo={"groupes":("Post traitements",)},
4217          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
4218                                                mode_acou,mode_stat,mode_stat_depl,mode_stat_acce,
4219                                               mode_stat_forc,evol_ther,evol_noli,base_modale,
4220                                                mult_elas,fourier_elas,mode_flamb ) ),
4221          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
4222                                fr="Liste des paramètres de sensibilité.",
4223                                ang="List of sensitivity parameters"),
4224
4225          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
4226                         'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),),
4227          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4228          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
4229          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
4230          NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
4231          NOM_CAS         =SIMP(statut='f',typ='TXM' ),
4232          INST            =SIMP(statut='f',typ='R',max='**'),
4233          FREQ            =SIMP(statut='f',typ='R',max='**'),
4234          LIST_INST       =SIMP(statut='f',typ=listr8),
4235          LIST_FREQ       =SIMP(statut='f',typ=listr8),
4236          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
4237          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4238          LIST_ORDRE      =SIMP(statut='f',typ=listis),
4239
4240          OPTION          =SIMP(statut='o',typ='TXM',max='**',
4241                                into=("FORC_NODA","REAC_NODA",
4242                                      "DCHA_NOEU_SIGM",
4243                                      "DEGE_NOEU_DEPL",
4244                                      "DETE_NOEU_DLTE",
4245                                      "DEDE_NOEU_DLDE",
4246                                      "DESI_NOEU_DLSI",
4247                                      "DURT_NOEU_META",
4248                                      "EFGE_NOEU_CART","EFGE_NOEU_DEPL",
4249                                      "ENDO_NOEU_SINO",
4250                                      "ENEL_NOEU_ELGA",
4251                                      "EPMG_NOEU_DEPL",
4252                                      "EPSA_NOEU",
4253                                      "EPSG_NOEU"     ,"EPSG_NOEU_DEPL",
4254                                      "EPSI_NOEU_DEPL","EPSI_NOEU_DPGE",
4255                                      "EPSP_NOEU"     ,"EPSP_NOEU_ZAC",
4256                                      "EQUI_NOEU_EPME","EQUI_NOEU_EPSI","EQUI_NOEU_SIGM",
4257                                      "ERRE_NOEU_ELGA",
4258                                      "FLUX_NOEU_TEMP",
4259                                      "GRAD_NOEU_THETA",
4260                                      "HYDR_NOEU_ELGA",
4261                                      "INTE_NOEU_ACTI","INTE_NOEU_REAC",
4262                                      "META_NOEU_TEMP",
4263                                      "PMPB_NOEU_SIEF",
4264                                      "PRES_NOEU_DBEL","PRES_NOEU_IMAG","PRES_NOEU_REEL",
4265                                      "RADI_NOEU_SIGM",
4266                                      "SIEF_NOEU"     ,"SIEF_NOEU_ELGA",
4267                                      "SIGM_NOEU_CART","SIGM_NOEU_COQU","SIGM_NOEU_DEPL","SIGM_NOEU_DPGE",
4268                                      "SIGM_NOEU_SIEF","SIGM_NOEU_VARI","SIGM_NOEU_ZAC",
4269                                      "SIPO_NOEU_DEPL","SIPO_NOEU_SIEF",
4270                                      "SIRE_NOEU_DEPL",
4271                                      "VARI_NOEU"     ,"VARI_NOEU_ELGA",) ),
4272
4273          b_forc_reac     =BLOC(condition = """(OPTION == 'FORC_NODA') or (type(OPTION) == type(()) and 'FORC_NODA' in OPTION) or\
4274  (OPTION == 'REAC_NODA') or (type(OPTION) == type(()) and 'REAC_NODA' in OPTION)""",
4275              MODELE          =SIMP(statut='o',typ=modele),
4276          ),
4277
4278          CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
4279          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
4280          EXCIT           =FACT(statut='f',min=1,max='**',
4281            CHARGE          =SIMP(statut='f',typ=(char_meca,char_ther,char_acou) ),
4282            FONC_MULT       =SIMP(statut='f',typ=fonction),
4283            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
4284                                  into=("FIXE_CSTE","FIXE_PILO","SUIV") ),
4285          ),
4286          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4287          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4288          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4289 )  ;
4290 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
4291 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4292 # ======================================================================
4293 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4294 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4295 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4296 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4297 # (AT YOUR OPTION) ANY LATER VERSION.
4298 #
4299 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4300 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4301 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4302 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4303 #
4304 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4305 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4306 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4307 # ======================================================================
4308 CALC_THETA=OPER(nom="CALC_THETA",op=54,sd_prod=theta_geom,docu="U4.82.02-e",reentrant='n',
4309             UIinfo={"groupes":("Post traitements",)},
4310                 fr="Affectation d un champ sur le maillage (mécanique de la rupture)",
4311          regles=(UN_PARMI('THETA_2D','THETA_3D','THETA_BANDE'),
4312                  PRESENT_ABSENT('THETA_2D','DIRE_THETA'),
4313                  EXCLUS('DIRECTION','DIRE_THETA'),),
4314          OPTION          =SIMP(statut='f',typ='TXM',defaut="COURONNE",into=("COURONNE","BANDE") ),
4315          MODELE          =SIMP(statut='o',typ=(modele) ),
4316          THETA_3D        =FACT(statut='f',min=1,max='**',
4317            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
4318                    UN_PARMI('MODULE','MODULE_FO'),
4319                    ENSEMBLE('MODULE','R_INF','R_SUP'),
4320                    ENSEMBLE('MODULE_FO','R_INF_FO','R_SUP_FO'),),
4321            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4322            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4323            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4324            MODULE          =SIMP(statut='f',typ='R'),
4325            R_INF           =SIMP(statut='f',typ='R'),
4326            R_SUP           =SIMP(statut='f',typ='R'),
4327            MODULE_FO       =SIMP(statut='f',typ=fonction),
4328            R_INF_FO        =SIMP(statut='f',typ=fonction),
4329            R_SUP_FO        =SIMP(statut='f',typ=fonction),
4330                          ),
4331          b_theta_3d     =BLOC(condition="THETA_3D != None",
4332            FOND_FISS       =SIMP(statut='f',typ=fond_fiss),),
4333          DIRE_THETA      =SIMP(statut='f',typ=(cham_no_depl_r) ),
4334          DIRECTION       =SIMP(statut='f',typ='R',max='**'),
4335          THETA_2D        =FACT(statut='f',min=1,max='**',
4336            regles=(UN_PARMI('GROUP_NO','NOEUD'),),
4337            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4338            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4339            MODULE          =SIMP(statut='o',typ='R'),
4340            R_INF           =SIMP(statut='o',typ='R'),
4341            R_SUP           =SIMP(statut='o',typ='R'),
4342          ),
4343          THETA_BANDE     =FACT(statut='f',min=1,max='**',
4344            MODULE          =SIMP(statut='o',typ='R'),
4345            R_INF           =SIMP(statut='o',typ='R'),
4346            R_SUP           =SIMP(statut='o',typ='R'),
4347          ),
4348          GRAD_NOEU_THETA =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
4349          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
4350          IMPRESSION      =FACT(statut='f',min=1,max=1,
4351            FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
4352            FORMAT          =SIMP(statut='f',typ='TXM',defaut="EXCEL",into=("EXCEL","AGRAF") ),
4353          ),
4354 )  ;
4355 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
4356 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4357 # ======================================================================
4358 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4359 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4360 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4361 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4362 # (AT YOUR OPTION) ANY LATER VERSION.
4363 #
4364 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4365 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4366 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4367 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4368 #
4369 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4370 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4371 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4372 # ======================================================================
4373 # RESPONSABLE VABHHTS J.PELLET
4374 def calc_vect_elem_prod(OPTION,**args):
4375   if OPTION == "CHAR_MECA" :      return vect_elem_depl_r
4376   if OPTION == "CHAR_MECA_LAGR" : return vect_elem_depl_r
4377   if OPTION == "CHAR_THER" :      return vect_elem_temp_r
4378   if OPTION == "CHAR_ACOU" :      return vect_elem_pres_c
4379   if OPTION == "FORC_NODA" :      return vect_elem_depl_r
4380   raise AsException("type de concept resultat non prevu")
4381
4382 CALC_VECT_ELEM=OPER(nom="CALC_VECT_ELEM",op=8,sd_prod=calc_vect_elem_prod,docu="U4.61.02-g",reentrant='n',
4383             UIinfo={"groupes":("Matrices/vecteurs",)},
4384                     fr="Calcul des seconds membres élémentaires",
4385          OPTION          =SIMP(statut='o',typ='TXM',into=("CHAR_MECA","CHAR_THER","CHAR_ACOU",
4386                                                            "FORC_NODA","CHAR_MECA_LAGR") ),
4387          b_char_meca     =BLOC(condition = "OPTION=='CHAR_MECA'",
4388            regles=(AU_MOINS_UN('CHARGE','MODELE'),),
4389            CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
4390            MODELE          =SIMP(statut='f',typ=modele),
4391            b_charge     =BLOC(condition = "CHARGE != None", fr="modèle ne contenant pas de sous-structure",
4392               CHAM_MATER   =SIMP(statut='f',typ=cham_mater),
4393               CARA_ELEM    =SIMP(statut='f',typ=cara_elem),
4394               INST         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4395               MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
4396            ),
4397            b_modele     =BLOC(condition = "(MODELE != None)",fr="modèle contenant une sous-structure",
4398               SOUS_STRUC      =FACT(statut='o',min=01,
4399                 regles=(UN_PARMI('TOUT','MAILLE'),),
4400                 CAS_CHARGE  =SIMP(statut='o',typ='TXM' ),
4401                 TOUT        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4402                 MAILLE      =SIMP(statut='f',typ=ma,max='**',),
4403               ),
4404            ),
4405          ),
4406          b_char_ther     =BLOC(condition = "OPTION=='CHAR_THER'",
4407            CARA_ELEM        =SIMP(statut='f',typ=cara_elem),
4408            CHARGE           =SIMP(statut='o',typ=char_ther,max='**'),
4409            INST             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4410          ),
4411
4412          b_char_acou     =BLOC(condition = "OPTION=='CHAR_ACOU'",
4413            CHAM_MATER        =SIMP(statut='o',typ=cham_mater),
4414            CHARGE            =SIMP(statut='o',typ=char_acou,max='**'),
4415          ),
4416
4417          b_forc_noda     =BLOC(condition = "OPTION=='FORC_NODA'",
4418            SIEF_ELGA         =SIMP(statut='o',typ=cham_elem_sief_r),
4419            CARA_ELEM         =SIMP(statut='f',typ=cara_elem),
4420            MODELE            =SIMP(statut='f',typ=modele),
4421          ),
4422
4423          b_meca_lagr     =BLOC(condition = "OPTION=='CHAR_MECA_LAGR'",
4424            CHAM_MATER        =SIMP(statut='o',typ=cham_mater),
4425            THETA             =SIMP(statut='o',typ=theta_geom),
4426            PROPAGATION       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4427            CHARGE            =SIMP(statut='f',typ=char_meca,max='**'),
4428            INST              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4429          ),
4430 ) ;
4431 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
4432 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4433 # ======================================================================
4434 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4435 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4436 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4437 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4438 # (AT YOUR OPTION) ANY LATER VERSION.
4439 #
4440 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4441 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4442 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4443 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4444 #
4445 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4446 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4447 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4448 # ======================================================================
4449 # RESPONSABLE G8BHHXD X.DESROCHES
4450 def comb_cham_elem_prod(COMB_R=None,COMB_C=None,COMB_FOURIER=None,**args):
4451
4452   if COMB_R != None:
4453     vale=COMB_R.get_child('CHAM_ELEM').get_valeur()
4454   elif COMB_C != None:
4455     vale=COMB_C.get_child('CHAM_ELEM').get_valeur()
4456   elif COMB_FOURIER != None:
4457     vale=COMB_FOURIER.get_child('CHAM_ELEM').get_valeur()
4458   else :
4459     raise AsException("type de concept resultat non prevu")
4460
4461   if AsType(vale) == cham_elem_sief_r : return cham_elem_sief_r
4462   if AsType(vale) == cham_elem_flux_r : return cham_elem_flux_r
4463   if AsType(vale) == cham_elem_epsi_r : return cham_elem_epsi_r
4464   if AsType(vale) == cham_elem_ener_r : return cham_elem_ener_r
4465   if AsType(vale) == cham_elem_crit_r : return cham_elem_crit_r
4466   if AsType(vale) == cham_elem_dbel_r : return cham_elem_dbel_r
4467   if AsType(vale) == cham_elem_pres_r : return cham_elem_pres_r
4468   if AsType(vale) == cham_elem_sief_c : return cham_elem_sief_c
4469   raise AsException("type de concept resultat non prevu")
4470
4471 COMB_CHAM_ELEM=OPER(nom="COMB_CHAM_ELEM",op= 139,sd_prod=comb_cham_elem_prod,reentrant='f',
4472                     fr="Combinaison linéaire de champs par éléments",docu="U4.72.03-f",
4473             UIinfo={"groupes":("Résultats et champs",)},
4474       regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),
4475               PRESENT_PRESENT('COMB_FOURIER','ANGL'),),
4476       COMB_R          =FACT(statut='f',min=1,max='**',
4477         PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
4478         COEF_R          =SIMP(statut='o',typ='R'),
4479         CHAM_ELEM       =SIMP(statut='o',
4480                               typ=(cham_elem_sief_r,cham_elem_flux_r,cham_elem_epsi_r,
4481                                    cham_elem_ener_r,cham_elem_crit_r,cham_elem_dbel_r,
4482                                    cham_elem_pres_r,cham_elem_sief_c ) ),
4483       ),
4484       COMB_C          =FACT(statut='f',min=1,max='**',
4485         regles=(UN_PARMI('COEF_R','COEF_C', ),),
4486         COEF_R          =SIMP(statut='f',typ='R'),
4487         COEF_C          =SIMP(statut='f',typ='C'),
4488         CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r) ),
4489       ),
4490       COMB_FOURIER    =FACT(statut='f',min=1,max='**',
4491         COEF_R          =SIMP(statut='f',typ='R',defaut= 1.),
4492         NUME_MODE       =SIMP(statut='o',typ='I'),
4493         TYPE_MODE       =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
4494         CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,cham_elem_flux_r,cham_elem_epsi_r ) ),
4495       ),
4496       ANGL            =SIMP(statut='f',typ='R' ),
4497 )  ;
4498
4499 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
4500 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4501 # ======================================================================
4502 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4503 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4504 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4505 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4506 # (AT YOUR OPTION) ANY LATER VERSION.
4507 #
4508 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4509 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4510 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4511 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4512 #
4513 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4514 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4515 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4516 # ======================================================================
4517 # RESPONSABLE G8BHHXD X.DESROCHES
4518 def comb_cham_no_prod(COMB_R,COMB_C,COMB_FOURIER,**args):
4519   if COMB_C != None:
4520     type_mat = AsType(COMB_C.get_child('CHAM_NO').get_valeur())
4521     if type_mat in  (cham_no_depl_c,cham_no_depl_r) : return cham_no_depl_c
4522     if type_mat in  (cham_no_temp_c,cham_no_temp_r) : return cham_no_temp_c
4523     if type_mat in  (cham_no_pres_c,cham_no_pres_r) : return cham_no_pres_c
4524   elif COMB_R != None:
4525     type_mat = AsType(COMB_R.get_child('CHAM_NO').get_valeur())
4526     if type_mat in  (cham_no_depl_c,cham_no_depl_r) : return cham_no_depl_r
4527     if type_mat in  (cham_no_temp_c,cham_no_temp_r) : return cham_no_temp_r
4528     if type_mat in  (cham_no_pres_c,cham_no_pres_r) : return cham_no_pres_r
4529     if type_mat ==  matr_asse_gene_r : return matr_asse_gene_r
4530   elif COMB_FOURIER != None:
4531     type_mat = AsType(COMB_FOURIER.get_child('CHAM_NO').get_valeur())
4532     if type_mat == cham_no_temp_r : return cham_no_temp_r
4533     if type_mat == cham_no_depl_r : return cham_no_depl_r
4534   raise AsException("type de concept resultat non prevu")
4535
4536
4537 COMB_CHAM_NO=OPER(nom="COMB_CHAM_NO",op=  30,sd_prod=comb_cham_no_prod
4538                     ,fr="Combinaison linéaire de champs aux noeuds",
4539                      docu="U4.72.02-g",reentrant='f',
4540             UIinfo={"groupes":("Résultats et champs",)},
4541          regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),),
4542          COMB_R          =FACT(statut='f',min=1,max='**',
4543            PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG",) ),
4544            CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_temp_c,cham_no_depl_r,cham_no_depl_c
4545                                                 ,cham_no_pres_r,cham_no_pres_c ) ),
4546            COEF_R          =SIMP(statut='o',typ='R' ),
4547          ),
4548          COMB_C          =FACT(statut='f',min=1,max='**',
4549            regles=(UN_PARMI('COEF_R','COEF_C' ),),
4550            CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r,cham_no_temp_c
4551                                                 ,cham_no_depl_c,cham_no_pres_c ) ),
4552            COEF_R          =SIMP(statut='f',typ='R' ),
4553            COEF_C          =SIMP(statut='f',typ='C' ),
4554          ),
4555          COMB_FOURIER    =FACT(statut='f',min=1,max='**',
4556            CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r) ),
4557            COEF_R          =SIMP(statut='f',typ='R',defaut= 1. ),
4558            NUME_MODE       =SIMP(statut='o',typ='I' ),
4559            TYPE_MODE       =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
4560          ),
4561          b_angl = BLOC ( condition = "COMB_FOURIER != None",
4562            ANGL            =SIMP(statut='o',typ='R' ),
4563          ),
4564 )  ;
4565 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
4566 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4567 # ======================================================================
4568 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4569 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4570 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4571 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4572 # (AT YOUR OPTION) ANY LATER VERSION.
4573 #
4574 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4575 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4576 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4577 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4578 #
4579 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4580 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4581 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4582 # ======================================================================
4583 # RESPONSABLE G8BHHXD X.DESROCHES
4584 COMB_FOURIER=OPER(nom="COMB_FOURIER",op= 161,sd_prod=comb_fourier,
4585                   docu="U4.83.31-d",reentrant='n',
4586             UIinfo={"groupes":("Post traitements",)},
4587          RESULTAT        =SIMP(statut='o',typ=fourier_elas ),
4588          ANGL            =SIMP(statut='o',typ='R',max='**'),
4589          NOM_CHAM        =SIMP(statut='o',typ='TXM',max=5,
4590                                into=("DEPL","REAC_NODA","SIEF_ELGA_DEPL","EPSI_ELNO_DEPL","SIGM_ELNO_DEPL") ),
4591 )  ;
4592 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
4593 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4594 # ======================================================================
4595 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4596 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4597 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4598 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4599 # (AT YOUR OPTION) ANY LATER VERSION.
4600 #
4601 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4602 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4603 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4604 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4605 #
4606 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4607 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4608 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4609 # ======================================================================
4610 # RESPONSABLE VABHHTS J.PELLET
4611 def comb_matr_asse_prod(COMB_R,COMB_C,CALC_AMOR_GENE,**args):
4612   if COMB_C != None:
4613     type_mat = AsType(COMB_C.get_child('MATR_ASSE').get_valeur())
4614     if type_mat in  (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_c
4615     if type_mat in  (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_c
4616     if type_mat in  (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_c
4617     if type_mat in  (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_c
4618   elif COMB_R != None:
4619     type_mat = AsType(COMB_R.get_child('MATR_ASSE').get_valeur())
4620     if type_mat in  (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_r
4621     if type_mat in  (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_r
4622     if type_mat in  (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_r
4623     if type_mat in  (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_r
4624   elif CALC_AMOR_GENE != None: return matr_asse_gene_r
4625   raise AsException("type de concept resultat non prevu")
4626
4627 COMB_MATR_ASSE=OPER(nom="COMB_MATR_ASSE",op=  31,sd_prod=comb_matr_asse_prod,
4628                     fr="Combinaison linéaire de matrices assemblées",
4629                     docu="U4.72.01-g",reentrant='f',
4630             UIinfo={"groupes":("Résultats et champs",)},
4631          regles=(UN_PARMI('COMB_R','COMB_C','CALC_AMOR_GENE' ),),
4632          COMB_R          =FACT(statut='f',min=1,max='**',
4633            PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
4634            MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_temp_c
4635                                                 ,matr_asse_pres_r,matr_asse_pres_c,matr_asse_gene_r,matr_asse_gene_c ) ),
4636            COEF_R          =SIMP(statut='o',typ='R' ),
4637          ),
4638          COMB_C          =FACT(statut='f',min=1,max='**',
4639            regles=(UN_PARMI('COEF_R','COEF_C' ),),
4640            MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_temp_c
4641                                                 ,matr_asse_pres_r,matr_asse_pres_c,matr_asse_gene_r,matr_asse_gene_c ) ),
4642            COEF_R          =SIMP(statut='f',typ='R' ),
4643            COEF_C          =SIMP(statut='f',typ='C' ),
4644          ),
4645          CALC_AMOR_GENE   =FACT(statut='f',min=1,max=1,
4646            regles=(UN_PARMI('AMOR_REDUIT','LIST_AMOR' ),),
4647            MASS_GENE    = SIMP(statut='f', typ=matr_asse_gene_r),
4648            RIGI_GENE    = SIMP(statut='f', typ=matr_asse_gene_r),
4649            AMOR_REDUIT  = SIMP(statut='f',typ='R',max='**'),
4650            LIST_AMOR    = SIMP(statut='f',typ=listr8 ),
4651          ),
4652          SANS_CMP        =SIMP(statut='f',typ='TXM',into=("LAGR",) ),
4653 )  ;
4654 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
4655 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4656 # ======================================================================
4657 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4658 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4659 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4660 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4661 # (AT YOUR OPTION) ANY LATER VERSION.
4662 #
4663 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4664 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4665 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4666 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4667 #
4668 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4669 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4670 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4671 # ======================================================================
4672 COMB_SISM_MODAL=OPER(nom="COMB_SISM_MODAL",op= 109,sd_prod=mode_stat,
4673                      fr="Réponse sismique par recombinaison modale par une méthode spectrale",
4674                      docu="U4.84.01-e",reentrant='n',
4675             UIinfo={"groupes":("Post traitements",)},
4676          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ','LIST_ORDRE'),
4677                  UN_PARMI('AMOR_REDUIT','LIST_AMOR','AMOR_GENE' ),),
4678          MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
4679          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4680          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
4681          LIST_ORDRE      =SIMP(statut='f',typ=listis ),
4682          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
4683          FREQ            =SIMP(statut='f',typ='R',max='**'),
4684          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
4685          b_freq          =BLOC(condition = "FREQ != None or LIST_FREQ != None",
4686            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
4687            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4688          ),
4689          MODE_CORR       =SIMP(statut='f',typ=mode_stat_acce ),
4690
4691          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
4692          LIST_AMOR       =SIMP(statut='f',typ=listr8 ),
4693          AMOR_GENE       =SIMP(statut='f',typ=matr_asse_gene_r ),
4694
4695          MASS_INER       =SIMP(statut='f',typ=tabl_mass_iner ),
4696          CORR_FREQ       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4697
4698          EXCIT           =FACT(statut='o',min=1,max='**',
4699            regles=(UN_PARMI('MONO_APPUI','NOEUD','GROUP_NO'),
4700                    UN_PARMI('AXE','TRI_AXE','TRI_SPEC' ),),
4701
4702            MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4703            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4704            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4705            AXE             =SIMP(statut='f',fr="Excitation suivant un seul axe",
4706                                  typ='R',max=3),
4707            TRI_AXE         =SIMP(statut='f',fr="Excitation suivant les trois axes mais avec le meme spectre",
4708                                  typ='R',max=3),
4709            TRI_SPEC        =SIMP(statut='f',fr="Excitation suivant les trois axes  avec trois spectres",
4710                                  typ='TXM',into=("OUI",) ),
4711            b_axe           =BLOC(condition = "AXE != None",fr="Excitation suivant un seul axe",
4712              SPEC_OSCI       =SIMP(statut='o',typ=fonction,max=1 ),
4713              ECHELLE         =SIMP(statut='f',typ='R',max=1),
4714            ),
4715            b_tri_axe       =BLOC(condition = "TRI_AXE != None",fr="Excitation suivant les trois axes mais avec le meme spectre",
4716              SPEC_OSCI       =SIMP(statut='o',typ=fonction,max=1 ),
4717              ECHELLE         =SIMP(statut='f',typ='R',max=1),
4718            ),
4719            b_tri_spec      =BLOC(condition = "TRI_SPEC != None",fr="Excitation suivant les trois axes  avec trois spectres",
4720              SPEC_OSCI       =SIMP(statut='o',typ=fonction,min=3,max=3 ),
4721              ECHELLE         =SIMP(statut='f',typ='R',min=3,max=3),
4722            ),
4723            NATURE          =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("ACCE","VITE","DEPL") ),
4724          ),
4725          COMB_MODE       =FACT(statut='o',min=1,max=1,
4726            TYPE            =SIMP(statut='o',typ='TXM',into=("SRSS","CQC","DSC","ABS","DPC") ),
4727            DUREE           =SIMP(statut='f',typ='R' ),
4728          ),
4729          COMB_DIRECTION  =FACT(statut='f',min=1,max=1,
4730            TYPE            =SIMP(statut='f',typ='TXM',into=("QUAD","NEWMARK") ),
4731          ),
4732          COMB_MULT_APPUI =FACT(statut='f',min=1,max='**',
4733            regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO' ),),
4734            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4735            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4736            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4737            TYPE_COMBI      =SIMP(statut='f',typ='TXM',into=("QUAD","LINE",) ),
4738          ),
4739          COMB_DEPL_APPUI=FACT(statut='f',min=1,max='**',
4740            regles=(UN_PARMI('TOUT','LIST_CAS'),),
4741            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
4742            LIST_CAS       =SIMP(statut='f',typ='I',max='**'),
4743            TYPE_COMBI      =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
4744          ),
4745          DEPL_MULT_APPUI =FACT(statut='f',min=1,max='**',
4746            regles=(UN_PARMI('NOEUD','GROUP_NO'),
4747                    AU_MOINS_UN('DX','DY','DZ' ),),
4748            NOM_CAS         =SIMP(statut='o',typ='TXM',max='**'),
4749            NUME_CAS        =SIMP(statut='o',typ='I',max='**'),
4750            MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,), ),
4751            NOEUD_REFE      =SIMP(statut='f',typ=no),
4752            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4753            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4754            DX              =SIMP(statut='f',typ='R' ),
4755            DY              =SIMP(statut='f',typ='R' ),
4756            DZ              =SIMP(statut='f',typ='R' ),
4757          ),
4758          OPTION          =SIMP(statut='o',typ='TXM',max=9,
4759                                into=("DEPL","VITE","ACCE_ABSOLU","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
4760                                      "EFGE_ELNO_DEPL","REAC_NODA","FORC_NODA","EFGE_ELNO_CART",
4761                                      "SIPO_ELNO_DEPL") ),
4762          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
4763          IMPRESSION      =FACT(statut='f',min=1,max='**',
4764            regles=(EXCLUS('TOUT','NIVEAU'),),
4765            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4766            NIVEAU          =SIMP(statut='f',typ='TXM',into=("SPEC_OSCI","MASS_EFFE","MAXI_GENE"),max=3 ),
4767          ),
4768          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
4769 )  ;
4770 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
4771 # RESPONSABLE VABHHTS J.PELLET
4772 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4773 # ======================================================================
4774 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4775 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
4776 #              REDISTRIBUTION OF THIS FILE.
4777 # ======================================================================
4778 def crea_champ_prod(TYPE_CHAM,**args):
4779   if TYPE_CHAM == "CART_DBEL_R" : return carte_dbel_r
4780   if TYPE_CHAM == "CART_DEPL_C" : return carte_depl_c
4781   if TYPE_CHAM == "CART_DEPL_F" : return carte_depl_f
4782   if TYPE_CHAM == "CART_DEPL_R" : return carte_depl_r
4783   if TYPE_CHAM == "CART_DURT_R" : return carte_durt_r
4784   if TYPE_CHAM == "CART_ENER_R" : return carte_ener_r
4785   if TYPE_CHAM == "CART_EPSI_R" : return carte_epsi_r
4786   if TYPE_CHAM == "CART_ERREUR" : return carte_erreur
4787   if TYPE_CHAM == "CART_FLUX_R" : return carte_flux_r
4788   if TYPE_CHAM == "CART_GEOM_R" : return carte_geom_r
4789   if TYPE_CHAM == "CART_G_DEPL_R" : return carte_g_depl_r
4790   if TYPE_CHAM == "CART_HYDR_R" : return carte_hydr_r
4791   if TYPE_CHAM == "CART_INST_R" : return carte_inst_r
4792   if TYPE_CHAM == "CART_INTE_R" : return carte_inte_r
4793   if TYPE_CHAM == "CART_META_R" : return carte_meta_r
4794   if TYPE_CHAM == "CART_NEUT_F" : return carte_neut_f
4795   if TYPE_CHAM == "CART_NEUT_R" : return carte_neut_r
4796   if TYPE_CHAM == "CART_PRES_R" : return carte_pres_r
4797   if TYPE_CHAM == "CART_SIEF_R" : return carte_sief_r
4798   if TYPE_CHAM == "CART_SOUR_R" : return carte_sour_r
4799   if TYPE_CHAM == "CART_TEMP_F" : return carte_temp_f
4800   if TYPE_CHAM == "CART_TEMP_R" : return carte_temp_r
4801   if TYPE_CHAM == "CART_VAR2_R" : return carte_var2_r
4802   if TYPE_CHAM == "CART_VNOR_C" : return carte_vnor_c
4803   if TYPE_CHAM == "NOEU_DBEL_R" : return cham_no_dbel_r
4804   if TYPE_CHAM == "NOEU_DEPL_C" : return cham_no_depl_c
4805   if TYPE_CHAM == "NOEU_DEPL_F" : return cham_no_depl_f
4806   if TYPE_CHAM == "NOEU_DEPL_R" : return cham_no_depl_r
4807   if TYPE_CHAM == "NOEU_DURT_R" : return cham_no_durt_r
4808   if TYPE_CHAM == "NOEU_ENER_R" : return cham_no_ener_r
4809   if TYPE_CHAM == "NOEU_EPSI_R" : return cham_no_epsi_r
4810   if TYPE_CHAM == "NOEU_ERREUR" : return cham_no_erreur
4811   if TYPE_CHAM == "NOEU_FLUX_R" : return cham_no_flux_r
4812   if TYPE_CHAM == "NOEU_GEOM_R" : return cham_no_geom_r
4813   if TYPE_CHAM == "NOEU_G_DEPL_R" : return cham_no_g_depl_r
4814   if TYPE_CHAM == "NOEU_HYDR_R" : return cham_no_hydr_r
4815   if TYPE_CHAM == "NOEU_INST_R" : return cham_no_inst_r
4816   if TYPE_CHAM == "NOEU_INTE_R" : return cham_no_inte_r
4817   if TYPE_CHAM == "NOEU_META_R" : return cham_no_meta_r
4818   if TYPE_CHAM == "NOEU_NEUT_F" : return cham_no_neut_f
4819   if TYPE_CHAM == "NOEU_NEUT_R" : return cham_no_neut_r
4820   if TYPE_CHAM == "NOEU_PRES_R" : return cham_no_pres_r
4821   if TYPE_CHAM == "NOEU_SIEF_R" : return cham_no_sief_r
4822   if TYPE_CHAM == "NOEU_SOUR_R" : return cham_no_sour_r
4823   if TYPE_CHAM == "NOEU_TEMP_F" : return cham_no_temp_f
4824   if TYPE_CHAM == "NOEU_TEMP_R" : return cham_no_temp_r
4825   if TYPE_CHAM == "NOEU_VAR2_R" : return cham_no_var2_r
4826   if TYPE_CHAM == "NOEU_VNOR_C" : return cham_no_vnor_c
4827   if TYPE_CHAM == "ELEM_DBEL_R" : return cham_elem_dbel_r
4828   if TYPE_CHAM == "ELEM_DEPL_C" : return cham_elem_depl_c
4829   if TYPE_CHAM == "ELEM_DEPL_F" : return cham_elem_depl_f
4830   if TYPE_CHAM == "ELEM_DEPL_R" : return cham_elem_depl_r
4831   if TYPE_CHAM == "ELEM_DURT_R" : return cham_elem_durt_r
4832   if TYPE_CHAM == "ELEM_ENER_R" : return cham_elem_ener_r
4833   if TYPE_CHAM == "ELEM_EPSI_R" : return cham_elem_epsi_r
4834   if TYPE_CHAM == "ELEM_ERREUR" : return cham_elem_erreur
4835   if TYPE_CHAM == "ELEM_FLUX_R" : return cham_elem_flux_r
4836   if TYPE_CHAM == "ELEM_GEOM_R" : return cham_elem_geom_r
4837   if TYPE_CHAM == "ELEM_G_DEPL_R" : return cham_elem_g_depl
4838   if TYPE_CHAM == "ELEM_HYDR_R" : return cham_elem_hydr_r
4839   if TYPE_CHAM == "ELEM_INST_R" : return cham_elem_inst_r
4840   if TYPE_CHAM == "ELEM_INTE_R" : return cham_elem_inte_r
4841   if TYPE_CHAM == "ELEM_META_R" : return cham_elem_meta_r
4842   if TYPE_CHAM == "ELEM_NEUT_F" : return cham_elem_neut_f
4843   if TYPE_CHAM == "ELEM_NEUT_R" : return cham_elem_neut_r
4844   if TYPE_CHAM == "ELEM_PRES_R" : return cham_elem_pres_r
4845   if TYPE_CHAM == "ELEM_SIEF_R" : return cham_elem_sief_r
4846   if TYPE_CHAM == "ELEM_SOUR_R" : return cham_elem_sour_r
4847   if TYPE_CHAM == "ELEM_TEMP_F" : return cham_elem_temp_f
4848   if TYPE_CHAM == "ELEM_TEMP_R" : return cham_elem_temp_r
4849   if TYPE_CHAM == "ELEM_VARI_R" : return cham_elem_vari_r
4850   if TYPE_CHAM == "ELEM_VNOR_C" : return cham_elem_vnor_c
4851   if TYPE_CHAM == "ELNO_DBEL_R" : return cham_elem_dbel_r
4852   if TYPE_CHAM == "ELNO_DEPL_C" : return cham_elem_depl_c
4853   if TYPE_CHAM == "ELNO_DEPL_F" : return cham_elem_depl_f
4854   if TYPE_CHAM == "ELNO_DEPL_R" : return cham_elem_depl_r
4855   if TYPE_CHAM == "ELNO_DURT_R" : return cham_elem_durt_r
4856   if TYPE_CHAM == "ELNO_ENER_R" : return cham_elem_ener_r
4857   if TYPE_CHAM == "ELNO_EPSI_R" : return cham_elem_epsi_r
4858   if TYPE_CHAM == "ELNO_ERREUR" : return cham_elem_erreur
4859   if TYPE_CHAM == "ELNO_FLUX_R" : return cham_elem_flux_r
4860   if TYPE_CHAM == "ELNO_GEOM_R" : return cham_elem_geom_r
4861   if TYPE_CHAM == "ELNO_G_DEPL_R" : return cham_elem_g_depl
4862   if TYPE_CHAM == "ELNO_HYDR_R" : return cham_elem_hydr_r
4863   if TYPE_CHAM == "ELNO_INST_R" : return cham_elem_inst_r
4864   if TYPE_CHAM == "ELNO_INTE_R" : return cham_elem_inte_r
4865   if TYPE_CHAM == "ELNO_META_R" : return cham_elem_meta_r
4866   if TYPE_CHAM == "ELNO_NEUT_F" : return cham_elem_neut_f
4867   if TYPE_CHAM == "ELNO_NEUT_R" : return cham_elem_neut_r
4868   if TYPE_CHAM == "ELNO_PRES_R" : return cham_elem_pres_r
4869   if TYPE_CHAM == "ELNO_SIEF_R" : return cham_elem_sief_r
4870   if TYPE_CHAM == "ELNO_SOUR_R" : return cham_elem_sour_r
4871   if TYPE_CHAM == "ELNO_TEMP_F" : return cham_elem_temp_f
4872   if TYPE_CHAM == "ELNO_TEMP_R" : return cham_elem_temp_r
4873   if TYPE_CHAM == "ELNO_VARI_R" : return cham_elem_vari_r
4874   if TYPE_CHAM == "ELNO_VNOR_C" : return cham_elem_vnor_c
4875   if TYPE_CHAM == "ELGA_DBEL_R" : return cham_elem_dbel_r
4876   if TYPE_CHAM == "ELGA_DEPL_C" : return cham_elem_depl_c
4877   if TYPE_CHAM == "ELGA_DEPL_F" : return cham_elem_depl_f
4878   if TYPE_CHAM == "ELGA_DEPL_R" : return cham_elem_depl_r
4879   if TYPE_CHAM == "ELGA_DURT_R" : return cham_elem_durt_r
4880   if TYPE_CHAM == "ELGA_ENER_R" : return cham_elem_ener_r
4881   if TYPE_CHAM == "ELGA_EPSI_R" : return cham_elem_epsi_r
4882   if TYPE_CHAM == "ELGA_ERREUR" : return cham_elem_erreur
4883   if TYPE_CHAM == "ELGA_FLUX_R" : return cham_elem_flux_r
4884   if TYPE_CHAM == "ELGA_GEOM_R" : return cham_elem_geom_r
4885   if TYPE_CHAM == "ELGA_G_DEPL_R" : return cham_elem_g_depl
4886   if TYPE_CHAM == "ELGA_HYDR_R" : return cham_elem_hydr_r
4887   if TYPE_CHAM == "ELGA_INST_R" : return cham_elem_inst_r
4888   if TYPE_CHAM == "ELGA_INTE_R" : return cham_elem_inte_r
4889   if TYPE_CHAM == "ELGA_META_R" : return cham_elem_meta_r
4890   if TYPE_CHAM == "ELGA_NEUT_F" : return cham_elem_neut_f
4891   if TYPE_CHAM == "ELGA_NEUT_R" : return cham_elem_neut_r
4892   if TYPE_CHAM == "ELGA_PRES_R" : return cham_elem_pres_r
4893   if TYPE_CHAM == "ELGA_SIEF_R" : return cham_elem_sief_r
4894   if TYPE_CHAM == "ELGA_SOUR_R" : return cham_elem_sour_r
4895   if TYPE_CHAM == "ELGA_TEMP_F" : return cham_elem_temp_f
4896   if TYPE_CHAM == "ELGA_TEMP_R" : return cham_elem_temp_r
4897   if TYPE_CHAM == "ELGA_VARI_R" : return cham_elem_vari_r
4898   if TYPE_CHAM == "ELGA_VNOR_C" : return cham_elem_vnor_c
4899   if TYPE_CHAM == "CART_IRRA_R" : return carte_irra_r
4900   if TYPE_CHAM == "NOEU_IRRA_R" : return cham_no_irra_r
4901   if TYPE_CHAM == "ELEM_IRRA_R" : return cham_elem_irra_r
4902   if TYPE_CHAM == "ELNO_IRRA_R" : return cham_elem_irra_r
4903   if TYPE_CHAM == "ELGA_IRRA_R" : return cham_elem_irra_r
4904   raise AsException("type de concept resultat non prevu")
4905
4906 CREA_CHAMP=OPER(nom="CREA_CHAMP",op= 195,sd_prod=crea_champ_prod,
4907                 fr="  ",docu="U4.72.04-b",reentrant='n',
4908             UIinfo={"groupes":("Résultats et champs",)},
4909          TYPE_CHAM       =SIMP(statut='o',typ='TXM',
4910                         into=("CART_DBEL_R","NOEU_DBEL_R","ELEM_DBEL_R",
4911                              "ELNO_DBEL_R","ELGA_DBEL_R","CART_DEPL_C",
4912                              "NOEU_DEPL_C","ELEM_DEPL_C","ELNO_DEPL_C",
4913                              "ELGA_DEPL_C","CART_DEPL_F","NOEU_DEPL_F",
4914                              "ELEM_DEPL_F","ELNO_DEPL_F","ELGA_DEPL_F",
4915                              "CART_DEPL_R","NOEU_DEPL_R","ELEM_DEPL_R",
4916                              "ELNO_DEPL_R","ELGA_DEPL_R","CART_DURT_R",
4917                              "NOEU_DURT_R","ELEM_DURT_R","ELNO_DURT_R",
4918                              "ELGA_DURT_R","CART_ENER_R","NOEU_ENER_R",
4919                              "ELEM_ENER_R","ELNO_ENER_R","ELGA_ENER_R",
4920                              "CART_EPSI_R","NOEU_EPSI_R","ELEM_EPSI_R",
4921                              "ELNO_EPSI_R","ELGA_EPSI_R","CART_ERREUR",
4922                              "NOEU_ERREUR","ELEM_ERREUR","ELNO_ERREUR",
4923                              "ELGA_ERREUR","CART_FLUX_R","NOEU_FLUX_R",
4924                              "ELEM_FLUX_R","ELNO_FLUX_R","ELGA_FLUX_R",
4925                              "CART_GEOM_R","NOEU_GEOM_R","ELEM_GEOM_R",
4926                              "ELNO_GEOM_R","ELGA_GEOM_R","CART_G_DEPL_R",
4927                              "NOEU_G_DEPL_R","ELEM_G_DEPL_R","ELNO_G_DEPL_R",
4928                              "ELGA_G_DEPL_R","CART_HYDR_R","NOEU_HYDR_R",
4929                              "ELEM_HYDR_R","ELNO_HYDR_R","ELGA_HYDR_R",
4930                              "CART_INST_R","NOEU_INST_R","ELEM_INST_R",
4931                              "ELNO_INST_R","ELGA_INST_R","CART_INTE_R",
4932                              "NOEU_INTE_R","ELEM_INTE_R","ELNO_INTE_R",
4933                              "ELGA_INTE_R","CART_META_R","NOEU_META_R",
4934                              "ELEM_META_R","ELNO_META_R","ELGA_META_R",
4935                              "CART_NEUT_F","NOEU_NEUT_F","ELEM_NEUT_F",
4936                              "ELNO_NEUT_F","ELGA_NEUT_F","CART_NEUT_R",
4937                              "NOEU_NEUT_R","ELEM_NEUT_R","ELNO_NEUT_R",
4938                              "ELGA_NEUT_R","CART_PRES_R","NOEU_PRES_R",
4939                              "ELEM_PRES_R","ELNO_PRES_R","ELGA_PRES_R",
4940                              "CART_SIEF_R","NOEU_SIEF_R","ELEM_SIEF_R",
4941                              "ELNO_SIEF_R","ELGA_SIEF_R","CART_SOUR_R",
4942                              "NOEU_SOUR_R","ELEM_SOUR_R","ELNO_SOUR_R",
4943                              "ELGA_SOUR_R","CART_TEMP_F","NOEU_TEMP_F",
4944                              "ELEM_TEMP_F","ELNO_TEMP_F","ELGA_TEMP_F",
4945                              "CART_TEMP_R","NOEU_TEMP_R","ELEM_TEMP_R",
4946                              "ELNO_TEMP_R","ELGA_TEMP_R","CART_VAR2_R",
4947                              "NOEU_VAR2_R","ELEM_VARI_R","ELNO_VARI_R",
4948                              "ELGA_VARI_R","CART_VNOR_C","NOEU_VNOR_C",
4949                              "ELEM_VNOR_C","ELNO_VNOR_C","ELGA_VNOR_C",
4950                              "CART_IRRA_R","NOEU_IRRA_R","ELEM_IRRA_R",
4951                              "ELNO_IRRA_R","ELGA_IRRA_R",) ),
4952
4953 #        SI CREATION D'UN CHAM_NO, POUR IMPOSER LA NUMEROTATION DES DDLS :
4954 #        ------------------------------------------------------------------
4955          regles=(EXCLUS('NUME_DDL','CHAM_NO',)),
4956          NUME_DDL        =SIMP(statut='f',typ=(nume_ddl) ),
4957          CHAM_NO         =SIMP(statut='f',typ=(cham_no) ),
4958
4959 #        SI CREATION D'UN CHAM_ELEM, POUR aider a l'allocation du champ :
4960 #        (PAR DEFAUT : TOU_INI_ELNO/_ELGA/_ELEM)
4961 #        ------------------------------------------------------------------
4962          OPTION         =SIMP(statut='f',typ='TXM'),
4963
4964
4965          OPERATION       =SIMP(statut='o',typ='TXM',into=("AFFE","ASSE","EVAL","EXTR","DISC",) ),
4966
4967          b_affe          =BLOC(condition = "OPERATION == 'AFFE'",
4968              regles=(UN_PARMI('MAILLAGE','MODELE'),),
4969              MAILLAGE        =SIMP(statut='f',typ=(maillage) ),
4970              MODELE          =SIMP(statut='f',typ=(modele) ),
4971              b_affe_modele   =BLOC(condition = "MODELE != None",
4972                  PROL_ZERO       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ), ),
4973              AFFE            =FACT(statut='o',min=1,max='**',
4974                 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
4975                         UN_PARMI('VALE','VALE_I','VALE_C','VALE_F', ),),
4976                 TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4977                 GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4978                 MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4979                 GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4980                 NOEUD           =SIMP(statut='f',typ=no,max='**'),
4981                 NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
4982                 VALE            =SIMP(statut='f',typ='R',max='**' ),
4983                 VALE_I          =SIMP(statut='f',typ='I',max='**' ),
4984                 VALE_C          =SIMP(statut='f',typ='C',max='**' ),
4985                 VALE_F          =SIMP(statut='f',typ=fonction,max='**'),
4986                                    ),
4987                              ),
4988          b_asse          =BLOC(condition = "OPERATION == 'ASSE'",
4989              regles=(UN_PARMI('MAILLAGE','MODELE'),),
4990              MAILLAGE        =SIMP(statut='f',typ=(maillage) ),
4991              MODELE          =SIMP(statut='f',typ=(modele) ),
4992              b_asse_modele   =BLOC(condition = "MODELE != None",
4993                  PROL_ZERO       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ), ),
4994              ASSE            =FACT(statut='o',min=1,max='**',
4995                 regles=(AU_MOINS_UN('TOUT','GROUP_MA','GROUP_NO','MAILLE','NOEUD',),
4996                 PRESENT_PRESENT('NOM_CMP_RESU','NOM_CMP', ),),
4997                 TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4998                 GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4999                 GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5000                 MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5001                 NOEUD           =SIMP(statut='f',typ=no,max='**'),
5002                 CHAM_GD         =SIMP(statut='o',typ=(cham_gd)),
5003                 NOM_CMP         =SIMP(statut='f',typ='TXM',max='**' ),
5004                 NOM_CMP_RESU    =SIMP(statut='f',typ='TXM',max='**' ),
5005                 CUMUL           =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
5006                 COEF_R          =SIMP(statut='f',typ='R',defaut= 1. ),
5007                                     ),
5008                              ),
5009          b_eval          =BLOC(condition = "OPERATION == 'EVAL'",
5010              CHAM_F          =SIMP(statut='o',typ=(cham_gd)),
5011              CHAM_PARA       =SIMP(statut='o',typ=(cham_gd),max='**'),
5012                              ),
5013          b_disc          =BLOC(condition = "OPERATION == 'DISC'",
5014              MODELE          =SIMP(statut='f',typ=(modele) ),
5015              PROL_ZERO       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
5016              CHAM_GD         =SIMP(statut='o',typ=(cham_gd)),
5017                              ),
5018          b_extr          =BLOC(condition = "OPERATION == 'EXTR'",
5019              regles=(UN_PARMI('MAILLAGE','RESULTAT'),),
5020              MAILLAGE        =SIMP(statut='f',typ=(maillage) ),
5021              RESULTAT        =SIMP(statut='f',typ=(resultat) ),
5022              b_extr_maillage =BLOC(condition = "MAILLAGE != None",
5023                  NOM_CHAM        =SIMP(statut='o',typ='TXM',into=("GEOMETRIE",)),
5024                                   ),
5025              b_extr_resultat =BLOC(condition = "RESULTAT != None",
5026                  regles=(EXCLUS('TYPE_MAXI','NUME_ORDRE','INST','FREQ','NUME_MODE',
5027                                 'NOEUD_CMP','NOM_CAS','ANGL', ),),
5028                  SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),
5029                                    fr="Paramètre de sensibilité.",
5030                                    ang="Sensitivity parameter"),
5031                  NOM_CHAM        =SIMP(statut='o',typ='TXM',
5032                            into=("DEPL","VITE","ACCE",
5033                              "DEPL_ABSOLU","VITE_ABSOLU",
5034                              "TEMP","IRRA","ACCE_ABSOLU",
5035                              "FORC_NODA","REAC_NODA","EFGE_NOEU_DEPL",
5036                              "EFGE_NOEU_CART","EPSI_NOEU_DEPL",
5037                              "SIGM_NOEU_DEPL","SIGM_NOEU_CART",
5038                              "SIPO_NOEU_DEPL","EQUI_NOEU_SIGM",
5039                              "EQUI_NOEU_EPSI","FLUX_NOEU_TEMP",
5040                              "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP",
5041                              "META_ELGA_TEMP","META_ELNO_TEMP",
5042                              "META_NOEU_TEMP","DURT_ELGA_META",
5043                              "DURT_ELNO_META","DURT_NOEU_META","SIEF_ELGA",
5044                              "SIEF_ELNO_ELGA","SIEF_ELGA_DEPL",
5045                              "VARI_ELNO_ELGA","VARI_ELGA","EPOT_ELEM_DEPL",
5046                              "ECIN_ELEM_DEPL","SOUR_ELGA_ELEC",
5047                              "PRES_ELNO_REEL","PRES_ELNO_IMAG",
5048                              "PRES_ELNO_DBEL","INTE_ELNO_ACTI",
5049                              "INTE_ELNO_REAC","EFGE_ELNO_DEPL",
5050                              "SIGM_ELNO_DEPL","EFGE_ELNO_CART",
5051                              "SIGM_ELNO_CART","SIPO_ELNO_DEPL",
5052                              "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL",
5053                              "EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO",
5054                              "EPSP_ELGA","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
5055                              "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
5056                              "ERRE_ELNO_ELGA","ERRE_ELGA_NORE",
5057                              "ERRE_ELEM_NOZ1","ERRE_ELEM_NOZ2",
5058                              "SIGM_NOZ1_ELGA","SIGM_NOZ2_ELGA",
5059                              "DEGE_ELNO_DEPL","SIRE_ELNO_DEPL",
5060                              "VNOR_ELEM_DEPL","SIEF_ELNO","VARI_ELNO",
5061                              "SIEF_NOEU_ELGA","VARI_NOEU_ELGA",
5062                              "PRES_NOEU_DBEL","PRES_NOEU_REEL",
5063                              "PRES_NOEU_IMAG","INTE_NOEU_ACTI",
5064                              "INTE_NOEU_REAC","DCHA_ELGA_SIGM",
5065                              "DCHA_ELNO_SIGM","RADI_ELGA_SIGM",
5066                              "RADI_ELNO_SIGM","ENDO_ELNO_SIGA",
5067                              "ENDO_ELNO_SINO","ENDO_ELNO_SIGM",
5068                              "SIGM_ELNO_VARI","SIGM_NOEU_VARI",
5069                              "EPME_ELNO_DEPL","EPME_ELGA_DEPL",
5070                              "EPME_ELNO_DPGE","EPMG_ELNO_DEPL",
5071                              "EPMG_ELGA_DEPL","GRAD_ELGA_THETA",
5072                              "GTHE_ELNO_ELGA","GRAD_NOEU_THETA",
5073                              "HYDR_ELGA","HYDR_ELNO_ELGA","HYDR_NOEU_ELGA",
5074                              "THETA","SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",
5075                              "VALE_CONT",) ),
5076                  TYPE_MAXI       =SIMP(statut='f',typ='TXM',into=("MAXI","MINI","MAXI_ABS","MINI_ABS","NORM_TRAN",) ),
5077                  TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="VALE",into=("VALE","INST",) ),
5078                  TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5079                  LIST_INST       =SIMP(statut='f',typ=(listr8) ),
5080                  NUME_ORDRE      =SIMP(statut='f',typ='I'),
5081                  INST            =SIMP(statut='f',typ='R'),
5082                  FREQ            =SIMP(statut='f',typ='R'),
5083                  NUME_MODE       =SIMP(statut='f',typ='I'),
5084                  NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
5085                  NOM_CAS         =SIMP(statut='f',typ='TXM'),
5086                  ANGL            =SIMP(statut='f',typ='R'),
5087                  PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
5088                  CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
5089                  INTERPOL        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN",) ),
5090                               ),
5091
5092                 ),
5093 # FIN DU CATALOGUE : INFO,TITRE ET TYPAGE DU RESULAT :
5094 #-----------------------------------------------------
5095          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,) ),
5096          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
5097 )  ;
5098 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
5099 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5100 # ======================================================================
5101 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5102 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5103 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5104 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5105 # (AT YOUR OPTION) ANY LATER VERSION.
5106 #
5107 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5108 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5109 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5110 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5111 #
5112 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5113 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5114 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5115 # ======================================================================
5116 CREA_MAILLAGE=OPER(nom="CREA_MAILLAGE",op= 167,sd_prod=maillage,
5117                      docu="U4.23.02-d",reentrant='n',
5118             UIinfo={"groupes":("Maillage",)},
5119          regles=(EXCLUS('ECLA_PG','CREA_MAILLE'),
5120                  EXCLUS('ECLA_PG','CREA_GROUP_MA'),
5121                  EXCLUS('ECLA_PG','DETR_GROUP_MA'),
5122                  EXCLUS('ECLA_PG','MODI_MAILLE'),),
5123          MAILLAGE        =SIMP(statut='o',typ=maillage ),
5124          CREA_POI1       =FACT(statut='f',min=1,max='**',fr="Création de mailles de type POI1 à partir de noeuds",
5125            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD' ),),
5126            NOM_GROUP_MA    =SIMP(statut='f',typ=grma,max='**'),
5127            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5128            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5129            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5130            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5131            NOEUD           =SIMP(statut='f',typ=no,max='**'),
5132          ),
5133          CREA_MAILLE     =FACT(statut='f',min=1,max='**',fr="Duplication de mailles",
5134            regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA'),),
5135            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5136            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5137            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5138            PREF_MAILLE     =SIMP(statut='o',typ='TXM' ),
5139            PREF_NUME       =SIMP(statut='f',typ='I' ),
5140          ),
5141          CREA_GROUP_MA   =FACT(statut='f',min=1,max='**',fr="Duplication de mailles et création de groupes de mailles",
5142            regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
5143            NOM             =SIMP(statut='o',typ='TXM'),
5144            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5145            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5146            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5147            PREF_MAILLE     =SIMP(statut='o',typ='TXM' ),
5148            PREF_NUME       =SIMP(statut='f',typ='I' ),
5149          ),
5150          DETR_GROUP_MA   =FACT(statut='f',min=1,max=1,fr="Destruction de groupes de mailles",
5151            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5152            NB_MAILLE       =SIMP(statut='f',typ='I',defaut= 0,
5153                                  fr="Nombre minimal de mailles que doit contenir le groupe pour etre détruit",  ),
5154          ),
5155          MODI_MAILLE     =FACT(statut='f',min=1,max='**',fr="Modification du type de mailles",
5156            regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
5157            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5158            MAILLE          =SIMP(statut='f',typ=grma,max='**'),
5159            GROUP_MA        =SIMP(statut='f',typ=ma,max='**'),
5160            OPTION          =SIMP(statut='o',typ='TXM',into=("TRIA6_7","QUAD8_9","SEG3_4"),fr="Choix de la transformation" ),
5161            PREF_NOEUD      =SIMP(statut='f',typ='TXM',defaut="NS"),
5162            PREF_NUME       =SIMP(statut='f',typ='I',defaut= 1 ),
5163          ),
5164          REPERE          =FACT(statut='f',min=1,max='**',
5165                                fr="changement de repère servant à déterminer les caractéristiques d une section de poutre",
5166            TABLE           =SIMP(statut='o',typ=tabl_cara_geom,
5167                                  fr="Nom de la table contenant les caractéristiques de la section de poutre" ),
5168            NOM_ORIG        =SIMP(statut='f',typ='TXM',into=("CDG","TORSION"),fr="Origine du nouveau repère" ),
5169            NOM_ROTA        =SIMP(statut='f',typ='TXM',into=("INERTIE",),fr="Direction du repére"  ),
5170            b_cdg =BLOC(condition = "NOM_ORIG == 'CDG'",
5171              GROUP_MA        =SIMP(statut='f',typ=grma,
5172                                    fr="Nom du groupe de mailles dont le centre de gravité sera l origine du nouveau repère"),
5173            ),
5174          ),
5175          ECLA_PG         =FACT(statut='f',min=1,max=1,
5176                                fr="Eclatement des mailles en petites mailles contenant chacune un seul point de gauss",
5177            MODELE          =SIMP(statut='o',typ=modele ),
5178            SHRINK          =SIMP(statut='f',typ='R',defaut= 0.9, fr="Facteur de réduction" ),
5179          ),
5180          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5181 )  ;
5182 #& MODIF COMMANDE  DATE 04/06/2004   AUTEUR CIBHHLV L.VIVAN
5183 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5184 # ======================================================================
5185 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5186 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5187 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5188 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5189 # (AT YOUR OPTION) ANY LATER VERSION.
5190 #
5191 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5192 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5193 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5194 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5195 #
5196 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5197 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5198 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5199 # ======================================================================
5200 def crea_resu_prod(TYPE_RESU,**args):
5201   if TYPE_RESU == "EVOL_ELAS"    : return evol_elas
5202   if TYPE_RESU == "EVOL_NOLI"    : return evol_noli
5203   if TYPE_RESU == "EVOL_THER"    : return evol_ther
5204   if TYPE_RESU == "MULT_ELAS"    : return mult_elas
5205   if TYPE_RESU == "FOURIER_ELAS" : return fourier_elas
5206   if TYPE_RESU == "EVOL_VARC"    : return evol_varc
5207   raise AsException("type de concept resultat non prevu")
5208
5209 CREA_RESU=OPER(nom="CREA_RESU",op=124,sd_prod=crea_resu_prod,docu="U4.44.12-e",reentrant='f',
5210             UIinfo={"groupes":("Modélisation",)},
5211                fr="Engendrer ou enrichir une structure de donnees en affectant les cham_gd associes",
5212
5213          OPERATION =SIMP(statut='o',typ='TXM',into=("AFFE","ECLA_PG","PERM_CHAM","PROL_RTZ",),
5214                          fr="choix de la fonction a activer",),
5215
5216          b_affe       =BLOC(condition = "OPERATION == 'AFFE'",
5217
5218            TYPE_RESU    =SIMP(statut='o',typ='TXM',into=("MULT_ELAS","EVOL_ELAS","EVOL_NOLI","FOURIER_ELAS",
5219                                                          "EVOL_THER","EVOL_VARC",) ),
5220            NOM_CHAM     =SIMP(statut='f',typ='TXM',into=("DEPL","TEMP","IRRA","HYDR_ELGA",),max=1 ),
5221            AFFE         =FACT(statut='f',min=1,max='**',
5222              regles=(UN_PARMI('NOM_CAS','NUME_MODE','LIST_INST','INST',),),
5223              CHAM_GD         =SIMP(statut='f',typ=(cham_gd)),
5224              NOM_CAS         =SIMP(statut='f',typ='TXM' ),
5225              NUME_MODE       =SIMP(statut='f',typ='I'),
5226              TYPE_MODE       =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
5227              INST            =SIMP(statut='f',typ='R',max='**'),
5228              LIST_INST       =SIMP(statut='f',typ=listr8),
5229              NUME_INIT       =SIMP(statut='f',typ='I',val_min=1),
5230              NUME_FIN        =SIMP(statut='f',typ='I',val_min=1),
5231              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
5232              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5233            ),
5234          ),
5235
5236          b_ecla_pg    =BLOC(condition = "OPERATION == 'ECLA_PG'",
5237
5238            TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_ELAS","EVOL_NOLI","EVOL_THER"), ),
5239
5240            ECLA_PG         =FACT(statut='f',min=1,max=1,
5241              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
5242              NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
5243                                    into=("SIEF_ELGA","VARI_ELGA","SIEF_ELGA_DEPL","FLUX_ELGA_TEMP",) ),
5244              MODELE_INIT     =SIMP(statut='o',typ=modele),
5245              RESU_INIT       =SIMP(statut='o',typ=resultat),
5246              MAILLAGE        =SIMP(statut='o',typ=maillage),
5247              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5248              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
5249              LIST_ORDRE      =SIMP(statut='f',typ=listis),
5250              INST            =SIMP(statut='f',typ='R',max='**'),
5251              LIST_INST       =SIMP(statut='f',typ=listr8),
5252              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
5253              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
5254            ),
5255          ),
5256
5257          b_perm_cham =BLOC(condition = "OPERATION == 'PERM_CHAM'",
5258
5259            TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_NOLI",) ),
5260            NOM_CHAM        =SIMP(statut='f',typ='TXM',into=("DEPL","SIEF_ELGA","VARI_ELGA",),max='**' ),
5261            RESU_INIT       =SIMP(statut='o',typ=evol_noli),
5262            INST_INIT       =SIMP(statut='f',typ='R'),
5263            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
5264            CRITERE         =SIMP(statut='f',typ='TXM',into=('RELATIF','ABSOLU'),defaut='RELATIF'),
5265            MAILLAGE_INIT   =SIMP(statut='o',typ=maillage,),
5266            RESU_FINAL      =SIMP(statut='o',typ=evol_noli,),
5267            MAILLAGE_FINAL  =SIMP(statut='o',typ=maillage,),
5268            PERM_CHAM       =FACT(statut='o',min=1,max=1,
5269               GROUP_MA_FINAL =SIMP(statut='o',typ=grma),
5270               GROUP_MA_INIT  =SIMP(statut='o',typ=grma),
5271               TRAN           =SIMP(statut='o',typ='R',max='**'),
5272               PRECISION      =SIMP(statut='f',typ='R',defaut=1.0E-3),
5273            ),
5274          ),
5275
5276          b_prol_rtz   =BLOC(condition = "OPERATION == 'PROL_RTZ'",
5277
5278            TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_THER",) ),
5279
5280            PROL_RTZ        =FACT(statut='f',min=1,max=1,
5281               regles=(EXCLUS('INST','LIST_INST'),),
5282               MAILLAGE_FINAL  =SIMP(statut='o',typ=maillage,),
5283               TABLE           =SIMP(statut='o',typ=tabl_post_rele,fr="Table issue de post_releve_t"),
5284               INST            =SIMP(statut='f',typ='R',max='**'),
5285               LIST_INST       =SIMP(statut='f',typ=listr8),
5286               b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
5287                  PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
5288                  CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5289               ),
5290               PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU",),),
5291               PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU",),),
5292               REPERE          =SIMP(statut='o',typ='TXM',into=("CYLINDRIQUE",),),
5293               ORIGINE         =SIMP(statut='o',typ='R',min=3,max=3),
5294               AXE_Z           =SIMP(statut='o',typ='R',min=3,max=3),
5295            ),
5296          ),
5297
5298 )  ;
5299 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
5300 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5301 # ======================================================================
5302 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5303 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5304 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5305 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5306 # (AT YOUR OPTION) ANY LATER VERSION.
5307 #
5308 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5309 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5310 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5311 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5312 #
5313 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5314 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5315 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5316 # ======================================================================
5317 DEBUT=MACRO(nom="DEBUT",op=0 ,docu="U4.11.01-g",repetable='n',
5318             UIinfo={"groupes":("Gestion du travail",)},
5319            fr="Ouverture d une étude. Allocation des ressources mémoire et disque",
5320           sd_prod=ops.DEBUT,
5321
5322          PAR_LOT         =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
5323                            into=("OUI","NON"),defaut="OUI"),
5324          BASE            =FACT(fr="définition des paramètres associés aux bases JEVEUX",
5325                                statut='f',min=1,max=3,
5326            FICHIER         =SIMP(fr="nom de la base",statut='o',typ='TXM',
5327                                  into=('GLOBALE','VOLATILE','LOCALE'),),
5328            TITRE           =SIMP(statut='f',typ='TXM'),
5329            CAS             =SIMP(statut='f',typ='TXM'),
5330            NMAX_ENRE       =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
5331            LONG_ENRE       =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
5332            LONG_REPE       =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
5333          ),
5334          IMPRESSION      =FACT(statut='f',min=1,max=3,
5335            FICHIER         =SIMP(statut='o',typ='TXM'),
5336            UNITE           =SIMP(statut='o',typ='I'),
5337          ),
5338          CATALOGUE       =FACT(statut='f',min=1,max=10,
5339            FICHIER         =SIMP(statut='o',typ='TXM'),
5340            TITRE           =SIMP(statut='f',typ='TXM'),
5341            UNITE           =SIMP(statut='f',typ='I'),
5342          ),
5343          CODE            =FACT(fr="définition d un nom pour l'esemble d'une étude",
5344                                statut='f',min=1,max=1,
5345            NOM             =SIMP(statut='o',typ='TXM'),
5346            NIV_PUB_WEB     =SIMP(statut='o',typ='TXM',into=('INTERNET','INTRANET')),
5347            UNITE           =SIMP(statut='f',typ='I',defaut=15),
5348          ),
5349          DEBUG           =FACT(fr="option de déboggage reservée aux développeurs",
5350                                statut='f',min=1,max=1,
5351            JXVERI          =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
5352                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
5353            JEVEUX          =SIMP(fr="force les déchargement sur disque",
5354                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
5355            ENVIMA          =SIMP(fr="imprime les valeurs définies dans ENVIMA",
5356                                  statut='f',typ='TXM',into=('TEST',)),
5357          ),
5358          MEMOIRE         =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=1,max=1,
5359            GESTION         =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
5360            TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
5361            TAILLE          =SIMP(statut='f',typ='I'),
5362            TAILLE_BLOC     =SIMP(statut='f',typ='R',defaut=800.),
5363            PARTITION       =SIMP(statut='f',typ='R'),
5364          ),
5365  );
5366 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
5367 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5368 # ======================================================================
5369 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5370 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5371 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5372 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5373 # (AT YOUR OPTION) ANY LATER VERSION.
5374 #
5375 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5376 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5377 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5378 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5379 #
5380 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5381 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5382 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5383 # ======================================================================
5384 DEFI_BASE_MODALE=OPER(nom="DEFI_BASE_MODALE",op=  99,sd_prod=base_modale,
5385                      docu="U4.64.02-f",reentrant='f',
5386             UIinfo={"groupes":("Matrices/vecteurs",)},
5387          regles=(UN_PARMI('CLASSIQUE','RITZ','DIAG_MASS'),),
5388          CLASSIQUE       =FACT(statut='f',min=1,max=1,
5389            INTERF_DYNA     =SIMP(statut='o',typ=interf_dyna_clas ),
5390            MODE_MECA       =SIMP(statut='o',typ=mode_meca,max='**' ),
5391            NMAX_MODE       =SIMP(statut='f',typ='I',defaut= 10 ),
5392          ),
5393          RITZ            =FACT(statut='f',min=1,max='**',
5394            regles=(UN_PARMI('MODE_STAT','MODE_MECA','MULT_ELAS','BASE_MODALE'),),
5395            MODE_MECA       =SIMP(statut='f',typ=mode_meca,max='**'  ),
5396            NMAX_MODE       =SIMP(statut='f',typ='I',defaut= 999 ),
5397            MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
5398            MULT_ELAS       =SIMP(statut='f',typ=mult_elas ),
5399            BASE_MODALE     =SIMP(statut='f',typ=base_modale ),
5400          ),
5401         DIAG_MASS        =FACT(statut='f',min=1,max='**',
5402            MODE_MECA       =SIMP(statut='o',typ=mode_meca,max='**'  ),
5403            MODE_STAT       =SIMP(statut='o',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
5404          ),
5405 #  le bloc conditionnel remplace-t-il PRESENT_PRESENT('RITZ','NUME_REF'),
5406 #                                     PRESENT_ABSENT('INTERF_DYNA','CLASSIQUE'),
5407          b_ritz          =BLOC(condition = "RITZ != None",
5408            INTERF_DYNA     =SIMP(statut='f',typ=interf_dyna_clas ),
5409            NUME_REF        =SIMP(statut='o',typ=nume_ddl ),
5410          ),
5411          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5412          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5413 )  ;
5414 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
5415 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5416 # ======================================================================
5417 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5418 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5419 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5420 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5421 # (AT YOUR OPTION) ANY LATER VERSION.
5422 #
5423 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5424 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5425 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5426 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5427 #
5428 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5429 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5430 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5431 # ======================================================================
5432 DEFI_CABLE_BP=OPER(nom="DEFI_CABLE_BP",op= 180,sd_prod=cabl_precont,
5433                    fr=" ",
5434                    docu="U4.42.04-a",reentrant='n',
5435             UIinfo={"groupes":("Modélisation",)},
5436          MODELE          =SIMP(statut='o',typ=modele ),
5437          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
5438          CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
5439          GROUP_MA_BETON  =SIMP(statut='o',typ=grma),
5440          DEFI_CABLE      =FACT(statut='o',min=1,max='**',
5441            regles=(UN_PARMI('MAILLE','GROUP_MA'),
5442                    UN_PARMI('NOEUD_ANCRAGE','GROUP_NO_ANCRAGE'),),
5443            MAILLE          =SIMP(statut='f',typ=ma,min=2,max='**'),
5444            GROUP_MA        =SIMP(statut='f',typ=grma),
5445            NOEUD_ANCRAGE   =SIMP(statut='f',typ=no,max=2),
5446            GROUP_NO_ANCRAGE=SIMP(statut='f',typ=grno,max=2),
5447            TYPE_ANCRAGE    =SIMP(statut='o',typ='TXM',min=2,max=2,
5448                                  into=("ACTIF","PASSIF") ),
5449          ),
5450          TENSION_INIT    =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5451          RECUL_ANCRAGE   =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5452          RELAXATION      =FACT(statut='f',min=0,max=1,
5453            R_J             =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5454          ),
5455          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
5456 )  ;
5457 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
5458 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5459 # ======================================================================
5460 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5461 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5462 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5463 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5464 # (AT YOUR OPTION) ANY LATER VERSION.
5465 #
5466 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5467 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5468 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5469 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5470 #
5471 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5472 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5473 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5474 # ======================================================================
5475 DEFI_CONSTANTE=OPER(nom="DEFI_CONSTANTE",op=   2,sd_prod=fonction,
5476                     fr="Définition d une fonction constante",
5477                     docu="U4.31.01-g",reentrant='n',
5478             UIinfo={"groupes":("Fonction",)},
5479          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
5480          VALE            =SIMP(statut='o',typ='R',max=1 ),
5481          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5482 )  ;
5483 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
5484 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5485 # ======================================================================
5486 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5487 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5488 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5489 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5490 # (AT YOUR OPTION) ANY LATER VERSION.
5491 #
5492 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5493 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5494 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5495 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5496 #
5497 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5498 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5499 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5500 # ======================================================================
5501 DEFI_COQU_MULT=OPER(nom="DEFI_COQU_MULT",op=56,sd_prod=mater,docu="U4.42.03-f",reentrant='n',
5502             UIinfo={"groupes":("Modélisation",)},
5503                     fr="Définition d une coque composite couche par couche",
5504          COUCHE          =FACT(statut='o',min=1,max='**',
5505            EPAIS           =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5506            MATER           =SIMP(statut='o',typ=(mater) ),
5507            ORIENTATION     =SIMP(statut='f',typ='R',defaut= 0.E+0,
5508                                  val_min=-90.E+0,val_max=90.E+0   ),
5509          ),
5510          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
5511          IMPRESSION      =FACT(statut='f',min=1,max=1,
5512            FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
5513                                  into=("RESULTAT",) ),
5514          ),
5515 )  ;
5516 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
5517 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5518 # ======================================================================
5519 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5520 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5521 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5522 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5523 # (AT YOUR OPTION) ANY LATER VERSION.
5524 #
5525 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5526 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5527 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5528 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5529 #
5530 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5531 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5532 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5533 # ======================================================================
5534 DEFI_FLUI_STRU=OPER(nom="DEFI_FLUI_STRU",op= 143,sd_prod=type_flui_stru,
5535                     docu="U4.25.01-e",reentrant='n',
5536             UIinfo={"groupes":("Maillage",)},
5537          regles=(  UN_PARMI('FAISCEAU_TRANS','GRAPPE','FAISCEAU_AXIAL','COQUE_COAX',),),
5538          FAISCEAU_TRANS  =FACT(statut='f',min=1,max='**',
5539            COUPLAGE        =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
5540            CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
5541            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
5542            PROF_RHO_F_INT  =SIMP(statut='f',typ=fonction ),
5543            PROF_RHO_F_EXT  =SIMP(statut='f',typ=fonction ),
5544            NOM_CMP         =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ") ),
5545            COEF_MASS_AJOU  =SIMP(statut='f',typ='R' ),
5546            TYPE_PAS        =SIMP(statut='f',typ='TXM',into=("CARRE_LIGN","TRIA_LIGN") ),
5547            TYPE_RESEAU     =SIMP(statut='f',typ='I' ),
5548            UNITE_CD        =SIMP(statut='f',typ='I',defaut=70),
5549            UNITE_CK        =SIMP(statut='f',typ='I',defaut=71),
5550            PAS             =SIMP(statut='f',typ='R' ),
5551          ),
5552          GRAPPE          =FACT(statut='f',max=1,
5553            regles=(ENSEMBLE('GRAPPE_2','NOEUD','CARA_ELEM','MODELE','RHO_FLUI',),
5554                    PRESENT_PRESENT('COEF_MASS_AJOU','GRAPPE_2', ),),
5555 #  peut on créer un bloc a partir de la valeur de couplage
5556            COUPLAGE        =SIMP(statut='o',typ='TXM',into=("OUI","NON") ),
5557            GRAPPE_2        =SIMP(statut='f',typ='TXM',
5558                                  into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC") ),
5559            NOEUD           =SIMP(statut='f',typ=no),
5560            CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
5561            MODELE          =SIMP(statut='f',typ=modele ),
5562            COEF_MASS_AJOU  =SIMP(statut='f',typ='R' ),
5563            RHO_FLUI        =SIMP(statut='f',typ='R' ),
5564            UNITE_CA        =SIMP(statut='f',typ='I',defaut=70),
5565            UNITE_KA        =SIMP(statut='f',typ='I',defaut=71),
5566          ),
5567          FAISCEAU_AXIAL  =FACT(statut='f',min=1,max='**',
5568            regles=(UN_PARMI('GROUP_MA','TRI_GROUP_MA'),
5569                    UN_PARMI('CARA_ELEM','RAYON_TUBE'),
5570                    ENSEMBLE('RAYON_TUBE','COOR_TUBE'),
5571                    PRESENT_ABSENT('RAYON_TUBE','TRI_GROUP_MA'),
5572                    ENSEMBLE('CARA_PAROI','VALE_PAROI'),
5573                    ENSEMBLE('LONG_TYPG','LARG_TYPG','EPAI_TYPG','RUGO_TYPG','COEF_TRAI_TYPG','COEF_DPOR_TYPG',
5574                             'COOR_GRILLE','TYPE_GRILLE', ),),
5575 #  on doit pouvoir mettre des blocs conditionnels mais pas assez d infos pour le faire
5576            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5577            TRI_GROUP_MA    =SIMP(statut='f',typ='TXM' ),
5578            VECT_X          =SIMP(statut='f',typ='R',max=3),
5579            PROF_RHO_FLUI   =SIMP(statut='f',typ=fonction ),
5580            PROF_VISC_CINE  =SIMP(statut='f',typ=fonction ),
5581            CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
5582            RAYON_TUBE      =SIMP(statut='f',typ='R' ),
5583            COOR_TUBE       =SIMP(statut='f',typ='R',max='**'),
5584            PESANTEUR       =SIMP(statut='f',typ='R',min=4,max=4),
5585            RUGO_TUBE       =SIMP(statut='f',typ='R' ),
5586            CARA_PAROI      =SIMP(statut='f',typ='TXM',max=5,
5587                                  into=("YC","ZC","R","HY","HZ") ),
5588            VALE_PAROI      =SIMP(statut='f',typ='R',max=5),
5589            ANGL_VRIL       =SIMP(statut='f',typ='R' ),
5590            LONG_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5591            LARG_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5592            EPAI_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5593            RUGO_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5594            COEF_TRAI_TYPG  =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5595            COEF_DPOR_TYPG  =SIMP(statut='f',typ='R',max='**'),
5596            COOR_GRILLE     =SIMP(statut='f',typ='R',max='**'),
5597            TYPE_GRILLE     =SIMP(statut='f',typ='I',max='**'),
5598          ),
5599          COQUE_COAX      =FACT(statut='f',max=1,
5600            MASS_AJOU       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
5601            GROUP_MA_INT    =SIMP(statut='o',typ=grma),
5602            GROUP_MA_EXT    =SIMP(statut='o',typ=grma),
5603            VECT_X          =SIMP(statut='o',typ='R',max='**'),
5604            CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
5605            MATER_INT       =SIMP(statut='o',typ=mater ),
5606            MATER_EXT       =SIMP(statut='o',typ=mater ),
5607            RHO_FLUI        =SIMP(statut='o',typ='R' ),
5608            VISC_CINE       =SIMP(statut='o',typ='R' ),
5609            RUGOSITE        =SIMP(statut='o',typ='R' ),
5610            PDC_MOY_1       =SIMP(statut='o',typ='R' ),
5611            PDC_DYN_1       =SIMP(statut='o',typ='R' ),
5612            PDC_MOY_2       =SIMP(statut='o',typ='R' ),
5613            PDC_DYN_2       =SIMP(statut='o',typ='R' ),
5614          ),
5615          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5616 )  ;
5617 #& MODIF COMMANDE  DATE 03/12/2002   AUTEUR DURAND C.DURAND
5618 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5619 # ======================================================================
5620 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5621 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5622 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5623 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5624 # (AT YOUR OPTION) ANY LATER VERSION.
5625 #
5626 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5627 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5628 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5629 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5630 #
5631 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5632 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5633 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5634 # ======================================================================
5635 DEFI_FONC_ELEC=OPER(nom="DEFI_FONC_ELEC",op=64,sd_prod=fonction,docu="U4.mk.10-e",reentrant='n',
5636             UIinfo={"groupes":("Outils métier",)},
5637                     fr="Définition d une fonction du temps pour calculer des forces de LAPLACE",
5638       regles=(UN_PARMI('COUR_PRIN','COUR'),
5639               EXCLUS('COUR','COUR_SECO'), ),
5640          FREQ            =SIMP(statut='f',typ='R',defaut= 50.),
5641          SIGNAL          =SIMP(statut='f',typ='TXM',defaut="COMPLET",into=("COMPLET","CONTINU") ),
5642          COUR            =FACT(statut='f',min=1,max='**',
5643          fr="Définition du courant de court-circuit",
5644            regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),
5645                    UN_PARMI('PHI_CC_2','INTC_CC_2'),),
5646            INTE_CC_1       =SIMP(statut='o',typ='R'),
5647            TAU_CC_1        =SIMP(statut='o',typ='R'),
5648            PHI_CC_1        =SIMP(statut='f',typ='R'),
5649            INTC_CC_1       =SIMP(statut='f',typ='R'),
5650            INTE_CC_2       =SIMP(statut='o',typ='R'),
5651            TAU_CC_2        =SIMP(statut='o',typ='R'),
5652            PHI_CC_2        =SIMP(statut='f',typ='R'),
5653            INTC_CC_2       =SIMP(statut='f',typ='R'),
5654            INST_CC_INIT    =SIMP(statut='o',typ='R'),
5655            INST_CC_FIN     =SIMP(statut='o',typ='R'),
5656          ),
5657          COUR_PRIN       =FACT(statut='f',min=1,max=1,
5658          fr="Définition du courant de court-circuit avec réenclenchement",
5659            regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),),
5660            INTE_CC_1       =SIMP(statut='o',typ='R'),
5661            TAU_CC_1        =SIMP(statut='o',typ='R'),
5662            PHI_CC_1        =SIMP(statut='f',typ='R'),
5663            INTC_CC_1       =SIMP(statut='f',typ='R'),
5664            INTE_RENC_1     =SIMP(statut='f',typ='R'),
5665            TAU_RENC_1      =SIMP(statut='f',typ='R'),
5666            PHI_RENC_1      =SIMP(statut='f',typ='R'),
5667            INST_CC_INIT    =SIMP(statut='o',typ='R'),
5668            INST_CC_FIN     =SIMP(statut='o',typ='R'),
5669            INST_RENC_INIT  =SIMP(statut='f',typ='R',defaut= 0.0E+0),
5670            INST_RENC_FIN   =SIMP(statut='f',typ='R',defaut= 0.0E+0),
5671          ),
5672          COUR_SECO       =FACT(statut='f',min=1,max='**',
5673          fr="Définition du courant de court-circuit avec un intervalle de temps différent de celui de COUR_PRIN",
5674            regles=(UN_PARMI('PHI_CC_2','INTC_CC_2'),),
5675            INTE_CC_2       =SIMP(statut='o',typ='R'),
5676            TAU_CC_2        =SIMP(statut='o',typ='R'),
5677            PHI_CC_2        =SIMP(statut='f',typ='R'),
5678            INTC_CC_2       =SIMP(statut='f',typ='R'),
5679            INTE_RENC_2     =SIMP(statut='f',typ='R'),
5680            TAU_RENC_2      =SIMP(statut='f',typ='R'),
5681            PHI_RENC_2      =SIMP(statut='f',typ='R'),
5682            DIST            =SIMP(statut='f',typ='R',defaut=1.0E+0),
5683          ),
5684          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
5685 )  ;
5686 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
5687 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5688 # ======================================================================
5689 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5690 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5691 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5692 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5693 # (AT YOUR OPTION) ANY LATER VERSION.
5694 #
5695 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5696 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5697 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5698 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5699 #
5700 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5701 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5702 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5703 # ======================================================================
5704 DEFI_FONC_FLUI=OPER(nom="DEFI_FONC_FLUI",op= 142,sd_prod=fonction,
5705                     docu="U4.35.01-d",reentrant='n',
5706             UIinfo={"groupes":("Fonction",)},
5707          MAILLAGE        =SIMP(statut='o',typ=(maillage) ),
5708          NOEUD_INIT      =SIMP(statut='o',typ=no),
5709          NOEUD_FIN       =SIMP(statut='o',typ=no),
5710          VITE            =FACT(statut='o',min=1,max=1,
5711            VALE            =SIMP(statut='f',typ='R',defaut= 1. ),
5712            PROFIL          =SIMP(statut='o',typ='TXM',into=("UNIFORME","LEONARD") ),
5713            NB_BAV          =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 2 , 3 ) ),
5714          ),
5715          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",
5716                                into=("NON","LIN","LOG") ),
5717          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",
5718                                into=("CONSTANT","LINEAIRE","EXCLU") ),
5719          PROL_GAUCHE     =SIMP(statut='f',typ='TXM' ,defaut="EXCLU",
5720                                into=("CONSTANT","LINEAIRE","EXCLU") ),
5721          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
5722          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5723 )  ;
5724 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
5725 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5726 # ======================================================================
5727 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5728 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5729 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5730 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5731 # (AT YOUR OPTION) ANY LATER VERSION.
5732 #
5733 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5734 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5735 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5736 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5737 #
5738 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5739 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5740 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5741 # ======================================================================
5742 # RESPONSABLE MCOURTOI M.COURTOIS
5743 def defi_fonction_prod(VALE,VALE_PARA,VALE_C,NOEUD_PARA,**args):
5744   if VALE != None  : return fonction
5745   if VALE_C != None  : return fonction_c
5746   if VALE_PARA != None  : return fonction
5747   if NOEUD_PARA != None  : return fonction
5748   raise AsException("type de concept resultat non prevu")
5749
5750 DEFI_FONCTION=OPER(nom="DEFI_FONCTION",op=3,sd_prod=defi_fonction_prod
5751                     ,fr="Définition des valeurs réelles ou complexes d une fonction réelle",
5752                      docu="U4.31.02-g",reentrant='n',
5753             UIinfo={"groupes":("Fonction",)},
5754          regles=(UN_PARMI('VALE','VALE_C','VALE_PARA','NOEUD_PARA'),),
5755          NOM_PARA        =SIMP(statut='o',typ='TXM',
5756                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
5757                                      "INST","X","Y","Z","EPSI","META","FREQ","PULS",
5758                                      "AMOR","ABSC","SIGM","HYDR","SECH","PORO","SAT",
5759                                      "PGAZ","PCAP","VITE") ),
5760          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
5761          VALE            =SIMP(statut='f',typ='R',min=2,max='**',
5762                                fr ="Fonction réelle définie par une liste de couples (abscisse,ordonnée)"),
5763          VALE_C          =SIMP(statut='f',typ='R',min=2,max='**',
5764                                fr ="Fonction complexe définie par une liste de couples"),
5765          VALE_PARA       =SIMP(statut='f',typ=listr8,
5766                                fr ="Fonction réelle définie par deux concepts de type listr8" ),
5767          b_vale_para     =BLOC(condition = "VALE_PARA != None",
5768            VALE_FONC       =SIMP(statut='o',typ=listr8 ),
5769          ),
5770          NOEUD_PARA      =SIMP(statut='f',typ=no,max='**',
5771                                fr ="Fonction réelle définie par une liste de noeuds et un maillage"),
5772          b_noeud_para    =BLOC(condition = "NOEUD_PARA != None",
5773            MAILLAGE        =SIMP(statut='o',typ=maillage ),
5774            VALE_Y          =SIMP(statut='o',typ='R',max='**'),
5775          ),
5776
5777          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
5778          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5779          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5780          VERIF           =SIMP(statut='f',typ='TXM',defaut="CROISSANT",into=("CROISSANT","NON") ),
5781          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5782          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5783 )  ;
5784 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
5785 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5786 # ======================================================================
5787 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5788 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5789 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5790 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5791 # (AT YOUR OPTION) ANY LATER VERSION.
5792 #
5793 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5794 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5795 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5796 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5797 #
5798 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5799 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5800 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5801 # ======================================================================
5802 DEFI_FOND_FISS=OPER(nom="DEFI_FOND_FISS",op=55,sd_prod=fond_fiss,docu="U4.82.01-f",reentrant='n',
5803             UIinfo={"groupes":("Post traitements",)},
5804                     fr="Définition de lèvres et d un fond de fissure en 3D",
5805          regles=(UN_PARMI('FOND','FOND_FERME'),
5806                  EXCLUS('FOND_FERME','DTAN_ORIG'),
5807                  EXCLUS('FOND_FERME','DTAN_EXTR'),
5808                       EXCLUS('FOND_FERME','VECT_GRNO_ORIG'),
5809                       EXCLUS('FOND_FERME','VECT_GRNO_EXTR'),
5810                  UN_PARMI('LEVRE_SUP','NORMALE'),
5811                       EXCLUS('LEVRE_INF','NORMALE'),
5812                  ENSEMBLE('DTAN_ORIG','DTAN_EXTR'),
5813                       ENSEMBLE('VECT_GRNO_ORIG','VECT_GRNO_EXTR'),
5814                       EXCLUS('DTAN_ORIG','VECT_GRNO_ORIG'),
5815                       EXCLUS('DTAN_EXTR','VECT_GRNO_EXTR') ,),
5816            MAILLAGE        =SIMP(statut='o',typ=maillage ),
5817            FOND            =FACT(statut='f',min=1,max=1,
5818              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
5819                      EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
5820                           EXCLUS('NOEUD_EXTR','GROUP_NO_EXTR'),),
5821              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5822              NOEUD           =SIMP(statut='f',typ=no,max='**'),
5823              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5824              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5825 #  à mettre à jour le max vaut-il 1
5826              NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
5827              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
5828              NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
5829              GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
5830            ),
5831            FOND_FERME      =FACT(statut='f',min=1,max=1,
5832              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
5833                           EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),),
5834              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5835              NOEUD           =SIMP(statut='f',typ=no,max='**'),
5836              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5837              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5838              NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
5839              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
5840              MAILLE_ORIG     =SIMP(statut='f',typ=ma,max=1),
5841              GROUP_MA_ORIG   =SIMP(statut='f',typ=ma,max=1),
5842            ),
5843            LEVRE_SUP       =FACT(statut='f',min=1,max=1,
5844              regles=(UN_PARMI('GROUP_MA','MAILLE'),),
5845              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5846              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5847            ),
5848            LEVRE_INF       =FACT(statut='f',min=1,max=1,
5849              regles=(UN_PARMI('GROUP_MA','MAILLE', ),),
5850              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5851              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5852            ),
5853            NORMALE         =SIMP(statut='f',typ='R',max='**'),
5854            DTAN_ORIG       =SIMP(statut='f',typ='R',max='**'),
5855            DTAN_EXTR       =SIMP(statut='f',typ='R',max='**'),
5856            VECT_GRNO_ORIG  =SIMP(statut='f',typ=grno,max=2),
5857            VECT_GRNO_EXTR  =SIMP(statut='f',typ=grno,max=2),
5858            INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
5859 )  ;
5860 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
5861 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5862 # ======================================================================
5863 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5864 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5865 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5866 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5867 # (AT YOUR OPTION) ANY LATER VERSION.
5868 #
5869 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5870 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5871 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5872 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5873 #
5874 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5875 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5876 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5877 # ======================================================================
5878 # RESPONSABLE VABHHTS J.PELLET
5879 def defi_group_prod(MAILLAGE,**args):
5880   if AsType(MAILLAGE) == maillage : return maillage
5881   if AsType(MAILLAGE) == squelette : return squelette
5882   raise AsException("type de concept resultat non prevu")
5883
5884 DEFI_GROUP=OPER(nom="DEFI_GROUP",op= 104,sd_prod=defi_group_prod,
5885                 fr="Définition de nouveaux groupes de noeuds et/ou de mailles dans un concept maillage",
5886                 docu="U4.22.01-f",reentrant='o',
5887             UIinfo={"groupes":("Maillage",)},
5888          regles=(AU_MOINS_UN('CREA_GROUP_MA','CREA_GROUP_NO'),),
5889          MAILLAGE        =SIMP(statut='o',typ=(maillage,squelette) ),
5890
5891          CREA_GROUP_MA   =FACT(statut='f',min=1,max='**',
5892            regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','INTERSEC','UNION','DIFFE','OPTION'),),
5893 #  quel est le concept attendu deriere NOM
5894            NOM             =SIMP(statut='o',typ=grma),
5895            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5896            GROUP_MA        =SIMP(statut='f',typ=grma),
5897            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5898            INTERSEC        =SIMP(statut='f',typ=grma,max='**'),
5899            UNION           =SIMP(statut='f',typ=grma,max='**'),
5900            DIFFE           =SIMP(statut='f',typ=grma,max='**'),
5901            OPTION          =SIMP(statut='f',typ='TXM',into=("FACE_NORMALE","SPHERE","CYLINDRE","BANDE") ),
5902            b_group_ma      =BLOC(condition = "GROUP_MA != None",
5903              regles=(EXCLUS('POSITION','NUME_INIT'),),
5904              NUME_INIT       =SIMP(statut='f',typ='I'),
5905              POSITION        =SIMP(statut='f',typ='TXM',into=("INIT","FIN","MILIEU") ),
5906              b_nume_init   =BLOC(condition = "NUME_INIT != None",
5907                NUME_FIN        =SIMP(statut='f',typ='I' ),
5908              ),
5909            ),
5910            b_face_normale  =BLOC(condition = "OPTION == 'FACE_NORMALE'",
5911              regles=(UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5912              ANGL_NAUT       =SIMP(statut='f',typ='R',max=2),
5913              VECT_NORMALE    =SIMP(statut='f',typ='R',max=3),
5914              ANGL_PREC       =SIMP(statut='f',typ='R',defaut= 0.5 ),
5915              VERI_SIGNE      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
5916            ),
5917            b_sphere        =BLOC(condition = "OPTION == 'SPHERE'",
5918              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),),
5919              POINT           =SIMP(statut='f',typ='R',max=3),
5920              NOEUD_CENTRE    =SIMP(statut='f',typ=no),
5921              RAYON           =SIMP(statut='o',typ='R' ),
5922            ),
5923            b_cylindre      =BLOC(condition = "OPTION == 'CYLINDRE'",
5924              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5925                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5926              POINT           =SIMP(statut='f',typ='R',max=3),
5927              NOEUD_CENTRE    =SIMP(statut='f',typ=no),
5928              RAYON           =SIMP(statut='o',typ='R' ),
5929              ANGL_NAUT       =SIMP(statut='f',typ='R',max=2),
5930              VECT_NORMALE    =SIMP(statut='f',typ='R',max=3),
5931            ),
5932            b_bande         =BLOC(condition = "OPTION == 'BANDE'",
5933              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5934                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5935              POINT           =SIMP(statut='f',typ='R',max=3),
5936              NOEUD_CENTRE    =SIMP(statut='f',typ=no),
5937              DIST            =SIMP(statut='o',typ='R' ),
5938              ANGL_NAUT       =SIMP(statut='f',typ='R',max=2),
5939              VECT_NORMALE    =SIMP(statut='f',typ='R',max=3),
5940            ),
5941          ),
5942          CREA_GROUP_NO   =FACT(statut='f',min=1,max='**',
5943            regles = (
5944          AU_MOINS_UN ('TOUT_GROUP_MA','GROUP_MA','NOEUD',
5945                      'INTERSEC','UNION','DIFFE','GROUP_NO','OPTION'),
5946                    EXCLUS ('TOUT_GROUP_MA','GROUP_MA','NOEUD','INTERSEC','UNION','DIFFE'),),
5947            TOUT_GROUP_MA   =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5948            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5949
5950            NOEUD           =SIMP(statut='f',typ=no,max='**'),
5951            INTERSEC        =SIMP(statut='f',typ=grno,max='**'),
5952            UNION           =SIMP(statut='f',typ=grno,max='**'),
5953            DIFFE           =SIMP(statut='f',typ=grno,max='**'),
5954            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5955            OPTION          =SIMP(statut='f',typ='TXM',into=("ENV_SPHERE","ENV_CYLINDRE","PLAN",
5956                                                             "SEGM_DROI_ORDO","NOEUD_ORDO") ),
5957            b_nom_group_ma  =BLOC(condition = "GROUP_MA != None",
5958              NOM             =SIMP(statut='f',typ=grma,max='**'),
5959            ),
5960            b_crit_noeud    = BLOC(condition = "GROUP_MA != None",
5961              CRIT_NOEUD    = SIMP(statut='f',typ='TXM',defaut="TOUS",
5962                             into=("TOUS","SOMMET","MILIEU","CENTRE"),),),
5963            b_nom =BLOC(condition = "GROUP_MA == None and TOUT_GROUP_MA == None" ,
5964              NOM             =SIMP(statut='o',typ=geom),
5965            ),
5966            b_group_no      =BLOC(condition = "GROUP_NO != None",
5967              regles=(EXCLUS('POSITION','NUME_INIT'),),
5968              NUME_INIT       =SIMP(statut='f',typ='I'),
5969              POSITION        =SIMP(statut='f',typ='TXM',into=("INIT","FIN","MILIEU") ),
5970              b_nume_init     =BLOC(condition = "NUME_INIT != None",
5971                NUME_FIN        =SIMP(statut='f',typ='I' ),
5972              ),
5973            ),
5974            b_env_sphere    =BLOC(condition = "OPTION == 'ENV_SPHERE'",
5975              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),),
5976              POINT           =SIMP(statut='f',typ='R',max=3),
5977              NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=1),
5978              RAYON           =SIMP(statut='o',typ='R' ),
5979              PRECISION       =SIMP(statut='f',typ='R' ),
5980              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5981            ),
5982            b_env_cylindre  =BLOC(condition = "OPTION == 'ENV_CYLINDRE'",
5983              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5984                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5985              POINT           =SIMP(statut='f',typ='R',max=3),
5986              NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=1),
5987              RAYON           =SIMP(statut='o',typ='R' ),
5988              ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
5989              VECT_NORMALE    =SIMP(statut='f',typ='R',max=3),
5990              PRECISION       =SIMP(statut='f',typ='R' ),
5991              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5992            ),
5993            b_env_plan      =BLOC(condition = "OPTION == 'PLAN'",
5994              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5995                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5996              POINT           =SIMP(statut='f',typ='R',max=3),
5997              NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=1),
5998              ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
5999              VECT_NORMALE    =SIMP(statut='f',typ='R',max=3),
6000              PRECISION       =SIMP(statut='f',typ='R' ),
6001              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
6002            ),
6003            b_segm_droi_ordo=BLOC(condition = "OPTION == 'SEGM_DROI_ORDO'",
6004              regles=(UN_PARMI('NOEUD_ORIG','GROUP_NO_ORIG'),
6005                      UN_PARMI('NOEUD_EXTR','GROUP_NO_EXTR'),),
6006              NOEUD_ORIG      =SIMP(statut='f',typ=no),
6007              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno),
6008              NOEUD_EXTR      =SIMP(statut='f',typ=no),
6009              GROUP_NO_EXTR   =SIMP(statut='f',typ=grno),
6010              PRECISION       =SIMP(statut='f',typ='R' ),
6011              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
6012            ),
6013            b_noeud_ordo    =BLOC(condition = "OPTION == 'NOEUD_ORDO'",
6014              regles=(EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
6015                      EXCLUS('NOEUD_EXTR','GROUP_NO_EXTR'),),
6016              NOEUD_ORIG      =SIMP(statut='f',typ=no),
6017              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno),
6018              NOEUD_EXTR      =SIMP(statut='f',typ=no),
6019              GROUP_NO_EXTR   =SIMP(statut='f',typ=grno),
6020              PRECISION       =SIMP(statut='f',typ='R' ),
6021              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
6022            ),
6023          ),
6024          INFO            =SIMP(statut='f',typ='I',into=( 1 , 2 ) ),
6025 )  ;
6026 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
6027 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6028 # ======================================================================
6029 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6030 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6031 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6032 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6033 # (AT YOUR OPTION) ANY LATER VERSION.
6034 #
6035 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6036 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6037 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6038 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6039 #
6040 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6041 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6042 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6043 # ======================================================================
6044 DEFI_INTE_SPEC=OPER(nom="DEFI_INTE_SPEC",op= 115,sd_prod=tabl_intsp,
6045                     docu="U4.36.02-f",reentrant='n',
6046             UIinfo={"groupes":("Fonction",)},
6047
6048          DIMENSION       =SIMP(statut='f',typ='I',defaut= 1 ),
6049
6050          PAR_FONCTION    =FACT(statut='f',min=1,max='**',
6051            NUME_ORDRE_I    =SIMP(statut='o',typ='I' ),
6052            NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
6053            FONCTION        =SIMP(statut='o',typ=fonction_c ),
6054          ),
6055          KANAI_TAJIMI    =FACT(statut='f',min=1,max='**',
6056            regles=(EXCLUS('VALE_R','VALE_C'),),
6057            NUME_ORDRE_I    =SIMP(statut='o',typ='I' ),
6058            NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
6059            FREQ_MIN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6060            FREQ_MAX        =SIMP(statut='f',typ='R',defaut= 100. ),
6061            PAS             =SIMP(statut='f',typ='R',defaut= 1. ),
6062            AMOR_REDUIT     =SIMP(statut='f',typ='R',defaut= 0.6 ),
6063            FREQ_MOY        =SIMP(statut='f',typ='R',defaut= 5. ),
6064            VALE_R          =SIMP(statut='f',typ='R' ),
6065            VALE_C          =SIMP(statut='f',typ='C' ),
6066            INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
6067            PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6068            PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6069          ),
6070          CONSTANT        =FACT(statut='f',min=1,max='**',
6071            regles=(EXCLUS('VALE_R','VALE_C'),),
6072            NUME_ORDRE_I    =SIMP(statut='o',typ='I' ),
6073            NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
6074            FREQ_MIN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6075            FREQ_MAX        =SIMP(statut='f',typ='R',defaut= 100. ),
6076            PAS             =SIMP(statut='f',typ='R',defaut= 1. ),
6077            VALE_R          =SIMP(statut='f',typ='R' ),
6078            VALE_C          =SIMP(statut='f',typ='C' ),
6079            INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
6080            PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6081            PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6082          ),
6083          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
6084          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6085 )  ;
6086 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
6087 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6088 # ======================================================================
6089 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6090 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6091 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6092 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6093 # (AT YOUR OPTION) ANY LATER VERSION.
6094 #
6095 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6096 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6097 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6098 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6099 #
6100 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6101 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6102 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6103 # ======================================================================
6104 DEFI_INTERF_DYNA=OPER(nom="DEFI_INTERF_DYNA",op=  98,sd_prod=interf_dyna_clas,
6105                       docu="U4.64.01-f",reentrant='n',
6106             UIinfo={"groupes":("Matrices/vecteurs",)},
6107          NUME_DDL        =SIMP(statut='o',typ=nume_ddl ),
6108          INTERFACE       =FACT(statut='o',min=1,max='**',
6109            regles=(ENSEMBLE('NOM','TYPE'),
6110 #  erreur doc U sur la condition qui suit
6111                    UN_PARMI('NOEUD','GROUP_NO'),),
6112            NOM             =SIMP(statut='f',typ='TXM' ),
6113            TYPE            =SIMP(statut='f',typ='TXM',into=("MNEAL","CRAIGB","CB_HARMO","AUCUN") ),
6114            NOEUD           =SIMP(statut='f',typ=no,max='**'),
6115            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
6116            DDL_ACTIF       =SIMP(statut='f',typ='TXM',max='**'),
6117            MASQUE          =SIMP(statut='f',typ='TXM',max='**'),
6118          ),
6119          FREQ            =SIMP(statut='f',typ='R',defaut= 1.),
6120          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6121 )  ;
6122 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
6123 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6124 # ======================================================================
6125 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6126 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6127 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6128 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6129 # (AT YOUR OPTION) ANY LATER VERSION.
6130 #
6131 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6132 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6133 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6134 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6135 #
6136 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6137 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6138 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6139 # ======================================================================
6140 # RESPONSABLE VABHHTS J.PELLET
6141 DEFI_LIST_ENTI=OPER(nom="DEFI_LIST_ENTI",op=22,sd_prod=listis,
6142                     fr="Définition d une suite croissante d entiers",
6143                     docu="U4.34.02-g",reentrant='n',
6144             UIinfo={"groupes":("Fonction",)},
6145          regles=(UN_PARMI('VALE','DEBUT'),
6146                  EXCLUS('VALE','INTERVALLE'),),
6147          VALE            =SIMP(statut='f',typ='I',max='**'),
6148          DEBUT           =SIMP(statut='f',typ='I'),
6149          INTERVALLE      =FACT(statut='f',min=1,max='**',
6150            regles=(UN_PARMI('NOMBRE','PAS'),),
6151            JUSQU_A         =SIMP(statut='o',typ='I'),
6152            NOMBRE          =SIMP(statut='f',typ='I',val_min=1,),
6153            PAS             =SIMP(statut='f',typ='I',val_min=1,),
6154          ),
6155          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
6156          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
6157 )  ;
6158 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
6159 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6160 # ======================================================================
6161 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6162 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6163 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6164 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6165 # (AT YOUR OPTION) ANY LATER VERSION.
6166 #
6167 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6168 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6169 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6170 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6171 #
6172 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6173 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6174 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6175 # ======================================================================
6176 # RESPONSABLE VABHHTS J.PELLET
6177 DEFI_LIST_REEL=OPER(nom="DEFI_LIST_REEL",op=24,sd_prod=listr8,
6178                     fr="Définition d une suite croissante de réels",
6179                     docu="U4.34.01-g",reentrant='n',
6180             UIinfo={"groupes":("Fonction",)},
6181          regles=(UN_PARMI('VALE','DEBUT',),
6182                  EXCLUS('VALE','INTERVALLE'),
6183                  ENSEMBLE('DEBUT','INTERVALLE')),
6184          VALE            =SIMP(statut='f',typ='R',max='**'),
6185          DEBUT           =SIMP(statut='f',typ='R'),
6186          INTERVALLE      =FACT(statut='f',min=1,max='**',
6187            regles=(UN_PARMI('NOMBRE','PAS'),),
6188            JUSQU_A         =SIMP(statut='o',typ='R'),
6189            NOMBRE          =SIMP(statut='f',typ='I'),
6190            PAS             =SIMP(statut='f',typ='R'),
6191          ),
6192          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
6193          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
6194 )  ;
6195 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
6196 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6197 # ======================================================================
6198 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6199 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6200 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6201 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6202 # (AT YOUR OPTION) ANY LATER VERSION.
6203 #
6204 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6205 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6206 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6207 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6208 #
6209 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6210 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6211 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6212 # ======================================================================
6213 # RESPONSABLE VABHHTS J.PELLET
6214 DEFI_MAILLAGE=OPER(nom="DEFI_MAILLAGE",op=  88,sd_prod=maillage,
6215                    fr="Définition d un nouveau maillage à partir de macro éléments",
6216                    docu="U4.23.01-f",reentrant='n',
6217             UIinfo={"groupes":("Maillage",)},
6218          DEFI_MAILLE     =FACT(statut='o',min=1,max='**',
6219            MACR_ELEM_STAT  =SIMP(statut='o',typ=macr_elem_stat,max='**' ),
6220            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
6221            TRAN            =SIMP(statut='f',typ='R',max=3),
6222            ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
6223            b_angl_naut     =BLOC(condition = "ANGL_NAUT != None",
6224              CENTRE          =SIMP(statut='f',typ='R',max=3),
6225            ),
6226          ),
6227          RECO_GLOBAL     =FACT(statut='f',min=1,max='**',
6228            regles=(UN_PARMI('TOUT','MAILLE'),),
6229            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6230            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
6231            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6232            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
6233          ),
6234          RECO_MAILLE     =FACT(statut='f',min=1,max='**',
6235            MAILLE          =SIMP(statut='o',typ=ma,max='**'),
6236            GROUP_NO        =SIMP(statut='o',typ=grno,max='**'),
6237            OPTION          =SIMP(statut='f',typ='TXM',defaut="GEOMETRIQUE",into=("GEOMETRIQUE","NOEUD_A_NOEUD","INVERSE") ),
6238            geometrique     =BLOC(condition = "OPTION == 'GEOMETRIQUE'",
6239              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6240              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
6241            ),
6242          ),
6243          DEFI_NOEUD      =FACT(statut='f',min=1,max='**',
6244            regles=(UN_PARMI('TOUT','NOEUD_INIT'),),
6245            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",),
6246                                  fr="Renommage de tous les noeuds" ),
6247            NOEUD_INIT      =SIMP(statut='f',typ=no,
6248                                  fr="Renommage d un seul noeud"),
6249            b_tout          =BLOC(condition = "TOUT != None",
6250              PREFIXE         =SIMP(statut='f',typ='TXM' ),
6251              INDEX           =SIMP(statut='o',typ='I',max='**'),
6252            ),
6253            b_noeud_init    =BLOC(condition = "NOEUD_INIT != None",
6254              MAILLE          =SIMP(statut='o',typ=ma),
6255              NOEUD_FIN       =SIMP(statut='o',typ=no),
6256            ),
6257          ),
6258          DEFI_GROUP_NO   =FACT(statut='f',min=1,max='**',
6259            regles=(UN_PARMI('TOUT','MAILLE'),
6260                 AU_MOINS_UN('INDEX','GROUP_NO_FIN'),
6261                    ENSEMBLE('GROUP_NO_INIT','GROUP_NO_FIN'),),
6262 #  la regle ancien catalogue AU_MOINS_UN__: ( INDEX , GROUP_NO_FIN ) incoherente avec doc U
6263            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",),
6264                                  fr="Création de plusieurs groupes de noeuds" ),
6265            MAILLE          =SIMP(statut='f',typ=ma,
6266                                  fr="Création de plusieurs groupes de noeuds"),
6267            GROUP_NO_INIT   =SIMP(statut='f',typ=grno,
6268                                  fr="Création d un seul groupe de noeuds"),
6269            PREFIXE         =SIMP(statut='f',typ='TXM' ),
6270            INDEX           =SIMP(statut='f',typ='I',max='**'),
6271            GROUP_NO_FIN    =SIMP(statut='f',typ=grno),
6272          ),
6273 )  ;
6274 #& MODIF COMMANDE  DATE 07/06/2004   AUTEUR SMICHEL S.MICHEL-PONNELLE
6275 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6276 # ======================================================================
6277 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6278 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6279 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6280 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6281 # (AT YOUR OPTION) ANY LATER VERSION.
6282 #
6283 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6284 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6285 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6286 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6287 #
6288 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6289 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6290 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6291 # ======================================================================
6292 DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater,
6293                    fr="Définition des paramètres décrivant le comportement d un matériau",
6294                    docu="U4.43.01-g",reentrant='n',
6295             UIinfo={"groupes":("Modélisation",)},
6296        regles=(EXCLUS('ELAS','ELAS_FO','ELAS_FLUI','ELAS_ISTR','ELAS_ISTR_FO','ELAS_ORTH',
6297                       'ELAS_ORTH_FO','ELAS_COQUE','ELAS_COQUE_FO'),
6298 #DEBR                      ,'SURF_ETAT_SATU','CAM_CLAY_THM','SURF_ETAT_NSAT'
6299                EXCLUS('THER','THER_FO','THER_ORTH','THER_NL'),
6300                EXCLUS('ECRO_LINE','ECRO_LINE_FO'),
6301                EXCLUS('TAHERI','TAHERI_FO'),
6302                EXCLUS('ROUSSELIER','ROUSSELIER_FO'),
6303                PRESENT_PRESENT('ROUSSELIER','TRACTION'),
6304                PRESENT_PRESENT('ROUSSELIER_FO','TRACTION'),
6305                EXCLUS('CIN1_CHAB','CIN1_CHAB_FO'),
6306                EXCLUS('CIN2_CHAB','CIN2_CHAB_FO'),
6307 #DEBR               EXCLUS('VISCOCHAB','VISCOCHAB_FO'),
6308                EXCLUS('POLY_CFC','POLY_CFC_FO'),
6309                EXCLUS('LEMAITRE','LEMAITRE_FO','ZIRC_CYRA2','ZIRC_EPRI'),
6310 #DEBR               EXCLUS('OHNO','OHNO_FO'),
6311                EXCLUS('LMARC','LMARC_FO'),
6312                EXCLUS('VMIS_POUTRE','VMIS_POUTRE_FO'),
6313 #DEBR               EXCLUS('VENDOCHAB','VENDOCHAB_FO'),
6314                PRESENT_PRESENT('BPEL_ACIER','ELAS'),
6315                EXCLUS('RCCM','RCCM_FO'),
6316                EXCLUS('WEIBULL','WEIBULL_FO'),
6317                PRESENT_PRESENT('CAM_CLAY','ELAS'),
6318                PRESENT_PRESENT('LAIGLE','ELAS'),
6319                EXCLUS('MAZARS','MAZARS_FO'),
6320                PRESENT_PRESENT('BAZANT_FD','ELAS_FO'),
6321                ),
6322
6323 #
6324 # comportement élastique
6325 #
6326            ELAS            =FACT(statut='f',min=0,max=1,
6327              E               =SIMP(statut='o',typ='R',val_min=0.E+0),
6328              NU              =SIMP(statut='o',typ='R',val_min=-1.E+0,val_max=0.5E+0),
6329              RHO             =SIMP(statut='f',typ='R'),
6330              ALPHA           =SIMP(statut='f',typ='R'),
6331              AMOR_ALPHA      =SIMP(statut='f',typ='R'),
6332              AMOR_BETA       =SIMP(statut='f',typ='R'),
6333              AMOR_HYST       =SIMP(statut='f',typ='R'),
6334            ),
6335            ELAS_FO         =FACT(statut='f',min=0,max=1,
6336              regles=(PRESENT_PRESENT('ALPHA','TEMP_DEF_ALPHA'),),
6337              E               =SIMP(statut='o',typ=fonction),
6338              NU              =SIMP(statut='o',typ=fonction),
6339              RHO             =SIMP(statut='f',typ='R'),
6340              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
6341              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.),
6342              ALPHA           =SIMP(statut='f',typ=fonction),
6343              AMOR_ALPHA      =SIMP(statut='f',typ=fonction),
6344              AMOR_BETA       =SIMP(statut='f',typ=fonction),
6345              AMOR_HYST       =SIMP(statut='f',typ=fonction),
6346              K_DESSIC        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6347              B_ENDOGE        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6348              FONC_DESORP     =SIMP(statut='f',typ=fonction),
6349              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
6350              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="INST",into=("TEMP","INST",) ),
6351              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
6352              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
6353            ),
6354            ELAS_FLUI       =FACT(statut='f',min=0,max=1,
6355              E               =SIMP(statut='o',typ='R'),
6356              NU              =SIMP(statut='o',typ='R'),
6357              RHO             =SIMP(statut='o',typ='R'),
6358              PROF_RHO_F_INT  =SIMP(statut='o',typ=fonction),
6359              PROF_RHO_F_EXT  =SIMP(statut='o',typ=fonction),
6360              COEF_MASS_AJOU  =SIMP(statut='o',typ=fonction),
6361              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="ABSC",into=("ABSC",) ),
6362            ),
6363            ELAS_ISTR       =FACT(statut='f',min=0,max=1,
6364              E_L             =SIMP(statut='o',typ='R'),
6365              E_N             =SIMP(statut='o',typ='R'),
6366              NU_LT           =SIMP(statut='o',typ='R'),
6367              NU_LN           =SIMP(statut='o',typ='R'),
6368              G_LN            =SIMP(statut='o',typ='R'),
6369              RHO             =SIMP(statut='f',typ='R'),
6370              ALPHA_L         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6371              ALPHA_N         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6372            ),
6373            ELAS_ISTR_FO    =FACT(statut='f',min=0,max=1,
6374              regles=(
6375                       PRESENT_PRESENT('ALPHA_L','TEMP_DEF_ALPHA'),
6376                       PRESENT_PRESENT('ALPHA_N','TEMP_DEF_ALPHA'),
6377                     ),
6378              E_L             =SIMP(statut='o',typ=fonction),
6379              E_N             =SIMP(statut='o',typ=fonction),
6380              NU_LT           =SIMP(statut='o',typ=fonction),
6381              NU_LN           =SIMP(statut='o',typ=fonction),
6382              G_LN            =SIMP(statut='o',typ=fonction),
6383              RHO             =SIMP(statut='f',typ='R'),
6384              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
6385              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.),
6386              ALPHA_L         =SIMP(statut='f',typ=fonction),
6387              ALPHA_N         =SIMP(statut='f',typ=fonction),
6388              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST")),
6389            ),
6390            ELAS_ORTH       =FACT(statut='f',min=0,max=1,
6391              E_L             =SIMP(statut='o',typ='R'),
6392              E_T             =SIMP(statut='o',typ='R'),
6393              E_N             =SIMP(statut='f',typ='R'),
6394              NU_LT           =SIMP(statut='o',typ='R'),
6395              NU_LN           =SIMP(statut='f',typ='R'),
6396              NU_TN           =SIMP(statut='f',typ='R'),
6397              G_LT            =SIMP(statut='o',typ='R'),
6398              G_LN            =SIMP(statut='f',typ='R'),
6399              G_TN            =SIMP(statut='f',typ='R'),
6400              RHO             =SIMP(statut='f',typ='R'),
6401              ALPHA_L         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6402              ALPHA_T         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6403              ALPHA_N         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6404              XT              =SIMP(statut='f',typ='R',defaut= 1. ),
6405              XC              =SIMP(statut='f',typ='R',defaut= 1. ),
6406              YT              =SIMP(statut='f',typ='R',defaut= 1. ),
6407              YC              =SIMP(statut='f',typ='R',defaut= 1. ),
6408              S_LT            =SIMP(statut='f',typ='R',defaut= 1. ),
6409            ),
6410            ELAS_ORTH_FO    =FACT(statut='f',min=0,max=1,
6411              regles=(
6412                       PRESENT_PRESENT('ALPHA_L','TEMP_DEF_ALPHA'),
6413                       PRESENT_PRESENT('ALPHA_N','TEMP_DEF_ALPHA'),
6414                       PRESENT_PRESENT('ALPHA_T','TEMP_DEF_ALPHA'),
6415                     ),
6416              E_L             =SIMP(statut='o',typ=fonction),
6417              E_T             =SIMP(statut='o',typ=fonction),
6418              E_N             =SIMP(statut='o',typ=fonction),
6419              NU_LT           =SIMP(statut='o',typ=fonction),
6420              NU_LN           =SIMP(statut='o',typ=fonction),
6421              NU_TN           =SIMP(statut='o',typ=fonction),
6422              G_LT            =SIMP(statut='o',typ=fonction),
6423              G_LN            =SIMP(statut='o',typ=fonction),
6424              G_TN            =SIMP(statut='o',typ=fonction),
6425              RHO             =SIMP(statut='f',typ='R'),
6426              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
6427              PRECISION       =SIMP(statut='f',typ='R',defaut= 1. ),
6428              ALPHA_L         =SIMP(statut='f',typ=fonction),
6429              ALPHA_T         =SIMP(statut='f',typ=fonction),
6430              ALPHA_N         =SIMP(statut='f',typ=fonction),
6431              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
6432            ),
6433            ELAS_THM        =FACT(statut='f',min=0,max=1,
6434              RHO_S           =SIMP(statut='o',typ='R'),
6435              UN_SUR_KS       =SIMP(statut='o',typ='R'),
6436              E               =SIMP(statut='f',typ='R'),
6437              KB              =SIMP(statut='f',typ='R'),
6438              D_KB_T          =SIMP(statut='f',typ='R'),
6439              ALPHA_S         =SIMP(statut='f',typ='R'),
6440              ALPHA_D         =SIMP(statut='f',typ='R'),
6441            ),
6442 #DEBR           SURF_ETAT_SATU  =FACT(statut='f',min=0,max=1,
6443 #DEBR             E_CHAR          =SIMP(statut='o',typ='R'),
6444 #DEBR             E_DECHAR        =SIMP(statut='o',typ='R'),
6445 #DEBR             XN              =SIMP(statut='f',typ='R'),
6446 #DEBR             RF              =SIMP(statut='f',typ='R'),
6447 #DEBR             EV_KB           =SIMP(statut='f',typ='R'),
6448 #DEBR             EV_XM           =SIMP(statut='f',typ='R'),
6449 #DEBR             D_E_T           =SIMP(statut='f',typ='R'),
6450 #DEBR             ALPHA0          =SIMP(statut='f',typ='R'),
6451 #DEBR             ALPHA1          =SIMP(statut='f',typ='R'),
6452 #DEBR             ALPHA2          =SIMP(statut='f',typ='R'),
6453 #DEBR             ALPHA3          =SIMP(statut='f',typ='R'),
6454 #DEBR             ALPHA_S         =SIMP(statut='f',typ='R'),
6455 #DEBR             ANG_FRT         =SIMP(statut='o',typ='R'),
6456 #DEBR             COHE            =SIMP(statut='o',typ='R'),
6457 #DEBR             RESI_TRAC       =SIMP(statut='o',typ='R'),
6458 #DEBR           ),
6459 #DEBR           CAM_CLAY_THM    =FACT(statut='f',min=0,max=1,
6460 #DEBR             NU              =SIMP(statut='f',typ='R'),
6461 #DEBR             LAMBDA          =SIMP(statut='o',typ='R'),
6462 #DEBR             KAPA            =SIMP(statut='o',typ='R'),
6463 #DEBR             M               =SIMP(statut='f',typ='R'),
6464 #DEBR             PRES_CRIT       =SIMP(statut='f',typ='R'),
6465 #DEBR             GAMA            =SIMP(statut='o',typ='R'),
6466 #DEBR             A0_PC           =SIMP(statut='o',typ='R'),
6467 #DEBR             A1_PC           =SIMP(statut='f',typ='R'),
6468 #DEBR             A2_PC           =SIMP(statut='f',typ='R'),
6469 #DEBR             ALPHA0_PC       =SIMP(statut='f',typ='R'),
6470 #DEBR             ALPHA1_PC       =SIMP(statut='f',typ='R'),
6471 #DEBR             ALPHA2_PC       =SIMP(statut='f',typ='R'),
6472 #DEBR             ALPHA3_PC       =SIMP(statut='f',typ='R'),
6473 #DEBR             ALPHA_S         =SIMP(statut='f',typ='R'),
6474 #DEBR                         ),
6475 #DEBR           SURF_ETAT_NSAT  =FACT(statut='f',min=0,max=1,
6476 #DEBR             E_CHAR          =SIMP(statut='o',typ='R'),
6477 #DEBR             E_DECHAR        =SIMP(statut='o',typ='R'),
6478 #DEBR             XN              =SIMP(statut='f',typ='R'),
6479 #DEBR             RF              =SIMP(statut='f',typ='R'),
6480 #DEBR             EV_KB           =SIMP(statut='f',typ='R'),
6481 #DEBR             EV_XM           =SIMP(statut='f',typ='R'),
6482 #DEBR             EV_A            =SIMP(statut='f',typ='R'),
6483 #DEBR             EV_B            =SIMP(statut='f',typ='R'),
6484 #DEBR             EV_CT           =SIMP(statut='f',typ='R'),
6485 #DEBR             EV_SIGB         =SIMP(statut='f',typ='R'),
6486 #DEBR             D_E_T           =SIMP(statut='f',typ='R'),
6487 #DEBR             D_E_SUCC        =SIMP(statut='f',typ='R'),
6488 #DEBR             ANG_FRT         =SIMP(statut='o',typ='R'),
6489 #DEBR             COHE            =SIMP(statut='o',typ='R'),
6490 #DEBR             D_COEH_SUCC     =SIMP(statut='f',typ='R'),
6491 #DEBR             ANG_FRT_ULT     =SIMP(statut='f',typ='R'),
6492 #DEBR             SUCC_ULTM       =SIMP(statut='f',typ='R'),
6493 #DEBR             RESI_TRAC       =SIMP(statut='f',typ='R'),
6494 #DEBR             A_SURF_SATU     =SIMP(statut='f',typ='R'),
6495 #DEBR             B_SURF_SATU     =SIMP(statut='f',typ='R'),
6496 #DEBR             C_SURF_SATU     =SIMP(statut='f',typ='R'),
6497 #DEBR             D_SURF_SATU     =SIMP(statut='f',typ='R'),
6498 #DEBR           ),
6499            ELAS_COQUE      =FACT(statut='f',min=0,max=1,
6500              regles=(EXCLUS('MEMB_L','M_LLLL',),
6501                      PRESENT_PRESENT('MEMB_L','MEMB_LT', 'MEMB_T','MEMB_G_LT','FLEX_L','FLEX_LT',
6502                                      'FLEX_T','FLEX_G_LT','CISA_L','CISA_T',),
6503                      PRESENT_PRESENT('M_LLLL','M_LLTT','M_LLLT','M_TTTT','M_TTLT','M_LTLT','F_LLLL',
6504                                      'F_LLTT','F_LLLT','F_TTTT','F_TTLT','F_LTLT','MF_LLLL',
6505                                      'MF_LLTT','MF_LLLT','MF_TTTT','MF_TTLT','MF_LTLT','MC_LLLZ',
6506                                      'MC_LLTZ','MC_TTLZ','MC_TTTZ','MC_LTLZ','MC_LTTZ','FC_LLLZ',
6507                                      'FC_LLTZ','FC_TTLZ','FC_TTTZ','FC_LTLZ','FC_LTTZ','C_LZLZ',
6508                                      'C_LZTZ','C_TZTZ'),),
6509              MEMB_L          =SIMP(statut='f',typ='R'),
6510              MEMB_LT         =SIMP(statut='f',typ='R'),
6511              MEMB_T          =SIMP(statut='f',typ='R'),
6512              MEMB_G_LT       =SIMP(statut='f',typ='R'),
6513              FLEX_L          =SIMP(statut='f',typ='R'),
6514              FLEX_LT         =SIMP(statut='f',typ='R'),
6515              FLEX_T          =SIMP(statut='f',typ='R'),
6516              FLEX_G_LT       =SIMP(statut='f',typ='R'),
6517              CISA_L          =SIMP(statut='f',typ='R'),
6518              CISA_T          =SIMP(statut='f',typ='R'),
6519              M_LLLL          =SIMP(statut='f',typ='R'),
6520              M_LLTT          =SIMP(statut='f',typ='R'),
6521              M_LLLT          =SIMP(statut='f',typ='R'),
6522              M_TTTT          =SIMP(statut='f',typ='R'),
6523              M_TTLT          =SIMP(statut='f',typ='R'),
6524              M_LTLT          =SIMP(statut='f',typ='R'),
6525              F_LLLL          =SIMP(statut='f',typ='R'),
6526              F_LLTT          =SIMP(statut='f',typ='R'),
6527              F_LLLT          =SIMP(statut='f',typ='R'),
6528              F_TTTT          =SIMP(statut='f',typ='R'),
6529              F_TTLT          =SIMP(statut='f',typ='R'),
6530              F_LTLT          =SIMP(statut='f',typ='R'),
6531              MF_LLLL         =SIMP(statut='f',typ='R'),
6532              MF_LLTT         =SIMP(statut='f',typ='R'),
6533              MF_LLLT         =SIMP(statut='f',typ='R'),
6534              MF_TTTT         =SIMP(statut='f',typ='R'),
6535              MF_TTLT         =SIMP(statut='f',typ='R'),
6536              MF_LTLT         =SIMP(statut='f',typ='R'),
6537              MC_LLLZ         =SIMP(statut='f',typ='R'),
6538              MC_LLTZ         =SIMP(statut='f',typ='R'),
6539              MC_TTLZ         =SIMP(statut='f',typ='R'),
6540              MC_TTTZ         =SIMP(statut='f',typ='R'),
6541              MC_LTLZ         =SIMP(statut='f',typ='R'),
6542              MC_LTTZ         =SIMP(statut='f',typ='R'),
6543              FC_LLLZ         =SIMP(statut='f',typ='R'),
6544              FC_LLTZ         =SIMP(statut='f',typ='R'),
6545              FC_TTLZ         =SIMP(statut='f',typ='R'),
6546              FC_TTTZ         =SIMP(statut='f',typ='R'),
6547              FC_LTLZ         =SIMP(statut='f',typ='R'),
6548              FC_LTTZ         =SIMP(statut='f',typ='R'),
6549              C_LZLZ          =SIMP(statut='f',typ='R'),
6550              C_LZTZ          =SIMP(statut='f',typ='R'),
6551              C_TZTZ          =SIMP(statut='f',typ='R'),
6552              RHO             =SIMP(statut='f',typ='R'),
6553              ALPHA           =SIMP(statut='f',typ='R'),
6554            ),
6555            ELAS_COQUE_FO   =FACT(statut='f',min=0,max=1,
6556              regles=(EXCLUS('MEMB_L','M_LLLL',),
6557                      PRESENT_PRESENT('MEMB_L','MEMB_LT','MEMB_T','MEMB_G_LT','FLEX_L','FLEX_LT',
6558                                      'FLEX_T','FLEX_G_LT','CISA_L','CISA_T',),
6559                      PRESENT_PRESENT('M_LLLL','M_LLTT','M_LLLT','M_TTTT','M_TTLT','M_LTLT','F_LLLL',
6560                                      'F_LLTT','F_LLLT','F_TTTT','F_TTLT','F_LTLT','MF_LLLL','MF_LLTT',
6561                                      'MF_LLLT','MF_TTTT','MF_TTLT','MF_LTLT','MC_LLLZ','MC_LLTZ',
6562                                      'MC_TTLZ','MC_TTTZ','MC_LTLZ','MC_LTTZ','FC_LLLZ','FC_LLTZ',
6563                                      'FC_TTLZ','FC_TTTZ','FC_LTLZ','FC_LTTZ','C_LZLZ','C_LZTZ','C_TZTZ'),),
6564              MEMB_L          =SIMP(statut='f',typ=fonction),
6565              MEMB_LT         =SIMP(statut='f',typ=fonction),
6566              MEMB_T          =SIMP(statut='f',typ=fonction),
6567              MEMB_G_LT       =SIMP(statut='f',typ=fonction),
6568              FLEX_L          =SIMP(statut='f',typ=fonction),
6569              FLEX_LT         =SIMP(statut='f',typ=fonction),
6570              FLEX_T          =SIMP(statut='f',typ=fonction),
6571              FLEX_G_LT       =SIMP(statut='f',typ=fonction),
6572              CISA_L          =SIMP(statut='f',typ=fonction),
6573              CISA_T          =SIMP(statut='f',typ=fonction),
6574              M_LLLL          =SIMP(statut='f',typ=fonction),
6575              M_LLTT          =SIMP(statut='f',typ=fonction),
6576              M_LLLT          =SIMP(statut='f',typ=fonction),
6577              M_TTTT          =SIMP(statut='f',typ=fonction),
6578              M_TTLT          =SIMP(statut='f',typ=fonction),
6579              M_LTLT          =SIMP(statut='f',typ=fonction),
6580              F_LLLL          =SIMP(statut='f',typ=fonction),
6581              F_LLTT          =SIMP(statut='f',typ=fonction),
6582              F_LLLT          =SIMP(statut='f',typ=fonction),
6583              F_TTTT          =SIMP(statut='f',typ=fonction),
6584              F_TTLT          =SIMP(statut='f',typ=fonction),
6585              F_LTLT          =SIMP(statut='f',typ=fonction),
6586              MF_LLLL         =SIMP(statut='f',typ=fonction),
6587              MF_LLTT         =SIMP(statut='f',typ=fonction),
6588              MF_LLLT         =SIMP(statut='f',typ=fonction),
6589              MF_TTTT         =SIMP(statut='f',typ=fonction),
6590              MF_TTLT         =SIMP(statut='f',typ=fonction),
6591              MF_LTLT         =SIMP(statut='f',typ=fonction),
6592              MC_LLLZ         =SIMP(statut='f',typ=fonction),
6593              MC_LLTZ         =SIMP(statut='f',typ=fonction),
6594              MC_TTLZ         =SIMP(statut='f',typ=fonction),
6595              MC_TTTZ         =SIMP(statut='f',typ=fonction),
6596              MC_LTLZ         =SIMP(statut='f',typ=fonction),
6597              MC_LTTZ         =SIMP(statut='f',typ=fonction),
6598              FC_LLLZ         =SIMP(statut='f',typ=fonction),
6599              FC_LLTZ         =SIMP(statut='f',typ=fonction),
6600              FC_TTLZ         =SIMP(statut='f',typ=fonction),
6601              FC_TTTZ         =SIMP(statut='f',typ=fonction),
6602              FC_LTLZ         =SIMP(statut='f',typ=fonction),
6603              FC_LTTZ         =SIMP(statut='f',typ=fonction),
6604              C_LZLZ          =SIMP(statut='f',typ=fonction),
6605              C_LZTZ          =SIMP(statut='f',typ=fonction),
6606              C_TZTZ          =SIMP(statut='f',typ=fonction),
6607              RHO             =SIMP(statut='f',typ='R'),
6608              ALPHA           =SIMP(statut='f',typ=fonction),
6609              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST") ),
6610            ),
6611            APPUI_ELAS      =FACT(statut='f',min=0,max=1,
6612              E_N             =SIMP(statut='o',typ='R'),
6613              E_TAN           =SIMP(statut='f',typ='R',defaut= 0.E+0),
6614            ),
6615            CABLE           =FACT(statut='f',min=0,max=1,
6616              E               =SIMP(statut='o',typ='R'),
6617              EC_SUR_E        =SIMP(statut='f',typ='R',defaut= 1.E-4 ),
6618              RHO             =SIMP(statut='f',typ='R'),
6619              ALPHA           =SIMP(statut='f',typ='R'),
6620              AMOR_ALPHA      =SIMP(statut='f',typ='R'),
6621              AMOR_BETA       =SIMP(statut='f',typ='R'),
6622            ),
6623 #
6624 # comportement mécanique non linéaire
6625 #
6626            TRACTION        =FACT(statut='f',min=0,max=1,
6627              SIGM            =SIMP(statut='o',typ=fonction),
6628              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",) ),
6629              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6630              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
6631              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
6632            ),
6633            ECRO_LINE       =FACT(statut='f',min=0,max=1,
6634              D_SIGM_EPSI     =SIMP(statut='o',typ='R'),
6635              SY              =SIMP(statut='o',typ='R'),
6636            ),
6637            ECRO_LINE_FO    =FACT(statut='f',min=0,max=1,
6638              D_SIGM_EPSI     =SIMP(statut='o',typ=fonction),
6639              SY              =SIMP(statut='o',typ=fonction),
6640              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6641            ),
6642            PRAGER          =FACT(statut='f',min=0,max=1,
6643              C               =SIMP(statut='o',typ='R'),
6644            ),
6645            PRAGER_FO       =FACT(statut='f',min=0,max=1,
6646              C               =SIMP(statut='o',typ=fonction),
6647              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6648            ),
6649            ECRO_FLEJOU     =FACT(statut='f',min=0,max=1,
6650              EP              =SIMP(statut='o',typ='R'),
6651              SY              =SIMP(statut='o',typ='R'),
6652              SU              =SIMP(statut='o',typ='R'),
6653              PUISS           =SIMP(statut='o',typ='R'),
6654            ),
6655            TAHERI          =FACT(statut='f',min=0,max=1,
6656              R_0             =SIMP(statut='o',typ='R'),
6657              ALPHA           =SIMP(statut='o',typ='R'),
6658              M               =SIMP(statut='o',typ='R'),
6659              A               =SIMP(statut='o',typ='R'),
6660              B               =SIMP(statut='o',typ='R'),
6661              C1              =SIMP(statut='o',typ='R'),
6662              C_INF           =SIMP(statut='o',typ='R'),
6663              S               =SIMP(statut='o',typ='R'),
6664            ),
6665            TAHERI_FO       =FACT(statut='f',min=0,max=1,
6666              R_0             =SIMP(statut='o',typ=fonction),
6667              ALPHA           =SIMP(statut='o',typ=fonction),
6668              M               =SIMP(statut='o',typ=fonction),
6669              A               =SIMP(statut='o',typ=fonction),
6670              B               =SIMP(statut='o',typ=fonction),
6671              C1              =SIMP(statut='o',typ=fonction),
6672              C_INF           =SIMP(statut='o',typ=fonction),
6673              S               =SIMP(statut='o',typ=fonction),
6674              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6675            ),
6676            ROUSSELIER      =FACT(statut='f',min=0,max=1,
6677              D               =SIMP(statut='o',typ='R'),
6678              SIGM_1          =SIMP(statut='o',typ='R'),
6679              PORO_INIT       =SIMP(statut='o',typ='R'),
6680              PORO_CRIT       =SIMP(statut='f',typ='R',defaut= 1. ),
6681              PORO_ACCE       =SIMP(statut='f',typ='R',defaut= 1. ),
6682              PORO_LIMI       =SIMP(statut='f',typ='R',defaut= 0.999 ),
6683              D_SIGM_EPSI_NORM=SIMP(statut='f',typ='R',defaut= 1. ),
6684              AN              =SIMP(statut='f',typ='R',defaut= 0. ),
6685            ),
6686            ROUSSELIER_FO   =FACT(statut='f',min=0,max=1,
6687              D               =SIMP(statut='o',typ=fonction),
6688              SIGM_1          =SIMP(statut='o',typ=fonction),
6689              PORO_INIT       =SIMP(statut='o',typ=fonction),
6690              PORO_CRIT       =SIMP(statut='f',typ='R',defaut= 1. ),
6691              PORO_ACCE       =SIMP(statut='f',typ='R',defaut= 1. ),
6692              PORO_LIMI       =SIMP(statut='f',typ='R',defaut= 0.999 ),
6693              D_SIGM_EPSI_NORM=SIMP(statut='f',typ='R',defaut= 1. ),
6694              AN              =SIMP(statut='f',typ='R',defaut= 0. ),
6695              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6696            ),
6697            ROUSS_VISC      =FACT(statut='f',min=0,max=1,
6698              SIGM_0          =SIMP(statut='o',typ='R'),
6699              EPSI_0          =SIMP(statut='o',typ='R'),
6700              M               =SIMP(statut='o',typ='R'),
6701            ),
6702            CHABOCHE        =FACT(statut='f',min=0,max=1,
6703              R_I             =SIMP(statut='o',typ='R'),
6704              R_0             =SIMP(statut='o',typ='R'),
6705              B               =SIMP(statut='o',typ='R'),
6706              K               =SIMP(statut='o',typ='R'),
6707              W               =SIMP(statut='o',typ='R'),
6708              A1              =SIMP(statut='o',typ='R'),
6709              A2              =SIMP(statut='o',typ='R'),
6710              C1              =SIMP(statut='o',typ='R'),
6711              C2              =SIMP(statut='o',typ='R'),
6712            ),
6713            CIN1_CHAB  =FACT(statut='f',min=0,max=1,
6714              R_0             =SIMP(statut='o',typ='R'),
6715              R_I             =SIMP(statut='f',typ='R'),
6716              B               =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6717              C_I             =SIMP(statut='o',typ='R'),
6718              K               =SIMP(statut='f',typ='R',defaut= 1.0E+0),
6719              W               =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6720              G_0             =SIMP(statut='o',typ='R'),
6721              A_I             =SIMP(statut='f',typ='R',defaut= 1.0E+0),
6722            ),
6723            CIN1_CHAB_FO  =FACT(statut='f',min=0,max=1,
6724              R_0             =SIMP(statut='o',typ=fonction),
6725              R_I             =SIMP(statut='o',typ=fonction),
6726              B               =SIMP(statut='o',typ=fonction),
6727              C_I             =SIMP(statut='o',typ=fonction),
6728              K               =SIMP(statut='o',typ=fonction),
6729              W               =SIMP(statut='o',typ=fonction),
6730              G_0             =SIMP(statut='o',typ=fonction),
6731              A_I             =SIMP(statut='o',typ=fonction),
6732              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
6733            ),
6734            CIN2_CHAB  =FACT(statut='f',min=0,max=1,
6735              R_0             =SIMP(statut='o',typ='R'),
6736              R_I             =SIMP(statut='f',typ='R'),
6737              B               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6738              C1_I            =SIMP(statut='o',typ='R'),
6739              C2_I            =SIMP(statut='o',typ='R'),
6740              K               =SIMP(statut='f',typ='R',defaut= 1.),
6741              W               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6742              G1_0            =SIMP(statut='o',typ='R'),
6743              G2_0            =SIMP(statut='o',typ='R'),
6744              A_I             =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
6745            ),
6746            CIN2_CHAB_FO  =FACT(statut='f',min=0,max=1,
6747              R_0             =SIMP(statut='o',typ=fonction),
6748              R_I             =SIMP(statut='o',typ=fonction),
6749              B               =SIMP(statut='o',typ=fonction),
6750              C1_I            =SIMP(statut='o',typ=fonction),
6751              C2_I            =SIMP(statut='o',typ=fonction),
6752              K               =SIMP(statut='o',typ=fonction),
6753              W               =SIMP(statut='o',typ=fonction),
6754              G1_0            =SIMP(statut='o',typ=fonction),
6755              G2_0            =SIMP(statut='o',typ=fonction),
6756              A_I             =SIMP(statut='o',typ=fonction),
6757              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6758            ),
6759 #DEBR           VISCOCHAB       =FACT(statut='f',min=0,max=1,
6760 #DEBR             K_0             =SIMP(statut='o',typ='R'),
6761 #DEBR             A_K             =SIMP(statut='o',typ='R'),
6762 #DEBR             A_R             =SIMP(statut='o',typ='R'),
6763 #DEBR             K               =SIMP(statut='o',typ='R'),
6764 #DEBR             N               =SIMP(statut='o',typ='R'),
6765 #DEBR             ALP             =SIMP(statut='o',typ='R'),
6766 #DEBR             B               =SIMP(statut='o',typ='R'),
6767 #DEBR             M_R             =SIMP(statut='o',typ='R'),
6768 #DEBR             G_R             =SIMP(statut='o',typ='R'),
6769 #DEBR             MU              =SIMP(statut='o',typ='R'),
6770 #DEBR             Q_M             =SIMP(statut='o',typ='R'),
6771 #DEBR             Q_0             =SIMP(statut='o',typ='R'),
6772 #DEBR             QR_0            =SIMP(statut='o',typ='R'),
6773 #DEBR             ETA             =SIMP(statut='o',typ='R'),
6774 #DEBR             C1              =SIMP(statut='o',typ='R'),
6775 #DEBR             M_1             =SIMP(statut='o',typ='R'),
6776 #DEBR             D1              =SIMP(statut='o',typ='R'),
6777 #DEBR             G_X1            =SIMP(statut='o',typ='R'),
6778 #DEBR             G1_0            =SIMP(statut='o',typ='R'),
6779 #DEBR             C2              =SIMP(statut='o',typ='R'),
6780 #DEBR             M_2             =SIMP(statut='o',typ='R'),
6781 #DEBR             D2              =SIMP(statut='o',typ='R'),
6782 #DEBR             G_X2            =SIMP(statut='o',typ='R'),
6783 #DEBR             G2_0            =SIMP(statut='o',typ='R'),
6784 #DEBR             A_I             =SIMP(statut='o',typ='R'),
6785 #DEBR           ),
6786 #DEBR           VISCOCHAB_FO    =FACT(statut='f',min=0,max=1,
6787 #DEBR             K_0             =SIMP(statut='o',typ=fonction),
6788 #DEBR             A_K             =SIMP(statut='o',typ=fonction),
6789 #DEBR             A_R             =SIMP(statut='o',typ=fonction),
6790 #DEBR             K               =SIMP(statut='o',typ=fonction),
6791 #DEBR             N               =SIMP(statut='o',typ=fonction),
6792 #DEBR             ALP             =SIMP(statut='o',typ=fonction),
6793 #DEBR             B               =SIMP(statut='o',typ=fonction),
6794 #DEBR             M_R             =SIMP(statut='o',typ=fonction),
6795 #DEBR             G_R             =SIMP(statut='o',typ=fonction),
6796 #DEBR             MU              =SIMP(statut='o',typ=fonction),
6797 #DEBR             Q_M             =SIMP(statut='o',typ=fonction),
6798 #DEBR             Q_0             =SIMP(statut='o',typ=fonction),
6799 #DEBR             QR_0            =SIMP(statut='o',typ=fonction),
6800 #DEBR             ETA             =SIMP(statut='o',typ=fonction),
6801 #DEBR             C1              =SIMP(statut='o',typ=fonction),
6802 #DEBR             M_1             =SIMP(statut='o',typ=fonction),
6803 #DEBR             D1              =SIMP(statut='o',typ=fonction),
6804 #DEBR             G_X1            =SIMP(statut='o',typ=fonction),
6805 #DEBR             G1_0            =SIMP(statut='o',typ=fonction),
6806 #DEBR             C2              =SIMP(statut='o',typ=fonction),
6807 #DEBR             M_2             =SIMP(statut='o',typ=fonction),
6808 #DEBR             D2              =SIMP(statut='o',typ=fonction),
6809 #DEBR             G_X2            =SIMP(statut='o',typ=fonction),
6810 #DEBR             G2_0            =SIMP(statut='o',typ=fonction),
6811 #DEBR             A_I             =SIMP(statut='o',typ=fonction),
6812 #DEBR             VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6813 #DEBR           ),
6814            POLY_CFC        =FACT(statut='f',min=0,max=1,
6815              TEXTURE         =SIMP(statut='o',typ=(tabl_texture) ),
6816              DL              =SIMP(statut='f',typ='R'),
6817              DA              =SIMP(statut='f',typ='R'),
6818              N               =SIMP(statut='o',typ='R'),
6819              K               =SIMP(statut='o',typ='R'),
6820              TAU_0           =SIMP(statut='o',typ='R'),
6821              Q1              =SIMP(statut='o',typ='R'),
6822              B1              =SIMP(statut='o',typ='R'),
6823              HL              =SIMP(statut='o',typ='R'),
6824              Q2              =SIMP(statut='o',typ='R'),
6825              B2              =SIMP(statut='o',typ='R'),
6826              C1              =SIMP(statut='o',typ='R'),
6827              D1              =SIMP(statut='o',typ='R'),
6828              C2              =SIMP(statut='o',typ='R'),
6829            ),
6830            POLY_CFC_FO     =FACT(statut='f',min=0,max=1,
6831              TEXTURE         =SIMP(statut='o',typ=(tabl_texture) ),
6832              DL              =SIMP(statut='o',typ=fonction),
6833              DA              =SIMP(statut='o',typ=fonction),
6834              N               =SIMP(statut='o',typ=fonction),
6835              K               =SIMP(statut='o',typ=fonction),
6836              TAU_0           =SIMP(statut='o',typ=fonction),
6837              Q1              =SIMP(statut='o',typ=fonction),
6838              B1              =SIMP(statut='o',typ=fonction),
6839              HL              =SIMP(statut='o',typ=fonction),
6840              Q2              =SIMP(statut='o',typ=fonction),
6841              B2              =SIMP(statut='o',typ=fonction),
6842              C1              =SIMP(statut='o',typ=fonction),
6843              D1              =SIMP(statut='o',typ=fonction),
6844              C2              =SIMP(statut='o',typ=fonction),
6845              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6846            ),
6847            LEMAITRE        =FACT(statut='f',min=0,max=1,
6848              N               =SIMP(statut='o',typ='R'),
6849              UN_SUR_K        =SIMP(statut='o',typ='R'),
6850              UN_SUR_M        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6851            ),
6852            ZIRC_CYRA2      =FACT(statut='f',min=0,max=1,
6853              EPSI_FAB        =SIMP(statut='o',typ=fonction),
6854              TEMP_RECUIT     =SIMP(statut='o',typ=fonction),
6855              FLUX_PHI        =SIMP(statut='o',typ=fonction),
6856              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
6857            ),
6858            ZIRC_EPRI       =FACT(statut='f',min=0,max=1,
6859              FLUX_PHI        =SIMP(statut='o',typ='R'),
6860              R_P             =SIMP(statut='o',typ='R'),
6861              THETA_MAX       =SIMP(statut='o',typ='R'),
6862            ),
6863            LEMAITRE_FO     =FACT(statut='f',min=0,max=1,
6864              N               =SIMP(statut='o',typ=fonction),
6865              UN_SUR_K        =SIMP(statut='o',typ=fonction),
6866              UN_SUR_M        =SIMP(statut='o',typ=fonction),
6867              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6868            ),
6869            GRAN_IRRA       =FACT(statut='f',min=0,max=1,
6870              A               =SIMP(statut='f',typ='R',defaut= 0.E+0),
6871              B               =SIMP(statut='f',typ='R',defaut= 0.E+0),
6872              S               =SIMP(statut='f',typ='R',defaut= 0.E+0),
6873            ),
6874            FLU_IRRA       =FACT(statut='f',min=0,max=1,
6875              QSR_K           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6876              BETA            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6877              PHI_ZERO        =SIMP(statut='f',typ='R',defaut= 1.E+20),
6878              L               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6879            ),
6880 #DEBR           OHNO            =FACT(statut='f',min=0,max=1,
6881 #DEBR             R_I             =SIMP(statut='o',typ='R'),
6882 #DEBR             R_0             =SIMP(statut='o',typ='R'),
6883 #DEBR             B               =SIMP(statut='o',typ='R'),
6884 #DEBR             PHI             =SIMP(statut='o',typ='R'),
6885 #DEBR             A1              =SIMP(statut='o',typ='R'),
6886 #DEBR             A2              =SIMP(statut='o',typ='R'),
6887 #DEBR             A3              =SIMP(statut='o',typ='R'),
6888 #DEBR             A4              =SIMP(statut='o',typ='R'),
6889 #DEBR             A5              =SIMP(statut='o',typ='R'),
6890 #DEBR             GAMMA1          =SIMP(statut='o',typ='R'),
6891 #DEBR             GAMMA2          =SIMP(statut='o',typ='R'),
6892 #DEBR             GAMMA3          =SIMP(statut='o',typ='R'),
6893 #DEBR             GAMMA4          =SIMP(statut='o',typ='R'),
6894 #DEBR             GAMMA5          =SIMP(statut='o',typ='R'),
6895 #DEBR             M1              =SIMP(statut='o',typ='R'),
6896 #DEBR             M2              =SIMP(statut='o',typ='R'),
6897 #DEBR             M3              =SIMP(statut='o',typ='R'),
6898 #DEBR             M4              =SIMP(statut='o',typ='R'),
6899 #DEBR             M5              =SIMP(statut='o',typ='R'),
6900 #DEBR                           ),
6901 #DEBR           OHNO_FO         =FACT(statut='f',min=0,max=1,
6902 #DEBR             R_I             =SIMP(statut='o',typ=fonction),
6903 #DEBR             R_0             =SIMP(statut='o',typ=fonction),
6904 #DEBR             B               =SIMP(statut='o',typ=fonction),
6905 #DEBR             PHI             =SIMP(statut='o',typ=fonction),
6906 #DEBR             A1              =SIMP(statut='o',typ=fonction),
6907 #DEBR             A2              =SIMP(statut='o',typ=fonction),
6908 #DEBR             A3              =SIMP(statut='o',typ=fonction),
6909 #DEBR             A4              =SIMP(statut='o',typ=fonction),
6910 #DEBR             A5              =SIMP(statut='o',typ=fonction),
6911 #DEBR             GAMMA1          =SIMP(statut='o',typ=fonction),
6912 #DEBR             GAMMA2          =SIMP(statut='o',typ=fonction),
6913 #DEBR             GAMMA3          =SIMP(statut='o',typ=fonction),
6914 #DEBR             GAMMA4          =SIMP(statut='o',typ=fonction),
6915 #DEBR             GAMMA5          =SIMP(statut='o',typ=fonction),
6916 #DEBR             M1              =SIMP(statut='o',typ=fonction),
6917 #DEBR             M2              =SIMP(statut='o',typ=fonction),
6918 #DEBR             M3              =SIMP(statut='o',typ=fonction),
6919 #DEBR             M4              =SIMP(statut='o',typ=fonction),
6920 #DEBR             M5              =SIMP(statut='o',typ=fonction),
6921 #DEBR             VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6922 #DEBR           ),
6923            LMARC           =FACT(statut='f',min=0,max=1,
6924              DE_0            =SIMP(statut='o',typ='R'),
6925              R_0             =SIMP(statut='o',typ='R'),
6926              N               =SIMP(statut='o',typ='R'),
6927              K               =SIMP(statut='o',typ='R'),
6928              Y_I             =SIMP(statut='o',typ='R'),
6929              Y_0             =SIMP(statut='o',typ='R'),
6930              B               =SIMP(statut='o',typ='R'),
6931              A_0             =SIMP(statut='o',typ='R'),
6932              RM              =SIMP(statut='o',typ='R'),
6933              M               =SIMP(statut='o',typ='R'),
6934              P               =SIMP(statut='o',typ='R'),
6935              P1              =SIMP(statut='o',typ='R'),
6936              P2              =SIMP(statut='o',typ='R'),
6937              M11             =SIMP(statut='o',typ='R'),
6938              M22             =SIMP(statut='o',typ='R'),
6939              M33             =SIMP(statut='o',typ='R'),
6940              M66             =SIMP(statut='o',typ='R'),
6941              N11             =SIMP(statut='o',typ='R'),
6942              N22             =SIMP(statut='o',typ='R'),
6943              N33             =SIMP(statut='o',typ='R'),
6944              N66             =SIMP(statut='o',typ='R'),
6945              Q11             =SIMP(statut='o',typ='R'),
6946              Q22             =SIMP(statut='o',typ='R'),
6947              Q33             =SIMP(statut='o',typ='R'),
6948              Q66             =SIMP(statut='o',typ='R'),
6949              R11             =SIMP(statut='o',typ='R'),
6950              R22             =SIMP(statut='o',typ='R'),
6951              R33             =SIMP(statut='o',typ='R'),
6952              R66             =SIMP(statut='o',typ='R'),
6953            ),
6954            LMARC_FO        =FACT(statut='f',min=0,max=1,
6955              DE_0            =SIMP(statut='o',typ=fonction),
6956              R_0             =SIMP(statut='o',typ=fonction),
6957              N               =SIMP(statut='o',typ=fonction),
6958              K               =SIMP(statut='o',typ=fonction),
6959              Y_I             =SIMP(statut='o',typ=fonction),
6960              Y_0             =SIMP(statut='o',typ=fonction),
6961              B               =SIMP(statut='o',typ=fonction),
6962              A_0             =SIMP(statut='o',typ=fonction),
6963              RM              =SIMP(statut='o',typ=fonction),
6964              M               =SIMP(statut='o',typ=fonction),
6965              P               =SIMP(statut='o',typ=fonction),
6966              P1              =SIMP(statut='o',typ=fonction),
6967              P2              =SIMP(statut='o',typ=fonction),
6968              M11             =SIMP(statut='o',typ=fonction),
6969              M22             =SIMP(statut='o',typ=fonction),
6970              M33             =SIMP(statut='o',typ=fonction),
6971              M66             =SIMP(statut='o',typ=fonction),
6972              N11             =SIMP(statut='o',typ=fonction),
6973              N22             =SIMP(statut='o',typ=fonction),
6974              N33             =SIMP(statut='o',typ=fonction),
6975              N66             =SIMP(statut='o',typ=fonction),
6976              Q11             =SIMP(statut='o',typ=fonction),
6977              Q22             =SIMP(statut='o',typ=fonction),
6978              Q33             =SIMP(statut='o',typ=fonction),
6979              Q66             =SIMP(statut='o',typ=fonction),
6980              R11             =SIMP(statut='o',typ=fonction),
6981              R22             =SIMP(statut='o',typ=fonction),
6982              R33             =SIMP(statut='o',typ=fonction),
6983              R66             =SIMP(statut='o',typ=fonction),
6984              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6985            ),
6986            VMIS_POUTRE     =FACT(statut='f',min=0,max=1,
6987              NP              =SIMP(statut='o',typ='R'),
6988              MEY             =SIMP(statut='o',typ='R'),
6989              MPY             =SIMP(statut='o',typ='R'),
6990              CAY             =SIMP(statut='o',typ='R'),
6991              CBY             =SIMP(statut='o',typ='R'),
6992              MEZ             =SIMP(statut='o',typ='R'),
6993              MPZ             =SIMP(statut='o',typ='R'),
6994              CAZ             =SIMP(statut='o',typ='R'),
6995              CBZ             =SIMP(statut='o',typ='R'),
6996              MPX             =SIMP(statut='o',typ='R'),
6997            ),
6998            VMIS_POUTRE_FO  =FACT(statut='f',min=0,max=1,
6999              NP              =SIMP(statut='o',typ=fonction),
7000              MEY             =SIMP(statut='o',typ=fonction),
7001              MPY             =SIMP(statut='o',typ=fonction),
7002              CAY             =SIMP(statut='o',typ=fonction),
7003              CBY             =SIMP(statut='o',typ=fonction),
7004              MEZ             =SIMP(statut='o',typ=fonction),
7005              MPZ             =SIMP(statut='o',typ=fonction),
7006              CAZ             =SIMP(statut='o',typ=fonction),
7007              CBZ             =SIMP(statut='o',typ=fonction),
7008              MPX             =SIMP(statut='o',typ=fonction),
7009              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7010            ),
7011            ARME            =FACT(statut='f',min=0,max=1,
7012              KYE             =SIMP(statut='o',typ='R'),
7013              DLE             =SIMP(statut='o',typ='R'),
7014              KYP             =SIMP(statut='o',typ='R'),
7015              DLP             =SIMP(statut='o',typ='R'),
7016              KYG             =SIMP(statut='o',typ='R'),
7017            ),
7018            ASSE_CORN       =FACT(statut='f',min=0,max=1,
7019              NU_1            =SIMP(statut='o',typ='R'),
7020              MU_1            =SIMP(statut='o',typ='R'),
7021              DXU_1           =SIMP(statut='o',typ='R'),
7022              DRYU_1          =SIMP(statut='o',typ='R'),
7023              C_1             =SIMP(statut='o',typ='R'),
7024              NU_2            =SIMP(statut='o',typ='R'),
7025              MU_2            =SIMP(statut='o',typ='R'),
7026              DXU_2           =SIMP(statut='o',typ='R'),
7027              DRYU_2          =SIMP(statut='o',typ='R'),
7028              C_2             =SIMP(statut='o',typ='R'),
7029              KY              =SIMP(statut='o',typ='R'),
7030              KZ              =SIMP(statut='o',typ='R'),
7031              KRX             =SIMP(statut='o',typ='R'),
7032              KRZ             =SIMP(statut='o',typ='R'),
7033            ),
7034            DIS_CONTACT     =FACT(statut='f',min=0,max=1,
7035              RIGI_NOR        =SIMP(statut='f',typ='R' ),
7036              DIST_1          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7037              DIST_2          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7038              RIGI_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7039              AMOR_NOR        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7040              AMOR_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7041              COULOMB         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7042              JEU             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7043              KT_ULTM         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7044              EFFO_N_INIT     =SIMP(statut='f',typ=fonction),
7045              regles=(EXCLUS('RIGI_N_FO','RIGI_N_IRRA',),),
7046              RIGI_N_IRRA     =SIMP(statut='f',typ=fonction),
7047              RIGI_N_FO       =SIMP(statut='f',typ=fonction),
7048              RELA_MZ         =SIMP(statut='f',typ=fonction),
7049              C_PRAGER_MZ     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7050              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="DRZ",into=("DRZ",) ),
7051              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
7052              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7053            ),
7054 #DEBR           NADAI_B         =FACT(statut='f',min=0,max=1,
7055 #DEBR             F_C             =SIMP(statut='o',typ='R'),
7056 #DEBR             F_T             =SIMP(statut='o',typ='R'),
7057 #DEBR             CRIT_E_C        =SIMP(statut='o',typ='R'),
7058 #DEBR             EPSP_P_C        =SIMP(statut='o',typ='R'),
7059 #DEBR             EPSP_R_C        =SIMP(statut='o',typ='R'),
7060 #DEBR             EPSI_R_T        =SIMP(statut='o',typ='R'),
7061 #DEBR             FAC_T_C         =SIMP(statut='o',typ='R'),
7062 #DEBR           ),
7063            BETON_DOUBLE_DP =FACT(statut='f',min=0,max=1,
7064              F_C             =SIMP(statut='o',typ=fonction),
7065              F_T             =SIMP(statut='o',typ=fonction),
7066              COEF_BIAX       =SIMP(statut='o',typ=fonction),
7067              ENER_COMP_RUPT  =SIMP(statut='o',typ=fonction),
7068              ENER_TRAC_RUPT  =SIMP(statut='o',typ=fonction),
7069              COEF_ELAS_COMP  =SIMP(statut='o',typ='R'),
7070              LONG_CARA       =SIMP(statut='f',typ='R'),
7071              ECRO_COMP_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","PARABOLE") ),
7072              ECRO_TRAC_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","EXPONENT") ),
7073              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
7074              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="INST",into=("TEMP","INST",) ),
7075              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
7076              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
7077            ),
7078            LABORD_1D=FACT(statut='f',min=0 ,max=1,
7079              Y01             =SIMP(statut='o',typ='R'),
7080              Y02             =SIMP(statut='o',typ='R'),
7081              A1              =SIMP(statut='o',typ='R'),
7082              A2              =SIMP(statut='o',typ='R'),
7083              B1              =SIMP(statut='o',typ='R'),
7084              B2              =SIMP(statut='o',typ='R'),
7085              BETA1           =SIMP(statut='o',typ='R'),
7086              BETA2           =SIMP(statut='o',typ='R'),
7087              SIGF            =SIMP(statut='o',typ='R'),
7088            ),
7089          MAZARS=FACT(statut='f',min=0 ,max=1,
7090              EPSD0           =SIMP(statut='o',typ='R'),
7091              BETA            =SIMP(statut='o',typ='R'),
7092              AC              =SIMP(statut='o',typ='R'),
7093              BC              =SIMP(statut='o',typ='R'),
7094              AT              =SIMP(statut='o',typ='R'),
7095              BT              =SIMP(statut='o',typ='R'),
7096            ),
7097          MAZARS_FO=FACT(statut='f',min=0 ,max=1,
7098              EPSD0           =SIMP(statut='o',typ=fonction),
7099              BETA            =SIMP(statut='o',typ='R'),
7100              AC              =SIMP(statut='o',typ=fonction),
7101              BC              =SIMP(statut='o',typ=fonction),
7102              AT              =SIMP(statut='o',typ=fonction),
7103              BT              =SIMP(statut='o',typ=fonction),
7104              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7105            ),
7106 #DEBR          VENDOCHAB       =FACT(statut='f',min=0,max=1,
7107 #DEBR             S_VP            =SIMP(statut='o',typ='R'),
7108 #DEBR             SEDVP1          =SIMP(statut='o',typ='R'),
7109 #DEBR             SEDVP2          =SIMP(statut='o',typ='R'),
7110 #DEBR             N_VP            =SIMP(statut='o',typ='R'),
7111 #DEBR             M_VP            =SIMP(statut='o',typ='R'),
7112 #DEBR             K_VP            =SIMP(statut='o',typ='R'),
7113 #DEBR             R_D             =SIMP(statut='o',typ='R'),
7114 #DEBR             A_D             =SIMP(statut='o',typ='R'),
7115 #DEBR             K_D             =SIMP(statut='o',typ='R'),
7116 #DEBR           ),
7117 #DEBR           VENDOCHAB_FO    =FACT(statut='f',min=0,max=1,
7118 #DEBR             S_VP            =SIMP(statut='o',typ=fonction),
7119 #DEBR             SEDVP1          =SIMP(statut='o',typ=fonction),
7120 #DEBR             SEDVP2          =SIMP(statut='o',typ=fonction),
7121 #DEBR             N_VP            =SIMP(statut='o',typ=fonction),
7122 #DEBR             M_VP            =SIMP(statut='o',typ=fonction),
7123 #DEBR             K_VP            =SIMP(statut='o',typ=fonction),
7124 #DEBR             R_D             =SIMP(statut='o',typ=fonction),
7125 #DEBR             A_D             =SIMP(statut='o',typ=fonction),
7126 #DEBR             K_D             =SIMP(statut='o',typ=fonction),
7127 #DEBR             VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7128 #DEBR             VERI_P2         =SIMP(statut='c',typ='TXM',defaut="X",into=("X",) ),
7129 #DEBR           ),
7130            PINTO_MENEGOTTO =FACT(statut='f',min=0,max=1,
7131              SY              =SIMP(statut='o',typ='R'),
7132              EPSI_ULTM       =SIMP(statut='o',typ='R'),
7133              SIGM_ULTM       =SIMP(statut='o',typ='R'),
7134              ELAN            =SIMP(statut='f',typ='R',defaut= 4. ),
7135              EPSP_HARD       =SIMP(statut='o',typ='R'),
7136              R_PM            =SIMP(statut='f',typ='R',defaut= 20. ),
7137              EP_SUR_E        =SIMP(statut='f',typ='R'),
7138              A1_PM           =SIMP(statut='f',typ='R',defaut= 18.5 ),
7139              A2_PM           =SIMP(statut='f',typ='R',defaut= 0.15 ),
7140              A6_PM           =SIMP(statut='f',typ='R',defaut= 620. ),
7141              C_PM            =SIMP(statut='f',typ='R',defaut= 0.5 ),
7142              A_PM            =SIMP(statut='f',typ='R',defaut= 6.0E-3 ),
7143            ),
7144            BPEL_BETON      =FACT(statut='f',min=0,max=1,
7145              PERT_FLUA       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7146              PERT_RETR       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7147            ),
7148            BPEL_ACIER      =FACT(statut='f',min=0,max=1,
7149              RELAX_1000      =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7150              MU0_RELAX       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7151              SY              =SIMP(statut='o',typ='R'),
7152              FROT_COURB      =SIMP(statut='o',typ='R'),
7153              FROT_LINE       =SIMP(statut='o',typ='R'),
7154            ),
7155            CAM_CLAY      =FACT(statut='f',min=0,max=1,
7156              PORO            =SIMP(statut='o',typ='R'),
7157              LAMBDA          =SIMP(statut='o',typ='R'),
7158              KAPA            =SIMP(statut='o',typ='R'),
7159              M               =SIMP(statut='o',typ='R'),
7160              PRES_CRIT       =SIMP(statut='o',typ='R'),
7161              PA              =SIMP(statut='o',typ='R'),
7162            ),
7163            CJS             =FACT(statut='f',min=0,max=1,
7164              BETA_CJS        =SIMP(statut='o',typ='R'),
7165              RM              =SIMP(statut='o',typ='R'),
7166              N_CJS           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7167              KP              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7168              RC              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7169              A_CJS           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7170              B_CJS           =SIMP(statut='f',typ='R',defaut= 1.0E+25 ),
7171              C_CJS           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7172              GAMMA_CJS       =SIMP(statut='o',typ='R'),
7173              MU_CJS          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7174              PCO             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7175              PA              =SIMP(statut='o',typ='R'),
7176              Q_INIT          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7177              R_INIT          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7178            ),
7179            ECRO_ASYM_LINE  =FACT(statut='f',min=0,max=1,
7180              DC_SIGM_EPSI    =SIMP(statut='o',typ='R'),
7181              SY_C            =SIMP(statut='o',typ='R'),
7182              DT_SIGM_EPSI    =SIMP(statut='o',typ='R'),
7183              SY_T            =SIMP(statut='o',typ='R'),
7184            ),
7185            GRANGER_FP      =FACT(statut='f',min=0,max=1,
7186              J1              =SIMP(statut='f',typ='R'),
7187              J2              =SIMP(statut='f',typ='R'),
7188              J3              =SIMP(statut='f',typ='R'),
7189              J4              =SIMP(statut='f',typ='R'),
7190              J5              =SIMP(statut='f',typ='R'),
7191              J6              =SIMP(statut='f',typ='R'),
7192              J7              =SIMP(statut='f',typ='R'),
7193              J8              =SIMP(statut='f',typ='R'),
7194              TAUX_1          =SIMP(statut='f',typ='R'),
7195              TAUX_2          =SIMP(statut='f',typ='R'),
7196              TAUX_3          =SIMP(statut='f',typ='R'),
7197              TAUX_4          =SIMP(statut='f',typ='R'),
7198              TAUX_5          =SIMP(statut='f',typ='R'),
7199              TAUX_6          =SIMP(statut='f',typ='R'),
7200              TAUX_7          =SIMP(statut='f',typ='R'),
7201              TAUX_8          =SIMP(statut='f',typ='R'),
7202              QSR_K           =SIMP(statut='f',typ='R'),
7203            ),
7204            V_GRANGER_FP    =FACT(statut='f',min=0,max=1,
7205              QSR_VEIL        =SIMP(statut='f',typ='R'),
7206              FONC_V          =SIMP(statut='f',typ=fonction),
7207              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
7208            ),
7209            BAZANT_FD      =FACT(statut='f',min=0,max=1,
7210              LAM_VISC      =SIMP(statut='o',typ='R'),
7211            ),
7212
7213 #
7214 # comportement thermique
7215 #
7216            THER_NL         =FACT(statut='f',min=0,max=1,
7217              regles=(UN_PARMI('BETA','RHO_CP', ),),
7218              LAMBDA          =SIMP(statut='o',typ=fonction),
7219              BETA            =SIMP(statut='f',typ=fonction),
7220              RHO_CP          =SIMP(statut='f',typ=fonction),
7221              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7222            ),
7223            THER_HYDR       =FACT(statut='f',min=0,max=1,
7224              LAMBDA          =SIMP(statut='o',typ=fonction),
7225              BETA            =SIMP(statut='f',typ=fonction),
7226              AFFINITE        =SIMP(statut='o',typ=fonction),
7227              CHALHYDR        =SIMP(statut='o',typ='R'),
7228              QSR_K           =SIMP(statut='o',typ='R'),
7229              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("HYDR",) ),
7230              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
7231            ),
7232            THER            =FACT(statut='f',min=0,max=1,
7233              LAMBDA          =SIMP(statut='o',typ='R'),
7234              RHO_CP          =SIMP(statut='f',typ='R'),
7235            ),
7236            THER_FO         =FACT(statut='f',min=0,max=1,
7237              LAMBDA          =SIMP(statut='o',typ=fonction),
7238              RHO_CP          =SIMP(statut='f',typ=fonction),
7239              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
7240            ),
7241            THER_ORTH       =FACT(statut='f',min=0,max=1,
7242              LAMBDA_L        =SIMP(statut='o',typ='R'),
7243              LAMBDA_T        =SIMP(statut='o',typ='R'),
7244              LAMBDA_N        =SIMP(statut='f',typ='R'),
7245              RHO_CP          =SIMP(statut='f',typ='R'),
7246            ),
7247            THER_COQUE      =FACT(statut='f',min=0,max=1,
7248              COND_LMM        =SIMP(statut='o',typ='R'),
7249              COND_TMM        =SIMP(statut='o',typ='R'),
7250              COND_LMP        =SIMP(statut='o',typ='R'),
7251              COND_TMP        =SIMP(statut='o',typ='R'),
7252              COND_LPP        =SIMP(statut='o',typ='R'),
7253              COND_TPP        =SIMP(statut='o',typ='R'),
7254              COND_LSI        =SIMP(statut='o',typ='R'),
7255              COND_TSI        =SIMP(statut='o',typ='R'),
7256              COND_NMM        =SIMP(statut='o',typ='R'),
7257              COND_NMP        =SIMP(statut='o',typ='R'),
7258              COND_NPP        =SIMP(statut='o',typ='R'),
7259              COND_NSI        =SIMP(statut='o',typ='R'),
7260              CMAS_MM         =SIMP(statut='f',typ='R'),
7261              CMAS_MP         =SIMP(statut='f',typ='R'),
7262              CMAS_PP         =SIMP(statut='f',typ='R'),
7263              CMAS_SI         =SIMP(statut='f',typ='R'),
7264            ),
7265            THER_COQUE_FO   =FACT(statut='f',min=0,max=1,
7266              COND_LMM        =SIMP(statut='o',typ=fonction),
7267              COND_TMM        =SIMP(statut='o',typ=fonction),
7268              COND_LMP        =SIMP(statut='o',typ=fonction),
7269              COND_TMP        =SIMP(statut='o',typ=fonction),
7270              COND_LPP        =SIMP(statut='o',typ=fonction),
7271              COND_TPP        =SIMP(statut='o',typ=fonction),
7272              COND_LSI        =SIMP(statut='o',typ=fonction),
7273              COND_TSI        =SIMP(statut='o',typ=fonction),
7274              COND_NMM        =SIMP(statut='o',typ=fonction),
7275              COND_NMP        =SIMP(statut='o',typ=fonction),
7276              COND_NPP        =SIMP(statut='o',typ=fonction),
7277              COND_NSI        =SIMP(statut='o',typ=fonction),
7278              CMAS_MM         =SIMP(statut='f',typ=fonction),
7279              CMAS_MP         =SIMP(statut='f',typ=fonction),
7280              CMAS_PP         =SIMP(statut='f',typ=fonction),
7281              CMAS_SI         =SIMP(statut='f',typ=fonction),
7282            ),
7283            SECH_GRANGER    =FACT(statut='f',min=0,max=1,
7284              A               =SIMP(statut='o',typ='R'),
7285              B               =SIMP(statut='o',typ='R'),
7286              QSR_K           =SIMP(statut='o',typ='R'),
7287              TEMP_0_C        =SIMP(statut='o',typ='R'),
7288            ),
7289            SECH_MENSI      =FACT(statut='f',min=0,max=1,
7290              A               =SIMP(statut='o',typ='R'),
7291              B               =SIMP(statut='o',typ='R'),
7292            ),
7293            SECH_BAZANT     =FACT(statut='f',min=0,max=1,
7294              D1              =SIMP(statut='o',typ='R'),
7295              ALPHA_BAZANT    =SIMP(statut='o',typ='R'),
7296              N               =SIMP(statut='o',typ='R'),
7297              FONC_DESORP     =SIMP(statut='o',typ=fonction),
7298              VERI_P1          =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7299            ),
7300            SECH_NAPPE      =FACT(statut='f',min=0,max=1,
7301              FONCTION        =SIMP(statut='o',typ=fonction),
7302              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7303              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="TSEC",into=("TSEC",) ),
7304            ),
7305 #
7306 # comportement métallurgique
7307 #
7308            META_ACIER      =FACT(statut='f',min=0,max=1,
7309              TRC             =SIMP(statut='o',typ=(tabl_trc) ),
7310              AR3             =SIMP(statut='o',typ='R'),
7311              ALPHA           =SIMP(statut='o',typ='R'),
7312              MS0             =SIMP(statut='o',typ='R'),
7313              AC1             =SIMP(statut='o',typ='R'),
7314              AC3             =SIMP(statut='o',typ='R'),
7315              TAUX_1          =SIMP(statut='o',typ='R'),
7316              TAUX_3          =SIMP(statut='o',typ='R'),
7317              LAMBDA0         =SIMP(statut='f',typ='R'),
7318              QSR_K           =SIMP(statut='f',typ='R'),
7319              D10             =SIMP(statut='f',typ='R'),
7320              WSR_K           =SIMP(statut='f',typ='R'),
7321            ),
7322            META_ZIRC       =FACT(statut='f',min=0,max=1,
7323              TDEQ            =SIMP(statut='o',typ='R'),
7324              N               =SIMP(statut='o',typ='R'),
7325              K               =SIMP(statut='o',typ='R'),
7326              TDC             =SIMP(statut='o',typ='R'),
7327              AC              =SIMP(statut='o',typ='R'),
7328              M               =SIMP(statut='o',typ='R'),
7329              QSR_K           =SIMP(statut='f',typ='R'),
7330              TDR             =SIMP(statut='o',typ='R'),
7331              AR              =SIMP(statut='o',typ='R'),
7332              BR              =SIMP(statut='o',typ='R'),
7333            ),
7334            DURT_META       =FACT(statut='f',min=0,max=1,
7335              F1_DURT         =SIMP(statut='o',typ='R'),
7336              F2_DURT         =SIMP(statut='o',typ='R'),
7337              F3_DURT         =SIMP(statut='o',typ='R'),
7338              F4_DURT         =SIMP(statut='o',typ='R'),
7339              C_DURT          =SIMP(statut='o',typ='R'),
7340            ),
7341            ELAS_META       =FACT(statut='f',min=0,max=1,
7342              E               =SIMP(statut='o',typ='R'),
7343              NU              =SIMP(statut='o',typ='R'),
7344              F_ALPHA         =SIMP(statut='o',typ='R'),
7345              C_ALPHA         =SIMP(statut='o',typ='R'),
7346              PHASE_REFE      =SIMP(statut='o',typ='TXM',into=("CHAUD","FROID")),
7347              EPSF_EPSC_TREF  =SIMP(statut='o',typ='R'),
7348              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7349              F1_SY           =SIMP(statut='f',typ='R'),
7350              F2_SY           =SIMP(statut='f',typ='R'),
7351              F3_SY           =SIMP(statut='f',typ='R'),
7352              F4_SY           =SIMP(statut='f',typ='R'),
7353              C_SY            =SIMP(statut='f',typ='R'),
7354              SY_MELANGE      =SIMP(statut='f',typ=fonction),
7355              F1_S_VP         =SIMP(statut='f',typ='R'),
7356              F2_S_VP         =SIMP(statut='f',typ='R'),
7357              F3_S_VP         =SIMP(statut='f',typ='R'),
7358              F4_S_VP         =SIMP(statut='f',typ='R'),
7359              C_S_VP          =SIMP(statut='f',typ='R' ),
7360              S_VP_MELANGE    =SIMP(statut='f',typ=fonction),
7361              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="META",into=("META",)),
7362            ),
7363            ELAS_META_FO    =FACT(statut='f',min=0,max=1,
7364              regles=(
7365                       PRESENT_PRESENT('F_ALPHA','TEMP_DEF_ALPHA'),
7366                       PRESENT_PRESENT('C_ALPHA','TEMP_DEF_ALPHA'),
7367                     ),
7368              E               =SIMP(statut='o',typ=fonction),
7369              NU              =SIMP(statut='o',typ=fonction),
7370              F_ALPHA         =SIMP(statut='o',typ=fonction),
7371              C_ALPHA         =SIMP(statut='o',typ=fonction),
7372              PHASE_REFE      =SIMP(statut='o',typ='TXM',into=("CHAUD","FROID")),
7373              EPSF_EPSC_TREF  =SIMP(statut='o',typ='R'),
7374              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
7375              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7376              F1_SY           =SIMP(statut='f',typ=fonction),
7377              F2_SY           =SIMP(statut='f',typ=fonction),
7378              F3_SY           =SIMP(statut='f',typ=fonction),
7379              F4_SY           =SIMP(statut='f',typ=fonction),
7380              C_SY            =SIMP(statut='f',typ=fonction),
7381              SY_MELANGE      =SIMP(statut='f',typ=fonction),
7382              F1_S_VP         =SIMP(statut='f',typ=fonction),
7383              F2_S_VP         =SIMP(statut='f',typ=fonction),
7384              F3_S_VP         =SIMP(statut='f',typ=fonction),
7385              F4_S_VP         =SIMP(statut='f',typ=fonction),
7386              C_S_VP          =SIMP(statut='f',typ=fonction),
7387              S_VP_MELANGE    =SIMP(statut='f',typ=fonction),
7388              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7389              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="META",into=("META",)),
7390            ),
7391            META_ECRO_LINE  =FACT(statut='f',min=0,max=1,
7392              F1_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
7393              F2_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
7394              F3_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
7395              F4_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
7396              C_D_SIGM_EPSI   =SIMP(statut='f',typ=fonction),
7397              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7398            ),
7399            META_TRACTION   =FACT(statut='f',min=0,max=1,
7400              SIGM_F1         =SIMP(statut='f',typ=fonction),
7401              SIGM_F2         =SIMP(statut='f',typ=fonction),
7402              SIGM_F3         =SIMP(statut='f',typ=fonction),
7403              SIGM_F4         =SIMP(statut='f',typ=fonction),
7404              SIGM_C          =SIMP(statut='f',typ=fonction),
7405              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",)),
7406              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7407            ),
7408            META_VISC_FO    =FACT(statut='f',min=0,max=1,
7409              F1_ETA          =SIMP(statut='f',typ=fonction),
7410              F1_N            =SIMP(statut='f',typ=fonction),
7411              F1_C            =SIMP(statut='f',typ=fonction),
7412              F1_M            =SIMP(statut='f',typ=fonction),
7413              F2_ETA          =SIMP(statut='f',typ=fonction),
7414              F2_N            =SIMP(statut='f',typ=fonction),
7415              F2_C            =SIMP(statut='f',typ=fonction),
7416              F2_M            =SIMP(statut='f',typ=fonction),
7417              F3_ETA          =SIMP(statut='f',typ=fonction),
7418              F3_N            =SIMP(statut='f',typ=fonction),
7419              F3_C            =SIMP(statut='f',typ=fonction),
7420              F3_M            =SIMP(statut='f',typ=fonction),
7421              F4_ETA          =SIMP(statut='f',typ=fonction),
7422              F4_N            =SIMP(statut='f',typ=fonction),
7423              F4_C            =SIMP(statut='f',typ=fonction),
7424              F4_M            =SIMP(statut='f',typ=fonction),
7425              C_ETA           =SIMP(statut='f',typ=fonction),
7426              C_N             =SIMP(statut='f',typ=fonction),
7427              C_C             =SIMP(statut='f',typ=fonction),
7428              C_M             =SIMP(statut='f',typ=fonction),
7429              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7430            ),
7431            META_PT         =FACT(statut='f',min=0,max=1,
7432              F1_K            =SIMP(statut='f',typ='R'),
7433              F2_K            =SIMP(statut='f',typ='R'),
7434              F3_K            =SIMP(statut='f',typ='R'),
7435              F4_K            =SIMP(statut='f',typ='R'),
7436              F1_D_F_META     =SIMP(statut='f',typ=fonction),
7437              F2_D_F_META     =SIMP(statut='f',typ=fonction),
7438              F3_D_F_META     =SIMP(statut='f',typ=fonction),
7439              F4_D_F_META     =SIMP(statut='f',typ=fonction),
7440              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7441              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="META",into=("META",) ),
7442            ),
7443            META_RE         =FACT(statut='f',min=0,max=1,
7444              C_F1_THETA      =SIMP(statut='f',typ='R'),
7445              C_F2_THETA      =SIMP(statut='f',typ='R'),
7446              C_F3_THETA      =SIMP(statut='f',typ='R'),
7447              C_F4_THETA      =SIMP(statut='f',typ='R'),
7448              F1_C_THETA      =SIMP(statut='f',typ='R'),
7449              F2_C_THETA      =SIMP(statut='f',typ='R'),
7450              F3_C_THETA      =SIMP(statut='f',typ='R'),
7451              F4_C_THETA      =SIMP(statut='f',typ='R'),
7452            ),
7453 #
7454 # comportement fluide
7455 #
7456            FLUIDE          =FACT(statut='f',min=0,max=1,
7457              regles=(EXCLUS('CELE_C','CELE_R'),),
7458              RHO             =SIMP(statut='o',typ='R'),
7459              CELE_C          =SIMP(statut='f',typ='C'),
7460              CELE_R          =SIMP(statut='f',typ='R'),
7461            ),
7462            PORO_JOINT      =FACT(statut='f',min=0,max=1,
7463              RHO_FLUI        =SIMP(statut='o',typ='R'),
7464              ENTRO_FLUI      =SIMP(statut='o',typ='R'),
7465              BIOT_M          =SIMP(statut='o',typ='R'),
7466              C_0             =SIMP(statut='o',typ='R'),
7467              T_R             =SIMP(statut='o',typ='R'),
7468              ALPHA_M         =SIMP(statut='o',typ='R'),
7469              LAMBDA_T        =SIMP(statut='o',typ='R'),
7470              LAMBDA_H        =SIMP(statut='o',typ='R'),
7471              SOURCE_INIT     =SIMP(statut='o',typ='R'),
7472              OMEGA_0         =SIMP(statut='o',typ='R'),
7473            ),
7474            THM_LIQU        =FACT(statut='f',min=0,max=1,
7475              RHO             =SIMP(statut='o',typ='R'),
7476              UN_SUR_K        =SIMP(statut='f',typ='R'),
7477              ALPHA           =SIMP(statut='f',typ='R'),
7478              CP              =SIMP(statut='f',typ='R'),
7479              VISC            =SIMP(statut='f',typ=fonction),
7480              D_VISC_TEMP     =SIMP(statut='f',typ=fonction),
7481              LAMBDA          =SIMP(statut='f',typ=fonction),
7482              D_LAMBDA_TEMP   =SIMP(statut='f',typ=fonction),
7483              COEF_HENRY      =SIMP(statut='f',typ='R'),
7484              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7485            ),
7486            THM_GAZ         =FACT(statut='f',min=0,max=1,
7487              MASS_MOL        =SIMP(statut='f',typ='R'),
7488              CP              =SIMP(statut='f',typ='R'),
7489              VISC            =SIMP(statut='f',typ=fonction),
7490              D_VISC_TEMP     =SIMP(statut='f',typ=fonction),
7491              LAMBDA          =SIMP(statut='f',typ=fonction),
7492              D_LAMBDA_TEMP   =SIMP(statut='f',typ=fonction),
7493              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7494            ),
7495            THM_VAPE_GAZ    =FACT(statut='f',min=0,max=1,
7496              MASS_MOL        =SIMP(statut='f',typ='R'),
7497              CP              =SIMP(statut='f',typ='R'),
7498              VISC            =SIMP(statut='f',typ=fonction),
7499              D_VISC_TEMP     =SIMP(statut='f',typ=fonction),
7500              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7501            ),
7502            THM_INIT        =FACT(statut='f',min=0,max=1,
7503              TEMP            =SIMP(statut='o',typ='R'),
7504              PRE1            =SIMP(statut='o',typ='R'),
7505              PRE2            =SIMP(statut='o',typ='R'),
7506              PORO            =SIMP(statut='o',typ='R'),
7507              PRES_VAPE       =SIMP(statut='o',typ='R'),
7508              DEGR_SATU       =SIMP(statut='f',typ='R'),
7509              PRES_ATMO       =SIMP(statut='f',typ='R'),
7510            ),
7511            THM_DIFFU       =FACT(statut='f',min=0,max=1,
7512              R_GAZ           =SIMP(statut='o',typ='R'),
7513              RHO             =SIMP(statut='f',typ='R'),
7514              CP              =SIMP(statut='f',typ='R'),
7515              BIOT_COEF       =SIMP(statut='f',typ='R'),
7516              SATU_PRES       =SIMP(statut='f',typ=fonction),
7517              D_SATU_PRES     =SIMP(statut='f',typ=fonction),
7518              PESA_X          =SIMP(statut='f',typ='R'),
7519              PESA_Y          =SIMP(statut='f',typ='R'),
7520              PESA_Z          =SIMP(statut='f',typ='R'),
7521              PERM_IN         =SIMP(statut='f',typ=fonction),
7522              PERM_LIQU       =SIMP(statut='f',typ=fonction),
7523              D_PERM_LIQU_SATU=SIMP(statut='f',typ=fonction),
7524              PERM_GAZ        =SIMP(statut='f',typ=fonction),
7525              D_PERM_SATU_GAZ =SIMP(statut='f',typ=fonction),
7526              D_PERM_PRES_GAZ =SIMP(statut='f',typ=fonction),
7527              FICK            =SIMP(statut='f',typ=fonction),
7528              D_FICK_TEMP     =SIMP(statut='f',typ=fonction),
7529              D_FICK_GAZ_PRES =SIMP(statut='f',typ=fonction),
7530              LAMBDA          =SIMP(statut='f',typ=fonction),
7531              D_LAMBDA_TEMP   =SIMP(statut='f',typ=fonction),
7532              SIGMA_T         =SIMP(statut='f',typ=fonction),
7533              D_SIGMA_T       =SIMP(statut='f',typ=fonction),
7534              PERM_G_INTR     =SIMP(statut='f',typ=fonction),
7535              CHAL_VAPO       =SIMP(statut='f',typ=fonction),
7536              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7537              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="SAT",into=("SAT",) ),
7538              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="PORO",into=("PORO",) ),
7539              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="PGAZ",into=("PGAZ",) ),
7540              VERI_P5         =SIMP(statut='c',typ='TXM',defaut="PCAP",into=("PCAP",) ),
7541            ),
7542 #
7543 # courbes et coefficients associés à la fatigue et au dommage
7544 #
7545            FATIGUE         =FACT(statut='f',min=0,max=1,
7546              regles=(PRESENT_ABSENT('WOHLER','A_BASQUIN','BETA_BASQUIN'),
7547                      PRESENT_ABSENT('WOHLER','A0','A1','A2','A3','SL'),
7548                      PRESENT_ABSENT('A_BASQUIN','A0','A1','A2','A3','SL'),
7549                      ENSEMBLE('A_BASQUIN','BETA_BASQUIN'),
7550                      ENSEMBLE('A0','A1','A2','A3','SL'),
7551                      PRESENT_PRESENT('A0','E_REFE'),
7552                      ENSEMBLE('D0','TAU0'),),
7553              WOHLER          =SIMP(statut='f',typ=fonction),
7554              A_BASQUIN       =SIMP(statut='f',typ='R'),
7555              BETA_BASQUIN    =SIMP(statut='f',typ='R'),
7556              A0              =SIMP(statut='f',typ='R'),
7557              A1              =SIMP(statut='f',typ='R'),
7558              A2              =SIMP(statut='f',typ='R'),
7559              A3              =SIMP(statut='f',typ='R'),
7560              SL              =SIMP(statut='f',typ='R'),
7561              MANSON_COFFIN   =SIMP(statut='f',typ=fonction),
7562              E_REFE          =SIMP(statut='f',typ='R'),
7563              D0              =SIMP(statut='f',typ='R'),
7564              TAU0            =SIMP(statut='f',typ='R'),
7565              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="SIGM",into=("SIGM",) ),
7566              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",) ),
7567            ),
7568            DOMMA_LEMAITRE  =FACT(statut='f',min=0,max=1,
7569              S               =SIMP(statut='o',typ=fonction),
7570              EPSP_SEUIL      =SIMP(statut='o',typ='R'),
7571              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7572            ),
7573            CISA_PLAN_CRIT  =FACT(statut='f',min=0,max=1,
7574              MATAKE_A        =SIMP(statut='o',typ='R'),
7575              MATAKE_B        =SIMP(statut='o',typ='R'),
7576              ENDU_FT         =SIMP(statut='o',typ='R',val_min=1.0E0,val_max=1.7321E0),
7577            ),
7578 #
7579 # autres comportements ...
7580 #
7581            WEIBULL         =FACT(statut='f',min=0,max=1,
7582              M               =SIMP(statut='o',typ='R'),
7583              VOLU_REFE       =SIMP(statut='o',typ='R'),
7584              SIGM_REFE       =SIMP(statut='o',typ='R'),
7585              SEUIL_EPSP_CUMU =SIMP(statut='f',typ='R',defaut= 1.0E-6),
7586            ),
7587            WEIBULL_FO      =FACT(statut='f',min=0,max=1,
7588              M               =SIMP(statut='o',typ='R'),
7589              VOLU_REFE       =SIMP(statut='o',typ='R'),
7590              SIGM_CNV        =SIMP(statut='o',typ='R'),
7591              SIGM_REFE       =SIMP(statut='o',typ=fonction),
7592              SEUIL_EPSP_CUMU =SIMP(statut='f',typ='R',defaut= 1.0E-6),
7593              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7594            ),
7595            CONTACT         =FACT(statut='f',min=0,max=1,
7596              E_N             =SIMP(statut='o',typ='R'),
7597              E_T             =SIMP(statut='f',typ='R',defaut= 0.E+0),
7598              COULOMB         =SIMP(statut='f',typ='R',defaut= 0.E+0),
7599            ),
7600            NON_LOCAL       =FACT(statut='f',min=0,max=1,
7601              LONG_CARA       =SIMP(statut='o',typ='R'),
7602              COEF_RIGI_MINI  =SIMP(statut='f',typ='R'),
7603            ),
7604            RUPT_FRAG       =FACT(statut='f',min=0,max=1,
7605              GC              =SIMP(statut='o',typ='R'),
7606              SIGM_C          =SIMP(statut='f',typ='R'),
7607              SAUT_C          =SIMP(statut='f',typ='R'),
7608            ),
7609            RCCM            =FACT(statut='f',min=0,max=1,
7610              SY_02           =SIMP(statut='f',typ='R'),
7611              SM              =SIMP(statut='f',typ='R'),
7612              SU              =SIMP(statut='f',typ='R'),
7613              SC              =SIMP(statut='f',typ='R'),
7614              SH              =SIMP(statut='f',typ='R'),
7615              N_KE            =SIMP(statut='f',typ='R'),
7616              M_KE            =SIMP(statut='f',typ='R'),
7617            ),
7618            RCCM_FO         =FACT(statut='f',min=0,max=1,
7619              SY_02           =SIMP(statut='f',typ=fonction),
7620              SM              =SIMP(statut='f',typ=fonction),
7621              SU              =SIMP(statut='f',typ=fonction),
7622              S               =SIMP(statut='f',typ=fonction),
7623              N_KE            =SIMP(statut='f',typ=fonction),
7624              M_KE            =SIMP(statut='f',typ=fonction),
7625              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7626            ),
7627            LAIGLE          =FACT(statut='f',min=0,max=1,
7628              GAMMA_ULT       =SIMP(statut='o',typ='R'),
7629              GAMMA_E         =SIMP(statut='o',typ='R'),
7630              M_ULT           =SIMP(statut='o',typ='R'),
7631              M_E             =SIMP(statut='o',typ='R'),
7632              A_E             =SIMP(statut='o',typ='R'),
7633              M_PIC           =SIMP(statut='o',typ='R'),
7634              A_PIC           =SIMP(statut='o',typ='R'),
7635              ETA             =SIMP(statut='o',typ='R'),
7636              SIGMA_C         =SIMP(statut='o',typ='R'),
7637              GAMMA           =SIMP(statut='o',typ='R'),
7638              KSI             =SIMP(statut='o',typ='R'),
7639              GAMMA_CJS       =SIMP(statut='o',typ='R'),
7640              SIGMA_P1        =SIMP(statut='o',typ='R'),
7641              SIGMA_P2        =SIMP(statut='o',typ='R'),
7642              PA              =SIMP(statut='o',typ='R'),
7643            ),
7644            INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
7645 )  ;
7646 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
7647 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7648 # ======================================================================
7649 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7650 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7651 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7652 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7653 # (AT YOUR OPTION) ANY LATER VERSION.
7654 #
7655 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7656 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7657 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7658 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7659 #
7660 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7661 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7662 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7663 # ======================================================================
7664 DEFI_MODELE_GENE=OPER(nom="DEFI_MODELE_GENE",op= 126,sd_prod=modele_gene,
7665                       docu="U4.65.02-e",reentrant='n',
7666             UIinfo={"groupes":("Matrices/vecteurs",)},
7667          SOUS_STRUC      =FACT(statut='o',min=1,max='**',
7668            NOM             =SIMP(statut='o',typ='TXM' ),
7669            MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
7670            ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
7671            TRANS           =SIMP(statut='f',typ='R',max=3),
7672          ),
7673          LIAISON         =FACT(statut='o',min=1,max='**',
7674            SOUS_STRUC_1    =SIMP(statut='o',typ='TXM' ),
7675            INTERFACE_1     =SIMP(statut='o',typ='TXM' ),
7676            SOUS_STRUC_2    =SIMP(statut='o',typ='TXM' ),
7677            INTERFACE_2     =SIMP(statut='o',typ='TXM' ),
7678          ),
7679          VERIF           =FACT(statut='f',min=1,max='**',
7680 #  dans la doc U stop_erreur est obligatoire
7681            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7682            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
7683            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7684          ),
7685 )  ;
7686 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
7687 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7688 # ======================================================================
7689 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7690 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7691 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7692 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7693 # (AT YOUR OPTION) ANY LATER VERSION.
7694 #
7695 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7696 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7697 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7698 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7699 #
7700 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7701 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7702 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7703 # ======================================================================
7704 DEFI_NAPPE=OPER(nom="DEFI_NAPPE",op=   4,sd_prod=fonction,
7705                 fr="Définition des valeurs d une fonction de deux variables réelles",
7706                 docu="U4.31.03-g",reentrant='n',
7707             UIinfo={"groupes":("Fonction",)},
7708          regles=(UN_PARMI('FONCTION','DEFI_FONCTION'),
7709                  EXCLUS('FONCTION','NOM_PARA_FONC',),
7710                  ENSEMBLE('NOM_PARA_FONC','DEFI_FONCTION'),),
7711          NOM_PARA        =SIMP(statut='o',typ='TXM',into=("TEMP","INST","X","Y","Z","FREQ","PULS",
7712                                                           "AMOR","EPAIS","TSEC","HYDR","SECH",
7713                                                           "SAT", "PGAZ","PCAP"
7714                                                           ) ),
7715          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
7716          PARA            =SIMP(statut='o',typ='R',max='**'),
7717          FONCTION        =SIMP(statut='f',typ=fonction,max='**' ),
7718          NOM_PARA_FONC   =SIMP(statut='f',typ='TXM',into=("TEMP","INST","X","Y","Z","EPSI","FREQ",
7719                                                           "PULS","AMOR","EPAIS","SAT", "PGAZ","PCAP") ),
7720          DEFI_FONCTION   =FACT(statut='f',max='**',
7721            VALE            =SIMP(statut='o',typ='R',max='**'),
7722            INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
7723            PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7724            PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7725          ),
7726          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
7727          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7728          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7729          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
7730          VERIF           =SIMP(statut='f',typ='TXM',into=("CROISSANT",) ),
7731          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7732 )  ;
7733 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
7734 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7735 # ======================================================================
7736 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7737 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7738 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7739 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7740 # (AT YOUR OPTION) ANY LATER VERSION.
7741 #
7742 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7743 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7744 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7745 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7746 #
7747 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7748 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7749 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7750 # ======================================================================
7751 DEFI_OBSTACLE=OPER(nom="DEFI_OBSTACLE",op=  73,sd_prod=obstacle
7752                     ,fr="Définition d un obstacle plan perpendiculaire à une structure filaire",
7753                      docu="U4.44.21-f",reentrant='n',
7754             UIinfo={"groupes":("Modélisation",)},
7755          TYPE            =SIMP(statut='o',typ='TXM',defaut="CERCLE",
7756                              into=("CERCLE","PLAN_Y","PLAN_Z","DISCRET",
7757                              "BI_CERCLE","BI_PLAN_Y","BI_PLAN_Z","BI_CERC_INT",
7758                              "CRAYON_900","CRAYON_1300","GUID_A_CARTE_900",
7759                              "GUID_B_CARTE_900","GUID_C_CARTE_900",
7760                              "GUID_D_CARTE_900","GUID_E_CARTE_900",
7761                              "GUID_F_CARTE_900","GUID_A_CARTE_1300",
7762                              "GUID_B_CARTE_1300","GUID_C_CARTE_1300",
7763                              "GUID_D_CARTE_1300","GUID_E_CARTE_1300",
7764                              "GUID_F_CARTE_1300","GUID_A_CARSP_900",
7765                              "GUID_B_CARSP_900","GUID_C_CARSP_900",
7766                              "GUID_D_CARSP_900","GUID_E_CARSP_900",
7767                              "GUID_F_CARSP_900","GUID_A_CARSP_1300",
7768                              "GUID_B_CARSP_1300","GUID_C_CARSP_1300",
7769                              "GUID_D_CARSP_1300","GUID_E_CARSP_1300",
7770                              "GUID_F_CARSP_1300","GUID_A_GCONT_900",
7771                              "GUID_B_GCONT_900","GUID_C_GCONT_900",
7772                              "GUID_D_GCONT_900","GUID_E_GCONT_900",
7773                              "GUID_F_GCONT_900","GUID_A_GCONT_1300",
7774                              "GUID_B_GCONT_1300","GUID_C_GCONT_1300",
7775                              "GUID_D_GCONT_1300","GUID_E_GCONT_1300",
7776                              "GUID_F_GCONT_1300","GUID_A_GCOMB_900",
7777                              "GUID_B_GCOMB_900","GUID_C_GCOMB_900",
7778                              "GUID_D_GCOMB_900","GUID_E_GCOMB_900",
7779                              "GUID_F_GCOMB_900","GUID_A_GCOMB_1300",
7780                              "GUID_B_GCOMB_1300","GUID_C_GCOMB_1300",
7781                              "GUID_D_GCOMB_1300","GUID_E_GCOMB_1300",
7782                              "GUID_F_GCOMB_1300",) ),
7783          VALE            =SIMP(statut='f',typ='R',max='**'),
7784          VERIF           =SIMP(statut='f',typ='TXM',defaut="FERME"),
7785 )  ;
7786 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
7787 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7788 # ======================================================================
7789 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7790 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7791 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7792 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7793 # (AT YOUR OPTION) ANY LATER VERSION.
7794 #
7795 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7796 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7797 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7798 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7799 #
7800 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7801 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7802 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7803 # ======================================================================
7804 # RESPONSABLE GNICOLAS G.NICOLAS
7805 DEFI_PARA_SENSI=OPER(nom="DEFI_PARA_SENSI",op=   2,sd_prod=para_sensi,
7806                     fr="Définition d'un paramètre de sensibilité",
7807                     ang="Definition of a sensitive parameter",
7808                     docu="U4.31.06-a",reentrant='n',
7809             UIinfo={"groupes":("Fonction",)},
7810          NOM_RESU        =SIMP(statut='c',typ='TXM',into=("TOUTRESU",),defaut="TOUTRESU",
7811                                fr="Nom du concept créé",
7812                                ang="Name of the concept"),
7813          VALE            =SIMP(statut='o',typ='R',max=1,
7814                                fr="Valeur du parametre",
7815                                ang="Value of the parameter"),
7816          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7817 )  ;
7818 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
7819 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7820 # ======================================================================
7821 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7822 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7823 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7824 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7825 # (AT YOUR OPTION) ANY LATER VERSION.
7826 #
7827 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7828 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7829 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7830 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7831 #
7832 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7833 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7834 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7835 # ======================================================================
7836 DEFI_SPEC_TURB=OPER(nom="DEFI_SPEC_TURB",op= 145,sd_prod=spectre,
7837                     fr="Définition d'un spectre d'excitation turbulente",
7838                     docu="U4.44.31-d",reentrant='n',
7839             UIinfo={"groupes":("Modélisation",)},
7840          regles=(UN_PARMI('SPEC_LONG_COR_1','SPEC_LONG_COR_2','SPEC_LONG_COR_3',
7841                           'SPEC_LONG_COR_4','SPEC_CORR_CONV_1','SPEC_CORR_CONV_2',
7842                           'SPEC_FONC_FORME','SPEC_EXCI_POINT'),),
7843          SPEC_LONG_COR_1 =FACT(statut='f',max=1,
7844            LONG_COR        =SIMP(statut='o',typ='R' ),
7845            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
7846            VISC_CINE       =SIMP(statut='o',typ='R' ),
7847          ),
7848          SPEC_LONG_COR_2 =FACT(statut='f',max=1,
7849            regles=(ENSEMBLE('FREQ_COUP','PHI0','BETA' ),),
7850            LONG_COR        =SIMP(statut='o',typ='R' ),
7851            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
7852            FREQ_COUP       =SIMP(statut='f',typ='R',defaut= 0.1 ),
7853            PHI0            =SIMP(statut='f',typ='R',defaut= 1.5E-3 ),
7854            BETA            =SIMP(statut='f',typ='R',defaut= 2.7 ),
7855          ),
7856          SPEC_LONG_COR_3 =FACT(statut='f',max=1,
7857            regles=(ENSEMBLE('PHI0_1','BETA_1','PHI0_2','BETA_2','FREQ_COUP'),),
7858            LONG_COR        =SIMP(statut='o',typ='R' ),
7859            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
7860            FREQ_COUP       =SIMP(statut='f',typ='R',defaut= 0.2 ),
7861            PHI0_1          =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
7862            BETA_1          =SIMP(statut='f',typ='R',defaut= 0.5 ),
7863            PHI0_2          =SIMP(statut='f',typ='R',defaut= 4.E-5 ),
7864            BETA_2          =SIMP(statut='f',typ='R',defaut= 3.5 ),
7865          ),
7866          SPEC_LONG_COR_4 =FACT(statut='f',max=1,
7867            regles=(ENSEMBLE('BETA','GAMMA'),),
7868            LONG_COR        =SIMP(statut='o',typ='R' ),
7869            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
7870            TAUX_VIDE       =SIMP(statut='o',typ='R' ),
7871            BETA            =SIMP(statut='f',typ='R',defaut= 2. ),
7872            GAMMA           =SIMP(statut='f',typ='R',defaut= 4. ),
7873          ),
7874          SPEC_CORR_CONV_1=FACT(statut='f',max=1,
7875            LONG_COR_1      =SIMP(statut='o',typ='R' ),
7876            LONG_COR_2      =SIMP(statut='f',typ='R' ),
7877            VITE_FLUI       =SIMP(statut='o',typ='R' ),
7878            RHO_FLUI        =SIMP(statut='o',typ='R' ),
7879            FREQ_COUP       =SIMP(statut='f',typ='R' ),
7880            K               =SIMP(statut='f',typ='R',defaut= 5.8E-3 ),
7881            D_FLUI          =SIMP(statut='o',typ='R' ),
7882            COEF_VITE_FLUI_A=SIMP(statut='f',typ='R' ),
7883            COEF_VITE_FLUI_O=SIMP(statut='f',typ='R' ),
7884            METHODE         =SIMP(statut='f',typ='TXM',defaut="GENERALE",
7885                                  into=("AU_YANG","GENERALE","CORCOS") ),
7886          ),
7887          SPEC_CORR_CONV_2=FACT(statut='f',max=1,
7888            FONCTION        =SIMP(statut='o',typ=fonction ),
7889            VITE_FLUI       =SIMP(statut='o',typ='R' ),
7890            FREQ_COUP       =SIMP(statut='f',typ='R' ),
7891            METHODE         =SIMP(statut='f',typ='TXM',defaut="GENERALE",
7892                                  into=("AU_YANG","GENERALE","CORCOS",) ),
7893            COEF_VITE_FLUI_A=SIMP(statut='f',typ='R' ),
7894            COEF_VITE_FLUI_O=SIMP(statut='f',typ='R' ),
7895          ),
7896          SPEC_FONC_FORME =FACT(statut='f',max=1,
7897            regles=(UN_PARMI('INTE_SPEC','GRAPPE_1'),
7898                    ENSEMBLE('INTE_SPEC','FONCTION'),),
7899            INTE_SPEC       =SIMP(statut='f',typ=tabl_intsp ),
7900            FONCTION        =SIMP(statut='f',typ=fonction,max='**'),
7901            GRAPPE_1        =SIMP(statut='f',typ='TXM',into=("DEBIT_180","DEBIT_300",) ),
7902            NOEUD           =SIMP(statut='o',typ=no),
7903            CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
7904            MODELE          =SIMP(statut='o',typ=modele ),
7905          ),
7906          SPEC_EXCI_POINT =FACT(statut='f',max=1,
7907            regles=(UN_PARMI('INTE_SPEC','GRAPPE_2'),),
7908            INTE_SPEC       =SIMP(statut='f',typ=tabl_intsp ),
7909            GRAPPE_2        =SIMP(statut='f',typ='TXM',
7910                                  into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC",) ),
7911 #  Quels sont les statuts des mots cles à l interieur des deux blocs qui suivent
7912            b_inte_spec =BLOC(condition = "INTE_SPEC != None",
7913              NATURE          =SIMP(statut='o',typ='TXM',max='**',into=("FORCE","MOMENT",) ),
7914              ANGL            =SIMP(statut='o',typ='R',max='**'),
7915              NOEUD           =SIMP(statut='o',typ=no,max='**'),
7916            ),
7917            b_grappe_2      =BLOC(condition = "GRAPPE_2 != None",
7918              RHO_FLUI        =SIMP(statut='o',typ='R' ),
7919              NOEUD           =SIMP(statut='o',typ=no),
7920            ),
7921            CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
7922            MODELE          =SIMP(statut='o',typ=modele ),
7923          ),
7924          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7925 )  ;
7926 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
7927 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7928 # ======================================================================
7929 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7930 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7931 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7932 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7933 # (AT YOUR OPTION) ANY LATER VERSION.
7934 #
7935 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7936 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7937 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7938 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7939 #
7940 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7941 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7942 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7943 # ======================================================================
7944 DEFI_SQUELETTE=OPER(nom="DEFI_SQUELETTE",op= 110,sd_prod=squelette,
7945                     fr="Définition d un maillage de visualisation",
7946                     docu="U4.24.01-f",reentrant='n',
7947             UIinfo={"groupes":("Maillage",)},
7948          regles=(UN_PARMI('MODE_CYCL','MODELE_GENE','MAILLAGE'),
7949                  PRESENT_PRESENT('MODE_CYCL','SECTEUR'),
7950                  EXCLUS('SOUS_STRUC','SECTEUR'),
7951                  PRESENT_PRESENT('NOM_GROUP_MA','MODELE_GENE'),
7952                  PRESENT_PRESENT('NOM_GROUP_MA','SOUS_STRUC'),),
7953          MODE_CYCL       =SIMP(statut='f',typ=mode_cycl ),
7954          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
7955          SQUELETTE       =SIMP(statut='f',typ=squelette ),
7956          RECO_GLOBAL     =FACT(statut='f',min=1,max='**',
7957            regles=(EXCLUS('TOUT','GROUP_NO_1'),
7958                    PRESENT_PRESENT('GROUP_NO_1','GROUP_NO_2'),
7959                    PRESENT_PRESENT('GROUP_NO_1','SOUS_STRUC_1'),
7960                    PRESENT_PRESENT('GROUP_NO_2','SOUS_STRUC_2'),
7961                    PRESENT_PRESENT('SOUS_STRUC_1','SOUS_STRUC_2'),),
7962            TOUT            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",) ),
7963            GROUP_NO_1      =SIMP(statut='f',typ=grno),
7964            SOUS_STRUC_1    =SIMP(statut='f',typ='TXM' ),
7965            GROUP_NO_2      =SIMP(statut='f',typ=grno),
7966            SOUS_STRUC_2    =SIMP(statut='f',typ='TXM' ),
7967            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
7968            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7969            DIST_REFE       =SIMP(statut='f',typ='R' ),
7970          ),
7971          NOM_GROUP_MA    =FACT(statut='f',min=1,max='**',
7972            NOM             =SIMP(statut='o',typ='TXM' ),
7973            SOUS_STRUC      =SIMP(statut='o',typ='TXM' ),
7974            GROUP_MA        =SIMP(statut='o',typ=grma),
7975          ),
7976          EXCLUSIF        =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7977          MAILLAGE        =SIMP(statut='f',typ=maillage ),
7978          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
7979          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
7980          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7981          TRANS           =SIMP(statut='f',typ='R',min=3,max=3),
7982          ANGL_NAUT       =SIMP(statut='f',typ='R',min=3,max=3),
7983          SOUS_STRUC      =FACT(statut='f',min=1,max='**',
7984            NOM             =SIMP(statut='f',typ='TXM' ),
7985            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
7986            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
7987            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7988          ),
7989          SECTEUR         =FACT(statut='f',min=1,max='**',
7990            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
7991            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
7992            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7993          ),
7994          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7995 )  ;
7996 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
7997 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7998 # ======================================================================
7999 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8000 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8001 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8002 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8003 # (AT YOUR OPTION) ANY LATER VERSION.
8004 #
8005 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8006 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8007 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8008 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8009 #
8010 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8011 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8012 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8013 # ======================================================================
8014 DEFI_TEXTURE=OPER(nom="DEFI_TEXTURE",op= 181,sd_prod=tabl_texture,
8015                   fr=" ",docu="U4.43.05-b",reentrant='n',
8016             UIinfo={"groupes":("Modélisation",)},
8017          SYST_GLISSEMENT =FACT(statut='o',min=3,max=3,
8018            N               =SIMP(statut='o',typ='R',min=12,max=12 ),
8019            L               =SIMP(statut='o',typ='R',max='**' ),
8020          ),
8021          PLAN            =FACT(statut='o',min=40,max=40,
8022            ANGL_NAUT       =SIMP(statut='o',typ='R',max='**' ),
8023            PROPORTION      =SIMP(statut='o',typ='R' ),
8024          ),
8025          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
8026 )  ;
8027 #& MODIF COMMANDE  DATE 03/12/2002   AUTEUR DURAND C.DURAND
8028 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8029 # ======================================================================
8030 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8031 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8032 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8033 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8034 # (AT YOUR OPTION) ANY LATER VERSION.
8035 #
8036 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8037 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8038 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8039 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8040 #
8041 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8042 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8043 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8044 # ======================================================================
8045 DEFI_THER_JOULE=OPER(nom="DEFI_THER_JOULE",op= 121,sd_prod=fonction,docu="U4.mk.20-d",reentrant='n',
8046             UIinfo={"groupes":("Outils métier",)},
8047                     fr="Calculer la fonction d évolution temporelle de température due à l effet JOULE dans un cable",
8048          LIST_INST       =SIMP(statut='o',typ=listr8),
8049          INST_CC_INIT    =SIMP(statut='f',typ='R',defaut= 0.0E+0 ),
8050          INST_CC_FIN     =SIMP(statut='f',typ='R',defaut= 1.0E+10),
8051          INST_RENC_INIT  =SIMP(statut='f',typ='R',defaut= 1.0E+10),
8052          INST_RENC_FIN   =SIMP(statut='f',typ='R',defaut= 1.0E+10),
8053          TEMP_EXT_POSE   =SIMP(statut='f',typ='R',defaut= 15.0E+0),
8054          TEMP_EXT        =SIMP(statut='f',typ='R',defaut= 15.0E+0),
8055          TEMP_RESI_REF   =SIMP(statut='f',typ='R',defaut= 20.0E+0),
8056          PARA_COND_1D    =FACT(statut='f',min=1,max='**',
8057            INTE_CC         =SIMP(statut='f',typ='R',defaut= 0.0E+0),
8058            INTE_RENC       =SIMP(statut='f',typ='R',defaut= 0.0E+0),
8059            A               =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8060            SECTION         =SIMP(statut='f',typ='TXM',defaut="CERCLE",into=("CERCLE",) ),
8061            RESI_R0         =SIMP(statut='f',typ='R',defaut= 0.0E+0),
8062            RESI_R1         =SIMP(statut='f',typ='R',defaut= 0.E+0),
8063            RHO_CP          =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8064            COEF_H          =SIMP(statut='f',typ='R',defaut= 40.0E+0),
8065            TEMP_INIT       =SIMP(statut='f',typ='R',defaut= 15.0E+0),
8066          ),
8067 )  ;
8068
8069 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
8070 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8071 # ======================================================================
8072 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8073 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8074 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8075 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8076 # (AT YOUR OPTION) ANY LATER VERSION.
8077 #
8078 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8079 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8080 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8081 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8082 #
8083 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8084 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8085 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8086 # ======================================================================
8087 DEFI_TRC=OPER(nom="DEFI_TRC",op=94,sd_prod=tabl_trc,docu="U4.43.04-f",reentrant='n',
8088             UIinfo={"groupes":("Modélisation",)},
8089               fr="Définition d un diagramme de transformations en refroidissement continu d un acier",
8090          HIST_EXP        =FACT(statut='o',min=1,max='**',
8091            VALE            =SIMP(statut='o',typ='R',max='**'),
8092          ),
8093          TEMP_MS         =FACT(statut='o',min=1,max='**',
8094            SEUIL           =SIMP(statut='o',typ='R'),
8095            AKM             =SIMP(statut='o',typ='R'),
8096            BKM             =SIMP(statut='o',typ='R'),
8097            TPLM            =SIMP(statut='o',typ='R'),
8098          ),
8099          GRAIN_AUST      =FACT(statut='f',min=1,max='**',
8100            DREF           =SIMP(statut='f',typ='R'),
8101            A              =SIMP(statut='f',typ='R'),
8102          ),
8103 )  ;
8104 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
8105 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8106 # ======================================================================
8107 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8108 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8109 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8110 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8111 # (AT YOUR OPTION) ANY LATER VERSION.
8112 #
8113 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8114 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8115 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8116 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8117 #
8118 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8119 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8120 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8121 # ======================================================================
8122 def defi_valeur_prod(self,IS=None,R8=None,TX=None,C8=None,LS=None):
8123   if IS != None  : return entier
8124   if R8 != None  : return reel
8125   if TX != None  : return chaine
8126   if C8 != None  : return complexe
8127   if LS != None  : return liste
8128   raise AsException("type de concept resultat non prevu")
8129
8130 DEFI_VALEUR=MACRO(nom="DEFI_VALEUR",op=-4,sd_prod=defi_valeur_prod,
8131                  fr="Affectation d une valeur à une variable Superviseur",
8132                  docu="U4.31.04-f",reentrant='f',
8133             UIinfo={"groupes":("Fonction",)},
8134          regles=(UN_PARMI('IS','R8','TX','C8','LS'),),
8135          IS              =SIMP(statut='f',typ='I',max='**'),
8136          R8              =SIMP(statut='f',typ='R',max='**'),
8137          TX              =SIMP(statut='f',typ='TXM',max='**'),
8138          C8              =SIMP(statut='f',typ='C',max='**'),
8139          LS              =SIMP(statut='f',typ='L',max='**'),
8140 )  ;
8141 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
8142 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8143 # ======================================================================
8144 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8145 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8146 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8147 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8148 # (AT YOUR OPTION) ANY LATER VERSION.
8149 #
8150 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8151 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8152 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8153 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8154 #
8155 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8156 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8157 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8158 # ======================================================================
8159 DEFUFI=PROC(nom="DEFUFI",op=21,docu="U4.12.01-e",
8160             UIinfo={"groupes":("Gestion du travail",)},
8161             fr="Modification / ajout d une unité logique en sortie en complément de celles définies dans DEBUT",
8162          IMPRESSION      =FACT(statut='o',min=1,max='**',
8163            NOM             =SIMP(statut='o',typ='TXM',max='**'),
8164            UNITE           =SIMP(statut='o',typ='I' ),
8165          ),
8166 )  ;
8167 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
8168 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8169 # ======================================================================
8170 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8171 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8172 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8173 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8174 # (AT YOUR OPTION) ANY LATER VERSION.
8175 #
8176 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8177 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8178 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8179 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8180 #
8181 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8182 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8183 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8184 # ======================================================================
8185 DEPL_INTERNE=OPER(nom="DEPL_INTERNE",op=89,sd_prod=cham_no_depl_r,docu="U4.62.02-f",reentrant='n',
8186             UIinfo={"groupes":("Matrices/vecteurs",)},
8187                   fr="Récupération du champ de déplacement interne à une sous-structure",
8188          DEPL_GLOBAL     =SIMP(statut='o',typ=cham_no_depl_r),
8189          MAILLE          =SIMP(statut='o',typ=ma,max=1),
8190          NOM_CAS         =SIMP(statut='f',typ='TXM',defaut=" "),
8191 )  ;
8192 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
8193 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8194 # ======================================================================
8195 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8196 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8197 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8198 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8199 # (AT YOUR OPTION) ANY LATER VERSION.
8200 #
8201 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8202 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8203 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8204 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8205 #
8206 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8207 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8208 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8209 # ======================================================================
8210 DETRUIRE=PROC(nom="DETRUIRE",op=-7,docu="U4.14.01-e",
8211             UIinfo={"groupes":("Gestion du travail",)},
8212               fr="Destruction d un concept utilisateur dans la base GLOBALE",
8213              op_init=ops.detruire,
8214             CONCEPT     =FACT(statut='o',min=01,
8215             NOM         =SIMP(statut='o',typ=assd,max='**'),
8216         ),
8217 );
8218 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
8219 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8220 # ======================================================================
8221 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8222 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8223 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8224 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8225 # (AT YOUR OPTION) ANY LATER VERSION.
8226 #
8227 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8228 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8229 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8230 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8231 #
8232 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8233 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8234 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8235 # ======================================================================
8236 DIST_LIGN_3D=OPER(nom="DIST_LIGN_3D",op= 133,sd_prod=fonction,docu="U4.mk.30-d",reentrant='n',
8237             UIinfo={"groupes":("Outils métier",)},
8238                   fr="Calcul sous forme d une fonction du temps de la distance minimale entre deux structures filaires",
8239       regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),
8240               UN_PARMI('GROUP_MA_2','POIN_FIXE'),),
8241          MODELE          =SIMP(statut='o',typ=modele),
8242          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,evol_noli) ),
8243          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",)),
8244          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
8245          INST            =SIMP(statut='f',typ='R',max='**'),
8246          LIST_INST       =SIMP(statut='f',typ=listr8),
8247          LIST_ORDRE      =SIMP(statut='f',typ=listis),
8248          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
8249          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8250          GROUP_MA_1      =SIMP(statut='o',typ=grma,max='**'),
8251          GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
8252          POIN_FIXE       =SIMP(statut='f',typ='R',min=3,max=3),
8253          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
8254 )  ;
8255 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
8256 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8257 # ======================================================================
8258 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8259 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8260 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8261 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8262 # (AT YOUR OPTION) ANY LATER VERSION.
8263 #
8264 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8265 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8266 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8267 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8268 #
8269 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8270 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8271 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8272 # ======================================================================
8273 DYNA_ALEA_MODAL=OPER(nom="DYNA_ALEA_MODAL",op= 131,sd_prod=tabl_intsp
8274                     ,fr="Calcule la réponse spectrale d une structure linéaire sous une excitation connue par sa DSP",
8275                      docu="U4.53.22-e",reentrant='n',
8276             UIinfo={"groupes":("Résolution",)},
8277          BASE_MODALE     =FACT(statut='o',min=1,max=1,
8278            regles=(UN_PARMI('NUME_ORDRE','BANDE'),),
8279            MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
8280            BANDE           =SIMP(statut='f',typ='R',max=2),
8281            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
8282            b_bande =BLOC(condition = "BANDE != None",
8283              AMOR_UNIF       =SIMP(statut='o',typ='R' ),
8284            ),
8285            b_nume_ordre =BLOC(condition = "NUME_ORDRE != None",
8286              AMOR_REDUIT     =SIMP(statut='o',typ='R',max='**'),
8287            ),
8288          ),
8289          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,)),
8290 # MODE_STAT devrait etre dans EXCIT car est utile et obligatoire que si NOM_CMP=depl_r, on pourrait
8291 # ainsi rajouter un bloc du genre  b_mod_stat= BLOC(condition = "(GRANDEUR == None) or (GRANDEUR == 'DEPL_R')",
8292          EXCIT           =FACT(statut='o',min=1,max=1,
8293            INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
8294            NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
8295            OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG",) ),
8296            MODAL           =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8297            b_modal_non = BLOC(condition = "(MODAL == None) or (MODAL == 'NON')",
8298              regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I'),),
8299              NUME_ORDRE_I    =SIMP(statut='f',typ='I',max='**'),
8300              NOEUD_I         =SIMP(statut='f',typ=no,max='**'),
8301              b_nume_ordre_i  =BLOC(condition = "NUME_ORDRE_I != None",
8302                regles=(EXCLUS('CHAM_NO','NOEUD'),),
8303 # on devrait rajouter EXCLUS('GRANDEUR','CHAM_NO') pour eviter ambiguite car CHAM_NO => GRANDEUR='EFFO'
8304 # cela impliquerait d'enlever la valeur par defaut a GRANDEUR
8305                NUME_ORDRE_J    =SIMP(statut='o',typ='I',max='**'),
8306                CHAM_NO         =SIMP(statut='f',typ=cham_no),
8307                NOEUD           =SIMP(statut='f',typ=no,max='**'),
8308                b_noeud         =BLOC(condition = "NOEUD != None",
8309                   NOM_CMP         =SIMP(statut='o',typ='TXM',max='**'),
8310                 ),
8311                GRANDEUR        =SIMP(statut='f',typ='TXM',defaut="DEPL_R",
8312                            into=("DEPL_R","EFFO","SOUR_DEBI_VOLU","SOUR_DEBI_MASS","SOUR_PRESS","SOUR_FORCE")),
8313 # que se passe-t-il en cas d'incompatibilite entre GRANDEUR et NOM_CMP
8314                DERIVATION      =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ) ),
8315              ),
8316              b_noeud_i       =BLOC(condition = "NOEUD_I != None",
8317                NOEUD_J         =SIMP(statut='o',typ=no,max='**'),
8318                NOM_CMP_I       =SIMP(statut='o',typ='TXM',max='**'),
8319                NOM_CMP_J       =SIMP(statut='o',typ='TXM',max='**'),
8320                NOEUD           =SIMP(statut='o',typ=no,max='**'),
8321                NOM_CMP         =SIMP(statut='o',typ='TXM',max='**'),
8322 # ne serait-il pas bien que NOEUD et NOM_CMP soient facultatifs, car l'information peut etre contenue dans
8323 # NOEUD_I, NOM_CMP_I ...  => modif. du Fortran
8324                GRANDEUR        =SIMP(statut='f',typ='TXM',defaut="DEPL_R",
8325                            into=("DEPL_R","EFFO","SOUR_DEBI_VOLU","SOUR_DEBI_MASS","SOUR_PRESS","SOUR_FORCE")),
8326 # que se passe-t-il en cas d'incompatibilite entre GRANDEUR et NOM_CMP_I
8327                DERIVATION      =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ) ),
8328              ),
8329            ),
8330            b_modal_oui = BLOC(condition = "(MODAL == 'OUI')",
8331 # dans ce cas, y-a-t-il vraiment la possibilite d'une matrice interspectrale avec plusieurs termes
8332              NUME_ORDRE_I    =SIMP(statut='o',typ='I',max='**'),
8333              NUME_ORDRE_J    =SIMP(statut='o',typ='I',max='**'),
8334              GRANDEUR        =SIMP(statut='f',typ='TXM',defaut="DEPL_R",
8335                            into=("DEPL_R","EFFO","SOUR_DEBI_VOLU","SOUR_DEBI_MASS","SOUR_PRESS","SOUR_FORCE")),
8336              DERIVATION      =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ) ),
8337 # dans le cas MODAL=OUI, GRANDEUR peut-il etre different de EFFO et doit il etre impose a EFFO   On devrait
8338 # pouvoir supprimer GRANDEUR et DERIVATION ici
8339            ),
8340
8341          ),
8342          REPONSE         =FACT(statut='f',min=1,max=1,
8343            regles=( ENSEMBLE('FREQ_MIN','FREQ_MAX'),),
8344            DERIVATION      =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ,) ),
8345            OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
8346            FREQ_MIN        =SIMP(statut='f',typ='R' ),
8347            FREQ_MAX        =SIMP(statut='f',typ='R' ),
8348            PAS             =SIMP(statut='f',typ='R' ),
8349            b_defaut_freq   =BLOC(condition = "FREQ_MIN == NONE",
8350               FREQ_EXCIT      =SIMP(statut='f',typ='TXM',defaut="AVEC",into=("AVEC","SANS") ),
8351               NB_POIN_MODE    =SIMP(statut='f',typ='I',defaut= 50 ),
8352            ),
8353          ),
8354          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8355          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
8356 )  ;
8357 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
8358 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8359 # ======================================================================
8360 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8361 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8362 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8363 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8364 # (AT YOUR OPTION) ANY LATER VERSION.
8365 #
8366 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8367 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8368 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8369 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8370 #
8371 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8372 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8373 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8374 # ======================================================================
8375 def dyna_line_harm_prod(MATR_MASS,**args):
8376   if AsType(MATR_MASS) == matr_asse_depl_r : return dyna_harmo
8377   if AsType(MATR_MASS) == matr_asse_depl_c : return dyna_harmo
8378   if AsType(MATR_MASS) == matr_asse_pres_c : return acou_harmo
8379   if AsType(MATR_MASS) == matr_asse_gene_r : return harm_gene
8380   raise AsException("type de concept resultat non prevu")
8381
8382 DYNA_LINE_HARM=OPER(nom="DYNA_LINE_HARM",op=  60,sd_prod=dyna_line_harm_prod,
8383                     fr="Réponse dynamique complexe d un système à une excitation harmonique",
8384                     docu="U4.53.11-f",reentrant='n',
8385             UIinfo={"groupes":("Résolution",)},
8386          regles=(PRESENT_ABSENT('AMOR_REDUIT','MATR_AMOR'),
8387                  PRESENT_ABSENT('AMOR_REDUIT','LIST_AMOR'),
8388                  PRESENT_ABSENT('MATR_AMOR','LIST_AMOR'),
8389                  UN_PARMI('FREQ','LIST_FREQ'),),
8390          MODELE          =SIMP(statut='f',typ=modele ),
8391          CHAM_MATER      =SIMP(statut='f',typ=cham_mater ),
8392          CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
8393          MATR_MASS       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_pres_c,matr_asse_gene_r ) ),
8394          MATR_RIGI       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_pres_c
8395                                               ,matr_asse_gene_r,matr_asse_gene_c ) ),
8396          MATR_AMOR       =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_pres_c,matr_asse_gene_r ) ),
8397          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
8398          LIST_AMOR       =SIMP(statut='f',typ=listr8 ),
8399          MATR_IMPE_PHI   =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_gene_r) ),
8400          FREQ            =SIMP(statut='f',typ='R',max='**'),
8401          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
8402          TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI",)),
8403          NOM_CHAM        =SIMP(statut='f',typ='TXM',max=3,into=("DEPL","VITE","ACCE") ),
8404          EXCIT           =FACT(statut='o',min=1,max='**',
8405            regles=(UN_PARMI('VECT_ASSE','CHARGE'),
8406                    UN_PARMI('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
8407            VECT_ASSE       =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_pres_c,vect_asse_gene ) ),
8408            CHARGE          =SIMP(statut='f',typ=char_meca ),
8409            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
8410            FONC_MULT_C     =SIMP(statut='f',typ=fonction_c ),
8411            COEF_MULT_C     =SIMP(statut='f',typ='C' ),
8412            FONC_MULT       =SIMP(statut='f',typ=fonction ),
8413            COEF_MULT       =SIMP(statut='f',typ='R' ),
8414            PHAS_DEG        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8415            PUIS_PULS       =SIMP(statut='f',typ='I',defaut= 0 ),
8416          ),
8417          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8418          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
8419                                fr="Liste des paramètres de sensibilité.",
8420                                ang="List of sensitivity parameters"),
8421 )  ;
8422 # Rajouter test icompatibilite vect_asse et sensibilite
8423 # Peut-on aussi rajouter ici le test d incompatibilite charge complexe - derivation
8424 #  presents dans le Fortran
8425 #& MODIF COMMANDE  DATE 14/10/2003   AUTEUR ACBHHCD G.DEVESA
8426 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8427 # ======================================================================
8428 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8429 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8430 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8431 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8432 # (AT YOUR OPTION) ANY LATER VERSION.
8433 #
8434 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8435 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8436 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8437 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8438 #
8439 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8440 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8441 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8442 # ======================================================================
8443 DYNA_LINE_TRAN=OPER(nom="DYNA_LINE_TRAN",op=  48,sd_prod=dyna_trans,
8444                     fr="Réponse temporelle d un système à une excitation transitoire",
8445                     docu="U4.53.02-g",reentrant='f',
8446             UIinfo={"groupes":("Résolution",)},
8447 #         regles=(UN_PARMI('WILSON','DIFF_CENTRE','ADAPT'),),
8448          regles=(UN_PARMI('NEWMARK','WILSON','DIFF_CENTRE','ADAPT'),),
8449          MODELE          =SIMP(statut='f',typ=modele ),
8450          CHAM_MATER      =SIMP(statut='f',typ=cham_mater ),
8451          CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
8452          MATR_MASS       =SIMP(statut='o',typ=matr_asse_depl_r ),
8453          MATR_RIGI       =SIMP(statut='o',typ=matr_asse_depl_r ),
8454          MATR_AMOR       =SIMP(statut='f',typ=matr_asse_depl_r ),
8455          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
8456          NEWMARK         =FACT(statut='f',min=1,max=1,
8457            ALPHA           =SIMP(statut='f',typ='R',defaut= 0.25 ),
8458            DELTA           =SIMP(statut='f',typ='R',defaut= 0.5 ),
8459          ),
8460          WILSON          =FACT(statut='f',min=1,max=1,
8461            THETA           =SIMP(statut='f',typ='R',defaut= 1.4 ),
8462          ),
8463          DIFF_CENTRE     =FACT(statut='f',min=1,max=1,
8464          ),
8465          ADAPT           =FACT(statut='f',min=1,max=1,
8466          ),
8467          ETAT_INIT       =FACT(statut='f',min=1,max=1,
8468            regles=(AU_MOINS_UN('DYNA_TRANS', 'DEPL_INIT', 'VITE_INIT',),
8469                    PRESENT_ABSENT('DYNA_TRANS', 'DEPL_INIT', 'VITE_INIT'),),
8470            DYNA_TRANS      =SIMP(statut='f',typ=dyna_trans ),
8471            b_dyna_trans    =BLOC(condition = "DYNA_TRANS != None",
8472              regles=(EXCLUS('NUME_INIT','INST_INIT' ),),
8473              NUME_INIT       =SIMP(statut='f',typ='I' ),
8474              INST_INIT       =SIMP(statut='f',typ='R' ),
8475              b_inst_init     =BLOC(condition = "INST_INIT != None",
8476                PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
8477                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8478              ),
8479            ),
8480            DEPL_INIT       =SIMP(statut='f',typ=(cham_no_depl_r) ),
8481            VITE_INIT       =SIMP(statut='f',typ=(cham_no_depl_r) ),
8482          ),
8483          EXCIT           =FACT(statut='f',min=1,max='**',
8484            regles=(UN_PARMI('CHARGE','VECT_ASSE'),
8485                    EXCLUS('CHARGE','COEF_MULT'),
8486                    EXCLUS('FONC_MULT','COEF_MULT'),
8487                    EXCLUS('ACCE','COEF_MULT'),
8488                    PRESENT_ABSENT('ACCE','FONC_MULT'),
8489                    PRESENT_PRESENT('ACCE','VITE','DEPL'),
8490                    # PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),
8491                    ),
8492            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
8493            CHARGE          =SIMP(statut='f',typ=char_meca ),
8494            FONC_MULT       =SIMP(statut='f',typ=fonction ),
8495            COEF_MULT       =SIMP(statut='f',typ='R' ),
8496            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
8497            ACCE            =SIMP(statut='f',typ=fonction ),
8498            VITE            =SIMP(statut='f',typ=fonction ),
8499            DEPL            =SIMP(statut='f',typ=fonction ),
8500            MULT_APPUI      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8501            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
8502            NOEUD           =SIMP(statut='f',typ=no,max='**'),
8503            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
8504          ),
8505          AMOR_MODAL      =FACT(statut='f',min=1,max=1,
8506            MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
8507            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
8508            NB_MODE         =SIMP(statut='f',typ='I',defaut= 9999 ),
8509            REAC_VITE       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8510          ),
8511 #  ce n est pas le mot clesolveur standard
8512          SOLVEUR         =FACT(statut='d',min=1,max=1,
8513            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8514            NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
8515            STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8516            RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8517            NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
8518          ),
8519          INCREMENT       =FACT(statut='o',min=1,max='**',
8520            regles=(UN_PARMI('LIST_INST','FONC_INST','PAS'),),
8521            LIST_INST       =SIMP(statut='f',typ=listr8 ),
8522            FONC_INST       =SIMP(statut='f',typ=fonction ),
8523            PAS             =SIMP(statut='f',typ='R' ),
8524            b_pas           =BLOC(condition = "PAS != None",
8525                INST_INIT       =SIMP(statut='f',typ='R' ),
8526                INST_FIN        =SIMP(statut='f',typ='R' ),
8527            ),
8528            b_list_fonc     =BLOC(condition = "LIST_INST != None or FONC_INST != None",
8529                regles=(EXCLUS('INST_FIN','NUME_FIN'),),
8530                NUME_FIN        =SIMP(statut='f',typ='I' ),
8531                INST_FIN        =SIMP(statut='f',typ='R' ),
8532            ),
8533            VITE_MIN        =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
8534            COEF_MULT_PAS   =SIMP(statut='f',typ='R',defaut= 1.1 ),
8535            COEF_DIVI_PAS   =SIMP(statut='f',typ='R',defaut= 1.33334 ),
8536            PAS_LIMI_RELA   =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8537            NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
8538            NMAX_ITER_PAS   =SIMP(statut='f',typ='I',defaut= 16 ),
8539            PAS_CALCUL      =SIMP(statut='f',typ='I',defaut= 1 ),
8540          ),
8541          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
8542            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH', ),),
8543            LIST_ARCH       =SIMP(statut='f',typ=listis ),
8544            PAS_ARCH        =SIMP(statut='f',typ='I' ),
8545            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","VITE","ACCE") ),
8546          ),
8547          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8548          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
8549 )  ;
8550 #& MODIF COMMANDE  DATE 14/10/2003   AUTEUR ACBHHCD G.DEVESA
8551 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8552 # ======================================================================
8553 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8554 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8555 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8556 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8557 # (AT YOUR OPTION) ANY LATER VERSION.
8558 #
8559 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8560 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8561 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8562 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8563 #
8564 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8565 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8566 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8567 # ======================================================================
8568 DYNA_NON_LINE=OPER(nom="DYNA_NON_LINE",op= 70,sd_prod=evol_noli,reentrant='f',
8569                    fr="Analyse mécanique dynamique non linéaire",docu="U4.53.01-f",
8570             UIinfo={"groupes":("Résolution",)},
8571          regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS',),
8572                  UN_PARMI('NEWMARK','HHT', ),),
8573          MODELE          =SIMP(statut='o',typ=modele),
8574          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
8575          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,)),
8576          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
8577          EXCIT           =FACT(statut='o',min=1,max='**',
8578            regles=(PRESENT_ABSENT('FONC_MULT','ACCE'),
8579                    PRESENT_PRESENT('ACCE','VITE','DEPL'),
8580                    # PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),
8581                    ),
8582            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
8583                                  into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
8584            CHARGE          =SIMP(statut='o',typ=char_meca),
8585            FONC_MULT       =SIMP(statut='f',typ=fonction),
8586            DEPL            =SIMP(statut='f',typ=fonction),
8587            ACCE            =SIMP(statut='f',typ=fonction),
8588            VITE            =SIMP(statut='f',typ=fonction),
8589            MULT_APPUI      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8590            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
8591            NOEUD           =SIMP(statut='f',typ=no,max='**'),
8592            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
8593          ),
8594          AMOR_MODAL      =FACT(statut='f',min=1,max=1,
8595            MODE_MECA       =SIMP(statut='f',typ=mode_meca),
8596            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**' ),
8597            NB_MODE         =SIMP(statut='f',typ='I',defaut= 9999 ),
8598            REAC_VITE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8599          ),
8600          VARI_COMM           =FACT(statut='f',
8601            regles=(AU_MOINS_UN('IRRA',),),
8602            IRRA     =SIMP(statut='f',typ=evol_varc),
8603          ),
8604          COMP_INCR       =FACT(statut='f',min=1,max='**',
8605            RELATION        =SIMP(statut='o',typ='TXM',defaut="VMIS_ISOT_TRAC",
8606                                  into=( "ELAS",
8607                                         "VMIS_ISOT_TRAC",
8608                                         "VMIS_ISOT_LINE",
8609                                         "VMIS_ECMI_TRAC",
8610                                         "VMIS_ECMI_LINE",
8611                                         "LABORD_1D",
8612                                         "ENDO_FRAGILE",
8613                                         "ENDO_ISOT_BETON",
8614                                         "MAZARS",
8615                                         "RUPT_FRAG",
8616                                         "BARENBLATT",
8617                                         "META_P_IL",
8618                                         "META_P_IL_PT",
8619                                         "META_P_IL_RE",
8620                                         "META_P_IL_PT_RE",
8621                                         "META_V_IL",
8622                                         "META_V_IL_PT",
8623                                         "META_V_IL_RE",
8624                                         "META_V_IL_PT_RE",
8625                                         "META_P_INL",
8626                                         "META_P_INL_PT",
8627                                         "META_P_INL_RE",
8628                                         "META_P_INL_PT_RE",
8629                                         "META_V_INL",
8630                                         "META_V_INL_PT",
8631                                         "META_V_INL_RE",
8632                                         "META_V_INL_PT_RE",
8633                                         "META_P_CL",
8634                                         "META_P_CL_PT",
8635                                         "META_P_CL_RE",
8636                                         "META_P_CL_PT_RE",
8637                                         "META_V_CL",
8638                                         "META_V_CL_PT",
8639                                         "META_V_CL_RE",
8640                                         "META_V_CL_PT_RE",
8641                                         "VMIS_CINE_LINE",
8642                                         "VISC_TAHERI",
8643                                         "CHABOCHE",
8644 #DEBR                                        "VISCOCHAB",
8645                                         "VISC_CIN1_CHAB",
8646                                         "VISC_CIN2_CHAB",
8647                                         "POLY_CFC",
8648 #DEBR                                        "LMARC",
8649                                         "ROUSSELIER",
8650                                         "ROUSS_PR",
8651                                         "ROUSS_VISC",
8652                                         "VMIS_POU_LINE",
8653                                         "VMIS_POU_FLEJOU",
8654                                         "COULOMB",
8655                                         "ARME",
8656                                         "ASSE_CORN",
8657                                         "NORTON_HOFF",
8658                                         "LEMAITRE",
8659                                         "ZIRC_CYRA2",
8660                                         "ZIRC_EPRI",
8661                                         "ASSE_COMBU",
8662 #DEBR                                        "VENDOCHAB",
8663 #DEBR                                        "NADAI_B",
8664                                         "DIS_CONTACT",
8665                                         "DIS_CHOC",
8666                                         "DIS_GOUJ2E_PLAS",
8667                                         "DIS_GOUJ2E_ELAS",
8668                                         "GRILLE_ISOT_LINE",
8669                                         "GRILLE_CINE_LINE",
8670                                         "GRILLE_PINTO_MEN",
8671                                         "PINTO_MENEGOTTO",
8672                                         "CJS",
8673                                         "CAM_CLAY",
8674                                         "LAIGLE",
8675 #DEBR                                        "OHNO",
8676                                         "GRANGER_FP",
8677                                         "GRANGER_FP_V",
8678                                         "BAZANT_FD",
8679                                         "BETON_DOUBLE_DP",
8680                                         "KIT_HM",
8681                                         "KIT_HHM",
8682                                         "KIT_THH",
8683                                         "KIT_THV",
8684                                         "KIT_THM",
8685                                         "KIT_THHM",
8686                                         "VMIS_ASYM_LINE",
8687                                         "ELAS_THM",
8688 #DEBR                                        "SURF_ETAT_NSAT",
8689 #DEBR                                        "SURF_ETAT_SATU",
8690 #DEBR                                        "CAM_CLAY_THM",
8691                                         "KIT_DDI",
8692                                      ) ),
8693           ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8694           VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8695           VMIS_ISOT_LINE  =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8696           VMIS_ECMI_TRAC  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8697           VMIS_ECMI_LINE  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8698           LABORD_1D   =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
8699           ENDO_FRAGILE    =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8700           ENDO_ISOT_BETON =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8701           MAZARS          =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8702           RUPT_FRAG       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8703           BARENBLATT      =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8704           META_P_IL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8705           META_P_IL_PT       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8706           META_P_IL_RE       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8707           META_P_IL_PT_RE    =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8708           META_V_IL          =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8709           META_V_IL_PT       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8710           META_V_IL_RE       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8711           META_V_IL_PT_RE    =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8712           META_P_INL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8713           META_P_INL_PT      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8714           META_P_INL_RE      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8715           META_P_INL_PT_RE   =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8716           META_V_INL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8717           META_V_INL_PT      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8718           META_V_INL_RE      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8719           META_V_INL_PT_RE   =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8720           META_P_CL          =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8721           META_P_CL_PT       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8722           META_P_CL_RE       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8723           META_P_CL_PT_RE    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8724           META_V_CL          =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8725           META_V_CL_PT       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8726           META_V_CL_RE       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8727           META_V_CL_PT_RE    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8728           VMIS_CINE_LINE  =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
8729           CHABOCHE        =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
8730           VISCOCHAB       =SIMP(statut='c',typ='I',defaut=28,into=(28,)),
8731           VISC_CIN1_CHAB  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8732           VISC_CIN2_CHAB  =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
8733           POLY_CFC        =SIMP(statut='c',typ='I',defaut=1688,into=(1688,)),
8734           LMARC           =SIMP(statut='c',typ='I',defaut=20,into=(20,)),
8735           VISC_TAHERI     =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
8736           ROUSSELIER      =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
8737           ROUSS_PR        =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8738           ROUSS_VISC      =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8739           VMIS_POU_LINE   =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
8740           VMIS_POU_FLEJOU =SIMP(statut='c',typ='I',defaut=9 ,into=(9,)),
8741           COULOMB         =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8742           ASSE_CORN       =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8743           ARME            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8744           NORTON_HOFF     =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8745           LEMAITRE        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8746           ZIRC_CYRA2      =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8747           ZIRC_EPRI       =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8748           ASSE_COMBU      =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
8749           NADAI_B         =SIMP(statut='c',typ='I',defaut=34,into=(34,)),
8750           VENDOCHAB       =SIMP(statut='c',typ='I',defaut=10,into=(10,)),
8751           GRILLE_ISOT_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8752           GRILLE_CINE_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8753           GRILLE_PINTO_MEN=SIMP(statut='c',typ='I',defaut=16,into=(16,)),
8754           DIS_CONTACT     =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8755           DIS_CHOC        =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
8756           DIS_GOUJ2E_PLAS =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8757           DIS_GOUJ2E_ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8758           PINTO_MENEGOTTO =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8759           CJS             =SIMP(statut='c',typ='I',defaut=16,into=(16,)),
8760           CAM_CLAY        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8761           LAIGLE          =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8762           OHNO            =SIMP(statut='c',typ='I',defaut=32,into=(32,)),
8763           GRANGER_FP      =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
8764           GRANGER_FP_V    =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
8765           BAZANT_FD       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8766           BETON_DOUBLE_DP =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8767           KIT_HM          =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8768           KIT_HHM         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8769           KIT_THH         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8770           KIT_THV         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8771           KIT_THM         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8772           KIT_THHM        =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8773           VMIS_ASYM_LINE  =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8774
8775            RELATION_KIT    =SIMP(statut='f',typ='TXM',max='**',
8776                                  into=(
8777 # MECA
8778                                        "ELAS",
8779                                        "CJS",
8780                                        "CAM_CLAY",
8781                                        "LAIGLE",
8782                                        "ELAS_THM",
8783 #DEBR                                       "SURF_ETAT_NSAT",
8784 #DEBR                                       "SURF_ETAT_SATU",
8785 #DEBR                                       "CAM_CLAY_THM",
8786 # THMC
8787                                        "GAZ",
8788                                        "LIQU_SATU",
8789 #DEBR                                       "LIQU_SATU_GAT",
8790                                        "LIQU_GAZ_ATM",
8791                                        "LIQU_VAPE_GAZ",
8792                                        "LIQU_VAPE",
8793 #DEBR                                       "LIQU_NSAT_GAT",
8794                                        "LIQU_GAZ",
8795 # THER
8796                                        "THER_HOMO",
8797                                        "THER_POLY",
8798 # HYDR
8799                                        "HYDR_UTIL",
8800                                        "HYDR",
8801 # MECA_META
8802                                        "ACIER",
8803                                        "ZIRC",
8804 # MECA KIT_DDI
8805                                        "VMIS_ISOT_TRAC",
8806                                        "VMIS_ISOT_LINE",
8807                                        "VMIS_ISOT_CINE",
8808                                        "GRANGER_FP",
8809                                        "GRANGER_FP_V",
8810                                        "ROUSSELIER",
8811                                        "CHABOCHE",
8812 #DEBR                                       "OHNO",
8813 #DEBR                                       "NADAI_B",
8814                                        "BETON_DOUBLE_DP",
8815                                        ) ),
8816            ELAS_THM        =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8817            SURF_ETAT_NSAT  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8818            SURF_ETAT_SATU  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8819            CAM_CLAY_THM    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8820            GAZ             =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8821            LIQU_SATU       =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8822            LIQU_SATU_GAT   =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8823            LIQU_GAZ_ATM    =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8824            LIQU_VAPE_GAZ   =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8825            LIQU_VAPE       =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8826            LIQU_NSAT_GAT   =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8827            LIQU_GAZ        =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8828            THER_HOMO       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8829            THER_POLY       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8830            HYDR_UTIL       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8831            HYDR            =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8832            ACIER           =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
8833            ZIRC            =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8834
8835            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC","SIMO_MIEHE","GREEN_GR","GREEN",)),
8836            ALGO_C_PLAN     =SIMP(statut='f',typ='TXM',defaut="ANALYTIQUE",into=("DEBORST","ANALYTIQUE",)),
8837       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
8838            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8839            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
8840            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
8841          ),
8842          COMP_ELAS       =FACT(statut='f',min=1,max='**',
8843            RELATION        =SIMP(statut='o',typ='TXM',defaut="ELAS",
8844                                  into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
8845                                        "ELAS_POUTRE_GR","CABLE")),
8846            ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8847            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8848            ELAS_VMIS_LINE  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8849            ELAS_POUTRE_GR  =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8850            CABLE           =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8851            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GREEN","GREEN_GR",) ),
8852       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
8853            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8854            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
8855            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
8856          ),
8857 #-------------------------------------------------------------------
8858          ETAT_INIT       =FACT(statut='f',min=1,max=1,
8859            regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','VITE','SIGM','VARI','VARI_NON_LOCAL',),
8860                    EXCLUS('EVOL_NOLI','DEPL',),
8861                    EXCLUS('EVOL_NOLI','VITE'),
8862                    EXCLUS('EVOL_NOLI','SIGM',),
8863                    EXCLUS('EVOL_NOLI','VARI',),
8864                    EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
8865                    EXCLUS('NUME_ORDRE','INST'), ),
8866            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
8867            VITE            =SIMP(statut='f',typ=cham_no_depl_r),
8868            SIGM            =SIMP(statut='f',typ=(cham_elem_sief_r,carte_sief_r)),
8869            VARI            =SIMP(statut='f',typ=cham_elem_vari_r),
8870            VARI_NON_LOCAL  =SIMP(statut='f',typ=cham_no_vanl_r),
8871            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
8872            NUME_ORDRE      =SIMP(statut='f',typ='I'),
8873            INST            =SIMP(statut='f',typ='R'),
8874            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
8875            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8876            NUME_DIDI       =SIMP(statut='f',typ='I'),
8877            INST_ETAT_INIT  =SIMP(statut='f',typ='R'),
8878          ),
8879 #-------------------------------------------------------------------
8880          INCREMENT       =FACT(statut='o',min=1,max=1,
8881            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
8882                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
8883            LIST_INST       =SIMP(statut='o',typ=listr8),
8884            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
8885                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
8886            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
8887            INST_INIT       =SIMP(statut='f',typ='R'),
8888            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
8889            INST_FIN        =SIMP(statut='f',typ='R'),
8890            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
8891            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
8892            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
8893            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8894            OPTI_LIST_INST  =SIMP(statut='f',typ='TXM',into=("INCR_MAXI",),),
8895            NOM_CHAM        =SIMP(statut='f',typ='TXM',),
8896            NOM_CMP         =SIMP(statut='f',typ='TXM',),
8897            VALE            =SIMP(statut='f',typ='R'),
8898          ),
8899 #-------------------------------------------------------------------
8900          NEWMARK         =FACT(statut='f',min=1,max=1,
8901            ALPHA           =SIMP(statut='f',typ='R',defaut= 0.25),
8902            DELTA           =SIMP(statut='f',typ='R',defaut= 0.5),
8903          ),
8904          HHT             =FACT(statut='f',min=1,max=1,
8905            ALPHA           =SIMP(statut='f',typ='R'
8906                                 ,defaut= -0.29999999999999999 ),
8907          ),
8908          NEWTON          =FACT(statut='d',min=1,max=1,
8909            REAC_INCR       =SIMP(statut='f',typ='I',defaut= 1 ),
8910            PREDICTION      =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE") ),
8911            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
8912            REAC_ITER       =SIMP(statut='f',typ='I',defaut= 0),
8913            PAS_MINI_ELAS   =SIMP(statut='f',typ='R',defaut=0.0E+0),
8914          ),
8915          SOLVEUR         =FACT(statut='d',min=1,max=1,
8916            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
8917            b_mult_front    =BLOC(condition= "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
8918              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
8919            ),
8920            b_ldlt          =BLOC(condition= "METHODE == 'LDLT'",fr="Paramètres de la méthode LDLT",
8921              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8922            ),
8923            b_ldlt_mult     =BLOC(condition="METHODE == 'LDLT' or METHODE == 'MULT_FRONT'",
8924                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
8925              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
8926              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","DECOUPE") ),
8927            ),
8928            b_gcpc          =BLOC(condition="METHODE == 'GCPC'",fr="Paramètres de la méthode du gradient conjugué",
8929              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
8930              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
8931              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
8932              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8933              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
8934            ),
8935            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8936            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8937          ),
8938 #-------------------------------------------------------------------
8939          RECH_LINEAIRE   =FACT(statut='f',min=1,max=1,
8940            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
8941            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 3),
8942          ),
8943          PILOTAGE        =FACT(statut='f',min=1,max=1,
8944            regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
8945            TYPE            =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","PRED_ELAS_INCR","DEFORMATION") ),
8946            COEF_MULT       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8947            ETA_PILO_MAX    =SIMP(statut='f',typ='R'),
8948            ETA_PILO_MIN    =SIMP(statut='f',typ='R'),
8949            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8950            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
8951            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
8952            NOEUD           =SIMP(statut='f',typ=no,max='**'),
8953            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
8954            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**' ),
8955                          ),
8956          CONVERGENCE     =FACT(statut='d',min=1,max=1,
8957            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
8958            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
8959            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
8960            ITER_GLOB_ELAS  =SIMP(statut='f',typ='I',defaut=25),
8961            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
8962            RESI_INTE_RELA  =SIMP(statut='f',typ='R'
8963                                 ,defaut= 1.0E-6),
8964            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
8965            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut= 0 ),
8966            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
8967            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
8968                                  into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
8969          ),
8970 #-------------------------------------------------------------------
8971          OPTION          =SIMP(statut='f',typ='TXM',max='**',defaut="ELNO",
8972                                into=("SIEF_ELNO_ELGA","VARI_ELNO_ELGA","EFGE_ELNO_CART","ELNO","SANS") ),
8973          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
8974            regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
8975                    EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
8976            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
8977            INST            =SIMP(statut='f',typ='R',max='**' ),
8978            PAS_ARCH        =SIMP(statut='f',typ='I' ),
8979            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
8980            ARCH_ETAT_INIT  =SIMP(statut='f',typ='TXM',into=("OUI",)),
8981            NUME_INIT       =SIMP(statut='f',typ='I'),
8982            DETR_NUME_SUIV  =SIMP(statut='f',typ='TXM',into=("OUI",)),
8983            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**',
8984            into=("DEPL","SIEF_ELGA","VARI_ELGA","ACCE","VITE","VARI_NON_LOCAL","LANL_ELGA")),
8985          ),
8986          OBSERVATION     =FACT(statut='f',min=1,max='**',
8987            regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
8988                    PRESENT_PRESENT('MAILLE','POINT'),),
8989            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
8990
8991 into=("DEPL","VITE","ACCE","SIEF_ELGA","VARI_ELGA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU") ),
8992            NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
8993            LIST_ARCH       =SIMP(statut='f',typ=listis),
8994            LIST_INST       =SIMP(statut='f',typ=listr8),
8995            INST            =SIMP(statut='f',typ='R',max='**' ),
8996            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
8997            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8998            PAS_OBSE        =SIMP(statut='f',typ='I'),
8999            NOEUD           =SIMP(statut='f',typ=no,max='**'),
9000            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
9001            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
9002            POINT           =SIMP(statut='f',typ='I',max='**'),
9003          ),
9004 #-------------------------------------------------------------------
9005            SOLV_NON_LOCAL  =FACT(statut='f',min=1,max=1,
9006              METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
9007              b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
9008                RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
9009              ),
9010              b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
9011                RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
9012              ),
9013              b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
9014                                     fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
9015                NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
9016                STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9017              ),
9018              b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
9019                PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
9020                NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
9021                RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
9022                NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
9023              ),
9024              EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9025            ),
9026            LAGR_NON_LOCAL  =FACT(statut='f',max=1,
9027              ITER_DUAL_MAXI  =SIMP(statut='f',typ='I',defaut= 50),
9028              RESI_DUAL_ABSO  =SIMP(statut='o',typ='R'),
9029              RESI_PRIM_ABSO  =SIMP(statut='o',typ='R'),
9030              R               =SIMP(statut='f',typ='R',defaut= 1000.),
9031              ITER_PRIM_MAXI  =SIMP(statut='f',typ='I',defaut= 10),
9032            ),
9033 #-------------------------------------------------------------------
9034          PARM_THETA      =SIMP(statut='f',typ='R'
9035                               ,defaut= 1. ),
9036 #-------------------------------------------------------------------
9037          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
9038          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9039 )  ;
9040 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
9041 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9042 # ======================================================================
9043 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9044 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9045 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9046 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9047 # (AT YOUR OPTION) ANY LATER VERSION.
9048 #
9049 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9050 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9051 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9052 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9053 #
9054 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9055 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9056 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9057 # ======================================================================
9058 DYNA_SPEC_MODAL=OPER(nom="DYNA_SPEC_MODAL",op= 147,sd_prod=tabl_intsp,
9059                      fr="Calcul de la réponse par recombinaison modale d'une structure linéaire pour une excitation aléatoire",
9060                      docu="U4.53.23-d",reentrant='n',
9061             UIinfo={"groupes":("Résolution",)},
9062          BASE_ELAS_FLUI  =SIMP(statut='o',typ=melasflu ),
9063          EXCIT           =FACT(statut='o',max=1,
9064            INTE_SPEC_GENE  =SIMP(statut='o',typ=tabl_intsp ),
9065          ),
9066          OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
9067          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9068 )  ;
9069 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
9070 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9071 # ======================================================================
9072 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9073 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9074 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9075 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9076 # (AT YOUR OPTION) ANY LATER VERSION.
9077 #
9078 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9079 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9080 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9081 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9082 #
9083 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9084 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9085 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9086 # ======================================================================
9087 DYNA_TRAN_MODAL=OPER(nom="DYNA_TRAN_MODAL",op=  74,sd_prod=tran_gene,
9088                      fr="Réponse dynamique transitoire en coordonnées généralisées par recombinaison modale",
9089                      docu="U4.53.21-f",reentrant='f',
9090             UIinfo={"groupes":("Résolution",)},
9091       regles=(EXCLUS('AMOR_REDUIT','AMOR_GENE','LIST_AMOR'),
9092               PRESENT_ABSENT('MODE_STAT','MODE_CORR'),),
9093          METHODE         =SIMP(statut='f',typ='TXM',defaut="EULER",
9094                                into=("EULER","NEWMARK","DEVOGE","ADAPT","ITMI") ),
9095          MASS_GENE       =SIMP(statut='o',typ=matr_asse_gene_r ),
9096          RIGI_GENE       =SIMP(statut='o',typ=matr_asse_gene_r ),
9097          AMOR_GENE       =SIMP(statut='f',typ=matr_asse_gene_r ),
9098          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
9099          LIST_AMOR       =SIMP(statut='f',typ=listr8 ),
9100          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc) ),
9101          MODE_CORR       =SIMP(statut='f',typ=(mult_elas,mode_stat_acce) ,),
9102
9103          ETAT_INIT       =FACT(statut='f',min=1,max=1,
9104            regles=(EXCLUS('RESU_GENE','DEPL_INIT_GENE'),
9105                    EXCLUS('RESU_GENE','VITE_INIT_GENE'),),
9106            RESU_GENE       =SIMP(statut='f',typ=tran_gene ),
9107            b_resu_gene     =BLOC(condition = "RESU_GENE != None",
9108              INST_INIT       =SIMP(statut='f',typ='R' ),
9109              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9110              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
9111            ),
9112            DEPL_INIT_GENE  =SIMP(statut='f',typ=vect_asse_gene ),
9113            VITE_INIT_GENE  =SIMP(statut='f',typ=vect_asse_gene ),
9114          ),
9115          INCREMENT       =FACT(statut='o',min=1,max='**',
9116            INST_INIT       =SIMP(statut='f',typ='R' ),
9117            INST_FIN        =SIMP(statut='o',typ='R' ),
9118            PAS             =SIMP(statut='f',typ='R' ),
9119            VERI_PAS        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9120            VITE_MIN        =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
9121            COEF_MULT_PAS   =SIMP(statut='f',typ='R',defaut= 1.1 ),
9122            COEF_DIVI_PAS   =SIMP(statut='f',typ='R',defaut= 1.3333334 ),
9123            PAS_LIMI_RELA   =SIMP(statut='f',typ='R',defaut= 1.0E-6 ),
9124            NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
9125            NMAX_ITER_PAS   =SIMP(statut='f',typ='I',defaut= 16 ),
9126          ),
9127          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
9128            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH'),),
9129            LIST_ARCH       =SIMP(statut='f',typ=listis ),
9130            PAS_ARCH        =SIMP(statut='f',typ='I' ),
9131          ),
9132
9133          NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 20 ),
9134          RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
9135          LAMBDA          =SIMP(statut='f',typ='R',defaut= 10. ),
9136
9137          EXCIT           =FACT(statut='f',min=1,max='**',
9138            regles=(UN_PARMI('FONC_MULT','COEF_MULT','ACCE'),
9139                    PRESENT_PRESENT('ACCE','VITE','DEPL'),
9140                    PRESENT_PRESENT('D_FONC_DT','D_FONC_DT2'),
9141                    PRESENT_ABSENT('NUME_MODE','VECT_GENE','COEF_MULT'),
9142                    EXCLUS('MULT_APPUI','CORR_STAT'),
9143                    PRESENT_ABSENT('MULT_APPUI','COEF_MULT'),
9144                    PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
9145            VECT_GENE       =SIMP(statut='f',typ=vect_asse_gene ),
9146            NUME_MODE       =SIMP(statut='f',typ='I' ),
9147            FONC_MULT       =SIMP(statut='f',typ=fonction ),
9148            COEF_MULT       =SIMP(statut='f',typ='R' ),
9149            ACCE            =SIMP(statut='f',typ=fonction ),
9150            VITE            =SIMP(statut='f',typ=fonction ),
9151            DEPL            =SIMP(statut='f',typ=fonction ),
9152            MULT_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9153            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
9154            b_loca          =BLOC(condition= "DIRECTION != None",
9155              regles=(EXCLUS('NOEUD','GROUP_NO'),),
9156              NOEUD           =SIMP(statut='f',typ=no,max='**'),
9157              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
9158            ),
9159            CORR_STAT       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9160            D_FONC_DT       =SIMP(statut='f',typ=fonction ),
9161            D_FONC_DT2      =SIMP(statut='f',typ=fonction ),
9162          ),
9163          CHOC            =FACT(statut='f',min=1,max='**',
9164            regles=(UN_PARMI('NOEUD_1','GROUP_NO_1' ),
9165                    PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
9166                    PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
9167            INTITULE        =SIMP(statut='f',typ='TXM' ),
9168            NOEUD_1         =SIMP(statut='f',typ=no),
9169            NOEUD_2         =SIMP(statut='f',typ=no),
9170            GROUP_NO_1      =SIMP(statut='f',typ=grno),
9171            GROUP_NO_2      =SIMP(statut='f',typ=grno),
9172            OBSTACLE        =SIMP(statut='o',typ=obstacle ),
9173            ORIG_OBST       =SIMP(statut='f',typ='R',min=3,max=3),
9174            NORM_OBST       =SIMP(statut='o',typ='R',min=3,max=3),
9175            ANGL_VRIL       =SIMP(statut='f',typ='R' ),
9176            JEU             =SIMP(statut='f',typ='R',defaut= 1. ),
9177            DIST_1          =SIMP(statut='f',typ='R',val_min=0.E+0 ),
9178            DIST_2          =SIMP(statut='f',typ='R',val_min=0.E+0 ),
9179            SOUS_STRUC_1    =SIMP(statut='f',typ='TXM' ),
9180            SOUS_STRUC_2    =SIMP(statut='f',typ='TXM' ),
9181            REPERE          =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
9182            RIGI_NOR        =SIMP(statut='f',typ='R' ),
9183            AMOR_NOR        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9184            RIGI_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9185            AMOR_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9186            COULOMB         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9187
9188            LAME_FLUIDE     =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9189            b_lame          =BLOC(condition="LAME_FLUIDE=='OUI'",
9190                ALPHA           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9191                BETA            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9192                CHI             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9193                DELTA           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9194            ),
9195          ),
9196          VERI_CHOC       =FACT(statut='f',min=1,max='**',
9197            STOP_CRITERE    =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9198            SEUIL           =SIMP(statut='f',typ='R',defaut= 0.5 ),
9199          ),
9200          FLAMBAGE        =FACT(statut='f',min=1,max='**',
9201            regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
9202                    PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
9203                    PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
9204            NOEUD_1         =SIMP(statut='f',typ=no),
9205            NOEUD_2         =SIMP(statut='f',typ=no),
9206            GROUP_NO_1      =SIMP(statut='f',typ=grno),
9207            GROUP_NO_2      =SIMP(statut='f',typ=grno),
9208            OBSTACLE        =SIMP(statut='o',typ=obstacle ),
9209            ORIG_OBST       =SIMP(statut='f',typ='R',max='**'),
9210            NORM_OBST       =SIMP(statut='o',typ='R',max='**'),
9211            ANGL_VRIL       =SIMP(statut='f',typ='R' ),
9212            JEU             =SIMP(statut='f',typ='R',defaut= 1. ),
9213            DIST_1          =SIMP(statut='f',typ='R' ),
9214            DIST_2          =SIMP(statut='f',typ='R' ),
9215            REPERE          =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
9216            RIGI_NOR        =SIMP(statut='f',typ='R' ),
9217            FNOR_CRIT       =SIMP(statut='f',typ='R' ),
9218            FNOR_POST_FL    =SIMP(statut='f',typ='R' ),
9219            RIGI_NOR_POST_FL=SIMP(statut='f',typ='R' ),
9220          ),
9221          ANTI_SISM       =FACT(statut='f',min=1,max='**',
9222            regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
9223                    UN_PARMI('NOEUD_2','GROUP_NO_2'),
9224                    PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
9225                    PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
9226            NOEUD_1         =SIMP(statut='f',typ=no),
9227            NOEUD_2         =SIMP(statut='f',typ=no),
9228            GROUP_NO_1      =SIMP(statut='f',typ=grno),
9229            GROUP_NO_2      =SIMP(statut='f',typ=grno),
9230            RIGI_K1         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9231            RIGI_K2         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9232            SEUIL_FX        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9233            C               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9234            PUIS_ALPHA      =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9235            DX_MAX          =SIMP(statut='f',typ='R',defaut= 1. ),
9236          ),
9237          RELA_EFFO_DEPL  =FACT(statut='f',min=1,max='**',
9238            NOEUD           =SIMP(statut='o',typ=no),
9239            SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
9240            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
9241            RELATION        =SIMP(statut='o',typ=fonction ),
9242          ),
9243          RELA_TRANSIS    =FACT(statut='f',min=1,max='**',
9244            NOEUD           =SIMP(statut='o',typ=no),
9245            SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
9246            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
9247            RELATION        =SIMP(statut='o',typ=fonction ),
9248          ),
9249          RELA_EFFO_VITE  =FACT(statut='f',min=1,max='**',
9250            NOEUD           =SIMP(statut='o',typ=no),
9251            SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
9252            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
9253            RELATION        =SIMP(statut='o',typ=fonction ),
9254          ),
9255          b_itmi          =BLOC(condition = "METHODE=='ITMI'",
9256                 regles=(ENSEMBLE('BASE_ELAS_FLUI','NUME_VITE_FLUI'),),
9257                 BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu ),
9258                 NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
9259                 ETAT_STAT       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9260                 PREC_DUREE      =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
9261                 CHOC_FLUI       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9262                 NB_MODE         =SIMP(statut='f',typ='I' ),
9263                 NB_MODE_FLUI    =SIMP(statut='f',typ='I' ),
9264                 NB_MODE_DIAG    =SIMP(statut='f',typ='I' ),
9265                 TS_REG_ETAB     =SIMP(statut='f',typ='R' ),
9266          ),
9267          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
9268          IMPRESSION      =FACT(statut='f',min=1,max='**',
9269            regles=(EXCLUS('TOUT','NIVEAU'),),
9270            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9271            NIVEAU          =SIMP(statut='f',typ='TXM',into=("DEPL_LOC","VITE_LOC","FORC_LOC","TAUX_CHOC") ),
9272            INST_INIT       =SIMP(statut='f',typ='R' ),
9273            INST_FIN        =SIMP(statut='f',typ='R' ),
9274          ),
9275          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9276  )  ;
9277 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
9278 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9279 # ======================================================================
9280 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9281 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9282 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9283 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9284 # (AT YOUR OPTION) ANY LATER VERSION.
9285 #
9286 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9287 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9288 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9289 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9290 #
9291 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9292 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9293 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9294 # ======================================================================
9295 # RESPONSABLE VABHHTS J.PELLET
9296 ENGENDRE_TEST=PROC(nom="ENGENDRE_TEST",op=178,docu="U4.92.11-c",
9297             UIinfo={"groupes":("Impression",)},
9298       regles=(UN_PARMI('TOUT','CO'),),
9299          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
9300          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9301          CO              =SIMP(statut='f',typ=assd,max='**'),
9302          TYPE_TEST       =SIMP(statut='f',typ='TXM',defaut="SOMME",into=("SOMME","RESUME") ),
9303          FORMAT_R        =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
9304          PREC_R          =SIMP(statut='f',typ='TXM',defaut="1.E-5"),
9305 )  ;
9306 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
9307 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9308 # ======================================================================
9309 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9310 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9311 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9312 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9313 # (AT YOUR OPTION) ANY LATER VERSION.
9314 #
9315 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9316 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9317 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9318 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9319 #
9320 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9321 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9322 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9323 # ======================================================================
9324 EXEC_LOGICIEL=PROC(nom="EXEC_LOGICIEL",op= 183,fr="",docu="U7.00.01-b",
9325             UIinfo={"groupes":("Impression",)},
9326          LOGICIEL        =SIMP(statut='f',typ='TXM' ),
9327          ARGUMENT        =FACT(statut='f',min=1,max='**',
9328            NOM_PARA        =SIMP(statut='f',typ='TXM' ),
9329          ),
9330 )  ;
9331 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
9332 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9333 # ======================================================================
9334 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9335 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9336 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9337 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9338 # (AT YOUR OPTION) ANY LATER VERSION.
9339 #
9340 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9341 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9342 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9343 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9344 #
9345 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9346 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9347 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9348 # ======================================================================
9349 def extr_mode_prod(FILTRE_MODE,**args):
9350   vale=FILTRE_MODE[0]['MODE']
9351   if AsType(vale) == mode_meca   : return mode_meca
9352   if AsType(vale) == mode_meca_c : return mode_meca_c
9353   if AsType(vale) == mode_gene   : return mode_gene
9354   raise AsException("type de concept resultat non prevu")
9355
9356 EXTR_MODE=OPER(nom="EXTR_MODE",op= 168,sd_prod=extr_mode_prod,
9357                docu="U4.52.12-d",reentrant='n',
9358             UIinfo={"groupes":("Résolution",)},
9359          FILTRE_MODE     =FACT(statut='o',min=1,max='**',
9360            regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','NUME_MODE','NUME_MODE_EXCLU','FREQ_MIN','CRIT_EXTR',),),
9361            MODE            =SIMP(statut='o',typ=(mode_meca,mode_meca_c,mode_gene ) ),
9362            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9363            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
9364            NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
9365            NUME_MODE_EXCLU =SIMP(statut='f',typ='I',max='**'),
9366            FREQ_MIN        =SIMP(statut='f',typ='R' ),
9367            CRIT_EXTR       =SIMP(statut='f',typ='TXM',into=("MASS_EFFE_UN","MASS_GENE") ),
9368            b_freq_min      =BLOC(condition = "FREQ_MIN != None",
9369              FREQ_MAX        =SIMP(statut='o',typ='R' ),
9370              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9371            ),
9372            b_crit_extr     =BLOC(condition = "CRIT_EXTR != None",
9373              SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9374            ),
9375          ),
9376          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9377          IMPRESSION      =FACT(statut='f',min=1,max=1,
9378            CUMUL           =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9379            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",into=("MASS_EFFE_UN","MASS_GENE") ),
9380          ),
9381 )  ;
9382 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
9383 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9384 # ======================================================================
9385 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9386 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9387 #              REDISTRIBUTION OF THIS FILE.
9388 # ======================================================================
9389 def extr_resu_prod(RESULTAT,**args):
9390   if AsType(RESULTAT) == evol_elas    : return evol_elas
9391   if AsType(RESULTAT) == evol_noli    : return evol_noli
9392   if AsType(RESULTAT) == evol_ther    : return evol_ther
9393   if AsType(RESULTAT) == dyna_trans   : return dyna_trans
9394   if AsType(RESULTAT) == dyna_harmo   : return dyna_harmo
9395   if AsType(RESULTAT) == acou_harmo   : return acou_harmo
9396   if AsType(RESULTAT) == mode_meca    : return mode_meca
9397   if AsType(RESULTAT) == mode_acou    : return mode_acou
9398   if AsType(RESULTAT) == mode_stat :    return mode_stat
9399   if AsType(mode_stat) == mode_stat_depl :    return mode_stat_depl
9400   if AsType(mode_stat) == mode_stat_acce :    return mode_stat_acce
9401   if AsType(mode_stat) == mode_stat_forc :    return mode_stat_forc
9402   if AsType(RESULTAT) == mult_elas    : return mult_elas
9403   if AsType(RESULTAT) == fourier_elas : return fourier_elas
9404   raise AsException("type de concept resultat non prevu")
9405
9406 EXTR_RESU=OPER(nom="EXTR_RESU",op=176,sd_prod=extr_resu_prod,docu="U4.71.04-c",reentrant='f',
9407             UIinfo={"groupes":("Résultats et champs",)},
9408          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
9409                                                mode_acou,mode_stat_depl,mode_stat_acce,mode_stat_forc,evol_ther,evol_noli,
9410                                                mult_elas,fourier_elas ) ),
9411
9412          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
9413                                    fr="Liste des paramètres de sensibilité.",
9414                                    ang="List of sensitivity parameters"),
9415
9416          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
9417            regles=(  UN_PARMI('NUME_ORDRE', 'INST', 'FREQ', 'NUME_MODE',
9418                         'NOEUD_CMP', 'LIST_INST', 'LIST_FREQ', 'LIST_ORDRE',
9419                         'NOM_CAS', 'LIST_ARCH', 'PAS_ARCH' ),
9420                      EXCLUS( 'CHAM_EXCLU','NOM_CHAM' ),   ),
9421            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**'),
9422            NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
9423            PRECISION       =SIMP(statut='f',typ='R',defaut=1.E-3 ),
9424            CRITERE         =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),defaut="RELATIF"),
9425            LIST_ARCH       =SIMP(statut='f',typ=listis),
9426            PAS_ARCH        =SIMP(statut='f',typ='I'),
9427            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
9428            LIST_ORDRE      =SIMP(statut='f',typ=listis),
9429            INST            =SIMP(statut='f',typ='R',max='**'),
9430            LIST_INST       =SIMP(statut='f',typ=listr8),
9431            FREQ            =SIMP(statut='f',typ='R',max='**'),
9432            LIST_FREQ       =SIMP(statut='f',typ=listr8),
9433            NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
9434            NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
9435            NOM_CAS         =SIMP(statut='f',typ='TXM'),
9436                                ),
9437
9438          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
9439 )  ;
9440 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
9441 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9442 # ======================================================================
9443 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9444 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9445 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9446 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9447 # (AT YOUR OPTION) ANY LATER VERSION.
9448 #
9449 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9450 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9451 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9452 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9453 #
9454 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9455 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9456 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9457 # ======================================================================
9458 def fact_grad_prod(MATR_ASSE,**args):
9459   if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
9460   if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
9461   if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
9462   raise AsException("type de concept resultat non prevu")
9463
9464 FACT_GRAD=OPER(nom="FACT_GRAD",op=85,sd_prod=fact_grad_prod,docu="U4.55.03-f",
9465             UIinfo={"groupes":("Résolution",)},
9466                fr="Préconditionnement pour résolution par gradient conjugué",
9467                reentrant='n',
9468          MATR_ASSE       =SIMP(statut='o',
9469                                typ=(matr_asse_depl_r,matr_asse_temp_r,
9470                                     matr_asse_pres_r) ),
9471          PRE_COND        =SIMP(statut='f',typ='TXM',defaut="LDLT_INC",into=("LDLT_INC",) ),
9472          NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
9473          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
9474 )  ;
9475 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
9476 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9477 # ======================================================================
9478 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9479 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9480 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9481 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9482 # (AT YOUR OPTION) ANY LATER VERSION.
9483 #
9484 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9485 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9486 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9487 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9488 #
9489 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9490 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9491 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9492 # ======================================================================
9493 FACT_INTE_SPEC=OPER(nom="FACT_INTE_SPEC",op= 117,sd_prod=interspfact,
9494                     fr="Factorisation d une matrice interspectrale hermitienne",
9495                     docu="U4.36.04-f",reentrant='n',
9496             UIinfo={"groupes":("Fonction",)},
9497          regles=(ENSEMBLE('FREQ_FIN','NB_POIN'),),
9498 #  regle non indiquée dans la doc U
9499          INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
9500          NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
9501          FREQ_INIT       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9502          FREQ_FIN        =SIMP(statut='f',typ='R' ),
9503          NB_POIN         =SIMP(statut='f',typ='I',defaut= 0 ),
9504          SUR_ECHAN       =SIMP(statut='f',typ='R',defaut= 1. ),
9505          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9506 )  ;
9507 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
9508 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9509 # ======================================================================
9510 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9511 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9512 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9513 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9514 # (AT YOUR OPTION) ANY LATER VERSION.
9515 #
9516 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9517 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9518 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9519 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9520 #
9521 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9522 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9523 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9524 # ======================================================================
9525 # RESPONSABLE VABHHTS J.PELLET
9526 def fact_ldlt_prod(MATR_ASSE,**args):
9527   if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
9528   if AsType(MATR_ASSE) == matr_asse_depl_c : return matr_asse_depl_c
9529   if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
9530   if AsType(MATR_ASSE) == matr_asse_temp_c : return matr_asse_temp_c
9531   if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
9532   if AsType(MATR_ASSE) == matr_asse_pres_c : return matr_asse_pres_c
9533   raise AsException("type de concept resultat non prevu")
9534
9535 FACT_LDLT=OPER(nom="FACT_LDLT",op=14,sd_prod=fact_ldlt_prod,fr="Factorisation en place ou hors place",
9536                docu="U4.55.01-g",reentrant='f',
9537             UIinfo={"groupes":("Résolution",)},
9538          regles=(EXCLUS('BLOC_DEBUT','DDL_DEBUT'),
9539                  EXCLUS('BLOC_FIN','DDL_FIN'),),
9540          MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
9541                                                matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
9542          STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9543          NPREC           =SIMP(statut='f',typ='I',defaut=8,val_min=0,),
9544          PRE_COND        =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","DIAG") ),
9545          BLOC_DEBUT      =SIMP(statut='f',typ='I',val_min=1,),
9546          DDL_DEBUT       =SIMP(statut='f',typ='I',val_min=1,),
9547          BLOC_FIN        =SIMP(statut='f',typ='I',val_min=1,),
9548          DDL_FIN         =SIMP(statut='f',typ='I',val_min=1,),
9549 #
9550          EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9551 #
9552          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9553          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
9554 )  ;
9555 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
9556 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9557 # ======================================================================
9558 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9559 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9560 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9561 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9562 # (AT YOUR OPTION) ANY LATER VERSION.
9563 #
9564 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9565 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9566 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9567 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9568 #
9569 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9570 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9571 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9572 # ======================================================================
9573 # NEW 5.3.23
9574 FERMER=PROC(nom="FERMER",op=  10,fr=" ",
9575             docu="U4.12.02-b",
9576             UIinfo={"groupes":("Gestion du travail",)},
9577          UNITE           =SIMP(statut='o',typ='I',max='**' ),
9578 )  ;
9579 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
9580 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9581 # ======================================================================
9582 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9583 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9584 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9585 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9586 # (AT YOUR OPTION) ANY LATER VERSION.
9587 #
9588 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9589 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9590 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9591 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9592 #
9593 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9594 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9595 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9596 # ======================================================================
9597 FIN=PROC(nom="FIN",op=9999,repetable='n',fr="Fin d'une étude",
9598          docu="U4.11.02-g",
9599             UIinfo={"groupes":("Gestion du travail",)},
9600          RETASSAGE       =SIMP(fr="provoque le retassage de la base GLOBALE",
9601                                statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
9602          PERFORMANCE     =SIMP(fr="provoque l'impression d'un résumé des mesures de temps ",
9603                                statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
9604          INFO_RESU       =SIMP(fr="provoque l'impression des informations sur les structures de données",
9605                                statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
9606          FICHIER         =SIMP(statut='f',typ='TXM',defaut="MESSAGE"),
9607 )  ;
9608 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
9609 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9610 # ======================================================================
9611 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9612 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9613 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9614 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9615 # (AT YOUR OPTION) ANY LATER VERSION.
9616 #
9617 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9618 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9619 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9620 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9621 #
9622 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9623 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9624 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9625 # ======================================================================
9626 FONC_FLUI_STRU=OPER(nom="FONC_FLUI_STRU",op= 169,sd_prod=fonction,
9627                     docu="U4.35.02-d",reentrant='n',
9628             UIinfo={"groupes":("Fonction",)},
9629          TYPE_FLUI_STRU  =SIMP(statut='o',typ=(type_flui_stru) ),
9630 )  ;
9631 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
9632 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9633 # ======================================================================
9634 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9635 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9636 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9637 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9638 # (AT YOUR OPTION) ANY LATER VERSION.
9639 #
9640 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9641 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9642 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9643 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9644 #
9645 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9646 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9647 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9648 # ======================================================================
9649 FORMULE = FORM( nom='FORMULE',op=-5,sd_prod=fonction,
9650                 docu="U4.31.05-e",
9651                 fr="Définition d une fonction",reentrant = 'n',
9652                 regles=(UN_PARMI('REEL','COMPLEXE'),),
9653
9654 ##### fonctions entieres interdites suite au probleme AL2003-072
9655 #####               regles=(UN_PARMI('REEL','ENTIER','COMPLEXE'),),
9656 #####      ENTIER   = SIMP(typ = 'shell',max=1),
9657
9658                 REEL     = SIMP(typ = 'shell',max=1),
9659                 COMPLEXE = SIMP(typ = 'shell',max=1),
9660 ) ;
9661 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
9662 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9663 # ======================================================================
9664 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9665 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9666 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9667 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9668 # (AT YOUR OPTION) ANY LATER VERSION.
9669 #
9670 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9671 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9672 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9673 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9674 #
9675 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9676 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9677 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9678 # ======================================================================
9679 GENE_FONC_ALEA=OPER(nom="GENE_FONC_ALEA",op= 118,sd_prod=tabl_fonc,
9680                     fr="Génération de la fonction temporelle à partir d une matrice interspectrale factorisée",
9681                     docu="U4.36.05-f",reentrant='n',
9682             UIinfo={"groupes":("Fonction",)},
9683          INTE_SPEC_FACT  =SIMP(statut='o',typ=interspfact ),
9684          INIT_ALEA       =SIMP(statut='f',typ='I',defaut= 12312745 ),
9685          NB_TIRAGE       =SIMP(statut='f',typ='I',defaut= 1 ),
9686          NB_POIN         =SIMP(statut='f',typ='I' ),
9687          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
9688 )  ;
9689 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
9690 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9691 # ======================================================================
9692 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
9693 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9694 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9695 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9696 # (AT YOUR OPTION) ANY LATER VERSION.
9697 #
9698 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9699 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9700 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9701 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9702 #
9703 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9704 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9705 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9706 # ======================================================================
9707 GENE_MATR_ALEA=OPER(nom="GENE_MATR_ALEA",op=  27,sd_prod=matr_asse_gene_r,
9708                fr="Generateur de matrice aleatoire",
9709                docu="U4.36.06-a",reentrant='n',
9710             UIinfo={"groupes":("Fonction",)},
9711    MATR_MOYEN   = SIMP(statut='o', typ=matr_asse_gene_r),
9712    DELTA        = SIMP(statut='f', typ='R', defaut=0.1),
9713    INIT         = SIMP(statut='f', typ='TXM', into=("OUI","NON"),defaut="NON"),
9714 ) ;
9715
9716 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
9717 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9718 # ======================================================================
9719 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
9720 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9721 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9722 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9723 # (AT YOUR OPTION) ANY LATER VERSION.
9724 #
9725 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9726 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9727 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9728 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9729 #
9730 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9731 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9732 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9733 # ======================================================================
9734 GENE_VARI_ALEA=OPER(nom="GENE_VARI_ALEA",op=  28,sd_prod=table,
9735                fr="Generateur de variable aleatoire",
9736                docu="U4.36.07-a",reentrant='n',
9737             UIinfo={"groupes":("Fonction",)},
9738    TYPE       = SIMP(statut='f', typ='TXM', into=("EXP_TRONQUEE", "EXPONENTIELLE", "GAMMA"), defaut="EXP_TRONQUEE"),
9739    VALE_MOY   = SIMP(statut='f', typ='R', defaut=0.),
9740    DELTA      = SIMP(statut='f', typ='R', defaut=0.1),
9741    A          = SIMP(statut='f', typ='R', defaut=-1.),
9742    B          = SIMP(statut='f', typ='R', defaut=1.),
9743    INIT       = SIMP(statut='f', typ='TXM', into=("OUI","NON"),defaut="NON"),
9744 ) ;
9745
9746 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9747 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9748 # ======================================================================
9749 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9750 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9751 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9752 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9753 # (AT YOUR OPTION) ANY LATER VERSION.
9754 #
9755 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9756 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9757 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9758 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9759 #
9760 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9761 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9762 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9763 # ======================================================================
9764 IMPR_CHARGE=PROC(nom="IMPR_CHARGE",op= 158,
9765                  fr="Impression des charges mécaniques de type ddl imposés et relations linéaires entre les ddl",
9766                  docu="U7.04.31-c",
9767             UIinfo={"groupes":("Fonction",)},
9768          FICHIER         =SIMP(statut='f',typ='TXM' ),
9769          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",) ),
9770          VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
9771          CHARGE          =SIMP(statut='o',typ=char_meca,max='**', ),
9772 )  ;
9773 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
9774 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9775 # ======================================================================
9776 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9777 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9778 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9779 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9780 # (AT YOUR OPTION) ANY LATER VERSION.
9781 #
9782 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9783 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9784 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9785 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9786 #
9787 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9788 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9789 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9790 # ======================================================================
9791 IMPR_CLASSI=PROC(nom="IMPR_CLASSI",op= 114,docu="U7.04.21-b",
9792             UIinfo={"groupes":("Fonction",)},
9793          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ',
9794                         'LIST_ORDRE' ),),
9795          UNITE_CLASSI    =SIMP(statut='o',typ='I' ),
9796          MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
9797          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9798          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
9799          LIST_ORDRE      =SIMP(statut='f',typ=listis ),
9800          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
9801          FREQ            =SIMP(statut='f',typ='R',max='**'),
9802          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
9803          b_prec_crit     =BLOC(condition = "LIST_FREQ != None or FREQ != None",
9804              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9805              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
9806                                    into=("RELATIF","ABSOLU") ),
9807          ),
9808          IMPRESSION      =FACT(statut='f',min=1,max='**',
9809            regles=(UN_PARMI('NOEUD','GROUP_NO', ),),
9810            NOEUD           =SIMP(statut='f',typ=no,max='**'),
9811            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
9812            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
9813          ),
9814          AMOR            =SIMP(statut='o',typ='R',max='**'),
9815 )  ;
9816 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
9817 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9818 # ======================================================================
9819 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9820 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9821 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9822 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9823 # (AT YOUR OPTION) ANY LATER VERSION.
9824 #
9825 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9826 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9827 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9828 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9829 #
9830 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9831 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9832 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9833 # ======================================================================
9834 # RESPONSABLE VABHHTS J.PELLET
9835 IMPR_CO=PROC(nom="IMPR_CO",op=17,docu="U4.91.11-g",
9836             UIinfo={"groupes":("Impression",)},
9837              fr="Impression du contenu d un concept utilisateur (pour développeur)",
9838          regles=(UN_PARMI('CO','CHAINE', ),),
9839          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
9840          NIVEAU          =SIMP(statut='f',typ='I',defaut=2,into=(0,1,2) ),
9841          ATTRIBUT        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","OUI") ),
9842          CONTENU         =SIMP(statut='f',typ='TXM',defaut="OUI",into=("NON","OUI") ),
9843          BASE            =SIMP(statut='f',typ='TXM',defaut="G",into=("","G","V","L") ),
9844          CO              =SIMP(statut='f',typ=assd,max='**'),
9845          CHAINE          =SIMP(statut='f',typ='TXM'),
9846          POSITION        =SIMP(statut='f',typ='I',defaut=1),
9847 )  ;
9848 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
9849 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9850 # ======================================================================
9851 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9852 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9853 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9854 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9855 # (AT YOUR OPTION) ANY LATER VERSION.
9856 #
9857 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9858 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9859 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9860 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9861 #
9862 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9863 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9864 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9865 # ======================================================================
9866 # RESPONSABLE MCOURTOI M.COURTOIS
9867 IMPR_COURBE=PROC(nom="IMPR_COURBE",op= 141,fr="Impression, sur fichiers",
9868                  docu="U4.33.01-e",
9869             UIinfo={"groupes":("Fonction",)},
9870          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
9871          FORMAT          =SIMP(statut='f',typ='TXM',position='global'
9872                               ,into=("AGRAF","EXCEL","POSTSCRIPT","RESULTAT","COMMANDE","SEISME") ),
9873          b_agraf_post =BLOC(condition = "(FORMAT=='AGRAF') or (FORMAT=='POSTSCRIPT')",fr="Mots-clés communs AGRAF et POSTCRIPT",
9874            BORNE_X         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des abcisses"),
9875            ECHELLE_X       =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),fr="Type d'échelle pour les abcisses" ),
9876            BORNE_Y         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des ordonnées"),
9877            ECHELLE_Y       =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),fr="Type d'échelle pour les ordonnées" ),
9878          ),
9879          b_agraf =BLOC(condition = "(FORMAT=='AGRAF')",fr="Mots-clés propres à AGRAF",
9880            TITRE_GRAPHIQUE =SIMP(statut='f',typ='TXM',fr="Titre associé au graphique" ),
9881            COMMENTAIRE     =SIMP(statut='f',typ='TXM',max='**',fr="Commentaires associés au graphique"),
9882            LEGENDE_X       =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des abcisses" ),
9883            LEGENDE_Y       =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des ordonnées" ),
9884            FREQ_GRILLE_X   =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence de tracage du quadrillage vertical" ),
9885            FREQ_GRILLE_Y   =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence de tracage du quadrillage horizontal" ),
9886          ),
9887          b_excel = BLOC(condition = "(FORMAT=='EXCEL')",fr="Mots-clés propres au format Excel",
9888            BORNE_X         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des abcisses"),
9889            BORNE_Y         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des ordonnées"),
9890          ),
9891          b_post = BLOC (  condition = "(FORMAT=='POSTSCRIPT')",fr="Mots-clés propres à POSTCRIPT",
9892            TITRE           =SIMP(statut='f',typ='TXM',fr="Titre associé au graphique" ),
9893            LABEL_X         =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des abcisses" ),
9894            LABEL_Y         =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des ordonnées" ),
9895            SORTIE          =SIMP(statut='f',typ='TXM',defaut="COULEUR",into=("MONOCHROME","COULEUR"),fr="Type d impression" ),
9896            DATE            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de la date" ),
9897            GRILLE          =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression du quadrillage" ),
9898            AXE_ZERO_X      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de l axe x égal zéro" ),
9899            AXE_ZERO_Y      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de l axe y égal zéro" ),
9900            PRESENTATION    =SIMP(statut='f',typ='TXM',defaut="PAYSAGE",into=("PAYSAGE","PORTRAIT"),
9901                                  fr="Disposition du graphique sur la feuille" ),
9902            FENETRE         =SIMP(statut='f',typ='TXM',defaut="RECTANGLE",into=("CARREE","RECTANGLE"),
9903                                  fr="Forme de la fenetre contenant le graphique" ),
9904          ),
9905          COURBE          =FACT(statut='o',min=1,max='**',fr="Définition de la courbe à tracer",
9906            regles=(UN_PARMI('FONCTION','LIST_RESU','TABLE','FONC_X','RESU_GENE'),),
9907            FONCTION        =SIMP(statut='f',typ=(fonction, fonction_c),
9908                                  fr="Fonction réelle ou complexe", ),
9909            LIST_RESU       =SIMP(statut='f',typ=listr8,
9910                                  fr="Liste des ordonnees d une fonction réelle définie par deux listes", ),
9911 #  creer le type table
9912            TABLE           =SIMP(statut='f',typ=table,
9913                                  fr="Nom de la table dont 2 colonnes définissent la fonction",),
9914            FONC_X          =SIMP(statut='f',typ=fonction,
9915                                  fr="Fonction abscisses d une fonction paramétrique",),
9916            RESU_GENE       =SIMP(statut='f',typ=tran_gene, ),
9917            b_fonction      =BLOC(condition = "FONCTION != None",
9918              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
9919            ),
9920            b_fonction_c  =BLOC(condition = "AsType(FONCTION) == fonction_c",
9921                                  fr="Fonction complexe définie par le mot-clé fonction",
9922              PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
9923            ),
9924            b_list_resu     =BLOC(condition = "LIST_RESU != None",
9925              LIST_PARA       =SIMP(statut='o',typ=listr8 ),
9926            ),
9927            b_table         =BLOC(condition = "TABLE != None",
9928              PARA_X          =SIMP(statut='o',typ='TXM',
9929                                    fr="Paramètre de la table associé aux abcisses de la fonction à tracer" ),
9930              PARA_Y          =SIMP(statut='o',typ='TXM',
9931                                    fr="Paramètre de la table associé aux ordonnées de la fonction à tracer" ),
9932            ),
9933            b_fonc_x        =BLOC(condition = "FONC_X != None",
9934              FONC_Y          =SIMP(statut='o',typ=fonction,fr="Fonction ordonnées d une fonction paramétrique" ),
9935              PARA            =SIMP(statut='f',typ='TXM',defaut="FONC_X",into=("FONC_X","FONC_Y"),
9936                                    fr="Permutation des roles des deux fonctions" ),
9937              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
9938            ),
9939            b_resu_gene     =BLOC(condition = "RESU_GENE != None",
9940              regles=(UN_PARMI('NOEUD_CHOC','GROUP_NO_CHOC'),),
9941              NOEUD_CHOC      =SIMP(statut='f',typ=no),
9942              GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
9943              PARA_X          =SIMP(statut='o',typ='TXM'),
9944              PARA_Y          =SIMP(statut='o',typ='TXM'),
9945              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
9946              SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
9947              INTITULE        =SIMP(statut='f',typ='TXM' ),
9948            ),
9949
9950
9951            LEGENDE         =SIMP(statut='f',typ='TXM',fr="Légende associée à la courbe" ),
9952            STYLE           =SIMP(statut='f',typ='TXM',defaut="LIGNE",fr="Style de la ligne représentant la courbe",
9953                                  into=("LIGNE","POINTILLE","POINT","POINT_RELIE") ),
9954            COULEUR         =SIMP(statut='f',typ='TXM',fr="Couleur associée à la courbe",
9955                                  into=("NOIR","ROUGE","VERT_FONCE","BLEU",
9956                                        "MAGENTA","CYAN","VERT","SIENNE","ORANGE",
9957                                        "POURPRE","JAUNE","DAIM","TURQUOISE","VIOLET",
9958                                        "BRUN","CORAIL","MARRON","MAUVE","MARRON_CLAIR") ),
9959            MARQUEUR        =SIMP(statut='f',typ='TXM',fr="Type du marqueur associé à la courbe",
9960                                  into=("POINT_F","CARRE_F","TRIANGLE_F",
9961                                        "LOSANGE_F","ETOILE_F","FUSEE_F","POINT",
9962                                        "CARRE","TRIANGLE","LOSANGE","ETOILE","FUSEE",
9963                                        "PLUS","X","CERCLE","CERCLE_P","CARRE_P",
9964                                        "LOSANGE_P","CERCLE_P_X","LOSANGE_P_X",
9965                                        "CERCLE_X","CARRE_X","LOSANGE_X") ),
9966             b_agraf =BLOC(condition = "(FORMAT=='AGRAF')",fr="Mots-clés propres à AGRAF",
9967               TRI             =SIMP(statut='f',typ='TXM',defaut="N",
9968                                     fr="Choix du tri effectué sur les abcisses ou sur les ordonnées",
9969                                     into=("N","X","Y","XY","YX") ),
9970               FREQ_MARQUEUR   =SIMP(statut='f',typ='I',defaut= 0,
9971                                     fr="Fréquence d impression du marqueur associé à la courbe", ),
9972             ),
9973          ),
9974 )  ;
9975 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
9976 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9977 # ======================================================================
9978 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9979 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9980 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9981 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9982 # (AT YOUR OPTION) ANY LATER VERSION.
9983 #
9984 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9985 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9986 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9987 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9988 #
9989 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9990 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9991 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9992 # ======================================================================
9993 # RESPONSABLE GNICOLAS G.NICOLAS
9994 IMPR_FICO_HOMA=PROC(nom="IMPR_FICO_HOMA",op= 189, docu="U7.04.01-b",
9995             UIinfo={"groupes":("Fonction",)},
9996                     fr="Imprime le fichier de configuration de HOMARD.",
9997                     ang="Writes the configuration file for HOMARD.",
9998 #
9999 # 1. Le niveau d'information
10000 #
10001          INFO           = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10002 #
10003 # 2. LE REPERTOIRE OU AURA LIEU LE CALCUL HOMARD
10004 #
10005          REP             =SIMP(statut='f',typ='TXM'),
10006 #
10007 # 3. Langue des messages issus de HOMARD
10008 #
10009          LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
10010                                into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
10011                            fr="Langue des messages issus de HOMARD.",
10012                            ang="Language for HOMARD messages." ),
10013 #
10014 # 4. L'UNITE LOGIQUE D'ECRITURE DU FICHIER DE CONFIGURATION HOMARD
10015 #
10016          UNITE           =SIMP(statut='f',typ='I',defaut= 71 ),
10017 #
10018 # 5. LE TYPE DE TRAITEMENT :
10019 #
10020          TRAITEMENT      =FACT(statut='o',min=1,max=1,
10021 #
10022 # 5.1. QUATRE CHOIX EXCLUSIFS :
10023 #
10024 # 5.1.1.
10025 #      A. ADAPTATION PAR UN INDICATEUR D'ERREUR, AVEC TROIS VARIANTES :
10026 #         . RAFFINEMENT ET DERAFFINEMENT
10027 #         . RAFFINEMENT SEUL
10028 #         . DERAFFINEMENT SEUL
10029 #      B. ADAPTATION UNIFORME, AVEC DEUX VARIANTES :
10030 #         . RAFFINEMENT SEUL
10031 #         . DERAFFINEMENT SEUL
10032 #         . RIEN : LE MAILLAGE EST LE MEME A LA SORTIE ET A L'ENTREE
10033 #      C. INFORMATION SUR UN MAILLAGE
10034 #      D. MISE A JOUR DE SOLUTIONS
10035 #
10036            regles=( UN_PARMI('ADAPTATION','UNIFORME','INFORMATION','MAJSOLUTION'),),
10037            ADAPTATION      =SIMP(statut='f',typ='TXM',
10038                                  fr="Adaptation libre",
10039                                  ang="Free adaptation",
10040                                  into=("RAFFINEMENT","DERAFFINEMENT","RAFF_DERA") ),
10041            UNIFORME        =SIMP(statut='f',typ='TXM',
10042                                  fr="Adaptation uniforme",
10043                                  ang="Uniforme adaptation",
10044                                  into=("RAFFINEMENT","DERAFFINEMENT","RIEN") ),
10045            INFORMATION     =SIMP(statut='f',typ='TXM',
10046                                  fr="Adaptation libre",
10047                                  ang="Free adaptation",
10048                                  into=("OUI",) ),
10049            MAJSOLUTION     =SIMP(statut='f',typ='TXM',
10050                                  fr="Mise à jour de solutions",
10051                                  ang="Solution updating",
10052                                  into=("OUI",) ),
10053 #
10054 # 5.1.2. LES CONTRAINTES :
10055 #
10056 # 5.1.2.1. POUR DE L'ADAPTATION LIBRE, IL FAUT :
10057 #      A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10058 #      B. LE NOM MED DU MAILLAGE D'ENTREE
10059 #      C. LE NOM MED DE L'INDICATEUR D'ERREUR
10060 #      D. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10061 #      E. LA MISE A JOUR DE SOLUTION
10062 #      F. LE NOM MED DU MAILLAGE DE SORTIE
10063 #      REMARQUE : IL FAUT DES CRITERES, MAIS ON NE SAIT PAS LESQUELS
10064 #
10065 # 5.1.2.2. POUR DE L'ADAPTATION UNIFORME
10066 #          IL FAUT :
10067 #      A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10068 #      B. LE NOM MED DU MAILLAGE DE SORTIE
10069 #          IL NE FAUT PAS :
10070 #      A. LE NOM MED DE L'INDICATEUR D'ERREUR
10071 #      B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
10072 #      C. LES CRITERES
10073 #      REMARQUE : A L'ITERATION 0, OU AUX ITERATIONS SUIVANTES SI MAJ DE SOLUTION,
10074 #                 IL FAUT LE NOM MED DU MAILLAGE D'ENTREE
10075 #
10076 # 5.1.2.3. POUR DE LA MISE A JOUR DE SOLUTION :
10077 #          IL FAUT :
10078 #      A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10079 #      B. LE NOM MED DU MAILLAGE D'ENTREE
10080 #          IL NE FAUT PAS :
10081 #      A. LE NOM MED DE L'INDICATEUR D'ERREUR
10082 #      B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
10083 #      C. LES CRITERES
10084 #
10085 #
10086 # 5.1.2.4. POUR DE L'INFORMATION :
10087 #          IL FAUT :
10088 #      A. LE NOM MED DU MAILLAGE D'ENTREE
10089 #          IL NE FAUT PAS :
10090 #      A. LE NOM MED DE L'INDICATEUR D'ERREUR
10091 #      B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
10092 #      C. LES CRITERES
10093 #      D. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10094 #      E. LA MISE A JOUR DE SOLUTION
10095 #
10096            b_maillage_initial =BLOC(condition = "( INFORMATION != None ) or ( ADAPTATION != None ) or \
10097                                                  ( MAJSOLUTION != None ) ",
10098                            fr="Nom MED du maillage en entrée",
10099                            ang="MED name of the in-mesh",
10100                            NOM_MED_MAILLAGE_N   =SIMP(statut='o',typ='TXM',),
10101                            ) ,
10102 #
10103            b_maillage_initial_uniforme =BLOC(condition = "( UNIFORME != None ) ",
10104                            fr="Nom MED du maillage en entrée",
10105                            ang="MED name of the in-mesh",
10106                            NOM_MED_MAILLAGE_N   =SIMP(statut='f',typ='TXM',),
10107                            ) ,
10108 #
10109            b_iteration_maj_champ =BLOC(condition = "( UNIFORME != None ) or ( ADAPTATION != None ) or \
10110                                                     ( MAJSOLUTION != None ) ",
10111                            fr="Nom MED du maillage en sortie, numero d'iteration et mise à jour de champs",
10112                            ang="MED name of the out-mesh, iteration rank and field updating",
10113                            NITER                =SIMP(statut='o',typ='I',
10114                            fr="Numéro d'itération.",
10115                            ang="Iteration number." ),
10116                            NOM_MED_MAILLAGE_NP1 =SIMP(statut='o',typ='TXM',
10117                            fr="Nom MED du maillage en sortie",
10118                            ang="MED name of the out-mesh" ),
10119                            MAJ_CHAM             =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10120                            fr="Mise à jour de champs",
10121                            ang="Field updating" ),
10122                            ) ,
10123 #
10124            b_indicateur_d_erreur  =BLOC(condition = "ADAPTATION != None",
10125                            fr="Indicateur d'erreur",
10126                            ang="Error indicator",
10127                            regles=(AU_MOINS_UN('NUMORD_INDICA','NOM_RESU_INDICA'),
10128                                    EXCLUS('NUMORD_INDICA','NOM_RESU_INDICA'),
10129                                    PRESENT_PRESENT('NUMORD_INDICA','NUMPT_INDICA'),
10130                                    PRESENT_PRESENT('NOM_RESU_INDICA','NOM_CHAM_INDICA'),),
10131                            NOM_MED_INDICA  =SIMP(statut='o',typ='TXM',
10132                            fr="Nom MED de l'indicateur d'erreur.",
10133                            ang="MED name of error indicator.",),
10134                            NOM_CMP_INDICA  =SIMP(statut='o',typ='TXM',
10135                            fr="Nom de la composante de l'indicateur d'erreur retenue.",
10136                            ang="Name of the selected component of the error indicator.",),
10137                            NUMORD_INDICA  =SIMP(statut='f',typ='I',
10138                            fr="Numero d'ordre de l'indicateur.",
10139                            ang="Rank number of the error indicator.",),
10140                            NUMPT_INDICA  =SIMP(statut='f',typ='I',
10141                            fr="Numero du pas de temps de l'indicateur.",
10142                            ang="Time step number of the error indicator.",),
10143                            NOM_RESU_INDICA  =SIMP(statut='f',typ='TXM',
10144                            fr="Concept contenant l'indicateur.",
10145                            ang="Conceipt wich contains the error indicator.",),
10146                            NOM_CHAM_INDICA  =SIMP(statut='f',typ='TXM',
10147                            fr="Nom du champ dans le résultat de l'indicateur.",
10148                            ang="Name of the field of the error indicator.",),
10149                            ) ,
10150 #
10151            b_critere_de_raffinement =BLOC( condition = "( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'RAFFINEMENT' )" ,
10152                            fr="Critère de raffinement.",
10153                            ang="Refinement threshold.",
10154                            regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE' ),),
10155                            CRIT_RAFF_ABS   =SIMP(statut='f',typ='R',
10156                                                  fr="Critère absolu",
10157                                                  ang="Absolute threshold"  ),
10158                            CRIT_RAFF_REL   =SIMP(statut='f',typ='R',
10159                                                  fr="Critère relatif",
10160                                                  ang="Relative threshold" ),
10161                            CRIT_RAFF_PE    =SIMP(statut='f',typ='R',
10162                                                  fr="Pourcentage d'éléments",
10163                                                  ang="Percentage of elements" ),
10164                            ) ,
10165 #
10166            b_critere_de_deraffinement =BLOC ( condition = "( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'DERAFFINEMENT' )" ,
10167                            fr="Critère de déraffinement.",
10168                            ang="Unrefinement threshold.",
10169                            regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE' ),),
10170                            CRIT_DERA_ABS   =SIMP(statut='f',typ='R' ,
10171                                                  fr="Critère absolu",
10172                                                  ang="Absolute threshold" ),
10173                            CRIT_DERA_REL   =SIMP(statut='f',typ='R',
10174                                                  fr="Critère relatif",
10175                                                  ang="Relative threshold" ),
10176                            CRIT_DERA_PE    =SIMP(statut='f',typ='R',
10177                                                  fr="Pourcentage d'éléments",
10178                                                  ang="Percentage of elements" ),
10179                            ) ,
10180 #
10181            b_niveau_maximum =BLOC ( condition = " ( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'RAFFINEMENT' ) or \
10182                                                   ( UNIFORME == 'RAFFINEMENT' )" ,
10183                              fr="Niveau maximum de profondeur de raffinement",
10184                              ang="Maximum level for refinement",
10185                              NIVE_MAX        =SIMP(statut='f',typ='I' ),
10186                            ) ,
10187 #
10188            b_niveau_minimum =BLOC ( condition = " ( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'DERAFFINEMENT' ) or \
10189                                                   ( UNIFORME == 'DERAFFINEMENT' )" ,
10190                              fr="Niveau minimum de déraffinement",
10191                              ang="Minimum level for unrefinement",
10192                              NIVE_MIN        =SIMP(statut='f',typ='I' ),
10193                            ) ,
10194 #
10195          ),
10196 #
10197 # 6. L'ANALYSE DU MAILLAGE
10198 #
10199          ANALYSE         =FACT(statut='f',min=1,max=1,
10200                                fr="Analyse du maillage.",
10201                                ang="Mesh analysis.",
10202 #
10203 # 6.1. CHOIX NON EXCLUSIFS, AVEC DEUX VARIANTES (OUI/NON) :
10204 #    A. NOMBRE DES ELEMENTS
10205 #    B. QUALITE DES ELEMENTS
10206 #    C. INTERPENETRATION DES ELEMENTS
10207 #    D. CONNEXITE DU MAILLAGE
10208 #    E. TAILLE DES DIFFERENTS SOUS-DOMAINES
10209 #
10210            regles=(AU_MOINS_UN('NOMBRE','QUALITE','INTERPENETRATION','CONNEXITE','TAILLE'),),
10211 #
10212          NOMBRE          =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
10213                           fr="Nombre de noeuds et éléments du maillage",
10214                           ang="Number of nodes and elements in the mesh" ),
10215 #
10216          QUALITE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10217                           fr="Qualité du maillage",
10218                           ang="Mesh quality" ),
10219 #
10220          INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10221                           fr="Controle de la non interpénétration des éléments.",
10222                           ang="Overlapping checking." ),
10223 #
10224          CONNEXITE       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10225                           fr="Connexité du maillage.",
10226                           ang="Mesh connexity." ),
10227 #
10228          TAILLE          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10229                           fr="Tailles des sous-domaines du maillage.",
10230                           ang="Sizes of mesh sub-domains." ),
10231 #
10232          ),
10233 #
10234 )  ;
10235 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
10236 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10237 # ======================================================================
10238 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10239 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10240 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10241 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10242 # (AT YOUR OPTION) ANY LATER VERSION.
10243 #
10244 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10245 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10246 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10247 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10248 #
10249 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10250 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10251 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10252 # ======================================================================
10253 IMPR_GENE=PROC(nom="IMPR_GENE",op= 157,
10254                fr="Calcul du dommage subi par une structure soumise à une sollicitation de type aléatoire",
10255                docu="U4.91.02-d",
10256             UIinfo={"groupes":("Impression",)},
10257          GENE            =FACT(statut='o',min=1,max='**',
10258            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
10259                           'LIST_INST','LIST_FREQ','TOUT_MODE','TOUT_INST','LIST_ORDRE'),
10260                    EXCLUS('TOUT_MODE','NUME_ORDRE','INST','FREQ','NUME_MODE',
10261                           'LIST_INST','LIST_FREQ','TOUT_ORDRE','TOUT_INST','LIST_ORDRE'),
10262                    EXCLUS('TOUT_INST','NUME_ORDRE','INST','FREQ','NUME_MODE',
10263                           'LIST_INST','LIST_FREQ','TOUT_ORDRE','LIST_ORDRE'),
10264                    EXCLUS('TOUT_CMP_GENE','NUME_CMP_GENE'),
10265                    EXCLUS('TOUT_CHAM','NOM_CHAM'),
10266                    EXCLUS('TOUT_PARA','NOM_PARA'),),
10267 #  faut-il faire des blocs selon le type de RESU_GENE
10268            RESU_GENE       =SIMP(statut='o',typ=(vect_asse_gene, tran_gene, mode_gene, harm_gene)),
10269            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
10270            FICHIER         =SIMP(statut='f',typ='TXM' ),
10271            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10272            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
10273            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
10274            TOUT_MODE       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10275            NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
10276            INST            =SIMP(statut='f',typ='R',max='**'),
10277            LIST_INST       =SIMP(statut='f',typ=listr8 ),
10278            TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10279            FREQ            =SIMP(statut='f',typ='R',max='**'),
10280            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
10281            b_prec_crit     =BLOC(condition = "LIST_FREQ != None or FREQ != None",
10282              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10283              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
10284                                    into=("RELATIF","ABSOLU") ),
10285            ),
10286            TOUT_CMP_GENE   =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10287            NUME_CMP_GENE   =SIMP(statut='f',typ='I',max='**'),
10288            TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10289            NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
10290            TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10291            NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
10292            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
10293            INFO_CMP_GENE   =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10294            INFO_GENE       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10295          ),
10296 )  ;
10297 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
10298 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10299 # ======================================================================
10300 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10301 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10302 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10303 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10304 # (AT YOUR OPTION) ANY LATER VERSION.
10305 #
10306 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10307 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10308 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10309 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10310 #
10311 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10312 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10313 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10314 # ======================================================================
10315 IMPR_JEVEUX=PROC(nom="IMPR_JEVEUX",op=16,docu="U4.91.21-g",
10316             UIinfo={"groupes":("Impression",)},
10317                  fr="Impression de caractéristiques d'objets JEVEUX (pour développeur)",
10318          ENTITE          =SIMP(fr="choix de l'observation",statut='o',typ='TXM',
10319                                into=("DISQUE","MEMOIRE","REPERTOIRE",
10320                                      "OBJET","ATTRIBUT","SYSTEME") ),
10321          b_objet      =BLOC(condition = "(ENTITE=='OBJET')",
10322             NOMOBJ          =SIMP(fr="nom d'objet",statut='f',typ='TXM' ),
10323             NUMOC           =SIMP(fr="numéro d objet de collection",statut='f',typ='I' ),
10324             NOMOC           =SIMP(fr="nom d'objet de collection",statut='f',typ='TXM' ),
10325          ),
10326          b_attribut   =BLOC(condition = "(ENTITE=='ATTRIBUT')",
10327             NOMOBJ          =SIMP(fr="nom de collection",statut='f',typ='TXM' ),
10328             NOMATR          =SIMP(fr="nom d attribut de collection",statut='f',typ='TXM',
10329                                   into=('$$DESO','$$IADD','$$IADM','$$NOM','$$LONG',
10330                                       '$$LONO','$$LUTI','$$NUM') ),
10331          ),
10332          b_systeme    =BLOC(condition = "(ENTITE=='SYSTEME')",
10333             CLASSE          =SIMP(statut='o',typ='TXM',into=('G','V','L') ),
10334             NOMATR          =SIMP(fr="nom d attribut systeme",statut='f',typ='TXM',
10335                                   into=('$$CARA','$$IADD','$$GENR','$$TYPE','$$ETAT',
10336                                       '$$DOCU','$$ORIG','$$RNOM','$$LTYP','$$LONG',
10337                                       '$$LONO','$$DATE','$$LUTI','$$HCOD','$$INDX',
10338                                       '$$TLEC','$$TECR','$$IADM','$$ACCE') ),
10339          ),
10340          b_repertoire =BLOC(condition = "(ENTITE=='REPERTOIRE')",
10341             CLASSE          =SIMP(statut='f',typ='TXM',into=('G','V','L',' '),defaut=' '),
10342          ),
10343          b_disque     =BLOC(condition = "(ENTITE=='DISQUE')",
10344             CLASSE          =SIMP(statut='f',typ='TXM' ,into=('G','V','L',' '),defaut=' '),
10345          ),
10346          IMPRESSION      =FACT(statut='f',min=1,max=1,
10347            NOM             =SIMP(statut='f',typ='TXM' ),
10348            UNITE           =SIMP(statut='f',typ='I'),
10349          ),
10350          COMMENTAIRE     =SIMP(statut='f',typ='TXM' ),
10351 )  ;
10352 #& MODIF COMMANDE  DATE 04/02/2004   AUTEUR ACBHHCD G.DEVESA
10353 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10354 # ======================================================================
10355 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10356 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10357 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10358 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10359 # (AT YOUR OPTION) ANY LATER VERSION.
10360 #
10361 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10362 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10363 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10364 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10365 #
10366 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10367 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10368 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10369 # ======================================================================
10370 IMPR_MACR_ELEM=PROC(nom="IMPR_MACR_ELEM",op= 160,
10371                     docu="U7.04.33-d",
10372             UIinfo={"groupes":("Impression",)},
10373          MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
10374          FICHIER         =SIMP(statut='f',typ='TXM' ),
10375          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",
10376                                into=("MISS_3D","IDEAS","CADYRO","PLEXUS") ),
10377          b_ideas         =BLOC(condition = "FORMAT == 'PLEXUS'",
10378            VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10379          ),
10380          b_plexus         =BLOC(condition = "FORMAT == 'IDEAS'",
10381            VERSION          =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10382          ),
10383          b_miss_3d       =BLOC(condition = "FORMAT == 'MISS_3D'",
10384            regles=(EXCLUS('AMOR_REDUIT','LIST_AMOR'),),
10385            UNITE           =SIMP(statut='f',typ='I',defaut= 26 ),
10386            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
10387            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
10388            LIST_AMOR       =SIMP(statut='f',typ=listr8 ),
10389            GROUP_MA_INTERF =SIMP(statut='o',typ=grma,max='**'),
10390            GROUP_MA_FLU_STR=SIMP(statut='f',typ=grma,max='**'),
10391            GROUP_MA_FLU_SOL=SIMP(statut='f',typ=grma,max='**'),
10392            GROUP_MA_SOL_SOL=SIMP(statut='f',typ=grma,max='**'),
10393            IMPR_MODE_MECA  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10394            IMPR_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10395          ),
10396          b_cadyro        =BLOC(condition = "FORMAT == 'CADYRO'",
10397            SQUELETTE       =SIMP(statut='f',typ=squelette ),
10398            UNITE_MODE_MECA =SIMP(statut='f',typ='I',defaut= 26 ),
10399            UNITE_MODE_STAT =SIMP(statut='f',typ='I',defaut= 27 ),
10400            UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut= 28 ),
10401            IMPR_MODE_MECA  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10402            IMPR_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10403          ),
10404
10405 )  ;
10406 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
10407 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10408 # ======================================================================
10409 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10410 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10411 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10412 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10413 # (AT YOUR OPTION) ANY LATER VERSION.
10414 #
10415 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10416 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10417 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10418 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10419 #
10420 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10421 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10422 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10423 # ======================================================================
10424 IMPR_MATRICE=PROC(nom="IMPR_MATRICE",op= 159,
10425                   fr="Impression des matrices élémentaires et des matrices assemblées",
10426                   docu="U7.04.32-d",
10427             UIinfo={"groupes":("Impression",)},
10428          regles=(AU_MOINS_UN('MATR_ELEM','MATR_ASSE'),),
10429
10430          MATR_ELEM       =FACT(statut='f',min=1,max='**',
10431            FICHIER         =SIMP(statut='f',typ='TXM' ),
10432            FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",
10433                                  into=("IDEAS","RESULTAT") ),
10434            b_format      =BLOC(condition = "FORMAT == 'IDEAS'",
10435              VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10436            ),
10437 #  créer les types matr_elem  et vect_elem
10438            MATRICE         =SIMP(statut='o',typ=(matr_elem, vect_elem)),
10439 #  Quelle regle pour TOUT, NOEUD, GROUP_NO, MAILLE, GROUP_MA
10440            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10441            NOEUD           =SIMP(statut='f',typ=no,max='**'),
10442            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
10443            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10444            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10445            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
10446            GRAIN           =SIMP(statut='f',typ='TXM',defaut="VALEUR",
10447                                  into=("VALEUR","NOEUD","MAILLE") ),
10448            NB_CHIFFRE      =SIMP(statut='f',typ='I',defaut= 4 ),
10449          ),
10450          MATR_ASSE       =FACT(statut='f',min=1,max='**',
10451            FICHIER         =SIMP(statut='f',typ='TXM' ),
10452            FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",
10453                                  into=("IDEAS","RESULTAT") ),
10454            VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10455 #  créer le type matr_elem
10456            MATRICE         =SIMP(statut='o',typ=matr_asse),
10457 #  Quelle regle pour TOUT, NOEUD, GROUP_NO, MAILLE, GROUP_MA
10458            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10459            NOEUD           =SIMP(statut='f',typ=no,max='**'),
10460            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
10461            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10462            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10463            OPTION          =SIMP(statut='f',typ='TXM',defaut="SOUS_MATRICE",
10464                                  into=("SOUS_MATRICE","LIGNE","COLONNE") ),
10465            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
10466            GRAIN           =SIMP(statut='f',typ='TXM',defaut="VALEUR",
10467                                  into=("VALEUR","NOEUD") ),
10468            NB_CHIFFRE      =SIMP(statut='f',typ='I',defaut= 4 ),
10469            VALE_ZERO       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
10470          ),
10471 )  ;
10472 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
10473 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10474 # ======================================================================
10475 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10476 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10477 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10478 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10479 # (AT YOUR OPTION) ANY LATER VERSION.
10480 #
10481 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10482 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10483 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10484 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10485 #
10486 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10487 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10488 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10489 # ======================================================================
10490 IMPR_MISS_3D=PROC(nom="IMPR_MISS_3D",op= 162,
10491                   docu="U7.04.11-d",
10492             UIinfo={"groupes":("Impression",)},
10493          regles=(UN_PARMI('INST_INIT','FREQ_INIT'),
10494                  PRESENT_PRESENT('INST_INIT','INST_FIN'),
10495                  PRESENT_PRESENT('FREQ_INIT','FREQ_FIN'),),
10496          MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
10497          EXCIT           =FACT(statut='f',min=1,max='**',
10498            regles=(UN_PARMI('FONC_MULT','COEF_MULT' ),),
10499            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
10500            FONC_MULT       =SIMP(statut='f',typ=fonction ),
10501            COEF_MULT       =SIMP(statut='f',typ='R' ),
10502          ),
10503          EXCIT_SOL       =FACT(statut='f',min=1,max='**',
10504            DIRECTION       =SIMP(statut='o',typ='R',max='**'),
10505            FONC_SIGNAL     =SIMP(statut='f',typ=fonction ),
10506            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",
10507                                  into=("DEPL","VITE","ACCE","FORC",) ),
10508          ),
10509          INST_INIT       =SIMP(statut='f',typ='R' ),
10510          INST_FIN        =SIMP(statut='f',typ='R' ),
10511          FREQ_INIT       =SIMP(statut='f',typ='R' ),
10512          FREQ_FIN        =SIMP(statut='f',typ='R' ),
10513          PAS             =SIMP(statut='o',typ='R' ),
10514          UNITE           =SIMP(statut='f',typ='I',defaut= 26 ),
10515          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
10516          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
10517 )  ;
10518 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
10519 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10520 # ======================================================================
10521 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10522 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10523 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10524 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10525 # (AT YOUR OPTION) ANY LATER VERSION.
10526 #
10527 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10528 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10529 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10530 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10531 #
10532 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10533 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10534 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10535 # ======================================================================
10536 IMPR_RESU=PROC(nom="IMPR_RESU",op=39,docu="U4.91.01-g",
10537             UIinfo={"groupes":("Impression",)},
10538                fr="Impression du résultat d un calcul (différents formats)",
10539          MODELE          =SIMP(statut='f',typ=modele),
10540          RESU            =FACT(statut='o',min=1,max='**',
10541            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
10542                                  into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED","GMSH") ),
10543
10544            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
10545              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
10546            ),
10547
10548            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
10549              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
10550            ),
10551
10552            regles=(AU_MOINS_UN('CHAM_GD','RESULTAT','MAILLAGE'),
10553                    EXCLUS('CHAM_GD','RESULTAT'),),
10554            MAILLAGE        =SIMP(statut='f',typ=(maillage,squelette)),
10555            INFO_MAILLAGE   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10556            CHAM_GD         =SIMP(statut='f',typ=cham_gd),
10557            RESULTAT        =SIMP(statut='f',typ=resultat),# CO() sd a creer !!!
10558
10559            b_sensibilite   =BLOC(condition="RESULTAT != None",
10560                                  fr="Définition des paramètres de sensibilité",
10561                                  ang="Definition of sensitivity parameters",
10562              SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
10563                                    fr="Liste des paramètres de sensibilité.",
10564                                    ang="List of sensitivity parameters"),),
10565
10566            b_extrac        =BLOC(condition="RESULTAT != None",
10567                                  fr="extraction d un champ de grandeur",
10568              regles=(EXCLUS('TOUT_CHAM','NOM_CHAM'),
10569                      EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP',
10570                             'LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS','ANGL'),),
10571              TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10572              NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
10573
10574              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10575              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
10576              NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
10577              LIST_ORDRE      =SIMP(statut='f',typ=listis),
10578              NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
10579              NOM_CAS         =SIMP(statut='f',typ='TXM',max='**'),
10580              ANGL            =SIMP(statut='f',typ='R',max='**'),
10581              FREQ            =SIMP(statut='f',typ='R',max='**'),
10582              LIST_FREQ       =SIMP(statut='f',typ=listr8),
10583              INST            =SIMP(statut='f',typ='R',max='**'),
10584              LIST_INST       =SIMP(statut='f',typ=listr8),
10585
10586              b_acce_reel     =BLOC(condition="(FREQ != None)or(LIST_FREQ != None)or(INST != None)or(LIST_INST != None)",
10587                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
10588                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10589              ),
10590            ),
10591
10592            b_parametres    =BLOC(condition="""(RESULTAT != None)and(FORMAT == 'RESULTAT')""",
10593              regles=(EXCLUS('TOUT_PARA','NOM_PARA'),),
10594              INFO_RESU       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10595              TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI","NON",) ),
10596              NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
10597              FORM_TABL       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON","EXCEL") ),
10598            ),
10599
10600            b_cmp=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and\
10601                                    ((FORMAT == 'RESULTAT')or(FORMAT == 'ENSIGHT')or(FORMAT == 'MED'))""",
10602                                  fr="sélection des composantes",
10603              regles=(EXCLUS('TOUT_CMP','NOM_CMP'),),
10604              TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10605              NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
10606            ),
10607
10608            b_gmsh=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and((FORMAT == 'GMSH'))""",
10609                                  fr="sélection des composantes et des entités toplogiques",
10610              NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
10611              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10612              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10613            ),
10614
10615            b_topologie=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and\
10616                                    ((FORMAT == 'RESULTAT')or(FORMAT == 'IDEAS')or(FORMAT == 'MED'))""",
10617                                    fr="sélection des entités toplogiques",
10618              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10619              NOEUD           =SIMP(statut='f',typ=no,max='**'),
10620              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
10621              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10622              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10623            ),
10624
10625            b_valeurs         =BLOC(condition="(FORMAT == 'RESULTAT')",
10626                                    fr="sélection sur les valeurs",
10627              VALE_MAX        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10628              VALE_MIN        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10629              BORNE_SUP       =SIMP(statut='f',typ='R'),
10630              BORNE_INF       =SIMP(statut='f',typ='R'),
10631              IMPR_COOR       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10632              FORMAT_R        =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
10633            ),
10634
10635            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
10636            FICHIER         =SIMP(statut='f',typ='TXM'),
10637          ),
10638          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
10639 ) ;
10640 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
10641 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10642 # ======================================================================
10643 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10644 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10645 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10646 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10647 # (AT YOUR OPTION) ANY LATER VERSION.
10648 #
10649 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10650 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10651 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10652 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10653 #
10654 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10655 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10656 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10657 # ======================================================================
10658 IMPR_STURM=PROC(nom="IMPR_STURM",op=32,fr="Calculer et imprimer le nombre de valeurs propres dans un intervalle donné",
10659                 docu="U4.52.01-g",
10660             UIinfo={"groupes":("Résolution",)},
10661          MATR_A          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
10662          MATR_B          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
10663          TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="DYNAMIQUE",into=("MODE_FLAMB","DYNAMIQUE"),
10664                                fr="Type d analyse" ),
10665          b_dynamique  =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
10666                             fr="Recheche du nombre de fréquences propres",
10667              FREQ_MIN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ,fr="Borne inférieure de l intervalle" ),
10668              FREQ_MAX        =SIMP(statut='o',typ='R',fr="Borne supérieure de l intervalle" ),
10669          ),
10670          b_mode_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
10671                             fr="Recherche du nombre de charges critiques",
10672              CHAR_CRIT_MIN   =SIMP(statut='o',typ='R',fr="Borne inférieure de l intervalle" ),
10673              CHAR_CRIT_MAX   =SIMP(statut='o',typ='R',fr="Borne supérieure de l intervalle" ),
10674          ),
10675          NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8 ),
10676          NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
10677          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
10678          PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
10679          SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
10680 )  ;
10681 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
10682 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10683 # ======================================================================
10684 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10685 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10686 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10687 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10688 # (AT YOUR OPTION) ANY LATER VERSION.
10689 #
10690 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10691 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10692 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10693 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10694 #
10695 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10696 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10697 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10698 # ======================================================================
10699 # RESPONSABLE VABHHTS J.PELLET
10700 IMPR_TABLE=PROC(nom="IMPR_TABLE",op=155,docu="U4.91.03-d",
10701             UIinfo={"groupes":("Impression",)},
10702                 fr="Impression d un concept de type table",
10703          TABLE           =SIMP(statut='o',typ=table),
10704          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT", ),
10705          FORMAT          =SIMP(statut='f',typ='TXM',defaut="EXCEL",
10706                                into=("EXCEL","AGRAF","MOT_CLE","TABLEAU","ASTER") ),
10707          FILTRE          =FACT(statut='f',min=1,max='**',
10708            NOM_PARA        =SIMP(statut='o',typ='TXM'),
10709            CRIT_COMP       =SIMP(statut='f',typ='TXM',defaut="EQ",
10710                                  into=("EQ","LT","GT","NE","LE","GE","VIDE",
10711                                        "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
10712            b_vale          =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
10713               regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
10714               VALE            =SIMP(statut='f',typ='R'),
10715               VALE_I          =SIMP(statut='f',typ='I'),
10716               VALE_C          =SIMP(statut='f',typ='C'),
10717               VALE_K          =SIMP(statut='f',typ='TXM'),),
10718
10719            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10720            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10721          ),
10722          TRI             =FACT(statut='f',min=1,max=1,
10723            NOM_PARA        =SIMP(statut='o',typ='TXM',max='**'),
10724            ORDRE           =SIMP(statut='f',typ='TXM',max='**',defaut="CROISSANT",
10725                                  into=("CROISSANT","DECROISSANT") ),
10726            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10727            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10728          ),
10729          PAGINATION      =SIMP(statut='f',typ='TXM',max='**'),
10730          FORMAT_R        =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
10731          FORMAT_C        =SIMP(statut='f',typ='TXM',defaut="MODULE_PHASE",
10732                                     into=("MODULE_PHASE","REEL_IMAG") ),
10733          NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
10734          TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI",)),
10735          IMPR_FONCTION   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10736 )  ;
10737 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
10738 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10739 # ======================================================================
10740 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10741 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10742 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10743 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10744 # (AT YOUR OPTION) ANY LATER VERSION.
10745 #
10746 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10747 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10748 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10749 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10750 #
10751 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10752 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10753 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10754 # ======================================================================
10755 INCLUDE=MACRO(nom="INCLUDE",op=-1,docu="U4.13.01-f",
10756             UIinfo={"groupes":("Gestion du travail",)},
10757              fr="Débranchement vers un fichier de commandes secondaires",
10758              sd_prod=ops.INCLUDE,op_init=ops.INCLUDE_context,fichier_ini=1,
10759          UNITE = SIMP(statut='o',typ='I'),
10760          INFO  = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10761 );
10762 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
10763 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10764 # ======================================================================
10765 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10766 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10767 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10768 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10769 # (AT YOUR OPTION) ANY LATER VERSION.
10770 #
10771 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10772 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10773 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10774 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10775 #
10776 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10777 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10778 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10779 # ======================================================================
10780 INCLUDE_MATERIAU=MACRO(nom="INCLUDE_MATERIAU",op=-14,docu="U4.43.02-b",
10781             UIinfo={"groupes":("Modélisation",)},
10782                        fr=" ",
10783          sd_prod=ops.INCLUDE_MATERIAU,op_init=ops.INCLUDE_context,fichier_ini=0,
10784          NOM_AFNOR       =SIMP(statut='o',typ='TXM' ),
10785          TYPE_MODELE     =SIMP(statut='o',typ='TXM',into=("REF","PAR") ),
10786          VARIANTE        =SIMP(statut='o',typ='TXM',
10787                                into=("A","B","C","D","E","F","G","H","I","J",
10788                                      "K","L","M","N","O","P","Q","R","S","T","U","V",
10789                                      "W","X","Y","Z",) ),
10790          TYPE_VALE       =SIMP(statut='o',typ='TXM',into=("NOMI","MINI","MAXI") ),
10791          NOM_MATER       =SIMP(statut='o',typ='TXM' ),
10792          UNITE           =SIMP(statut='f',typ='I',defaut= 32 ),
10793          EXTRACTION      =FACT(statut='f',min=1,max=99,
10794            COMPOR          =SIMP(statut='o',typ='TXM' ),
10795            TEMP_EVAL       =SIMP(statut='o',typ='R' ),
10796          ),
10797          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
10798 )  ;
10799 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
10800 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10801 # ======================================================================
10802 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10803 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10804 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10805 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10806 # (AT YOUR OPTION) ANY LATER VERSION.
10807 #
10808 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10809 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10810 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10811 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10812 #
10813 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10814 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10815 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10816 # ======================================================================
10817 # RESPONSABLE G8BHHXD X.DESROCHES
10818 INTE_MAIL_2D=OPER(nom="INTE_MAIL_2D",op=50,sd_prod=courbe,docu="U4.81.11-f",
10819             UIinfo={"groupes":("Post traitements",)},
10820                   fr="Définition d une courbe sur un maillage 2D",reentrant='n',
10821
10822          MAILLAGE        =SIMP(statut='o',typ=(maillage) ),
10823
10824          regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
10825                  AU_MOINS_UN('DEFI_SEGMENT','DEFI_ARC','DEFI_CHEMIN'),
10826                  PRESENT_ABSENT('DEFI_CHEMIN','DEFI_SEGMENT','DEFI_ARC'),
10827                  PRESENT_ABSENT('DEFI_SEGMENT','NOEUD_ORIG','GROUP_NO_ORIG'),
10828                  PRESENT_ABSENT('DEFI_ARC','NOEUD_ORIG','GROUP_NO_ORIG'),
10829                  EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
10830                  EXCLUS('DEFI_CHEMIN','DEFI_SEGMENT'),
10831                  EXCLUS('DEFI_CHEMIN','DEFI_ARC'),),
10832
10833          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10834          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10835          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10836
10837          DEFI_SEGMENT    =FACT(statut='f',min=1,max='**',
10838            regles=(UN_PARMI('ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
10839                    UN_PARMI('EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),),
10840            ORIGINE         =SIMP(statut='f',typ='R',min=2,max=2),
10841            NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
10842            GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
10843            EXTREMITE       =SIMP(statut='f',typ='R',min=2,max=2),
10844            NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
10845            GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
10846          ),
10847
10848          DEFI_ARC        =FACT(statut='f',min=1,max='**',
10849            regles=(UN_PARMI('CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),
10850                    UN_PARMI('RAYON','ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
10851                    UN_PARMI('RAYON','EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),
10852                    PRESENT_PRESENT('RAYON','SECTEUR'),),
10853            CENTRE          =SIMP(statut='f',typ='R',min=2,max=2),
10854            NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=1),
10855            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno,max=1),
10856            RAYON           =SIMP(statut='f',typ='R',max=1,val_min=0.E+0),
10857            SECTEUR         =SIMP(statut='f',typ='R',min=2,max=2,
10858                                  val_min=-180.E+0,val_max=180E+0),
10859            ORIGINE         =SIMP(statut='f',typ='R',min=2,max=2),
10860            NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
10861            GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
10862            EXTREMITE       =SIMP(statut='f',typ='R',min=2,max=2),
10863            NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
10864            GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
10865            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10866            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
10867                                  into=("RELATIF","ABSOLU",) ),
10868          ),
10869
10870          DEFI_CHEMIN     =FACT(statut='f',min=1,max='**',
10871            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
10872            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10873            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10874          ),
10875
10876          NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
10877          GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
10878          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
10879          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10880 )  ;
10881 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
10882 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10883 # ======================================================================
10884 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10885 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10886 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10887 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10888 # (AT YOUR OPTION) ANY LATER VERSION.
10889 #
10890 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10891 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10892 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10893 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10894 #
10895 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10896 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10897 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10898 # ======================================================================
10899 # RESPONSABLE G8BHHXD X.DESROCHES
10900 INTE_MAIL_3D=OPER(nom="INTE_MAIL_3D",op=96,sd_prod=surface,docu="U4.81.12-f",
10901             UIinfo={"groupes":("Post traitements",)},
10902                   fr="Définition d un chemin sur un maillage 3D",reentrant='n',
10903          MAILLAGE        =SIMP(statut='o',typ=maillage),
10904          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10905          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10906          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10907          DEFI_SEGMENT    =FACT(statut='o',min=1,max='**',
10908            regles=(UN_PARMI('ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
10909                    UN_PARMI('EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),),
10910            ORIGINE         =SIMP(statut='f',typ='R',min=3,max=3),
10911            NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
10912            GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
10913            EXTREMITE       =SIMP(statut='f',typ='R',min=3,max=3),
10914            NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
10915            GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
10916          ),
10917          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
10918          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10919 )  ;
10920 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
10921 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10922 # ======================================================================
10923 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10924 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10925 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10926 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10927 # (AT YOUR OPTION) ANY LATER VERSION.
10928 #
10929 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10930 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10931 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10932 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10933 #
10934 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10935 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10936 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10937 # ======================================================================
10938 def lire_champ_prod(TYPE_CHAM=None,**args):
10939   if TYPE_CHAM == "CHAM_NO_TEMP_R" : return cham_no_temp_r
10940   if TYPE_CHAM == "CHAM_NO_DEPL_R" : return cham_no_depl_r
10941   raise AsException("type de concept resultat non prevu")
10942
10943 LIRE_CHAMP=OPER(nom="LIRE_CHAMP",op= 192,sd_prod=lire_champ_prod,
10944                 fr="Lire un champ dans un fichier et le stocker dans un concept.",
10945                 ang="To read a field in a file and to save it in a concept.",
10946                 docu="U7.02.02-b",reentrant='n',
10947             UIinfo={"groupes":("Post traitements",)},
10948 #
10949 # 1. Le maillage support du champ
10950 #
10951          MAILLAGE        =SIMP(statut='o',typ=maillage,
10952                           fr="Nom du maillage support du champ",
10953                           ang="Name of the mesh on which the field is defined" ),
10954 #
10955 # 2. Format de lecture
10956 #    Remarque : seul MED est operationnel dans cette version.
10957 #
10958          FORMAT          =SIMP(statut='f',typ='TXM',defaut="MED",into=("MED",),
10959                           fr="Format du fichier : MED seulement",
10960                           ang="Format of the file : MED only" ),
10961 #
10962 # 3. L'unite logique du fichier.
10963 #
10964          UNITE           =SIMP(statut='f',typ='I',defaut= 81,
10965                           fr="Le fichier est : fort.n.",
10966                           ang="File is : fort.n" ),
10967 #
10968 # 4. Pour le format MED, il faut preciser le nom sous lequel le champ est connu dans le fichier
10969 #    et les composantes a lire
10970 #
10971          b_format =BLOC(condition = "FORMAT == 'MED'",
10972                         fr="Nom du champ dans le fichier MED",
10973          regles=(UN_PARMI('NOM_CMP_IDEM','NOM_CMP'),
10974           PRESENT_PRESENT('NOM_CMP','NOM_CMP_MED' ),),
10975 #
10976             NOM_MED      =SIMP(statut='o',typ='TXM',
10977                           fr="Nom du champ dans le fichier MED.",
10978                           ang="Name of the field in the MED file." ),
10979 #
10980             NOM_CMP_IDEM =SIMP(statut='f',typ='TXM',into=("OUI",),
10981                           fr="Les composantes ont le meme nom dans MED et ASTER.",
10982                           ang="The names of the components are the same in ASTER and MED." ),
10983             NOM_CMP      =SIMP(statut='f',typ='TXM',max='**',
10984                           fr="Nom des composantes dans ASTER.",
10985                           ang="Names of the components in ASTER" ),
10986             NOM_CMP_MED  =SIMP(statut='f',typ='TXM',max='**',
10987                           fr="Nom des composantes dans MED.",
10988                           ang="Names of the components in MED" ),
10989 #
10990             NUME_ORDRE   =SIMP(statut='f',typ='I',max='**',
10991                           fr="Numéro d'ordre du champ à lire.",
10992                           ang="Rank number of the field to read."),
10993 #
10994             NUME_PT      =SIMP(statut='f',typ='I',max='**',
10995                           fr="Numéro du pas de temps du champ à lire.",
10996                           ang="Time step number of the field to read."),
10997 #
10998 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
10999 # le maillage associé au champ y a été enregistré. Par défaut, on prendra le premier maillage.
11000 #
11001             NOM_MAIL_MED = SIMP(statut='f',typ='TXM',
11002                            fr="Nom du maillage dans le fichier MED.",
11003                            ang="Name of the mesh into the MED file.",),
11004 #
11005                   ),
11006 #
11007 # 5. Le type du concept lu
11008 #
11009          TYPE_CHAM       =SIMP(statut='o',typ='TXM',into=("CHAM_NO_TEMP_R","CHAM_NO_DEPL_R"),
11010                           fr="Type de champ à créer.",
11011                           ang="Type of the field to create." ),
11012 #
11013 # 6. Le niveau d'information
11014 #
11015          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11016 )  ;
11017 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
11018 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11019 # ======================================================================
11020 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11021 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11022 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11023 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11024 # (AT YOUR OPTION) ANY LATER VERSION.
11025 #
11026 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11027 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11028 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11029 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11030 #
11031 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11032 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11033 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11034 # ======================================================================
11035 LIRE_FONCTION=OPER(nom="LIRE_FONCTION",op=  83,sd_prod=fonction,
11036                    fr="Lecture d une fonction dans un fichier ",
11037                    docu="U4.32.02-f",reentrant='n',
11038             UIinfo={"groupes":("Fonction",)},
11039          UNITE           =SIMP(statut='o',typ='I' ),
11040          NOM_PARA        =SIMP(statut='f',typ='TXM',
11041                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
11042                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
11043          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
11044          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
11045          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
11046          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
11047          NOM_PARA_FONC   =SIMP(statut='f',typ='TXM',
11048                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
11049                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
11050          INTERPOL_FONC   =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
11051          PROL_DROITE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
11052          PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
11053          INFO            =SIMP(statut='f',typ='I',defaut= 2,into=( 1 , 2) ),
11054          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11055 )  ;
11056 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
11057 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11058 # ======================================================================
11059 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11060 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11061 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11062 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11063 # (AT YOUR OPTION) ANY LATER VERSION.
11064 #
11065 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11066 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11067 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11068 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11069 #
11070 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11071 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11072 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11073 # ======================================================================
11074 LIRE_INTE_SPEC=OPER(nom="LIRE_INTE_SPEC",op= 116,sd_prod=tabl_intsp,
11075                     fr="Lecture sur un fichier externe de  fonctions complexes pour créer une matrice interspectrale",
11076                     docu="U4.36.01-f",reentrant='n',
11077             UIinfo={"groupes":("Fonction",)},
11078          UNITE           =SIMP(statut='o',typ='I' ),
11079          FORMAT          =SIMP(statut='f',typ='TXM',defaut="MODULE_PHASE",into=("REEL_IMAG","MODULE_PHASE") ),
11080          NOM_PARA        =SIMP(statut='f',typ='TXM',
11081                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
11082                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
11083          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
11084          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
11085          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
11086          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
11087          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11088          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
11089 )  ;
11090 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
11091 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11092 # ======================================================================
11093 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11094 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11095 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11096 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11097 # (AT YOUR OPTION) ANY LATER VERSION.
11098 #
11099 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11100 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11101 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11102 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11103 #
11104 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11105 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11106 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11107 # ======================================================================
11108 # RESPONSABLE VABHHTS J.PELLET
11109 LIRE_MAILLAGE=OPER(nom="LIRE_MAILLAGE",op=   1,sd_prod=maillage,
11110                    fr="Lecture d'un fichier de maillage",
11111                    ang="Readings of a mesh file",
11112                    docu="U4.21.01-g",reentrant='n',
11113             UIinfo={"groupes":("Maillage",)},
11114 #
11115          UNITE           =SIMP(statut='f',typ='I',defaut= 20 ),
11116 #
11117          FORMAT          =SIMP(statut='f',typ='TXM',defaut="ASTER",into=("ASTER","MED"),
11118                             fr="Format du fichier : ASTER ou MED.",
11119                             ang="Format of the file : ASTER or MED.",),
11120 #
11121          ABSC_CURV       =FACT(statut='f',min=0,max=1,
11122                TOUT          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11123          ),
11124 #
11125          VERI_MAIL       =FACT(statut='d',min=1,max=1,
11126                VERIF         =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11127                APLAT         =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11128          ),
11129 #
11130          b_format_med =BLOC( condition = " ( FORMAT == 'MED' ) " ,
11131                            fr="Informations complémentaires pour la lecture MED.",
11132                            ang="Further information for MED readings.",
11133 #
11134 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
11135 # le maillage y a été enregistré. Par défaut, on va le chercher sous le nom du concept à créer.
11136 #
11137               NOM_MED    = SIMP(statut='f',typ='TXM',
11138                             fr="Nom du maillage dans le fichier MED.",
11139                             ang="Name of the mesh into the MED file.",),
11140 #
11141               INFO_MED   = SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11142 #
11143                            ) ,
11144 #
11145          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11146 #
11147 )  ;
11148 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
11149 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11150 # ======================================================================
11151 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11152 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11153 #              REDISTRIBUTION OF THIS FILE.
11154 # ======================================================================
11155 def lire_miss_3d_prod(TYPE_RESU,**args):
11156   if TYPE_RESU == "TRANS" : return dyna_trans
11157   if TYPE_RESU == "HARMO" : return dyna_harmo
11158   raise AsException("type de concept resultat non prevu")
11159
11160 LIRE_MISS_3D=OPER(nom="LIRE_MISS_3D",op= 163,sd_prod=lire_miss_3d_prod,
11161                   fr="Restitution au format MISS3D d une évolution harmonique ou transitoire",
11162                   docu="U7.02.31-d",reentrant='n',
11163             UIinfo={"groupes":("Maillage",)},
11164          MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
11165          UNITE           =SIMP(statut='f',typ='I',defaut= 27 ),
11166          NOM             =SIMP(statut='f',typ='TXM' ),
11167          TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="TRANS",into=("TRANS","HARMO") ),
11168          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11169 )  ;
11170 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
11171 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11172 # ======================================================================
11173 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11174 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11175 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11176 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11177 # (AT YOUR OPTION) ANY LATER VERSION.
11178 #
11179 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11180 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11181 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11182 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11183 #
11184 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11185 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11186 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11187 # ======================================================================
11188 LIRE_PLEXUS=OPER(nom="LIRE_PLEXUS",op= 184,sd_prod=evol_char,
11189                  fr=" ",
11190                  docu="U7.02.11-b",reentrant='n',
11191             UIinfo={"groupes":("Maillage",)},
11192          regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
11193          UNITE           =SIMP(statut='f',typ='I',defaut= 19 ),
11194          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",)),
11195          MAIL_PLEXUS     =SIMP(statut='o',typ=maillage ),
11196          MAILLAGE        =SIMP(statut='o',typ=maillage ),
11197          MODELE          =SIMP(statut='o',typ=modele ),
11198          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11199          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
11200          LIST_ORDRE      =SIMP(statut='f',typ=listis ),
11201          INST            =SIMP(statut='f',typ='R',max='**'),
11202          LIST_INST       =SIMP(statut='f',typ=listr8 ),
11203          b_prec_crit     =BLOC(condition = "LIST_INST != None or INST != None",
11204              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
11205              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
11206                                    into=("RELATIF","ABSOLU") ),
11207          ),
11208          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11209 )  ;
11210 #& MODIF COMMANDE  DATE 09/09/2003   AUTEUR VABHHTS J.PELLET
11211 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11212 # ======================================================================
11213 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11214 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11215 #              REDISTRIBUTION OF THIS FILE.
11216 # ======================================================================
11217 # RESPONSABLE VABHHTS J.PELLET
11218 def lire_resu_prod(TYPE_RESU,**args):
11219   if TYPE_RESU == "EVOL_CHAR" :  return evol_char
11220   if TYPE_RESU == "EVOL_THER" :  return evol_ther
11221   if TYPE_RESU == "EVOL_ELAS" :  return evol_elas
11222   if TYPE_RESU == "EVOL_NOLI" :  return evol_noli
11223   if TYPE_RESU == "DYNA_TRANS" : return dyna_trans
11224   if TYPE_RESU == "DYNA_HARMO" : return dyna_harmo
11225   if TYPE_RESU == "HARM_GENE" :  return harm_gene
11226   if TYPE_RESU == "MODE_MECA" :  return mode_meca
11227   raise AsException("type de concept resultat non prevu")
11228
11229 # pour éviter d'écrire 3 fois cette liste :
11230 def l_nom_cham_pas_elga(): return (
11231      "ACCE", "ACCE_ABSOLU", "CRIT_ELNO_RUPT", "DCHA_ELNO_SIGM",
11232      "DCHA_NOEU_SIGM", "DEDE_ELNO_DLDE", "DEDE_NOEU_DLDE", "DEGE_ELNO_DEPL", "DEGE_NOEU_DEPL",
11233      "DEPL", "DEPL_ABSOLU", "DESI_ELNO_DLSI", "DESI_NOEU_DLSI", "DETE_ELNO_DLTE", "DETE_NOEU_DLTE",
11234      "DURT_ELNO_META", "DURT_NOEU_META", "ECIN_ELEM_DEPL", "EFGE_ELNO_CART", "EFGE_ELNO_DEPL",
11235      "EFGE_NOEU_CART", "EFGE_NOEU_DEPL", "ENDO_ELNO_SIGA", "ENDO_ELNO_SINO", "ENDO_NOEU_SINO",
11236      "ENEL_ELNO_ELGA", "ENEL_NOEU_ELGA", "EPEQ_ELNO_TUYO", "EPGR_ELNO", "EPME_ELNO_DEPL",
11237      "EPMG_ELNO_DEPL", "EPMG_NOEU_DEPL", "EPOT_ELEM_DEPL", "EPSA_ELNO", "EPSA_NOEU",
11238      "EPSG_ELNO_DEPL", "EPSG_NOEU_DEPL", "EPSI_ELNO_DEPL", "EPSI_ELNO_TUYO", "EPSI_NOEU_DEPL",
11239      "EPSP_ELNO", "EPSP_ELNO_ZAC", "EPSP_NOEU", "EPSP_NOEU_ZAC", "EQUI_ELNO_EPME", "EQUI_ELNO_EPSI",
11240      "EQUI_ELNO_SIGM", "EQUI_NOEU_EPME", "EQUI_NOEU_EPSI", "EQUI_NOEU_SIGM", "ERRE_ELEM_NOZ1",
11241      "ERRE_ELEM_NOZ2", "ERRE_ELNO_ELGA", "ERRE_NOEU_ELGA", "ERTH_ELEM_TEMP", "ERTH_ELNO_ELEM",
11242      "ETOT_ELEM", "ETOT_ELNO_ELGA", "FLUX_ELNO_TEMP", "FLUX_NOEU_TEMP", "FORC_NODA", "FSUR_2D",
11243      "FSUR_3D", "FVOL_2D", "FVOL_3D", "GRAD_NOEU_THETA", "HYDR_ELNO_ELGA", "HYDR_NOEU_ELGA",
11244      "INTE_ELNO_ACTI", "INTE_ELNO_REAC", "INTE_NOEU_ACTI", "INTE_NOEU_REAC", "IRRA",
11245      "META_ELNO_TEMP", "META_NOEU_TEMP", "PMPB_ELNO_SIEF", "PMPB_NOEU_SIEF",
11246      "PRES", "PRES_DBEL_DEPL", "PRES_ELNO_DBEL", "PRES_ELNO_IMAG", "PRES_ELNO_REEL",
11247      "PRES_NOEU_DBEL", "PRES_NOEU_IMAG", "PRES_NOEU_REEL",
11248      "RADI_ELNO_SIGM", "RADI_NOEU_SIGM", "REAC_NODA",
11249      "SIEF_ELNO", "SIEF_ELNO_ELGA", "SIEF_NOEU", "SIEF_NOEU_ELGA", "SIEQ_ELNO_TUYO",
11250      "SIGM_ELNO_CART", "SIGM_ELNO_COQU", "SIGM_ELNO_DEPL", "SIGM_ELNO_SIEF",
11251      "SIGM_ELNO_TUYO", "SIGM_ELNO_ZAC", "SIGM_NOEU_CART", "SIGM_NOEU_COQU",
11252      "SIGM_NOEU_DEPL", "SIGM_NOEU_SIEF", "SIGM_NOEU_ZAC", "SIGM_NOZ1_ELGA",
11253      "SIGM_NOZ2_ELGA", "SIPO_ELNO_DEPL", "SIPO_ELNO_SIEF", "SIPO_NOEU_DEPL",
11254      "SIPO_NOEU_SIEF", "SIRE_ELNO_DEPL", "SIRE_NOEU_DEPL", "TEMP", "THETA",
11255      "VALE_CONT", "VALE_NCOU_MAXI", "VARI_ELNO", "VARI_ELNO_COQU",
11256      "VARI_ELNO_ELGA", "VARI_ELNO_TUYO", "VARI_NOEU", "VARI_NOEU_ELGA", "VARI_NON_LOCAL",
11257      "VITE", "VITE_ABSOLU", "VITE_VENT",
11258                            )
11259
11260
11261
11262 LIRE_RESU=OPER(nom="LIRE_RESU",op=150,sd_prod=lire_resu_prod,docu="U7.02.01-d",reentrant='n',
11263             UIinfo={"groupes":("Maillage",)},
11264                fr="Lecture de champs aux noeuds ou par éléments aux noeuds sur un fichier IDEAS ou EnSight",
11265
11266
11267 # 0 mots clés généraux :
11268 #----------------------
11269          TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_THER","EVOL_ELAS","EVOL_NOLI","MODE_MECA",
11270                                                           "DYNA_TRANS","DYNA_HARMO","HARM_GENE","EVOL_CHAR") ),
11271
11272          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS","ENSIGHT","MED") ),
11273          DATASET_58      =SIMP(statut='f',typ='TXM',defaut='NON',into=('OUI','NON',) ),
11274
11275          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
11276          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11277
11278          regles=(UN_PARMI('MAILLAGE','MODELE'),),
11279          MAILLAGE        =SIMP(statut='f',typ=maillage),
11280          MODELE          =SIMP(statut='f',typ=modele),
11281
11282          NB_VARI         =SIMP(statut='f',typ='I' ),
11283
11284
11285 # 1 blocs selon le format choisi :
11286 #---------------------------------
11287
11288 # 1-1 ideas :
11289 # ---------
11290          b_ideas         =BLOC(condition="FORMAT=='IDEAS'",
11291            UNITE           =SIMP(statut='f',typ='I',defaut= 19 ),
11292          ),
11293
11294          b_format_ideas = BLOC(condition="FORMAT=='IDEAS' and DATASET_58=='NON'",
11295            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',into=l_nom_cham_pas_elga()),
11296            FORMAT_IDEAS    =FACT(statut='f',max='**',
11297              regles=(UN_PARMI('POSI_INST','POSI_FREQ'),),
11298              NOM_CHAM        =SIMP(statut='o',typ='TXM',into=l_nom_cham_pas_elga()),
11299              NUME_DATASET    =SIMP(statut='f',typ='I',into=(55,57,2414) ),
11300              RECORD_3        =SIMP(statut='f',typ='I',max=10),
11301              RECORD_6        =SIMP(statut='f',typ='I',max=10),
11302              RECORD_9        =SIMP(statut='f',typ='I',max=10),
11303              POSI_ORDRE      =SIMP(statut='o',typ='I',min=2,max=2),
11304              POSI_NUME_MODE  =SIMP(statut='f',typ='I',min=2,max=2),
11305              POSI_MASS_GENE  =SIMP(statut='f',typ='I',min=2,max=2),
11306              POSI_INST       =SIMP(statut='f',typ='I',min=2,max=2),
11307              POSI_FREQ       =SIMP(statut='f',typ='I',min=2,max=2),
11308              NOM_CMP         =SIMP(statut='o',typ='TXM',max='**'),),
11309          ),
11310
11311          b_dataset_58 = BLOC(condition="FORMAT=='IDEAS' and  DATASET_58=='OUI' \
11312              and TYPE_RESU in ('DYNA_TRANS','DYNA_HARMO','HARM_GENE')",
11313              NOM_CHAM=SIMP(statut='o',typ='TXM',into=("DEPL","VITE","ACCE","EPSI_NOEU_DEPL","SIEF_NOEU",) ),
11314              REDEFI_ORIENT=FACT(statut='f',max='**',
11315                                 regles=(PRESENT_PRESENT('CODE_DIR','DIRECTION','NOEUD',),),
11316                                 CODE_DIR =SIMP(statut='f',typ='I',into=(1,2,3,) ),
11317                                 DIRECTION=SIMP(statut='f',typ='R',min=3,max=3,),
11318                                 NOEUD    =SIMP(statut='f',typ=no,max='**'),),
11319          ),
11320 # 1-2 ensight :
11321 # -------------
11322          b_ensight       =BLOC(condition="FORMAT=='ENSIGHT'",
11323            NOM_FICHIER     =SIMP(statut='f',typ='TXM'),
11324            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',into=l_nom_cham_pas_elga()),
11325          ),
11326 # 1-3 med :
11327 # ---------
11328          b_med           =BLOC(condition = "FORMAT == 'MED'",fr="Nom du champ dans le fichier MED",
11329 #                           regles=(UN_PARMI('NOM_CMP_IDEM','NOM_CMP'),
11330 #                           PRESENT_PRESENT('NOM_CMP','NOM_CMP_MED' ),),
11331            NOM_CHAM        =SIMP(statut='o',typ='TXM',into=l_nom_cham_pas_elga()),
11332            NOM_MED         =SIMP(statut='o',typ='TXM',
11333                                  fr="Nom du champ dans le fichier MED.",
11334                                  ang="Name of the field in the MED file." ),
11335            NOM_CMP_IDEM    =SIMP(statut='f',typ='TXM',into=("OUI",),
11336                                  fr="Les composantes ont le meme nom dans MED et ASTER.",
11337                                  ang="The names of the components are the same in ASTER and MED." ),
11338            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**',
11339                                  fr="Nom des composantes dans ASTER.",
11340                                  ang="Names of the components in ASTER" ),
11341            NOM_CMP_MED     =SIMP(statut='f',typ='TXM',max='**',
11342                                  fr="Nom des composantes dans MED.",
11343                                  ang="Names of the components in MED" ),
11344 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
11345 # le maillage associé au champ y a été enregistré. Par défaut, on prendra le premier maillage.
11346            NOM_MAIL_MED    =SIMP(statut='f',typ='TXM',
11347                                  fr="Nom du maillage dans le fichier MED.",
11348                                  ang="Name of the mesh into the MED file.",),
11349            UNITE           =SIMP(statut='f',typ='I',defaut= 81,
11350                                  fr="Le fichier est : fort.n.",
11351                                  ang="File is : fort.n" ),
11352                   ),
11353
11354
11355 # 2 blocs selon le type du résultat :
11356 #---------------------------------
11357          b_mode_meca     =BLOC(condition="TYPE_RESU=='MODE_MECA'",
11358            MATR_A         =SIMP(statut='f',typ=matr_asse_depl_r),
11359            MATR_B         =SIMP(statut='f',typ=matr_asse_depl_r),
11360          ),
11361
11362
11363 # 3 autres blocs :
11364 #---------------------------------
11365          b_extrac        =BLOC(condition="1",fr="accès à un champ dans la structure de données résultat",
11366            regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST','FREQ','LIST_FREQ'),),
11367            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11368            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
11369            INST            =SIMP(statut='f',typ='R',max='**'),
11370            LIST_INST       =SIMP(statut='f',typ=listr8),
11371            LIST_ORDRE      =SIMP(statut='f',typ=listis),
11372            FREQ            =SIMP(statut='f',typ='R',max='**'),
11373            LIST_FREQ       =SIMP(statut='f',typ=listr8),
11374
11375            b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)or(FREQ != None)or(LIST_FREQ != None)",
11376              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
11377              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
11378            ),
11379          ),
11380 )  ;
11381 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
11382 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11383 # ======================================================================
11384 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
11385 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11386 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11387 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11388 # (AT YOUR OPTION) ANY LATER VERSION.
11389 #
11390 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11391 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11392 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11393 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11394 #
11395 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11396 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11397 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11398 # ======================================================================
11399 def lire_table_prod(TYPE_TABLE,**args):
11400   if TYPE_TABLE == "TABLE"          : return table
11401   if TYPE_TABLE == "TABL_CARA_GEOM" : return tabl_cara_geom
11402   if TYPE_TABLE == "TABL_POST_RELE" : return tabl_post_rele
11403   if TYPE_TABLE == "TABL_POST_USUR" : return tabl_post_usur
11404   if TYPE_TABLE == "TABL_POST_ALEA" : return tabl_post_alea
11405   raise AsException("type de concept resultat non prevu")
11406 LIRE_TABLE=OPER(nom="LIRE_TABLE",op=29,sd_prod=lire_table_prod,
11407                 docu="U7.02.03-a",fr="Lecture d un concept de type table",
11408             UIinfo={"groupes":("Maillage",)},
11409          UNITE           =SIMP(statut='o',typ='I' ),
11410          FORMAT          =SIMP(statut='f',typ='TXM',into=("ASTER",),defaut="ASTER"),
11411          NUME_TABLE      =SIMP(statut='f',typ='I',defaut=1),
11412          TYPE_TABLE      =SIMP(statut='f',typ='TXM',defaut="TABLE",
11413                               into=("TABLE",
11414                                     "TABL_CARA_GEOM",
11415                                     "TABL_POST_RELE",
11416                                     "TABL_POST_USUR",
11417                                     "TABL_POST_ALEA" ) ),
11418          SEPARATEUR      =SIMP(statut='o',typ='TXM'),
11419          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11420          )  ;
11421 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
11422 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11423 # ======================================================================
11424 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11425 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11426 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11427 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11428 # (AT YOUR OPTION) ANY LATER VERSION.
11429 #
11430 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11431 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11432 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11433 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11434 #
11435 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11436 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11437 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11438 # ======================================================================
11439 # RESPONSABLE GNICOLAS G.NICOLAS
11440 def macr_adap_mail_prod(self,MAJ_CHAM,ADAPTATION,**args):
11441   mail1=ADAPTATION['MAILLAGE_N']
11442   self.type_sdprod(mail1,maillage)
11443   mail2=ADAPTATION['MAILLAGE_NP1']
11444   self.type_sdprod(mail2,maillage)
11445   if MAJ_CHAM == None:return None
11446   for ch in MAJ_CHAM:
11447     t=ch['TYPE_CHAM']
11448     if t == 'CHAM_NO_TEMP_R':self.type_sdprod(ch['CHAM_MAJ'],cham_no_temp_r)
11449     if t == 'CHAM_NO_DEPL_R':self.type_sdprod(ch['CHAM_MAJ'],cham_no_depl_r)
11450   return None
11451
11452 MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",op=-24,sd_prod=macr_adap_mail_prod,
11453                      fr="Adapter un maillage avec le logiciel HOMARD.",
11454                      ang="Mesh adaptation with HOMARD software.",
11455                      docu="U7.03.01-b",
11456 #
11457 # 1. Le niveau d'information
11458 #
11459          INFO           = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
11460 #
11461 # 2. Version de HOMARD
11462 #
11463          VERSION_HOMARD = SIMP(statut='f',typ='TXM',defaut="V5_5",
11464                                into=("V5_5", "V5_N", "V5_N_PERSO"),
11465                            fr="Version de HOMARD",
11466                            ang="HOMARD release"),
11467 #
11468 # 3. Langue des messages issus de HOMARD
11469 #
11470          LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
11471                                into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
11472                            fr="Langue des messages issus de HOMARD.",
11473                            ang="Language for HOMARD messages." ),
11474 #
11475 # 4. LE TYPE DE TRAITEMENT :
11476 #
11477          ADAPTATION      =FACT(statut='o',min=01,max=01,
11478                            fr="Type d'adaptation",
11479                            ang="Type of adaptation",
11480 #
11481 # 4.1. DEUX CHOIX D'ADAPTATION EXCLUSIFS :
11482 #
11483 # 4.1.
11484 #      A. SELON UN INDICATEUR D'ERREUR, AVEC TROIS VARIANTES :
11485 #         . RAFFINEMENT ET DERAFFINEMENT
11486 #         . RAFFINEMENT SEUL
11487 #         . DERAFFINEMENT SEUL
11488 #      B. UNIFORME, AVEC TROIS VARIANTES :
11489 #         . RAFFINEMENT SEUL
11490 #         . DERAFFINEMENT SEUL
11491 #         . RIEN : LE MAILLAGE EST LE MEME A LA SORTIE ET A L'ENTREE
11492 #
11493            regles=(
11494                    UN_PARMI('LIBRE','UNIFORME'),
11495                   ),
11496            LIBRE          = SIMP(statut='f',typ='TXM',
11497                                  into=("RAFF_DERA","RAFFINEMENT","DERAFFINEMENT"),
11498                            fr="Adaptation selon un indicateur d'erreur.",
11499                            ang="Adaptation among an error indicator" ),
11500            UNIFORME       = SIMP(statut='f',typ='TXM',
11501                                  into=("RAFFINEMENT","DERAFFINEMENT","RIEN"),
11502                            fr="Adaptation uniforme.",
11503                            ang="Uniform adaptation" ),
11504 #
11505 # 4.2. QUEL QUE SOIT LE TYPE DE TRAITEMENT, IL FAUT DONNER  :
11506 #      A. LE CONCEPT DU MAILLAGE INITIAL
11507 #      B. LE CONCEPT DU MAILLAGE FINAL
11508 #
11509            MAILLAGE_N     = SIMP(statut='o',typ=(CO,maillage),
11510                            fr="Maillage avant adaptation",
11511                            ang="Mesh before adaptation" ),
11512            MAILLAGE_NP1   = SIMP(statut='o',typ=(CO,maillage),
11513                            fr="Maillage apres adaptation",
11514                            ang="Mesh after adaptation" ),
11515 #
11516 # 4.3. POUR DE L'ADAPTATION LIBRE, IL FAUT L'INDICATEUR D'ERREUR
11517 #
11518 #
11519            b_indicateur_d_erreur   =BLOC( condition = " LIBRE != None " ,
11520                            fr="Indicateur d'erreur",
11521                            ang="Error indicator",
11522 #
11523 # 4.3.1. LE NOM DU CONCEPT RESULTAT
11524 #
11525                            RESULTAT_N     = SIMP(statut='o',typ=(evol_elas,evol_noli,evol_ther) ,
11526                            fr="Resultat contenant l'indicateur d'erreur",
11527                            ang="Result with error indicator" ),
11528 #
11529 # 4.3.2. LE CHAMP D'INDICATEUR D'ERREUR
11530 #
11531                            INDICATEUR     = SIMP(statut='o',typ='TXM',
11532                            fr="Champ de l'indicateur d'erreur",
11533                            ang="Error indicator field" ),
11534 #
11535 # 4.3.3. LA COMPOSANTE RETENUE
11536 #
11537                            NOM_CMP_INDICA = SIMP(statut='o',typ='TXM',
11538                            fr="Composante retenue",
11539                            ang="Selected component" ),
11540 #
11541 # 4.3.4. LE NUMERO D'ORDRE
11542 #
11543                            NUME_ORDRE     = SIMP(statut='f',typ='I' ,
11544                            fr="Numero d ordre",
11545                            ang="Rank" ),
11546                            ) ,
11547 #
11548 # 4.4. LES CRITERES POUR DE L'ADAPTATION LIBRE :
11549 #        ABSOLU, RELATIF, EN PROPORTION D'ENTITE
11550 # 4.4.1. POUR LE RAFFINEMENT :
11551 #
11552            b_critere_de_raffinement =BLOC( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'RAFFINEMENT' ) " ,
11553                            fr="Critère de raffinement.",
11554                            ang="Refinement threshold.",
11555                            regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE' ),),
11556                            CRIT_RAFF_ABS  = SIMP(statut='f',typ='R',
11557                                                    fr="Critère absolu",
11558                                                    ang="Absolute threshold" ),
11559                            CRIT_RAFF_REL  = SIMP(statut='f',typ='R',
11560                                                    fr="Critère relatif",
11561                                                    ang="Relative threshold" ),
11562                            CRIT_RAFF_PE   = SIMP(statut='f',typ='R',
11563                                                    fr="Pourcentage d'éléments",
11564                                                    ang="Percentage of elements" ),
11565                            ) ,
11566 #
11567 # 4.4.2. POUR LE DERAFFINEMENT :
11568 #
11569            b_critere_de_deraffinement =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'DERAFFINEMENT' ) " ,
11570                            fr="Critère de déraffinement.",
11571                            ang="Unrefinement threshold.",
11572                            regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE' ),),
11573                            CRIT_DERA_ABS  = SIMP(statut='f',typ='R' ,
11574                                                  fr="Critère absolu",
11575                                                  ang="Absolute threshold" ),
11576                            CRIT_DERA_REL  = SIMP(statut='f',typ='R',
11577                                                  fr="Critère relatif",
11578                                                  ang="Relative threshold" ),
11579                            CRIT_DERA_PE   = SIMP(statut='f',typ='R',
11580                                                  fr="Pourcentage d'éléments",
11581                                                  ang="Percentage of elements" ),
11582                            ) ,
11583 #
11584 # 4.5. LES NIVEAUX EXTREMES POUR LE MAILLAGE ADAPTE
11585 # 4.5.1. POUR LE RAFFINEMENT :
11586 #
11587            b_niveau_maximum =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'RAFFINEMENT' ) or \
11588                                                   ( UNIFORME == 'RAFFINEMENT' ) " ,
11589                              fr="Niveau maximum de profondeur de raffinement",
11590                              ang="Maximum level for refinement",
11591                              NIVE_MAX       = SIMP(statut='f',typ='I' ),
11592                            ) ,
11593 #
11594 # 4.5.2. POUR LE DERAFFINEMENT :
11595 #
11596            b_niveau_minimum =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'DERAFFINEMENT' ) or \
11597                                                   ( UNIFORME == 'DERAFFINEMENT' ) " ,
11598                              fr="Niveau minimum de profondeur de déraffinement",
11599                              ang="Minimum level for unrefinement",
11600                              NIVE_MIN       = SIMP(statut='f',typ='I' ),
11601                            ) ,
11602          ),
11603 #
11604 # 5. LA MISE A JOUR DE CHAMPS.
11605 #    PAR DEFAUT, RIEN NE SE FAIT
11606 #
11607          MAJ_CHAM        =FACT(statut='f',min=01,max='**',
11608                            fr="Mise à jour de champs sur le nouveau maillage.",
11609                            ang="Updating of fields over the new mesh.",
11610 #
11611 # 5.1. LE NOM DU RESULTAT DU CHAMP A INTERPOLER
11612 #
11613            RESULTAT       = SIMP(statut='o',
11614                                  typ=(evol_elas,evol_noli,evol_ther),
11615                            fr="Resultat contenant le champ à mettre à jour",
11616                            ang="Result with field to be updated" ),
11617 #
11618 # 5.2. LE NOM DU CHAMP A INTERPOLER
11619 #
11620            NOM_CHAM       = SIMP(statut='o',typ='TXM',
11621                            fr="Nom du champ à mettre à jour",
11622                            ang="Name of the field to be updated" ),
11623 #
11624 # 5.3. LE NUMERO D'ORDRE POUR LE CHAMP A INTERPOLER
11625 #
11626            NUME_ORDRE     = SIMP(statut='f',typ='I',
11627                            fr="Numero d ordre du champ à mettre à jour",
11628                            ang="Rank of the field to be updated" ),
11629 #
11630 # 5.4. LE NOM DU CHAMP QUI CONTIENDRA LE RESULTAT DE LA MISE A JOUR
11631 #
11632            CHAM_MAJ       = SIMP(statut='o',typ=(CO,cham_gd),
11633                            fr="Nom du champ qui contiendra le champ mis à jour",
11634                            ang="Name of the field for the updated field"),
11635 #
11636 # 5.5. LE TYPE DU CHAMP QUI CONTIENDRA LE RESULTAT DE LA MISE A JOUR
11637 #
11638            TYPE_CHAM      = SIMP(statut='o',typ='TXM',
11639                                  into=("CHAM_NO_TEMP_R","CHAM_NO_DEPL_R"),
11640                            fr="Type du champ qui contiendra le champ mis à jour",
11641                            ang="Type of the field for the updated field" ),
11642          ),
11643 #
11644 # 6. INFORMATION SUR LE MAILLAGE : par defaut, on ne fait que les nombres
11645 #    A. NOMBRE DE NOEUDS ET ELEMENTS DU MAILLAGE
11646 #    B. QUALITE DES ELEMENTS DU MAILLAGE
11647 #    C. CONTROLE DE LA NON INTERPENETRATION DES ELEMENTS DU MAILLAGE
11648 #    D. CONNEXITE DU MAILLAGE
11649 #    E. TAILLE DES DIFFERENTS SOUS-DOMAINES
11650 #
11651          NOMBRE         = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
11652                           fr="Nombre de noeuds et éléments du maillage",
11653                           ang="Number of nodes and elements in the mesh" ),
11654 #
11655          QUALITE        = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11656                           fr="Qualité du maillage",
11657                           ang="Mesh quality" ),
11658 #
11659          INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11660                           fr="Controle de la non interpénétration des éléments.",
11661                           ang="Overlapping checking." ),
11662 #
11663          CONNEXITE      = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11664                           fr="Connexité du maillage.",
11665                           ang="Mesh connexity." ),
11666 #
11667          TAILLE         = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11668                           fr="Tailles des sous-domaines du maillage.",
11669                           ang="Sizes of mesh sub-domains." ),
11670 #
11671          MENAGE         = SIMP(statut='f',typ='TXM',into=("MAILLAGE","SOLUTION","TOUT") ),
11672 #
11673 )  ;
11674 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
11675 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11676 # ======================================================================
11677 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11678 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11679 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11680 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11681 # (AT YOUR OPTION) ANY LATER VERSION.
11682 #
11683 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11684 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11685 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11686 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11687 #
11688 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11689 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11690 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11691 # ======================================================================
11692 # RESPONSABLE F1BHHAJ J.ANGLES
11693 def macr_ascouf_calc_prod(self,MODELE,CHAM_MATER,CARA_ELEM,FOND_FISS,CHARGE,RESU_THER,**args):
11694   self.type_sdprod(MODELE,modele)
11695   if CHAM_MATER != None:self.type_sdprod(CHAM_MATER,cham_mater)
11696   if CARA_ELEM  != None:self.type_sdprod(CARA_ELEM,cara_elem)
11697   if FOND_FISS  != None:self.type_sdprod(FOND_FISS,fond_fiss)
11698   if CHARGE     != None:self.type_sdprod(CHARGE,char_meca)
11699   if RESU_THER  != None:self.type_sdprod(RESU_THER,evol_ther)
11700   return evol_noli
11701
11702 MACR_ASCOUF_CALC=MACRO(nom="MACR_ASCOUF_CALC",op= -20,sd_prod=macr_ascouf_calc_prod,
11703                       fr=" ",
11704                       docu="U4.cf.20-b",reentrant='n',
11705             UIinfo={"groupes":("Outils métier",)},
11706          regles=(UN_PARMI('COMP_INCR','COMP_ELAS'),),
11707
11708          TYPE_MAILLAGE   =SIMP(statut='o',typ='TXM',
11709                                into=("SAIN",
11710                                      "FISS_COUDE",
11711                                      "FISS_AXIS_DEB",
11712                                      "SOUS_EPAIS_COUDE"
11713                                      ) ),
11714
11715          CL_BOL_P2_GV    =FACT(statut='f',min=1,max=1,
11716            ANGLE           =SIMP(statut='o',typ='R' ),
11717            AZIMUT          =SIMP(statut='f',typ='R',defaut= 90. ),
11718          ),
11719
11720          MAILLAGE        =SIMP(statut='o',typ=maillage ),
11721          MODELE          =SIMP(statut='o',typ=(CO,modele)),
11722          CHAM_MATER      =SIMP(statut='f',typ=(CO,cham_mater)),
11723          CARA_ELEM       =SIMP(statut='f',typ=(CO,cara_elem)),
11724          FOND_FISS       =SIMP(statut='f',typ=(CO,fond_fiss)),
11725          CHARGE          =SIMP(statut='f',typ=(CO,char_meca)),
11726          RESU_THER       =SIMP(statut='f',typ=(CO,evol_ther)),
11727
11728          AFFE_MATERIAU   =FACT(statut='o',min=1,max=3,
11729            regles=(UN_PARMI('TOUT','GROUP_MA'),),
11730            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11731            GROUP_MA        =SIMP(statut='f',typ='TXM',into=("COUDE","BOL") ),
11732            MATER           =SIMP(statut='o',typ=mater ),
11733            TEMP_REF        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11734          ),
11735
11736          PRES_REP        =FACT(statut='f',min=1,max=1,
11737            PRES            =SIMP(statut='o',typ='R' ),
11738            EFFE_FOND_P1    =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11739            PRES_LEVRE      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11740            FONC_MULT       =SIMP(statut='f',typ=fonction ),
11741          ),
11742
11743          ECHANGE         =FACT(statut='f',min=1,max=1,
11744            COEF_H          =SIMP(statut='f',typ=fonction ),
11745            TEMP_EXT        =SIMP(statut='f',typ=fonction ),
11746          ),
11747
11748          TORS_P1         =FACT(statut='f',min=1,max=6,
11749            regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
11750            FX              =SIMP(statut='f',typ='R' ),
11751            FY              =SIMP(statut='f',typ='R' ),
11752            FZ              =SIMP(statut='f',typ='R' ),
11753            MX              =SIMP(statut='f',typ='R' ),
11754            MY              =SIMP(statut='f',typ='R' ),
11755            MZ              =SIMP(statut='f',typ='R' ),
11756            FONC_MULT       =SIMP(statut='f',typ=fonction ),
11757          ),
11758
11759          COMP_INCR       =FACT(statut='f',min=1,max=1,
11760            RELATION        =SIMP(statut='o',typ='TXM',into=("VMIS_ISOT_TRAC",) ),
11761            VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut= 2,into=( 2 ,) ),
11762          ),
11763
11764          COMP_ELAS       =FACT(statut='f',min=1,max=1,
11765            RELATION        =SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC") ),
11766            ELAS            =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
11767            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
11768          ),
11769
11770          SOLVEUR         =FACT(statut='d',min=1,max=1,
11771            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
11772            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
11773              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
11774            ),
11775            b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
11776              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11777            ),
11778            b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
11779                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
11780              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
11781              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11782            ),
11783            b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
11784              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
11785              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
11786              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
11787              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
11788              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
11789            ),
11790 #  A quoi sert eps
11791            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11792            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11793          ),
11794
11795          CONVERGENCE     =FACT(statut='d',min=1,max=1,
11796            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
11797            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
11798            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
11799            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
11800            RESI_INTE_RELA  =SIMP(statut='f',typ='R'
11801                                 ,defaut= 1.0E-6),
11802            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
11803            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut= 0 ),
11804            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
11805            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
11806          ),
11807
11808          NEWTON          =FACT(statut='d',min=1,max=1,
11809            REAC_INCR       =SIMP(statut='f',typ='I',defaut= 1 ),
11810            PREDICTION      =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
11811            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
11812            REAC_ITER       =SIMP(statut='f',typ='I',defaut=0),
11813            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
11814          ),
11815
11816          RECH_LINEAIRE   =FACT(statut='f',min=1,max=1,
11817            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11818            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 3),
11819          ),
11820
11821          INCREMENT       =FACT(statut='o',min=1,max=1,
11822            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
11823                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
11824            LIST_INST       =SIMP(statut='o',typ=listr8),
11825            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
11826                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
11827            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
11828            INST_INIT       =SIMP(statut='f',typ='R'),
11829            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
11830            INST_FIN        =SIMP(statut='f',typ='R'),
11831            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
11832            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
11833            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
11834            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
11835          ),
11836
11837          THETA_3D        =FACT(statut='f',min=1,max='**',
11838            R_INF           =SIMP(statut='o',typ='R' ),
11839            R_SUP           =SIMP(statut='o',typ='R' ),
11840          ),
11841
11842          IMPR_TABLE      =FACT(statut='f',min=1,max=1,
11843            regles=(UN_PARMI('TOUT_PARA','NOM_PARA', ),
11844             PRESENT_PRESENT('TOUT_PARA','ANGLE',    ),
11845             PRESENT_PRESENT('TOUT_PARA','R_CINTR',  ),
11846                    UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL',),),
11847            NOM_PARA        =SIMP(statut='f',typ='TXM',max=4,
11848                                  into=("TRESCA_MEMBRANE",
11849                                        "TRESCA_MFLE",
11850                                        "TRESCA",
11851                                        "SI_LONG"
11852                                        "SI_RADI"
11853                                        "SI_CIRC"
11854                                        ) ),
11855            TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11856            ANGLE           =SIMP(statut='f',typ='R',max='**' ),
11857            R_CINTR         =SIMP(statut='f',typ='R',max='**' ),
11858            POSI_CURV_LONGI =SIMP(statut='f',typ='R',max='**' ),
11859            POSI_ANGUL      =SIMP(statut='f',typ='R',max='**' ),
11860            TRANSFORMEE     =SIMP(statut='f',typ='TXM',defaut="COUDE",into=("COUDE","TUBE") ),
11861          ),
11862
11863          IMPRESSION      =FACT(statut='f',min=1,max=1,
11864            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
11865                                  into=("RESULTAT","ASTER","IDEAS","CASTEM") ),
11866
11867            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
11868              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
11869            ),
11870
11871            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
11872              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
11873            ),
11874
11875          ),
11876
11877          TITRE           =SIMP(statut='f',typ='TXM' ),
11878
11879          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11880 )  ;
11881 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
11882 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11883 # ======================================================================
11884 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11885 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11886 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11887 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11888 # (AT YOUR OPTION) ANY LATER VERSION.
11889 #
11890 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11891 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11892 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11893 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11894 #
11895 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11896 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11897 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11898 # ======================================================================
11899 # RESPONSABLE F1BHHAJ J.ANGLES
11900 MACR_ASCOUF_MAIL=MACRO(nom="MACR_ASCOUF_MAIL",op= -19,sd_prod=maillage,
11901                       fr=" ",docu="U4.cf.10-b",reentrant='n',
11902             UIinfo={"groupes":("Outils métier",)},
11903
11904          regles=(EXCLUS('SOUS_EPAIS_COUDE','FISS_COUDE','SOUS_EPAIS_MULTI'),),
11905
11906          EXEC_MAILLAGE   =FACT(statut='o',min=1,max=1,
11907            LOGICIEL        =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000") ),
11908            UNITE_DATG      =SIMP(statut='f',typ='I',defaut=70),
11909            UNITE_MGIB      =SIMP(statut='f',typ='I',defaut=19),
11910            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10,11)),
11911          ),
11912
11913          TYPE_ELEM       =SIMP(statut='f',typ='TXM',defaut="CU20",into=("CU20","CUB8") ),
11914
11915          COUDE           =FACT(statut='o',min=1,max=1,
11916            ANGLE           =SIMP(statut='o',typ='R' ),
11917            R_CINTR         =SIMP(statut='o',typ='R' ),
11918            L_TUBE_P1       =SIMP(statut='o',typ='R' ),
11919            L_TUBE_P2       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11920            NB_ELEM_EPAIS   =SIMP(statut='f',typ='I',defaut= 3 ),
11921            SYME            =SIMP(statut='f',typ='TXM',defaut="ENTIER",into=("ENTIER","QUART","DEMI") ),
11922            TRANSFORMEE     =SIMP(statut='o',typ='TXM',defaut="COUDE",into=("COUDE","TUBE") ),
11923            b_transf_coude  =BLOC(condition = "TRANSFORMEE == 'COUDE' ",
11924               DEXT            =SIMP(statut='o',typ='R' ),
11925               EPAIS           =SIMP(statut='o',typ='R' ),
11926               SUR_EPAIS       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11927               BOL_P2          =SIMP(statut='f',typ='TXM',into=("ASP_MPP","CUVE","GV") ),
11928            ),
11929            b_transf_tube   =BLOC(condition = "TRANSFORMEE == 'TUBE' ",
11930               TRAN_EPAIS      =SIMP(statut='o',typ='TXM',defaut="NON",into=("OUI","NON") ),
11931               b_trans_epais_oui    =BLOC(condition = "TRAN_EPAIS == 'OUI' ",
11932                       regles=(ENSEMBLE('ANGL_TETA2','EPAIS_TI'),
11933                               UN_PARMI('ABSC_CURV_TRAN','POSI_ANGU_TRAN'),),
11934                       DEXT_T1         =SIMP(statut='o',typ='R' ),
11935                       EPAIS_T1        =SIMP(statut='o',typ='R' ),
11936                       EPAIS_T2        =SIMP(statut='o',typ='R' ),
11937                       EPAIS_TI        =SIMP(statut='f',typ='R' ),
11938                       ANGL_TETA1      =SIMP(statut='o',typ='R' ),
11939                       ANGL_TETA2      =SIMP(statut='f',typ='R' ),
11940                       ABSC_CURV_TRAN  =SIMP(statut='f',typ='R' ),
11941                       POSI_ANGU_TRAN  =SIMP(statut='f',typ='R' ),
11942               ),
11943               b_trans_epais_non    =BLOC(condition = "TRAN_EPAIS == 'NON' ",
11944                       DEXT            =SIMP(statut='o',typ='R' ),
11945                       EPAIS           =SIMP(statut='o',typ='R' ),
11946                       SUR_EPAIS       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11947                       BOL_P2          =SIMP(statut='f',typ='TXM',into=("ASP_MPP","CUVE","GV") ),
11948               ),
11949            ),
11950          ),
11951
11952          SOUS_EPAIS_COUDE=FACT(statut='f',min=1,max=1,
11953            regles=(UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL'),
11954                    UN_PARMI('POSI_CURV_CIRC','AZIMUT'),),
11955            TYPE            =SIMP(statut='o',typ='TXM',into=("AXIS","ELLI") ),
11956            AXE_CIRC        =SIMP(statut='f',typ='R' ),
11957            AXE_LONGI       =SIMP(statut='o',typ='R' ),
11958            PROFONDEUR      =SIMP(statut='o',typ='R' ),
11959            POSI_CURV_LONGI =SIMP(statut='f',typ='R' ),
11960            POSI_ANGUL      =SIMP(statut='f',typ='R' ),
11961            POSI_CURV_CIRC  =SIMP(statut='f',typ='R' ),
11962            AZIMUT          =SIMP(statut='f',typ='R' ),
11963            SOUS_EPAIS      =SIMP(statut='o',typ='TXM',into=("INTERNE","EXTERNE") ),
11964            NB_ELEM_LONGI   =SIMP(statut='o',typ='I' ),
11965            NB_ELEM_CIRC    =SIMP(statut='o',typ='I' ),
11966            NB_ELEM_RADI    =SIMP(statut='f',typ='I',defaut= 3 ),
11967            EMPREINTE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11968          ),
11969
11970          SOUS_EPAIS_MULTI=FACT(statut='f',min=1,max='**',
11971            regles=(UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL'),
11972                    UN_PARMI('POSI_CURV_CIRC','AZIMUT'),),
11973            TYPE            =SIMP(statut='o',typ='TXM',into=("AXIS","ELLI") ),
11974            AXE_CIRC        =SIMP(statut='f',typ='R' ),
11975            AXE_LONGI       =SIMP(statut='o',typ='R' ),
11976            PROFONDEUR      =SIMP(statut='o',typ='R' ),
11977            POSI_CURV_LONGI =SIMP(statut='f',typ='R' ),
11978            POSI_ANGUL      =SIMP(statut='f',typ='R' ),
11979            POSI_CURV_CIRC  =SIMP(statut='f',typ='R' ),
11980            AZIMUT          =SIMP(statut='f',typ='R' ),
11981            SOUS_EPAIS      =SIMP(statut='o',typ='TXM',into=("INTERNE","EXTERNE") ),
11982            NB_ELEM_LONGI   =SIMP(statut='o',typ='I' ),
11983            NB_ELEM_CIRC    =SIMP(statut='o',typ='I' ),
11984            EMPREINTE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11985          ),
11986
11987          FISS_COUDE      =FACT(statut='f',min=1,max=1,
11988            regles=(UN_PARMI('ABSC_CURV','POSI_ANGUL'),),
11989            AXIS            =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON" ),
11990            b_axis_non    =BLOC(condition = "AXIS == 'NON' ",
11991                    LONGUEUR        =SIMP(statut='o',typ='R' ),
11992            ),
11993            b_axis_oui    =BLOC(condition = "AXIS == 'OUI' ",
11994                    LONGUEUR        =SIMP(statut='f',typ='R' ),
11995            ),
11996            PROFONDEUR      =SIMP(statut='o',typ='R' ),
11997            ABSC_CURV       =SIMP(statut='f',typ='R' ),
11998            POSI_ANGUL      =SIMP(statut='f',typ='R' ),
11999            FISSURE         =SIMP(statut='o',typ='TXM',into=("DEB_INT","DEB_EXT") ),
12000            AZIMUT          =SIMP(statut='f',typ='R',defaut= 90. ),
12001            ORIEN           =SIMP(statut='o',typ='R',
12002                                  into=(45.,-45.,90.,0.E+0) ),
12003            NB_TRANCHE      =SIMP(statut='o',typ='I' ),
12004            NB_SECTEUR      =SIMP(statut='o',typ='I' ),
12005            NB_COURONNE     =SIMP(statut='o',typ='I' ),
12006            RAYON_TORE      =SIMP(statut='f',typ='R' ),
12007            COEF_MULT_RC2   =SIMP(statut='f',typ='R',defaut= 1. ),
12008            COEF_MULT_RC3   =SIMP(statut='f',typ='R' ),
12009            ANGL_OUVERTURE  =SIMP(statut='f',typ='R',defaut= 0.5 ),
12010          ),
12011
12012          IMPRESSION      =FACT(statut='f',min=1,max='**',
12013            regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
12014            FORMAT          =SIMP(statut='f',typ='TXM',defaut="ASTER",
12015                                  into=("ASTER","IDEAS","CASTEM") ),
12016            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
12017              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12018            ),
12019            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
12020              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
12021            ),
12022            FICHIER         =SIMP(statut='f',typ='TXM' ),
12023            UNITE           =SIMP(statut='f',typ='I' ),
12024          ),
12025
12026          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
12027 )  ;
12028 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
12029 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12030 # ======================================================================
12031 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12032 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12033 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12034 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12035 # (AT YOUR OPTION) ANY LATER VERSION.
12036 #
12037 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12038 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12039 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12040 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12041 #
12042 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12043 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12044 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12045 # ======================================================================
12046 # RESPONSABLE F1BHHAJ J.ANGLES
12047 def macr_aspic_calc_prod(self,MODELE,CHAM_MATER,CARA_ELEM,FOND_FISS_1,FOND_FISS_2,CHARGE,RESU_THER,**args):
12048   if MODELE      != None:self.type_sdprod(MODELE,modele)
12049   if CHAM_MATER  != None:self.type_sdprod(CHAM_MATER,cham_mater)
12050   if CARA_ELEM   != None:self.type_sdprod(CARA_ELEM,cara_elem)
12051   if FOND_FISS_1 != None:self.type_sdprod(FOND_FISS_1,fond_fiss)
12052   if FOND_FISS_2 != None:self.type_sdprod(FOND_FISS_2,fond_fiss)
12053   if CHARGE      != None:self.type_sdprod(CHARGE,char_meca)
12054   if RESU_THER   != None:self.type_sdprod(RESU_THER,evol_ther)
12055   return evol_noli
12056
12057 MACR_ASPIC_CALC=MACRO(nom="MACR_ASPIC_CALC",op=-17,sd_prod=macr_aspic_calc_prod,
12058                     fr=" ",docu="U4.pc.20-b",reentrant='n',
12059             UIinfo={"groupes":("Outils métier",)},
12060          regles=(UN_PARMI('COMP_INCR','COMP_ELAS'),),
12061
12062          TYPE_MAILLAGE   =SIMP(statut='o',typ='TXM',
12063                                into=("SAIN_FIN","SAIN_GROS","FISS_COUR_DEB","FISS_COUR_NONDEB","FISS_LONG_DEB",
12064                                      "FISS_LONG_NONDEB","FISS_AXIS_DEB","FISS_AXIS_NONDEB") ),
12065
12066          TUBULURE        =FACT(statut='o',min=1,max=1,
12067            TYPE            =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2") ),
12068          ),
12069          MAILLAGE        =SIMP(statut='o',typ=maillage),
12070          MODELE          =SIMP(statut='f',typ=(CO,modele)),
12071          CHAM_MATER      =SIMP(statut='f',typ=(CO,cham_mater)),
12072          CARA_ELEM       =SIMP(statut='f',typ=(CO,cara_elem)),
12073          FOND_FISS_1     =SIMP(statut='f',typ=(CO,fond_fiss)),
12074          FOND_FISS_2     =SIMP(statut='f',typ=(CO,fond_fiss)),
12075          CHARGE          =SIMP(statut='f',typ=(CO,char_meca)),
12076          RESU_THER       =SIMP(statut='f',typ=(CO,evol_ther)),
12077
12078          AFFE_MATERIAU   =FACT(statut='o',min=1,max=3,
12079            regles=(UN_PARMI('TOUT','GROUP_MA'),),
12080            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
12081            GROUP_MA        =SIMP(statut='f',typ='TXM',into=("TUBU","CORP","SOUD","SOUDCORP","SOUDTUBU") ),
12082            MATER           =SIMP(statut='o',typ=mater),
12083            TEMP_REF        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12084            RCCM            =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
12085          ),
12086
12087          EQUILIBRE       =FACT(statut='o',min=1,max=1,
12088            NOEUD           =SIMP(statut='o',typ=no),
12089          ),
12090
12091          PRES_REP        =FACT(statut='o',min=1,max=1,
12092            PRES            =SIMP(statut='o',typ='R'),
12093            NOEUD           =SIMP(statut='f',typ=no),
12094            EFFE_FOND       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
12095            PRES_LEVRE      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
12096            FONC_MULT       =SIMP(statut='f',typ=fonction),
12097          ),
12098
12099          ECHANGE         =FACT(statut='f',min=1,max=1,
12100            COEF_H_TUBU     =SIMP(statut='o',typ=fonction),
12101            COEF_H_CORP     =SIMP(statut='o',typ=fonction),
12102            TEMP_EXT        =SIMP(statut='o',typ=fonction),
12103          ),
12104
12105          TORS_CORP       =FACT(statut='f',min=1,max=6,
12106            regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
12107            NOEUD           =SIMP(statut='o',typ=no),
12108            FX              =SIMP(statut='f',typ='R'),
12109            FY              =SIMP(statut='f',typ='R'),
12110            FZ              =SIMP(statut='f',typ='R'),
12111            MX              =SIMP(statut='f',typ='R'),
12112            MY              =SIMP(statut='f',typ='R'),
12113            MZ              =SIMP(statut='f',typ='R'),
12114            FONC_MULT       =SIMP(statut='f',typ=fonction),
12115          ),
12116
12117          TORS_TUBU       =FACT(statut='f',min=1,max=6,
12118            regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
12119            FX              =SIMP(statut='f',typ='R'),
12120            FY              =SIMP(statut='f',typ='R'),
12121            FZ              =SIMP(statut='f',typ='R'),
12122            MX              =SIMP(statut='f',typ='R'),
12123            MY              =SIMP(statut='f',typ='R'),
12124            MZ              =SIMP(statut='f',typ='R'),
12125            FONC_MULT       =SIMP(statut='f',typ=fonction),
12126          ),
12127
12128          COMP_INCR       =FACT(statut='f',min=1,max=1,
12129            RELATION        =SIMP(statut='o',typ='TXM',into=("VMIS_ISOT_TRAC",) ),
12130            VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut= 2,into=( 2 ,) ),
12131          ),
12132
12133          COMP_ELAS       =FACT(statut='f',min=1,max=1,
12134            RELATION        =SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC") ),
12135            ELAS            =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
12136            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
12137          ),
12138
12139          THETA_3D        =FACT(statut='f',min=1,max='**',
12140            R_INF           =SIMP(statut='o',typ='R'),
12141            R_SUP           =SIMP(statut='o',typ='R'),
12142          ),
12143
12144          OPTION          =SIMP(statut='f',typ='TXM',into=("CALC_G_MAX","CALC_G_MAX_LOCAL") ),
12145          BORNES          =FACT(statut='f',min=1,max='**',
12146            NUME_ORDRE      =SIMP(statut='o',typ='I'),
12147            VALE_MIN        =SIMP(statut='o',typ='R'),
12148            VALE_MAX        =SIMP(statut='o',typ='R'),
12149          ),
12150
12151          SOLVEUR         =FACT(statut='d',min=1,max=1,
12152            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
12153            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
12154              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
12155            ),
12156            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
12157              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
12158            ),
12159            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
12160                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
12161              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
12162              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12163            ),
12164            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
12165              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
12166              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
12167              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
12168              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
12169              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
12170            ),
12171 #  A quoi sert eps
12172            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12173            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
12174          ),
12175
12176          CONVERGENCE     =FACT(statut='d',min=1,max=1,
12177            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
12178            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
12179            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
12180            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
12181            RESI_INTE_RELA  =SIMP(statut='f',typ='R',defaut=1.0E-6),
12182            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut=10),
12183            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut=0),
12184            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
12185            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
12186          ),
12187
12188          NEWTON          =FACT(statut='d',min=1,max=1,
12189            REAC_INCR       =SIMP(statut='f',typ='I',defaut=1),
12190            PREDICTION      =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE","EXTRAPOL","DEPL_CALCULE")),
12191            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE")),
12192            REAC_ITER       =SIMP(statut='f',typ='I',defaut= 0),
12193          ),
12194
12195          RECH_LINEAIRE   =FACT(statut='d',min=1,max=1,
12196            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut=1.0E-3),
12197            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut=3),
12198          ),
12199
12200          INCREMENT       =FACT(statut='o',min=1,max=1,
12201            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
12202                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
12203            LIST_INST       =SIMP(statut='o',typ=listr8),
12204            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
12205                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
12206            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
12207            INST_INIT       =SIMP(statut='f',typ='R'),
12208            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
12209            INST_FIN        =SIMP(statut='f',typ='R'),
12210            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
12211            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
12212            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
12213            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
12214          ),
12215
12216          PAS_AZIMUT      =SIMP(statut='f',typ='I',defaut=1),
12217
12218          IMPRESSION      =FACT(statut='f',min=1,max=1,
12219            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
12220                                  into=("RESULTAT","ASTER","CASTEM","IDEAS")),
12221
12222            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
12223              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12224            ),
12225
12226            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
12227              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
12228            ),
12229
12230            b_extrac        =BLOC(condition="((FORMAT=='IDEAS')or(FORMAT=='CASTEM'))",
12231                                  fr="extraction d un champ de grandeur",
12232              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST'),),
12233              NOM_CHAM        =SIMP(statut='f',typ='TXM',max=3,
12234                                    into=("DEPL","EQUI_ELNO_SIGM","TEMP")),
12235
12236              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12237              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
12238              INST            =SIMP(statut='f',typ='R',max='**'),
12239            ),
12240          ),
12241
12242          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12243
12244          TITRE           =SIMP(statut='f',typ='TXM'),
12245 )  ;
12246 # debut entete
12247 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
12248 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12249 # ======================================================================
12250 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12251 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12252 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12253 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12254 # (AT YOUR OPTION) ANY LATER VERSION.
12255 #
12256 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12257 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12258 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12259 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12260 #
12261 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12262 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12263 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12264 # ======================================================================
12265 # RESPONSABLE F1BHHAJ J.ANGLES
12266 MACR_ASPIC_MAIL=MACRO(nom="MACR_ASPIC_MAIL",op= -16,sd_prod=maillage,reentrant='n',
12267                     fr=" ",docu="U4.pc.10-b",
12268             UIinfo={"groupes":("Outils métier",)},
12269
12270          EXEC_MAILLAGE   =FACT(statut='o',min=1,max=1,
12271            LOGICIEL        =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000")),
12272            UNITE_DATG      =SIMP(statut='f',typ='I',defaut=70),
12273            UNITE_MGIB      =SIMP(statut='f',typ='I',defaut=19),
12274            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10,11)),
12275          ),
12276
12277          TYPE_ELEM       =SIMP(statut='f',typ='TXM',defaut="CU20",into=("CU20","CUB8")),
12278
12279          RAFF_MAIL       =SIMP(statut='f',typ='TXM',defaut="GROS",into=("GROS","FIN")),
12280
12281          TUBULURE        =FACT(statut='o',min=1,max=1,
12282            E_BASE          =SIMP(statut='o',typ='R'),
12283            DEXT_BASE       =SIMP(statut='o',typ='R'),
12284            L_BASE          =SIMP(statut='o',typ='R'),
12285            L_CHANF         =SIMP(statut='o',typ='R'),
12286            E_TUBU          =SIMP(statut='o',typ='R'),
12287            DEXT_TUBU       =SIMP(statut='o',typ='R'),
12288            Z_MAX           =SIMP(statut='o',typ='R'),
12289            TYPE            =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2")),
12290            L_PENETR        =SIMP(statut='f',typ='R',defaut= 0.0E+0),
12291          ),
12292
12293          SOUDURE         =FACT(statut='o',min=1,max=1,
12294            H_SOUD          =SIMP(statut='o',typ='R'),
12295            ANGL_SOUD       =SIMP(statut='o',typ='R'),
12296            JEU_SOUD        =SIMP(statut='o',typ='R'),
12297          ),
12298
12299          CORPS           =FACT(statut='o',min=1,max=1,
12300            E_CORP          =SIMP(statut='o',typ='R'),
12301            DEXT_CORP       =SIMP(statut='o',typ='R'),
12302            X_MAX           =SIMP(statut='o',typ='R'),
12303          ),
12304
12305          FISS_SOUDURE    =FACT(statut='f',min=1,max=1,
12306            TYPE            =SIMP(statut='o',typ='TXM',into=("LONGUE","COURTE")),
12307            AXIS            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
12308            PROFONDEUR      =SIMP(statut='o',typ='R'),
12309            LONGUEUR        =SIMP(statut='f',typ='R'),
12310            AZIMUT          =SIMP(statut='o',typ='R'),
12311            RAYON_TORE      =SIMP(statut='f',typ='R'),
12312            POSITION        =SIMP(statut='o',typ='TXM',into=("DROIT","INCLINE")),
12313            FISSURE         =SIMP(statut='o',typ='TXM',into=("DEB_INT","DEB_EXT","NON_DEB","TRAVERS")),
12314            LIGA_INT        =SIMP(statut='f',typ='R'),
12315            ANGL_OUVERTURE  =SIMP(statut='f',typ='R',defaut= 0.0E+0),
12316            COEF_MULT_RC1   =SIMP(statut='f',typ='R'),
12317            COEF_MULT_RC2   =SIMP(statut='f',typ='R'),
12318            COEF_MULT_RC3   =SIMP(statut='f',typ='R'),
12319            NB_TRANCHE      =SIMP(statut='f',typ='I'),
12320            NB_SECTEUR      =SIMP(statut='f',typ='I'),
12321            NB_COURONNE     =SIMP(statut='f',typ='I'),
12322          ),
12323
12324          IMPRESSION      =FACT(statut='f',min=1,max='**',
12325            regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
12326            FORMAT          =SIMP(statut='f',typ='TXM',defaut="ASTER",into=("ASTER","IDEAS","CASTEM")),
12327
12328            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
12329              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12330            ),
12331
12332            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
12333              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
12334            ),
12335            FICHIER         =SIMP(statut='f',typ='TXM'),
12336            UNITE           =SIMP(statut='f',typ='I'),
12337          ),
12338
12339          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12340 )  ;
12341 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
12342 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12343 # ======================================================================
12344 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12345 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12346 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12347 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12348 # (AT YOUR OPTION) ANY LATER VERSION.
12349 #
12350 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12351 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12352 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12353 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12354 #
12355 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12356 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12357 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12358 # ======================================================================
12359 MACR_ELEM_DYNA=OPER(nom="MACR_ELEM_DYNA",op=  81,sd_prod=macr_elem_dyna,
12360                     fr="Définition d un macro élément pour analyse modale ou harmonique par sous structuration dynamique",
12361                     docu="U4.65.01-e",reentrant='n',
12362             UIinfo={"groupes":("Matrices/vecteurs",)},
12363          regles=(EXCLUS('MATR_AMOR','AMOR_REDUIT' ),),
12364          BASE_MODALE     =SIMP(statut='o',typ=base_modale ),
12365          MATR_RIGI       =SIMP(statut='f',typ=matr_asse_depl_r ),
12366          MATR_MASS       =SIMP(statut='f',typ=matr_asse_depl_r ),
12367          MATR_AMOR       =SIMP(statut='f',typ=matr_asse_depl_r ),
12368          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
12369          OPTION          =SIMP(statut='f',typ='TXM',defaut="CLASSIQUE",into=("CLASSIQUE","RITZ",
12370                           "DIAG_MASS") ),
12371 )  ;
12372 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
12373 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12374 # ======================================================================
12375 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12376 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12377 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12378 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12379 # (AT YOUR OPTION) ANY LATER VERSION.
12380 #
12381 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12382 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12383 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12384 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12385 #
12386 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12387 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12388 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12389 # ======================================================================
12390 MACR_ELEM_STAT=OPER(nom="MACR_ELEM_STAT",op=86,sd_prod=macr_elem_stat,docu="U4.62.01-f",reentrant='f',
12391             UIinfo={"groupes":("Matrices/vecteurs",)},
12392                     fr="Définition d un macro-élément pour l analyse statique par sous structuration",
12393         regles=(AU_MOINS_UN('DEFINITION','RIGI_MECA','MASS_MECA','CAS_CHARGE'),
12394                 ENSEMBLE('DEFINITION','EXTERIEUR'),),
12395          DEFINITION      =FACT(statut='f',min=1,max=1,
12396            MODELE          =SIMP(statut='o',typ=modele),
12397            CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
12398            CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
12399            CHAR_MACR_ELEM  =SIMP(statut='f',typ=char_meca),
12400            INST            =SIMP(statut='f',typ='R',defaut=0.0E+0 ),
12401            NMAX_CAS        =SIMP(statut='f',typ='I',defaut=10),
12402            NMAX_CHAR       =SIMP(statut='f',typ='I',defaut=10),
12403          ),
12404          EXTERIEUR       =FACT(statut='f',min=1,max=1,
12405            regles=(AU_MOINS_UN('NOEUD','GROUP_NO'),),
12406            NOEUD           =SIMP(statut='f',typ=no,max='**'),
12407            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
12408          ),
12409          RIGI_MECA       =FACT(statut='f',min=1,max=1,
12410          ),
12411          MASS_MECA       =FACT(statut='f',min=1,max=1,
12412            BIDO1           =SIMP(statut='f',typ='I',defaut=0),
12413          ),
12414          CAS_CHARGE      =FACT(statut='f',min=1,max='**',
12415            NOM_CAS         =SIMP(statut='o',typ='TXM'),
12416            SUIV            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
12417            CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
12418            INST            =SIMP(statut='f',typ='R',defaut=0.E+0),
12419          ),
12420 )  ;
12421 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
12422 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12423 # ======================================================================
12424 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12425 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12426 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12427 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12428 # (AT YOUR OPTION) ANY LATER VERSION.
12429 #
12430 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12431 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12432 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12433 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12434 #
12435 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12436 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12437 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12438 # ======================================================================
12439 MACR_GOUJ2E_CALC=MACRO(nom="MACR_GOUJ2E_CALC",op=-23,sd_prod=evol_noli,
12440                       fr=" ",docu="U4.gj.20-b",reentrant='n',
12441             UIinfo={"groupes":("Outils métier",)},
12442          MAILLAGE        =SIMP(statut='o',typ=maillage),
12443          DEFI_GOUJ       =FACT(statut='o',min=1,max=1,
12444            TYPE            =SIMP(statut='o',typ='TXM',into=("M33","M64","M90","M115","M155","M180","M186")),
12445            VARIANTE        =SIMP(statut='o',typ='TXM',into=("A","B","C","D","E","F","G","H","I","J","K","L","M",
12446                                                             "N","O","P","Q","R","S","T","U","V","W","X","Y","Z")),
12447            FILET_TRONQUE   =SIMP(statut='f',typ='I',max='**'),
12448            FILET_TRONQA    =SIMP(statut='f',typ='I',max='**'),
12449            FILET_TRONQB    =SIMP(statut='f',typ='I',max='**'),
12450            FILET_JEU_HT    =SIMP(statut='f',typ='I',max='**'),
12451            FILET_JEU_HTA   =SIMP(statut='f',typ='I',max='**'),
12452            FILET_JEU_HTB   =SIMP(statut='f',typ='I',max='**'),
12453          ),
12454          EXCIT           =FACT(statut='o',min=1,max=1,
12455            TYPE_BLOCAGE    =SIMP(statut='o',typ='I',defaut=2,into=(1,2,3)),
12456            FORCE_GOUJ      =SIMP(statut='o',typ='R'),
12457          ),
12458          CALCUL          =FACT(statut='o',min=1,max=1,
12459            TYPE_CALCUL     =SIMP(statut='o',typ='TXM',into=("ELASTIQUE","ELASTOPLASTIQUE")),
12460            NB_INCR         =SIMP(statut='o',typ='I'),
12461          ),
12462          IMPRESSION      =FACT(statut='f',min=1,max=1,
12463            FORMAT          =SIMP(statut='f',typ='TXM',defaut="TABLE",
12464                                  into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED","TABLE")),
12465            VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12466          ),
12467          TITRE           =SIMP(statut='f',typ='TXM'),
12468          INFO            =SIMP(statut='f',typ='I',defaut=1 ,into=(1,2)),
12469 )  ;
12470 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
12471 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12472 # ======================================================================
12473 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12474 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12475 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12476 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12477 # (AT YOUR OPTION) ANY LATER VERSION.
12478 #
12479 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12480 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12481 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12482 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12483 #
12484 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12485 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12486 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12487 # ======================================================================
12488 MACR_GOUJ2E_MAIL=MACRO(nom="MACR_GOUJ2E_MAIL",op= -22,sd_prod=maillage,
12489                       fr=" ",docu="U4.gj.10-b",reentrant='n',
12490             UIinfo={"groupes":("Outils métier",)},
12491          EXEC_MAILLAGE   =FACT(statut='o',min=1,max=1,
12492            LOGICIEL        =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000") ),
12493            UNITE_DATG      =SIMP(statut='f',typ='I',defaut=70),
12494            UNITE_MGIB      =SIMP(statut='f',typ='I',defaut=19),
12495            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10)),
12496          ),
12497          DEFI_GOUJ       =FACT(statut='o',min=1,max=1,
12498            TYPE            =SIMP(statut='o',typ='TXM',into=("M33","M64","M90","M115","M155","M180","M186")),
12499            VARIANTE        =SIMP(statut='o',typ='TXM',into=("A","B","C","D","E","F","G","H","I","J","K","L","M",
12500                                                             "N","O","P","Q","R","S","T","U","V","W","X","Y","Z")),
12501          ),
12502          GEOM_GOUJ_BRID  =FACT(statut='o',min=1,max=1,
12503            NB_FILET        =SIMP(statut='o',typ='I'),
12504            H_CORP_BRID     =SIMP(statut='o',typ='R'),
12505            R_EXT_BRID      =SIMP(statut='o',typ='R'),
12506            H_HAUT_BRID     =SIMP(statut='f',typ='R',defaut=0.0E+0),
12507            H_BAS_BRID      =SIMP(statut='f',typ='R',defaut= 0.0E+0),
12508            FILET_ABST      =SIMP(statut='f',typ='I',max='**'),
12509          ),
12510          IMPRESSION      =FACT(statut='f',min=1,max=1,
12511            regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
12512            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
12513                                  into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED")),
12514            FICHIER         =SIMP(statut='f',typ='TXM'),
12515            UNITE           =SIMP(statut='f',typ='I'),
12516            VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12517            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
12518          ),
12519          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12520 )  ;
12521 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
12522 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12523 # ======================================================================
12524 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12525 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12526 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12527 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12528 # (AT YOUR OPTION) ANY LATER VERSION.
12529 #
12530 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12531 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12532 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12533 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12534 #
12535 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12536 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12537 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12538 # ======================================================================
12539 # RESPONSABLE GNICOLAS G.NICOLAS
12540 MACR_INFO_MAIL=MACRO(nom="MACR_INFO_MAIL",op=-24,docu="U7.03.02-b",
12541                      fr="Donner des informations sur un maillage.",
12542                      ang="To give information about a mesh.",
12543 #
12544 # 1. Le niveau d'information
12545 #
12546          INFO           = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12547 #
12548 # 2. Version de HOMARD
12549 #
12550          VERSION_HOMARD = SIMP(statut='f',typ='TXM',defaut="V5_5",
12551                                into=("V5_5", "V5_N","V5_N_PERSO"),
12552                            fr="Version de HOMARD",
12553                            ang="HOMARD release"),
12554 #
12555 # 3. Langue des messages issus de HOMARD
12556 #
12557          LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
12558                                into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
12559                            fr="Langue des messages issus de HOMARD.",
12560                            ang="Language for HOMARD messages." ),
12561 #
12562 # 4. Le nom du maillage a analyser
12563 #
12564          MAILLAGE       = SIMP(statut='o',typ=maillage,
12565                            fr="Maillage à analyser.",
12566                            ang="Mesh to be checked." ),
12567 #
12568 # 5. Les options ; par defaut, on ne fait que les nombres
12569 # 5.1. Nombre de noeuds et elements
12570 #
12571          NOMBRE         = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
12572                           fr="Nombre de noeuds et éléments du maillage",
12573                           ang="Number of nodes and elements in the mesh" ),
12574 #
12575 # 5.2. Determination de la qualite des elements du maillage
12576 #
12577          QUALITE        = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12578                           fr="Qualité du maillage",
12579                           ang="Mesh quality" ),
12580 #
12581 # 5.3. Connexite du maillage
12582 #
12583          CONNEXITE      = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12584                           fr="Connexité du maillage.",
12585                           ang="Mesh connexity." ),
12586 #
12587 # 5.4. Taille des sous-domaines du maillage
12588 #
12589          TAILLE         = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12590                           fr="Tailles des sous-domaines du maillage.",
12591                           ang="Sizes of mesh sub-domains." ),
12592 #
12593 # 5.5. Controle de la non-interpenetration des elements
12594 #
12595          INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12596                           fr="Controle de la non interpénétration des éléments.",
12597                           ang="Overlapping checking." ),
12598 #
12599 )  ;
12600 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
12601 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12602 # ======================================================================
12603 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
12604 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12605 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12606 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12607 # (AT YOUR OPTION) ANY LATER VERSION.
12608 #
12609 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12610 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12611 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12612 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12613 #
12614 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12615 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12616 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12617 # ======================================================================
12618
12619 from Macro.macr_lign_coupe_ops import macr_lign_coupe_ops
12620
12621 def macr_lign_coupe_prod(self,LIGN_COUPE,**args):
12622   if not LIGN_COUPE:  raise AsException("Impossible de typer les concepts resultats")
12623   for m in LIGN_COUPE:
12624     self.type_sdprod(m['TABLE'],table)
12625   return None
12626
12627
12628 MACR_LIGN_COUPE=MACRO(nom="MACR_LIGN_COUPE",op=macr_lign_coupe_ops,sd_prod=macr_lign_coupe_prod,
12629                        docu="",reentrant='n',
12630             UIinfo={"groupes":("Outils métier",)},
12631                        fr="extraction d un résultat sur des lignes de coupes définies par 2 points et un intervalle",
12632          RESULTAT        =SIMP(statut='o',typ=(evol_elas,evol_noli,evol_ther) ),
12633          b_meca        =BLOC(condition = "AsType(RESULTAT) in (evol_elas,evol_noli)",fr="résultat mécanique",
12634            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut='SIGM_NOEU_DEPL' ),
12635          ),
12636          b_ther        =BLOC(condition = "AsType(RESULTAT) in (evol_ther,)",fr="résultat thermique",
12637            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut='TEMP' ),
12638          ),
12639          MODELE          =SIMP(statut='o',typ=modele ),
12640          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=25),
12641          LIGN_COUPE     =FACT(statut='o',min=1,max='**',
12642            NB_POINTS       =SIMP(statut='o',typ='I'),
12643            COOR_ORIG       =SIMP(statut='o',typ='R',min=2,max=3),
12644            COOR_EXTR       =SIMP(statut='o',typ='R',min=2,max=3),
12645            TABLE           =SIMP(statut='o',typ=(table,CO)),
12646          ),
12647 )  ;
12648 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
12649 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12650 # ======================================================================
12651 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
12652 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12653 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12654 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12655 # (AT YOUR OPTION) ANY LATER VERSION.
12656 #
12657 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12658 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12659 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12660 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12661 #
12662 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12663 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12664 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12665 # ======================================================================
12666
12667 from Macro.macr_recal_ops import macr_recal_ops
12668
12669 def macr_recal_prod(self,**args ):
12670   return listr8
12671
12672 MACR_RECAL = MACRO(nom="MACR_RECAL",op=macr_recal_ops,docu="U4.73.02-a",
12673             UIinfo={"groupes":("Résultats et champs",)},
12674                       sd_prod=macr_recal_prod,
12675                       fr="Réalise le recalage de modèles Aster",
12676          UNITE_ESCL      =SIMP(statut='o',typ='I'),
12677          RESU_EXP        =SIMP(statut='o',typ=assd,min = 1, max='**'),
12678          RESU_CALC       =SIMP(statut='o',typ=assd,min = 1, max='**'),
12679          LIST_PARA       =SIMP(statut='o',typ=assd,min = 1, max='**'),
12680          ITER_MAXI       =SIMP(statut='f',typ='I',defaut=10),
12681          RESI_GLOB_RELA  =SIMP(statut='f',typ='R',defaut=1.E-3),
12682          UNITE_RESU      =SIMP(statut='f',typ='I',defaut=91),
12683          PARA_DIFF_FINI  =SIMP(statut='f',typ='R',defaut=0.001),
12684          GRAPHIQUE       =FACT(statut='d',min=1,max=1,
12685            UNITE           =SIMP(statut='f',typ='I',defaut=90),
12686            INTERACTIF      =SIMP(statut='f',typ='TXM',defaut='NON',into=("OUI","NON")),)
12687 )  ;
12688 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
12689 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12690 # ======================================================================
12691 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12692 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12693 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12694 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12695 # (AT YOUR OPTION) ANY LATER VERSION.
12696 #
12697 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12698 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12699 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12700 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12701 #
12702 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12703 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12704 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12705 # ======================================================================
12706 # RESPONSABLE JMBHH01 J.M.PROIX
12707
12708 from Macro.macro_cara_poutre_ops import macro_cara_poutre_ops
12709
12710 MACRO_CARA_POUTRE=MACRO(nom="MACRO_CARA_POUTRE",op=macro_cara_poutre_ops,sd_prod=tabl_cara_geom,
12711                        docu="U4.42.02-d",reentrant='n',
12712             UIinfo={"groupes":("Modélisation",)},
12713                        fr="caractéristiques d'une section transversale de poutre à partir d'un maillage 2D",
12714          regles=(EXCLUS('SYME_X','GROUP_MA_BORD'),
12715                  EXCLUS('SYME_Y','GROUP_MA_BORD'),
12716                  ENSEMBLE('LONGUEUR','LIAISON','MATERIAU') ,),
12717          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut= 20 ),
12718          SYME_X          =SIMP(statut='f',typ='TXM',into=("OUI",)),
12719          SYME_Y          =SIMP(statut='f',typ='TXM',into=("OUI",)),
12720          GROUP_MA_BORD   =SIMP(statut='f',typ=grma,max='**'),
12721          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
12722          ORIG_INER       =SIMP(statut='f',typ='R',max='**',defaut=(0.E+0,0.E+0)),
12723          NOEUD           =SIMP(statut='f',typ=no,max='**'),
12724          GROUP_MA_INTE   =SIMP(statut='f',typ=grma,max='**'),
12725          LONGUEUR        =SIMP(statut='f',typ='R'),
12726          MATERIAU        =SIMP(statut='f',typ=mater),
12727          LIAISON         =SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT")),
12728          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12729 )  ;
12730 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
12731 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12732 # ======================================================================
12733 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12734 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12735 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12736 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12737 # (AT YOUR OPTION) ANY LATER VERSION.
12738 #
12739 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12740 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12741 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12742 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12743 #
12744 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12745 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12746 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12747 # ======================================================================
12748 MACRO_CHAR_F_U=MACRO(nom="MACRO_CHAR_F_U",op=-15,sd_prod=char_meca,
12749                     fr=" ",docu="U4.72.07-a",reentrant='n',
12750             UIinfo={"groupes":("Résultats et champs",)},
12751          MODELE          =SIMP(statut='o',typ=modele),
12752          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
12753          CHARGE          =SIMP(statut='o',typ=char_meca),
12754          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
12755          COEF_IMPO       =SIMP(statut='f',typ='R',defaut=1.0E+0),
12756          NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="APRES",into=("NORMAL","APRES")),
12757          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12758 )  ;
12759 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
12760 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12761 # ======================================================================
12762 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12763 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12764 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12765 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12766 # (AT YOUR OPTION) ANY LATER VERSION.
12767 #
12768 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12769 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12770 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12771 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12772 #
12773 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12774 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12775 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12776 # ======================================================================
12777 # RESPONSABLE G8BHHXD X.DESROCHES
12778
12779 from Macro.macro_elas_mult_ops import macro_elas_mult_ops
12780
12781 def macro_elas_mult_prod(self,NUME_DDL,CAS_CHARGE,**args ):
12782   self.type_sdprod(NUME_DDL,nume_ddl)
12783   if CAS_CHARGE[0]['NOM_CAS']      != None : return mult_elas
12784   if CAS_CHARGE[0]['MODE_FOURIER'] != None : return fourier_elas
12785   raise AsException("type de concept resultat non prevu")
12786
12787 MACRO_ELAS_MULT=MACRO(nom="MACRO_ELAS_MULT",op=macro_elas_mult_ops,sd_prod=macro_elas_mult_prod,docu="U4.51.02-d",reentrant='f',
12788             UIinfo={"groupes":("Résolution",)},
12789          regles=(UN_PARMI('CHAR_MECA_GLOBAL','CHAR_CINE_GLOBAL','LIAISON_DISCRET', ),),
12790          MODELE          =SIMP(statut='o',typ=modele),
12791          CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
12792          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
12793          NUME_DDL        =SIMP(statut='f',typ=(nume_ddl,CO)),
12794          CHAR_MECA_GLOBAL=SIMP(statut='f',typ=char_meca,max='**'),
12795          CHAR_CINE_GLOBAL=SIMP(statut='f',typ=char_meca,max='**'),
12796          LIAISON_DISCRET =SIMP(statut='f',typ='TXM',into=("OUI",)),
12797          CAS_CHARGE      =FACT(statut='o',min=1,max='**',
12798            regles=(UN_PARMI('NOM_CAS','MODE_FOURIER'),
12799                    UN_PARMI('CHAR_MECA','CHAR_CINE','VECT_ASSE'),),
12800            NOM_CAS         =SIMP(statut='f',typ='TXM' ),
12801            MODE_FOURIER    =SIMP(statut='f',typ='I' ),
12802            TYPE_MODE       =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
12803            CHAR_MECA       =SIMP(statut='f',typ=char_meca,max='**'),
12804            CHAR_CINE       =SIMP(statut='f',typ=char_meca,max='**'),
12805            OPTION          =SIMP(statut='f',typ='TXM',max='**',
12806                                  into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
12807                                        "SIGM_ELNO_CART","EFGE_ELNO_CART","DEGE_ELNO_DEPL","EPSI_ELNO_DEPL",
12808                                        "EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO","EPSP_ELGA",
12809                                        "ECIN_ELEM_DEPL","FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","SOUR_ELGA_ELEC",
12810                                        "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG","INTE_ELNO_ACTI",
12811                                        "INTE_ELNO_REAC","SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA",
12812                                        "ERRE_ELEM_NOZ2","VNOR_ELEM_DEPL","ERRE_ELNO_ELGA","SIRE_ELNO_DEPL",
12813                                        "ERRE_ELGA_NORE","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI",
12814                                        "EQUI_ELGA_EPSI","FORC_NODA","REAC_NODA","EPSI_NOEU_DEPL","SIGM_NOEU_DEPL",
12815                                        "EFGE_NOEU_DEPL","EQUI_NOEU_SIGM","EQUI_NOEU_EPSI","FLUX_NOEU_TEMP") ),
12816            NUME_COUCHE     =SIMP(statut='f',typ='I',defaut=1),
12817            NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY")),
12818            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
12819            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r),
12820          ),
12821          SOLVEUR         =FACT(statut='d',min=1,max=1,
12822            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT") ),
12823            b_mult_front    = BLOC ( condition = "METHODE == 'MULT_FRONT' ",
12824                                     fr="Paramètres de la méthode multi frontale",
12825              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
12826            ),
12827            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
12828              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
12829             ),
12830            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
12831                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
12832              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
12833              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12834            ),
12835          ),
12836          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2)),
12837          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
12838 )  ;
12839 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
12840 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12841 # ======================================================================
12842 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12843 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12844 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12845 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12846 # (AT YOUR OPTION) ANY LATER VERSION.
12847 #
12848 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12849 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12850 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12851 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12852 #
12853 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12854 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12855 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12856 # ======================================================================
12857 MACRO_MADMACS=MACRO(nom="MACRO_MADMACS",op=-9,docu="U7.03.21-c",
12858             UIinfo={"groupes":("Résolution",)},
12859                     fr="Impression au format IDEAS des données pour chainage entre Code_Aster et MADMACS",
12860          regles=(UN_PARMI('MATR_ELEM_RIGI','MATR_RIGI'),
12861                  UN_PARMI('MATR_ELEM_MASS','MATR_MASS'),
12862                  PRESENT_ABSENT('MATR_ELEM_AMOR','MATR_AMOR'),),
12863          FICHIER         =SIMP(statut='f',typ='TXM' ),
12864          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",)),
12865          VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(5,)),
12866          MAILLAGE        =SIMP(statut='o',typ=maillage),
12867          NUME_DDL        =SIMP(statut='o',typ=nume_ddl),
12868          CHARGE          =SIMP(statut='o',typ=char_meca,max='**'),
12869          MATR_ELEM_RIGI  =SIMP(statut='f',typ=matr_elem_depl_r),
12870          MATR_RIGI       =SIMP(statut='f',typ=matr_asse_depl_r),
12871          MATR_ELEM_MASS  =SIMP(statut='f',typ=matr_elem_depl_r),
12872          MATR_MASS       =SIMP(statut='f',typ=matr_asse_depl_r),
12873          MATR_ELEM_AMOR  =SIMP(statut='f',typ=matr_elem_depl_r),
12874          MATR_AMOR       =SIMP(statut='f',typ=matr_asse_depl_r),
12875          MODE_MECA       =SIMP(statut='o',typ=mode_meca),
12876          NMAX_MODE       =SIMP(statut='f',typ='I',defaut=10),
12877          INTERFACE       =FACT(statut='f',min=1,max='**',
12878            regles=(UN_PARMI('NOEUD','GROUP_NO'),
12879                    UN_PARMI('DDL_ACTIF','MASQUE'),),
12880            NOM             =SIMP(statut='o',typ='TXM'),
12881            NOEUD           =SIMP(statut='f',typ=no,max='**'),
12882            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
12883            DDL_ACTIF       =SIMP(statut='f',typ='TXM',max='**'),
12884            MASQUE          =SIMP(statut='f',typ='TXM',max='**'),
12885          ),
12886          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12887 )  ;
12888 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
12889 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12890 # ======================================================================
12891 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12892 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12893 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12894 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12895 # (AT YOUR OPTION) ANY LATER VERSION.
12896 #
12897 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12898 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12899 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12900 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12901 #
12902 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12903 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12904 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12905 # ======================================================================
12906 def macro_matr_ajou_prod(self,MATR_AMOR_AJOU,MATR_MASS_AJOU,MATR_RIGI_AJOU,FORC_AJOU,**args):
12907   self.type_sdprod(MATR_AMOR_AJOU,matr_asse_depl_r)
12908   self.type_sdprod(MATR_MASS_AJOU,matr_asse_depl_r)
12909   self.type_sdprod(MATR_RIGI_AJOU,matr_asse_depl_r)
12910   if FORC_AJOU != None:
12911     for m in FORC_AJOU:
12912       self.type_sdprod(m['VECTEUR'],vect_asse_gene)
12913
12914   return None
12915
12916 MACRO_MATR_AJOU=MACRO(nom="MACRO_MATR_AJOU",op=-13,docu="U4.66.11-c",sd_prod=macro_matr_ajou_prod,
12917             UIinfo={"groupes":("Matrices/vecteurs",)},
12918       regles=(AU_MOINS_UN('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
12919               AU_MOINS_UN('MATR_MASS_AJOU','MATR_AMOR_AJOU','MATR_RIGI_AJOU'),
12920               EXCLUS('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
12921               EXCLUS('MONO_APPUI','MODE_STAT',),
12922              ),
12923          MAILLAGE        =SIMP(statut='o',typ=maillage),
12924          GROUP_MA_FLUIDE =SIMP(statut='o',typ=grma),
12925          GROUP_MA_INTERF =SIMP(statut='o',typ=grma),
12926          MODELISATION    =SIMP(statut='o',typ='TXM',into=("PLAN","AXIS","3D")),
12927          FLUIDE          =FACT(statut='o',min=1,max='**',
12928            RHO             =SIMP(statut='o',typ='R'),
12929            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
12930            GROUP_MA        =SIMP(statut='f',typ=grma),
12931            MAILLE          =SIMP(statut='f',typ=ma),
12932          ),
12933          DDL_IMPO        =FACT(statut='o',min=1,max='**',
12934            regles=(UN_PARMI('NOEUD','GROUP_NO'),
12935                    UN_PARMI('PRES_FLUIDE','PRES_SORTIE'),),
12936            NOEUD           =SIMP(statut='f',typ=no),
12937            GROUP_NO        =SIMP(statut='f',typ=grno),
12938            PRES_FLUIDE     =SIMP(statut='f',typ='R'),
12939            PRES_SORTIE     =SIMP(statut='f',typ='R'),
12940          ),
12941          ECOULEMENT      =FACT(statut='f',min=1,max='**',
12942            GROUP_MA_1      =SIMP(statut='o',typ=grma),
12943            GROUP_MA_2      =SIMP(statut='o',typ=grma),
12944            VNOR_1          =SIMP(statut='o',typ='R'),
12945            VNOR_2          =SIMP(statut='f',typ='R'),
12946            POTENTIEL       =SIMP(statut='f',typ=evol_ther),
12947          ),
12948          MODE_MECA       =SIMP(statut='f',typ=mode_meca),
12949          DEPL_IMPO       =SIMP(statut='f',typ=cham_no_depl_r),
12950          MODELE_GENE     =SIMP(statut='f',typ=modele_gene),
12951          NUME_DDL_GENE   =SIMP(statut='f',typ=nume_ddl_gene),
12952          DIST_REFE       =SIMP(statut='f',typ='R',defaut= 1.0E-2),
12953          MATR_MASS_AJOU  =SIMP(statut='f',typ=(CO,matr_asse)),
12954          MATR_RIGI_AJOU  =SIMP(statut='f',typ=(CO,matr_asse)),
12955          MATR_AMOR_AJOU  =SIMP(statut='f',typ=(CO,matr_asse)),
12956          MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",),),
12957          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,),),
12958          FORC_AJOU       =FACT(statut='f',min=1,max='**',
12959            DIRECTION     =SIMP(statut='o',typ='R',max=3),
12960            NOEUD         =SIMP(statut='f',typ=no,max='**'),
12961            GROUP_NO      =SIMP(statut='f',typ=grno,max='**'),
12962            VECTEUR       =SIMP(statut='o',typ=(CO,vect_asse_gene)),
12963          ),
12964          SOLVEUR         =FACT(statut='d',min=1,max=1,
12965            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
12966            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
12967              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
12968            ),
12969            b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
12970              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
12971            ),
12972            b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
12973                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
12974              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
12975              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12976            ),
12977            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
12978              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
12979              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
12980              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
12981              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
12982              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
12983            ),
12984 #  A quoi sert eps
12985            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12986          ),
12987          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12988          NOEUD_DOUBLE    =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
12989          AVEC_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
12990 ) ;
12991 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
12992 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12993 # ======================================================================
12994 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12995 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12996 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12997 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12998 # (AT YOUR OPTION) ANY LATER VERSION.
12999 #
13000 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13001 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13002 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13003 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13004 #
13005 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13006 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13007 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13008 # ======================================================================
13009
13010 from Macro.macro_matr_asse_ops import macro_matr_asse_ops
13011
13012 def macro_matr_asse_prod(self,NUME_DDL,MATR_ASSE,**args):
13013   if not MATR_ASSE:  raise AsException("Impossible de typer les concepts resultats")
13014   if not NUME_DDL:  raise AsException("Impossible de typer les concepts resultats")
13015   self.type_sdprod(NUME_DDL,nume_ddl)
13016   for m in MATR_ASSE:
13017     opti=m['OPTION']
13018
13019     if opti in ( "RIGI_MECA","RIGI_FLUI_STRU","RIGI_MECA_LAGR" ,
13020        "MASS_MECA" , "MASS_FLUI_STRU" ,"RIGI_GEOM" ,"RIGI_ROTA",
13021        "AMOR_MECA","IMPE_MECA","MASS_ID_MDEP_R","MASS_ID_MDNS_R",
13022        "ONDE_FLUI","MASS_MECA_DIAG" ) : t=matr_asse_depl_r
13023
13024     if opti in ( "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",) : t=matr_asse_pres_c
13025
13026     if opti in ( "RIGI_THER","MASS_THER","RIGI_THER_CONV" ,
13027        "RIGI_THER_CONV_D","MASS_ID_MTEM_R","MASS_ID_MTNS_R",) : t=matr_asse_temp_r
13028
13029     if opti == "RIGI_MECA_HYST"   : t= matr_asse_depl_c
13030
13031     self.type_sdprod(m['MATRICE'],t)
13032   return None
13033
13034 MACRO_MATR_ASSE=MACRO(nom="MACRO_MATR_ASSE",op=macro_matr_asse_ops,docu="U4.61.21-d",
13035             UIinfo={"groupes":("Matrices/vecteurs",)},
13036                       sd_prod=macro_matr_asse_prod,
13037                       fr="Calcul des matrices assemblées (matr_asse_gd) par exemple de rigidité, de masse ",
13038          MODELE          =SIMP(statut='o',typ=modele),
13039          CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
13040          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
13041          CHARGE          =SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**'),
13042          INST            =SIMP(statut='f',typ='R'),
13043          NUME_DDL        =SIMP(statut='o',typ=(nume_ddl,CO)),
13044          SOLVEUR         =FACT(statut='d',min=1,max=1,
13045            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",
13046                                  into=("LDLT","MULT_FRONT","GCPC")),
13047            RENUM           =SIMP(statut='f',typ='TXM',into=("SANS","RCMK","MD","MDA","METIS")),
13048          ),
13049          MATR_ASSE       =FACT(statut='o',min=1,max='**',
13050            MATRICE         =SIMP(statut='o',typ=(matr_asse,CO)),
13051            OPTION          =SIMP(statut='o',typ='TXM',
13052                                  into=("RIGI_MECA","MASS_MECA","MASS_MECA_DIAG",
13053                                        "AMOR_MECA","RIGI_MECA_HYST","IMPE_MECA",
13054                                        "ONDE_FLUI","RIGI_FLUI_STRU","MASS_FLUI_STRU",
13055                                        "RIGI_ROTA","RIGI_GEOM","RIGI_MECA_LAGR",
13056                                        "RIGI_THER","MASS_THER",
13057                                        "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",
13058                                        "MASS_ID_MTEM_R","MASS_ID_MTNS_R","MASS_ID_MDEP_R","MASS_ID_MDNS_R",)
13059                                  ),
13060            SIEF_ELGA       =SIMP(statut='f',typ=cham_elem_sief_r),
13061            MODE_FOURIER    =SIMP(statut='f',typ='I'),
13062            THETA           =SIMP(statut='f',typ=theta_geom),
13063            PROPAGATION     =SIMP(statut='f',typ='R'),
13064          ),
13065          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13066          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13067 )  ;
13068 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
13069 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13070 # ======================================================================
13071 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13072 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13073 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13074 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13075 # (AT YOUR OPTION) ANY LATER VERSION.
13076 #
13077 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13078 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13079 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13080 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13081 #
13082 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13083 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13084 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13085 # ======================================================================
13086
13087 from Macro.macro_miss_3d_ops import macro_miss_3d_ops
13088
13089 MACRO_MISS_3D=MACRO(nom="MACRO_MISS_3D",op=macro_miss_3d_ops,fr=" ",docu="U7.03.11-b",
13090             UIinfo={"groupes":("Matrices/vecteurs",)},
13091          OPTION          =FACT(statut='o',min=1,max=1,
13092            regles=(UN_PARMI('TOUT','MODULE'),),
13093            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
13094            MODULE          =SIMP(statut='f',typ='TXM',into=("PRE_MISS","MISS_EVOL","MISS_IMPE")),
13095          ),
13096          PROJET          =SIMP(statut='o',typ='TXM'),
13097          REPERTOIRE      =SIMP(statut='f',typ='TXM'),
13098          UNITE_IMPR_ASTER=SIMP(statut='f',typ='I',defaut=25),
13099          UNITE_OPTI_MISS =SIMP(statut='f',typ='I',defaut=26),
13100          UNITE_MODELE_SOL=SIMP(statut='f',typ='I',defaut=27),
13101          UNITE_RESU_IMPE =SIMP(statut='f',typ='I',defaut=30),
13102 )  ;
13103 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
13104 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13105 # ======================================================================
13106 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13107 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13108 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13109 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13110 # (AT YOUR OPTION) ANY LATER VERSION.
13111 #
13112 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13113 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13114 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13115 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13116 #
13117 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13118 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13119 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13120 # ======================================================================
13121
13122 from Macro.macro_mode_meca_ops import macro_mode_meca_ops
13123
13124 def macro_mode_meca_prod(self,MATR_A,MATR_B,**args ):
13125   self.type_sdprod(MATR_A,matr_asse_depl_r)
13126   self.type_sdprod(MATR_B,matr_asse_depl_r)
13127   return mode_meca
13128
13129 MACRO_MODE_MECA=MACRO(nom="MACRO_MODE_MECA",op=macro_mode_meca_ops,sd_prod=macro_mode_meca_prod,
13130                      docu="U4.52.02-d",reentrant='n',
13131             UIinfo={"groupes":("Résolution",)},
13132          MATR_A          =SIMP(statut='o',typ=(CO,matr_asse_depl_r) ),
13133          MATR_B          =SIMP(statut='o',typ=(CO,matr_asse_depl_r) ),
13134          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
13135 #  ce mot cle ne devrait il pas etre dans calc_freq
13136          METHODE         =SIMP(statut='f',typ='TXM',defaut="SORENSEN",
13137                                into=("TRI_DIAG","JACOBI","SORENSEN",) ),
13138          b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
13139            PREC_ORTHO      =SIMP(statut='f',typ='R',defaut= 1.E-12,val_min=0.E+0 ),
13140            NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13141            PREC_LANCZOS    =SIMP(statut='f',typ='R',defaut= 1.E-8,val_min=0.E+0 ),
13142            NMAX_ITER_QR    =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
13143          ),
13144          b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
13145            PREC_BATHE      =SIMP(statut='f',typ='R',defaut= 1.E-10,val_min=0.E+0 ),
13146            NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40,val_min=0 ),
13147            PREC_JACOBI     =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13148            NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12,val_min=0 ),
13149          ),
13150          b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
13151            PREC_SOREN      =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
13152            NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
13153            PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
13154          ),
13155          OPTION          =SIMP(statut='f',typ='TXM',defaut="SANS",
13156                                into=("MODE_RIGIDE","SANS") ),
13157          CALC_FREQ       =FACT(statut='d',min=0,max=1,
13158            regles=(UN_PARMI('FREQ','FREQ_MAX'),
13159                    PRESENT_PRESENT('FREQ_MIN','FREQ_MAX'),
13160                    PRESENT_PRESENT('FREQ_MAX','NB_BLOC_FREQ'),
13161                    EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
13162            FREQ            =SIMP(statut='f',typ='R',min=2,max='**',val_min=0.E+0 ),
13163            FREQ_MIN        =SIMP(statut='f',typ='R' ),
13164            FREQ_MAX        =SIMP(statut='f',typ='R' ),
13165            NB_BLOC_FREQ    =SIMP(statut='f',typ='I' ),
13166            DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
13167            COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
13168            NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8 ),
13169            NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
13170            PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
13171            SEUIL_FREQ      =SIMP(statut='f',typ='R' ,defaut= 1.E-2 ),
13172            STOP_FREQ_VIDE  =SIMP(statut='f',typ='TXM',defaut="NON" ,into=("OUI","NON") ),
13173          ),
13174          VERI_MODE       =FACT(statut='d',min=0,max=1,
13175            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13176            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
13177            PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
13178            STURM           =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13179          ),
13180          NORM_MODE       =FACT(statut='o',min=1,max='**',
13181            MASS_INER       =SIMP(statut='o',typ=tabl_mass_iner ),
13182            NORME           =SIMP(statut='f',typ='TXM',defaut="TRAN_ROTA",
13183                                  into=("MASS_GENE","RIGI_GENE","EUCL",
13184                                        "EUCL_TRAN","TRAN","TRAN_ROTA") ),
13185            INFO            =SIMP(statut='f',typ='I',defaut= 1 ,into=(1,2) ),
13186          ),
13187          FILTRE_MODE     =FACT(statut='f',min=1,max=1,
13188            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
13189                                  into=("MASS_EFFE_UN","MASS_GENE") ),
13190            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
13191          ),
13192          IMPRESSION      =FACT(statut='d',min=1,max=1,
13193            TOUT_PARA       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13194            CUMUL           =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13195            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
13196                                  into=("MASS_EFFE_UN","MASS_GENE",) ),
13197          ),
13198 )  ;
13199 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
13200 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13201 # ======================================================================
13202 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13203 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13204 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13205 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13206 # (AT YOUR OPTION) ANY LATER VERSION.
13207 #
13208 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13209 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13210 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13211 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13212 #
13213 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13214 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13215 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13216 # ======================================================================
13217
13218 from Macro.macro_proj_base_ops import macro_proj_base_ops
13219
13220 def macro_proj_base_prod(self,MATR_ASSE_GENE,VECT_ASSE_GENE,**args ):
13221   if MATR_ASSE_GENE != None:
13222     for m in MATR_ASSE_GENE:
13223       self.type_sdprod(m['MATRICE'],matr_asse_gene_r)
13224       self.type_sdprod(m['MATR_ASSE'],matr_asse_depl_r)
13225   if VECT_ASSE_GENE != None:
13226     for v in VECT_ASSE_GENE:
13227       self.type_sdprod(v['VECTEUR'],vect_asse_gene)
13228   return None
13229
13230 MACRO_PROJ_BASE=MACRO(nom="MACRO_PROJ_BASE",op=macro_proj_base_ops,docu="U4.63.11-d",
13231             UIinfo={"groupes":("Matrices/vecteurs",)},
13232                       sd_prod=macro_proj_base_prod,
13233                       fr="Projection des matrices et/ou vecteurs assemblés sur une base de vecteurs",
13234          BASE            =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene) ),
13235          NB_VECT         =SIMP(statut='f',typ='I',defaut= 9999),
13236          MATR_ASSE_GENE  =FACT(statut='f',min=1,max='**',
13237            MATRICE         =SIMP(statut='o',typ=(CO,matr_asse)),
13238            MATR_ASSE       =SIMP(statut='f',typ=matr_asse_depl_r),
13239            MATR_ASSE_GENE  =SIMP(statut='f',typ=matr_asse_gene_r),
13240            PROFIL          =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("PLEIN","DIAG") ),
13241          ),
13242          VECT_ASSE_GENE  =FACT(statut='f',min=1,max='**',
13243            VECTEUR         =SIMP(statut='o',typ=(CO,vect_asse)),
13244            TYPE_VECT       =SIMP(statut='f',typ='TXM',defaut="FORC"),
13245            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r),
13246            VECT_ASSE_GENE  =SIMP(statut='f',typ=vect_asse_gene),
13247          ),
13248          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13249 )  ;
13250 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
13251 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13252 # ======================================================================
13253 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13254 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13255 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13256 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13257 # (AT YOUR OPTION) ANY LATER VERSION.
13258 #
13259 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13260 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13261 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13262 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13263 #
13264 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13265 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13266 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13267 # ======================================================================
13268 MAJ_CATA=PROC(nom="MAJ_CATA",op=20,docu="U4.15.01-e",
13269             UIinfo={"groupes":("Gestion du travail",)},
13270               fr="Compilation des catalogues de commandes et d éléments",
13271
13272          ELEMENT         =FACT(statut='f',min=1,max=1,),
13273
13274 )  ;
13275 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
13276 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13277 # ======================================================================
13278 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13279 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
13280 #              REDISTRIBUTION OF THIS FILE.
13281 # ======================================================================
13282 # RESPONSABLE VABHHTS J.PELLET
13283 MECA_STATIQUE=OPER(nom="MECA_STATIQUE",op=46,sd_prod=evol_elas,
13284                    fr="Analyse mécanique statique linéaire",docu="U4.51.01-g",reentrant='n',
13285             UIinfo={"groupes":("Résolution",)},
13286                    regles=(EXCLUS("INST","LIST_INST"),
13287                            AU_MOINS_UN('CHAM_MATER','CARA_ELEM',), ),
13288          MODELE          =SIMP(statut='o',typ=modele),
13289          CHAM_MATER      =SIMP(statut='f',typ=cham_mater,
13290          fr="le CHAM_MATER est nécessaire, sauf si le modèle ne contient que des éléments discrets (modélisations DIS_XXX)",
13291          ang="CHAM_MATER is compulsory, except if the model contains only discret elements (modelizations DIS_XXX)"),
13292          CARA_ELEM       =SIMP(statut='f',typ=cara_elem,
13293          fr="le CARA_ELEM est nécessaire dès que le modèle contient des éléments de structure : coques, poutres, ...",
13294          ang="CARA_ELEM is compulsory as soon as the model contains structural elements : plates, beams, ..."),
13295          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13296          EXCIT           =FACT(statut='o',min=1,max='**',
13297            CHARGE          =SIMP(statut='o',typ=(char_meca,char_cine_meca)),
13298            FONC_MULT       =SIMP(statut='f',typ=fonction),
13299            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
13300          ),
13301          INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
13302          LIST_INST       =SIMP(statut='f',typ=listr8),
13303          OPTION          =SIMP(statut='f',typ='TXM',max='**',
13304                                into=("SANS","SIGM_ELNO_DEPL","SIPO_ELNO_DEPL","EFGE_ELNO_DEPL",
13305                                      "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPME_ELNO_DEPL","EPME_ELGA_DEPL",
13306                                      "EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
13307                                      "EQUI_ELNO_EPME","EQUI_ELGA_EPME","DEGE_ELNO_DEPL","EPOT_ELEM_DEPL",
13308                                      "ENEL_ELGA","ENEL_ELNO_ELGA") ),
13309          NUME_COUCHE     =SIMP(statut='f',typ='I',defaut=1),
13310          NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
13311          ANGLE           =SIMP(statut='f',typ='I',defaut=0),
13312          PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL") ),
13313          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
13314                                fr="Liste des paramètres de sensibilité.",
13315                                ang="List of sensitivity parameters"),
13316          SOLVEUR         =FACT(statut='d',min=1,max=1,
13317            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
13318            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
13319              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
13320            ),
13321            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
13322              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
13323            ),
13324            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
13325                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
13326              NPREC           =SIMP(statut='f',typ='I',defaut=8),
13327              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13328            ),
13329            b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
13330              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
13331              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
13332              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
13333              RESI_RELA       =SIMP(statut='f',typ='R',defaut=1.E-6),
13334              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
13335            ),
13336 #  A quoi sert eps
13337            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
13338          ),
13339          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
13340 )  ;
13341 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
13342 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13343 # ======================================================================
13344 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13345 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13346 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13347 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13348 # (AT YOUR OPTION) ANY LATER VERSION.
13349 #
13350 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13351 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13352 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13353 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13354 #
13355 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13356 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13357 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13358 # ======================================================================
13359 # RESPONSABLE GNICOLAS G.NICOLAS
13360 MEMO_NOM_SENSI=PROC(nom="MEMO_NOM_SENSI",op=129,docu="U4.31.07-a",
13361             UIinfo={"groupes":("Fonction",)},
13362                     fr="Mémorisation des noms des concepts dérivés.",
13363                     ang="Memorisation of the names of the sensitive concepts.",
13364
13365          regles=(AU_MOINS_UN('NOM','NOM_ZERO','NOM_UN'),),
13366
13367          NOM=FACT(statut='f',max='**',
13368              regles=(PRESENT_PRESENT('MOT_CLE','VALEUR' ),),
13369
13370              NOM_SD=SIMP(statut='o',typ='TXM',
13371                          fr="Nom de la structure de base",
13372                          ang="Name of the basic structure"),
13373
13374              PARA_SENSI=SIMP(statut='o',typ=(para_sensi,theta_geom),
13375                          fr="Nom du paramètre sensible",
13376                          ang="Name of the sensitive parameter"),
13377
13378              NOM_COMPOSE=SIMP(statut='f',typ='TXM',defaut=" ",
13379                          fr="Nom de la structure composée",
13380                          ang="Name of the built structure"),
13381
13382              MOT_CLE=SIMP(statut='f',typ='TXM',max='**',
13383                          fr="Liste des mots clés concernés par la dérivation",
13384                          ang="Keyword list involved in derivation"),
13385
13386              VALEUR=SIMP(statut='f',typ='TXM',max='**',
13387                          fr="Liste des objets concernés par la dérivation",
13388                          ang="Object list involved in derivation"),
13389
13390                  ),
13391
13392          NOM_ZERO=SIMP(statut='f',typ=fonction,
13393                        fr="Nom de la fonction nulle",
13394                        ang="Name of the zero fonction"),
13395
13396          NOM_UN=SIMP  (statut='f',typ=fonction,
13397                        fr="Nom de la fonction unité",
13398                        ang="Name of the one fonction"),
13399
13400 )  ;
13401 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
13402 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13403 # ======================================================================
13404 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13405 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13406 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13407 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13408 # (AT YOUR OPTION) ANY LATER VERSION.
13409 #
13410 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13411 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13412 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13413 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13414 #
13415 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13416 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13417 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13418 # ======================================================================
13419 MODE_ITER_CYCL=OPER(nom="MODE_ITER_CYCL",op=  80,sd_prod=mode_cycl,
13420                     fr="Modes propres d une structure à répétitivité cyclique à partir d une base de modes propres réels",
13421                     docu="U4.52.05-f",reentrant='n',
13422             UIinfo={"groupes":("Résolution",)},
13423          BASE_MODALE     =SIMP(statut='o',typ=base_modale ),
13424          NB_MODE         =SIMP(statut='f',typ='I',defaut= 999 ),
13425          NB_SECTEUR      =SIMP(statut='o',typ='I' ),
13426          LIAISON         =FACT(statut='o',min=1,max=1,
13427            DROITE          =SIMP(statut='o',typ='TXM' ),
13428            GAUCHE          =SIMP(statut='o',typ='TXM' ),
13429            AXE             =SIMP(statut='f',typ='TXM' ),
13430          ),
13431          VERI_CYCL       =FACT(statut='f',min=1,max=1,
13432            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
13433            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF",) ),
13434            DIST_REFE       =SIMP(statut='f',typ='R' ),
13435          ),
13436          CALCUL          =FACT(statut='o',min=1,max=1,
13437            TOUT_DIAM       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13438            NB_DIAM         =SIMP(statut='f',typ='I',max='**'),
13439            OPTION          =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE"
13440                                 ,into=("PLUS_PETITE","CENTRE","BANDE") ),
13441            b_centre      =BLOC(condition = "OPTION == 'CENTRE'",
13442              FREQ            =SIMP(statut='o',typ='R',min=1,max=1),
13443            ),
13444            b_bande       =BLOC(condition = "OPTION == 'BANDE'",
13445              FREQ            =SIMP(statut='o',typ='R',min=2,max=2),
13446            ),
13447 #  NMAX_FREQ n a-t-il pas un sens qu avec OPTION CENTRE
13448            NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10 ),
13449            PREC_SEPARE     =SIMP(statut='f',typ='R',defaut= 100. ),
13450            PREC_AJUSTE     =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
13451            NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 50 ),
13452          ),
13453          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13454 )  ;
13455 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
13456 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13457 # ======================================================================
13458 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13459 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13460 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13461 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13462 # (AT YOUR OPTION) ANY LATER VERSION.
13463 #
13464 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13465 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13466 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13467 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13468 #
13469 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13470 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13471 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13472 # ======================================================================
13473 def mode_iter_inv_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
13474   if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
13475   if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
13476   if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
13477   if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
13478   if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
13479   raise AsException("type de concept resultat non prevu")
13480
13481 MODE_ITER_INV=OPER(nom="MODE_ITER_INV",op=  44,sd_prod=mode_iter_inv_prod
13482                     ,fr="Modes propres par itérations inverses ; valeurs propres et modes réels ou complexes",
13483                      docu="U4.52.04-g",reentrant='n',
13484             UIinfo={"groupes":("Résolution",)},
13485          MATR_A          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13486          MATR_B          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13487          MATR_C          =SIMP(statut='f',typ=matr_asse_depl_r ),
13488          TYPE_RESU       =SIMP(statut='f',position='global',typ='TXM',defaut="DYNAMIQUE",
13489                                into=("MODE_FLAMB","DYNAMIQUE"),fr="Type d analyse" ),
13490          b_dynam         =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
13491            CALC_FREQ       =FACT(statut='o',min=1,max=1,fr="Choix des paramètres pour le calcul des valeurs propres",
13492
13493              OPTION          =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
13494                                    fr="Choix de l option pour estimer les valeurs propres"  ),
13495              FREQ            =SIMP(statut='o',typ='R',max='**'),
13496              AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
13497              NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 0,val_min=0 ),
13498              NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30,val_min=0 ),
13499              PREC_SEPARE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0 ),
13500              NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15,val_min=0 ),
13501              PREC_AJUSTE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0 ),
13502
13503              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13504              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13505              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0, ),
13506              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0, ),
13507            ),
13508          ),
13509          b_flamb        =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
13510            CALC_FREQ       =FACT(statut='o',min=1,max=1,fr="Choix des paramètres pour le calcul des valeurs propres",
13511
13512              OPTION          =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
13513                                  fr="Choix de l option pour estimer les valeurs propres"  ),
13514              CHAR_CRIT       =SIMP(statut='o',typ='R',max='**' ),
13515              NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 0,val_min=0 ),
13516              NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30,val_min=0 ),
13517              PREC_SEPARE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0, ),
13518              NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15 ),
13519              PREC_AJUSTE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0, ),
13520
13521              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13522              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13523              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0, ),
13524              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0, ),
13525            ),
13526          ),
13527          CALC_MODE       =FACT(statut='d',min=0,max=1,fr="Choix des paramètres pour le calcul des vecteurs propres",
13528            OPTION          =SIMP(statut='f',typ='TXM',defaut="DIRECT",into=("DIRECT","RAYLEIGH") ),
13529            PREC            =SIMP(statut='f',typ='R',defaut= 1.E-5,val_min=0.E+0,fr="Précision de convergence" ),
13530            NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
13531          ),
13532          VERI_MODE       =FACT(statut='d',min=0,max=1,
13533            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13534            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0,
13535                                  fr="Valeur limite admise pour l ereur a posteriori des modes"  ),
13536          ),
13537          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13538          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13539 )  ;
13540 #& MODIF COMMANDE  DATE 05/01/2004   AUTEUR NICOLAS O.NICOLAS
13541 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13542 # ======================================================================
13543 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13544 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13545 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13546 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13547 # (AT YOUR OPTION) ANY LATER VERSION.
13548 #
13549 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13550 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13551 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13552 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13553 #
13554 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13555 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13556 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13557 # ======================================================================
13558 def mode_iter_simult_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
13559   if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
13560   if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
13561   if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
13562   if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
13563   if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
13564   raise AsException("type de concept resultat non prevu")
13565
13566 MODE_ITER_SIMULT=OPER(nom="MODE_ITER_SIMULT",op=  45,sd_prod=mode_iter_simult_prod,
13567                       fr="Modes propres par itérations simultanées ; valeurs propres et modes propres réels ou complexes",
13568                       docu="U4.52.03-f",reentrant='n',
13569             UIinfo={"groupes":("Résolution",)},
13570          MATR_A          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13571          MATR_B          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13572          MATR_C          =SIMP(statut='f',position='global',typ=(matr_asse_depl_r,matr_asse_gene_r) ),
13573          METHODE         =SIMP(statut='f',position='global',typ='TXM',defaut="SORENSEN",
13574                                into=("TRI_DIAG","JACOBI","SORENSEN") ),
13575          b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
13576            PREC_ORTHO      =SIMP(statut='f',typ='R',defaut= 1.E-12,val_min=0.E+0 ),
13577            NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13578            PREC_LANCZOS    =SIMP(statut='f',typ='R',defaut= 1.E-8,val_min=0.E+0 ),
13579            NMAX_ITER_QR    =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
13580          ),
13581          b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
13582            PREC_BATHE      =SIMP(statut='f',typ='R',defaut= 1.E-10,val_min=0.E+0 ),
13583            NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40,val_min=0 ),
13584            PREC_JACOBI     =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13585            NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12,val_min=0 ),
13586          ),
13587          b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
13588            PREC_SOREN      =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
13589            NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
13590            PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
13591          ),
13592          TYPE_RESU       =SIMP(statut='f',position='global',typ='TXM',defaut="DYNAMIQUE",
13593                                into=("MODE_FLAMB","DYNAMIQUE"),
13594                                fr="Type d analyse" ),
13595          OPTION          =SIMP(statut='f',typ='TXM',defaut="SANS",into=("MODE_RIGIDE","SANS"),
13596                                fr="Calcul des modes de corps rigide, uniquement pour la méthode TRI_DIAG" ),
13597
13598          b_flamb         =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
13599            CALC_FREQ       =FACT(statut='d',min=0,max=1,
13600              OPTION          =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
13601                                    fr="Choix de l option et par conséquent du shift du problème modal" ),
13602              b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
13603                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
13604              ),
13605              b_centre      =BLOC(condition = "OPTION == 'CENTRE'",
13606                                  fr="Recherche des valeurs propres les plus proches d une valeur donnée",
13607                CHAR_CRIT       =SIMP(statut='o',typ='R',min=1,max=1,
13608                                      fr="Charge critique autour de laquelle on cherche les charges critiques propres"),
13609                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
13610              ),
13611              b_bande       =BLOC(condition = "(OPTION == 'BANDE')",
13612                                  fr="Recherche des valeurs propres dans une bande donnée",
13613                CHAR_CRIT       =SIMP(statut='o',typ='R',min=2,max=2,
13614                                      fr="Valeur des deux charges critiques délimitant la bande de recherche"),
13615              ),
13616              APPROCHE        =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG"),
13617                                    fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
13618              regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
13619              DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
13620              COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
13621              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13622              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13623              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0 ),
13624              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13625            ),
13626          ),
13627
13628          b_dynam        =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
13629            CALC_FREQ       =FACT(statut='d',min=0,max=1,
13630              OPTION          =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
13631                                    fr="Choix de l option et par conséquent du shift du problème modal" ),
13632              b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
13633                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
13634              ),
13635              b_centre       =BLOC(condition = "OPTION == 'CENTRE'",
13636                                   fr="Recherche des valeurs propres les plus proches d une valeur donnée",
13637                FREQ            =SIMP(statut='o',typ='R',min=1,max=1,
13638                                      fr="Fréquence autour de laquelle on cherche les fréquences propres"),
13639                AMOR_REDUIT     =SIMP(statut='f',typ='R',max=1,),
13640                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
13641              ),
13642              b_bande         =BLOC(condition = "(OPTION == 'BANDE')",
13643                                    fr="Recherche des valeurs propres dans une bande donnée",
13644                FREQ            =SIMP(statut='o',typ='R',min=2,max=2,
13645                                      fr="Valeur des deux fréquences délimitant la bande de recherche"),
13646              ),
13647              APPROCHE        =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG"),
13648                                    fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
13649              regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
13650              DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
13651              COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
13652              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13653              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13654              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0 ),
13655              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13656            ),
13657          ),
13658
13659          VERI_MODE       =FACT(statut='d',min=0,max=1,
13660            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13661            PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-3,val_min=0.E+0 ),
13662            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-6,val_min=0.E+0,
13663                                  fr="Valeur limite admise pour l ereur a posteriori des modes" ),
13664            STURM           =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13665          ),
13666          STOP_FREQ_VIDE  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13667          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13668          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13669 )  ;
13670 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
13671 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13672 # ======================================================================
13673 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13674 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13675 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13676 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13677 # (AT YOUR OPTION) ANY LATER VERSION.
13678 #
13679 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13680 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13681 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13682 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13683 #
13684 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13685 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13686 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13687 # ======================================================================
13688 def mode_stat_prod(MODE_STAT,FORCE_NODALE,PSEUDO_MODE,**args):
13689  if (MODE_STAT != None)          : return mode_stat_depl
13690  if (PSEUDO_MODE !=None)         : return mode_stat_acce
13691  if (FORCE_NODALE != None)       : return mode_stat_forc
13692  raise AsException("type de concept resultat non prevu")
13693 MODE_STATIQUE=OPER(nom="MODE_STATIQUE",op= 93,sd_prod=mode_stat_prod,
13694                    fr="Calcul de modes statiques",
13695                    docu="U4.52.14-f",reentrant='n',
13696             UIinfo={"groupes":("Résolution",)},
13697          MATR_RIGI       =SIMP(statut='o',typ=matr_asse_depl_r ),
13698          MATR_MASS       =SIMP(statut='f',typ=matr_asse_depl_r ),
13699                regles=(UN_PARMI('MODE_STAT','FORCE_NODALE','PSEUDO_MODE'),),
13700          MODE_STAT       =FACT(statut='f',min=1,max='**',
13701            regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
13702                    UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
13703            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ,),
13704            NOEUD           =SIMP(statut='f',typ=no,max='**'),
13705            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
13706            TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",) ,),
13707            AVEC_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13708            SANS_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13709          ),
13710          FORCE_NODALE    =FACT(statut='f',min=1,max='**',
13711            regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
13712                    UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
13713            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",), ),
13714            NOEUD           =SIMP(statut='f',typ=no,max='**'),
13715            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
13716            TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",), ),
13717            AVEC_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13718            SANS_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13719          ),
13720          PSEUDO_MODE       =FACT(statut='f',min=1,max='**',
13721            regles=(UN_PARMI('AXE','DIRECTION','TOUT','NOEUD','GROUP_NO' ),),
13722            AXE             =SIMP(statut='f',typ='TXM',into=("X","Y","Z"),max=3),
13723            DIRECTION       =SIMP(statut='f',typ='R',min=3,max=3),
13724            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
13725            NOEUD           =SIMP(statut='f',typ=no,max='**'),
13726            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
13727            b_dir           =BLOC(condition = "DIRECTION != None",
13728              NOM_DIR         =SIMP(statut='f',typ='TXM' ),),
13729            b_cmp          =BLOC(condition="TOUT!= None or NOEUD!=None or GROUP_NO!=None",
13730              regles=(UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
13731              TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13732              AVEC_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13733              SANS_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13734         ),
13735          ),
13736          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13737          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
13738 )  ;
13739 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
13740 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13741 # ======================================================================
13742 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13743 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13744 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13745 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13746 # (AT YOUR OPTION) ANY LATER VERSION.
13747 #
13748 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13749 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13750 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13751 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13752 #
13753 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13754 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13755 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13756 # ======================================================================
13757 MODI_BASE_MODALE=OPER(nom="MODI_BASE_MODALE",op= 149,sd_prod=mode_meca,
13758                       docu="U4.66.21-d",reentrant='f',
13759             UIinfo={"groupes":("Matrices/vecteurs",)},
13760 #  la commande modi_base _modale : reentrant = f ou o
13761          regles=(EXCLUS('AMOR_UNIF','AMOR_REDUIT', ),),
13762          BASE            =SIMP(statut='o',typ=mode_meca ),
13763          BASE_ELAS_FLUI  =SIMP(statut='o',typ=melasflu ),
13764          NUME_VITE_FLUI  =SIMP(statut='o',typ='I' ),
13765          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
13766          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
13767          AMOR_UNIF       =SIMP(statut='f',typ='R' ),
13768          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
13769          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13770 )  ;
13771 #& MODIF COMMANDE  DATE 04/10/2004   AUTEUR MCOURTOI M.COURTOIS
13772 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13773 # ======================================================================
13774 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13775 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
13776 #              REDISTRIBUTION OF THIS FILE.
13777 # ======================================================================
13778 # RESPONSABLE G8BHHXD X.DESROCHES
13779 MODI_MAILLAGE=OPER(nom="MODI_MAILLAGE",op= 154,sd_prod=maillage,
13780                    fr="Modification de la connectivité de groupes de mailles 2D ou 3D affectées à la modélisation de contact",
13781                    docu="U4.23.04-d",reentrant='o',
13782             UIinfo={"groupes":("Maillage",)},
13783       regles=(AU_MOINS_UN('ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
13784                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',
13785                        'TRANSLATION','ROTATION','MODI_BASE','ECHELLE',),
13786               PRESENT_ABSENT('ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
13787                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
13788               PRESENT_ABSENT('DEFORME','ORIE_CONTACT','EQUE_PIQUA','ORIE_PEAU_2D',
13789                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
13790               PRESENT_ABSENT('EQUE_PIQUA','ORIE_CONTACT','DEFORME','ORIE_PEAU_2D',
13791                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
13792               PRESENT_ABSENT('ORIE_PEAU_2D','ORIE_CONTACT','DEFORME','EQUE_PIQUA',
13793                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
13794               PRESENT_ABSENT('ORIE_PEAU_3D','ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
13795                        'ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
13796               PRESENT_ABSENT('ORIE_NORM_COQUE','ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
13797                        'ORIE_PEAU_3D','PLAQ_TUBE','MODI_MAILLE',),
13798               PRESENT_ABSENT('PLAQ_TUBE','ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
13799                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','MODI_MAILLE',),
13800               PRESENT_ABSENT('MODI_MAILLE','ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
13801                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE',),
13802               EXCLUS('EQUE_PIQUA','PLAQ_TUBE'),
13803               EXCLUS('EQUE_PIQUA','TUBE_COUDE'),
13804               EXCLUS('ROTATION','MODI_BASE'),),
13805          MAILLAGE        =SIMP(statut='o',typ=maillage ),
13806
13807          ORIE_CONTACT    =FACT(statut='f',min=1,max=1,
13808            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
13809          ),
13810
13811          DEFORME         =FACT(statut='f',min=1,max=1,
13812            OPTION          =SIMP(statut='o',typ='TXM',into=("TRAN","TRAN_APPUI") ),
13813            DEPL            =SIMP(statut='o',typ=cham_no_depl_r ),
13814         b_deform        =BLOC(condition = "OPTION=='TRAN_APPUI'",
13815            GROUP_NO_APPUI = SIMP(statut='o',typ=grno,max='**' ),
13816            GROUP_NO_STRU = SIMP(statut='o',typ=grno,max='**' ),),
13817          ),
13818
13819          EQUE_PIQUA      =FACT(statut='f',min=1,max=1,
13820            GROUP_NO        =SIMP(statut='o',typ=grno),
13821            E_BASE          =SIMP(statut='o',typ='R' ),
13822            DEXT_BASE       =SIMP(statut='o',typ='R' ),
13823            L_BASE          =SIMP(statut='o',typ='R' ),
13824            L_CHANF         =SIMP(statut='o',typ='R' ),
13825            TYPE            =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2")),
13826            H_SOUD          =SIMP(statut='o',typ='R' ),
13827            ANGL_SOUD       =SIMP(statut='o',typ='R' ),
13828            JEU_SOUD        =SIMP(statut='o',typ='R' ),
13829            E_CORP          =SIMP(statut='o',typ='R' ),
13830            DEXT_CORP       =SIMP(statut='o',typ='R' ),
13831            AZIMUT          =SIMP(statut='o',typ='R' ),
13832            RAFF_MAIL       =SIMP(statut='o',typ='TXM' ),
13833            X_MAX           =SIMP(statut='o',typ='R' ),
13834          ),
13835          ORIE_PEAU_2D    =FACT(statut='f',min=1,max='**',
13836            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
13837          ),
13838          ORIE_PEAU_3D    =FACT(statut='f',min=1,max='**',
13839            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
13840          ),
13841          ORIE_NORM_COQUE =FACT(statut='f',min=1,max='**',
13842            regles=(EXCLUS('NOEUD','GROUP_NO'),
13843                    PRESENT_PRESENT('NOEUD','VECT_NORM'),
13844                    PRESENT_PRESENT('GROUP_NO','VECT_NORM'),),
13845            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
13846            VECT_NORM       =SIMP(statut='f',typ='R',max=3),
13847            NOEUD           =SIMP(statut='f',typ=no),
13848            GROUP_NO        =SIMP(statut='f',typ=grno),
13849          ),
13850          b_modele        =BLOC(condition = "(ORIE_PEAU_2D != None) or (ORIE_PEAU_3D != None) or(ORIE_NORM_COQUE != None)",
13851            MODELE          =SIMP(statut='o',typ=modele ),
13852          ),
13853          PLAQ_TUBE       =FACT(statut='f',min=1,max=1,
13854            DEXT            =SIMP(statut='o',typ='R' ),
13855            EPAIS           =SIMP(statut='o',typ='R' ),
13856            L_TUBE_P1       =SIMP(statut='o',typ='R' ),
13857            AZIMUT          =SIMP(statut='f',typ='R',defaut= 90. ),
13858            COUTURE         =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",)  ),
13859          ),
13860          TUBE_COUDE      =FACT(statut='f',min=1,max=1,
13861            ANGLE           =SIMP(statut='o',typ='R' ),
13862            R_CINTR         =SIMP(statut='o',typ='R' ),
13863            L_TUBE_P1       =SIMP(statut='o',typ='R' ),
13864          ),
13865          MODI_MAILLE     =FACT(statut='f',min=1,max=1,
13866            regles=(AU_MOINS_UN('GROUP_MA_FOND','MAILLE_FOND','GROUP_NO_FOND','NOEUD_FOND'),),
13867            OPTION          =SIMP(statut='o',typ='TXM',into=("NOEUD_QUART",) ),
13868            GROUP_MA_FOND   =SIMP(statut='f',typ=grma,max=1),
13869            MAILLE_FOND     =SIMP(statut='f',typ=ma  ,max=1),
13870            GROUP_NO_FOND   =SIMP(statut='f',typ=grno,max=1),
13871            NOEUD_FOND      =SIMP(statut='f',typ=no  ,max=1),
13872          ),
13873          MODI_BASE       =FACT(statut='f',min=1,max=1,
13874            VECT_X          =SIMP(statut='o',typ='R',min=2,max=3),
13875            VECT_Y          =SIMP(statut='f',typ='R',min=2,max=3),
13876          ),
13877          ECHELLE         =SIMP(statut='f',typ='R',min=1,max=1),
13878          TRANSLATION     =SIMP(statut='f',typ='R',min=2,max=3),
13879          ROTATION        =FACT(statut='f',min=1,max='**',
13880            POIN_1           =SIMP(statut='o',typ='R',min=2,max=3),
13881            ANGL             =SIMP(statut='o',typ='R',defaut= 0.E+0 ),
13882            regles=(EXCLUS('DIR','POIN_2'),),
13883            POIN_2           =SIMP(statut='f',typ='R',min=2,max=3),
13884            DIR              =SIMP(statut='f',typ='R',min=2,max=3),
13885          ),
13886
13887          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13888 )  ;
13889 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
13890 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13891 # ======================================================================
13892 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13893 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13894 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13895 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13896 # (AT YOUR OPTION) ANY LATER VERSION.
13897 #
13898 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13899 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13900 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13901 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13902 #
13903 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13904 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13905 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13906 # ======================================================================
13907 MODI_OBSTACLE=OPER(nom="MODI_OBSTACLE",op=182,sd_prod=obstacle,
13908                    fr=" ",docu="U4.44.22-b",reentrant='f',
13909             UIinfo={"groupes":("Modélisation",)},
13910       regles=(PRESENT_ABSENT('R_MOBILE','CRAYON'),
13911               PRESENT_PRESENT('V_USUR_TUBE','V_USUR_OBST'),),
13912          V_USUR_TUBE     =SIMP(statut='f',typ='R',max='**'),
13913          V_USUR_OBST     =SIMP(statut='f',typ='R',max='**'),
13914          TABL_USURE      =SIMP(statut='f',typ=tabl_post_usur),
13915          INST            =SIMP(statut='f',typ='R'),
13916          OBSTACLE        =SIMP(statut='f',typ=obstacle),
13917          GUIDE           =SIMP(statut='o',typ=obstacle),
13918          CRAYON          =SIMP(statut='f',typ=obstacle),
13919          R_MOBILE        =SIMP(statut='f',typ='R'),
13920          PERCEMENT       =SIMP(statut='f',typ='R',defaut=1),
13921          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13922 )  ;
13923 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
13924 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13925 # ======================================================================
13926 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13927 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13928 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13929 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13930 # (AT YOUR OPTION) ANY LATER VERSION.
13931 #
13932 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13933 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13934 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13935 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13936 #
13937 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13938 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13939 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13940 # ======================================================================
13941 # RESPONSABLE JMBHH01 J.M.PROIX
13942 def modi_repere_prod(RESULTAT,**args):
13943   if AsType(RESULTAT) == evol_elas :    return evol_elas
13944   if AsType(RESULTAT) == evol_noli :    return evol_noli
13945   if AsType(RESULTAT) == evol_ther :    return evol_ther
13946   if AsType(RESULTAT) == dyna_trans :   return dyna_trans
13947   if AsType(RESULTAT) == dyna_harmo :   return dyna_harmo
13948   if AsType(RESULTAT) == mode_meca :    return mode_meca
13949   if AsType(RESULTAT) == mode_flamb :   return mode_flamb
13950   if AsType(RESULTAT) == mult_elas :    return mult_elas
13951   if AsType(RESULTAT) == base_modale  : return base_modale
13952   raise AsException("type de concept resultat non prevu")
13953
13954 MODI_REPERE=OPER(nom="MODI_REPERE",op=191,sd_prod=modi_repere_prod,docu="U4.74.01-a",reentrant='n',
13955             UIinfo={"groupes":("Résultats et champs",)},
13956                     fr="Impression des resultats dans un repere cylindrique",
13957          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,mode_meca,
13958                                                evol_noli,mult_elas,
13959                                                evol_ther,base_modale,mode_flamb) ),
13960          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
13961                         'NOEUD_CMP','LIST_INST','LIST_FREQ','NOM_CAS'),),
13962          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13963          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
13964          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
13965          NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
13966          NOM_CAS         =SIMP(statut='f',typ='TXM' ),
13967
13968          INST            =SIMP(statut='f',typ='R',max='**'),
13969          FREQ            =SIMP(statut='f',typ='R',max='**'),
13970          LIST_INST       =SIMP(statut='f',typ=listr8),
13971          LIST_FREQ       =SIMP(statut='f',typ=listr8),
13972
13973          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
13974          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",),),
13975
13976          MODI_CHAM       =FACT(statut='o',min=1,max='**',
13977            TYPE_CHAM       =SIMP(statut='o',typ='TXM', max=1,
13978                                  into=("VECT_2D","VECT_3D","TORS_3D","TENS_2D","TENS_3D"),),
13979            NOM_CHAM        =SIMP(statut='o',typ='TXM',max=1 ),
13980            b_vect_2d       =BLOC(condition = "TYPE_CHAM=='VECT_2D'",
13981               NOM_CMP         =SIMP(statut='o',typ='TXM',min=2,max=2 ),),
13982            b_vect_3d       =BLOC(condition = "TYPE_CHAM=='VECT_3D'",
13983               NOM_CMP         =SIMP(statut='o',typ='TXM',min=3,max=3 ),),
13984            b_tors_3d       =BLOC(condition = "TYPE_CHAM=='TORS_3D'",
13985               NOM_CMP         =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
13986            b_tens_2d       =BLOC(condition = "TYPE_CHAM=='TENS_2D'",
13987               NOM_CMP         =SIMP(statut='o',typ='TXM',min=4,max=4 ),),
13988            b_tens_3d       =BLOC(condition = "TYPE_CHAM=='TENS_3D'",
13989               NOM_CMP         =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
13990          ),
13991          DEFI_REPERE     =FACT(statut='o',min=1,max=1,
13992          regles=(UN_PARMI('ANGL_NAUT','ORIGINE'),),
13993            REPERE          =SIMP(statut='f',typ='TXM',defaut="UTILISATEUR",
13994                                  into=("UTILISATEUR","CYLINDRIQUE"),),
13995            ANGL_NAUT       =SIMP(statut='f',typ='R',min=1,max=3),
13996            ORIGINE         =SIMP(statut='f',typ='R',min=2,max=3),
13997            AXE_Z           =SIMP(statut='f',typ='R',min=3,max=3),
13998          ),
13999          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14000 )  ;
14001 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
14002 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14003 # ======================================================================
14004 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14005 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14006 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14007 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14008 # (AT YOUR OPTION) ANY LATER VERSION.
14009 #
14010 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14011 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14012 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14013 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14014 #
14015 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14016 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14017 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14018 # ======================================================================
14019 def norm_mode_prod(MODE,**args ):
14020   if AsType(MODE) == mode_meca   : return mode_meca
14021   if AsType(MODE) == mode_meca_c : return mode_meca_c
14022   if AsType(MODE) == mode_flamb  : return mode_flamb
14023   raise AsException("type de concept resultat non prevu")
14024
14025 NORM_MODE=OPER(nom="NORM_MODE",op=  37,sd_prod=norm_mode_prod,
14026                fr="Normalisation de modes propres",
14027                docu="U4.52.11-f",reentrant='f',
14028             UIinfo={"groupes":("Résolution",)},
14029          regles=(UN_PARMI('NORME','NOEUD','AVEC_CMP','SANS_CMP'),),
14030          MODE       =SIMP(statut='o',typ=(mode_meca,mode_flamb) ),
14031          NORME      =SIMP(statut='f',typ='TXM',fr="Norme prédéfinie : masse généralisée, euclidienne,...",
14032                           into=("MASS_GENE","RIGI_GENE","EUCL","EUCL_TRAN","TRAN","TRAN_ROTA") ),
14033          NOEUD      =SIMP(statut='f',typ=no, fr="Composante donnée d un noeud spécifié égale à 1"),
14034          b_noeud    =BLOC(condition = "NOEUD != None",
14035            NOM_CMP    =SIMP(statut='o',typ='TXM' ),
14036          ),
14037          AVEC_CMP   =SIMP(statut='f',typ='TXM',max='**'),
14038          SANS_CMP   =SIMP(statut='f',typ='TXM',max='**'),
14039          MASS_INER  =SIMP(statut='f',typ=tabl_mass_iner ),
14040          MODE_SIGNE =FACT(statut='f',max=1,fr="Imposer un signe sur une des composantes des modes",
14041            NOEUD      =SIMP(statut='o',typ=no,fr="Noeud ou sera imposé le signe"),
14042            NOM_CMP    =SIMP(statut='o',typ='TXM',fr="Composante du noeud ou sera imposé le signe" ),
14043            SIGNE      =SIMP(statut='f',typ='TXM',defaut="POSITIF",into=("NEGATIF","POSITIF"),
14044                             fr="Choix du signe" ),
14045          ),
14046          TITRE      =SIMP(statut='f',typ='TXM',max='**'),
14047          INFO       =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
14048 )  ;
14049 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
14050 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14051 # ======================================================================
14052 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14053 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14054 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14055 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14056 # (AT YOUR OPTION) ANY LATER VERSION.
14057 #
14058 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14059 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14060 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14061 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14062 #
14063 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14064 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14065 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14066 # ======================================================================
14067 # RESPONSABLE VABHHTS J.PELLET
14068 NUME_DDL=OPER(nom="NUME_DDL",op=11,sd_prod=nume_ddl,docu="U4.61.11-g",reentrant='n',
14069             UIinfo={"groupes":("Matrices/vecteurs",)},
14070               fr="Etablissement de la numérotation des ddl avec ou sans renumérotation et du stockage de la matrice",
14071                   regles=(UN_PARMI('MATR_RIGI','MODELE'),),
14072          MATR_RIGI       =SIMP(statut='f',typ=(matr_elem_depl_r ,matr_elem_depl_c,
14073                                                matr_elem_temp_r,matr_elem_pres_c),max=100 ),
14074          MODELE          =SIMP(statut='f',typ=modele ),
14075          b_modele        =BLOC(condition = "MODELE != None",
14076            CHARGE     =SIMP(statut='f',max='**',typ=(char_meca,char_ther,char_acou, ),),
14077          ),
14078          METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
14079          b_mult_front    =BLOC(condition="METHODE=='MULT_FRONT'",fr="paramètres associés à la méthode multifrontale",
14080            RENUM           =SIMP(statut='f',typ='TXM',into=("MD","MDA","METIS"),defaut="METIS" ),
14081          ),
14082          b_ldlt          =BLOC(condition="METHODE=='LDLT'",fr="paramètres associés à la méthode LDLT",
14083            RENUM           =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK"  ),
14084          ),
14085          b_gcpc          =BLOC(condition="METHODE=='GCPC'",fr="paramètres associés à la méthode gradient conjugué",
14086            RENUM           =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK"  ),
14087          ),
14088          INFO            =SIMP(statut='f',typ='I',into=(1,2)),
14089 )  ;
14090 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
14091 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14092 # ======================================================================
14093 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14094 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14095 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14096 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14097 # (AT YOUR OPTION) ANY LATER VERSION.
14098 #
14099 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14100 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14101 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14102 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14103 #
14104 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14105 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14106 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14107 # ======================================================================
14108 NUME_DDL_GENE=OPER(nom="NUME_DDL_GENE",op= 127,sd_prod=nume_ddl_gene,
14109                    fr="Etablissement de la numérotation des ddl d un modèle établi en coordonnées généralisées",
14110                     docu="U4.65.03-e",reentrant='n',
14111             UIinfo={"groupes":("Matrices/vecteurs",)},
14112          regles=UN_PARMI('MODELE_GENE','BASE'),
14113          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
14114              b_modele_gene     =BLOC(condition = "MODELE_GENE != None",
14115                STOCKAGE     =SIMP(statut='f',typ='TXM',defaut="LIGN_CIEL",into=("LIGN_CIEL","PLEIN") ),
14116                                     ),
14117          BASE     =SIMP(statut='f',typ=(mode_meca,base_modale,mode_gene ) ),
14118              b_base     =BLOC(condition = "BASE != None",
14119                STOCKAGE     =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("DIAG","PLEIN") ),
14120                NB_VECT     =SIMP(statut='f',typ='I',defaut= 9999 ),
14121                              ),
14122 )  ;
14123 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
14124 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14125 # ======================================================================
14126 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14127 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14128 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14129 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14130 # (AT YOUR OPTION) ANY LATER VERSION.
14131 #
14132 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14133 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14134 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14135 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14136 #
14137 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14138 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14139 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14140 # ======================================================================
14141 POST_DYNA_ALEA=OPER(nom="POST_DYNA_ALEA",op= 132,sd_prod=tabl_post_alea,
14142                     fr="Traitements statistiques de résultats de type interspectre et impression sur fichiers",
14143                     docu="U4.84.04-e",reentrant='n',
14144             UIinfo={"groupes":("Post traitements",)},
14145          regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I','OPTION'),),
14146          INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
14147          NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
14148          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14149          NUME_ORDRE_I    =SIMP(statut='f',typ='I',max='**' ),
14150          NOEUD_I         =SIMP(statut='f',typ=no,max='**'),
14151          OPTION          =SIMP(statut='f',typ='TXM',into=("DIAG",) ),
14152          b_nume_ordre_i =BLOC(condition = "NUME_ORDRE_I != None",
14153            NUME_ORDRE_J    =SIMP(statut='o',typ='I',max='**' ),
14154          ),
14155          b_noeud_i      =BLOC(condition = "NOEUD_I != None",
14156            NOEUD_J         =SIMP(statut='o',typ=no,max='**'),
14157            NOM_CMP_I       =SIMP(statut='o',typ='TXM',max='**' ),
14158            NOM_CMP_J       =SIMP(statut='o',typ='TXM',max='**' ),
14159          ),
14160          DEPASSEMENT     =FACT(statut='f',min=1,max='**',
14161            fr="Loi de dépassement d un seuil pendant une durée donnée",
14162            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
14163            VALE_MIN        =SIMP(statut='f',typ='R' ),
14164            VALE_MAX        =SIMP(statut='f',typ='R' ),
14165            PAS             =SIMP(statut='f',typ='R' ),
14166            DUREE           =SIMP(statut='f',typ='R',defaut= 1. ),
14167          ),
14168          RAYLEIGH        =FACT(statut='f',min=1,max='**',
14169            fr="Densité de probabilité de pic positif, loi adaptée à des signaux à bande étroite",
14170            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
14171            VALE_MIN        =SIMP(statut='f',typ='R' ),
14172            VALE_MAX        =SIMP(statut='f',typ='R' ),
14173            PAS             =SIMP(statut='f',typ='R' ),
14174          ),
14175          GAUSS           =FACT(statut='f',min=1,max='**',
14176            fr="Densité de probabilité de pic positif, loi normale adaptée à des signaux large bande",
14177            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
14178            VALE_MIN        =SIMP(statut='f',typ='R' ),
14179            VALE_MAX        =SIMP(statut='f',typ='R' ),
14180            PAS             =SIMP(statut='f',typ='R' ),
14181          ),
14182          VANMARCKE       =FACT(statut='f',min=1,max='**',
14183            fr="Probabilité de non dépassement de seuil pendant une durée donnée (analyse sismique)",
14184            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
14185            VALE_MIN        =SIMP(statut='f',typ='R' ),
14186            VALE_MAX        =SIMP(statut='f',typ='R' ),
14187            PAS             =SIMP(statut='f',typ='R' ),
14188            DUREE           =SIMP(statut='f',typ='R',defaut= 10. ),
14189          ),
14190          MOMENT          =SIMP(statut='f',typ='I',max='**',fr="Moments spectraux en complément des cinq premiers" ),
14191          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
14192          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
14193 )  ;
14194 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
14195 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14196 # ======================================================================
14197 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14198 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14199 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14200 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14201 # (AT YOUR OPTION) ANY LATER VERSION.
14202 #
14203 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14204 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14205 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14206 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14207 #
14208 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14209 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14210 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14211 # ======================================================================
14212 POST_DYNA_MODA_T=OPER(nom="POST_DYNA_MODA_T",op= 130,sd_prod=tabl_post_dyna,
14213                       fr="Post-traitements en coordonnées généralisées issus de DYNA_TRAN_MODAL",
14214                       docu="U4.84.02-e",reentrant='n',
14215             UIinfo={"groupes":("Post traitements",)},
14216         regles=(UN_PARMI('CHOC','RELA_EFFO_DEPL', ),),
14217          RESU_GENE       =SIMP(statut='o',typ=tran_gene ),
14218          CHOC            =FACT(statut='f',min=1,max='**',
14219                                fr="Analyse des non linéarités de choc",
14220            INST_INIT       =SIMP(statut='f',typ='R',defaut= -1. ),
14221            INST_FIN        =SIMP(statut='f',typ='R',defaut= 999. ),
14222            NB_BLOC         =SIMP(statut='f',typ='I',defaut= 1 ),
14223            SEUIL_FORCE     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
14224            DUREE_REPOS     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
14225            OPTION          =SIMP(statut='f',typ='TXM',defaut="USURE",into=("IMPACT","USURE") ),
14226            NB_CLASSE       =SIMP(statut='f',typ='I',defaut= 10 ),
14227          ),
14228          RELA_EFFO_DEPL  =FACT(statut='f',min=1,max=1,
14229                                fr="Analyse des relationsnon linéaires effort-déplacement",
14230            NOEUD           =SIMP(statut='o',typ=no),
14231            NOM_CMP         =SIMP(statut='o',typ='TXM' ),
14232          ),
14233          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
14234          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
14235 )  ;
14236 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
14237 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14238 # ======================================================================
14239 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14240 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14241 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14242 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14243 # (AT YOUR OPTION) ANY LATER VERSION.
14244 #
14245 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14246 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14247 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14248 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14249 #
14250 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14251 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14252 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14253 # ======================================================================
14254 # RESPONSABLE G8BHHXD X.DESROCHES
14255 def post_elem_prod( MASS_INER,ENER_POT,ENER_CIN,TRAV_EXT,WEIBULL,
14256                     CARA_GEOM,CARA_POUTRE,RICE_TRACEY,CHAR_LIMITE,
14257                     INDIC_ENER,INDIC_SEUIL,ENER_ELAS,ENER_TOTALE,
14258                     AIRE_INTERNE,**args ):
14259   if MASS_INER    != None  : return tabl_mass_iner
14260   if ENER_POT     != None  : return tabl_ener_pot
14261   if ENER_CIN     != None  : return tabl_ener_cin
14262   if TRAV_EXT     != None  : return tabl_trav_ext
14263   if WEIBULL      != None  : return tabl_weibull
14264   if CARA_GEOM    != None  : return tabl_cara_geom
14265   if CARA_POUTRE  != None  : return tabl_cara_geom
14266   if RICE_TRACEY  != None  : return tabl_rice_tracey
14267   if CHAR_LIMITE  != None  : return tabl_char_limite
14268   if INDIC_ENER   != None  : return tabl_indic_ener
14269   if INDIC_SEUIL  != None  : return tabl_indic_seuil
14270   if ENER_ELAS    != None  : return tabl_ener_elas
14271   if ENER_TOTALE  != None  : return tabl_ener_totale
14272   if AIRE_INTERNE != None  : return tabl_aire_int
14273   raise AsException("type de concept resultat non prevu")
14274
14275 POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=post_elem_prod,docu="U4.81.22-e",reentrant='f',
14276             UIinfo={"groupes":("Post traitements",)},
14277                fr="Calcul de quantités globales (masse, inerties, énergie, ...) sur tout ou partie du modèle",
14278
14279          regles=(UN_PARMI('MASS_INER', 'ENER_POT', 'ENER_CIN','TRAV_EXT',
14280                           'WEIBULL', 'RICE_TRACEY', 'CARA_GEOM','CHAR_LIMITE',
14281                           'CARA_POUTRE', 'INDIC_ENER', 'INDIC_SEUIL',
14282                           'AIRE_INTERNE','ENER_ELAS','ENER_TOTALE'),
14283                 ),
14284
14285          MASS_INER      = FACT(statut='f',min=1,max='**',
14286                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14287                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14288                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14289                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14290                                ORIG_INER    = SIMP(statut='f',typ='R',min=3,max=3 ),
14291                               ),
14292          b_mass_iner = BLOC(condition = "( MASS_INER != None )",
14293                        fr="calcul de la masse, les inerties et le centre de gravité",
14294                        regles=(EXCLUS('CHAM_GD','RESULTAT'),
14295                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
14296                                       'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
14297                        MODELE         = SIMP(statut='o',typ=modele),
14298                        CHAM_MATER     = SIMP(statut='f',typ=cham_mater),
14299                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14300                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14301                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
14302                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14303                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14304                        GEOMETRIE      = SIMP(statut='f',typ='TXM',defaut="INITIALE",into=("INITIALE","DEFORMEE")),
14305                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14306                        RESULTAT       = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_noli,mult_elas,
14307                                                              fourier_elas,dyna_trans) ),
14308                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14309                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14310                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14311                        NUME_ORDRE     = SIMP(statut='f',typ='I',max=1),
14312                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14313                        INST           = SIMP(statut='f',typ='R',max=1),
14314                        LIST_INST      = SIMP(statut='f',typ=listr8),
14315                        FREQ           = SIMP(statut='f',typ='R',max=1),
14316                        LIST_FREQ      = SIMP(statut='f',typ=listr8),
14317                        NUME_MODE      = SIMP(statut='f',typ='I',max=1),
14318                        NOEUD_CMP      = SIMP(statut='f',typ='TXM',min=2,max=2),
14319                        NOM_CAS        = SIMP(statut='f',typ='TXM',max=1),
14320          ),
14321
14322          ENER_POT       = FACT(statut='f',min=1,max='**',
14323                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14324                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14325                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14326                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14327                               ),
14328          b_ener_pot = BLOC(condition = "( ENER_POT  != None )",
14329                        fr="calcul de l'énergie potentielle de déformation",
14330                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
14331                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
14332                                       'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
14333                        MODELE         = SIMP(statut='o',typ=modele),
14334                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14335                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14336                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14337                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
14338                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14339                        ANGLE          = SIMP(statut='f',typ='I',defaut=0),
14340                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14341                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14342                        RESULTAT       = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,dyna_trans) ),
14343                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14344                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14345                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14346                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14347                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14348                        INST           = SIMP(statut='f',typ='R',max='**'),
14349                        LIST_INST      = SIMP(statut='f',typ=listr8),
14350                        FREQ           = SIMP(statut='f',typ='R',max='**'),
14351                        LIST_FREQ      = SIMP(statut='f',typ=listr8),
14352                        NUME_MODE      = SIMP(statut='f',typ='I',max='**'),
14353                        NOEUD_CMP      = SIMP(statut='f',typ='TXM',max='**'),
14354                        NOM_CAS        = SIMP(statut='f',typ='TXM',max='**'),
14355          ),
14356
14357          ENER_CIN       = FACT(statut='f',min=1,max='**',
14358                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14359                                OPTION       = SIMP(statut='f',typ='TXM',
14360                                                    into=("MASS_MECA","MASS_MECA_DIAG"),
14361                                                    defaut="MASS_MECA" ),
14362                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14363                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14364                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14365                               ),
14366          b_ener_cin = BLOC(condition = "( ENER_CIN != None )",
14367                        fr="calcul de l'énergie cinétique",
14368                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
14369                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
14370                                       'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
14371                        MODELE         = SIMP(statut='o',typ=modele),
14372                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14373                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14374                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14375                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
14376                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14377                        ANGLE          = SIMP(statut='f',typ='I',defaut=0),
14378                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14379                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14380                        RESULTAT       = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,dyna_trans) ),
14381                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14382                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14383                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14384                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14385                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14386                        INST           = SIMP(statut='f',typ='R',max='**'),
14387                        LIST_INST      = SIMP(statut='f',typ=listr8),
14388                        FREQ           = SIMP(statut='f',typ='R',max='**'),
14389                        LIST_FREQ      = SIMP(statut='f',typ=listr8),
14390                        NUME_MODE      = SIMP(statut='f',typ='I',max='**'),
14391                        NOEUD_CMP      = SIMP(statut='f',typ='TXM',max='**'),
14392                        NOM_CAS        = SIMP(statut='f',typ='TXM',max='**'),
14393          ),
14394
14395          ENER_ELAS      = FACT(statut='f',min=1,max='**',
14396                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14397                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14398                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14399                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14400                               ),
14401          b_ener_elas = BLOC(condition = "( ENER_ELAS != None )",
14402                        fr="calcul de l'énergie de déformation élastique",
14403                        MODELE         = SIMP(statut='o',typ=modele),
14404                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14405                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14406                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14407                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
14408                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14409                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14410                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
14411                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14412                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14413                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14414                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14415                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14416                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14417                        INST           = SIMP(statut='f',typ='R',max='**'),
14418                        LIST_INST      = SIMP(statut='f',typ=listr8),
14419          ),
14420
14421          ENER_TOTALE    = FACT(statut='f',min=1,max='**',
14422                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14423                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14424                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14425                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14426                               ),
14427          b_ener_totale = BLOC(condition = "( ENER_TOTALE != None )",
14428                        fr="calcul de l'énergie de déformation totale",
14429                        MODELE         = SIMP(statut='o',typ=modele),
14430                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14431                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14432                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14433                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
14434                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14435                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14436                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
14437                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14438                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14439                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14440                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14441                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14442                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14443                        INST           = SIMP(statut='f',typ='R',max='**'),
14444                        LIST_INST      = SIMP(statut='f',typ=listr8),
14445          ),
14446
14447          WEIBULL        = FACT(statut='f',min=1,max='**',
14448                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14449                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14450                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14451                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14452                                OPTION       = SIMP(statut='f',typ='TXM',
14453                                                    into=("SIGM_ELGA","SIGM_ELMOY"),
14454                                                    defaut="SIGM_ELGA"),
14455                                CORR_PLAST   = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
14456                                COEF_MULT    = SIMP(statut='f',typ='R',defaut=1.),
14457                               ),
14458          b_weibull = BLOC(condition = "( WEIBULL != None )",
14459                        fr="calcul du champ élémentaire de la puissance m-ième de la contrainte de Weibull",
14460                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
14461                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14462                        MODELE         = SIMP(statut='o',typ=modele),
14463                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14464                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14465                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14466                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
14467                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14468                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14469                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14470                        RESULTAT       = SIMP(statut='f',typ=(evol_noli) ),
14471                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14472                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14473                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14474                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14475                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14476                        INST           = SIMP(statut='f',typ='R',max='**'),
14477                        LIST_INST      = SIMP(statut='f',typ=listr8),
14478          ),
14479
14480          RICE_TRACEY    = FACT(statut='f',min=1,max='**',
14481                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14482                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14483                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14484                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14485                                OPTION       = SIMP(statut='f',typ='TXM',
14486                                                    into=("SIGM_ELGA","SIGM_ELMOY"),
14487                                                    defaut="SIGM_ELGA"),
14488                                LOCAL        = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
14489                               ),
14490          b_rice_tracey = BLOC(condition = "( RICE_TRACEY != None )",
14491                        fr="calcul du taux de croissance d'une cavité sphérique par rapport à un domaine",
14492                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
14493                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14494                        MODELE         = SIMP(statut='o',typ=modele),
14495                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14496                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14497                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14498                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
14499                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14500                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14501                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14502                        RESULTAT       = SIMP(statut='f',typ=(evol_noli) ),
14503                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14504                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14505                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14506                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14507                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14508                        INST           = SIMP(statut='f',typ='R',max='**'),
14509                        LIST_INST      = SIMP(statut='f',typ=listr8),
14510          ),
14511
14512          INDIC_ENER     = FACT(statut='f',min=1,max='**',
14513                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14514                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14515                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14516                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14517                               ),
14518          b_indic_ener = BLOC(condition = "( INDIC_ENER != None )",
14519                        fr="calcul un indicateur global de perte de proportionnalité du chargement",
14520                        MODELE         = SIMP(statut='o',typ=modele),
14521                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14522                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14523                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14524                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
14525                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14526                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14527                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14528                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14529                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14530                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14531                        INST           = SIMP(statut='f',typ='R',max='**'),
14532                        LIST_INST      = SIMP(statut='f',typ=listr8),
14533          ),
14534
14535          INDIC_SEUIL    = FACT(statut='f',min=1,max='**',
14536                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14537                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14538                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14539                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14540                               ),
14541          b_indic_seuil = BLOC(condition = "( INDIC_SEUIL != None )",
14542                        fr="calcul un indicateur global de perte de proportionnalité du chargement",
14543                        MODELE         = SIMP(statut='o',typ=modele),
14544                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14545                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14546                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14547                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
14548                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14549                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14550                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14551                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14552                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14553                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14554                        INST           = SIMP(statut='f',typ='R',max='**'),
14555                        LIST_INST      = SIMP(statut='f',typ=listr8),
14556          ),
14557
14558          CHAR_LIMITE    = FACT(statut='f',min=0,max=1,
14559                                CHAR_CSTE = SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON")
14560                               ),
14561          b_char_limite = BLOC(condition = "( CHAR_LIMITE != None )",
14562                        fr="post-traitement du calcul de la charge limite",
14563                        MODELE         = SIMP(statut='o',typ=modele),
14564                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14565                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14566                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14567                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14568                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
14569                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14570                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14571                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14572                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14573                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14574                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14575                        INST           = SIMP(statut='f',typ='R',max='**'),
14576                        LIST_INST      = SIMP(statut='f',typ=listr8),
14577          ),
14578
14579          CARA_GEOM      = FACT(statut='f',min=1,max='**',
14580                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14581                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14582                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14583                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14584                                SYME_X       = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
14585                                SYME_Y       = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
14586                                ORIG_INER    = SIMP(statut='f',typ='R',min=2,max=2),
14587                               ),
14588          b_cara_geom = BLOC(condition = "( CARA_GEOM != None )",
14589                        fr="calcul des caractéristiques géométriques d'un section de poutre",
14590                        MODELE         = SIMP(statut='o',typ=modele),
14591                        CHAM_MATER     = SIMP(statut='f',typ=cham_mater),
14592                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14593                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14594          ),
14595
14596          CARA_POUTRE    = FACT(statut='f',min=1,max='**',
14597                                regles=(AU_MOINS_UN('TOUT','GROUP_MA'),
14598                                        ENSEMBLE('LONGUEUR','LIAISON','MATERIAU'),),
14599                                TOUT          = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14600                                GROUP_MA      = SIMP(statut='f',typ=grma,max='**'),
14601                                GROUP_MA_INTE = SIMP(statut='f',typ=grma,max='**'),
14602                                CARA_GEOM     = SIMP(statut='f',typ=tabl_cara_geom),
14603                                LAPL_PHI      = SIMP(statut='f',typ=evol_ther),
14604                                LAPL_PHI_Y    = SIMP(statut='f',typ=evol_ther),
14605                                LAPL_PHI_Z    = SIMP(statut='f',typ=evol_ther),
14606                                LIAISON       = SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT")),
14607                                LONGUEUR      = SIMP(statut='f',typ='R'),
14608                                MATERIAU      = SIMP(statut='f',typ=mater),
14609                                OPTION        = SIMP(statut='f',typ='TXM',
14610                                                     into=("CARA_TORSION","CARA_CISAILLEMENT","CARA_GAUCHI") ),
14611                              ),
14612          b_cara_poutre = BLOC(condition = "( CARA_POUTRE != None )",
14613                        fr="calcul des caractéristiques mécaniques d'un section de poutre",
14614                        MODELE         = SIMP(statut='o',typ=modele),
14615                        CHAM_MATER     = SIMP(statut='f',typ=cham_mater),
14616                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14617                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14618          ),
14619
14620           AIRE_INTERNE   = FACT(statut='f',min=1,max='**',
14621                                 GROUP_MA_BORD  = SIMP(statut='o',typ=grma,max='**'),
14622                                ),
14623          b_aire_interne = BLOC(condition = "( AIRE_INTERNE != None )",
14624                        fr="calcul de l'aire d'un trou dans un maillage 2D",
14625                        MODELE         = SIMP(statut='o',typ=modele),
14626          ),
14627
14628          TRAV_EXT       = FACT(statut='f',min=1,max=1),
14629          b_trav_ext = BLOC(condition = "( TRAV_EXT != None )",
14630                        fr="calcul du travail des efforts extérieurs",
14631                        RESULTAT       = SIMP(statut='o',typ=(evol_elas,evol_noli,dyna_trans) ),
14632                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14633                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14634                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14635          ),
14636
14637          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
14638          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14639
14640  )  ;
14641 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
14642 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14643 # ======================================================================
14644 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14645 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14646 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14647 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14648 # (AT YOUR OPTION) ANY LATER VERSION.
14649 #
14650 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14651 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14652 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14653 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14654 #
14655 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14656 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14657 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14658 # ======================================================================
14659 POST_FATI_ALEA=OPER(nom="POST_FATI_ALEA",op=170,sd_prod=tabl_post_f_alea,docu="U4.84.03-d",reentrant='n',
14660             UIinfo={"groupes":("Post traitements",)},
14661                     fr="Calcul du dommage subi par une structure soumise à unesollicitation de type aléatoire",
14662          regles=(ENSEMBLE('MOMENT_SPEC_0','MOMENT_SPEC_2'),
14663                  PRESENT_PRESENT( 'MOMENT_SPEC_4','MOMENT_SPEC_0'),
14664                  UN_PARMI('TABL_POST_ALEA','MOMENT_SPEC_0'), ),
14665          MOMENT_SPEC_0   =SIMP(statut='f',typ='R'),
14666          MOMENT_SPEC_2   =SIMP(statut='f',typ='R'),
14667          MOMENT_SPEC_4   =SIMP(statut='f',typ='R'),
14668          TABL_POST_ALEA  =SIMP(statut='f',typ=tabl_post_alea),
14669          COMPTAGE        =SIMP(statut='o',typ='TXM',into=("PIC","NIVEAU")),
14670          DUREE           =SIMP(statut='f',typ='R',defaut= 1.),
14671          CORR_KE         =SIMP(statut='f',typ='TXM',into=("RCCM",)),
14672          DOMMAGE         =SIMP(statut='o',typ='TXM',into=("WOHLER",)),
14673          MATER           =SIMP(statut='o',typ=mater),
14674          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
14675 )  ;
14676 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
14677 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14678 # ======================================================================
14679 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14680 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14681 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14682 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14683 # (AT YOUR OPTION) ANY LATER VERSION.
14684 #
14685 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14686 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14687 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14688 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14689 #
14690 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14691 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14692 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14693 # ======================================================================
14694 POST_FATIGUE=OPER(nom="POST_FATIGUE",op=136,sd_prod=tabl_post_fatig,docu="U4.83.01-d",reentrant='n',
14695             UIinfo={"groupes":("Post traitements",)},
14696                   fr="Calcul du dommage subi par une structure soumise à une histoire de chargement",
14697
14698          CHARGEMENT = SIMP(statut='o',typ='TXM',into=("UNIAXIAL","PERIODIQUE","QUELCONQUE")),
14699
14700          b_uniaxial = BLOC( condition = "CHARGEMENT=='UNIAXIAL'",
14701                       regles=(PRESENT_PRESENT('CORR_KE','MATER'),
14702                               PRESENT_PRESENT('CORR_SIGM_MOYE','MATER'),
14703                               PRESENT_PRESENT('DOMMAGE','MATER'),),
14704              HISTOIRE       = FACT(statut='o',min=1,max=1,
14705                                  regles=(UN_PARMI('SIGM','EPSI'),),
14706                                  SIGM  = SIMP(statut='f',typ=fonction),
14707                                  EPSI  = SIMP(statut='f',typ=fonction),),
14708              COMPTAGE       = SIMP(statut='o',typ='TXM',into=("RAINFLOW","RCCM","NATUREL")),
14709              DELTA_OSCI     = SIMP(statut='f',typ='R',defaut= 0.0E+0),
14710              COEF_MULT      = FACT(statut='f',min=1,max=1,
14711                                  KT    = SIMP(statut='o',typ='R'),),
14712              CORR_KE        = SIMP(statut='f',typ='TXM',into=("RCCM",)),
14713              DOMMAGE        = SIMP(statut='f',typ='TXM',into=("WOHLER","MANSON_COFFIN",
14714                                                               "TAHERI_MANSON","TAHERI_MIXTE")),
14715              MATER          = SIMP(statut='f',typ=mater),
14716              CORR_SIGM_MOYE = SIMP(statut='f',typ='TXM',into=("GOODMAN","GERBER")),
14717              TAHERI_NAPPE   = SIMP(statut='f',typ=fonction),
14718              TAHERI_FONC    = SIMP(statut='f',typ=fonction),
14719              CUMUL          = SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
14720          ),
14721
14722          b_periodique = BLOC( condition = "CHARGEMENT=='PERIODIQUE'",
14723              HISTOIRE       = FACT(statut='o',min=1,max=1,
14724                                  SIGM_XX  = SIMP(statut='o',typ=fonction),
14725                                  SIGM_YY  = SIMP(statut='o',typ=fonction),
14726                                  SIGM_ZZ  = SIMP(statut='o',typ=fonction),
14727                                  SIGM_XY  = SIMP(statut='o',typ=fonction),
14728                                  SIGM_XZ  = SIMP(statut='f',typ=fonction),
14729                                  SIGM_YZ  = SIMP(statut='f',typ=fonction),),
14730              CRITERE        = SIMP(statut='o',typ='TXM',into=("CROSSLAND","PAPADOPOULOS")),
14731              DOMMAGE        = SIMP(statut='f',typ='TXM',into=("WOHLER",)),
14732              MATER          = SIMP(statut='o',typ=mater),
14733              COEF_CORR      = SIMP(statut='f',typ='R'),
14734          ),
14735
14736          b_quelconque = BLOC( condition = "CHARGEMENT=='QUELCONQUE'",
14737              HISTOIRE       = FACT(statut='o',min=1,max=1,
14738                                  SIGM_XX  = SIMP(statut='o',typ=fonction),
14739                                  SIGM_YY  = SIMP(statut='o',typ=fonction),
14740                                  SIGM_ZZ  = SIMP(statut='o',typ=fonction),
14741                                  SIGM_XY  = SIMP(statut='o',typ=fonction),
14742                                  SIGM_XZ  = SIMP(statut='f',typ=fonction),
14743                                  SIGM_YZ  = SIMP(statut='f',typ=fonction),
14744                                  EPSP     = SIMP(statut='o',typ=fonction),
14745                                  TEMP     = SIMP(statut='o',typ=fonction),),
14746              DOMMAGE        = SIMP(statut='f',typ='TXM',into=("LEMAITRE",),defaut="LEMAITRE"),
14747              MATER          = SIMP(statut='o',typ=mater),
14748              CUMUL          = SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
14749          ),
14750
14751          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14752          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
14753 )  ;
14754 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
14755 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14756 # ======================================================================
14757 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14758 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14759 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14760 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14761 # (AT YOUR OPTION) ANY LATER VERSION.
14762 #
14763 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14764 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14765 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14766 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14767 #
14768 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14769 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14770 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14771 # ======================================================================
14772 POST_GOUJ2E=OPER(nom="POST_GOUJ2E",op=187,sd_prod=tabl_post_gouj2e,reentrant='n',
14773                  fr=" ",docu="U4.gj.30-b",
14774             UIinfo={"groupes":("Outils métier",)},
14775          TABLE           =SIMP(statut='o',typ=tabl_post_rele),
14776 )  ;
14777 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
14778 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14779 # ======================================================================
14780 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14781 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14782 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14783 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14784 # (AT YOUR OPTION) ANY LATER VERSION.
14785 #
14786 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14787 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14788 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14789 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14790 #
14791 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14792 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14793 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14794 # ======================================================================
14795 # RESPONSABLE JMBHH01 J.M.PROIX
14796 POST_K1_K2_K3=OPER(nom="POST_K1_K2_K3",op=188,sd_prod=tabl_post_k,
14797                    fr="Calcul des FIC par extrapolation du champ de déplacements sur les lèvres de la fissure",
14798                    docu="U4.82.05-b",reentrant='n',
14799             UIinfo={"groupes":("Post traitements",)},
14800
14801            regles=(UN_PARMI('RESULTAT','TABL_DEPL_SUP'),
14802                    PRESENT_PRESENT('TABL_DEPL_SUP','TABL_DEPL_INF'),
14803                    PRESENT_PRESENT('RESULTAT','FOND_FISS'),),
14804
14805          MODELISATION  =SIMP(statut='o',typ='TXM',
14806                              into=("3D","AXIS","D_PLAN","C_PLAN"),
14807                              fr="Modélisation cohérente avec celle utilisée pour le calcul des déplacements"),
14808            FOND_FISS       =SIMP(statut='f',typ=fond_fiss),
14809          b_fond_fiss   =BLOC (condition="(FOND_FISS!= None)",
14810                          MAILLAGE      = SIMP(statut='o',typ=maillage),
14811                          PRECISION     = SIMP(statut='f',typ='R',defaut=0.001),
14812                          NOEUD         = SIMP(statut='f',typ=no,max='**'),
14813                          GROUP_NO      = SIMP(statut='f',typ=grno,max='**'),
14814                          SANS_NOEUD    = SIMP(statut='f',typ=no,max='**'),
14815                          SANS_GROUP_NO = SIMP(statut='f',typ=grno,max='**')
14816                          ),
14817          MATER         =SIMP(statut='o',typ=mater,
14818                              fr="Matériau homogène et isotrope cohérent avec celui utilisé pour le calcul des déplacements"),
14819          RESULTAT      =SIMP(statut='f',typ=(evol_elas,evol_noli),
14820                              fr="Table déplacement des noeuds de la lèvre supérieure et inférieure"),
14821          TABL_DEPL_SUP =SIMP(statut='f',typ=tabl_post_rele,
14822                              fr="Table issue de post_releve_t sur les noeuds de la lèvre supérieure"),
14823          TABL_DEPL_INF =SIMP(statut='f',typ=tabl_post_rele,
14824                              fr="Table issue de post_releve_t sur les noeuds de la lèvre inférieure"),
14825          ABSC_CURV_MAXI=SIMP(statut='f',typ='R',
14826                              fr="distance maximum à partir du fond de fissure à utiliser pour le calcul"),
14827          PREC_VIS_A_VIS= SIMP(statut='f',typ='R',defaut=0.1),
14828          TOUT_ORDRE    =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14829          NUME_ORDRE    =SIMP(statut='f',typ='I',max='**'),
14830          LIST_ORDRE    =SIMP(statut='f',typ=listis),
14831          INST          =SIMP(statut='f',typ='R',max='**'),
14832          LIST_INST     =SIMP(statut='f',typ=listr8),
14833              b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
14834                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
14835                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
14836              ),
14837          INFO          =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14838          VECT_K1       =SIMP(statut='o',typ='R',max='**',
14839                              fr="Vecteur normal au plan de fissure, orienté de la lèvre inférieure vers la lèvre supérieure"),
14840          TITRE         =SIMP(statut='f',typ='TXM',max='**'),
14841 )  ;
14842 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
14843 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14844 # ======================================================================
14845 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
14846 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14847 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14848 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14849 # (AT YOUR OPTION) ANY LATER VERSION.
14850 #
14851 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14852 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14853 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14854 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14855 #
14856 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14857 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14858 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14859 #
14860 #
14861 # ======================================================================
14862 #
14863 POST_K_BETA=OPER(nom="POST_K_BETA",op=198,sd_prod=tabl_post_beta,
14864                    fr="Calcul des FIC par la méthode K_BETA",
14865                    docu="U4.82.07-a",reentrant='n',
14866             UIinfo={"groupes":("Post traitements",)},
14867          MAILLAGE      = SIMP(statut='o',typ=maillage),
14868          MATER_REV     = SIMP(statut='o',typ=mater),
14869          EPAIS_REV     = SIMP(statut='o',typ='R'),
14870          FISSURE       = FACT(statut='o',min=1,max=1,
14871             DECALAGE       = SIMP(statut='f',typ='R',defaut=-2.e-04),
14872             PROFONDEUR     = SIMP(statut='o',typ='R'),
14873             LONGUEUR       = SIMP(statut='o',typ='R'),
14874             ORIENTATION    = SIMP(statut='o',typ='TXM',
14875                                  into=("CIRC","LONGI"),),
14876          ),
14877          K1D           = FACT(statut='o',min=1,max='**',
14878             TABL_MECA_REV  = SIMP(statut='o',typ=(tabl_post_rele)),
14879             TABL_MECA_MDB  = SIMP(statut='o',typ=(tabl_post_rele)),
14880             TABL_THER      = SIMP(statut='o',typ=(tabl_post_rele)),
14881             INTITULE       = SIMP(statut='o',typ='TXM' ),
14882          ),
14883          INFO          = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14884          TITRE         = SIMP(statut='f',typ='TXM',max='**'),
14885 );
14886 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
14887 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14888 # ======================================================================
14889 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14890 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14891 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14892 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14893 # (AT YOUR OPTION) ANY LATER VERSION.
14894 #
14895 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14896 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14897 # MERCHANTABILITY OR FITNESS FOR A PARTIC
14898 #
14899 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14900 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14901 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14902 # ======================================================================
14903 # RESPONSABLE JMBHH01 J.M.PROIX
14904 POST_RCCM=OPER(nom="POST_RCCM",op= 165,sd_prod=tabl_post_rccm,
14905                fr="Vérification des critères de niveau 0 et certains critères de niveau A du RCC-M-B3200 (Edition 1991)",
14906                docu="U4.83.11-d",reentrant='n',
14907             UIinfo={"groupes":("Post traitements",)},
14908          TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="VALE_MAX",into=("VALE_MAX","VALE_INST") ),
14909          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
14910          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
14911          OPTION          =SIMP(statut='o',typ='TXM',max='**',
14912                                into=("PM_PB",
14913                                      "SN",
14914                                      "FATIGUE_SPMAX",
14915                                      "FATIGUE_ZH210",
14916                                      "FATIGUE_B3200",
14917                                      "FATIGUE_B3600",
14918                                      ) ),
14919      b_pm_sn  =BLOC(condition="(OPTION == 'PM_PB')or(OPTION == 'SN')or(OPTION == 'FATIGUE_SPMAX')or(OPTION == 'FATIGUE_ZH210')",
14920          MATER           =SIMP(statut='o',typ=mater ),
14921          MAILLAGE        =SIMP(statut='f',typ=maillage),
14922          SEGMENT         =FACT(statut='o',min=1,max='**',fr="Segment sur lequel s effectue le depouillement",
14923            regles=(AU_MOINS_UN('CHEMIN','GROUP_NO','NOEUD'),
14924                    EXCLUS('CHEMIN','GROUP_NO'),
14925                    EXCLUS('CHEMIN','NOEUD'),),
14926            INTITULE        =SIMP(statut='f',typ='TXM' ),
14927            CHEMIN          =SIMP(statut='f',typ=(courbe,surface),),
14928            NOEUD           =SIMP(statut='f',typ=no,max='**'),
14929            GROUP_NO        =SIMP(statut='f',typ=grno),
14930              b_acce_noeud     =BLOC(condition="(NOEUD != None)or(GROUP_NO != None)",
14931                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
14932                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
14933                                    ),
14934                                ),
14935          TRANSITOIRE     =FACT(statut='o',min=1,max='**',fr="transitoire à dépouiller",
14936            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
14937            RESULTAT        =SIMP(statut='o',typ=(evol_elas,evol_noli) ),
14938            RESU_SIGM_THER  =SIMP(statut='f',typ=(evol_elas,evol_noli),fr="résultat sous chargement thermique seul" ),
14939            NB_OCCUR        =SIMP(statut='f',typ='I',defaut= 1,fr="nombre d occurences réelles de ce transitoire" ),
14940            NOM_CHAM        =SIMP(statut='o',typ='TXM',into=("SIEF_ELNO_ELGA","SIGM_ELNO_DEPL") ),
14941            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14942            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
14943            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
14944            INST            =SIMP(statut='f',typ='R',max='**'),
14945            LIST_INST       =SIMP(statut='f',typ=listr8 ),
14946            b_inst          =BLOC(condition = "(INST != None) or (LIST_INST != None)" ,
14947              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
14948              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
14949                                  ),
14950                              ),
14951          ),
14952
14953      b_3200  =BLOC(condition="(OPTION == 'FATIGUE_B3200')",
14954          MATER           =SIMP(statut='o',typ=mater ),
14955          CHAR_MECA   =FACT(statut='o',min=1,max='**',fr="Chargements mécaniques",
14956            NUME_CHAR     =SIMP(statut='o',typ='I',max=1,fr="numéro du chargement" ),
14957            NOM_CHAR      =SIMP(statut='f',typ='TXM',max=1,fr="nom du chargement" ),
14958            TYPE_CHAR     =SIMP(statut='f',typ='TXM',max=1,fr="nature du chargement",into=( "SEISME","AUTRE"),defaut="AUTRE",),
14959            FX            =SIMP(statut='f',typ='R',max=1,fr="effort suivant x", ),
14960            FY            =SIMP(statut='f',typ='R',max=1,fr="effort suivant y", ),
14961            FZ            =SIMP(statut='f',typ='R',max=1,fr="effort suivant z", ),
14962            MX            =SIMP(statut='o',typ='R',max=1,fr="moment suivant x", ),
14963            MY            =SIMP(statut='o',typ='R',max=1,fr="moment suivant y", ),
14964            MZ            =SIMP(statut='o',typ='R',max=1,fr="moment suivant z", ),
14965                          ),
14966          RESU_MECA_UNIT =FACT(statut='o',min=1,max=1,fr="resultats mécaniques unitaires",
14967            TABL_FX       =SIMP(statut='f',typ=table,max=1,
14968                               fr="table relevé des contraintes pour chargement unitaire FX"),
14969            TABL_FY       =SIMP(statut='f',typ=table,max=1,
14970                               fr="table relevé des contraintes pour chargement unitaire FY"),
14971            TABL_FZ       =SIMP(statut='f',typ=table,max=1,
14972                               fr="table relevé des contraintes pour chargement unitaire FZ"),
14973            TABL_MX       =SIMP(statut='o',typ=table,max=1,
14974                               fr="table relevé des contraintes pour chargement unitaire MX"),
14975            TABL_MY       =SIMP(statut='o',typ=table,max=1,
14976                               fr="table relevé des contraintes pour chargement unitaire MY"),
14977            TABL_MZ       =SIMP(statut='o',typ=table,max=1,
14978                               fr="table relevé des contraintes pour chargement unitaire MZ"),
14979            TABL_PRES     =SIMP(statut='o',typ=table,max=1,
14980                               fr="table relevé des contraintes pour chargement unitaire de pression"),
14981                          ),
14982           RESU_THER   =FACT(statut='f',min=1,max='**',fr="resultats thermiques",
14983            NUME_RESU_THER =SIMP(statut='o',typ='I',max=1,fr="numéro de la table de résultat thermique" ),
14984            TABL_RESU_THER =SIMP(statut='o',typ=table,max=1,
14985                               fr="table relevé des contraintes pour chargement thermique"),
14986                            ),
14987          SITUATION         =FACT(statut='o',min=1,max='**',fr="Situation",ang="situation_ang",
14988               NB_OCCUR         =SIMP(statut='o',typ='I',fr="nombre d'occurences de la situation" ),
14989               NB_CYCL_SEISME   =SIMP(statut='f',typ='I',fr="nombre de cycles associé au séisme" ),
14990               NUME_SITU        =SIMP(statut='o',typ='I',fr="numéro de la situation" ),
14991               NOM_SITU         =SIMP(statut='f',typ='TXM',fr="nom de la situation" ),
14992               COMBINABLE       =SIMP(statut='f',typ='TXM',defaut= "OUI",into=("OUI","NON"),fr="non = sous-cycle" ),
14993               NUME_GROUPE      =SIMP(statut='o',typ='I',fr="numéro du groupe de la situation" ),
14994               NUME_PASSAGE     =SIMP(statut='f',typ='I',max=2,fr="numéro des deux groupes en relation" ),
14995               NUME_RESU_THER   =SIMP(statut='f',typ='I',max='**',fr="numeros de transitoires thermiques" ),
14996               CHAR_ETAT_A      =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat A" ),
14997               CHAR_ETAT_B      =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat B" ),
14998               PRES_A           =SIMP(statut='o',typ='R',fr="pression etat A"),
14999               PRES_B           =SIMP(statut='o',typ='R',fr="pression etat B"),
15000               TEMP_REF_A       =SIMP(statut='f',typ='R',fr="temperature référence etat A"),
15001               TEMP_REF_B       =SIMP(statut='f',typ='R',fr="temperature référence etat B"),
15002                                ),
15003                       ),
15004      b_3600  =BLOC(condition="(OPTION == 'FATIGUE_B3600')",
15005          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
15006          MODELE          =SIMP(statut='o',typ=modele),
15007          CARA_ELEM       =SIMP(statut='o',typ=cara_elem),
15008          ZONE_ANALYSE =FACT(statut='o',min=1,max=1,fr="liste des mailles ou des noeuds analysés",
15009             regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15010             TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15011             GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
15012             MAILLE          =SIMP(statut='f',typ=ma,max='**'),
15013             ),
15014          RESU_MECA   =FACT(statut='o',min=1,max='**',fr="Chargements mécaniques",
15015            regles=(UN_PARMI('CHAM_GD','RESULTAT'),),
15016            NUME_CHAR     =SIMP(statut='o',typ='I',max=1,fr="numéro du chargement" ),
15017            NOM_CHAR      =SIMP(statut='f',typ='TXM',max=1,fr="nom du chargement" ),
15018            TYPE_CHAR     =SIMP(statut='f',typ='TXM',max=1,fr="nature du chargement",into=( "SEISME","AUTRE"),defaut="AUTRE",),
15019            CHAM_GD         =SIMP(statut='f',typ=cham_gd),
15020            RESULTAT        =SIMP(statut='f',typ=resultat),
15021            b_extrac        =BLOC(condition="RESULTAT != None",
15022                                  fr="extraction d un champ de grandeur",
15023              regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','INST','NOEUD_CMP'),),
15024              NOM_CHAM        =SIMP(statut='o',typ='TXM',max=1,into=("EFGE_ELNO_DEPL","SIEF_ELNO_ELGA"),),
15025              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15026              NUME_ORDRE      =SIMP(statut='f',typ='I',max=1),
15027              INST            =SIMP(statut='f',typ='R',max=1),
15028              NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
15029              b_acce_reel     =BLOC(condition="(INST != None)",
15030                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
15031                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU"), ),
15032              ),
15033            ),
15034                           ),
15035          INDI_SIGM =FACT(statut='o',min=1,max='**',fr="indices de contraintes",
15036             regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15037             C1              =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes C1 du RCCM"),
15038             K1              =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes K1 du RCCM"),
15039             C2              =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes C2 du RCCM"),
15040             K2              =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes K2 du RCCM"),
15041             C3              =SIMP(statut='f',typ='R',max=1,defaut=0.5,fr="indice de contraintes C3 du RCCM"),
15042             K3              =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes K3 du RCCM"),
15043             TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",),),
15044             GROUP_MA        =SIMP(statut='f',typ=grma,max='**',
15045                              fr="groupe(s) de mailles ou sont affectés les indices de contraintes"),
15046             MAILLE          =SIMP(statut='f',typ=ma,max='**',
15047                              fr="liste des mailles ou sont affectés les indices de contraintes"),
15048             b_grma     =BLOC(condition="(GROUP_MA != None)or(MAILLE != None)",
15049                GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
15050                NOEUD           =SIMP(statut='f',typ=no,max='**'),
15051             ),
15052             TYPE_ELEM_STANDARD =SIMP(statut='f',typ='TXM',into=("DRO","COU","TRN","TEE"),
15053                               fr="type d'élément de tuyauterie ou sont affectés les indices de contraintes"),
15054                          ),
15055           RESU_THER   =FACT(statut='f',min=1,max='**',fr="resultats thermiques",
15056             regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15057             NUME_RESU_THER =SIMP(statut='o',typ='I',max=1,fr="numéro de la table de résultat thermique" ),
15058             TABL_RESU_THER =SIMP(statut='o',typ=table,max=1,
15059                               fr="table relevé des températures sur la section"),
15060             TABL_MOYE_THER =SIMP(statut='o',typ=table,max=1,
15061                               fr="table relevé des moyennes sur la section"),
15062             TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15063             GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
15064             MAILLE          =SIMP(statut='f',typ=ma,max='**'),
15065             b_grma     =BLOC(condition="(GROUP_MA != None)or(MAILLE != None)",
15066                GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
15067                NOEUD           =SIMP(statut='f',typ=no,max='**'),
15068             ),
15069                            ),
15070          SITUATION         =FACT(statut='o',min=1,max='**',fr="Situation",ang="situation_ang",
15071               NB_OCCUR         =SIMP(statut='o',typ='I',fr="nombre d'occurences de la situation" ),
15072               NB_CYCL_SEISME   =SIMP(statut='f',typ='I',fr="nombre de cycles associé au séisme" ),
15073               NUME_SITU        =SIMP(statut='o',typ='I',fr="numéro de la situation" ),
15074               NOM_SITU         =SIMP(statut='f',typ='TXM',fr="nom de la situation" ),
15075               COMBINABLE       =SIMP(statut='f',typ='TXM',defaut= "OUI",into=("OUI","NON"),fr="non = sous-cycle" ),
15076               NUME_GROUPE      =SIMP(statut='o',typ='I',fr="numéro du groupe de la situation" ),
15077               NUME_PASSAGE     =SIMP(statut='f',typ='I',max=2,fr="numéro des deux groupes en relation" ),
15078               NUME_RESU_THER   =SIMP(statut='f',typ='I',max='**',fr="numeros de transitoires thermiques" ),
15079               CHAR_ETAT_A      =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat A" ),
15080               CHAR_ETAT_B      =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat B" ),
15081               PRES_A           =SIMP(statut='o',typ='R',fr="pression etat A"),
15082               PRES_B           =SIMP(statut='o',typ='R',fr="pression etat B"),
15083               TEMP_REF_A       =SIMP(statut='f',typ='R',fr="temperature référence etat A"),
15084               TEMP_REF_B       =SIMP(statut='f',typ='R',fr="temperature référence etat B"),
15085                                ),
15086                      ),
15087 )  ;
15088 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
15089 # ======================================================================
15090 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15091 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15092 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15093 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15094 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15095 # (AT YOUR OPTION) ANY LATER VERSION.
15096 #
15097 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15098 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15099 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15100 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15101 #
15102 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15103 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15104 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15105 # ======================================================================
15106 # RESPONSABLE G8BHHXD X.DESROCHES
15107 POST_RELEVE_T=OPER(nom="POST_RELEVE_T",op=51,sd_prod=tabl_post_rele,docu="U4.81.21-e",reentrant='n',
15108             UIinfo={"groupes":("Post traitements",)},
15109          ACTION          =FACT(statut='o',min=1,max='**',
15110            regles=(AU_MOINS_UN('CHEMIN','GROUP_NO','NOEUD'),
15111                    EXCLUS('CHEMIN','GROUP_NO'),
15112                    EXCLUS('CHEMIN','NOEUD'),
15113                    PRESENT_ABSENT('CHEMIN','GROUP_MA','MAILLE'),
15114                    UN_PARMI('RESULTAT','CHAM_GD'),
15115                    UN_PARMI('TOUT_CMP','NOM_CMP','INVARIANT','ELEM_PRINCIPAUX','RESULTANTE'),
15116                    PRESENT_PRESENT('TRAC_DIR','DIRECTION'),
15117                    PRESENT_PRESENT('TRAC_DIRECTION','DIRECTION'),
15118                    ENSEMBLE('MOMENT','POINT'),
15119                    PRESENT_PRESENT('MOMENT','RESULTANTE'),
15120                    PRESENT_ABSENT('TOUT_CMP','TRAC_DIRECTION','TRAC_NORMALE'),
15121                    PRESENT_ABSENT('TOUT_CMP','TRAC_DIR','TRAC_NOR'),
15122                    PRESENT_PRESENT('ORIGINE','AXE_Z'),),
15123            INTITULE        =SIMP(statut='o',typ='TXM'),
15124            CHEMIN          =SIMP(statut='f',typ=(courbe,surface) ),
15125            NOEUD           =SIMP(statut='f',typ=no,max='**'),
15126            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15127            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
15128            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
15129            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
15130            FORMAT_C        =SIMP(statut='f',typ='TXM',defaut="MODULE",into=("MODULE","REEL","IMAG")),
15131            CHAM_GD         =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r,cham_no_var2_r,
15132                                                  cham_elem_sief_r,cham_elem_epsi_r,cham_elem_flux_r,cham_elem_crit_r,
15133                                                  cham_elem_ener_r,cham_elem_dbel_r,cham_elem_pres_r,cham_elem_erreur,
15134                                                  cham_elem_vari_r,cham_no_depl_c,cham_no_temp_c,cham_no_pres_c,
15135                                                  cham_elem_sief_c,cham_elem_epsi_c)),
15136            RESULTAT        =SIMP(statut='f',typ=(evol_elas,evol_ther,evol_noli,dyna_trans,
15137                                                  mode_meca,mode_flamb,mode_acou,base_modale,mode_stat,
15138                                                  mult_elas,fourier_elas,dyna_harmo,acou_harmo)),
15139            b_sensibilite   =BLOC(condition="RESULTAT != None",
15140                                  fr="Définition des paramètres de sensibilité",
15141                                  ang="Definition of sensitivity parameters",
15142              SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
15143                                    fr="Liste des paramètres de sensibilité.",
15144                                    ang="List of sensitivity parameters"),),
15145
15146            b_extrac        =BLOC(condition = "RESULTAT != None",fr="extraction des résultats",
15147              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','NUME_MODE','LIST_MODE',
15148                             'INST','LIST_INST','FREQ','LIST_FREQ','NOEUD_CMP','NOM_CAS'), ),
15149              NOM_CHAM        =SIMP(statut='o',typ='TXM' ),
15150              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15151              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
15152              LIST_ORDRE      =SIMP(statut='f',typ=listis),
15153              NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
15154              LIST_MODE       =SIMP(statut='f',typ=listis),
15155              NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
15156              NOM_CAS         =SIMP(statut='f',typ='TXM',max='**'),
15157              FREQ            =SIMP(statut='f',typ='R',max='**'),
15158              LIST_FREQ       =SIMP(statut='f',typ=listr8),
15159              INST            =SIMP(statut='f',typ='R',max='**'),
15160              LIST_INST       =SIMP(statut='f',typ=listr8),
15161              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
15162              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15163            ),
15164            TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",)),
15165            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
15166            INVARIANT       =SIMP(statut='f',typ='TXM',into=("OUI",)),
15167            ELEM_PRINCIPAUX =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15168            RESULTANTE      =SIMP(statut='f',typ='TXM',max='**'),
15169            MOMENT          =SIMP(statut='f',typ='TXM',max='**'),
15170            POINT           =SIMP(statut='f',typ='R',max='**'),
15171
15172            REPERE          =SIMP(statut='f',typ='TXM',defaut="GLOBAL",
15173                                  into=("GLOBAL","LOCAL","POLAIRE","UTILISATEUR","CYLINDRIQUE"),),
15174            ANGL_NAUT       =SIMP(statut='f',typ='R',min=3,max=3),
15175            ORIGINE         =SIMP(statut='f',typ='R',min=3,max=3),
15176            AXE_Z           =SIMP(statut='f',typ='R',min=3,max=3),
15177
15178            TRAC_NOR        =SIMP(statut='f',typ='TXM',into=("OUI",)),
15179            TRAC_DIR        =SIMP(statut='f',typ='TXM',into=("OUI",)),
15180            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
15181            TRAC_DIRECTION  =SIMP(statut='f',typ='TXM',into=("OUI",)),
15182            TRAC_NORMALE    =SIMP(statut='f',typ='TXM',into=("OUI",)),
15183
15184            VECT_Y          =SIMP(statut='f',typ='R',max='**'),
15185            MOYE_NOEUD      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
15186            OPERATION       =SIMP(statut='o',typ='TXM',into=("EXTRACTION","MOYENNE"),max=2),
15187          ),
15188          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
15189          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
15190 )  ;
15191 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15192 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15193 # ======================================================================
15194 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15195 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15196 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15197 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15198 # (AT YOUR OPTION) ANY LATER VERSION.
15199 #
15200 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15201 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15202 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15203 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15204 #
15205 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15206 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15207 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15208 # ======================================================================
15209 POST_SIMPLIFIE=OPER(nom="POST_SIMPLIFIE",op=185,sd_prod=tabl_post_simpli,
15210                     fr=" ",docu="U4.PS.10-a",reentrant='n',
15211             UIinfo={"groupes":("Outils métier",)},
15212          MATER           =SIMP(statut='o',typ=(mater) ),
15213          DEF_EQUI        =FACT(statut='f',min=1,max=1,
15214            METHODE         =SIMP(statut='f',typ='TXM',max='**',defaut="UTO_2_3",
15215                                  into=("UTO_2_3",) ),
15216            EPAIS           =SIMP(statut='o',typ='R'),
15217            LONG_FISS       =SIMP(statut='o',typ='R'),
15218            LONG_LIGA_INT   =SIMP(statut='o',typ='R'),
15219            DEXT            =SIMP(statut='o',typ='R'),
15220            TEMP_ANALYSE    =SIMP(statut='f',typ='R'),
15221          ),
15222 )  ;
15223 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
15224 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15225 # ======================================================================
15226 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15227 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15228 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15229 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15230 # (AT YOUR OPTION) ANY LATER VERSION.
15231 #
15232 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15233 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15234 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15235 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15236 #
15237 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15238 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15239 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15240 # ======================================================================
15241 POST_USURE=OPER(nom="POST_USURE",op=153,sd_prod=tabl_post_usur,docu="U4.84.05-d",reentrant='f',
15242             UIinfo={"groupes":("Post traitements",)},
15243                 fr="Calcul des volumes d'usure et des profondeurs d'usure",
15244          regles=(UN_PARMI('TUBE_NEUF','RESU_GENE','PUIS_USURE'),
15245                  PRESENT_PRESENT('RESU_GENE','NOEUD','LOI_USURE'),
15246                  PRESENT_PRESENT('PUIS_USURE','LOI_USURE'),),
15247          TUBE_NEUF       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15248          ETAT_INIT       =FACT(statut='f',min=1,max=1,
15249            TABL_USURE      =SIMP(statut='f',typ=tabl_post_usur),
15250            INST_INIT       =SIMP(statut='f',typ='R'),
15251                          ),
15252          RESU_GENE       =SIMP(statut='f',typ=tran_gene),
15253          NOEUD           =SIMP(statut='f',typ=no,max=1),
15254          INST_INIT       =SIMP(statut='f',typ='R',defaut=-1.0E+0),
15255          INST_FIN        =SIMP(statut='f',typ='R'),
15256          NB_BLOC         =SIMP(statut='f',typ='I',defaut= 1 ),
15257          PUIS_USURE      =SIMP(statut='f',typ='R'),
15258          LOI_USURE       =SIMP(statut='f',typ='TXM',into=("ARCHARD","KWU_EPRI","EDF_MZ")),
15259          b_archard       =BLOC(condition = "LOI_USURE == 'ARCHARD'",
15260            regles=(UN_PARMI('MOBILE','MATER_USURE','SECTEUR'),
15261                    EXCLUS('MATER_USURE','OBSTACLE'),
15262                    EXCLUS('MOBILE','USURE_OBST'),),
15263            MOBILE          =FACT(statut='f',min=1,max=1,
15264              COEF_USURE      =SIMP(statut='o',typ='R'),
15265            ),
15266            OBSTACLE        =FACT(statut='f',min=1,max=1,
15267              COEF_USURE      =SIMP(statut='o',typ='R'),
15268            ),
15269            SECTEUR         =FACT(statut='f',min=1,max='**',
15270              CONTACT         =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
15271                                                               "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
15272                                                               "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
15273              COEF_USUR_MOBILE=SIMP(statut='f',typ='R'),
15274              COEF_USUR_OBST  =SIMP(statut='f',typ='R'),
15275              ANGL_INIT       =SIMP(statut='f',typ='R'),
15276              ANGL_FIN        =SIMP(statut='f',typ='R'),
15277            ),
15278            MATER_USURE     =SIMP(statut='f',typ='TXM'),
15279            USURE_OBST      =SIMP(statut='f',typ='TXM',into=("OUI",)),
15280          ),
15281          b_kwu_epri        =BLOC(condition = "LOI_USURE == 'KWU_EPRI'",
15282            regles=(UN_PARMI('MOBILE','MATER_USURE'),
15283                    EXCLUS('MATER_USURE','OBSTACLE'),
15284                    EXCLUS('MOBILE','USURE_OBST'),),
15285            MOBILE          =FACT(statut='f',min=1,max=1,
15286              COEF_FNOR       =SIMP(statut='f',typ='R'),
15287              COEF_VTAN       =SIMP(statut='f',typ='R'),
15288              COEF_USURE      =SIMP(statut='f',typ='R'),
15289              COEF_K          =SIMP(statut='f',typ='R',defaut=5.0E+0),
15290              COEF_C          =SIMP(statut='f',typ='R',defaut=10.0E+0),
15291            ),
15292            OBSTACLE        =FACT(statut='f',min=1,max=1,
15293              COEF_FNOR       =SIMP(statut='f',typ='R' ),
15294              COEF_VTAN       =SIMP(statut='f',typ='R' ),
15295              COEF_USURE      =SIMP(statut='o',typ='R'),
15296              COEF_K          =SIMP(statut='f',typ='R',defaut=5.0E+0),
15297              COEF_C          =SIMP(statut='f',typ='R',defaut=10.0E+0),
15298            ),
15299            MATER_USURE     =SIMP(statut='f',typ='TXM'),
15300            USURE_OBST      =SIMP(statut='f',typ='TXM',into=("OUI",)),
15301            FNOR_MAXI       =SIMP(statut='f',typ='R' ),
15302            VTAN_MAXI       =SIMP(statut='f',typ='R' ),
15303          ),
15304          b_edf_mz          =BLOC(condition = "LOI_USURE == 'EDF_MZ'",
15305            regles=(UN_PARMI('MOBILE','MATER_USURE'),
15306                    EXCLUS('MATER_USURE','OBSTACLE'),
15307                    EXCLUS('MOBILE','USURE_OBST'),),
15308            MOBILE          =FACT(statut='f',min=1,max=1,
15309              COEF_USURE      =SIMP(statut='f',typ='R',defaut=1.0E-13),
15310              COEF_B          =SIMP(statut='f',typ='R',defaut=1.2E+0),
15311              COEF_N          =SIMP(statut='f',typ='R',defaut=2.44E-8),
15312              COEF_S          =SIMP(statut='f',typ='R',defaut=1.14E-16),
15313            ),
15314            OBSTACLE        =FACT(statut='f',min=1,max=1,
15315              COEF_USURE      =SIMP(statut='o',typ='R',defaut=1.0E-13),
15316              COEF_B          =SIMP(statut='f',typ='R',defaut=1.2E+0),
15317              COEF_N          =SIMP(statut='f',typ='R',defaut=2.44E-8),
15318              COEF_S          =SIMP(statut='f',typ='R',defaut=1.14E-16),
15319            ),
15320            MATER_USURE     =SIMP(statut='f',typ='TXM'),
15321            USURE_OBST      =SIMP(statut='f',typ='TXM',into=("OUI",)),
15322          ),
15323          b_tube_neuf       =BLOC(condition = "TUBE_NEUF == 'OUI'",
15324             TABL_USURE      =SIMP(statut='o',typ=tabl_post_usur),
15325             INST            =SIMP(statut='f',typ='R'),
15326          ),
15327          CONTACT         =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
15328                                                           "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
15329                                                           "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
15330          RAYON_MOBILE    =SIMP(statut='f',typ='R'),
15331          RAYON_OBST      =SIMP(statut='f',typ='R'),
15332          LARGEUR_OBST    =SIMP(statut='f',typ='R'),
15333          ANGL_INCLI      =SIMP(statut='f',typ='R'),
15334          ANGL_ISTHME     =SIMP(statut='f',typ='R'),
15335          ANGL_IMPACT     =SIMP(statut='f',typ='R'),
15336          INST            =SIMP(statut='f',typ='R',max='**'),
15337          LIST_INST       =SIMP(statut='f',typ=listr8),
15338          COEF_INST       =SIMP(statut='f',typ='R',defaut=1.0E+0),
15339          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
15340          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
15341 )  ;
15342 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15343 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15344 # ======================================================================
15345 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15346 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15347 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15348 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15349 # (AT YOUR OPTION) ANY LATER VERSION.
15350 #
15351 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15352 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15353 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15354 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15355 #
15356 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15357 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15358 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15359 # ======================================================================
15360 POST_ZAC=OPER(nom="POST_ZAC",op= 175,sd_prod=mult_elas,docu="U4.83.21-b",reentrant='n',
15361             UIinfo={"groupes":("Post traitements",)},
15362               fr="Donne l'état adapté ou accommodé d'une structure sous chargement cyclique élastique affine ou non",
15363          MODELE          =SIMP(statut='o',typ=modele),
15364          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
15365          EXCIT           =FACT(statut='o',min=1,max='**',
15366            CHARGE          =SIMP(statut='o',typ=char_meca),
15367            FONC_MULT       =SIMP(statut='f',typ=fonction),
15368            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",into=("FIXE_CSTE",)),
15369          ),
15370          EVOL_ELAS       =SIMP(statut='o',typ=evol_elas),
15371          b_evol_elas     =BLOC(condition="EVOL_ELAS != None",
15372            regles=(UN_PARMI('NUME_ORDRE','LIST_INST','INST'),),
15373            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
15374            LIST_INST       =SIMP(statut='f',typ=listr8),
15375            INST            =SIMP(statut='f',typ='R',max='**'),
15376          ),
15377          TEMP_ZAC        =SIMP(statut='f',typ='R',defaut=0.0E+0),
15378          EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
15379          b_evol_noli     =BLOC(condition="EVOL_NOLI != None",
15380            INST_MAX        =SIMP(statut='o',typ='R'),
15381          ),
15382          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
15383          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15384
15385 )  ;
15386 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
15387 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15388 # ======================================================================
15389 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15390 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15391 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15392 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15393 # (AT YOUR OPTION) ANY LATER VERSION.
15394 #
15395 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15396 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15397 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15398 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15399 #
15400 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15401 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15402 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15403 # ======================================================================
15404 POURSUITE=MACRO(nom="POURSUITE",op=0,repetable='n',fr="Poursuite d une étude",
15405                 docu="U4.11.03-g",sd_prod = ops.POURSUITE,
15406             UIinfo={"groupes":("Gestion du travail",)},
15407                 op_init = ops.POURSUITE_context,fichier_ini = 1,
15408          PAR_LOT         =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
15409                            into=("OUI","NON"),defaut="OUI"),
15410          BASE            =FACT(fr="définition des parmètres associés aux bases JEVEUX",
15411                                statut='f',min=1,max=3,
15412            FICHIER         =SIMP(fr="nom de la base",statut='o',typ='TXM'),
15413            TITRE           =SIMP(statut='f',typ='TXM'),
15414            CAS             =SIMP(statut='f',typ='TXM'),
15415            NMAX_ENRE       =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
15416            LONG_ENRE       =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
15417            LONG_REPE       =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
15418          ),
15419          IMPRESSION      =FACT(statut='f',min=1,max=3,
15420            FICHIER         =SIMP(statut='o',typ='TXM'),
15421            UNITE           =SIMP(statut='o',typ='I'),
15422          ),
15423          CATALOGUE       =FACT(statut='f',min=1,max=10,
15424            FICHIER         =SIMP(statut='o',typ='TXM'),
15425            TITRE           =SIMP(statut='f',typ='TXM'),
15426            UNITE           =SIMP(statut='f',typ='I'),
15427          ),
15428          DEBUG           =FACT(fr="option de déboggage reservée aux développeurs",
15429                                statut='f',min=1,max=1,
15430            JXVERI          =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
15431                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
15432            JEVEUX          =SIMP(fr="force les déchargement sur disque",
15433                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
15434            ENVIMA          =SIMP(fr="imprime les valeurs définies dans ENVIMA",
15435                                  statut='f',typ='TXM',into=('TES',)),
15436          ),
15437          MEMOIRE         =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=1,max=1,
15438            GESTION         =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
15439            TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
15440            TAILLE          =SIMP(statut='f',typ='I'),
15441            TAILLE_BLOC     =SIMP(statut='f',typ='R',defaut=800.),
15442            PARTITION       =SIMP(statut='f',typ='R' ),
15443          ),
15444          CODE            =FACT("définition d un nom pour l'esemble d'une étude",
15445                                statut='f',min=1,max=1,
15446            NOM             =SIMP(statut='o',typ='TXM'),
15447            UNITE           =SIMP(statut='f',typ='I',defaut=15),
15448          ),
15449 )  ;
15450 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
15451 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15452 # ======================================================================
15453 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15454 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15455 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15456 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15457 # (AT YOUR OPTION) ANY LATER VERSION.
15458 #
15459 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15460 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15461 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15462 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15463 #
15464 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15465 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15466 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15467 # ======================================================================
15468 PRE_CHAR_IDEAS=PROC(nom="PRE_CHAR_IDEAS",op=100,docu="U7.01.02-e",
15469                     fr="Conversion de conditions aux limites et chargements IDEAS en commandes Aster",
15470          UNITE_IDEAS     =SIMP(statut='f',typ='I',defaut=19),
15471          UNITE_ASTER     =SIMP(statut='f',typ='I',defaut=21),
15472          MODELE          =SIMP(statut='o',typ=modele),
15473 )  ;
15474 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
15475 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15476 # ======================================================================
15477 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15478 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15479 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15480 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15481 # (AT YOUR OPTION) ANY LATER VERSION.
15482 #
15483 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15484 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15485 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15486 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15487 #
15488 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15489 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15490 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15491 # ======================================================================
15492 PRE_GIBI=PROC(nom="PRE_GIBI",op=49,docu="U7.01.11-g",
15493             UIinfo={"groupes":("Gestion du travail",)},
15494               fr="Conversion d un fichier de maillage GIBI",
15495          UNITE_GIBI      =SIMP(statut='f',typ='I',defaut=19),
15496          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),
15497 )  ;
15498 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
15499 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15500 # ======================================================================
15501 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15502 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15503 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15504 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15505 # (AT YOUR OPTION) ANY LATER VERSION.
15506 #
15507 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15508 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15509 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15510 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15511 #
15512 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15513 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15514 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15515 # ======================================================================
15516
15517 from Macro.pre_gmsh_ops import pre_gmsh_ops
15518
15519 PRE_GMSH=MACRO(nom="PRE_GMSH",op=pre_gmsh_ops,docu="U7.01.01-g",
15520             UIinfo={"groupes":("Gestion du travail",)},
15521                fr="Conversion d un fichier universel GMSH au format Aster",
15522          UNITE_GMSH      =SIMP(statut='f',typ='I',defaut=19),
15523          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),
15524          MODI_QUAD       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
15525 )  ;
15526 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
15527 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15528 # ======================================================================
15529 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
15530 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15531 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15532 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15533 # (AT YOUR OPTION) ANY LATER VERSION.
15534 #
15535 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15536 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15537 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15538 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15539 #
15540 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15541 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15542 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15543 # ======================================================================
15544
15545 PRE_GMSH_LECT=PROC(nom="PRE_GMSH_LECT",op=47,docu="U7.01.01-g",
15546             UIinfo={"groupes":("Gestion du travail",)},
15547                fr="Conversion d un fichier universel GMSH au format Aster",
15548          UNITE_GMSH      =SIMP(statut='f',typ='I',defaut=19),
15549          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),
15550 )  ;
15551 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
15552 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15553 # ======================================================================
15554 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15555 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15556 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15557 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15558 # (AT YOUR OPTION) ANY LATER VERSION.
15559 #
15560 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15561 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15562 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15563 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15564 #
15565 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15566 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15567 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15568 # ======================================================================
15569 PRE_IDEAS=PROC(nom="PRE_IDEAS",op=47,docu="U7.01.01-g",
15570             UIinfo={"groupes":("Gestion du travail",)},
15571                fr="Conversion d un fichier universel IDEAS-SUPERTAB au format Aster",
15572          UNITE_IDEAS     =SIMP(statut='f',typ='I',defaut=19),
15573          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),
15574 )  ;
15575 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
15576 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15577 # ======================================================================
15578 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15579 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15580 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15581 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15582 # (AT YOUR OPTION) ANY LATER VERSION.
15583 #
15584 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15585 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15586 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15587 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15588 #
15589 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15590 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15591 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15592 # ======================================================================
15593 PROCEDURE=PROC(nom="PROCEDURE",op=-3, docu="U4.13.03-f",
15594             UIinfo={"groupes":("Gestion du travail",)},
15595           fr="Nommer le fichier de commandes secondaires",
15596           NOM  =SIMP(statut='f',typ='TXM',defaut=" "),
15597 ) ;
15598 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
15599 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15600 # ======================================================================
15601 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15602 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15603 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15604 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15605 # (AT YOUR OPTION) ANY LATER VERSION.
15606 #
15607 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15608 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15609 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15610 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15611 #
15612 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15613 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15614 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15615 # ======================================================================
15616 def prod_matr_cham_prod(MATR_ASSE,**args):
15617   if AsType(MATR_ASSE) == matr_asse_depl_r : return cham_no_depl_r
15618   if AsType(MATR_ASSE) == matr_asse_depl_c : return cham_no_depl_c
15619   if AsType(MATR_ASSE) == matr_asse_temp_r : return cham_no_temp_r
15620   if AsType(MATR_ASSE) == matr_asse_pres_c : return cham_no_pres_c
15621   raise AsException("type de concept resultat non prevu")
15622
15623 PROD_MATR_CHAM=OPER(nom="PROD_MATR_CHAM",op= 156,sd_prod=prod_matr_cham_prod,
15624                     fr="Effectuer le produit d une matrice par un vecteur",
15625                     docu="U4.72.06-c",reentrant='n',
15626             UIinfo={"groupes":("Résultats et champs",)},
15627          MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_pres_c ) ),
15628          CHAM_NO         =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_temp_r,cham_no_pres_c ) ),
15629          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
15630 )  ;
15631 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
15632 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15633 # ======================================================================
15634 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15635 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15636 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15637 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15638 # (AT YOUR OPTION) ANY LATER VERSION.
15639 #
15640 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15641 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15642 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15643 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15644 #
15645 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15646 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15647 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15648 # ======================================================================
15649 # RESPONSABLE VABHHTS J.PELLET
15650 def proj_champ_prod(RESULTAT=None,CHAM_NO_REFE=None,**args ):
15651     if AsType(RESULTAT)     == evol_ther      : return evol_ther
15652     if AsType(RESULTAT)     == evol_elas      : return evol_elas
15653     if AsType(RESULTAT)     == evol_noli      : return evol_noli
15654     if AsType(RESULTAT)     == evol_char      : return evol_char
15655     if AsType(CHAM_NO_REFE) == cham_no_depl_r : return cham_no_depl_r
15656     if AsType(CHAM_NO_REFE) == cham_no_depl_c : return cham_no_depl_c
15657     if AsType(CHAM_NO_REFE) == cham_no_pres_c : return cham_no_pres_c
15658     if AsType(CHAM_NO_REFE) == cham_no_temp_r : return cham_no_temp_r
15659     if AsType(CHAM_NO_REFE) == cham_no_epsi_r : return cham_no_epsi_r
15660     if AsType(CHAM_NO_REFE) == cham_no_sief_r : return cham_no_sief_r
15661     if AsType(CHAM_NO_REFE) == cham_no_flux_r : return cham_no_flux_r
15662     raise AsException("type de concept resultat non prevu")
15663
15664 PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,docu="U4.72.05-d",reentrant='n',
15665             UIinfo={"groupes":("Résultats et champs",)},
15666                 fr="Projection d'un champ aux noeuds sur les noeuds d'un autre maillage",
15667 #
15668          METHODE         =SIMP(statut='f',typ='TXM',defaut="NUAGE_DEG_1",
15669                                into=("NUAGE_DEG_0","NUAGE_DEG_1","ELEM",) ),
15670          b_nuage         =BLOC(condition="(METHODE=='NUAGE_DEG_1') or (METHODE=='NUAGE_DEG_0')",
15671                                fr="Lissage d'un nuage de points",
15672            CHAM_NO         =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_pres_c,cham_no_temp_r,
15673                                                  cham_no_epsi_r,cham_no_sief_r,cham_no_flux_r)),
15674            CHAM_NO_REFE    =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_pres_c,cham_no_temp_r,
15675                                                  cham_no_epsi_r,cham_no_sief_r,cham_no_flux_r)),
15676          ),
15677          b_elem          =BLOC(condition="METHODE=='ELEM'",
15678                               fr="Utilisation des fonctions de forme du maillage initial",
15679            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','LIST_INST','LIST_FREQ','LIST_ORDRE'),
15680                    EXCLUS('TOUT_CHAM','NOM_CHAM',), ),
15681            RESULTAT        =SIMP(statut='o',typ=(evol_ther,evol_elas,evol_noli,evol_char) ),
15682            MODELE_1        =SIMP(statut='o',typ=modele),
15683            MODELE_2        =SIMP(statut='o',typ=modele),
15684
15685            TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15686            NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
15687
15688            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15689            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
15690            LIST_ORDRE      =SIMP(statut='f',typ=listis),
15691            INST            =SIMP(statut='f',typ='R',max='**' ),
15692            LIST_INST       =SIMP(statut='f',typ=listr8),
15693            FREQ            =SIMP(statut='f',typ='R',max='**' ),
15694            LIST_FREQ       =SIMP(statut='f',typ=listr8),
15695          ),
15696
15697          VIS_A_VIS       =FACT(statut='f',min=1,max='**',
15698            regles=(AU_MOINS_UN('TOUT_1','GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
15699                    AU_MOINS_UN('TOUT_2','GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),),
15700            TOUT_1          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15701            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
15702            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
15703            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
15704            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
15705            TOUT_2          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15706            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
15707            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
15708            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
15709            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
15710          ),
15711
15712          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
15713 )  ;
15714 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
15715 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15716 # ======================================================================
15717 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15718 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15719 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15720 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15721 # (AT YOUR OPTION) ANY LATER VERSION.
15722 #
15723 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15724 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15725 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15726 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15727 #
15728 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15729 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15730 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15731 # ======================================================================
15732 def matr_asse_gene_prod(MATR_ASSE,MATR_ASSE_GENE,**args):
15733   if AsType(MATR_ASSE) == matr_asse_depl_r  : return matr_asse_gene_r
15734   if AsType(MATR_ASSE_GENE) == matr_asse_gene_r  : return matr_asse_gene_r
15735   if AsType(MATR_ASSE) == matr_asse_depl_c  : return matr_asse_gene_c
15736   if AsType(MATR_ASSE_GENE) == matr_asse_gene_c  : return matr_asse_gene_c
15737   raise AsException("type de concept resultat non prevu")
15738
15739 PROJ_MATR_BASE=OPER(nom="PROJ_MATR_BASE",op=  71,sd_prod=matr_asse_gene_prod,
15740                     fr="Projection d une matrice assemblée sur une base (modale ou de RITZ)",
15741                     docu="U4.63.12-f",reentrant='n',
15742             UIinfo={"groupes":("Matrices/vecteurs",)},
15743          regles=(UN_PARMI('MATR_ASSE','MATR_ASSE_GENE'),),
15744          BASE            =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene ) ),
15745          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
15746          MATR_ASSE       =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_depl_c) ),
15747          MATR_ASSE_GENE  =SIMP(statut='f',typ=(matr_asse_gene_r,matr_asse_gene_c) ),
15748 )  ;
15749
15750 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
15751 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15752 # ======================================================================
15753 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15754 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15755 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15756 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15757 # (AT YOUR OPTION) ANY LATER VERSION.
15758 #
15759 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15760 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15761 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15762 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15763 #
15764 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15765 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15766 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15767 # ======================================================================
15768 def proj_mesu_modal_prod(MODELE_MESURE,**args):
15769      vale=MODELE_MESURE['NOM_PARA']
15770      if  vale == 'INST'   : return tran_gene
15771      if  vale == 'FREQ'   : return harm_gene
15772      if  vale == 'DEFORMEE'   : return mode_gene
15773      raise AsException("type de concept resultat non prevu")
15774
15775 PROJ_MESU_MODAL=OPER(nom="PROJ_MESU_MODAL",op= 193,
15776                      sd_prod=proj_mesu_modal_prod,
15777                      docu="U4.73.01-b",reentrant='n',
15778             UIinfo={"groupes":("Résultats et champs",)},
15779                      fr="Calcul de coordonnees generalisees de mesure experimentale relatives a une base de projection",
15780
15781          MODELE_CALCUL   =FACT(statut='o',min=1,max=1,
15782            MODELE          =SIMP(statut='o',typ=(modele) ),
15783            BASE            =SIMP(statut='o',typ=(mode_meca,base_modale,) ),
15784                          ),
15785          MODELE_MESURE   =FACT(statut='o',min=1,max=1,
15786            MODELE          =SIMP(statut='o',typ=(modele) ),
15787            MESURE          =SIMP(statut='o',typ=(dyna_trans,dyna_harmo,base_modale,) ),
15788            NOM_PARA        =SIMP(statut='f',typ='TXM',defaut="INST",into=("INST","FREQ","DEFORMEE",),),
15789            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE","SIEF_NOEU","EPSI_NOEU_DEPL",) ),
15790                          ),
15791          CORR_MANU       =FACT(statut='f',min=1,max='**',
15792            regles=(PRESENT_PRESENT('NOEU_CALCUL','NOEU_MESURE'),),
15793            NOEU_CALCUL     =SIMP(statut='f',typ=no),
15794            NOEU_MESURE     =SIMP(statut='f',typ=no),
15795                          ),
15796          RESOLUTION      =FACT(statut='f',min=1,max=1,
15797            METHODE         =SIMP(statut='f',typ='TXM',defaut="LU",into=("LU","SVD",) ),
15798            b_svd =BLOC(condition="METHODE=='SVD'",
15799                        EPS=SIMP(statut='f',typ='R',defaut=0. ),
15800                       ),
15801            REGUL           =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","NORM_MIN","TIK_RELA",) ),
15802            b_regul =BLOC(condition="REGUL!='NON'",
15803                          regles=(PRESENT_ABSENT('COEF_PONDER','COEF_PONDER_F', ),),
15804                          COEF_PONDER =SIMP(statut='f',typ='R',max='**',defaut=0. ),
15805                          COEF_PONDER_F =SIMP(statut='f',typ=(fonction),max='**' ),
15806                         ),
15807              ),
15808
15809           );
15810 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
15811 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15812 # ======================================================================
15813 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15814 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15815 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15816 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15817 # (AT YOUR OPTION) ANY LATER VERSION.
15818 #
15819 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15820 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15821 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15822 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15823 #
15824 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15825 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15826 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15827 # ======================================================================
15828 PROJ_SPEC_BASE=OPER(nom="PROJ_SPEC_BASE",op= 146,sd_prod=tabl_intsp,docu="U4.63.14-d",reentrant='n',
15829             UIinfo={"groupes":("Matrices/vecteurs",)},
15830                     fr="Projection d un ou plusieurs spectres de turbulenc sur un ensemble de bases modales ",
15831       regles=(UN_PARMI('BASE_ELAS_FLUI','MODE_MECA','CHAM_NO'),
15832               ENSEMBLE('FREQ_INIT','FREQ_FIN','NB_POIN'),),
15833          SPEC_TURB       =SIMP(statut='o',typ=spectre,max='**' ),
15834          BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu ),
15835          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
15836          CHAM_NO         =SIMP(statut='f',typ=cham_no_depl_r ),
15837          FREQ_INIT       =SIMP(statut='f',typ='R',val_min=0.E+0 ),
15838          FREQ_FIN        =SIMP(statut='f',typ='R',val_min=0.E+0 ),
15839          NB_POIN         =SIMP(statut='f',typ='I' ),
15840          OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG")),
15841          GROUP_MA        =SIMP(statut='f',typ=grma),
15842 #  Quel est le type attendu derriere  MODELE_INTERFACE
15843          MODELE_INTERFACE=SIMP(statut='f',typ=modele),
15844          VECT_X          =SIMP(statut='f',typ='R',min=3,max=3 ),
15845          VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3 ),
15846          ORIG_AXE        =SIMP(statut='f',typ='R',min=3,max=3 ),
15847          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
15848 )  ;
15849 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
15850 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15851 # ======================================================================
15852 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15853 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15854 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15855 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15856 # (AT YOUR OPTION) ANY LATER VERSION.
15857 #
15858 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15859 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15860 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15861 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15862 #
15863 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15864 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15865 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15866 # ======================================================================
15867 PROJ_VECT_BASE=OPER(nom="PROJ_VECT_BASE",op=  72,sd_prod=vect_asse_gene,
15868                     fr="Projection d un vecteur assemblé sur une base (modale ou de RITZ)",
15869                     docu="U4.63.13-f",reentrant='n',
15870             UIinfo={"groupes":("Matrices/vecteurs",)},
15871          regles=(UN_PARMI('VECT_ASSE','VECT_ASSE_GENE'),),
15872          BASE            =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene ) ),
15873          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
15874          TYPE_VECT       =SIMP(statut='f',typ='TXM',defaut="FORC"),
15875          VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
15876          VECT_ASSE_GENE  =SIMP(statut='f',typ=vect_asse_gene ),
15877 )  ;
15878 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
15879 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15880 # ======================================================================
15881 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15882 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15883 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15884 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15885 # (AT YOUR OPTION) ANY LATER VERSION.
15886 #
15887 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15888 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15889 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15890 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15891 #
15892 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15893 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15894 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15895 # ======================================================================
15896 RECA_WEIBULL=OPER(nom="RECA_WEIBULL",op= 197,sd_prod=tabl_reca_weib,
15897                      fr=" ",docu="U4.82.06-b",reentrant='n',
15898             UIinfo={"groupes":("Post traitements",)},
15899          LIST_PARA       =SIMP(statut='o',typ='TXM',max='**',into=("SIGM_REFE","M",) ),
15900          RESU            =FACT(statut='o',min=1,max='**',
15901            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST',),
15902                    AU_MOINS_UN('TOUT','GROUP_MA','MAILLE', ),),
15903            EVOL_NOLI       =SIMP(statut='o',typ=(evol_noli) ),
15904            MODELE          =SIMP(statut='o',typ=(modele) ),
15905            CHAM_MATER      =SIMP(statut='o',typ=(cham_mater) ),
15906            TEMPE           =SIMP(statut='f',typ='R' ),
15907            LIST_INST_RUPT  =SIMP(statut='o',typ='R',max='**' ),
15908            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15909            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
15910            INST            =SIMP(statut='f',typ='R',max='**' ),
15911            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
15912            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15913            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
15914            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
15915            COEF_MULT       =SIMP(statut='f',typ='R',defaut= 1.E0 ),
15916                          ),
15917          OPTION          =SIMP(statut='f',typ='TXM',defaut="SIGM_ELGA",into=("SIGM_ELGA","SIGM_ELMOY",) ),
15918          CORR_PLAST      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
15919          METHODE         =SIMP(statut='f',typ='TXM',defaut="MAXI_VRAI",into=("MAXI_VRAI","REGR_LINE",) ),
15920          INCO_GLOB_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
15921          ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
15922          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
15923                        )  ;
15924 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
15925 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15926 # ======================================================================
15927 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15928 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15929 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15930 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15931 # (AT YOUR OPTION) ANY LATER VERSION.
15932 #
15933 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15934 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15935 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15936 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15937 #
15938 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15939 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15940 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15941 # ======================================================================
15942 # RESPONSABLE MCOURTOI M.COURTOIS
15943 def recu_fonction_prod(RESULTAT=None,TABLE=None,OBSTACLE=None,
15944                        RESU_GENE=None,BASE_ELAS_FLUI=None,CHAM_GD=None,
15945                        TYPE_RESU=None,**args):
15946   if AsType(RESULTAT) == dyna_harmo : return fonction_c
15947 #  On ne sait pas interpreter les deux conditions suivantes
15948   if TABLE != None :
15949      if TYPE_RESU != None :
15950         if TYPE_RESU == "FONCTION_C" : return fonction_c
15951         if TYPE_RESU == "FONCTION"   : return fonction
15952      else:
15953         return fonction
15954   if RESU_GENE      != None         : return fonction
15955   if BASE_ELAS_FLUI != None         : return fonction
15956   if RESULTAT       != None         : return fonction
15957   if CHAM_GD        != None         : return fonction
15958   if OBSTACLE       != None         : return fonction
15959   raise AsException("type de concept resultat non prevu")
15960
15961 RECU_FONCTION=OPER(nom="RECU_FONCTION",op=  90,sd_prod=recu_fonction_prod,
15962                    fr="Extraire sous forme d une fonction, l évolution temporelle d une composante d un champ ou d une table",
15963                    docu="U4.32.03-f",reentrant='n',
15964             UIinfo={"groupes":("Fonction",)},
15965          regles=(UN_PARMI('CHAM_GD','RESULTAT','RESU_GENE','TABLE','BASE_ELAS_FLUI','OBSTACLE'),),
15966
15967          CHAM_GD         =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r,cham_elem_sief_r,
15968                                                cham_elem_vari_r,cham_elem_epsi_r,cham_elem_flux_r,
15969                                                cham_elem_pres_r,cham_elem_meta_r ) ),
15970          RESULTAT        =SIMP(statut='f',typ=(evol_elas,dyna_trans,evol_noli,evol_ther,dyna_harmo ) ),
15971          RESU_GENE       =SIMP(statut='f',typ=tran_gene),
15972 #  concept table à créer
15973          TABLE           =SIMP(statut='f',typ=table),
15974          BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu),
15975          REPERE          =SIMP(statut='f',typ='TXM',into=("POLAIRE","GLOBAL") ),
15976          OBSTACLE        =SIMP(statut='f',typ=obstacle),
15977
15978          b_tran_gene = BLOC ( condition = "RESU_GENE != None",
15979                               fr="Récupération de la fonction concernant les chocs à partir d un concept TRAN_GENE",
15980             regles=(PRESENT_PRESENT('SOUS_STRUC','INTITULE'),
15981                     EXCLUS('MULT_APPUI','CORR_STAT'),),
15982              MULT_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15983              CORR_STAT       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15984              ACCE_MONO_APPUI =SIMP(statut='f',typ=fonction),
15985              PARA_X          =SIMP(statut='f',typ='TXM' ),
15986              PARA_Y          =SIMP(statut='f',typ='TXM' ),
15987              SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
15988              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
15989              INTITULE        =SIMP(statut='f',typ='TXM' ),
15990          ),
15991          b_base_elas_flui = BLOC ( condition = "BASE_ELAS_FLUI != None",
15992                                    fr="Récupération de la fonction à partir d un concept melasflu",
15993            regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE'),),
15994            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15995            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
15996            NUME_MODE       =SIMP(statut='o',typ='I' ),
15997            PARA_X          =SIMP(statut='o',typ='TXM',into=("VITE_FLU",) ),
15998            PARA_Y          =SIMP(statut='o',typ='TXM',into=("FREQ","AMOR") ),
15999          ),
16000          b_table = BLOC ( condition = "TABLE != None",fr="Récupération de la fonction à partir d un concept table",
16001            regles=(UN_PARMI('PARA_X','NOM_PARA_TABL'),
16002                    PRESENT_PRESENT('PARA_X','PARA_Y'),),
16003            PARA_X          =SIMP(statut='f',typ='TXM',
16004                                  fr="1ère colonne de la table qui définit la fonction à récupérer", ),
16005            PARA_Y          =SIMP(statut='f',typ='TXM',
16006                                  fr="2ème colonne de la table qui définit la fonction à récupérer", ),
16007            NOM_PARA_TABL   =SIMP(statut='f',typ='TXM',into=("FONCTION",),
16008                                  fr="Nom du paramètre de la table à qui est associé la fonction" ),
16009            b_nom_para_tabl = BLOC (condition = "NOM_PARA_TABL != None",
16010              TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="FONCTION",into=("FONCTION","FONCTION_C") ),
16011            ),
16012
16013            FILTRE          =FACT(statut='f',min=1,max='**',
16014               NOM_PARA        =SIMP(statut='o',typ='TXM' ),
16015               CRIT_COMP       =SIMP(statut='f',typ='TXM',defaut="EQ",
16016                                     into=("EQ","LT","GT","NE","LE","GE","VIDE",
16017                                           "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
16018               b_vale          =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
16019                  regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
16020                  VALE            =SIMP(statut='f',typ='R' ),
16021                  VALE_I          =SIMP(statut='f',typ='I' ),
16022                  VALE_C          =SIMP(statut='f',typ='C' ),
16023                  VALE_K          =SIMP(statut='f',typ='TXM' ),),
16024
16025               CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16026               PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16027            ),
16028          ),
16029 # RESULTAT
16030          b_resu = BLOC ( condition = "RESULTAT != None", fr="Opérandes en cas de RESULTAT",
16031            regles=(
16032 #    A voir par Mathieu Courtois : il existe de tests (SDNX300B) qui ne satisfont pas ce UN_PARMI
16033 #           UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','TOUT_INST','LIST_INST','FREQ','LIST_FREQ'),
16034                    AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC','NOM_PARA_RESU'),
16035                    PRESENT_PRESENT('MAILLE','NOM_CMP'),
16036                    PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
16037                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
16038                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16039                    PRESENT_PRESENT('POINT','NOM_CMP'),
16040                    EXCLUS('POINT','NOEUD'),
16041                    EXCLUS('GROUP_MA','MAILLE'),
16042                    EXCLUS('GROUP_NO','NOEUD'),
16043                    EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),
16044                    UN_PARMI('NOM_CHAM','NOM_PARA_RESU'),),
16045            NOM_CHAM        =SIMP(statut='f',typ='TXM' ),
16046            NOM_PARA_RESU   =SIMP(statut='f',typ='TXM' ),
16047            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16048            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
16049            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
16050            TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16051            INST            =SIMP(statut='f',typ='R',max='**'),
16052            LIST_INST       =SIMP(statut='f',typ=listr8 ),
16053            FREQ            =SIMP(statut='f',typ='R',max='**'),
16054            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
16055            b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
16056              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16057              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16058              INTERP_NUME     =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN") ),
16059            ),
16060            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
16061
16062            MAILLE          =SIMP(statut='f',typ=ma),
16063            GROUP_MA        =SIMP(statut='f',typ=grma),
16064            NOEUD           =SIMP(statut='f',typ=no),
16065            GROUP_NO        =SIMP(statut='f',typ=grno),
16066            POINT           =SIMP(statut='f',typ='I' ),
16067            SOUS_POINT      =SIMP(statut='f',typ='I' ),
16068            NOEUD_CHOC      =SIMP(statut='f',typ=no),
16069            GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
16070          ),
16071 # RESU_GENE
16072          b_resu_gene = BLOC ( condition = "RESU_GENE != None", fr="Opérandes en cas de RESU_GENE",
16073 #    A voir par Mathieu Courtois : il existe de tests (SDNX300B) qui ne satisfont pas ce UN_PARMI
16074 #           regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','TOUT_INST','LIST_INST','FREQ','LIST_FREQ'),),
16075            NOM_CHAM        =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE","PTEM") ),
16076            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16077            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
16078            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
16079            TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16080            INST            =SIMP(statut='f',typ='R',max='**'),
16081            LIST_INST       =SIMP(statut='f',typ=listr8 ),
16082            FREQ            =SIMP(statut='f',typ='R',max='**'),
16083            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
16084            b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
16085              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16086              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16087              INTERP_NUME     =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN") ),
16088            ),
16089            b_local_cham = BLOC ( condition = "NOM_CHAM!='PTEM'", fr="Opérandes de localisation du champ",
16090              regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
16091                      PRESENT_PRESENT('MAILLE','NOM_CMP'),
16092                      PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
16093                      PRESENT_PRESENT('NOEUD','NOM_CMP'),
16094                      PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16095                      PRESENT_PRESENT('POINT','NOM_CMP'),
16096                      EXCLUS('POINT','NOEUD'),
16097                      EXCLUS('GROUP_MA','MAILLE'),
16098                      EXCLUS('GROUP_NO','NOEUD'),
16099                      EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
16100              NOM_CMP         =SIMP(statut='f',typ='TXM' ),
16101
16102              MAILLE          =SIMP(statut='f',typ=ma),
16103              GROUP_MA        =SIMP(statut='f',typ=grma),
16104              NOEUD           =SIMP(statut='f',typ=no),
16105              GROUP_NO        =SIMP(statut='f',typ=grno),
16106              POINT           =SIMP(statut='f',typ='I' ),
16107              SOUS_POINT      =SIMP(statut='f',typ='I' ),
16108              NOEUD_CHOC      =SIMP(statut='f',typ=no),
16109              GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
16110            ),
16111          ),
16112 # CHAM_GD
16113          b_cham_gd = BLOC ( condition = "(CHAM_GD != None)", fr="Opérandes en cas de CHAM_GD",
16114
16115            regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
16116                    PRESENT_PRESENT('MAILLE','NOM_CMP'),
16117                    PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
16118                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
16119                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16120                    PRESENT_PRESENT('POINT','NOM_CMP'),
16121                    EXCLUS('POINT','NOEUD'),
16122                    EXCLUS('GROUP_MA','MAILLE'),
16123                    EXCLUS('GROUP_NO','NOEUD'),
16124                    EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
16125            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
16126
16127            MAILLE          =SIMP(statut='f',typ=ma),
16128            GROUP_MA        =SIMP(statut='f',typ=grma),
16129            NOEUD           =SIMP(statut='f',typ=no),
16130            GROUP_NO        =SIMP(statut='f',typ=grno),
16131            POINT           =SIMP(statut='f',typ='I' ),
16132            SOUS_POINT      =SIMP(statut='f',typ='I' ),
16133            NOEUD_CHOC      =SIMP(statut='f',typ=no),
16134            GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
16135          ),
16136 ###
16137          NOM_PARA        =SIMP(statut='f',typ='TXM',
16138                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
16139                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC") ),
16140          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
16141          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
16142          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
16143          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
16144
16145          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
16146          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
16147 )  ;
16148 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
16149 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16150 # ======================================================================
16151 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16152 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16153 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16154 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16155 # (AT YOUR OPTION) ANY LATER VERSION.
16156 #
16157 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16158 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16159 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16160 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16161 #
16162 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16163 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16164 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16165 # ======================================================================
16166 RECU_GENE=OPER(nom="RECU_GENE",op=  76,sd_prod=vect_asse_gene,docu="U4.71.03-f",reentrant='n',
16167             UIinfo={"groupes":("Résultats et champs",)},
16168                fr="Récupération d un champ de grandeur à partir d un résultat en coordonnées généralisées",
16169          RESU_GENE       =SIMP(statut='o',typ=tran_gene ),
16170          INST            =SIMP(statut='o',typ='R' ),
16171          NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE") ),
16172          INTERPOL        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
16173          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF" ,into=("ABSOLU","RELATIF") ),
16174          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16175 )  ;
16176 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
16177 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16178 # ======================================================================
16179 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16180 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16181 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16182 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16183 # (AT YOUR OPTION) ANY LATER VERSION.
16184 #
16185 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16186 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16187 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16188 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16189 #
16190 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16191 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16192 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16193 # ======================================================================
16194 # RESPONSABLE VABHHTS J.PELLET
16195 RECU_TABLE=OPER(nom="RECU_TABLE",op= 174,sd_prod=table,
16196                 fr=" ",docu="U4.71.02-b",reentrant='n',
16197             UIinfo={"groupes":("Résultats et champs",)},
16198          CO              =SIMP(statut='o',typ=assd),
16199          regles=(UN_PARMI('NOM_TABLE','NOM_PARA')),
16200          NOM_TABLE       =SIMP(statut='f',typ='TXM' ),
16201          NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
16202          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
16203 )  ;
16204 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
16205 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16206 # ======================================================================
16207 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16208 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16209 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16210 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16211 # (AT YOUR OPTION) ANY LATER VERSION.
16212 #
16213 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16214 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16215 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16216 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16217 #
16218 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16219 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16220 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16221 # ======================================================================
16222 def reso_grad_prod(MATR_ASSE,**args ):
16223   if AsType(MATR_ASSE) == matr_asse_depl_r : return cham_no_depl_r
16224   if AsType(MATR_ASSE) == matr_asse_temp_r : return cham_no_temp_r
16225   if AsType(MATR_ASSE) == matr_asse_pres_r : return cham_no_pres_r
16226   raise AsException("type de concept resultat non prevu")
16227
16228 RESO_GRAD=OPER(nom="RESO_GRAD",op=  84,sd_prod=reso_grad_prod,
16229                fr="Résolution par la méthode du gradient conjugué préconditionné",
16230                docu="U4.55.04-f",reentrant='f',
16231             UIinfo={"groupes":("Résolution",)},
16232          MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
16233          CHAM_NO         =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r ) ),
16234          CHAM_CINE       =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r ) ),
16235          MATR_FACT       =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
16236          NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
16237          REPRISE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
16238          RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1E-6 ),
16239          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
16240 )  ;
16241 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
16242 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16243 # ======================================================================
16244 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16245 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16246 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16247 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16248 # (AT YOUR OPTION) ANY LATER VERSION.
16249 #
16250 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16251 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16252 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16253 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16254 #
16255 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16256 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16257 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16258 # ======================================================================
16259 # RESPONSABLE VABHHTS J.PELLET
16260 def reso_ldlt_prod(CHAM_NO,**args ):
16261   if AsType(CHAM_NO) == cham_no_temp_r : return cham_no_temp_r
16262   if AsType(CHAM_NO) == cham_no_depl_r : return cham_no_depl_r
16263   if AsType(CHAM_NO) == cham_no_pres_r : return cham_no_pres_r
16264   if AsType(CHAM_NO) == cham_no_temp_c : return cham_no_temp_c
16265   if AsType(CHAM_NO) == cham_no_depl_c : return cham_no_depl_c
16266   if AsType(CHAM_NO) == cham_no_pres_c : return cham_no_pres_c
16267   raise AsException("type de concept resultat non prevu")
16268
16269 RESO_LDLT=OPER(nom="RESO_LDLT",op=15,sd_prod=reso_ldlt_prod,reentrant='f',
16270                fr="Résolution en place ou hors place d un système factorisé",docu="U4.55.02-g",
16271             UIinfo={"groupes":("Résolution",)},
16272          MATR_FACT       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
16273                                                matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
16274          CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r,
16275                                                cham_no_temp_c,cham_no_depl_c,cham_no_pres_c) ),
16276          CHAM_CINE       =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_c) ),
16277          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
16278          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
16279 )  ;
16280 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
16281 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16282 # ======================================================================
16283 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16284 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16285 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16286 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16287 # (AT YOUR OPTION) ANY LATER VERSION.
16288 #
16289 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16290 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16291 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16292 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16293 #
16294 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16295 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16296 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16297 # ======================================================================
16298 # RESPONSABLE BOYERE E.BOYERE
16299 def rest_base_phys_prod(RESU_GENE,RESULTAT,**args ):
16300   if AsType(RESU_GENE) == tran_gene : return dyna_trans
16301   if AsType(RESU_GENE) == mode_gene : return mode_meca
16302   if AsType(RESU_GENE) == mode_cycl : return mode_meca
16303   if AsType(RESU_GENE) == harm_gene : return dyna_harmo
16304   if AsType(RESULTAT)  == mode_meca : return mode_meca
16305   raise AsException("type de concept resultat non prevu")
16306
16307 REST_BASE_PHYS=OPER(nom="REST_BASE_PHYS",op=  75,sd_prod=rest_base_phys_prod,
16308                     fr="Restituer dans la base physique des résultats en coordonnées généralisées",
16309                     docu="U4.63.21-f",reentrant='n',
16310             UIinfo={"groupes":("Matrices/vecteurs",)},
16311         regles=(UN_PARMI('RESU_GENE','RESULTAT'),
16312                 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','TOUT_INST'),
16313                 EXCLUS('TOUT_INST','NUME_ORDRE','INST','LIST_INST','TOUT_ORDRE'),
16314 #  Doc U à revoir
16315                 EXCLUS('MULT_APPUI','CORR_STAT'),
16316                 EXCLUS('MULT_APPUI','NOEUD','GROUP_NO'),
16317                 EXCLUS('CORR_STAT','NOEUD','GROUP_NO'),
16318                 EXCLUS('NOEUD','GROUP_NO'),
16319                 PRESENT_PRESENT('RESULTAT','SQUELETTE'),
16320                 PRESENT_PRESENT('ACCE_MONO_APPUI','DIRECTION'),),
16321          RESU_GENE       =SIMP(statut='f',typ=(tran_gene,mode_gene,mode_cycl,harm_gene ) ),
16322          RESULTAT        =SIMP(statut='f',typ=mode_meca ),
16323
16324          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
16325          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16326          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
16327          TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16328          INST            =SIMP(statut='f',typ='R',max='**' ),
16329          LIST_INST       =SIMP(statut='f',typ=listr8 ),
16330          FREQ            =SIMP(statut='f',typ='R',max='**' ),
16331          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
16332          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
16333          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16334          INTERPOL        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
16335          MULT_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16336          CORR_STAT       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16337          NOM_CHAM        =SIMP(statut='f',typ='TXM',max=8,defaut="ACCE",
16338                                into=("DEPL","VITE","ACCE","ACCE_ABSOLU","EFGE_ELNO_DEPL","SIPO_ELNO_DEPL",
16339                                      "SIGM_ELNO_DEPL","FORC_NODA",) ),
16340          TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16341          GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
16342          NOEUD           =SIMP(statut='f',typ=no,max='**'),
16343
16344          ACCE_MONO_APPUI =SIMP(statut='f',typ=fonction),
16345          DIRECTION       =SIMP(statut='f',typ='R',max='**' ),
16346
16347          SQUELETTE       =SIMP(statut='f',typ=squelette ),
16348          SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
16349          SECTEUR         =SIMP(statut='f',typ='I',defaut= 1 ),
16350          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
16351 )  ;
16352 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
16353 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16354 # ======================================================================
16355 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16356 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16357 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16358 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16359 # (AT YOUR OPTION) ANY LATER VERSION.
16360 #
16361 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16362 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16363 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16364 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16365 #
16366 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16367 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16368 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16369 # ======================================================================
16370 REST_SPEC_PHYS=OPER(nom="REST_SPEC_PHYS",op= 148,sd_prod=tabl_intsp,
16371                     docu="U4.63.22-d",reentrant='n',
16372             UIinfo={"groupes":("Matrices/vecteurs",)},
16373          regles=(AU_MOINS_UN('BASE_ELAS_FLUI','MODE_MECA'),),
16374          BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu ),
16375          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
16376          BANDE           =SIMP(statut='f',typ='R',min=2,max=2 ),
16377          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
16378          INTE_SPEC_GENE  =SIMP(statut='o',typ=tabl_intsp ),
16379          NOEUD           =SIMP(statut='o',typ=no,max='**'),
16380          NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
16381          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16382          NOM_CHAM        =SIMP(statut='o',typ='TXM',max=7,
16383                                into=("DEPL","VITE","ACCE","EFGE_ELNO_DEPL",
16384                                      "SIPO_ELNO_DEPL","SIGM_ELNO_DEPL","FORC_NODA") ),
16385          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc), ),
16386          EXCIT           =FACT(statut='f',max=1,
16387            NOEUD           =SIMP(statut='o',typ=no,max='**'),
16388            NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
16389          ),
16390          MOUVEMENT       =SIMP(statut='f',typ='TXM',defaut="ABSOLU",into=("RELATIF","ABSOLU","DIFFERENTIEL") ),
16391          OPTION          =SIMP(statut='f',typ='TXM',defaut="DIAG_DIAG",
16392                                into=("DIAG_TOUT","DIAG_DIAG","TOUT_TOUT","TOUT_DIAG") ),
16393          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
16394 )  ;
16395 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
16396 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16397 # ======================================================================
16398 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16399 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16400 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16401 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16402 # (AT YOUR OPTION) ANY LATER VERSION.
16403 #
16404 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16405 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16406 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16407 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16408 #
16409 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16410 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16411 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16412 # ======================================================================
16413 RETOUR=PROC(nom="RETOUR",op= -2,docu="U4.13.02-f",
16414             UIinfo={"groupes":("Gestion du travail",)},
16415             fr="Retour au fichier de commandes appelant",
16416 ) ;
16417 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
16418 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16419 # ======================================================================
16420 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16421 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16422 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16423 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16424 # (AT YOUR OPTION) ANY LATER VERSION.
16425 #
16426 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16427 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16428 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16429 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16430 #
16431 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16432 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16433 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16434 # ======================================================================
16435 #  RESPONSABLE ADBHHVV V.CANO
16436 STAT_NON_LINE=OPER(nom="STAT_NON_LINE",op=70,sd_prod=evol_noli,
16437                    fr="Analyse mécanique statique non linéaire",
16438                    docu="U4.51.03-f",reentrant='f',
16439             UIinfo={"groupes":("Résolution",)},
16440          regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS'),),
16441          MODELE          =SIMP(statut='o',typ=modele),
16442          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
16443          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
16444          EXCIT           =FACT(statut='o',min=1,max='**',
16445            CHARGE          =SIMP(statut='o',typ=char_meca),
16446            FONC_MULT       =SIMP(statut='f',typ=fonction),
16447            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
16448                                  into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
16449          ),
16450          VARI_COMM           =FACT(statut='f',
16451            regles=(AU_MOINS_UN('IRRA',),),
16452            IRRA     =SIMP(statut='f',typ=evol_varc),
16453          ),
16454          COMP_INCR       =FACT(statut='f',min=1,max='**',
16455            RELATION        =SIMP(statut='o',typ='TXM',defaut="VMIS_ISOT_TRAC",
16456                                  into=( "ELAS",
16457                                         "VMIS_ISOT_TRAC",
16458                                         "VMIS_ISOT_LINE",
16459                                         "VMIS_ECMI_TRAC",
16460                                         "VMIS_ECMI_LINE",
16461                                         "LABORD_1D",
16462                                         "ENDO_FRAGILE",
16463                                         "ENDO_ISOT_BETON",
16464                                         "MAZARS",
16465                                         "RUPT_FRAG",
16466                                         "BARENBLATT",
16467                                         "META_P_IL",
16468                                         "META_P_IL_PT",
16469                                         "META_P_IL_RE",
16470                                         "META_P_IL_PT_RE",
16471                                         "META_V_IL",
16472                                         "META_V_IL_PT",
16473                                         "META_V_IL_RE",
16474                                         "META_V_IL_PT_RE",
16475                                         "META_P_INL",
16476                                         "META_P_INL_PT",
16477                                         "META_P_INL_RE",
16478                                         "META_P_INL_PT_RE",
16479                                         "META_V_INL",
16480                                         "META_V_INL_PT",
16481                                         "META_V_INL_RE",
16482                                         "META_V_INL_PT_RE",
16483                                         "META_P_CL",
16484                                         "META_P_CL_PT",
16485                                         "META_P_CL_RE",
16486                                         "META_P_CL_PT_RE",
16487                                         "META_V_CL",
16488                                         "META_V_CL_PT",
16489                                         "META_V_CL_RE",
16490                                         "META_V_CL_PT_RE",
16491                                         "VMIS_CINE_LINE",
16492                                         "VISC_TAHERI",
16493                                         "CHABOCHE",
16494 #DEBR                                        "VISCOCHAB",
16495                                         "VISC_CIN1_CHAB",
16496                                         "VISC_CIN2_CHAB",
16497                                         "POLY_CFC",
16498 #DEBR                                        "LMARC",
16499                                         "ROUSSELIER",
16500                                         "ROUSS_PR",
16501                                         "ROUSS_VISC",
16502                                         "VMIS_POU_LINE",
16503                                         "VMIS_POU_FLEJOU",
16504                                         "COULOMB",
16505                                         "ARME",
16506                                         "ASSE_CORN",
16507                                         "NORTON_HOFF",
16508                                         "LEMAITRE",
16509                                         "ZIRC_CYRA2",
16510                                         "ZIRC_EPRI",
16511                                         "ASSE_COMBU",
16512 #DEBR                                        "VENDOCHAB",
16513 #DEBR                                        "NADAI_B",
16514                                         "DIS_CONTACT",
16515                                         "DIS_CHOC",
16516                                         "DIS_GOUJ2E_PLAS",
16517                                         "DIS_GOUJ2E_ELAS",
16518                                         "GRILLE_ISOT_LINE",
16519                                         "GRILLE_CINE_LINE",
16520                                         "GRILLE_PINTO_MEN",
16521                                         "PINTO_MENEGOTTO",
16522                                         "CJS",
16523                                         "CAM_CLAY",
16524                                         "LAIGLE",
16525 #DEBR                                        "OHNO",
16526                                         "GRANGER_FP",
16527                                         "GRANGER_FP_V",
16528                                         "BAZANT_FD",
16529                                         "BETON_DOUBLE_DP",
16530                                         "KIT_HM",
16531                                         "KIT_HHM",
16532                                         "KIT_THH",
16533                                         "KIT_THV",
16534                                         "KIT_THM",
16535                                         "KIT_THHM",
16536                                         "VMIS_ASYM_LINE",
16537                                         "ELAS_THM",
16538 #DEBR                                        "SURF_ETAT_NSAT",
16539 #DEBR                                        "SURF_ETAT_SATU",
16540 #DEBR                                        "CAM_CLAY_THM",
16541                                         "KIT_DDI",
16542                                      ) ),
16543           ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16544           VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16545           VMIS_ISOT_LINE  =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16546           VMIS_ECMI_TRAC  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
16547           VMIS_ECMI_LINE  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
16548           LABORD_1D   =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
16549           ENDO_FRAGILE    =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16550           ENDO_ISOT_BETON =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16551           MAZARS          =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16552           RUPT_FRAG       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16553           BARENBLATT      =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16554           META_P_IL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16555           META_P_IL_PT       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16556           META_P_IL_RE       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16557           META_P_IL_PT_RE    =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16558           META_V_IL          =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16559           META_V_IL_PT       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16560           META_V_IL_RE       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16561           META_V_IL_PT_RE    =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16562           META_P_INL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16563           META_P_INL_PT      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16564           META_P_INL_RE      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16565           META_P_INL_PT_RE   =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16566           META_V_INL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16567           META_V_INL_PT      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16568           META_V_INL_RE      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16569           META_V_INL_PT_RE   =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16570           META_P_CL          =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16571           META_P_CL_PT       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16572           META_P_CL_RE       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16573           META_P_CL_PT_RE    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16574           META_V_CL          =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16575           META_V_CL_PT       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16576           META_V_CL_RE       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16577           META_V_CL_PT_RE    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16578           VMIS_CINE_LINE  =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
16579           CHABOCHE        =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
16580           VISCOCHAB       =SIMP(statut='c',typ='I',defaut=28,into=(28,)),
16581           VISC_CIN1_CHAB  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
16582           VISC_CIN2_CHAB  =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
16583           POLY_CFC        =SIMP(statut='c',typ='I',defaut=1688,into=(1688,)),
16584           LMARC           =SIMP(statut='c',typ='I',defaut=20,into=(20,)),
16585           VISC_TAHERI     =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
16586           ROUSSELIER      =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
16587           ROUSS_PR        =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16588           ROUSS_VISC      =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16589           VMIS_POU_LINE   =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
16590           VMIS_POU_FLEJOU =SIMP(statut='c',typ='I',defaut=9 ,into=(9,)),
16591           COULOMB         =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16592           ASSE_CORN       =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16593           ARME            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16594           NORTON_HOFF     =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16595           LEMAITRE        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16596           ZIRC_CYRA2      =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16597           ZIRC_EPRI       =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16598           ASSE_COMBU      =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
16599           NADAI_B         =SIMP(statut='c',typ='I',defaut=34,into=(34,)),
16600           VENDOCHAB       =SIMP(statut='c',typ='I',defaut=10,into=(10,)),
16601           GRILLE_ISOT_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16602           GRILLE_CINE_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16603           GRILLE_PINTO_MEN=SIMP(statut='c',typ='I',defaut=16,into=(16,)),
16604           DIS_CONTACT     =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16605           DIS_CHOC        =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
16606           DIS_GOUJ2E_PLAS =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16607           DIS_GOUJ2E_ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16608           PINTO_MENEGOTTO =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
16609           CJS             =SIMP(statut='c',typ='I',defaut=16,into=(16,)),
16610           CAM_CLAY        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16611           LAIGLE          =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
16612           OHNO            =SIMP(statut='c',typ='I',defaut=32,into=(32,)),
16613           GRANGER_FP      =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
16614           GRANGER_FP_V    =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
16615           BAZANT_FD       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16616           BETON_DOUBLE_DP =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16617           KIT_HM          =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16618           KIT_HHM         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16619           KIT_THH         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16620           KIT_THV         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16621           KIT_THM         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16622           KIT_THHM        =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16623           VMIS_ASYM_LINE  =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16624
16625            RELATION_KIT    =SIMP(statut='f',typ='TXM',max='**',
16626                                  into=(
16627 # MECA
16628                                        "ELAS",
16629                                        "CJS",
16630                                        "CAM_CLAY",
16631                                        "LAIGLE",
16632                                        "ELAS_THM",
16633 #DEBR                                       "SURF_ETAT_NSAT",
16634 #DEBR                                       "SURF_ETAT_SATU",
16635 #DEBR                                       "CAM_CLAY_THM",
16636 # THMC
16637                                        "GAZ",
16638                                        "LIQU_SATU",
16639 #DEBR                                       "LIQU_SATU_GAT",
16640                                        "LIQU_GAZ_ATM",
16641                                        "LIQU_VAPE_GAZ",
16642                                        "LIQU_VAPE",
16643 #DEBR                                       "LIQU_NSAT_GAT",
16644                                        "LIQU_GAZ",
16645 # THER
16646                                        "THER_HOMO",
16647                                        "THER_POLY",
16648 # HYDR
16649                                        "HYDR_UTIL",
16650                                        "HYDR",
16651 # MECA_META
16652                                        "ACIER",
16653                                        "ZIRC",
16654 # MECA KIT_DDI
16655                                        "VMIS_ISOT_TRAC",
16656                                        "VMIS_ISOT_LINE",
16657                                        "VMIS_ISOT_CINE",
16658                                        "GRANGER_FP",
16659                                        "GRANGER_FP_V",
16660                                        "ROUSS_PR",
16661                                        "CHABOCHE",
16662 #DEBR                                       "OHNO",
16663 #DEBR                                       "NADAI_B",
16664                                        "BETON_DOUBLE_DP",
16665                                        ) ),
16666            ELAS_THM        =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16667            SURF_ETAT_NSAT  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16668            SURF_ETAT_SATU  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16669            CAM_CLAY_THM    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16670            GAZ             =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16671            LIQU_SATU       =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16672            LIQU_SATU_GAT   =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16673            LIQU_GAZ_ATM    =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16674            LIQU_VAPE_GAZ   =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16675            LIQU_VAPE       =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16676            LIQU_NSAT_GAT   =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16677            LIQU_GAZ        =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16678            THER_HOMO       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16679            THER_POLY       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16680            HYDR_UTIL       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16681            HYDR            =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16682            ACIER           =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
16683            ZIRC            =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16684
16685            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC","SIMO_MIEHE","GREEN_GR","GREEN",)),
16686            ALGO_C_PLAN     =SIMP(statut='f',typ='TXM',defaut="ANALYTIQUE",into=("DEBORST","ANALYTIQUE",)),
16687       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
16688            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16689            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
16690            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16691          ),
16692          COMP_ELAS       =FACT(statut='f',min=1,max='**',
16693            RELATION        =SIMP(statut='o',typ='TXM',defaut="ELAS",
16694                                  into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
16695                                        "ELAS_POUTRE_GR","CABLE")),
16696            ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16697            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16698            ELAS_VMIS_LINE  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16699            ELAS_POUTRE_GR  =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16700            CABLE           =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16701            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GREEN","GREEN_GR",) ),
16702       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
16703            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16704            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
16705            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16706          ),
16707          ETAT_INIT       =FACT(statut='f',min=1,max=1,
16708            regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI','VARI_NON_LOCAL',),
16709                    EXCLUS('EVOL_NOLI','DEPL',),
16710                    EXCLUS('EVOL_NOLI','SIGM',),
16711                    EXCLUS('EVOL_NOLI','VARI',),
16712                    EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
16713                    EXCLUS('NUME_ORDRE','INST'), ),
16714            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
16715            SIGM            =SIMP(statut='f',typ=(cham_elem_sief_r,carte_sief_r)),
16716            VARI            =SIMP(statut='f',typ=cham_elem_vari_r),
16717            VARI_NON_LOCAL  =SIMP(statut='f',typ=cham_no_vanl_r),
16718            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
16719            NUME_ORDRE      =SIMP(statut='f',typ='I'),
16720            INST            =SIMP(statut='f',typ='R'),
16721            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16722            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16723            NUME_DIDI       =SIMP(statut='f',typ='I'),
16724            INST_ETAT_INIT  =SIMP(statut='f',typ='R'),
16725          ),
16726          INCREMENT       =FACT(statut='o',min=1,max=1,
16727            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
16728                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
16729            LIST_INST       =SIMP(statut='o',typ=listr8),
16730            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
16731                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
16732            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
16733            INST_INIT       =SIMP(statut='f',typ='R'),
16734            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
16735            INST_FIN        =SIMP(statut='f',typ='R'),
16736            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
16737            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
16738            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
16739            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
16740            OPTI_LIST_INST  =SIMP(statut='f',typ='TXM',into=("INCR_MAXI",),),
16741            NOM_CHAM        =SIMP(statut='f',typ='TXM',),
16742            NOM_CMP         =SIMP(statut='f',typ='TXM',),
16743            VALE            =SIMP(statut='f',typ='R'),
16744          ),
16745          NEWTON          =FACT(statut='d',min=1,max=1,
16746            REAC_INCR       =SIMP(statut='f',typ='I',defaut= 1 ),
16747            PREDICTION      =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
16748            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
16749            PAS_MINI_ELAS   =SIMP(statut='f',typ='R',defaut=0.0E+0),
16750            REAC_ITER       =SIMP(statut='f',typ='I',defaut=0),
16751            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
16752          ),
16753          RECH_LINEAIRE   =FACT(statut='f',min=1,max=1,
16754            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
16755            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 3),
16756          ),
16757          PILOTAGE        =FACT(statut='f',min=1,max=1,
16758            regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
16759            TYPE    =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","PRED_ELAS_INCR","DEFORMATION","ANA_LIM") ),
16760            COEF_MULT       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
16761            ETA_PILO_MAX    =SIMP(statut='f',typ='R'),
16762            ETA_PILO_MIN    =SIMP(statut='f',typ='R'),
16763            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16764            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
16765            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16766            NOEUD           =SIMP(statut='f',typ=no,max='**'),
16767            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
16768            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**' ),
16769                          ),
16770          CONVERGENCE     =FACT(statut='d',min=1,max=1,
16771            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
16772            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
16773            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
16774            ITER_GLOB_ELAS  =SIMP(statut='f',typ='I',defaut=25),
16775            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
16776            RESI_INTE_RELA  =SIMP(statut='f',typ='R'
16777                                 ,defaut= 1.0E-6),
16778            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
16779            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut= 0 ),
16780            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
16781            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
16782                                  into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
16783          ),
16784          PARM_THETA      =SIMP(statut='f',typ='R'
16785                               ,defaut= 1. ),
16786          SOLVEUR         =FACT(statut='d',min=1,max=1,
16787            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
16788            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
16789              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
16790            ),
16791            b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
16792              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
16793            ),
16794            b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
16795                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
16796              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
16797              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","DECOUPE") ),
16798            ),
16799            b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
16800              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
16801              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
16802              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
16803              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
16804              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
16805            ),
16806 #  A quoi sert eps
16807            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
16808            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
16809          ),
16810          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
16811            regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
16812                    EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
16813            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
16814            INST            =SIMP(statut='f',typ='R',max='**' ),
16815            PAS_ARCH        =SIMP(statut='f',typ='I' ),
16816            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
16817            ARCH_ETAT_INIT  =SIMP(statut='f',typ='TXM',into=("OUI",)),
16818            NUME_INIT       =SIMP(statut='f',typ='I'),
16819            DETR_NUME_SUIV  =SIMP(statut='f',typ='TXM',into=("OUI",)),
16820            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","SIEF_ELGA","VARI_ELGA",
16821                                                                      "VARI_NON_LOCAL","LANL_ELGA")),
16822          ),
16823          OBSERVATION     =FACT(statut='f',min=1,max='**',
16824            regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
16825                    PRESENT_PRESENT('MAILLE','POINT'),),
16826            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',into=("DEPL","VITE","ACCE","SIEF_ELGA",
16827                                               "VARI_ELGA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU")),
16828            NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
16829            LIST_ARCH       =SIMP(statut='f',typ=listis),
16830            LIST_INST       =SIMP(statut='f',typ=listr8),
16831            INST            =SIMP(statut='f',typ='R',max='**' ),
16832            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16833            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16834            PAS_OBSE        =SIMP(statut='f',typ='I'),
16835            NOEUD           =SIMP(statut='f',typ=no,max='**'),
16836            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
16837            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16838            POINT           =SIMP(statut='f',typ='I',max='**'),
16839          ),
16840            SOLV_NON_LOCAL  =FACT(statut='f',min=1,max=1,
16841              METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
16842              b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
16843                RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
16844              ),
16845              b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
16846                RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
16847              ),
16848              b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
16849                                     fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
16850                NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
16851                STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
16852              ),
16853              b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
16854                PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
16855                NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
16856                RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
16857                NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
16858              ),
16859              EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
16860            ),
16861            LAGR_NON_LOCAL  =FACT(statut='f',max=1,
16862              ITER_DUAL_MAXI  =SIMP(statut='f',typ='I',defaut= 50),
16863              RESI_DUAL_ABSO  =SIMP(statut='o',typ='R'),
16864              RESI_PRIM_ABSO  =SIMP(statut='o',typ='R'),
16865              R               =SIMP(statut='f',typ='R',defaut= 1000.),
16866              ITER_PRIM_MAXI  =SIMP(statut='f',typ='I',defaut= 10),
16867            ),
16868          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
16869          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
16870  )  ;
16871 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
16872 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16873 # ======================================================================
16874 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16875 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16876 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16877 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16878 # (AT YOUR OPTION) ANY LATER VERSION.
16879 #
16880 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16881 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16882 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16883 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16884 #
16885 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16886 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16887 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16888 # ======================================================================
16889 # RESPONSABLE MCOURTOI M.COURTOIS
16890 TEST_FONCTION=PROC(nom="TEST_FONCTION",op= 135,fr="Extraction d une valeur numérique ou d un attribut de fonction",
16891                    docu="U4.92.02-f",
16892             UIinfo={"groupes":("Impression",)},
16893          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
16894          TEST_NOOK       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
16895          VALEUR          =FACT(statut='f',min=1,max='**',
16896                                fr="Tester la valeur d une fonction ou d une nappe",
16897            regles=(UN_PARMI('VALE_REFE','VALE_REFE_C', ),),
16898            FONCTION        =SIMP(statut='o',typ=fonction ),
16899            NOM_PARA        =SIMP(statut='f',typ='TXM',max=2),
16900            VALE_PARA       =SIMP(statut='o',typ='R',max=2),
16901            VALE_REFE       =SIMP(statut='f',typ='R' ),
16902            VALE_REFE_C     =SIMP(statut='f',typ='C' ),
16903            CRITERE         =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
16904                                  defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16905            PRECISION       =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
16906                                  defaut= 1.E-3 ),
16907            REFERENCE       =SIMP(statut='f',typ='TXM',
16908                                  into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
16909            b_version = BLOC (condition = "REFERENCE == 'NON_REGRESSION'",
16910              VERSION         =SIMP(statut='f',typ='TXM' ),
16911            ),
16912          ),
16913          ATTRIBUT        =FACT(statut='f',min=1,max='**',
16914                                fr="Tester la valeur d un attribut d une fonction ou d''une nappe",
16915            FONCTION        =SIMP(statut='o',typ=fonction ),
16916            PARA            =SIMP(statut='f',typ='R' ),
16917            CRIT_PARA       =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16918            PREC_PARA       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16919            ATTR            =SIMP(statut='o',typ='TXM',
16920                                  into=("NOM_PARA","NOM_RESU","PROL_DROITE","PROL_GAUCHE","INTERPOL",
16921                                        "PROL_GAUCHE_FONC","PROL_DROITE_FONC","INTERPOL_FONC","NOM_PARA_FONC") ),
16922            ATTR_REFE       =SIMP(statut='o',typ='TXM' ),
16923            REFERENCE       =SIMP(statut='f',typ='TXM',
16924                                  into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
16925            b_version       =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
16926              VERSION         =SIMP(statut='f',typ='TXM' ),
16927            ),
16928          ),
16929          TABL_INTSP      =FACT(statut='f',min=1,max='**',
16930                                fr="Tester la valeur d une fonction contenue dans une table interspectrale",
16931            regles=(UN_PARMI('NUME_ORDRE_I','NOEUD_I'),),
16932            INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
16933            NOEUD_I         =SIMP(statut='f',typ=no),
16934            NUME_ORDRE_I    =SIMP(statut='f',typ='I' ),
16935            b_nume_ordre_i = BLOC (condition = "NUME_ORDRE_I != None",
16936              NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
16937            ),
16938            b_noeud_i = BLOC (condition = "NOEUD_I != None",
16939              NOEUD_J         =SIMP(statut='o',typ=no),
16940              NOM_CMP_I       =SIMP(statut='o',typ='TXM' ),
16941              NOM_CMP_J       =SIMP(statut='o',typ='TXM' ),
16942            ),
16943            NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
16944            VALE_PARA       =SIMP(statut='o',typ='R' ),
16945            VALE_REFE_C     =SIMP(statut='o',typ='C' ),
16946            CRITERE         =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
16947                                  defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16948            PRECISION       =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
16949                                  defaut= 1.E-3 ),
16950            REFERENCE       =SIMP(statut='f',typ='TXM',
16951                                  into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
16952            b_version       =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
16953              VERSION         =SIMP(statut='f',typ='TXM' ),
16954            ),
16955          ),
16956 )  ;
16957 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
16958 # RESPONSABLE VABHHTS J.PELLET
16959 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16960 # ======================================================================
16961 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16962 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16963 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16964 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16965 # (AT YOUR OPTION) ANY LATER VERSION.
16966 #
16967 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16968 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16969 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16970 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16971 #
16972 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16973 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16974 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16975 #
16976 #
16977 # ======================================================================
16978 TEST_RESU=PROC(nom="TEST_RESU",op=23,docu="U4.92.01-g",
16979             UIinfo={"groupes":("Impression",)},
16980          fr="Extraction d une valeur et comparaison à une valeur de référence",
16981          regles=(AU_MOINS_UN('CHAM_NO','CHAM_ELEM','RESU','OBJET')),
16982          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
16983
16984          CHAM_NO         =FACT(statut='f',min=1,max='**',
16985            regles=(UN_PARMI('NOEUD','GROUP_NO','TYPE_TEST'),
16986                    EXCLUS('NOEUD','GROUP_NO'),
16987                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
16988                    PRESENT_PRESENT( 'GROUP_NO','NOM_CMP'),
16989                    UN_PARMI('VALE','VALE_I','VALE_C'),),
16990            CHAM_GD         =SIMP(statut='o',typ=cham_no),
16991            NOEUD           =SIMP(statut='f',typ=no,max='**'),
16992            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
16993            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
16994            TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
16995            VALE            =SIMP(statut='f',typ='R'),
16996            VALE_I          =SIMP(statut='f',typ='I'),
16997            VALE_C          =SIMP(statut='f',typ='C'),
16998            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
16999            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
17000            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
17001                                                             "NON_REGRESSION","AUTRE_ASTER")),
17002            VERSION         =SIMP(statut='f',typ='TXM'),
17003          ),
17004
17005          CHAM_ELEM       =FACT(statut='f',min=1,max='**',
17006            regles=(UN_PARMI('MAILLE','TYPE_TEST',),
17007                    EXCLUS('NOEUD','GROUP_NO','POINT'),
17008                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
17009                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
17010                    PRESENT_PRESENT('POINT','NOM_CMP'),
17011                    UN_PARMI('VALE','VALE_I','VALE_C'), ),
17012            CHAM_GD         =SIMP(statut='o',typ=cham_elem),# CO()
17013            MAILLE          =SIMP(statut='f',typ=ma),# CO()
17014            POINT           =SIMP(statut='f',typ='I' ),
17015            SOUS_POINT      =SIMP(statut='f',typ='I'),
17016            NOEUD           =SIMP(statut='f',typ=no),# CO()
17017            GROUP_NO        =SIMP(statut='f',typ=grno),# CO()
17018            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
17019            TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
17020            VALE            =SIMP(statut='f',typ='R' ),
17021            VALE_I          =SIMP(statut='f',typ='I' ),
17022            VALE_C          =SIMP(statut='f',typ='C' ),
17023            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
17024            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
17025            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
17026                                                             "NON_REGRESSION","AUTRE_ASTER") ),
17027            VERSION         =SIMP(statut='f',typ='TXM' ),
17028          ),
17029
17030          RESU            =FACT(statut='f',min=1,max='**',
17031            regles=(UN_PARMI('NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP','NOM_CAS','ANGL'),
17032                    UN_PARMI('NOM_CHAM','PARA'),
17033                    PRESENT_ABSENT('PARA','NOEUD','GROUP_NO','POINT','NOM_CMP','TYPE_TEST'),
17034                    PRESENT_PRESENT('NOM_CMP','NOM_CHAM'),
17035                    EXCLUS('NOEUD','GROUP_NO','POINT','TYPE_TEST'),
17036                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
17037                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
17038                    PRESENT_PRESENT('POINT','NOM_CMP'),
17039                    UN_PARMI('VALE','VALE_I','VALE_C') ,),
17040            RESULTAT        =SIMP(statut='o',typ=resultat),
17041            SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),
17042                                  fr="Paramètre de sensibilité.",
17043                                  ang="Sensitivity parameter"),
17044            NUME_ORDRE      =SIMP(statut='f',typ='I'),
17045            INST            =SIMP(statut='f',typ='R'),
17046            FREQ            =SIMP(statut='f',typ='R'),
17047            NUME_MODE       =SIMP(statut='f',typ='I'),
17048            NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**' ),
17049            NOM_CAS         =SIMP(statut='f',typ='TXM'),
17050            ANGL            =SIMP(statut='f',typ='R'),
17051            PARA            =SIMP(statut='f',typ='TXM'),
17052            NOM_CHAM        =SIMP(statut='f',typ='TXM'),
17053            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
17054            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
17055            NOEUD           =SIMP(statut='f',typ=no,max='**'),
17056            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
17057            POINT           =SIMP(statut='f',typ='I'),
17058            SOUS_POINT      =SIMP(statut='f',typ='I'),
17059            TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
17060            VALE            =SIMP(statut='f',typ='R'),
17061            VALE_I          =SIMP(statut='f',typ='I'),
17062            VALE_C          =SIMP(statut='f',typ='C'),
17063            CRITERE         =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),max=2),
17064            PRECISION       =SIMP(statut='f',typ='R',max=2),
17065            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
17066                                                             "NON_REGRESSION","AUTRE_ASTER",) ),
17067            VERSION         =SIMP(statut='f',typ='TXM' ),
17068          ),
17069
17070          OBJET           =FACT(statut='f',max='**',
17071            regles=(UN_PARMI('INDICE','S_I','S_R','RESUME',),
17072                  UN_PARMI('VALE','VALE_I','VALE_C','RESUME','S_R','S_I'),),
17073            NOM             =SIMP(statut='o',typ='TXM'),
17074            INDICE          =SIMP(statut='f',typ='I'),
17075            NUM_OBJ         =SIMP(statut='f',typ='I'),
17076            S_R             =SIMP(statut='f',typ='R'),
17077            S_I             =SIMP(statut='f',typ='I'),
17078            RESUME          =SIMP(statut='f',typ='I'),
17079            VALE            =SIMP(statut='f',typ='R'),
17080            VALE_I          =SIMP(statut='f',typ='I'),
17081            VALE_C          =SIMP(statut='f',typ='C'),
17082            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
17083            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
17084            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
17085                                                             "NON_REGRESSION","AUTRE_ASTER",) ),
17086            VERSION         =SIMP(statut='f',typ='TXM' ),
17087          ),
17088 )  ;
17089 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
17090 #            CONFIGURATION MANAGEMENT OF EDF VERSION
17091 # ======================================================================
17092 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
17093 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17094 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17095 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17096 # (AT YOUR OPTION) ANY LATER VERSION.
17097 #
17098 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17099 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17100 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17101 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17102 #
17103 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17104 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17105 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17106 # ======================================================================
17107 # RESPONSABLE VABHHTS J.PELLET
17108 TEST_TABLE=PROC(nom="TEST_TABLE",op= 177,
17109                 docu="U4.92.03-c",
17110             UIinfo={"groupes":("Impression",)},
17111          regles=(UN_PARMI('VALE','VALE_I','VALE_C', ),),
17112          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
17113 #  concept table à créer
17114          TABLE           =SIMP(statut='o',typ=table),
17115
17116          FILTRE          =FACT(statut='f',min=1,max='**',
17117            NOM_PARA        =SIMP(statut='o',typ='TXM' ),
17118            CRIT_COMP       =SIMP(statut='f',typ='TXM',defaut="EQ",
17119                                  into=("EQ","LT","GT","NE","LE","GE","VIDE",
17120                                        "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
17121            b_vale          =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
17122               regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
17123               VALE            =SIMP(statut='f',typ='R' ),
17124               VALE_I          =SIMP(statut='f',typ='I' ),
17125               VALE_C          =SIMP(statut='f',typ='C' ),
17126               VALE_K          =SIMP(statut='f',typ='TXM' ),),
17127
17128            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
17129            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
17130          ),
17131          TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
17132          NOM_PARA        =SIMP(statut='o',typ='TXM' ),
17133          VALE            =SIMP(statut='f',typ='R' ),
17134          VALE_I          =SIMP(statut='f',typ='I' ),
17135          VALE_C          =SIMP(statut='f',typ='C' ),
17136          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
17137          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.2E-3 ),
17138          REFERENCE       =SIMP(statut='f',typ='TXM',
17139                                into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
17140          b_version       =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
17141              VERSION         =SIMP(statut='f',typ='TXM' ),
17142          ),
17143 )  ;
17144 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
17145 #            CONFIGURATION MANAGEMENT OF EDF VERSION
17146 # ======================================================================
17147 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
17148 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17149 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17150 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17151 # (AT YOUR OPTION) ANY LATER VERSION.
17152 #
17153 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17154 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17155 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17156 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17157 #
17158 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17159 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17160 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17161 # ======================================================================
17162 THER_LINEAIRE=OPER(nom="THER_LINEAIRE",op=25,sd_prod=evol_ther,docu="U4.54.01-g",reentrant='f',
17163             UIinfo={"groupes":("Résolution",)},
17164                    fr="Analyse thermique linéaire stationnaire ou transitoire",
17165          MODELE          =SIMP(statut='o',typ=modele),
17166          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
17167          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
17168          EXCIT           =FACT(statut='o',min=1,max='**',
17169            CHARGE          =SIMP(statut='o',typ=(char_ther,char_cine_ther)),
17170            FONC_MULT       =SIMP(statut='f',typ=fonction),
17171          ),
17172          INCREMENT       =FACT(statut='f',min=1,max=1,
17173            LIST_INST       =SIMP(statut='o',typ=listr8 ),
17174            NUME_INIT       =SIMP(statut='f',typ='I'),
17175            NUME_FIN        =SIMP(statut='f',typ='I'),
17176          ),
17177          TEMP_INIT       =FACT(statut='f',min=1,max=1,
17178            regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
17179            STATIONNAIRE    =SIMP(statut='f',typ='TXM',into=("OUI",) ),
17180            EVOL_THER       =SIMP(statut='f',typ=evol_ther),
17181            CHAM_NO         =SIMP(statut='f',typ=cham_no_temp_r),
17182            VALE            =SIMP(statut='f',typ='R'),
17183            NUME_INIT       =SIMP(statut='f',typ='I'),
17184          ),
17185          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
17186                                fr="Liste des paramètres de sensibilité.",
17187                                ang="List of sensitivity parameters",
17188          ),
17189            SENS_INIT       =FACT(statut='f',min=1,max=1,
17190              regles=(EXCLUS('STATIONNAIRE','EVOL_THER', ),),
17191              STATIONNAIRE    =SIMP(statut='f',typ='TXM',into=("OUI",) ),
17192              EVOL_THER       =SIMP(statut='f',typ=evol_ther),
17193              NUME_INIT       =SIMP(statut='f',typ='I'),
17194            ),
17195          SOLVEUR         =FACT(statut='d',min=1,max=1,
17196            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
17197            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
17198              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
17199            ),
17200            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
17201              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
17202            ),
17203            b_ldlt_mult      =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
17204                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
17205              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
17206              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
17207            ),
17208            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
17209              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
17210              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
17211              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
17212              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
17213              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
17214            ),
17215 #  A quoi sert eps
17216            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
17217          ),
17218          PARM_THETA      =SIMP(statut='f',typ='R',defaut= 0.57),
17219          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
17220            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST'),),
17221            LIST_ARCH       =SIMP(statut='f',typ=listis),
17222            LIST_INST       =SIMP(statut='f',typ=listr8),
17223            INST            =SIMP(statut='f',typ='R',max='**'),
17224            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
17225            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
17226                                  into=("RELATIF","ABSOLU")),
17227            PAS_ARCH        =SIMP(statut='f',typ='I'),
17228            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',into=("VARI",)),
17229          ),
17230          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
17231          INFO            =SIMP(statut='f',typ='I',into=(1,2)),
17232 )  ;
17233 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
17234 #            CONFIGURATION MANAGEMENT OF EDF VERSION
17235 # ======================================================================
17236 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
17237 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17238 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17239 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17240 # (AT YOUR OPTION) ANY LATER VERSION.
17241 #
17242 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17243 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17244 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17245 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17246 #
17247 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17248 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17249 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17250 # ======================================================================
17251 THER_NON_LINE=OPER(nom="THER_NON_LINE",op= 186,sd_prod=evol_ther,docu="U4.54.02-e",reentrant='f',
17252             UIinfo={"groupes":("Résolution",)},
17253                    fr="Analyse thermique non linéaire stationnaire ou transitoire" ,
17254          MODELE          =SIMP(statut='o',typ=(modele) ),
17255          CHAM_MATER      =SIMP(statut='o',typ=(cham_mater) ),
17256          CARA_ELEM       =SIMP(statut='c',typ=(cara_elem) ),
17257          COMP_THER_NL    =FACT(statut='d',min=1,max='**',
17258            RELATION        =SIMP(statut='f',typ='TXM',defaut="THER_NL",
17259                                  into=("THER_NL",
17260                                        "THER_HYDR",
17261                                        "SECH_GRANGER",
17262                                        "SECH_MENSI",
17263                                        "SECH_BAZANT",
17264                                        "SECH_NAPPE"
17265                                        ) ),
17266       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
17267            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
17268            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
17269            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
17270          ),
17271          EVOL_THER_SECH  =SIMP(statut='f',typ=evol_ther),
17272          EXCIT           =FACT(statut='o',min=1,max='**',
17273            CHARGE          =SIMP(statut='o',typ=char_ther),
17274            FONC_MULT       =SIMP(statut='f',typ=fonction),
17275          ),
17276          INCREMENT       =FACT(statut='f',min=1,max=1,
17277            LIST_INST       =SIMP(statut='o',typ=listr8),
17278            NUME_INIT       =SIMP(statut='f',typ='I'),
17279            NUME_FIN        =SIMP(statut='f',typ='I'),
17280          ),
17281          TEMP_INIT       =FACT(statut='f',min=1,max=1,
17282            regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
17283            STATIONNAIRE    =SIMP(statut='f',typ='TXM',into=("OUI",)),
17284            EVOL_THER       =SIMP(statut='f',typ=evol_ther),
17285            CHAM_NO         =SIMP(statut='f',typ=cham_no_temp_r),
17286            VALE            =SIMP(statut='f',typ='R'),
17287            NUME_INIT       =SIMP(statut='f',typ='I'),
17288          ),
17289          NEWTON          =FACT(statut='d',min=1,max=1,
17290            REAC_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
17291            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
17292            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 0 ),
17293          ),
17294          CONVERGENCE     =FACT(statut='d',min=1,max=1,
17295            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
17296            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
17297            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
17298          ),
17299          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
17300                                fr="Liste des paramètres de sensibilité.",
17301                                ang="List of sensitivity parameters",
17302          ),
17303          SOLVEUR         =FACT(statut='d',min=1,max=1,
17304            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
17305            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Parametres de la méthode multi frontale",
17306              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
17307            ),
17308            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Parametres de la méthode LDLT",
17309              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
17310            ),
17311            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
17312                                    fr="Parametres relatifs a la non inversibilité de la matrice a factorise",
17313              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
17314              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
17315            ),
17316            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Parametres de la méthode du gradient conjugué",
17317              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
17318              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
17319              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
17320              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
17321              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
17322            ),
17323 #  A quoi sert eps
17324            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
17325            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
17326          ),
17327          PARM_THETA      =SIMP(statut='f',typ='R',defaut= 0.57 ),
17328          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
17329            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST', ),),
17330            LIST_ARCH       =SIMP(statut='f',typ=(listis) ),
17331            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
17332            INST            =SIMP(statut='f',typ='R',max='**'),
17333            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
17334            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
17335            PAS_ARCH        =SIMP(statut='f',typ='I'),
17336            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',into=("VARI",)),
17337          ),
17338          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
17339          OPTION          =SIMP(statut='f',typ='TXM',max='**',
17340                                into=("FLUX_ELGA_TEMP","FLUX_ELNO_TEMP") ),
17341          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
17342
17343 )  ;
17344 #& MODIF COMMANDE  DATE 22/04/2003   AUTEUR MCOURTOI M.COURTOIS
17345 #            CONFIGURATION MANAGEMENT OF EDF VERSION
17346 # ======================================================================
17347 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
17348 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17349 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17350 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17351 # (AT YOUR OPTION) ANY LATER VERSION.
17352 #
17353 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17354 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17355 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17356 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17357 #
17358 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17359 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17360 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17361 # ======================================================================
17362 THER_NON_LINE_MO=OPER(nom="THER_NON_LINE_MO",op= 171,sd_prod=evol_ther,
17363                      fr="Thermique non lineaire en repere mobile",
17364                      docu="U4.54.03-c",reentrant='f',
17365             UIinfo={"groupes":("Résolution",)},
17366          MODELE          =SIMP(statut='o',typ=modele ),
17367          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
17368          CARA_ELEM       =SIMP(statut='c',typ=cara_elem ),
17369          EXCIT           =FACT(statut='o',min=1,max='**',
17370            CHARGE          =SIMP(statut='o',typ=char_ther ),
17371            FONC_MULT       =SIMP(statut='c',typ=fonction ),
17372          ),
17373          TEMP_INIT       =FACT(statut='f',min=1,max=1,
17374            EVOL_THER       =SIMP(statut='f',typ=evol_ther ),
17375            NUME_INIT       =SIMP(statut='f',typ='I',defaut= 0 ),
17376          ),
17377          CONVERGENCE     =FACT(statut='d',min=1,max=1,
17378            CRIT_TEMP_RELA  =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
17379            CRIT_ENTH_RELA  =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
17380            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
17381            ARRET           =SIMP(statut='c',typ='TXM',defaut="OUI",into=("OUI","NON") ),
17382          ),
17383          SOLVEUR         =FACT(statut='d',min=1,max=1,
17384            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
17385            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
17386              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
17387            ),
17388            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
17389              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
17390            ),
17391            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
17392                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
17393              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
17394              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
17395            ),
17396            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
17397              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
17398              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
17399              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
17400              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
17401              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
17402            ),
17403            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
17404            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
17405          ),
17406          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
17407          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
17408 )  ;
17409
17410
17411