Aster/Cata/cata_STA6.py

   1 #& MODIF COMMANDE  DATE 24/06/2002   AUTEUR F1BHHAJ J.ANGLES
   2 #            CONFIGURATION MANAGEMENT OF EDF VERSION
   3 # ======================================================================
   4 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
   5 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
   6 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
   7 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
   8 # (AT YOUR OPTION) ANY LATER VERSION.
   9 #
  10 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
  11 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
  12 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
  13 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
  14 #
  15 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
  16 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
  17 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
  18 # ======================================================================
  19 import Accas
  20 from Accas import *
  21 from Accas import _F
  22
  23 import ops
  24
  25 try:
  26   import aster
  27 except:
  28   pass
  29
  30 #
  31 __version__="$Name:  $"
  32 __Id__="$Id: cata_aster_v6.py,v 1.12 2001/01/16 15:55:05 iliade Exp $"
  33 #
  34 JdC = JDC_CATA(code='ASTER',
  35                execmodul=None,
  36                regles = (AU_MOINS_UN('DEBUT','POURSUITE'),
  37                          AU_MOINS_UN('FIN'),
  38                          A_CLASSER(('DEBUT','POURSUITE'),'FIN')))
  39 # Type le plus general
  40 class entier  (ASSD):pass
  41 class reel    (ASSD):pass
  42 class complexe(ASSD):pass
  43 class liste   (ASSD):pass
  44 class chaine  (ASSD):pass
  45
  46 # Type geometriques
  47 class no  (GEOM):pass
  48 class grno(GEOM):pass
  49 class ma  (GEOM):pass
  50 class grma(GEOM):pass
  51
  52
  53
  54 # Autres
  55
  56 class cabl_precont    (ASSD):pass
  57 class cara_elem       (ASSD):pass
  58 class cara_pout       (ASSD):pass
  59 class cham_mater      (ASSD):pass
  60 class char_acou       (ASSD):pass
  61 class char_cine_acou  (ASSD):pass
  62 class char_cine_meca  (ASSD):pass
  63 class char_cine_ther  (ASSD):pass
  64 class char_meca       (ASSD):pass
  65 class char_ther       (ASSD):pass
  66 class courbe          (ASSD):pass
  67 class fond_fiss       (ASSD):pass
  68 class interf_dyna_clas(ASSD):pass
  69 class interspfact     (ASSD):pass
  70 class listis          (ASSD):pass
  71 class listr8          (ASSD):pass
  72 class macr_elem_dyna  (ASSD):pass
  73 class macr_elem_stat  (ASSD):pass
  74 class mater           (ASSD):pass
  75 class melasflu        (ASSD):pass
  76 class modele          (ASSD):pass
  77 class modele_gene     (ASSD):pass
  78 class nume_ddl        (ASSD):pass
  79 class nume_ddl_gene   (ASSD):pass
  80 class obstacle        (ASSD):pass
  81 class spectre         (ASSD):pass
  82 class surface         (ASSD):pass
  83 class tran_gene       (ASSD):pass
  84 class type_flui_stru  (ASSD):pass
  85 class valeur          (ASSD):pass
  86
  87 # maillage :
  88 #--------------------------------
  89 class maillage(ASSD):pass
  90 class squelette     (maillage):pass
  91
  92
  93 # cham_gd (carte,cham_no,cham_elem)
  94 #--------------------------------
  95
  96 class cham_gd(ASSD):pass
  97
  98 # cham_gd/carte :
  99 #--------------------------------
 100 class carte(cham_gd):pass
 101 class carte_dbel_r   (carte):pass
 102 class carte_depl_c   (carte):pass
 103 class carte_depl_f   (carte):pass
 104 class carte_depl_r   (carte):pass
 105 class carte_durt_r   (carte):pass
 106 class carte_ener_r   (carte):pass
 107 class carte_epsi_r   (carte):pass
 108 class carte_erreur   (carte):pass
 109 class carte_flux_r   (carte):pass
 110 class carte_g_depl_r (carte):pass
 111 class carte_geom_r   (carte):pass
 112 class carte_hydr_r   (carte):pass
 113 class carte_inst_r   (carte):pass
 114 class carte_inte_r   (carte):pass
 115 class carte_irra_r   (carte):pass
 116 class carte_meta_r   (carte):pass
 117 class carte_neut_f   (carte):pass
 118 class carte_neut_r   (carte):pass
 119 class carte_pres_r   (carte):pass
 120 class carte_sief_r   (carte):pass
 121 class carte_sour_r   (carte):pass
 122 class carte_temp_f   (carte):pass
 123 class carte_temp_r   (carte):pass
 124 class carte_var2_r   (carte):pass
 125 class carte_vnor_c   (carte):pass
 126
 127
 128 # cham_gd/cham_elem :
 129 #--------------------------------
 130 class cham_elem(cham_gd):pass
 131 class cham_elem_crit_r(cham_elem):pass
 132 class cham_elem_dbel_r(cham_elem):pass
 133 class cham_elem_depl_c(cham_elem):pass
 134 class cham_elem_depl_f(cham_elem):pass
 135 class cham_elem_depl_r(cham_elem):pass
 136 class cham_elem_dommag(cham_elem):pass
 137 class cham_elem_durt_r(cham_elem):pass
 138 class cham_elem_ener_r(cham_elem):pass
 139 class cham_elem_epsi_c(cham_elem):pass
 140 class cham_elem_epsi_r(cham_elem):pass
 141 class cham_elem_erreur(cham_elem):pass
 142 class cham_elem_facy_r(cham_elem):pass
 143 class cham_elem_flux_r(cham_elem):pass
 144 class cham_elem_g_depl(cham_elem):pass
 145 class cham_elem_geom_r(cham_elem):pass
 146 class cham_elem_hydr_r(cham_elem):pass
 147 class cham_elem_inst_r(cham_elem):pass
 148 class cham_elem_inte_r(cham_elem):pass
 149 class cham_elem_irra_r(cham_elem):pass
 150 class cham_elem_meta_r(cham_elem):pass
 151 class cham_elem_neut_f(cham_elem):pass
 152 class cham_elem_neut_r(cham_elem):pass
 153 class cham_elem_pres_r(cham_elem):pass
 154 class cham_elem_sief_c(cham_elem):pass
 155 class cham_elem_sief_r(cham_elem):pass
 156 class cham_elem_sour_r(cham_elem):pass
 157 class cham_elem_temp_f(cham_elem):pass
 158 class cham_elem_temp_r(cham_elem):pass
 159 class cham_elem_vari_r(cham_elem):pass
 160 class cham_elem_vnor_c(cham_elem):pass
 161
 162
 163 # cham_gd/cham_no :
 164 #--------------------------------
 165 class cham_no(cham_gd):pass
 166 class cham_no_dbel_r   (cham_no):pass
 167 class cham_no_depl_c   (cham_no):pass
 168 class cham_no_depl_f   (cham_no):pass
 169 class cham_no_depl_r   (cham_no):pass
 170 class cham_no_durt_r   (cham_no):pass
 171 class cham_no_ener_r   (cham_no):pass
 172 class cham_no_epsi_r   (cham_no):pass
 173 class cham_no_erreur   (cham_no):pass
 174 class cham_no_flux_r   (cham_no):pass
 175 class cham_no_g_depl_r (cham_no):pass
 176 class cham_no_geom_r   (cham_no):pass
 177 class cham_no_hydr_r   (cham_no):pass
 178 class cham_no_inst_r   (cham_no):pass
 179 class cham_no_inte_r   (cham_no):pass
 180 class cham_no_irra_r   (cham_no):pass
 181 class cham_no_meta_r   (cham_no):pass
 182 class cham_no_neut_f   (cham_no):pass
 183 class cham_no_neut_r   (cham_no):pass
 184 class cham_no_pres_c   (cham_no):pass
 185 class cham_no_pres_r   (cham_no):pass
 186 class cham_no_sief_r   (cham_no):pass
 187 class cham_no_sour_r   (cham_no):pass
 188 class cham_no_temp_c   (cham_no):pass
 189 class cham_no_temp_f   (cham_no):pass
 190 class cham_no_temp_r   (cham_no):pass
 191 class cham_no_vanl_r   (cham_no):pass
 192 class cham_no_var2_r   (cham_no):pass
 193 class cham_no_vnor_c   (cham_no):pass
 194
 195
 196 # resultat : (evol,mode_stat,mode_meca)
 197 #--------------------------------
 198
 199 class resultat(ASSD):
 200   def __getitem__(self,key):
 201     return aster.getpara(self.get_name(),"RESULTAT",key[0],key[1])
 202
 203 class acou_harmo    (resultat):pass
 204 class base_modale     (resultat):pass
 205 class comb_fourier  (resultat):pass
 206 class dyna_harmo    (resultat):pass
 207 class dyna_trans    (resultat):pass
 208 class fourier_elas  (resultat):pass
 209 class harm_gene     (resultat):pass
 210 class mode_acou     (resultat):pass
 211 class mode_cycl     (resultat):pass
 212 class mode_flamb    (resultat):pass
 213 class mode_gene     (resultat):pass
 214 class mult_elas     (resultat):pass
 215 class theta_geom    (resultat):pass
 216
 217 # resultat/evol :
 218 #--------------------------------
 219 class evol(resultat):pass
 220 class evol_char(evol):pass
 221 class evol_elas(evol):pass
 222 class evol_noli(evol):pass
 223 class evol_ther(evol):pass
 224 class evol_varc(evol):pass
 225
 226 # resultat/mode_stat :
 227 #--------------------------------
 228 class mode_stat(resultat):pass
 229 class mode_stat_depl(mode_stat):pass
 230 class mode_stat_acce(mode_stat):pass
 231 class mode_stat_forc(mode_stat):pass
 232
 233
 234 # resultat/mode_meca :
 235 #--------------------------------
 236 class mode_meca(resultat):pass
 237 class mode_meca_c(mode_meca):pass
 238
 239
 240 # fonction :
 241 #--------------------------------
 242 class para_sensi(fonction):pass
 243 class fonction_c(fonction):pass
 244
 245
 246 # matr_asse :
 247 #--------------------------------
 248 class matr_asse(ASSD):pass
 249 class matr_asse_depl_c(matr_asse):pass
 250 class matr_asse_depl_r(matr_asse):pass
 251 class matr_asse_gene_r(matr_asse):pass
 252 class matr_asse_gene_c(matr_asse):pass
 253 class matr_asse_pres_c(matr_asse):pass
 254 class matr_asse_pres_r(matr_asse):pass
 255 class matr_asse_temp_c(matr_asse):pass
 256 class matr_asse_temp_r(matr_asse):pass
 257
 258 # matr_elem :
 259 #--------------------------------
 260 class matr_elem(ASSD):pass
 261 class matr_elem_depl_c(matr_elem):pass
 262 class matr_elem_depl_r(matr_elem):pass
 263 class matr_elem_pres_c(matr_elem):pass
 264 class matr_elem_temp_r(matr_elem):pass
 265
 266
 267
 268
 269 # table : (tabl_fonc)
 270 #--------------------------------
 271
 272 class table(ASSD):
 273   def __getitem__(self,key):
 274     return aster.getpara(self.get_name(),"TABLE",key[0],key[1])
 275
 276 class tabl_aire_int   (table):pass
 277 class tabl_calc_g_loca(table):pass
 278 class tabl_calc_g_th  (table):pass
 279 class tabl_cara_geom  (table):pass
 280 class tabl_char_limite(table):pass
 281 class tabl_ener_elas  (table):pass
 282 class tabl_ener_pot   (table):pass
 283 class tabl_ener_cin   (table):pass
 284 class tabl_trav_ext   (table):pass
 285 class tabl_ener_totale(table):pass
 286 class tabl_indic_ener (table):pass
 287 class tabl_indic_seuil(table):pass
 288 class tabl_intsp      (table):pass
 289 class tabl_mass_iner  (table):pass
 290 class tabl_post_alea  (table):pass
 291 class tabl_post_beta  (table):pass
 292 class tabl_post_dyna  (table):pass
 293 class tabl_post_f_alea(table):pass
 294 class tabl_post_fatig (table):pass
 295 class tabl_post_gouj2e(table):pass
 296 class tabl_post_k     (table):pass
 297 class tabl_post_rccm  (table):pass
 298 class tabl_post_rele  (table):pass
 299 class tabl_post_simpli(table):pass
 300 class tabl_post_usur  (table):pass
 301 class tabl_reca_weib  (table):pass
 302 class tabl_rice_tracey(table):pass
 303 class tabl_texture    (table):pass
 304 class tabl_trc        (table):pass
 305 class tabl_weibull    (table):pass
 306
 307 # table/tabl_fonc
 308 #--------------------------------
 309 class tabl_fonc       (table):pass
 310 class tabl_fonc_max   (tabl_fonc):pass
 311 class tabl_fonc_noci  (tabl_fonc):pass
 312 class tabl_fonc_rms   (tabl_fonc):pass
 313
 314
 315 # vect_asse :
 316 #--------------------------------
 317 class vect_asse(ASSD):pass
 318 class vect_asse_gene(vect_asse):pass
 319
 320
 321 # vect_elem :
 322 #--------------------------------
 323 class vect_elem(ASSD):pass
 324 class vect_elem_depl_r(vect_elem):pass
 325 class vect_elem_pres_c(vect_elem):pass
 326 class vect_elem_pres_r(vect_elem):pass
 327 class vect_elem_temp_r(vect_elem):pass
 328
 329 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
 330 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 331 # ======================================================================
 332 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 333 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
 334 #              REDISTRIBUTION OF THIS FILE.
 335 # ======================================================================
 336 # RESPONSABLE JMBHH01 J.M.PROIX
 337 AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
 338                     fr="Affectation de caractéristiques à des éléments de structure",
 339                     docu="U4.42.01-g3",reentrant='n',
 340             UIinfo={"groupes":("Modélisation",)},
 341          regles=(AU_MOINS_UN('POUTRE','BARRE','COQUE','CABLE','DISCRET','MASSIF',
 342                              'ASSE_GRIL','GRILLE','AFFE_SECT','AFFE_FIBRE'),),
 343          MODELE          =SIMP(statut='o',typ=modele ),
 344          INFO            =SIMP(statut='f',typ='I', defaut= 1 ,into=(1,2) ),
 345          VERIF           =SIMP(statut='f',typ='TXM',max='**',into=("MAILLE","NOEUD") ),
 346
 347          POUTRE          =FACT(statut='f',min=1,max='**',
 348            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 349            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 350            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 351            SECTION         =SIMP(statut='o',typ='TXM' ,into=("GENERALE","RECTANGLE","CERCLE") ),
 352            CARA_SECT       =SIMP(statut='f',typ=(cara_pout) ),
 353            TUYAU_NCOU      =SIMP(statut='f',typ='I',min=1,max=10,defaut=3),
 354            TUYAU_NSEC      =SIMP(statut='f',typ='I',min=1,max=32,defaut=16),
 355            b_generale      =BLOC( condition = "SECTION=='GENERALE'",
 356              CARA            =SIMP(statut='o',typ='TXM',max='**',
 357                                  into=("A","IY","IZ","AY","AZ","EY","EZ","JX","RY","RZ","RT",
 358                                                            "AI","JG","IYR2","IZR2","A1",
 359                                        "IY1","IZ1","AY1","AZ1","EY1","EZ1","JX1","RY1",
 360                                        "RZ1","RT1","AI1","JG1","IYR21","IZR21","A2",
 361                                        "IY2","IZ2","AY2","AZ2","EY2","EZ2","JX2","RY2",
 362                                        "RZ2","RT2","AI2","JG2","IYR22","IZR22","H",
 363                                        "HZ","HY","EP","EPY","EPZ","H1","HZ1","HY1",
 364                                        "EP1","EPY1","EPZ1","H2","HZ2","HY2","EP2",
 365                                        "EPY2","EPZ2","R","R1","R2") ),
 366              VALE            =SIMP(statut='o',typ='R',max='**'),
 367              VARI_SECT       =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE",) ),
 368            ),
 369            b_rectangle     =BLOC( condition = "SECTION=='RECTANGLE'",
 370              CARA            =SIMP(statut='o',typ='TXM',max='**',
 371                                  into=("H","EP","HY","HZ","EPY","EPZ",
 372                                                            "H1","HZ1","HY1","EP1","EPY1","EPZ1",
 373                                                            "H2","HZ2","HY2","EP2","EPY2","EPZ2") ),
 374              VALE            =SIMP(statut='o',typ='R',max='**'),
 375              VARI_SECT       =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE","AFFINE"),defaut="HOMOTHETIQUE"),
 376            ),
 377            b_cercle        =BLOC( condition = "SECTION=='CERCLE'",
 378              CARA            =SIMP(statut='o',typ='TXM',max='**',
 379                                  into=("R","EP","R1","R2","EP1","EP2") ),
 380              VALE            =SIMP(statut='o',typ='R',max='**'),
 381              VARI_SECT       =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE",) ),
 382              MODI_METRIQUE   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
 383            ),
 384            FCX             =SIMP(statut='f',typ=(fonction) ),
 385          ),
 386
 387          BARRE           =FACT(statut='f',min=1,max='**',
 388            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 389            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 390            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 391            SECTION         =SIMP(statut='o',typ='TXM',into=("GENERALE","RECTANGLE","CERCLE") ),
 392            b_generale      =BLOC( condition = "SECTION=='GENERALE'",
 393              CARA            =SIMP(statut='o',typ='TXM',into=("A",) ),
 394              VALE            =SIMP(statut='o',typ='R' ),
 395            ),
 396            b_rectangle     =BLOC( condition = "SECTION=='RECTANGLE'",
 397              CARA            =SIMP(statut='o',typ='TXM',into=("H","HZ","HY","EPY","EPZ","EP"),max=6 ),
 398              VALE            =SIMP(statut='o',typ='R',max=6 ),
 399            ),
 400            b_cercle        =BLOC( condition = "SECTION=='CERCLE'",
 401              CARA            =SIMP(statut='o',typ='TXM',max=2,into=("R","EP") ),
 402              VALE            =SIMP(statut='o',typ='R',max=2 ),
 403            ),
 404            FCX             =SIMP(statut='f',typ=(fonction) ),
 405          ),
 406
 407          COQUE           =FACT(statut='f',min=1,max='**',
 408            regles=(UN_PARMI('MAILLE','GROUP_MA' ),
 409                    PRESENT_PRESENT( 'EXCENTREMENT','INER_ROTA' ),),
 410            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 411            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 412            EPAIS           =SIMP(statut='o',typ='R' ),
 413            ANGL_REP        =SIMP(statut='f',typ='R',min=2,max=2),
 414            A_CIS           =SIMP(statut='c',typ='R',defaut= 0.8333333E0),
 415            COEF_RIGI_DRZ   =SIMP(statut='f',typ='R',defaut= 1.0E-5 ),
 416            COQUE_NCOU      =SIMP(statut='f',typ='I',defaut= 1 ),
 417            EXCENTREMENT    =SIMP(statut='f',typ='R' ),
 418            INER_ROTA       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 419            MODI_METRIQUE   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
 420          ),
 421
 422          CABLE           =FACT(statut='f',min=1,max='**',
 423            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 424                    UN_PARMI('A','SECTION') ),
 425            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 426            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 427            N_INIT          =SIMP(statut='f',typ='R',defaut= 5000. ),
 428            A               =SIMP(statut='f',typ='R' ),
 429            SECTION         =SIMP(statut='f',typ='R' ),
 430            FCX             =SIMP(statut='f',typ=(fonction) ),
 431          ),
 432
 433          DISCRET         =FACT(statut='f',min=1,max='**',
 434            regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
 435            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 436            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 437            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 438            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 439            REPERE          =SIMP(statut='f',typ='TXM',into=("LOCAL","GLOBAL") ),
 440            AMOR_HYST       =SIMP(statut='f',typ='R' ),
 441            CARA            =SIMP(statut='o',typ='TXM',max='**',
 442                                  into=("K_T_D_N","K_T_D_L","K_TR_D_N","K_TR_D_L",
 443                                                            "K_T_N",  "K_T_L",  "K_TR_N",  "K_TR_L",
 444                                                                 "M_T_D_N","M_TR_D_N","M_T_N",
 445                                                            "M_T_L",  "M_TR_N",  "M_TR_L",
 446                                        "A_T_D_N","A_TR_D_N","A_T_D_L","A_TR_D_L",
 447                                                            "A_T_N",  "A_T_L",   "A_TR_N", "A_TR_L") ),
 448            VALE            =SIMP(statut='o',typ='R',max='**'),
 449          ),
 450
 451          ORIENTATION     =FACT(statut='f',min=1,max='**',
 452            regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO' ),),
 453            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 454            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 455            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 456            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 457            CARA            =SIMP(statut='o',typ='TXM',
 458                                  into=("VECT_Y","ANGL_VRIL","VECT_X_Y","ANGL_NAUT","GENE_TUYAU") ),
 459            VALE            =SIMP(statut='o',typ='R',max='**'),
 460            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-4 ),
 461            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
 462          ),
 463
 464          DEFI_ARC        =FACT(statut='f',min=1,max='**',
 465            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 466                    UN_PARMI('ORIE_ARC','CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE',
 467                             'POIN_TANG','NOEUD_POIN_TANG','GROUP_NO_POIN_TG'),
 468                    PRESENT_PRESENT('ORIE_ARC','RAYON'),
 469                    EXCLUS('COEF_FLEX','COEF_FLEX_XY'),
 470                    EXCLUS('COEF_FLEX','COEF_FLEX_XZ'),
 471                    EXCLUS('INDI_SIGM','INDI_SIGM_XY'),
 472                    EXCLUS('INDI_SIGM','INDI_SIGM_XZ'),
 473                    PRESENT_PRESENT('COEF_FLEX_XY','COEF_FLEX_XZ'),
 474                    PRESENT_PRESENT('INDI_SIGM_XY','INDI_SIGM_XZ'),),
 475            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 476            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 477            ORIE_ARC        =SIMP(statut='f',typ='R'),
 478            CENTRE          =SIMP(statut='f',typ='R',max='**'),
 479            NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=1),
 480            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno,max=1),
 481            POIN_TANG       =SIMP(statut='f',typ='R',max='**'),
 482            NOEUD_POIN_TANG =SIMP(statut='f',typ=no,max=1),
 483            GROUP_NO_POIN_TG=SIMP(statut='f',typ=grno,max=1),
 484            RAYON           =SIMP(statut='f',typ='R'),
 485            COEF_FLEX       =SIMP(statut='f',typ='R'),
 486            INDI_SIGM       =SIMP(statut='f',typ='R'),
 487            COEF_FLEX_XY    =SIMP(statut='f',typ='R'),
 488            INDI_SIGM_XY    =SIMP(statut='f',typ='R'),
 489            COEF_FLEX_XZ    =SIMP(statut='f',typ='R'),
 490            INDI_SIGM_XZ    =SIMP(statut='f',typ='R'),
 491            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
 492            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
 493          ),
 494
 495          MASSIF          =FACT(statut='f',min=1,max='**',
 496            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 497                    UN_PARMI('ANGL_REP','ANGL_AXE'),
 498                    EXCLUS('ANGL_REP','ANGL_AXE'),
 499                    EXCLUS('ANGL_REP','ORIG_AXE'),
 500                    PRESENT_PRESENT('ANGL_AXE','ORIG_AXE'), ),
 501            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 502            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 503            ANGL_REP        =SIMP(statut='f',typ='R',max=3),
 504            ANGL_AXE        =SIMP(statut='f',typ='R',max=2),
 505            ORIG_AXE        =SIMP(statut='f',typ='R',max=3),
 506          ),
 507
 508          POUTRE_FLUI     =FACT(statut='f',min=1,max='**',
 509            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 510            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 511            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 512            B_T             =SIMP(statut='o',typ='R'),
 513            B_N             =SIMP(statut='o',typ='R'),
 514            B_TN            =SIMP(statut='o',typ='R',defaut= 0.E+0 ),
 515            A_FLUI          =SIMP(statut='o',typ='R'),
 516            A_CELL          =SIMP(statut='o',typ='R'),
 517            COEF_ECHELLE    =SIMP(statut='o',typ='R'),
 518          ),
 519
 520          GRILLE          =FACT(statut='f',min=1,max='**',
 521            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 522                    EXCLUS('ANGL_REP','ORIG_AXE'),
 523                    ENSEMBLE('ORIG_AXE','AXE')),
 524            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 525            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 526            SECTION_L       =SIMP(statut='o',typ='R'),
 527            ANGL_REP        =SIMP(statut='f',typ='R',max=2),
 528            ANGL_L          =SIMP(statut='f',typ='R'),
 529            POUR_CENT_L     =SIMP(statut='f',typ='R'),
 530            POUR_CENT_T     =SIMP(statut='f',typ='R'),
 531            EXCENTREMENT    =SIMP(statut='f',typ='R'),
 532            ORIG_AXE        =SIMP(statut='f',typ='R',max='**'),
 533            AXE             =SIMP(statut='f',typ='R',max='**'),
 534            COEF_RIGI_DRZ   =SIMP(statut='f',typ='R',defaut= 1.0E-10 ),
 535            GRILLE_NCOU     =SIMP(statut='f',typ='I',defaut= 1,min=1,max=1 ),
 536          ),
 537
 538          RIGI_PARASOL    =FACT(statut='f',min=1,max='**',
 539            regles=(UN_PARMI('COEF_GROUP','FONC_GROUP'),
 540                    UN_PARMI('COOR_CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),),
 541            GROUP_MA        =SIMP(statut='o',typ=ma,max='**'),
 542            FONC_GROUP      =SIMP(statut='f',typ=(fonction) ),
 543            COEF_GROUP      =SIMP(statut='f',typ='R',max='**'),
 544            REPERE          =SIMP(statut='f',typ='TXM',into=("LOCAL","GLOBAL") ),
 545            CARA            =SIMP(statut='o',typ='TXM',max='**',into=("K_TR_D_N","A_TR_D_N") ),
 546            VALE            =SIMP(statut='o',typ='R',max='**'),
 547            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno),
 548            NOEUD_CENTRE    =SIMP(statut='f',typ=no),
 549            COOR_CENTRE     =SIMP(statut='f',typ='R',max='**'),
 550          ),
 551
 552          ASSE_GRIL       =FACT(statut='f',min=1,max='**',
 553            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 554            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 555            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 556            CARA            =SIMP(statut='o',typ='TXM',max='**',
 557                                  into=("K_TR_D_N","K_TR_D_L_T","K_TR_D_L_N",) ),
 558            VALE            =SIMP(statut='o',typ='R',max='**'),
 559            PAS_T           =SIMP(statut='o',typ='R'),
 560            PAS_N           =SIMP(statut='o',typ='R'),
 561            ANGL_REP        =SIMP(statut='o',typ='R',max='**'),
 562            COEF_ECHELLE    =SIMP(statut='o',typ='R'),
 563          ),
 564
 565
 566          AFFE_SECT     =FACT(statut='f',min=1,max='**',
 567               regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
 568                       AU_MOINS_UN('TOUT_SECT','GROUP_MA_SECT','MAILLE_SECT'),
 569                       PRESENT_ABSENT('TOUT_SECT','GROUP_MA_SECT','MAILLE_SECT'),),
 570
 571               NOM             =SIMP(statut='f',typ='TXM'),
 572
 573               GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 574               MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 575
 576               TOUT_SECT         =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 577               GROUP_MA_SECT     =SIMP(statut='f',typ=grma,max='**'),
 578               MAILLE_SECT       =SIMP(statut='f',typ=ma,max='**'),
 579
 580               MAILLAGE_SECT     =SIMP(statut='o',typ=maillage),
 581               COOR_AXE_POUTRE    =SIMP(statut='o',typ='R',min=2,max=2),
 582          ),
 583
 584
 585          AFFE_FIBRE     =FACT(statut='f',min=1,max='**',
 586               regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
 587
 588               NOM             =SIMP(statut='f',typ='TXM'),
 589
 590               GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 591               MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 592
 593               CARA              =SIMP(statut='f',typ='TXM',defaut='SURFACE',into=('SURFACE','DIAMETRE',)),
 594               VALE              =SIMP(statut='o',typ='R',max='**'),
 595               COOR_AXE_POUTRE    =SIMP(statut='o',typ='R',min=2,max=2),
 596          ),
 597
 598
 599 ) ;
 600 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
 601 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 602 # ======================================================================
 603 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 604 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
 605 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
 606 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
 607 # (AT YOUR OPTION) ANY LATER VERSION.
 608 #
 609 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
 610 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
 611 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
 612 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
 613 #
 614 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
 615 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 616 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 617 # ======================================================================
 618 AFFE_CHAR_ACOU=OPER(nom="AFFE_CHAR_ACOU",op=  68,sd_prod=char_acou,
 619                     fr="Affectation de charges et conditions aux limites acoustiques constantes",
 620                     docu="U4.44.04-e",reentrant='n',
 621             UIinfo={"groupes":("Modélisation",)},
 622          regles=(AU_MOINS_UN('PRES_IMPO','VITE_FACE','IMPE_FACE','LIAISON_UNIF' ),),
 623          MODELE          =SIMP(statut='o',typ=modele ),
 624          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
 625          PRES_IMPO       =FACT(statut='f',min=1,max='**',
 626            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
 627            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 628            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 629            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 630            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 631            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 632            PRES            =SIMP(statut='o',typ='C' ),
 633          ),
 634          VITE_FACE       =FACT(statut='f',min=1,max='**',
 635              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
 636                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
 637            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 638            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 639            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 640            VNOR            =SIMP(statut='o',typ='C' ),
 641          ),
 642          IMPE_FACE       =FACT(statut='f',min=1,max='**',
 643              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
 644                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
 645            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 646            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 647            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 648            IMPE            =SIMP(statut='o',typ='C' ),
 649          ),
 650          LIAISON_UNIF    =FACT(statut='f',min=1,max='**',
 651            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE' ),),
 652            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 653            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 654            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 655            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 656            DDL             =SIMP(statut='o',typ='TXM',max='**'),
 657          ),
 658 )  ;
 659 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
 660 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 661 # ======================================================================
 662 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 663 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
 664 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
 665 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
 666 # (AT YOUR OPTION) ANY LATER VERSION.
 667 #
 668 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
 669 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
 670 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
 671 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
 672 #
 673 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
 674 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 675 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 676 # ======================================================================
 677 # RESPONSABLE VABHHTS J.PELLET
 678 def affe_char_cine_prod(MECA_IMPO,THER_IMPO,ACOU_IMPO,**args):
 679   if MECA_IMPO != None  : return char_cine_meca
 680   if THER_IMPO != None  : return char_cine_ther
 681   if ACOU_IMPO != None  : return char_cine_acou
 682   raise AsException("type de concept resultat non prevu")
 683
 684 AFFE_CHAR_CINE=OPER(nom="AFFE_CHAR_CINE",op= 101,sd_prod=affe_char_cine_prod
 685                     ,fr="Affectation de conditions aux limites cinématiques pour traitement sans dualisation",
 686                      docu="U4.44.03-e",reentrant='n',
 687             UIinfo={"groupes":("Modélisation",)},
 688          regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO','ACOU_IMPO'),
 689                  EXCLUS('MECA_IMPO','THER_IMPO'),
 690                  EXCLUS('MECA_IMPO','ACOU_IMPO'),
 691                  EXCLUS('THER_IMPO','ACOU_IMPO'),),
 692          MODELE          =SIMP(statut='o',typ=modele ),
 693          MECA_IMPO       =FACT(statut='f',min=1,max='**',
 694            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
 695                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','TEMP','PHI'),),
 696            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 697            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 698            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 699            DX              =SIMP(statut='f',typ='R' ),
 700            DY              =SIMP(statut='f',typ='R' ),
 701            DZ              =SIMP(statut='f',typ='R' ),
 702            DRX             =SIMP(statut='f',typ='R' ),
 703            DRY             =SIMP(statut='f',typ='R' ),
 704            DRZ             =SIMP(statut='f',typ='R' ),
 705            GRX             =SIMP(statut='f',typ='R' ),
 706            PRES            =SIMP(statut='f',typ='R' ),
 707            TEMP            =SIMP(statut='f',typ='R' ),
 708            PHI             =SIMP(statut='f',typ='R' ),
 709          ),
 710          THER_IMPO       =FACT(statut='f',min=1,max='**',
 711            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
 712                    AU_MOINS_UN('TEMP','TEMP_INF','TEMP_SUP'),),
 713            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 714            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 715            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 716            TEMP_SUP        =SIMP(statut='f',typ='R' ),
 717            TEMP            =SIMP(statut='f',typ='R' ),
 718            TEMP_INF        =SIMP(statut='f',typ='R' ),
 719          ),
 720          ACOU_IMPO       =FACT(statut='f',min=1,max='**',
 721            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD' ),),
 722            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 723            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 724            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 725            PRES            =SIMP(statut='o',typ='C' ),
 726          ),
 727          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 728 )  ;
 729 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
 730 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 731 # ======================================================================
 732 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 733 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
 734 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
 735 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
 736 # (AT YOUR OPTION) ANY LATER VERSION.
 737 #
 738 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
 739 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
 740 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
 741 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
 742 #
 743 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
 744 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 745 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 746 # ======================================================================
 747 def affe_char_cine_f_prod(MECA_IMPO,THER_IMPO,**args):
 748   if MECA_IMPO != None  : return char_cine_meca
 749   if THER_IMPO != None  : return char_cine_ther
 750   raise AsException("type de concept resultat non prevu")
 751
 752 AFFE_CHAR_CINE_F=OPER(nom="AFFE_CHAR_CINE_F",op= 108,sd_prod=affe_char_cine_f_prod
 753                     ,fr="Affectation de conditions aux limites cinématiques pour traitement sans dualisation",
 754                      docu="U4.44.03-e",reentrant='n',
 755             UIinfo={"groupes":("Modélisation",)},
 756          regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO'),
 757                  EXCLUS('MECA_IMPO','THER_IMPO'),),
 758          MODELE          =SIMP(statut='o',typ=modele ),
 759          MECA_IMPO       =FACT(statut='f',min=1,max='**',
 760            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
 761                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','TEMP','PHI'),),
 762            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 763            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 764            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 765            DX              =SIMP(statut='f',typ=fonction ),
 766            DY              =SIMP(statut='f',typ=fonction ),
 767            DZ              =SIMP(statut='f',typ=fonction ),
 768            DRX             =SIMP(statut='f',typ=fonction ),
 769            DRY             =SIMP(statut='f',typ=fonction ),
 770            DRZ             =SIMP(statut='f',typ=fonction ),
 771            GRX             =SIMP(statut='f',typ=fonction ),
 772            PRES            =SIMP(statut='f',typ=fonction ),
 773            TEMP            =SIMP(statut='f',typ=fonction ),
 774            PHI             =SIMP(statut='f',typ=fonction ),
 775          ),
 776          THER_IMPO       =FACT(statut='f',min=1,max='**',
 777            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
 778                    AU_MOINS_UN('TEMP','TEMP_INF','TEMP_SUP' ),),
 779            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 780            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 781            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 782            TEMP_SUP        =SIMP(statut='f',typ=fonction ),
 783            TEMP            =SIMP(statut='f',typ=fonction ),
 784            TEMP_INF        =SIMP(statut='f',typ=fonction ),
 785          ),
 786          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 787 )  ;
 788 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
 789 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 790 # ======================================================================
 791 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 792 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
 793 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
 794 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
 795 # (AT YOUR OPTION) ANY LATER VERSION.
 796 #
 797 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
 798 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
 799 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
 800 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
 801 #
 802 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
 803 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 804 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 805 # ======================================================================
 806 # RESPONSABLE G8BHHXD X.DESROCHES
 807 AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca
 808                     ,fr="Affectation de charges et conditions aux limites mécaniques constantes",
 809                      docu="U4.44.01-g2",reentrant='n',
 810             UIinfo={"groupes":("Modélisation",)},
 811          regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
 812                              'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
 813                              'PRES_REP','FORCE_POUTRE','FORCE_COQUE','LIAISON_OBLIQUE',
 814                              'FORCE_ELEC','INTE_ELEC','PESANTEUR','ROTATION','IMPE_FACE',
 815                              'VITE_FACE','TEMP_CALCULEE','RELA_CINE_BP','EPSI_INIT','CONTACT',
 816                              'LIAISON_GROUP','LIAISON_UNIF','FLUX_THM_REP',
 817                              'LIAISON_SOLIDE','LIAISON_ELEM','ONDE_FLUI','PRES_CALCULEE',
 818                              'EPSA_CALCULEE','LIAISON_CHAMNO','VECT_ASSE','LIAISON_COQUE',
 819                              'LIAISON_MAIL','FORCE_TUYAU','SECH_CALCULEE','HYDR_CALCULEE',
 820                              'EFFE_FOND','EVOL_CHAR','ARLEQUIN'),
 821                  EXCLUS('PRES_CALCULEE','EVOL_CHAR'),),
 822          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
 823          VERI_NORM       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
 824          MODELE          =SIMP(statut='o',typ=(modele) ),
 825          TEMP_CALCULEE   =SIMP(statut='f',fr="Champ de température issu d'un autre calcul",
 826                                typ=(evol_ther,cham_no_temp_r,carte_temp_r,carte_temp_f ) ),
 827          HYDR_CALCULEE   =SIMP(statut='f',fr="Champ d hydratation issu d'un autre calcul",
 828                                typ=evol_ther ),
 829          SECH_CALCULEE   =SIMP(statut='f',fr="Champ de séchage issu d'un autre calcul",
 830                                typ=(evol_ther,cham_no_temp_r,carte_temp_r,carte_temp_f ) ),
 831          EPSA_CALCULEE   =SIMP(statut='f',fr="Champ de déformation anélastique issu d'un autre calcul",
 832                                typ=evol_noli ),
 833 #    A TERME PRES_CALCULEE N'EXISTERA PLUS
 834          EVOL_CHAR       =SIMP(statut='f',fr="Champ de pression issu d'un autre calcul",
 835                                typ=evol_char ),
 836          PRES_CALCULEE   =SIMP(statut='f',fr="Champ de pression issu d'un autre calcul",
 837                                typ=evol_char ),
 838
 839          PESANTEUR       =SIMP(statut='f',typ='R',fr="Champ de pesanteur",min=4,max=4),
 840          ROTATION        =SIMP(statut='f',typ='R',fr="Champ de rotation",min=4,max=4),
 841          b_rotation      =BLOC ( condition = "ROTATION != None",
 842            CENTRE          =SIMP(statut='f',typ='R',defaut=(0.,0.,0.),max=3),),
 843
 844          DDL_IMPO        =FACT(statut='f',min=1,max='**',
 845              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
 846                      AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
 847                                  'TEMP','PRE1','PRE2','UI2','UI3','VI2','VI3','WI2','WI3','UO2',
 848                                  'UO3','VO2','VO3','WO2','WO3','UI4','UI5','VI4','VI5','WI4',
 849                                  'WI5','UO4','UO5','VO4','VO5','WO4','WO5','UI6','UO6','VI6',
 850                                  'VO6','WI6','WO6','WO','WI1','WO1','GONF'),),
 851              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 852              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 853              NOEUD           =SIMP(statut='f',typ=no,max='**'),
 854              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 855              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 856              DX              =SIMP(statut='f',typ='R' ),
 857              DY              =SIMP(statut='f',typ='R' ),
 858              DZ              =SIMP(statut='f',typ='R' ),
 859              DRX             =SIMP(statut='f',typ='R' ),
 860              DRY             =SIMP(statut='f',typ='R' ),
 861              DRZ             =SIMP(statut='f',typ='R' ),
 862              GRX             =SIMP(statut='f',typ='R' ),
 863              PRES            =SIMP(statut='f',typ='R' ),
 864              PHI             =SIMP(statut='f',typ='R' ),
 865              TEMP            =SIMP(statut='f',typ='R' ),
 866              PRE1            =SIMP(statut='f',typ='R' ),
 867              PRE2            =SIMP(statut='f',typ='R' ),
 868              UI2             =SIMP(statut='f',typ='R' ),
 869              UI3             =SIMP(statut='f',typ='R' ),
 870              UI4             =SIMP(statut='f',typ='R' ),
 871              UI5             =SIMP(statut='f',typ='R' ),
 872              UI6             =SIMP(statut='f',typ='R' ),
 873              UO2             =SIMP(statut='f',typ='R' ),
 874              UO3             =SIMP(statut='f',typ='R' ),
 875              UO4             =SIMP(statut='f',typ='R' ),
 876              UO5             =SIMP(statut='f',typ='R' ),
 877              UO6             =SIMP(statut='f',typ='R' ),
 878              VI2             =SIMP(statut='f',typ='R' ),
 879              VI3             =SIMP(statut='f',typ='R' ),
 880              VI4             =SIMP(statut='f',typ='R' ),
 881              VI5             =SIMP(statut='f',typ='R' ),
 882              VI6             =SIMP(statut='f',typ='R' ),
 883              VO2             =SIMP(statut='f',typ='R' ),
 884              VO3             =SIMP(statut='f',typ='R' ),
 885              VO4             =SIMP(statut='f',typ='R' ),
 886              VO5             =SIMP(statut='f',typ='R' ),
 887              VO6             =SIMP(statut='f',typ='R' ),
 888              WI2             =SIMP(statut='f',typ='R' ),
 889              WI3             =SIMP(statut='f',typ='R' ),
 890              WI4             =SIMP(statut='f',typ='R' ),
 891              WI5             =SIMP(statut='f',typ='R' ),
 892              WI6             =SIMP(statut='f',typ='R' ),
 893              WO2             =SIMP(statut='f',typ='R' ),
 894              WO3             =SIMP(statut='f',typ='R' ),
 895              WO4             =SIMP(statut='f',typ='R' ),
 896              WO5             =SIMP(statut='f',typ='R' ),
 897              WO6             =SIMP(statut='f',typ='R' ),
 898              WO              =SIMP(statut='f',typ='R' ),
 899              WI1             =SIMP(statut='f',typ='R' ),
 900              WO1             =SIMP(statut='f',typ='R' ),
 901              GONF            =SIMP(statut='f',typ='R' ),
 902            ),
 903
 904
 905
 906            FACE_IMPO       =FACT(statut='f',min=1,max='**',
 907              regles=(UN_PARMI('GROUP_MA','MAILLE',),
 908                      AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
 909                                  'TEMP','PRE1','PRE2','DNOR','DTAN'),
 910                      EXCLUS('DNOR','DX'),
 911                      EXCLUS('DNOR','DY'),
 912                      EXCLUS('DNOR','DZ'),
 913                      EXCLUS('DNOR','DRX'),
 914                      EXCLUS('DNOR','DRY'),
 915                      EXCLUS('DNOR','DRZ'),
 916                      EXCLUS('DTAN','DX'),
 917                      EXCLUS('DTAN','DY'),
 918                      EXCLUS('DTAN','DZ'),
 919                      EXCLUS('DTAN','DRX'),
 920                      EXCLUS('DTAN','DRY'),
 921                      EXCLUS('DTAN','DRZ'),),
 922 #  rajout d'un mot clé REPERE :/ LOCAL /GLOBAL
 923              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 924              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 925              DX              =SIMP(statut='f',typ='R' ),
 926              DY              =SIMP(statut='f',typ='R' ),
 927              DZ              =SIMP(statut='f',typ='R' ),
 928              DRX             =SIMP(statut='f',typ='R' ),
 929              DRY             =SIMP(statut='f',typ='R' ),
 930              DRZ             =SIMP(statut='f',typ='R' ),
 931              DNOR            =SIMP(statut='f',typ='R' ),
 932              DTAN            =SIMP(statut='f',typ='R' ),
 933              GRX             =SIMP(statut='f',typ='R' ),
 934              PRES            =SIMP(statut='f',typ='R' ),
 935              PHI             =SIMP(statut='f',typ='R' ),
 936              TEMP            =SIMP(statut='f',typ='R' ),
 937              PRE1            =SIMP(statut='f',typ='R' ),
 938              PRE2            =SIMP(statut='f',typ='R' ),
 939            ),
 940
 941            LIAISON_DDL     =FACT(statut='f',fr="Définir une relation linéaire entre des ddls de deux ou plusieurs noeuds",
 942                                  min=1,max='**',
 943              regles=(UN_PARMI('GROUP_NO','NOEUD'),),
 944              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 945              NOEUD           =SIMP(statut='f',typ=no,max='**'),
 946              DDL             =SIMP(statut='o',typ='TXM',max='**'),
 947              COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
 948              COEF_IMPO       =SIMP(statut='o',typ='R' ),
 949            ),
 950
 951            LIAISON_OBLIQUE =FACT(statut='f',fr="Appliquer à des noeuds une valeur de déplacement dans un repere oblique",
 952                                  min=1,max='**',
 953              regles=(UN_PARMI('GROUP_NO','NOEUD'),
 954                      UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
 955              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 956              NOEUD           =SIMP(statut='f',typ=no,max='**'),
 957              ANGL_NAUT       =SIMP(statut='o',typ='R',max=3),
 958              DX              =SIMP(statut='f',typ='R' ),
 959              DY              =SIMP(statut='f',typ='R' ),
 960              DZ              =SIMP(statut='f',typ='R' ),
 961              DRX             =SIMP(statut='f',typ='R' ),
 962              DRY             =SIMP(statut='f',typ='R' ),
 963              DRZ             =SIMP(statut='f',typ='R' ),
 964            ),
 965
 966            LIAISON_GROUP   =FACT(statut='f',fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
 967                                  min=1,max='**',
 968              regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
 969                      UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
 970                      EXCLUS('GROUP_MA_1','GROUP_NO_2'),
 971                      EXCLUS('GROUP_MA_1','NOEUD_2'),
 972                      EXCLUS('GROUP_NO_1','GROUP_MA_2'),
 973                      EXCLUS('GROUP_NO_1','MAILLE_2'),
 974                      EXCLUS('MAILLE_1','GROUP_NO_2'),
 975                      EXCLUS('MAILLE_1','NOEUD_2'),
 976                      EXCLUS('NOEUD_1','GROUP_MA_2'),
 977                      EXCLUS('NOEUD_1','MAILLE_2'),
 978                      EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
 979
 980                GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
 981                MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
 982                GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
 983                MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
 984                GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
 985                NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
 986                GROUP_NO_2      =SIMP(statut='f',typ=no,max='**'),
 987                NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
 988
 989              SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
 990              SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
 991              DDL_1           =SIMP(statut='o',typ='TXM',max='**'),
 992              COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
 993              DDL_2           =SIMP(statut='o',typ='TXM',max='**'),
 994              COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
 995              COEF_IMPO       =SIMP(statut='o',typ='R' ),
 996              SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 997              TRAN            =SIMP(statut='f',typ='R',max=3),
 998              ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
 999              CENTRE          =SIMP(statut='f',typ='R',max=3),
1000            ),
1001
1002            LIAISON_MAIL    =FACT(statut='f',min=1,max='**',
1003              regles=(AU_MOINS_UN('GROUP_MA_MAIT','MAILLE_MAIT'),
1004                      AU_MOINS_UN('GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL','NOEUD_ESCL'),
1005                      PRESENT_PRESENT('DDL_MAIT','DDL_ESCL'),),
1006               GROUP_MA_MAIT   =SIMP(statut='f',typ=grma,max='**'),
1007               MAILLE_MAIT     =SIMP(statut='f',typ=ma,max='**'),
1008               GROUP_MA_ESCL   =SIMP(statut='f',typ=grma,max='**'),
1009               MAILLE_ESCL     =SIMP(statut='f',typ=ma,max='**'),
1010               GROUP_NO_ESCL   =SIMP(statut='f',typ=grno,max='**'),
1011               NOEUD_ESCL      =SIMP(statut='f',typ=no,max='**'),
1012               TRAN            =SIMP(statut='f',typ='R',max=3 ),
1013               ANGL_NAUT       =SIMP(statut='f',typ='R',max=3 ),
1014               CENTRE          =SIMP(statut='f',typ='R',max=3 ),
1015               DDL_MAIT        =SIMP(statut='f',typ='TXM',into=("DNOR",) ),
1016               DDL_ESCL        =SIMP(statut='f',typ='TXM',into=("DNOR",) ),
1017          ),
1018
1019
1020            LIAISON_SOLIDE  =FACT(statut='f',fr="Modéliser une partie indéformable d'une structure",min=1,max='**',
1021              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1022              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1023              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1024              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1025              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1026              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1027            ),
1028
1029            LIAISON_ELEM    =FACT(statut='f',fr="Raccorder une poutre à une partie massive 3D ou une coque", min=1,max='**',
1030              regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
1031                      UN_PARMI('GROUP_NO_2','NOEUD_2'),),
1032              OPTION          =SIMP(statut='o',typ='TXM',into=("3D_TUYAU","3D_POU","COQ_POU","COQ_TUYAU") ),
1033              GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1034              MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1035              GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
1036              NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1037              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1038              CARA_ELEM       =SIMP(statut='f',typ=(cara_elem) ),
1039              AXE_POUTRE      =SIMP(statut='f',typ='R',max=3),
1040              ANGL_MAX        =SIMP(statut='f',typ='R',defaut= 1. ),
1041            ),
1042
1043            LIAISON_UNIF    =FACT(statut='f',fr="Imposer une meme valeur (inconnue) à des ddls d'un emsemble de noeuds",
1044                                  min=1,max='**',
1045              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1046              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1047              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1048              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1049              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1050              DDL             =SIMP(statut='o',typ='TXM',max='**'),
1051            ),
1052
1053          LIAISON_CHAMNO  =FACT(statut='f',fr="définir une relation linéaire entre tous les ddls d'un concept cham_nno",
1054                                  min=1,max='**',
1055 #  type de cham_no CO()
1056              CHAM_NO         =SIMP(statut='o',typ=cham_no), #CO()
1057              COEF_IMPO       =SIMP(statut='o',typ='R' ),
1058              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1059            ),
1060
1061          VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
1062
1063          CONTACT         =FACT(statut='f',fr="Imposer du contact avec ou sans frottement",min=1,max='**',
1064            regles=(UN_PARMI('GROUP_MA_2','MAILLE_2'),),
1065            APPARIEMENT     =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
1066                                  into=("NON","NODAL","NODAL_SYME","MAIT_ESCL","MAIT_ESCL_SYME")),
1067            RECHERCHE       =SIMP(statut='f',typ='TXM',defaut="NOEUD_VOISIN",into=("NOEUD_BOUCLE","NOEUD_VOISIN")),
1068            LISSAGE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
1069            NORMALE         =SIMP(statut='f',typ='TXM',defaut="MAIT",into=("MAIT","MAIT_ESCL")),
1070            METHODE         =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
1071                                  into=("CONTRAINTE","LAGRANGIEN","PENALISATION","CONTINUE") ),
1072            PROJECTION      =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","QUADRATIQUE") ),
1073            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1074            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1075            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1076            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1077            b_active        =BLOC(condition = "METHODE == 'CONTRAINTE' ",
1078                                  fr="Paramètres de la méthode des contraintes actives (contact uniquement)",
1079                 regles=(EXCLUS('DIST_2','COEF_IMPO'),
1080                         EXCLUS('DIST_1','COEF_IMPO'),),
1081                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","PRES","TEMP")),
1082                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS",) ),
1083                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1084                 b_reac_geom     =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1085                                  fr="Paramètre de la réactualisation géométrique",
1086                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
1087                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1088                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1089                 COEF_IMPO       =SIMP(statut='f',typ='R'),
1090                 COEF_MULT_2     =SIMP(statut='f',typ='R'),
1091                 VECT_NORM_2     =SIMP(statut='f',typ='R',max=3),
1092                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
1093                 DIST_1          =SIMP(statut='f',typ='R'),
1094                 DIST_2          =SIMP(statut='f',typ='R'),
1095                 STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),),
1096            b_lagrangien    =BLOC(condition = "METHODE == 'LAGRANGIEN' ",
1097                                  fr="Paramètres de la méthode Lagrangienne (contact avec ou sans frottement)",
1098                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1099                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1100                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1101                 b_reac_geom     =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1102                                  fr="Paramètre de la réactualisation géométrique",
1103                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
1104                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1105                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1106                 DIST_1          =SIMP(statut='f',typ='R'),
1107                 DIST_2          =SIMP(statut='f',typ='R'),
1108                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
1109                 STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
1110                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1111                      COULOMB         =SIMP(statut='o',typ='R',max=1),
1112                      COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut=0.E+0),
1113                      ),),
1114            b_penalisation       =BLOC(condition = "METHODE == 'PENALISATION' ",
1115                                       fr="Paramètres de la méthode pénalisée (contact avec ou sans frottement)",
1116                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1117                 E_N             =SIMP(statut='f',typ='R'),
1118                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1119                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1120                 b_reac_geom     =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1121                                  fr="Paramètre de la réactualisation géométrique",
1122                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
1123                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1124                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1125                 DIST_1          =SIMP(statut='f',typ='R'),
1126                 DIST_2          =SIMP(statut='f',typ='R'),
1127                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
1128                 STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
1129                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1130                      COULOMB         =SIMP(statut='o',typ='R',max=1),
1131                      E_T             =SIMP(statut='f',typ='R',
1132                                            fr="Active la pénalisation sur le frottement et définit le coefficient de pénalisation"),
1133                      COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut=0.E+0),
1134                      ),),
1135            b_continue      =BLOC(condition = "METHODE == 'CONTINUE' ",
1136                                  fr="Paramètres de la méthode continue (contact avec ou sans frottement)",
1137                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1138                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1139                 INTEGRATION     =SIMP(statut='f',typ='TXM',defaut="NOEUD",into=("GAUSS","NOEUD","SIMPSON","SIMPSON1","SIMPSON2")),
1140                 COEF_REGU_CONT  =SIMP(statut='f',typ='R',defaut=100.E+0),
1141                 MODL_AXIS       =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
1142                 DIRECTION_APPA  =SIMP(statut='f',typ='R',max=3,defaut=(0.,0.,0.,)),
1143                 ITER_GEOM_MAXI  =SIMP(statut='f',typ='I',defaut=2),
1144                 ITER_CONT_MAXI  =SIMP(statut='f',typ='I',defaut=30),
1145                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1146                      COULOMB         =SIMP(statut='o',typ='R',max=1),
1147                      ITER_FROT_MAXI  =SIMP(statut='f',typ='I',defaut=2),
1148                      COEF_REGU_FROT  =SIMP(statut='f',typ='R',defaut=100.E+0),
1149                      SEUIL_INIT      =SIMP(statut='f',typ='I',defaut=0),),),
1150          ),
1151
1152          FORCE_NODALE    =FACT(statut='f',fr="Imposer des forces nodales en des noeuds",min=1,max='**',
1153            regles=(AU_MOINS_UN('GROUP_NO','NOEUD'),
1154                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
1155            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1156            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1157            FX              =SIMP(statut='f',typ='R' ),
1158            FY              =SIMP(statut='f',typ='R' ),
1159            FZ              =SIMP(statut='f',typ='R' ),
1160            MX              =SIMP(statut='f',typ='R' ),
1161            MY              =SIMP(statut='f',typ='R' ),
1162            MZ              =SIMP(statut='f',typ='R' ),
1163            ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
1164          ),
1165
1166          FORCE_FACE      =FACT(statut='f',fr="Appliquer des forces surfaciques sur une face d'éléments volumiques",
1167                                  min=1,max='**',
1168              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1169                      AU_MOINS_UN('FX','FY','FZ'),),
1170              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1171              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1172              FX              =SIMP(statut='f',typ='R' ),
1173              FY              =SIMP(statut='f',typ='R' ),
1174              FZ              =SIMP(statut='f',typ='R' ),
1175            ),
1176
1177          FORCE_ARETE     =FACT(statut='f',fr="Appliquer des forces linéiques à une arete d élément volumique ou de coque",
1178                                  min=1,max='**',
1179              regles=(AU_MOINS_UN('GROUP_MA','MAILLE',),
1180                      AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
1181              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1182              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1183              FX              =SIMP(statut='f',typ='R' ),
1184              FY              =SIMP(statut='f',typ='R' ),
1185              FZ              =SIMP(statut='f',typ='R' ),
1186              MX              =SIMP(statut='f',typ='R' ),
1187              MY              =SIMP(statut='f',typ='R' ),
1188              MZ              =SIMP(statut='f',typ='R' ),
1189            ),
1190
1191          FORCE_CONTOUR   =FACT(statut='f',fr="Appliquer des forces linéiques au bord d'un domaine 2D ou AXIS_FOURIER",
1192                                  min=1,max='**',
1193              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1194                      AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1195              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1196              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1197              FX              =SIMP(statut='f',typ='R' ),
1198              FY              =SIMP(statut='f',typ='R' ),
1199              FZ              =SIMP(statut='f',typ='R' ),
1200              MX              =SIMP(statut='f',typ='R' ),
1201              MY              =SIMP(statut='f',typ='R' ),
1202              MZ              =SIMP(statut='f',typ='R' ),
1203            ),
1204
1205          FORCE_INTERNE   =FACT(statut='f',fr="Appliquer des forces volumiques (2D ou 3D) à un domaine volumique",
1206                                  min=1,max='**',
1207              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1208                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1209                      AU_MOINS_UN('FX','FY','FZ' ),),
1210              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1211              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1212              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1213              FX              =SIMP(statut='f',typ='R' ),
1214              FY              =SIMP(statut='f',typ='R' ),
1215              FZ              =SIMP(statut='f',typ='R' ),
1216            ),
1217
1218          PRES_REP        =FACT(statut='f',fr="Appliquer une pression à un domaine de milieu continu 2D ou 3D",
1219                                  min=1,max='**',
1220              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1221                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1222                      AU_MOINS_UN('PRES','CISA_2D' ),),
1223              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1224              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1225              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1226              PRES            =SIMP(statut='f',typ='R' ),
1227              CISA_2D         =SIMP(statut='f',typ='R' ),
1228            ),
1229
1230          EFFE_FOND       =FACT(statut='f',fr="Imposer un effet de fond",min=1,max='**',
1231            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1232            GROUP_MA_INT    =SIMP(statut='o',typ=grma,max='**'),
1233            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1234            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1235            PRES            =SIMP(statut='o',typ='R' ),
1236          ),
1237
1238          EPSI_INIT       =FACT(statut='f',fr="Appliquer un chargement de déformation initiale à un volume 3D ou 2D",
1239                                  min=1,max='**',
1240              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1241                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1242                      AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ','EPX',
1243                                  'KY','KZ','EXX','EYY','EXY','KXX','KYY','KXY'),),
1244              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1245              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1246              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1247              EPXX            =SIMP(statut='f',typ='R' ),
1248              EPYY            =SIMP(statut='f',typ='R' ),
1249              EPZZ            =SIMP(statut='f',typ='R' ),
1250              EPXY            =SIMP(statut='f',typ='R' ),
1251              EPXZ            =SIMP(statut='f',typ='R' ),
1252              EPYZ            =SIMP(statut='f',typ='R' ),
1253              EPX             =SIMP(statut='f',typ='R' ),
1254              KY              =SIMP(statut='f',typ='R' ),
1255              KZ              =SIMP(statut='f',typ='R' ),
1256              EXX             =SIMP(statut='f',typ='R' ),
1257              EYY             =SIMP(statut='f',typ='R' ),
1258              EXY             =SIMP(statut='f',typ='R' ),
1259              KXX             =SIMP(statut='f',typ='R' ),
1260              KYY             =SIMP(statut='f',typ='R' ),
1261              KXY             =SIMP(statut='f',typ='R' ),
1262            ),
1263
1264          ARLEQUIN        =FACT(statut='f',min=1,max='**',
1265            GROUP_MA_1     =SIMP(statut='o',typ=grma,max='**'),
1266            GROUP_MA_2     =SIMP(statut='o',typ=grma,max='**'),
1267            GROUP_MA_COLL  =SIMP(statut='o',typ=grma,max='**'),
1268            CARA_ELEM      =SIMP(statut='f',typ=(cara_elem) ),
1269            regles        =(UN_PARMI('POIDS_1','POIDS_2'),),
1270            POIDS_1       =SIMP(statut='f',typ='R'),
1271            POIDS_2       =SIMP(statut='f',typ='R'),
1272          ),
1273
1274         FORCE_POUTRE    =FACT(statut='f',fr="Appliquer des forces linéiques sur des poutres",min=1,max='**',
1275              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1276                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1277                      AU_MOINS_UN('FX','FY','FZ','N','VY','VZ'),
1278                      PRESENT_ABSENT('FX','N','VY','VZ'),
1279                      PRESENT_ABSENT('FY','N','VY','VZ'),
1280                      PRESENT_ABSENT('FZ','N','VY','VZ'),
1281                      PRESENT_ABSENT('N','FX','FY','FZ'),
1282                      PRESENT_ABSENT('VY','FX','FY','FZ'),
1283                      PRESENT_ABSENT('VZ','FX','FY','FZ'),),
1284              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1285              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1286              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1287              TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE",) ),
1288 #  rajour d'un mot clé REPERE :/ LOCAL /GLOBAL
1289                FX              =SIMP(statut='f',typ='R' ),
1290                FY              =SIMP(statut='f',typ='R' ),
1291                FZ              =SIMP(statut='f',typ='R' ),
1292
1293                N               =SIMP(statut='f',typ='R' ),
1294                VY              =SIMP(statut='f',typ='R' ),
1295                VZ              =SIMP(statut='f',typ='R' ),
1296
1297            ),
1298
1299          FORCE_TUYAU     =FACT(statut='f',fr="imposer une pression dans un élément TUYAU",min=1,max='**',
1300              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1301                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
1302              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1303              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1304              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1305              PRES            =SIMP(statut='f',typ='R' ),
1306            ),
1307
1308          FORCE_COQUE     =FACT(statut='f',fr="Appliquer des forces surfaciques sur des coques",min=1,max='**',
1309              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1310                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1311                      AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
1312                      PRESENT_ABSENT('FX','PRES','F1','F2','F3','MF1','MF2'),
1313                      PRESENT_ABSENT('FY','PRES','F1','F2','F3','MF1','MF2'),
1314                      PRESENT_ABSENT('FZ','PRES','F1','F2','F3','MF1','MF2'),
1315                      PRESENT_ABSENT('MX','PRES','F1','F2','F3','MF1','MF2'),
1316                      PRESENT_ABSENT('MY','PRES','F1','F2','F3','MF1','MF2'),
1317                      PRESENT_ABSENT('MZ','PRES','F1','F2','F3','MF1','MF2'),
1318                      PRESENT_ABSENT('F1','FX','FY','FZ','MX','MY','MZ','PRES'),
1319                      PRESENT_ABSENT('F2','FX','FY','FZ','MX','MY','MZ','PRES'),
1320                      PRESENT_ABSENT('F3','FX','FY','FZ','MX','MY','MZ','PRES'),
1321                      PRESENT_ABSENT('MF1','FX','FY','FZ','MX','MY','MZ','PRES'),
1322                      PRESENT_ABSENT('MF2','FX','FY','FZ','MX','MY','MZ','PRES'),
1323                      PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
1324 #  rajour d'un mot clé REPERE :/ LOCAL /GLOBAL
1325              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1326              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1327              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1328
1329                FX              =SIMP(statut='f',typ='R' ),
1330                FY              =SIMP(statut='f',typ='R' ),
1331                FZ              =SIMP(statut='f',typ='R' ),
1332                MX              =SIMP(statut='f',typ='R' ),
1333                MY              =SIMP(statut='f',typ='R' ),
1334                MZ              =SIMP(statut='f',typ='R' ),
1335
1336                F1              =SIMP(statut='f',typ='R' ),
1337                F2              =SIMP(statut='f',typ='R' ),
1338                F3              =SIMP(statut='f',typ='R' ),
1339                MF1             =SIMP(statut='f',typ='R' ),
1340                MF2             =SIMP(statut='f',typ='R' ),
1341
1342              PRES            =SIMP(statut='f',typ='R' ),
1343              PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL",) ),
1344            ),
1345
1346
1347            LIAISON_COQUE   =FACT(statut='f',min=1,max='**',
1348              GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1349              MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1350              GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
1351              NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
1352              GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1353              MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1354              GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
1355              NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1356              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1357            ),
1358
1359          RELA_CINE_BP    =FACT(statut='f',min=1,max='**',
1360            CABLE_BP        =SIMP(statut='o',typ=cabl_precont ),
1361            SIGM_BPEL       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1362            RELA_CINE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1363          ),
1364
1365          FORCE_ELEC      =FACT(statut='f',
1366                                  fr="Force de Laplace due à la présence d'un conducteur rectiligne secondaire non maillé",
1367                                  min=1,max='**',
1368              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1369                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1370                      AU_MOINS_UN('FX','FY','FZ','POSITION'),
1371                      EXCLUS('FX','POSITION'),
1372                      EXCLUS('FY','POSITION'),
1373                      EXCLUS('FZ','POSITION'),),
1374 #  trop de regles : les blocs conditionnels permettent d en suprimer
1375              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1376              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1377              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1378
1379              FX              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1380              FY              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1381              FZ              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1382
1383              POSITION        =SIMP(statut='f',typ='TXM',fr="Direction prédéfinie",into=("PARA","INFI","FINI",) ),
1384              b_para     =BLOC ( condition = "POSITION == 'PARA'",
1385                regles=(UN_PARMI('TRANS','DIST'),),
1386                TRANS           =SIMP(statut='f',typ='R',max=3),
1387                DIST            =SIMP(statut='f',typ='R' ),
1388                b_point2        =BLOC ( condition = "DIST != None",
1389                  POINT2           =SIMP(statut='o',typ='R',max=3),
1390                ),
1391              ),
1392              b_fini_infi     =BLOC ( condition = "(POSITION == 'FINI') or (POSITION == 'INFI')",
1393                POINT1          =SIMP(statut='o',typ='R',max=3),
1394                POINT2          =SIMP(statut='o',typ='R',max=3),
1395              ),
1396            ),
1397
1398
1399
1400
1401         INTE_ELEC       =FACT(statut='f',fr="Force de Laplace due à la présence d'un conducteur non rectiligne secondaire",
1402                                  min=1,max='**',
1403              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1404                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1405                      AU_MOINS_UN('GROUP_MA_2','MAILLE_2','TRANS','SYME'),
1406                      EXCLUS('TRANS','SYME'),),
1407              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1408              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1409              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1410              GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1411              MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1412              TRANS           =SIMP(statut='f',typ='R',max='**'),
1413              SYME            =SIMP(statut='f',typ='R',max='**'),
1414            ),
1415
1416
1417          IMPE_FACE       =FACT(statut='f',fr="Appliquer une impédance acoustique à une face",min=1,max='**',
1418              regles=(AU_MOINS_UN('GROUP_MA','MAILLE' ),),
1419              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1420              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1421              IMPE            =SIMP(statut='o',typ='R' ),
1422            ),
1423
1424          VITE_FACE       =FACT(statut='f',fr="Imposer des vitesses acoustiquesnormales à une face",min=1,max='**',
1425              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1426              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1427              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1428              VNOR            =SIMP(statut='o',typ='R' ),
1429            ),
1430
1431
1432
1433          ONDE_FLUI       =FACT(statut='f',fr="Appliquer une amplitude de pression d onde incidente",min=1,max='**',
1434              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1435              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1436              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1437              PRES            =SIMP(statut='o',typ='R' ),
1438            ),
1439
1440          FLUX_THM_REP    =FACT(statut='f',min=1,max='**',
1441              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1442                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1443                      AU_MOINS_UN('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
1444              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1445              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1446              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1447              FLUN            =SIMP(statut='f',typ='R' ),
1448              FLUN_HYDR1      =SIMP(statut='f',typ='R' ),
1449              FLUN_HYDR2      =SIMP(statut='f',typ='R' ),
1450            ),
1451
1452          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1453 )  ;
1454 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
1455 #            CONFIGURATION MANAGEMENT OF EDF VERSION
1456 # ======================================================================
1457 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
1458 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1459 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1460 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1461 # (AT YOUR OPTION) ANY LATER VERSION.
1462 #
1463 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1464 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1465 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1466 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1467 #
1468 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1469 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1470 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1471 # ======================================================================
1472 # RESPONSABLE G8BHHXD X.DESROCHES
1473 AFFE_CHAR_MECA_C=OPER(nom="AFFE_CHAR_MECA_C",op=   7,sd_prod=char_meca,
1474                      fr="Affectation de charges et conditions aux limites mécaniques complexes",
1475                      docu="U4.44.05-d2",reentrant='n',
1476             UIinfo={"groupes":("Modélisation",)},
1477          regles=(AU_MOINS_UN('DDL_IMPO','FORCE_POUTRE','LIAISON_DDL', ),),
1478          MODELE          =SIMP(statut='o',typ=modele ),
1479          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1480          DDL_IMPO        =FACT(statut='f',min=1,max='**',
1481            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
1482                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI', ),),
1483            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1484            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1485            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1486            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1487            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1488            DX              =SIMP(statut='f',typ='C' ),
1489            DY              =SIMP(statut='f',typ='C' ),
1490            DZ              =SIMP(statut='f',typ='C' ),
1491            DRX             =SIMP(statut='f',typ='C' ),
1492            DRY             =SIMP(statut='f',typ='C' ),
1493            DRZ             =SIMP(statut='f',typ='C' ),
1494            GRX             =SIMP(statut='f',typ='C' ),
1495            PRES            =SIMP(statut='f',typ='C' ),
1496            PHI             =SIMP(statut='f',typ='C' ),
1497          ),
1498          FORCE_POUTRE    =FACT(statut='f',min=1,max='**',
1499            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1500                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1501                    AU_MOINS_UN('FX','FY','FZ','N','VY','VZ',),
1502                    PRESENT_ABSENT('FX','N','VY','VZ',),
1503                    PRESENT_ABSENT('FY','N','VY','VZ',),
1504                    PRESENT_ABSENT('FZ','N','VY','VZ',),
1505                    PRESENT_ABSENT('N','FX','FY','FZ',),
1506                    PRESENT_ABSENT('VY', 'FX','FY','FZ',),
1507                    PRESENT_ABSENT('VZ','FX','FY','FZ', ),),
1508            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1509            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1510            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1511            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE") ),
1512            FX              =SIMP(statut='f',typ='C' ),
1513            FY              =SIMP(statut='f',typ='C' ),
1514            FZ              =SIMP(statut='f',typ='C' ),
1515            N               =SIMP(statut='f',typ='C' ),
1516            VY              =SIMP(statut='f',typ='C' ),
1517            VZ              =SIMP(statut='f',typ='C' ),
1518          ),
1519          LIAISON_DDL     =FACT(statut='f',min=1,max='**',
1520            regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
1521            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1522            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1523            DDL             =SIMP(statut='o',typ='TXM',max='**'),
1524            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
1525            COEF_IMPO       =SIMP(statut='o',typ='C' ),
1526          ),
1527          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1528 )  ;
1529 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
1530 #            CONFIGURATION MANAGEMENT OF EDF VERSION
1531 # ======================================================================
1532 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
1533 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1534 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1535 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1536 # (AT YOUR OPTION) ANY LATER VERSION.
1537 #
1538 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1539 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1540 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1541 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1542 #
1543 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1544 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1545 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1546 # ======================================================================
1547 # RESPONSABLE G8BHHXD X.DESROCHES
1548 AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
1549                       fr="Affectation de charges et conditions aux limites mécaniques fonction d une grandeur",
1550                       docu="U4.44.01-g3",reentrant='n',
1551             UIinfo={"groupes":("Modélisation",)},
1552         regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
1553                             'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
1554                             'PRES_REP','FORCE_POUTRE','VITE_FACE','IMPE_FACE','ONDE_PLANE',
1555                             'LIAISON_OBLIQUE','EPSI_INIT','LIAISON_GROUP','LIAISON_UNIF',
1556                             'LIAISON_SOLIDE','FORCE_COQUE','LIAISON_COQUE','FORCE_TUYAU',
1557                             'CONTACT'),),
1558          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1559          VERI_NORM       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1560          MODELE          =SIMP(statut='o',typ=modele ),
1561
1562          DDL_IMPO        =FACT(statut='f',min=1,max='**',
1563            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
1564                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
1565                                'TEMP','PRE1','PRE2'),),
1566            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1567            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1568            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1569            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1570            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1571            DX              =SIMP(statut='f',typ=(fonction) ),
1572            DY              =SIMP(statut='f',typ=(fonction) ),
1573            DZ              =SIMP(statut='f',typ=(fonction) ),
1574            DRX             =SIMP(statut='f',typ=(fonction) ),
1575            DRY             =SIMP(statut='f',typ=(fonction) ),
1576            DRZ             =SIMP(statut='f',typ=(fonction) ),
1577            GRX             =SIMP(statut='f',typ=(fonction) ),
1578            PRES            =SIMP(statut='f',typ=(fonction) ),
1579            PHI             =SIMP(statut='f',typ=(fonction) ),
1580            TEMP            =SIMP(statut='f',typ=(fonction) ),
1581            PRE1            =SIMP(statut='f',typ=(fonction) ),
1582            PRE2            =SIMP(statut='f',typ=(fonction) ),
1583          ),
1584
1585          FACE_IMPO       =FACT(statut='f',min=1,max='**',
1586            regles=(UN_PARMI('GROUP_MA','MAILLE'),
1587                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI','TEMP','PRE1','PRE2','DNOR','DTAN'),
1588                    EXCLUS('DNOR','DX'),
1589                    EXCLUS('DNOR','DY'),
1590                    EXCLUS('DNOR','DZ'),
1591                    EXCLUS('DNOR','DRX'),
1592                    EXCLUS('DNOR','DRY'),
1593                    EXCLUS('DNOR','DRZ'),
1594                    EXCLUS('DTAN','DX'),
1595                    EXCLUS('DTAN','DY'),
1596                    EXCLUS('DTAN','DZ'),
1597                    EXCLUS('DTAN','DRX'),
1598                    EXCLUS('DTAN','DRY'),
1599                    EXCLUS('DTAN','DRZ'),),
1600 #  rajout d un mot cle REPERE : / GLOBAL / LOCAL
1601            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1602            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1603            DX              =SIMP(statut='f',typ=(fonction) ),
1604            DY              =SIMP(statut='f',typ=(fonction) ),
1605            DZ              =SIMP(statut='f',typ=(fonction) ),
1606            DRX             =SIMP(statut='f',typ=(fonction) ),
1607            DRY             =SIMP(statut='f',typ=(fonction) ),
1608            DRZ             =SIMP(statut='f',typ=(fonction) ),
1609            GRX             =SIMP(statut='f',typ=(fonction) ),
1610            PRES            =SIMP(statut='f',typ=(fonction) ),
1611            PHI             =SIMP(statut='f',typ=(fonction) ),
1612            TEMP            =SIMP(statut='f',typ=(fonction) ),
1613            PRE1            =SIMP(statut='f',typ=(fonction) ),
1614            PRE2            =SIMP(statut='f',typ=(fonction) ),
1615            DNOR            =SIMP(statut='f',typ=(fonction) ),
1616            DTAN            =SIMP(statut='f',typ=(fonction) ),
1617          ),
1618
1619          LIAISON_DDL     =FACT(statut='f',min=1,max='**',
1620                                fr="Définir une relation linéaire entre des ddls de deux ou plusieurs noeuds",
1621            regles=(UN_PARMI('GROUP_NO','NOEUD'),),
1622            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1623            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1624            DDL             =SIMP(statut='o',typ='TXM',max='**'),
1625            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
1626            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
1627          ),
1628
1629          LIAISON_OBLIQUE =FACT(statut='f',min=1,max='**',
1630                                fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1631            regles=(UN_PARMI('GROUP_NO','NOEUD'),
1632                    UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
1633            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1634            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1635            ANGL_NAUT       =SIMP(statut='o',typ='R',max=3),
1636            DX              =SIMP(statut='f',typ=(fonction) ),
1637            DY              =SIMP(statut='f',typ=(fonction) ),
1638            DZ              =SIMP(statut='f',typ=(fonction) ),
1639            DRX             =SIMP(statut='f',typ=(fonction) ),
1640            DRY             =SIMP(statut='f',typ=(fonction) ),
1641            DRZ             =SIMP(statut='f',typ=(fonction) ),
1642          ),
1643
1644          LIAISON_GROUP   =FACT(statut='f',min=1,max='**',
1645                                fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1646            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1647                    UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1648                    EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1649                    EXCLUS('GROUP_MA_1','NOEUD_2'),
1650                    EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1651                    EXCLUS('GROUP_NO_1','MAILLE_2'),
1652                    EXCLUS('MAILLE_1','GROUP_NO_2'),
1653                    EXCLUS('MAILLE_1','NOEUD_2'),
1654                    EXCLUS('NOEUD_1','GROUP_MA_2'),
1655                    EXCLUS('NOEUD_1','MAILLE_2'),
1656                    EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1657            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1658            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1659            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
1660            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
1661            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1662            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1663            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
1664            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1665            SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1666            SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1667            DDL_1           =SIMP(statut='o',typ='TXM',max='**'),
1668            COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
1669            DDL_2           =SIMP(statut='o',typ='TXM',max='**'),
1670            COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
1671            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
1672            SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1673            TRAN            =SIMP(statut='f',typ='R',max=3),
1674            ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
1675            CENTRE          =SIMP(statut='f',typ='R',max=3),
1676          ),
1677
1678          CONTACT         =FACT(statut='f',fr="Imposer du contact avec ou sans frottement",min=1,max='**',
1679            regles=(UN_PARMI('GROUP_MA_2','MAILLE_2'),),
1680            APPARIEMENT     =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
1681                                  into=("NON","NODAL","NODAL_SYME","MAIT_ESCL","MAIT_ESCL_SYME")),
1682            RECHERCHE       =SIMP(statut='f',typ='TXM',defaut="NOEUD_VOISIN",into=("NOEUD_BOUCLE","NOEUD_VOISIN")),
1683            LISSAGE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
1684            NORMALE         =SIMP(statut='f',typ='TXM',defaut="MAIT",into=("MAIT","MAIT_ESCL")),
1685            METHODE         =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
1686                                  into=("CONTRAINTE","LAGRANGIEN","PENALISATION","CONTINUE") ),
1687            PROJECTION      =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","QUADRATIQUE") ),
1688            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1689            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1690            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1691            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1692            b_active        =BLOC(condition = "METHODE == 'CONTRAINTE' ",
1693                                  fr="Paramètres de la méthode des contraintes actives (contact uniquement)",
1694                 regles=(EXCLUS('DIST_2','COEF_IMPO'),
1695                         EXCLUS('DIST_1','COEF_IMPO'),),
1696                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","PRES","TEMP")),
1697                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS",) ),
1698                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1699                 b_reac_geom     =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1700                                  fr="Paramètre de la réactualisation géométrique",
1701                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
1702                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1703                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1704                 COEF_IMPO       =SIMP(statut='f',typ='R'),
1705                 COEF_MULT_2     =SIMP(statut='f',typ='R'),
1706                 VECT_NORM_2     =SIMP(statut='f',typ='R',max=3),
1707                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
1708                 DIST_1          =SIMP(statut='f',typ=(fonction)),
1709                 DIST_2          =SIMP(statut='f',typ=(fonction)),
1710                 STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),),
1711            b_lagrangien    =BLOC(condition = "METHODE == 'LAGRANGIEN' ",
1712                                  fr="Paramètres de la méthode Lagrangienne (contact avec ou sans frottement)",
1713                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1714                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1715                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1716                 b_reac_geom     =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1717                                  fr="Paramètre de la réactualisation géométrique",
1718                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
1719                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1720                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1721                 DIST_1          =SIMP(statut='f',typ=(fonction)),
1722                 DIST_2          =SIMP(statut='f',typ=(fonction)),
1723                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
1724                 STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
1725                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1726                      COULOMB         =SIMP(statut='o',typ='R',max=1),
1727                      COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut=0.E+0),
1728                      ),),
1729            b_penalisation       =BLOC(condition = "METHODE == 'PENALISATION' ",
1730                                       fr="Paramètres de la méthode pénalisée (contact avec ou sans frottement)",
1731                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1732                 E_N             =SIMP(statut='f',typ='R'),
1733                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1734                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1735                 b_reac_geom     =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1736                                  fr="Paramètre de la réactualisation géométrique",
1737                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
1738                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1739                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1740                 DIST_1          =SIMP(statut='f',typ=(fonction)),
1741                 DIST_2          =SIMP(statut='f',typ=(fonction)),
1742                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
1743                 STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
1744                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1745                      COULOMB         =SIMP(statut='o',typ='R',max=1),
1746                      E_T             =SIMP(statut='f',typ='R',
1747                                            fr="Active la pénalisation sur le frottement et définit le coefficient de pénalisation"),
1748                      COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut=0.E+0),
1749                      ),),
1750            b_continue      =BLOC(condition = "METHODE == 'CONTINUE' ",
1751                                  fr="Paramètres de la méthode continue (contact avec ou sans frottement)",
1752                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1753                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1754                 INTEGRATION     =SIMP(statut='f',typ='TXM',defaut="NOEUD",into=("GAUSS","NOEUD","SIMPSON","SIMPSON1","SIMPSON2")),
1755                 COEF_REGU_CONT  =SIMP(statut='f',typ='R',defaut=100.E+0),
1756                 MODL_AXIS       =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
1757                 DIRECTION_APPA  =SIMP(statut='f',typ='R',max=3),
1758                 ITER_GEOM_MAXI  =SIMP(statut='f',typ='I',defaut=2),
1759                 ITER_CONT_MAXI  =SIMP(statut='f',typ='I',defaut=30),
1760                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1761                      COULOMB         =SIMP(statut='o',typ='R',max=1),
1762                      ITER_FROT_MAXI  =SIMP(statut='f',typ='I',defaut=2),
1763                      COEF_REGU_FROT  =SIMP(statut='f',typ='R',defaut=100.E+0),
1764                      SEUIL_INIT      =SIMP(statut='f',typ='I',defaut=0),),),
1765          ),
1766
1767           LIAISON_UNIF    =FACT(statut='f',min=1,max='**',
1768                                fr="Imposer une meme valeur (inconnue) a des ddls d un emsemble de noeuds",
1769            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1770            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1771            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1772            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1773            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1774            DDL             =SIMP(statut='o',typ='TXM',max='**'),
1775          ),
1776
1777          LIAISON_SOLIDE  =FACT(statut='f',min=1,max='**',
1778                                fr="Modéliser une partie indéformable d une structure",
1779            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1780            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1781            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1782            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1783            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1784            NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
1785          ),
1786
1787
1788
1789          FORCE_NODALE    =FACT(statut='f',min=1,max='**',
1790            regles=(UN_PARMI('GROUP_NO','NOEUD'),
1791                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1792            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1793            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1794            FX              =SIMP(statut='f',typ=(fonction) ),
1795            FY              =SIMP(statut='f',typ=(fonction) ),
1796            FZ              =SIMP(statut='f',typ=(fonction) ),
1797            MX              =SIMP(statut='f',typ=(fonction) ),
1798            MY              =SIMP(statut='f',typ=(fonction) ),
1799            MZ              =SIMP(statut='f',typ=(fonction) ),
1800            ANGL_NAUT       =SIMP(statut='f',typ=(fonction),max=3 ),
1801          ),
1802
1803          FORCE_FACE      =FACT(statut='f',min=1,max='**',
1804            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1805                    AU_MOINS_UN('FX','FY','FZ'),),
1806            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1807            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1808            FX              =SIMP(statut='f',typ=(fonction) ),
1809            FY              =SIMP(statut='f',typ=(fonction) ),
1810            FZ              =SIMP(statut='f',typ=(fonction) ),
1811          ),
1812          FORCE_ARETE     =FACT(statut='f',min=1,max='**',
1813            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1814                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1815            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1816            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1817            FX              =SIMP(statut='f',typ=(fonction) ),
1818            FY              =SIMP(statut='f',typ=(fonction) ),
1819            FZ              =SIMP(statut='f',typ=(fonction) ),
1820            MX              =SIMP(statut='f',typ=(fonction) ),
1821            MY              =SIMP(statut='f',typ=(fonction) ),
1822            MZ              =SIMP(statut='f',typ=(fonction) ),
1823          ),
1824          FORCE_CONTOUR   =FACT(statut='f',min=1,max='**',
1825            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1826                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1827            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1828            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1829            FX              =SIMP(statut='f',typ=(fonction) ),
1830            FY              =SIMP(statut='f',typ=(fonction) ),
1831            FZ              =SIMP(statut='f',typ=(fonction) ),
1832            MX              =SIMP(statut='f',typ=(fonction) ),
1833            MY              =SIMP(statut='f',typ=(fonction) ),
1834            MZ              =SIMP(statut='f',typ=(fonction) ),
1835          ),
1836
1837          FORCE_INTERNE   =FACT(statut='f',min=1,max='**',
1838            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1839                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1840                    AU_MOINS_UN('FX','FY','FZ'),),
1841            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1842            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1843            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1844            FX              =SIMP(statut='f',typ=(fonction) ),
1845            FY              =SIMP(statut='f',typ=(fonction) ),
1846            FZ              =SIMP(statut='f',typ=(fonction) ),
1847          ),
1848
1849          PRES_REP        =FACT(statut='f',min=1,max='**',
1850            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1851                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1852                    AU_MOINS_UN('PRES','CISA_2D'),),
1853            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1854            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1855            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1856            PRES            =SIMP(statut='f',typ=(fonction) ),
1857            CISA_2D         =SIMP(statut='f',typ=(fonction) ),
1858          ),
1859
1860          EPSI_INIT       =FACT(statut='f',min=1,max='**',
1861            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1862                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1863                    AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ'),),
1864            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1865            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1866            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1867            EPXX            =SIMP(statut='f',typ=(fonction) ),
1868            EPYY            =SIMP(statut='f',typ=(fonction) ),
1869            EPZZ            =SIMP(statut='f',typ=(fonction) ),
1870            EPXY            =SIMP(statut='f',typ=(fonction) ),
1871            EPXZ            =SIMP(statut='f',typ=(fonction) ),
1872            EPYZ            =SIMP(statut='f',typ=(fonction) ),
1873          ),
1874
1875          FORCE_POUTRE    =FACT(statut='f',min=1,max='**',
1876            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1877                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1878                    AU_MOINS_UN('FX','FY','FZ','N','VY','VZ'),
1879                    PRESENT_ABSENT('FX','N','VY','VZ'),
1880                    PRESENT_ABSENT('FY','N','VY','VZ'),
1881                    PRESENT_ABSENT('FZ','N','VY','VZ'),
1882                    PRESENT_ABSENT('N','FX','FY','FZ'),
1883                    PRESENT_ABSENT('VY','FX','FY','FZ'),
1884                    PRESENT_ABSENT('VZ','FX','FY','FZ'),),
1885 #  rajout d un mot cle REPERE : / GLOBAL / LOCAL
1886            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1887            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1888            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1889            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE") ),
1890            FX              =SIMP(statut='f',typ=(fonction) ),
1891            FY              =SIMP(statut='f',typ=(fonction) ),
1892            FZ              =SIMP(statut='f',typ=(fonction) ),
1893            N               =SIMP(statut='f',typ=(fonction) ),
1894            VY              =SIMP(statut='f',typ=(fonction) ),
1895            VZ              =SIMP(statut='f',typ=(fonction) ),
1896          ),
1897
1898          FORCE_TUYAU     =FACT(statut='f',min=1,max='**',
1899            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1900                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
1901            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1902            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1903            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1904            PRES            =SIMP(statut='f',typ=(fonction) ),
1905          ),
1906
1907          FORCE_COQUE     =FACT(statut='f',min=1,max='**',
1908            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1909                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1910                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
1911                    PRESENT_ABSENT('FX','PRES','F1','F2','F3','MF1','MF2'),
1912                    PRESENT_ABSENT('FY','PRES','F1','F2','F3','MF1','MF2'),
1913                    PRESENT_ABSENT('FZ','PRES','F1','F2','F3','MF1','MF2'),
1914                    PRESENT_ABSENT('MX','PRES','F1','F2','F3','MF1','MF2'),
1915                    PRESENT_ABSENT('MY','PRES','F1','F2','F3','MF1','MF2'),
1916                    PRESENT_ABSENT('MZ','PRES','F1','F2','F3','MF1','MF2'),
1917                    PRESENT_ABSENT('F1','PRES','FX','FY','FZ','MX','MY','MZ'),
1918                    PRESENT_ABSENT('F2','PRES','FX','FY','FZ','MX','MY','MZ'),
1919                    PRESENT_ABSENT('F3','PRES','FX','FY','FZ','MX','MY','MZ'),
1920                    PRESENT_ABSENT('MF1','PRES','FX','FY','FZ','MX','MY','MZ'),
1921                    PRESENT_ABSENT('MF2','PRES','FX','FY','FZ','MX','MY','MZ'),
1922                    PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
1923 #  rajout d un mot cle REPERE : / GLOBAL / LOCAL
1924            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1925            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1926            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1927            FX              =SIMP(statut='f',typ=(fonction) ),
1928            FY              =SIMP(statut='f',typ=(fonction) ),
1929            FZ              =SIMP(statut='f',typ=(fonction) ),
1930            MX              =SIMP(statut='f',typ=(fonction) ),
1931            MY              =SIMP(statut='f',typ=(fonction) ),
1932            MZ              =SIMP(statut='f',typ=(fonction) ),
1933            F1              =SIMP(statut='f',typ=(fonction) ),
1934            F2              =SIMP(statut='f',typ=(fonction) ),
1935            F3              =SIMP(statut='f',typ=(fonction) ),
1936            MF1             =SIMP(statut='f',typ=(fonction) ),
1937            MF2             =SIMP(statut='f',typ=(fonction) ),
1938            PRES            =SIMP(statut='f',typ=(fonction) ),
1939            PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",
1940                                  into=("SUP","INF","MOY","MAIL") ),
1941          ),
1942
1943          LIAISON_COQUE   =FACT(statut='f',min=1,max='**',
1944            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1945            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1946            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
1947            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
1948            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1949            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1950            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
1951            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1952            NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
1953          ),
1954
1955
1956          VITE_FACE       =FACT(statut='f',min=1,max='**',
1957            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1958                    PRESENT_ABSENT('GROUP_MA','MAILLE'),),
1959            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1960            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1961            VNOR            =SIMP(statut='o',typ=(fonction) ),
1962          ),
1963          IMPE_FACE       =FACT(statut='f',min=1,max='**',
1964            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1965                    PRESENT_ABSENT('GROUP_MA','MAILLE'),),
1966            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1967            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1968            IMPE            =SIMP(statut='o',typ=(fonction) ),
1969          ),
1970          ONDE_PLANE      =FACT(statut='f',min=1,max='**',
1971            DIRECTION       =SIMP(statut='o',typ='R',max='**'),
1972            TYPE_ONDE       =SIMP(statut='o',typ='TXM' ),
1973            FONC_SIGNAL     =SIMP(statut='o',typ=(fonction) ),
1974            DIST_ORIG       =SIMP(statut='o',typ='R' ),
1975          ),
1976
1977
1978
1979          FLUX_THM_REP    =FACT(statut='f',min=1,max='**',
1980            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1981                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1982                    AU_MOINS_UN('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
1983            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1984            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1985            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1986            FLUN            =SIMP(statut='f',typ=(fonction) ),
1987            FLUN_HYDR1      =SIMP(statut='f',typ=(fonction) ),
1988            FLUN_HYDR2      =SIMP(statut='f',typ=(fonction) ),
1989          ),
1990
1991          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1992 )  ;
1993 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
1994 #            CONFIGURATION MANAGEMENT OF EDF VERSION
1995 # ======================================================================
1996 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
1997 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1998 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1999 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2000 # (AT YOUR OPTION) ANY LATER VERSION.
2001 #
2002 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2003 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2004 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2005 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2006 #
2007 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2008 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2009 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2010 # ======================================================================
2011 AFFE_CHAR_OPS011=OPER(nom="AFFE_CHAR_OPS011",op= 190,sd_prod=char_ther,
2012                       fr=" ",
2013                       docu="",reentrant='n',
2014             UIinfo={"groupes":("Outils métier",)},
2015          regles=(AU_MOINS_UN('CARA_TORSION', ),),
2016          MODELE          =SIMP(statut='o',typ=modele ),
2017          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",
2018                                into=("OUI","NON") ),
2019          CARA_TORSION    =FACT(statut='f',min=1,max='**',
2020            regles=(UN_PARMI('TOUT','GROUP_MA'),),
2021            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2022            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2023          ),
2024          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2025 )  ;
2026 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
2027 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2028 # ======================================================================
2029 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2030 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2031 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2032 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2033 # (AT YOUR OPTION) ANY LATER VERSION.
2034 #
2035 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2036 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2037 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2038 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2039 #
2040 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2041 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2042 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2043 # ======================================================================
2044 AFFE_CHAR_THER=OPER(nom="AFFE_CHAR_THER",op=34,sd_prod=char_ther
2045                     ,fr="Affectation de charges et conditions aux limites thermiques constantes",
2046                     docu="U4.44.02-g2",reentrant='n',
2047             UIinfo={"groupes":("Modélisation",)},
2048       regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','FLUX_REP','ECHANGE',
2049                           'ECHANGE_PAROI','GRAD_TEMP_INIT','LIAISON_DDL','LIAISON_GROUP',
2050                           'LIAISON_UNIF','LIAISON_CHAMNO','RAYONNEMENT','LIAISON_MAIL' ),),
2051          VERI_DDL        =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="OUI"),
2052          MODELE          =SIMP(statut='o',typ=(modele) ),
2053
2054          TEMP_IMPO       =FACT(statut='f',min=1,max='**',
2055            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
2056                    AU_MOINS_UN('TEMP_SUP','TEMP','TEMP_INF'),),
2057            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2058            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2059            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2060            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2061            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2062            TEMP            =SIMP(statut='f',typ='R'),
2063            TEMP_INF        =SIMP(statut='f',typ='R'),
2064            TEMP_SUP        =SIMP(statut='f',typ='R'), ),
2065
2066          FLUX_REP        =FACT(statut='f',min=1,max='**',
2067            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2068                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2069                    PRESENT_PRESENT('CARA_TORSION','GROUP_MA'),
2070                    AU_MOINS_UN('FLUN','FLUN_INF','FLUN_SUP','CARA_TORSION') ),
2071            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2072            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2073            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2074            FLUN            =SIMP(statut='f',typ='R'),
2075            FLUN_INF        =SIMP(statut='f',typ='R'),
2076            FLUN_SUP        =SIMP(statut='f',typ='R'),
2077            CARA_TORSION    =SIMP(statut='f',typ=tabl_aire_int ),
2078          ),
2079
2080
2081          RAYONNEMENT     =FACT(statut='f',min=1,max='**',
2082            fr="Attention, exprimer les températures en Celsius si rayonnement",
2083            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2084                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2085            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2086            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2087            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2088            SIGMA           =SIMP(statut='o',typ='R'),
2089            EPSILON         =SIMP(statut='o',typ='R'),
2090            TEMP_EXT        =SIMP(statut='o',typ='R'),
2091          ),
2092
2093          ECHANGE         =FACT(statut='f',min=1,max='**',
2094            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2095                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2096                    AU_MOINS_UN('COEF_H','COEF_H_INF','COEF_H_SUP'),
2097                    ENSEMBLE('COEF_H','TEMP_EXT',),
2098                    ENSEMBLE('COEF_H_INF','TEMP_EXT_INF'),
2099                              ENSEMBLE('COEF_H_SUP','TEMP_EXT_SUP'),),
2100            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2101            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2102            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2103            COEF_H          =SIMP(statut='f',typ='R'),
2104            TEMP_EXT        =SIMP(statut='f',typ='R'),
2105            COEF_H_INF      =SIMP(statut='f',typ='R'),
2106            TEMP_EXT_INF    =SIMP(statut='f',typ='R'),
2107            COEF_H_SUP      =SIMP(statut='f',typ='R'),
2108            TEMP_EXT_SUP    =SIMP(statut='f',typ='R'),
2109          ),
2110
2111          SOURCE          =FACT(statut='f',min=1,max='**',
2112            regles=(UN_PARMI('SOUR','SOUR_CALCULEE',),
2113                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2114                    PRESENT_ABSENT('SOUR_CALCULEE','TOUT','GROUP_MA','MAILLE'),),
2115            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2116            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2117            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2118            SOUR            =SIMP(statut='f',typ='R'),
2119            SOUR_CALCULEE   =SIMP(statut='f',typ=(cham_elem_sour_r) ),
2120          ),
2121
2122          GRAD_TEMP_INIT  =FACT(statut='f',min=1,max='**',
2123            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2124                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2125                    AU_MOINS_UN('FLUX_X','FLUX_Y','FLUX_Z'),),
2126            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2127            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2128            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2129            FLUX_X          =SIMP(statut='f',typ='R' ),
2130            FLUX_Y          =SIMP(statut='f',typ='R' ),
2131            FLUX_Z          =SIMP(statut='f',typ='R' ),
2132                          ),
2133
2134          LIAISON_DDL     =FACT(statut='f',min=1,max='**',
2135            regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
2136            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2137            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2138            DDL             =SIMP(statut='f',typ='TXM',max='**',
2139                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2140            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
2141            COEF_IMPO       =SIMP(statut='o',typ='R' ),
2142          ),
2143
2144          LIAISON_GROUP   =FACT(statut='f',min=1,max='**',
2145            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
2146                    UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
2147                              EXCLUS('GROUP_MA_1','GROUP_NO_2'),
2148                              EXCLUS('GROUP_MA_1','NOEUD_2'),
2149                    EXCLUS('GROUP_NO_1','GROUP_MA_2'),
2150                              EXCLUS('GROUP_NO_1','MAILLE_2'),
2151                              EXCLUS('MAILLE_1','GROUP_NO_2'),
2152                              EXCLUS('MAILLE_1','NOEUD_2'),
2153                              EXCLUS('NOEUD_1','GROUP_MA_2'),
2154                              EXCLUS('NOEUD_1','MAILLE_2'),
2155                              EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
2156            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2157            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2158            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
2159            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
2160            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2161            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2162            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
2163            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
2164            SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
2165            SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
2166            DDL_1           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2167                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2168            COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
2169            DDL_2           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2170                                  into=("TEMP","TEMP_INF","TEMP_SUP",) ),
2171            COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
2172            COEF_IMPO       =SIMP(statut='o',typ='R' ),
2173            SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2174            TRAN            =SIMP(statut='f',typ='R',max='**'),
2175            ANGL_NAUT       =SIMP(statut='f',typ='R',max='**'),
2176            CENTRE          =SIMP(statut='f',typ='R',max='**'),
2177          ),
2178
2179          LIAISON_MAIL    =FACT(statut='f',min=1,max='**',
2180            regles=(AU_MOINS_UN('GROUP_MA_MAIT','MAILLE_MAIT'),
2181                    AU_MOINS_UN('GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL',
2182                                'NOEUD_ESCL'),),
2183            GROUP_MA_MAIT   =SIMP(statut='f',typ=grma,max='**'),
2184            MAILLE_MAIT     =SIMP(statut='f',typ=ma,max='**'),
2185            GROUP_MA_ESCL   =SIMP(statut='f',typ=grma,max='**'),
2186            MAILLE_ESCL     =SIMP(statut='f',typ=ma,max='**'),
2187            GROUP_NO_ESCL   =SIMP(statut='f',typ=grno,max='**'),
2188            NOEUD_ESCL      =SIMP(statut='f',typ=no,max='**'),
2189            TRAN            =SIMP(statut='f',typ='R',max='**' ),
2190            ANGL_NAUT       =SIMP(statut='f',typ='R',max='**' ),
2191            CENTRE          =SIMP(statut='f',typ='R',max='**' ),
2192          ),
2193
2194          ECHANGE_PAROI   =FACT(statut='f',min=1,max='**',
2195            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
2196                    UN_PARMI('GROUP_MA_2','MAILLE_2'),),
2197            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2198            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2199            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2200            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2201            COEF_H          =SIMP(statut='f',typ='R'),
2202            TRAN            =SIMP(statut='f',typ='R',min=2,max=3),
2203            ANGL_NAUT       =SIMP(statut='f',typ='R',min=1,max=3),
2204            CENTRE          =SIMP(statut='f',typ='R',min=2,max=3),
2205                          ),
2206
2207          LIAISON_UNIF    =FACT(statut='f',min=1,max='**',
2208            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
2209            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2210            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2211            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2212            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2213            DDL             =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2214                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2215          ),
2216
2217          LIAISON_CHAMNO  =FACT(statut='f',min=1,max='**',
2218            CHAM_NO         =SIMP(statut='o',typ=cham_no),# CO()# "il faut definir une structure de donnee generique chamno"
2219            COEF_IMPO       =SIMP(statut='o',typ='R' ),
2220            NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
2221          ),
2222
2223          CONVECTION      =FACT(statut='f',min=1,max='**',
2224            VITESSE         =SIMP(statut='o',typ=(cham_no_depl_r) ),
2225          ),
2226
2227
2228          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2229 )  ;
2230 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
2231 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2232 # ======================================================================
2233 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2234 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2235 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2236 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2237 # (AT YOUR OPTION) ANY LATER VERSION.
2238 #
2239 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2240 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2241 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2242 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2243 #
2244 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2245 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2246 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2247 # ======================================================================
2248 AFFE_CHAR_THER_F=OPER(nom="AFFE_CHAR_THER_F",op=33,sd_prod=char_ther,
2249                      fr="Affectation de charges et conditions aux limites thermiques fonction dune grandeur (temps, ...)",
2250                      docu="U4.44.02-g2",reentrant='n',
2251             UIinfo={"groupes":("Modélisation",)},
2252       regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','FLUX_REP','FLUX_NL','ECHANGE',
2253                           'ECHANGE_PAROI','LIAISON_DDL','LIAISON_GROUP','LIAISON_UNIF',
2254                           'GRAD_TEMP_INIT','RAYONNEMENT'),),
2255          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2256          MODELE          =SIMP(statut='o',typ=(modele) ),
2257
2258          TEMP_IMPO       =FACT(statut='f',min=1,max='**',
2259            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
2260                    AU_MOINS_UN('TEMP_SUP','TEMP','TEMP_INF','EVOL_THER'),
2261                    PRESENT_ABSENT('EVOL_THER','TEMP','TEMP_INF','TEMP_SUP'),),
2262            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2263            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2264            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2265            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2266            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2267            EVOL_THER       =SIMP(statut='f',typ=(evol_ther) ),
2268            DDL             =SIMP(statut='f',typ='TXM',into=("TEMP",) ),
2269            TEMP            =SIMP(statut='f',typ=(fonction) ),
2270            TEMP_INF        =SIMP(statut='f',typ=(fonction) ),
2271            TEMP_SUP        =SIMP(statut='f',typ=(fonction) ),
2272          ),
2273
2274          FLUX_REP        =FACT(statut='f',min=1,max='**',
2275            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2276                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2277                    AU_MOINS_UN('FLUN','FLUN_INF','FLUN_SUP','FLUX_X','FLUX_Y','FLUX_Z'),),
2278            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2279            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2280            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2281            FLUN            =SIMP(statut='f',typ=(fonction) ),
2282            FLUN_INF        =SIMP(statut='f',typ=(fonction) ),
2283            FLUN_SUP        =SIMP(statut='f',typ=(fonction) ),
2284            FLUX_X          =SIMP(statut='f',typ=(fonction) ),
2285            FLUX_Y          =SIMP(statut='f',typ=(fonction) ),
2286            FLUX_Z          =SIMP(statut='f',typ=(fonction) ),
2287          ),
2288
2289          FLUX_NL         =FACT(statut='f',min=1,max='**',
2290            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2291                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2292            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2293            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2294            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2295            FLUN            =SIMP(statut='o',typ=(fonction) ),
2296          ),
2297
2298
2299          RAYONNEMENT     =FACT(statut='f',min=1,max='**',
2300            fr="Attention, exprimer les températures en Celsius si rayonnement",
2301            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2302                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2303            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2304            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2305            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2306            SIGMA           =SIMP(statut='o',typ=(fonction) ),
2307            EPSILON         =SIMP(statut='o',typ=(fonction) ),
2308            TEMP_EXT        =SIMP(statut='o',typ=(fonction) ),
2309          ),
2310
2311
2312
2313          ECHANGE         =FACT(statut='f',min=1,max='**',
2314            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2315                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2316                    AU_MOINS_UN('COEF_H','COEF_H_INF','COEF_H_SUP'),
2317                    ENSEMBLE('COEF_H','TEMP_EXT'),
2318                    ENSEMBLE('COEF_H_INF','TEMP_EXT_INF'),
2319                    ENSEMBLE('COEF_H_SUP','TEMP_EXT_SUP'),),
2320            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2321            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2322            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2323            COEF_H          =SIMP(statut='f',typ=(fonction) ),
2324            TEMP_EXT        =SIMP(statut='f',typ=(fonction) ),
2325            COEF_H_INF      =SIMP(statut='f',typ=(fonction) ),
2326            TEMP_EXT_INF    =SIMP(statut='f',typ=(fonction) ),
2327            COEF_H_SUP      =SIMP(statut='f',typ=(fonction) ),
2328            TEMP_EXT_SUP    =SIMP(statut='f',typ=(fonction) ),
2329          ),
2330
2331
2332          SOURCE          =FACT(statut='f',min=1,max='**',
2333            regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),),
2334            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2335            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2336            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2337            SOUR            =SIMP(statut='o',typ=(fonction) ),
2338          ),
2339
2340          GRAD_TEMP_INIT  =FACT(statut='f',min=1,max='**',
2341            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2342                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2343                    AU_MOINS_UN('FLUX_X','FLUX_Y','FLUX_Z'),),
2344            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2345            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2346            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2347            FLUX_X          =SIMP(statut='f',typ=(fonction) ),
2348            FLUX_Y          =SIMP(statut='f',typ=(fonction) ),
2349            FLUX_Z          =SIMP(statut='f',typ=(fonction) ),
2350          ),
2351
2352          ECHANGE_PAROI   =FACT(statut='f',min=1,max='**',
2353            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
2354                         UN_PARMI('GROUP_MA_2','MAILLE_2'),),
2355            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2356            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2357            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2358            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2359            COEF_H          =SIMP(statut='o',typ=(fonction) ),
2360            TRAN            =SIMP(statut='f',typ='R',min=2,max=3),
2361            ANGL_NAUT       =SIMP(statut='f',typ='R',min=1,max=3),
2362            CENTRE          =SIMP(statut='f',typ='R',min=2,max=3),
2363          ),
2364
2365         LIAISON_DDL     =FACT(statut='f',min=1,max='**',
2366            regles=(UN_PARMI('GROUP_NO','NOEUD'),),
2367            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2368            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2369            DDL             =SIMP(statut='f',typ='TXM',max='**',into=("TEMP","TEMP_INF","TEMP_SUP") ),
2370            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
2371            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
2372          ),
2373
2374          LIAISON_GROUP   =FACT(statut='f',min=1,max='**',
2375            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
2376                    UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
2377                              EXCLUS('GROUP_MA_1','GROUP_NO_2'),
2378                         EXCLUS('GROUP_MA_1','NOEUD_2'),
2379                    EXCLUS('GROUP_NO_1','GROUP_MA_2'),
2380                         EXCLUS('GROUP_NO_1','MAILLE_2'),
2381                         EXCLUS('MAILLE_1','GROUP_NO_2'),
2382                         EXCLUS('MAILLE_1','NOEUD_2'),
2383                         EXCLUS('NOEUD_1','GROUP_MA_2'),
2384                         EXCLUS('NOEUD_1','MAILLE_2'),
2385                         EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
2386            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2387            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2388            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
2389            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
2390            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2391            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2392            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
2393            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
2394            SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
2395            SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
2396            DDL_1           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2397                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2398            COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
2399            DDL_2           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2400                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2401            COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
2402            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
2403            SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2404            TRAN            =SIMP(statut='f',typ='R',max='**'),
2405            ANGL_NAUT       =SIMP(statut='f',typ='R',max='**'),
2406            CENTRE          =SIMP(statut='f',typ='R',max='**'),
2407          ),
2408
2409          LIAISON_UNIF    =FACT(statut='f',min=1,max='**',
2410            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
2411            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2412            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2413            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2414            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2415            DDL             =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2416                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2417          ),
2418
2419          CONVECTION      =FACT(statut='f',min=1,max='**',
2420            VITESSE         =SIMP(statut='o',typ=(cham_no_depl_r) ),
2421          ),
2422
2423          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2424 )  ;
2425 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
2426 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2427 # ======================================================================
2428 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2429 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2430 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2431 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2432 # (AT YOUR OPTION) ANY LATER VERSION.
2433 #
2434 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2435 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2436 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2437 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2438 #
2439 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2440 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2441 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2442 # ======================================================================
2443 # RESPONSABLE VABHHTS J.PELLET
2444 AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
2445                    fr="Affectation de caractéristiques de matériaux à un maillage",
2446                          docu="U4.43.03-f",reentrant='n',
2447             UIinfo={"groupes":("Modélisation",)},
2448          MAILLAGE        =SIMP(statut='o',typ=maillage),
2449          MODELE          =SIMP(statut='f',typ=modele),
2450          AFFE            =FACT(statut='o',min=1,max='**',
2451            regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
2452            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2453            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2454            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2455            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2456            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2457            MATER           =SIMP(statut='o',typ=mater),
2458            TEMP_REF        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2459          ),
2460 )  ;
2461 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
2462 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2463 # ======================================================================
2464 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2465 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2466 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2467 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2468 # (AT YOUR OPTION) ANY LATER VERSION.
2469 #
2470 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2471 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2472 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2473 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2474 #
2475 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2476 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2477 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2478 # ======================================================================
2479 # RESPONSABLE JMBHH01 J.M.PROIX
2480 AFFE_MODELE=OPER(nom="AFFE_MODELE",op=18,sd_prod=modele,docu="U4.41.01-g3",
2481             UIinfo={"groupes":("Modélisation",)},
2482                  fr="Affectation des éléments finis sur le maillage",reentrant='n',
2483          regles=(AU_MOINS_UN('AFFE','AFFE_SOUS_STRUC'),),
2484          MAILLAGE        =SIMP(statut='o',typ=(maillage) ),
2485          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
2486          VERIF           =SIMP(statut='f',typ='TXM',max=2,into=("MAILLE","NOEUD") ),
2487          AFFE_SOUS_STRUC =FACT(statut='f',min=1,max=1,
2488            regles=(UN_PARMI('TOUT','MAILLE'),),
2489            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2490            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2491            PHENOMENE       =SIMP(statut='f',typ='TXM',defaut="MECANIQUE",into=("MECANIQUE",) ),
2492          ),
2493          AFFE            =FACT(statut='f',min=1,max='**',
2494            regles=(UN_PARMI('TOUT','GROUP_MA','GROUP_NO','MAILLE','NOEUD'),),
2495            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2496            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2497            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2498            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2499            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2500            PHENOMENE       =SIMP(statut='o',typ='TXM',
2501                                  into=("MECANIQUE","THERMIQUE","ACOUSTIQUE") ),
2502                 b_mecanique     =BLOC( condition = "PHENOMENE=='MECANIQUE'",
2503                                         fr="modelisations mécaniques",
2504                     MODELISATION    =SIMP(statut='o',typ='TXM', into=(
2505                                                                       "2D_DIS_T",
2506                                                                       "2D_DIS_TR",
2507                                                                       "2D_FLUI_ABSO",
2508                                                                       "2D_FLUI_PESA",
2509                                                                       "2D_FLUI_STRU",
2510                                                                       "2D_FLUIDE",
2511                                                                       "3D",
2512                                                                       "3D_ABSO",
2513                                                                       "3D_FAISCEAU",
2514                                                                       "3D_FLUI_ABSO",
2515                                                                       "3D_FLUIDE",
2516                                                                       "3D_HHM" ,
2517                                                                       "3D_HM",
2518                                                                       "3D_INCO",
2519                                                                       "3D_JOINT_CT",
2520                                                                       "3D_SI",
2521                                                                       "3D_THH",
2522                                                                       "3D_THHM",
2523                                                                       "3D_THM",
2524                                                                       "3D_GRAD_EPSI",
2525                                                                       "3D_GRAD_VARI",
2526                                                                       "APPUI_REP",
2527                                                                       "ASSE_GRIL",
2528                                                                       "AXIS",
2529                                                                       "AXIS_FLUI_STRU",
2530                                                                       "AXIS_FLUIDE",
2531                                                                       "AXIS_FOURIER",
2532                                                                       "AXIS_HHM",
2533                                                                       "AXIS_HM",
2534                                                                       "AXIS_INCO",
2535                                                                       "AXIS_SI",
2536                                                                       "AXIS_THH",
2537                                                                       "AXIS_THHM",
2538                                                                       "AXIS_THM",
2539                                                                       "AXIS_GRAD_VARI",
2540                                                                       "AXIS_FISSURE",
2541                                                                       "BARRE",
2542                                                                       "2D_BARRE",
2543                                                                       "C_PLAN",
2544                                                                       "C_PLAN_SI",
2545                                                                       "C_PLAN_GRAD_EPSI",
2546                                                                       "C_PLAN_GRAD_VARI",
2547                                                                       "CABLE",
2548                                                                       "CABLE_POULIE",
2549                                                                       "COQUE_3D",
2550                                                                       "COQUE_AXIS",
2551                                                                       "COQUE_C_PLAN",
2552                                                                       "COQUE_D_PLAN",
2553                                                                       "D_PLAN",
2554                                                                       "D_PLAN_GRAD_EPSI",
2555                                                                       "D_PLAN_GRAD_VARI",
2556                                                                       "PLAN_FISSURE",
2557                                                                       "D_PLAN_ABSO",
2558                                                                       "D_PLAN_HHM",
2559                                                                       "D_PLAN_HM",
2560                                                                       "D_PLAN_INCO",
2561                                                                       "D_PLAN_SI",
2562                                                                       "D_PLAN_THH",
2563                                                                       "D_PLAN_THHM",
2564                                                                       "D_PLAN_THM",
2565                                                                        "3D_HHMD",
2566                                                                        "3D_HMD",
2567                                                                        "3D_THHD",
2568                                                                        "3D_THVD",
2569                                                                        "3D_THHMD",
2570                                                                        "3D_THMD",
2571                                                                        "AXIS_HHMD",
2572                                                                        "AXIS_HMD",
2573                                                                        "AXIS_THHD",
2574                                                                        "AXIS_THVD",
2575                                                                        "AXIS_THHMD",
2576                                                                        "AXIS_THMD",
2577                                                                        "D_PLAN_HHMD",
2578                                                                        "D_PLAN_HMD",
2579                                                                        "D_PLAN_THHD",
2580                                                                        "D_PLAN_THVD",
2581                                                                        "D_PLAN_THHMD",
2582                                                                        "D_PLAN_THMD",
2583                                                                       "DIS_T",
2584                                                                       "DIS_TR",
2585                                                                       "DKT",
2586                                                                       "DST",
2587                                                                       "FLUI_STRU",
2588                                                                       "GRILLE",
2589                                                                       "POU_C_T",
2590                                                                       "POU_D_E",
2591                                                                       "POU_D_EM",
2592                                                                       "POU_D_T",
2593                                                                       "POU_D_T_GD",
2594                                                                       "POU_D_TG",
2595                                                                       "POU_D_TGM",
2596                                                                       "Q4G",
2597                                                                       "TUYAU_3M",
2598                                                                       "TUYAU_6M"
2599                                                                      )  )  ),
2600
2601                 b_thermique     =BLOC( condition = "PHENOMENE=='THERMIQUE'",
2602                                         fr="modelisations thermiques",
2603                     MODELISATION    =SIMP(statut='o',typ='TXM',into=(
2604                                                                       "3D",
2605                                                                       "3D_DIAG",
2606                                                                       "AXIS",
2607                                                                       "AXIS_DIAG",
2608                                                                       "AXIS_FOURIER",
2609                                                                       "COQUE",
2610                                                                       "COQUE_AXIS",
2611                                                                       "COQUE_PLAN",
2612                                                                       "PLAN",
2613                                                                       "PLAN_DIAG",
2614                                                                       ),),),
2615
2616                 b_acoustique    =BLOC( condition = "PHENOMENE=='ACOUSTIQUE'",
2617                                         fr="modelisations acoustiques",
2618                      MODELISATION    =SIMP(statut='o',typ='TXM',into=(
2619                                                                        "3D",
2620                                                                        "PLAN"
2621                                                                        ), ),),
2622
2623          ),
2624 ) ;
2625 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
2626 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2627 # ======================================================================
2628 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2629 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2630 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2631 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2632 # (AT YOUR OPTION) ANY LATER VERSION.
2633 #
2634 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2635 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2636 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2637 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2638 #
2639 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2640 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2641 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2642 # ======================================================================
2643 AIDE=PROC(nom="AIDE",op=42,docu="U4.02.01-g1",
2644             UIinfo={"groupes":("Modélisation",)},
2645           fr="Interrogation sur le catalogue des commandes et les concepts produits",
2646          regles=(AU_MOINS_UN('CONCEPT','TYPE_ELEM', ),),
2647          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
2648          TYPE_ELEM       =FACT(fr="couple type_elem option",
2649                                statut='f',min=1,max=1,
2650            INITEL          =SIMP(statut='f',typ='TXM',defaut="NON",
2651                                  into=("OUI","NON",) ),
2652          ),
2653          CONCEPT         =FACT(statut='f',min=1,max='**',
2654            NOM             =SIMP(fr="liste des noms de concept",
2655                                  statut='f',typ='TXM',max='**',defaut="*"),
2656            OPTION          =SIMP(fr="option d'édition de concept",
2657                                  statut='f',typ='TXM',defaut="TOUT_TYPE",
2658                                  into=("TOUT_TYPE","CREER","A_CREER",) ),
2659          ),
2660 ) ;
2661 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
2662 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2663 # ======================================================================
2664 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2665 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2666 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2667 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2668 # (AT YOUR OPTION) ANY LATER VERSION.
2669 #
2670 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2671 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2672 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2673 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2674 #
2675 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2676 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2677 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2678 # ======================================================================
2679 # RESPONSABLE VABHHTS J.PELLET
2680 ASSE_MAILLAGE=OPER(nom="ASSE_MAILLAGE",op= 105,sd_prod=maillage,
2681                    fr="Assembler deux maillages sous un seul nom",
2682                    docu="U4.23.03-e",reentrant='n',
2683             UIinfo={"groupes":("Maillage",)},
2684          MAILLAGE        =SIMP(statut='o',typ=maillage,min=2,max=2 ),
2685 )  ;
2686 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
2687 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2688 # ======================================================================
2689 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2690 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2691 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2692 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2693 # (AT YOUR OPTION) ANY LATER VERSION.
2694 #
2695 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2696 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2697 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2698 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2699 #
2700 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2701 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2702 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2703 # ======================================================================
2704 ASSE_MATR_GENE=OPER(nom="ASSE_MATR_GENE",op= 128,sd_prod=matr_asse_gene_r,
2705                     fr="Assemblage des matrices généralisées de macro éléments pour construction de la matrice globale généralisée",
2706                     docu="U4.65.04-d",reentrant='n',
2707             UIinfo={"groupes":("Matrices/vecteurs",)},
2708          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
2709          OPTION          =SIMP(statut='o',typ='TXM',into=("RIGI_GENE","MASS_GENE","AMOR_GENE") ),
2710 )  ;
2711 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
2712 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2713 # ======================================================================
2714 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2715 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2716 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2717 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2718 # (AT YOUR OPTION) ANY LATER VERSION.
2719 #
2720 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2721 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2722 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2723 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2724 #
2725 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2726 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2727 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2728 # ======================================================================
2729 # RESPONSABLE VABHHTS J.PELLET
2730 def asse_matrice_prod(MATR_ELEM,**args):
2731   if AsType(MATR_ELEM) == matr_elem_depl_r : return matr_asse_depl_r
2732   if AsType(MATR_ELEM) == matr_elem_depl_c : return matr_asse_depl_c
2733   if AsType(MATR_ELEM) == matr_elem_temp_r : return matr_asse_temp_r
2734   if AsType(MATR_ELEM) == matr_elem_pres_c : return matr_asse_pres_c
2735   raise AsException("type de concept resultat non prevu")
2736
2737 ASSE_MATRICE=OPER(nom="ASSE_MATRICE",op=12,sd_prod=asse_matrice_prod,
2738                   fr="Construction d une matrice assemblée",docu="U4.61.22-f",reentrant='n',
2739             UIinfo={"groupes":("Matrices/vecteurs",)},
2740          MATR_ELEM       =SIMP(statut='o',
2741                                typ=(matr_elem_depl_r,matr_elem_depl_c,matr_elem_temp_r,matr_elem_pres_c) ),
2742          NUME_DDL        =SIMP(statut='o',typ=nume_ddl),
2743          CHAR_CINE       =SIMP(statut='f',typ=(char_cine_meca,char_cine_ther,char_cine_acou) ),
2744          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
2745 )  ;
2746 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
2747 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2748 # ======================================================================
2749 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2750 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2751 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2752 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2753 # (AT YOUR OPTION) ANY LATER VERSION.
2754 #
2755 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2756 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2757 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2758 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2759 #
2760 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2761 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2762 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2763 # ======================================================================
2764 ASSE_VECT_GENE=OPER(nom="ASSE_VECT_GENE",op= 140,sd_prod=vect_asse_gene,
2765                     fr="Assemblage de vecteurs de chargement en coordonnées généralisées",
2766                     docu="U4.65.05-d",reentrant='n',
2767             UIinfo={"groupes":("Matrices/vecteurs",)},
2768          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
2769          CHAR_SOUS_STRUC =FACT(statut='o',min=1,max='**',
2770            SOUS_STRUC      =SIMP(statut='o',typ='TXM' ),
2771            VECT_ASSE       =SIMP(statut='o',typ=cham_no_depl_r ),
2772          ),
2773 )  ;
2774 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
2775 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2776 # ======================================================================
2777 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2778 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2779 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2780 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2781 # (AT YOUR OPTION) ANY LATER VERSION.
2782 #
2783 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2784 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2785 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2786 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2787 #
2788 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2789 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2790 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2791 # ======================================================================
2792 # RESPONSABLE VABHHTS J.PELLET
2793 def asse_vecteur_prod(VECT_ELEM,**args):
2794   if AsType(VECT_ELEM) == vect_elem_depl_r : return cham_no_depl_r
2795   if AsType(VECT_ELEM) == vect_elem_temp_r : return cham_no_temp_r
2796   if AsType(VECT_ELEM) == vect_elem_pres_r : return cham_no_pres_r
2797   if AsType(VECT_ELEM) == vect_elem_pres_c : return cham_no_pres_c
2798   raise AsException("type de concept resultat non prevu ")
2799
2800 ASSE_VECTEUR=OPER(nom="ASSE_VECTEUR",op=13,sd_prod=asse_vecteur_prod,
2801                   fr="Assemblage d un second membre",docu="U4.61.23-f",reentrant='n',
2802             UIinfo={"groupes":("Matrices/vecteurs",)},
2803          VECT_ELEM       =SIMP(statut='o',typ=vect_elem,max='**'),
2804          NUME_DDL        =SIMP(statut='o',typ=nume_ddl ),
2805          INFO            =SIMP(statut='f',typ='I',into=(1,2,) ),
2806 )  ;
2807 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
2808 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2809 # ======================================================================
2810 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2811 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2812 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2813 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2814 # (AT YOUR OPTION) ANY LATER VERSION.
2815 #
2816 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2817 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2818 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2819 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2820 #
2821 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2822 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2823 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2824 # ======================================================================
2825 CALC_AMOR_MODAL=OPER(nom="CALC_AMOR_MODAL",op= 172,sd_prod=listr8,
2826                      fr="Création d'une liste d'amortissements modaux calculés selon la règle du RCC-G",
2827                      docu="U4.52.13-c",reentrant='n',
2828             UIinfo={"groupes":("Résolution",)},
2829          ENER_SOL        =FACT(statut='o',min=1,max=1,
2830            regles=(UN_PARMI('GROUP_NO_RADIER','GROUP_MA_RADIER'),
2831                    PRESENT_ABSENT('COEF_GROUP','FONC_GROUP'),
2832 #  Peut-on remplacer les deux règles suivantes par un ENSEMBLE_('KRX','KRY','KRZ')
2833                    PRESENT_PRESENT('KRX','KRY'),
2834                    PRESENT_PRESENT('KRX','KRZ'),
2835                    PRESENT_ABSENT('COOR_CENTRE','NOEUD_CENTRE'),
2836                    PRESENT_ABSENT('GROUP_NO_CENTRE','NOEUD_CENTRE'),
2837                    PRESENT_ABSENT('GROUP_NO_CENTRE','COOR_CENTRE'),),
2838            METHODE         =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","RIGI_PARASOL") ),
2839            MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
2840            GROUP_NO_RADIER =SIMP(statut='f',typ=grno,max='**'),
2841            GROUP_MA_RADIER =SIMP(statut='f',typ=grma,max='**'),
2842            FONC_GROUP      =SIMP(statut='f',typ=fonction ),
2843            COEF_GROUP      =SIMP(statut='f',typ='R',max='**'),
2844            KX              =SIMP(statut='o',typ='R' ),
2845            KY              =SIMP(statut='o',typ='R' ),
2846            KZ              =SIMP(statut='o',typ='R' ),
2847            KRX             =SIMP(statut='f',typ='R' ),
2848            KRY             =SIMP(statut='f',typ='R' ),
2849            KRZ             =SIMP(statut='f',typ='R' ),
2850            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno),
2851            NOEUD_CENTRE    =SIMP(statut='f',typ=no),
2852            COOR_CENTRE     =SIMP(statut='f',typ='R',max=3),
2853          ),
2854          AMOR_INTERNE    =FACT(statut='o',min=1,max=1,
2855            ENER_POT        =SIMP(statut='o',typ=tabl_ener_pot ),
2856            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
2857            AMOR_REDUIT     =SIMP(statut='o',typ='R',max='**'),
2858          ),
2859          AMOR_SOL        =FACT(statut='o',min=1,max=1,
2860            AMOR_REDUIT     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2861            FONC_AMOR_GEO   =SIMP(statut='o',typ=fonction,max='**' ),
2862            HOMOGENE        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2863            SEUIL           =SIMP(statut='f',typ='R',defaut= 0.3 ),
2864          ),
2865 )  ;
2866 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
2867 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2868 # ======================================================================
2869 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2870 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2871 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2872 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2873 # (AT YOUR OPTION) ANY LATER VERSION.
2874 #
2875 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2876 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2877 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2878 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2879 #
2880 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2881 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2882 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2883 # ======================================================================
2884 # RESPONSABLE JMBHH01 J.M.PROIX
2885 def calc_cham_elem_prod(OPTION,**args):
2886
2887 # options mecaniques
2888   if OPTION == "DEGE_ELNO_DEPL" : return cham_elem_epsi_r
2889   if OPTION == "ECIN_ELEM_DEPL" : return cham_elem_ener_r
2890   if OPTION == "EFGE_ELNO_CART" : return cham_elem_sief_r
2891   if OPTION == "EFGE_ELNO_DEPL" : return cham_elem_sief_r
2892   if OPTION == "ENDO_ELNO_SIGM" : return cham_elem_sief_r
2893   if OPTION == "EPOT_ELEM_DEPL" : return cham_elem_ener_r
2894   if OPTION == "ENEL_ELGA" :      return cham_elem_ener_r
2895   if OPTION == "ENEL_ELNO_ELGA" : return cham_elem_ener_r
2896   if OPTION == "EPSI_ELNO_DEPL" : return cham_elem_epsi_r
2897   if OPTION == "EQUI_ELGA_EPSI" : return cham_elem_epsi_r
2898   if OPTION == "EQUI_ELGA_SIGM" : return cham_elem_sief_r
2899   if OPTION == "EQUI_ELNO_EPSI" : return cham_elem_epsi_r
2900   if OPTION == "EQUI_ELNO_SIGM" : return cham_elem_sief_r
2901   if OPTION == "PRES_DBEL_DEPL" : return cham_elem_dbel_r
2902   if OPTION == "SIEF_ELGA_DEPL" : return cham_elem_sief_r
2903   if OPTION == "SIEF_ELGA_LAGR" : return cham_elem_sief_r
2904   if OPTION == "SIGM_ELNO_CART" : return cham_elem_sief_r
2905   if OPTION == "SIGM_ELNO_DEPL" : return cham_elem_sief_r
2906   if OPTION == "SIGM_ELNO_LAGR" : return cham_elem_sief_r
2907   if OPTION == "SIPO_ELNO_DEPL" : return cham_elem_sief_r
2908
2909 # options thermiques
2910
2911   if OPTION == "FLUX_ELGA_TEMP" : return cham_elem_flux_r
2912   if OPTION == "FLUX_ELNO_TEMP" : return cham_elem_flux_r
2913   if OPTION == "SOUR_ELGA_ELEC" : return cham_elem_sour_r
2914
2915 # options acoustiques
2916
2917   if OPTION == "PRES_ELNO_DBEL" : return cham_elem_dbel_r
2918   if OPTION == "PRES_ELNO_REEL" : return cham_elem_pres_r
2919   if OPTION == "PRES_ELNO_IMAG" : return cham_elem_pres_r
2920
2921 # autres options
2922
2923   if OPTION == "COOR_ELGA" :      return cham_elem_geom_r
2924
2925   raise AsException("type de concept resultat non prevu")
2926
2927 CALC_CHAM_ELEM=OPER(nom="CALC_CHAM_ELEM",op=38,sd_prod=calc_cham_elem_prod,
2928                     fr="Calcul de champs par éléments à partir de champs solution ou de champs par éléments",
2929                     docu="U4.81.03-g1",reentrant='n',
2930             UIinfo={"groupes":("Post traitements",)},
2931          MODELE          =SIMP(statut='o',typ=modele),
2932          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
2933          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
2934
2935          regles=(EXCLUS('TOUT','GROUP_MA',),EXCLUS('TOUT','MAILLE',),),
2936          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2937          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2938          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2939
2940 #
2941 #
2942 #  introduire un mot cle de type modelisation : mécanique,thermique,...
2943 #
2944
2945          OPTION          =SIMP(statut='o',typ='TXM',
2946                                into=("DEGE_ELNO_DEPL","ECIN_ELEM_DEPL","EFGE_ELNO_CART",
2947                                      "EFGE_ELNO_DEPL","ENDO_ELNO_SIGM","EPOT_ELEM_DEPL",
2948                                      "ENEL_ELGA",     "ENEL_ELNO_ELGA","EPSI_ELNO_DEPL",
2949                                      "EQUI_ELGA_EPSI","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI",
2950                                      "EQUI_ELNO_SIGM","PRES_DBEL_DEPL","SIEF_ELGA_DEPL",
2951                                      "SIEF_ELGA_LAGR","SIGM_ELNO_CART","SIGM_ELNO_DEPL",
2952                                      "SIGM_ELNO_LAGR","SIPO_ELNO_DEPL",
2953                                      "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","SOUR_ELGA_ELEC",
2954                                      "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG",
2955                                      "COOR_ELGA"), ),
2956
2957          b_dege_elno_depl  =BLOC(condition="OPTION=='DEGE_ELNO_DEPL'",
2958            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2959            PLAN            =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
2960          ),
2961
2962          b_ecin_elem_depl  =BLOC(condition="OPTION=='ECIN_ELEM_DEPL'",
2963            regles=(UN_PARMI('VITE','DEPL',),ENSEMBLE('DEPL','FREQ',),),
2964            FREQ            =SIMP(statut='f',typ='R'),
2965            VITE            =SIMP(statut='f',typ=cham_no_depl_r),
2966            DEPL            =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_depl_c)),
2967          ),
2968
2969          b_efge_elno_cart  =BLOC(condition="OPTION=='EFGE_ELNO_CART'",
2970            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2971            PLAN            =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
2972          ),
2973
2974          b_efge_elno_depl  =BLOC(condition="OPTION=='EFGE_ELNO_DEPL'",
2975            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2976            PLAN            =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
2977          ),
2978
2979          b_endo_elno_sigm  =BLOC(condition="OPTION=='ENDO_ELNO_SIGM'",
2980            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2981          ),
2982
2983          b_epot_elem_depl  =BLOC(condition="OPTION=='EPOT_ELEM_DEPL'",
2984            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2985          ),
2986
2987          b_enel_elga       =BLOC(condition="OPTION=='ENEL_ELGA'",
2988            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2989          ),
2990
2991          b_enel_elno_elga  =BLOC(condition="OPTION=='ENEL_ELNO_ELGA'",
2992            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2993          ),
2994
2995          b_epsi_elno_depl  =BLOC(condition="OPTION=='EPSI_ELNO_DEPL'",
2996            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2997          ),
2998
2999          b_equi_elga_epsi  =BLOC(condition="OPTION=='EQUI_ELGA_EPSI'",
3000            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_epsi_r,) ),
3001          ),
3002
3003          b_equi_elga_sigm  =BLOC(condition="OPTION=='EQUI_ELGA_SIGM'",
3004            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3005          ),
3006
3007          b_equi_elno_epsi  =BLOC(condition="OPTION=='EQUI_ELNO_EPSI'",
3008            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_epsi_r,) ),
3009          ),
3010
3011          b_equi_elno_sigm  =BLOC(condition="OPTION=='EQUI_ELNO_SIGM'",
3012            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3013          ),
3014
3015          b_pres_dbel_depl  =BLOC(condition="OPTION=='PRES_DBEL_DEPL'",
3016            DEPL            =SIMP(statut='o',typ=(cham_no_depl_c,)),
3017          ),
3018
3019          b_sief_elga_depl  =BLOC(condition="OPTION=='SIEF_ELGA_DEPL'",
3020            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
3021          ),
3022
3023          b_sief_elga_lagr  =BLOC(condition="OPTION=='SIEF_ELGA_LAGR'",
3024            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
3025            THETA           =SIMP(statut='o',typ=(theta_geom,)),
3026            PROPAGATION     =SIMP(statut='f',typ='R',defaut=0.E+0),
3027          ),
3028
3029          b_sigm_elno_cart  =BLOC(condition="OPTION=='SIGM_ELNO_CART'",
3030            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3031          ),
3032
3033          b_sigm_elno_depl  =BLOC(condition="OPTION=='SIGM_ELNO_DEPL'",
3034            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,) ),
3035          ),
3036
3037          b_sigm_elno_lagr  =BLOC(condition="OPTION=='SIGM_ELNO_LAGR'",
3038            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
3039            THETA           =SIMP(statut='o',typ=(theta_geom,)),
3040            PROPAGATION     =SIMP(statut='f',typ='R',defaut=0.E+0),
3041          ),
3042
3043          b_sipo_elno_depl  =BLOC(condition="OPTION=='SIPO_ELNO_DEPL'",
3044            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
3045          ),
3046
3047          b_thermique  =BLOC(condition="OPTION in ('FLUX_ELNO_TEMP','FLUX_ELGA_TEMP','SOUR_ELGA_ELEC',)",
3048            TEMP            =SIMP(statut='o',typ=(cham_no_temp_r,)),
3049          ),
3050
3051          b_acoustique  =BLOC(condition="OPTION in ('PRES_ELNO_DBEL','PRES_ELNO_REEL','PRES_ELNO_IMAG',)",
3052            PRES            =SIMP(statut='o',typ=(cham_no_pres_c,)),
3053          ),
3054
3055
3056
3057          EXCIT           =FACT(statut='f',min=1,max='**',
3058                regles=(EXCLUS('FONC_MULT','COEF_MULT', ),),
3059                CHARGE          =SIMP(statut='o',typ=(char_meca,char_ther,char_acou)),
3060                FONC_MULT       =SIMP(statut='f',typ=fonction),
3061                COEF_MULT       =SIMP(statut='f',typ='R'), ),
3062
3063          INST            =SIMP(statut='f',typ='R',defaut= 0.E+0),
3064          ACCE            =SIMP(statut='f',typ=cham_no_depl_r),
3065          NUME_COUCHE     =SIMP(statut='f',typ='I',defaut= 1),
3066          NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
3067          MODE_FOURIER    =SIMP(statut='f',typ='I',defaut= 0 ),
3068          ANGLE           =SIMP(statut='f',typ='I',defaut= 0),
3069 )  ;
3070 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
3071 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3072 # ======================================================================
3073 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3074 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3075 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3076 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3077 # (AT YOUR OPTION) ANY LATER VERSION.
3078 #
3079 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3080 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3081 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3082 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3083 #
3084 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3085 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3086 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3087 # ======================================================================
3088 # RESPONSABLE VABHHTS J.PELLET
3089 def calc_char_cine_prod(CHAR_CINE,**args):
3090   if AsType(CHAR_CINE) == char_cine_meca : return cham_no_depl_r
3091   if AsType(CHAR_CINE) == char_cine_ther : return cham_no_temp_r
3092   if AsType(CHAR_CINE) == char_cine_acou : return cham_no_pres_c
3093   raise AsException("type de concept resultat non prevu")
3094
3095 CALC_CHAR_CINE=OPER(nom="CALC_CHAR_CINE",op= 102,sd_prod=calc_char_cine_prod,
3096                     fr="Calcul des seconds membres associés à des charges cinématiques (conditions aux limites non dualisées)",
3097                     docu="U4.61.03-e",reentrant='n',
3098             UIinfo={"groupes":("Matrices/vecteurs",)},
3099          NUME_DDL        =SIMP(statut='o',typ=nume_ddl ),
3100          CHAR_CINE       =SIMP(statut='o',typ=(char_cine_meca,char_cine_ther,char_cine_acou ) ),
3101          INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3102          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3103 )  ;
3104 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
3105 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3106 # ======================================================================
3107 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3108 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3109 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3110 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3111 # (AT YOUR OPTION) ANY LATER VERSION.
3112 #
3113 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3114 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3115 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3116 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3117 #
3118 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3119 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3120 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3121 # ======================================================================
3122 def calc_char_seisme_prod(MATR_MASS,**args ):
3123   if AsType(MATR_MASS) == matr_asse_depl_r : return cham_no_depl_r
3124   raise AsException("type de concept resultat non prevu")
3125
3126 CALC_CHAR_SEISME=OPER(nom="CALC_CHAR_SEISME",op=  92,sd_prod=calc_char_seisme_prod,
3127                       docu="U4.63.01-e",reentrant='n',
3128             UIinfo={"groupes":("Matrices/vecteurs",)},
3129          regles=(UN_PARMI('MONO_APPUI','MODE_STAT' ),),
3130          MATR_MASS       =SIMP(statut='o',typ=matr_asse_depl_r,fr="Matrice de masse" ),
3131          DIRECTION       =SIMP(statut='o',typ='R',max=6,fr="Directions du séisme imposé"),
3132          MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3133          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
3134          b_mode_stat     =BLOC ( condition = "MODE_STAT != None",
3135            regles=(UN_PARMI('NOEUD','GROUP_NO' ),),
3136            NOEUD           =SIMP(statut='f',typ=no,max='**'),
3137            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
3138          ),
3139          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3140 )  ;
3141 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
3142 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3143 # ======================================================================
3144 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3145 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3146 #              REDISTRIBUTION OF THIS FILE.
3147 # ======================================================================
3148 # RESPONSABLE JMBHH01 J.M.PROIX
3149 def calc_elem_prod(RESULTAT,**args):
3150    if AsType(RESULTAT) != None : return AsType(RESULTAT)
3151    raise AsException("type de concept resultat non prevu")
3152
3153 CALC_ELEM=OPER(nom="CALC_ELEM",op=58,sd_prod=calc_elem_prod,docu="U4.81.01-g3",reentrant='f',
3154             UIinfo={"groupes":("Post traitements",)},
3155                     fr="Compléter un résultat en calculant des champs par éléments (contraintes, déformations,... )",
3156          MODELE          =SIMP(statut='o',typ=modele),
3157          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
3158          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
3159
3160          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3161          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3162          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3163
3164          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
3165                         'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),),
3166          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3167          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
3168          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
3169          NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
3170          NOM_CAS         =SIMP(statut='f',typ='TXM' ),
3171
3172          INST            =SIMP(statut='f',typ='R',max='**'),
3173          FREQ            =SIMP(statut='f',typ='R',max='**'),
3174          LIST_INST       =SIMP(statut='f',typ=listr8),
3175          LIST_FREQ       =SIMP(statut='f',typ=listr8),
3176          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
3177          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
3178
3179          LIST_ORDRE      =SIMP(statut='f',typ=listis),
3180
3181          OPTION          =SIMP(statut='o',typ='TXM',max='**',
3182                                into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
3183                                      "SIGM_ELNO_TUYO","SIGM_ELNO_CART","DEGE_ELNO_DEPL","EFGE_ELNO_CART",
3184                                      "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL",
3185                                      "EPME_ELNO_DEPL","EPME_ELGA_DEPL","EPMG_ELNO_DEPL","EPMG_ELGA_DEPL",
3186                                      "EPSP_ELNO","EPSP_ELGA","ECIN_ELEM_DEPL","SIPO_ELNO_DEPL",
3187                                      "EPGR_ELNO","EPGR_ELGA","DURT_ELGA_META","DURT_ELNO_META",
3188                                      "SIGM_ELNO_COQU","SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",
3189                                      "SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA","ERRE_ELEM_NOZ2",
3190                                      "VNOR_ELEM_DEPL","SIRE_ELNO_DEPL","ERRE_ELGA_NORE","ERRE_ELNO_ELGA",
3191                                      "VARI_ELNO_ELGA","VARI_ELNO_TUYO","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
3192                                      "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI","EQUI_ELNO_EPME","EQUI_ELGA_EPME",
3193                                      "DCHA_ELNO_SIGM","DCHA_ELGA_SIGM","RADI_ELNO_SIGM","RADI_ELGA_SIGM",
3194                                      "ENDO_ELNO_SIGA","ENDO_ELNO_SINO","ENEL_ELGA","ENEL_ELNO_ELGA","SIEF_ELNO_ELGA",
3195                                      "DEUL_ELGA_TEMP","DETE_ELNO_DLTE","DEUL_ELGA_DEPL","DEDE_ELNO_DLDE",
3196                                      "DESI_ELNO_DLSI","PMPB_ELNO_SIEF","PMPB_ELGA_SIEF",
3197                                      "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","HYDR_ELNO_ELGA",
3198                                      "SOUR_ELGA_ELEC","VARI_ELNO_COQU","CRIT_ELNO_RUPT",
3199                                      "PRES_ELNO_DBEL","PRES_DBEL_DEPL","PRES_ELNO_REEL","PRES_ELNO_IMAG",
3200                                      "INTE_ELNO_ACTI","INTE_ELNO_REAC","ERTH_ELEM_TEMP","ERTH_ELNO_ELEM",
3201                                      "ETOT_ELGA","ETOT_ELNO_ELGA","ETOT_ELEM","VALE_NCOU_MAXI"
3202                                      ) ),
3203          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,mode_meca,
3204                                     mode_stat,mode_stat_depl,mode_stat_acce,mode_stat_forc,
3205                                     evol_noli,mult_elas,fourier_elas,
3206                                                evol_ther,base_modale,
3207                                                acou_harmo,mode_acou,mode_flamb) ),
3208          EXCIT           =FACT(statut='f',min=1,max='**',
3209              regles=(EXCLUS('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
3210              CHARGE          =SIMP(statut='o',typ=(char_meca,char_ther,char_acou) ),
3211              FONC_MULT       =SIMP(statut='f',typ=fonction),
3212              FONC_MULT_C     =SIMP(statut='f',typ=fonction_c),
3213              COEF_MULT       =SIMP(statut='f',typ='R'),
3214              COEF_MULT_C     =SIMP(statut='f',typ='C'),
3215              PHAS_DEG        =SIMP(statut='f',typ='R'),
3216              PUIS_PULS       =SIMP(statut='f',typ='I'),
3217              TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
3218          ),
3219          NORME           =SIMP(statut='f',typ='TXM',defaut="VMIS",
3220                                into=("VMIS","TOTAL","VMIS_CINE","TOTAL_CINE") ),
3221          NUME_COUCHE     =SIMP(statut='f',typ='I',defaut= 1 ),
3222          NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
3223
3224          ANGLE           =SIMP(statut='f',typ='I',defaut= 0 ),
3225          PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL") ),
3226          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
3227                                fr="Liste des paramètres de sensibilité.",
3228                                ang="List of sensitivity parameters"),
3229          b_maxi          =BLOC( condition = "OPTION=='VALE_NCOU_MAXI'",
3230              NOM_CHAM            =SIMP(statut='o',typ='TXM',max=1 ),
3231              NOM_CMP             =SIMP(statut='o',typ='TXM',max=1 ),),
3232          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
3233          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3234 )  ;
3235 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
3236 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3237 # ======================================================================
3238 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3239 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3240 #              REDISTRIBUTION OF THIS FILE.
3241 # ======================================================================
3242 def calc_fatigue_prod(TYPE_CALCUL,**args):
3243   if TYPE_CALCUL == "CUMUL_DOMMAGE" : return cham_elem_dommag
3244   if TYPE_CALCUL == "FATIGUE_MULTI" : return cham_elem_facy_r
3245   raise AsException("type de calcul non prevu")
3246
3247 CALC_FATIGUE=OPER(nom="CALC_FATIGUE",op= 151,sd_prod=calc_fatigue_prod,reentrant='n',
3248                   fr="Calcul d un cham de dommage ou d un cisaillement maximal dans le plan critique.",
3249                   docu="U4.83.02-c",
3250             UIinfo={"groupes":("Post traitements",)},
3251
3252          TYPE_CALCUL = SIMP(statut='o',typ='TXM',
3253                                into=("CUMUL_DOMMAGE","FATIGUE_MULTI",) ),
3254
3255          b_cumul_domma   =BLOC(condition = "TYPE_CALCUL == 'CUMUL_DOMMAGE'",
3256                                fr="Calcul d un champ de dommage subi par une structure.",
3257            regles=(PRESENT_PRESENT('DOMMAGE','MATER', ),),
3258            OPTION          =SIMP(statut='o',typ='TXM',
3259                                  into=("DOMA_ELNO_SIGM","DOMA_ELGA_SIGM",
3260                                        "DOMA_ELNO_EPSI","DOMA_ELGA_EPSI",
3261                                        "DOMA_ELNO_EPME","DOMA_ELGA_EPME") ),
3262            HISTOIRE        =FACT(statut='o',min=1,max=1,
3263              RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,
3264                                                    evol_noli) ),
3265              EQUI_GD         =SIMP(statut='f',typ='TXM',defaut="VMIS_SG",
3266                                  into=("VMIS_SG","INVA_2_SG") ),
3267            ),
3268            DOMMAGE         =SIMP(statut='o',typ='TXM',
3269                                into=("WOHLER","MANSON_COFFIN","TAHERI_MANSON",
3270                                      "TAHERI_MIXTE",) ),
3271            MATER           =SIMP(statut='o',typ=(mater) ),
3272            TAHERI_NAPPE    =SIMP(statut='f',typ=(fonction) ),
3273            TAHERI_FONC     =SIMP(statut='f',typ=(fonction) ),
3274          ),
3275
3276          b_fatigue_multi   =BLOC(condition = "TYPE_CALCUL == 'FATIGUE_MULTI'",
3277                                  fr="Plan critique dans le cas de la fatigue multiaxiale a grand nombre de cycles.",
3278            RESULTAT      =SIMP(statut='o',typ=(evol_elas, evol_noli) ),
3279            CHAM_MATER    =SIMP(statut='o',typ=(cham_mater) ),
3280            CRITERE       =SIMP(statut='o',typ='TXM',into=("MATAKE",) ),
3281            METHODE       =SIMP(statut='o',typ='TXM',into=("CERCLE_EXACT",) ),
3282          ),
3283
3284          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
3285 )  ;
3286 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
3287 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3288 # ======================================================================
3289 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3290 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3291 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3292 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3293 # (AT YOUR OPTION) ANY LATER VERSION.
3294 #
3295 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3296 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3297 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3298 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3299 #
3300 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3301 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3302 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3303 # ======================================================================
3304 CALC_FLUI_STRU=OPER(nom="CALC_FLUI_STRU",op= 144,sd_prod=melasflu,
3305                     docu="U4.66.02-d",reentrant='n',
3306             UIinfo={"groupes":("Matrices/vecteurs",)},
3307          VITE_FLUI       =FACT(statut='o',min=1,max=1,
3308                                fr="Définir la plage de vitesse fluide étudiée",
3309            VITE_MIN        =SIMP(statut='o',typ='R' ),
3310            VITE_MAX        =SIMP(statut='o',typ='R' ),
3311            NB_POIN         =SIMP(statut='o',typ='I' ),
3312          ),
3313          BASE_MODALE     =FACT(statut='o',min=1,max=1,
3314
3315            regles=(UN_PARMI('AMOR_REDUIT','AMOR_UNIF'),),
3316            MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
3317            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
3318            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
3319            AMOR_UNIF       =SIMP(statut='f',typ='R' ),
3320          ),
3321          TYPE_FLUI_STRU  =SIMP(statut='o',typ=type_flui_stru ),
3322          IMPRESSION      =FACT(statut='f',min=1,max=1,
3323                                fr="Choix des informations à imprimer dans le fichier RESULTAT",
3324            PARA_COUPLAGE   =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3325            DEFORMEE        =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3326          ),
3327 )  ;
3328 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
3329 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3330 # ======================================================================
3331 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3332 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3333 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3334 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3335 # (AT YOUR OPTION) ANY LATER VERSION.
3336 #
3337 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3338 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3339 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3340 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3341 #
3342 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3343 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3344 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3345 # ======================================================================
3346 CALC_FONC_INTERP=OPER(nom="CALC_FONC_INTERP",op= 134,sd_prod=fonction,
3347                       docu="U4.32.01-e1",reentrant='f',
3348             UIinfo={"groupes":("Fonction",)},
3349          regles=(UN_PARMI('VALE_R','LIST_PARA'),),
3350          FONCTION        =SIMP(statut='o',typ=fonction ),
3351          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
3352          VALE_R          =SIMP(statut='f',typ='R',max='**'),
3353          LIST_PARA       =SIMP(statut='f',typ=listr8 ),
3354          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG","INT") ),
3355          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("EXCLU","CONSTANT","LINEAIRE","INTERPRE") ),
3356          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("EXCLU","CONSTANT","LINEAIRE","INTERPRE") ),
3357          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3358          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3359 )  ;
3360 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
3361 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3362 # ======================================================================
3363 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3364 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3365 #              REDISTRIBUTION OF THIS FILE.
3366 # ======================================================================
3367 # RESPONSABLE MCOURTOI M.COURTOIS
3368 def calc_fonction_prod(DERIVE,EXTRACTION,INTEGRE,RMS,NOCI_SEISME,MAX,COMB,COMB_C,ENVELOPPE,
3369                        SPEC_OSCI,ASSE,FFT,COMPOSE,CORR_ACCE,PUISSANCE,LISS_ENVELOP,NORME, **args):
3370   if (RMS != None)        : return tabl_fonc_rms
3371   if (MAX != None)        : return tabl_fonc_max
3372   if (NOCI_SEISME != None): return tabl_fonc_noci
3373   if (INTEGRE != None)    : return fonction
3374   if (DERIVE != None)     : return fonction
3375   if (COMB != None)       : return fonction
3376   if (ENVELOPPE != None)  : return fonction
3377   if (EXTRACTION != None) : return fonction
3378   if (SPEC_OSCI != None)  : return fonction
3379   if (COMB_C != None)     : return fonction_c
3380   if (COMPOSE != None)    : return fonction
3381   if (ASSE != None)       : return fonction
3382   if (FFT != None)        :
3383      vale=FFT.get_child('FONCTION').get_valeur()
3384      if (AsType(vale) == fonction )  : return fonction_c
3385      if (AsType(vale) == fonction_c) : return fonction
3386   if (CORR_ACCE != None) : return fonction
3387   if (LISS_ENVELOP != None)  : return fonction
3388   if (PUISSANCE != None) : return fonction
3389   if (NORME != None) : return table
3390   raise AsException("type de concept resultat non prevu")
3391
3392 CALC_FONCTION=OPER(nom="CALC_FONCTION",op=  91,sd_prod=calc_fonction_prod
3393                     ,fr="Opérations mathématiques sur des concepts de type fonction",
3394                      docu="U4.32.04-f2",reentrant='n',
3395             UIinfo={"groupes":("Fonction",)},
3396          regles=(UN_PARMI('DERIVE','INTEGRE','SPEC_OSCI','MAX','COMB','COMB_C','ENVELOPPE','RMS',
3397                           'NOCI_SEISME','COMPOSE','EXTRACTION','ASSE','FFT','CORR_ACCE', 'PUISSANCE',
3398                           'NORME','LISS_ENVELOP'),),
3399          FFT             =FACT(statut='f',min=1,max=1,fr="Calcul de la transformee de Fourier ou de son inverse",
3400            FONCTION        =SIMP(statut='o',typ=(fonction,fonction_c) )
3401          ),
3402          DERIVE          =FACT(statut='f',min=1,max=1,fr="Calcul de la dérivée d une fonction",
3403            METHODE         =SIMP(statut='f',typ='TXM',defaut="DIFF_CENTREE",into=("DIFF_CENTREE",) ),
3404            FONCTION        =SIMP(statut='o',typ=fonction ),
3405          ),
3406          INTEGRE         =FACT(statut='f',min=1,max=1,fr="Calcul de l intégrale d une fonction",
3407            METHODE         =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
3408            FONCTION        =SIMP(statut='o',typ=fonction),
3409            COEF            =SIMP(statut='f',typ='R',defaut= 0.E+0,fr="Valeur de la constante d intégration" ),
3410          ),
3411          RMS             =FACT(statut='f',min=1,max=1,fr="Calcul de la valeur RMS d une fonction",
3412            METHODE         =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
3413            FONCTION        =SIMP(statut='o',typ=fonction ),
3414            INST_INIT       =SIMP(statut='f',typ='R',fr="Instant initial définissant le début du signal" ),
3415            INST_FIN        =SIMP(statut='f',typ='R',fr="Instant final définissant la fin du signal" ),
3416            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3417            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
3418          ),
3419          NOCI_SEISME     =FACT(statut='f',min=1,max=1,
3420            FONCTION        =SIMP(statut='f',typ=fonction ),
3421            SPEC_OSCI       =SIMP(statut='f',typ=fonction ),
3422            OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",max='**',
3423                                  into=("INTE_ARIAS","POUV_DEST","INTE_SPEC","VITE_ABSO_CUMU",
3424                                        "DUREE_PHAS_FORT","MAXI","ACCE_SUR_VITE","TOUT",) ),
3425            INST_INIT       =SIMP(statut='f',typ='R'),
3426            INST_FIN        =SIMP(statut='f',typ='R'),
3427            NATURE          =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE") ),
3428            COEF            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3429            PESANTEUR       =SIMP(statut='f',typ='R',defaut= 9.81E+0 ),
3430            FREQ_INIT       =SIMP(statut='f',typ='R',defaut= 4.E-1 ),
3431            FREQ_FIN        =SIMP(statut='f',typ='R',defaut= 10.E+0 ),
3432            AMOR_REDUIT     =SIMP(statut='f',typ='R'),
3433            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
3434            FREQ            =SIMP(statut='f',typ='R',max='**'),
3435            NORME           =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
3436            BORNE_INF       =SIMP(statut='f',typ='R',defaut= 0.05E+0 ),
3437            BORNE_SUP       =SIMP(statut='f',typ='R',defaut= 0.95E+0 ),
3438            b_acce_reel     =BLOC(condition="(INST_INIT != None)or(INST_FIN != None)or(FREQ_INIT != None)or(FREQ_FIN != None)",
3439              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
3440              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3441            ),
3442          ),
3443          LISS_ENVELOP    = FACT(statut='f',min=1,max=1,fr="Lissage d une enveloppe",
3444            FONCTION        =SIMP(statut='o',typ=fonction ),
3445            AMOR            =SIMP(statut='f',typ='R',max='**'),
3446            FREQ_MIN        =SIMP(statut='f',typ='R',defaut=0.2),
3447            FREQ_MAX        =SIMP(statut='f',typ='R',defaut=33.0),
3448            FREQ_CREUX      =SIMP(statut='f',typ='R',max='**'),
3449            ELARG           =SIMP(statut='f',typ='TXM',defaut="GLOBAL",into=("GLOBAL","LOCAL") ),
3450               b_elarg_glob = BLOC ( condition = " (ELARG=='GLOBAL') ",
3451                    GAUCHE       =SIMP(statut='f',typ='R',defaut =10.0E0 ),
3452                    DROITE       =SIMP(statut='f',typ='R',defaut =10.0E0 ),
3453                 ),
3454               b_elarg_loc = BLOC ( condition = " (ELARG=='LOCAL') ",
3455                    FREQ_1       =SIMP(statut='o',typ='R'),
3456                    FREQ_2       =SIMP(statut='o',typ='R' ),
3457                    GAUCHE       =SIMP(statut='f',typ='R',defaut =10.0E0 ),
3458                    DROITE       =SIMP(statut='f',typ='R',defaut =10.0E0 ),
3459                 ),
3460            LARG_PLAT      =SIMP(statut='f',typ='R',defaut=90.0E0),
3461            TOLE_LISS      =SIMP(statut='f',typ='R',defaut=25.0E0),
3462            ECH_FREQ_REF = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3463                b_oui    =BLOC ( condition = "(ECH_FREQ_REF=='OUI') ",
3464                     regles=(UN_PARMI("LIST_FREQ", "AMOR_ECH"),),
3465                        LIST_FREQ   =SIMP(statut='f',typ=listr8 ),
3466                        AMOR_ECH    =SIMP(statut='f',typ='R',max='**'),
3467                               ),
3468          ),
3469          SPEC_OSCI       =FACT(statut='f',min=1,max=1,fr="Calcul du spectre d oscillateur",
3470            METHODE         =SIMP(statut='f',typ='TXM',defaut="NIGAM",into=("NIGAM",) ),
3471            FONCTION        =SIMP(statut='o',typ=fonction ),
3472            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
3473            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
3474            FREQ            =SIMP(statut='f',typ='R',max='**'),
3475            NORME           =SIMP(statut='f',typ='R',defaut= 9.81E+0,fr="Valeur de la norme du spectre d oscillateur" ),
3476            NATURE          =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
3477            NATURE_FONC     =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
3478          ),
3479          MAX             =FACT(statut='f',min=1,max=1,fr="Calcul des extrémas locaux d une fonction",
3480            FONCTION        =SIMP(statut='o',typ=fonction ),
3481          ),
3482          COMB            =FACT(statut='f',min=1,max='**',fr="Calcul d une combinaison linéaire réelle de fonctions",
3483            FONCTION        =SIMP(statut='o',typ=fonction ),
3484            COEF            =SIMP(statut='o',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
3485          ),
3486          COMB_C          =FACT(statut='f',min=1,max='**',fr="Calcul d une combinaison linéaire complexe de fonctions",
3487            regles=(UN_PARMI('COEF_R','COEF_C'),),
3488            FONCTION        =SIMP(statut='o',typ=(fonction, fonction_c) ),
3489            COEF_R          =SIMP(statut='f',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
3490            COEF_C          =SIMP(statut='f',typ='C',fr="Coefficient complexe de la combinaison linéaire associée à la fonction" ),
3491          ),
3492          b_comb          =BLOC ( condition = " (COMB != None) or (COMB_C != None)",
3493              LIST_PARA      =SIMP(statut='f',typ=listr8 ),
3494          ),
3495          COMPOSE         =FACT(statut='f',min=1,max=1,fr="Calcul de la composition de deux fonctions FONC_RESU(FONC_PARA)",
3496            FONC_RESU       =SIMP(statut='o',typ=fonction),
3497            FONC_PARA       =SIMP(statut='o',typ=fonction),
3498          ),
3499          EXTRACTION      =FACT(statut='f',min=1,max=1,fr="Opération d extraction sur une fonction complexe",
3500            FONCTION        =SIMP(statut='o',typ=fonction_c),
3501            PARTIE          =SIMP(statut='o',typ='TXM',into=("REEL","IMAG","MODULE","PHASE"),fr="Partie à extraire"),
3502          ),
3503          ENVELOPPE       =FACT(statut='f',min=1,max=1,fr="Calcul de l enveloppe d une famille de fonctions",
3504            FONCTION        =SIMP(statut='o',typ=fonction,max='**' ),
3505            CRITERE         =SIMP(statut='f',typ='TXM',defaut="SUP",into=("SUP","INF"),fr="Type de l enveloppe" ),
3506          ),
3507          ASSE            =FACT(statut='f',min=1,max=1,fr="Création à partir de la concatenation de fonctions",
3508            FONCTION        =SIMP(statut='o',typ=fonction,max='**' ),
3509            SURCHARGE       =SIMP(statut='f',typ='TXM',defaut="DROITE",into=("DROITE","GAUCHE")),
3510          ),
3511           CORR_ACCE     =FACT(statut='f',min=1,max=1,fr="Correction d un accelerogramme reel",
3512             CORR_DEPL          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
3513             FONCTION        =SIMP(statut='o',typ=fonction ),
3514          ),
3515          PUISSANCE       =FACT(statut='f',min=1,max=1,fr="Cacul du carré d'une fonction",
3516             FONCTION      =SIMP(statut='o', typ=fonction),
3517             EXPOSANT      =SIMP(statut='f', typ='I', defaut=1 ),
3518          ),
3519          NORME     =FACT(statut='f',min=1,max=1,fr="Cacul de la norme L2 d'une fonction",
3520             FONCTION =SIMP(statut='o', typ=fonction),
3521          ),
3522          NOM_PARA        =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
3523                                                           "INST","X","Y","Z","EPSI","FREQ","PULS",
3524                                                           "AMOR","ABSC") ),
3525          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
3526          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
3527          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3528          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3529          NOM_PARA_FONC   =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
3530                                                           "INST","X","Y","Z","EPSI","FREQ","PULS",
3531                                                           "AMOR","ABSC") ),
3532          INTERPOL_FONC   =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
3533          PROL_DROITE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3534          PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3535          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3536          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3537 )  ;
3538 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
3539 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3540 # ======================================================================
3541 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3542 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3543 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3544 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3545 # (AT YOUR OPTION) ANY LATER VERSION.
3546 #
3547 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3548 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3549 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3550 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3551 #
3552 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3553 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3554 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3555 # ======================================================================
3556 CALC_FORC_AJOU=OPER(nom="CALC_FORC_AJOU",op=199,sd_prod=vect_asse_gene,
3557                    fr="calcul de la force ajoutee ",
3558                    docu="U4.66.03-a1",reentrant ='n',
3559             UIinfo={"groupes":("Matrices/vecteurs",)},
3560
3561         regles=(EXCLUS('MODE_MECA','MODELE_GENE'),
3562                 PRESENT_PRESENT( 'MODELE_GENE','NUME_DDL_GENE'),
3563                 UN_PARMI('MONO_APPUI', 'NOEUD','GROUP_NO'),
3564                 UN_PARMI('MONO_APPUI','MODE_STAT')),
3565
3566          MODELE_FLUIDE   =SIMP(statut='o',typ=modele ),
3567          MODELE_INTERFACE=SIMP(statut='o',typ=modele ),
3568          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
3569          CHARGE          =SIMP(statut='o',typ=char_ther ),
3570          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
3571          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
3572          NUME_DDL_GENE   =SIMP(statut='f',typ=nume_ddl_gene ),
3573          DIST_REFE       =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
3574          AVEC_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3575          NUME_MODE_MECA  =SIMP(statut='f',typ='I',max='**'),
3576          POTENTIEL       =SIMP(statut='f',typ=evol_ther ),
3577          NOEUD_DOUBLE    =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3578
3579          DIRECTION       =SIMP(statut='o',typ='R',max=3),
3580          MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",),),
3581          NOEUD           =SIMP(statut='f',typ=no,max='**'),
3582          GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
3583          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,),),
3584
3585          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3586
3587          SOLVEUR         =FACT(statut='d',min=1,max=1,
3588            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
3589            b_mult_front    = BLOC ( condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
3590              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
3591            ),
3592            b_ldlt          =BLOC( condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
3593              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
3594            ),
3595            b_ldlt_mult     =BLOC( condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
3596                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
3597              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
3598              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3599            ),
3600            b_gcpc          =BLOC (condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
3601              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
3602              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
3603              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
3604              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
3605              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
3606            ),
3607 #  A quoi sert eps
3608            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0),  ),
3609
3610            ) ;
3611 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
3612 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3613 # ======================================================================
3614 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3615 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3616 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3617 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3618 # (AT YOUR OPTION) ANY LATER VERSION.
3619 #
3620 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3621 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3622 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3623 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3624 #
3625 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3626 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3627 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3628 # ======================================================================
3629 CALC_G_LOCAL_T=OPER(nom="CALC_G_LOCAL_T",op=77,sd_prod=tabl_calc_g_loca,
3630                     fr="Calcul du taux de restitution local d énergie",docu="U4.82.04-f3",reentrant='n',
3631             UIinfo={"groupes":("Post traitements",)},
3632          MODELE          =SIMP(statut='o',typ=modele),
3633          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
3634          regles=(UN_PARMI('FOND','FOND_FISS' ),
3635                  UN_PARMI('RESULTAT','DEPL'),
3636                  UN_PARMI('R_INF','R_INF_FO'),
3637                  PRESENT_PRESENT('R_INF','R_SUP'),
3638                  PRESENT_PRESENT('R_INF_FO','R_SUP_FO'), ),
3639          FOND            =SIMP(statut='f',typ=fond_fiss),
3640          FOND_FISS       =SIMP(statut='f',typ=fond_fiss),
3641          DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
3642          RESULTAT        =SIMP(statut='f',typ=(evol_elas,evol_noli),),
3643          b_extrac        =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
3644              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
3645              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3646              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
3647              LIST_ORDRE      =SIMP(statut='f',typ=listis),
3648              INST            =SIMP(statut='f',typ='R',max='**'),
3649              LIST_INST       =SIMP(statut='f',typ=listr8),
3650
3651              b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
3652                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
3653                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3654              ),
3655          ),
3656
3657          CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
3658          SYME_CHAR       =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
3659
3660          COMP_ELAS       =FACT(statut='f',min=1,max=1,
3661                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
3662                                      into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
3663                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3664                ELAS_VMIS_LINE  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3665                ELAS_VMIS_TRAC  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3666                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
3667       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3668                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3669                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3670                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3671          ),
3672
3673          COMP_INCR       =FACT(statut='f',min=1,max=1,
3674                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
3675                                      into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
3676                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3677                VMIS_ISOT_TRAC  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3678                VMIS_ISOT_LINE  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3679                VMIS_CINE_LINE  =SIMP(statut='f',typ='I',defaut=7,into=(7,) ),
3680                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
3681       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3682                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3683                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3684                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3685          ),
3686
3687          ETAT_INIT       =FACT(statut='f',min=1,max=1,
3688            SIGM            =SIMP(statut='f',typ=cham_elem_sief_r),
3689            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
3690          ),
3691
3692          OPTION          =SIMP(statut='f',typ='TXM',defaut="CALC_G",
3693                                into=("CALC_G","CALC_G_LGLO","G_BILINEAIRE","CALC_G_MAX") ),
3694          b_g             =BLOC(condition="OPTION=='CALC_G'",
3695            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3696            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE","LAGRANGE_NO_NO",) ),
3697          ),
3698          b_g_lglo        =BLOC(condition="OPTION=='CALC_G_LGLO'",
3699            PROPAGATION     =SIMP(statut='o',typ='R'),
3700            THETA           =SIMP(statut='o',typ=theta_geom),
3701            DIRE_THETA      =SIMP(statut='f',typ=cham_no_depl_r),
3702            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3703            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE","LAGRANGE_NO_NO",) ),
3704          ),
3705          b_g_bilin       =BLOC(condition="OPTION=='G_BILINEAIRE'",
3706            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3707            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3708          ),
3709          b_calc_g_max    =BLOC(condition="OPTION=='CALC_G_MAX'",
3710            BORNES          =FACT(statut='o',min=1,max='**',
3711               NUME_ORDRE     =SIMP(statut='o',typ='I'),
3712               VALE_MIN       =SIMP(statut='o',typ='R'),
3713               VALE_MAX       =SIMP(statut='o',typ='R'),
3714                                 ),
3715            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3716            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3717          ),
3718
3719          DEGRE           =SIMP(statut='f',typ='I',defaut=5,into=(0,1,2,3,4,5,6,7) ),
3720
3721          R_INF           =SIMP(statut='f',typ='R'),
3722          R_SUP           =SIMP(statut='f',typ='R'),
3723          R_INF_FO        =SIMP(statut='f',typ=fonction),
3724          R_SUP_FO        =SIMP(statut='f',typ=fonction),
3725
3726          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3727          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
3728 )  ;
3729 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
3730 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3731 # ======================================================================
3732 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3733 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3734 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3735 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3736 # (AT YOUR OPTION) ANY LATER VERSION.
3737 #
3738 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3739 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3740 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3741 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3742 #
3743 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3744 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3745 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3746 # ======================================================================
3747 CALC_G_THETA_T=OPER(nom="CALC_G_THETA_T",op=53,sd_prod=tabl_calc_g_th,
3748                     fr="Calcul du taux de restitution d énergie par la méthode theta en thermo-élasticité en 2D ou en 3D",
3749                     docu="U4.82.03-f2",reentrant='n',
3750             UIinfo={"groupes":("Post traitements",)},
3751          regles=(UN_PARMI('RESULTAT','DEPL'),
3752                  EXCLUS('COMP_ELAS','COMP_INCR'),),
3753          MODELE          =SIMP(statut='o',typ=modele),
3754          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
3755          THETA           =SIMP(statut='o',typ=theta_geom),
3756          DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
3757          RESULTAT        =SIMP(statut='f',typ=(evol_elas,evol_noli),),
3758
3759          b_extrac        =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
3760            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
3761            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3762            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
3763            LIST_ORDRE      =SIMP(statut='f',typ=listis),
3764            INST            =SIMP(statut='f',typ='R',max='**'),
3765            LIST_INST       =SIMP(statut='f',typ=listr8),
3766
3767            b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
3768              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
3769              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3770            ),
3771          ),
3772
3773          CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
3774          SYME_CHAR       =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
3775
3776          COMP_ELAS       =FACT(statut='f',min=1,max=1,
3777                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
3778                                      into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
3779                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3780                ELAS_VMIS_LINE  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3781                ELAS_VMIS_TRAC  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3782                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
3783       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3784                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3785                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3786                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3787          ),
3788          COMP_INCR       =FACT(statut='f',min=1,max=1,
3789                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
3790                                      into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
3791                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3792                VMIS_ISOT_TRAC  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3793                VMIS_ISOT_LINE  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3794                VMIS_CINE_LINE  =SIMP(statut='f',typ='I',defaut=7,into=(7,) ),
3795                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
3796       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3797                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3798                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3799                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3800          ),
3801          ETAT_INIT       =FACT(statut='f',min=1,max=1,
3802            SIGM            =SIMP(statut='f',typ=cham_elem_sief_r),
3803            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
3804          ),
3805          OPTION          =SIMP(statut='f',typ='TXM',defaut="CALC_G",
3806                                into=("CALC_G","CALC_G_LAGR","CALC_K_G","G_BILINEAIRE","CALC_G_MAX","CALC_DG",) ),
3807          b_calc_g_max    =BLOC(condition="OPTION=='CALC_G_MAX'",
3808            BORNES          =FACT(statut='o',min=1,max='**',
3809                 NUME_ORDRE     =SIMP(statut='o',typ='I'),
3810                 VALE_MIN       =SIMP(statut='o',typ='R'),
3811                 VALE_MAX       =SIMP(statut='o',typ='R'),
3812                                 ),
3813          ),
3814          b_calc_k_g      =BLOC(condition="OPTION=='CALC_K_G'",
3815              regles=(UN_PARMI('FOND','FOND_FISS' ),),
3816            FOND            =SIMP(statut='f',typ=fond_fiss),
3817            FOND_FISS       =SIMP(statut='f',typ=fond_fiss),
3818          ),
3819          b_calc_g_lagr   =BLOC(condition="OPTION=='CALC_G_LAGR'",
3820            PROPAGATION     =SIMP(statut='o',typ='R'),
3821          ),
3822          b_calc_dg       =BLOC(condition="OPTION=='CALC_DG'",
3823            SENSIBILITE     =FACT(statut='f',min=1,max=1,
3824                  THETA          =SIMP(statut='o',typ=theta_geom ),
3825                                ),
3826          ),
3827
3828          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3829          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
3830 )  ;
3831 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
3832 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3833 # ======================================================================
3834 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3835 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3836 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3837 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3838 # (AT YOUR OPTION) ANY LATER VERSION.
3839 #
3840 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3841 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3842 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3843 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3844 #
3845 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3846 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3847 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3848 # ======================================================================
3849 CALC_INTE_SPEC=OPER(nom="CALC_INTE_SPEC",op= 120,sd_prod=tabl_intsp,
3850                     fr="Calcul d une matrice interspectrale d une fonction du temps",
3851                     docu="U4.36.03-e",reentrant='n',
3852             UIinfo={"groupes":("Fonction",)},
3853          INST_INIT       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3854          INST_FIN        =SIMP(statut='o',typ='R' ),
3855          DUREE_ANALYSE   =SIMP(statut='f',typ='R' ),
3856          DUREE_DECALAGE  =SIMP(statut='f',typ='R' ),
3857          NB_POIN         =SIMP(statut='o',typ='I' ),
3858          FONCTION        =SIMP(statut='o',typ=fonction,max='**' ),
3859          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3860          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
3861 )  ;
3862 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
3863 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3864 # ======================================================================
3865 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3866 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3867 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3868 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3869 # (AT YOUR OPTION) ANY LATER VERSION.
3870 #
3871 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3872 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3873 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3874 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3875 #
3876 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3877 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3878 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3879 # ======================================================================
3880 CALC_MATR_AJOU=OPER(nom="CALC_MATR_AJOU",op= 152,sd_prod=matr_asse_gene_r,
3881                     fr="Calcul des matrices de masse, d amortissement ou de raideur ajoutées",
3882                     docu="U4.66.01-c",reentrant='n',
3883             UIinfo={"groupes":("Matrices/vecteurs",)},
3884          regles=(EXCLUS('MODE_MECA','CHAM_NO','MODELE_GENE'),
3885                  PRESENT_ABSENT('NUME_DDL_GENE','CHAM_NO'),
3886                  PRESENT_PRESENT('MODELE_GENE','NUME_DDL_GENE'),),
3887          MODELE_FLUIDE   =SIMP(statut='o',typ=modele ),
3888          MODELE_INTERFACE=SIMP(statut='o',typ=modele ),
3889          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
3890          CHARGE          =SIMP(statut='o',typ=char_ther ),
3891          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
3892          CHAM_NO         =SIMP(statut='f',typ=cham_no_depl_r ),
3893          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
3894          NUME_DDL_GENE   =SIMP(statut='f',typ=nume_ddl_gene ),
3895          DIST_REFE       =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
3896          AVEC_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3897          NUME_MODE_MECA  =SIMP(statut='f',typ='I',max='**'),
3898          OPTION          =SIMP(statut='o',typ='TXM',into=("MASS_AJOU","AMOR_AJOU","RIGI_AJOU") ),
3899          POTENTIEL       =SIMP(statut='f',typ=evol_ther ),
3900          NOEUD_DOUBLE    =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3901          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3902
3903          SOLVEUR         =FACT(statut='d',min=1,max=1,
3904            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
3905            b_mult_front    = BLOC ( condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
3906              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
3907            ),
3908            b_ldlt          =BLOC( condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
3909              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
3910            ),
3911            b_ldlt_mult     =BLOC( condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
3912                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
3913              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
3914              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3915            ),
3916            b_gcpc          =BLOC (condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
3917              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
3918              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
3919              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
3920              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
3921              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
3922            ),
3923 #  A quoi sert eps
3924            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3925          ),
3926 )  ;
3927 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
3928 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3929 # ======================================================================
3930 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3931 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3932 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3933 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3934 # (AT YOUR OPTION) ANY LATER VERSION.
3935 #
3936 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3937 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3938 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3939 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3940 #
3941 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3942 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3943 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3944 # ======================================================================
3945 # RESPONSABLE VABHHTS J.PELLET
3946 def calc_matr_elem_prod(OPTION,**args):
3947   if OPTION == "RIGI_MECA"        : return matr_elem_depl_r
3948   if OPTION == "RIGI_FLUI_STRU"   : return matr_elem_depl_r
3949   if OPTION == "RIGI_MECA_LAGR"   : return matr_elem_depl_r
3950   if OPTION == "MASS_ID_MDEP_R"   : return matr_elem_depl_r
3951   if OPTION == "MASS_ID_MDNS_R"   : return matr_elem_depl_r
3952   if OPTION == "MASS_ID_MTEM_R"   : return matr_elem_temp_r
3953   if OPTION == "MASS_ID_MTNS_R"   : return matr_elem_temp_r
3954   if OPTION == "MASS_MECA"        : return matr_elem_depl_r
3955   if OPTION == "MASS_FLUI_STRU"   : return matr_elem_depl_r
3956   if OPTION == "RIGI_GEOM"        : return matr_elem_depl_r
3957   if OPTION == "RIGI_ROTA"        : return matr_elem_depl_r
3958   if OPTION == "AMOR_MECA"        : return matr_elem_depl_r
3959   if OPTION == "IMPE_MECA"        : return matr_elem_depl_r
3960   if OPTION == "ONDE_FLUI"        : return matr_elem_depl_r
3961   if OPTION == "RIGI_MECA_HYST"   : return matr_elem_depl_c
3962   if OPTION == "RIGI_THER"        : return matr_elem_temp_r
3963   if OPTION == "MASS_THER"        : return matr_elem_temp_r
3964   if OPTION == "MASS_MECA_DIAG"   : return matr_elem_depl_r
3965   if OPTION == "RIGI_ACOU"        : return matr_elem_pres_c
3966   if OPTION == "MASS_ACOU"        : return matr_elem_pres_c
3967   if OPTION == "AMOR_ACOU"        : return matr_elem_pres_c
3968   raise AsException("type de concept resultat non prevu")
3969
3970 CALC_MATR_ELEM=OPER(nom="CALC_MATR_ELEM",op=   9,sd_prod=calc_matr_elem_prod
3971                     ,fr="Calcul des matrices élémentaires",docu="U4.61.01-g1",reentrant='n',
3972             UIinfo={"groupes":("Matrices/vecteurs",)},
3973          OPTION          =SIMP(statut='o',typ='TXM',
3974                                into=("RIGI_MECA","MASS_MECA","RIGI_GEOM",
3975                                      "AMOR_MECA","RIGI_THER","MASS_THER","IMPE_MECA",
3976                                      "ONDE_FLUI","MASS_FLUI_STRU","RIGI_FLUI_STRU",
3977                                      "RIGI_ROTA","MASS_MECA_DIAG","RIGI_ACOU",
3978                                      "MASS_ID_MDEP_R","MASS_ID_MDNS_R","MASS_ID_MTEM_R","MASS_ID_MTNS_R",
3979                                      "MASS_ACOU","AMOR_ACOU","RIGI_MECA_HYST",
3980                                      "RIGI_MECA_LAGR") ),
3981
3982          b_rigi_meca = BLOC( condition = "OPTION=='RIGI_MECA'",
3983            regles=(AU_MOINS_UN('MODELE','CHARGE' ),),
3984            MODELE          =SIMP(statut='f',typ=modele ),
3985            b_modele        =BLOC(condition = "MODELE != None",
3986              CHAM_MATER      =SIMP(statut='f',typ=cham_mater ),
3987              CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
3988              MODE_FOURIER    =SIMP(statut='f',typ='I',defaut= 0 ),
3989            ),
3990            CHARGE          =SIMP(statut='f',typ=char_meca,max='**' ),
3991            b_charge        =BLOC (condition = "CHARGE != None",
3992              INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3993            ),
3994          ),
3995
3996          b_rigi_meca_lagr  =BLOC(condition = "OPTION=='RIGI_MECA_LAGR'",
3997            MODELE            =SIMP(statut='o',typ=modele ),
3998            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
3999            CHARGE            =SIMP(statut='f',typ=char_meca,max='**'  ),
4000            b_charge        =BLOC(condition = "CHARGE != None",
4001              INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4002            ),
4003            THETA           =SIMP(statut='o',typ=theta_geom ),
4004            PROPAGATION     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4005          ),
4006
4007          b_mass_meca       =BLOC(condition = "(OPTION=='MASS_MECA') or (OPTION=='MASS_MECA_DIAG')",
4008            regles=(AU_MOINS_UN('MODELE','CHARGE'),),
4009            MODELE          =SIMP(statut='f',typ=modele ),
4010            b_modele          =BLOC(condition = "MODELE != None",
4011              CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
4012              CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
4013            ),
4014            CHARGE          =SIMP(statut='f',typ=char_meca,max='**' ),
4015            b_charge        =BLOC(condition = "CHARGE != None",
4016              INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4017            ),
4018          ),
4019
4020          b_mass_identite   =BLOC(condition = "(OPTION in ('MASS_ID_MDEP_R','MASS_ID_MTEM_R','MASS_ID_MDNS_R','MASS_ID_MTNS_R')) ",
4021            MODELE            =SIMP(statut='o',typ=modele ),
4022            # j'ajoute ces 2 mot clés inutiles à cause de l'alarme pas assez subtile de MEDOME
4023            CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
4024            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
4025          ),
4026
4027          b_rigi_geom       =BLOC(condition = "OPTION=='RIGI_GEOM'",
4028            MODELE            =SIMP(statut='o',typ=modele ),
4029            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
4030            SIEF_ELGA         =SIMP(statut='o',typ=cham_elem_sief_r ),
4031            MODE_FOURIER      =SIMP(statut='f',typ='I',defaut= 0 ),
4032          ),
4033
4034          b_rigi_rota       =BLOC(condition = "OPTION=='RIGI_ROTA'",
4035            MODELE            =SIMP(statut='o',typ=modele ),
4036            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
4037            CHARGE            =SIMP(statut='o',typ=char_meca,max='**' ),
4038            INST              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4039          ),
4040
4041          b_amor_meca       =BLOC(condition = "OPTION=='AMOR_MECA'",
4042            regles=(AU_MOINS_UN('CARA_ELEM','RIGI_MECA'),
4043                    ENSEMBLE('RIGI_MECA','MASS_MECA','CHAM_MATER'), ),
4044            MODELE            =SIMP(statut='o',typ=modele ),
4045            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
4046            CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
4047            RIGI_MECA         =SIMP(statut='f',typ=matr_elem_depl_r ),
4048            MASS_MECA         =SIMP(statut='f',typ=matr_elem_depl_r ),
4049            CHARGE            =SIMP(statut='f',typ=char_meca,max='**' ),
4050          ),
4051
4052          b_rigi_meca_hyst  =BLOC( condition = "OPTION=='RIGI_MECA_HYST'",
4053            MODELE            =SIMP(statut='o',typ=modele ),
4054            CHARGE            =SIMP(statut='o',typ=char_meca ,max='**' ),
4055            CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
4056            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
4057            RIGI_MECA         =SIMP(statut='o',typ=matr_elem_depl_r ),
4058          ),
4059
4060          b_rigi_ther       =BLOC(condition = "OPTION=='RIGI_THER'",
4061            regles=(AU_MOINS_UN('MODELE','CHARGE' ),),
4062            MODELE            =SIMP(statut='f',typ=modele ),
4063            b_modele          =BLOC(condition = "MODELE != None",
4064              CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
4065              CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
4066              MODE_FOURIER      =SIMP(statut='f',typ='I',defaut= 0 ),
4067            ),
4068            CHARGE            =SIMP(statut='f',typ=char_ther,max='**' ),
4069          ),
4070
4071          b_mass_ther       =BLOC(condition = "OPTION=='MASS_THER'",
4072            MODELE            =SIMP(statut='o',typ=modele ),
4073            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
4074            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
4075          ),
4076
4077          b_rigi_acou       =BLOC(condition = "(OPTION=='RIGI_ACOU') or (OPTION=='MASS_ACOU') or (OPTION=='AMOR_ACOU')",
4078            MODELE            =SIMP(statut='o',typ=modele ),
4079            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
4080            CHARGE            =SIMP(statut='f',typ=char_acou ,max='**' ),
4081          ),
4082
4083          b_rigi_flui       =BLOC(condition = "(OPTION=='RIGI_FLUI_STRU') or (OPTION=='MASS_FLUI_STRU')",
4084            MODELE            =SIMP(statut='o',typ=modele ),
4085            CARA_ELEM         =SIMP(statut='o',typ=cara_elem ),
4086            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
4087            CHARGE            =SIMP(statut='o',typ=char_meca ,max='**' ),
4088            INST              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4089          ),
4090
4091          b_impe_meca       =BLOC(condition = "(OPTION=='IMPE_MECA') or (OPTION=='ONDE_FLUI')",
4092            MODELE            =SIMP(statut='o',typ=modele ),
4093            CHARGE            =SIMP(statut='o',typ=char_meca,max='**' ),
4094            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
4095          ),
4096 )  ;
4097 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
4098 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4099 # ======================================================================
4100 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4101 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4102 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4103 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4104 # (AT YOUR OPTION) ANY LATER VERSION.
4105 #
4106 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4107 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4108 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4109 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4110 #
4111 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4112 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4113 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4114 # ======================================================================
4115 CALC_META=OPER(nom="CALC_META",op=194,sd_prod=evol_ther,docu="U4.85.01-b1",reentrant='o',
4116             UIinfo={"groupes":("Post traitements",)},
4117                fr="Calcule la métallurgie a partir du résultat du calcul thermique",
4118          MODELE          =SIMP(statut='o',typ=modele ),
4119          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
4120          RESULTAT        =SIMP(statut='o',typ=evol_ther ),
4121          ETAT_INIT       =FACT(statut='o',min=1,max=1,
4122       regles=(UN_PARMI('NUME_INIT', 'INST_INIT', 'META_INIT',),),
4123            EVOL_THER       =SIMP(statut='f',typ=evol_ther ),
4124            NUME_INIT       =SIMP(statut='f',typ='I' ),
4125            INST_INIT       =SIMP(statut='f',typ='R'),
4126              b_inst     =BLOC(condition="(INST_INIT != None)",
4127                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
4128                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4129                              ),
4130            META_INIT       =SIMP(statut='f',typ=carte_var2_r ),
4131          ),
4132          COMP_INCR       =FACT(statut='o',min=1,max='**',
4133            RELATION        =SIMP(statut='o',typ='TXM',into=("ACIER","ZIRC",) ),
4134            ACIER           =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
4135            ZIRC            =SIMP(statut='c',typ='I',defaut=3,into=(3,) ),
4136       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
4137            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4138            GROUP_MA        =SIMP(statut='f',typ=grma),
4139            MAILLE          =SIMP(statut='f',typ=ma),
4140          ),
4141          OPTION          =SIMP(statut='f',typ='TXM'
4142                              ,into=("META_ELNO_TEMP",) ),
4143 )  ;
4144 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
4145 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4146 # ======================================================================
4147 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4148 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4149 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4150 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4151 # (AT YOUR OPTION) ANY LATER VERSION.
4152 #
4153 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4154 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4155 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4156 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4157 #
4158 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4159 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4160 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4161 # ======================================================================
4162 # RESPONSABLE G8BHHXD X.DESROCHES
4163 def calc_no_prod(RESULTAT,**args):
4164    if AsType(RESULTAT) != None : return AsType(RESULTAT)
4165    raise AsException("type de concept resultat non prevu")
4166
4167 CALC_NO=OPER(nom="CALC_NO",op= 106,sd_prod=calc_no_prod,docu="U4.81.02-f3",reentrant='o',
4168             UIinfo={"groupes":("Post traitements",)},
4169          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
4170                                                mode_acou,mode_stat,mode_stat_depl,mode_stat_acce,
4171                                               mode_stat_forc,evol_ther,evol_noli,base_modale,
4172                                                mult_elas,fourier_elas,mode_flamb ) ),
4173          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
4174                                fr="Liste des paramètres de sensibilité.",
4175                                ang="List of sensitivity parameters"),
4176
4177          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
4178                         'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),),
4179          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4180          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
4181          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
4182          NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
4183          NOM_CAS         =SIMP(statut='f',typ='TXM' ),
4184          INST            =SIMP(statut='f',typ='R',max='**'),
4185          FREQ            =SIMP(statut='f',typ='R',max='**'),
4186          LIST_INST       =SIMP(statut='f',typ=listr8),
4187          LIST_FREQ       =SIMP(statut='f',typ=listr8),
4188          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
4189          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4190          LIST_ORDRE      =SIMP(statut='f',typ=listis),
4191
4192          OPTION          =SIMP(statut='o',typ='TXM',max='**',
4193                                into=("FORC_NODA","REAC_NODA",
4194                                      "DCHA_NOEU_SIGM",
4195                                      "DEGE_NOEU_DEPL",
4196                                      "DETE_NOEU_DLTE",
4197                                      "DEDE_NOEU_DLDE",
4198                                      "DESI_NOEU_DLSI",
4199                                      "DURT_NOEU_META",
4200                                      "EFGE_NOEU_CART","EFGE_NOEU_DEPL",
4201                                      "ENDO_NOEU_SINO",
4202                                      "ENEL_NOEU_ELGA",
4203                                      "EPMG_NOEU_DEPL",
4204                                      "EPSA_NOEU",
4205                                      "EPSG_NOEU"     ,"EPSG_NOEU_DEPL",
4206                                      "EPSI_NOEU_DEPL","EPSI_NOEU_DPGE",
4207                                      "EPSP_NOEU"     ,"EPSP_NOEU_ZAC",
4208                                      "EQUI_NOEU_EPME","EQUI_NOEU_EPSI","EQUI_NOEU_SIGM",
4209                                      "ERRE_NOEU_ELGA",
4210                                      "FLUX_NOEU_TEMP",
4211                                      "GRAD_NOEU_THETA",
4212                                      "HYDR_NOEU_ELGA",
4213                                      "INTE_NOEU_ACTI","INTE_NOEU_REAC",
4214                                      "META_NOEU_TEMP",
4215                                      "PMPB_NOEU_SIEF",
4216                                      "PRES_NOEU_DBEL","PRES_NOEU_IMAG","PRES_NOEU_REEL",
4217                                      "RADI_NOEU_SIGM",
4218                                      "SIEF_NOEU"     ,"SIEF_NOEU_ELGA",
4219                                      "SIGM_NOEU_CART","SIGM_NOEU_COQU","SIGM_NOEU_DEPL","SIGM_NOEU_DPGE",
4220                                      "SIGM_NOEU_SIEF","SIGM_NOEU_VARI","SIGM_NOEU_ZAC",
4221                                      "SIPO_NOEU_DEPL","SIPO_NOEU_SIEF",
4222                                      "SIRE_NOEU_DEPL",
4223                                      "VARI_NOEU"     ,"VARI_NOEU_ELGA",) ),
4224
4225          b_forc_reac     =BLOC(condition = """(OPTION == 'FORC_NODA') or (type(OPTION) == type(()) and 'FORC_NODA' in OPTION) or\
4226  (OPTION == 'REAC_NODA') or (type(OPTION) == type(()) and 'REAC_NODA' in OPTION)""",
4227              MODELE          =SIMP(statut='o',typ=modele),
4228          ),
4229
4230          CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
4231          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
4232          EXCIT           =FACT(statut='f',min=1,max='**',
4233            CHARGE          =SIMP(statut='f',typ=(char_meca,char_ther,char_acou) ),
4234            FONC_MULT       =SIMP(statut='f',typ=fonction),
4235            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
4236                                  into=("FIXE_CSTE","FIXE_PILO","SUIV") ),
4237          ),
4238          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4239          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4240          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4241 )  ;
4242 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
4243 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4244 # ======================================================================
4245 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4246 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4247 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4248 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4249 # (AT YOUR OPTION) ANY LATER VERSION.
4250 #
4251 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4252 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4253 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4254 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4255 #
4256 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4257 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4258 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4259 # ======================================================================
4260 CALC_THETA=OPER(nom="CALC_THETA",op=54,sd_prod=theta_geom,docu="U4.82.02-d",reentrant='n',
4261             UIinfo={"groupes":("Post traitements",)},
4262                 fr="Affectation d un champ sur le maillage (mécanique de la rupture)",
4263          regles=(UN_PARMI('THETA_2D','THETA_3D','THETA_BANDE'),
4264                  PRESENT_ABSENT('THETA_2D','DIRE_THETA'),
4265                  EXCLUS('DIRECTION','DIRE_THETA'),),
4266          OPTION          =SIMP(statut='f',typ='TXM',defaut="COURONNE",into=("COURONNE","BANDE") ),
4267          MODELE          =SIMP(statut='o',typ=(modele) ),
4268          FOND_FISS       =SIMP(statut='f',typ=fond_fiss),
4269          FOND_3D         =SIMP(statut='f',typ=(fond_fiss) ),
4270          THETA_3D        =FACT(statut='f',min=1,max='**',
4271            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
4272                    UN_PARMI('MODULE','MODULE_FO'),
4273                    ENSEMBLE('MODULE','R_INF','R_SUP'),
4274                    ENSEMBLE('MODULE_FO','R_INF_FO','R_SUP_FO'),),
4275            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4276            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4277            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4278            MODULE          =SIMP(statut='f',typ='R'),
4279            R_INF           =SIMP(statut='f',typ='R'),
4280            R_SUP           =SIMP(statut='f',typ='R'),
4281            MODULE_FO       =SIMP(statut='f',typ=fonction),
4282            R_INF_FO        =SIMP(statut='f',typ=fonction),
4283            R_SUP_FO        =SIMP(statut='f',typ=fonction),
4284                          ),
4285          DIRE_THETA      =SIMP(statut='f',typ=(cham_no_depl_r) ),
4286          DIRECTION       =SIMP(statut='f',typ='R',max='**'),
4287          THETA_2D        =FACT(statut='f',min=1,max='**',
4288            regles=(UN_PARMI('GROUP_NO','NOEUD'),),
4289            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4290            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4291            MODULE          =SIMP(statut='o',typ='R'),
4292            R_INF           =SIMP(statut='o',typ='R'),
4293            R_SUP           =SIMP(statut='o',typ='R'),
4294          ),
4295          THETA_BANDE     =FACT(statut='f',min=1,max='**',
4296            MODULE          =SIMP(statut='o',typ='R'),
4297            R_INF           =SIMP(statut='o',typ='R'),
4298            R_SUP           =SIMP(statut='o',typ='R'),
4299          ),
4300          GRAD_NOEU_THETA =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
4301          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
4302          IMPRESSION      =FACT(statut='f',min=1,max=1,
4303            FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
4304            FORMAT          =SIMP(statut='f',typ='TXM',defaut="EXCEL",into=("EXCEL","AGRAF") ),
4305          ),
4306 )  ;
4307 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
4308 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4309 # ======================================================================
4310 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4311 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4312 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4313 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4314 # (AT YOUR OPTION) ANY LATER VERSION.
4315 #
4316 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4317 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4318 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4319 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4320 #
4321 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4322 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4323 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4324 # ======================================================================
4325 # RESPONSABLE VABHHTS J.PELLET
4326 def calc_vect_elem_prod(OPTION,**args):
4327   if OPTION == "CHAR_MECA" :      return vect_elem_depl_r
4328   if OPTION == "CHAR_MECA_LAGR" : return vect_elem_depl_r
4329   if OPTION == "CHAR_THER" :      return vect_elem_temp_r
4330   if OPTION == "CHAR_ACOU" :      return vect_elem_pres_c
4331   if OPTION == "FORC_NODA" :      return vect_elem_depl_r
4332   raise AsException("type de concept resultat non prevu")
4333
4334 CALC_VECT_ELEM=OPER(nom="CALC_VECT_ELEM",op=8,sd_prod=calc_vect_elem_prod,docu="U4.61.02-f",reentrant='n',
4335             UIinfo={"groupes":("Matrices/vecteurs",)},
4336                     fr="Calcul des seconds membres élémentaires",
4337          OPTION          =SIMP(statut='o',typ='TXM',into=("CHAR_MECA","CHAR_THER","CHAR_ACOU",
4338                                                            "FORC_NODA","CHAR_MECA_LAGR") ),
4339          b_char_meca     =BLOC(condition = "OPTION=='CHAR_MECA'",
4340            regles=(AU_MOINS_UN('CHARGE','MODELE'),),
4341            CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
4342            MODELE          =SIMP(statut='f',typ=modele),
4343            b_charge     =BLOC(condition = "CHARGE != None", fr="modèle ne contenant pas de sous-structure",
4344               CHAM_MATER   =SIMP(statut='f',typ=cham_mater),
4345               CARA_ELEM    =SIMP(statut='f',typ=cara_elem),
4346               INST         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4347               MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
4348            ),
4349            b_modele     =BLOC(condition = "(MODELE != None)",fr="modèle contenant une sous-structure",
4350               SOUS_STRUC      =FACT(statut='o',min=01,
4351                 regles=(UN_PARMI('TOUT','MAILLE'),),
4352                 CAS_CHARGE  =SIMP(statut='o',typ='TXM' ),
4353                 TOUT        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4354                 MAILLE      =SIMP(statut='f',typ=ma,max='**',),
4355               ),
4356            ),
4357          ),
4358          b_char_ther     =BLOC(condition = "OPTION=='CHAR_THER'",
4359            CARA_ELEM        =SIMP(statut='f',typ=cara_elem),
4360            CHARGE           =SIMP(statut='o',typ=char_ther,max='**'),
4361            INST             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4362          ),
4363
4364          b_char_acou     =BLOC(condition = "OPTION=='CHAR_ACOU'",
4365            CHAM_MATER        =SIMP(statut='o',typ=cham_mater),
4366            CHARGE            =SIMP(statut='o',typ=char_acou,max='**'),
4367          ),
4368
4369          b_forc_noda     =BLOC(condition = "OPTION=='FORC_NODA'",
4370            SIEF_ELGA         =SIMP(statut='o',typ=cham_elem_sief_r),
4371            CARA_ELEM         =SIMP(statut='f',typ=cara_elem),
4372            MODELE            =SIMP(statut='f',typ=modele),
4373          ),
4374
4375          b_meca_lagr     =BLOC(condition = "OPTION=='CHAR_MECA_LAGR'",
4376            CHAM_MATER        =SIMP(statut='o',typ=cham_mater),
4377            THETA             =SIMP(statut='o',typ=theta_geom),
4378            PROPAGATION       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4379            CHARGE            =SIMP(statut='f',typ=char_meca,max='**'),
4380            INST              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4381          ),
4382 ) ;
4383 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
4384 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4385 # ======================================================================
4386 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4387 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4388 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4389 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4390 # (AT YOUR OPTION) ANY LATER VERSION.
4391 #
4392 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4393 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4394 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4395 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4396 #
4397 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4398 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4399 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4400 # ======================================================================
4401 # RESPONSABLE G8BHHXD X.DESROCHES
4402 def comb_cham_elem_prod(COMB_R=None,COMB_C=None,COMB_FOURIER=None,**args):
4403
4404   if COMB_R != None:
4405     vale=COMB_R.get_child('CHAM_ELEM').get_valeur()
4406   elif COMB_C != None:
4407     vale=COMB_C.get_child('CHAM_ELEM').get_valeur()
4408   elif COMB_FOURIER != None:
4409     vale=COMB_FOURIER.get_child('CHAM_ELEM').get_valeur()
4410   else :
4411     raise AsException("type de concept resultat non prevu")
4412
4413   if AsType(vale) == cham_elem_sief_r : return cham_elem_sief_r
4414   if AsType(vale) == cham_elem_flux_r : return cham_elem_flux_r
4415   if AsType(vale) == cham_elem_epsi_r : return cham_elem_epsi_r
4416   if AsType(vale) == cham_elem_ener_r : return cham_elem_ener_r
4417   if AsType(vale) == cham_elem_crit_r : return cham_elem_crit_r
4418   if AsType(vale) == cham_elem_dbel_r : return cham_elem_dbel_r
4419   if AsType(vale) == cham_elem_pres_r : return cham_elem_pres_r
4420   if AsType(vale) == cham_elem_sief_c : return cham_elem_sief_c
4421   raise AsException("type de concept resultat non prevu")
4422
4423 COMB_CHAM_ELEM=OPER(nom="COMB_CHAM_ELEM",op= 139,sd_prod=comb_cham_elem_prod,reentrant='f',
4424                     fr="Combinaison linéaire de champs par éléments",docu="U4.72.03-e",
4425             UIinfo={"groupes":("Résultats et champs",)},
4426       regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),
4427               PRESENT_PRESENT('COMB_FOURIER','ANGL'),),
4428       COMB_R          =FACT(statut='f',min=1,max='**',
4429         PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
4430         COEF_R          =SIMP(statut='o',typ='R'),
4431         CHAM_ELEM       =SIMP(statut='o',
4432                               typ=(cham_elem_sief_r,cham_elem_flux_r,cham_elem_epsi_r,
4433                                    cham_elem_ener_r,cham_elem_crit_r,cham_elem_dbel_r,
4434                                    cham_elem_pres_r,cham_elem_sief_c ) ),
4435       ),
4436       COMB_C          =FACT(statut='f',min=1,max='**',
4437         regles=(UN_PARMI('COEF_R','COEF_C', ),),
4438         COEF_R          =SIMP(statut='f',typ='R'),
4439         COEF_C          =SIMP(statut='f',typ='C'),
4440         CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r) ),
4441       ),
4442       COMB_FOURIER    =FACT(statut='f',min=1,max='**',
4443         COEF_R          =SIMP(statut='f',typ='R',defaut= 1.),
4444         NUME_MODE       =SIMP(statut='o',typ='I'),
4445         TYPE_MODE       =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
4446         CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,cham_elem_flux_r,cham_elem_epsi_r ) ),
4447       ),
4448       ANGL            =SIMP(statut='f',typ='R' ),
4449 )  ;
4450
4451 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
4452 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4453 # ======================================================================
4454 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4455 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4456 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4457 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4458 # (AT YOUR OPTION) ANY LATER VERSION.
4459 #
4460 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4461 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4462 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4463 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4464 #
4465 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4466 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4467 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4468 # ======================================================================
4469 # RESPONSABLE G8BHHXD X.DESROCHES
4470 def comb_cham_no_prod(COMB_R,COMB_C,COMB_FOURIER,**args):
4471   if COMB_C != None:
4472     type_mat = AsType(COMB_C.get_child('CHAM_NO').get_valeur())
4473     if type_mat in  (cham_no_depl_c,cham_no_depl_r) : return cham_no_depl_c
4474     if type_mat in  (cham_no_temp_c,cham_no_temp_r) : return cham_no_temp_c
4475     if type_mat in  (cham_no_pres_c,cham_no_pres_r) : return cham_no_pres_c
4476   elif COMB_R != None:
4477     type_mat = AsType(COMB_R.get_child('CHAM_NO').get_valeur())
4478     if type_mat in  (cham_no_depl_c,cham_no_depl_r) : return cham_no_depl_r
4479     if type_mat in  (cham_no_temp_c,cham_no_temp_r) : return cham_no_temp_r
4480     if type_mat in  (cham_no_pres_c,cham_no_pres_r) : return cham_no_pres_r
4481     if type_mat ==  matr_asse_gene_r : return matr_asse_gene_r
4482   elif COMB_FOURIER != None:
4483     type_mat = AsType(COMB_FOURIER.get_child('CHAM_NO').get_valeur())
4484     if type_mat == cham_no_temp_r : return cham_no_temp_r
4485     if type_mat == cham_no_depl_r : return cham_no_depl_r
4486   raise AsException("type de concept resultat non prevu")
4487
4488
4489 COMB_CHAM_NO=OPER(nom="COMB_CHAM_NO",op=  30,sd_prod=comb_cham_no_prod
4490                     ,fr="Combinaison linéaire de champs aux noeuds",
4491                      docu="U4.72.02-f",reentrant='f',
4492             UIinfo={"groupes":("Résultats et champs",)},
4493          regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),),
4494          COMB_R          =FACT(statut='f',min=1,max='**',
4495            PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG",) ),
4496            CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_temp_c,cham_no_depl_r,cham_no_depl_c
4497                                                 ,cham_no_pres_r,cham_no_pres_c ) ),
4498            COEF_R          =SIMP(statut='o',typ='R' ),
4499          ),
4500          COMB_C          =FACT(statut='f',min=1,max='**',
4501            regles=(UN_PARMI('COEF_R','COEF_C' ),),
4502            CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r,cham_no_temp_c
4503                                                 ,cham_no_depl_c,cham_no_pres_c ) ),
4504            COEF_R          =SIMP(statut='f',typ='R' ),
4505            COEF_C          =SIMP(statut='f',typ='C' ),
4506          ),
4507          COMB_FOURIER    =FACT(statut='f',min=1,max='**',
4508            CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r) ),
4509            COEF_R          =SIMP(statut='f',typ='R',defaut= 1. ),
4510            NUME_MODE       =SIMP(statut='o',typ='I' ),
4511            TYPE_MODE       =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
4512          ),
4513          b_angl = BLOC ( condition = "COMB_FOURIER != None",
4514            ANGL            =SIMP(statut='o',typ='R' ),
4515          ),
4516 )  ;
4517 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
4518 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4519 # ======================================================================
4520 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4521 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4522 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4523 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4524 # (AT YOUR OPTION) ANY LATER VERSION.
4525 #
4526 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4527 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4528 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4529 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4530 #
4531 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4532 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4533 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4534 # ======================================================================
4535 # RESPONSABLE G8BHHXD X.DESROCHES
4536 COMB_FOURIER=OPER(nom="COMB_FOURIER",op= 161,sd_prod=comb_fourier,
4537                   docu="U4.83.31-c",reentrant='n',
4538             UIinfo={"groupes":("Post traitements",)},
4539          RESULTAT        =SIMP(statut='o',typ=fourier_elas ),
4540          ANGL            =SIMP(statut='o',typ='R',max='**'),
4541          NOM_CHAM        =SIMP(statut='o',typ='TXM',max=5,
4542                                into=("DEPL","REAC_NODA","SIEF_ELGA_DEPL","EPSI_ELNO_DEPL","SIGM_ELNO_DEPL") ),
4543 )  ;
4544 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
4545 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4546 # ======================================================================
4547 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4548 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4549 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4550 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4551 # (AT YOUR OPTION) ANY LATER VERSION.
4552 #
4553 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4554 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4555 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4556 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4557 #
4558 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4559 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4560 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4561 # ======================================================================
4562 # RESPONSABLE VABHHTS J.PELLET
4563 def comb_matr_asse_prod(COMB_R,COMB_C,CALC_AMOR_GENE,**args):
4564   if COMB_C != None:
4565     type_mat = AsType(COMB_C.get_child('MATR_ASSE').get_valeur())
4566     if type_mat in  (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_c
4567     if type_mat in  (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_c
4568     if type_mat in  (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_c
4569     if type_mat in  (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_c
4570   elif COMB_R != None:
4571     type_mat = AsType(COMB_R.get_child('MATR_ASSE').get_valeur())
4572     if type_mat in  (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_r
4573     if type_mat in  (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_r
4574     if type_mat in  (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_r
4575     if type_mat in  (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_r
4576   elif CALC_AMOR_GENE != None: return matr_asse_gene_r
4577   raise AsException("type de concept resultat non prevu")
4578
4579 COMB_MATR_ASSE=OPER(nom="COMB_MATR_ASSE",op=  31,sd_prod=comb_matr_asse_prod,
4580                     fr="Combinaison linéaire de matrices assemblées",
4581                     docu="U4.72.01-g1",reentrant='f',
4582             UIinfo={"groupes":("Résultats et champs",)},
4583          regles=(UN_PARMI('COMB_R','COMB_C','CALC_AMOR_GENE' ),),
4584          COMB_R          =FACT(statut='f',min=1,max='**',
4585            PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
4586            MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_temp_c
4587                                                 ,matr_asse_pres_r,matr_asse_pres_c,matr_asse_gene_r,matr_asse_gene_c ) ),
4588            COEF_R          =SIMP(statut='o',typ='R' ),
4589          ),
4590          COMB_C          =FACT(statut='f',min=1,max='**',
4591            regles=(UN_PARMI('COEF_R','COEF_C' ),),
4592            MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_temp_c
4593                                                 ,matr_asse_pres_r,matr_asse_pres_c,matr_asse_gene_r,matr_asse_gene_c ) ),
4594            COEF_R          =SIMP(statut='f',typ='R' ),
4595            COEF_C          =SIMP(statut='f',typ='C' ),
4596          ),
4597          CALC_AMOR_GENE   =FACT(statut='f',min=1,max=1,
4598            regles=(UN_PARMI('AMOR_REDUIT','LIST_AMOR' ),),
4599            MASS_GENE    = SIMP(statut='f', typ=matr_asse_gene_r),
4600            RIGI_GENE    = SIMP(statut='f', typ=matr_asse_gene_r),
4601            AMOR_REDUIT  = SIMP(statut='f',typ='R',max='**'),
4602            LIST_AMOR    = SIMP(statut='f',typ=listr8 ),
4603          ),
4604          SANS_CMP        =SIMP(statut='f',typ='TXM',into=("LAGR",) ),
4605 )  ;
4606 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
4607 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4608 # ======================================================================
4609 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4610 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4611 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4612 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4613 # (AT YOUR OPTION) ANY LATER VERSION.
4614 #
4615 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4616 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4617 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4618 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4619 #
4620 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4621 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4622 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4623 # ======================================================================
4624 COMB_SISM_MODAL=OPER(nom="COMB_SISM_MODAL",op= 109,sd_prod=mode_stat,
4625                      fr="Réponse sismique par recombinaison modale par une méthode spectrale",
4626                      docu="U4.84.01-e1",reentrant='n',
4627             UIinfo={"groupes":("Post traitements",)},
4628          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ','LIST_ORDRE'),
4629                  UN_PARMI('AMOR_REDUIT','LIST_AMOR','AMOR_GENE' ),),
4630          MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
4631          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4632          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
4633          LIST_ORDRE      =SIMP(statut='f',typ=listis ),
4634          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
4635          FREQ            =SIMP(statut='f',typ='R',max='**'),
4636          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
4637          b_freq          =BLOC(condition = "FREQ != None or LIST_FREQ != None",
4638            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
4639            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4640          ),
4641          MODE_CORR       =SIMP(statut='f',typ=mode_stat_acce ),
4642
4643          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
4644          LIST_AMOR       =SIMP(statut='f',typ=listr8 ),
4645          AMOR_GENE       =SIMP(statut='f',typ=matr_asse_gene_r ),
4646
4647          MASS_INER       =SIMP(statut='f',typ=tabl_mass_iner ),
4648          CORR_FREQ       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4649
4650          EXCIT           =FACT(statut='o',min=1,max='**',
4651            regles=(UN_PARMI('MONO_APPUI','NOEUD','GROUP_NO'),
4652                    UN_PARMI('AXE','TRI_AXE','TRI_SPEC' ),),
4653
4654            MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4655            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4656            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4657            AXE             =SIMP(statut='f',fr="Excitation suivant un seul axe",
4658                                  typ='R',max=3),
4659            TRI_AXE         =SIMP(statut='f',fr="Excitation suivant les trois axes mais avec le meme spectre",
4660                                  typ='R',max=3),
4661            TRI_SPEC        =SIMP(statut='f',fr="Excitation suivant les trois axes  avec trois spectres",
4662                                  typ='TXM',into=("OUI",) ),
4663            b_axe           =BLOC(condition = "AXE != None",fr="Excitation suivant un seul axe",
4664              SPEC_OSCI       =SIMP(statut='o',typ=fonction,max=1 ),
4665              ECHELLE         =SIMP(statut='f',typ='R',max=1),
4666            ),
4667            b_tri_axe       =BLOC(condition = "TRI_AXE != None",fr="Excitation suivant les trois axes mais avec le meme spectre",
4668              SPEC_OSCI       =SIMP(statut='o',typ=fonction,max=1 ),
4669              ECHELLE         =SIMP(statut='f',typ='R',max=1),
4670            ),
4671            b_tri_spec      =BLOC(condition = "TRI_SPEC != None",fr="Excitation suivant les trois axes  avec trois spectres",
4672              SPEC_OSCI       =SIMP(statut='o',typ=fonction,min=3,max=3 ),
4673              ECHELLE         =SIMP(statut='f',typ='R',min=3,max=3),
4674            ),
4675            NATURE          =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("ACCE","VITE","DEPL") ),
4676          ),
4677          COMB_MODE       =FACT(statut='o',min=1,max=1,
4678            TYPE            =SIMP(statut='o',typ='TXM',into=("SRSS","CQC","DSC","ABS","DPC") ),
4679            DUREE           =SIMP(statut='f',typ='R' ),
4680          ),
4681          COMB_DIRECTION  =FACT(statut='f',min=1,max=1,
4682            TYPE            =SIMP(statut='f',typ='TXM',into=("QUAD","NEWMARK") ),
4683          ),
4684          COMB_MULT_APPUI =FACT(statut='f',min=1,max='**',
4685            regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO' ),
4686                    UN_PARMI('TYPE_COMBI','TYPE' ),),
4687            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4688            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4689            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4690            TYPE_COMBI      =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
4691            TYPE            =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
4692          ),
4693          COMB_DEPL_APPUI=FACT(statut='f',min=1,max='**',
4694            regles=(UN_PARMI('TOUT','LIST_CAS'),
4695                    UN_PARMI('TYPE_COMBI','TYPE' ),),
4696            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
4697            LIST_CAS       =SIMP(statut='f',typ='I',max='**'),
4698            TYPE_COMBI      =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
4699            TYPE            =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
4700          ),
4701          DEPL_MULT_APPUI =FACT(statut='f',min=1,max='**',
4702            regles=(UN_PARMI('NOEUD','GROUP_NO'),
4703                    AU_MOINS_UN('DX','DY','DZ' ),),
4704            NOM_CAS         =SIMP(statut='o',typ='TXM',max='**'),
4705            NUME_CAS        =SIMP(statut='o',typ='I',max='**'),
4706            MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,), ),
4707            NOEUD_REFE      =SIMP(statut='f',typ=no),
4708            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4709            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4710            DX              =SIMP(statut='f',typ='R' ),
4711            DY              =SIMP(statut='f',typ='R' ),
4712            DZ              =SIMP(statut='f',typ='R' ),
4713          ),
4714          OPTION          =SIMP(statut='o',typ='TXM',max=9,
4715                                into=("DEPL","VITE","ACCE_ABSOLU","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
4716                                      "EFGE_ELNO_DEPL","REAC_NODA","FORC_NODA","EFGE_ELNO_CART",
4717                                      "SIPO_ELNO_DEPL") ),
4718          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
4719          IMPRESSION      =FACT(statut='f',min=1,max='**',
4720            regles=(EXCLUS('TOUT','NIVEAU'),),
4721            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4722            NIVEAU          =SIMP(statut='f',typ='TXM',into=("SPEC_OSCI","MASS_EFFE","MAXI_GENE"),max=3 ),
4723          ),
4724          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
4725 )  ;
4726 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
4727 # RESPONSABLE VABHHTS J.PELLET
4728 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4729 # ======================================================================
4730 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4731 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
4732 #              REDISTRIBUTION OF THIS FILE.
4733 # ======================================================================
4734 def crea_champ_prod(TYPE_CHAM,**args):
4735   if TYPE_CHAM == "CART_DBEL_R" : return carte_dbel_r
4736   if TYPE_CHAM == "CART_DEPL_C" : return carte_depl_c
4737   if TYPE_CHAM == "CART_DEPL_F" : return carte_depl_f
4738   if TYPE_CHAM == "CART_DEPL_R" : return carte_depl_r
4739   if TYPE_CHAM == "CART_DURT_R" : return carte_durt_r
4740   if TYPE_CHAM == "CART_ENER_R" : return carte_ener_r
4741   if TYPE_CHAM == "CART_EPSI_R" : return carte_epsi_r
4742   if TYPE_CHAM == "CART_ERREUR" : return carte_erreur
4743   if TYPE_CHAM == "CART_FLUX_R" : return carte_flux_r
4744   if TYPE_CHAM == "CART_GEOM_R" : return carte_geom_r
4745   if TYPE_CHAM == "CART_G_DEPL_R" : return carte_g_depl_r
4746   if TYPE_CHAM == "CART_HYDR_R" : return carte_hydr_r
4747   if TYPE_CHAM == "CART_INST_R" : return carte_inst_r
4748   if TYPE_CHAM == "CART_INTE_R" : return carte_inte_r
4749   if TYPE_CHAM == "CART_META_R" : return carte_meta_r
4750   if TYPE_CHAM == "CART_NEUT_F" : return carte_neut_f
4751   if TYPE_CHAM == "CART_NEUT_R" : return carte_neut_r
4752   if TYPE_CHAM == "CART_PRES_R" : return carte_pres_r
4753   if TYPE_CHAM == "CART_SIEF_R" : return carte_sief_r
4754   if TYPE_CHAM == "CART_SOUR_R" : return carte_sour_r
4755   if TYPE_CHAM == "CART_TEMP_F" : return carte_temp_f
4756   if TYPE_CHAM == "CART_TEMP_R" : return carte_temp_r
4757   if TYPE_CHAM == "CART_VAR2_R" : return carte_var2_r
4758   if TYPE_CHAM == "CART_VNOR_C" : return carte_vnor_c
4759   if TYPE_CHAM == "NOEU_DBEL_R" : return cham_no_dbel_r
4760   if TYPE_CHAM == "NOEU_DEPL_C" : return cham_no_depl_c
4761   if TYPE_CHAM == "NOEU_DEPL_F" : return cham_no_depl_f
4762   if TYPE_CHAM == "NOEU_DEPL_R" : return cham_no_depl_r
4763   if TYPE_CHAM == "NOEU_DURT_R" : return cham_no_durt_r
4764   if TYPE_CHAM == "NOEU_ENER_R" : return cham_no_ener_r
4765   if TYPE_CHAM == "NOEU_EPSI_R" : return cham_no_epsi_r
4766   if TYPE_CHAM == "NOEU_ERREUR" : return cham_no_erreur
4767   if TYPE_CHAM == "NOEU_FLUX_R" : return cham_no_flux_r
4768   if TYPE_CHAM == "NOEU_GEOM_R" : return cham_no_geom_r
4769   if TYPE_CHAM == "NOEU_G_DEPL_R" : return cham_no_g_depl_r
4770   if TYPE_CHAM == "NOEU_HYDR_R" : return cham_no_hydr_r
4771   if TYPE_CHAM == "NOEU_INST_R" : return cham_no_inst_r
4772   if TYPE_CHAM == "NOEU_INTE_R" : return cham_no_inte_r
4773   if TYPE_CHAM == "NOEU_META_R" : return cham_no_meta_r
4774   if TYPE_CHAM == "NOEU_NEUT_F" : return cham_no_neut_f
4775   if TYPE_CHAM == "NOEU_NEUT_R" : return cham_no_neut_r
4776   if TYPE_CHAM == "NOEU_PRES_R" : return cham_no_pres_r
4777   if TYPE_CHAM == "NOEU_SIEF_R" : return cham_no_sief_r
4778   if TYPE_CHAM == "NOEU_SOUR_R" : return cham_no_sour_r
4779   if TYPE_CHAM == "NOEU_TEMP_F" : return cham_no_temp_f
4780   if TYPE_CHAM == "NOEU_TEMP_R" : return cham_no_temp_r
4781   if TYPE_CHAM == "NOEU_VAR2_R" : return cham_no_var2_r
4782   if TYPE_CHAM == "NOEU_VNOR_C" : return cham_no_vnor_c
4783   if TYPE_CHAM == "ELEM_DBEL_R" : return cham_elem_dbel_r
4784   if TYPE_CHAM == "ELEM_DEPL_C" : return cham_elem_depl_c
4785   if TYPE_CHAM == "ELEM_DEPL_F" : return cham_elem_depl_f
4786   if TYPE_CHAM == "ELEM_DEPL_R" : return cham_elem_depl_r
4787   if TYPE_CHAM == "ELEM_DURT_R" : return cham_elem_durt_r
4788   if TYPE_CHAM == "ELEM_ENER_R" : return cham_elem_ener_r
4789   if TYPE_CHAM == "ELEM_EPSI_R" : return cham_elem_epsi_r
4790   if TYPE_CHAM == "ELEM_ERREUR" : return cham_elem_erreur
4791   if TYPE_CHAM == "ELEM_FLUX_R" : return cham_elem_flux_r
4792   if TYPE_CHAM == "ELEM_GEOM_R" : return cham_elem_geom_r
4793   if TYPE_CHAM == "ELEM_G_DEPL_R" : return cham_elem_g_depl
4794   if TYPE_CHAM == "ELEM_HYDR_R" : return cham_elem_hydr_r
4795   if TYPE_CHAM == "ELEM_INST_R" : return cham_elem_inst_r
4796   if TYPE_CHAM == "ELEM_INTE_R" : return cham_elem_inte_r
4797   if TYPE_CHAM == "ELEM_META_R" : return cham_elem_meta_r
4798   if TYPE_CHAM == "ELEM_NEUT_F" : return cham_elem_neut_f
4799   if TYPE_CHAM == "ELEM_NEUT_R" : return cham_elem_neut_r
4800   if TYPE_CHAM == "ELEM_PRES_R" : return cham_elem_pres_r
4801   if TYPE_CHAM == "ELEM_SIEF_R" : return cham_elem_sief_r
4802   if TYPE_CHAM == "ELEM_SOUR_R" : return cham_elem_sour_r
4803   if TYPE_CHAM == "ELEM_TEMP_F" : return cham_elem_temp_f
4804   if TYPE_CHAM == "ELEM_TEMP_R" : return cham_elem_temp_r
4805   if TYPE_CHAM == "ELEM_VARI_R" : return cham_elem_vari_r
4806   if TYPE_CHAM == "ELEM_VNOR_C" : return cham_elem_vnor_c
4807   if TYPE_CHAM == "ELNO_DBEL_R" : return cham_elem_dbel_r
4808   if TYPE_CHAM == "ELNO_DEPL_C" : return cham_elem_depl_c
4809   if TYPE_CHAM == "ELNO_DEPL_F" : return cham_elem_depl_f
4810   if TYPE_CHAM == "ELNO_DEPL_R" : return cham_elem_depl_r
4811   if TYPE_CHAM == "ELNO_DURT_R" : return cham_elem_durt_r
4812   if TYPE_CHAM == "ELNO_ENER_R" : return cham_elem_ener_r
4813   if TYPE_CHAM == "ELNO_EPSI_R" : return cham_elem_epsi_r
4814   if TYPE_CHAM == "ELNO_ERREUR" : return cham_elem_erreur
4815   if TYPE_CHAM == "ELNO_FLUX_R" : return cham_elem_flux_r
4816   if TYPE_CHAM == "ELNO_GEOM_R" : return cham_elem_geom_r
4817   if TYPE_CHAM == "ELNO_G_DEPL_R" : return cham_elem_g_depl
4818   if TYPE_CHAM == "ELNO_HYDR_R" : return cham_elem_hydr_r
4819   if TYPE_CHAM == "ELNO_INST_R" : return cham_elem_inst_r
4820   if TYPE_CHAM == "ELNO_INTE_R" : return cham_elem_inte_r
4821   if TYPE_CHAM == "ELNO_META_R" : return cham_elem_meta_r
4822   if TYPE_CHAM == "ELNO_NEUT_F" : return cham_elem_neut_f
4823   if TYPE_CHAM == "ELNO_NEUT_R" : return cham_elem_neut_r
4824   if TYPE_CHAM == "ELNO_PRES_R" : return cham_elem_pres_r
4825   if TYPE_CHAM == "ELNO_SIEF_R" : return cham_elem_sief_r
4826   if TYPE_CHAM == "ELNO_SOUR_R" : return cham_elem_sour_r
4827   if TYPE_CHAM == "ELNO_TEMP_F" : return cham_elem_temp_f
4828   if TYPE_CHAM == "ELNO_TEMP_R" : return cham_elem_temp_r
4829   if TYPE_CHAM == "ELNO_VARI_R" : return cham_elem_vari_r
4830   if TYPE_CHAM == "ELNO_VNOR_C" : return cham_elem_vnor_c
4831   if TYPE_CHAM == "ELGA_DBEL_R" : return cham_elem_dbel_r
4832   if TYPE_CHAM == "ELGA_DEPL_C" : return cham_elem_depl_c
4833   if TYPE_CHAM == "ELGA_DEPL_F" : return cham_elem_depl_f
4834   if TYPE_CHAM == "ELGA_DEPL_R" : return cham_elem_depl_r
4835   if TYPE_CHAM == "ELGA_DURT_R" : return cham_elem_durt_r
4836   if TYPE_CHAM == "ELGA_ENER_R" : return cham_elem_ener_r
4837   if TYPE_CHAM == "ELGA_EPSI_R" : return cham_elem_epsi_r
4838   if TYPE_CHAM == "ELGA_ERREUR" : return cham_elem_erreur
4839   if TYPE_CHAM == "ELGA_FLUX_R" : return cham_elem_flux_r
4840   if TYPE_CHAM == "ELGA_GEOM_R" : return cham_elem_geom_r
4841   if TYPE_CHAM == "ELGA_G_DEPL_R" : return cham_elem_g_depl
4842   if TYPE_CHAM == "ELGA_HYDR_R" : return cham_elem_hydr_r
4843   if TYPE_CHAM == "ELGA_INST_R" : return cham_elem_inst_r
4844   if TYPE_CHAM == "ELGA_INTE_R" : return cham_elem_inte_r
4845   if TYPE_CHAM == "ELGA_META_R" : return cham_elem_meta_r
4846   if TYPE_CHAM == "ELGA_NEUT_F" : return cham_elem_neut_f
4847   if TYPE_CHAM == "ELGA_NEUT_R" : return cham_elem_neut_r
4848   if TYPE_CHAM == "ELGA_PRES_R" : return cham_elem_pres_r
4849   if TYPE_CHAM == "ELGA_SIEF_R" : return cham_elem_sief_r
4850   if TYPE_CHAM == "ELGA_SOUR_R" : return cham_elem_sour_r
4851   if TYPE_CHAM == "ELGA_TEMP_F" : return cham_elem_temp_f
4852   if TYPE_CHAM == "ELGA_TEMP_R" : return cham_elem_temp_r
4853   if TYPE_CHAM == "ELGA_VARI_R" : return cham_elem_vari_r
4854   if TYPE_CHAM == "ELGA_VNOR_C" : return cham_elem_vnor_c
4855   if TYPE_CHAM == "CART_IRRA_R" : return carte_irra_r
4856   if TYPE_CHAM == "NOEU_IRRA_R" : return cham_no_irra_r
4857   if TYPE_CHAM == "ELEM_IRRA_R" : return cham_elem_irra_r
4858   if TYPE_CHAM == "ELNO_IRRA_R" : return cham_elem_irra_r
4859   if TYPE_CHAM == "ELGA_IRRA_R" : return cham_elem_irra_r
4860   raise AsException("type de concept resultat non prevu")
4861
4862 CREA_CHAMP=OPER(nom="CREA_CHAMP",op= 195,sd_prod=crea_champ_prod,
4863                 fr="  ",docu="U4.72.04-b1",reentrant='n',
4864             UIinfo={"groupes":("Résultats et champs",)},
4865          TYPE_CHAM       =SIMP(statut='o',typ='TXM',
4866                         into=("CART_DBEL_R","NOEU_DBEL_R","ELEM_DBEL_R",
4867                              "ELNO_DBEL_R","ELGA_DBEL_R","CART_DEPL_C",
4868                              "NOEU_DEPL_C","ELEM_DEPL_C","ELNO_DEPL_C",
4869                              "ELGA_DEPL_C","CART_DEPL_F","NOEU_DEPL_F",
4870                              "ELEM_DEPL_F","ELNO_DEPL_F","ELGA_DEPL_F",
4871                              "CART_DEPL_R","NOEU_DEPL_R","ELEM_DEPL_R",
4872                              "ELNO_DEPL_R","ELGA_DEPL_R","CART_DURT_R",
4873                              "NOEU_DURT_R","ELEM_DURT_R","ELNO_DURT_R",
4874                              "ELGA_DURT_R","CART_ENER_R","NOEU_ENER_R",
4875                              "ELEM_ENER_R","ELNO_ENER_R","ELGA_ENER_R",
4876                              "CART_EPSI_R","NOEU_EPSI_R","ELEM_EPSI_R",
4877                              "ELNO_EPSI_R","ELGA_EPSI_R","CART_ERREUR",
4878                              "NOEU_ERREUR","ELEM_ERREUR","ELNO_ERREUR",
4879                              "ELGA_ERREUR","CART_FLUX_R","NOEU_FLUX_R",
4880                              "ELEM_FLUX_R","ELNO_FLUX_R","ELGA_FLUX_R",
4881                              "CART_GEOM_R","NOEU_GEOM_R","ELEM_GEOM_R",
4882                              "ELNO_GEOM_R","ELGA_GEOM_R","CART_G_DEPL_R",
4883                              "NOEU_G_DEPL_R","ELEM_G_DEPL_R","ELNO_G_DEPL_R",
4884                              "ELGA_G_DEPL_R","CART_HYDR_R","NOEU_HYDR_R",
4885                              "ELEM_HYDR_R","ELNO_HYDR_R","ELGA_HYDR_R",
4886                              "CART_INST_R","NOEU_INST_R","ELEM_INST_R",
4887                              "ELNO_INST_R","ELGA_INST_R","CART_INTE_R",
4888                              "NOEU_INTE_R","ELEM_INTE_R","ELNO_INTE_R",
4889                              "ELGA_INTE_R","CART_META_R","NOEU_META_R",
4890                              "ELEM_META_R","ELNO_META_R","ELGA_META_R",
4891                              "CART_NEUT_F","NOEU_NEUT_F","ELEM_NEUT_F",
4892                              "ELNO_NEUT_F","ELGA_NEUT_F","CART_NEUT_R",
4893                              "NOEU_NEUT_R","ELEM_NEUT_R","ELNO_NEUT_R",
4894                              "ELGA_NEUT_R","CART_PRES_R","NOEU_PRES_R",
4895                              "ELEM_PRES_R","ELNO_PRES_R","ELGA_PRES_R",
4896                              "CART_SIEF_R","NOEU_SIEF_R","ELEM_SIEF_R",
4897                              "ELNO_SIEF_R","ELGA_SIEF_R","CART_SOUR_R",
4898                              "NOEU_SOUR_R","ELEM_SOUR_R","ELNO_SOUR_R",
4899                              "ELGA_SOUR_R","CART_TEMP_F","NOEU_TEMP_F",
4900                              "ELEM_TEMP_F","ELNO_TEMP_F","ELGA_TEMP_F",
4901                              "CART_TEMP_R","NOEU_TEMP_R","ELEM_TEMP_R",
4902                              "ELNO_TEMP_R","ELGA_TEMP_R","CART_VAR2_R",
4903                              "NOEU_VAR2_R","ELEM_VARI_R","ELNO_VARI_R",
4904                              "ELGA_VARI_R","CART_VNOR_C","NOEU_VNOR_C",
4905                              "ELEM_VNOR_C","ELNO_VNOR_C","ELGA_VNOR_C",
4906                              "CART_IRRA_R","NOEU_IRRA_R","ELEM_IRRA_R",
4907                              "ELNO_IRRA_R","ELGA_IRRA_R",) ),
4908
4909 #        SI CREATION D'UN CHAM_NO, POUR IMPOSER LA NUMEROTATION DES DDLS :
4910 #        ------------------------------------------------------------------
4911          regles=(EXCLUS('NUME_DDL','CHAM_NO',)),
4912          NUME_DDL        =SIMP(statut='f',typ=(nume_ddl) ),
4913          CHAM_NO         =SIMP(statut='f',typ=(cham_no) ),
4914
4915          OPERATION       =SIMP(statut='o',typ='TXM',into=("AFFE","ASSE","EVAL","EXTR","DISC",) ),
4916
4917          b_affe          =BLOC(condition = "OPERATION == 'AFFE'",
4918              regles=(UN_PARMI('MAILLAGE','MODELE'),),
4919              MAILLAGE        =SIMP(statut='f',typ=(maillage) ),
4920              MODELE          =SIMP(statut='f',typ=(modele) ),
4921              b_affe_modele   =BLOC(condition = "MODELE != None",
4922                  PROL_ZERO       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ), ),
4923              AFFE            =FACT(statut='o',min=1,max='**',
4924                 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
4925                         UN_PARMI('VALE','VALE_I','VALE_C','VALE_F', ),),
4926                 TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4927                 GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4928                 MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4929                 GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4930                 NOEUD           =SIMP(statut='f',typ=no,max='**'),
4931                 NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
4932                 VALE            =SIMP(statut='f',typ='R',max='**' ),
4933                 VALE_I          =SIMP(statut='f',typ='I',max='**' ),
4934                 VALE_C          =SIMP(statut='f',typ='C',max='**' ),
4935                 VALE_F          =SIMP(statut='f',typ=fonction,max='**'),
4936                                    ),
4937                              ),
4938          b_asse          =BLOC(condition = "OPERATION == 'ASSE'",
4939              regles=(UN_PARMI('MAILLAGE','MODELE'),),
4940              MAILLAGE        =SIMP(statut='f',typ=(maillage) ),
4941              MODELE          =SIMP(statut='f',typ=(modele) ),
4942              b_asse_modele   =BLOC(condition = "MODELE != None",
4943                  PROL_ZERO       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ), ),
4944              ASSE            =FACT(statut='o',min=1,max='**',
4945                 regles=(AU_MOINS_UN('TOUT','GROUP_MA','GROUP_NO','MAILLE','NOEUD',),
4946                 PRESENT_PRESENT('NOM_CMP_RESU','NOM_CMP', ),),
4947                 TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4948                 GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4949                 GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4950                 MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4951                 NOEUD           =SIMP(statut='f',typ=no,max='**'),
4952                 CHAM_GD         =SIMP(statut='o',typ=(cham_gd)),
4953                 NOM_CMP         =SIMP(statut='f',typ='TXM',max='**' ),
4954                 NOM_CMP_RESU    =SIMP(statut='f',typ='TXM',max='**' ),
4955                 CUMUL           =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
4956                 COEF_R          =SIMP(statut='f',typ='R',defaut= 1. ),
4957                                     ),
4958                              ),
4959          b_eval          =BLOC(condition = "OPERATION == 'EVAL'",
4960              CHAM_F          =SIMP(statut='o',typ=(cham_gd)),
4961              CHAM_PARA       =SIMP(statut='o',typ=(cham_gd),max='**'),
4962                              ),
4963          b_disc          =BLOC(condition = "OPERATION == 'DISC'",
4964              MODELE          =SIMP(statut='f',typ=(modele) ),
4965              PROL_ZERO       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
4966              CHAM_GD         =SIMP(statut='o',typ=(cham_gd)),
4967                              ),
4968          b_extr          =BLOC(condition = "OPERATION == 'EXTR'",
4969              regles=(UN_PARMI('MAILLAGE','RESULTAT'),),
4970              MAILLAGE        =SIMP(statut='f',typ=(maillage) ),
4971              RESULTAT        =SIMP(statut='f',typ=(resultat) ),
4972              b_extr_maillage =BLOC(condition = "MAILLAGE != None",
4973                  NOM_CHAM        =SIMP(statut='o',typ='TXM',into=("GEOMETRIE",)),
4974                                   ),
4975              b_extr_resultat =BLOC(condition = "RESULTAT != None",
4976                  regles=(EXCLUS('TYPE_MAXI','NUME_ORDRE','INST','FREQ','NUME_MODE',
4977                                 'NOEUD_CMP','NOM_CAS','ANGL', ),),
4978                  SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
4979                                    fr="Liste des paramètres de sensibilité.",
4980                                    ang="List of sensitivity parameters"),
4981                  NOM_CHAM        =SIMP(statut='o',typ='TXM',
4982                            into=("DEPL","VITE","ACCE",
4983                              "DEPL_ABSOLU","VITE_ABSOLU",
4984                              "TEMP","IRRA","ACCE_ABSOLU",
4985                              "FORC_NODA","REAC_NODA","EFGE_NOEU_DEPL",
4986                              "EFGE_NOEU_CART","EPSI_NOEU_DEPL",
4987                              "SIGM_NOEU_DEPL","SIGM_NOEU_CART",
4988                              "SIPO_NOEU_DEPL","EQUI_NOEU_SIGM",
4989                              "EQUI_NOEU_EPSI","FLUX_NOEU_TEMP",
4990                              "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP",
4991                              "META_ELGA_TEMP","META_ELNO_TEMP",
4992                              "META_NOEU_TEMP","DURT_ELGA_META",
4993                              "DURT_ELNO_META","DURT_NOEU_META","SIEF_ELGA",
4994                              "SIEF_ELNO_ELGA","SIEF_ELGA_DEPL",
4995                              "VARI_ELNO_ELGA","VARI_ELGA","EPOT_ELEM_DEPL",
4996                              "ECIN_ELEM_DEPL","SOUR_ELGA_ELEC",
4997                              "PRES_ELNO_REEL","PRES_ELNO_IMAG",
4998                              "PRES_ELNO_DBEL","INTE_ELNO_ACTI",
4999                              "INTE_ELNO_REAC","EFGE_ELNO_DEPL",
5000                              "SIGM_ELNO_DEPL","EFGE_ELNO_CART",
5001                              "SIGM_ELNO_CART","SIPO_ELNO_DEPL",
5002                              "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL",
5003                              "EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO",
5004                              "EPSP_ELGA","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
5005                              "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
5006                              "ERRE_ELNO_ELGA","ERRE_ELGA_NORE",
5007                              "ERRE_ELEM_NOZ1","ERRE_ELEM_NOZ2",
5008                              "SIGM_NOZ1_ELGA","SIGM_NOZ2_ELGA",
5009                              "DEGE_ELNO_DEPL","SIRE_ELNO_DEPL",
5010                              "VNOR_ELEM_DEPL","SIEF_ELNO","VARI_ELNO",
5011                              "SIEF_NOEU_ELGA","VARI_NOEU_ELGA",
5012                              "PRES_NOEU_DBEL","PRES_NOEU_REEL",
5013                              "PRES_NOEU_IMAG","INTE_NOEU_ACTI",
5014                              "INTE_NOEU_REAC","DCHA_ELGA_SIGM",
5015                              "DCHA_ELNO_SIGM","RADI_ELGA_SIGM",
5016                              "RADI_ELNO_SIGM","ENDO_ELNO_SIGA",
5017                              "ENDO_ELNO_SINO","ENDO_ELNO_SIGM",
5018                              "SIGM_ELNO_VARI","SIGM_NOEU_VARI",
5019                              "EPME_ELNO_DEPL","EPME_ELGA_DEPL",
5020                              "EPME_ELNO_DPGE","EPMG_ELNO_DEPL",
5021                              "EPMG_ELGA_DEPL","GRAD_ELGA_THETA",
5022                              "GTHE_ELNO_ELGA","GRAD_NOEU_THETA",
5023                              "HYDR_ELGA","HYDR_ELNO_ELGA","HYDR_NOEU_ELGA",
5024                              "THETA","SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",
5025                              "VALE_CONT",) ),
5026                  TYPE_MAXI       =SIMP(statut='f',typ='TXM',into=("MAXI","MINI","MAXI_ABS","MINI_ABS","NORM_TRAN",) ),
5027                  TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="VALE",into=("VALE","INST",) ),
5028                  TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5029                  LIST_INST       =SIMP(statut='f',typ=(listr8) ),
5030                  NUME_ORDRE      =SIMP(statut='f',typ='I'),
5031                  INST            =SIMP(statut='f',typ='R'),
5032                  FREQ            =SIMP(statut='f',typ='R'),
5033                  NUME_MODE       =SIMP(statut='f',typ='I'),
5034                  NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
5035                  NOM_CAS         =SIMP(statut='f',typ='TXM'),
5036                  ANGL            =SIMP(statut='f',typ='R'),
5037                  PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
5038                  CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
5039                  INTERPOL        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN",) ),
5040                               ),
5041
5042                 ),
5043 # FIN DU CATALOGUE : INFO,TITRE ET TYPAGE DU RESULAT :
5044 #-----------------------------------------------------
5045          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,) ),
5046          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
5047 )  ;
5048 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
5049 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5050 # ======================================================================
5051 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5052 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5053 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5054 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5055 # (AT YOUR OPTION) ANY LATER VERSION.
5056 #
5057 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5058 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5059 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5060 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5061 #
5062 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5063 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5064 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5065 # ======================================================================
5066 CREA_MAILLAGE=OPER(nom="CREA_MAILLAGE",op= 167,sd_prod=maillage,
5067                      docu="U4.23.02-d1",reentrant='n',
5068             UIinfo={"groupes":("Maillage",)},
5069          regles=(EXCLUS('ECLA_PG','CREA_MAILLE'),
5070                  EXCLUS('ECLA_PG','CREA_GROUP_MA'),
5071                  EXCLUS('ECLA_PG','DETR_GROUP_MA'),
5072                  EXCLUS('ECLA_PG','MODI_MAILLE'),),
5073          MAILLAGE        =SIMP(statut='o',typ=maillage ),
5074          CREA_POI1       =FACT(statut='f',min=1,max='**',fr="Création de mailles de type POI1 à partir de noeuds",
5075            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD' ),),
5076            NOM_GROUP_MA    =SIMP(statut='f',typ=grma,max='**'),
5077            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5078            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5079            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5080            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5081            NOEUD           =SIMP(statut='f',typ=no,max='**'),
5082          ),
5083          CREA_MAILLE     =FACT(statut='f',min=1,max='**',fr="Duplication de mailles",
5084            regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA'),),
5085            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5086            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5087            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5088            PREF_MAILLE     =SIMP(statut='o',typ='TXM' ),
5089            PREF_NUME       =SIMP(statut='f',typ='I' ),
5090          ),
5091          CREA_GROUP_MA   =FACT(statut='f',min=1,max='**',fr="Duplication de mailles et création de groupes de mailles",
5092            regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
5093            NOM             =SIMP(statut='o',typ='TXM'),
5094            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5095            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5096            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5097            PREF_MAILLE     =SIMP(statut='o',typ='TXM' ),
5098            PREF_NUME       =SIMP(statut='f',typ='I' ),
5099          ),
5100          DETR_GROUP_MA   =FACT(statut='f',min=1,max=1,fr="Destruction de groupes de mailles",
5101            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5102            NB_MAILLE       =SIMP(statut='f',typ='I',defaut= 0,
5103                                  fr="Nombre minimal de mailles que doit contenir le groupe pour etre détruit",  ),
5104          ),
5105          MODI_MAILLE     =FACT(statut='f',min=1,max='**',fr="Modification du type de mailles",
5106            regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
5107            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5108            MAILLE          =SIMP(statut='f',typ=grma,max='**'),
5109            GROUP_MA        =SIMP(statut='f',typ=ma,max='**'),
5110            OPTION          =SIMP(statut='o',typ='TXM',into=("TRIA6_7","QUAD8_9","SEG3_4"),fr="Choix de la transformation" ),
5111            PREF_NOEUD      =SIMP(statut='f',typ='TXM',defaut="NS"),
5112            PREF_NUME       =SIMP(statut='f',typ='I',defaut= 1 ),
5113          ),
5114          REPERE          =FACT(statut='f',min=1,max='**',
5115                                fr="changement de repère servant à déterminer les caractéristiques d une section de poutre",
5116            TABLE           =SIMP(statut='o',typ=tabl_cara_geom,
5117                                  fr="Nom de la table contenant les caractéristiques de la section de poutre" ),
5118            NOM_ORIG        =SIMP(statut='f',typ='TXM',into=("CDG","TORSION"),fr="Origine du nouveau repère" ),
5119            NOM_ROTA        =SIMP(statut='f',typ='TXM',into=("INERTIE",),fr="Direction du repére"  ),
5120            b_cdg =BLOC(condition = "NOM_ORIG == 'CDG'",
5121              GROUP_MA        =SIMP(statut='f',typ=grma,
5122                                    fr="Nom du groupe de mailles dont le centre de gravité sera l origine du nouveau repère"),
5123            ),
5124          ),
5125          ECLA_PG         =FACT(statut='f',min=1,max=1,
5126                                fr="Eclatement des mailles en petites mailles contenant chacune un seul point de gauss",
5127            MODELE          =SIMP(statut='o',typ=modele ),
5128            SHRINK          =SIMP(statut='f',typ='R',defaut= 0.9, fr="Facteur de réduction" ),
5129          ),
5130          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5131 )  ;
5132 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
5133 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5134 # ======================================================================
5135 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5136 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5137 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5138 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5139 # (AT YOUR OPTION) ANY LATER VERSION.
5140 #
5141 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5142 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5143 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5144 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5145 #
5146 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5147 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5148 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5149 # ======================================================================
5150 def crea_resu_prod(TYPE_RESU,**args):
5151   if TYPE_RESU == "EVOL_ELAS"    : return evol_elas
5152   if TYPE_RESU == "EVOL_NOLI"    : return evol_noli
5153   if TYPE_RESU == "EVOL_THER"    : return evol_ther
5154   if TYPE_RESU == "MULT_ELAS"    : return mult_elas
5155   if TYPE_RESU == "FOURIER_ELAS" : return fourier_elas
5156   if TYPE_RESU == "EVOL_VARC"    : return evol_varc
5157   raise AsException("type de concept resultat non prevu")
5158
5159 CREA_RESU=OPER(nom="CREA_RESU",op=124,sd_prod=crea_resu_prod,docu="U4.44.12-e3",reentrant='f',
5160             UIinfo={"groupes":("Modélisation",)},
5161                fr="Engendrer ou enrichir une structure de donnees en affectant les cham_gd associes",
5162
5163          OPERATION =SIMP(statut='o',typ='TXM',into=("AFFE","ECLA_PG","PERM_CHAM","PROL_RTZ",),
5164                          fr="choix de la fonction a activer",),
5165
5166          b_affe       =BLOC(condition = "OPERATION == 'AFFE'",
5167
5168            TYPE_RESU    =SIMP(statut='o',typ='TXM',into=("MULT_ELAS","EVOL_ELAS","EVOL_NOLI","FOURIER_ELAS",
5169                                                          "EVOL_THER","EVOL_VARC",) ),
5170            NOM_CHAM     =SIMP(statut='f',typ='TXM',into=("DEPL","TEMP","IRRA","HYDR_ELGA",),max=1 ),
5171            AFFE         =FACT(statut='f',min=1,max='**',
5172              regles=(UN_PARMI('NOM_CAS','NUME_MODE','LIST_INST','INST',),),
5173              CHAM_GD         =SIMP(statut='f',typ=(cham_gd)),
5174              NOM_CAS         =SIMP(statut='f',typ='TXM' ),
5175              NUME_MODE       =SIMP(statut='f',typ='I'),
5176              TYPE_MODE       =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
5177              INST            =SIMP(statut='f',typ='R',max='**'),
5178              LIST_INST       =SIMP(statut='f',typ=listr8),
5179              NUME_INIT       =SIMP(statut='f',typ='I'),
5180              NUME_FIN        =SIMP(statut='f',typ='I'),
5181              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
5182              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5183            ),
5184          ),
5185
5186          b_ecla_pg    =BLOC(condition = "OPERATION == 'ECLA_PG'",
5187
5188            TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_ELAS","EVOL_NOLI","EVOL_THER"), ),
5189
5190            ECLA_PG         =FACT(statut='f',min=1,max=1,
5191              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
5192              NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
5193                                    into=("SIEF_ELGA","VARI_ELGA","SIEF_ELGA_DEPL","FLUX_ELGA_TEMP",) ),
5194              MODELE_INIT     =SIMP(statut='o',typ=modele),
5195              RESU_INIT       =SIMP(statut='o',typ=resultat),
5196              MAILLAGE        =SIMP(statut='o',typ=maillage),
5197              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5198              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
5199              LIST_ORDRE      =SIMP(statut='f',typ=listis),
5200              INST            =SIMP(statut='f',typ='R',max='**'),
5201              LIST_INST       =SIMP(statut='f',typ=listr8),
5202              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
5203              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
5204            ),
5205          ),
5206
5207          b_perm_cham =BLOC(condition = "OPERATION == 'PERM_CHAM'",
5208
5209            TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_NOLI",) ),
5210            NOM_CHAM        =SIMP(statut='f',typ='TXM',into=("DEPL","SIEF_ELGA","VARI_ELGA",),max='**' ),
5211            RESU_INIT       =SIMP(statut='o',typ=evol_noli),
5212            INST_INIT       =SIMP(statut='f',typ='R'),
5213            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
5214            CRITERE         =SIMP(statut='f',typ='TXM',into=('RELATIF','ABSOLU'),defaut='RELATIF'),
5215            MAILLAGE_INIT   =SIMP(statut='o',typ=maillage,),
5216            RESU_FINAL      =SIMP(statut='o',typ=evol_noli,),
5217            MAILLAGE_FINAL  =SIMP(statut='o',typ=maillage,),
5218            PERM_CHAM       =FACT(statut='o',min=1,max=1,
5219               GROUP_MA_FINAL =SIMP(statut='o',typ=grma),
5220               GROUP_MA_INIT  =SIMP(statut='o',typ=grma),
5221               TRAN           =SIMP(statut='o',typ='R',max='**'),
5222               PRECISION      =SIMP(statut='f',typ='R',defaut=1.0E-3),
5223            ),
5224          ),
5225
5226          b_prol_rtz   =BLOC(condition = "OPERATION == 'PROL_RTZ'",
5227
5228            TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_THER",) ),
5229
5230            PROL_RTZ        =FACT(statut='f',min=1,max=1,
5231               regles=(EXCLUS('INST','LIST_INST'),),
5232               MAILLAGE_FINAL  =SIMP(statut='o',typ=maillage,),
5233               TABLE           =SIMP(statut='o',typ=tabl_post_rele,fr="Table issue de post_releve_t"),
5234               INST            =SIMP(statut='f',typ='R',max='**'),
5235               LIST_INST       =SIMP(statut='f',typ=listr8),
5236               b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
5237                  PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
5238                  CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5239               ),
5240               PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU",),),
5241               PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU",),),
5242               REPERE          =SIMP(statut='o',typ='TXM',into=("CYLINDRIQUE",),),
5243               ORIGINE         =SIMP(statut='o',typ='R',min=3,max=3),
5244               AXE_Z           =SIMP(statut='o',typ='R',min=3,max=3),
5245            ),
5246          ),
5247
5248 )  ;
5249 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
5250 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5251 # ======================================================================
5252 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5253 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5254 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5255 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5256 # (AT YOUR OPTION) ANY LATER VERSION.
5257 #
5258 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5259 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5260 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5261 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5262 #
5263 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5264 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5265 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5266 # ======================================================================
5267 DEBUT=MACRO(nom="DEBUT",op=0 ,docu="U4.11.01-g2",repetable='n',
5268             UIinfo={"groupes":("Gestion du travail",)},
5269            fr="Ouverture d une étude. Allocation des ressources mémoire et disque",
5270           sd_prod=ops.DEBUT,
5271
5272          PAR_LOT         =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
5273                            into=("OUI","NON"),defaut="OUI"),
5274          BASE            =FACT(fr="définition des paramètres associés aux bases JEVEUX",
5275                                statut='f',min=1,max=3,
5276            FICHIER         =SIMP(fr="nom de la base",statut='o',typ='TXM',
5277                                  into=('GLOBALE','VOLATILE','LOCALE'),),
5278            TITRE           =SIMP(statut='f',typ='TXM'),
5279            CAS             =SIMP(statut='f',typ='TXM'),
5280            NMAX_ENRE       =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
5281            LONG_ENRE       =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
5282            LONG_REPE       =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
5283          ),
5284          IMPRESSION      =FACT(statut='f',min=1,max=3,
5285            FICHIER         =SIMP(statut='o',typ='TXM'),
5286            UNITE           =SIMP(statut='o',typ='I'),
5287          ),
5288          CATALOGUE       =FACT(statut='f',min=1,max=10,
5289            FICHIER         =SIMP(statut='o',typ='TXM'),
5290            TITRE           =SIMP(statut='f',typ='TXM'),
5291            UNITE           =SIMP(statut='f',typ='I'),
5292          ),
5293          CODE            =FACT(fr="définition d un nom pour l'esemble d'une étude",
5294                                statut='f',min=1,max=1,
5295            NOM             =SIMP(statut='o',typ='TXM'),
5296            NIV_PUB_WEB     =SIMP(statut='o',typ='TXM',into=('INTERNET','INTRANET')),
5297            UNITE           =SIMP(statut='f',typ='I',defaut=15),
5298          ),
5299          DEBUG           =FACT(fr="option de déboggage reservée aux développeurs",
5300                                statut='f',min=1,max=1,
5301            JXVERI          =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
5302                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
5303            JEVEUX          =SIMP(fr="force les déchargement sur disque",
5304                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
5305            ENVIMA          =SIMP(fr="imprime les valeurs définies dans ENVIMA",
5306                                  statut='f',typ='TXM',into=('TEST',)),
5307          ),
5308          MEMOIRE         =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=1,max=1,
5309            GESTION         =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
5310            TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
5311            TAILLE          =SIMP(statut='f',typ='I'),
5312            TAILLE_BLOC     =SIMP(statut='f',typ='R',defaut=800.),
5313            PARTITION       =SIMP(statut='f',typ='R'),
5314          ),
5315  );
5316 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
5317 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5318 # ======================================================================
5319 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5320 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5321 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5322 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5323 # (AT YOUR OPTION) ANY LATER VERSION.
5324 #
5325 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5326 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5327 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5328 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5329 #
5330 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5331 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5332 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5333 # ======================================================================
5334 DEFI_BASE_MODALE=OPER(nom="DEFI_BASE_MODALE",op=  99,sd_prod=base_modale,
5335                      docu="U4.64.02-f1",reentrant='f',
5336             UIinfo={"groupes":("Matrices/vecteurs",)},
5337          regles=(UN_PARMI('CLASSIQUE','RITZ','DIAG_MASS'),),
5338          CLASSIQUE       =FACT(statut='f',min=1,max=1,
5339            INTERF_DYNA     =SIMP(statut='o',typ=interf_dyna_clas ),
5340            MODE_MECA       =SIMP(statut='o',typ=mode_meca,max='**' ),
5341            NMAX_MODE       =SIMP(statut='f',typ='I',defaut= 10 ),
5342          ),
5343          RITZ            =FACT(statut='f',min=1,max='**',
5344            regles=(UN_PARMI('MODE_STAT','MODE_MECA','MULT_ELAS','BASE_MODALE'),),
5345            MODE_MECA       =SIMP(statut='f',typ=mode_meca,max='**'  ),
5346            NMAX_MODE       =SIMP(statut='f',typ='I',defaut= 999 ),
5347            MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
5348            MULT_ELAS       =SIMP(statut='f',typ=mult_elas ),
5349            BASE_MODALE     =SIMP(statut='f',typ=base_modale ),
5350          ),
5351         DIAG_MASS        =FACT(statut='f',min=1,max='**',
5352            MODE_MECA       =SIMP(statut='o',typ=mode_meca,max='**'  ),
5353            MODE_STAT       =SIMP(statut='o',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
5354          ),
5355 #  le bloc conditionnel remplace-t-il PRESENT_PRESENT('RITZ','NUME_REF'),
5356 #                                     PRESENT_ABSENT('INTERF_DYNA','CLASSIQUE'),
5357          b_ritz          =BLOC(condition = "RITZ != None",
5358            INTERF_DYNA     =SIMP(statut='f',typ=interf_dyna_clas ),
5359            NUME_REF        =SIMP(statut='o',typ=nume_ddl ),
5360          ),
5361          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5362          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5363 )  ;
5364 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
5365 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5366 # ======================================================================
5367 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5368 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5369 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5370 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5371 # (AT YOUR OPTION) ANY LATER VERSION.
5372 #
5373 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5374 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5375 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5376 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5377 #
5378 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5379 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5380 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5381 # ======================================================================
5382 DEFI_CABLE_BP=OPER(nom="DEFI_CABLE_BP",op= 180,sd_prod=cabl_precont,
5383                    fr=" ",
5384                    docu="U4.42.04-a",reentrant='n',
5385             UIinfo={"groupes":("Modélisation",)},
5386          MODELE          =SIMP(statut='o',typ=modele ),
5387          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
5388          CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
5389          GROUP_MA_BETON  =SIMP(statut='o',typ=grma),
5390          DEFI_CABLE      =FACT(statut='o',min=1,max='**',
5391            regles=(UN_PARMI('MAILLE','GROUP_MA'),
5392                    UN_PARMI('NOEUD_ANCRAGE','GROUP_NO_ANCRAGE'),),
5393            MAILLE          =SIMP(statut='f',typ=ma,min=2,max='**'),
5394            GROUP_MA        =SIMP(statut='f',typ=grma),
5395            NOEUD_ANCRAGE   =SIMP(statut='f',typ=no,max=2),
5396            GROUP_NO_ANCRAGE=SIMP(statut='f',typ=grno,max=2),
5397            TYPE_ANCRAGE    =SIMP(statut='o',typ='TXM',min=2,max=2,
5398                                  into=("ACTIF","PASSIF") ),
5399          ),
5400          TENSION_INIT    =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5401          RECUL_ANCRAGE   =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5402          RELAXATION      =FACT(statut='f',min=0,max=1,
5403            R_J             =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5404          ),
5405          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
5406 )  ;
5407 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
5408 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5409 # ======================================================================
5410 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5411 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5412 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5413 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5414 # (AT YOUR OPTION) ANY LATER VERSION.
5415 #
5416 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5417 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5418 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5419 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5420 #
5421 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5422 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5423 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5424 # ======================================================================
5425 DEFI_CONSTANTE=OPER(nom="DEFI_CONSTANTE",op=   2,sd_prod=fonction,
5426                     fr="Définition d une fonction constante",
5427                     docu="U4.31.01-f",reentrant='n',
5428             UIinfo={"groupes":("Fonction",)},
5429          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
5430          VALE            =SIMP(statut='o',typ='R',max=1 ),
5431          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5432 )  ;
5433 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
5434 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5435 # ======================================================================
5436 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5437 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5438 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5439 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5440 # (AT YOUR OPTION) ANY LATER VERSION.
5441 #
5442 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5443 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5444 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5445 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5446 #
5447 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5448 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5449 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5450 # ======================================================================
5451 DEFI_COQU_MULT=OPER(nom="DEFI_COQU_MULT",op=56,sd_prod=mater,docu="U4.42.03-e",reentrant='n',
5452             UIinfo={"groupes":("Modélisation",)},
5453                     fr="Définition d une coque composite couche par couche",
5454          COUCHE          =FACT(statut='o',min=1,max='**',
5455            EPAIS           =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5456            MATER           =SIMP(statut='o',typ=(mater) ),
5457            ORIENTATION     =SIMP(statut='f',typ='R',defaut= 0.E+0,
5458                                  val_min=-90.E+0,val_max=90.E+0   ),
5459          ),
5460          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
5461          IMPRESSION      =FACT(statut='f',min=1,max=1,
5462            FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
5463                                  into=("RESULTAT",) ),
5464          ),
5465 )  ;
5466 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
5467 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5468 # ======================================================================
5469 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5470 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5471 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5472 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5473 # (AT YOUR OPTION) ANY LATER VERSION.
5474 #
5475 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5476 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5477 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5478 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5479 #
5480 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5481 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5482 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5483 # ======================================================================
5484 DEFI_FLUI_STRU=OPER(nom="DEFI_FLUI_STRU",op= 143,sd_prod=type_flui_stru,
5485                     docu="U4.25.01-d",reentrant='n',
5486             UIinfo={"groupes":("Maillage",)},
5487          regles=(  UN_PARMI('FAISCEAU_TRANS','GRAPPE','FAISCEAU_AXIAL','COQUE_COAX',),),
5488          FAISCEAU_TRANS  =FACT(statut='f',min=1,max='**',
5489            COUPLAGE        =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
5490            CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
5491            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
5492            PROF_RHO_F_INT  =SIMP(statut='f',typ=fonction ),
5493            PROF_RHO_F_EXT  =SIMP(statut='f',typ=fonction ),
5494            NOM_CMP         =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ") ),
5495            COEF_MASS_AJOU  =SIMP(statut='f',typ='R' ),
5496            TYPE_PAS        =SIMP(statut='f',typ='TXM',into=("CARRE_LIGN","TRIA_LIGN") ),
5497            TYPE_RESEAU     =SIMP(statut='f',typ='I' ),
5498            UNITE_CD        =SIMP(statut='f',typ='I',defaut=70),
5499            UNITE_CK        =SIMP(statut='f',typ='I',defaut=71),
5500            PAS             =SIMP(statut='f',typ='R' ),
5501          ),
5502          GRAPPE          =FACT(statut='f',max=1,
5503            regles=(ENSEMBLE('GRAPPE_2','NOEUD','CARA_ELEM','MODELE','RHO_FLUI',),
5504                    PRESENT_PRESENT('COEF_MASS_AJOU','GRAPPE_2', ),),
5505 #  peut on créer un bloc a partir de la valeur de couplage
5506            COUPLAGE        =SIMP(statut='o',typ='TXM',into=("OUI","NON") ),
5507            GRAPPE_2        =SIMP(statut='f',typ='TXM',
5508                                  into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC") ),
5509            NOEUD           =SIMP(statut='f',typ=no),
5510            CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
5511            MODELE          =SIMP(statut='f',typ=modele ),
5512            COEF_MASS_AJOU  =SIMP(statut='f',typ='R' ),
5513            RHO_FLUI        =SIMP(statut='f',typ='R' ),
5514            UNITE_CA        =SIMP(statut='f',typ='I',defaut=70),
5515            UNITE_KA        =SIMP(statut='f',typ='I',defaut=71),
5516          ),
5517          FAISCEAU_AXIAL  =FACT(statut='f',min=1,max='**',
5518            regles=(UN_PARMI('GROUP_MA','TRI_GROUP_MA'),
5519                    UN_PARMI('CARA_ELEM','RAYON_TUBE'),
5520                    ENSEMBLE('RAYON_TUBE','COOR_TUBE'),
5521                    PRESENT_ABSENT('RAYON_TUBE','TRI_GROUP_MA'),
5522                    ENSEMBLE('CARA_PAROI','VALE_PAROI'),
5523                    ENSEMBLE('LONG_TYPG','LARG_TYPG','EPAI_TYPG','RUGO_TYPG','COEF_TRAI_TYPG','COEF_DPOR_TYPG',
5524                             'COOR_GRILLE','TYPE_GRILLE', ),),
5525 #  on doit pouvoir mettre des blocs conditionnels mais pas assez d infos pour le faire
5526            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5527            TRI_GROUP_MA    =SIMP(statut='f',typ='TXM' ),
5528            VECT_X          =SIMP(statut='f',typ='R',max=3),
5529            PROF_RHO_FLUI   =SIMP(statut='f',typ=fonction ),
5530            PROF_VISC_CINE  =SIMP(statut='f',typ=fonction ),
5531            CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
5532            RAYON_TUBE      =SIMP(statut='f',typ='R' ),
5533            COOR_TUBE       =SIMP(statut='f',typ='R',max='**'),
5534            PESANTEUR       =SIMP(statut='f',typ='R',min=4,max=4),
5535            RUGO_TUBE       =SIMP(statut='f',typ='R' ),
5536            CARA_PAROI      =SIMP(statut='f',typ='TXM',max=5,
5537                                  into=("YC","ZC","R","HY","HZ") ),
5538            VALE_PAROI      =SIMP(statut='f',typ='R',max=5),
5539            ANGL_VRIL       =SIMP(statut='f',typ='R' ),
5540            LONG_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5541            LARG_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5542            EPAI_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5543            RUGO_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5544            COEF_TRAI_TYPG  =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5545            COEF_DPOR_TYPG  =SIMP(statut='f',typ='R',max='**'),
5546            COOR_GRILLE     =SIMP(statut='f',typ='R',max='**'),
5547            TYPE_GRILLE     =SIMP(statut='f',typ='I',max='**'),
5548          ),
5549          COQUE_COAX      =FACT(statut='f',max=1,
5550            MASS_AJOU       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
5551            GROUP_MA_INT    =SIMP(statut='o',typ=grma),
5552            GROUP_MA_EXT    =SIMP(statut='o',typ=grma),
5553            VECT_X          =SIMP(statut='o',typ='R',max='**'),
5554            CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
5555            MATER_INT       =SIMP(statut='o',typ=mater ),
5556            MATER_EXT       =SIMP(statut='o',typ=mater ),
5557            RHO_FLUI        =SIMP(statut='o',typ='R' ),
5558            VISC_CINE       =SIMP(statut='o',typ='R' ),
5559            RUGOSITE        =SIMP(statut='o',typ='R' ),
5560            PDC_MOY_1       =SIMP(statut='o',typ='R' ),
5561            PDC_DYN_1       =SIMP(statut='o',typ='R' ),
5562            PDC_MOY_2       =SIMP(statut='o',typ='R' ),
5563            PDC_DYN_2       =SIMP(statut='o',typ='R' ),
5564          ),
5565          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5566 )  ;
5567 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
5568 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5569 # ======================================================================
5570 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5571 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5572 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5573 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5574 # (AT YOUR OPTION) ANY LATER VERSION.
5575 #
5576 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5577 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5578 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5579 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5580 #
5581 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5582 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5583 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5584 # ======================================================================
5585 DEFI_FONC_ELEC=OPER(nom="DEFI_FONC_ELEC",op=64,sd_prod=fonction,docu="U4.MK.10-e",reentrant='n',
5586             UIinfo={"groupes":("Outils métier",)},
5587                     fr="Définition d une fonction du temps pour calculer des forces de LAPLACE",
5588       regles=(UN_PARMI('COUR_PRIN','COUR'),
5589               EXCLUS('COUR','COUR_SECO'), ),
5590          FREQ            =SIMP(statut='f',typ='R',defaut= 50.),
5591          SIGNAL          =SIMP(statut='f',typ='TXM',defaut="COMPLET",into=("COMPLET","CONTINU") ),
5592          COUR            =FACT(statut='f',min=1,max='**',
5593          fr="Définition du courant de court-circuit",
5594            regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),
5595                    UN_PARMI('PHI_CC_2','INTC_CC_2'),),
5596            INTE_CC_1       =SIMP(statut='o',typ='R'),
5597            TAU_CC_1        =SIMP(statut='o',typ='R'),
5598            PHI_CC_1        =SIMP(statut='f',typ='R'),
5599            INTC_CC_1       =SIMP(statut='f',typ='R'),
5600            INTE_CC_2       =SIMP(statut='o',typ='R'),
5601            TAU_CC_2        =SIMP(statut='o',typ='R'),
5602            PHI_CC_2        =SIMP(statut='f',typ='R'),
5603            INTC_CC_2       =SIMP(statut='f',typ='R'),
5604            INST_CC_INIT    =SIMP(statut='o',typ='R'),
5605            INST_CC_FIN     =SIMP(statut='o',typ='R'),
5606          ),
5607          COUR_PRIN       =FACT(statut='f',min=1,max=1,
5608          fr="Définition du courant de court-circuit avec réenclenchement",
5609            regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),),
5610            INTE_CC_1       =SIMP(statut='o',typ='R'),
5611            TAU_CC_1        =SIMP(statut='o',typ='R'),
5612            PHI_CC_1        =SIMP(statut='f',typ='R'),
5613            INTC_CC_1       =SIMP(statut='f',typ='R'),
5614            INTE_RENC_1     =SIMP(statut='f',typ='R'),
5615            TAU_RENC_1      =SIMP(statut='f',typ='R'),
5616            PHI_RENC_1      =SIMP(statut='f',typ='R'),
5617            INST_CC_INIT    =SIMP(statut='o',typ='R'),
5618            INST_CC_FIN     =SIMP(statut='o',typ='R'),
5619            INST_RENC_INIT  =SIMP(statut='f',typ='R',defaut= 0.0E+0),
5620            INST_RENC_FIN   =SIMP(statut='f',typ='R',defaut= 0.0E+0),
5621          ),
5622          COUR_SECO       =FACT(statut='f',min=1,max='**',
5623          fr="Définition du courant de court-circuit avec un intervalle de temps différent de celui de COUR_PRIN",
5624            regles=(UN_PARMI('PHI_CC_2','INTC_CC_2'),),
5625            INTE_CC_2       =SIMP(statut='o',typ='R'),
5626            TAU_CC_2        =SIMP(statut='o',typ='R'),
5627            PHI_CC_2        =SIMP(statut='f',typ='R'),
5628            INTC_CC_2       =SIMP(statut='f',typ='R'),
5629            INTE_RENC_2     =SIMP(statut='f',typ='R'),
5630            TAU_RENC_2      =SIMP(statut='f',typ='R'),
5631            PHI_RENC_2      =SIMP(statut='f',typ='R'),
5632            DIST            =SIMP(statut='f',typ='R',defaut=1.0E+0),
5633          ),
5634          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
5635 )  ;
5636 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
5637 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5638 # ======================================================================
5639 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5640 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5641 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5642 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5643 # (AT YOUR OPTION) ANY LATER VERSION.
5644 #
5645 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5646 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5647 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5648 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5649 #
5650 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5651 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5652 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5653 # ======================================================================
5654 DEFI_FONC_FLUI=OPER(nom="DEFI_FONC_FLUI",op= 142,sd_prod=fonction,
5655                     docu="U4.35.01-c",reentrant='n',
5656             UIinfo={"groupes":("Fonction",)},
5657          MAILLAGE        =SIMP(statut='o',typ=(maillage) ),
5658          NOEUD_INIT      =SIMP(statut='o',typ=no),
5659          NOEUD_FIN       =SIMP(statut='o',typ=no),
5660          VITE            =FACT(statut='o',min=1,max=1,
5661            VALE            =SIMP(statut='f',typ='R',defaut= 1. ),
5662            PROFIL          =SIMP(statut='o',typ='TXM',into=("UNIFORME","LEONARD") ),
5663            NB_BAV          =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 2 , 3 ) ),
5664          ),
5665          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",
5666                                into=("NON","LIN","LOG") ),
5667          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",
5668                                into=("CONSTANT","LINEAIRE","EXCLU") ),
5669          PROL_GAUCHE     =SIMP(statut='f',typ='TXM' ,defaut="EXCLU",
5670                                into=("CONSTANT","LINEAIRE","EXCLU") ),
5671          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
5672          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5673 )  ;
5674 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
5675 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5676 # ======================================================================
5677 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5678 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5679 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5680 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5681 # (AT YOUR OPTION) ANY LATER VERSION.
5682 #
5683 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5684 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5685 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5686 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5687 #
5688 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5689 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5690 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5691 # ======================================================================
5692 # RESPONSABLE MCOURTOI M.COURTOIS
5693 def defi_fonction_prod(VALE,VALE_PARA,VALE_C,NOEUD_PARA,**args):
5694   if VALE != None  : return fonction
5695   if VALE_C != None  : return fonction_c
5696   if VALE_PARA != None  : return fonction
5697   if NOEUD_PARA != None  : return fonction
5698   raise AsException("type de concept resultat non prevu")
5699
5700 DEFI_FONCTION=OPER(nom="DEFI_FONCTION",op=3,sd_prod=defi_fonction_prod
5701                     ,fr="Définition des valeurs réelles ou complexes d une fonction réelle",
5702                      docu="U4.31.02-g3",reentrant='n',
5703             UIinfo={"groupes":("Fonction",)},
5704          regles=(UN_PARMI('VALE','VALE_C','VALE_PARA','NOEUD_PARA'),),
5705          NOM_PARA        =SIMP(statut='o',typ='TXM',
5706                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
5707                                      "INST","X","Y","Z","EPSI","META","FREQ","PULS",
5708                                      "AMOR","ABSC","SIGM","HYDR","SECH","PORO","SAT",
5709                                      "PGAZ","PCAP","VITE") ),
5710          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
5711          VALE            =SIMP(statut='f',typ='R',min=2,max='**',
5712                                fr ="Fonction réelle définie par une liste de couples (abscisse,ordonnée)"),
5713          VALE_C          =SIMP(statut='f',typ='R',min=2,max='**',
5714                                fr ="Fonction complexe définie par une liste de couples"),
5715          VALE_PARA       =SIMP(statut='f',typ=listr8,
5716                                fr ="Fonction réelle définie par deux concepts de type listr8" ),
5717          b_vale_para     =BLOC(condition = "VALE_PARA != None",
5718            VALE_FONC       =SIMP(statut='o',typ=listr8 ),
5719          ),
5720          NOEUD_PARA      =SIMP(statut='f',typ=no,max='**',
5721                                fr ="Fonction réelle définie par une liste de noeuds et un maillage"),
5722          b_noeud_para    =BLOC(condition = "NOEUD_PARA != None",
5723            MAILLAGE        =SIMP(statut='o',typ=maillage ),
5724            VALE_Y          =SIMP(statut='o',typ='R',max='**'),
5725          ),
5726
5727          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
5728          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5729          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5730          VERIF           =SIMP(statut='f',typ='TXM',defaut="CROISSANT",into=("CROISSANT","NON") ),
5731          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5732          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5733 )  ;
5734 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
5735 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5736 # ======================================================================
5737 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5738 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5739 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5740 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5741 # (AT YOUR OPTION) ANY LATER VERSION.
5742 #
5743 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5744 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5745 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5746 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5747 #
5748 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5749 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5750 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5751 # ======================================================================
5752 DEFI_FOND_FISS=OPER(nom="DEFI_FOND_FISS",op=55,sd_prod=fond_fiss,docu="U4.82.01-e",reentrant='n',
5753             UIinfo={"groupes":("Post traitements",)},
5754                     fr="Définition de lèvres et d un fond de fissure en 3D",
5755          regles=(UN_PARMI('FOND','FOND_FERME'),
5756                  EXCLUS('FOND_FERME','DTAN_ORIG'),
5757                  EXCLUS('FOND_FERME','DTAN_EXTR'),
5758                       EXCLUS('FOND_FERME','VECT_GRNO_ORIG'),
5759                       EXCLUS('FOND_FERME','VECT_GRNO_EXTR'),
5760                  UN_PARMI('LEVRE_SUP','NORMALE'),
5761                       EXCLUS('LEVRE_INF','NORMALE'),
5762                  ENSEMBLE('DTAN_ORIG','DTAN_EXTR'),
5763                       ENSEMBLE('VECT_GRNO_ORIG','VECT_GRNO_EXTR'),
5764                       EXCLUS('DTAN_ORIG','VECT_GRNO_ORIG'),
5765                       EXCLUS('DTAN_EXTR','VECT_GRNO_EXTR') ,),
5766            MAILLAGE        =SIMP(statut='o',typ=maillage ),
5767            FOND            =FACT(statut='f',min=1,max=1,
5768              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
5769                      EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
5770                           EXCLUS('NOEUD_EXTR','GROUP_NO_EXTR'),),
5771              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5772              NOEUD           =SIMP(statut='f',typ=no,max='**'),
5773              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5774              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5775 #  à mettre à jour le max vaut-il 1
5776              NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
5777              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
5778              NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
5779              GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
5780            ),
5781            FOND_FERME      =FACT(statut='f',min=1,max=1,
5782              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
5783                           EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),),
5784              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5785              NOEUD           =SIMP(statut='f',typ=no,max='**'),
5786              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5787              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5788              NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
5789              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
5790              MAILLE_ORIG     =SIMP(statut='f',typ=ma,max=1),
5791              GROUP_MA_ORIG   =SIMP(statut='f',typ=ma,max=1),
5792            ),
5793            LEVRE_SUP       =FACT(statut='f',min=1,max=1,
5794              regles=(UN_PARMI('GROUP_MA','MAILLE'),),
5795              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5796              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5797            ),
5798            LEVRE_INF       =FACT(statut='f',min=1,max=1,
5799              regles=(UN_PARMI('GROUP_MA','MAILLE', ),),
5800              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5801              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5802            ),
5803            NORMALE         =SIMP(statut='f',typ='R',max='**'),
5804            DTAN_ORIG       =SIMP(statut='f',typ='R',max='**'),
5805            DTAN_EXTR       =SIMP(statut='f',typ='R',max='**'),
5806            VECT_GRNO_ORIG  =SIMP(statut='f',typ=grno,max=2),
5807            VECT_GRNO_EXTR  =SIMP(statut='f',typ=grno,max=2),
5808            INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
5809 )  ;
5810 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
5811 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5812 # ======================================================================
5813 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5814 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5815 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5816 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5817 # (AT YOUR OPTION) ANY LATER VERSION.
5818 #
5819 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5820 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5821 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5822 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5823 #
5824 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5825 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5826 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5827 # ======================================================================
5828 # RESPONSABLE VABHHTS J.PELLET
5829 def defi_group_prod(MAILLAGE,**args):
5830   if AsType(MAILLAGE) == maillage : return maillage
5831   if AsType(MAILLAGE) == squelette : return squelette
5832   raise AsException("type de concept resultat non prevu")
5833
5834 DEFI_GROUP=OPER(nom="DEFI_GROUP",op= 104,sd_prod=defi_group_prod,
5835                 fr="Définition de nouveaux groupes de noeuds et/ou de mailles dans un concept maillage",
5836                 docu="U4.22.01-f1",reentrant='o',
5837             UIinfo={"groupes":("Maillage",)},
5838          regles=(AU_MOINS_UN('CREA_GROUP_MA','CREA_GROUP_NO'),),
5839          MAILLAGE        =SIMP(statut='o',typ=(maillage,squelette) ),
5840
5841          CREA_GROUP_MA   =FACT(statut='f',min=1,max='**',
5842            regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','INTERSEC','UNION','DIFFE','OPTION'),),
5843 #  quel est le concept attendu deriere NOM
5844            NOM             =SIMP(statut='o',typ=grma),
5845            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5846            GROUP_MA        =SIMP(statut='f',typ=grma),
5847            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5848            INTERSEC        =SIMP(statut='f',typ=grma,max='**'),
5849            UNION           =SIMP(statut='f',typ=grma,max='**'),
5850            DIFFE           =SIMP(statut='f',typ=grma,max='**'),
5851            OPTION          =SIMP(statut='f',typ='TXM',into=("FACE_NORMALE","SPHERE","CYLINDRE","BANDE") ),
5852            b_group_ma      =BLOC(condition = "GROUP_MA != None",
5853              regles=(EXCLUS('POSITION','NUME_INIT'),),
5854              NUME_INIT       =SIMP(statut='f',typ='I',defaut= 1 ),
5855              POSITION        =SIMP(statut='f',typ='TXM',into=("INIT","FIN","MILIEU") ),
5856              b_nume_init   =BLOC(condition = "NUME_INIT != None",
5857                NUME_FIN        =SIMP(statut='f',typ='I' ),
5858              ),
5859            ),
5860            b_face_normale  =BLOC(condition = "OPTION == 'FACE_NORMALE'",
5861              regles=(UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5862              ANGL_NAUT       =SIMP(statut='f',typ='R',max=2),
5863              VECT_NORMALE    =SIMP(statut='f',typ='R',max=3),
5864              ANGL_PREC       =SIMP(statut='f',typ='R',defaut= 0.5 ),
5865              VERI_SIGNE      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
5866            ),
5867            b_sphere        =BLOC(condition = "OPTION == 'SPHERE'",
5868              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),),
5869              POINT           =SIMP(statut='f',typ='R',max=3),
5870              NOEUD_CENTRE    =SIMP(statut='f',typ=no),
5871              RAYON           =SIMP(statut='o',typ='R' ),
5872            ),
5873            b_cylindre      =BLOC(condition = "OPTION == 'CYLINDRE'",
5874              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5875                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5876              POINT           =SIMP(statut='f',typ='R',max=3),
5877              NOEUD_CENTRE    =SIMP(statut='f',typ=no),
5878              RAYON           =SIMP(statut='o',typ='R' ),
5879              ANGL_NAUT       =SIMP(statut='f',typ='R',max=2),
5880              VECT_NORMALE    =SIMP(statut='f',typ='R',max=3),
5881            ),
5882            b_bande         =BLOC(condition = "OPTION == 'BANDE'",
5883              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5884                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5885              POINT           =SIMP(statut='f',typ='R',max=3),
5886              NOEUD_CENTRE    =SIMP(statut='f',typ=no),
5887              DIST            =SIMP(statut='o',typ='R' ),
5888              ANGL_NAUT       =SIMP(statut='f',typ='R',max=2),
5889              VECT_NORMALE    =SIMP(statut='f',typ='R',max=3),
5890            ),
5891          ),
5892          CREA_GROUP_NO   =FACT(statut='f',min=1,max='**',
5893            regles = (
5894          AU_MOINS_UN ('TOUT_GROUP_MA','GROUP_MA','NOEUD',
5895                      'INTERSEC','UNION','DIFFE','GROUP_NO','OPTION'),
5896                    EXCLUS ('TOUT_GROUP_MA','GROUP_MA','NOEUD','INTERSEC','UNION','DIFFE'),),
5897            TOUT_GROUP_MA   =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5898            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5899
5900            NOEUD           =SIMP(statut='f',typ=no,max='**'),
5901            INTERSEC        =SIMP(statut='f',typ=grno,max='**'),
5902            UNION           =SIMP(statut='f',typ=grno,max='**'),
5903            DIFFE           =SIMP(statut='f',typ=grno,max='**'),
5904            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5905            OPTION          =SIMP(statut='f',typ='TXM',into=("ENV_SPHERE","ENV_CYLINDRE","PLAN",
5906                                                             "SEGM_DROI_ORDO","NOEUD_ORDO") ),
5907            b_nom_group_ma  =BLOC(condition = "GROUP_MA != None",
5908              NOM             =SIMP(statut='f',typ=grma,max='**'),
5909            ),
5910            b_crit_noeud    = BLOC(condition = "GROUP_MA != None",
5911              CRIT_NOEUD    = SIMP(statut='f',typ='TXM',defaut="TOUS",
5912                             into=("TOUS","SOMMET","MILIEU","CENTRE"),),),
5913            b_nom =BLOC(condition = "GROUP_MA == None and TOUT_GROUP_MA == None" ,
5914              NOM             =SIMP(statut='o',typ=geom),
5915            ),
5916            b_group_no      =BLOC(condition = "GROUP_NO != None",
5917              regles=(EXCLUS('POSITION','NUME_INIT'),),
5918              NUME_INIT       =SIMP(statut='f',typ='I',defaut= 1 ),
5919              POSITION        =SIMP(statut='f',typ='TXM',into=("INIT","FIN","MILIEU") ),
5920              b_nume_init     =BLOC(condition = "NUME_INIT != None",
5921                NUME_FIN        =SIMP(statut='f',typ='I' ),
5922              ),
5923            ),
5924            b_env_sphere    =BLOC(condition = "OPTION == 'ENV_SPHERE'",
5925              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),),
5926              POINT           =SIMP(statut='f',typ='R',max=3),
5927              NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=1),
5928              RAYON           =SIMP(statut='o',typ='R' ),
5929              PRECISION       =SIMP(statut='f',typ='R' ),
5930              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5931            ),
5932            b_env_cylindre  =BLOC(condition = "OPTION == 'ENV_CYLINDRE'",
5933              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5934                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5935              POINT           =SIMP(statut='f',typ='R',max=3),
5936              NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=1),
5937              RAYON           =SIMP(statut='o',typ='R' ),
5938              ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
5939              VECT_NORMALE    =SIMP(statut='f',typ='R',max=3),
5940              PRECISION       =SIMP(statut='f',typ='R' ),
5941              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5942            ),
5943            b_env_plan      =BLOC(condition = "OPTION == 'PLAN'",
5944              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5945                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5946              POINT           =SIMP(statut='f',typ='R',max=3),
5947              NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=1),
5948              ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
5949              VECT_NORMALE    =SIMP(statut='f',typ='R',max=3),
5950              PRECISION       =SIMP(statut='f',typ='R' ),
5951              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5952            ),
5953            b_segm_droi_ordo=BLOC(condition = "OPTION == 'SEGM_DROI_ORDO'",
5954              regles=(UN_PARMI('NOEUD_ORIG','GROUP_NO_ORIG'),
5955                      UN_PARMI('NOEUD_EXTR','GROUP_NO_EXTR'),),
5956              NOEUD_ORIG      =SIMP(statut='f',typ=no),
5957              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno),
5958              NOEUD_EXTR      =SIMP(statut='f',typ=no),
5959              GROUP_NO_EXTR   =SIMP(statut='f',typ=grno),
5960              PRECISION       =SIMP(statut='f',typ='R' ),
5961              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5962            ),
5963            b_noeud_ordo    =BLOC(condition = "OPTION == 'NOEUD_ORDO'",
5964              regles=(UN_PARMI('NOEUD_ORIG','GROUP_NO_ORIG'),
5965                      UN_PARMI('NOEUD_EXTR','GROUP_NO_EXTR'),),
5966              NOEUD_ORIG      =SIMP(statut='f',typ=no),
5967              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno),
5968              NOEUD_EXTR      =SIMP(statut='f',typ=no),
5969              GROUP_NO_EXTR   =SIMP(statut='f',typ=grno),
5970              PRECISION       =SIMP(statut='f',typ='R' ),
5971              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5972            ),
5973          ),
5974          INFO            =SIMP(statut='f',typ='I',into=( 1 , 2 ) ),
5975 )  ;
5976 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
5977 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5978 # ======================================================================
5979 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5980 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5981 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5982 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5983 # (AT YOUR OPTION) ANY LATER VERSION.
5984 #
5985 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5986 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5987 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5988 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5989 #
5990 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5991 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5992 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5993 # ======================================================================
5994 DEFI_INTE_SPEC=OPER(nom="DEFI_INTE_SPEC",op= 115,sd_prod=tabl_intsp,
5995                     docu="U4.36.02-f2",reentrant='n',
5996             UIinfo={"groupes":("Fonction",)},
5997
5998          DIMENSION       =SIMP(statut='f',typ='I',defaut= 1 ),
5999
6000          PAR_FONCTION    =FACT(statut='f',min=1,max='**',
6001            NUME_ORDRE_I    =SIMP(statut='o',typ='I' ),
6002            NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
6003            FONCTION        =SIMP(statut='o',typ=fonction_c ),
6004          ),
6005          KANAI_TAJIMI    =FACT(statut='f',min=1,max='**',
6006            regles=(EXCLUS('VALE_R','VALE_C'),),
6007            NUME_ORDRE_I    =SIMP(statut='o',typ='I' ),
6008            NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
6009            FREQ_MIN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6010            FREQ_MAX        =SIMP(statut='f',typ='R',defaut= 100. ),
6011            PAS             =SIMP(statut='f',typ='R',defaut= 1. ),
6012            AMOR_REDUIT     =SIMP(statut='f',typ='R',defaut= 0.6 ),
6013            FREQ_MOY        =SIMP(statut='f',typ='R',defaut= 5. ),
6014            VALE_R          =SIMP(statut='f',typ='R' ),
6015            VALE_C          =SIMP(statut='f',typ='C' ),
6016            INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
6017            PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6018            PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6019          ),
6020          CONSTANT        =FACT(statut='f',min=1,max='**',
6021            regles=(EXCLUS('VALE_R','VALE_C'),),
6022            NUME_ORDRE_I    =SIMP(statut='o',typ='I' ),
6023            NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
6024            FREQ_MIN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6025            FREQ_MAX        =SIMP(statut='f',typ='R',defaut= 100. ),
6026            PAS             =SIMP(statut='f',typ='R',defaut= 1. ),
6027            VALE_R          =SIMP(statut='f',typ='R' ),
6028            VALE_C          =SIMP(statut='f',typ='C' ),
6029            INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
6030            PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6031            PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6032          ),
6033          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
6034          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6035 )  ;
6036 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
6037 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6038 # ======================================================================
6039 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6040 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6041 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6042 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6043 # (AT YOUR OPTION) ANY LATER VERSION.
6044 #
6045 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6046 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6047 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6048 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6049 #
6050 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6051 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6052 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6053 # ======================================================================
6054 DEFI_INTERF_DYNA=OPER(nom="DEFI_INTERF_DYNA",op=  98,sd_prod=interf_dyna_clas,
6055                       docu="U4.64.01-e",reentrant='n',
6056             UIinfo={"groupes":("Matrices/vecteurs",)},
6057          NUME_DDL        =SIMP(statut='o',typ=nume_ddl ),
6058          INTERFACE       =FACT(statut='o',min=1,max='**',
6059            regles=(ENSEMBLE('NOM','TYPE'),
6060 #  erreur doc U sur la condition qui suit
6061                    UN_PARMI('NOEUD','GROUP_NO'),),
6062            NOM             =SIMP(statut='f',typ='TXM' ),
6063            TYPE            =SIMP(statut='f',typ='TXM',into=("MNEAL","CRAIGB","CB_HARMO","AUCUN") ),
6064            NOEUD           =SIMP(statut='f',typ=no,max='**'),
6065            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
6066            DDL_ACTIF       =SIMP(statut='f',typ='TXM',max='**'),
6067            MASQUE          =SIMP(statut='f',typ='TXM',max='**'),
6068          ),
6069          FREQ            =SIMP(statut='f',typ='R',defaut= 1.),
6070          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6071 )  ;
6072 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
6073 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6074 # ======================================================================
6075 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6076 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6077 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6078 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6079 # (AT YOUR OPTION) ANY LATER VERSION.
6080 #
6081 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6082 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6083 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6084 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6085 #
6086 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6087 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6088 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6089 # ======================================================================
6090 # RESPONSABLE VABHHTS J.PELLET
6091 DEFI_LIST_ENTI=OPER(nom="DEFI_LIST_ENTI",op=22,sd_prod=listis,
6092                     fr="Définition d une suite croissante d entiers",
6093                     docu="U4.34.02-f",reentrant='n',
6094             UIinfo={"groupes":("Fonction",)},
6095          regles=(UN_PARMI('VALE','DEBUT'),
6096                  EXCLUS('VALE','INTERVALLE'),),
6097          VALE            =SIMP(statut='f',typ='I',max='**'),
6098          DEBUT           =SIMP(statut='f',typ='I'),
6099          INTERVALLE      =FACT(statut='f',min=1,max='**',
6100            regles=(UN_PARMI('NOMBRE','PAS'),),
6101            JUSQU_A         =SIMP(statut='o',typ='I'),
6102            NOMBRE          =SIMP(statut='f',typ='I',val_min=1,),
6103            PAS             =SIMP(statut='f',typ='I',val_min=1,),
6104          ),
6105          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
6106          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
6107 )  ;
6108 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
6109 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6110 # ======================================================================
6111 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6112 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6113 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6114 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6115 # (AT YOUR OPTION) ANY LATER VERSION.
6116 #
6117 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6118 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6119 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6120 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6121 #
6122 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6123 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6124 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6125 # ======================================================================
6126 # RESPONSABLE VABHHTS J.PELLET
6127 DEFI_LIST_REEL=OPER(nom="DEFI_LIST_REEL",op=24,sd_prod=listr8,
6128                     fr="Définition d une suite croissante de réels",
6129                     docu="U4.34.01-g1",reentrant='n',
6130             UIinfo={"groupes":("Fonction",)},
6131          regles=(UN_PARMI('VALE','DEBUT',),
6132                  EXCLUS('VALE','INTERVALLE'),
6133                  ENSEMBLE('DEBUT','INTERVALLE')),
6134          VALE            =SIMP(statut='f',typ='R',max='**'),
6135          DEBUT           =SIMP(statut='f',typ='R'),
6136          INTERVALLE      =FACT(statut='f',min=1,max='**',
6137            regles=(UN_PARMI('NOMBRE','PAS'),),
6138            JUSQU_A         =SIMP(statut='o',typ='R'),
6139            NOMBRE          =SIMP(statut='f',typ='I'),
6140            PAS             =SIMP(statut='f',typ='R'),
6141          ),
6142          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
6143          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
6144 )  ;
6145 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
6146 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6147 # ======================================================================
6148 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6149 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6150 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6151 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6152 # (AT YOUR OPTION) ANY LATER VERSION.
6153 #
6154 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6155 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6156 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6157 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6158 #
6159 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6160 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6161 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6162 # ======================================================================
6163 # RESPONSABLE VABHHTS J.PELLET
6164 DEFI_MAILLAGE=OPER(nom="DEFI_MAILLAGE",op=  88,sd_prod=maillage,
6165                    fr="Définition d un nouveau maillage à partir de macro éléments",
6166                    docu="U4.23.01-e",reentrant='n',
6167             UIinfo={"groupes":("Maillage",)},
6168          DEFI_MAILLE     =FACT(statut='o',min=1,max='**',
6169            MACR_ELEM_STAT  =SIMP(statut='o',typ=macr_elem_stat,max='**' ),
6170            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
6171            TRAN            =SIMP(statut='f',typ='R',max=3),
6172            ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
6173            b_angl_naut     =BLOC(condition = "ANGL_NAUT != None",
6174              CENTRE          =SIMP(statut='f',typ='R',max=3),
6175            ),
6176          ),
6177          RECO_GLOBAL     =FACT(statut='f',min=1,max='**',
6178            regles=(UN_PARMI('TOUT','MAILLE'),),
6179            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6180            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
6181            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6182            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
6183          ),
6184          RECO_MAILLE     =FACT(statut='f',min=1,max='**',
6185            MAILLE          =SIMP(statut='o',typ=ma,max='**'),
6186            GROUP_NO        =SIMP(statut='o',typ=grno,max='**'),
6187            OPTION          =SIMP(statut='f',typ='TXM',defaut="GEOMETRIQUE",into=("GEOMETRIQUE","NOEUD_A_NOEUD","INVERSE") ),
6188            geometrique     =BLOC(condition = "OPTION == 'GEOMETRIQUE'",
6189              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6190              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
6191            ),
6192          ),
6193          DEFI_NOEUD      =FACT(statut='f',min=1,max='**',
6194            regles=(UN_PARMI('TOUT','NOEUD_INIT'),),
6195            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",),
6196                                  fr="Renommage de tous les noeuds" ),
6197            NOEUD_INIT      =SIMP(statut='f',typ=no,
6198                                  fr="Renommage d un seul noeud"),
6199            b_tout          =BLOC(condition = "TOUT != None",
6200              PREFIXE         =SIMP(statut='f',typ='TXM' ),
6201              INDEX           =SIMP(statut='o',typ='I',max='**'),
6202            ),
6203            b_noeud_init    =BLOC(condition = "NOEUD_INIT != None",
6204              MAILLE          =SIMP(statut='o',typ=ma),
6205              NOEUD_FIN       =SIMP(statut='o',typ=no),
6206            ),
6207          ),
6208          DEFI_GROUP_NO   =FACT(statut='f',min=1,max='**',
6209            regles=(UN_PARMI('TOUT','MAILLE'),
6210                 AU_MOINS_UN('INDEX','GROUP_NO_FIN'),
6211                    ENSEMBLE('GROUP_NO_INIT','GROUP_NO_FIN'),),
6212 #  la regle ancien catalogue AU_MOINS_UN__: ( INDEX , GROUP_NO_FIN ) incoherente avec doc U
6213            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",),
6214                                  fr="Création de plusieurs groupes de noeuds" ),
6215            MAILLE          =SIMP(statut='f',typ=ma,
6216                                  fr="Création de plusieurs groupes de noeuds"),
6217            GROUP_NO_INIT   =SIMP(statut='f',typ=grno,
6218                                  fr="Création d un seul groupe de noeuds"),
6219            PREFIXE         =SIMP(statut='f',typ='TXM' ),
6220            INDEX           =SIMP(statut='f',typ='I',max='**'),
6221            GROUP_NO_FIN    =SIMP(statut='f',typ=grno),
6222          ),
6223 )  ;
6224 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
6225 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6226 # ======================================================================
6227 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6228 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6229 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6230 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6231 # (AT YOUR OPTION) ANY LATER VERSION.
6232 #
6233 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6234 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6235 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6236 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6237 #
6238 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6239 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6240 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6241 # ======================================================================
6242 DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater,
6243                    fr="Définition des paramètres décrivant le comportement d un matériau",
6244                    docu="U4.43.01-g4",reentrant='n',
6245             UIinfo={"groupes":("Modélisation",)},
6246        regles=(EXCLUS('ELAS','ELAS_FO','ELAS_FLUI','ELAS_ISTR','ELAS_ISTR_FO','ELAS_ORTH',
6247                       'ELAS_ORTH_FO','ELAS_COQUE','ELAS_COQUE_FO',
6248                       'SURF_ETAT_SATU','CAM_CLAY_THM','SURF_ETAT_NSAT'),
6249                EXCLUS('THER','THER_FO','THER_ORTH','THER_NL'),
6250                EXCLUS('ECRO_LINE','ECRO_LINE_FO'),
6251                EXCLUS('TAHERI','TAHERI_FO'),
6252                EXCLUS('ROUSSELIER','ROUSSELIER_FO'),
6253                PRESENT_PRESENT('ROUSSELIER','TRACTION'),
6254                PRESENT_PRESENT('ROUSSELIER_FO','TRACTION'),
6255                EXCLUS('CIN1_CHAB','CIN1_CHAB_FO'),
6256                EXCLUS('CIN2_CHAB','CIN2_CHAB_FO'),
6257                EXCLUS('VISCOCHAB','VISCOCHAB_FO'),
6258                EXCLUS('POLY_CFC','POLY_CFC_FO'),
6259                EXCLUS('LEMAITRE','LEMAITRE_FO','ZIRC_CYRA2','ZIRC_EPRI'),
6260                EXCLUS('OHNO','OHNO_FO'),
6261                EXCLUS('LMARC','LMARC_FO'),
6262                EXCLUS('VMIS_POUTRE','VMIS_POUTRE_FO'),
6263                EXCLUS('VENDOCHAB','VENDOCHAB_FO'),
6264                PRESENT_PRESENT('BPEL_ACIER','ELAS'),
6265                EXCLUS('RCCM','RCCM_FO'),
6266                EXCLUS('WEIBULL','WEIBULL_FO'),
6267                PRESENT_PRESENT('CAM_CLAY','ELAS'),
6268                PRESENT_PRESENT('LAIGLE','ELAS'),
6269                EXCLUS('MAZARS','MAZARS_FO'),
6270                PRESENT_PRESENT('GRANGER_FD','ELAS_FO'),
6271                ),
6272
6273 #
6274 # comportement élastique
6275 #
6276            ELAS            =FACT(statut='f',min=0,max=1,
6277              E               =SIMP(statut='o',typ='R',val_min=0.E+0),
6278              NU              =SIMP(statut='o',typ='R',val_min=-1.E+0,val_max=0.5E+0),
6279              RHO             =SIMP(statut='f',typ='R'),
6280              ALPHA           =SIMP(statut='f',typ='R'),
6281              AMOR_ALPHA      =SIMP(statut='f',typ='R'),
6282              AMOR_BETA       =SIMP(statut='f',typ='R'),
6283              AMOR_HYST       =SIMP(statut='f',typ='R'),
6284            ),
6285            ELAS_FO         =FACT(statut='f',min=0,max=1,
6286              regles=(PRESENT_PRESENT('ALPHA','TEMP_DEF_ALPHA'),),
6287              E               =SIMP(statut='o',typ=fonction),
6288              NU              =SIMP(statut='o',typ=fonction),
6289              RHO             =SIMP(statut='f',typ='R'),
6290              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
6291              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.),
6292              ALPHA           =SIMP(statut='f',typ=fonction),
6293              AMOR_ALPHA      =SIMP(statut='f',typ=fonction),
6294              AMOR_BETA       =SIMP(statut='f',typ=fonction),
6295              AMOR_HYST       =SIMP(statut='f',typ=fonction),
6296              K_DESSIC        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6297              B_ENDOGE        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6298              FONC_DESORP     =SIMP(statut='f',typ=fonction),
6299              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
6300              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="INST",into=("TEMP","INST",) ),
6301              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
6302              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
6303            ),
6304            ELAS_FLUI       =FACT(statut='f',min=0,max=1,
6305              E               =SIMP(statut='o',typ='R'),
6306              NU              =SIMP(statut='o',typ='R'),
6307              RHO             =SIMP(statut='o',typ='R'),
6308              PROF_RHO_F_INT  =SIMP(statut='o',typ=fonction),
6309              PROF_RHO_F_EXT  =SIMP(statut='o',typ=fonction),
6310              COEF_MASS_AJOU  =SIMP(statut='o',typ=fonction),
6311              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="ABSC",into=("ABSC",) ),
6312            ),
6313            ELAS_ISTR       =FACT(statut='f',min=0,max=1,
6314              E_L             =SIMP(statut='o',typ='R'),
6315              E_N             =SIMP(statut='o',typ='R'),
6316              NU_LT           =SIMP(statut='o',typ='R'),
6317              NU_LN           =SIMP(statut='o',typ='R'),
6318              G_LN            =SIMP(statut='o',typ='R'),
6319              RHO             =SIMP(statut='f',typ='R'),
6320              ALPHA_L         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6321              ALPHA_N         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6322            ),
6323            ELAS_ISTR_FO    =FACT(statut='f',min=0,max=1,
6324              regles=(
6325                       PRESENT_PRESENT('ALPHA_L','TEMP_DEF_ALPHA'),
6326                       PRESENT_PRESENT('ALPHA_N','TEMP_DEF_ALPHA'),
6327                     ),
6328              E_L             =SIMP(statut='o',typ=fonction),
6329              E_N             =SIMP(statut='o',typ=fonction),
6330              NU_LT           =SIMP(statut='o',typ=fonction),
6331              NU_LN           =SIMP(statut='o',typ=fonction),
6332              G_LN            =SIMP(statut='o',typ=fonction),
6333              RHO             =SIMP(statut='f',typ='R'),
6334              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
6335              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.),
6336              ALPHA_L         =SIMP(statut='f',typ=fonction),
6337              ALPHA_N         =SIMP(statut='f',typ=fonction),
6338              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST")),
6339            ),
6340            ELAS_ORTH       =FACT(statut='f',min=0,max=1,
6341              E_L             =SIMP(statut='o',typ='R'),
6342              E_T             =SIMP(statut='o',typ='R'),
6343              E_N             =SIMP(statut='f',typ='R'),
6344              NU_LT           =SIMP(statut='o',typ='R'),
6345              NU_LN           =SIMP(statut='f',typ='R'),
6346              NU_TN           =SIMP(statut='f',typ='R'),
6347              G_LT            =SIMP(statut='o',typ='R'),
6348              G_LN            =SIMP(statut='f',typ='R'),
6349              G_TN            =SIMP(statut='f',typ='R'),
6350              RHO             =SIMP(statut='f',typ='R'),
6351              ALPHA_L         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6352              ALPHA_T         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6353              ALPHA_N         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6354              XT              =SIMP(statut='f',typ='R',defaut= 1. ),
6355              XC              =SIMP(statut='f',typ='R',defaut= 1. ),
6356              YT              =SIMP(statut='f',typ='R',defaut= 1. ),
6357              YC              =SIMP(statut='f',typ='R',defaut= 1. ),
6358              S_LT            =SIMP(statut='f',typ='R',defaut= 1. ),
6359            ),
6360            ELAS_ORTH_FO    =FACT(statut='f',min=0,max=1,
6361              regles=(
6362                       PRESENT_PRESENT('ALPHA_L','TEMP_DEF_ALPHA'),
6363                       PRESENT_PRESENT('ALPHA_N','TEMP_DEF_ALPHA'),
6364                       PRESENT_PRESENT('ALPHA_T','TEMP_DEF_ALPHA'),
6365                     ),
6366              E_L             =SIMP(statut='o',typ=fonction),
6367              E_T             =SIMP(statut='o',typ=fonction),
6368              E_N             =SIMP(statut='o',typ=fonction),
6369              NU_LT           =SIMP(statut='o',typ=fonction),
6370              NU_LN           =SIMP(statut='o',typ=fonction),
6371              NU_TN           =SIMP(statut='o',typ=fonction),
6372              G_LT            =SIMP(statut='o',typ=fonction),
6373              G_LN            =SIMP(statut='o',typ=fonction),
6374              G_TN            =SIMP(statut='o',typ=fonction),
6375              RHO             =SIMP(statut='f',typ='R'),
6376              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
6377              PRECISION       =SIMP(statut='f',typ='R',defaut= 1. ),
6378              ALPHA_L         =SIMP(statut='f',typ=fonction),
6379              ALPHA_T         =SIMP(statut='f',typ=fonction),
6380              ALPHA_N         =SIMP(statut='f',typ=fonction),
6381              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
6382            ),
6383            ELAS_THM        =FACT(statut='f',min=0,max=1,
6384              RHO_S           =SIMP(statut='o',typ='R'),
6385              UN_SUR_KS       =SIMP(statut='o',typ='R'),
6386              E               =SIMP(statut='f',typ='R'),
6387              KB              =SIMP(statut='f',typ='R'),
6388              D_KB_T          =SIMP(statut='f',typ='R'),
6389              ALPHA_S         =SIMP(statut='f',typ='R'),
6390              ALPHA_D         =SIMP(statut='f',typ='R'),
6391            ),
6392            SURF_ETAT_SATU  =FACT(statut='f',min=0,max=1,
6393              E_CHAR          =SIMP(statut='o',typ='R'),
6394              E_DECHAR        =SIMP(statut='o',typ='R'),
6395              XN              =SIMP(statut='f',typ='R'),
6396              RF              =SIMP(statut='f',typ='R'),
6397              EV_KB           =SIMP(statut='f',typ='R'),
6398              EV_XM           =SIMP(statut='f',typ='R'),
6399              D_E_T           =SIMP(statut='f',typ='R'),
6400              ALPHA0          =SIMP(statut='f',typ='R'),
6401              ALPHA1          =SIMP(statut='f',typ='R'),
6402              ALPHA2          =SIMP(statut='f',typ='R'),
6403              ALPHA3          =SIMP(statut='f',typ='R'),
6404              ALPHA_S         =SIMP(statut='f',typ='R'),
6405              ANG_FRT         =SIMP(statut='o',typ='R'),
6406              COHE            =SIMP(statut='o',typ='R'),
6407              RESI_TRAC       =SIMP(statut='o',typ='R'),
6408            ),
6409            CAM_CLAY_THM    =FACT(statut='f',min=0,max=1,
6410              NU              =SIMP(statut='f',typ='R'),
6411              LAMBDA          =SIMP(statut='o',typ='R'),
6412              KAPA            =SIMP(statut='o',typ='R'),
6413              M               =SIMP(statut='f',typ='R'),
6414              PRES_CRIT       =SIMP(statut='f',typ='R'),
6415              GAMA            =SIMP(statut='o',typ='R'),
6416              A0_PC           =SIMP(statut='o',typ='R'),
6417              A1_PC           =SIMP(statut='f',typ='R'),
6418              A2_PC           =SIMP(statut='f',typ='R'),
6419              ALPHA0_PC       =SIMP(statut='f',typ='R'),
6420              ALPHA1_PC       =SIMP(statut='f',typ='R'),
6421              ALPHA2_PC       =SIMP(statut='f',typ='R'),
6422              ALPHA3_PC       =SIMP(statut='f',typ='R'),
6423              ALPHA_S         =SIMP(statut='f',typ='R'),
6424                          ),
6425            SURF_ETAT_NSAT  =FACT(statut='f',min=0,max=1,
6426              E_CHAR          =SIMP(statut='o',typ='R'),
6427              E_DECHAR        =SIMP(statut='o',typ='R'),
6428              XN              =SIMP(statut='f',typ='R'),
6429              RF              =SIMP(statut='f',typ='R'),
6430              EV_KB           =SIMP(statut='f',typ='R'),
6431              EV_XM           =SIMP(statut='f',typ='R'),
6432              EV_A            =SIMP(statut='f',typ='R'),
6433              EV_B            =SIMP(statut='f',typ='R'),
6434              EV_CT           =SIMP(statut='f',typ='R'),
6435              EV_SIGB         =SIMP(statut='f',typ='R'),
6436              D_E_T           =SIMP(statut='f',typ='R'),
6437              D_E_SUCC        =SIMP(statut='f',typ='R'),
6438              ANG_FRT         =SIMP(statut='o',typ='R'),
6439              COHE            =SIMP(statut='o',typ='R'),
6440              D_COEH_SUCC     =SIMP(statut='f',typ='R'),
6441              ANG_FRT_ULT     =SIMP(statut='f',typ='R'),
6442              SUCC_ULTM       =SIMP(statut='f',typ='R'),
6443              RESI_TRAC       =SIMP(statut='f',typ='R'),
6444              A_SURF_SATU     =SIMP(statut='f',typ='R'),
6445              B_SURF_SATU     =SIMP(statut='f',typ='R'),
6446              C_SURF_SATU     =SIMP(statut='f',typ='R'),
6447              D_SURF_SATU     =SIMP(statut='f',typ='R'),
6448            ),
6449            ELAS_COQUE      =FACT(statut='f',min=0,max=1,
6450              regles=(EXCLUS('MEMB_L','M_LLLL',),
6451                      PRESENT_PRESENT('MEMB_L','MEMB_LT', 'MEMB_T','MEMB_G_LT','FLEX_L','FLEX_LT',
6452                                      'FLEX_T','FLEX_G_LT','CISA_L','CISA_T',),
6453                      PRESENT_PRESENT('M_LLLL','M_LLTT','M_LLLT','M_TTTT','M_TTLT','M_LTLT','F_LLLL',
6454                                      'F_LLTT','F_LLLT','F_TTTT','F_TTLT','F_LTLT','MF_LLLL',
6455                                      'MF_LLTT','MF_LLLT','MF_TTTT','MF_TTLT','MF_LTLT','MC_LLLZ',
6456                                      'MC_LLTZ','MC_TTLZ','MC_TTTZ','MC_LTLZ','MC_LTTZ','FC_LLLZ',
6457                                      'FC_LLTZ','FC_TTLZ','FC_TTTZ','FC_LTLZ','FC_LTTZ','C_LZLZ',
6458                                      'C_LZTZ','C_TZTZ'),),
6459              MEMB_L          =SIMP(statut='f',typ='R'),
6460              MEMB_LT         =SIMP(statut='f',typ='R'),
6461              MEMB_T          =SIMP(statut='f',typ='R'),
6462              MEMB_G_LT       =SIMP(statut='f',typ='R'),
6463              FLEX_L          =SIMP(statut='f',typ='R'),
6464              FLEX_LT         =SIMP(statut='f',typ='R'),
6465              FLEX_T          =SIMP(statut='f',typ='R'),
6466              FLEX_G_LT       =SIMP(statut='f',typ='R'),
6467              CISA_L          =SIMP(statut='f',typ='R'),
6468              CISA_T          =SIMP(statut='f',typ='R'),
6469              M_LLLL          =SIMP(statut='f',typ='R'),
6470              M_LLTT          =SIMP(statut='f',typ='R'),
6471              M_LLLT          =SIMP(statut='f',typ='R'),
6472              M_TTTT          =SIMP(statut='f',typ='R'),
6473              M_TTLT          =SIMP(statut='f',typ='R'),
6474              M_LTLT          =SIMP(statut='f',typ='R'),
6475              F_LLLL          =SIMP(statut='f',typ='R'),
6476              F_LLTT          =SIMP(statut='f',typ='R'),
6477              F_LLLT          =SIMP(statut='f',typ='R'),
6478              F_TTTT          =SIMP(statut='f',typ='R'),
6479              F_TTLT          =SIMP(statut='f',typ='R'),
6480              F_LTLT          =SIMP(statut='f',typ='R'),
6481              MF_LLLL         =SIMP(statut='f',typ='R'),
6482              MF_LLTT         =SIMP(statut='f',typ='R'),
6483              MF_LLLT         =SIMP(statut='f',typ='R'),
6484              MF_TTTT         =SIMP(statut='f',typ='R'),
6485              MF_TTLT         =SIMP(statut='f',typ='R'),
6486              MF_LTLT         =SIMP(statut='f',typ='R'),
6487              MC_LLLZ         =SIMP(statut='f',typ='R'),
6488              MC_LLTZ         =SIMP(statut='f',typ='R'),
6489              MC_TTLZ         =SIMP(statut='f',typ='R'),
6490              MC_TTTZ         =SIMP(statut='f',typ='R'),
6491              MC_LTLZ         =SIMP(statut='f',typ='R'),
6492              MC_LTTZ         =SIMP(statut='f',typ='R'),
6493              FC_LLLZ         =SIMP(statut='f',typ='R'),
6494              FC_LLTZ         =SIMP(statut='f',typ='R'),
6495              FC_TTLZ         =SIMP(statut='f',typ='R'),
6496              FC_TTTZ         =SIMP(statut='f',typ='R'),
6497              FC_LTLZ         =SIMP(statut='f',typ='R'),
6498              FC_LTTZ         =SIMP(statut='f',typ='R'),
6499              C_LZLZ          =SIMP(statut='f',typ='R'),
6500              C_LZTZ          =SIMP(statut='f',typ='R'),
6501              C_TZTZ          =SIMP(statut='f',typ='R'),
6502              RHO             =SIMP(statut='f',typ='R'),
6503              ALPHA           =SIMP(statut='f',typ='R'),
6504            ),
6505            ELAS_COQUE_FO   =FACT(statut='f',min=0,max=1,
6506              regles=(EXCLUS('MEMB_L','M_LLLL',),
6507                      PRESENT_PRESENT('MEMB_L','MEMB_LT','MEMB_T','MEMB_G_LT','FLEX_L','FLEX_LT',
6508                                      'FLEX_T','FLEX_G_LT','CISA_L','CISA_T',),
6509                      PRESENT_PRESENT('M_LLLL','M_LLTT','M_LLLT','M_TTTT','M_TTLT','M_LTLT','F_LLLL',
6510                                      'F_LLTT','F_LLLT','F_TTTT','F_TTLT','F_LTLT','MF_LLLL','MF_LLTT',
6511                                      'MF_LLLT','MF_TTTT','MF_TTLT','MF_LTLT','MC_LLLZ','MC_LLTZ',
6512                                      'MC_TTLZ','MC_TTTZ','MC_LTLZ','MC_LTTZ','FC_LLLZ','FC_LLTZ',
6513                                      'FC_TTLZ','FC_TTTZ','FC_LTLZ','FC_LTTZ','C_LZLZ','C_LZTZ','C_TZTZ'),),
6514              MEMB_L          =SIMP(statut='f',typ=fonction),
6515              MEMB_LT         =SIMP(statut='f',typ=fonction),
6516              MEMB_T          =SIMP(statut='f',typ=fonction),
6517              MEMB_G_LT       =SIMP(statut='f',typ=fonction),
6518              FLEX_L          =SIMP(statut='f',typ=fonction),
6519              FLEX_LT         =SIMP(statut='f',typ=fonction),
6520              FLEX_T          =SIMP(statut='f',typ=fonction),
6521              FLEX_G_LT       =SIMP(statut='f',typ=fonction),
6522              CISA_L          =SIMP(statut='f',typ=fonction),
6523              CISA_T          =SIMP(statut='f',typ=fonction),
6524              M_LLLL          =SIMP(statut='f',typ=fonction),
6525              M_LLTT          =SIMP(statut='f',typ=fonction),
6526              M_LLLT          =SIMP(statut='f',typ=fonction),
6527              M_TTTT          =SIMP(statut='f',typ=fonction),
6528              M_TTLT          =SIMP(statut='f',typ=fonction),
6529              M_LTLT          =SIMP(statut='f',typ=fonction),
6530              F_LLLL          =SIMP(statut='f',typ=fonction),
6531              F_LLTT          =SIMP(statut='f',typ=fonction),
6532              F_LLLT          =SIMP(statut='f',typ=fonction),
6533              F_TTTT          =SIMP(statut='f',typ=fonction),
6534              F_TTLT          =SIMP(statut='f',typ=fonction),
6535              F_LTLT          =SIMP(statut='f',typ=fonction),
6536              MF_LLLL         =SIMP(statut='f',typ=fonction),
6537              MF_LLTT         =SIMP(statut='f',typ=fonction),
6538              MF_LLLT         =SIMP(statut='f',typ=fonction),
6539              MF_TTTT         =SIMP(statut='f',typ=fonction),
6540              MF_TTLT         =SIMP(statut='f',typ=fonction),
6541              MF_LTLT         =SIMP(statut='f',typ=fonction),
6542              MC_LLLZ         =SIMP(statut='f',typ=fonction),
6543              MC_LLTZ         =SIMP(statut='f',typ=fonction),
6544              MC_TTLZ         =SIMP(statut='f',typ=fonction),
6545              MC_TTTZ         =SIMP(statut='f',typ=fonction),
6546              MC_LTLZ         =SIMP(statut='f',typ=fonction),
6547              MC_LTTZ         =SIMP(statut='f',typ=fonction),
6548              FC_LLLZ         =SIMP(statut='f',typ=fonction),
6549              FC_LLTZ         =SIMP(statut='f',typ=fonction),
6550              FC_TTLZ         =SIMP(statut='f',typ=fonction),
6551              FC_TTTZ         =SIMP(statut='f',typ=fonction),
6552              FC_LTLZ         =SIMP(statut='f',typ=fonction),
6553              FC_LTTZ         =SIMP(statut='f',typ=fonction),
6554              C_LZLZ          =SIMP(statut='f',typ=fonction),
6555              C_LZTZ          =SIMP(statut='f',typ=fonction),
6556              C_TZTZ          =SIMP(statut='f',typ=fonction),
6557              RHO             =SIMP(statut='f',typ='R'),
6558              ALPHA           =SIMP(statut='f',typ=fonction),
6559              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST") ),
6560            ),
6561            APPUI_ELAS      =FACT(statut='f',min=0,max=1,
6562              E_N             =SIMP(statut='o',typ='R'),
6563              E_TAN           =SIMP(statut='f',typ='R',defaut= 0.E+0),
6564            ),
6565            CABLE           =FACT(statut='f',min=0,max=1,
6566              E               =SIMP(statut='o',typ='R'),
6567              EC_SUR_E        =SIMP(statut='f',typ='R',defaut= 1.E-4 ),
6568              RHO             =SIMP(statut='f',typ='R'),
6569              ALPHA           =SIMP(statut='f',typ='R'),
6570              AMOR_ALPHA      =SIMP(statut='f',typ='R'),
6571              AMOR_BETA       =SIMP(statut='f',typ='R'),
6572            ),
6573 #
6574 # comportement mécanique non linéaire
6575 #
6576            TRACTION        =FACT(statut='f',min=0,max=1,
6577              SIGM            =SIMP(statut='o',typ=fonction),
6578              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",) ),
6579              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6580              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
6581              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
6582            ),
6583            ECRO_LINE       =FACT(statut='f',min=0,max=1,
6584              D_SIGM_EPSI     =SIMP(statut='o',typ='R'),
6585              SY              =SIMP(statut='o',typ='R'),
6586            ),
6587            ECRO_LINE_FO    =FACT(statut='f',min=0,max=1,
6588              D_SIGM_EPSI     =SIMP(statut='o',typ=fonction),
6589              SY              =SIMP(statut='o',typ=fonction),
6590              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6591            ),
6592            PRAGER          =FACT(statut='f',min=0,max=1,
6593              C               =SIMP(statut='o',typ='R'),
6594            ),
6595            PRAGER_FO       =FACT(statut='f',min=0,max=1,
6596              C               =SIMP(statut='o',typ=fonction),
6597              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6598            ),
6599            ECRO_FLEJOU     =FACT(statut='f',min=0,max=1,
6600              EP              =SIMP(statut='o',typ='R'),
6601              SY              =SIMP(statut='o',typ='R'),
6602              SU              =SIMP(statut='o',typ='R'),
6603              PUISS           =SIMP(statut='o',typ='R'),
6604            ),
6605            TAHERI          =FACT(statut='f',min=0,max=1,
6606              R_0             =SIMP(statut='o',typ='R'),
6607              ALPHA           =SIMP(statut='o',typ='R'),
6608              M               =SIMP(statut='o',typ='R'),
6609              A               =SIMP(statut='o',typ='R'),
6610              B               =SIMP(statut='o',typ='R'),
6611              C1              =SIMP(statut='o',typ='R'),
6612              C_INF           =SIMP(statut='o',typ='R'),
6613              S               =SIMP(statut='o',typ='R'),
6614            ),
6615            TAHERI_FO       =FACT(statut='f',min=0,max=1,
6616              R_0             =SIMP(statut='o',typ=fonction),
6617              ALPHA           =SIMP(statut='o',typ=fonction),
6618              M               =SIMP(statut='o',typ=fonction),
6619              A               =SIMP(statut='o',typ=fonction),
6620              B               =SIMP(statut='o',typ=fonction),
6621              C1              =SIMP(statut='o',typ=fonction),
6622              C_INF           =SIMP(statut='o',typ=fonction),
6623              S               =SIMP(statut='o',typ=fonction),
6624              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6625            ),
6626            ROUSSELIER      =FACT(statut='f',min=0,max=1,
6627              D               =SIMP(statut='o',typ='R'),
6628              SIGM_1          =SIMP(statut='o',typ='R'),
6629              PORO_INIT       =SIMP(statut='o',typ='R'),
6630              PORO_CRIT       =SIMP(statut='f',typ='R',defaut= 1. ),
6631              PORO_ACCE       =SIMP(statut='f',typ='R',defaut= 1. ),
6632              PORO_LIMI       =SIMP(statut='f',typ='R',defaut= 0.999 ),
6633              D_SIGM_EPSI_NORM=SIMP(statut='f',typ='R',defaut= 1. ),
6634              AN              =SIMP(statut='f',typ='R',defaut= 0. ),
6635            ),
6636            ROUSSELIER_FO   =FACT(statut='f',min=0,max=1,
6637              D               =SIMP(statut='o',typ=fonction),
6638              SIGM_1          =SIMP(statut='o',typ=fonction),
6639              PORO_INIT       =SIMP(statut='o',typ=fonction),
6640              PORO_CRIT       =SIMP(statut='f',typ='R',defaut= 1. ),
6641              PORO_ACCE       =SIMP(statut='f',typ='R',defaut= 1. ),
6642              PORO_LIMI       =SIMP(statut='f',typ='R',defaut= 0.999 ),
6643              D_SIGM_EPSI_NORM=SIMP(statut='f',typ='R',defaut= 1. ),
6644              AN              =SIMP(statut='f',typ='R',defaut= 0. ),
6645              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6646            ),
6647            ROUSS_VISC      =FACT(statut='f',min=0,max=1,
6648              SIGM_0          =SIMP(statut='o',typ='R'),
6649              EPSI_0          =SIMP(statut='o',typ='R'),
6650              M               =SIMP(statut='o',typ='R'),
6651            ),
6652            CHABOCHE        =FACT(statut='f',min=0,max=1,
6653              R_I             =SIMP(statut='o',typ='R'),
6654              R_0             =SIMP(statut='o',typ='R'),
6655              B               =SIMP(statut='o',typ='R'),
6656              K               =SIMP(statut='o',typ='R'),
6657              W               =SIMP(statut='o',typ='R'),
6658              A1              =SIMP(statut='o',typ='R'),
6659              A2              =SIMP(statut='o',typ='R'),
6660              C1              =SIMP(statut='o',typ='R'),
6661              C2              =SIMP(statut='o',typ='R'),
6662            ),
6663            CIN1_CHAB  =FACT(statut='f',min=0,max=1,
6664              R_0             =SIMP(statut='o',typ='R'),
6665              R_I             =SIMP(statut='f',typ='R'),
6666              B               =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6667              C_I             =SIMP(statut='o',typ='R'),
6668              K               =SIMP(statut='f',typ='R',defaut= 1.0E+0),
6669              W               =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6670              G_0             =SIMP(statut='o',typ='R'),
6671              A_I             =SIMP(statut='f',typ='R',defaut= 1.0E+0),
6672            ),
6673            CIN1_CHAB_FO  =FACT(statut='f',min=0,max=1,
6674              R_0             =SIMP(statut='o',typ=fonction),
6675              R_I             =SIMP(statut='o',typ=fonction),
6676              B               =SIMP(statut='o',typ=fonction),
6677              C_I             =SIMP(statut='o',typ=fonction),
6678              K               =SIMP(statut='o',typ=fonction),
6679              W               =SIMP(statut='o',typ=fonction),
6680              G_0             =SIMP(statut='o',typ=fonction),
6681              A_I             =SIMP(statut='o',typ=fonction),
6682              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
6683            ),
6684            CIN2_CHAB  =FACT(statut='f',min=0,max=1,
6685              R_0             =SIMP(statut='o',typ='R'),
6686              R_I             =SIMP(statut='f',typ='R'),
6687              B               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6688              C1_I            =SIMP(statut='o',typ='R'),
6689              C2_I            =SIMP(statut='o',typ='R'),
6690              K               =SIMP(statut='f',typ='R',defaut= 1.),
6691              W               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6692              G1_0            =SIMP(statut='o',typ='R'),
6693              G2_0            =SIMP(statut='o',typ='R'),
6694              A_I             =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
6695            ),
6696            CIN2_CHAB_FO  =FACT(statut='f',min=0,max=1,
6697              R_0             =SIMP(statut='o',typ=fonction),
6698              R_I             =SIMP(statut='o',typ=fonction),
6699              B               =SIMP(statut='o',typ=fonction),
6700              C1_I            =SIMP(statut='o',typ=fonction),
6701              C2_I            =SIMP(statut='o',typ=fonction),
6702              K               =SIMP(statut='o',typ=fonction),
6703              W               =SIMP(statut='o',typ=fonction),
6704              G1_0            =SIMP(statut='o',typ=fonction),
6705              G2_0            =SIMP(statut='o',typ=fonction),
6706              A_I             =SIMP(statut='o',typ=fonction),
6707              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6708            ),
6709            VISCOCHAB       =FACT(statut='f',min=0,max=1,
6710              K_0             =SIMP(statut='o',typ='R'),
6711              A_K             =SIMP(statut='o',typ='R'),
6712              A_R             =SIMP(statut='o',typ='R'),
6713              K               =SIMP(statut='o',typ='R'),
6714              N               =SIMP(statut='o',typ='R'),
6715              ALP             =SIMP(statut='o',typ='R'),
6716              B               =SIMP(statut='o',typ='R'),
6717              M_R             =SIMP(statut='o',typ='R'),
6718              G_R             =SIMP(statut='o',typ='R'),
6719              MU              =SIMP(statut='o',typ='R'),
6720              Q_M             =SIMP(statut='o',typ='R'),
6721              Q_0             =SIMP(statut='o',typ='R'),
6722              QR_0            =SIMP(statut='o',typ='R'),
6723              ETA             =SIMP(statut='o',typ='R'),
6724              C1              =SIMP(statut='o',typ='R'),
6725              M_1             =SIMP(statut='o',typ='R'),
6726              D1              =SIMP(statut='o',typ='R'),
6727              G_X1            =SIMP(statut='o',typ='R'),
6728              G1_0            =SIMP(statut='o',typ='R'),
6729              C2              =SIMP(statut='o',typ='R'),
6730              M_2             =SIMP(statut='o',typ='R'),
6731              D2              =SIMP(statut='o',typ='R'),
6732              G_X2            =SIMP(statut='o',typ='R'),
6733              G2_0            =SIMP(statut='o',typ='R'),
6734              A_I             =SIMP(statut='o',typ='R'),
6735            ),
6736            VISCOCHAB_FO    =FACT(statut='f',min=0,max=1,
6737              K_0             =SIMP(statut='o',typ=fonction),
6738              A_K             =SIMP(statut='o',typ=fonction),
6739              A_R             =SIMP(statut='o',typ=fonction),
6740              K               =SIMP(statut='o',typ=fonction),
6741              N               =SIMP(statut='o',typ=fonction),
6742              ALP             =SIMP(statut='o',typ=fonction),
6743              B               =SIMP(statut='o',typ=fonction),
6744              M_R             =SIMP(statut='o',typ=fonction),
6745              G_R             =SIMP(statut='o',typ=fonction),
6746              MU              =SIMP(statut='o',typ=fonction),
6747              Q_M             =SIMP(statut='o',typ=fonction),
6748              Q_0             =SIMP(statut='o',typ=fonction),
6749              QR_0            =SIMP(statut='o',typ=fonction),
6750              ETA             =SIMP(statut='o',typ=fonction),
6751              C1              =SIMP(statut='o',typ=fonction),
6752              M_1             =SIMP(statut='o',typ=fonction),
6753              D1              =SIMP(statut='o',typ=fonction),
6754              G_X1            =SIMP(statut='o',typ=fonction),
6755              G1_0            =SIMP(statut='o',typ=fonction),
6756              C2              =SIMP(statut='o',typ=fonction),
6757              M_2             =SIMP(statut='o',typ=fonction),
6758              D2              =SIMP(statut='o',typ=fonction),
6759              G_X2            =SIMP(statut='o',typ=fonction),
6760              G2_0            =SIMP(statut='o',typ=fonction),
6761              A_I             =SIMP(statut='o',typ=fonction),
6762              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6763            ),
6764            POLY_CFC        =FACT(statut='f',min=0,max=1,
6765              TEXTURE         =SIMP(statut='o',typ=(tabl_texture) ),
6766              DL              =SIMP(statut='f',typ='R'),
6767              DA              =SIMP(statut='f',typ='R'),
6768              N               =SIMP(statut='o',typ='R'),
6769              K               =SIMP(statut='o',typ='R'),
6770              TAU_0           =SIMP(statut='o',typ='R'),
6771              Q1              =SIMP(statut='o',typ='R'),
6772              B1              =SIMP(statut='o',typ='R'),
6773              HL              =SIMP(statut='o',typ='R'),
6774              Q2              =SIMP(statut='o',typ='R'),
6775              B2              =SIMP(statut='o',typ='R'),
6776              C1              =SIMP(statut='o',typ='R'),
6777              D1              =SIMP(statut='o',typ='R'),
6778              C2              =SIMP(statut='o',typ='R'),
6779            ),
6780            POLY_CFC_FO     =FACT(statut='f',min=0,max=1,
6781              TEXTURE         =SIMP(statut='o',typ=(tabl_texture) ),
6782              DL              =SIMP(statut='o',typ=fonction),
6783              DA              =SIMP(statut='o',typ=fonction),
6784              N               =SIMP(statut='o',typ=fonction),
6785              K               =SIMP(statut='o',typ=fonction),
6786              TAU_0           =SIMP(statut='o',typ=fonction),
6787              Q1              =SIMP(statut='o',typ=fonction),
6788              B1              =SIMP(statut='o',typ=fonction),
6789              HL              =SIMP(statut='o',typ=fonction),
6790              Q2              =SIMP(statut='o',typ=fonction),
6791              B2              =SIMP(statut='o',typ=fonction),
6792              C1              =SIMP(statut='o',typ=fonction),
6793              D1              =SIMP(statut='o',typ=fonction),
6794              C2              =SIMP(statut='o',typ=fonction),
6795              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6796            ),
6797            LEMAITRE        =FACT(statut='f',min=0,max=1,
6798              N               =SIMP(statut='o',typ='R'),
6799              UN_SUR_K        =SIMP(statut='o',typ='R'),
6800              UN_SUR_M        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6801            ),
6802            ZIRC_CYRA2      =FACT(statut='f',min=0,max=1,
6803              EPSI_FAB        =SIMP(statut='o',typ=fonction),
6804              TEMP_RECUIT     =SIMP(statut='o',typ=fonction),
6805              FLUX_PHI        =SIMP(statut='o',typ=fonction),
6806              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
6807            ),
6808            ZIRC_EPRI       =FACT(statut='f',min=0,max=1,
6809              FLUX_PHI        =SIMP(statut='o',typ='R'),
6810              R_P             =SIMP(statut='o',typ='R'),
6811              THETA_MAX       =SIMP(statut='o',typ='R'),
6812            ),
6813            LEMAITRE_FO     =FACT(statut='f',min=0,max=1,
6814              N               =SIMP(statut='o',typ=fonction),
6815              UN_SUR_K        =SIMP(statut='o',typ=fonction),
6816              UN_SUR_M        =SIMP(statut='f',typ=fonction),
6817              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6818            ),
6819            GRAN_IRRA       =FACT(statut='f',min=0,max=1,
6820              A               =SIMP(statut='f',typ='R',defaut= 0.E+0),
6821              B               =SIMP(statut='f',typ='R',defaut= 0.E+0),
6822              S               =SIMP(statut='f',typ='R',defaut= 0.E+0),
6823            ),
6824            FLU_IRRA       =FACT(statut='f',min=0,max=1,
6825              QSR_K           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6826              BETA            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6827              PHI_ZERO        =SIMP(statut='f',typ='R',defaut= 1.E+20),
6828              L               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6829            ),
6830            OHNO            =FACT(statut='f',min=0,max=1,
6831              R_I             =SIMP(statut='o',typ='R'),
6832              R_0             =SIMP(statut='o',typ='R'),
6833              B               =SIMP(statut='o',typ='R'),
6834              PHI             =SIMP(statut='o',typ='R'),
6835              A1              =SIMP(statut='o',typ='R'),
6836              A2              =SIMP(statut='o',typ='R'),
6837              A3              =SIMP(statut='o',typ='R'),
6838              A4              =SIMP(statut='o',typ='R'),
6839              A5              =SIMP(statut='o',typ='R'),
6840              GAMMA1          =SIMP(statut='o',typ='R'),
6841              GAMMA2          =SIMP(statut='o',typ='R'),
6842              GAMMA3          =SIMP(statut='o',typ='R'),
6843              GAMMA4          =SIMP(statut='o',typ='R'),
6844              GAMMA5          =SIMP(statut='o',typ='R'),
6845              M1              =SIMP(statut='o',typ='R'),
6846              M2              =SIMP(statut='o',typ='R'),
6847              M3              =SIMP(statut='o',typ='R'),
6848              M4              =SIMP(statut='o',typ='R'),
6849              M5              =SIMP(statut='o',typ='R'),
6850                            ),
6851            OHNO_FO         =FACT(statut='f',min=0,max=1,
6852              R_I             =SIMP(statut='o',typ=fonction),
6853              R_0             =SIMP(statut='o',typ=fonction),
6854              B               =SIMP(statut='o',typ=fonction),
6855              PHI             =SIMP(statut='o',typ=fonction),
6856              A1              =SIMP(statut='o',typ=fonction),
6857              A2              =SIMP(statut='o',typ=fonction),
6858              A3              =SIMP(statut='o',typ=fonction),
6859              A4              =SIMP(statut='o',typ=fonction),
6860              A5              =SIMP(statut='o',typ=fonction),
6861              GAMMA1          =SIMP(statut='o',typ=fonction),
6862              GAMMA2          =SIMP(statut='o',typ=fonction),
6863              GAMMA3          =SIMP(statut='o',typ=fonction),
6864              GAMMA4          =SIMP(statut='o',typ=fonction),
6865              GAMMA5          =SIMP(statut='o',typ=fonction),
6866              M1              =SIMP(statut='o',typ=fonction),
6867              M2              =SIMP(statut='o',typ=fonction),
6868              M3              =SIMP(statut='o',typ=fonction),
6869              M4              =SIMP(statut='o',typ=fonction),
6870              M5              =SIMP(statut='o',typ=fonction),
6871              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6872            ),
6873            LMARC           =FACT(statut='f',min=0,max=1,
6874              DE_0            =SIMP(statut='o',typ='R'),
6875              R_0             =SIMP(statut='o',typ='R'),
6876              N               =SIMP(statut='o',typ='R'),
6877              K               =SIMP(statut='o',typ='R'),
6878              Y_I             =SIMP(statut='o',typ='R'),
6879              Y_0             =SIMP(statut='o',typ='R'),
6880              B               =SIMP(statut='o',typ='R'),
6881              A_0             =SIMP(statut='o',typ='R'),
6882              RM              =SIMP(statut='o',typ='R'),
6883              M               =SIMP(statut='o',typ='R'),
6884              P               =SIMP(statut='o',typ='R'),
6885              P1              =SIMP(statut='o',typ='R'),
6886              P2              =SIMP(statut='o',typ='R'),
6887              M11             =SIMP(statut='o',typ='R'),
6888              M22             =SIMP(statut='o',typ='R'),
6889              M33             =SIMP(statut='o',typ='R'),
6890              M66             =SIMP(statut='o',typ='R'),
6891              N11             =SIMP(statut='o',typ='R'),
6892              N22             =SIMP(statut='o',typ='R'),
6893              N33             =SIMP(statut='o',typ='R'),
6894              N66             =SIMP(statut='o',typ='R'),
6895              Q11             =SIMP(statut='o',typ='R'),
6896              Q22             =SIMP(statut='o',typ='R'),
6897              Q33             =SIMP(statut='o',typ='R'),
6898              Q66             =SIMP(statut='o',typ='R'),
6899              R11             =SIMP(statut='o',typ='R'),
6900              R22             =SIMP(statut='o',typ='R'),
6901              R33             =SIMP(statut='o',typ='R'),
6902              R66             =SIMP(statut='o',typ='R'),
6903            ),
6904            LMARC_FO        =FACT(statut='f',min=0,max=1,
6905              DE_0            =SIMP(statut='o',typ=fonction),
6906              R_0             =SIMP(statut='o',typ=fonction),
6907              N               =SIMP(statut='o',typ=fonction),
6908              K               =SIMP(statut='o',typ=fonction),
6909              Y_I             =SIMP(statut='o',typ=fonction),
6910              Y_0             =SIMP(statut='o',typ=fonction),
6911              B               =SIMP(statut='o',typ=fonction),
6912              A_0             =SIMP(statut='o',typ=fonction),
6913              RM              =SIMP(statut='o',typ=fonction),
6914              M               =SIMP(statut='o',typ=fonction),
6915              P               =SIMP(statut='o',typ=fonction),
6916              P1              =SIMP(statut='o',typ=fonction),
6917              P2              =SIMP(statut='o',typ=fonction),
6918              M11             =SIMP(statut='o',typ=fonction),
6919              M22             =SIMP(statut='o',typ=fonction),
6920              M33             =SIMP(statut='o',typ=fonction),
6921              M66             =SIMP(statut='o',typ=fonction),
6922              N11             =SIMP(statut='o',typ=fonction),
6923              N22             =SIMP(statut='o',typ=fonction),
6924              N33             =SIMP(statut='o',typ=fonction),
6925              N66             =SIMP(statut='o',typ=fonction),
6926              Q11             =SIMP(statut='o',typ=fonction),
6927              Q22             =SIMP(statut='o',typ=fonction),
6928              Q33             =SIMP(statut='o',typ=fonction),
6929              Q66             =SIMP(statut='o',typ=fonction),
6930              R11             =SIMP(statut='o',typ=fonction),
6931              R22             =SIMP(statut='o',typ=fonction),
6932              R33             =SIMP(statut='o',typ=fonction),
6933              R66             =SIMP(statut='o',typ=fonction),
6934              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6935            ),
6936            VMIS_POUTRE     =FACT(statut='f',min=0,max=1,
6937              NP              =SIMP(statut='o',typ='R'),
6938              MEY             =SIMP(statut='o',typ='R'),
6939              MPY             =SIMP(statut='o',typ='R'),
6940              CAY             =SIMP(statut='o',typ='R'),
6941              CBY             =SIMP(statut='o',typ='R'),
6942              MEZ             =SIMP(statut='o',typ='R'),
6943              MPZ             =SIMP(statut='o',typ='R'),
6944              CAZ             =SIMP(statut='o',typ='R'),
6945              CBZ             =SIMP(statut='o',typ='R'),
6946              MPX             =SIMP(statut='o',typ='R'),
6947            ),
6948            VMIS_POUTRE_FO  =FACT(statut='f',min=0,max=1,
6949              NP              =SIMP(statut='o',typ=fonction),
6950              MEY             =SIMP(statut='o',typ=fonction),
6951              MPY             =SIMP(statut='o',typ=fonction),
6952              CAY             =SIMP(statut='o',typ=fonction),
6953              CBY             =SIMP(statut='o',typ=fonction),
6954              MEZ             =SIMP(statut='o',typ=fonction),
6955              MPZ             =SIMP(statut='o',typ=fonction),
6956              CAZ             =SIMP(statut='o',typ=fonction),
6957              CBZ             =SIMP(statut='o',typ=fonction),
6958              MPX             =SIMP(statut='o',typ=fonction),
6959              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6960            ),
6961            ARME            =FACT(statut='f',min=0,max=1,
6962              KYE             =SIMP(statut='o',typ='R'),
6963              DLE             =SIMP(statut='o',typ='R'),
6964              KYP             =SIMP(statut='o',typ='R'),
6965              DLP             =SIMP(statut='o',typ='R'),
6966              KYG             =SIMP(statut='o',typ='R'),
6967            ),
6968            ASSE_CORN       =FACT(statut='f',min=0,max=1,
6969              NU_1            =SIMP(statut='o',typ='R'),
6970              MU_1            =SIMP(statut='o',typ='R'),
6971              DXU_1           =SIMP(statut='o',typ='R'),
6972              DRYU_1          =SIMP(statut='o',typ='R'),
6973              C_1             =SIMP(statut='o',typ='R'),
6974              NU_2            =SIMP(statut='o',typ='R'),
6975              MU_2            =SIMP(statut='o',typ='R'),
6976              DXU_2           =SIMP(statut='o',typ='R'),
6977              DRYU_2          =SIMP(statut='o',typ='R'),
6978              C_2             =SIMP(statut='o',typ='R'),
6979              KY              =SIMP(statut='o',typ='R'),
6980              KZ              =SIMP(statut='o',typ='R'),
6981              KRX             =SIMP(statut='o',typ='R'),
6982              KRZ             =SIMP(statut='o',typ='R'),
6983            ),
6984            DIS_CONTACT     =FACT(statut='f',min=0,max=1,
6985              RIGI_NOR        =SIMP(statut='f',typ='R' ),
6986              DIST_1          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6987              DIST_2          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6988              RIGI_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6989              AMOR_NOR        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6990              AMOR_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6991              COULOMB         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6992              JEU             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6993              KT_ULTM         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6994              EFFO_N_INIT     =SIMP(statut='f',typ=fonction),
6995              regles=(EXCLUS('RIGI_N_FO','RIGI_N_IRRA',),),
6996              RIGI_N_IRRA     =SIMP(statut='f',typ=fonction),
6997              RIGI_N_FO       =SIMP(statut='f',typ=fonction),
6998              RELA_MZ         =SIMP(statut='f',typ=fonction),
6999              C_PRAGER_MZ     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7000              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="DRZ",into=("DRZ",) ),
7001              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
7002              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7003            ),
7004            NADAI_B         =FACT(statut='f',min=0,max=1,
7005              F_C             =SIMP(statut='o',typ='R'),
7006              F_T             =SIMP(statut='o',typ='R'),
7007              CRIT_E_C        =SIMP(statut='o',typ='R'),
7008              EPSP_P_C        =SIMP(statut='o',typ='R'),
7009              EPSP_R_C        =SIMP(statut='o',typ='R'),
7010              EPSI_R_T        =SIMP(statut='o',typ='R'),
7011              FAC_T_C         =SIMP(statut='o',typ='R'),
7012            ),
7013            BETON_DOUBLE_DP =FACT(statut='f',min=0,max=1,
7014              F_C             =SIMP(statut='o',typ=fonction),
7015              F_T             =SIMP(statut='o',typ=fonction),
7016              COEF_BIAX       =SIMP(statut='o',typ=fonction),
7017              ENER_COMP_RUPT  =SIMP(statut='o',typ=fonction),
7018              ENER_TRAC_RUPT  =SIMP(statut='o',typ=fonction),
7019              COEF_ELAS_COMP  =SIMP(statut='o',typ='R'),
7020              LONG_CARA       =SIMP(statut='f',typ='R'),
7021              ECRO_COMP_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","PARABOLE") ),
7022              ECRO_TRAC_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","EXPONENT") ),
7023              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
7024              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="INST",into=("TEMP","INST",) ),
7025              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
7026              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
7027            ),
7028            LABORD_1D=FACT(statut='f',min=0 ,max=1,
7029              Y01             =SIMP(statut='o',typ='R'),
7030              Y02             =SIMP(statut='o',typ='R'),
7031              A1              =SIMP(statut='o',typ='R'),
7032              A2              =SIMP(statut='o',typ='R'),
7033              B1              =SIMP(statut='o',typ='R'),
7034              B2              =SIMP(statut='o',typ='R'),
7035              BETA1           =SIMP(statut='o',typ='R'),
7036              BETA2           =SIMP(statut='o',typ='R'),
7037              SIGF            =SIMP(statut='o',typ='R'),
7038            ),
7039          MAZARS=FACT(statut='f',min=0 ,max=1,
7040              EPSD0           =SIMP(statut='o',typ='R'),
7041              BETA            =SIMP(statut='o',typ='R'),
7042              AC              =SIMP(statut='o',typ='R'),
7043              BC              =SIMP(statut='o',typ='R'),
7044              AT              =SIMP(statut='o',typ='R'),
7045              BT              =SIMP(statut='o',typ='R'),
7046            ),
7047          MAZARS_FO=FACT(statut='f',min=0 ,max=1,
7048              EPSD0           =SIMP(statut='o',typ=fonction),
7049              BETA            =SIMP(statut='o',typ='R'),
7050              AC              =SIMP(statut='o',typ=fonction),
7051              BC              =SIMP(statut='o',typ=fonction),
7052              AT              =SIMP(statut='o',typ=fonction),
7053              BT              =SIMP(statut='o',typ=fonction),
7054              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7055            ),
7056           VENDOCHAB       =FACT(statut='f',min=0,max=1,
7057              S_VP            =SIMP(statut='o',typ='R'),
7058              SEDVP1          =SIMP(statut='o',typ='R'),
7059              SEDVP2          =SIMP(statut='o',typ='R'),
7060              N_VP            =SIMP(statut='o',typ='R'),
7061              M_VP            =SIMP(statut='o',typ='R'),
7062              K_VP            =SIMP(statut='o',typ='R'),
7063              R_D             =SIMP(statut='o',typ='R'),
7064              A_D             =SIMP(statut='o',typ='R'),
7065              K_D             =SIMP(statut='o',typ='R'),
7066            ),
7067            VENDOCHAB_FO    =FACT(statut='f',min=0,max=1,
7068              S_VP            =SIMP(statut='o',typ=fonction),
7069              SEDVP1          =SIMP(statut='o',typ=fonction),
7070              SEDVP2          =SIMP(statut='o',typ=fonction),
7071              N_VP            =SIMP(statut='o',typ=fonction),
7072              M_VP            =SIMP(statut='o',typ=fonction),
7073              K_VP            =SIMP(statut='o',typ=fonction),
7074              R_D             =SIMP(statut='o',typ=fonction),
7075              A_D             =SIMP(statut='o',typ=fonction),
7076              K_D             =SIMP(statut='o',typ=fonction),
7077              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7078              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="X",into=("X",) ),
7079            ),
7080            PINTO_MENEGOTTO =FACT(statut='f',min=0,max=1,
7081              SY              =SIMP(statut='o',typ='R'),
7082              EPSI_ULTM       =SIMP(statut='o',typ='R'),
7083              SIGM_ULTM       =SIMP(statut='o',typ='R'),
7084              ELAN            =SIMP(statut='f',typ='R',defaut= 4. ),
7085              EPSP_HARD       =SIMP(statut='o',typ='R'),
7086              R_PM            =SIMP(statut='f',typ='R',defaut= 20. ),
7087              EP_SUR_E        =SIMP(statut='f',typ='R'),
7088              A1_PM           =SIMP(statut='f',typ='R',defaut= 18.5 ),
7089              A2_PM           =SIMP(statut='f',typ='R',defaut= 0.15 ),
7090              A6_PM           =SIMP(statut='f',typ='R',defaut= 620. ),
7091              C_PM            =SIMP(statut='f',typ='R',defaut= 0.5 ),
7092              A_PM            =SIMP(statut='f',typ='R',defaut= 6.0E-3 ),
7093            ),
7094            BPEL_BETON      =FACT(statut='f',min=0,max=1,
7095              PERT_FLUA       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7096              PERT_RETR       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7097            ),
7098            BPEL_ACIER      =FACT(statut='f',min=0,max=1,
7099              RELAX_1000      =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7100              MU0_RELAX       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7101              SY              =SIMP(statut='o',typ='R'),
7102              FROT_COURB      =SIMP(statut='o',typ='R'),
7103              FROT_LINE       =SIMP(statut='o',typ='R'),
7104            ),
7105            CAM_CLAY      =FACT(statut='f',min=0,max=1,
7106              PORO            =SIMP(statut='o',typ='R'),
7107              LAMBDA          =SIMP(statut='o',typ='R'),
7108              KAPA            =SIMP(statut='o',typ='R'),
7109              M               =SIMP(statut='o',typ='R'),
7110              PRES_CRIT       =SIMP(statut='o',typ='R'),
7111              PA              =SIMP(statut='o',typ='R'),
7112            ),
7113            CJS             =FACT(statut='f',min=0,max=1,
7114              BETA_CJS        =SIMP(statut='o',typ='R'),
7115              RM              =SIMP(statut='o',typ='R'),
7116              N_CJS           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7117              KP              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7118              RC              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7119              A_CJS           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7120              B_CJS           =SIMP(statut='f',typ='R',defaut= 1.0E+25 ),
7121              C_CJS           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7122              GAMMA_CJS       =SIMP(statut='o',typ='R'),
7123              MU_CJS          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7124              PCO             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7125              PA              =SIMP(statut='o',typ='R'),
7126              Q_INIT          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7127              R_INIT          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7128            ),
7129            ECRO_ASYM_LINE  =FACT(statut='f',min=0,max=1,
7130              DC_SIGM_EPSI    =SIMP(statut='o',typ='R'),
7131              SY_C            =SIMP(statut='o',typ='R'),
7132              DT_SIGM_EPSI    =SIMP(statut='o',typ='R'),
7133              SY_T            =SIMP(statut='o',typ='R'),
7134            ),
7135            GRANGER_FP      =FACT(statut='f',min=0,max=1,
7136              J1              =SIMP(statut='f',typ='R'),
7137              J2              =SIMP(statut='f',typ='R'),
7138              J3              =SIMP(statut='f',typ='R'),
7139              J4              =SIMP(statut='f',typ='R'),
7140              J5              =SIMP(statut='f',typ='R'),
7141              J6              =SIMP(statut='f',typ='R'),
7142              J7              =SIMP(statut='f',typ='R'),
7143              J8              =SIMP(statut='f',typ='R'),
7144              TAUX_1          =SIMP(statut='f',typ='R'),
7145              TAUX_2          =SIMP(statut='f',typ='R'),
7146              TAUX_3          =SIMP(statut='f',typ='R'),
7147              TAUX_4          =SIMP(statut='f',typ='R'),
7148              TAUX_5          =SIMP(statut='f',typ='R'),
7149              TAUX_6          =SIMP(statut='f',typ='R'),
7150              TAUX_7          =SIMP(statut='f',typ='R'),
7151              TAUX_8          =SIMP(statut='f',typ='R'),
7152              QSR_K           =SIMP(statut='f',typ='R'),
7153            ),
7154            V_GRANGER_FP    =FACT(statut='f',min=0,max=1,
7155              QSR_VEIL        =SIMP(statut='f',typ='R'),
7156              FONC_V          =SIMP(statut='f',typ=fonction),
7157              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
7158            ),
7159            GRANGER_FD      =FACT(statut='f',min=0,max=1,
7160              LAM_VISC      =SIMP(statut='o',typ='R'),
7161            ),
7162
7163 #
7164 # comportement thermique
7165 #
7166            THER_NL         =FACT(statut='f',min=0,max=1,
7167              regles=(UN_PARMI('BETA','RHO_CP', ),),
7168              LAMBDA          =SIMP(statut='o',typ=fonction),
7169              BETA            =SIMP(statut='f',typ=fonction),
7170              RHO_CP          =SIMP(statut='f',typ=fonction),
7171              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7172            ),
7173            THER_HYDR       =FACT(statut='f',min=0,max=1,
7174              LAMBDA          =SIMP(statut='o',typ=fonction),
7175              BETA            =SIMP(statut='f',typ=fonction),
7176              AFFINITE        =SIMP(statut='o',typ=fonction),
7177              CHALHYDR        =SIMP(statut='o',typ='R'),
7178              QSR_K           =SIMP(statut='o',typ='R'),
7179              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("HYDR",) ),
7180              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
7181            ),
7182            THER            =FACT(statut='f',min=0,max=1,
7183              LAMBDA          =SIMP(statut='o',typ='R'),
7184              RHO_CP          =SIMP(statut='f',typ='R'),
7185            ),
7186            THER_FO         =FACT(statut='f',min=0,max=1,
7187              LAMBDA          =SIMP(statut='o',typ=fonction),
7188              RHO_CP          =SIMP(statut='f',typ=fonction),
7189              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
7190            ),
7191            THER_ORTH       =FACT(statut='f',min=0,max=1,
7192              LAMBDA_L        =SIMP(statut='o',typ='R'),
7193              LAMBDA_T        =SIMP(statut='o',typ='R'),
7194              LAMBDA_N        =SIMP(statut='f',typ='R'),
7195              RHO_CP          =SIMP(statut='f',typ='R'),
7196            ),
7197            THER_COQUE      =FACT(statut='f',min=0,max=1,
7198              COND_LMM        =SIMP(statut='o',typ='R'),
7199              COND_TMM        =SIMP(statut='o',typ='R'),
7200              COND_LMP        =SIMP(statut='o',typ='R'),
7201              COND_TMP        =SIMP(statut='o',typ='R'),
7202              COND_LPP        =SIMP(statut='o',typ='R'),
7203              COND_TPP        =SIMP(statut='o',typ='R'),
7204              COND_LSI        =SIMP(statut='o',typ='R'),
7205              COND_TSI        =SIMP(statut='o',typ='R'),
7206              COND_NMM        =SIMP(statut='o',typ='R'),
7207              COND_NMP        =SIMP(statut='o',typ='R'),
7208              COND_NPP        =SIMP(statut='o',typ='R'),
7209              COND_NSI        =SIMP(statut='o',typ='R'),
7210              CMAS_MM         =SIMP(statut='f',typ='R'),
7211              CMAS_MP         =SIMP(statut='f',typ='R'),
7212              CMAS_PP         =SIMP(statut='f',typ='R'),
7213              CMAS_SI         =SIMP(statut='f',typ='R'),
7214            ),
7215            THER_COQUE_FO   =FACT(statut='f',min=0,max=1,
7216              COND_LMM        =SIMP(statut='o',typ=fonction),
7217              COND_TMM        =SIMP(statut='o',typ=fonction),
7218              COND_LMP        =SIMP(statut='o',typ=fonction),
7219              COND_TMP        =SIMP(statut='o',typ=fonction),
7220              COND_LPP        =SIMP(statut='o',typ=fonction),
7221              COND_TPP        =SIMP(statut='o',typ=fonction),
7222              COND_LSI        =SIMP(statut='o',typ=fonction),
7223              COND_TSI        =SIMP(statut='o',typ=fonction),
7224              COND_NMM        =SIMP(statut='o',typ=fonction),
7225              COND_NMP        =SIMP(statut='o',typ=fonction),
7226              COND_NPP        =SIMP(statut='o',typ=fonction),
7227              COND_NSI        =SIMP(statut='o',typ=fonction),
7228              CMAS_MM         =SIMP(statut='f',typ=fonction),
7229              CMAS_MP         =SIMP(statut='f',typ=fonction),
7230              CMAS_PP         =SIMP(statut='f',typ=fonction),
7231              CMAS_SI         =SIMP(statut='f',typ=fonction),
7232            ),
7233            SECH_GRANGER    =FACT(statut='f',min=0,max=1,
7234              A               =SIMP(statut='o',typ='R'),
7235              B               =SIMP(statut='o',typ='R'),
7236              QSR_K           =SIMP(statut='o',typ='R'),
7237              TEMP_0_C        =SIMP(statut='o',typ='R'),
7238            ),
7239            SECH_MENSI      =FACT(statut='f',min=0,max=1,
7240              A               =SIMP(statut='o',typ='R'),
7241              B               =SIMP(statut='o',typ='R'),
7242            ),
7243            SECH_BAZANT     =FACT(statut='f',min=0,max=1,
7244              D1              =SIMP(statut='o',typ='R'),
7245              ALPHA_BAZANT    =SIMP(statut='o',typ='R'),
7246              N               =SIMP(statut='o',typ='R'),
7247            ),
7248            SECH_NAPPE      =FACT(statut='f',min=0,max=1,
7249              FONCTION        =SIMP(statut='o',typ=fonction),
7250              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7251              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="TSEC",into=("TSEC",) ),
7252            ),
7253 #
7254 # comportement métallurgique
7255 #
7256            META_ACIER      =FACT(statut='f',min=0,max=1,
7257              TRC             =SIMP(statut='o',typ=(tabl_trc) ),
7258              AR3             =SIMP(statut='o',typ='R'),
7259              ALPHA           =SIMP(statut='o',typ='R'),
7260              MS0             =SIMP(statut='o',typ='R'),
7261              AC1             =SIMP(statut='o',typ='R'),
7262              AC3             =SIMP(statut='o',typ='R'),
7263              TAUX_1          =SIMP(statut='o',typ='R'),
7264              TAUX_3          =SIMP(statut='o',typ='R'),
7265              LAMBDA0         =SIMP(statut='f',typ='R'),
7266              QSR_K           =SIMP(statut='f',typ='R'),
7267              D10             =SIMP(statut='f',typ='R'),
7268              WSR_K           =SIMP(statut='f',typ='R'),
7269            ),
7270            META_ZIRC       =FACT(statut='f',min=0,max=1,
7271              TDEQ            =SIMP(statut='o',typ='R'),
7272              N               =SIMP(statut='o',typ='R'),
7273              K               =SIMP(statut='o',typ='R'),
7274              TDC             =SIMP(statut='o',typ='R'),
7275              AC              =SIMP(statut='o',typ='R'),
7276              M               =SIMP(statut='o',typ='R'),
7277              QSR_K           =SIMP(statut='f',typ='R'),
7278              TDR             =SIMP(statut='o',typ='R'),
7279              AR              =SIMP(statut='o',typ='R'),
7280              BR              =SIMP(statut='o',typ='R'),
7281            ),
7282            DURT_META       =FACT(statut='f',min=0,max=1,
7283              F1_DURT         =SIMP(statut='o',typ='R'),
7284              F2_DURT         =SIMP(statut='o',typ='R'),
7285              F3_DURT         =SIMP(statut='o',typ='R'),
7286              F4_DURT         =SIMP(statut='o',typ='R'),
7287              C_DURT          =SIMP(statut='o',typ='R'),
7288            ),
7289            ELAS_META       =FACT(statut='f',min=0,max=1,
7290              E               =SIMP(statut='o',typ='R'),
7291              NU              =SIMP(statut='o',typ='R'),
7292              F_ALPHA         =SIMP(statut='o',typ='R'),
7293              C_ALPHA         =SIMP(statut='o',typ='R'),
7294              PHASE_REFE      =SIMP(statut='o',typ='TXM',into=("CHAUD","FROID")),
7295              EPSF_EPSC_TREF  =SIMP(statut='o',typ='R'),
7296              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7297              F1_SY           =SIMP(statut='f',typ='R'),
7298              F2_SY           =SIMP(statut='f',typ='R'),
7299              F3_SY           =SIMP(statut='f',typ='R'),
7300              F4_SY           =SIMP(statut='f',typ='R'),
7301              C_SY            =SIMP(statut='f',typ='R'),
7302              SY_MELANGE      =SIMP(statut='f',typ=fonction),
7303              F1_S_VP         =SIMP(statut='f',typ='R'),
7304              F2_S_VP         =SIMP(statut='f',typ='R'),
7305              F3_S_VP         =SIMP(statut='f',typ='R'),
7306              F4_S_VP         =SIMP(statut='f',typ='R'),
7307              C_S_VP          =SIMP(statut='f',typ='R' ),
7308              S_VP_MELANGE    =SIMP(statut='f',typ=fonction),
7309              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="META",into=("META",)),
7310            ),
7311            ELAS_META_FO    =FACT(statut='f',min=0,max=1,
7312              regles=(
7313                       PRESENT_PRESENT('F_ALPHA','TEMP_DEF_ALPHA'),
7314                       PRESENT_PRESENT('C_ALPHA','TEMP_DEF_ALPHA'),
7315                     ),
7316              E               =SIMP(statut='o',typ=fonction),
7317              NU              =SIMP(statut='o',typ=fonction),
7318              F_ALPHA         =SIMP(statut='o',typ=fonction),
7319              C_ALPHA         =SIMP(statut='o',typ=fonction),
7320              PHASE_REFE      =SIMP(statut='o',typ='TXM',into=("CHAUD","FROID")),
7321              EPSF_EPSC_TREF  =SIMP(statut='o',typ='R'),
7322              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
7323              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7324              F1_SY           =SIMP(statut='f',typ=fonction),
7325              F2_SY           =SIMP(statut='f',typ=fonction),
7326              F3_SY           =SIMP(statut='f',typ=fonction),
7327              F4_SY           =SIMP(statut='f',typ=fonction),
7328              C_SY            =SIMP(statut='f',typ=fonction),
7329              SY_MELANGE      =SIMP(statut='f',typ=fonction),
7330              F1_S_VP         =SIMP(statut='f',typ=fonction),
7331              F2_S_VP         =SIMP(statut='f',typ=fonction),
7332              F3_S_VP         =SIMP(statut='f',typ=fonction),
7333              F4_S_VP         =SIMP(statut='f',typ=fonction),
7334              C_S_VP          =SIMP(statut='f',typ=fonction),
7335              S_VP_MELANGE    =SIMP(statut='f',typ=fonction),
7336              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7337              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="META",into=("META",)),
7338            ),
7339            META_ECRO_LINE  =FACT(statut='f',min=0,max=1,
7340              F1_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
7341              F2_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
7342              F3_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
7343              F4_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
7344              C_D_SIGM_EPSI   =SIMP(statut='f',typ=fonction),
7345              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7346            ),
7347            META_TRACTION   =FACT(statut='f',min=0,max=1,
7348              SIGM_F1         =SIMP(statut='f',typ=fonction),
7349              SIGM_F2         =SIMP(statut='f',typ=fonction),
7350              SIGM_F3         =SIMP(statut='f',typ=fonction),
7351              SIGM_F4         =SIMP(statut='f',typ=fonction),
7352              SIGM_C          =SIMP(statut='f',typ=fonction),
7353              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",)),
7354              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7355            ),
7356            META_VISC_FO    =FACT(statut='f',min=0,max=1,
7357              F1_ETA          =SIMP(statut='f',typ=fonction),
7358              F1_N            =SIMP(statut='f',typ=fonction),
7359              F1_C            =SIMP(statut='f',typ=fonction),
7360              F1_M            =SIMP(statut='f',typ=fonction),
7361              F2_ETA          =SIMP(statut='f',typ=fonction),
7362              F2_N            =SIMP(statut='f',typ=fonction),
7363              F2_C            =SIMP(statut='f',typ=fonction),
7364              F2_M            =SIMP(statut='f',typ=fonction),
7365              F3_ETA          =SIMP(statut='f',typ=fonction),
7366              F3_N            =SIMP(statut='f',typ=fonction),
7367              F3_C            =SIMP(statut='f',typ=fonction),
7368              F3_M            =SIMP(statut='f',typ=fonction),
7369              F4_ETA          =SIMP(statut='f',typ=fonction),
7370              F4_N            =SIMP(statut='f',typ=fonction),
7371              F4_C            =SIMP(statut='f',typ=fonction),
7372              F4_M            =SIMP(statut='f',typ=fonction),
7373              C_ETA           =SIMP(statut='f',typ=fonction),
7374              C_N             =SIMP(statut='f',typ=fonction),
7375              C_C             =SIMP(statut='f',typ=fonction),
7376              C_M             =SIMP(statut='f',typ=fonction),
7377              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7378            ),
7379            META_PT         =FACT(statut='f',min=0,max=1,
7380              F1_K            =SIMP(statut='f',typ='R'),
7381              F2_K            =SIMP(statut='f',typ='R'),
7382              F3_K            =SIMP(statut='f',typ='R'),
7383              F4_K            =SIMP(statut='f',typ='R'),
7384              F1_D_F_META     =SIMP(statut='f',typ=fonction),
7385              F2_D_F_META     =SIMP(statut='f',typ=fonction),
7386              F3_D_F_META     =SIMP(statut='f',typ=fonction),
7387              F4_D_F_META     =SIMP(statut='f',typ=fonction),
7388              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7389              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="META",into=("META",) ),
7390            ),
7391            META_RE         =FACT(statut='f',min=0,max=1,
7392              C_F1_THETA      =SIMP(statut='f',typ='R'),
7393              C_F2_THETA      =SIMP(statut='f',typ='R'),
7394              C_F3_THETA      =SIMP(statut='f',typ='R'),
7395              C_F4_THETA      =SIMP(statut='f',typ='R'),
7396              F1_C_THETA      =SIMP(statut='f',typ='R'),
7397              F2_C_THETA      =SIMP(statut='f',typ='R'),
7398              F3_C_THETA      =SIMP(statut='f',typ='R'),
7399              F4_C_THETA      =SIMP(statut='f',typ='R'),
7400            ),
7401 #
7402 # comportement fluide
7403 #
7404            FLUIDE          =FACT(statut='f',min=0,max=1,
7405              regles=(EXCLUS('CELE_C','CELE_R'),),
7406              RHO             =SIMP(statut='o',typ='R'),
7407              CELE_C          =SIMP(statut='f',typ='C'),
7408              CELE_R          =SIMP(statut='f',typ='R'),
7409            ),
7410            PORO_JOINT      =FACT(statut='f',min=0,max=1,
7411              RHO_FLUI        =SIMP(statut='o',typ='R'),
7412              ENTRO_FLUI      =SIMP(statut='o',typ='R'),
7413              BIOT_M          =SIMP(statut='o',typ='R'),
7414              C_0             =SIMP(statut='o',typ='R'),
7415              T_R             =SIMP(statut='o',typ='R'),
7416              ALPHA_M         =SIMP(statut='o',typ='R'),
7417              LAMBDA_T        =SIMP(statut='o',typ='R'),
7418              LAMBDA_H        =SIMP(statut='o',typ='R'),
7419              SOURCE_INIT     =SIMP(statut='o',typ='R'),
7420              OMEGA_0         =SIMP(statut='o',typ='R'),
7421            ),
7422            THM_LIQU        =FACT(statut='f',min=0,max=1,
7423              RHO             =SIMP(statut='o',typ='R'),
7424              UN_SUR_K        =SIMP(statut='f',typ='R'),
7425              ALPHA           =SIMP(statut='f',typ='R'),
7426              CP              =SIMP(statut='f',typ='R'),
7427              VISC            =SIMP(statut='f',typ=fonction),
7428              D_VISC_TEMP     =SIMP(statut='f',typ=fonction),
7429              LAMBDA          =SIMP(statut='f',typ=fonction),
7430              D_LAMBDA_TEMP   =SIMP(statut='f',typ=fonction),
7431              COEF_HENRY      =SIMP(statut='f',typ='R'),
7432              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7433            ),
7434            THM_GAZ         =FACT(statut='f',min=0,max=1,
7435              MASS_MOL        =SIMP(statut='f',typ='R'),
7436              CP              =SIMP(statut='f',typ='R'),
7437              VISC            =SIMP(statut='f',typ=fonction),
7438              D_VISC_TEMP     =SIMP(statut='f',typ=fonction),
7439              LAMBDA          =SIMP(statut='f',typ=fonction),
7440              D_LAMBDA_TEMP   =SIMP(statut='f',typ=fonction),
7441              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7442            ),
7443            THM_VAPE_GAZ    =FACT(statut='f',min=0,max=1,
7444              MASS_MOL        =SIMP(statut='f',typ='R'),
7445              CP              =SIMP(statut='f',typ='R'),
7446              VISC            =SIMP(statut='f',typ=fonction),
7447              D_VISC_TEMP     =SIMP(statut='f',typ=fonction),
7448              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7449            ),
7450            THM_INIT        =FACT(statut='f',min=0,max=1,
7451              TEMP            =SIMP(statut='o',typ='R'),
7452              PRE1            =SIMP(statut='o',typ='R'),
7453              PRE2            =SIMP(statut='o',typ='R'),
7454              PORO            =SIMP(statut='o',typ='R'),
7455              PRES_VAPE       =SIMP(statut='o',typ='R'),
7456              DEGR_SATU       =SIMP(statut='f',typ='R'),
7457              PRES_ATMO       =SIMP(statut='f',typ='R'),
7458            ),
7459            THM_DIFFU       =FACT(statut='f',min=0,max=1,
7460              R_GAZ           =SIMP(statut='o',typ='R'),
7461              RHO             =SIMP(statut='f',typ='R'),
7462              CP              =SIMP(statut='f',typ='R'),
7463              BIOT_COEF       =SIMP(statut='f',typ='R'),
7464              SATU_PRES       =SIMP(statut='f',typ=fonction),
7465              D_SATU_PRES     =SIMP(statut='f',typ=fonction),
7466              PESA_X          =SIMP(statut='f',typ='R'),
7467              PESA_Y          =SIMP(statut='f',typ='R'),
7468              PESA_Z          =SIMP(statut='f',typ='R'),
7469              PERM_IN         =SIMP(statut='f',typ=fonction),
7470              PERM_LIQU       =SIMP(statut='f',typ=fonction),
7471              D_PERM_LIQU_SATU=SIMP(statut='f',typ=fonction),
7472              PERM_GAZ        =SIMP(statut='f',typ=fonction),
7473              D_PERM_SATU_GAZ =SIMP(statut='f',typ=fonction),
7474              D_PERM_PRES_GAZ =SIMP(statut='f',typ=fonction),
7475              FICK            =SIMP(statut='f',typ=fonction),
7476              D_FICK_TEMP     =SIMP(statut='f',typ=fonction),
7477              D_FICK_GAZ_PRES =SIMP(statut='f',typ=fonction),
7478              LAMBDA          =SIMP(statut='f',typ=fonction),
7479              D_LAMBDA_TEMP   =SIMP(statut='f',typ=fonction),
7480              SIGMA_T         =SIMP(statut='f',typ=fonction),
7481              D_SIGMA_T       =SIMP(statut='f',typ=fonction),
7482              PERM_G_INTR     =SIMP(statut='f',typ=fonction),
7483              CHAL_VAPO       =SIMP(statut='f',typ=fonction),
7484              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7485              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="SAT",into=("SAT",) ),
7486              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="PORO",into=("PORO",) ),
7487              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="PGAZ",into=("PGAZ",) ),
7488              VERI_P5         =SIMP(statut='c',typ='TXM',defaut="PCAP",into=("PCAP",) ),
7489            ),
7490 #
7491 # courbes et coefficients associés à la fatigue et au dommage
7492 #
7493            FATIGUE         =FACT(statut='f',min=0,max=1,
7494              regles=(PRESENT_ABSENT('WOHLER','A_BASQUIN','BETA_BASQUIN'),
7495                      PRESENT_ABSENT('WOHLER','A0','A1','A2','A3','SL'),
7496                      PRESENT_ABSENT('A_BASQUIN','A0','A1','A2','A3','SL'),
7497                      ENSEMBLE('A_BASQUIN','BETA_BASQUIN'),
7498                      ENSEMBLE('A0','A1','A2','A3','SL'),
7499                      PRESENT_PRESENT('A0','E_REFE'),
7500                      ENSEMBLE('D0','TAU0'),),
7501              WOHLER          =SIMP(statut='f',typ=fonction),
7502              A_BASQUIN       =SIMP(statut='f',typ='R'),
7503              BETA_BASQUIN    =SIMP(statut='f',typ='R'),
7504              A0              =SIMP(statut='f',typ='R'),
7505              A1              =SIMP(statut='f',typ='R'),
7506              A2              =SIMP(statut='f',typ='R'),
7507              A3              =SIMP(statut='f',typ='R'),
7508              SL              =SIMP(statut='f',typ='R'),
7509              MANSON_COFFIN   =SIMP(statut='f',typ=fonction),
7510              E_REFE          =SIMP(statut='f',typ='R'),
7511              D0              =SIMP(statut='f',typ='R'),
7512              TAU0            =SIMP(statut='f',typ='R'),
7513              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="SIGM",into=("SIGM",) ),
7514              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",) ),
7515            ),
7516            DOMMA_LEMAITRE  =FACT(statut='f',min=0,max=1,
7517              S               =SIMP(statut='o',typ=fonction),
7518              EPSP_SEUIL      =SIMP(statut='o',typ='R'),
7519              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7520            ),
7521            CISA_PLAN_CRIT  =FACT(statut='f',min=0,max=1,
7522              MATAKE_A        =SIMP(statut='o',typ='R'),
7523              MATAKE_B        =SIMP(statut='o',typ='R'),
7524              ENDU_FT         =SIMP(statut='o',typ='R',val_min=1.0E0,val_max=1.7321E0),
7525            ),
7526 #
7527 # autres comportements ...
7528 #
7529            WEIBULL         =FACT(statut='f',min=0,max=1,
7530              M               =SIMP(statut='o',typ='R'),
7531              VOLU_REFE       =SIMP(statut='o',typ='R'),
7532              SIGM_REFE       =SIMP(statut='o',typ='R'),
7533              SEUIL_EPSP_CUMU =SIMP(statut='f',typ='R',defaut= 1.0E-6),
7534            ),
7535            WEIBULL_FO      =FACT(statut='f',min=0,max=1,
7536              M               =SIMP(statut='o',typ='R'),
7537              VOLU_REFE       =SIMP(statut='o',typ='R'),
7538              SIGM_CNV        =SIMP(statut='o',typ='R'),
7539              SIGM_REFE       =SIMP(statut='o',typ=fonction),
7540              SEUIL_EPSP_CUMU =SIMP(statut='f',typ='R',defaut= 1.0E-6),
7541              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7542            ),
7543            CONTACT         =FACT(statut='f',min=0,max=1,
7544              E_N             =SIMP(statut='o',typ='R'),
7545              E_T             =SIMP(statut='f',typ='R',defaut= 0.E+0),
7546              COULOMB         =SIMP(statut='f',typ='R',defaut= 0.E+0),
7547            ),
7548            NON_LOCAL       =FACT(statut='f',min=0,max=1,
7549              LONG_CARA       =SIMP(statut='o',typ='R'),
7550              COEF_RIGI_MINI  =SIMP(statut='f',typ='R'),
7551            ),
7552            RUPT_FRAG       =FACT(statut='f',min=0,max=1,
7553              GC              =SIMP(statut='o',typ='R'),
7554              SIGM_C          =SIMP(statut='f',typ='R'),
7555              SAUT_C          =SIMP(statut='f',typ='R'),
7556            ),
7557            RCCM            =FACT(statut='f',min=0,max=1,
7558              SY_02           =SIMP(statut='f',typ='R'),
7559              SM              =SIMP(statut='f',typ='R'),
7560              SU              =SIMP(statut='f',typ='R'),
7561              SC              =SIMP(statut='f',typ='R'),
7562              SH              =SIMP(statut='f',typ='R'),
7563              N_KE            =SIMP(statut='f',typ='R'),
7564              M_KE            =SIMP(statut='f',typ='R'),
7565            ),
7566            RCCM_FO         =FACT(statut='f',min=0,max=1,
7567              SY_02           =SIMP(statut='f',typ=fonction),
7568              SM              =SIMP(statut='f',typ=fonction),
7569              SU              =SIMP(statut='f',typ=fonction),
7570              S               =SIMP(statut='f',typ=fonction),
7571              N_KE            =SIMP(statut='f',typ=fonction),
7572              M_KE            =SIMP(statut='f',typ=fonction),
7573              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7574            ),
7575            LAIGLE          =FACT(statut='f',min=0,max=1,
7576              GAMMA_ULT       =SIMP(statut='o',typ='R'),
7577              GAMMA_E         =SIMP(statut='o',typ='R'),
7578              M_ULT           =SIMP(statut='o',typ='R'),
7579              M_E             =SIMP(statut='o',typ='R'),
7580              A_E             =SIMP(statut='o',typ='R'),
7581              M_PIC           =SIMP(statut='o',typ='R'),
7582              A_PIC           =SIMP(statut='o',typ='R'),
7583              ETA             =SIMP(statut='o',typ='R'),
7584              SIGMA_C         =SIMP(statut='o',typ='R'),
7585              GAMMA           =SIMP(statut='o',typ='R'),
7586              KSI             =SIMP(statut='o',typ='R'),
7587              GAMMA_CJS       =SIMP(statut='o',typ='R'),
7588              SIGMA_P1        =SIMP(statut='o',typ='R'),
7589              SIGMA_P2        =SIMP(statut='o',typ='R'),
7590              PA              =SIMP(statut='o',typ='R'),
7591            ),
7592            INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
7593 )  ;
7594 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
7595 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7596 # ======================================================================
7597 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7598 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7599 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7600 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7601 # (AT YOUR OPTION) ANY LATER VERSION.
7602 #
7603 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7604 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7605 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7606 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7607 #
7608 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7609 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7610 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7611 # ======================================================================
7612 DEFI_MODELE_GENE=OPER(nom="DEFI_MODELE_GENE",op= 126,sd_prod=modele_gene,
7613                       docu="U4.65.02-d",reentrant='n',
7614             UIinfo={"groupes":("Matrices/vecteurs",)},
7615          SOUS_STRUC      =FACT(statut='o',min=1,max='**',
7616            NOM             =SIMP(statut='o',typ='TXM' ),
7617            MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
7618            ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
7619            TRANS           =SIMP(statut='f',typ='R',max=3),
7620          ),
7621          LIAISON         =FACT(statut='o',min=1,max='**',
7622            SOUS_STRUC_1    =SIMP(statut='o',typ='TXM' ),
7623            INTERFACE_1     =SIMP(statut='o',typ='TXM' ),
7624            SOUS_STRUC_2    =SIMP(statut='o',typ='TXM' ),
7625            INTERFACE_2     =SIMP(statut='o',typ='TXM' ),
7626          ),
7627          VERIF           =FACT(statut='f',min=1,max='**',
7628 #  dans la doc U stop_erreur est obligatoire
7629            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7630            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
7631            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7632          ),
7633 )  ;
7634 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
7635 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7636 # ======================================================================
7637 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7638 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7639 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7640 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7641 # (AT YOUR OPTION) ANY LATER VERSION.
7642 #
7643 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7644 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7645 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7646 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7647 #
7648 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7649 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7650 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7651 # ======================================================================
7652 DEFI_NAPPE=OPER(nom="DEFI_NAPPE",op=   4,sd_prod=fonction,
7653                 fr="Définition des valeurs d une fonction de deux variables réelles",
7654                 docu="U4.31.03-g1",reentrant='n',
7655             UIinfo={"groupes":("Fonction",)},
7656          regles=(UN_PARMI('FONCTION','DEFI_FONCTION'),
7657                  EXCLUS('FONCTION','NOM_PARA_FONC',),
7658                  ENSEMBLE('NOM_PARA_FONC','DEFI_FONCTION'),),
7659          NOM_PARA        =SIMP(statut='o',typ='TXM',into=("TEMP","INST","X","Y","Z","FREQ","PULS",
7660                                                           "AMOR","EPAIS","TSEC","HYDR","SECH",
7661                                                           "SAT", "PGAZ","PCAP"
7662                                                           ) ),
7663          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
7664          PARA            =SIMP(statut='o',typ='R',max='**'),
7665          FONCTION        =SIMP(statut='f',typ=fonction,max='**' ),
7666          NOM_PARA_FONC   =SIMP(statut='f',typ='TXM',into=("TEMP","INST","X","Y","Z","EPSI","FREQ",
7667                                                           "PULS","AMOR","EPAIS","SAT", "PGAZ","PCAP") ),
7668          DEFI_FONCTION   =FACT(statut='f',max='**',
7669            VALE            =SIMP(statut='o',typ='R',max='**'),
7670            INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
7671            PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7672            PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7673          ),
7674          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
7675          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7676          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7677          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
7678          VERIF           =SIMP(statut='f',typ='TXM',into=("CROISSANT",) ),
7679          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7680 )  ;
7681 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
7682 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7683 # ======================================================================
7684 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7685 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7686 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7687 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7688 # (AT YOUR OPTION) ANY LATER VERSION.
7689 #
7690 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7691 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7692 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7693 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7694 #
7695 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7696 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7697 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7698 # ======================================================================
7699 DEFI_OBSTACLE=OPER(nom="DEFI_OBSTACLE",op=  73,sd_prod=obstacle
7700                     ,fr="Définition d un obstacle plan perpendiculaire à une structure filaire",
7701                      docu="U4.44.21-e",reentrant='n',
7702             UIinfo={"groupes":("Modélisation",)},
7703          TYPE            =SIMP(statut='o',typ='TXM',defaut="CERCLE",
7704                              into=("CERCLE","PLAN_Y","PLAN_Z","DISCRET",
7705                              "BI_CERCLE","BI_PLAN_Y","BI_PLAN_Z","BI_CERC_INT",
7706                              "CRAYON_900","CRAYON_1300","GUID_A_CARTE_900",
7707                              "GUID_B_CARTE_900","GUID_C_CARTE_900",
7708                              "GUID_D_CARTE_900","GUID_E_CARTE_900",
7709                              "GUID_F_CARTE_900","GUID_A_CARTE_1300",
7710                              "GUID_B_CARTE_1300","GUID_C_CARTE_1300",
7711                              "GUID_D_CARTE_1300","GUID_E_CARTE_1300",
7712                              "GUID_F_CARTE_1300","GUID_A_CARSP_900",
7713                              "GUID_B_CARSP_900","GUID_C_CARSP_900",
7714                              "GUID_D_CARSP_900","GUID_E_CARSP_900",
7715                              "GUID_F_CARSP_900","GUID_A_CARSP_1300",
7716                              "GUID_B_CARSP_1300","GUID_C_CARSP_1300",
7717                              "GUID_D_CARSP_1300","GUID_E_CARSP_1300",
7718                              "GUID_F_CARSP_1300","GUID_A_GCONT_900",
7719                              "GUID_B_GCONT_900","GUID_C_GCONT_900",
7720                              "GUID_D_GCONT_900","GUID_E_GCONT_900",
7721                              "GUID_F_GCONT_900","GUID_A_GCONT_1300",
7722                              "GUID_B_GCONT_1300","GUID_C_GCONT_1300",
7723                              "GUID_D_GCONT_1300","GUID_E_GCONT_1300",
7724                              "GUID_F_GCONT_1300","GUID_A_GCOMB_900",
7725                              "GUID_B_GCOMB_900","GUID_C_GCOMB_900",
7726                              "GUID_D_GCOMB_900","GUID_E_GCOMB_900",
7727                              "GUID_F_GCOMB_900","GUID_A_GCOMB_1300",
7728                              "GUID_B_GCOMB_1300","GUID_C_GCOMB_1300",
7729                              "GUID_D_GCOMB_1300","GUID_E_GCOMB_1300",
7730                              "GUID_F_GCOMB_1300",) ),
7731          VALE            =SIMP(statut='f',typ='R',max='**'),
7732          VERIF           =SIMP(statut='f',typ='TXM',defaut="FERME"),
7733 )  ;
7734 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
7735 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7736 # ======================================================================
7737 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7738 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7739 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7740 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7741 # (AT YOUR OPTION) ANY LATER VERSION.
7742 #
7743 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7744 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7745 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7746 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7747 #
7748 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7749 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7750 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7751 # ======================================================================
7752 # RESPONSABLE GNICOLAS G.NICOLAS
7753 DEFI_PARA_SENSI=OPER(nom="DEFI_PARA_SENSI",op=   2,sd_prod=para_sensi,
7754                     fr="Définition d'un paramètre de sensibilité",
7755                     ang="Definition of a sensitive parameter",
7756                     docu="U4.31.xx-a",reentrant='n',
7757             UIinfo={"groupes":("Fonction",)},
7758          NOM_RESU        =SIMP(statut='c',typ='TXM',into=("TOUTRESU",),defaut="TOUTRESU",
7759                                fr="Nom du concept créé",
7760                                ang="Name of the concept"),
7761          VALE            =SIMP(statut='o',typ='R',max=1,
7762                                fr="Valeur du parametre",
7763                                ang="Value of the parameter"),
7764          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7765 )  ;
7766 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
7767 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7768 # ======================================================================
7769 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7770 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7771 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7772 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7773 # (AT YOUR OPTION) ANY LATER VERSION.
7774 #
7775 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7776 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7777 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7778 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7779 #
7780 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7781 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7782 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7783 # ======================================================================
7784 DEFI_SPEC_TURB=OPER(nom="DEFI_SPEC_TURB",op= 145,sd_prod=spectre,
7785                     fr="Définition d'un spectre d'excitation turbulente",
7786                     docu="U4.44.31-c",reentrant='n',
7787             UIinfo={"groupes":("Modélisation",)},
7788          regles=(UN_PARMI('SPEC_LONG_COR_1','SPEC_LONG_COR_2','SPEC_LONG_COR_3',
7789                           'SPEC_LONG_COR_4','SPEC_CORR_CONV_1','SPEC_CORR_CONV_2',
7790                           'SPEC_FONC_FORME','SPEC_EXCI_POINT'),),
7791          SPEC_LONG_COR_1 =FACT(statut='f',max=1,
7792            LONG_COR        =SIMP(statut='o',typ='R' ),
7793            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
7794            VISC_CINE       =SIMP(statut='o',typ='R' ),
7795          ),
7796          SPEC_LONG_COR_2 =FACT(statut='f',max=1,
7797            regles=(ENSEMBLE('FREQ_COUP','PHI0','BETA' ),),
7798            LONG_COR        =SIMP(statut='o',typ='R' ),
7799            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
7800            FREQ_COUP       =SIMP(statut='f',typ='R',defaut= 0.1 ),
7801            PHI0            =SIMP(statut='f',typ='R',defaut= 1.5E-3 ),
7802            BETA            =SIMP(statut='f',typ='R',defaut= 2.7 ),
7803          ),
7804          SPEC_LONG_COR_3 =FACT(statut='f',max=1,
7805            regles=(ENSEMBLE('PHI0_1','BETA_1','PHI0_2','BETA_2','FREQ_COUP'),),
7806            LONG_COR        =SIMP(statut='o',typ='R' ),
7807            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
7808            FREQ_COUP       =SIMP(statut='f',typ='R',defaut= 0.2 ),
7809            PHI0_1          =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
7810            BETA_1          =SIMP(statut='f',typ='R',defaut= 0.5 ),
7811            PHI0_2          =SIMP(statut='f',typ='R',defaut= 4.E-5 ),
7812            BETA_2          =SIMP(statut='f',typ='R',defaut= 3.5 ),
7813          ),
7814          SPEC_LONG_COR_4 =FACT(statut='f',max=1,
7815            regles=(ENSEMBLE('BETA','GAMMA'),),
7816            LONG_COR        =SIMP(statut='o',typ='R' ),
7817            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
7818            TAUX_VIDE       =SIMP(statut='o',typ='R' ),
7819            BETA            =SIMP(statut='f',typ='R',defaut= 2. ),
7820            GAMMA           =SIMP(statut='f',typ='R',defaut= 4. ),
7821          ),
7822          SPEC_CORR_CONV_1=FACT(statut='f',max=1,
7823            LONG_COR_1      =SIMP(statut='o',typ='R' ),
7824            LONG_COR_2      =SIMP(statut='f',typ='R' ),
7825            VITE_FLUI       =SIMP(statut='o',typ='R' ),
7826            RHO_FLUI        =SIMP(statut='o',typ='R' ),
7827            FREQ_COUP       =SIMP(statut='f',typ='R' ),
7828            K               =SIMP(statut='f',typ='R',defaut= 5.8E-3 ),
7829            D_FLUI          =SIMP(statut='o',typ='R' ),
7830            COEF_VITE_FLUI_A=SIMP(statut='f',typ='R' ),
7831            COEF_VITE_FLUI_O=SIMP(statut='f',typ='R' ),
7832            METHODE         =SIMP(statut='f',typ='TXM',defaut="GENERALE",
7833                                  into=("AU_YANG","GENERALE","CORCOS") ),
7834          ),
7835          SPEC_CORR_CONV_2=FACT(statut='f',max=1,
7836            FONCTION        =SIMP(statut='o',typ=fonction ),
7837            VITE_FLUI       =SIMP(statut='o',typ='R' ),
7838            FREQ_COUP       =SIMP(statut='f',typ='R' ),
7839            METHODE         =SIMP(statut='f',typ='TXM',defaut="GENERALE",
7840                                  into=("AU_YANG","GENERALE","CORCOS",) ),
7841            COEF_VITE_FLUI_A=SIMP(statut='f',typ='R' ),
7842            COEF_VITE_FLUI_O=SIMP(statut='f',typ='R' ),
7843          ),
7844          SPEC_FONC_FORME =FACT(statut='f',max=1,
7845            regles=(UN_PARMI('INTE_SPEC','GRAPPE_1'),
7846                    ENSEMBLE('INTE_SPEC','FONCTION'),),
7847            INTE_SPEC       =SIMP(statut='f',typ=tabl_intsp ),
7848            FONCTION        =SIMP(statut='f',typ=fonction,max='**'),
7849            GRAPPE_1        =SIMP(statut='f',typ='TXM',into=("DEBIT_180","DEBIT_300",) ),
7850            NOEUD           =SIMP(statut='o',typ=no),
7851            CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
7852            MODELE          =SIMP(statut='o',typ=modele ),
7853          ),
7854          SPEC_EXCI_POINT =FACT(statut='f',max=1,
7855            regles=(UN_PARMI('INTE_SPEC','GRAPPE_2'),),
7856            INTE_SPEC       =SIMP(statut='f',typ=tabl_intsp ),
7857            GRAPPE_2        =SIMP(statut='f',typ='TXM',
7858                                  into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC",) ),
7859 #  Quels sont les statuts des mots cles à l interieur des deux blocs qui suivent
7860            b_inte_spec =BLOC(condition = "INTE_SPEC != None",
7861              NATURE          =SIMP(statut='o',typ='TXM',max='**',into=("FORCE","MOMENT",) ),
7862              ANGL            =SIMP(statut='o',typ='R',max='**'),
7863              NOEUD           =SIMP(statut='o',typ=no,max='**'),
7864            ),
7865            b_grappe_2      =BLOC(condition = "GRAPPE_2 != None",
7866              RHO_FLUI        =SIMP(statut='o',typ='R' ),
7867              NOEUD           =SIMP(statut='o',typ=no),
7868            ),
7869            CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
7870            MODELE          =SIMP(statut='o',typ=modele ),
7871          ),
7872          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7873 )  ;
7874 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
7875 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7876 # ======================================================================
7877 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7878 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7879 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7880 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7881 # (AT YOUR OPTION) ANY LATER VERSION.
7882 #
7883 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7884 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7885 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7886 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7887 #
7888 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7889 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7890 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7891 # ======================================================================
7892 DEFI_SQUELETTE=OPER(nom="DEFI_SQUELETTE",op= 110,sd_prod=squelette,
7893                     fr="Définition d un maillage de visualisation",
7894                     docu="U4.24.01-e",reentrant='n',
7895             UIinfo={"groupes":("Maillage",)},
7896          regles=(UN_PARMI('MODE_CYCL','MODELE_GENE','MAILLAGE'),
7897                  PRESENT_PRESENT('MODE_CYCL','SECTEUR'),
7898                  EXCLUS('SOUS_STRUC','SECTEUR'),
7899                  PRESENT_PRESENT('NOM_GROUP_MA','MODELE_GENE'),
7900                  PRESENT_PRESENT('NOM_GROUP_MA','SOUS_STRUC'),),
7901          MODE_CYCL       =SIMP(statut='f',typ=mode_cycl ),
7902          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
7903          SQUELETTE       =SIMP(statut='f',typ=squelette ),
7904          RECO_GLOBAL     =FACT(statut='f',min=1,max='**',
7905            regles=(EXCLUS('TOUT','GROUP_NO_1'),
7906                    PRESENT_PRESENT('GROUP_NO_1','GROUP_NO_2'),
7907                    PRESENT_PRESENT('GROUP_NO_1','SOUS_STRUC_1'),
7908                    PRESENT_PRESENT('GROUP_NO_2','SOUS_STRUC_2'),
7909                    PRESENT_PRESENT('SOUS_STRUC_1','SOUS_STRUC_2'),),
7910            TOUT            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",) ),
7911            GROUP_NO_1      =SIMP(statut='f',typ=grno),
7912            SOUS_STRUC_1    =SIMP(statut='f',typ='TXM' ),
7913            GROUP_NO_2      =SIMP(statut='f',typ=grno),
7914            SOUS_STRUC_2    =SIMP(statut='f',typ='TXM' ),
7915            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
7916            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7917            DIST_REFE       =SIMP(statut='f',typ='R' ),
7918          ),
7919          NOM_GROUP_MA    =FACT(statut='f',min=1,max='**',
7920            NOM             =SIMP(statut='o',typ='TXM' ),
7921            SOUS_STRUC      =SIMP(statut='o',typ='TXM' ),
7922            GROUP_MA        =SIMP(statut='o',typ=grma),
7923          ),
7924          EXCLUSIF        =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7925          MAILLAGE        =SIMP(statut='f',typ=maillage ),
7926          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
7927          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
7928          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7929          TRANS           =SIMP(statut='f',typ='R',min=3,max=3),
7930          ANGL_NAUT       =SIMP(statut='f',typ='R',min=3,max=3),
7931          SOUS_STRUC      =FACT(statut='f',min=1,max='**',
7932            NOM             =SIMP(statut='f',typ='TXM' ),
7933            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
7934            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
7935            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7936          ),
7937          SECTEUR         =FACT(statut='f',min=1,max='**',
7938            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
7939            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
7940            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7941          ),
7942          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7943 )  ;
7944 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
7945 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7946 # ======================================================================
7947 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7948 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7949 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7950 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7951 # (AT YOUR OPTION) ANY LATER VERSION.
7952 #
7953 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7954 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7955 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7956 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7957 #
7958 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7959 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7960 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7961 # ======================================================================
7962 DEFI_TEXTURE=OPER(nom="DEFI_TEXTURE",op= 181,sd_prod=tabl_texture,
7963                   fr=" ",docu="U4.43.05-a",reentrant='n',
7964             UIinfo={"groupes":("Modélisation",)},
7965          SYST_GLISSEMENT =FACT(statut='o',min=3,max=3,
7966            N               =SIMP(statut='o',typ='R',min=12,max=12 ),
7967            L               =SIMP(statut='o',typ='R',max='**' ),
7968          ),
7969          PLAN            =FACT(statut='o',min=40,max=40,
7970            ANGL_NAUT       =SIMP(statut='o',typ='R',max='**' ),
7971            PROPORTION      =SIMP(statut='o',typ='R' ),
7972          ),
7973          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
7974 )  ;
7975 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
7976 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7977 # ======================================================================
7978 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7979 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7980 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7981 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7982 # (AT YOUR OPTION) ANY LATER VERSION.
7983 #
7984 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7985 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7986 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7987 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7988 #
7989 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7990 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7991 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7992 # ======================================================================
7993 DEFI_THER_JOULE=OPER(nom="DEFI_THER_JOULE",op= 121,sd_prod=fonction,docu="U4.MK.20-d",reentrant='n',
7994             UIinfo={"groupes":("Outils métier",)},
7995                     fr="Calculer la fonction d évolution temporelle de température due à l effet JOULE dans un cable",
7996          LIST_INST       =SIMP(statut='o',typ=listr8),
7997          INST_CC_INIT    =SIMP(statut='f',typ='R',defaut= 0.0E+0 ),
7998          INST_CC_FIN     =SIMP(statut='f',typ='R',defaut= 1.0E+10),
7999          INST_RENC_INIT  =SIMP(statut='f',typ='R',defaut= 1.0E+10),
8000          INST_RENC_FIN   =SIMP(statut='f',typ='R',defaut= 1.0E+10),
8001          TEMP_EXT_POSE   =SIMP(statut='f',typ='R',defaut= 15.0E+0),
8002          TEMP_EXT        =SIMP(statut='f',typ='R',defaut= 15.0E+0),
8003          TEMP_RESI_REF   =SIMP(statut='f',typ='R',defaut= 20.0E+0),
8004          PARA_COND_1D    =FACT(statut='f',min=1,max='**',
8005            INTE_CC         =SIMP(statut='f',typ='R',defaut= 0.0E+0),
8006            INTE_RENC       =SIMP(statut='f',typ='R',defaut= 0.0E+0),
8007            A               =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8008            SECTION         =SIMP(statut='f',typ='TXM',defaut="CERCLE",into=("CERCLE",) ),
8009            RESI_R0         =SIMP(statut='f',typ='R',defaut= 0.0E+0),
8010            RESI_R1         =SIMP(statut='f',typ='R',defaut= 0.E+0),
8011            RHO_CP          =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8012            COEF_H          =SIMP(statut='f',typ='R',defaut= 40.0E+0),
8013            TEMP_INIT       =SIMP(statut='f',typ='R',defaut= 15.0E+0),
8014          ),
8015 )  ;
8016
8017 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
8018 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8019 # ======================================================================
8020 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8021 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8022 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8023 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8024 # (AT YOUR OPTION) ANY LATER VERSION.
8025 #
8026 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8027 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8028 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8029 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8030 #
8031 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8032 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8033 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8034 # ======================================================================
8035 DEFI_TRC=OPER(nom="DEFI_TRC",op=94,sd_prod=tabl_trc,docu="U4.43.04-e",reentrant='n',
8036             UIinfo={"groupes":("Modélisation",)},
8037               fr="Définition d un diagramme de transformations en refroidissement continu d un acier",
8038          HIST_EXP        =FACT(statut='o',min=1,max='**',
8039            VALE            =SIMP(statut='o',typ='R',max='**'),
8040          ),
8041          TEMP_MS         =FACT(statut='o',min=1,max='**',
8042            SEUIL           =SIMP(statut='o',typ='R'),
8043            AKM             =SIMP(statut='o',typ='R'),
8044            BKM             =SIMP(statut='o',typ='R'),
8045            TPLM            =SIMP(statut='o',typ='R'),
8046          ),
8047          GRAIN_AUST      =FACT(statut='f',min=1,max='**',
8048            DREF           =SIMP(statut='f',typ='R'),
8049            A              =SIMP(statut='f',typ='R'),
8050          ),
8051 )  ;
8052 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
8053 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8054 # ======================================================================
8055 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8056 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8057 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8058 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8059 # (AT YOUR OPTION) ANY LATER VERSION.
8060 #
8061 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8062 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8063 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8064 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8065 #
8066 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8067 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8068 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8069 # ======================================================================
8070 def defi_valeur_prod(self,IS=None,R8=None,TX=None,C8=None,LS=None):
8071   if IS != None  : return entier
8072   if R8 != None  : return reel
8073   if TX != None  : return chaine
8074   if C8 != None  : return complexe
8075   if LS != None  : return liste
8076   raise AsException("type de concept resultat non prevu")
8077
8078 DEFI_VALEUR=MACRO(nom="DEFI_VALEUR",op=-4,sd_prod=defi_valeur_prod,
8079                  fr="Affectation d une valeur à une variable Superviseur",
8080                  docu="U4.31.04-f1",reentrant='f',
8081             UIinfo={"groupes":("Fonction",)},
8082          regles=(UN_PARMI('IS','R8','TX','C8','LS'),),
8083          IS              =SIMP(statut='f',typ='I',max='**'),
8084          R8              =SIMP(statut='f',typ='R',max='**'),
8085          TX              =SIMP(statut='f',typ='TXM',max='**'),
8086          C8              =SIMP(statut='f',typ='C',max='**'),
8087          LS              =SIMP(statut='f',typ='L',max='**'),
8088 )  ;
8089 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
8090 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8091 # ======================================================================
8092 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8093 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8094 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8095 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8096 # (AT YOUR OPTION) ANY LATER VERSION.
8097 #
8098 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8099 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8100 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8101 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8102 #
8103 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8104 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8105 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8106 # ======================================================================
8107 DEFUFI=PROC(nom="DEFUFI",op=21,docu="U4.12.01-d",
8108             UIinfo={"groupes":("Gestion du travail",)},
8109             fr="Modification / ajout d une unité logique en sortie en complément de celles définies dans DEBUT",
8110          IMPRESSION      =FACT(statut='o',min=1,max='**',
8111            NOM             =SIMP(statut='o',typ='TXM',max='**'),
8112            UNITE           =SIMP(statut='o',typ='I' ),
8113          ),
8114 )  ;
8115 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
8116 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8117 # ======================================================================
8118 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8119 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8120 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8121 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8122 # (AT YOUR OPTION) ANY LATER VERSION.
8123 #
8124 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8125 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8126 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8127 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8128 #
8129 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8130 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8131 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8132 # ======================================================================
8133 DEPL_INTERNE=OPER(nom="DEPL_INTERNE",op=89,sd_prod=cham_no_depl_r,docu="U4.62.02-e",reentrant='n',
8134             UIinfo={"groupes":("Matrices/vecteurs",)},
8135                   fr="Récupération du champ de déplacement interne à une sous-structure",
8136          DEPL_GLOBAL     =SIMP(statut='o',typ=cham_no_depl_r),
8137          MAILLE          =SIMP(statut='o',typ=ma,max=1),
8138          NOM_CAS         =SIMP(statut='f',typ='TXM',defaut=" "),
8139 )  ;
8140 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
8141 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8142 # ======================================================================
8143 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8144 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8145 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8146 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8147 # (AT YOUR OPTION) ANY LATER VERSION.
8148 #
8149 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8150 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8151 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8152 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8153 #
8154 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8155 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8156 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8157 # ======================================================================
8158 DETRUIRE=PROC(nom="DETRUIRE",op=-7,docu="U4.14.01-d",
8159             UIinfo={"groupes":("Gestion du travail",)},
8160               fr="Destruction d un concept utilisateur dans la base GLOBALE",
8161              op_init=ops.detruire,
8162             CONCEPT     =FACT(statut='o',min=01,
8163             NOM         =SIMP(statut='o',typ=assd,max='**'),
8164         ),
8165 );
8166 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
8167 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8168 # ======================================================================
8169 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8170 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8171 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8172 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8173 # (AT YOUR OPTION) ANY LATER VERSION.
8174 #
8175 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8176 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8177 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8178 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8179 #
8180 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8181 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8182 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8183 # ======================================================================
8184 DIST_LIGN_3D=OPER(nom="DIST_LIGN_3D",op= 133,sd_prod=fonction,docu="U4.MK.30-d",reentrant='n',
8185             UIinfo={"groupes":("Outils métier",)},
8186                   fr="Calcul sous forme d une fonction du temps de la distance minimale entre deux structures filaires",
8187       regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),
8188               UN_PARMI('GROUP_MA_2','POIN_FIXE'),),
8189          MODELE          =SIMP(statut='o',typ=modele),
8190          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,evol_noli) ),
8191          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",)),
8192          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
8193          INST            =SIMP(statut='f',typ='R',max='**'),
8194          LIST_INST       =SIMP(statut='f',typ=listr8),
8195          LIST_ORDRE      =SIMP(statut='f',typ=listis),
8196          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
8197          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8198          GROUP_MA_1      =SIMP(statut='o',typ=grma,max='**'),
8199          GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
8200          POIN_FIXE       =SIMP(statut='f',typ='R',min=3,max=3),
8201          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
8202 )  ;
8203 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
8204 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8205 # ======================================================================
8206 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8207 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8208 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8209 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8210 # (AT YOUR OPTION) ANY LATER VERSION.
8211 #
8212 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8213 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8214 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8215 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8216 #
8217 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8218 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8219 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8220 # ======================================================================
8221 DYNA_ALEA_MODAL=OPER(nom="DYNA_ALEA_MODAL",op= 131,sd_prod=tabl_intsp
8222                     ,fr="Calcule la réponse spectrale d une structure linéaire sous une excitation connue par sa DSP",
8223                      docu="U4.53.22-d",reentrant='n',
8224             UIinfo={"groupes":("Résolution",)},
8225          BASE_MODALE     =FACT(statut='o',min=1,max=1,
8226            regles=(UN_PARMI('NUME_ORDRE','BANDE'),),
8227            MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
8228            BANDE           =SIMP(statut='f',typ='R',max=2),
8229            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
8230            b_bande =BLOC(condition = "BANDE != None",
8231              AMOR_UNIF       =SIMP(statut='o',typ='R' ),
8232            ),
8233            b_nume_ordre =BLOC(condition = "NUME_ORDRE != None",
8234              AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
8235            ),
8236          ),
8237          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,)),
8238          EXCIT           =FACT(statut='o',min=1,max=1,
8239            regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I'),
8240                    EXCLUS('CHAM_NO','NOEUD'),),
8241            DERIVATION      =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ) ),
8242            MODAL           =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8243 #  dans la doc U il y a plus de choix pour GRANDEUR
8244            GRANDEUR        =SIMP(statut='f',typ='TXM',defaut="DEPL_R",
8245                                  into=("DEPL_R","EFFO","SOUR_DEBI_VOLU","SOUR_DEBI_MASS","SOUR_PRESS","SOUR_FORCE")),
8246            INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
8247            NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
8248            OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG",) ),
8249 #  Toutes les regles ne semblent pas avoir été ecrites dans la doc U
8250            NUME_ORDRE_I    =SIMP(statut='f',typ='I',max='**'),
8251            NOEUD_I         =SIMP(statut='f',typ=no,max='**'),
8252            b_nume_ordre_i  =BLOC(condition = "NUME_ORDRE_I != None",
8253              NUME_ORDRE_J    =SIMP(statut='o',typ='I',max='**'),
8254            ),
8255            b_noeud_i       =BLOC(condition = "NOEUD_I != None",
8256              NOEUD_J         =SIMP(statut='o',typ=no,max='**'),
8257              NOM_CMP_I       =SIMP(statut='o',typ='TXM',max='**'),
8258              NOM_CMP_J       =SIMP(statut='o',typ='TXM',max='**'),
8259            ),
8260            CHAM_NO         =SIMP(statut='f',typ=cham_no),
8261            NOEUD           =SIMP(statut='f',typ=no,max='**'),
8262            b_noeud         =BLOC(condition = "NOEUD != None",
8263              NOM_CMP         =SIMP(statut='o',typ='TXM',max='**'),
8264            ),
8265          ),
8266          REPONSE         =FACT(statut='f',min=1,max=1,
8267 #           regles=(EXCLUS('FREQ_MIN','NB_POIN_MODE'),
8268 #                   EXCLUS('FREQ_MIN','FREQ_EXCIT'),
8269            regles=(ENSEMBLE('FREQ_MIN','FREQ_MAX'),),
8270 #  Toutes les regles ne semblent pas avoir été ecrites dans la doc U
8271            DERIVATION      =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ,) ),
8272            OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
8273            FREQ_MIN        =SIMP(statut='f',typ='R' ),
8274            FREQ_MAX        =SIMP(statut='f',typ='R' ),
8275            PAS             =SIMP(statut='f',typ='R' ),
8276            FREQ_EXCIT      =SIMP(statut='f',typ='TXM',defaut="AVEC",into=("AVEC","SANS") ),
8277            NB_POIN_MODE    =SIMP(statut='f',typ='I',defaut= 50 ),
8278          ),
8279          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8280          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
8281 )  ;
8282 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
8283 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8284 # ======================================================================
8285 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8286 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8287 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8288 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8289 # (AT YOUR OPTION) ANY LATER VERSION.
8290 #
8291 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8292 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8293 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8294 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8295 #
8296 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8297 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8298 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8299 # ======================================================================
8300 def dyna_line_harm_prod(MATR_MASS,**args):
8301   if AsType(MATR_MASS) == matr_asse_depl_r : return dyna_harmo
8302   if AsType(MATR_MASS) == matr_asse_depl_c : return dyna_harmo
8303   if AsType(MATR_MASS) == matr_asse_pres_c : return acou_harmo
8304   if AsType(MATR_MASS) == matr_asse_gene_r : return harm_gene
8305   raise AsException("type de concept resultat non prevu")
8306
8307 DYNA_LINE_HARM=OPER(nom="DYNA_LINE_HARM",op=  60,sd_prod=dyna_line_harm_prod,
8308                     fr="Réponse dynamique complexe d un système à une excitation harmonique",
8309                     docu="U4.53.11-e",reentrant='n',
8310             UIinfo={"groupes":("Résolution",)},
8311          regles=(PRESENT_ABSENT('AMOR_REDUIT','MATR_AMOR'),
8312                  PRESENT_ABSENT('AMOR_REDUIT','LIST_AMOR'),
8313                  PRESENT_ABSENT('MATR_AMOR','LIST_AMOR'),
8314                  UN_PARMI('FREQ','LIST_FREQ'),),
8315          MODELE          =SIMP(statut='f',typ=modele ),
8316          CHAM_MATER      =SIMP(statut='f',typ=cham_mater ),
8317          CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
8318          MATR_MASS       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_pres_c,matr_asse_gene_r ) ),
8319          MATR_RIGI       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_pres_c
8320                                               ,matr_asse_gene_r,matr_asse_gene_c ) ),
8321          MATR_AMOR       =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_pres_c,matr_asse_gene_r ) ),
8322          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
8323          LIST_AMOR       =SIMP(statut='f',typ=listr8 ),
8324          MATR_IMPE_PHI   =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_gene_r) ),
8325          FREQ            =SIMP(statut='f',typ='R',max='**'),
8326          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
8327          TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI",)),
8328          NOM_CHAM        =SIMP(statut='f',typ='TXM',max=3,into=("DEPL","VITE","ACCE") ),
8329          EXCIT           =FACT(statut='o',min=1,max='**',
8330            regles=(UN_PARMI('VECT_ASSE','CHARGE'),
8331                    UN_PARMI('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
8332            VECT_ASSE       =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_pres_c,vect_asse_gene ) ),
8333            CHARGE          =SIMP(statut='f',typ=char_meca ),
8334            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
8335            FONC_MULT_C     =SIMP(statut='f',typ=fonction_c ),
8336            COEF_MULT_C     =SIMP(statut='f',typ='C' ),
8337            FONC_MULT       =SIMP(statut='f',typ=fonction ),
8338            COEF_MULT       =SIMP(statut='f',typ='R' ),
8339            PHAS_DEG        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8340            PUIS_PULS       =SIMP(statut='f',typ='I',defaut= 0 ),
8341          ),
8342          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8343          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
8344                                fr="Liste des paramètres de sensibilité.",
8345                                ang="List of sensitivity parameters"),
8346 )  ;
8347 # Rajouter test icompatibilite vect_asse et sensibilite
8348 # Peut-on aussi rajouter ici le test d incompatibilite charge complexe - derivation
8349 #  presents dans le Fortran
8350 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
8351 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8352 # ======================================================================
8353 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8354 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8355 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8356 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8357 # (AT YOUR OPTION) ANY LATER VERSION.
8358 #
8359 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8360 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8361 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8362 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8363 #
8364 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8365 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8366 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8367 # ======================================================================
8368 DYNA_LINE_TRAN=OPER(nom="DYNA_LINE_TRAN",op=  48,sd_prod=dyna_trans,
8369                     fr="Réponse temporelle d un système à une excitation transitoire",
8370                     docu="U4.53.02-g1",reentrant='f',
8371             UIinfo={"groupes":("Résolution",)},
8372 #         regles=(UN_PARMI('WILSON','DIFF_CENTRE','ADAPT'),),
8373          regles=(UN_PARMI('NEWMARK','WILSON','DIFF_CENTRE','ADAPT'),),
8374          MODELE          =SIMP(statut='f',typ=modele ),
8375          CHAM_MATER      =SIMP(statut='f',typ=cham_mater ),
8376          CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
8377          MATR_MASS       =SIMP(statut='o',typ=matr_asse_depl_r ),
8378          MATR_RIGI       =SIMP(statut='o',typ=matr_asse_depl_r ),
8379          MATR_AMOR       =SIMP(statut='f',typ=matr_asse_depl_r ),
8380          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
8381          NEWMARK         =FACT(statut='f',min=1,max=1,
8382            ALPHA           =SIMP(statut='f',typ='R',defaut= 0.25 ),
8383            DELTA           =SIMP(statut='f',typ='R',defaut= 0.5 ),
8384          ),
8385          WILSON          =FACT(statut='f',min=1,max=1,
8386            THETA           =SIMP(statut='f',typ='R',defaut= 1.4 ),
8387          ),
8388          DIFF_CENTRE     =FACT(statut='f',min=1,max=1,
8389          ),
8390          ADAPT           =FACT(statut='f',min=1,max=1,
8391          ),
8392          ETAT_INIT       =FACT(statut='f',min=1,max=1,
8393            regles=(AU_MOINS_UN('DYNA_TRANS', 'DEPL_INIT', 'VITE_INIT',),
8394                    PRESENT_ABSENT('DYNA_TRANS', 'DEPL_INIT', 'VITE_INIT'),),
8395            DYNA_TRANS      =SIMP(statut='f',typ=dyna_trans ),
8396            b_dyna_trans    =BLOC(condition = "DYNA_TRANS != None",
8397              regles=(EXCLUS('NUME_INIT','INST_INIT' ),),
8398              NUME_INIT       =SIMP(statut='f',typ='I' ),
8399              INST_INIT       =SIMP(statut='f',typ='R' ),
8400              b_inst_init     =BLOC(condition = "INST_INIT != None",
8401                PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
8402                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8403              ),
8404            ),
8405            DEPL_INIT       =SIMP(statut='f',typ=(cham_no_depl_r) ),
8406            VITE_INIT       =SIMP(statut='f',typ=(cham_no_depl_r) ),
8407          ),
8408          EXCIT           =FACT(statut='f',min=1,max='**',
8409            regles=(UN_PARMI('CHARGE','VECT_ASSE'),
8410                    EXCLUS('CHARGE','COEF_MULT'),
8411                    EXCLUS('FONC_MULT','COEF_MULT'),
8412                    EXCLUS('ACCE','COEF_MULT'),
8413                    PRESENT_ABSENT('ACCE','FONC_MULT'),
8414                    PRESENT_PRESENT('ACCE','VITE','DEPL'),
8415                    PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
8416            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
8417            CHARGE          =SIMP(statut='f',typ=char_meca ),
8418            FONC_MULT       =SIMP(statut='f',typ=fonction ),
8419            COEF_MULT       =SIMP(statut='f',typ='R' ),
8420            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
8421            ACCE            =SIMP(statut='f',typ=fonction ),
8422            VITE            =SIMP(statut='f',typ=fonction ),
8423            DEPL            =SIMP(statut='f',typ=fonction ),
8424            MULT_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8425            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
8426            NOEUD           =SIMP(statut='f',typ=no,max='**'),
8427            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
8428          ),
8429          AMOR_MODAL      =FACT(statut='f',min=1,max=1,
8430            MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
8431            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
8432            NB_MODE         =SIMP(statut='f',typ='I',defaut= 9999 ),
8433            REAC_VITE       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8434          ),
8435 #  ce n est pas le mot clesolveur standard
8436          SOLVEUR         =FACT(statut='d',min=1,max=1,
8437            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8438            NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
8439            STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8440            RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8441            NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
8442          ),
8443          INCREMENT       =FACT(statut='o',min=1,max='**',
8444            regles=(UN_PARMI('LIST_INST','FONC_INST','PAS'),),
8445            LIST_INST       =SIMP(statut='f',typ=listr8 ),
8446            FONC_INST       =SIMP(statut='f',typ=fonction ),
8447            PAS             =SIMP(statut='f',typ='R' ),
8448            b_pas           =BLOC(condition = "PAS != None",
8449                INST_INIT       =SIMP(statut='f',typ='R' ),
8450                INST_FIN        =SIMP(statut='f',typ='R' ),
8451            ),
8452            b_list_fonc     =BLOC(condition = "LIST_INST != None or FONC_INST != None",
8453                regles=(EXCLUS('INST_FIN','NUME_FIN'),),
8454                NUME_FIN        =SIMP(statut='f',typ='I' ),
8455                INST_FIN        =SIMP(statut='f',typ='R' ),
8456            ),
8457            VITE_MIN        =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
8458            COEF_MULT_PAS   =SIMP(statut='f',typ='R',defaut= 1.1 ),
8459            COEF_DIVI_PAS   =SIMP(statut='f',typ='R',defaut= 1.33334 ),
8460            PAS_LIMI_RELA   =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8461            NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
8462            NMAX_ITER_PAS   =SIMP(statut='f',typ='I',defaut= 16 ),
8463            PAS_CALCUL      =SIMP(statut='f',typ='I',defaut= 1 ),
8464          ),
8465          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
8466            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH', ),),
8467            LIST_ARCH       =SIMP(statut='f',typ=listis ),
8468            PAS_ARCH        =SIMP(statut='f',typ='I' ),
8469            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","VITE","ACCE") ),
8470          ),
8471          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8472          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
8473 )  ;
8474 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
8475 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8476 # ======================================================================
8477 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8478 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8479 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8480 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8481 # (AT YOUR OPTION) ANY LATER VERSION.
8482 #
8483 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8484 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8485 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8486 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8487 #
8488 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8489 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8490 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8491 # ======================================================================
8492 DYNA_NON_LINE=OPER(nom="DYNA_NON_LINE",op= 70,sd_prod=evol_noli,reentrant='f',
8493                    fr="Analyse mécanique dynamique non linéaire",docu="U4.53.01-f2",
8494             UIinfo={"groupes":("Résolution",)},
8495          regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS',),
8496                  UN_PARMI('NEWMARK','HHT', ),),
8497          MODELE          =SIMP(statut='o',typ=modele),
8498          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
8499          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,)),
8500          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
8501          EXCIT           =FACT(statut='o',min=1,max='**',
8502            regles=(PRESENT_ABSENT('FONC_MULT','ACCE'),
8503                    PRESENT_PRESENT('ACCE','VITE','DEPL'),
8504                    PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
8505            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
8506                                  into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
8507            CHARGE          =SIMP(statut='o',typ=char_meca),
8508            FONC_MULT       =SIMP(statut='f',typ=fonction),
8509            DEPL            =SIMP(statut='f',typ=fonction),
8510            ACCE            =SIMP(statut='f',typ=fonction),
8511            VITE            =SIMP(statut='f',typ=fonction),
8512            MULT_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8513            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
8514            NOEUD           =SIMP(statut='f',typ=no,max='**'),
8515            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
8516          ),
8517          AMOR_MODAL      =FACT(statut='f',min=1,max=1,
8518            MODE_MECA       =SIMP(statut='f',typ=mode_meca),
8519            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**' ),
8520            NB_MODE         =SIMP(statut='f',typ='I',defaut= 9999 ),
8521            REAC_VITE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8522          ),
8523          VARI_COMM           =FACT(statut='f',
8524            regles=(AU_MOINS_UN('IRRA',),),
8525            IRRA     =SIMP(statut='f',typ=evol_varc),
8526          ),
8527          COMP_INCR       =FACT(statut='f',min=1,max='**',
8528            RELATION        =SIMP(statut='o',typ='TXM',defaut="VMIS_ISOT_TRAC",
8529                                  into=( "ELAS",
8530                                         "VMIS_ISOT_TRAC",
8531                                         "VMIS_ISOT_LINE",
8532                                         "VMIS_ECMI_TRAC",
8533                                         "VMIS_ECMI_LINE",
8534                                         "LABORD_1D",
8535                                         "ENDO_FRAGILE",
8536                                         "ENDO_ISOT_BETON",
8537                                         "MAZARS",
8538                                         "RUPT_FRAG",
8539                                         "BARENBLATT",
8540                                         "META_P_IL",
8541                                         "META_P_IL_PT",
8542                                         "META_P_IL_RE",
8543                                         "META_P_IL_PT_RE",
8544                                         "META_V_IL",
8545                                         "META_V_IL_PT",
8546                                         "META_V_IL_RE",
8547                                         "META_V_IL_PT_RE",
8548                                         "META_P_INL",
8549                                         "META_P_INL_PT",
8550                                         "META_P_INL_RE",
8551                                         "META_P_INL_PT_RE",
8552                                         "META_V_INL",
8553                                         "META_V_INL_PT",
8554                                         "META_V_INL_RE",
8555                                         "META_V_INL_PT_RE",
8556                                         "META_P_CL",
8557                                         "META_P_CL_PT",
8558                                         "META_P_CL_RE",
8559                                         "META_P_CL_PT_RE",
8560                                         "META_V_CL",
8561                                         "META_V_CL_PT",
8562                                         "META_V_CL_RE",
8563                                         "META_V_CL_PT_RE",
8564                                         "VMIS_CINE_LINE",
8565                                         "VISC_TAHERI",
8566                                         "CHABOCHE",
8567                                         "VISCOCHAB",
8568                                         "VISC_CIN1_CHAB",
8569                                         "VISC_CIN2_CHAB",
8570                                         "POLY_CFC",
8571                                         "LMARC",
8572                                         "ROUSSELIER",
8573                                         "ROUSS_PR",
8574                                         "ROUSS_VISC",
8575                                         "VMIS_POU_LINE",
8576                                         "VMIS_POU_FLEJOU",
8577                                         "COULOMB",
8578                                         "ARME",
8579                                         "ASSE_CORN",
8580                                         "NORTON_HOFF",
8581                                         "LEMAITRE",
8582                                         "ZIRC_CYRA2",
8583                                         "ZIRC_EPRI",
8584                                         "ASSE_COMBU",
8585                                         "VENDOCHAB",
8586                                         "NADAI_B",
8587                                         "DIS_CONTACT",
8588                                         "DIS_CHOC",
8589                                         "DIS_GOUJ2E_PLAS",
8590                                         "DIS_GOUJ2E_ELAS",
8591                                         "GRILLE_ISOT_LINE",
8592                                         "GRILLE_CINE_LINE",
8593                                         "GRILLE_PINTO_MEN",
8594                                         "PINTO_MENEGOTTO",
8595                                         "CJS",
8596                                         "CAM_CLAY",
8597                                         "LAIGLE",
8598                                         "OHNO",
8599                                         "GRANGER_FP",
8600                                         "GRANGER_FP_V",
8601                                         "GRANGER_FD",
8602                                         "BETON_DOUBLE_DP",
8603                                         "KIT_HM",
8604                                         "KIT_HHM",
8605                                         "KIT_THH",
8606                                         "KIT_THV",
8607                                         "KIT_THM",
8608                                         "KIT_THHM",
8609                                         "VMIS_ASYM_LINE",
8610                                         "ELAS_THM",
8611                                         "SURF_ETAT_NSAT",
8612                                         "SURF_ETAT_SATU",
8613                                         "CAM_CLAY_THM",
8614                                         "KIT_DDI",
8615                                      ) ),
8616           ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8617           VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8618           VMIS_ISOT_LINE  =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8619           VMIS_ECMI_TRAC  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8620           VMIS_ECMI_LINE  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8621           LABORD_1D   =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
8622           ENDO_FRAGILE    =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8623           ENDO_ISOT_BETON =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8624           MAZARS          =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8625           RUPT_FRAG       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8626           BARENBLATT      =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8627           META_P_IL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8628           META_P_IL_PT       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8629           META_P_IL_RE       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8630           META_P_IL_PT_RE    =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8631           META_V_IL          =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8632           META_V_IL_PT       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8633           META_V_IL_RE       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8634           META_V_IL_PT_RE    =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8635           META_P_INL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8636           META_P_INL_PT      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8637           META_P_INL_RE      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8638           META_P_INL_PT_RE   =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8639           META_V_INL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8640           META_V_INL_PT      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8641           META_V_INL_RE      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8642           META_V_INL_PT_RE   =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8643           META_P_CL          =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8644           META_P_CL_PT       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8645           META_P_CL_RE       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8646           META_P_CL_PT_RE    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8647           META_V_CL          =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8648           META_V_CL_PT       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8649           META_V_CL_RE       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8650           META_V_CL_PT_RE    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8651           VMIS_CINE_LINE  =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
8652           CHABOCHE        =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
8653           VISCOCHAB       =SIMP(statut='c',typ='I',defaut=28,into=(28,)),
8654           VISC_CIN1_CHAB  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8655           VISC_CIN2_CHAB  =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
8656           POLY_CFC        =SIMP(statut='c',typ='I',defaut=1688,into=(1688,)),
8657           LMARC           =SIMP(statut='c',typ='I',defaut=20,into=(20,)),
8658           VISC_TAHERI     =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
8659           ROUSSELIER      =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
8660           ROUSS_PR        =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8661           ROUSS_VISC      =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8662           VMIS_POU_LINE   =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
8663           VMIS_POU_FLEJOU =SIMP(statut='c',typ='I',defaut=9 ,into=(9,)),
8664           COULOMB         =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8665           ASSE_CORN       =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8666           ARME            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8667           NORTON_HOFF     =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8668           LEMAITRE        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8669           ZIRC_CYRA2      =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8670           ZIRC_EPRI       =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8671           ASSE_COMBU      =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
8672           NADAI_B         =SIMP(statut='c',typ='I',defaut=34,into=(34,)),
8673           VENDOCHAB       =SIMP(statut='c',typ='I',defaut=10,into=(10,)),
8674           GRILLE_ISOT_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8675           GRILLE_CINE_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8676           GRILLE_PINTO_MEN=SIMP(statut='c',typ='I',defaut=16,into=(16,)),
8677           DIS_CONTACT     =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8678           DIS_CHOC        =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
8679           DIS_GOUJ2E_PLAS =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8680           DIS_GOUJ2E_ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8681           PINTO_MENEGOTTO =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8682           CJS             =SIMP(statut='c',typ='I',defaut=16,into=(16,)),
8683           CAM_CLAY        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8684           LAIGLE          =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8685           OHNO            =SIMP(statut='c',typ='I',defaut=32,into=(32,)),
8686           GRANGER_FP      =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
8687           GRANGER_FP_V    =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
8688           GRANGER_FD       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8689           BETON_DOUBLE_DP =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8690           KIT_HM          =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8691           KIT_HHM         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8692           KIT_THH         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8693           KIT_THV         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8694           KIT_THM         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8695           KIT_THHM        =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8696           VMIS_ASYM_LINE  =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8697
8698            RELATION_KIT    =SIMP(statut='f',typ='TXM',max='**',
8699                                  into=(
8700 # MECA
8701                                        "ELAS",
8702                                        "CJS",
8703                                        "CAM_CLAY",
8704                                        "LAIGLE",
8705                                        "ELAS_THM",
8706                                        "SURF_ETAT_NSAT",
8707                                        "SURF_ETAT_SATU",
8708                                        "CAM_CLAY_THM",
8709 # THMC
8710                                        "GAZ",
8711                                        "LIQU_SATU",
8712                                        "LIQU_SATU_GAT",
8713                                        "LIQU_GAZ_ATM",
8714                                        "LIQU_VAPE_GAZ",
8715                                        "LIQU_VAPE",
8716                                        "LIQU_NSAT_GAT",
8717                                        "LIQU_GAZ",
8718 # THER
8719                                        "THER_HOMO",
8720                                        "THER_POLY",
8721 # HYDR
8722                                        "HYDR_UTIL",
8723                                        "HYDR",
8724 # MECA_META
8725                                        "ACIER",
8726                                        "ZIRC",
8727 # MECA KIT_DDI
8728                                        "VMIS_ISOT_TRAC",
8729                                        "VMIS_ISOT_LINE",
8730                                        "VMIS_ISOT_CINE",
8731                                        "GRANGER_FP",
8732                                        "GRANGER_FP_V",
8733                                        "ROUSSELIER",
8734                                        "CHABOCHE",
8735                                        "OHNO",
8736                                        "NADAI_B",
8737                                        "BETON_DOUBLE_DP",
8738                                        ) ),
8739            ELAS_THM        =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8740            SURF_ETAT_NSAT  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8741            SURF_ETAT_SATU  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8742            CAM_CLAY_THM    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8743            GAZ             =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8744            LIQU_SATU       =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8745            LIQU_SATU_GAT   =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8746            LIQU_GAZ_ATM    =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8747            LIQU_VAPE_GAZ   =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8748            LIQU_VAPE       =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8749            LIQU_NSAT_GAT   =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8750            LIQU_GAZ        =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8751            THER_HOMO       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8752            THER_POLY       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8753            HYDR_UTIL       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8754            HYDR            =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8755            ACIER           =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
8756            ZIRC            =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8757
8758            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC","SIMO_MIEHE","GREEN_GR","GREEN",)),
8759            ALGO_C_PLAN     =SIMP(statut='f',typ='TXM',defaut="ANALYTIQUE",into=("DEBORST","ANALYTIQUE",)),
8760       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
8761            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8762            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
8763            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
8764          ),
8765          COMP_ELAS       =FACT(statut='f',min=1,max='**',
8766            RELATION        =SIMP(statut='o',typ='TXM',defaut="ELAS",
8767                                  into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
8768                                        "ELAS_POUTRE_GR","CABLE")),
8769            ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8770            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8771            ELAS_VMIS_LINE  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8772            ELAS_POUTRE_GR  =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8773            CABLE           =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8774            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GREEN","GREEN_GR",) ),
8775       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
8776            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8777            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
8778            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
8779          ),
8780 #-------------------------------------------------------------------
8781          ETAT_INIT       =FACT(statut='f',min=1,max=1,
8782            regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','VITE','SIGM','VARI','VARI_NON_LOCAL',),
8783                    EXCLUS('EVOL_NOLI','DEPL',),
8784                    EXCLUS('EVOL_NOLI','VITE'),
8785                    EXCLUS('EVOL_NOLI','SIGM',),
8786                    EXCLUS('EVOL_NOLI','VARI',),
8787                    EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
8788                    EXCLUS('NUME_ORDRE','INST'), ),
8789            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
8790            VITE            =SIMP(statut='f',typ=cham_no_depl_r),
8791            SIGM            =SIMP(statut='f',typ=(cham_elem_sief_r,carte_sief_r)),
8792            VARI            =SIMP(statut='f',typ=cham_elem_vari_r),
8793            VARI_NON_LOCAL  =SIMP(statut='f',typ=cham_no_vanl_r),
8794            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
8795            NUME_ORDRE      =SIMP(statut='f',typ='I'),
8796            INST            =SIMP(statut='f',typ='R'),
8797            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
8798            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8799            NUME_DIDI       =SIMP(statut='f',typ='I'),
8800            INST_ETAT_INIT  =SIMP(statut='f',typ='R'),
8801          ),
8802 #-------------------------------------------------------------------
8803          INCREMENT       =FACT(statut='o',min=1,max=1,
8804            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
8805                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
8806            LIST_INST       =SIMP(statut='o',typ=listr8),
8807            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
8808                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
8809            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
8810            INST_INIT       =SIMP(statut='f',typ='R'),
8811            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
8812            INST_FIN        =SIMP(statut='f',typ='R'),
8813            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
8814            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
8815            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
8816            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8817            OPTI_LIST_INST  =SIMP(statut='f',typ='TXM',into=("INCR_MAXI",),),
8818            NOM_CHAM        =SIMP(statut='f',typ='TXM',),
8819            NOM_CMP         =SIMP(statut='f',typ='TXM',),
8820            VALE            =SIMP(statut='f',typ='R'),
8821          ),
8822 #-------------------------------------------------------------------
8823          NEWMARK         =FACT(statut='f',min=1,max=1,
8824            ALPHA           =SIMP(statut='f',typ='R',defaut= 0.25),
8825            DELTA           =SIMP(statut='f',typ='R',defaut= 0.5),
8826          ),
8827          HHT             =FACT(statut='f',min=1,max=1,
8828            ALPHA           =SIMP(statut='f',typ='R'
8829                                 ,defaut= -0.29999999999999999 ),
8830          ),
8831          NEWTON          =FACT(statut='d',min=1,max=1,
8832            REAC_INCR       =SIMP(statut='f',typ='I',defaut= 1 ),
8833            PREDICTION      =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE") ),
8834            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
8835            REAC_ITER       =SIMP(statut='f',typ='I',defaut= 0),
8836            PAS_MINI_ELAS   =SIMP(statut='f',typ='R',defaut=0.0E+0),
8837          ),
8838          SOLVEUR         =FACT(statut='d',min=1,max=1,
8839            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
8840            b_mult_front    =BLOC(condition= "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
8841              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
8842            ),
8843            b_ldlt          =BLOC(condition= "METHODE == 'LDLT'",fr="Paramètres de la méthode LDLT",
8844              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8845            ),
8846            b_ldlt_mult     =BLOC(condition="METHODE == 'LDLT' or METHODE == 'MULT_FRONT'",
8847                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
8848              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
8849              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","DECOUPE") ),
8850            ),
8851            b_gcpc          =BLOC(condition="METHODE == 'GCPC'",fr="Paramètres de la méthode du gradient conjugué",
8852              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
8853              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
8854              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
8855              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8856              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
8857            ),
8858            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8859            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8860          ),
8861 #-------------------------------------------------------------------
8862          RECH_LINEAIRE   =FACT(statut='f',min=1,max=1,
8863            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
8864            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 3),
8865          ),
8866          PILOTAGE        =FACT(statut='f',min=1,max=1,
8867            regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
8868            TYPE            =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","PRED_ELAS_INCR","DEFORMATION") ),
8869            COEF_MULT       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8870            ETA_PILO_MAX    =SIMP(statut='f',typ='R'),
8871            ETA_PILO_MIN    =SIMP(statut='f',typ='R'),
8872            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8873            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
8874            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
8875            NOEUD           =SIMP(statut='f',typ=no,max='**'),
8876            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
8877            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**' ),
8878                          ),
8879          CONVERGENCE     =FACT(statut='d',min=1,max=1,
8880            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
8881            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
8882            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
8883            ITER_GLOB_ELAS  =SIMP(statut='f',typ='I',defaut=25),
8884            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
8885            RESI_INTE_RELA  =SIMP(statut='f',typ='R'
8886                                 ,defaut= 1.0E-6),
8887            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
8888            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut= 0 ),
8889            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
8890            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
8891                                  into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
8892          ),
8893 #-------------------------------------------------------------------
8894          OPTION          =SIMP(statut='f',typ='TXM',max='**',defaut="ELNO",
8895                                into=("SIEF_ELNO_ELGA","VARI_ELNO_ELGA","EFGE_ELNO_CART","ELNO","SANS") ),
8896          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
8897            regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
8898                    EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
8899            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
8900            INST            =SIMP(statut='f',typ='R',max='**' ),
8901            PAS_ARCH        =SIMP(statut='f',typ='I' ),
8902            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
8903            ARCH_ETAT_INIT  =SIMP(statut='f',typ='TXM',into=("OUI",)),
8904            NUME_INIT       =SIMP(statut='f',typ='I'),
8905            DETR_NUME_SUIV  =SIMP(statut='f',typ='TXM',into=("OUI",)),
8906            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**',
8907            into=("DEPL","SIEF_ELGA","VARI_ELGA","ACCE","VITE","VARI_NON_LOCAL","LANL_ELGA")),
8908          ),
8909          OBSERVATION     =FACT(statut='f',min=1,max='**',
8910            regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
8911                    PRESENT_PRESENT('MAILLE','POINT'),),
8912            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
8913
8914 into=("DEPL","VITE","ACCE","SIEF_ELGA","VARI_ELGA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU") ),
8915            NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
8916            LIST_ARCH       =SIMP(statut='f',typ=listis),
8917            LIST_INST       =SIMP(statut='f',typ=listr8),
8918            INST            =SIMP(statut='f',typ='R',max='**' ),
8919            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
8920            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8921            PAS_OBSE        =SIMP(statut='f',typ='I'),
8922            NOEUD           =SIMP(statut='f',typ=no,max='**'),
8923            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
8924            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
8925            POINT           =SIMP(statut='f',typ='I',max='**'),
8926          ),
8927 #-------------------------------------------------------------------
8928            SOLV_NON_LOCAL  =FACT(statut='f',min=1,max=1,
8929              METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
8930              b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
8931                RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
8932              ),
8933              b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
8934                RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8935              ),
8936              b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
8937                                     fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
8938                NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
8939                STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8940              ),
8941              b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
8942                PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
8943                NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
8944                RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8945                NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
8946              ),
8947              EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8948            ),
8949            LAGR_NON_LOCAL  =FACT(statut='f',max=1,
8950              ITER_DUAL_MAXI  =SIMP(statut='f',typ='I',defaut= 50),
8951              RESI_DUAL_ABSO  =SIMP(statut='o',typ='R'),
8952              RESI_PRIM_ABSO  =SIMP(statut='o',typ='R'),
8953              R               =SIMP(statut='f',typ='R',defaut= 1000.),
8954              ITER_PRIM_MAXI  =SIMP(statut='f',typ='I',defaut= 10),
8955            ),
8956 #-------------------------------------------------------------------
8957          PARM_THETA      =SIMP(statut='f',typ='R'
8958                               ,defaut= 1. ),
8959 #-------------------------------------------------------------------
8960          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
8961          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8962 )  ;
8963 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
8964 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8965 # ======================================================================
8966 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8967 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8968 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8969 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8970 # (AT YOUR OPTION) ANY LATER VERSION.
8971 #
8972 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8973 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8974 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8975 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8976 #
8977 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8978 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8979 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8980 # ======================================================================
8981 DYNA_SPEC_MODAL=OPER(nom="DYNA_SPEC_MODAL",op= 147,sd_prod=tabl_intsp,
8982                      fr="Calcul de la réponse par recombinaison modale d'une structure linéaire pour une excitation aléatoire",
8983                      docu="U4.53.23-c",reentrant='n',
8984             UIinfo={"groupes":("Résolution",)},
8985          BASE_ELAS_FLUI  =SIMP(statut='o',typ=melasflu ),
8986          EXCIT           =FACT(statut='o',max=1,
8987            INTE_SPEC_GENE  =SIMP(statut='o',typ=tabl_intsp ),
8988          ),
8989          OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
8990          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8991 )  ;
8992 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
8993 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8994 # ======================================================================
8995 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8996 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8997 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8998 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8999 # (AT YOUR OPTION) ANY LATER VERSION.
9000 #
9001 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9002 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9003 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9004 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9005 #
9006 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9007 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9008 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9009 # ======================================================================
9010 DYNA_TRAN_MODAL=OPER(nom="DYNA_TRAN_MODAL",op=  74,sd_prod=tran_gene,
9011                      fr="Réponse dynamique transitoire en coordonnées généralisées par recombinaison modale",
9012                      docu="U4.53.21-f1",reentrant='f',
9013             UIinfo={"groupes":("Résolution",)},
9014       regles=(EXCLUS('AMOR_REDUIT','AMOR_GENE','LIST_AMOR'),
9015               PRESENT_ABSENT('MODE_STAT','MODE_CORR'),),
9016          METHODE         =SIMP(statut='f',typ='TXM',defaut="EULER",
9017                                into=("EULER","NEWMARK","DEVOGE","ADAPT","ITMI") ),
9018          MASS_GENE       =SIMP(statut='o',typ=matr_asse_gene_r ),
9019          RIGI_GENE       =SIMP(statut='o',typ=matr_asse_gene_r ),
9020          AMOR_GENE       =SIMP(statut='f',typ=matr_asse_gene_r ),
9021          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
9022          LIST_AMOR       =SIMP(statut='f',typ=listr8 ),
9023          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc) ),
9024          MODE_CORR       =SIMP(statut='f',typ=(mult_elas,mode_stat_acce) ,),
9025
9026          ETAT_INIT       =FACT(statut='f',min=1,max=1,
9027            regles=(EXCLUS('RESU_GENE','DEPL_INIT_GENE'),
9028                    EXCLUS('RESU_GENE','VITE_INIT_GENE'),),
9029            RESU_GENE       =SIMP(statut='f',typ=tran_gene ),
9030            b_resu_gene     =BLOC(condition = "RESU_GENE != None",
9031              INST_INIT       =SIMP(statut='f',typ='R' ),
9032              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9033              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
9034            ),
9035            DEPL_INIT_GENE  =SIMP(statut='f',typ=vect_asse_gene ),
9036            VITE_INIT_GENE  =SIMP(statut='f',typ=vect_asse_gene ),
9037          ),
9038          INCREMENT       =FACT(statut='o',min=1,max='**',
9039            INST_INIT       =SIMP(statut='f',typ='R' ),
9040            INST_FIN        =SIMP(statut='o',typ='R' ),
9041            PAS             =SIMP(statut='f',typ='R' ),
9042            VERI_PAS        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9043            VITE_MIN        =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
9044            COEF_MULT_PAS   =SIMP(statut='f',typ='R',defaut= 1.1 ),
9045            COEF_DIVI_PAS   =SIMP(statut='f',typ='R',defaut= 1.3333334 ),
9046            PAS_LIMI_RELA   =SIMP(statut='f',typ='R',defaut= 1.0E-6 ),
9047            NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
9048            NMAX_ITER_PAS   =SIMP(statut='f',typ='I',defaut= 16 ),
9049          ),
9050          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
9051            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH'),),
9052            LIST_ARCH       =SIMP(statut='f',typ=listis ),
9053            PAS_ARCH        =SIMP(statut='f',typ='I' ),
9054          ),
9055
9056          NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 20 ),
9057          RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
9058          LAMBDA          =SIMP(statut='f',typ='R',defaut= 10. ),
9059
9060          EXCIT           =FACT(statut='f',min=1,max='**',
9061            regles=(UN_PARMI('FONC_MULT','COEF_MULT','ACCE'),
9062                    PRESENT_PRESENT('ACCE','VITE','DEPL'),
9063                    PRESENT_PRESENT('D_FONC_DT','D_FONC_DT2'),
9064                    PRESENT_ABSENT('NUME_MODE','VECT_GENE','COEF_MULT'),
9065                    EXCLUS('MULT_APPUI','CORR_STAT'),
9066                    PRESENT_ABSENT('MULT_APPUI','COEF_MULT'),
9067                    PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
9068            VECT_GENE       =SIMP(statut='f',typ=vect_asse_gene ),
9069            NUME_MODE       =SIMP(statut='f',typ='I' ),
9070            FONC_MULT       =SIMP(statut='f',typ=fonction ),
9071            COEF_MULT       =SIMP(statut='f',typ='R' ),
9072            ACCE            =SIMP(statut='f',typ=fonction ),
9073            VITE            =SIMP(statut='f',typ=fonction ),
9074            DEPL            =SIMP(statut='f',typ=fonction ),
9075            MULT_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9076            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
9077            b_loca          =BLOC(condition= "DIRECTION != None",
9078              regles=(EXCLUS('NOEUD','GROUP_NO'),),
9079              NOEUD           =SIMP(statut='f',typ=no,max='**'),
9080              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
9081            ),
9082            CORR_STAT       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9083            D_FONC_DT       =SIMP(statut='f',typ=fonction ),
9084            D_FONC_DT2      =SIMP(statut='f',typ=fonction ),
9085          ),
9086          CHOC            =FACT(statut='f',min=1,max='**',
9087            regles=(UN_PARMI('NOEUD_1','GROUP_NO_1' ),
9088                    PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
9089                    PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
9090            INTITULE        =SIMP(statut='f',typ='TXM' ),
9091            NOEUD_1         =SIMP(statut='f',typ=no),
9092            NOEUD_2         =SIMP(statut='f',typ=no),
9093            GROUP_NO_1      =SIMP(statut='f',typ=grno),
9094            GROUP_NO_2      =SIMP(statut='f',typ=grno),
9095            OBSTACLE        =SIMP(statut='o',typ=obstacle ),
9096            ORIG_OBST       =SIMP(statut='f',typ='R',min=3,max=3),
9097            NORM_OBST       =SIMP(statut='o',typ='R',min=3,max=3),
9098            ANGL_VRIL       =SIMP(statut='f',typ='R' ),
9099            JEU             =SIMP(statut='f',typ='R',defaut= 1. ),
9100            DIST_1          =SIMP(statut='f',typ='R',val_min=0.E+0 ),
9101            DIST_2          =SIMP(statut='f',typ='R',val_min=0.E+0 ),
9102            SOUS_STRUC_1    =SIMP(statut='f',typ='TXM' ),
9103            SOUS_STRUC_2    =SIMP(statut='f',typ='TXM' ),
9104            REPERE          =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
9105            RIGI_NOR        =SIMP(statut='f',typ='R' ),
9106            AMOR_NOR        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9107            RIGI_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9108            AMOR_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9109            COULOMB         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9110
9111            LAME_FLUIDE     =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9112            b_lame          =BLOC(condition="LAME_FLUIDE=='OUI'",
9113                ALPHA           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9114                BETA            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9115                CHI             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9116                DELTA           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9117            ),
9118          ),
9119          VERI_CHOC       =FACT(statut='f',min=1,max='**',
9120            STOP_CRITERE    =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9121            SEUIL           =SIMP(statut='f',typ='R',defaut= 0.5 ),
9122          ),
9123          FLAMBAGE        =FACT(statut='f',min=1,max='**',
9124            regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
9125                    PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
9126                    PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
9127            NOEUD_1         =SIMP(statut='f',typ=no),
9128            NOEUD_2         =SIMP(statut='f',typ=no),
9129            GROUP_NO_1      =SIMP(statut='f',typ=grno),
9130            GROUP_NO_2      =SIMP(statut='f',typ=grno),
9131            OBSTACLE        =SIMP(statut='o',typ=obstacle ),
9132            ORIG_OBST       =SIMP(statut='f',typ='R',max='**'),
9133            NORM_OBST       =SIMP(statut='o',typ='R',max='**'),
9134            ANGL_VRIL       =SIMP(statut='f',typ='R' ),
9135            JEU             =SIMP(statut='f',typ='R',defaut= 1. ),
9136            DIST_1          =SIMP(statut='f',typ='R' ),
9137            DIST_2          =SIMP(statut='f',typ='R' ),
9138            REPERE          =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
9139            RIGI_NOR        =SIMP(statut='f',typ='R' ),
9140            FNOR_CRIT       =SIMP(statut='f',typ='R' ),
9141            FNOR_POST_FL    =SIMP(statut='f',typ='R' ),
9142            RIGI_NOR_POST_FL=SIMP(statut='f',typ='R' ),
9143          ),
9144          ANTI_SISM       =FACT(statut='f',min=1,max='**',
9145            regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
9146                    UN_PARMI('NOEUD_2','GROUP_NO_2'),
9147                    PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
9148                    PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
9149            NOEUD_1         =SIMP(statut='f',typ=no),
9150            NOEUD_2         =SIMP(statut='f',typ=no),
9151            GROUP_NO_1      =SIMP(statut='f',typ=grno),
9152            GROUP_NO_2      =SIMP(statut='f',typ=grno),
9153            RIGI_K1         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9154            RIGI_K2         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9155            SEUIL_FX        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9156            C               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9157            PUIS_ALPHA      =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9158            DX_MAX          =SIMP(statut='f',typ='R',defaut= 1. ),
9159          ),
9160          RELA_EFFO_DEPL  =FACT(statut='f',min=1,max='**',
9161            NOEUD           =SIMP(statut='o',typ=no),
9162            SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
9163            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
9164            RELATION        =SIMP(statut='o',typ=fonction ),
9165          ),
9166          RELA_TRANSIS    =FACT(statut='f',min=1,max='**',
9167            NOEUD           =SIMP(statut='o',typ=no),
9168            SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
9169            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
9170            RELATION        =SIMP(statut='o',typ=fonction ),
9171          ),
9172          RELA_EFFO_VITE  =FACT(statut='f',min=1,max='**',
9173            NOEUD           =SIMP(statut='o',typ=no),
9174            SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
9175            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
9176            RELATION        =SIMP(statut='o',typ=fonction ),
9177          ),
9178          b_itmi          =BLOC(condition = "METHODE=='ITMI'",
9179                 regles=(ENSEMBLE('BASE_ELAS_FLUI','NUME_VITE_FLUI'),),
9180                 BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu ),
9181                 NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
9182                 ETAT_STAT       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9183                 PREC_DUREE      =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
9184                 CHOC_FLUI       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9185                 NB_MODE         =SIMP(statut='f',typ='I' ),
9186                 NB_MODE_FLUI    =SIMP(statut='f',typ='I' ),
9187                 NB_MODE_DIAG    =SIMP(statut='f',typ='I' ),
9188                 TS_REG_ETAB     =SIMP(statut='f',typ='R' ),
9189          ),
9190          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
9191          IMPRESSION      =FACT(statut='f',min=1,max='**',
9192            regles=(EXCLUS('TOUT','NIVEAU'),),
9193            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9194            NIVEAU          =SIMP(statut='f',typ='TXM',into=("DEPL_LOC","VITE_LOC","FORC_LOC","TAUX_CHOC") ),
9195            INST_INIT       =SIMP(statut='f',typ='R' ),
9196            INST_FIN        =SIMP(statut='f',typ='R' ),
9197          ),
9198          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9199  )  ;
9200 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9201 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9202 # ======================================================================
9203 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9204 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9205 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9206 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9207 # (AT YOUR OPTION) ANY LATER VERSION.
9208 #
9209 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9210 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9211 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9212 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9213 #
9214 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9215 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9216 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9217 # ======================================================================
9218 # RESPONSABLE VABHHTS J.PELLET
9219 ENGENDRE_TEST=PROC(nom="ENGENDRE_TEST",op=178,docu="U4.92.11-b",
9220             UIinfo={"groupes":("Impression",)},
9221       regles=(UN_PARMI('TOUT','CO'),),
9222          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
9223          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9224          CO              =SIMP(statut='f',typ=assd,max='**'),
9225          TYPE_TEST       =SIMP(statut='f',typ='TXM',defaut="SOMME",into=("SOMME","RESUME") ),
9226          FORMAT_R        =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
9227          PREC_R          =SIMP(statut='f',typ='TXM',defaut="1.E-5"),
9228 )  ;
9229 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9230 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9231 # ======================================================================
9232 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9233 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9234 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9235 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9236 # (AT YOUR OPTION) ANY LATER VERSION.
9237 #
9238 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9239 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9240 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9241 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9242 #
9243 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9244 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9245 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9246 # ======================================================================
9247 EXEC_LOGICIEL=PROC(nom="EXEC_LOGICIEL",op= 183,fr="",docu="U7.00.01-a",
9248             UIinfo={"groupes":("Impression",)},
9249          LOGICIEL        =SIMP(statut='f',typ='TXM' ),
9250          ARGUMENT        =FACT(statut='f',min=1,max='**',
9251            NOM_PARA        =SIMP(statut='f',typ='TXM' ),
9252          ),
9253 )  ;
9254 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9255 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9256 # ======================================================================
9257 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9258 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9259 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9260 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9261 # (AT YOUR OPTION) ANY LATER VERSION.
9262 #
9263 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9264 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9265 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9266 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9267 #
9268 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9269 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9270 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9271 # ======================================================================
9272 def extr_mode_prod(FILTRE_MODE,**args):
9273   vale=FILTRE_MODE[0]['MODE']
9274   if AsType(vale) == mode_meca   : return mode_meca
9275   if AsType(vale) == mode_meca_c : return mode_meca_c
9276   if AsType(vale) == mode_gene   : return mode_gene
9277   raise AsException("type de concept resultat non prevu")
9278
9279 EXTR_MODE=OPER(nom="EXTR_MODE",op= 168,sd_prod=extr_mode_prod,
9280                docu="U4.52.12-c",reentrant='n',
9281             UIinfo={"groupes":("Résolution",)},
9282          FILTRE_MODE     =FACT(statut='o',min=1,max='**',
9283            regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','NUME_MODE','NUME_MODE_EXCLU','FREQ_MIN','CRIT_EXTR',),),
9284            MODE            =SIMP(statut='o',typ=(mode_meca,mode_meca_c,mode_gene ) ),
9285            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9286            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
9287            NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
9288            NUME_MODE_EXCLU =SIMP(statut='f',typ='I',max='**'),
9289            FREQ_MIN        =SIMP(statut='f',typ='R' ),
9290            CRIT_EXTR       =SIMP(statut='f',typ='TXM',into=("MASS_EFFE_UN","MASS_GENE") ),
9291            b_freq_min      =BLOC(condition = "FREQ_MIN != None",
9292              FREQ_MAX        =SIMP(statut='o',typ='R' ),
9293              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9294            ),
9295            b_crit_extr     =BLOC(condition = "CRIT_EXTR != None",
9296              SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9297            ),
9298          ),
9299          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9300          IMPRESSION      =FACT(statut='f',min=1,max=1,
9301            CUMUL           =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9302            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",into=("MASS_EFFE_UN","MASS_GENE") ),
9303          ),
9304 )  ;
9305 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9306 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9307 # ======================================================================
9308 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9309 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9310 #              REDISTRIBUTION OF THIS FILE.
9311 # ======================================================================
9312 def extr_resu_prod(RESULTAT,**args):
9313   if AsType(RESULTAT) == evol_elas    : return evol_elas
9314   if AsType(RESULTAT) == evol_noli    : return evol_noli
9315   if AsType(RESULTAT) == evol_ther    : return evol_ther
9316   if AsType(RESULTAT) == dyna_trans   : return dyna_trans
9317   if AsType(RESULTAT) == dyna_harmo   : return dyna_harmo
9318   if AsType(RESULTAT) == acou_harmo   : return acou_harmo
9319   if AsType(RESULTAT) == mode_meca    : return mode_meca
9320   if AsType(RESULTAT) == mode_acou    : return mode_acou
9321   if AsType(RESULTAT) == mode_stat :    return mode_stat
9322   if AsType(mode_stat) == mode_stat_depl :    return mode_stat_depl
9323   if AsType(mode_stat) == mode_stat_acce :    return mode_stat_acce
9324   if AsType(mode_stat) == mode_stat_forc :    return mode_stat_forc
9325   if AsType(RESULTAT) == mult_elas    : return mult_elas
9326   if AsType(RESULTAT) == fourier_elas : return fourier_elas
9327   raise AsException("type de concept resultat non prevu")
9328
9329 EXTR_RESU=OPER(nom="EXTR_RESU",op=176,sd_prod=extr_resu_prod,docu="U4.71.04-c2",reentrant='f',
9330             UIinfo={"groupes":("Résultats et champs",)},
9331          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
9332                                                mode_acou,mode_stat_depl,mode_stat_acce,mode_stat_forc,evol_ther,evol_noli,
9333                                                mult_elas,fourier_elas ) ),
9334
9335          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
9336                                    fr="Liste des paramètres de sensibilité.",
9337                                    ang="List of sensitivity parameters"),
9338
9339          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
9340            regles=(  UN_PARMI('NUME_ORDRE', 'INST', 'FREQ', 'NUME_MODE',
9341                         'NOEUD_CMP', 'LIST_INST', 'LIST_FREQ', 'LIST_ORDRE',
9342                         'NOM_CAS', 'LIST_ARCH', 'PAS_ARCH' ),
9343                      EXCLUS( 'CHAM_EXCLU','NOM_CHAM' ),   ),
9344            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**'),
9345            NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
9346            PRECISION       =SIMP(statut='f',typ='R',defaut=1.E-3 ),
9347            CRITERE         =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),defaut="RELATIF"),
9348            LIST_ARCH       =SIMP(statut='f',typ=listis),
9349            PAS_ARCH        =SIMP(statut='f',typ='I'),
9350            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
9351            LIST_ORDRE      =SIMP(statut='f',typ=listis),
9352            INST            =SIMP(statut='f',typ='R',max='**'),
9353            LIST_INST       =SIMP(statut='f',typ=listr8),
9354            FREQ            =SIMP(statut='f',typ='R',max='**'),
9355            LIST_FREQ       =SIMP(statut='f',typ=listr8),
9356            NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
9357            NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
9358            NOM_CAS         =SIMP(statut='f',typ='TXM'),
9359                                ),
9360
9361          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
9362 )  ;
9363 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9364 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9365 # ======================================================================
9366 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9367 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9368 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9369 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9370 # (AT YOUR OPTION) ANY LATER VERSION.
9371 #
9372 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9373 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9374 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9375 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9376 #
9377 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9378 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9379 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9380 # ======================================================================
9381 def fact_grad_prod(MATR_ASSE,**args):
9382   if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
9383   if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
9384   if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
9385   raise AsException("type de concept resultat non prevu")
9386
9387 FACT_GRAD=OPER(nom="FACT_GRAD",op=85,sd_prod=fact_grad_prod,docu="U4.55.03-e",
9388             UIinfo={"groupes":("Résolution",)},
9389                fr="Préconditionnement pour résolution par gradient conjugué",
9390                reentrant='n',
9391          MATR_ASSE       =SIMP(statut='o',
9392                                typ=(matr_asse_depl_r,matr_asse_temp_r,
9393                                     matr_asse_pres_r) ),
9394          PRE_COND        =SIMP(statut='f',typ='TXM',defaut="LDLT_INC",into=("LDLT_INC",) ),
9395          NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
9396          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
9397 )  ;
9398 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9399 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9400 # ======================================================================
9401 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9402 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9403 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9404 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9405 # (AT YOUR OPTION) ANY LATER VERSION.
9406 #
9407 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9408 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9409 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9410 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9411 #
9412 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9413 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9414 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9415 # ======================================================================
9416 FACT_INTE_SPEC=OPER(nom="FACT_INTE_SPEC",op= 117,sd_prod=interspfact,
9417                     fr="Factorisation d une matrice interspectrale hermitienne",
9418                     docu="U4.36.04-e",reentrant='n',
9419             UIinfo={"groupes":("Fonction",)},
9420          regles=(ENSEMBLE('FREQ_FIN','NB_POIN'),),
9421 #  regle non indiquée dans la doc U
9422          INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
9423          NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
9424          FREQ_INIT       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9425          FREQ_FIN        =SIMP(statut='f',typ='R' ),
9426          NB_POIN         =SIMP(statut='f',typ='I',defaut= 0 ),
9427          SUR_ECHAN       =SIMP(statut='f',typ='R',defaut= 1. ),
9428          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9429 )  ;
9430 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9431 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9432 # ======================================================================
9433 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9434 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9435 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9436 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9437 # (AT YOUR OPTION) ANY LATER VERSION.
9438 #
9439 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9440 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9441 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9442 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9443 #
9444 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9445 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9446 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9447 # ======================================================================
9448 # RESPONSABLE VABHHTS J.PELLET
9449 def fact_ldlt_prod(MATR_ASSE,**args):
9450   if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
9451   if AsType(MATR_ASSE) == matr_asse_depl_c : return matr_asse_depl_c
9452   if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
9453   if AsType(MATR_ASSE) == matr_asse_temp_c : return matr_asse_temp_c
9454   if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
9455   if AsType(MATR_ASSE) == matr_asse_pres_c : return matr_asse_pres_c
9456   raise AsException("type de concept resultat non prevu")
9457
9458 FACT_LDLT=OPER(nom="FACT_LDLT",op=14,sd_prod=fact_ldlt_prod,fr="Factorisation en place ou hors place",
9459                docu="U4.55.01-f",reentrant='f',
9460             UIinfo={"groupes":("Résolution",)},
9461          regles=(EXCLUS('BLOC_DEBUT','DDL_DEBUT'),
9462                  EXCLUS('BLOC_FIN','DDL_FIN'),),
9463          MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
9464                                                matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
9465          STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9466          NPREC           =SIMP(statut='f',typ='I',defaut=8,val_min=0,),
9467          PRE_COND        =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","DIAG") ),
9468          BLOC_DEBUT      =SIMP(statut='f',typ='I',val_min=1,),
9469          DDL_DEBUT       =SIMP(statut='f',typ='I',val_min=1,),
9470          BLOC_FIN        =SIMP(statut='f',typ='I',val_min=1,),
9471          DDL_FIN         =SIMP(statut='f',typ='I',val_min=1,),
9472 #
9473          EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9474 #
9475          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9476          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
9477 )  ;
9478 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9479 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9480 # ======================================================================
9481 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9482 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9483 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9484 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9485 # (AT YOUR OPTION) ANY LATER VERSION.
9486 #
9487 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9488 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9489 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9490 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9491 #
9492 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9493 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9494 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9495 # ======================================================================
9496 # NEW 5.3.23
9497 FERMER=PROC(nom="FERMER",op=  10,fr=" ",
9498             docu="U4.12.02-a",
9499             UIinfo={"groupes":("Gestion du travail",)},
9500          UNITE           =SIMP(statut='o',typ='I',max='**' ),
9501 )  ;
9502 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9503 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9504 # ======================================================================
9505 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9506 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9507 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9508 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9509 # (AT YOUR OPTION) ANY LATER VERSION.
9510 #
9511 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9512 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9513 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9514 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9515 #
9516 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9517 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9518 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9519 # ======================================================================
9520 FIN=PROC(nom="FIN",op=9999,repetable='n',fr="Fin d'une étude",
9521          docu="U4.11.02-f",
9522             UIinfo={"groupes":("Gestion du travail",)},
9523          RETASSAGE       =SIMP(fr="provoque le retassage de la base GLOBALE",
9524                                statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
9525          PERFORMANCE     =SIMP(fr="provoque l'impression d'un résumé des mesures de temps ",
9526                                statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
9527          INFO_RESU       =SIMP(fr="provoque l'impression des informations sur les structures de données",
9528                                statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
9529          FICHIER         =SIMP(statut='f',typ='TXM',defaut="MESSAGE"),
9530 )  ;
9531 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9532 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9533 # ======================================================================
9534 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9535 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9536 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9537 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9538 # (AT YOUR OPTION) ANY LATER VERSION.
9539 #
9540 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9541 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9542 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9543 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9544 #
9545 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9546 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9547 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9548 # ======================================================================
9549 FONC_FLUI_STRU=OPER(nom="FONC_FLUI_STRU",op= 169,sd_prod=fonction,
9550                     docu="U4.35.02-c",reentrant='n',
9551             UIinfo={"groupes":("Fonction",)},
9552          TYPE_FLUI_STRU  =SIMP(statut='o',typ=(type_flui_stru) ),
9553 )  ;
9554 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9555 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9556 # ======================================================================
9557 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9558 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9559 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9560 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9561 # (AT YOUR OPTION) ANY LATER VERSION.
9562 #
9563 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9564 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9565 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9566 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9567 #
9568 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9569 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9570 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9571 # ======================================================================
9572 FORMULE = FORM( nom='FORMULE',op=-5,sd_prod=fonction,
9573                 fr="Définition d une fonction",reentrant = 'n',
9574                 regles=(UN_PARMI('REEL','ENTIER','COMPLEXE'),),
9575                 REEL = SIMP(typ = 'shell',max=1),
9576                 ENTIER = SIMP(typ = 'shell',max=1),
9577                 COMPLEXE = SIMP(typ = 'shell',max=1),
9578 ) ;
9579 #& MODIF COMMANDE  DATE 17/09/2001   AUTEUR MCOURTOI M.COURTOIS
9580 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9581 # ======================================================================
9582 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9583 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9584 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9585 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9586 # (AT YOUR OPTION) ANY LATER VERSION.
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 FORMULE = FORM( nom='FORMULE',op=-5,sd_prod=fonction,
9598                 fr="Définition d une fonction",reentrant = 'n',
9599                 regles=(UN_PARMI('REEL','ENTIER','COMPLEXE'),),
9600                 REEL = SIMP(typ = 'shell',max=1),
9601                 ENTIER = SIMP(typ = 'shell',max=1),
9602                 COMPLEXE = SIMP(typ = 'shell',max=1),
9603 ) ;
9604 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9605 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9606 # ======================================================================
9607 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9608 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9609 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9610 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9611 # (AT YOUR OPTION) ANY LATER VERSION.
9612 #
9613 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9614 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9615 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9616 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9617 #
9618 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9619 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9620 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9621 # ======================================================================
9622 GENE_FONC_ALEA=OPER(nom="GENE_FONC_ALEA",op= 118,sd_prod=tabl_fonc,
9623                     fr="Génération de la fonction temporelle à partir d une matrice interspectrale factorisée",
9624                     docu="U4.36.05-e",reentrant='n',
9625             UIinfo={"groupes":("Fonction",)},
9626          INTE_SPEC_FACT  =SIMP(statut='o',typ=interspfact ),
9627          INIT_ALEA       =SIMP(statut='f',typ='I',defaut= 12312745 ),
9628          NB_TIRAGE       =SIMP(statut='f',typ='I',defaut= 1 ),
9629          NB_POIN         =SIMP(statut='f',typ='I' ),
9630          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
9631 )  ;
9632 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9633 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9634 # ======================================================================
9635 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
9636 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9637 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9638 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9639 # (AT YOUR OPTION) ANY LATER VERSION.
9640 #
9641 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9642 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9643 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9644 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9645 #
9646 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9647 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9648 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9649 # ======================================================================
9650 GENE_MATR_ALEA=OPER(nom="GENE_MATR_ALEA",op=  27,sd_prod=matr_asse_gene_r,
9651                fr="Generateur de matrice aleatoire",
9652                docu="U4.36.06",reentrant='n',
9653             UIinfo={"groupes":("Fonction",)},
9654    MATR_MOYEN   = SIMP(statut='o', typ=matr_asse_gene_r),
9655    DELTA        = SIMP(statut='f', typ='R', defaut=0.1),
9656    INIT         = SIMP(statut='f', typ='TXM', into=("OUI","NON"),defaut="NON"),
9657 ) ;
9658
9659 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9660 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9661 # ======================================================================
9662 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
9663 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9664 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9665 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9666 # (AT YOUR OPTION) ANY LATER VERSION.
9667 #
9668 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9669 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9670 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9671 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9672 #
9673 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9674 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9675 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9676 # ======================================================================
9677 GENE_VARI_ALEA=OPER(nom="GENE_VARI_ALEA",op=  28,sd_prod=table,
9678                fr="Generateur de variable aleatoire",
9679                docu="U4.36.07",reentrant='n',
9680             UIinfo={"groupes":("Fonction",)},
9681    TYPE       = SIMP(statut='f', typ='TXM', into=("EXP_TRONQUEE", "EXPONENTIELLE", "GAMMA"), defaut="EXP_TRONQUEE"),
9682    VALE_MOY   = SIMP(statut='f', typ='R', defaut=0.),
9683    DELTA      = SIMP(statut='f', typ='R', defaut=0.1),
9684    A          = SIMP(statut='f', typ='R', defaut=-1.),
9685    B          = SIMP(statut='f', typ='R', defaut=1.),
9686    INIT       = SIMP(statut='f', typ='TXM', into=("OUI","NON"),defaut="NON"),
9687 ) ;
9688
9689 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9690 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9691 # ======================================================================
9692 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9693 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9694 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9695 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9696 # (AT YOUR OPTION) ANY LATER VERSION.
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 IMPR_CHARGE=PROC(nom="IMPR_CHARGE",op= 158,
9708                  fr="Impression des charges mécaniques de type ddl imposés et relations linéaires entre les ddl",
9709                  docu="U7.04.31-c",
9710             UIinfo={"groupes":("Fonction",)},
9711          FICHIER         =SIMP(statut='f',typ='TXM' ),
9712          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",) ),
9713          VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
9714          CHARGE          =SIMP(statut='o',typ=char_meca,max='**', ),
9715 )  ;
9716 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9717 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9718 # ======================================================================
9719 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9720 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9721 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9722 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9723 # (AT YOUR OPTION) ANY LATER VERSION.
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 IMPR_CLASSI=PROC(nom="IMPR_CLASSI",op= 114,docu="U7.04.21-a",
9735             UIinfo={"groupes":("Fonction",)},
9736          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ',
9737                         'LIST_ORDRE' ),),
9738          UNITE_CLASSI    =SIMP(statut='o',typ='I' ),
9739          MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
9740          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9741          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
9742          LIST_ORDRE      =SIMP(statut='f',typ=listis ),
9743          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
9744          FREQ            =SIMP(statut='f',typ='R',max='**'),
9745          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
9746          b_prec_crit     =BLOC(condition = "LIST_FREQ != None or FREQ != None",
9747              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9748              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
9749                                    into=("RELATIF","ABSOLU") ),
9750          ),
9751          IMPRESSION      =FACT(statut='f',min=1,max='**',
9752            regles=(UN_PARMI('NOEUD','GROUP_NO', ),),
9753            NOEUD           =SIMP(statut='f',typ=no,max='**'),
9754            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
9755            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
9756          ),
9757          AMOR            =SIMP(statut='o',typ='R',max='**'),
9758 )  ;
9759 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9760 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9761 # ======================================================================
9762 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9763 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9764 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9765 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9766 # (AT YOUR OPTION) ANY LATER VERSION.
9767 #
9768 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9769 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9770 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9771 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9772 #
9773 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9774 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9775 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9776 # ======================================================================
9777 # RESPONSABLE VABHHTS J.PELLET
9778 IMPR_CO=PROC(nom="IMPR_CO",op=17,docu="U4.91.11-f",
9779             UIinfo={"groupes":("Impression",)},
9780              fr="Impression du contenu d un concept utilisateur (pour développeur)",
9781          regles=(UN_PARMI('CO','CHAINE', ),),
9782          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
9783          NIVEAU          =SIMP(statut='f',typ='I',defaut=2,into=(0,1,2) ),
9784          ATTRIBUT        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","OUI") ),
9785          CONTENU         =SIMP(statut='f',typ='TXM',defaut="OUI",into=("NON","OUI") ),
9786          BASE            =SIMP(statut='f',typ='TXM',defaut="G",into=("","G","V","L") ),
9787          CO              =SIMP(statut='f',typ=assd,max='**'),
9788          CHAINE          =SIMP(statut='f',typ='TXM'),
9789          POSITION        =SIMP(statut='f',typ='I',defaut=1),
9790 )  ;
9791 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9792 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9793 # ======================================================================
9794 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9795 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9796 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9797 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9798 # (AT YOUR OPTION) ANY LATER VERSION.
9799 #
9800 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9801 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9802 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9803 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9804 #
9805 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9806 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9807 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9808 # ======================================================================
9809 # RESPONSABLE MCOURTOI M.COURTOIS
9810 IMPR_COURBE=PROC(nom="IMPR_COURBE",op= 141,fr="Impression, sur fichiers",
9811                  docu="U4.33.01-e2",
9812             UIinfo={"groupes":("Fonction",)},
9813          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
9814          FORMAT          =SIMP(statut='f',typ='TXM',position='global'
9815                               ,into=("AGRAF","EXCEL","POSTSCRIPT","RESULTAT","COMMANDE","SEISME") ),
9816          b_agraf_post =BLOC(condition = "(FORMAT=='AGRAF') or (FORMAT=='POSTSCRIPT')",fr="Mots-clés communs AGRAF et POSTCRIPT",
9817            BORNE_X         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des abcisses"),
9818            ECHELLE_X       =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),fr="Type d'échelle pour les abcisses" ),
9819            BORNE_Y         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des ordonnées"),
9820            ECHELLE_Y       =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),fr="Type d'échelle pour les ordonnées" ),
9821          ),
9822          b_agraf =BLOC(condition = "(FORMAT=='AGRAF')",fr="Mots-clés propres à AGRAF",
9823            TITRE_GRAPHIQUE =SIMP(statut='f',typ='TXM',fr="Titre associé au graphique" ),
9824            COMMENTAIRE     =SIMP(statut='f',typ='TXM',max='**',fr="Commentaires associés au graphique"),
9825            LEGENDE_X       =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des abcisses" ),
9826            LEGENDE_Y       =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des ordonnées" ),
9827            FREQ_GRILLE_X   =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence de tracage du quadrillage vertical" ),
9828            FREQ_GRILLE_Y   =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence de tracage du quadrillage horizontal" ),
9829          ),
9830          b_excel = BLOC(condition = "(FORMAT=='EXCEL')",fr="Mots-clés propres au format Excel",
9831            BORNE_X         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des abcisses"),
9832            BORNE_Y         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des ordonnées"),
9833          ),
9834          b_post = BLOC (  condition = "(FORMAT=='POSTSCRIPT')",fr="Mots-clés propres à POSTCRIPT",
9835            TITRE           =SIMP(statut='f',typ='TXM',fr="Titre associé au graphique" ),
9836            LABEL_X         =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des abcisses" ),
9837            LABEL_Y         =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des ordonnées" ),
9838            SORTIE          =SIMP(statut='f',typ='TXM',defaut="COULEUR",into=("MONOCHROME","COULEUR"),fr="Type d impression" ),
9839            DATE            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de la date" ),
9840            GRILLE          =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression du quadrillage" ),
9841            AXE_ZERO_X      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de l axe x égal zéro" ),
9842            AXE_ZERO_Y      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de l axe y égal zéro" ),
9843            PRESENTATION    =SIMP(statut='f',typ='TXM',defaut="PAYSAGE",into=("PAYSAGE","PORTRAIT"),
9844                                  fr="Disposition du graphique sur la feuille" ),
9845            FENETRE         =SIMP(statut='f',typ='TXM',defaut="RECTANGLE",into=("CARREE","RECTANGLE"),
9846                                  fr="Forme de la fenetre contenant le graphique" ),
9847          ),
9848          COURBE          =FACT(statut='o',min=1,max='**',fr="Définition de la courbe à tracer",
9849            regles=(UN_PARMI('FONCTION','LIST_RESU','TABLE','FONC_X','RESU_GENE'),),
9850            FONCTION        =SIMP(statut='f',typ=(fonction, fonction_c),
9851                                  fr="Fonction réelle ou complexe", ),
9852            LIST_RESU       =SIMP(statut='f',typ=listr8,
9853                                  fr="Liste des ordonnees d une fonction réelle définie par deux listes", ),
9854 #  creer le type table
9855            TABLE           =SIMP(statut='f',typ=table,
9856                                  fr="Nom de la table dont 2 colonnes définissent la fonction",),
9857            FONC_X          =SIMP(statut='f',typ=fonction,
9858                                  fr="Fonction abscisses d une fonction paramétrique",),
9859            RESU_GENE       =SIMP(statut='f',typ=tran_gene, ),
9860            b_fonction      =BLOC(condition = "FONCTION != None",
9861              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
9862            ),
9863            b_fonction_c  =BLOC(condition = "AsType(FONCTION) == fonction_c",
9864                                  fr="Fonction complexe définie par le mot-clé fonction",
9865              PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
9866            ),
9867            b_list_resu     =BLOC(condition = "LIST_RESU != None",
9868              LIST_PARA       =SIMP(statut='o',typ=listr8 ),
9869            ),
9870            b_table         =BLOC(condition = "TABLE != None",
9871              PARA_X          =SIMP(statut='o',typ='TXM',
9872                                    fr="Paramètre de la table associé aux abcisses de la fonction à tracer" ),
9873              PARA_Y          =SIMP(statut='o',typ='TXM',
9874                                    fr="Paramètre de la table associé aux ordonnées de la fonction à tracer" ),
9875            ),
9876            b_fonc_x        =BLOC(condition = "FONC_X != None",
9877              FONC_Y          =SIMP(statut='o',typ=fonction,fr="Fonction ordonnées d une fonction paramétrique" ),
9878              PARA            =SIMP(statut='f',typ='TXM',defaut="FONC_X",into=("FONC_X","FONC_Y"),
9879                                    fr="Permutation des roles des deux fonctions" ),
9880              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
9881            ),
9882            b_resu_gene     =BLOC(condition = "RESU_GENE != None",
9883              regles=(UN_PARMI('NOEUD_CHOC','GROUP_NO_CHOC'),),
9884              NOEUD_CHOC      =SIMP(statut='f',typ=no),
9885              GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
9886              PARA_X          =SIMP(statut='o',typ='TXM'),
9887              PARA_Y          =SIMP(statut='o',typ='TXM'),
9888              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
9889              SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
9890              INTITULE        =SIMP(statut='f',typ='TXM' ),
9891            ),
9892
9893
9894            LEGENDE         =SIMP(statut='f',typ='TXM',fr="Légende associée à la courbe" ),
9895            STYLE           =SIMP(statut='f',typ='TXM',defaut="LIGNE",fr="Style de la ligne représentant la courbe",
9896                                  into=("LIGNE","POINTILLE","POINT","POINT_RELIE") ),
9897            COULEUR         =SIMP(statut='f',typ='TXM',fr="Couleur associée à la courbe",
9898                                  into=("NOIR","ROUGE","VERT_FONCE","BLEU",
9899                                        "MAGENTA","CYAN","VERT","SIENNE","ORANGE",
9900                                        "POURPRE","JAUNE","DAIM","TURQUOISE","VIOLET",
9901                                        "BRUN","CORAIL","MARRON","MAUVE","MARRON_CLAIR") ),
9902            MARQUEUR        =SIMP(statut='f',typ='TXM',fr="Type du marqueur associé à la courbe",
9903                                  into=("POINT_F","CARRE_F","TRIANGLE_F",
9904                                        "LOSANGE_F","ETOILE_F","FUSEE_F","POINT",
9905                                        "CARRE","TRIANGLE","LOSANGE","ETOILE","FUSEE",
9906                                        "PLUS","X","CERCLE","CERCLE_P","CARRE_P",
9907                                        "LOSANGE_P","CERCLE_P_X","LOSANGE_P_X",
9908                                        "CERCLE_X","CARRE_X","LOSANGE_X") ),
9909             b_agraf =BLOC(condition = "(FORMAT=='AGRAF')",fr="Mots-clés propres à AGRAF",
9910               TRI             =SIMP(statut='f',typ='TXM',defaut="N",
9911                                     fr="Choix du tri effectué sur les abcisses ou sur les ordonnées",
9912                                     into=("N","X","Y","XY","YX") ),
9913               FREQ_MARQUEUR   =SIMP(statut='f',typ='I',defaut= 0,
9914                                     fr="Fréquence d impression du marqueur associé à la courbe", ),
9915             ),
9916          ),
9917 )  ;
9918 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9919 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9920 # ======================================================================
9921 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9922 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9923 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9924 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9925 # (AT YOUR OPTION) ANY LATER VERSION.
9926 #
9927 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9928 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9929 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9930 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9931 #
9932 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9933 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9934 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9935 # ======================================================================
9936 # RESPONSABLE GNICOLAS G.NICOLAS
9937 IMPR_FICO_HOMA=PROC(nom="IMPR_FICO_HOMA",op= 189, docu="U7.04.01-b2",
9938             UIinfo={"groupes":("Fonction",)},
9939                     fr="Imprime le fichier de configuration de HOMARD.",
9940                     ang="Writes the configuration file for HOMARD.",
9941 #
9942 # 1. Le niveau d'information
9943 #
9944          INFO           = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
9945 #
9946 # 2. LE REPERTOIRE OU AURA LIEU LE CALCUL HOMARD
9947 #
9948          REP             =SIMP(statut='f',typ='TXM'),
9949 #
9950 # 3. Langue des messages issus de HOMARD
9951 #
9952          LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
9953                                into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
9954                            fr="Langue des messages issus de HOMARD.",
9955                            ang="Language for HOMARD messages." ),
9956 #
9957 # 4. L'UNITE LOGIQUE D'ECRITURE DU FICHIER DE CONFIGURATION HOMARD
9958 #
9959          UNITE           =SIMP(statut='f',typ='I',defaut= 71 ),
9960 #
9961 # 5. LE TYPE DE TRAITEMENT :
9962 #
9963          TRAITEMENT      =FACT(statut='o',min=1,max=1,
9964 #
9965 # 5.1. QUATRE CHOIX EXCLUSIFS :
9966 #
9967 # 5.1.1.
9968 #      A. ADAPTATION PAR UN INDICATEUR D'ERREUR, AVEC TROIS VARIANTES :
9969 #         . RAFFINEMENT ET DERAFFINEMENT
9970 #         . RAFFINEMENT SEUL
9971 #         . DERAFFINEMENT SEUL
9972 #      B. ADAPTATION UNIFORME, AVEC DEUX VARIANTES :
9973 #         . RAFFINEMENT SEUL
9974 #         . DERAFFINEMENT SEUL
9975 #         . RIEN : LE MAILLAGE EST LE MEME A LA SORTIE ET A L'ENTREE
9976 #      C. INFORMATION SUR UN MAILLAGE
9977 #      D. MISE A JOUR DE SOLUTIONS
9978 #
9979            regles=( UN_PARMI('ADAPTATION','UNIFORME','INFORMATION','MAJSOLUTION'),),
9980            ADAPTATION      =SIMP(statut='f',typ='TXM',
9981                                  fr="Adaptation libre",
9982                                  ang="Free adaptation",
9983                                  into=("RAFFINEMENT","DERAFFINEMENT","RAFF_DERA") ),
9984            UNIFORME        =SIMP(statut='f',typ='TXM',
9985                                  fr="Adaptation uniforme",
9986                                  ang="Uniforme adaptation",
9987                                  into=("RAFFINEMENT","DERAFFINEMENT","RIEN") ),
9988            INFORMATION     =SIMP(statut='f',typ='TXM',
9989                                  fr="Adaptation libre",
9990                                  ang="Free adaptation",
9991                                  into=("OUI",) ),
9992            MAJSOLUTION     =SIMP(statut='f',typ='TXM',
9993                                  fr="Mise à jour de solutions",
9994                                  ang="Solution updating",
9995                                  into=("OUI",) ),
9996 #
9997 # 5.1.2. LES CONTRAINTES :
9998 #
9999 # 5.1.2.1. POUR DE L'ADAPTATION LIBRE, IL FAUT :
10000 #      A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10001 #      B. LE NOM MED DU MAILLAGE D'ENTREE
10002 #      C. LE NOM MED DE L'INDICATEUR D'ERREUR
10003 #      D. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10004 #      E. LA MISE A JOUR DE SOLUTION
10005 #      F. LE NOM MED DU MAILLAGE DE SORTIE
10006 #      REMARQUE : IL FAUT DES CRITERES, MAIS ON NE SAIT PAS LESQUELS
10007 #
10008 # 5.1.2.2. POUR DE L'ADAPTATION UNIFORME
10009 #          IL FAUT :
10010 #      A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10011 #      B. LE NOM MED DU MAILLAGE DE SORTIE
10012 #          IL NE FAUT PAS :
10013 #      A. LE NOM MED DE L'INDICATEUR D'ERREUR
10014 #      B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
10015 #      C. LES CRITERES
10016 #      REMARQUE : A L'ITERATION 0, OU AUX ITERATIONS SUIVANTES SI MAJ DE SOLUTION,
10017 #                 IL FAUT LE NOM MED DU MAILLAGE D'ENTREE
10018 #
10019 # 5.1.2.3. POUR DE LA MISE A JOUR DE SOLUTION :
10020 #          IL FAUT :
10021 #      A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10022 #      B. LE NOM MED DU MAILLAGE D'ENTREE
10023 #          IL NE FAUT PAS :
10024 #      A. LE NOM MED DE L'INDICATEUR D'ERREUR
10025 #      B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
10026 #      C. LES CRITERES
10027 #
10028 #
10029 # 5.1.2.4. POUR DE L'INFORMATION :
10030 #          IL FAUT :
10031 #      A. LE NOM MED DU MAILLAGE D'ENTREE
10032 #          IL NE FAUT PAS :
10033 #      A. LE NOM MED DE L'INDICATEUR D'ERREUR
10034 #      B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
10035 #      C. LES CRITERES
10036 #      D. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10037 #      E. LA MISE A JOUR DE SOLUTION
10038 #
10039            b_maillage_initial =BLOC(condition = "( INFORMATION != None ) or ( ADAPTATION != None ) or \
10040                                                  ( MAJSOLUTION != None ) ",
10041                            fr="Nom MED du maillage en entrée",
10042                            ang="MED name of the in-mesh",
10043                            NOM_MED_MAILLAGE_N   =SIMP(statut='o',typ='TXM',),
10044                            ) ,
10045 #
10046            b_maillage_initial_uniforme =BLOC(condition = "( UNIFORME != None ) ",
10047                            fr="Nom MED du maillage en entrée",
10048                            ang="MED name of the in-mesh",
10049                            NOM_MED_MAILLAGE_N   =SIMP(statut='f',typ='TXM',),
10050                            ) ,
10051 #
10052            b_iteration_maj_champ =BLOC(condition = "( UNIFORME != None ) or ( ADAPTATION != None ) or \
10053                                                     ( MAJSOLUTION != None ) ",
10054                            fr="Nom MED du maillage en sortie, numero d'iteration et mise à jour de champs",
10055                            ang="MED name of the out-mesh, iteration rank and field updating",
10056                            NITER                =SIMP(statut='o',typ='I',
10057                            fr="Numéro d'itération.",
10058                            ang="Iteration number." ),
10059                            NOM_MED_MAILLAGE_NP1 =SIMP(statut='o',typ='TXM',
10060                            fr="Nom MED du maillage en sortie",
10061                            ang="MED name of the out-mesh" ),
10062                            MAJ_CHAM             =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10063                            fr="Mise à jour de champs",
10064                            ang="Field updating" ),
10065                            ) ,
10066 #
10067            b_indicateur_d_erreur  =BLOC(condition = "ADAPTATION != None",
10068                            fr="Indicateur d'erreur",
10069                            ang="Error indicator",
10070                            regles=(AU_MOINS_UN('NUMORD_INDICA','NOM_RESU_INDICA'),
10071                                    EXCLUS('NUMORD_INDICA','NOM_RESU_INDICA'),
10072                                    PRESENT_PRESENT('NUMORD_INDICA','NUMPT_INDICA'),
10073                                    PRESENT_PRESENT('NOM_RESU_INDICA','NOM_CHAM_INDICA'),),
10074                            NOM_MED_INDICA  =SIMP(statut='o',typ='TXM',
10075                            fr="Nom MED de l'indicateur d'erreur.",
10076                            ang="MED name of error indicator.",),
10077                            NOM_CMP_INDICA  =SIMP(statut='o',typ='TXM',
10078                            fr="Nom de la composante de l'indicateur d'erreur retenue.",
10079                            ang="Name of the selected component of the error indicator.",),
10080                            NUMORD_INDICA  =SIMP(statut='f',typ='I',
10081                            fr="Numero d'ordre de l'indicateur.",
10082                            ang="Rank number of the error indicator.",),
10083                            NUMPT_INDICA  =SIMP(statut='f',typ='I',
10084                            fr="Numero du pas de temps de l'indicateur.",
10085                            ang="Time step number of the error indicator.",),
10086                            NOM_RESU_INDICA  =SIMP(statut='f',typ='TXM',
10087                            fr="Concept contenant l'indicateur.",
10088                            ang="Conceipt wich contains the error indicator.",),
10089                            NOM_CHAM_INDICA  =SIMP(statut='f',typ='TXM',
10090                            fr="Nom du champ dans le résultat de l'indicateur.",
10091                            ang="Name of the field of the error indicator.",),
10092                            ) ,
10093 #
10094            b_critere_de_raffinement =BLOC( condition = "( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'RAFFINEMENT' )" ,
10095                            fr="Critère de raffinement.",
10096                            ang="Refinement threshold.",
10097                            regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE' ),),
10098                            CRIT_RAFF_ABS   =SIMP(statut='f',typ='R',
10099                                                  fr="Critère absolu",
10100                                                  ang="Absolute threshold"  ),
10101                            CRIT_RAFF_REL   =SIMP(statut='f',typ='R',
10102                                                  fr="Critère relatif",
10103                                                  ang="Relative threshold" ),
10104                            CRIT_RAFF_PE    =SIMP(statut='f',typ='R',
10105                                                  fr="Pourcentage d'éléments",
10106                                                  ang="Percentage of elements" ),
10107                            ) ,
10108 #
10109            b_critere_de_deraffinement =BLOC ( condition = "( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'DERAFFINEMENT' )" ,
10110                            fr="Critère de déraffinement.",
10111                            ang="Unrefinement threshold.",
10112                            regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE' ),),
10113                            CRIT_DERA_ABS   =SIMP(statut='f',typ='R' ,
10114                                                  fr="Critère absolu",
10115                                                  ang="Absolute threshold" ),
10116                            CRIT_DERA_REL   =SIMP(statut='f',typ='R',
10117                                                  fr="Critère relatif",
10118                                                  ang="Relative threshold" ),
10119                            CRIT_DERA_PE    =SIMP(statut='f',typ='R',
10120                                                  fr="Pourcentage d'éléments",
10121                                                  ang="Percentage of elements" ),
10122                            ) ,
10123 #
10124            b_niveau_maximum =BLOC ( condition = " ( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'RAFFINEMENT' ) or \
10125                                                   ( UNIFORME == 'RAFFINEMENT' )" ,
10126                              fr="Niveau maximum de profondeur de raffinement",
10127                              ang="Maximum level for refinement",
10128                              NIVE_MAX        =SIMP(statut='f',typ='I' ),
10129                            ) ,
10130 #
10131            b_niveau_minimum =BLOC ( condition = " ( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'DERAFFINEMENT' ) or \
10132                                                   ( UNIFORME == 'DERAFFINEMENT' )" ,
10133                              fr="Niveau minimum de déraffinement",
10134                              ang="Minimum level for unrefinement",
10135                              NIVE_MIN        =SIMP(statut='f',typ='I' ),
10136                            ) ,
10137 #
10138          ),
10139 #
10140 # 6. L'ANALYSE DU MAILLAGE
10141 #
10142          ANALYSE         =FACT(statut='f',min=1,max=1,
10143                                fr="Analyse du maillage.",
10144                                ang="Mesh analysis.",
10145 #
10146 # 6.1. CHOIX NON EXCLUSIFS, AVEC DEUX VARIANTES (OUI/NON) :
10147 #    A. NOMBRE DES ELEMENTS
10148 #    B. QUALITE DES ELEMENTS
10149 #    C. INTERPENETRATION DES ELEMENTS
10150 #    D. CONNEXITE DU MAILLAGE
10151 #    E. TAILLE DES DIFFERENTS SOUS-DOMAINES
10152 #
10153            regles=(AU_MOINS_UN('NOMBRE','QUALITE','INTERPENETRATION','CONNEXITE','TAILLE'),),
10154 #
10155          NOMBRE          =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
10156                           fr="Nombre de noeuds et éléments du maillage",
10157                           ang="Number of nodes and elements in the mesh" ),
10158 #
10159          QUALITE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10160                           fr="Qualité du maillage",
10161                           ang="Mesh quality" ),
10162 #
10163          INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10164                           fr="Controle de la non interpénétration des éléments.",
10165                           ang="Overlapping checking." ),
10166 #
10167          CONNEXITE       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10168                           fr="Connexité du maillage.",
10169                           ang="Mesh connexity." ),
10170 #
10171          TAILLE          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10172                           fr="Tailles des sous-domaines du maillage.",
10173                           ang="Sizes of mesh sub-domains." ),
10174 #
10175          ),
10176 #
10177 )  ;
10178 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10179 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10180 # ======================================================================
10181 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10182 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10183 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10184 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10185 # (AT YOUR OPTION) ANY LATER VERSION.
10186 #
10187 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10188 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10189 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10190 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10191 #
10192 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10193 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10194 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10195 # ======================================================================
10196 IMPR_GENE=PROC(nom="IMPR_GENE",op= 157,
10197                fr="Calcul du dommage subi par une structure soumise à une sollicitation de type aléatoire",
10198                docu="U4.91.02-c",
10199             UIinfo={"groupes":("Impression",)},
10200          GENE            =FACT(statut='o',min=1,max='**',
10201            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
10202                           'LIST_INST','LIST_FREQ','TOUT_MODE','TOUT_INST','LIST_ORDRE'),
10203                    EXCLUS('TOUT_MODE','NUME_ORDRE','INST','FREQ','NUME_MODE',
10204                           'LIST_INST','LIST_FREQ','TOUT_ORDRE','TOUT_INST','LIST_ORDRE'),
10205                    EXCLUS('TOUT_INST','NUME_ORDRE','INST','FREQ','NUME_MODE',
10206                           'LIST_INST','LIST_FREQ','TOUT_ORDRE','LIST_ORDRE'),
10207                    EXCLUS('TOUT_CMP_GENE','NUME_CMP_GENE'),
10208                    EXCLUS('TOUT_CHAM','NOM_CHAM'),
10209                    EXCLUS('TOUT_PARA','NOM_PARA'),),
10210 #  faut-il faire des blocs selon le type de RESU_GENE
10211            RESU_GENE       =SIMP(statut='o',typ=(vect_asse_gene, tran_gene, mode_gene, harm_gene)),
10212            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
10213            FICHIER         =SIMP(statut='f',typ='TXM' ),
10214            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10215            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
10216            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
10217            TOUT_MODE       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10218            NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
10219            INST            =SIMP(statut='f',typ='R',max='**'),
10220            LIST_INST       =SIMP(statut='f',typ=listr8 ),
10221            TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10222            FREQ            =SIMP(statut='f',typ='R',max='**'),
10223            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
10224            b_prec_crit     =BLOC(condition = "LIST_FREQ != None or FREQ != None",
10225              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10226              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
10227                                    into=("RELATIF","ABSOLU") ),
10228            ),
10229            TOUT_CMP_GENE   =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10230            NUME_CMP_GENE   =SIMP(statut='f',typ='I',max='**'),
10231            TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10232            NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
10233            TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10234            NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
10235            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
10236            INFO_CMP_GENE   =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10237            INFO_GENE       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10238          ),
10239 )  ;
10240 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10241 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10242 # ======================================================================
10243 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10244 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10245 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10246 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10247 # (AT YOUR OPTION) ANY LATER VERSION.
10248 #
10249 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10250 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10251 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10252 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10253 #
10254 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10255 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10256 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10257 # ======================================================================
10258 IMPR_JEVEUX=PROC(nom="IMPR_JEVEUX",op=16,docu="U4.91.21-f",
10259             UIinfo={"groupes":("Impression",)},
10260                  fr="Impression de caractéristiques d'objets JEVEUX (pour développeur)",
10261          ENTITE          =SIMP(fr="choix de l'observation",statut='o',typ='TXM',
10262                                into=("DISQUE","MEMOIRE","REPERTOIRE",
10263                                      "OBJET","ATTRIBUT","SYSTEME") ),
10264          b_objet      =BLOC(condition = "(ENTITE=='OBJET')",
10265             NOMOBJ          =SIMP(fr="nom d'objet",statut='f',typ='TXM' ),
10266             NUMOC           =SIMP(fr="numéro d objet de collection",statut='f',typ='I' ),
10267             NOMOC           =SIMP(fr="nom d'objet de collection",statut='f',typ='TXM' ),
10268          ),
10269          b_attribut   =BLOC(condition = "(ENTITE=='ATTRIBUT')",
10270             NOMOBJ          =SIMP(fr="nom de collection",statut='f',typ='TXM' ),
10271             NOMATR          =SIMP(fr="nom d attribut de collection",statut='f',typ='TXM',
10272                                   into=('$$DESO','$$IADD','$$IADM','$$NOM','$$LONG',
10273                                       '$$LONO','$$LUTI','$$NUM') ),
10274          ),
10275          b_systeme    =BLOC(condition = "(ENTITE=='SYSTEME')",
10276             CLASSE          =SIMP(statut='o',typ='TXM',into=('G','V','L') ),
10277             NOMATR          =SIMP(fr="nom d attribut systeme",statut='f',typ='TXM',
10278                                   into=('$$CARA','$$IADD','$$GENR','$$TYPE','$$ETAT',
10279                                       '$$DOCU','$$ORIG','$$RNOM','$$LTYP','$$LONG',
10280                                       '$$LONO','$$DATE','$$LUTI','$$HCOD','$$INDX',
10281                                       '$$TLEC','$$TECR','$$IADM','$$ACCE') ),
10282          ),
10283          b_repertoire =BLOC(condition = "(ENTITE=='REPERTOIRE')",
10284             CLASSE          =SIMP(statut='f',typ='TXM',into=('G','V','L',' '),defaut=' '),
10285          ),
10286          b_disque     =BLOC(condition = "(ENTITE=='DISQUE')",
10287             CLASSE          =SIMP(statut='f',typ='TXM' ,into=('G','V','L',' '),defaut=' '),
10288          ),
10289          IMPRESSION      =FACT(statut='f',min=1,max=1,
10290            NOM             =SIMP(statut='f',typ='TXM' ),
10291            UNITE           =SIMP(statut='f',typ='I'),
10292          ),
10293          COMMENTAIRE     =SIMP(statut='f',typ='TXM' ),
10294 )  ;
10295 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10296 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10297 # ======================================================================
10298 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10299 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10300 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10301 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10302 # (AT YOUR OPTION) ANY LATER VERSION.
10303 #
10304 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10305 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10306 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10307 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10308 #
10309 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10310 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10311 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10312 # ======================================================================
10313 IMPR_MACR_ELEM=PROC(nom="IMPR_MACR_ELEM",op= 160,
10314                     docu="U7.04.33-d1",
10315             UIinfo={"groupes":("Impression",)},
10316          MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
10317          FICHIER         =SIMP(statut='f',typ='TXM' ),
10318          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",
10319                                into=("MISS_3D","IDEAS","CADYRO","PLEXUS") ),
10320          b_ideas         =BLOC(condition = "FORMAT == 'PLEXUS'",
10321            VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10322          ),
10323          b_plexus         =BLOC(condition = "FORMAT == 'IDEAS'",
10324            VERSION          =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10325          ),
10326          b_miss_3d       =BLOC(condition = "FORMAT == 'MISS_3D'",
10327            UNITE           =SIMP(statut='f',typ='I',defaut= 26 ),
10328            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
10329            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
10330            GROUP_MA_INTERF =SIMP(statut='o',typ=grma,max='**'),
10331 #  Ces trois mots cles sont-ils dans le bon bloc et avec le bon statut
10332            GROUP_MA_FLU_STR=SIMP(statut='f',typ=grma,max='**'),
10333            GROUP_MA_FLU_SOL=SIMP(statut='f',typ=grma,max='**'),
10334            GROUP_MA_SOL_SOL=SIMP(statut='f',typ=grma,max='**'),
10335            IMPR_MODE_MECA  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10336            IMPR_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10337          ),
10338          b_cadyro        =BLOC(condition = "FORMAT == 'CADYRO'",
10339            SQUELETTE       =SIMP(statut='f',typ=squelette ),
10340            UNITE_MODE_MECA =SIMP(statut='f',typ='I',defaut= 26 ),
10341            UNITE_MODE_STAT =SIMP(statut='f',typ='I',defaut= 27 ),
10342            UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut= 28 ),
10343            IMPR_MODE_MECA  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10344            IMPR_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10345          ),
10346
10347 )  ;
10348 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10349 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10350 # ======================================================================
10351 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10352 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10353 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10354 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10355 # (AT YOUR OPTION) ANY LATER VERSION.
10356 #
10357 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10358 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10359 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10360 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10361 #
10362 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10363 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10364 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10365 # ======================================================================
10366 IMPR_MATRICE=PROC(nom="IMPR_MATRICE",op= 159,
10367                   fr="Impression des matrices élémentaires et des matrices assemblées",
10368                   docu="U7.04.32-c",
10369             UIinfo={"groupes":("Impression",)},
10370          regles=(AU_MOINS_UN('MATR_ELEM','MATR_ASSE'),),
10371
10372          MATR_ELEM       =FACT(statut='f',min=1,max='**',
10373            FICHIER         =SIMP(statut='f',typ='TXM' ),
10374            FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",
10375                                  into=("IDEAS","RESULTAT") ),
10376            b_format      =BLOC(condition = "FORMAT == 'IDEAS'",
10377              VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10378            ),
10379 #  créer les types matr_elem  et vect_elem
10380            MATRICE         =SIMP(statut='o',typ=(matr_elem, vect_elem)),
10381 #  Quelle regle pour TOUT, NOEUD, GROUP_NO, MAILLE, GROUP_MA
10382            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10383            NOEUD           =SIMP(statut='f',typ=no,max='**'),
10384            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
10385            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10386            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10387            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
10388            GRAIN           =SIMP(statut='f',typ='TXM',defaut="VALEUR",
10389                                  into=("VALEUR","NOEUD","MAILLE") ),
10390            NB_CHIFFRE      =SIMP(statut='f',typ='I',defaut= 4 ),
10391          ),
10392          MATR_ASSE       =FACT(statut='f',min=1,max='**',
10393            FICHIER         =SIMP(statut='f',typ='TXM' ),
10394            FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",
10395                                  into=("IDEAS","RESULTAT") ),
10396            VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10397 #  créer le type matr_elem
10398            MATRICE         =SIMP(statut='o',typ=matr_asse),
10399 #  Quelle regle pour TOUT, NOEUD, GROUP_NO, MAILLE, GROUP_MA
10400            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10401            NOEUD           =SIMP(statut='f',typ=no,max='**'),
10402            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
10403            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10404            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10405            OPTION          =SIMP(statut='f',typ='TXM',defaut="SOUS_MATRICE",
10406                                  into=("SOUS_MATRICE","LIGNE","COLONNE") ),
10407            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
10408            GRAIN           =SIMP(statut='f',typ='TXM',defaut="VALEUR",
10409                                  into=("VALEUR","NOEUD") ),
10410            NB_CHIFFRE      =SIMP(statut='f',typ='I',defaut= 4 ),
10411            VALE_ZERO       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
10412          ),
10413 )  ;
10414 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10415 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10416 # ======================================================================
10417 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10418 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10419 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10420 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10421 # (AT YOUR OPTION) ANY LATER VERSION.
10422 #
10423 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10424 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10425 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10426 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10427 #
10428 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10429 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10430 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10431 # ======================================================================
10432 IMPR_MISS_3D=PROC(nom="IMPR_MISS_3D",op= 162,
10433                   docu="U7.04.11-c",
10434             UIinfo={"groupes":("Impression",)},
10435          regles=(UN_PARMI('INST_INIT','FREQ_INIT'),
10436                  PRESENT_PRESENT('INST_INIT','INST_FIN'),
10437                  PRESENT_PRESENT('FREQ_INIT','FREQ_FIN'),),
10438          MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
10439          EXCIT           =FACT(statut='f',min=1,max='**',
10440            regles=(UN_PARMI('FONC_MULT','COEF_MULT' ),),
10441            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
10442            FONC_MULT       =SIMP(statut='f',typ=fonction ),
10443            COEF_MULT       =SIMP(statut='f',typ='R' ),
10444          ),
10445          EXCIT_SOL       =FACT(statut='f',min=1,max='**',
10446            DIRECTION       =SIMP(statut='o',typ='R',max='**'),
10447            FONC_SIGNAL     =SIMP(statut='f',typ=fonction ),
10448            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",
10449                                  into=("DEPL","VITE","ACCE","FORC",) ),
10450          ),
10451          INST_INIT       =SIMP(statut='f',typ='R' ),
10452          INST_FIN        =SIMP(statut='f',typ='R' ),
10453          FREQ_INIT       =SIMP(statut='f',typ='R' ),
10454          FREQ_FIN        =SIMP(statut='f',typ='R' ),
10455          PAS             =SIMP(statut='o',typ='R' ),
10456          UNITE           =SIMP(statut='f',typ='I',defaut= 26 ),
10457          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
10458          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
10459 )  ;
10460 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10461 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10462 # ======================================================================
10463 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10464 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10465 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10466 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10467 # (AT YOUR OPTION) ANY LATER VERSION.
10468 #
10469 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10470 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10471 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10472 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10473 #
10474 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10475 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10476 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10477 # ======================================================================
10478 IMPR_RESU=PROC(nom="IMPR_RESU",op=39,docu="U4.91.01-g1",
10479             UIinfo={"groupes":("Impression",)},
10480                fr="Impression du résultat d un calcul (différents formats)",
10481          MODELE          =SIMP(statut='f',typ=modele),
10482          RESU            =FACT(statut='o',min=1,max='**',
10483            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
10484                                  into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED","GMSH") ),
10485
10486            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
10487              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
10488            ),
10489
10490            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
10491              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
10492            ),
10493
10494            regles=(AU_MOINS_UN('CHAM_GD','RESULTAT','MAILLAGE'),
10495                    EXCLUS('CHAM_GD','RESULTAT'),),
10496            MAILLAGE        =SIMP(statut='f',typ=(maillage,squelette)),
10497            INFO_MAILLAGE   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10498            CHAM_GD         =SIMP(statut='f',typ=cham_gd),
10499            RESULTAT        =SIMP(statut='f',typ=resultat),# CO() sd a creer !!!
10500
10501            b_sensibilite   =BLOC(condition="RESULTAT != None",
10502                                  fr="Définition des paramètres de sensibilité",
10503                                  ang="Definition of sensitivity parameters",
10504              SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
10505                                    fr="Liste des paramètres de sensibilité.",
10506                                    ang="List of sensitivity parameters"),),
10507
10508            b_extrac        =BLOC(condition="RESULTAT != None",
10509                                  fr="extraction d un champ de grandeur",
10510              regles=(EXCLUS('TOUT_CHAM','NOM_CHAM'),
10511                      EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP',
10512                             'LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS','ANGL'),),
10513              TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10514              NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
10515
10516              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10517              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
10518              NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
10519              LIST_ORDRE      =SIMP(statut='f',typ=listis),
10520              NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
10521              NOM_CAS         =SIMP(statut='f',typ='TXM',max='**'),
10522              ANGL            =SIMP(statut='f',typ='R',max='**'),
10523              FREQ            =SIMP(statut='f',typ='R',max='**'),
10524              LIST_FREQ       =SIMP(statut='f',typ=listr8),
10525              INST            =SIMP(statut='f',typ='R',max='**'),
10526              LIST_INST       =SIMP(statut='f',typ=listr8),
10527
10528              b_acce_reel     =BLOC(condition="(FREQ != None)or(LIST_FREQ != None)or(INST != None)or(LIST_INST != None)",
10529                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
10530                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10531              ),
10532            ),
10533
10534            b_parametres    =BLOC(condition="""(RESULTAT != None)and(FORMAT == 'RESULTAT')""",
10535              regles=(EXCLUS('TOUT_PARA','NOM_PARA'),),
10536              INFO_RESU       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10537              TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI","NON",) ),
10538              NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
10539              FORM_TABL       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON","EXCEL") ),
10540            ),
10541
10542            b_cmp=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and\
10543                                    ((FORMAT == 'RESULTAT')or(FORMAT == 'ENSIGHT')or(FORMAT == 'MED'))""",
10544                                  fr="sélection des composantes",
10545              regles=(EXCLUS('TOUT_CMP','NOM_CMP'),),
10546              TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10547              NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
10548            ),
10549
10550            b_gmsh=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and((FORMAT == 'GMSH'))""",
10551                                  fr="sélection des composantes et des entités toplogiques",
10552              NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
10553              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10554              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10555            ),
10556
10557            b_topologie=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and((FORMAT == 'RESULTAT')or(FORMAT == 'IDEAS'))""",
10558                                    fr="sélection des entités toplogiques",
10559              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10560              NOEUD           =SIMP(statut='f',typ=no,max='**'),
10561              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
10562              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10563              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10564            ),
10565
10566            b_valeurs         =BLOC(condition="(FORMAT == 'RESULTAT')",
10567                                    fr="sélection sur les valeurs",
10568              VALE_MAX        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10569              VALE_MIN        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10570              BORNE_SUP       =SIMP(statut='f',typ='R'),
10571              BORNE_INF       =SIMP(statut='f',typ='R'),
10572              IMPR_COOR       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10573              FORMAT_R        =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
10574            ),
10575
10576            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
10577            FICHIER         =SIMP(statut='f',typ='TXM'),
10578          ),
10579          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
10580 ) ;
10581 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10582 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10583 # ======================================================================
10584 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10585 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10586 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10587 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10588 # (AT YOUR OPTION) ANY LATER VERSION.
10589 #
10590 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10591 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10592 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10593 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10594 #
10595 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10596 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10597 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10598 # ======================================================================
10599 IMPR_STURM=PROC(nom="IMPR_STURM",op=32,fr="Calculer et imprimer le nombre de valeurs propres dans un intervalle donné",
10600                 docu="U4.52.01-f",
10601             UIinfo={"groupes":("Résolution",)},
10602          MATR_A          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
10603          MATR_B          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
10604          TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="DYNAMIQUE",into=("MODE_FLAMB","DYNAMIQUE"),
10605                                fr="Type d analyse" ),
10606          b_dynamique  =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
10607                             fr="Recheche du nombre de fréquences propres",
10608              FREQ_MIN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ,fr="Borne inférieure de l intervalle" ),
10609              FREQ_MAX        =SIMP(statut='o',typ='R',fr="Borne supérieure de l intervalle" ),
10610          ),
10611          b_mode_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
10612                             fr="Recherche du nombre de charges critiques",
10613              CHAR_CRIT_MIN   =SIMP(statut='o',typ='R',fr="Borne inférieure de l intervalle" ),
10614              CHAR_CRIT_MAX   =SIMP(statut='o',typ='R',fr="Borne supérieure de l intervalle" ),
10615          ),
10616          NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8 ),
10617          NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
10618          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
10619          PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
10620          SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
10621 )  ;
10622 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10623 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10624 # ======================================================================
10625 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10626 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10627 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10628 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10629 # (AT YOUR OPTION) ANY LATER VERSION.
10630 #
10631 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10632 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10633 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10634 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10635 #
10636 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10637 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10638 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10639 # ======================================================================
10640 # RESPONSABLE VABHHTS J.PELLET
10641 IMPR_TABLE=PROC(nom="IMPR_TABLE",op=155,docu="U4.91.03-d2",
10642             UIinfo={"groupes":("Impression",)},
10643                 fr="Impression d un concept de type table",
10644          TABLE           =SIMP(statut='o',typ=table),
10645          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT", ),
10646          FORMAT          =SIMP(statut='f',typ='TXM',defaut="EXCEL",
10647                                into=("EXCEL","AGRAF","MOT_CLE","TABLEAU","ASTER") ),
10648          FILTRE          =FACT(statut='f',min=1,max='**',
10649            NOM_PARA        =SIMP(statut='o',typ='TXM'),
10650            CRIT_COMP       =SIMP(statut='f',typ='TXM',defaut="EQ",
10651                                  into=("EQ","LT","GT","NE","LE","GE","VIDE",
10652                                        "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
10653            b_vale          =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
10654               regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
10655               VALE            =SIMP(statut='f',typ='R'),
10656               VALE_I          =SIMP(statut='f',typ='I'),
10657               VALE_C          =SIMP(statut='f',typ='C'),
10658               VALE_K          =SIMP(statut='f',typ='TXM'),),
10659
10660            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10661            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10662          ),
10663          TRI             =FACT(statut='f',min=1,max=1,
10664            NOM_PARA        =SIMP(statut='o',typ='TXM',max='**'),
10665            ORDRE           =SIMP(statut='f',typ='TXM',max='**',defaut="CROISSANT",
10666                                  into=("CROISSANT","DECROISSANT") ),
10667            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10668            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10669          ),
10670          PAGINATION      =SIMP(statut='f',typ='TXM',max='**'),
10671          FORMAT_R        =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
10672          FORMAT_C        =SIMP(statut='f',typ='TXM',defaut="MODULE_PHASE",
10673                                     into=("MODULE_PHASE","REEL_IMAG") ),
10674          NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
10675          TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI",)),
10676          IMPR_FONCTION   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10677 )  ;
10678 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10679 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10680 # ======================================================================
10681 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10682 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10683 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10684 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10685 # (AT YOUR OPTION) ANY LATER VERSION.
10686 #
10687 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10688 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10689 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10690 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10691 #
10692 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10693 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10694 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10695 # ======================================================================
10696 INCLUDE=MACRO(nom="INCLUDE",op=-1,docu="U4.13.01-e",
10697             UIinfo={"groupes":("Gestion du travail",)},
10698              fr="Débranchement vers un fichier de commandes secondaires",
10699              sd_prod=ops.INCLUDE,op_init=ops.INCLUDE_context,fichier_ini=1,
10700          UNITE = SIMP(statut='o',typ='I'),
10701          INFO  = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10702 );
10703 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10704 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10705 # ======================================================================
10706 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10707 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10708 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10709 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10710 # (AT YOUR OPTION) ANY LATER VERSION.
10711 #
10712 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10713 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10714 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10715 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10716 #
10717 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10718 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10719 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10720 # ======================================================================
10721 INCLUDE_MATERIAU=MACRO(nom="INCLUDE_MATERIAU",op=-14,docu="U4.43.02-a",
10722             UIinfo={"groupes":("Modélisation",)},
10723                        fr=" ",
10724          sd_prod=ops.INCLUDE_MATERIAU,op_init=ops.INCLUDE_context,fichier_ini=0,
10725          NOM_AFNOR       =SIMP(statut='o',typ='TXM' ),
10726          TYPE_MODELE     =SIMP(statut='o',typ='TXM',into=("REF","PAR") ),
10727          VARIANTE        =SIMP(statut='o',typ='TXM',
10728                                into=("A","B","C","D","E","F","G","H","I","J",
10729                                      "K","L","M","N","O","P","Q","R","S","T","U","V",
10730                                      "W","X","Y","Z",) ),
10731          TYPE_VALE       =SIMP(statut='o',typ='TXM',into=("NOMI","MINI","MAXI") ),
10732          NOM_MATER       =SIMP(statut='o',typ='TXM' ),
10733          UNITE           =SIMP(statut='f',typ='I',defaut= 32 ),
10734          EXTRACTION      =FACT(statut='f',min=1,max=99,
10735            COMPOR          =SIMP(statut='o',typ='TXM' ),
10736            TEMP_EVAL       =SIMP(statut='o',typ='R' ),
10737          ),
10738          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
10739 )  ;
10740 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10741 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10742 # ======================================================================
10743 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10744 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10745 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10746 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10747 # (AT YOUR OPTION) ANY LATER VERSION.
10748 #
10749 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10750 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10751 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10752 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10753 #
10754 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10755 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10756 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10757 # ======================================================================
10758 # RESPONSABLE G8BHHXD X.DESROCHES
10759 INTE_MAIL_2D=OPER(nom="INTE_MAIL_2D",op=50,sd_prod=courbe,docu="U4.81.11-e",
10760             UIinfo={"groupes":("Post traitements",)},
10761                   fr="Définition d une courbe sur un maillage 2D",reentrant='n',
10762
10763          MAILLAGE        =SIMP(statut='o',typ=(maillage) ),
10764
10765          regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
10766                  AU_MOINS_UN('DEFI_SEGMENT','DEFI_ARC','DEFI_CHEMIN'),
10767                  PRESENT_ABSENT('DEFI_CHEMIN','DEFI_SEGMENT','DEFI_ARC'),
10768                  PRESENT_ABSENT('DEFI_SEGMENT','NOEUD_ORIG','GROUP_NO_ORIG'),
10769                  PRESENT_ABSENT('DEFI_ARC','NOEUD_ORIG','GROUP_NO_ORIG'),
10770                  EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
10771                  EXCLUS('DEFI_CHEMIN','DEFI_SEGMENT'),
10772                  EXCLUS('DEFI_CHEMIN','DEFI_ARC'),),
10773
10774          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10775          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10776          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10777
10778          DEFI_SEGMENT    =FACT(statut='f',min=1,max='**',
10779            regles=(UN_PARMI('ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
10780                    UN_PARMI('EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),),
10781            ORIGINE         =SIMP(statut='f',typ='R',min=2,max=2),
10782            NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
10783            GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
10784            EXTREMITE       =SIMP(statut='f',typ='R',min=2,max=2),
10785            NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
10786            GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
10787          ),
10788
10789          DEFI_ARC        =FACT(statut='f',min=1,max='**',
10790            regles=(UN_PARMI('CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),
10791                    UN_PARMI('RAYON','ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
10792                    UN_PARMI('RAYON','EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),
10793                    PRESENT_PRESENT('RAYON','SECTEUR'),),
10794            CENTRE          =SIMP(statut='f',typ='R',min=2,max=2),
10795            NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=1),
10796            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno,max=1),
10797            RAYON           =SIMP(statut='f',typ='R',max=1,val_min=0.E+0),
10798            SECTEUR         =SIMP(statut='f',typ='R',min=2,max=2,
10799                                  val_min=-180.E+0,val_max=180E+0),
10800            ORIGINE         =SIMP(statut='f',typ='R',min=2,max=2),
10801            NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
10802            GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
10803            EXTREMITE       =SIMP(statut='f',typ='R',min=2,max=2),
10804            NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
10805            GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
10806            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10807            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
10808                                  into=("RELATIF","ABSOLU",) ),
10809          ),
10810
10811          DEFI_CHEMIN     =FACT(statut='f',min=1,max='**',
10812            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
10813            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10814            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10815          ),
10816
10817          NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
10818          GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
10819          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
10820          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10821 )  ;
10822 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10823 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10824 # ======================================================================
10825 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10826 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10827 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10828 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10829 # (AT YOUR OPTION) ANY LATER VERSION.
10830 #
10831 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10832 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10833 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10834 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10835 #
10836 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10837 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10838 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10839 # ======================================================================
10840 # RESPONSABLE G8BHHXD X.DESROCHES
10841 INTE_MAIL_3D=OPER(nom="INTE_MAIL_3D",op=96,sd_prod=surface,docu="U4.81.12-e",
10842             UIinfo={"groupes":("Post traitements",)},
10843                   fr="Définition d un chemin sur un maillage 3D",reentrant='n',
10844          MAILLAGE        =SIMP(statut='o',typ=maillage),
10845          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10846          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10847          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10848          DEFI_SEGMENT    =FACT(statut='o',min=1,max='**',
10849            regles=(UN_PARMI('ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
10850                    UN_PARMI('EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),),
10851            ORIGINE         =SIMP(statut='f',typ='R',min=3,max=3),
10852            NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
10853            GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
10854            EXTREMITE       =SIMP(statut='f',typ='R',min=3,max=3),
10855            NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
10856            GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
10857          ),
10858          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
10859          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10860 )  ;
10861 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10862 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10863 # ======================================================================
10864 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10865 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10866 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10867 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10868 # (AT YOUR OPTION) ANY LATER VERSION.
10869 #
10870 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10871 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10872 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10873 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10874 #
10875 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10876 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10877 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10878 # ======================================================================
10879 def lire_champ_prod(TYPE_CHAM=None,**args):
10880   if TYPE_CHAM == "CHAM_NO_TEMP_R" : return cham_no_temp_r
10881   if TYPE_CHAM == "CHAM_NO_DEPL_R" : return cham_no_depl_r
10882   raise AsException("type de concept resultat non prevu")
10883
10884 LIRE_CHAMP=OPER(nom="LIRE_CHAMP",op= 192,sd_prod=lire_champ_prod,
10885                 fr="Lire un champ dans un fichier et le stocker dans un concept.",
10886                 ang="To read a field in a file and to save it in a concept.",
10887                 docu="U7.02.02-b2",reentrant='n',
10888             UIinfo={"groupes":("Post traitements",)},
10889 #
10890 # 1. Le maillage support du champ
10891 #
10892          MAILLAGE        =SIMP(statut='o',typ=maillage,
10893                           fr="Nom du maillage support du champ",
10894                           ang="Name of the mesh on which the field is defined" ),
10895 #
10896 # 2. Format de lecture
10897 #    Remarque : seul MED est operationnel dans cette version.
10898 #
10899          FORMAT          =SIMP(statut='f',typ='TXM',defaut="MED",into=("MED",),
10900                           fr="Format du fichier : MED seulement",
10901                           ang="Format of the file : MED only" ),
10902 #
10903 # 3. L'unite logique du fichier.
10904 #
10905          UNITE           =SIMP(statut='f',typ='I',defaut= 81,
10906                           fr="Le fichier est : fort.n.",
10907                           ang="File is : fort.n" ),
10908 #
10909 # 4. Pour le format MED, il faut preciser le nom sous lequel le champ est connu dans le fichier
10910 #    et les composantes a lire
10911 #
10912          b_format =BLOC(condition = "FORMAT == 'MED'",
10913                         fr="Nom du champ dans le fichier MED",
10914          regles=(UN_PARMI('NOM_CMP_IDEM','NOM_CMP'),
10915           PRESENT_PRESENT('NOM_CMP','NOM_CMP_MED' ),),
10916 #
10917             NOM_MED      =SIMP(statut='o',typ='TXM',
10918                           fr="Nom du champ dans le fichier MED.",
10919                           ang="Name of the field in the MED file." ),
10920 #
10921             NOM_CMP_IDEM =SIMP(statut='f',typ='TXM',into=("OUI",),
10922                           fr="Les composantes ont le meme nom dans MED et ASTER.",
10923                           ang="The names of the components are the same in ASTER and MED." ),
10924             NOM_CMP      =SIMP(statut='f',typ='TXM',max='**',
10925                           fr="Nom des composantes dans ASTER.",
10926                           ang="Names of the components in ASTER" ),
10927             NOM_CMP_MED  =SIMP(statut='f',typ='TXM',max='**',
10928                           fr="Nom des composantes dans MED.",
10929                           ang="Names of the components in MED" ),
10930 #
10931             NUME_ORDRE   =SIMP(statut='f',typ='I',max='**',
10932                           fr="Numéro d'ordre du champ à lire.",
10933                           ang="Rank number of the field to read."),
10934 #
10935             NUME_PT      =SIMP(statut='f',typ='I',max='**',
10936                           fr="Numéro du pas de temps du champ à lire.",
10937                           ang="Time step number of the field to read."),
10938 #
10939 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
10940 # le maillage associé au champ y a été enregistré. Par défaut, on prendra le premier maillage.
10941 #
10942             NOM_MAIL_MED = SIMP(statut='f',typ='TXM',
10943                            fr="Nom du maillage dans le fichier MED.",
10944                            ang="Name of the mesh into the MED file.",),
10945 #
10946                   ),
10947 #
10948 # 5. Le type du concept lu
10949 #
10950          TYPE_CHAM       =SIMP(statut='o',typ='TXM',into=("CHAM_NO_TEMP_R","CHAM_NO_DEPL_R"),
10951                           fr="Type de champ à créer.",
10952                           ang="Type of the field to create." ),
10953 #
10954 # 6. Le niveau d'information
10955 #
10956          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
10957 )  ;
10958 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10959 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10960 # ======================================================================
10961 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10962 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10963 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10964 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10965 # (AT YOUR OPTION) ANY LATER VERSION.
10966 #
10967 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10968 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10969 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10970 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10971 #
10972 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10973 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10974 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10975 # ======================================================================
10976 LIRE_FONCTION=OPER(nom="LIRE_FONCTION",op=  83,sd_prod=fonction,
10977                    fr="Lecture d une fonction dans un fichier ",
10978                    docu="U4.32.02-f1",reentrant='n',
10979             UIinfo={"groupes":("Fonction",)},
10980          UNITE           =SIMP(statut='o',typ='I' ),
10981          NOM_PARA        =SIMP(statut='f',typ='TXM',
10982                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
10983                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
10984          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
10985          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
10986          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10987          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10988          NOM_PARA_FONC   =SIMP(statut='f',typ='TXM',
10989                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
10990                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
10991          INTERPOL_FONC   =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
10992          PROL_DROITE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10993          PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10994          INFO            =SIMP(statut='f',typ='I',defaut= 2,into=( 1 , 2) ),
10995          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
10996 )  ;
10997 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10998 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10999 # ======================================================================
11000 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11001 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11002 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11003 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11004 # (AT YOUR OPTION) ANY LATER VERSION.
11005 #
11006 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11007 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11008 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11009 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11010 #
11011 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11012 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11013 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11014 # ======================================================================
11015 LIRE_INTE_SPEC=OPER(nom="LIRE_INTE_SPEC",op= 116,sd_prod=tabl_intsp,
11016                     fr="Lecture sur un fichier externe de  fonctions complexes pour créer une matrice interspectrale",
11017                     docu="U4.36.01-f2",reentrant='n',
11018             UIinfo={"groupes":("Fonction",)},
11019          UNITE           =SIMP(statut='o',typ='I' ),
11020          FORMAT          =SIMP(statut='f',typ='TXM',defaut="MODULE_PHASE",into=("REEL_IMAG","MODULE_PHASE") ),
11021          NOM_PARA        =SIMP(statut='f',typ='TXM',
11022                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
11023                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
11024          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
11025          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
11026          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
11027          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
11028          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11029          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
11030 )  ;
11031 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
11032 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11033 # ======================================================================
11034 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11035 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11036 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11037 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11038 # (AT YOUR OPTION) ANY LATER VERSION.
11039 #
11040 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11041 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11042 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11043 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11044 #
11045 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11046 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11047 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11048 # ======================================================================
11049 # RESPONSABLE VABHHTS J.PELLET
11050 LIRE_MAILLAGE=OPER(nom="LIRE_MAILLAGE",op=   1,sd_prod=maillage,
11051                    fr="Lecture d'un fichier de maillage",
11052                    ang="Readings of a mesh file",
11053                    docu="U4.21.01-g1",reentrant='n',
11054             UIinfo={"groupes":("Maillage",)},
11055 #
11056          UNITE           =SIMP(statut='f',typ='I',defaut= 20 ),
11057 #
11058          FORMAT          =SIMP(statut='f',typ='TXM',defaut="ASTER",into=("ASTER","MED"),
11059                             fr="Format du fichier : ASTER ou MED.",
11060                             ang="Format of the file : ASTER or MED.",),
11061 #
11062          ABSC_CURV       =FACT(statut='f',min=0,max=1,
11063                TOUT          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11064          ),
11065 #
11066          VERI_MAIL       =FACT(statut='d',min=1,max=1,
11067                VERIF         =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11068                APLAT         =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11069          ),
11070 #
11071          b_format_med =BLOC( condition = " ( FORMAT == 'MED' ) " ,
11072                            fr="Informations complémentaires pour la lecture MED.",
11073                            ang="Further information for MED readings.",
11074 #
11075 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
11076 # le maillage y a été enregistré. Par défaut, on va le chercher sous le nom du concept à créer.
11077 #
11078               NOM_MED    = SIMP(statut='f',typ='TXM',
11079                             fr="Nom du maillage dans le fichier MED.",
11080                             ang="Name of the mesh into the MED file.",),
11081 #
11082               INFO_MED   = SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11083 #
11084                            ) ,
11085 #
11086          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11087 #
11088 )  ;
11089 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
11090 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11091 # ======================================================================
11092 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11093 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11094 #              REDISTRIBUTION OF THIS FILE.
11095 # ======================================================================
11096 def lire_miss_3d_prod(TYPE_RESU,**args):
11097   if TYPE_RESU == "TRANS" : return dyna_trans
11098   if TYPE_RESU == "HARMO" : return dyna_harmo
11099   raise AsException("type de concept resultat non prevu")
11100
11101 LIRE_MISS_3D=OPER(nom="LIRE_MISS_3D",op= 163,sd_prod=lire_miss_3d_prod,
11102                   fr="Restitution au format MISS3D d une évolution harmonique ou transitoire",
11103                   docu="U7.02.31-c",reentrant='n',
11104             UIinfo={"groupes":("Maillage",)},
11105          MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
11106          UNITE           =SIMP(statut='f',typ='I',defaut= 27 ),
11107          NOM             =SIMP(statut='f',typ='TXM' ),
11108          TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="TRANS",into=("TRANS","HARMO") ),
11109          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11110 )  ;
11111 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
11112 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11113 # ======================================================================
11114 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11115 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11116 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11117 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11118 # (AT YOUR OPTION) ANY LATER VERSION.
11119 #
11120 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11121 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11122 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11123 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11124 #
11125 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11126 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11127 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11128 # ======================================================================
11129 LIRE_PLEXUS=OPER(nom="LIRE_PLEXUS",op= 184,sd_prod=evol_char,
11130                  fr=" ",
11131                  docu="U7.02.11-a",reentrant='n',
11132             UIinfo={"groupes":("Maillage",)},
11133          regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
11134          UNITE           =SIMP(statut='f',typ='I',defaut= 19 ),
11135          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",)),
11136          MAIL_PLEXUS     =SIMP(statut='o',typ=maillage ),
11137          MAILLAGE        =SIMP(statut='o',typ=maillage ),
11138          MODELE          =SIMP(statut='o',typ=modele ),
11139          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11140          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
11141          LIST_ORDRE      =SIMP(statut='f',typ=listis ),
11142          INST            =SIMP(statut='f',typ='R',max='**'),
11143          LIST_INST       =SIMP(statut='f',typ=listr8 ),
11144          b_prec_crit     =BLOC(condition = "LIST_INST != None or INST != None",
11145              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
11146              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
11147                                    into=("RELATIF","ABSOLU") ),
11148          ),
11149          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11150 )  ;
11151 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
11152 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11153 # ======================================================================
11154 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11155 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11156 #              REDISTRIBUTION OF THIS FILE.
11157 # ======================================================================
11158 # RESPONSABLE VABHHTS J.PELLET
11159 def lire_resu_prod(TYPE_RESU,**args):
11160   if TYPE_RESU == "EVOL_CHAR" :  return evol_char
11161   if TYPE_RESU == "EVOL_THER" :  return evol_ther
11162   if TYPE_RESU == "EVOL_ELAS" :  return evol_elas
11163   if TYPE_RESU == "EVOL_NOLI" :  return evol_noli
11164   if TYPE_RESU == "DYNA_TRANS" : return dyna_trans
11165   if TYPE_RESU == "DYNA_HARMO" : return dyna_harmo
11166   if TYPE_RESU == "HARM_GENE" :  return harm_gene
11167   if TYPE_RESU == "MODE_MECA" :  return mode_meca
11168   raise AsException("type de concept resultat non prevu")
11169
11170 LIRE_RESU=OPER(nom="LIRE_RESU",op=150,sd_prod=lire_resu_prod,docu="U7.02.01-d2",reentrant='n',
11171             UIinfo={"groupes":("Maillage",)},
11172                fr="Lecture de champs aux noeuds ou par éléments aux noeuds sur un fichier IDEAS ou EnSight",
11173
11174
11175 # 0 mots clés généraux :
11176 #----------------------
11177          TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_THER","EVOL_ELAS","EVOL_NOLI","MODE_MECA",
11178                                                           "DYNA_TRANS","DYNA_HARMO","HARM_GENE","EVOL_CHAR") ),
11179
11180          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS","ENSIGHT","MED") ),
11181          DATASET_58      =SIMP(statut='f',typ='TXM',defaut='NON',into=('OUI','NON',) ),
11182
11183          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
11184          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11185
11186          regles=(UN_PARMI('MAILLAGE','MODELE'),),
11187          MAILLAGE        =SIMP(statut='f',typ=maillage),
11188          MODELE          =SIMP(statut='f',typ=modele),
11189
11190          NB_VARI         =SIMP(statut='f',typ='I' ),
11191
11192
11193 # 1 blocs selon le format choisi :
11194 #---------------------------------
11195
11196 # 1-1 ideas :
11197 # ---------
11198          b_ideas         =BLOC(condition="FORMAT=='IDEAS'",
11199            UNITE           =SIMP(statut='f',typ='I',defaut= 19 ),
11200          ),
11201
11202          b_format_ideas = BLOC(condition="DATASET_58=='NON'",
11203            FORMAT_IDEAS    =FACT(statut='f',max='**',
11204              regles=(UN_PARMI('POSI_INST','POSI_FREQ'),),
11205              NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',into=("TEMP","DEPL","VITE","ACCE","PRES","VARI_ELNO",
11206                                                                      "SIEF_ELNO","EPSA_ELNO","TEMP_PEAU","VITE_VENT",
11207                                                                      "FVOL_3D","FVOL_2D","FSUR_3D","FSUR_2D") ),
11208              NUME_DATASET    =SIMP(statut='f',typ='I',into=(55,57,2414) ),
11209              RECORD_3        =SIMP(statut='f',typ='I',max=10),
11210              RECORD_6        =SIMP(statut='f',typ='I',max=10),
11211              RECORD_9        =SIMP(statut='f',typ='I',max=10),
11212              POSI_ORDRE      =SIMP(statut='o',typ='I',min=2,max=2),
11213              POSI_NUME_MODE  =SIMP(statut='f',typ='I',min=2,max=2),
11214              POSI_MASS_GENE  =SIMP(statut='f',typ='I',min=2,max=2),
11215              POSI_INST       =SIMP(statut='f',typ='I',min=2,max=2),
11216              POSI_FREQ       =SIMP(statut='f',typ='I',min=2,max=2),
11217              NOM_CMP         =SIMP(statut='o',typ='TXM',max='**'),),
11218          ),
11219          b_dataset_58 = BLOC(condition="(DATASET_58=='OUI') and ((TYPE_RESU=='DYNA_TRANS') or\
11220                                         (TYPE_RESU=='DYNA_HARMO') or (TYPE_RESU=='HARM_GENE'))",
11221              NOM_CHAM=SIMP(statut='o',typ='TXM',into=("DEPL","VITE","ACCE","EPSI_NOEU_DEPL","SIEF_NOEU",) ),
11222              REDEFI_ORIENT=FACT(statut='f',max='**',
11223                                 regles=(PRESENT_PRESENT('CODE_DIR','DIRECTION','NOEUD',),),
11224                                 CODE_DIR =SIMP(statut='f',typ='I',into=(1,2,3,) ),
11225                                 DIRECTION=SIMP(statut='f',typ='R',min=3,max=3,),
11226                                 NOEUD    =SIMP(statut='f',typ=no,max='**'),),
11227          ),
11228 # 1-2 ensight :
11229 # -------------
11230          b_ensight       =BLOC(condition="FORMAT=='ENSIGHT'",
11231            NOM_FICHIER     =SIMP(statut='f',typ='TXM'),
11232          ),
11233 # 1-3 med :
11234 # ---------
11235          b_med           =BLOC(condition = "FORMAT == 'MED'",fr="Nom du champ dans le fichier MED",
11236 #                           regles=(UN_PARMI('NOM_CMP_IDEM','NOM_CMP'),
11237 #                           PRESENT_PRESENT('NOM_CMP','NOM_CMP_MED' ),),
11238            NOM_MED         =SIMP(statut='o',typ='TXM',
11239                                  fr="Nom du champ dans le fichier MED.",
11240                                  ang="Name of the field in the MED file." ),
11241            NOM_CMP_IDEM    =SIMP(statut='f',typ='TXM',into=("OUI",),
11242                                  fr="Les composantes ont le meme nom dans MED et ASTER.",
11243                                  ang="The names of the components are the same in ASTER and MED." ),
11244            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**',
11245                                  fr="Nom des composantes dans ASTER.",
11246                                  ang="Names of the components in ASTER" ),
11247            NOM_CMP_MED     =SIMP(statut='f',typ='TXM',max='**',
11248                                  fr="Nom des composantes dans MED.",
11249                                  ang="Names of the components in MED" ),
11250 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
11251 # le maillage associé au champ y a été enregistré. Par défaut, on prendra le premier maillage.
11252            NOM_MAIL_MED    =SIMP(statut='f',typ='TXM',
11253                                  fr="Nom du maillage dans le fichier MED.",
11254                                  ang="Name of the mesh into the MED file.",),
11255            UNITE           =SIMP(statut='f',typ='I',defaut= 81,
11256                                  fr="Le fichier est : fort.n.",
11257                                  ang="File is : fort.n" ),
11258                   ),
11259
11260
11261 # 2 blocs selon le type du résultat :
11262 #---------------------------------
11263          b_evol_elas     =BLOC(condition="TYPE_RESU=='EVOL_ELAS'",
11264            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
11265                                  into=("DEPL",) ),
11266          ),
11267          b_evol_ther     =BLOC(condition="TYPE_RESU=='EVOL_THER'",
11268            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
11269                                  into=("TEMP","TEMP_PEAU") ),
11270          ),
11271          b_evol_char     =BLOC(condition="TYPE_RESU=='EVOL_CHAR'",
11272            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
11273                                  into=("PRES","VITE_VENT",
11274                                        "FVOL_3D","FVOL_2D",
11275                                        "FSUR_3D","FSUR_2D") ),
11276          ),
11277          b_evol_noli     =BLOC(condition="TYPE_RESU=='EVOL_NOLI'",
11278            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
11279                                  into=("DEPL","VITE","ACCE","VARI_ELNO",
11280                                        "SIEF_ELNO","EPSA_ELNO") ),
11281          ),
11282          b_mode_meca     =BLOC(condition="TYPE_RESU=='MODE_MECA'",
11283            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
11284                                  into=("DEPL",)
11285                                                  ),
11286            MATR_A         =SIMP(statut='f',typ=matr_asse_depl_r,min=1,max=1,),
11287            MATR_B         =SIMP(statut='f',typ=matr_asse_depl_r,min=1,max=1,),
11288          ),
11289          b_dyna          =BLOC(condition="((TYPE_RESU=='DYNA_TRANS') or (TYPE_RESU=='DYNA_HARMO') or\
11290                                           (TYPE_RESU=='HARM_GENE')) and (DATASET_58=='NON')",
11291            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
11292                                  into=("DEPL","VITE","ACCE",) ),
11293          ),
11294
11295
11296 # 3 autres blocs :
11297 #---------------------------------
11298          b_extrac        =BLOC(condition="1",fr="accès à un champ dans la structure de données résultat",
11299            regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST','FREQ','LIST_FREQ'),),
11300            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11301            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
11302            INST            =SIMP(statut='f',typ='R',max='**'),
11303            LIST_INST       =SIMP(statut='f',typ=listr8),
11304            LIST_ORDRE      =SIMP(statut='f',typ=listis),
11305            FREQ            =SIMP(statut='f',typ='R',max='**'),
11306            LIST_FREQ       =SIMP(statut='f',typ=listr8),
11307
11308            b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)or(FREQ != None)or(LIST_FREQ != None)",
11309              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
11310              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
11311            ),
11312          ),
11313 )  ;
11314 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
11315 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11316 # ======================================================================
11317 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
11318 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11319 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11320 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11321 # (AT YOUR OPTION) ANY LATER VERSION.
11322 #
11323 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11324 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11325 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11326 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11327 #
11328 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11329 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11330 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11331 # ======================================================================
11332 def lire_table_prod(TYPE_TABLE,**args):
11333   if TYPE_TABLE == "TABLE"          : return table
11334   if TYPE_TABLE == "TABL_CARA_GEOM" : return tabl_cara_geom
11335   if TYPE_TABLE == "TABL_POST_RELE" : return tabl_post_rele
11336   if TYPE_TABLE == "TABL_POST_USUR" : return tabl_post_usur
11337   if TYPE_TABLE == "TABL_POST_ALEA" : return tabl_post_alea
11338   raise AsException("type de concept resultat non prevu")
11339 LIRE_TABLE=OPER(nom="LIRE_TABLE",op=29,sd_prod=lire_table_prod,
11340                 docu="U7.02.03",fr="Lecture d un concept de type table",
11341             UIinfo={"groupes":("Maillage",)},
11342          UNITE           =SIMP(statut='o',typ='I' ),
11343          FORMAT          =SIMP(statut='f',typ='TXM',into=("ASTER",),defaut="ASTER"),
11344          NUME_TABLE      =SIMP(statut='f',typ='I',defaut=1),
11345          TYPE_TABLE      =SIMP(statut='f',typ='TXM',defaut="TABLE",
11346                               into=("TABLE",
11347                                     "TABL_CARA_GEOM",
11348                                     "TABL_POST_RELE",
11349                                     "TABL_POST_USUR",
11350                                     "TABL_POST_ALEA" ) ),
11351          SEPARATEUR      =SIMP(statut='o',typ='TXM'),
11352          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11353          )  ;
11354 #& MODIF COMMANDE  DATE 08/10/2002   AUTEUR GNICOLAS G.NICOLAS
11355 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11356 # ======================================================================
11357 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11358 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11359 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11360 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11361 # (AT YOUR OPTION) ANY LATER VERSION.
11362 #
11363 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11364 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11365 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11366 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11367 #
11368 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11369 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11370 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11371 # ======================================================================
11372 # RESPONSABLE GNICOLAS G.NICOLAS
11373 def macr_adap_mail_prod(self,MAJ_CHAM,ADAPTATION,**args):
11374   mail1=ADAPTATION['MAILLAGE_N']
11375   self.type_sdprod(mail1,maillage)
11376   mail2=ADAPTATION['MAILLAGE_NP1']
11377   self.type_sdprod(mail2,maillage)
11378   if MAJ_CHAM == None:return None
11379   for ch in MAJ_CHAM:
11380     t=ch['TYPE_CHAM']
11381     if t == 'CHAM_NO_TEMP_R':self.type_sdprod(ch['CHAM_MAJ'],cham_no_temp_r)
11382     if t == 'CHAM_NO_DEPL_R':self.type_sdprod(ch['CHAM_MAJ'],cham_no_depl_r)
11383   return None
11384
11385 MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",op=-24,sd_prod=macr_adap_mail_prod,
11386                      fr="Adapter un maillage avec le logiciel HOMARD.",
11387                      ang="Mesh adaptation with HOMARD software.",
11388                      docu="U7.03.01-b2",
11389 #
11390 # 1. Le niveau d'information
11391 #
11392          INFO           = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
11393 #
11394 # 2. Version de HOMARD
11395 #
11396          VERSION_HOMARD = SIMP(statut='f',typ='TXM',defaut="V5_5",
11397                                into=("V5_5", "V5_N", "V5_N_PERSO"),
11398                            fr="Version de HOMARD",
11399                            ang="HOMARD release"),
11400 #
11401 # 3. Langue des messages issus de HOMARD
11402 #
11403          LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
11404                                into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
11405                            fr="Langue des messages issus de HOMARD.",
11406                            ang="Language for HOMARD messages." ),
11407 #
11408 # 4. LE TYPE DE TRAITEMENT :
11409 #
11410          ADAPTATION      =FACT(statut='o',min=01,max=01,
11411                            fr="Type d'adaptation",
11412                            ang="Type of adaptation",
11413 #
11414 # 4.1. DEUX CHOIX D'ADAPTATION EXCLUSIFS :
11415 #
11416 # 4.1.
11417 #      A. SELON UN INDICATEUR D'ERREUR, AVEC TROIS VARIANTES :
11418 #         . RAFFINEMENT ET DERAFFINEMENT
11419 #         . RAFFINEMENT SEUL
11420 #         . DERAFFINEMENT SEUL
11421 #      B. UNIFORME, AVEC TROIS VARIANTES :
11422 #         . RAFFINEMENT SEUL
11423 #         . DERAFFINEMENT SEUL
11424 #         . RIEN : LE MAILLAGE EST LE MEME A LA SORTIE ET A L'ENTREE
11425 #
11426            regles=(
11427                    UN_PARMI('LIBRE','UNIFORME'),
11428                   ),
11429            LIBRE          = SIMP(statut='f',typ='TXM',
11430                                  into=("RAFF_DERA","RAFFINEMENT","DERAFFINEMENT"),
11431                            fr="Adaptation selon un indicateur d'erreur.",
11432                            ang="Adaptation among an error indicator" ),
11433            UNIFORME       = SIMP(statut='f',typ='TXM',
11434                                  into=("RAFFINEMENT","DERAFFINEMENT","RIEN"),
11435                            fr="Adaptation uniforme.",
11436                            ang="Uniform adaptation" ),
11437 #
11438 # 4.2. QUEL QUE SOIT LE TYPE DE TRAITEMENT, IL FAUT DONNER  :
11439 #      A. LE CONCEPT DU MAILLAGE INITIAL
11440 #      B. LE CONCEPT DU MAILLAGE FINAL
11441 #
11442            MAILLAGE_N     = SIMP(statut='o',typ=(CO,maillage),
11443                            fr="Maillage avant adaptation",
11444                            ang="Mesh before adaptation" ),
11445            MAILLAGE_NP1   = SIMP(statut='o',typ=(CO,maillage),
11446                            fr="Maillage apres adaptation",
11447                            ang="Mesh after adaptation" ),
11448 #
11449 # 4.3. POUR DE L'ADAPTATION LIBRE, IL FAUT L'INDICATEUR D'ERREUR
11450 #
11451 #
11452            b_indicateur_d_erreur   =BLOC( condition = " LIBRE != None " ,
11453                            fr="Indicateur d'erreur",
11454                            ang="Error indicator",
11455 #
11456 # 4.3.1. LE NOM DU CONCEPT RESULTAT
11457 #
11458                            RESULTAT_N     = SIMP(statut='o',typ=(evol_elas,evol_noli,evol_ther) ,
11459                            fr="Resultat contenant l'indicateur d'erreur",
11460                            ang="Result with error indicator" ),
11461 #
11462 # 4.3.2. LE CHAMP D'INDICATEUR D'ERREUR
11463 #
11464                            INDICATEUR     = SIMP(statut='o',typ='TXM',
11465                            fr="Champ de l'indicateur d'erreur",
11466                            ang="Error indicator field" ),
11467 #
11468 # 4.3.3. LA COMPOSANTE RETENUE
11469 #
11470                            NOM_CMP_INDICA = SIMP(statut='o',typ='TXM',
11471                            fr="Composante retenue",
11472                            ang="Selected component" ),
11473 #
11474 # 4.3.4. LE NUMERO D'ORDRE
11475 #
11476                            NUME_ORDRE     = SIMP(statut='f',typ='I' ,
11477                            fr="Numero d ordre",
11478                            ang="Rank" ),
11479                            ) ,
11480 #
11481 # 4.4. LES CRITERES POUR DE L'ADAPTATION LIBRE :
11482 #        ABSOLU, RELATIF, EN PROPORTION D'ENTITE
11483 # 4.4.1. POUR LE RAFFINEMENT :
11484 #
11485            b_critere_de_raffinement =BLOC( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'RAFFINEMENT' ) " ,
11486                            fr="Critère de raffinement.",
11487                            ang="Refinement threshold.",
11488                            regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE' ),),
11489                            CRIT_RAFF_ABS  = SIMP(statut='f',typ='R',
11490                                                    fr="Critère absolu",
11491                                                    ang="Absolute threshold" ),
11492                            CRIT_RAFF_REL  = SIMP(statut='f',typ='R',
11493                                                    fr="Critère relatif",
11494                                                    ang="Relative threshold" ),
11495                            CRIT_RAFF_PE   = SIMP(statut='f',typ='R',
11496                                                    fr="Pourcentage d'éléments",
11497                                                    ang="Percentage of elements" ),
11498                            ) ,
11499 #
11500 # 4.4.2. POUR LE DERAFFINEMENT :
11501 #
11502            b_critere_de_deraffinement =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'DERAFFINEMENT' ) " ,
11503                            fr="Critère de déraffinement.",
11504                            ang="Unrefinement threshold.",
11505                            regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE' ),),
11506                            CRIT_DERA_ABS  = SIMP(statut='f',typ='R' ,
11507                                                  fr="Critère absolu",
11508                                                  ang="Absolute threshold" ),
11509                            CRIT_DERA_REL  = SIMP(statut='f',typ='R',
11510                                                  fr="Critère relatif",
11511                                                  ang="Relative threshold" ),
11512                            CRIT_DERA_PE   = SIMP(statut='f',typ='R',
11513                                                  fr="Pourcentage d'éléments",
11514                                                  ang="Percentage of elements" ),
11515                            ) ,
11516 #
11517 # 4.5. LES NIVEAUX EXTREMES POUR LE MAILLAGE ADAPTE
11518 # 4.5.1. POUR LE RAFFINEMENT :
11519 #
11520            b_niveau_maximum =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'RAFFINEMENT' ) or \
11521                                                   ( UNIFORME == 'RAFFINEMENT' ) " ,
11522                              fr="Niveau maximum de profondeur de raffinement",
11523                              ang="Maximum level for refinement",
11524                              NIVE_MAX       = SIMP(statut='f',typ='I' ),
11525                            ) ,
11526 #
11527 # 4.5.2. POUR LE DERAFFINEMENT :
11528 #
11529            b_niveau_minimum =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'DERAFFINEMENT' ) or \
11530                                                   ( UNIFORME == 'DERAFFINEMENT' ) " ,
11531                              fr="Niveau minimum de profondeur de déraffinement",
11532                              ang="Minimum level for unrefinement",
11533                              NIVE_MIN       = SIMP(statut='f',typ='I' ),
11534                            ) ,
11535          ),
11536 #
11537 # 5. LA MISE A JOUR DE CHAMPS.
11538 #    PAR DEFAUT, RIEN NE SE FAIT
11539 #
11540          MAJ_CHAM        =FACT(statut='f',min=01,max='**',
11541                            fr="Mise à jour de champs sur le nouveau maillage.",
11542                            ang="Updating of fields over the new mesh.",
11543 #
11544 # 5.1. LE NOM DU RESULTAT DU CHAMP A INTERPOLER
11545 #
11546            RESULTAT       = SIMP(statut='o',
11547                                  typ=(evol_elas,evol_noli,evol_ther),
11548                            fr="Resultat contenant le champ à mettre à jour",
11549                            ang="Result with field to be updated" ),
11550 #
11551 # 5.2. LE NOM DU CHAMP A INTERPOLER
11552 #
11553            NOM_CHAM       = SIMP(statut='o',typ='TXM',
11554                            fr="Nom du champ à mettre à jour",
11555                            ang="Name of the field to be updated" ),
11556 #
11557 # 5.3. LE NUMERO D'ORDRE POUR LE CHAMP A INTERPOLER
11558 #
11559            NUME_ORDRE     = SIMP(statut='f',typ='I',
11560                            fr="Numero d ordre du champ à mettre à jour",
11561                            ang="Rank of the field to be updated" ),
11562 #
11563 # 5.4. LE NOM DU CHAMP QUI CONTIENDRA LE RESULTAT DE LA MISE A JOUR
11564 #
11565            CHAM_MAJ       = SIMP(statut='o',typ=(CO,cham_gd),
11566                            fr="Nom du champ qui contiendra le champ mis à jour",
11567                            ang="Name of the field for the updated field"),
11568 #
11569 # 5.5. LE TYPE DU CHAMP QUI CONTIENDRA LE RESULTAT DE LA MISE A JOUR
11570 #
11571            TYPE_CHAM      = SIMP(statut='o',typ='TXM',
11572                                  into=("CHAM_NO_TEMP_R","CHAM_NO_DEPL_R"),
11573                            fr="Type du champ qui contiendra le champ mis à jour",
11574                            ang="Type of the field for the updated field" ),
11575          ),
11576 #
11577 # 6. INFORMATION SUR LE MAILLAGE : par defaut, on ne fait que les nombres
11578 #    A. NOMBRE DE NOEUDS ET ELEMENTS DU MAILLAGE
11579 #    B. QUALITE DES ELEMENTS DU MAILLAGE
11580 #    C. CONTROLE DE LA NON INTERPENETRATION DES ELEMENTS DU MAILLAGE
11581 #    D. CONNEXITE DU MAILLAGE
11582 #    E. TAILLE DES DIFFERENTS SOUS-DOMAINES
11583 #
11584          NOMBRE         = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
11585                           fr="Nombre de noeuds et éléments du maillage",
11586                           ang="Number of nodes and elements in the mesh" ),
11587 #
11588          QUALITE        = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11589                           fr="Qualité du maillage",
11590                           ang="Mesh quality" ),
11591 #
11592          INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11593                           fr="Controle de la non interpénétration des éléments.",
11594                           ang="Overlapping checking." ),
11595 #
11596          CONNEXITE      = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11597                           fr="Connexité du maillage.",
11598                           ang="Mesh connexity." ),
11599 #
11600          TAILLE         = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11601                           fr="Tailles des sous-domaines du maillage.",
11602                           ang="Sizes of mesh sub-domains." ),
11603 #
11604          MENAGE         = SIMP(statut='f',typ='TXM',into=("MAILLAGE","SOLUTION","TOUT") ),
11605 #
11606 )  ;
11607 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
11608 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11609 # ======================================================================
11610 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11611 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11612 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11613 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11614 # (AT YOUR OPTION) ANY LATER VERSION.
11615 #
11616 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11617 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11618 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11619 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11620 #
11621 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11622 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11623 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11624 # ======================================================================
11625 # RESPONSABLE F1BHHAJ J.ANGLES
11626 def macr_ascouf_calc_prod(self,MODELE,CHAM_MATER,CARA_ELEM,FOND_FISS,CHARGE,RESU_THER,**args):
11627   self.type_sdprod(MODELE,modele)
11628   if CHAM_MATER != None:self.type_sdprod(CHAM_MATER,cham_mater)
11629   if CARA_ELEM  != None:self.type_sdprod(CARA_ELEM,cara_elem)
11630   if FOND_FISS  != None:self.type_sdprod(FOND_FISS,fond_fiss)
11631   if CHARGE     != None:self.type_sdprod(CHARGE,char_meca)
11632   if RESU_THER  != None:self.type_sdprod(RESU_THER,evol_ther)
11633   return evol_noli
11634
11635 MACR_ASCOUF_CALC=MACRO(nom="MACR_ASCOUF_CALC",op= -20,sd_prod=macr_ascouf_calc_prod,
11636                       fr=" ",
11637                       docu="U4.CF.20-b1",reentrant='n',
11638             UIinfo={"groupes":("Outils métier",)},
11639          regles=(UN_PARMI('COMP_INCR','COMP_ELAS'),),
11640
11641          TYPE_MAILLAGE   =SIMP(statut='o',typ='TXM',
11642                                into=("SAIN",
11643                                      "FISS_COUDE",
11644                                      "FISS_AXIS_DEB",
11645                                      "SOUS_EPAIS_COUDE"
11646                                      ) ),
11647
11648          CL_BOL_P2_GV    =FACT(statut='f',min=1,max=1,
11649            ANGLE           =SIMP(statut='o',typ='R' ),
11650            AZIMUT          =SIMP(statut='f',typ='R',defaut= 90. ),
11651          ),
11652
11653          MAILLAGE        =SIMP(statut='o',typ=maillage ),
11654          MODELE          =SIMP(statut='o',typ=(CO,modele)),
11655          CHAM_MATER      =SIMP(statut='f',typ=(CO,cham_mater)),
11656          CARA_ELEM       =SIMP(statut='f',typ=(CO,cara_elem)),
11657          FOND_FISS       =SIMP(statut='f',typ=(CO,fond_fiss)),
11658          CHARGE          =SIMP(statut='f',typ=(CO,char_meca)),
11659          RESU_THER       =SIMP(statut='f',typ=(CO,evol_ther)),
11660
11661          AFFE_MATERIAU   =FACT(statut='o',min=1,max=3,
11662            regles=(UN_PARMI('TOUT','GROUP_MA'),),
11663            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11664            GROUP_MA        =SIMP(statut='f',typ='TXM',into=("COUDE","BOL") ),
11665            MATER           =SIMP(statut='o',typ=mater ),
11666            TEMP_REF        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11667          ),
11668
11669          PRES_REP        =FACT(statut='f',min=1,max=1,
11670            PRES            =SIMP(statut='o',typ='R' ),
11671            EFFE_FOND_P1    =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11672            PRES_LEVRE      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11673            FONC_MULT       =SIMP(statut='f',typ=fonction ),
11674          ),
11675
11676          ECHANGE         =FACT(statut='f',min=1,max=1,
11677            COEF_H          =SIMP(statut='f',typ=fonction ),
11678            TEMP_EXT        =SIMP(statut='f',typ=fonction ),
11679          ),
11680
11681          TORS_P1         =FACT(statut='f',min=1,max=6,
11682            regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
11683            FX              =SIMP(statut='f',typ='R' ),
11684            FY              =SIMP(statut='f',typ='R' ),
11685            FZ              =SIMP(statut='f',typ='R' ),
11686            MX              =SIMP(statut='f',typ='R' ),
11687            MY              =SIMP(statut='f',typ='R' ),
11688            MZ              =SIMP(statut='f',typ='R' ),
11689            FONC_MULT       =SIMP(statut='f',typ=fonction ),
11690          ),
11691
11692          COMP_INCR       =FACT(statut='f',min=1,max=1,
11693            RELATION        =SIMP(statut='o',typ='TXM',into=("VMIS_ISOT_TRAC",) ),
11694            VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut= 2,into=( 2 ,) ),
11695          ),
11696
11697          COMP_ELAS       =FACT(statut='f',min=1,max=1,
11698            RELATION        =SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC") ),
11699            ELAS            =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
11700            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
11701          ),
11702
11703          SOLVEUR         =FACT(statut='d',min=1,max=1,
11704            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
11705            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
11706              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
11707            ),
11708            b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
11709              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11710            ),
11711            b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
11712                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
11713              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
11714              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11715            ),
11716            b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
11717              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
11718              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
11719              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
11720              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
11721              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
11722            ),
11723 #  A quoi sert eps
11724            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11725            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11726          ),
11727
11728          CONVERGENCE     =FACT(statut='d',min=1,max=1,
11729            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
11730            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
11731            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
11732            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
11733            RESI_INTE_RELA  =SIMP(statut='f',typ='R'
11734                                 ,defaut= 1.0E-6),
11735            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
11736            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut= 0 ),
11737            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
11738            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
11739          ),
11740
11741          NEWTON          =FACT(statut='d',min=1,max=1,
11742            REAC_INCR       =SIMP(statut='f',typ='I',defaut= 1 ),
11743            PREDICTION      =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
11744            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
11745            REAC_ITER       =SIMP(statut='f',typ='I',defaut=0),
11746            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
11747          ),
11748
11749          RECH_LINEAIRE   =FACT(statut='f',min=1,max=1,
11750            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11751            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 3),
11752          ),
11753
11754          INCREMENT       =FACT(statut='o',min=1,max=1,
11755            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
11756                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
11757            LIST_INST       =SIMP(statut='o',typ=listr8),
11758            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
11759                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
11760            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
11761            INST_INIT       =SIMP(statut='f',typ='R'),
11762            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
11763            INST_FIN        =SIMP(statut='f',typ='R'),
11764            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
11765            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
11766            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
11767            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
11768          ),
11769
11770          THETA_3D        =FACT(statut='f',min=1,max='**',
11771            R_INF           =SIMP(statut='o',typ='R' ),
11772            R_SUP           =SIMP(statut='o',typ='R' ),
11773          ),
11774
11775          IMPR_TABLE      =FACT(statut='f',min=1,max=1,
11776            regles=(UN_PARMI('TOUT_PARA','NOM_PARA', ),
11777             PRESENT_PRESENT('TOUT_PARA','ANGLE',    ),
11778             PRESENT_PRESENT('TOUT_PARA','R_CINTR',  ),
11779                    UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL',),),
11780            NOM_PARA        =SIMP(statut='f',typ='TXM',max=4,
11781                                  into=("TRESCA_MEMBRANE",
11782                                        "TRESCA_MFLE",
11783                                        "TRESCA",
11784                                        "SI_LONG"
11785                                        "SI_RADI"
11786                                        "SI_CIRC"
11787                                        ) ),
11788            TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11789            ANGLE           =SIMP(statut='f',typ='R',max='**' ),
11790            R_CINTR         =SIMP(statut='f',typ='R',max='**' ),
11791            POSI_CURV_LONGI =SIMP(statut='f',typ='R',max='**' ),
11792            POSI_ANGUL      =SIMP(statut='f',typ='R',max='**' ),
11793            TRANSFORMEE     =SIMP(statut='f',typ='TXM',defaut="COUDE",into=("COUDE","TUBE") ),
11794          ),
11795
11796          IMPRESSION      =FACT(statut='f',min=1,max=1,
11797            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
11798                                  into=("RESULTAT","ASTER","IDEAS","CASTEM") ),
11799
11800            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
11801              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
11802            ),
11803
11804            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
11805              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
11806            ),
11807
11808          ),
11809
11810          TITRE           =SIMP(statut='f',typ='TXM' ),
11811
11812          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11813 )  ;
11814 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
11815 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11816 # ======================================================================
11817 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11818 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11819 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11820 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11821 # (AT YOUR OPTION) ANY LATER VERSION.
11822 #
11823 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11824 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11825 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11826 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11827 #
11828 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11829 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11830 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11831 # ======================================================================
11832 # RESPONSABLE F1BHHAJ J.ANGLES
11833 MACR_ASCOUF_MAIL=MACRO(nom="MACR_ASCOUF_MAIL",op= -19,sd_prod=maillage,
11834                       fr=" ",docu="U4.CF.10-b1",reentrant='n',
11835             UIinfo={"groupes":("Outils métier",)},
11836
11837          regles=(EXCLUS('SOUS_EPAIS_COUDE','FISS_COUDE','SOUS_EPAIS_MULTI'),),
11838
11839          EXEC_MAILLAGE   =FACT(statut='o',min=1,max=1,
11840            LOGICIEL        =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000") ),
11841            UNITE_DATG      =SIMP(statut='f',typ='I',defaut=70),
11842            UNITE_MGIB      =SIMP(statut='f',typ='I',defaut=19),
11843            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10,11)),
11844          ),
11845
11846          TYPE_ELEM       =SIMP(statut='f',typ='TXM',defaut="CU20",into=("CU20","CUB8") ),
11847
11848          COUDE           =FACT(statut='o',min=1,max=1,
11849            ANGLE           =SIMP(statut='o',typ='R' ),
11850            R_CINTR         =SIMP(statut='o',typ='R' ),
11851            L_TUBE_P1       =SIMP(statut='o',typ='R' ),
11852            L_TUBE_P2       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11853            NB_ELEM_EPAIS   =SIMP(statut='f',typ='I',defaut= 3 ),
11854            SYME            =SIMP(statut='f',typ='TXM',defaut="ENTIER",into=("ENTIER","QUART","DEMI") ),
11855            TRANSFORMEE     =SIMP(statut='o',typ='TXM',defaut="COUDE",into=("COUDE","TUBE") ),
11856            b_transf_coude  =BLOC(condition = "TRANSFORMEE == 'COUDE' ",
11857               DEXT            =SIMP(statut='o',typ='R' ),
11858               EPAIS           =SIMP(statut='o',typ='R' ),
11859               SUR_EPAIS       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11860               BOL_P2          =SIMP(statut='f',typ='TXM',into=("ASP_MPP","CUVE","GV") ),
11861            ),
11862            b_transf_tube   =BLOC(condition = "TRANSFORMEE == 'TUBE' ",
11863               TRAN_EPAIS      =SIMP(statut='o',typ='TXM',defaut="NON",into=("OUI","NON") ),
11864               b_trans_epais_oui    =BLOC(condition = "TRAN_EPAIS == 'OUI' ",
11865                       regles=(ENSEMBLE('ANGL_TETA2','EPAIS_TI'),
11866                               UN_PARMI('ABSC_CURV_TRAN','POSI_ANGU_TRAN'),),
11867                       DEXT_T1         =SIMP(statut='o',typ='R' ),
11868                       EPAIS_T1        =SIMP(statut='o',typ='R' ),
11869                       EPAIS_T2        =SIMP(statut='o',typ='R' ),
11870                       EPAIS_TI        =SIMP(statut='f',typ='R' ),
11871                       ANGL_TETA1      =SIMP(statut='o',typ='R' ),
11872                       ANGL_TETA2      =SIMP(statut='f',typ='R' ),
11873                       ABSC_CURV_TRAN  =SIMP(statut='f',typ='R' ),
11874                       POSI_ANGU_TRAN  =SIMP(statut='f',typ='R' ),
11875               ),
11876               b_trans_epais_non    =BLOC(condition = "TRAN_EPAIS == 'NON' ",
11877                       DEXT            =SIMP(statut='o',typ='R' ),
11878                       EPAIS           =SIMP(statut='o',typ='R' ),
11879                       SUR_EPAIS       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11880                       BOL_P2          =SIMP(statut='f',typ='TXM',into=("ASP_MPP","CUVE","GV") ),
11881               ),
11882            ),
11883          ),
11884
11885          SOUS_EPAIS_COUDE=FACT(statut='f',min=1,max=1,
11886            regles=(UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL'),
11887                    UN_PARMI('POSI_CURV_CIRC','AZIMUT'),),
11888            TYPE            =SIMP(statut='o',typ='TXM',into=("AXIS","ELLI") ),
11889            AXE_CIRC        =SIMP(statut='f',typ='R' ),
11890            AXE_LONGI       =SIMP(statut='o',typ='R' ),
11891            PROFONDEUR      =SIMP(statut='o',typ='R' ),
11892            POSI_CURV_LONGI =SIMP(statut='f',typ='R' ),
11893            POSI_ANGUL      =SIMP(statut='f',typ='R' ),
11894            POSI_CURV_CIRC  =SIMP(statut='f',typ='R' ),
11895            AZIMUT          =SIMP(statut='f',typ='R' ),
11896            SOUS_EPAIS      =SIMP(statut='o',typ='TXM',into=("INTERNE","EXTERNE") ),
11897            NB_ELEM_LONGI   =SIMP(statut='o',typ='I' ),
11898            NB_ELEM_CIRC    =SIMP(statut='o',typ='I' ),
11899            NB_ELEM_RADI    =SIMP(statut='f',typ='I',defaut= 3 ),
11900            EMPREINTE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11901          ),
11902
11903          SOUS_EPAIS_MULTI=FACT(statut='f',min=1,max='**',
11904            regles=(UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL'),
11905                    UN_PARMI('POSI_CURV_CIRC','AZIMUT'),),
11906            TYPE            =SIMP(statut='o',typ='TXM',into=("AXIS","ELLI") ),
11907            AXE_CIRC        =SIMP(statut='f',typ='R' ),
11908            AXE_LONGI       =SIMP(statut='o',typ='R' ),
11909            PROFONDEUR      =SIMP(statut='o',typ='R' ),
11910            POSI_CURV_LONGI =SIMP(statut='f',typ='R' ),
11911            POSI_ANGUL      =SIMP(statut='f',typ='R' ),
11912            POSI_CURV_CIRC  =SIMP(statut='f',typ='R' ),
11913            AZIMUT          =SIMP(statut='f',typ='R' ),
11914            SOUS_EPAIS      =SIMP(statut='o',typ='TXM',into=("INTERNE","EXTERNE") ),
11915            NB_ELEM_LONGI   =SIMP(statut='o',typ='I' ),
11916            NB_ELEM_CIRC    =SIMP(statut='o',typ='I' ),
11917            EMPREINTE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11918          ),
11919
11920          FISS_COUDE      =FACT(statut='f',min=1,max=1,
11921            regles=(UN_PARMI('ABSC_CURV','POSI_ANGUL'),),
11922            AXIS            =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON" ),
11923            b_axis_non    =BLOC(condition = "AXIS == 'NON' ",
11924                    LONGUEUR        =SIMP(statut='o',typ='R' ),
11925            ),
11926            b_axis_oui    =BLOC(condition = "AXIS == 'OUI' ",
11927                    LONGUEUR        =SIMP(statut='f',typ='R' ),
11928            ),
11929            PROFONDEUR      =SIMP(statut='o',typ='R' ),
11930            ABSC_CURV       =SIMP(statut='f',typ='R' ),
11931            POSI_ANGUL      =SIMP(statut='f',typ='R' ),
11932            FISSURE         =SIMP(statut='o',typ='TXM',into=("DEB_INT","DEB_EXT") ),
11933            AZIMUT          =SIMP(statut='f',typ='R',defaut= 90. ),
11934            ORIEN           =SIMP(statut='o',typ='R',
11935                                  into=(45.,-45.,90.,0.E+0) ),
11936            NB_TRANCHE      =SIMP(statut='o',typ='I' ),
11937            NB_SECTEUR      =SIMP(statut='o',typ='I' ),
11938            NB_COURONNE     =SIMP(statut='o',typ='I' ),
11939            RAYON_TORE      =SIMP(statut='f',typ='R' ),
11940            COEF_MULT_RC2   =SIMP(statut='f',typ='R',defaut= 1. ),
11941            COEF_MULT_RC3   =SIMP(statut='f',typ='R' ),
11942            ANGL_OUVERTURE  =SIMP(statut='f',typ='R',defaut= 0.5 ),
11943          ),
11944
11945          IMPRESSION      =FACT(statut='f',min=1,max='**',
11946            regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
11947            FORMAT          =SIMP(statut='f',typ='TXM',defaut="ASTER",
11948                                  into=("ASTER","IDEAS","CASTEM") ),
11949            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
11950              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
11951            ),
11952            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
11953              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
11954            ),
11955            FICHIER         =SIMP(statut='f',typ='TXM' ),
11956            UNITE           =SIMP(statut='f',typ='I' ),
11957          ),
11958
11959          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11960 )  ;
11961 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
11962 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11963 # ======================================================================
11964 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11965 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11966 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11967 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11968 # (AT YOUR OPTION) ANY LATER VERSION.
11969 #
11970 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11971 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11972 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11973 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11974 #
11975 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11976 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11977 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11978 # ======================================================================
11979 # RESPONSABLE F1BHHAJ J.ANGLES
11980 def macr_aspic_calc_prod(self,MODELE,CHAM_MATER,CARA_ELEM,FOND_FISS_1,FOND_FISS_2,CHARGE,RESU_THER,**args):
11981   if MODELE      != None:self.type_sdprod(MODELE,modele)
11982   if CHAM_MATER  != None:self.type_sdprod(CHAM_MATER,cham_mater)
11983   if CARA_ELEM   != None:self.type_sdprod(CARA_ELEM,cara_elem)
11984   if FOND_FISS_1 != None:self.type_sdprod(FOND_FISS_1,fond_fiss)
11985   if FOND_FISS_2 != None:self.type_sdprod(FOND_FISS_2,fond_fiss)
11986   if CHARGE      != None:self.type_sdprod(CHARGE,char_meca)
11987   if RESU_THER   != None:self.type_sdprod(RESU_THER,evol_ther)
11988   return evol_noli
11989
11990 MACR_ASPIC_CALC=MACRO(nom="MACR_ASPIC_CALC",op=-17,sd_prod=macr_aspic_calc_prod,
11991                     fr=" ",docu="U4.PC.20-b2",reentrant='n',
11992             UIinfo={"groupes":("Outils métier",)},
11993          regles=(UN_PARMI('COMP_INCR','COMP_ELAS'),),
11994
11995          TYPE_MAILLAGE   =SIMP(statut='o',typ='TXM',
11996                                into=("SAIN_FIN","SAIN_GROS","FISS_COUR_DEB","FISS_COUR_NONDEB","FISS_LONG_DEB",
11997                                      "FISS_LONG_NONDEB","FISS_AXIS_DEB","FISS_AXIS_NONDEB") ),
11998
11999          TUBULURE        =FACT(statut='o',min=1,max=1,
12000            TYPE            =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2") ),
12001          ),
12002          MAILLAGE        =SIMP(statut='o',typ=maillage),
12003          MODELE          =SIMP(statut='f',typ=(CO,modele)),
12004          CHAM_MATER      =SIMP(statut='f',typ=(CO,cham_mater)),
12005          CARA_ELEM       =SIMP(statut='f',typ=(CO,cara_elem)),
12006          FOND_FISS_1     =SIMP(statut='f',typ=(CO,fond_fiss)),
12007          FOND_FISS_2     =SIMP(statut='f',typ=(CO,fond_fiss)),
12008          CHARGE          =SIMP(statut='f',typ=(CO,char_meca)),
12009          RESU_THER       =SIMP(statut='f',typ=(CO,evol_ther)),
12010
12011          AFFE_MATERIAU   =FACT(statut='o',min=1,max=3,
12012            regles=(UN_PARMI('TOUT','GROUP_MA'),),
12013            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
12014            GROUP_MA        =SIMP(statut='f',typ='TXM',into=("TUBU","CORP","SOUD","SOUDCORP","SOUDTUBU") ),
12015            MATER           =SIMP(statut='o',typ=mater),
12016            TEMP_REF        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12017            RCCM            =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
12018          ),
12019
12020          EQUILIBRE       =FACT(statut='o',min=1,max=1,
12021            NOEUD           =SIMP(statut='o',typ=no),
12022          ),
12023
12024          PRES_REP        =FACT(statut='o',min=1,max=1,
12025            PRES            =SIMP(statut='o',typ='R'),
12026            NOEUD           =SIMP(statut='f',typ=no),
12027            EFFE_FOND       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
12028            PRES_LEVRE      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
12029            FONC_MULT       =SIMP(statut='f',typ=fonction),
12030          ),
12031
12032          ECHANGE         =FACT(statut='f',min=1,max=1,
12033            COEF_H_TUBU     =SIMP(statut='o',typ=fonction),
12034            COEF_H_CORP     =SIMP(statut='o',typ=fonction),
12035            TEMP_EXT        =SIMP(statut='o',typ=fonction),
12036          ),
12037
12038          TORS_CORP       =FACT(statut='f',min=1,max=6,
12039            regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
12040            NOEUD           =SIMP(statut='o',typ=no),
12041            FX              =SIMP(statut='f',typ='R'),
12042            FY              =SIMP(statut='f',typ='R'),
12043            FZ              =SIMP(statut='f',typ='R'),
12044            MX              =SIMP(statut='f',typ='R'),
12045            MY              =SIMP(statut='f',typ='R'),
12046            MZ              =SIMP(statut='f',typ='R'),
12047            FONC_MULT       =SIMP(statut='f',typ=fonction),
12048          ),
12049
12050          TORS_TUBU       =FACT(statut='f',min=1,max=6,
12051            regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
12052            FX              =SIMP(statut='f',typ='R'),
12053            FY              =SIMP(statut='f',typ='R'),
12054            FZ              =SIMP(statut='f',typ='R'),
12055            MX              =SIMP(statut='f',typ='R'),
12056            MY              =SIMP(statut='f',typ='R'),
12057            MZ              =SIMP(statut='f',typ='R'),
12058            FONC_MULT       =SIMP(statut='f',typ=fonction),
12059          ),
12060
12061          COMP_INCR       =FACT(statut='f',min=1,max=1,
12062            RELATION        =SIMP(statut='o',typ='TXM',into=("VMIS_ISOT_TRAC",) ),
12063            VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut= 2,into=( 2 ,) ),
12064          ),
12065
12066          COMP_ELAS       =FACT(statut='f',min=1,max=1,
12067            RELATION        =SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC") ),
12068            ELAS            =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
12069            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
12070          ),
12071
12072          THETA_3D        =FACT(statut='f',min=1,max='**',
12073            R_INF           =SIMP(statut='o',typ='R'),
12074            R_SUP           =SIMP(statut='o',typ='R'),
12075          ),
12076
12077          OPTION          =SIMP(statut='f',typ='TXM',into=("CALC_G_MAX","CALC_G_MAX_LOCAL") ),
12078          BORNES          =FACT(statut='f',min=1,max='**',
12079            NUME_ORDRE      =SIMP(statut='o',typ='I'),
12080            VALE_MIN        =SIMP(statut='o',typ='R'),
12081            VALE_MAX        =SIMP(statut='o',typ='R'),
12082          ),
12083
12084          SOLVEUR         =FACT(statut='d',min=1,max=1,
12085            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
12086            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
12087              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
12088            ),
12089            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
12090              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
12091            ),
12092            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
12093                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
12094              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
12095              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12096            ),
12097            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
12098              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
12099              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
12100              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
12101              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
12102              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
12103            ),
12104 #  A quoi sert eps
12105            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12106            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
12107          ),
12108
12109          CONVERGENCE     =FACT(statut='d',min=1,max=1,
12110            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
12111            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
12112            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
12113            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
12114            RESI_INTE_RELA  =SIMP(statut='f',typ='R',defaut=1.0E-6),
12115            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut=10),
12116            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut=0),
12117            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
12118            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
12119          ),
12120
12121          NEWTON          =FACT(statut='d',min=1,max=1,
12122            REAC_INCR       =SIMP(statut='f',typ='I',defaut=1),
12123            PREDICTION      =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE","EXTRAPOL","DEPL_CALCULE")),
12124            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE")),
12125            REAC_ITER       =SIMP(statut='f',typ='I',defaut= 0),
12126          ),
12127
12128          RECH_LINEAIRE   =FACT(statut='d',min=1,max=1,
12129            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut=1.0E-3),
12130            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut=3),
12131          ),
12132
12133          INCREMENT       =FACT(statut='o',min=1,max=1,
12134            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
12135                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
12136            LIST_INST       =SIMP(statut='o',typ=listr8),
12137            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
12138                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
12139            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
12140            INST_INIT       =SIMP(statut='f',typ='R'),
12141            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
12142            INST_FIN        =SIMP(statut='f',typ='R'),
12143            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
12144            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
12145            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
12146            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
12147          ),
12148
12149          PAS_AZIMUT      =SIMP(statut='f',typ='I',defaut=1),
12150
12151          IMPRESSION      =FACT(statut='f',min=1,max=1,
12152            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
12153                                  into=("RESULTAT","ASTER","CASTEM","IDEAS")),
12154
12155            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
12156              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12157            ),
12158
12159            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
12160              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
12161            ),
12162
12163            b_extrac        =BLOC(condition="((FORMAT=='IDEAS')or(FORMAT=='CASTEM'))",
12164                                  fr="extraction d un champ de grandeur",
12165              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST'),),
12166              NOM_CHAM        =SIMP(statut='f',typ='TXM',max=3,
12167                                    into=("DEPL","EQUI_ELNO_SIGM","TEMP")),
12168
12169              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12170              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
12171              INST            =SIMP(statut='f',typ='R',max='**'),
12172            ),
12173          ),
12174
12175          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12176
12177          TITRE           =SIMP(statut='f',typ='TXM'),
12178 )  ;
12179 # debut entete
12180 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
12181 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12182 # ======================================================================
12183 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12184 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12185 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12186 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12187 # (AT YOUR OPTION) ANY LATER VERSION.
12188 #
12189 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12190 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12191 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12192 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12193 #
12194 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12195 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12196 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12197 # ======================================================================
12198 # RESPONSABLE F1BHHAJ J.ANGLES
12199 MACR_ASPIC_MAIL=MACRO(nom="MACR_ASPIC_MAIL",op= -16,sd_prod=maillage,reentrant='n',
12200                     fr=" ",docu="U4.PC.10-b1",
12201             UIinfo={"groupes":("Outils métier",)},
12202
12203          EXEC_MAILLAGE   =FACT(statut='o',min=1,max=1,
12204            LOGICIEL        =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000")),
12205            UNITE_DATG      =SIMP(statut='f',typ='I',defaut=70),
12206            UNITE_MGIB      =SIMP(statut='f',typ='I',defaut=19),
12207            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10,11)),
12208          ),
12209
12210          TYPE_ELEM       =SIMP(statut='f',typ='TXM',defaut="CU20",into=("CU20","CUB8")),
12211
12212          RAFF_MAIL       =SIMP(statut='f',typ='TXM',defaut="GROS",into=("GROS","FIN")),
12213
12214          TUBULURE        =FACT(statut='o',min=1,max=1,
12215            E_BASE          =SIMP(statut='o',typ='R'),
12216            DEXT_BASE       =SIMP(statut='o',typ='R'),
12217            L_BASE          =SIMP(statut='o',typ='R'),
12218            L_CHANF         =SIMP(statut='o',typ='R'),
12219            E_TUBU          =SIMP(statut='o',typ='R'),
12220            DEXT_TUBU       =SIMP(statut='o',typ='R'),
12221            Z_MAX           =SIMP(statut='o',typ='R'),
12222            TYPE            =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2")),
12223            L_PENETR        =SIMP(statut='f',typ='R',defaut= 0.0E+0),
12224          ),
12225
12226          SOUDURE         =FACT(statut='o',min=1,max=1,
12227            H_SOUD          =SIMP(statut='o',typ='R'),
12228            ANGL_SOUD       =SIMP(statut='o',typ='R'),
12229            JEU_SOUD        =SIMP(statut='o',typ='R'),
12230          ),
12231
12232          CORPS           =FACT(statut='o',min=1,max=1,
12233            E_CORP          =SIMP(statut='o',typ='R'),
12234            DEXT_CORP       =SIMP(statut='o',typ='R'),
12235            X_MAX           =SIMP(statut='o',typ='R'),
12236          ),
12237
12238          FISS_SOUDURE    =FACT(statut='f',min=1,max=1,
12239            TYPE            =SIMP(statut='o',typ='TXM',into=("LONGUE","COURTE")),
12240            AXIS            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
12241            PROFONDEUR      =SIMP(statut='o',typ='R'),
12242            LONGUEUR        =SIMP(statut='f',typ='R'),
12243            AZIMUT          =SIMP(statut='o',typ='R'),
12244            RAYON_TORE      =SIMP(statut='f',typ='R'),
12245            POSITION        =SIMP(statut='o',typ='TXM',into=("DROIT","INCLINE")),
12246            FISSURE         =SIMP(statut='o',typ='TXM',into=("DEB_INT","DEB_EXT","NON_DEB","TRAVERS")),
12247            LIGA_INT        =SIMP(statut='f',typ='R'),
12248            ANGL_OUVERTURE  =SIMP(statut='f',typ='R',defaut= 0.0E+0),
12249            COEF_MULT_RC1   =SIMP(statut='f',typ='R'),
12250            COEF_MULT_RC2   =SIMP(statut='f',typ='R'),
12251            COEF_MULT_RC3   =SIMP(statut='f',typ='R'),
12252            NB_TRANCHE      =SIMP(statut='f',typ='I'),
12253            NB_SECTEUR      =SIMP(statut='f',typ='I'),
12254            NB_COURONNE     =SIMP(statut='f',typ='I'),
12255          ),
12256
12257          IMPRESSION      =FACT(statut='f',min=1,max='**',
12258            regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
12259            FORMAT          =SIMP(statut='f',typ='TXM',defaut="ASTER",into=("ASTER","IDEAS","CASTEM")),
12260
12261            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
12262              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12263            ),
12264
12265            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
12266              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
12267            ),
12268            FICHIER         =SIMP(statut='f',typ='TXM'),
12269            UNITE           =SIMP(statut='f',typ='I'),
12270          ),
12271
12272          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12273 )  ;
12274 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
12275 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12276 # ======================================================================
12277 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12278 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12279 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12280 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12281 # (AT YOUR OPTION) ANY LATER VERSION.
12282 #
12283 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12284 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12285 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12286 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12287 #
12288 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12289 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12290 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12291 # ======================================================================
12292 MACR_ELEM_DYNA=OPER(nom="MACR_ELEM_DYNA",op=  81,sd_prod=macr_elem_dyna,
12293                     fr="Définition d un macro élément pour analyse modale ou harmonique par sous structuration dynamique",
12294                     docu="U4.65.01-e1",reentrant='n',
12295             UIinfo={"groupes":("Matrices/vecteurs",)},
12296          regles=(EXCLUS('MATR_AMOR','AMOR_REDUIT' ),),
12297          BASE_MODALE     =SIMP(statut='o',typ=base_modale ),
12298          MATR_RIGI       =SIMP(statut='f',typ=matr_asse_depl_r ),
12299          MATR_MASS       =SIMP(statut='f',typ=matr_asse_depl_r ),
12300          MATR_AMOR       =SIMP(statut='f',typ=matr_asse_depl_r ),
12301          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
12302          OPTION          =SIMP(statut='f',typ='TXM',defaut="CLASSIQUE",into=("CLASSIQUE","RITZ",
12303                           "DIAG_MASS") ),
12304 )  ;
12305 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
12306 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12307 # ======================================================================
12308 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12309 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12310 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12311 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12312 # (AT YOUR OPTION) ANY LATER VERSION.
12313 #
12314 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12315 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12316 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12317 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12318 #
12319 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12320 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12321 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12322 # ======================================================================
12323 MACR_ELEM_STAT=OPER(nom="MACR_ELEM_STAT",op=86,sd_prod=macr_elem_stat,docu="U4.62.01-f1",reentrant='f',
12324             UIinfo={"groupes":("Matrices/vecteurs",)},
12325                     fr="Définition d un macro-élément pour l analyse statique par sous structuration",
12326         regles=(AU_MOINS_UN('DEFINITION','RIGI_MECA','MASS_MECA','CAS_CHARGE'),
12327                 ENSEMBLE('DEFINITION','EXTERIEUR'),),
12328          DEFINITION      =FACT(statut='f',min=1,max=1,
12329            MODELE          =SIMP(statut='o',typ=modele),
12330            CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
12331            CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
12332            CHAR_MACR_ELEM  =SIMP(statut='f',typ=char_meca),
12333            INST            =SIMP(statut='f',typ='R',defaut=0.0E+0 ),
12334            NMAX_CAS        =SIMP(statut='f',typ='I',defaut=10),
12335            NMAX_CHAR       =SIMP(statut='f',typ='I',defaut=10),
12336          ),
12337          EXTERIEUR       =FACT(statut='f',min=1,max=1,
12338            regles=(AU_MOINS_UN('NOEUD','GROUP_NO'),),
12339            NOEUD           =SIMP(statut='f',typ=no,max='**'),
12340            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
12341          ),
12342          RIGI_MECA       =FACT(statut='f',min=1,max=1,
12343          ),
12344          MASS_MECA       =FACT(statut='f',min=1,max=1,
12345            BIDO1           =SIMP(statut='f',typ='I',defaut=0),
12346          ),
12347          CAS_CHARGE      =FACT(statut='f',min=1,max='**',
12348            NOM_CAS         =SIMP(statut='o',typ='TXM'),
12349            SUIV            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
12350            CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
12351            INST            =SIMP(statut='f',typ='R',defaut=0.E+0),
12352          ),
12353 )  ;
12354 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
12355 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12356 # ======================================================================
12357 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12358 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12359 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12360 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12361 # (AT YOUR OPTION) ANY LATER VERSION.
12362 #
12363 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12364 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12365 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12366 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12367 #
12368 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12369 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12370 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12371 # ======================================================================
12372 MACR_GOUJ2E_CALC=MACRO(nom="MACR_GOUJ2E_CALC",op=-23,sd_prod=evol_noli,
12373                       fr=" ",docu="U4.GJ.20-a",reentrant='n',
12374             UIinfo={"groupes":("Outils métier",)},
12375          MAILLAGE        =SIMP(statut='o',typ=maillage),
12376          DEFI_GOUJ       =FACT(statut='o',min=1,max=1,
12377            TYPE            =SIMP(statut='o',typ='TXM',into=("M33","M64","M90","M115","M155","M180","M186")),
12378            VARIANTE        =SIMP(statut='o',typ='TXM',into=("A","B","C","D","E","F","G","H","I","J","K","L","M",
12379                                                             "N","O","P","Q","R","S","T","U","V","W","X","Y","Z")),
12380            FILET_TRONQUE   =SIMP(statut='f',typ='I',max='**'),
12381            FILET_TRONQA    =SIMP(statut='f',typ='I',max='**'),
12382            FILET_TRONQB    =SIMP(statut='f',typ='I',max='**'),
12383            FILET_JEU_HT    =SIMP(statut='f',typ='I',max='**'),
12384            FILET_JEU_HTA   =SIMP(statut='f',typ='I',max='**'),
12385            FILET_JEU_HTB   =SIMP(statut='f',typ='I',max='**'),
12386          ),
12387          EXCIT           =FACT(statut='o',min=1,max=1,
12388            TYPE_BLOCAGE    =SIMP(statut='o',typ='I',defaut=2,into=(1,2,3)),
12389            FORCE_GOUJ      =SIMP(statut='o',typ='R'),
12390          ),
12391          CALCUL          =FACT(statut='o',min=1,max=1,
12392            TYPE_CALCUL     =SIMP(statut='o',typ='TXM',into=("ELASTIQUE","ELASTOPLASTIQUE")),
12393            NB_INCR         =SIMP(statut='o',typ='I'),
12394          ),
12395          IMPRESSION      =FACT(statut='f',min=1,max=1,
12396            FORMAT          =SIMP(statut='f',typ='TXM',defaut="TABLE",
12397                                  into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED","TABLE")),
12398            VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12399          ),
12400          TITRE           =SIMP(statut='f',typ='TXM'),
12401          INFO            =SIMP(statut='f',typ='I',defaut=1 ,into=(1,2)),
12402 )  ;
12403 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
12404 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12405 # ======================================================================
12406 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12407 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12408 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12409 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12410 # (AT YOUR OPTION) ANY LATER VERSION.
12411 #
12412 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12413 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12414 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12415 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12416 #
12417 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12418 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12419 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12420 # ======================================================================
12421 MACR_GOUJ2E_MAIL=MACRO(nom="MACR_GOUJ2E_MAIL",op= -22,sd_prod=maillage,
12422                       fr=" ",docu="U4.GJ.10-a",reentrant='n',
12423             UIinfo={"groupes":("Outils métier",)},
12424          EXEC_MAILLAGE   =FACT(statut='o',min=1,max=1,
12425            LOGICIEL        =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000") ),
12426            UNITE_DATG      =SIMP(statut='f',typ='I',defaut=70),
12427            UNITE_MGIB      =SIMP(statut='f',typ='I',defaut=19),
12428            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10)),
12429          ),
12430          DEFI_GOUJ       =FACT(statut='o',min=1,max=1,
12431            TYPE            =SIMP(statut='o',typ='TXM',into=("M33","M64","M90","M115","M155","M180","M186")),
12432            VARIANTE        =SIMP(statut='o',typ='TXM',into=("A","B","C","D","E","F","G","H","I","J","K","L","M",
12433                                                             "N","O","P","Q","R","S","T","U","V","W","X","Y","Z")),
12434          ),
12435          GEOM_GOUJ_BRID  =FACT(statut='o',min=1,max=1,
12436            NB_FILET        =SIMP(statut='o',typ='I'),
12437            H_CORP_BRID     =SIMP(statut='o',typ='R'),
12438            R_EXT_BRID      =SIMP(statut='o',typ='R'),
12439            H_HAUT_BRID     =SIMP(statut='f',typ='R',defaut=0.0E+0),
12440            H_BAS_BRID      =SIMP(statut='f',typ='R',defaut= 0.0E+0),
12441            FILET_ABST      =SIMP(statut='f',typ='I',max='**'),
12442          ),
12443          IMPRESSION      =FACT(statut='f',min=1,max=1,
12444            regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
12445            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
12446                                  into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED")),
12447            FICHIER         =SIMP(statut='f',typ='TXM'),
12448            UNITE           =SIMP(statut='f',typ='I'),
12449            VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12450            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
12451          ),
12452          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12453 )  ;
12454 #& MODIF COMMANDE  DATE 08/10/2002   AUTEUR GNICOLAS G.NICOLAS
12455 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12456 # ======================================================================
12457 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12458 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12459 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12460 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12461 # (AT YOUR OPTION) ANY LATER VERSION.
12462 #
12463 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12464 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12465 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12466 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12467 #
12468 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12469 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12470 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12471 # ======================================================================
12472 # RESPONSABLE GNICOLAS G.NICOLAS
12473 MACR_INFO_MAIL=MACRO(nom="MACR_INFO_MAIL",op=-24,docu="U7.03.02-b2",
12474                      fr="Donner des informations sur un maillage.",
12475                      ang="To give information about a mesh.",
12476 #
12477 # 1. Le niveau d'information
12478 #
12479          INFO           = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12480 #
12481 # 2. Version de HOMARD
12482 #
12483          VERSION_HOMARD = SIMP(statut='f',typ='TXM',defaut="V5_5",
12484                                into=("V5_5", "V5_N","V5_N_PERSO"),
12485                            fr="Version de HOMARD",
12486                            ang="HOMARD release"),
12487 #
12488 # 3. Langue des messages issus de HOMARD
12489 #
12490          LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
12491                                into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
12492                            fr="Langue des messages issus de HOMARD.",
12493                            ang="Language for HOMARD messages." ),
12494 #
12495 # 4. Le nom du maillage a analyser
12496 #
12497          MAILLAGE       = SIMP(statut='o',typ=maillage,
12498                            fr="Maillage à analyser.",
12499                            ang="Mesh to be checked." ),
12500 #
12501 # 5. Les options ; par defaut, on ne fait que les nombres
12502 # 5.1. Nombre de noeuds et elements
12503 #
12504          NOMBRE         = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
12505                           fr="Nombre de noeuds et éléments du maillage",
12506                           ang="Number of nodes and elements in the mesh" ),
12507 #
12508 # 5.2. Determination de la qualite des elements du maillage
12509 #
12510          QUALITE        = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12511                           fr="Qualité du maillage",
12512                           ang="Mesh quality" ),
12513 #
12514 # 5.3. Connexite du maillage
12515 #
12516          CONNEXITE      = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12517                           fr="Connexité du maillage.",
12518                           ang="Mesh connexity." ),
12519 #
12520 # 5.4. Taille des sous-domaines du maillage
12521 #
12522          TAILLE         = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12523                           fr="Tailles des sous-domaines du maillage.",
12524                           ang="Sizes of mesh sub-domains." ),
12525 #
12526 # 5.5. Controle de la non-interpenetration des elements
12527 #
12528          INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12529                           fr="Controle de la non interpénétration des éléments.",
12530                           ang="Overlapping checking." ),
12531 #
12532 )  ;
12533 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
12534 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12535 # ======================================================================
12536 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
12537 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12538 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12539 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12540 # (AT YOUR OPTION) ANY LATER VERSION.
12541 #
12542 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12543 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12544 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12545 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12546 #
12547 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12548 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12549 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12550 # ======================================================================
12551
12552 from Macro.macr_lign_coupe_ops import macr_lign_coupe_ops
12553
12554 def macr_lign_coupe_prod(self,LIGN_COUPE,**args):
12555   if not LIGN_COUPE:  raise AsException("Impossible de typer les concepts resultats")
12556   for m in LIGN_COUPE:
12557     self.type_sdprod(m['TABLE'],table)
12558   return None
12559
12560
12561 MACR_LIGN_COUPE=MACRO(nom="MACR_LIGN_COUPE",op=macr_lign_coupe_ops,sd_prod=macr_lign_coupe_prod,
12562                        docu="",reentrant='n',
12563             UIinfo={"groupes":("Outils métier",)},
12564                        fr="extraction d un résultat sur des lignes de coupes définies par 2 points et un intervalle",
12565          RESULTAT        =SIMP(statut='o',typ=(evol_elas,evol_noli,evol_ther) ),
12566          b_meca        =BLOC(condition = "AsType(RESULTAT) in (evol_elas,evol_noli)",fr="résultat mécanique",
12567            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut='SIGM_NOEU_DEPL' ),
12568          ),
12569          b_ther        =BLOC(condition = "AsType(RESULTAT) in (evol_ther,)",fr="résultat thermique",
12570            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut='TEMP' ),
12571          ),
12572          MODELE          =SIMP(statut='o',typ=modele ),
12573          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=25),
12574          LIGN_COUPE     =FACT(statut='o',min=1,max='**',
12575            NB_POINTS       =SIMP(statut='o',typ='I'),
12576            COOR_ORIG       =SIMP(statut='o',typ='R',min=2,max=3),
12577            COOR_EXTR       =SIMP(statut='o',typ='R',min=2,max=3),
12578            TABLE           =SIMP(statut='o',typ=(table,CO)),
12579          ),
12580 )  ;
12581 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
12582 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12583 # ======================================================================
12584 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
12585 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12586 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12587 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12588 # (AT YOUR OPTION) ANY LATER VERSION.
12589 #
12590 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12591 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12592 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12593 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12594 #
12595 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12596 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12597 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12598 # ======================================================================
12599
12600 from Macro.macr_recal_ops import macr_recal_ops
12601
12602 def macr_recal_prod(self,**args ):
12603   return listr8
12604
12605 MACR_RECAL = MACRO(nom="MACR_RECAL",op=macr_recal_ops,docu="U4.73.02",
12606             UIinfo={"groupes":("Résultats et champs",)},
12607                       sd_prod=macr_recal_prod,
12608                       fr="Réalise le recalage de modèles Aster",
12609          UNITE_ESCL      =SIMP(statut='o',typ='I'),
12610          RESU_EXP        =SIMP(statut='o',typ=assd,min = 1, max='**'),
12611          RESU_CALC       =SIMP(statut='o',typ=assd,min = 1, max='**'),
12612          LIST_PARA       =SIMP(statut='o',typ=assd,min = 1, max='**'),
12613          ITER_MAXI       =SIMP(statut='f',typ='I',defaut=10),
12614          RESI_GLOB_RELA  =SIMP(statut='f',typ='R',defaut=1.E-3),
12615          UNITE_RESU      =SIMP(statut='f',typ='I',defaut=91),
12616          PARA_DIFF_FINI  =SIMP(statut='f',typ='R',defaut=0.001),
12617          GRAPHIQUE       =FACT(statut='d',min=1,max=1,
12618            UNITE           =SIMP(statut='f',typ='I',defaut=90),
12619            INTERACTIF      =SIMP(statut='f',typ='TXM',defaut='NON',into=("OUI","NON")),)
12620 )  ;
12621 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
12622 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12623 # ======================================================================
12624 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12625 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12626 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12627 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12628 # (AT YOUR OPTION) ANY LATER VERSION.
12629 #
12630 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12631 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12632 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12633 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12634 #
12635 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12636 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12637 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12638 # ======================================================================
12639 # RESPONSABLE JMBHH01 J.M.PROIX
12640
12641 from Macro.macro_cara_poutre_ops import macro_cara_poutre_ops
12642
12643 MACRO_CARA_POUTRE=MACRO(nom="MACRO_CARA_POUTRE",op=macro_cara_poutre_ops,sd_prod=tabl_cara_geom,
12644                        docu="U4.42.02-d1",reentrant='n',
12645             UIinfo={"groupes":("Modélisation",)},
12646                        fr="caractéristiques d'une section transversale de poutre à partir d'un maillage 2D",
12647          regles=(EXCLUS('SYME_X','GROUP_MA_BORD'),
12648                  EXCLUS('SYME_Y','GROUP_MA_BORD'),
12649                  ENSEMBLE('LONGUEUR','LIAISON','MATERIAU') ,),
12650          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut= 20 ),
12651          SYME_X          =SIMP(statut='f',typ='TXM',into=("OUI",)),
12652          SYME_Y          =SIMP(statut='f',typ='TXM',into=("OUI",)),
12653          GROUP_MA_BORD   =SIMP(statut='f',typ=grma,max='**'),
12654          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
12655          ORIG_INER       =SIMP(statut='f',typ='R',max='**',defaut=(0.E+0,0.E+0)),
12656          NOEUD           =SIMP(statut='f',typ=no,max='**'),
12657          GROUP_MA_INTE   =SIMP(statut='f',typ=grma,max='**'),
12658          LONGUEUR        =SIMP(statut='f',typ='R'),
12659          MATERIAU        =SIMP(statut='f',typ=mater),
12660          LIAISON         =SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT")),
12661          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12662 )  ;
12663 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
12664 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12665 # ======================================================================
12666 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12667 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12668 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12669 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12670 # (AT YOUR OPTION) ANY LATER VERSION.
12671 #
12672 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12673 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12674 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12675 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12676 #
12677 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12678 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12679 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12680 # ======================================================================
12681 MACRO_CHAR_F_U=MACRO(nom="MACRO_CHAR_F_U",op=-15,sd_prod=char_meca,
12682                     fr=" ",docu="U4.72.07-a",reentrant='n',
12683             UIinfo={"groupes":("Résultats et champs",)},
12684          MODELE          =SIMP(statut='o',typ=modele),
12685          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
12686          CHARGE          =SIMP(statut='o',typ=char_meca),
12687          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
12688          COEF_IMPO       =SIMP(statut='f',typ='R',defaut=1.0E+0),
12689          NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="APRES",into=("NORMAL","APRES")),
12690          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12691 )  ;
12692 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
12693 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12694 # ======================================================================
12695 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12696 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12697 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12698 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12699 # (AT YOUR OPTION) ANY LATER VERSION.
12700 #
12701 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12702 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12703 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12704 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12705 #
12706 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12707 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12708 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12709 # ======================================================================
12710 # RESPONSABLE G8BHHXD X.DESROCHES
12711
12712 from Macro.macro_elas_mult_ops import macro_elas_mult_ops
12713
12714 def macro_elas_mult_prod(self,NUME_DDL,CAS_CHARGE,**args ):
12715   self.type_sdprod(NUME_DDL,nume_ddl)
12716   if CAS_CHARGE[0]['NOM_CAS']      != None : return mult_elas
12717   if CAS_CHARGE[0]['MODE_FOURIER'] != None : return fourier_elas
12718   raise AsException("type de concept resultat non prevu")
12719
12720 MACRO_ELAS_MULT=MACRO(nom="MACRO_ELAS_MULT",op=macro_elas_mult_ops,sd_prod=macro_elas_mult_prod,docu="U4.51.02-d2",reentrant='f',
12721             UIinfo={"groupes":("Résolution",)},
12722          regles=(UN_PARMI('CHAR_MECA_GLOBAL','CHAR_CINE_GLOBAL','LIAISON_DISCRET', ),),
12723          MODELE          =SIMP(statut='o',typ=modele),
12724          CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
12725          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
12726          NUME_DDL        =SIMP(statut='f',typ=(nume_ddl,CO)),
12727          CHAR_MECA_GLOBAL=SIMP(statut='f',typ=char_meca,max='**'),
12728          CHAR_CINE_GLOBAL=SIMP(statut='f',typ=char_meca,max='**'),
12729          LIAISON_DISCRET =SIMP(statut='f',typ='TXM',into=("OUI",)),
12730          CAS_CHARGE      =FACT(statut='o',min=1,max='**',
12731            regles=(UN_PARMI('NOM_CAS','MODE_FOURIER'),
12732                    UN_PARMI('CHAR_MECA','CHAR_CINE','VECT_ASSE'),),
12733            NOM_CAS         =SIMP(statut='f',typ='TXM' ),
12734            MODE_FOURIER    =SIMP(statut='f',typ='I' ),
12735            TYPE_MODE       =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
12736            CHAR_MECA       =SIMP(statut='f',typ=char_meca,max='**'),
12737            CHAR_CINE       =SIMP(statut='f',typ=char_meca,max='**'),
12738            OPTION          =SIMP(statut='f',typ='TXM',max='**',
12739                                  into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
12740                                        "SIGM_ELNO_CART","EFGE_ELNO_CART","DEGE_ELNO_DEPL","EPSI_ELNO_DEPL",
12741                                        "EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO","EPSP_ELGA",
12742                                        "ECIN_ELEM_DEPL","FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","SOUR_ELGA_ELEC",
12743                                        "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG","INTE_ELNO_ACTI",
12744                                        "INTE_ELNO_REAC","SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA",
12745                                        "ERRE_ELEM_NOZ2","VNOR_ELEM_DEPL","ERRE_ELNO_ELGA","SIRE_ELNO_DEPL",
12746                                        "ERRE_ELGA_NORE","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI",
12747                                        "EQUI_ELGA_EPSI","FORC_NODA","REAC_NODA","EPSI_NOEU_DEPL","SIGM_NOEU_DEPL",
12748                                        "EFGE_NOEU_DEPL","EQUI_NOEU_SIGM","EQUI_NOEU_EPSI","FLUX_NOEU_TEMP") ),
12749            NUME_COUCHE     =SIMP(statut='f',typ='I',defaut=1),
12750            NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY")),
12751            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
12752            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r),
12753          ),
12754          SOLVEUR         =FACT(statut='d',min=1,max=1,
12755            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT") ),
12756            b_mult_front    = BLOC ( condition = "METHODE == 'MULT_FRONT' ",
12757                                     fr="Paramètres de la méthode multi frontale",
12758              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
12759            ),
12760            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
12761              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
12762             ),
12763            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
12764                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
12765              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
12766              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12767            ),
12768          ),
12769          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2)),
12770          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
12771 )  ;
12772 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
12773 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12774 # ======================================================================
12775 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12776 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12777 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12778 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12779 # (AT YOUR OPTION) ANY LATER VERSION.
12780 #
12781 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12782 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12783 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12784 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12785 #
12786 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12787 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12788 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12789 # ======================================================================
12790 MACRO_MADMACS=MACRO(nom="MACRO_MADMACS",op=-9,docu="U7.03.21-c",
12791             UIinfo={"groupes":("Résolution",)},
12792                     fr="Impression au format IDEAS des données pour chainage entre Code_Aster et MADMACS",
12793          regles=(UN_PARMI('MATR_ELEM_RIGI','MATR_RIGI'),
12794                  UN_PARMI('MATR_ELEM_MASS','MATR_MASS'),
12795                  PRESENT_ABSENT('MATR_ELEM_AMOR','MATR_AMOR'),),
12796          FICHIER         =SIMP(statut='f',typ='TXM' ),
12797          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",)),
12798          VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(5,)),
12799          MAILLAGE        =SIMP(statut='o',typ=maillage),
12800          NUME_DDL        =SIMP(statut='o',typ=nume_ddl),
12801          CHARGE          =SIMP(statut='o',typ=char_meca,max='**'),
12802          MATR_ELEM_RIGI  =SIMP(statut='f',typ=matr_elem_depl_r),
12803          MATR_RIGI       =SIMP(statut='f',typ=matr_asse_depl_r),
12804          MATR_ELEM_MASS  =SIMP(statut='f',typ=matr_elem_depl_r),
12805          MATR_MASS       =SIMP(statut='f',typ=matr_asse_depl_r),
12806          MATR_ELEM_AMOR  =SIMP(statut='f',typ=matr_elem_depl_r),
12807          MATR_AMOR       =SIMP(statut='f',typ=matr_asse_depl_r),
12808          MODE_MECA       =SIMP(statut='o',typ=mode_meca),
12809          NMAX_MODE       =SIMP(statut='f',typ='I',defaut=10),
12810          INTERFACE       =FACT(statut='f',min=1,max='**',
12811            regles=(UN_PARMI('NOEUD','GROUP_NO'),
12812                    UN_PARMI('DDL_ACTIF','MASQUE'),),
12813            NOM             =SIMP(statut='o',typ='TXM'),
12814            NOEUD           =SIMP(statut='f',typ=no,max='**'),
12815            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
12816            DDL_ACTIF       =SIMP(statut='f',typ='TXM',max='**'),
12817            MASQUE          =SIMP(statut='f',typ='TXM',max='**'),
12818          ),
12819          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12820 )  ;
12821 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
12822 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12823 # ======================================================================
12824 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12825 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12826 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12827 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12828 # (AT YOUR OPTION) ANY LATER VERSION.
12829 #
12830 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12831 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12832 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12833 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12834 #
12835 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12836 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12837 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12838 # ======================================================================
12839 def macro_matr_ajou_prod(self,MATR_AMOR_AJOU,MATR_MASS_AJOU,MATR_RIGI_AJOU,FORC_AJOU,**args):
12840   self.type_sdprod(MATR_AMOR_AJOU,matr_asse_depl_r)
12841   self.type_sdprod(MATR_MASS_AJOU,matr_asse_depl_r)
12842   self.type_sdprod(MATR_RIGI_AJOU,matr_asse_depl_r)
12843   if FORC_AJOU != None:
12844     for m in FORC_AJOU:
12845       self.type_sdprod(m['VECTEUR'],vect_asse_gene)
12846
12847   return None
12848
12849 MACRO_MATR_AJOU=MACRO(nom="MACRO_MATR_AJOU",op=-13,docu="U4.66.11-c1",sd_prod=macro_matr_ajou_prod,
12850             UIinfo={"groupes":("Matrices/vecteurs",)},
12851       regles=(AU_MOINS_UN('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
12852               AU_MOINS_UN('MATR_MASS_AJOU','MATR_AMOR_AJOU','MATR_RIGI_AJOU'),
12853               EXCLUS('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
12854               EXCLUS('MONO_APPUI','MODE_STAT',),
12855              ),
12856          MAILLAGE        =SIMP(statut='o',typ=maillage),
12857          GROUP_MA_FLUIDE =SIMP(statut='o',typ=grma),
12858          GROUP_MA_INTERF =SIMP(statut='o',typ=grma),
12859          MODELISATION    =SIMP(statut='o',typ='TXM',into=("PLAN","AXIS","3D")),
12860          FLUIDE          =FACT(statut='o',min=1,max='**',
12861            RHO             =SIMP(statut='o',typ='R'),
12862            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
12863            GROUP_MA        =SIMP(statut='f',typ=grma),
12864            MAILLE          =SIMP(statut='f',typ=ma),
12865          ),
12866          DDL_IMPO        =FACT(statut='o',min=1,max='**',
12867            regles=(UN_PARMI('NOEUD','GROUP_NO'),
12868                    UN_PARMI('PRES_FLUIDE','PRES_SORTIE'),),
12869            NOEUD           =SIMP(statut='f',typ=no),
12870            GROUP_NO        =SIMP(statut='f',typ=grno),
12871            PRES_FLUIDE     =SIMP(statut='f',typ='R'),
12872            PRES_SORTIE     =SIMP(statut='f',typ='R'),
12873          ),
12874          ECOULEMENT      =FACT(statut='f',min=1,max='**',
12875            GROUP_MA_1      =SIMP(statut='o',typ=grma),
12876            GROUP_MA_2      =SIMP(statut='o',typ=grma),
12877            VNOR_1          =SIMP(statut='o',typ='R'),
12878            VNOR_2          =SIMP(statut='f',typ='R'),
12879            POTENTIEL       =SIMP(statut='f',typ=evol_ther),
12880          ),
12881          MODE_MECA       =SIMP(statut='f',typ=mode_meca),
12882          DEPL_IMPO       =SIMP(statut='f',typ=cham_no_depl_r),
12883          MODELE_GENE     =SIMP(statut='f',typ=modele_gene),
12884          NUME_DDL_GENE   =SIMP(statut='f',typ=nume_ddl_gene),
12885          DIST_REFE       =SIMP(statut='f',typ='R',defaut= 1.0E-2),
12886          MATR_MASS_AJOU  =SIMP(statut='f',typ=(CO,matr_asse)),
12887          MATR_RIGI_AJOU  =SIMP(statut='f',typ=(CO,matr_asse)),
12888          MATR_AMOR_AJOU  =SIMP(statut='f',typ=(CO,matr_asse)),
12889          MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",),),
12890          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,),),
12891          FORC_AJOU       =FACT(statut='f',min=1,max='**',
12892            DIRECTION     =SIMP(statut='o',typ='R',max=3),
12893            NOEUD         =SIMP(statut='f',typ=no,max='**'),
12894            GROUP_NO      =SIMP(statut='f',typ=grno,max='**'),
12895            VECTEUR       =SIMP(statut='o',typ=(CO,vect_asse_gene)),
12896          ),
12897          SOLVEUR         =FACT(statut='d',min=1,max=1,
12898            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
12899            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
12900              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
12901            ),
12902            b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
12903              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
12904            ),
12905            b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
12906                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
12907              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
12908              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12909            ),
12910            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
12911              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
12912              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
12913              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
12914              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
12915              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
12916            ),
12917 #  A quoi sert eps
12918            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12919          ),
12920          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12921          NOEUD_DOUBLE    =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
12922          AVEC_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
12923 ) ;
12924 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
12925 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12926 # ======================================================================
12927 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12928 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12929 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12930 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12931 # (AT YOUR OPTION) ANY LATER VERSION.
12932 #
12933 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12934 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12935 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12936 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12937 #
12938 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12939 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12940 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12941 # ======================================================================
12942
12943 from Macro.macro_matr_asse_ops import macro_matr_asse_ops
12944
12945 def macro_matr_asse_prod(self,NUME_DDL,MATR_ASSE,**args):
12946   if not MATR_ASSE:  raise AsException("Impossible de typer les concepts resultats")
12947   if not NUME_DDL:  raise AsException("Impossible de typer les concepts resultats")
12948   self.type_sdprod(NUME_DDL,nume_ddl)
12949   for m in MATR_ASSE:
12950     opti=m['OPTION']
12951
12952     if opti in ( "RIGI_MECA","RIGI_FLUI_STRU","RIGI_MECA_LAGR" ,
12953        "MASS_MECA" , "MASS_FLUI_STRU" ,"RIGI_GEOM" ,"RIGI_ROTA",
12954        "AMOR_MECA","IMPE_MECA","MASS_ID_MDEP_R","MASS_ID_MDNS_R",
12955        "ONDE_FLUI","MASS_MECA_DIAG" ) : t=matr_asse_depl_r
12956
12957     if opti in ( "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",) : t=matr_asse_pres_c
12958
12959     if opti in ( "RIGI_THER","MASS_THER","RIGI_THER_CONV" ,
12960        "RIGI_THER_CONV_D","MASS_ID_MTEM_R","MASS_ID_MTNS_R",) : t=matr_asse_temp_r
12961
12962     if opti == "RIGI_MECA_HYST"   : t= matr_asse_depl_c
12963
12964     self.type_sdprod(m['MATRICE'],t)
12965   return None
12966
12967 MACRO_MATR_ASSE=MACRO(nom="MACRO_MATR_ASSE",op=macro_matr_asse_ops,docu="U4.61.21-d1",
12968             UIinfo={"groupes":("Matrices/vecteurs",)},
12969                       sd_prod=macro_matr_asse_prod,
12970                       fr="Calcul des matrices assemblées (matr_asse_gd) par exemple de rigidité, de masse ",
12971          MODELE          =SIMP(statut='o',typ=modele),
12972          CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
12973          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
12974          CHARGE          =SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**'),
12975          INST            =SIMP(statut='f',typ='R'),
12976          NUME_DDL        =SIMP(statut='o',typ=(nume_ddl,CO)),
12977          SOLVEUR         =FACT(statut='d',min=1,max=1,
12978            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",
12979                                  into=("LDLT","MULT_FRONT","GCPC")),
12980            RENUM           =SIMP(statut='f',typ='TXM',into=("SANS","RCMK","MD","MDA","METIS")),
12981          ),
12982          MATR_ASSE       =FACT(statut='o',min=1,max='**',
12983            MATRICE         =SIMP(statut='o',typ=(matr_asse,CO)),
12984            OPTION          =SIMP(statut='o',typ='TXM',
12985                                  into=("RIGI_MECA","MASS_MECA","MASS_MECA_DIAG",
12986                                        "AMOR_MECA","RIGI_MECA_HYST","IMPE_MECA",
12987                                        "ONDE_FLUI","RIGI_FLUI_STRU","MASS_FLUI_STRU",
12988                                        "RIGI_ROTA","RIGI_GEOM","RIGI_MECA_LAGR",
12989                                        "RIGI_THER","MASS_THER",
12990                                        "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",
12991                                        "MASS_ID_MTEM_R","MASS_ID_MTNS_R","MASS_ID_MDEP_R","MASS_ID_MDNS_R",)
12992                                  ),
12993            SIEF_ELGA       =SIMP(statut='f',typ=cham_elem_sief_r),
12994            MODE_FOURIER    =SIMP(statut='f',typ='I'),
12995            THETA           =SIMP(statut='f',typ=theta_geom),
12996            PROPAGATION     =SIMP(statut='f',typ='R'),
12997          ),
12998          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
12999          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13000 )  ;
13001 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13002 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13003 # ======================================================================
13004 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13005 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13006 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13007 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13008 # (AT YOUR OPTION) ANY LATER VERSION.
13009 #
13010 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13011 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13012 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13013 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13014 #
13015 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13016 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13017 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13018 # ======================================================================
13019
13020 from Macro.macro_miss_3d_ops import macro_miss_3d_ops
13021
13022 MACRO_MISS_3D=MACRO(nom="MACRO_MISS_3D",op=macro_miss_3d_ops,fr=" ",docu="U7.03.11-a",
13023             UIinfo={"groupes":("Matrices/vecteurs",)},
13024          OPTION          =FACT(statut='o',min=1,max=1,
13025            regles=(UN_PARMI('TOUT','MODULE'),),
13026            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
13027            MODULE          =SIMP(statut='f',typ='TXM',into=("PRE_MISS","MISS_EVOL","MISS_IMPE")),
13028          ),
13029          PROJET          =SIMP(statut='o',typ='TXM'),
13030          REPERTOIRE      =SIMP(statut='f',typ='TXM'),
13031          UNITE_IMPR_ASTER=SIMP(statut='f',typ='I',defaut=25),
13032          UNITE_OPTI_MISS =SIMP(statut='f',typ='I',defaut=26),
13033          UNITE_MODELE_SOL=SIMP(statut='f',typ='I',defaut=27),
13034          UNITE_RESU_IMPE =SIMP(statut='f',typ='I',defaut=30),
13035 )  ;
13036 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13037 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13038 # ======================================================================
13039 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13040 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13041 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13042 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13043 # (AT YOUR OPTION) ANY LATER VERSION.
13044 #
13045 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13046 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13047 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13048 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13049 #
13050 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13051 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13052 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13053 # ======================================================================
13054
13055 from Macro.macro_mode_meca_ops import macro_mode_meca_ops
13056
13057 def macro_mode_meca_prod(self,MATR_A,MATR_B,**args ):
13058   self.type_sdprod(MATR_A,matr_asse_depl_r)
13059   self.type_sdprod(MATR_B,matr_asse_depl_r)
13060   return mode_meca
13061
13062 MACRO_MODE_MECA=MACRO(nom="MACRO_MODE_MECA",op=macro_mode_meca_ops,sd_prod=macro_mode_meca_prod,
13063                      docu="U4.52.02-d1",reentrant='n',
13064             UIinfo={"groupes":("Résolution",)},
13065          MATR_A          =SIMP(statut='o',typ=(CO,matr_asse_depl_r) ),
13066          MATR_B          =SIMP(statut='o',typ=(CO,matr_asse_depl_r) ),
13067          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
13068 #  ce mot cle ne devrait il pas etre dans calc_freq
13069          METHODE         =SIMP(statut='f',typ='TXM',defaut="SORENSEN",
13070                                into=("TRI_DIAG","JACOBI","SORENSEN",) ),
13071          b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
13072            PREC_ORTHO      =SIMP(statut='f',typ='R',defaut= 1.E-12,val_min=0.E+0 ),
13073            NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13074            PREC_LANCZOS    =SIMP(statut='f',typ='R',defaut= 1.E-8,val_min=0.E+0 ),
13075            NMAX_ITER_QR    =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
13076          ),
13077          b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
13078            PREC_BATHE      =SIMP(statut='f',typ='R',defaut= 1.E-10,val_min=0.E+0 ),
13079            NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40,val_min=0 ),
13080            PREC_JACOBI     =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13081            NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12,val_min=0 ),
13082          ),
13083          b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
13084            PREC_SOREN      =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
13085            NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
13086            PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
13087          ),
13088          OPTION          =SIMP(statut='f',typ='TXM',defaut="SANS",
13089                                into=("MODE_RIGIDE","SANS") ),
13090          CALC_FREQ       =FACT(statut='d',min=0,max=1,
13091            regles=(UN_PARMI('FREQ','FREQ_MAX'),
13092                    PRESENT_PRESENT('FREQ_MIN','FREQ_MAX'),
13093                    PRESENT_PRESENT('FREQ_MAX','NB_BLOC_FREQ'),
13094                    EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
13095            FREQ            =SIMP(statut='f',typ='R',min=2,max='**',val_min=0.E+0 ),
13096            FREQ_MIN        =SIMP(statut='f',typ='R' ),
13097            FREQ_MAX        =SIMP(statut='f',typ='R' ),
13098            NB_BLOC_FREQ    =SIMP(statut='f',typ='I' ),
13099            DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
13100            COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
13101            NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8 ),
13102            NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
13103            PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
13104            SEUIL_FREQ      =SIMP(statut='f',typ='R' ,defaut= 1.E-2 ),
13105            STOP_FREQ_VIDE  =SIMP(statut='f',typ='TXM',defaut="NON" ,into=("OUI","NON") ),
13106          ),
13107          VERI_MODE       =FACT(statut='d',min=0,max=1,
13108            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13109            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
13110            PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
13111            STURM           =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13112          ),
13113          NORM_MODE       =FACT(statut='o',min=1,max='**',
13114            MASS_INER       =SIMP(statut='o',typ=tabl_mass_iner ),
13115            NORME           =SIMP(statut='f',typ='TXM',defaut="TRAN_ROTA",
13116                                  into=("MASS_GENE","RIGI_GENE","EUCL",
13117                                        "EUCL_TRAN","TRAN","TRAN_ROTA") ),
13118            INFO            =SIMP(statut='f',typ='I',defaut= 1 ,into=(1,2) ),
13119          ),
13120          FILTRE_MODE     =FACT(statut='f',min=1,max=1,
13121            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
13122                                  into=("MASS_EFFE_UN","MASS_GENE") ),
13123            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
13124          ),
13125          IMPRESSION      =FACT(statut='d',min=1,max=1,
13126            TOUT_PARA       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13127            CUMUL           =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13128            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
13129                                  into=("MASS_EFFE_UN","MASS_GENE",) ),
13130          ),
13131 )  ;
13132 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13133 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13134 # ======================================================================
13135 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13136 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13137 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13138 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13139 # (AT YOUR OPTION) ANY LATER VERSION.
13140 #
13141 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13142 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13143 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13144 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13145 #
13146 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13147 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13148 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13149 # ======================================================================
13150
13151 from Macro.macro_proj_base_ops import macro_proj_base_ops
13152
13153 def macro_proj_base_prod(self,MATR_ASSE_GENE,VECT_ASSE_GENE,**args ):
13154   if MATR_ASSE_GENE != None:
13155     for m in MATR_ASSE_GENE:
13156       self.type_sdprod(m['MATRICE'],matr_asse_gene_r)
13157       self.type_sdprod(m['MATR_ASSE'],matr_asse_depl_r)
13158   if VECT_ASSE_GENE != None:
13159     for v in VECT_ASSE_GENE:
13160       self.type_sdprod(v['VECTEUR'],vect_asse_gene)
13161   return None
13162
13163 MACRO_PROJ_BASE=MACRO(nom="MACRO_PROJ_BASE",op=macro_proj_base_ops,docu="U4.63.11-d1",
13164             UIinfo={"groupes":("Matrices/vecteurs",)},
13165                       sd_prod=macro_proj_base_prod,
13166                       fr="Projection des matrices et/ou vecteurs assemblés sur une base de vecteurs",
13167          BASE            =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene) ),
13168          NB_VECT         =SIMP(statut='f',typ='I',defaut= 9999),
13169          MATR_ASSE_GENE  =FACT(statut='f',min=1,max='**',
13170            MATRICE         =SIMP(statut='o',typ=(CO,matr_asse)),
13171            MATR_ASSE       =SIMP(statut='f',typ=matr_asse_depl_r),
13172            MATR_ASSE_GENE  =SIMP(statut='f',typ=matr_asse_gene_r),
13173            PROFIL          =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("PLEIN","DIAG") ),
13174          ),
13175          VECT_ASSE_GENE  =FACT(statut='f',min=1,max='**',
13176            VECTEUR         =SIMP(statut='o',typ=(CO,vect_asse)),
13177            TYPE_VECT       =SIMP(statut='f',typ='TXM',defaut="FORC"),
13178            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r),
13179            VECT_ASSE_GENE  =SIMP(statut='f',typ=vect_asse_gene),
13180          ),
13181          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13182 )  ;
13183 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13184 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13185 # ======================================================================
13186 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13187 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13188 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13189 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13190 # (AT YOUR OPTION) ANY LATER VERSION.
13191 #
13192 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13193 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13194 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13195 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13196 #
13197 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13198 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13199 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13200 # ======================================================================
13201 MAJ_CATA=PROC(nom="MAJ_CATA",op=20,docu="U4.15.01-e1",
13202             UIinfo={"groupes":("Gestion du travail",)},
13203               fr="Compilation des catalogues de commandes et d éléments",
13204
13205          ELEMENT         =FACT(statut='f',min=1,max=1,),
13206
13207 )  ;
13208 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13209 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13210 # ======================================================================
13211 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13212 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
13213 #              REDISTRIBUTION OF THIS FILE.
13214 # ======================================================================
13215 # RESPONSABLE VABHHTS J.PELLET
13216 MECA_STATIQUE=OPER(nom="MECA_STATIQUE",op=46,sd_prod=evol_elas,
13217                    fr="Analyse mécanique statique linéaire",docu="U4.51.01-g1",reentrant='n',
13218             UIinfo={"groupes":("Résolution",)},
13219                    regles=(EXCLUS("INST","LIST_INST"),
13220                            AU_MOINS_UN('CHAM_MATER','CARA_ELEM',), ),
13221          MODELE          =SIMP(statut='o',typ=modele),
13222          CHAM_MATER      =SIMP(statut='f',typ=cham_mater,
13223          fr="le CHAM_MATER est nécessaire, sauf si le modèle ne contient que des éléments discrets (modélisations DIS_XXX)",
13224          ang="CHAM_MATER is compulsory, except if the model contains only discret elements (modelizations DIS_XXX)"),
13225          CARA_ELEM       =SIMP(statut='f',typ=cara_elem,
13226          fr="le CARA_ELEM est nécessaire dès que le modèle contient des éléments de structure : coques, poutres, ...",
13227          ang="CARA_ELEM is compulsory as soon as the model contains structural elements : plates, beams, ..."),
13228          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13229          EXCIT           =FACT(statut='o',min=1,max='**',
13230            CHARGE          =SIMP(statut='o',typ=(char_meca,char_cine_meca)),
13231            FONC_MULT       =SIMP(statut='f',typ=fonction),
13232            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
13233          ),
13234          INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
13235          LIST_INST       =SIMP(statut='f',typ=listr8),
13236          OPTION          =SIMP(statut='f',typ='TXM',max='**',
13237                                into=("SANS","SIGM_ELNO_DEPL","SIPO_ELNO_DEPL","EFGE_ELNO_DEPL",
13238                                      "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPME_ELNO_DEPL","EPME_ELGA_DEPL",
13239                                      "EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
13240                                      "EQUI_ELNO_EPME","EQUI_ELGA_EPME","DEGE_ELNO_DEPL","EPOT_ELEM_DEPL",
13241                                      "ENEL_ELGA","ENEL_ELNO_ELGA") ),
13242          NUME_COUCHE     =SIMP(statut='f',typ='I',defaut=1),
13243          NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
13244          ANGLE           =SIMP(statut='f',typ='I',defaut=0),
13245          PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL") ),
13246          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
13247                                fr="Liste des paramètres de sensibilité.",
13248                                ang="List of sensitivity parameters"),
13249          SOLVEUR         =FACT(statut='d',min=1,max=1,
13250            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
13251            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
13252              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
13253            ),
13254            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
13255              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
13256            ),
13257            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
13258                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
13259              NPREC           =SIMP(statut='f',typ='I',defaut=8),
13260              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13261            ),
13262            b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
13263              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
13264              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
13265              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
13266              RESI_RELA       =SIMP(statut='f',typ='R',defaut=1.E-6),
13267              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
13268            ),
13269 #  A quoi sert eps
13270            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
13271          ),
13272          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
13273 )  ;
13274 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13275 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13276 # ======================================================================
13277 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13278 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13279 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13280 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13281 # (AT YOUR OPTION) ANY LATER VERSION.
13282 #
13283 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13284 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13285 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13286 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13287 #
13288 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13289 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13290 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13291 # ======================================================================
13292 # RESPONSABLE GNICOLAS G.NICOLAS
13293 MEMO_NOM_SENSI=PROC(nom="MEMO_NOM_SENSI",op=129,docu="U4.31.xx-a",
13294             UIinfo={"groupes":("Fonction",)},
13295                     fr="Mémorisation des noms des concepts dérivés.",
13296                     ang="Memorisation of the names of the sensitive concepts.",
13297
13298          regles=(AU_MOINS_UN('NOM','NOM_ZERO','NOM_UN'),),
13299
13300          NOM=FACT(statut='f',max='**',
13301              regles=(PRESENT_PRESENT('MOT_CLE','VALEUR' ),),
13302
13303              NOM_SD=SIMP(statut='o',typ='TXM',
13304                          fr="Nom de la structure de base",
13305                          ang="Name of the basic structure"),
13306
13307              PARA_SENSI=SIMP(statut='o',typ=(para_sensi,theta_geom),
13308                          fr="Nom du paramètre sensible",
13309                          ang="Name of the sensitive parameter"),
13310
13311              NOM_COMPOSE=SIMP(statut='f',typ='TXM',defaut=" ",
13312                          fr="Nom de la structure composée",
13313                          ang="Name of the built structure"),
13314
13315              MOT_CLE=SIMP(statut='f',typ='TXM',max='**',
13316                          fr="Liste des mots clés concernés par la dérivation",
13317                          ang="Keyword list involved in derivation"),
13318
13319              VALEUR=SIMP(statut='f',typ='TXM',max='**',
13320                          fr="Liste des objets concernés par la dérivation",
13321                          ang="Object list involved in derivation"),
13322
13323                  ),
13324
13325          NOM_ZERO=SIMP(statut='f',typ=fonction,
13326                        fr="Nom de la fonction nulle",
13327                        ang="Name of the zero fonction"),
13328
13329          NOM_UN=SIMP  (statut='f',typ=fonction,
13330                        fr="Nom de la fonction unité",
13331                        ang="Name of the one fonction"),
13332
13333 )  ;
13334 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13335 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13336 # ======================================================================
13337 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13338 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13339 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13340 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13341 # (AT YOUR OPTION) ANY LATER VERSION.
13342 #
13343 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13344 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13345 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13346 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13347 #
13348 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13349 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13350 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13351 # ======================================================================
13352 MODE_ITER_CYCL=OPER(nom="MODE_ITER_CYCL",op=  80,sd_prod=mode_cycl,
13353                     fr="Modes propres d une structure à répétitivité cyclique à partir d une base de modes propres réels",
13354                     docu="U4.52.05-e",reentrant='n',
13355             UIinfo={"groupes":("Résolution",)},
13356          BASE_MODALE     =SIMP(statut='o',typ=base_modale ),
13357          NB_MODE         =SIMP(statut='f',typ='I',defaut= 999 ),
13358          NB_SECTEUR      =SIMP(statut='o',typ='I' ),
13359          LIAISON         =FACT(statut='o',min=1,max=1,
13360            DROITE          =SIMP(statut='o',typ='TXM' ),
13361            GAUCHE          =SIMP(statut='o',typ='TXM' ),
13362            AXE             =SIMP(statut='f',typ='TXM' ),
13363          ),
13364          VERI_CYCL       =FACT(statut='f',min=1,max=1,
13365            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
13366            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF",) ),
13367            DIST_REFE       =SIMP(statut='f',typ='R' ),
13368          ),
13369          CALCUL          =FACT(statut='o',min=1,max=1,
13370            TOUT_DIAM       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13371            NB_DIAM         =SIMP(statut='f',typ='I',max='**'),
13372            OPTION          =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE"
13373                                 ,into=("PLUS_PETITE","CENTRE","BANDE") ),
13374            b_centre      =BLOC(condition = "OPTION == 'CENTRE'",
13375              FREQ            =SIMP(statut='o',typ='R',min=1,max=1),
13376            ),
13377            b_bande       =BLOC(condition = "OPTION == 'BANDE'",
13378              FREQ            =SIMP(statut='o',typ='R',min=2,max=2),
13379            ),
13380 #  NMAX_FREQ n a-t-il pas un sens qu avec OPTION CENTRE
13381            NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10 ),
13382            PREC_SEPARE     =SIMP(statut='f',typ='R',defaut= 100. ),
13383            PREC_AJUSTE     =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
13384            NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 50 ),
13385          ),
13386          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13387 )  ;
13388 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13389 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13390 # ======================================================================
13391 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13392 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13393 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13394 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13395 # (AT YOUR OPTION) ANY LATER VERSION.
13396 #
13397 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13398 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13399 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13400 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13401 #
13402 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13403 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13404 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13405 # ======================================================================
13406 def mode_iter_inv_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
13407   if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
13408   if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
13409   if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
13410   if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
13411   if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
13412   raise AsException("type de concept resultat non prevu")
13413
13414 MODE_ITER_INV=OPER(nom="MODE_ITER_INV",op=  44,sd_prod=mode_iter_inv_prod
13415                     ,fr="Modes propres par itérations inverses ; valeurs propres et modes réels ou complexes",
13416                      docu="U4.52.04-g1",reentrant='n',
13417             UIinfo={"groupes":("Résolution",)},
13418          MATR_A          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13419          MATR_B          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13420          MATR_C          =SIMP(statut='f',typ=matr_asse_depl_r ),
13421          TYPE_RESU       =SIMP(statut='f',position='global',typ='TXM',defaut="DYNAMIQUE",
13422                                into=("MODE_FLAMB","DYNAMIQUE"),fr="Type d analyse" ),
13423          b_dynam         =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
13424            CALC_FREQ       =FACT(statut='o',min=1,max=1,fr="Choix des paramètres pour le calcul des valeurs propres",
13425
13426              OPTION          =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
13427                                    fr="Choix de l option pour estimer les valeurs propres"  ),
13428              FREQ            =SIMP(statut='o',typ='R',max='**'),
13429              AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
13430              NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 0,val_min=0 ),
13431              NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30,val_min=0 ),
13432              PREC_SEPARE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0 ),
13433              NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15,val_min=0 ),
13434              PREC_AJUSTE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0 ),
13435
13436              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13437              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13438              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0, ),
13439              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0, ),
13440            ),
13441          ),
13442          b_flamb        =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
13443            CALC_FREQ       =FACT(statut='o',min=1,max=1,fr="Choix des paramètres pour le calcul des valeurs propres",
13444
13445              OPTION          =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
13446                                  fr="Choix de l option pour estimer les valeurs propres"  ),
13447              CHAR_CRIT       =SIMP(statut='o',typ='R',max='**' ),
13448              NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 0,val_min=0 ),
13449              NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30,val_min=0 ),
13450              PREC_SEPARE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0, ),
13451              NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15 ),
13452              PREC_AJUSTE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0, ),
13453
13454              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13455              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13456              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0, ),
13457              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0, ),
13458            ),
13459          ),
13460          CALC_MODE       =FACT(statut='d',min=0,max=1,fr="Choix des paramètres pour le calcul des vecteurs propres",
13461            OPTION          =SIMP(statut='f',typ='TXM',defaut="DIRECT",into=("DIRECT","RAYLEIGH") ),
13462            PREC            =SIMP(statut='f',typ='R',defaut= 1.E-5,val_min=0.E+0,fr="Précision de convergence" ),
13463            NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
13464          ),
13465          VERI_MODE       =FACT(statut='d',min=0,max=1,
13466            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13467            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0,
13468                                  fr="Valeur limite admise pour l ereur a posteriori des modes"  ),
13469          ),
13470          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13471          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13472 )  ;
13473 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13474 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13475 # ======================================================================
13476 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13477 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13478 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13479 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13480 # (AT YOUR OPTION) ANY LATER VERSION.
13481 #
13482 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13483 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13484 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13485 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13486 #
13487 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13488 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13489 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13490 # ======================================================================
13491 def mode_iter_simult_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
13492   if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
13493   if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
13494   if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
13495   if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
13496   if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
13497   raise AsException("type de concept resultat non prevu")
13498
13499 MODE_ITER_SIMULT=OPER(nom="MODE_ITER_SIMULT",op=  45,sd_prod=mode_iter_simult_prod,
13500                       fr="Modes propres par itérations simultanées ; valeurs propres et modes propres réels ou complexes",
13501                       docu="U4.52.03-f2",reentrant='n',
13502             UIinfo={"groupes":("Résolution",)},
13503          MATR_A          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13504          MATR_B          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13505          MATR_C          =SIMP(statut='f',position='global',typ=matr_asse_depl_r ),
13506          METHODE         =SIMP(statut='f',position='global',typ='TXM',defaut="SORENSEN",
13507                                into=("TRI_DIAG","JACOBI","SORENSEN") ),
13508          b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
13509            PREC_ORTHO      =SIMP(statut='f',typ='R',defaut= 1.E-12,val_min=0.E+0 ),
13510            NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13511            PREC_LANCZOS    =SIMP(statut='f',typ='R',defaut= 1.E-8,val_min=0.E+0 ),
13512            NMAX_ITER_QR    =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
13513          ),
13514          b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
13515            PREC_BATHE      =SIMP(statut='f',typ='R',defaut= 1.E-10,val_min=0.E+0 ),
13516            NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40,val_min=0 ),
13517            PREC_JACOBI     =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13518            NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12,val_min=0 ),
13519          ),
13520          b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
13521            PREC_SOREN      =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
13522            NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
13523            PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
13524          ),
13525          TYPE_RESU       =SIMP(statut='f',position='global',typ='TXM',defaut="DYNAMIQUE",
13526                                into=("MODE_FLAMB","DYNAMIQUE"),
13527                                fr="Type d analyse" ),
13528          OPTION          =SIMP(statut='f',typ='TXM',defaut="SANS",into=("MODE_RIGIDE","SANS"),
13529                                fr="Calcul des modes de corps rigide, uniquement pour la méthode TRI_DIAG" ),
13530
13531          b_flamb         =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
13532            CALC_FREQ       =FACT(statut='d',min=0,max=1,
13533              OPTION          =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
13534                                    fr="Choix de l option et par conséquent du shift du problème modal" ),
13535              b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
13536                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
13537              ),
13538              b_centre      =BLOC(condition = "OPTION == 'CENTRE'",
13539                                  fr="Recherche des valeurs propres les plus proches d une valeur donnée",
13540                CHAR_CRIT       =SIMP(statut='o',typ='R',min=1,max=1,
13541                                      fr="Charge critique autour de laquelle on cherche les charges critiques propres"),
13542              ),
13543              b_bande       =BLOC(condition = "(OPTION == 'BANDE')",
13544                                  fr="Recherche des valeurs propres dans une bande donnée",
13545                CHAR_CRIT       =SIMP(statut='o',typ='R',min=2,max=2,
13546                                      fr="Valeur des deux charges critiques délimitant la bande de recherche"),
13547              ),
13548              APPROCHE        =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG"),
13549                                    fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
13550              regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
13551              DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
13552              COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
13553              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13554              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13555              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0 ),
13556              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13557            ),
13558          ),
13559
13560          b_dynam        =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
13561            CALC_FREQ       =FACT(statut='d',min=0,max=1,
13562              OPTION          =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
13563                                    fr="Choix de l option et par conséquent du shift du problème modal" ),
13564              b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
13565                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
13566              ),
13567              b_centre       =BLOC(condition = "OPTION == 'CENTRE'",
13568                                   fr="Recherche des valeurs propres les plus proches d une valeur donnée",
13569                FREQ            =SIMP(statut='o',typ='R',min=1,max=1,
13570                                      fr="Fréquence autour de laquelle on cherche les fréquences propres"),
13571                AMOR_REDUIT     =SIMP(statut='f',typ='R',max=1,),
13572                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
13573              ),
13574              b_bande         =BLOC(condition = "(OPTION == 'BANDE')",
13575                                    fr="Recherche des valeurs propres dans une bande donnée",
13576                FREQ            =SIMP(statut='o',typ='R',min=2,max=2,
13577                                      fr="Valeur des deux fréquences délimitant la bande de recherche"),
13578              ),
13579              APPROCHE        =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG"),
13580                                    fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
13581              regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
13582              DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
13583              COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
13584              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13585              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13586              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0 ),
13587              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13588            ),
13589          ),
13590
13591          VERI_MODE       =FACT(statut='d',min=0,max=1,
13592            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13593            PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-3,val_min=0.E+0 ),
13594            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-6,val_min=0.E+0,
13595                                  fr="Valeur limite admise pour l ereur a posteriori des modes" ),
13596            STURM           =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13597          ),
13598          STOP_FREQ_VIDE  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13599          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13600          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13601 )  ;
13602 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13603 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13604 # ======================================================================
13605 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13606 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13607 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13608 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13609 # (AT YOUR OPTION) ANY LATER VERSION.
13610 #
13611 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13612 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13613 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13614 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13615 #
13616 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13617 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13618 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13619 # ======================================================================
13620 def mode_stat_prod(MODE_STAT,FORCE_NODALE,PSEUDO_MODE,**args):
13621  if (MODE_STAT != None)          : return mode_stat_depl
13622  if (PSEUDO_MODE !=None)         : return mode_stat_acce
13623  if (FORCE_NODALE != None)       : return mode_stat_forc
13624  raise AsException("type de concept resultat non prevu")
13625 MODE_STATIQUE=OPER(nom="MODE_STATIQUE",op= 93,sd_prod=mode_stat_prod,
13626                    fr="Calcul de modes statiques",
13627                    docu="U4.52.14-f2",reentrant='n',
13628             UIinfo={"groupes":("Résolution",)},
13629          MATR_RIGI       =SIMP(statut='o',typ=matr_asse_depl_r ),
13630          MATR_MASS       =SIMP(statut='f',typ=matr_asse_depl_r ),
13631                regles=(UN_PARMI('MODE_STAT','FORCE_NODALE','PSEUDO_MODE'),),
13632          MODE_STAT       =FACT(statut='f',min=1,max='**',
13633            regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
13634                    UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
13635            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ,),
13636            NOEUD           =SIMP(statut='f',typ=no,max='**'),
13637            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
13638            TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",) ,),
13639            AVEC_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13640            SANS_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13641          ),
13642          FORCE_NODALE    =FACT(statut='f',min=1,max='**',
13643            regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
13644                    UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
13645            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",), ),
13646            NOEUD           =SIMP(statut='f',typ=no,max='**'),
13647            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
13648            TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",), ),
13649            AVEC_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13650            SANS_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13651          ),
13652          PSEUDO_MODE       =FACT(statut='f',min=1,max='**',
13653            regles=(UN_PARMI('AXE','DIRECTION','TOUT','NOEUD','GROUP_NO' ),),
13654            AXE             =SIMP(statut='f',typ='TXM',into=("X","Y","Z"),max=3),
13655            DIRECTION       =SIMP(statut='f',typ='R',min=3,max=3),
13656            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
13657            NOEUD           =SIMP(statut='f',typ=no,max='**'),
13658            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
13659            b_dir           =BLOC(condition = "DIRECTION != None",
13660              NOM_DIR         =SIMP(statut='f',typ='TXM' ),),
13661            b_cmp          =BLOC(condition="TOUT!= None or NOEUD!=None or GROUP_NO!=None",
13662              regles=(UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
13663              TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13664              AVEC_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13665              SANS_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13666         ),
13667          ),
13668          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13669          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
13670 )  ;
13671 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13672 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13673 # ======================================================================
13674 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13675 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13676 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13677 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13678 # (AT YOUR OPTION) ANY LATER VERSION.
13679 #
13680 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13681 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13682 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13683 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13684 #
13685 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13686 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13687 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13688 # ======================================================================
13689 MODI_BASE_MODALE=OPER(nom="MODI_BASE_MODALE",op= 149,sd_prod=mode_meca,
13690                       docu="U4.66.21-c",reentrant='f',
13691             UIinfo={"groupes":("Matrices/vecteurs",)},
13692 #  la commande modi_base _modale : reentrant = f ou o
13693          regles=(EXCLUS('AMOR_UNIF','AMOR_REDUIT', ),),
13694          BASE            =SIMP(statut='o',typ=mode_meca ),
13695          BASE_ELAS_FLUI  =SIMP(statut='o',typ=melasflu ),
13696          NUME_VITE_FLUI  =SIMP(statut='o',typ='I' ),
13697          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
13698          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
13699          AMOR_UNIF       =SIMP(statut='f',typ='R' ),
13700          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
13701          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13702 )  ;
13703 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13704 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13705 # ======================================================================
13706 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13707 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
13708 #              REDISTRIBUTION OF THIS FILE.
13709 # ======================================================================
13710 # RESPONSABLE G8BHHXD X.DESROCHES
13711 MODI_MAILLAGE=OPER(nom="MODI_MAILLAGE",op= 154,sd_prod=maillage,
13712                    fr="Modification de la connectivité de groupes de mailles 2D ou 3D affectées à la modélisation de contact",
13713                    docu="U4.23.04-d1",reentrant='o',
13714             UIinfo={"groupes":("Maillage",)},
13715       regles=(AU_MOINS_UN('ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
13716                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',
13717                        'TRANSLATION','ROTATION','MODI_BASE','ECHELLE',),
13718               PRESENT_ABSENT('ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
13719                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
13720               PRESENT_ABSENT('DEFORME','ORIE_CONTACT','EQUE_PIQUA','ORIE_PEAU_2D',
13721                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
13722               PRESENT_ABSENT('EQUE_PIQUA','ORIE_CONTACT','DEFORME','ORIE_PEAU_2D',
13723                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
13724               PRESENT_ABSENT('ORIE_PEAU_2D','ORIE_CONTACT','DEFORME','EQUE_PIQUA',
13725                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
13726               PRESENT_ABSENT('ORIE_PEAU_3D','ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
13727                        'ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
13728               PRESENT_ABSENT('ORIE_NORM_COQUE','ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
13729                        'ORIE_PEAU_3D','PLAQ_TUBE','MODI_MAILLE',),
13730               PRESENT_ABSENT('PLAQ_TUBE','ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
13731                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','MODI_MAILLE',),
13732               PRESENT_ABSENT('MODI_MAILLE','ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
13733                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE',),
13734               EXCLUS('EQUE_PIQUA','PLAQ_TUBE'),
13735               EXCLUS('EQUE_PIQUA','TUBE_COUDE'),
13736               EXCLUS('ROTATION','MODI_BASE'),),
13737          MAILLAGE        =SIMP(statut='o',typ=maillage ),
13738
13739          ORIE_CONTACT    =FACT(statut='f',min=1,max=1,
13740            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
13741          ),
13742
13743          DEFORME         =FACT(statut='f',min=1,max=1,
13744            OPTION          =SIMP(statut='o',typ='TXM',into=("TRAN","TRAN_APPUI") ),
13745            DEPL            =SIMP(statut='o',typ=cham_no_depl_r ),
13746         b_deform        =BLOC(condition = "OPTION=='TRAN_APPUI'",
13747            GROUP_NO_APPUI = SIMP(statut='o',typ=grno,max='**' ),
13748            GROUP_NO_STRU = SIMP(statut='o',typ=grno,max='**' ),),
13749          ),
13750
13751          EQUE_PIQUA      =FACT(statut='f',min=1,max=1,
13752            GROUP_NO        =SIMP(statut='o',typ=grno),
13753            E_BASE          =SIMP(statut='o',typ='R' ),
13754            DEXT_BASE       =SIMP(statut='o',typ='R' ),
13755            L_BASE          =SIMP(statut='o',typ='R' ),
13756            L_CHANF         =SIMP(statut='o',typ='R' ),
13757            TYPE            =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2")),
13758            H_SOUD          =SIMP(statut='o',typ='R' ),
13759            ANGL_SOUD       =SIMP(statut='o',typ='R' ),
13760            JEU_SOUD        =SIMP(statut='o',typ='R' ),
13761            E_CORP          =SIMP(statut='o',typ='R' ),
13762            DEXT_CORP       =SIMP(statut='o',typ='R' ),
13763            AZIMUT          =SIMP(statut='o',typ='R' ),
13764            RAFF_MAIL       =SIMP(statut='o',typ='TXM' ),
13765            X_MAX           =SIMP(statut='o',typ='R' ),
13766          ),
13767          ORIE_PEAU_2D    =FACT(statut='f',min=1,max='**',
13768            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
13769          ),
13770          ORIE_PEAU_3D    =FACT(statut='f',min=1,max='**',
13771            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
13772          ),
13773          ORIE_NORM_COQUE =FACT(statut='f',min=1,max='**',
13774            regles=(EXCLUS('NOEUD','GROUP_NO'),
13775                    PRESENT_PRESENT('NOEUD','VECT_NORM'),
13776                    PRESENT_PRESENT('GROUP_NO','VECT_NORM'),),
13777            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
13778            VECT_NORM       =SIMP(statut='f',typ='R',max=3),
13779            NOEUD           =SIMP(statut='f',typ=no),
13780            GROUP_NO        =SIMP(statut='f',typ=grno),
13781          ),
13782          b_modele        =BLOC(condition = "(ORIE_PEAU_2D != None) or (ORIE_PEAU_3D != None) or(ORIE_NORM_COQUE != None)",
13783            MODELE          =SIMP(statut='o',typ=modele ),
13784          ),
13785          PLAQ_TUBE       =FACT(statut='f',min=1,max=1,
13786            DEXT            =SIMP(statut='o',typ='R' ),
13787            EPAIS           =SIMP(statut='o',typ='R' ),
13788            L_TUBE_P1       =SIMP(statut='o',typ='R' ),
13789            AZIMUT          =SIMP(statut='f',typ='R',defaut= 90. ),
13790            COUTURE         =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",)  ),
13791          ),
13792          TUBE_COUDE      =FACT(statut='f',min=1,max=1,
13793            ANGLE           =SIMP(statut='o',typ='R' ),
13794            R_CINTR         =SIMP(statut='o',typ='R' ),
13795            L_TUBE_P1       =SIMP(statut='o',typ='R' ),
13796          ),
13797          MODI_MAILLE     =FACT(statut='f',min=1,max=1,
13798            regles=(AU_MOINS_UN('GROUP_MA_FOND','MAILLE_FOND','GROUP_NO_FOND','NOEUD_FOND'),),
13799            OPTION          =SIMP(statut='o',typ='TXM',into=("NOEUD_QUART",) ),
13800            GROUP_MA_FOND   =SIMP(statut='f',typ=grma,max='**'),
13801            MAILLE_FOND     =SIMP(statut='f',typ=ma,max='**'),
13802            GROUP_NO_FOND   =SIMP(statut='f',typ=grno,max='**'),
13803            NOEUD_FOND      =SIMP(statut='f',typ=no,max='**'),
13804          ),
13805          MODI_BASE       =FACT(statut='f',min=1,max=1,
13806            VECT_X          =SIMP(statut='o',typ='R',min=2,max=3),
13807            VECT_Y          =SIMP(statut='f',typ='R',min=2,max=3),
13808          ),
13809          ECHELLE         =SIMP(statut='f',typ='R',min=1,max=1),
13810          TRANSLATION     =SIMP(statut='f',typ='R',min=2,max=3),
13811          ROTATION        =FACT(statut='f',min=1,max='**',
13812            POIN_1           =SIMP(statut='o',typ='R',min=2,max=3),
13813            ANGL             =SIMP(statut='o',typ='R',defaut= 0.E+0 ),
13814            regles=(EXCLUS('DIR','POIN_2'),),
13815            POIN_2           =SIMP(statut='f',typ='R',min=2,max=3),
13816            DIR              =SIMP(statut='f',typ='R',min=2,max=3),
13817          ),
13818
13819          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13820 )  ;
13821 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13822 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13823 # ======================================================================
13824 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13825 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13826 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13827 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13828 # (AT YOUR OPTION) ANY LATER VERSION.
13829 #
13830 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13831 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13832 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13833 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13834 #
13835 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13836 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13837 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13838 # ======================================================================
13839 MODI_OBSTACLE=OPER(nom="MODI_OBSTACLE",op=182,sd_prod=obstacle,
13840                    fr=" ",docu="U4.44.22-a",reentrant='f',
13841             UIinfo={"groupes":("Modélisation",)},
13842       regles=(PRESENT_ABSENT('R_MOBILE','CRAYON'),
13843               PRESENT_PRESENT('TUBE_NEUF','TABL_USURE'),
13844               PRESENT_PRESENT('V_USUR_TUBE','V_USUR_OBST'),),
13845          TUBE_NEUF       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13846          V_USUR_TUBE     =SIMP(statut='f',typ='R',max='**'),
13847          V_USUR_OBST     =SIMP(statut='f',typ='R',max='**'),
13848          TABL_USURE      =SIMP(statut='f',typ=tabl_post_usur),
13849          INST            =SIMP(statut='f',typ='R'),
13850          OBSTACLE        =SIMP(statut='f',typ=obstacle),
13851          GUIDE           =SIMP(statut='o',typ=obstacle),
13852          CRAYON          =SIMP(statut='f',typ=obstacle),
13853          R_MOBILE        =SIMP(statut='f',typ='R'),
13854          PERCEMENT       =SIMP(statut='f',typ='R',defaut=1),
13855          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13856 )  ;
13857 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13858 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13859 # ======================================================================
13860 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13861 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13862 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13863 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13864 # (AT YOUR OPTION) ANY LATER VERSION.
13865 #
13866 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13867 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13868 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13869 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13870 #
13871 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13872 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13873 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13874 # ======================================================================
13875 # RESPONSABLE JMBHH01 J.M.PROIX
13876 def modi_repere_prod(RESULTAT,**args):
13877   if AsType(RESULTAT) == evol_elas :    return evol_elas
13878   if AsType(RESULTAT) == evol_noli :    return evol_noli
13879   if AsType(RESULTAT) == evol_ther :    return evol_ther
13880   if AsType(RESULTAT) == dyna_trans :   return dyna_trans
13881   if AsType(RESULTAT) == dyna_harmo :   return dyna_harmo
13882   if AsType(RESULTAT) == mode_meca :    return mode_meca
13883   if AsType(RESULTAT) == mode_flamb :   return mode_flamb
13884   if AsType(RESULTAT) == mult_elas :    return mult_elas
13885   if AsType(RESULTAT) == base_modale  : return base_modale
13886   raise AsException("type de concept resultat non prevu")
13887
13888 MODI_REPERE=OPER(nom="MODI_REPERE",op=191,sd_prod=modi_repere_prod,docu="U4.74.01-a3",reentrant='n',
13889             UIinfo={"groupes":("Résultats et champs",)},
13890                     fr="Impression des resultats dans un repere cylindrique",
13891          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,mode_meca,
13892                                                evol_noli,mult_elas,
13893                                                evol_ther,base_modale,mode_flamb) ),
13894          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
13895                         'NOEUD_CMP','LIST_INST','LIST_FREQ','NOM_CAS'),),
13896          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13897          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
13898          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
13899          NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
13900          NOM_CAS         =SIMP(statut='f',typ='TXM' ),
13901
13902          INST            =SIMP(statut='f',typ='R',max='**'),
13903          FREQ            =SIMP(statut='f',typ='R',max='**'),
13904          LIST_INST       =SIMP(statut='f',typ=listr8),
13905          LIST_FREQ       =SIMP(statut='f',typ=listr8),
13906
13907          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
13908          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",),),
13909
13910          MODI_CHAM       =FACT(statut='o',min=1,max='**',
13911            TYPE_CHAM       =SIMP(statut='o',typ='TXM', max=1,
13912                                  into=("VECT_2D","VECT_3D","TORS_3D","TENS_2D","TENS_3D"),),
13913            NOM_CHAM        =SIMP(statut='o',typ='TXM',max=1 ),
13914            b_vect_2d       =BLOC(condition = "TYPE_CHAM=='VECT_2D'",
13915               NOM_CMP         =SIMP(statut='o',typ='TXM',min=2,max=2 ),),
13916            b_vect_3d       =BLOC(condition = "TYPE_CHAM=='VECT_3D'",
13917               NOM_CMP         =SIMP(statut='o',typ='TXM',min=3,max=3 ),),
13918            b_tors_3d       =BLOC(condition = "TYPE_CHAM=='TORS_3D'",
13919               NOM_CMP         =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
13920            b_tens_2d       =BLOC(condition = "TYPE_CHAM=='TENS_2D'",
13921               NOM_CMP         =SIMP(statut='o',typ='TXM',min=4,max=4 ),),
13922            b_tens_3d       =BLOC(condition = "TYPE_CHAM=='TENS_3D'",
13923               NOM_CMP         =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
13924          ),
13925          DEFI_REPERE     =FACT(statut='o',min=1,max=1,
13926          regles=(UN_PARMI('ANGL_NAUT','ORIGINE'),),
13927            REPERE          =SIMP(statut='f',typ='TXM',defaut="UTILISATEUR",
13928                                  into=("UTILISATEUR","CYLINDRIQUE"),),
13929            ANGL_NAUT       =SIMP(statut='f',typ='R',min=1,max=3),
13930            ORIGINE         =SIMP(statut='f',typ='R',min=2,max=3),
13931            AXE_Z           =SIMP(statut='f',typ='R',min=3,max=3),
13932          ),
13933          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13934 )  ;
13935 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13936 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13937 # ======================================================================
13938 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13939 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13940 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13941 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13942 # (AT YOUR OPTION) ANY LATER VERSION.
13943 #
13944 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13945 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13946 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13947 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13948 #
13949 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13950 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13951 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13952 # ======================================================================
13953 def norm_mode_prod(MODE,**args ):
13954   if AsType(MODE) == mode_meca   : return mode_meca
13955   if AsType(MODE) == mode_meca_c : return mode_meca_c
13956   if AsType(MODE) == mode_flamb  : return mode_flamb
13957   raise AsException("type de concept resultat non prevu")
13958
13959 NORM_MODE=OPER(nom="NORM_MODE",op=  37,sd_prod=norm_mode_prod,
13960                fr="Normalisation de modes propres",
13961                docu="U4.52.11-e",reentrant='f',
13962             UIinfo={"groupes":("Résolution",)},
13963          regles=(UN_PARMI('NORME','NOEUD','AVEC_CMP','SANS_CMP'),),
13964          MODE       =SIMP(statut='o',typ=(mode_meca,mode_flamb) ),
13965          NORME      =SIMP(statut='f',typ='TXM',fr="Norme prédéfinie : masse généralisée, euclidienne,...",
13966                           into=("MASS_GENE","RIGI_GENE","EUCL","EUCL_TRAN","TRAN","TRAN_ROTA") ),
13967          NOEUD      =SIMP(statut='f',typ=no, fr="Composante donnée d un noeud spécifié égale à 1"),
13968          b_noeud    =BLOC(condition = "NOEUD != None",
13969            NOM_CMP    =SIMP(statut='o',typ='TXM' ),
13970          ),
13971          AVEC_CMP   =SIMP(statut='f',typ='TXM',max='**'),
13972          SANS_CMP   =SIMP(statut='f',typ='TXM',max='**'),
13973          MASS_INER  =SIMP(statut='f',typ=tabl_mass_iner ),
13974          MODE_SIGNE =FACT(statut='f',max=1,fr="Imposer un signe sur une des composantes des modes",
13975            NOEUD      =SIMP(statut='o',typ=no,fr="Noeud ou sera imposé le signe"),
13976            NOM_CMP    =SIMP(statut='o',typ='TXM',fr="Composante du noeud ou sera imposé le signe" ),
13977            SIGNE      =SIMP(statut='f',typ='TXM',defaut="POSITIF",into=("NEGATIF","POSITIF"),
13978                             fr="Choix du signe" ),
13979          ),
13980          TITRE      =SIMP(statut='f',typ='TXM',max='**'),
13981          INFO       =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13982 )  ;
13983 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13984 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13985 # ======================================================================
13986 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13987 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13988 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13989 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13990 # (AT YOUR OPTION) ANY LATER VERSION.
13991 #
13992 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13993 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13994 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13995 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13996 #
13997 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13998 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13999 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14000 # ======================================================================
14001 # RESPONSABLE VABHHTS J.PELLET
14002 NUME_DDL=OPER(nom="NUME_DDL",op=11,sd_prod=nume_ddl,docu="U4.61.11-g1",reentrant='n',
14003             UIinfo={"groupes":("Matrices/vecteurs",)},
14004               fr="Etablissement de la numérotation des ddl avec ou sans renumérotation et du stockage de la matrice",
14005                   regles=(UN_PARMI('MATR_RIGI','MODELE'),),
14006          MATR_RIGI       =SIMP(statut='f',typ=(matr_elem_depl_r ,matr_elem_depl_c,
14007                                                matr_elem_temp_r,matr_elem_pres_c),max=100 ),
14008          MODELE          =SIMP(statut='f',typ=modele ),
14009          b_modele        =BLOC(condition = "MODELE != None",
14010            CHARGE     =SIMP(statut='f',max='**',typ=(char_meca,char_ther,char_acou, ),),
14011          ),
14012          METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
14013          b_mult_front    =BLOC(condition="METHODE=='MULT_FRONT'",fr="paramètres associés à la méthode multifrontale",
14014            RENUM           =SIMP(statut='f',typ='TXM',into=("MD","MDA","METIS"),defaut="METIS" ),
14015          ),
14016          b_ldlt          =BLOC(condition="METHODE=='LDLT'",fr="paramètres associés à la méthode LDLT",
14017            RENUM           =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK"  ),
14018          ),
14019          b_gcpc          =BLOC(condition="METHODE=='GCPC'",fr="paramètres associés à la méthode gradient conjugué",
14020            RENUM           =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK"  ),
14021          ),
14022          INFO            =SIMP(statut='f',typ='I',into=(1,2)),
14023 )  ;
14024 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
14025 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14026 # ======================================================================
14027 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14028 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14029 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14030 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14031 # (AT YOUR OPTION) ANY LATER VERSION.
14032 #
14033 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14034 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14035 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14036 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14037 #
14038 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14039 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14040 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14041 # ======================================================================
14042 NUME_DDL_GENE=OPER(nom="NUME_DDL_GENE",op= 127,sd_prod=nume_ddl_gene,
14043                    fr="Etablissement de la numérotation des ddl d un modèle établi en coordonnées généralisées",
14044                     docu="U4.65.03-e1",reentrant='n',
14045             UIinfo={"groupes":("Matrices/vecteurs",)},
14046          regles=UN_PARMI('MODELE_GENE','BASE'),
14047          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
14048              b_modele_gene     =BLOC(condition = "MODELE_GENE != None",
14049                STOCKAGE     =SIMP(statut='f',typ='TXM',defaut="LIGN_CIEL",into=("LIGN_CIEL","PLEIN") ),
14050                                     ),
14051          BASE     =SIMP(statut='f',typ=(mode_meca,base_modale,mode_gene ) ),
14052              b_base     =BLOC(condition = "BASE != None",
14053                STOCKAGE     =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("DIAG","PLEIN") ),
14054                NB_VECT     =SIMP(statut='f',typ='I',defaut= 9999 ),
14055                              ),
14056 )  ;
14057 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
14058 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14059 # ======================================================================
14060 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14061 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14062 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14063 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14064 # (AT YOUR OPTION) ANY LATER VERSION.
14065 #
14066 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14067 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14068 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14069 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14070 #
14071 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14072 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14073 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14074 # ======================================================================
14075 POST_DYNA_ALEA=OPER(nom="POST_DYNA_ALEA",op= 132,sd_prod=tabl_post_alea,
14076                     fr="Traitements statistiques de résultats de type interspectre et impression sur fichiers",
14077                     docu="U4.84.04-d",reentrant='n',
14078             UIinfo={"groupes":("Post traitements",)},
14079          regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I','OPTION'),),
14080          INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
14081          NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
14082          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14083          NUME_ORDRE_I    =SIMP(statut='f',typ='I',max='**' ),
14084          NOEUD_I         =SIMP(statut='f',typ=no,max='**'),
14085          OPTION          =SIMP(statut='f',typ='TXM',into=("DIAG",) ),
14086          b_nume_ordre_i =BLOC(condition = "NUME_ORDRE_I != None",
14087            NUME_ORDRE_J    =SIMP(statut='o',typ='I',max='**' ),
14088          ),
14089          b_noeud_i      =BLOC(condition = "NOEUD_I != None",
14090            NOEUD_J         =SIMP(statut='o',typ=no,max='**'),
14091            NOM_CMP_I       =SIMP(statut='o',typ='TXM',max='**' ),
14092            NOM_CMP_J       =SIMP(statut='o',typ='TXM',max='**' ),
14093          ),
14094          DEPASSEMENT     =FACT(statut='f',min=1,max='**',
14095            fr="Loi de dépassement d un seuil pendant une durée donnée",
14096            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
14097            VALE_MIN        =SIMP(statut='f',typ='R' ),
14098            VALE_MAX        =SIMP(statut='f',typ='R' ),
14099            PAS             =SIMP(statut='f',typ='R' ),
14100            DUREE           =SIMP(statut='f',typ='R',defaut= 1. ),
14101          ),
14102          RAYLEIGH        =FACT(statut='f',min=1,max='**',
14103            fr="Densité de probabilité de pic positif, loi adaptée à des signaux à bande étroite",
14104            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
14105            VALE_MIN        =SIMP(statut='f',typ='R' ),
14106            VALE_MAX        =SIMP(statut='f',typ='R' ),
14107            PAS             =SIMP(statut='f',typ='R' ),
14108          ),
14109          GAUSS           =FACT(statut='f',min=1,max='**',
14110            fr="Densité de probabilité de pic positif, loi normale adaptée à des signaux large bande",
14111            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
14112            VALE_MIN        =SIMP(statut='f',typ='R' ),
14113            VALE_MAX        =SIMP(statut='f',typ='R' ),
14114            PAS             =SIMP(statut='f',typ='R' ),
14115          ),
14116          VANMARCKE       =FACT(statut='f',min=1,max='**',
14117            fr="Probabilité de non dépassement de seuil pendant une durée donnée (analyse sismique)",
14118            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
14119            VALE_MIN        =SIMP(statut='f',typ='R' ),
14120            VALE_MAX        =SIMP(statut='f',typ='R' ),
14121            PAS             =SIMP(statut='f',typ='R' ),
14122            DUREE           =SIMP(statut='f',typ='R',defaut= 10. ),
14123          ),
14124          MOMENT          =SIMP(statut='f',typ='I',max='**',fr="Moments spectraux en complément des cinq premiers" ),
14125          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
14126          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
14127 )  ;
14128 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
14129 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14130 # ======================================================================
14131 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14132 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14133 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14134 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14135 # (AT YOUR OPTION) ANY LATER VERSION.
14136 #
14137 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14138 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14139 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14140 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14141 #
14142 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14143 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14144 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14145 # ======================================================================
14146 POST_DYNA_MODA_T=OPER(nom="POST_DYNA_MODA_T",op= 130,sd_prod=tabl_post_dyna,
14147                       fr="Post-traitements en coordonnées généralisées issus de DYNA_TRAN_MODAL",
14148                       docu="U4.84.02-d",reentrant='n',
14149             UIinfo={"groupes":("Post traitements",)},
14150         regles=(UN_PARMI('CHOC','RELA_EFFO_DEPL', ),),
14151          RESU_GENE       =SIMP(statut='o',typ=tran_gene ),
14152          CHOC            =FACT(statut='f',min=1,max='**',
14153                                fr="Analyse des non linéarités de choc",
14154            INST_INIT       =SIMP(statut='f',typ='R',defaut= -1. ),
14155            INST_FIN        =SIMP(statut='f',typ='R',defaut= 999. ),
14156            NB_BLOC         =SIMP(statut='f',typ='I',defaut= 1 ),
14157            SEUIL_FORCE     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
14158            DUREE_REPOS     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
14159            OPTION          =SIMP(statut='f',typ='TXM',defaut="USURE",into=("IMPACT","USURE") ),
14160            NB_CLASSE       =SIMP(statut='f',typ='I',defaut= 10 ),
14161          ),
14162          RELA_EFFO_DEPL  =FACT(statut='f',min=1,max=1,
14163                                fr="Analyse des relationsnon linéaires effort-déplacement",
14164            NOEUD           =SIMP(statut='o',typ=no),
14165            NOM_CMP         =SIMP(statut='o',typ='TXM' ),
14166          ),
14167          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
14168          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
14169 )  ;
14170 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
14171 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14172 # ======================================================================
14173 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14174 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14175 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14176 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14177 # (AT YOUR OPTION) ANY LATER VERSION.
14178 #
14179 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14180 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14181 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14182 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14183 #
14184 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14185 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14186 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14187 # ======================================================================
14188 # RESPONSABLE G8BHHXD X.DESROCHES
14189 def post_elem_prod( MASS_INER,ENER_POT,ENER_CIN,TRAV_EXT,WEIBULL,
14190                     CARA_GEOM,CARA_POUTRE,RICE_TRACEY,CHAR_LIMITE,
14191                     INDIC_ENER,INDIC_SEUIL,ENER_ELAS,ENER_TOTALE,
14192                     AIRE_INTERNE,**args ):
14193   if MASS_INER    != None  : return tabl_mass_iner
14194   if ENER_POT     != None  : return tabl_ener_pot
14195   if ENER_CIN     != None  : return tabl_ener_cin
14196   if TRAV_EXT     != None  : return tabl_trav_ext
14197   if WEIBULL      != None  : return tabl_weibull
14198   if CARA_GEOM    != None  : return tabl_cara_geom
14199   if CARA_POUTRE  != None  : return tabl_cara_geom
14200   if RICE_TRACEY  != None  : return tabl_rice_tracey
14201   if CHAR_LIMITE  != None  : return tabl_char_limite
14202   if INDIC_ENER   != None  : return tabl_indic_ener
14203   if INDIC_SEUIL  != None  : return tabl_indic_seuil
14204   if ENER_ELAS    != None  : return tabl_ener_elas
14205   if ENER_TOTALE  != None  : return tabl_ener_totale
14206   if AIRE_INTERNE != None  : return tabl_aire_int
14207   raise AsException("type de concept resultat non prevu")
14208
14209 POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=post_elem_prod,docu="U4.81.22-e3",reentrant='f',
14210             UIinfo={"groupes":("Post traitements",)},
14211                fr="Calcul de quantités globales (masse, inerties, énergie, ...) sur tout ou partie du modèle",
14212
14213          regles=(UN_PARMI('MASS_INER', 'ENER_POT', 'ENER_CIN','TRAV_EXT',
14214                           'WEIBULL', 'RICE_TRACEY', 'CARA_GEOM','CHAR_LIMITE',
14215                           'CARA_POUTRE', 'INDIC_ENER', 'INDIC_SEUIL',
14216                           'AIRE_INTERNE','ENER_ELAS','ENER_TOTALE'),
14217                 ),
14218
14219          MASS_INER      = FACT(statut='f',min=1,max='**',
14220                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14221                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14222                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14223                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14224                                ORIG_INER    = SIMP(statut='f',typ='R',min=3,max=3 ),
14225                               ),
14226          b_mass_iner = BLOC(condition = "( MASS_INER != None )",
14227                        fr="calcul de la masse, les inerties et le centre de gravité",
14228                        regles=(EXCLUS('CHAM_GD','RESULTAT'),
14229                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
14230                                       'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
14231                        MODELE         = SIMP(statut='o',typ=modele),
14232                        CHAM_MATER     = SIMP(statut='f',typ=cham_mater),
14233                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14234                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14235                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
14236                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14237                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14238                        GEOMETRIE      = SIMP(statut='f',typ='TXM',defaut="INITIALE",into=("INITIALE","DEFORMEE")),
14239                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14240                        RESULTAT       = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_noli,mult_elas,
14241                                                              fourier_elas,dyna_trans) ),
14242                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14243                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14244                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14245                        NUME_ORDRE     = SIMP(statut='f',typ='I',max=1),
14246                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14247                        INST           = SIMP(statut='f',typ='R',max=1),
14248                        LIST_INST      = SIMP(statut='f',typ=listr8),
14249                        FREQ           = SIMP(statut='f',typ='R',max=1),
14250                        LIST_FREQ      = SIMP(statut='f',typ=listr8),
14251                        NUME_MODE      = SIMP(statut='f',typ='I',max=1),
14252                        NOEUD_CMP      = SIMP(statut='f',typ='TXM',min=2,max=2),
14253                        NOM_CAS        = SIMP(statut='f',typ='TXM',max=1),
14254          ),
14255
14256          ENER_POT       = FACT(statut='f',min=1,max='**',
14257                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14258                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14259                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14260                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14261                               ),
14262          b_ener_pot = BLOC(condition = "( ENER_POT  != None )",
14263                        fr="calcul de l'énergie potentielle de déformation",
14264                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
14265                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
14266                                       'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
14267                        MODELE         = SIMP(statut='o',typ=modele),
14268                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14269                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14270                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14271                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
14272                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14273                        ANGLE          = SIMP(statut='f',typ='I',defaut=0),
14274                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14275                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14276                        RESULTAT       = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,dyna_trans) ),
14277                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14278                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14279                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14280                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14281                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14282                        INST           = SIMP(statut='f',typ='R',max='**'),
14283                        LIST_INST      = SIMP(statut='f',typ=listr8),
14284                        FREQ           = SIMP(statut='f',typ='R',max='**'),
14285                        LIST_FREQ      = SIMP(statut='f',typ=listr8),
14286                        NUME_MODE      = SIMP(statut='f',typ='I',max='**'),
14287                        NOEUD_CMP      = SIMP(statut='f',typ='TXM',max='**'),
14288                        NOM_CAS        = SIMP(statut='f',typ='TXM',max='**'),
14289          ),
14290
14291          ENER_CIN       = FACT(statut='f',min=1,max='**',
14292                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14293                                OPTION       = SIMP(statut='f',typ='TXM',
14294                                                    into=("MASS_MECA","MASS_MECA_DIAG"),
14295                                                    defaut="MASS_MECA" ),
14296                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14297                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14298                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14299                               ),
14300          b_ener_cin = BLOC(condition = "( ENER_CIN != None )",
14301                        fr="calcul de l'énergie cinétique",
14302                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
14303                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
14304                                       'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
14305                        MODELE         = SIMP(statut='o',typ=modele),
14306                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14307                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14308                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14309                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
14310                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14311                        ANGLE          = SIMP(statut='f',typ='I',defaut=0),
14312                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14313                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14314                        RESULTAT       = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,dyna_trans) ),
14315                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14316                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14317                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14318                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14319                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14320                        INST           = SIMP(statut='f',typ='R',max='**'),
14321                        LIST_INST      = SIMP(statut='f',typ=listr8),
14322                        FREQ           = SIMP(statut='f',typ='R',max='**'),
14323                        LIST_FREQ      = SIMP(statut='f',typ=listr8),
14324                        NUME_MODE      = SIMP(statut='f',typ='I',max='**'),
14325                        NOEUD_CMP      = SIMP(statut='f',typ='TXM',max='**'),
14326                        NOM_CAS        = SIMP(statut='f',typ='TXM',max='**'),
14327          ),
14328
14329          ENER_ELAS      = FACT(statut='f',min=1,max='**',
14330                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14331                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14332                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14333                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14334                               ),
14335          b_ener_elas = BLOC(condition = "( ENER_ELAS != None )",
14336                        fr="calcul de l'énergie de déformation élastique",
14337                        MODELE         = SIMP(statut='o',typ=modele),
14338                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14339                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14340                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14341                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
14342                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14343                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14344                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
14345                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14346                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14347                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14348                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14349                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14350                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14351                        INST           = SIMP(statut='f',typ='R',max='**'),
14352                        LIST_INST      = SIMP(statut='f',typ=listr8),
14353          ),
14354
14355          ENER_TOTALE    = FACT(statut='f',min=1,max='**',
14356                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14357                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14358                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14359                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14360                               ),
14361          b_ener_totale = BLOC(condition = "( ENER_TOTALE != None )",
14362                        fr="calcul de l'énergie de déformation totale",
14363                        MODELE         = SIMP(statut='o',typ=modele),
14364                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14365                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14366                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14367                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
14368                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14369                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14370                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
14371                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14372                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14373                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14374                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14375                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14376                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14377                        INST           = SIMP(statut='f',typ='R',max='**'),
14378                        LIST_INST      = SIMP(statut='f',typ=listr8),
14379          ),
14380
14381          WEIBULL        = FACT(statut='f',min=1,max='**',
14382                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14383                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14384                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14385                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14386                                OPTION       = SIMP(statut='f',typ='TXM',
14387                                                    into=("SIGM_ELGA","SIGM_ELMOY"),
14388                                                    defaut="SIGM_ELGA"),
14389                                CORR_PLAST   = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
14390                                COEF_MULT    = SIMP(statut='f',typ='R',defaut=1.),
14391                               ),
14392          b_weibull = BLOC(condition = "( WEIBULL != None )",
14393                        fr="calcul du champ élémentaire de la puissance m-ième de la contrainte de Weibull",
14394                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
14395                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14396                        MODELE         = SIMP(statut='o',typ=modele),
14397                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14398                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14399                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14400                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
14401                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14402                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14403                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14404                        RESULTAT       = SIMP(statut='f',typ=(evol_noli) ),
14405                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14406                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14407                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14408                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14409                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14410                        INST           = SIMP(statut='f',typ='R',max='**'),
14411                        LIST_INST      = SIMP(statut='f',typ=listr8),
14412          ),
14413
14414          RICE_TRACEY    = FACT(statut='f',min=1,max='**',
14415                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14416                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14417                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14418                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14419                                OPTION       = SIMP(statut='f',typ='TXM',
14420                                                    into=("SIGM_ELGA","SIGM_ELMOY"),
14421                                                    defaut="SIGM_ELGA"),
14422                                LOCAL        = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
14423                               ),
14424          b_rice_tracey = BLOC(condition = "( RICE_TRACEY != None )",
14425                        fr="calcul du taux de croissance d'une cavité sphérique par rapport à un domaine",
14426                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
14427                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14428                        MODELE         = SIMP(statut='o',typ=modele),
14429                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14430                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14431                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14432                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
14433                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14434                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14435                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14436                        RESULTAT       = SIMP(statut='f',typ=(evol_noli) ),
14437                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14438                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14439                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14440                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14441                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14442                        INST           = SIMP(statut='f',typ='R',max='**'),
14443                        LIST_INST      = SIMP(statut='f',typ=listr8),
14444          ),
14445
14446          INDIC_ENER     = FACT(statut='f',min=1,max='**',
14447                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14448                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14449                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14450                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14451                               ),
14452          b_indic_ener = BLOC(condition = "( INDIC_ENER != None )",
14453                        fr="calcul un indicateur global de perte de proportionnalité du chargement",
14454                        MODELE         = SIMP(statut='o',typ=modele),
14455                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14456                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14457                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14458                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
14459                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14460                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14461                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14462                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14463                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14464                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14465                        INST           = SIMP(statut='f',typ='R',max='**'),
14466                        LIST_INST      = SIMP(statut='f',typ=listr8),
14467          ),
14468
14469          INDIC_SEUIL    = FACT(statut='f',min=1,max='**',
14470                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14471                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14472                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14473                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14474                               ),
14475          b_indic_seuil = BLOC(condition = "( INDIC_SEUIL != None )",
14476                        fr="calcul un indicateur global de perte de proportionnalité du chargement",
14477                        MODELE         = SIMP(statut='o',typ=modele),
14478                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14479                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14480                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14481                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
14482                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14483                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14484                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14485                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14486                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14487                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14488                        INST           = SIMP(statut='f',typ='R',max='**'),
14489                        LIST_INST      = SIMP(statut='f',typ=listr8),
14490          ),
14491
14492          CHAR_LIMITE    = FACT(statut='f',min=0,max=1,
14493                                CHAR_CSTE = SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON")
14494                               ),
14495          b_char_limite = BLOC(condition = "( CHAR_LIMITE != None )",
14496                        fr="post-traitement du calcul de la charge limite",
14497                        MODELE         = SIMP(statut='o',typ=modele),
14498                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14499                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14500                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14501                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14502                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
14503                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14504                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14505                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14506                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14507                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14508                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14509                        INST           = SIMP(statut='f',typ='R',max='**'),
14510                        LIST_INST      = SIMP(statut='f',typ=listr8),
14511          ),
14512
14513          CARA_GEOM      = FACT(statut='f',min=1,max='**',
14514                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14515                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14516                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14517                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14518                                SYME_X       = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
14519                                SYME_Y       = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
14520                                ORIG_INER    = SIMP(statut='f',typ='R',min=2,max=2),
14521                               ),
14522          b_cara_geom = BLOC(condition = "( CARA_GEOM != None )",
14523                        fr="calcul des caractéristiques géométriques d'un section de poutre",
14524                        MODELE         = SIMP(statut='o',typ=modele),
14525                        CHAM_MATER     = SIMP(statut='f',typ=cham_mater),
14526                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14527                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14528          ),
14529
14530          CARA_POUTRE    = FACT(statut='f',min=1,max='**',
14531                                regles=(AU_MOINS_UN('TOUT','GROUP_MA'),
14532                                        ENSEMBLE('LONGUEUR','LIAISON','MATERIAU'),),
14533                                TOUT          = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14534                                GROUP_MA      = SIMP(statut='f',typ=grma,max='**'),
14535                                GROUP_MA_INTE = SIMP(statut='f',typ=grma,max='**'),
14536                                CARA_GEOM     = SIMP(statut='f',typ=tabl_cara_geom),
14537                                LAPL_PHI      = SIMP(statut='f',typ=evol_ther),
14538                                LAPL_PHI_Y    = SIMP(statut='f',typ=evol_ther),
14539                                LAPL_PHI_Z    = SIMP(statut='f',typ=evol_ther),
14540                                LIAISON       = SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT")),
14541                                LONGUEUR      = SIMP(statut='f',typ='R'),
14542                                MATERIAU      = SIMP(statut='f',typ=mater),
14543                                OPTION        = SIMP(statut='f',typ='TXM',
14544                                                     into=("CARA_TORSION","CARA_CISAILLEMENT","CARA_GAUCHI") ),
14545                              ),
14546          b_cara_poutre = BLOC(condition = "( CARA_POUTRE != None )",
14547                        fr="calcul des caractéristiques mécaniques d'un section de poutre",
14548                        MODELE         = SIMP(statut='o',typ=modele),
14549                        CHAM_MATER     = SIMP(statut='f',typ=cham_mater),
14550                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14551                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14552          ),
14553
14554           AIRE_INTERNE   = FACT(statut='f',min=1,max='**',
14555                                 GROUP_MA_BORD  = SIMP(statut='o',typ=grma,max='**'),
14556                                ),
14557          b_aire_interne = BLOC(condition = "( AIRE_INTERNE != None )",
14558                        fr="calcul de l'aire d'un trou dans un maillage 2D",
14559                        MODELE         = SIMP(statut='o',typ=modele),
14560          ),
14561
14562          TRAV_EXT       = FACT(statut='f',min=1,max=1),
14563          b_trav_ext = BLOC(condition = "( TRAV_EXT != None )",
14564                        fr="calcul du travail des efforts extérieurs",
14565                        RESULTAT       = SIMP(statut='o',typ=(evol_elas,evol_noli,dyna_trans) ),
14566                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14567                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14568                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14569          ),
14570
14571          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
14572          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14573
14574  )  ;
14575 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
14576 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14577 # ======================================================================
14578 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14579 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14580 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14581 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14582 # (AT YOUR OPTION) ANY LATER VERSION.
14583 #
14584 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14585 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14586 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14587 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14588 #
14589 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14590 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14591 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14592 # ======================================================================
14593 POST_FATI_ALEA=OPER(nom="POST_FATI_ALEA",op=170,sd_prod=tabl_post_f_alea,docu="U4.84.03-c",reentrant='n',
14594             UIinfo={"groupes":("Post traitements",)},
14595                     fr="Calcul du dommage subi par une structure soumise à unesollicitation de type aléatoire",
14596          regles=(ENSEMBLE('MOMENT_SPEC_0','MOMENT_SPEC_2'),
14597                  PRESENT_PRESENT( 'MOMENT_SPEC_4','MOMENT_SPEC_0'),
14598                  UN_PARMI('TABL_POST_ALEA','MOMENT_SPEC_0'), ),
14599          MOMENT_SPEC_0   =SIMP(statut='f',typ='R'),
14600          MOMENT_SPEC_2   =SIMP(statut='f',typ='R'),
14601          MOMENT_SPEC_4   =SIMP(statut='f',typ='R'),
14602          TABL_POST_ALEA  =SIMP(statut='f',typ=tabl_post_alea),
14603          COMPTAGE        =SIMP(statut='o',typ='TXM',into=("PIC","NIVEAU")),
14604          DUREE           =SIMP(statut='f',typ='R',defaut= 1.),
14605          CORR_KE         =SIMP(statut='f',typ='TXM',into=("RCCM",)),
14606          DOMMAGE         =SIMP(statut='o',typ='TXM',into=("WOHLER",)),
14607          MATER           =SIMP(statut='o',typ=mater),
14608          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
14609 )  ;
14610 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
14611 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14612 # ======================================================================
14613 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14614 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14615 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14616 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14617 # (AT YOUR OPTION) ANY LATER VERSION.
14618 #
14619 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14620 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14621 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14622 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14623 #
14624 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14625 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14626 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14627 # ======================================================================
14628 POST_FATIGUE=OPER(nom="POST_FATIGUE",op=136,sd_prod=tabl_post_fatig,docu="U4.83.01-d1",reentrant='n',
14629             UIinfo={"groupes":("Post traitements",)},
14630                   fr="Calcul du dommage subi par une structure soumise à une histoire de chargement",
14631
14632          CHARGEMENT = SIMP(statut='o',typ='TXM',into=("UNIAXIAL","PERIODIQUE","QUELCONQUE")),
14633
14634          b_uniaxial = BLOC( condition = "CHARGEMENT=='UNIAXIAL'",
14635                       regles=(PRESENT_PRESENT('CORR_KE','MATER'),
14636                               PRESENT_PRESENT('CORR_SIGM_MOYE','MATER'),
14637                               PRESENT_PRESENT('DOMMAGE','MATER'),),
14638              HISTOIRE       = FACT(statut='o',min=1,max=1,
14639                                  regles=(UN_PARMI('SIGM','EPSI'),),
14640                                  SIGM  = SIMP(statut='f',typ=fonction),
14641                                  EPSI  = SIMP(statut='f',typ=fonction),),
14642              COMPTAGE       = SIMP(statut='o',typ='TXM',into=("RAINFLOW","RCCM","NATUREL")),
14643              DELTA_OSCI     = SIMP(statut='f',typ='R',defaut= 0.0E+0),
14644              COEF_MULT      = FACT(statut='f',min=1,max=1,
14645                                  KT    = SIMP(statut='o',typ='R'),),
14646              CORR_KE        = SIMP(statut='f',typ='TXM',into=("RCCM",)),
14647              DOMMAGE        = SIMP(statut='f',typ='TXM',into=("WOHLER","MANSON_COFFIN",
14648                                                               "TAHERI_MANSON","TAHERI_MIXTE")),
14649              MATER          = SIMP(statut='f',typ=mater),
14650              CORR_SIGM_MOYE = SIMP(statut='f',typ='TXM',into=("GOODMAN","GERBER")),
14651              TAHERI_NAPPE   = SIMP(statut='f',typ=fonction),
14652              TAHERI_FONC    = SIMP(statut='f',typ=fonction),
14653              CUMUL          = SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
14654          ),
14655
14656          b_periodique = BLOC( condition = "CHARGEMENT=='PERIODIQUE'",
14657              HISTOIRE       = FACT(statut='o',min=1,max=1,
14658                                  SIGM_XX  = SIMP(statut='o',typ=fonction),
14659                                  SIGM_YY  = SIMP(statut='o',typ=fonction),
14660                                  SIGM_ZZ  = SIMP(statut='o',typ=fonction),
14661                                  SIGM_XY  = SIMP(statut='o',typ=fonction),
14662                                  SIGM_XZ  = SIMP(statut='f',typ=fonction),
14663                                  SIGM_YZ  = SIMP(statut='f',typ=fonction),),
14664              CRITERE        = SIMP(statut='o',typ='TXM',into=("CROSSLAND","PAPADOPOULOS")),
14665              DOMMAGE        = SIMP(statut='f',typ='TXM',into=("WOHLER",)),
14666              MATER          = SIMP(statut='o',typ=mater),
14667              COEF_CORR      = SIMP(statut='f',typ='R'),
14668          ),
14669
14670          b_quelconque = BLOC( condition = "CHARGEMENT=='QUELCONQUE'",
14671              HISTOIRE       = FACT(statut='o',min=1,max=1,
14672                                  SIGM_XX  = SIMP(statut='o',typ=fonction),
14673                                  SIGM_YY  = SIMP(statut='o',typ=fonction),
14674                                  SIGM_ZZ  = SIMP(statut='o',typ=fonction),
14675                                  SIGM_XY  = SIMP(statut='o',typ=fonction),
14676                                  SIGM_XZ  = SIMP(statut='f',typ=fonction),
14677                                  SIGM_YZ  = SIMP(statut='f',typ=fonction),
14678                                  EPSP     = SIMP(statut='o',typ=fonction),
14679                                  TEMP     = SIMP(statut='o',typ=fonction),),
14680              DOMMAGE        = SIMP(statut='f',typ='TXM',into=("LEMAITRE",),defaut="LEMAITRE"),
14681              MATER          = SIMP(statut='o',typ=mater),
14682              CUMUL          = SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
14683          ),
14684
14685          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14686          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
14687 )  ;
14688 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
14689 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14690 # ======================================================================
14691 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14692 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14693 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14694 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14695 # (AT YOUR OPTION) ANY LATER VERSION.
14696 #
14697 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14698 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14699 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14700 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14701 #
14702 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14703 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14704 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14705 # ======================================================================
14706 POST_GOUJ2E=OPER(nom="POST_GOUJ2E",op=187,sd_prod=tabl_post_gouj2e,reentrant='n',
14707                  fr=" ",docu="U4.GJ.30-a",
14708             UIinfo={"groupes":("Outils métier",)},
14709          TABLE           =SIMP(statut='o',typ=tabl_post_rele),
14710 )  ;
14711 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
14712 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14713 # ======================================================================
14714 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14715 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14716 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14717 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14718 # (AT YOUR OPTION) ANY LATER VERSION.
14719 #
14720 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14721 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14722 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14723 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14724 #
14725 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14726 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14727 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14728 # ======================================================================
14729 # RESPONSABLE JMBHH01 J.M.PROIX
14730 POST_K1_K2_K3=OPER(nom="POST_K1_K2_K3",op=188,sd_prod=tabl_post_k,
14731                    fr="Calcul des FIC par extrapolation du champ de déplacements sur les lèvres de la fissure",
14732                    docu="U4.82.05-b2",reentrant='n',
14733             UIinfo={"groupes":("Post traitements",)},
14734
14735            regles=(UN_PARMI('RESULTAT','TABL_DEPL_SUP'),
14736                    PRESENT_PRESENT('TABL_DEPL_SUP','TABL_DEPL_INF'),),
14737
14738          MODELISATION  =SIMP(statut='o',typ='TXM',
14739                              into=("3D","AXIS","D_PLAN","C_PLAN"),
14740                              fr="Modélisation cohérente avec celle utilisée pour le calcul des déplacements"),
14741            FOND_3D         =SIMP(statut='f',typ=fond_fiss),
14742            FOND_FISS       =SIMP(statut='f',typ=fond_fiss),
14743          b_fond_3d     =BLOC (condition="(FOND_3D != None) or (FOND_FISS!= None)",
14744                          MAILLAGE      = SIMP(statut='o',typ=maillage),
14745                          PRECISION     = SIMP(statut='f',typ='R',defaut=0.001),
14746                          NOEUD         = SIMP(statut='f',typ=no,max='**'),
14747                          GROUP_NO      = SIMP(statut='f',typ=grno,max='**'),
14748                          SANS_NOEUD    = SIMP(statut='f',typ=no,max='**'),
14749                          SANS_GROUP_NO = SIMP(statut='f',typ=grno,max='**')
14750                          ),
14751          MATER         =SIMP(statut='o',typ=mater,
14752                              fr="Matériau homogène et isotrope cohérent avec celui utilisé pour le calcul des déplacements"),
14753          RESULTAT      =SIMP(statut='f',typ=(evol_elas,evol_noli),
14754                              fr="Table déplacement des noeuds de la lèvre supérieure et inférieure"),
14755          TABL_DEPL_SUP =SIMP(statut='f',typ=tabl_post_rele,
14756                              fr="Table issue de post_releve_t sur les noeuds de la lèvre supérieure"),
14757          TABL_DEPL_INF =SIMP(statut='f',typ=tabl_post_rele,
14758                              fr="Table issue de post_releve_t sur les noeuds de la lèvre inférieure"),
14759          ABSC_CURV_MAXI=SIMP(statut='f',typ='R',
14760                              fr="distance maximum à partir du fond de fissure à utiliser pour le calcul"),
14761          PREC_VIS_A_VIS= SIMP(statut='f',typ='R',defaut=0.1),
14762          TOUT_ORDRE    =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14763          NUME_ORDRE    =SIMP(statut='f',typ='I',max='**'),
14764          LIST_ORDRE    =SIMP(statut='f',typ=listis),
14765          INST          =SIMP(statut='f',typ='R',max='**'),
14766          LIST_INST     =SIMP(statut='f',typ=listr8),
14767              b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
14768                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
14769                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
14770              ),
14771          INFO          =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14772          VECT_K1       =SIMP(statut='o',typ='R',max='**',
14773                              fr="Vecteur normal au plan de fissure, orienté de la lèvre inférieure vers la lèvre supérieure"),
14774          TITRE         =SIMP(statut='f',typ='TXM',max='**'),
14775 )  ;
14776 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
14777 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14778 # ======================================================================
14779 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
14780 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14781 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14782 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14783 # (AT YOUR OPTION) ANY LATER VERSION.
14784 #
14785 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14786 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14787 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14788 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14789 #
14790 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14791 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14792 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14793 #
14794 #
14795 # ======================================================================
14796 #
14797 POST_K_BETA=OPER(nom="POST_K_BETA",op=198,sd_prod=tabl_post_beta,
14798                    fr="Calcul des FIC par la méthode K_BETA",
14799                    docu="U4.82.07-a",reentrant='n',
14800             UIinfo={"groupes":("Post traitements",)},
14801          MAILLAGE      = SIMP(statut='o',typ=maillage),
14802          MATER_REV     = SIMP(statut='o',typ=mater),
14803          EPAIS_REV     = SIMP(statut='o',typ='R'),
14804          FISSURE       = FACT(statut='o',min=1,max=1,
14805             DECALAGE       = SIMP(statut='f',typ='R',defaut=-2.e-04),
14806             PROFONDEUR     = SIMP(statut='o',typ='R'),
14807             LONGUEUR       = SIMP(statut='o',typ='R'),
14808             ORIENTATION    = SIMP(statut='o',typ='TXM',
14809                                  into=("CIRC","LONGI"),),
14810          ),
14811          K1D           = FACT(statut='o',min=1,max='**',
14812             TABL_MECA_REV  = SIMP(statut='o',typ=(tabl_post_rele)),
14813             TABL_MECA_MDB  = SIMP(statut='o',typ=(tabl_post_rele)),
14814             TABL_THER      = SIMP(statut='o',typ=(tabl_post_rele)),
14815             INTITULE       = SIMP(statut='o',typ='TXM' ),
14816          ),
14817          INFO          = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14818          TITRE         = SIMP(statut='f',typ='TXM',max='**'),
14819 );
14820 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
14821 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14822 # ======================================================================
14823 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14824 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14825 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14826 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14827 # (AT YOUR OPTION) ANY LATER VERSION.
14828 #
14829 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14830 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14831 # MERCHANTABILITY OR FITNESS FOR A PARTIC
14832 #
14833 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14834 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14835 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14836 # ======================================================================
14837 # RESPONSABLE JMBHH01 J.M.PROIX
14838 POST_RCCM=OPER(nom="POST_RCCM",op= 165,sd_prod=tabl_post_rccm,
14839                fr="Vérification des critères de niveau 0 et certains critères de niveau A du RCC-M-B3200 (Edition 1991)",
14840                docu="U4.83.11-d1",reentrant='n',
14841             UIinfo={"groupes":("Post traitements",)},
14842          TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="VALE_MAX",into=("VALE_MAX","VALE_INST") ),
14843          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
14844          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
14845          OPTION          =SIMP(statut='o',typ='TXM',max='**',
14846                                into=("PM_PB",
14847                                      "SN",
14848                                      "FATIGUE_SPMAX",
14849                                      "FATIGUE_ZH210",
14850                                      "FATIGUE_B3200",
14851                                      "FATIGUE_B3600",
14852                                      ) ),
14853      b_pm_sn  =BLOC(condition="(OPTION == 'PM_PB')or(OPTION == 'SN')or(OPTION == 'FATIGUE_SPMAX')or(OPTION == 'FATIGUE_ZH210')",
14854          MATER           =SIMP(statut='o',typ=mater ),
14855          MAILLAGE        =SIMP(statut='f',typ=maillage),
14856          SEGMENT         =FACT(statut='o',min=1,max='**',fr="Segment sur lequel s effectue le depouillement",
14857            regles=(AU_MOINS_UN('CHEMIN','GROUP_NO','NOEUD'),
14858                    EXCLUS('CHEMIN','GROUP_NO'),
14859                    EXCLUS('CHEMIN','NOEUD'),),
14860            INTITULE        =SIMP(statut='f',typ='TXM' ),
14861            CHEMIN          =SIMP(statut='f',typ=(courbe,surface),),
14862            NOEUD           =SIMP(statut='f',typ=no,max='**'),
14863            GROUP_NO        =SIMP(statut='f',typ=grno),
14864              b_acce_noeud     =BLOC(condition="(NOEUD != None)or(GROUP_NO != None)",
14865                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
14866                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
14867                                    ),
14868                                ),
14869          TRANSITOIRE     =FACT(statut='o',min=1,max='**',fr="transitoire à dépouiller",
14870            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
14871            RESULTAT        =SIMP(statut='o',typ=(evol_elas,evol_noli) ),
14872            RESU_SIGM_THER  =SIMP(statut='f',typ=(evol_elas,evol_noli),fr="résultat sous chargement thermique seul" ),
14873            NB_OCCUR        =SIMP(statut='f',typ='I',defaut= 1,fr="nombre d occurences réelles de ce transitoire" ),
14874            NOM_CHAM        =SIMP(statut='o',typ='TXM',into=("SIEF_ELNO_ELGA","SIGM_ELNO_DEPL") ),
14875            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14876            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
14877            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
14878            INST            =SIMP(statut='f',typ='R',max='**'),
14879            LIST_INST       =SIMP(statut='f',typ=listr8 ),
14880            b_inst          =BLOC(condition = "(INST != None) or (LIST_INST != None)" ,
14881              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
14882              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
14883                                  ),
14884                              ),
14885          ),
14886
14887      b_3200  =BLOC(condition="(OPTION == 'FATIGUE_B3200')",
14888          MATER           =SIMP(statut='o',typ=mater ),
14889          CHAR_MECA   =FACT(statut='o',min=1,max='**',fr="Chargements mécaniques",
14890            NUME_CHAR     =SIMP(statut='o',typ='I',max=1,fr="numéro du chargement" ),
14891            NOM_CHAR      =SIMP(statut='f',typ='TXM',max=1,fr="nom du chargement" ),
14892            TYPE_CHAR     =SIMP(statut='f',typ='TXM',max=1,fr="nature du chargement",into=( "SEISME","AUTRE"),defaut="AUTRE",),
14893            FX            =SIMP(statut='f',typ='R',max=1,fr="effort suivant x", ),
14894            FY            =SIMP(statut='f',typ='R',max=1,fr="effort suivant y", ),
14895            FZ            =SIMP(statut='f',typ='R',max=1,fr="effort suivant z", ),
14896            MX            =SIMP(statut='o',typ='R',max=1,fr="moment suivant x", ),
14897            MY            =SIMP(statut='o',typ='R',max=1,fr="moment suivant y", ),
14898            MZ            =SIMP(statut='o',typ='R',max=1,fr="moment suivant z", ),
14899                          ),
14900          RESU_MECA_UNIT =FACT(statut='o',min=1,max=1,fr="resultats mécaniques unitaires",
14901            TABL_FX       =SIMP(statut='f',typ=table,max=1,
14902                               fr="table relevé des contraintes pour chargement unitaire FX"),
14903            TABL_FY       =SIMP(statut='f',typ=table,max=1,
14904                               fr="table relevé des contraintes pour chargement unitaire FY"),
14905            TABL_FZ       =SIMP(statut='f',typ=table,max=1,
14906                               fr="table relevé des contraintes pour chargement unitaire FZ"),
14907            TABL_MX       =SIMP(statut='o',typ=table,max=1,
14908                               fr="table relevé des contraintes pour chargement unitaire MX"),
14909            TABL_MY       =SIMP(statut='o',typ=table,max=1,
14910                               fr="table relevé des contraintes pour chargement unitaire MY"),
14911            TABL_MZ       =SIMP(statut='o',typ=table,max=1,
14912                               fr="table relevé des contraintes pour chargement unitaire MZ"),
14913            TABL_PRES     =SIMP(statut='o',typ=table,max=1,
14914                               fr="table relevé des contraintes pour chargement unitaire de pression"),
14915                          ),
14916           RESU_THER   =FACT(statut='f',min=1,max='**',fr="resultats thermiques",
14917            NUME_RESU_THER =SIMP(statut='o',typ='I',max=1,fr="numéro de la table de résultat thermique" ),
14918            TABL_RESU_THER =SIMP(statut='o',typ=table,max=1,
14919                               fr="table relevé des contraintes pour chargement thermique"),
14920                            ),
14921          SITUATION         =FACT(statut='o',min=1,max='**',fr="Situation",ang="situation_ang",
14922               NB_OCCUR         =SIMP(statut='o',typ='I',fr="nombre d'occurences de la situation" ),
14923               NB_CYCL_SEISME   =SIMP(statut='f',typ='I',fr="nombre de cycles associé au séisme" ),
14924               NUME_SITU        =SIMP(statut='o',typ='I',fr="numéro de la situation" ),
14925               NOM_SITU         =SIMP(statut='f',typ='TXM',fr="nom de la situation" ),
14926               COMBINABLE       =SIMP(statut='f',typ='TXM',defaut= "OUI",into=("OUI","NON"),fr="non = sous-cycle" ),
14927               NUME_GROUPE      =SIMP(statut='o',typ='I',fr="numéro du groupe de la situation" ),
14928               NUME_PASSAGE     =SIMP(statut='f',typ='I',max=2,fr="numéro des deux groupes en relation" ),
14929               NUME_RESU_THER   =SIMP(statut='f',typ='I',max='**',fr="numeros de transitoires thermiques" ),
14930               CHAR_ETAT_A      =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat A" ),
14931               CHAR_ETAT_B      =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat B" ),
14932               PRES_A           =SIMP(statut='o',typ='R',fr="pression etat A"),
14933               PRES_B           =SIMP(statut='o',typ='R',fr="pression etat B"),
14934               TEMP_REF_A       =SIMP(statut='f',typ='R',fr="temperature référence etat A"),
14935               TEMP_REF_B       =SIMP(statut='f',typ='R',fr="temperature référence etat B"),
14936                                ),
14937                       ),
14938      b_3600  =BLOC(condition="(OPTION == 'FATIGUE_B3600')",
14939          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
14940          MODELE          =SIMP(statut='o',typ=modele),
14941          CARA_ELEM       =SIMP(statut='o',typ=cara_elem),
14942          ZONE_ANALYSE =FACT(statut='o',min=1,max=1,fr="liste des mailles ou des noeuds analysés",
14943             regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14944             TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14945             GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
14946             MAILLE          =SIMP(statut='f',typ=ma,max='**'),
14947             ),
14948          RESU_MECA   =FACT(statut='o',min=1,max='**',fr="Chargements mécaniques",
14949            regles=(UN_PARMI('CHAM_GD','RESULTAT'),),
14950            NUME_CHAR     =SIMP(statut='o',typ='I',max=1,fr="numéro du chargement" ),
14951            NOM_CHAR      =SIMP(statut='f',typ='TXM',max=1,fr="nom du chargement" ),
14952            TYPE_CHAR     =SIMP(statut='f',typ='TXM',max=1,fr="nature du chargement",into=( "SEISME","AUTRE"),defaut="AUTRE",),
14953            CHAM_GD         =SIMP(statut='f',typ=cham_gd),
14954            RESULTAT        =SIMP(statut='f',typ=resultat),
14955            b_extrac        =BLOC(condition="RESULTAT != None",
14956                                  fr="extraction d un champ de grandeur",
14957              regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','INST','NOEUD_CMP'),),
14958              NOM_CHAM        =SIMP(statut='o',typ='TXM',max=1,into=("EFGE_ELNO_DEPL","SIEF_ELNO_ELGA"),),
14959              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14960              NUME_ORDRE      =SIMP(statut='f',typ='I',max=1),
14961              INST            =SIMP(statut='f',typ='R',max=1),
14962              NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
14963              b_acce_reel     =BLOC(condition="(INST != None)",
14964                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
14965                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU"), ),
14966              ),
14967            ),
14968                           ),
14969          INDI_SIGM =FACT(statut='o',min=1,max='**',fr="indices de contraintes",
14970             regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14971             C1              =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes C1 du RCCM"),
14972             K1              =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes K1 du RCCM"),
14973             C2              =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes C2 du RCCM"),
14974             K2              =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes K2 du RCCM"),
14975             C3              =SIMP(statut='f',typ='R',max=1,defaut=0.5,fr="indice de contraintes C3 du RCCM"),
14976             K3              =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes K3 du RCCM"),
14977             TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",),),
14978             GROUP_MA        =SIMP(statut='f',typ=grma,max='**',
14979                              fr="groupe(s) de mailles ou sont affectés les indices de contraintes"),
14980             MAILLE          =SIMP(statut='f',typ=ma,max='**',
14981                              fr="liste des mailles ou sont affectés les indices de contraintes"),
14982             b_grma     =BLOC(condition="(GROUP_MA != None)or(MAILLE != None)",
14983                GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
14984                NOEUD           =SIMP(statut='f',typ=no,max='**'),
14985             ),
14986             TYPE_ELEM_STANDARD =SIMP(statut='f',typ='TXM',into=("DRO","COU","TRN","TEE"),
14987                               fr="type d'élément de tuyauterie ou sont affectés les indices de contraintes"),
14988                          ),
14989           RESU_THER   =FACT(statut='f',min=1,max='**',fr="resultats thermiques",
14990             regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14991             NUME_RESU_THER =SIMP(statut='o',typ='I',max=1,fr="numéro de la table de résultat thermique" ),
14992             TABL_RESU_THER =SIMP(statut='o',typ=table,max=1,
14993                               fr="table relevé des températures sur la section"),
14994             TABL_MOYE_THER =SIMP(statut='o',typ=table,max=1,
14995                               fr="table relevé des moyennes sur la section"),
14996             TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14997             GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
14998             MAILLE          =SIMP(statut='f',typ=ma,max='**'),
14999             b_grma     =BLOC(condition="(GROUP_MA != None)or(MAILLE != None)",
15000                GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
15001                NOEUD           =SIMP(statut='f',typ=no,max='**'),
15002             ),
15003                            ),
15004          SITUATION         =FACT(statut='o',min=1,max='**',fr="Situation",ang="situation_ang",
15005               NB_OCCUR         =SIMP(statut='o',typ='I',fr="nombre d'occurences de la situation" ),
15006               NB_CYCL_SEISME   =SIMP(statut='f',typ='I',fr="nombre de cycles associé au séisme" ),
15007               NUME_SITU        =SIMP(statut='o',typ='I',fr="numéro de la situation" ),
15008               NOM_SITU         =SIMP(statut='f',typ='TXM',fr="nom de la situation" ),
15009               COMBINABLE       =SIMP(statut='f',typ='TXM',defaut= "OUI",into=("OUI","NON"),fr="non = sous-cycle" ),
15010               NUME_GROUPE      =SIMP(statut='o',typ='I',fr="numéro du groupe de la situation" ),
15011               NUME_PASSAGE     =SIMP(statut='f',typ='I',max=2,fr="numéro des deux groupes en relation" ),
15012               NUME_RESU_THER   =SIMP(statut='f',typ='I',max='**',fr="numeros de transitoires thermiques" ),
15013               CHAR_ETAT_A      =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat A" ),
15014               CHAR_ETAT_B      =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat B" ),
15015               PRES_A           =SIMP(statut='o',typ='R',fr="pression etat A"),
15016               PRES_B           =SIMP(statut='o',typ='R',fr="pression etat B"),
15017               TEMP_REF_A       =SIMP(statut='f',typ='R',fr="temperature référence etat A"),
15018               TEMP_REF_B       =SIMP(statut='f',typ='R',fr="temperature référence etat B"),
15019                                ),
15020                      ),
15021 )  ;
15022 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15023 # ======================================================================
15024 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15025 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15026 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15027 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15028 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15029 # (AT YOUR OPTION) ANY LATER VERSION.
15030 #
15031 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15032 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15033 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15034 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15035 #
15036 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15037 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15038 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15039 # ======================================================================
15040 # RESPONSABLE G8BHHXD X.DESROCHES
15041 POST_RELEVE_T=OPER(nom="POST_RELEVE_T",op=51,sd_prod=tabl_post_rele,docu="U4.81.21-e1",reentrant='n',
15042             UIinfo={"groupes":("Post traitements",)},
15043          ACTION          =FACT(statut='o',min=1,max='**',
15044            regles=(AU_MOINS_UN('CHEMIN','GROUP_NO','NOEUD'),
15045                    EXCLUS('CHEMIN','GROUP_NO'),
15046                    EXCLUS('CHEMIN','NOEUD'),
15047                    PRESENT_ABSENT('CHEMIN','GROUP_MA','MAILLE'),
15048                    UN_PARMI('RESULTAT','CHAM_GD'),
15049                    UN_PARMI('TOUT_CMP','NOM_CMP','INVARIANT','ELEM_PRINCIPAUX','RESULTANTE'),
15050                    PRESENT_PRESENT('TRAC_DIR','DIRECTION'),
15051                    PRESENT_PRESENT('TRAC_DIRECTION','DIRECTION'),
15052                    ENSEMBLE('MOMENT','POINT'),
15053                    PRESENT_PRESENT('MOMENT','RESULTANTE'),
15054                    PRESENT_ABSENT('TOUT_CMP','TRAC_DIRECTION','TRAC_NORMALE'),
15055                    PRESENT_ABSENT('TOUT_CMP','TRAC_DIR','TRAC_NOR'),
15056                    PRESENT_PRESENT('ORIGINE','AXE_Z'),),
15057            INTITULE        =SIMP(statut='o',typ='TXM'),
15058            CHEMIN          =SIMP(statut='f',typ=(courbe,surface) ),
15059            NOEUD           =SIMP(statut='f',typ=no,max='**'),
15060            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15061            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
15062            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
15063            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
15064            FORMAT_C        =SIMP(statut='f',typ='TXM',defaut="MODULE",into=("MODULE","REEL","IMAG")),
15065            CHAM_GD         =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r,cham_no_var2_r,
15066                                                  cham_elem_sief_r,cham_elem_epsi_r,cham_elem_flux_r,cham_elem_crit_r,
15067                                                  cham_elem_ener_r,cham_elem_dbel_r,cham_elem_pres_r,cham_elem_erreur,
15068                                                  cham_elem_vari_r,cham_no_depl_c,cham_no_temp_c,cham_no_pres_c,
15069                                                  cham_elem_sief_c,cham_elem_epsi_c)),
15070            RESULTAT        =SIMP(statut='f',typ=(evol_elas,evol_ther,evol_noli,dyna_trans,
15071                                                  mode_meca,mode_flamb,mode_acou,base_modale,mode_stat,
15072                                                  mult_elas,fourier_elas,dyna_harmo,acou_harmo)),
15073            b_sensibilite   =BLOC(condition="RESULTAT != None",
15074                                  fr="Définition des paramètres de sensibilité",
15075                                  ang="Definition of sensitivity parameters",
15076              SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
15077                                    fr="Liste des paramètres de sensibilité.",
15078                                    ang="List of sensitivity parameters"),),
15079
15080            b_extrac        =BLOC(condition = "RESULTAT != None",fr="extraction des résultats",
15081              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','NUME_MODE','LIST_MODE',
15082                             'INST','LIST_INST','FREQ','LIST_FREQ','NOEUD_CMP','NOM_CAS'), ),
15083              NOM_CHAM        =SIMP(statut='o',typ='TXM' ),
15084              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15085              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
15086              LIST_ORDRE      =SIMP(statut='f',typ=listis),
15087              NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
15088              LIST_MODE       =SIMP(statut='f',typ=listis),
15089              NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
15090              NOM_CAS         =SIMP(statut='f',typ='TXM',max='**'),
15091              FREQ            =SIMP(statut='f',typ='R',max='**'),
15092              LIST_FREQ       =SIMP(statut='f',typ=listr8),
15093              INST            =SIMP(statut='f',typ='R',max='**'),
15094              LIST_INST       =SIMP(statut='f',typ=listr8),
15095              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
15096              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15097            ),
15098            TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",)),
15099            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
15100            INVARIANT       =SIMP(statut='f',typ='TXM',into=("OUI",)),
15101            ELEM_PRINCIPAUX =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15102            RESULTANTE      =SIMP(statut='f',typ='TXM',max='**'),
15103            MOMENT          =SIMP(statut='f',typ='TXM',max='**'),
15104            POINT           =SIMP(statut='f',typ='R',max='**'),
15105
15106            REPERE          =SIMP(statut='f',typ='TXM',defaut="GLOBAL",
15107                                  into=("GLOBAL","LOCAL","POLAIRE","UTILISATEUR","CYLINDRIQUE"),),
15108            ANGL_NAUT       =SIMP(statut='f',typ='R',min=3,max=3),
15109            ORIGINE         =SIMP(statut='f',typ='R',min=3,max=3),
15110            AXE_Z           =SIMP(statut='f',typ='R',min=3,max=3),
15111
15112            TRAC_NOR        =SIMP(statut='f',typ='TXM',into=("OUI",)),
15113            TRAC_DIR        =SIMP(statut='f',typ='TXM',into=("OUI",)),
15114            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
15115            TRAC_DIRECTION  =SIMP(statut='f',typ='TXM',into=("OUI",)),
15116            TRAC_NORMALE    =SIMP(statut='f',typ='TXM',into=("OUI",)),
15117
15118            VECT_Y          =SIMP(statut='f',typ='R',max='**'),
15119            MOYE_NOEUD      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
15120            OPERATION       =SIMP(statut='o',typ='TXM',into=("EXTRACTION","MOYENNE"),max=2),
15121          ),
15122          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
15123          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
15124 )  ;
15125 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15126 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15127 # ======================================================================
15128 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15129 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15130 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15131 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15132 # (AT YOUR OPTION) ANY LATER VERSION.
15133 #
15134 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15135 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15136 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15137 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15138 #
15139 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15140 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15141 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15142 # ======================================================================
15143 POST_SIMPLIFIE=OPER(nom="POST_SIMPLIFIE",op=185,sd_prod=tabl_post_simpli,
15144                     fr=" ",docu="U4.PS.10-a",reentrant='n',
15145             UIinfo={"groupes":("Outils métier",)},
15146          MATER           =SIMP(statut='o',typ=(mater) ),
15147          DEF_EQUI        =FACT(statut='f',min=1,max=1,
15148            METHODE         =SIMP(statut='f',typ='TXM',max='**',defaut="UTO_2_3",
15149                                  into=("UTO_2_3",) ),
15150            EPAIS           =SIMP(statut='o',typ='R'),
15151            LONG_FISS       =SIMP(statut='o',typ='R'),
15152            LONG_LIGA_INT   =SIMP(statut='o',typ='R'),
15153            DEXT            =SIMP(statut='o',typ='R'),
15154            TEMP_ANALYSE    =SIMP(statut='f',typ='R'),
15155          ),
15156 )  ;
15157 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15158 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15159 # ======================================================================
15160 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15161 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15162 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15163 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15164 # (AT YOUR OPTION) ANY LATER VERSION.
15165 #
15166 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15167 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15168 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15169 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15170 #
15171 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15172 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15173 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15174 # ======================================================================
15175 POST_USURE=OPER(nom="POST_USURE",op=153,sd_prod=tabl_post_usur,docu="U4.84.05-d1",reentrant='f',
15176             UIinfo={"groupes":("Post traitements",)},
15177                 fr="Calcul des volumes d'usure et des profondeurs d'usure",
15178          regles=(UN_PARMI('RESU_GENE','PUIS_USURE'),
15179                  PRESENT_PRESENT('RESU_GENE','NOEUD'),
15180                  UN_PARMI('INST','LIST_INST'),),
15181          ETAT_INIT       =FACT(statut='f',min=1,max=1,
15182            TABL_USURE      =SIMP(statut='f',typ=tabl_post_usur),
15183            INST_INIT       =SIMP(statut='f',typ='R'),
15184                          ),
15185          RESU_GENE       =SIMP(statut='f',typ=tran_gene),
15186          NOEUD           =SIMP(statut='f',typ=no,max=1),
15187          INST_INIT       =SIMP(statut='f',typ='R',defaut=-1.0E+0),
15188          INST_FIN        =SIMP(statut='f',typ='R'),
15189          NB_BLOC         =SIMP(statut='f',typ='I',defaut= 1 ),
15190          PUIS_USURE      =SIMP(statut='f',typ='R'),
15191          LOI_USURE       =SIMP(statut='o',typ='TXM',into=("ARCHARD","KWU_EPRI","EDF_MZ")),
15192          b_archard       =BLOC(condition = "LOI_USURE == 'ARCHARD'",
15193            regles=(UN_PARMI('MOBILE','MATER_USURE','SECTEUR'),
15194                    EXCLUS('MATER_USURE','OBSTACLE'),
15195                    EXCLUS('MOBILE','USURE_OBST'),),
15196            MOBILE          =FACT(statut='f',min=1,max=1,
15197              COEF_USURE      =SIMP(statut='o',typ='R'),
15198            ),
15199            OBSTACLE        =FACT(statut='f',min=1,max=1,
15200              COEF_USURE      =SIMP(statut='o',typ='R'),
15201            ),
15202            SECTEUR         =FACT(statut='f',min=1,max='**',
15203              CONTACT         =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
15204                                                               "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
15205                                                               "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
15206              COEF_USUR_MOBILE=SIMP(statut='f',typ='R'),
15207              COEF_USUR_OBST  =SIMP(statut='f',typ='R'),
15208              ANGL_INIT       =SIMP(statut='f',typ='R'),
15209              ANGL_FIN        =SIMP(statut='f',typ='R'),
15210            ),
15211            MATER_USURE     =SIMP(statut='f',typ='TXM'),
15212            USURE_OBST      =SIMP(statut='f',typ='TXM',into=("OUI",)),
15213          ),
15214          b_kwu_epri        =BLOC(condition = "LOI_USURE == 'KWU_EPRI'",
15215            regles=(UN_PARMI('MOBILE','MATER_USURE'),
15216                    EXCLUS('MATER_USURE','OBSTACLE'),
15217                    EXCLUS('MOBILE','USURE_OBST'),),
15218            MOBILE          =FACT(statut='f',min=1,max=1,
15219              COEF_FNOR       =SIMP(statut='f',typ='R'),
15220              COEF_VTAN       =SIMP(statut='f',typ='R'),
15221              COEF_USURE      =SIMP(statut='f',typ='R'),
15222              COEF_K          =SIMP(statut='f',typ='R',defaut=5.0E+0),
15223              COEF_C          =SIMP(statut='f',typ='R',defaut=10.0E+0),
15224            ),
15225            OBSTACLE        =FACT(statut='f',min=1,max=1,
15226              COEF_FNOR       =SIMP(statut='f',typ='R' ),
15227              COEF_VTAN       =SIMP(statut='f',typ='R' ),
15228              COEF_USURE      =SIMP(statut='o',typ='R'),
15229              COEF_K          =SIMP(statut='f',typ='R',defaut=5.0E+0),
15230              COEF_C          =SIMP(statut='f',typ='R',defaut=10.0E+0),
15231            ),
15232            MATER_USURE     =SIMP(statut='f',typ='TXM'),
15233            USURE_OBST      =SIMP(statut='f',typ='TXM',into=("OUI",)),
15234            FNOR_MAXI       =SIMP(statut='f',typ='R' ),
15235            VTAN_MAXI       =SIMP(statut='f',typ='R' ),
15236          ),
15237          b_edf_mz          =BLOC(condition = "LOI_USURE == 'EDF_MZ'",
15238            regles=(UN_PARMI('MOBILE','MATER_USURE'),
15239                    EXCLUS('MATER_USURE','OBSTACLE'),
15240                    EXCLUS('MOBILE','USURE_OBST'),),
15241            MOBILE          =FACT(statut='f',min=1,max=1,
15242              COEF_USURE      =SIMP(statut='f',typ='R',defaut=1.0E-13),
15243              COEF_B          =SIMP(statut='f',typ='R',defaut=1.2E+0),
15244              COEF_N          =SIMP(statut='f',typ='R',defaut=2.44E-8),
15245              COEF_S          =SIMP(statut='f',typ='R',defaut=1.14E-16),
15246            ),
15247            OBSTACLE        =FACT(statut='f',min=1,max=1,
15248              COEF_USURE      =SIMP(statut='o',typ='R',defaut=1.0E-13),
15249              COEF_B          =SIMP(statut='f',typ='R',defaut=1.2E+0),
15250              COEF_N          =SIMP(statut='f',typ='R',defaut=2.44E-8),
15251              COEF_S          =SIMP(statut='f',typ='R',defaut=1.14E-16),
15252            ),
15253            MATER_USURE     =SIMP(statut='f',typ='TXM'),
15254            USURE_OBST      =SIMP(statut='f',typ='TXM',into=("OUI",)),
15255          ),
15256          CONTACT         =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
15257                                                           "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
15258                                                           "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
15259          RAYON_MOBILE    =SIMP(statut='f',typ='R'),
15260          RAYON_OBST      =SIMP(statut='f',typ='R'),
15261          LARGEUR_OBST    =SIMP(statut='f',typ='R'),
15262          ANGL_INCLI      =SIMP(statut='f',typ='R'),
15263          ANGL_ISTHME     =SIMP(statut='f',typ='R'),
15264          ANGL_IMPACT     =SIMP(statut='f',typ='R'),
15265          INST            =SIMP(statut='f',typ='R',max='**'),
15266          LIST_INST       =SIMP(statut='f',typ=listr8),
15267          COEF_INST       =SIMP(statut='f',typ='R',defaut=1.0E+0),
15268          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
15269          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
15270 )  ;
15271 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15272 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15273 # ======================================================================
15274 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15275 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15276 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15277 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15278 # (AT YOUR OPTION) ANY LATER VERSION.
15279 #
15280 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15281 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15282 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15283 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15284 #
15285 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15286 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15287 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15288 # ======================================================================
15289 POST_ZAC=OPER(nom="POST_ZAC",op= 175,sd_prod=mult_elas,docu="U4.83.21-b",reentrant='n',
15290             UIinfo={"groupes":("Post traitements",)},
15291               fr="Donne l'état adapté ou accommodé d'une structure sous chargement cyclique élastique affine ou non",
15292          MODELE          =SIMP(statut='o',typ=modele),
15293          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
15294          EXCIT           =FACT(statut='o',min=1,max='**',
15295            CHARGE          =SIMP(statut='o',typ=char_meca),
15296            FONC_MULT       =SIMP(statut='f',typ=fonction),
15297            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",into=("FIXE_CSTE",)),
15298          ),
15299          EVOL_ELAS       =SIMP(statut='o',typ=evol_elas),
15300          b_evol_elas     =BLOC(condition="EVOL_ELAS != None",
15301            regles=(UN_PARMI('NUME_ORDRE','LIST_INST','INST'),),
15302            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
15303            LIST_INST       =SIMP(statut='f',typ=listr8),
15304            INST            =SIMP(statut='f',typ='R',max='**'),
15305          ),
15306          TEMP_ZAC        =SIMP(statut='f',typ='R',defaut=0.0E+0),
15307          EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
15308          b_evol_noli     =BLOC(condition="EVOL_NOLI != None",
15309            INST_MAX        =SIMP(statut='o',typ='R'),
15310          ),
15311          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
15312          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15313
15314 )  ;
15315 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15316 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15317 # ======================================================================
15318 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15319 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15320 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15321 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15322 # (AT YOUR OPTION) ANY LATER VERSION.
15323 #
15324 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15325 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15326 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15327 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15328 #
15329 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15330 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15331 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15332 # ======================================================================
15333 POURSUITE=MACRO(nom="POURSUITE",op=0,repetable='n',fr="Poursuite d une étude",
15334                 docu="U4.11.03-g2",sd_prod = ops.POURSUITE,
15335             UIinfo={"groupes":("Gestion du travail",)},
15336                 op_init = ops.POURSUITE_context,fichier_ini = 1,
15337          PAR_LOT         =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
15338                            into=("OUI","NON"),defaut="OUI"),
15339          BASE            =FACT(fr="définition des parmètres associés aux bases JEVEUX",
15340                                statut='f',min=1,max=3,
15341            FICHIER         =SIMP(fr="nom de la base",statut='o',typ='TXM'),
15342            TITRE           =SIMP(statut='f',typ='TXM'),
15343            CAS             =SIMP(statut='f',typ='TXM'),
15344            NMAX_ENRE       =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
15345            LONG_ENRE       =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
15346            LONG_REPE       =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
15347          ),
15348          IMPRESSION      =FACT(statut='f',min=1,max=3,
15349            FICHIER         =SIMP(statut='o',typ='TXM'),
15350            UNITE           =SIMP(statut='o',typ='I'),
15351          ),
15352          CATALOGUE       =FACT(statut='f',min=1,max=10,
15353            FICHIER         =SIMP(statut='o',typ='TXM'),
15354            TITRE           =SIMP(statut='f',typ='TXM'),
15355            UNITE           =SIMP(statut='f',typ='I'),
15356          ),
15357          DEBUG           =FACT(fr="option de déboggage reservée aux développeurs",
15358                                statut='f',min=1,max=1,
15359            JXVERI          =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
15360                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
15361            JEVEUX          =SIMP(fr="force les déchargement sur disque",
15362                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
15363            ENVIMA          =SIMP(fr="imprime les valeurs définies dans ENVIMA",
15364                                  statut='f',typ='TXM',into=('TES',)),
15365          ),
15366          MEMOIRE         =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=1,max=1,
15367            GESTION         =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
15368            TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
15369            TAILLE          =SIMP(statut='f',typ='I'),
15370            TAILLE_BLOC     =SIMP(statut='f',typ='R',defaut=800.),
15371            PARTITION       =SIMP(statut='f',typ='R' ),
15372          ),
15373          CODE            =FACT("définition d un nom pour l'esemble d'une étude",
15374                                statut='f',min=1,max=1,
15375            NOM             =SIMP(statut='o',typ='TXM'),
15376            UNITE           =SIMP(statut='f',typ='I',defaut=15),
15377          ),
15378 )  ;
15379 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15380 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15381 # ======================================================================
15382 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15383 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15384 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15385 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15386 # (AT YOUR OPTION) ANY LATER VERSION.
15387 #
15388 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15389 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15390 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15391 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15392 #
15393 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15394 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15395 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15396 # ======================================================================
15397 PRE_GIBI=PROC(nom="PRE_GIBI",op=49,docu="U7.01.11-f",
15398             UIinfo={"groupes":("Gestion du travail",)},
15399               fr="Conversion d un fichier de maillage GIBI",
15400          UNITE_GIBI      =SIMP(statut='f',typ='I',defaut=19),
15401          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),
15402 )  ;
15403 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15404 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15405 # ======================================================================
15406 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15407 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15408 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15409 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15410 # (AT YOUR OPTION) ANY LATER VERSION.
15411 #
15412 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15413 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15414 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15415 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15416 #
15417 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15418 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15419 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15420 # ======================================================================
15421
15422 from Macro.pre_gmsh_ops import pre_gmsh_ops
15423
15424 PRE_GMSH=MACRO(nom="PRE_GMSH",op=pre_gmsh_ops,docu="U7.01.01-f",
15425             UIinfo={"groupes":("Gestion du travail",)},
15426                fr="Conversion d un fichier universel GMSH au format Aster",
15427          UNITE_GMSH      =SIMP(statut='f',typ='I',defaut=19),
15428          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),
15429          MODI_QUAD       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
15430 )  ;
15431 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15432 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15433 # ======================================================================
15434 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
15435 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15436 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15437 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15438 # (AT YOUR OPTION) ANY LATER VERSION.
15439 #
15440 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15441 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15442 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15443 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15444 #
15445 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15446 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15447 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15448 # ======================================================================
15449
15450 PRE_GMSH_LECT=PROC(nom="PRE_GMSH_LECT",op=47,docu="U7.01.01-f",
15451             UIinfo={"groupes":("Gestion du travail",)},
15452                fr="Conversion d un fichier universel GMSH au format Aster",
15453          UNITE_GMSH      =SIMP(statut='f',typ='I',defaut=19),
15454          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),
15455 )  ;
15456 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15457 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15458 # ======================================================================
15459 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15460 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15461 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15462 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15463 # (AT YOUR OPTION) ANY LATER VERSION.
15464 #
15465 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15466 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15467 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15468 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15469 #
15470 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15471 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15472 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15473 # ======================================================================
15474 PRE_IDEAS=PROC(nom="PRE_IDEAS",op=47,docu="U7.01.01-f",
15475             UIinfo={"groupes":("Gestion du travail",)},
15476                fr="Conversion d un fichier universel IDEAS-SUPERTAB au format Aster",
15477          UNITE_IDEAS     =SIMP(statut='f',typ='I',defaut=19),
15478          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),
15479 )  ;
15480 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15481 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15482 # ======================================================================
15483 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15484 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15485 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15486 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15487 # (AT YOUR OPTION) ANY LATER VERSION.
15488 #
15489 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15490 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15491 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15492 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15493 #
15494 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15495 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15496 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15497 # ======================================================================
15498 PROCEDURE=PROC(nom="PROCEDURE",op=-3, docu="U4.13.03-e",
15499             UIinfo={"groupes":("Gestion du travail",)},
15500           fr="Nommer le fichier de commandes secondaires",
15501           NOM  =SIMP(statut='f',typ='TXM',defaut=" "),
15502 ) ;
15503 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15504 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15505 # ======================================================================
15506 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15507 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15508 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15509 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15510 # (AT YOUR OPTION) ANY LATER VERSION.
15511 #
15512 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15513 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15514 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15515 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15516 #
15517 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15518 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15519 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15520 # ======================================================================
15521 def prod_matr_cham_prod(MATR_ASSE,**args):
15522   if AsType(MATR_ASSE) == matr_asse_depl_r : return cham_no_depl_r
15523   if AsType(MATR_ASSE) == matr_asse_depl_c : return cham_no_depl_c
15524   if AsType(MATR_ASSE) == matr_asse_temp_r : return cham_no_temp_r
15525   if AsType(MATR_ASSE) == matr_asse_pres_c : return cham_no_pres_c
15526   raise AsException("type de concept resultat non prevu")
15527
15528 PROD_MATR_CHAM=OPER(nom="PROD_MATR_CHAM",op= 156,sd_prod=prod_matr_cham_prod,
15529                     fr="Effectuer le produit d une matrice par un vecteur",
15530                     docu="U4.72.06-b",reentrant='n',
15531             UIinfo={"groupes":("Résultats et champs",)},
15532          MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_pres_c ) ),
15533          CHAM_NO         =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_temp_r,cham_no_pres_c ) ),
15534          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
15535 )  ;
15536 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15537 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15538 # ======================================================================
15539 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15540 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15541 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15542 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15543 # (AT YOUR OPTION) ANY LATER VERSION.
15544 #
15545 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15546 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15547 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15548 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15549 #
15550 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15551 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15552 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15553 # ======================================================================
15554 # RESPONSABLE VABHHTS J.PELLET
15555 def proj_champ_prod(RESULTAT=None,CHAM_NO_REFE=None,**args ):
15556     if AsType(RESULTAT)     == evol_ther      : return evol_ther
15557     if AsType(RESULTAT)     == evol_elas      : return evol_elas
15558     if AsType(RESULTAT)     == evol_noli      : return evol_noli
15559     if AsType(RESULTAT)     == evol_char      : return evol_char
15560     if AsType(CHAM_NO_REFE) == cham_no_depl_r : return cham_no_depl_r
15561     if AsType(CHAM_NO_REFE) == cham_no_depl_c : return cham_no_depl_c
15562     if AsType(CHAM_NO_REFE) == cham_no_pres_c : return cham_no_pres_c
15563     if AsType(CHAM_NO_REFE) == cham_no_temp_r : return cham_no_temp_r
15564     if AsType(CHAM_NO_REFE) == cham_no_epsi_r : return cham_no_epsi_r
15565     if AsType(CHAM_NO_REFE) == cham_no_sief_r : return cham_no_sief_r
15566     if AsType(CHAM_NO_REFE) == cham_no_flux_r : return cham_no_flux_r
15567     raise AsException("type de concept resultat non prevu")
15568
15569 PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,docu="U4.72.05-d2",reentrant='n',
15570             UIinfo={"groupes":("Résultats et champs",)},
15571                 fr="Projection d'un champ aux noeuds sur les noeuds d'un autre maillage",
15572 #
15573          METHODE         =SIMP(statut='f',typ='TXM',defaut="NUAGE_DEG_1",
15574                                into=("NUAGE_DEG_0","NUAGE_DEG_1","ELEM",) ),
15575          b_nuage         =BLOC(condition="(METHODE=='NUAGE_DEG_1') or (METHODE=='NUAGE_DEG_0')",
15576                                fr="Lissage d'un nuage de points",
15577            CHAM_NO         =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_pres_c,cham_no_temp_r,
15578                                                  cham_no_epsi_r,cham_no_sief_r,cham_no_flux_r)),
15579            CHAM_NO_REFE    =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_pres_c,cham_no_temp_r,
15580                                                  cham_no_epsi_r,cham_no_sief_r,cham_no_flux_r)),
15581          ),
15582          b_elem          =BLOC(condition="METHODE=='ELEM'",
15583                               fr="Utilisation des fonctions de forme du maillage initial",
15584            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','LIST_INST','LIST_FREQ','LIST_ORDRE'),
15585                    EXCLUS('TOUT_CHAM','NOM_CHAM',), ),
15586            RESULTAT        =SIMP(statut='o',typ=(evol_ther,evol_elas,evol_noli,evol_char) ),
15587            MODELE_1        =SIMP(statut='o',typ=modele),
15588            MODELE_2        =SIMP(statut='o',typ=modele),
15589
15590            TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15591            NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
15592
15593            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15594            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
15595            LIST_ORDRE      =SIMP(statut='f',typ=listis),
15596            INST            =SIMP(statut='f',typ='R',max='**' ),
15597            LIST_INST       =SIMP(statut='f',typ=listr8),
15598            FREQ            =SIMP(statut='f',typ='R',max='**' ),
15599            LIST_FREQ       =SIMP(statut='f',typ=listr8),
15600          ),
15601
15602          VIS_A_VIS       =FACT(statut='f',min=1,max='**',
15603            regles=(AU_MOINS_UN('TOUT_1','GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
15604                    AU_MOINS_UN('TOUT_2','GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),),
15605            TOUT_1          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15606            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
15607            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
15608            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
15609            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
15610            TOUT_2          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15611            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
15612            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
15613            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
15614            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
15615          ),
15616
15617          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
15618 )  ;
15619 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15620 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15621 # ======================================================================
15622 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15623 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15624 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15625 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15626 # (AT YOUR OPTION) ANY LATER VERSION.
15627 #
15628 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15629 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15630 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15631 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15632 #
15633 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15634 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15635 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15636 # ======================================================================
15637 def matr_asse_gene_prod(MATR_ASSE,MATR_ASSE_GENE,**args):
15638   if AsType(MATR_ASSE) == matr_asse_depl_r  : return matr_asse_gene_r
15639   if AsType(MATR_ASSE_GENE) == matr_asse_gene_r  : return matr_asse_gene_r
15640   if AsType(MATR_ASSE) == matr_asse_depl_c  : return matr_asse_gene_c
15641   if AsType(MATR_ASSE_GENE) == matr_asse_gene_c  : return matr_asse_gene_c
15642   raise AsException("type de concept resultat non prevu")
15643
15644 PROJ_MATR_BASE=OPER(nom="PROJ_MATR_BASE",op=  71,sd_prod=matr_asse_gene_prod,
15645                     fr="Projection d une matrice assemblée sur une base (modale ou de RITZ)",
15646                     docu="U4.63.12-f1",reentrant='n',
15647             UIinfo={"groupes":("Matrices/vecteurs",)},
15648          regles=(UN_PARMI('MATR_ASSE','MATR_ASSE_GENE'),),
15649          BASE            =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene ) ),
15650          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
15651          MATR_ASSE       =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_depl_c) ),
15652          MATR_ASSE_GENE  =SIMP(statut='f',typ=(matr_asse_gene_r,matr_asse_gene_c) ),
15653 )  ;
15654
15655 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15656 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15657 # ======================================================================
15658 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15659 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15660 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15661 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15662 # (AT YOUR OPTION) ANY LATER VERSION.
15663 #
15664 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15665 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15666 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15667 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15668 #
15669 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15670 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15671 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15672 # ======================================================================
15673 def proj_mesu_modal_prod(MODELE_MESURE,**args):
15674      vale=MODELE_MESURE['NOM_PARA']
15675      if  vale == 'INST'   : return tran_gene
15676      if  vale == 'FREQ'   : return harm_gene
15677      if  vale == 'DEFORMEE'   : return mode_gene
15678      raise AsException("type de concept resultat non prevu")
15679
15680 PROJ_MESU_MODAL=OPER(nom="PROJ_MESU_MODAL",op= 193,
15681                      sd_prod=proj_mesu_modal_prod,
15682                      docu="U4.73.01-a",reentrant='n',
15683             UIinfo={"groupes":("Résultats et champs",)},
15684                      fr="Calcul de coordonnees generalisees de mesure experimentale relatives a une base de projection",
15685
15686          MODELE_CALCUL   =FACT(statut='o',min=1,max=1,
15687            MODELE          =SIMP(statut='o',typ=(modele) ),
15688            BASE            =SIMP(statut='o',typ=(mode_meca,base_modale,) ),
15689                          ),
15690          MODELE_MESURE   =FACT(statut='o',min=1,max=1,
15691            MODELE          =SIMP(statut='o',typ=(modele) ),
15692            MESURE          =SIMP(statut='o',typ=(dyna_trans,dyna_harmo,base_modale,) ),
15693            NOM_PARA        =SIMP(statut='f',typ='TXM',defaut="INST",into=("INST","FREQ","DEFORMEE",),),
15694            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE","SIEF_NOEU","EPSI_NOEU_DEPL",) ),
15695                          ),
15696          CORR_MANU       =FACT(statut='f',min=1,max='**',
15697            regles=(PRESENT_PRESENT('NOEU_CALCUL','NOEU_MESURE'),),
15698            NOEU_CALCUL     =SIMP(statut='f',typ=no),
15699            NOEU_MESURE     =SIMP(statut='f',typ=no),
15700                          ),
15701          RESOLUTION      =FACT(statut='f',min=1,max=1,
15702            METHODE         =SIMP(statut='f',typ='TXM',defaut="LU",into=("LU","SVD",) ),
15703            b_svd =BLOC(condition="METHODE=='SVD'",
15704                        EPS=SIMP(statut='f',typ='R',defaut=0. ),
15705                       ),
15706            REGUL           =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","NORM_MIN","TIK_RELA",) ),
15707            b_regul =BLOC(condition="REGUL!='NON'",
15708                          regles=(PRESENT_ABSENT('COEF_PONDER','COEF_PONDER_F', ),),
15709                          COEF_PONDER =SIMP(statut='f',typ='R',max='**',defaut=0. ),
15710                          COEF_PONDER_F =SIMP(statut='f',typ=(fonction),max='**' ),
15711                         ),
15712              ),
15713
15714           );
15715 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15716 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15717 # ======================================================================
15718 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15719 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15720 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15721 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15722 # (AT YOUR OPTION) ANY LATER VERSION.
15723 #
15724 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15725 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15726 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15727 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15728 #
15729 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15730 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15731 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15732 # ======================================================================
15733 PROJ_SPEC_BASE=OPER(nom="PROJ_SPEC_BASE",op= 146,sd_prod=tabl_intsp,docu="U4.63.14-c",reentrant='n',
15734             UIinfo={"groupes":("Matrices/vecteurs",)},
15735                     fr="Projection d un ou plusieurs spectres de turbulenc sur un ensemble de bases modales ",
15736       regles=(UN_PARMI('BASE_ELAS_FLUI','MODE_MECA','CHAM_NO'),
15737               ENSEMBLE('FREQ_INIT','FREQ_FIN','NB_POIN'),),
15738          SPEC_TURB       =SIMP(statut='o',typ=spectre,max='**' ),
15739          BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu ),
15740          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
15741          CHAM_NO         =SIMP(statut='f',typ=cham_no_depl_r ),
15742          FREQ_INIT       =SIMP(statut='f',typ='R',val_min=0.E+0 ),
15743          FREQ_FIN        =SIMP(statut='f',typ='R',val_min=0.E+0 ),
15744          NB_POIN         =SIMP(statut='f',typ='I' ),
15745          OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG")),
15746          GROUP_MA        =SIMP(statut='f',typ=grma),
15747 #  Quel est le type attendu derriere  MODELE_INTERFACE
15748          MODELE_INTERFACE=SIMP(statut='f',typ=modele),
15749          VECT_X          =SIMP(statut='f',typ='R',min=3,max=3 ),
15750          VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3 ),
15751          ORIG_AXE        =SIMP(statut='f',typ='R',min=3,max=3 ),
15752          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
15753 )  ;
15754 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15755 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15756 # ======================================================================
15757 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15758 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15759 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15760 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15761 # (AT YOUR OPTION) ANY LATER VERSION.
15762 #
15763 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15764 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15765 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15766 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15767 #
15768 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15769 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15770 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15771 # ======================================================================
15772 PROJ_VECT_BASE=OPER(nom="PROJ_VECT_BASE",op=  72,sd_prod=vect_asse_gene,
15773                     fr="Projection d un vecteur assemblé sur une base (modale ou de RITZ)",
15774                     docu="U4.63.13-f1",reentrant='n',
15775             UIinfo={"groupes":("Matrices/vecteurs",)},
15776          regles=(UN_PARMI('VECT_ASSE','VECT_ASSE_GENE'),),
15777          BASE            =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene ) ),
15778          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
15779          TYPE_VECT       =SIMP(statut='f',typ='TXM',defaut="FORC"),
15780          VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
15781          VECT_ASSE_GENE  =SIMP(statut='f',typ=vect_asse_gene ),
15782 )  ;
15783 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15784 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15785 # ======================================================================
15786 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15787 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15788 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15789 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15790 # (AT YOUR OPTION) ANY LATER VERSION.
15791 #
15792 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15793 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15794 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15795 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15796 #
15797 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15798 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15799 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15800 # ======================================================================
15801 RECA_WEIBULL=OPER(nom="RECA_WEIBULL",op= 197,sd_prod=tabl_reca_weib,
15802                      fr=" ",docu="U4.82.06-a",reentrant='n',
15803             UIinfo={"groupes":("Post traitements",)},
15804          LIST_PARA       =SIMP(statut='o',typ='TXM',max='**',into=("SIGM_REFE","M",) ),
15805          RESU            =FACT(statut='o',min=1,max='**',
15806            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST',),
15807                    AU_MOINS_UN('TOUT','GROUP_MA','MAILLE', ),),
15808            EVOL_NOLI       =SIMP(statut='o',typ=(evol_noli) ),
15809            MODELE          =SIMP(statut='o',typ=(modele) ),
15810            CHAM_MATER      =SIMP(statut='o',typ=(cham_mater) ),
15811            TEMPE           =SIMP(statut='f',typ='R' ),
15812            LIST_INST_RUPT  =SIMP(statut='o',typ='R',max='**' ),
15813            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15814            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
15815            INST            =SIMP(statut='f',typ='R',max='**' ),
15816            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
15817            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15818            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
15819            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
15820            COEF_MULT       =SIMP(statut='f',typ='R',defaut= 1.E0 ),
15821                          ),
15822          OPTION          =SIMP(statut='f',typ='TXM',defaut="SIGM_ELGA",into=("SIGM_ELGA","SIGM_ELMOY",) ),
15823          CORR_PLAST      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
15824          METHODE         =SIMP(statut='f',typ='TXM',defaut="MAXI_VRAI",into=("MAXI_VRAI","REGR_LINE",) ),
15825          INCO_GLOB_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
15826          ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
15827          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
15828                        )  ;
15829 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15830 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15831 # ======================================================================
15832 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15833 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15834 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15835 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15836 # (AT YOUR OPTION) ANY LATER VERSION.
15837 #
15838 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15839 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15840 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15841 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15842 #
15843 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15844 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15845 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15846 # ======================================================================
15847 # RESPONSABLE MCOURTOI M.COURTOIS
15848 def recu_fonction_prod(RESULTAT=None,TABLE=None,OBSTACLE=None,
15849                        RESU_GENE=None,BASE_ELAS_FLUI=None,CHAM_GD=None,
15850                        TYPE_RESU=None,**args):
15851   if AsType(RESULTAT) == dyna_harmo : return fonction_c
15852 #  On ne sait pas interpreter les deux conditions suivantes
15853   if TABLE != None :
15854      if TYPE_RESU != None :
15855         if TYPE_RESU == "FONCTION_C" : return fonction_c
15856         if TYPE_RESU == "FONCTION"   : return fonction
15857      else:
15858         return fonction
15859   if RESU_GENE      != None         : return fonction
15860   if BASE_ELAS_FLUI != None         : return fonction
15861   if RESULTAT       != None         : return fonction
15862   if CHAM_GD        != None         : return fonction
15863   if OBSTACLE       != None         : return fonction
15864   raise AsException("type de concept resultat non prevu")
15865
15866 RECU_FONCTION=OPER(nom="RECU_FONCTION",op=  90,sd_prod=recu_fonction_prod,
15867                    fr="Extraire sous forme d une fonction, l évolution temporelle d une composante d un champ ou d une table",
15868                    docu="U4.32.03-f2",reentrant='n',
15869             UIinfo={"groupes":("Fonction",)},
15870          regles=(UN_PARMI('CHAM_GD','RESULTAT','RESU_GENE','TABLE','BASE_ELAS_FLUI','OBSTACLE'),),
15871
15872          CHAM_GD         =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r,cham_elem_sief_r,
15873                                                cham_elem_vari_r,cham_elem_epsi_r,cham_elem_flux_r,
15874                                                cham_elem_pres_r,cham_elem_meta_r ) ),
15875          RESULTAT        =SIMP(statut='f',typ=(evol_elas,dyna_trans,evol_noli,evol_ther,dyna_harmo ) ),
15876          RESU_GENE       =SIMP(statut='f',typ=tran_gene),
15877 #  concept table à créer
15878          TABLE           =SIMP(statut='f',typ=table),
15879          BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu),
15880          REPERE          =SIMP(statut='f',typ='TXM',into=("POLAIRE","GLOBAL") ),
15881          OBSTACLE        =SIMP(statut='f',typ=obstacle),
15882
15883          b_tran_gene = BLOC ( condition = "RESU_GENE != None",
15884                               fr="Récupération de la fonction concernant les chocs à partir d un concept TRAN_GENE",
15885             regles=(PRESENT_PRESENT('SOUS_STRUC','INTITULE'),
15886                     EXCLUS('MULT_APPUI','CORR_STAT'),),
15887              MULT_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15888              CORR_STAT       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15889              ACCE_MONO_APPUI =SIMP(statut='f',typ=fonction),
15890              PARA_X          =SIMP(statut='f',typ='TXM' ),
15891              PARA_Y          =SIMP(statut='f',typ='TXM' ),
15892              SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
15893              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
15894              INTITULE        =SIMP(statut='f',typ='TXM' ),
15895          ),
15896          b_base_elas_flui = BLOC ( condition = "BASE_ELAS_FLUI != None",
15897                                    fr="Récupération de la fonction à partir d un concept melasflu",
15898            regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE'),),
15899            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15900            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
15901            NUME_MODE       =SIMP(statut='o',typ='I' ),
15902            PARA_X          =SIMP(statut='o',typ='TXM',into=("VITE_FLU",) ),
15903            PARA_Y          =SIMP(statut='o',typ='TXM',into=("FREQ","AMOR") ),
15904          ),
15905          b_table = BLOC ( condition = "TABLE != None",fr="Récupération de la fonction à partir d un concept table",
15906            regles=(UN_PARMI('PARA_X','NOM_PARA_TABL'),
15907                    PRESENT_PRESENT('PARA_X','PARA_Y'),),
15908            PARA_X          =SIMP(statut='f',typ='TXM',
15909                                  fr="1ère colonne de la table qui définit la fonction à récupérer", ),
15910            PARA_Y          =SIMP(statut='f',typ='TXM',
15911                                  fr="2ème colonne de la table qui définit la fonction à récupérer", ),
15912            NOM_PARA_TABL   =SIMP(statut='f',typ='TXM',into=("FONCTION",),
15913                                  fr="Nom du paramètre de la table à qui est associé la fonction" ),
15914            b_nom_para_tabl = BLOC (condition = "NOM_PARA_TABL != None",
15915              TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="FONCTION",into=("FONCTION","FONCTION_C") ),
15916            ),
15917
15918            FILTRE          =FACT(statut='f',min=1,max='**',
15919               NOM_PARA        =SIMP(statut='o',typ='TXM' ),
15920               CRIT_COMP       =SIMP(statut='f',typ='TXM',defaut="EQ",
15921                                     into=("EQ","LT","GT","NE","LE","GE","VIDE",
15922                                           "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
15923               b_vale          =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
15924                  regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
15925                  VALE            =SIMP(statut='f',typ='R' ),
15926                  VALE_I          =SIMP(statut='f',typ='I' ),
15927                  VALE_C          =SIMP(statut='f',typ='C' ),
15928                  VALE_K          =SIMP(statut='f',typ='TXM' ),),
15929
15930               CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
15931               PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15932            ),
15933          ),
15934 # RESULTAT
15935          b_resu = BLOC ( condition = "RESULTAT != None", fr="Opérandes en cas de RESULTAT",
15936            regles=(
15937 #    A voir par Mathieu Courtois : il existe de tests (SDNX300B) qui ne satisfont pas ce UN_PARMI
15938 #           UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','TOUT_INST','LIST_INST','FREQ','LIST_FREQ'),
15939                    AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC','NOM_PARA_RESU'),
15940                    PRESENT_PRESENT('MAILLE','NOM_CMP'),
15941                    PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
15942                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
15943                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
15944                    PRESENT_PRESENT('POINT','NOM_CMP'),
15945                    EXCLUS('POINT','NOEUD'),
15946                    EXCLUS('GROUP_MA','MAILLE'),
15947                    EXCLUS('GROUP_NO','NOEUD'),
15948                    EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),
15949                    UN_PARMI('NOM_CHAM','NOM_PARA_RESU'),),
15950            NOM_CHAM        =SIMP(statut='f',typ='TXM' ),
15951            NOM_PARA_RESU   =SIMP(statut='f',typ='TXM' ),
15952            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15953            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
15954            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
15955            TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15956            INST            =SIMP(statut='f',typ='R',max='**'),
15957            LIST_INST       =SIMP(statut='f',typ=listr8 ),
15958            FREQ            =SIMP(statut='f',typ='R',max='**'),
15959            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
15960            b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
15961              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15962              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
15963              INTERP_NUME     =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN") ),
15964            ),
15965            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
15966
15967            MAILLE          =SIMP(statut='f',typ=ma),
15968            GROUP_MA        =SIMP(statut='f',typ=grma),
15969            NOEUD           =SIMP(statut='f',typ=no),
15970            GROUP_NO        =SIMP(statut='f',typ=grno),
15971            POINT           =SIMP(statut='f',typ='I' ),
15972            SOUS_POINT      =SIMP(statut='f',typ='I' ),
15973            NOEUD_CHOC      =SIMP(statut='f',typ=no),
15974            GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
15975          ),
15976 # RESU_GENE
15977          b_resu_gene = BLOC ( condition = "RESU_GENE != None", fr="Opérandes en cas de RESU_GENE",
15978 #    A voir par Mathieu Courtois : il existe de tests (SDNX300B) qui ne satisfont pas ce UN_PARMI
15979 #           regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','TOUT_INST','LIST_INST','FREQ','LIST_FREQ'),),
15980            NOM_CHAM        =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE","PTEM") ),
15981            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15982            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
15983            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
15984            TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15985            INST            =SIMP(statut='f',typ='R',max='**'),
15986            LIST_INST       =SIMP(statut='f',typ=listr8 ),
15987            FREQ            =SIMP(statut='f',typ='R',max='**'),
15988            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
15989            b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
15990              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15991              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
15992              INTERP_NUME     =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN") ),
15993            ),
15994            b_local_cham = BLOC ( condition = "NOM_CHAM!='PTEM'", fr="Opérandes de localisation du champ",
15995              regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
15996                      PRESENT_PRESENT('MAILLE','NOM_CMP'),
15997                      PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
15998                      PRESENT_PRESENT('NOEUD','NOM_CMP'),
15999                      PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16000                      PRESENT_PRESENT('POINT','NOM_CMP'),
16001                      EXCLUS('POINT','NOEUD'),
16002                      EXCLUS('GROUP_MA','MAILLE'),
16003                      EXCLUS('GROUP_NO','NOEUD'),
16004                      EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
16005              NOM_CMP         =SIMP(statut='f',typ='TXM' ),
16006
16007              MAILLE          =SIMP(statut='f',typ=ma),
16008              GROUP_MA        =SIMP(statut='f',typ=grma),
16009              NOEUD           =SIMP(statut='f',typ=no),
16010              GROUP_NO        =SIMP(statut='f',typ=grno),
16011              POINT           =SIMP(statut='f',typ='I' ),
16012              SOUS_POINT      =SIMP(statut='f',typ='I' ),
16013              NOEUD_CHOC      =SIMP(statut='f',typ=no),
16014              GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
16015            ),
16016          ),
16017 # CHAM_GD
16018          b_cham_gd = BLOC ( condition = "(CHAM_GD != None)", fr="Opérandes en cas de CHAM_GD",
16019
16020            regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
16021                    PRESENT_PRESENT('MAILLE','NOM_CMP'),
16022                    PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
16023                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
16024                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16025                    PRESENT_PRESENT('POINT','NOM_CMP'),
16026                    EXCLUS('POINT','NOEUD'),
16027                    EXCLUS('GROUP_MA','MAILLE'),
16028                    EXCLUS('GROUP_NO','NOEUD'),
16029                    EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
16030            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
16031
16032            MAILLE          =SIMP(statut='f',typ=ma),
16033            GROUP_MA        =SIMP(statut='f',typ=grma),
16034            NOEUD           =SIMP(statut='f',typ=no),
16035            GROUP_NO        =SIMP(statut='f',typ=grno),
16036            POINT           =SIMP(statut='f',typ='I' ),
16037            SOUS_POINT      =SIMP(statut='f',typ='I' ),
16038            NOEUD_CHOC      =SIMP(statut='f',typ=no),
16039            GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
16040          ),
16041 ###
16042          NOM_PARA        =SIMP(statut='f',typ='TXM',
16043                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
16044                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC") ),
16045          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
16046          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
16047          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
16048          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
16049
16050          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
16051          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
16052 )  ;
16053 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16054 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16055 # ======================================================================
16056 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16057 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16058 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16059 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16060 # (AT YOUR OPTION) ANY LATER VERSION.
16061 #
16062 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16063 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16064 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16065 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16066 #
16067 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16068 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16069 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16070 # ======================================================================
16071 RECU_GENE=OPER(nom="RECU_GENE",op=  76,sd_prod=vect_asse_gene,docu="U4.71.03-e",reentrant='n',
16072             UIinfo={"groupes":("Résultats et champs",)},
16073                fr="Récupération d un champ de grandeur à partir d un résultat en coordonnées généralisées",
16074          RESU_GENE       =SIMP(statut='o',typ=tran_gene ),
16075          INST            =SIMP(statut='o',typ='R' ),
16076          NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE") ),
16077          INTERPOL        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
16078          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF" ,into=("ABSOLU","RELATIF") ),
16079          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16080 )  ;
16081 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16082 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16083 # ======================================================================
16084 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16085 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16086 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16087 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16088 # (AT YOUR OPTION) ANY LATER VERSION.
16089 #
16090 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16091 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16092 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16093 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16094 #
16095 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16096 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16097 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16098 # ======================================================================
16099 # RESPONSABLE VABHHTS J.PELLET
16100 RECU_TABLE=OPER(nom="RECU_TABLE",op= 174,sd_prod=table,
16101                 fr=" ",docu="U4.71.02-b2",reentrant='n',
16102             UIinfo={"groupes":("Résultats et champs",)},
16103          CO              =SIMP(statut='o',typ=assd),
16104          regles=(UN_PARMI('NOM_TABLE','NOM_PARA')),
16105          NOM_TABLE       =SIMP(statut='f',typ='TXM' ),
16106          NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
16107          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
16108 )  ;
16109 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16110 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16111 # ======================================================================
16112 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16113 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16114 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16115 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16116 # (AT YOUR OPTION) ANY LATER VERSION.
16117 #
16118 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16119 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16120 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16121 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16122 #
16123 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16124 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16125 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16126 # ======================================================================
16127 def reso_grad_prod(MATR_ASSE,**args ):
16128   if AsType(MATR_ASSE) == matr_asse_depl_r : return cham_no_depl_r
16129   if AsType(MATR_ASSE) == matr_asse_temp_r : return cham_no_temp_r
16130   if AsType(MATR_ASSE) == matr_asse_pres_r : return cham_no_pres_r
16131   raise AsException("type de concept resultat non prevu")
16132
16133 RESO_GRAD=OPER(nom="RESO_GRAD",op=  84,sd_prod=reso_grad_prod,
16134                fr="Résolution par la méthode du gradient conjugué préconditionné",
16135                docu="U4.55.04-e",reentrant='f',
16136             UIinfo={"groupes":("Résolution",)},
16137          MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
16138          CHAM_NO         =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r ) ),
16139          CHAM_CINE       =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r ) ),
16140          MATR_FACT       =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
16141          NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
16142          REPRISE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
16143          RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1E-6 ),
16144          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
16145 )  ;
16146 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16147 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16148 # ======================================================================
16149 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16150 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16151 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16152 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16153 # (AT YOUR OPTION) ANY LATER VERSION.
16154 #
16155 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16156 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16157 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16158 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16159 #
16160 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16161 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16162 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16163 # ======================================================================
16164 # RESPONSABLE VABHHTS J.PELLET
16165 def reso_ldlt_prod(CHAM_NO,**args ):
16166   if AsType(CHAM_NO) == cham_no_temp_r : return cham_no_temp_r
16167   if AsType(CHAM_NO) == cham_no_depl_r : return cham_no_depl_r
16168   if AsType(CHAM_NO) == cham_no_pres_r : return cham_no_pres_r
16169   if AsType(CHAM_NO) == cham_no_temp_c : return cham_no_temp_c
16170   if AsType(CHAM_NO) == cham_no_depl_c : return cham_no_depl_c
16171   if AsType(CHAM_NO) == cham_no_pres_c : return cham_no_pres_c
16172   raise AsException("type de concept resultat non prevu")
16173
16174 RESO_LDLT=OPER(nom="RESO_LDLT",op=15,sd_prod=reso_ldlt_prod,reentrant='f',
16175                fr="Résolution en place ou hors place d un système factorisé",docu="U4.55.02-f",
16176             UIinfo={"groupes":("Résolution",)},
16177          MATR_FACT       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
16178                                                matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
16179          CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r,
16180                                                cham_no_temp_c,cham_no_depl_c,cham_no_pres_c) ),
16181          CHAM_CINE       =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_c) ),
16182          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
16183          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
16184 )  ;
16185 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16186 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16187 # ======================================================================
16188 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16189 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16190 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16191 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16192 # (AT YOUR OPTION) ANY LATER VERSION.
16193 #
16194 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16195 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16196 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16197 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16198 #
16199 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16200 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16201 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16202 # ======================================================================
16203 # RESPONSABLE BOYERE E.BOYERE
16204 def rest_base_phys_prod(RESU_GENE,RESULTAT,**args ):
16205   if AsType(RESU_GENE) == tran_gene : return dyna_trans
16206   if AsType(RESU_GENE) == mode_gene : return mode_meca
16207   if AsType(RESU_GENE) == mode_cycl : return mode_meca
16208   if AsType(RESU_GENE) == harm_gene : return dyna_harmo
16209   if AsType(RESULTAT)  == mode_meca : return mode_meca
16210   raise AsException("type de concept resultat non prevu")
16211
16212 REST_BASE_PHYS=OPER(nom="REST_BASE_PHYS",op=  75,sd_prod=rest_base_phys_prod,
16213                     fr="Restituer dans la base physique des résultats en coordonnées généralisées",
16214                     docu="U4.63.21-e",reentrant='n',
16215             UIinfo={"groupes":("Matrices/vecteurs",)},
16216         regles=(UN_PARMI('RESU_GENE','RESULTAT'),
16217                 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','TOUT_INST'),
16218                 EXCLUS('TOUT_INST','NUME_ORDRE','INST','LIST_INST','TOUT_ORDRE'),
16219 #  Doc U à revoir
16220                 EXCLUS('MULT_APPUI','CORR_STAT'),
16221                 EXCLUS('MULT_APPUI','NOEUD','GROUP_NO'),
16222                 EXCLUS('CORR_STAT','NOEUD','GROUP_NO'),
16223                 EXCLUS('NOEUD','GROUP_NO'),
16224                 PRESENT_PRESENT('RESULTAT','SQUELETTE'),
16225                 PRESENT_PRESENT('ACCE_MONO_APPUI','DIRECTION'),),
16226          RESU_GENE       =SIMP(statut='f',typ=(tran_gene,mode_gene,mode_cycl,harm_gene ) ),
16227          RESULTAT        =SIMP(statut='f',typ=mode_meca ),
16228
16229          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
16230          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16231          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
16232          TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16233          INST            =SIMP(statut='f',typ='R',max='**' ),
16234          LIST_INST       =SIMP(statut='f',typ=listr8 ),
16235          FREQ            =SIMP(statut='f',typ='R',max='**' ),
16236          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
16237          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
16238          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16239          INTERPOL        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
16240          MULT_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16241          CORR_STAT       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16242          NOM_CHAM        =SIMP(statut='f',typ='TXM',max=8,defaut="ACCE",
16243                                into=("DEPL","VITE","ACCE","ACCE_ABSOLU","EFGE_ELNO_DEPL","SIPO_ELNO_DEPL",
16244                                      "SIGM_ELNO_DEPL","FORC_NODA",) ),
16245          TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16246          GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
16247          NOEUD           =SIMP(statut='f',typ=no,max='**'),
16248
16249          ACCE_MONO_APPUI =SIMP(statut='f',typ=fonction),
16250          DIRECTION       =SIMP(statut='f',typ='R',max='**' ),
16251
16252          SQUELETTE       =SIMP(statut='f',typ=squelette ),
16253          SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
16254          SECTEUR         =SIMP(statut='f',typ='I',defaut= 1 ),
16255          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
16256 )  ;
16257 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16258 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16259 # ======================================================================
16260 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16261 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16262 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16263 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16264 # (AT YOUR OPTION) ANY LATER VERSION.
16265 #
16266 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16267 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16268 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16269 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16270 #
16271 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16272 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16273 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16274 # ======================================================================
16275 REST_SPEC_PHYS=OPER(nom="REST_SPEC_PHYS",op= 148,sd_prod=tabl_intsp,
16276                     docu="U4.63.22-c",reentrant='n',
16277             UIinfo={"groupes":("Matrices/vecteurs",)},
16278          regles=(AU_MOINS_UN('BASE_ELAS_FLUI','MODE_MECA'),),
16279          BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu ),
16280          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
16281          BANDE           =SIMP(statut='f',typ='R',min=2,max=2 ),
16282          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
16283          INTE_SPEC_GENE  =SIMP(statut='o',typ=tabl_intsp ),
16284          NOEUD           =SIMP(statut='o',typ=no,max='**'),
16285          NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
16286          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16287          NOM_CHAM        =SIMP(statut='o',typ='TXM',max=7,
16288                                into=("DEPL","VITE","ACCE","EFGE_ELNO_DEPL",
16289                                      "SIPO_ELNO_DEPL","SIGM_ELNO_DEPL","FORC_NODA") ),
16290          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc), ),
16291          EXCIT           =FACT(statut='f',max=1,
16292            NOEUD           =SIMP(statut='o',typ=no,max='**'),
16293            NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
16294          ),
16295          MOUVEMENT       =SIMP(statut='f',typ='TXM',defaut="ABSOLU",into=("RELATIF","ABSOLU","DIFFERENTIEL") ),
16296          OPTION          =SIMP(statut='f',typ='TXM',defaut="DIAG_DIAG",
16297                                into=("DIAG_TOUT","DIAG_DIAG","TOUT_TOUT","TOUT_DIAG") ),
16298          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
16299 )  ;
16300 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16301 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16302 # ======================================================================
16303 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16304 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16305 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16306 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16307 # (AT YOUR OPTION) ANY LATER VERSION.
16308 #
16309 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16310 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16311 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16312 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16313 #
16314 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16315 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16316 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16317 # ======================================================================
16318 RETOUR=PROC(nom="RETOUR",op= -2,docu="U4.13.02-e",
16319             UIinfo={"groupes":("Gestion du travail",)},
16320             fr="Retour au fichier de commandes appelant",
16321 ) ;
16322 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16323 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16324 # ======================================================================
16325 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16326 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16327 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16328 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16329 # (AT YOUR OPTION) ANY LATER VERSION.
16330 #
16331 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16332 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16333 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16334 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16335 #
16336 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16337 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16338 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16339 # ======================================================================
16340 #  RESPONSABLE ADBHHVV V.CANO
16341 STAT_NON_LINE=OPER(nom="STAT_NON_LINE",op=70,sd_prod=evol_noli,
16342                    fr="Analyse mécanique statique non linéaire",
16343                    docu="U4.51.03-f4",reentrant='f',
16344             UIinfo={"groupes":("Résolution",)},
16345          regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS'),),
16346          MODELE          =SIMP(statut='o',typ=modele),
16347          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
16348          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
16349          EXCIT           =FACT(statut='o',min=1,max='**',
16350            CHARGE          =SIMP(statut='o',typ=char_meca),
16351            FONC_MULT       =SIMP(statut='f',typ=fonction),
16352            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
16353                                  into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
16354          ),
16355          VARI_COMM           =FACT(statut='f',
16356            regles=(AU_MOINS_UN('IRRA',),),
16357            IRRA     =SIMP(statut='f',typ=evol_varc),
16358          ),
16359          COMP_INCR       =FACT(statut='f',min=1,max='**',
16360            RELATION        =SIMP(statut='o',typ='TXM',defaut="VMIS_ISOT_TRAC",
16361                                  into=( "ELAS",
16362                                         "VMIS_ISOT_TRAC",
16363                                         "VMIS_ISOT_LINE",
16364                                         "VMIS_ECMI_TRAC",
16365                                         "VMIS_ECMI_LINE",
16366                                         "LABORD_1D",
16367                                         "ENDO_FRAGILE",
16368                                         "ENDO_ISOT_BETON",
16369                                         "MAZARS",
16370                                         "RUPT_FRAG",
16371                                         "BARENBLATT",
16372                                         "META_P_IL",
16373                                         "META_P_IL_PT",
16374                                         "META_P_IL_RE",
16375                                         "META_P_IL_PT_RE",
16376                                         "META_V_IL",
16377                                         "META_V_IL_PT",
16378                                         "META_V_IL_RE",
16379                                         "META_V_IL_PT_RE",
16380                                         "META_P_INL",
16381                                         "META_P_INL_PT",
16382                                         "META_P_INL_RE",
16383                                         "META_P_INL_PT_RE",
16384                                         "META_V_INL",
16385                                         "META_V_INL_PT",
16386                                         "META_V_INL_RE",
16387                                         "META_V_INL_PT_RE",
16388                                         "META_P_CL",
16389                                         "META_P_CL_PT",
16390                                         "META_P_CL_RE",
16391                                         "META_P_CL_PT_RE",
16392                                         "META_V_CL",
16393                                         "META_V_CL_PT",
16394                                         "META_V_CL_RE",
16395                                         "META_V_CL_PT_RE",
16396                                         "VMIS_CINE_LINE",
16397                                         "VISC_TAHERI",
16398                                         "CHABOCHE",
16399                                         "VISCOCHAB",
16400                                         "VISC_CIN1_CHAB",
16401                                         "VISC_CIN2_CHAB",
16402                                         "POLY_CFC",
16403                                         "LMARC",
16404                                         "ROUSSELIER",
16405                                         "ROUSS_PR",
16406                                         "ROUSS_VISC",
16407                                         "VMIS_POU_LINE",
16408                                         "VMIS_POU_FLEJOU",
16409                                         "COULOMB",
16410                                         "ARME",
16411                                         "ASSE_CORN",
16412                                         "NORTON_HOFF",
16413                                         "LEMAITRE",
16414                                         "ZIRC_CYRA2",
16415                                         "ZIRC_EPRI",
16416                                         "ASSE_COMBU",
16417                                         "VENDOCHAB",
16418                                         "NADAI_B",
16419                                         "DIS_CONTACT",
16420                                         "DIS_CHOC",
16421                                         "DIS_GOUJ2E_PLAS",
16422                                         "DIS_GOUJ2E_ELAS",
16423                                         "GRILLE_ISOT_LINE",
16424                                         "GRILLE_CINE_LINE",
16425                                         "GRILLE_PINTO_MEN",
16426                                         "PINTO_MENEGOTTO",
16427                                         "CJS",
16428                                         "CAM_CLAY",
16429                                         "LAIGLE",
16430                                         "OHNO",
16431                                         "GRANGER_FP",
16432                                         "GRANGER_FP_V",
16433                                         "GRANGER_FD",
16434                                         "BETON_DOUBLE_DP",
16435                                         "KIT_HM",
16436                                         "KIT_HHM",
16437                                         "KIT_THH",
16438                                         "KIT_THV",
16439                                         "KIT_THM",
16440                                         "KIT_THHM",
16441                                         "VMIS_ASYM_LINE",
16442                                         "ELAS_THM",
16443                                         "SURF_ETAT_NSAT",
16444                                         "SURF_ETAT_SATU",
16445                                         "CAM_CLAY_THM",
16446                                         "KIT_DDI",
16447                                      ) ),
16448           ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16449           VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16450           VMIS_ISOT_LINE  =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16451           VMIS_ECMI_TRAC  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
16452           VMIS_ECMI_LINE  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
16453           LABORD_1D   =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
16454           ENDO_FRAGILE    =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16455           ENDO_ISOT_BETON =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16456           MAZARS          =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16457           RUPT_FRAG       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16458           BARENBLATT      =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16459           META_P_IL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16460           META_P_IL_PT       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16461           META_P_IL_RE       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16462           META_P_IL_PT_RE    =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16463           META_V_IL          =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16464           META_V_IL_PT       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16465           META_V_IL_RE       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16466           META_V_IL_PT_RE    =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16467           META_P_INL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16468           META_P_INL_PT      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16469           META_P_INL_RE      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16470           META_P_INL_PT_RE   =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16471           META_V_INL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16472           META_V_INL_PT      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16473           META_V_INL_RE      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16474           META_V_INL_PT_RE   =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16475           META_P_CL          =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16476           META_P_CL_PT       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16477           META_P_CL_RE       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16478           META_P_CL_PT_RE    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16479           META_V_CL          =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16480           META_V_CL_PT       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16481           META_V_CL_RE       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16482           META_V_CL_PT_RE    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16483           VMIS_CINE_LINE  =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
16484           CHABOCHE        =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
16485           VISCOCHAB       =SIMP(statut='c',typ='I',defaut=28,into=(28,)),
16486           VISC_CIN1_CHAB  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
16487           VISC_CIN2_CHAB  =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
16488           POLY_CFC        =SIMP(statut='c',typ='I',defaut=1688,into=(1688,)),
16489           LMARC           =SIMP(statut='c',typ='I',defaut=20,into=(20,)),
16490           VISC_TAHERI     =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
16491           ROUSSELIER      =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
16492           ROUSS_PR        =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16493           ROUSS_VISC      =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16494           VMIS_POU_LINE   =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
16495           VMIS_POU_FLEJOU =SIMP(statut='c',typ='I',defaut=9 ,into=(9,)),
16496           COULOMB         =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16497           ASSE_CORN       =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16498           ARME            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16499           NORTON_HOFF     =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16500           LEMAITRE        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16501           ZIRC_CYRA2      =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16502           ZIRC_EPRI       =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16503           ASSE_COMBU      =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
16504           NADAI_B         =SIMP(statut='c',typ='I',defaut=34,into=(34,)),
16505           VENDOCHAB       =SIMP(statut='c',typ='I',defaut=10,into=(10,)),
16506           GRILLE_ISOT_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16507           GRILLE_CINE_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16508           GRILLE_PINTO_MEN=SIMP(statut='c',typ='I',defaut=16,into=(16,)),
16509           DIS_CONTACT     =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16510           DIS_CHOC        =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
16511           DIS_GOUJ2E_PLAS =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16512           DIS_GOUJ2E_ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16513           PINTO_MENEGOTTO =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
16514           CJS             =SIMP(statut='c',typ='I',defaut=16,into=(16,)),
16515           CAM_CLAY        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16516           LAIGLE          =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
16517           OHNO            =SIMP(statut='c',typ='I',defaut=32,into=(32,)),
16518           GRANGER_FP      =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
16519           GRANGER_FP_V    =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
16520           GRANGER_FD       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16521           BETON_DOUBLE_DP =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16522           KIT_HM          =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16523           KIT_HHM         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16524           KIT_THH         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16525           KIT_THV         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16526           KIT_THM         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16527           KIT_THHM        =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16528           VMIS_ASYM_LINE  =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16529
16530            RELATION_KIT    =SIMP(statut='f',typ='TXM',max='**',
16531                                  into=(
16532 # MECA
16533                                        "ELAS",
16534                                        "CJS",
16535                                        "CAM_CLAY",
16536                                        "LAIGLE",
16537                                        "ELAS_THM",
16538                                        "SURF_ETAT_NSAT",
16539                                        "SURF_ETAT_SATU",
16540                                        "CAM_CLAY_THM",
16541 # THMC
16542                                        "GAZ",
16543                                        "LIQU_SATU",
16544                                        "LIQU_SATU_GAT",
16545                                        "LIQU_GAZ_ATM",
16546                                        "LIQU_VAPE_GAZ",
16547                                        "LIQU_VAPE",
16548                                        "LIQU_NSAT_GAT",
16549                                        "LIQU_GAZ",
16550 # THER
16551                                        "THER_HOMO",
16552                                        "THER_POLY",
16553 # HYDR
16554                                        "HYDR_UTIL",
16555                                        "HYDR",
16556 # MECA_META
16557                                        "ACIER",
16558                                        "ZIRC",
16559 # MECA KIT_DDI
16560                                        "VMIS_ISOT_TRAC",
16561                                        "VMIS_ISOT_LINE",
16562                                        "VMIS_ISOT_CINE",
16563                                        "GRANGER_FP",
16564                                        "GRANGER_FP_V",
16565                                        "ROUSSELIER",
16566                                        "CHABOCHE",
16567                                        "OHNO",
16568                                        "NADAI_B",
16569                                        "BETON_DOUBLE_DP",
16570                                        ) ),
16571            ELAS_THM        =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16572            SURF_ETAT_NSAT  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16573            SURF_ETAT_SATU  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16574            CAM_CLAY_THM    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16575            GAZ             =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16576            LIQU_SATU       =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16577            LIQU_SATU_GAT   =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16578            LIQU_GAZ_ATM    =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16579            LIQU_VAPE_GAZ   =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16580            LIQU_VAPE       =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16581            LIQU_NSAT_GAT   =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16582            LIQU_GAZ        =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16583            THER_HOMO       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16584            THER_POLY       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16585            HYDR_UTIL       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16586            HYDR            =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16587            ACIER           =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
16588            ZIRC            =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16589
16590            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC","SIMO_MIEHE","GREEN_GR","GREEN",)),
16591            ALGO_C_PLAN     =SIMP(statut='f',typ='TXM',defaut="ANALYTIQUE",into=("DEBORST","ANALYTIQUE",)),
16592       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
16593            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16594            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
16595            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16596          ),
16597          COMP_ELAS       =FACT(statut='f',min=1,max='**',
16598            RELATION        =SIMP(statut='o',typ='TXM',defaut="ELAS",
16599                                  into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
16600                                        "ELAS_POUTRE_GR","CABLE")),
16601            ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16602            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16603            ELAS_VMIS_LINE  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16604            ELAS_POUTRE_GR  =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16605            CABLE           =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16606            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GREEN","GREEN_GR",) ),
16607       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
16608            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16609            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
16610            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16611          ),
16612          ETAT_INIT       =FACT(statut='f',min=1,max=1,
16613            regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI','VARI_NON_LOCAL',),
16614                    EXCLUS('EVOL_NOLI','DEPL',),
16615                    EXCLUS('EVOL_NOLI','SIGM',),
16616                    EXCLUS('EVOL_NOLI','VARI',),
16617                    EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
16618                    EXCLUS('NUME_ORDRE','INST'), ),
16619            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
16620            SIGM            =SIMP(statut='f',typ=(cham_elem_sief_r,carte_sief_r)),
16621            VARI            =SIMP(statut='f',typ=cham_elem_vari_r),
16622            VARI_NON_LOCAL  =SIMP(statut='f',typ=cham_no_vanl_r),
16623            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
16624            NUME_ORDRE      =SIMP(statut='f',typ='I'),
16625            INST            =SIMP(statut='f',typ='R'),
16626            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16627            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16628            NUME_DIDI       =SIMP(statut='f',typ='I'),
16629            INST_ETAT_INIT  =SIMP(statut='f',typ='R'),
16630          ),
16631          INCREMENT       =FACT(statut='o',min=1,max=1,
16632            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
16633                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
16634            LIST_INST       =SIMP(statut='o',typ=listr8),
16635            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
16636                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
16637            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
16638            INST_INIT       =SIMP(statut='f',typ='R'),
16639            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
16640            INST_FIN        =SIMP(statut='f',typ='R'),
16641            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
16642            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
16643            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
16644            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
16645            OPTI_LIST_INST  =SIMP(statut='f',typ='TXM',into=("INCR_MAXI",),),
16646            NOM_CHAM        =SIMP(statut='f',typ='TXM',),
16647            NOM_CMP         =SIMP(statut='f',typ='TXM',),
16648            VALE            =SIMP(statut='f',typ='R'),
16649          ),
16650          NEWTON          =FACT(statut='d',min=1,max=1,
16651            REAC_INCR       =SIMP(statut='f',typ='I',defaut= 1 ),
16652            PREDICTION      =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
16653            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
16654            PAS_MINI_ELAS   =SIMP(statut='f',typ='R',defaut=0.0E+0),
16655            REAC_ITER       =SIMP(statut='f',typ='I',defaut=0),
16656            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
16657          ),
16658          RECH_LINEAIRE   =FACT(statut='f',min=1,max=1,
16659            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
16660            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 3),
16661          ),
16662          PILOTAGE        =FACT(statut='f',min=1,max=1,
16663            regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
16664            TYPE    =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","PRED_ELAS_INCR","DEFORMATION","ANA_LIM") ),
16665            COEF_MULT       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
16666            ETA_PILO_MAX    =SIMP(statut='f',typ='R'),
16667            ETA_PILO_MIN    =SIMP(statut='f',typ='R'),
16668            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16669            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
16670            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16671            NOEUD           =SIMP(statut='f',typ=no,max='**'),
16672            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
16673            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**' ),
16674                          ),
16675          CONVERGENCE     =FACT(statut='d',min=1,max=1,
16676            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
16677            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
16678            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
16679            ITER_GLOB_ELAS  =SIMP(statut='f',typ='I',defaut=25),
16680            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
16681            RESI_INTE_RELA  =SIMP(statut='f',typ='R'
16682                                 ,defaut= 1.0E-6),
16683            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
16684            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut= 0 ),
16685            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
16686            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
16687                                  into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
16688          ),
16689          PARM_THETA      =SIMP(statut='f',typ='R'
16690                               ,defaut= 1. ),
16691          SOLVEUR         =FACT(statut='d',min=1,max=1,
16692            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
16693            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
16694              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
16695            ),
16696            b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
16697              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
16698            ),
16699            b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
16700                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
16701              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
16702              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","DECOUPE") ),
16703            ),
16704            b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
16705              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
16706              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
16707              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
16708              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
16709              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
16710            ),
16711 #  A quoi sert eps
16712            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
16713            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
16714          ),
16715          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
16716            regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
16717                    EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
16718            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
16719            INST            =SIMP(statut='f',typ='R',max='**' ),
16720            PAS_ARCH        =SIMP(statut='f',typ='I' ),
16721            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
16722            ARCH_ETAT_INIT  =SIMP(statut='f',typ='TXM',into=("OUI",)),
16723            NUME_INIT       =SIMP(statut='f',typ='I'),
16724            DETR_NUME_SUIV  =SIMP(statut='f',typ='TXM',into=("OUI",)),
16725            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","SIEF_ELGA","VARI_ELGA",
16726                                                                      "VARI_NON_LOCAL","LANL_ELGA")),
16727          ),
16728          OBSERVATION     =FACT(statut='f',min=1,max='**',
16729            regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
16730                    PRESENT_PRESENT('MAILLE','POINT'),),
16731            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',into=("DEPL","VITE","ACCE","SIEF_ELGA",
16732                                               "VARI_ELGA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU")),
16733            NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
16734            LIST_ARCH       =SIMP(statut='f',typ=listis),
16735            LIST_INST       =SIMP(statut='f',typ=listr8),
16736            INST            =SIMP(statut='f',typ='R',max='**' ),
16737            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16738            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16739            PAS_OBSE        =SIMP(statut='f',typ='I'),
16740            NOEUD           =SIMP(statut='f',typ=no,max='**'),
16741            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
16742            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16743            POINT           =SIMP(statut='f',typ='I',max='**'),
16744          ),
16745            SOLV_NON_LOCAL  =FACT(statut='f',min=1,max=1,
16746              METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
16747              b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
16748                RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
16749              ),
16750              b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
16751                RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
16752              ),
16753              b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
16754                                     fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
16755                NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
16756                STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
16757              ),
16758              b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
16759                PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
16760                NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
16761                RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
16762                NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
16763              ),
16764              EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
16765            ),
16766            LAGR_NON_LOCAL  =FACT(statut='f',max=1,
16767              ITER_DUAL_MAXI  =SIMP(statut='f',typ='I',defaut= 50),
16768              RESI_DUAL_ABSO  =SIMP(statut='o',typ='R'),
16769              RESI_PRIM_ABSO  =SIMP(statut='o',typ='R'),
16770              R               =SIMP(statut='f',typ='R',defaut= 1000.),
16771              ITER_PRIM_MAXI  =SIMP(statut='f',typ='I',defaut= 10),
16772            ),
16773          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
16774          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
16775  )  ;
16776 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16777 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16778 # ======================================================================
16779 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16780 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16781 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16782 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16783 # (AT YOUR OPTION) ANY LATER VERSION.
16784 #
16785 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16786 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16787 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16788 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16789 #
16790 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16791 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16792 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16793 # ======================================================================
16794 # RESPONSABLE MCOURTOI M.COURTOIS
16795 TEST_FONCTION=PROC(nom="TEST_FONCTION",op= 135,fr="Extraction d une valeur numérique ou d un attribut de fonction",
16796                    docu="U4.92.02-f2",
16797             UIinfo={"groupes":("Impression",)},
16798          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
16799          TEST_NOOK       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
16800          VALEUR          =FACT(statut='f',min=1,max='**',
16801                                fr="Tester la valeur d une fonction ou d une nappe",
16802            regles=(UN_PARMI('VALE_REFE','VALE_REFE_C', ),),
16803            FONCTION        =SIMP(statut='o',typ=fonction ),
16804            NOM_PARA        =SIMP(statut='f',typ='TXM',max=2),
16805            VALE_PARA       =SIMP(statut='o',typ='R',max=2),
16806            VALE_REFE       =SIMP(statut='f',typ='R' ),
16807            VALE_REFE_C     =SIMP(statut='f',typ='C' ),
16808            CRITERE         =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
16809                                  defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16810            PRECISION       =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
16811                                  defaut= 1.E-3 ),
16812            REFERENCE       =SIMP(statut='f',typ='TXM',
16813                                  into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
16814            b_version = BLOC (condition = "REFERENCE == 'NON_REGRESSION'",
16815              VERSION         =SIMP(statut='f',typ='TXM' ),
16816            ),
16817          ),
16818          ATTRIBUT        =FACT(statut='f',min=1,max='**',
16819                                fr="Tester la valeur d un attribut d une fonction ou d''une nappe",
16820            FONCTION        =SIMP(statut='o',typ=fonction ),
16821            PARA            =SIMP(statut='f',typ='R' ),
16822            CRIT_PARA       =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16823            PREC_PARA       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16824            ATTR            =SIMP(statut='o',typ='TXM',
16825                                  into=("NOM_PARA","NOM_RESU","PROL_DROITE","PROL_GAUCHE","INTERPOL",
16826                                        "PROL_GAUCHE_FONC","PROL_DROITE_FONC","INTERPOL_FONC","NOM_PARA_FONC") ),
16827            ATTR_REFE       =SIMP(statut='o',typ='TXM' ),
16828            REFERENCE       =SIMP(statut='f',typ='TXM',
16829                                  into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
16830            b_version       =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
16831              VERSION         =SIMP(statut='f',typ='TXM' ),
16832            ),
16833          ),
16834          TABL_INTSP      =FACT(statut='f',min=1,max='**',
16835                                fr="Tester la valeur d une fonction contenue dans une table interspectrale",
16836            regles=(UN_PARMI('NUME_ORDRE_I','NOEUD_I'),),
16837            INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
16838            NOEUD_I         =SIMP(statut='f',typ=no),
16839            NUME_ORDRE_I    =SIMP(statut='f',typ='I' ),
16840            b_nume_ordre_i = BLOC (condition = "NUME_ORDRE_I != None",
16841              NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
16842            ),
16843            b_noeud_i = BLOC (condition = "NOEUD_I != None",
16844              NOEUD_J         =SIMP(statut='o',typ=no),
16845              NOM_CMP_I       =SIMP(statut='o',typ='TXM' ),
16846              NOM_CMP_J       =SIMP(statut='o',typ='TXM' ),
16847            ),
16848            NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
16849            VALE_PARA       =SIMP(statut='o',typ='R' ),
16850            VALE_REFE_C     =SIMP(statut='o',typ='C' ),
16851            CRITERE         =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
16852                                  defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16853            PRECISION       =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
16854                                  defaut= 1.E-3 ),
16855            REFERENCE       =SIMP(statut='f',typ='TXM',
16856                                  into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
16857            b_version       =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
16858              VERSION         =SIMP(statut='f',typ='TXM' ),
16859            ),
16860          ),
16861 )  ;
16862 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16863 # RESPONSABLE VABHHTS J.PELLET
16864 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16865 # ======================================================================
16866 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16867 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16868 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16869 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16870 # (AT YOUR OPTION) ANY LATER VERSION.
16871 #
16872 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16873 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16874 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16875 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16876 #
16877 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16878 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16879 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16880 #
16881 #
16882 # ======================================================================
16883 TEST_RESU=PROC(nom="TEST_RESU",op=23,docu="U4.92.01-g3",
16884             UIinfo={"groupes":("Impression",)},
16885          fr="Extraction d une valeur et comparaison à une valeur de référence",
16886          regles=(AU_MOINS_UN('CHAM_NO','CHAM_ELEM','RESU','OBJET')),
16887          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
16888
16889          CHAM_NO         =FACT(statut='f',min=1,max='**',
16890            regles=(UN_PARMI('NOEUD','GROUP_NO','TYPE_TEST'),
16891                    EXCLUS('NOEUD','GROUP_NO'),
16892                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
16893                    PRESENT_PRESENT( 'GROUP_NO','NOM_CMP'),
16894                    UN_PARMI('VALE','VALE_I','VALE_C'),),
16895            CHAM_GD         =SIMP(statut='o',typ=cham_no),
16896            NOEUD           =SIMP(statut='f',typ=no,max='**'),
16897            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
16898            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
16899            TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
16900            VALE            =SIMP(statut='f',typ='R'),
16901            VALE_I          =SIMP(statut='f',typ='I'),
16902            VALE_C          =SIMP(statut='f',typ='C'),
16903            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
16904            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
16905            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
16906                                                             "NON_REGRESSION","AUTRE_ASTER")),
16907            VERSION         =SIMP(statut='f',typ='TXM'),
16908          ),
16909
16910          CHAM_ELEM       =FACT(statut='f',min=1,max='**',
16911            regles=(UN_PARMI('MAILLE','TYPE_TEST',),
16912                    EXCLUS('NOEUD','GROUP_NO','POINT'),
16913                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
16914                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16915                    PRESENT_PRESENT('POINT','NOM_CMP'),
16916                    UN_PARMI('VALE','VALE_I','VALE_C'), ),
16917            CHAM_GD         =SIMP(statut='o',typ=cham_elem),# CO()
16918            MAILLE          =SIMP(statut='f',typ=ma),# CO()
16919            POINT           =SIMP(statut='f',typ='I' ),
16920            SOUS_POINT      =SIMP(statut='f',typ='I'),
16921            NOEUD           =SIMP(statut='f',typ=no),# CO()
16922            GROUP_NO        =SIMP(statut='f',typ=grno),# CO()
16923            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
16924            TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
16925            VALE            =SIMP(statut='f',typ='R' ),
16926            VALE_I          =SIMP(statut='f',typ='I' ),
16927            VALE_C          =SIMP(statut='f',typ='C' ),
16928            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
16929            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16930            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
16931                                                             "NON_REGRESSION","AUTRE_ASTER") ),
16932            VERSION         =SIMP(statut='f',typ='TXM' ),
16933          ),
16934
16935          RESU            =FACT(statut='f',min=1,max='**',
16936            regles=(UN_PARMI('NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP','NOM_CAS','ANGL'),
16937                    UN_PARMI('NOM_CHAM','PARA'),
16938                    PRESENT_ABSENT('PARA','NOEUD','GROUP_NO','POINT','NOM_CMP','TYPE_TEST'),
16939                    PRESENT_PRESENT('NOM_CMP','NOM_CHAM'),
16940                    EXCLUS('NOEUD','GROUP_NO','POINT','TYPE_TEST'),
16941                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
16942                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16943                    PRESENT_PRESENT('POINT','NOM_CMP'),
16944                    UN_PARMI('VALE','VALE_I','VALE_C') ,),
16945            RESULTAT        =SIMP(statut='o',typ=resultat),
16946            SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
16947                                  fr="Liste des paramètres de sensibilité.",
16948                                  ang="List of sensitivity parameters"),
16949            NUME_ORDRE      =SIMP(statut='f',typ='I'),
16950            INST            =SIMP(statut='f',typ='R'),
16951            FREQ            =SIMP(statut='f',typ='R'),
16952            NUME_MODE       =SIMP(statut='f',typ='I'),
16953            NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**' ),
16954            NOM_CAS         =SIMP(statut='f',typ='TXM'),
16955            ANGL            =SIMP(statut='f',typ='R'),
16956            PARA            =SIMP(statut='f',typ='TXM'),
16957            NOM_CHAM        =SIMP(statut='f',typ='TXM'),
16958            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
16959            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16960            NOEUD           =SIMP(statut='f',typ=no,max='**'),
16961            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
16962            POINT           =SIMP(statut='f',typ='I'),
16963            SOUS_POINT      =SIMP(statut='f',typ='I'),
16964            TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
16965            VALE            =SIMP(statut='f',typ='R'),
16966            VALE_I          =SIMP(statut='f',typ='I'),
16967            VALE_C          =SIMP(statut='f',typ='C'),
16968            CRITERE         =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),max=2),
16969            PRECISION       =SIMP(statut='f',typ='R',max=2),
16970            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
16971                                                             "NON_REGRESSION","AUTRE_ASTER",) ),
16972            VERSION         =SIMP(statut='f',typ='TXM' ),
16973          ),
16974
16975          OBJET           =FACT(statut='f',max='**',
16976            regles=(UN_PARMI('INDICE','S_I','S_R','RESUME',),
16977                  UN_PARMI('VALE','VALE_I','VALE_C','RESUME','S_R','S_I'),),
16978            NOM             =SIMP(statut='o',typ='TXM'),
16979            INDICE          =SIMP(statut='f',typ='I'),
16980            NUM_OBJ         =SIMP(statut='f',typ='I'),
16981            S_R             =SIMP(statut='f',typ='R'),
16982            S_I             =SIMP(statut='f',typ='I'),
16983            RESUME          =SIMP(statut='f',typ='I'),
16984            VALE            =SIMP(statut='f',typ='R'),
16985            VALE_I          =SIMP(statut='f',typ='I'),
16986            VALE_C          =SIMP(statut='f',typ='C'),
16987            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
16988            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
16989            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
16990                                                             "NON_REGRESSION","AUTRE_ASTER",) ),
16991            VERSION         =SIMP(statut='f',typ='TXM' ),
16992          ),
16993 )  ;
16994 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16995 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16996 # ======================================================================
16997 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16998 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16999 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17000 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17001 # (AT YOUR OPTION) ANY LATER VERSION.
17002 #
17003 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17004 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17005 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17006 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17007 #
17008 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17009 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17010 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17011 # ======================================================================
17012 # RESPONSABLE VABHHTS J.PELLET
17013 TEST_TABLE=PROC(nom="TEST_TABLE",op= 177,
17014                 docu="U4.92.03-c1",
17015             UIinfo={"groupes":("Impression",)},
17016          regles=(UN_PARMI('VALE','VALE_I','VALE_C', ),),
17017          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
17018 #  concept table à créer
17019          TABLE           =SIMP(statut='o',typ=table),
17020
17021          FILTRE          =FACT(statut='f',min=1,max='**',
17022            NOM_PARA        =SIMP(statut='o',typ='TXM' ),
17023            CRIT_COMP       =SIMP(statut='f',typ='TXM',defaut="EQ",
17024                                  into=("EQ","LT","GT","NE","LE","GE","VIDE",
17025                                        "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
17026            b_vale          =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
17027               regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
17028               VALE            =SIMP(statut='f',typ='R' ),
17029               VALE_I          =SIMP(statut='f',typ='I' ),
17030               VALE_C          =SIMP(statut='f',typ='C' ),
17031               VALE_K          =SIMP(statut='f',typ='TXM' ),),
17032
17033            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
17034            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
17035          ),
17036          TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
17037          NOM_PARA        =SIMP(statut='o',typ='TXM' ),
17038          VALE            =SIMP(statut='f',typ='R' ),
17039          VALE_I          =SIMP(statut='f',typ='I' ),
17040          VALE_C          =SIMP(statut='f',typ='C' ),
17041          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
17042          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.2E-3 ),
17043          REFERENCE       =SIMP(statut='f',typ='TXM',
17044                                into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
17045          b_version       =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
17046              VERSION         =SIMP(statut='f',typ='TXM' ),
17047          ),
17048 )  ;
17049 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
17050 #            CONFIGURATION MANAGEMENT OF EDF VERSION
17051 # ======================================================================
17052 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
17053 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17054 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17055 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17056 # (AT YOUR OPTION) ANY LATER VERSION.
17057 #
17058 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17059 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17060 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17061 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17062 #
17063 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17064 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17065 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17066 # ======================================================================
17067 THER_LINEAIRE=OPER(nom="THER_LINEAIRE",op=25,sd_prod=evol_ther,docu="U4.54.01-g2",reentrant='f',
17068             UIinfo={"groupes":("Résolution",)},
17069                    fr="Analyse thermique linéaire stationnaire ou transitoire",
17070          MODELE          =SIMP(statut='o',typ=modele),
17071          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
17072          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
17073          EXCIT           =FACT(statut='o',min=1,max='**',
17074            CHARGE          =SIMP(statut='o',typ=(char_ther,char_cine_ther)),
17075            FONC_MULT       =SIMP(statut='f',typ=fonction),
17076          ),
17077          INCREMENT       =FACT(statut='f',min=1,max=1,
17078            LIST_INST       =SIMP(statut='o',typ=listr8 ),
17079            NUME_INIT       =SIMP(statut='f',typ='I'),
17080            NUME_FIN        =SIMP(statut='f',typ='I'),
17081          ),
17082          TEMP_INIT       =FACT(statut='f',min=1,max=1,
17083            regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
17084            STATIONNAIRE    =SIMP(statut='f',typ='TXM',into=("OUI",) ),
17085            EVOL_THER       =SIMP(statut='f',typ=evol_ther),
17086            CHAM_NO         =SIMP(statut='f',typ=cham_no_temp_r),
17087            VALE            =SIMP(statut='f',typ='R'),
17088            NUME_INIT       =SIMP(statut='f',typ='I'),
17089          ),
17090          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
17091                                fr="Liste des paramètres de sensibilité.",
17092                                ang="List of sensitivity parameters",
17093          ),
17094            SENS_INIT       =FACT(statut='f',min=1,max=1,
17095              regles=(EXCLUS('STATIONNAIRE','EVOL_THER', ),),
17096              STATIONNAIRE    =SIMP(statut='f',typ='TXM',into=("OUI",) ),
17097              EVOL_THER       =SIMP(statut='f',typ=evol_ther),
17098              NUME_INIT       =SIMP(statut='f',typ='I'),
17099            ),
17100          SOLVEUR         =FACT(statut='d',min=1,max=1,
17101            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
17102            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
17103              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
17104            ),
17105            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
17106              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
17107            ),
17108            b_ldlt_mult      =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
17109                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
17110              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
17111              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
17112            ),
17113            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
17114              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
17115              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
17116              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
17117              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
17118              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
17119            ),
17120 #  A quoi sert eps
17121            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
17122          ),
17123          PARM_THETA      =SIMP(statut='f',typ='R',defaut= 0.57),
17124          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
17125            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST'),),
17126            LIST_ARCH       =SIMP(statut='f',typ=listis),
17127            LIST_INST       =SIMP(statut='f',typ=listr8),
17128            INST            =SIMP(statut='f',typ='R',max='**'),
17129            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
17130            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
17131                                  into=("RELATIF","ABSOLU")),
17132            PAS_ARCH        =SIMP(statut='f',typ='I'),
17133            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',into=("VARI",)),
17134          ),
17135          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
17136          INFO            =SIMP(statut='f',typ='I',into=(1,2)),
17137 )  ;
17138 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
17139 #            CONFIGURATION MANAGEMENT OF EDF VERSION
17140 # ======================================================================
17141 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
17142 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17143 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17144 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17145 # (AT YOUR OPTION) ANY LATER VERSION.
17146 #
17147 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17148 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17149 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17150 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17151 #
17152 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17153 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17154 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17155 # ======================================================================
17156 THER_NON_LINE=OPER(nom="THER_NON_LINE",op= 186,sd_prod=evol_ther,docu="U4.54.02-e2",reentrant='f',
17157             UIinfo={"groupes":("Résolution",)},
17158                    fr="Analyse thermique non linéaire stationnaire ou transitoire" ,
17159          MODELE          =SIMP(statut='o',typ=(modele) ),
17160          CHAM_MATER      =SIMP(statut='o',typ=(cham_mater) ),
17161          CARA_ELEM       =SIMP(statut='c',typ=(cara_elem) ),
17162          COMP_THER_NL    =FACT(statut='d',min=1,max='**',
17163            RELATION        =SIMP(statut='f',typ='TXM',defaut="THER_NL",
17164                                  into=("THER_NL",
17165                                        "THER_HYDR",
17166                                        "SECH_GRANGER",
17167                                        "SECH_MENSI",
17168                                        "SECH_BAZANT",
17169                                        "SECH_NAPPE"
17170                                        ) ),
17171       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
17172            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
17173            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
17174            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
17175          ),
17176          EVOL_THER_SECH  =SIMP(statut='f',typ=evol_ther),
17177          EXCIT           =FACT(statut='o',min=1,max='**',
17178            CHARGE          =SIMP(statut='o',typ=char_ther),
17179            FONC_MULT       =SIMP(statut='f',typ=fonction),
17180          ),
17181          INCREMENT       =FACT(statut='f',min=1,max=1,
17182            LIST_INST       =SIMP(statut='o',typ=listr8),
17183            NUME_INIT       =SIMP(statut='f',typ='I'),
17184            NUME_FIN        =SIMP(statut='f',typ='I'),
17185          ),
17186          TEMP_INIT       =FACT(statut='f',min=1,max=1,
17187            regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
17188            STATIONNAIRE    =SIMP(statut='f',typ='TXM',into=("OUI",)),
17189            EVOL_THER       =SIMP(statut='f',typ=evol_ther),
17190            CHAM_NO         =SIMP(statut='f',typ=cham_no_temp_r),
17191            VALE            =SIMP(statut='f',typ='R'),
17192            NUME_INIT       =SIMP(statut='f',typ='I'),
17193          ),
17194          NEWTON          =FACT(statut='d',min=1,max=1,
17195            REAC_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
17196            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
17197            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 0 ),
17198          ),
17199          CONVERGENCE     =FACT(statut='d',min=1,max=1,
17200            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
17201            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
17202            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
17203          ),
17204          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
17205                                fr="Liste des paramètres de sensibilité.",
17206                                ang="List of sensitivity parameters",
17207          ),
17208          SOLVEUR         =FACT(statut='d',min=1,max=1,
17209            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
17210            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Parametres de la méthode multi frontale",
17211              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
17212            ),
17213            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Parametres de la méthode LDLT",
17214              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
17215            ),
17216            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
17217                                    fr="Parametres relatifs a la non inversibilité de la matrice a factorise",
17218              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
17219              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
17220            ),
17221            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Parametres de la méthode du gradient conjugué",
17222              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
17223              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
17224              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
17225              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
17226              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
17227            ),
17228 #  A quoi sert eps
17229            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
17230            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
17231          ),
17232          PARM_THETA      =SIMP(statut='f',typ='R',defaut= 0.57 ),
17233          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
17234            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST', ),),
17235            LIST_ARCH       =SIMP(statut='f',typ=(listis) ),
17236            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
17237            INST            =SIMP(statut='f',typ='R',max='**'),
17238            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
17239            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
17240            PAS_ARCH        =SIMP(statut='f',typ='I'),
17241            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',into=("VARI",)),
17242          ),
17243          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
17244          OPTION          =SIMP(statut='f',typ='TXM',max='**',
17245                                into=("FLUX_ELGA_TEMP","FLUX_ELNO_TEMP") ),
17246          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
17247
17248 )  ;
17249 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
17250 #            CONFIGURATION MANAGEMENT OF EDF VERSION
17251 # ======================================================================
17252 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
17253 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17254 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17255 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17256 # (AT YOUR OPTION) ANY LATER VERSION.
17257 #
17258 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17259 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17260 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17261 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17262 #
17263 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17264 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17265 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17266 # ======================================================================
17267 THER_NON_LINE_MO=OPER(nom="THER_NON_LINE_MO",op= 171,sd_prod=evol_ther,
17268                      fr="Thermique non lineaire en repere mobile",
17269                      docu="U4.54.03-b",reentrant='f',
17270             UIinfo={"groupes":("Résolution",)},
17271          MODELE          =SIMP(statut='o',typ=modele ),
17272          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
17273          CARA_ELEM       =SIMP(statut='c',typ=cara_elem ),
17274          EXCIT           =FACT(statut='o',min=1,max='**',
17275            CHARGE          =SIMP(statut='o',typ=char_ther ),
17276            FONC_MULT       =SIMP(statut='c',typ=fonction ),
17277          ),
17278          TEMP_INIT       =FACT(statut='f',min=1,max=1,
17279            EVOL_THER       =SIMP(statut='f',typ=evol_ther ),
17280            NUME_INIT       =SIMP(statut='f',typ='I',defaut= 0 ),
17281          ),
17282          CONVERGENCE     =FACT(statut='d',min=1,max=1,
17283            CRIT_TEMP_RELA  =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
17284            CRIT_ENTH_RELA  =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
17285            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
17286            ARRET           =SIMP(statut='c',typ='TXM',defaut="OUI",into=("OUI","NON") ),
17287          ),
17288          SOLVEUR         =FACT(statut='d',min=1,max=1,
17289            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
17290            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
17291              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
17292            ),
17293            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
17294              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
17295            ),
17296            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
17297                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
17298              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
17299              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
17300            ),
17301            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
17302              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
17303              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
17304              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
17305              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
17306              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
17307            ),
17308            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
17309            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
17310          ),
17311          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
17312          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
17313 )  ;
17314
17315
17316