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 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
 330 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 331 # ======================================================================
 332 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 333 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
 334 #              REDISTRIBUTION OF THIS FILE.
 335 # ======================================================================
 336 # RESPONSABLE JMBHH01 J.M.PROIX
 337 AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
 338                     fr="Affectation de caractéristiques à des éléments de structure",
 339                     docu="U4.42.01-g3",reentrant='n',
 340          regles=(AU_MOINS_UN('POUTRE','BARRE','COQUE','CABLE','DISCRET','MASSIF',
 341                              'ASSE_GRIL','GRILLE','AFFE_SECT','AFFE_FIBRE'),),
 342          MODELE          =SIMP(statut='o',typ=modele ),
 343          INFO            =SIMP(statut='f',typ='I', defaut= 1 ,into=(1,2) ),
 344          VERIF           =SIMP(statut='f',typ='TXM',max='**',into=("MAILLE","NOEUD") ),
 345
 346          POUTRE          =FACT(statut='f',min=01,max='**',
 347            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 348            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 349            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 350            SECTION         =SIMP(statut='o',typ='TXM' ,into=("GENERALE","RECTANGLE","CERCLE") ),
 351            CARA_SECT       =SIMP(statut='f',typ=(cara_pout) ),
 352            TUYAU_NCOU      =SIMP(statut='f',typ='I',min=1,max=10,defaut=3),
 353            TUYAU_NSEC      =SIMP(statut='f',typ='I',min=1,max=32,defaut=16),
 354            b_generale      =BLOC( condition = "SECTION=='GENERALE'",
 355              CARA            =SIMP(statut='o',typ='TXM',max='**',
 356                                  into=("A","IY","IZ","AY","AZ","EY","EZ","JX","RY","RZ","RT",
 357                                                            "AI","JG","IYR2","IZR2","A1",
 358                                        "IY1","IZ1","AY1","AZ1","EY1","EZ1","JX1","RY1",
 359                                        "RZ1","RT1","AI1","JG1","IYR21","IZR21","A2",
 360                                        "IY2","IZ2","AY2","AZ2","EY2","EZ2","JX2","RY2",
 361                                        "RZ2","RT2","AI2","JG2","IYR22","IZR22","H",
 362                                        "HZ","HY","EP","EPY","EPZ","H1","HZ1","HY1",
 363                                        "EP1","EPY1","EPZ1","H2","HZ2","HY2","EP2",
 364                                        "EPY2","EPZ2","R","R1","R2") ),
 365              VALE            =SIMP(statut='o',typ='R',max='**'),
 366              VARI_SECT       =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE",) ),
 367            ),
 368            b_rectangle     =BLOC( condition = "SECTION=='RECTANGLE'",
 369              CARA            =SIMP(statut='o',typ='TXM',max='**',
 370                                  into=("H","EP","HY","HZ","EPY","EPZ",
 371                                                            "H1","HZ1","HY1","EP1","EPY1","EPZ1",
 372                                                            "H2","HZ2","HY2","EP2","EPY2","EPZ2") ),
 373              VALE            =SIMP(statut='o',typ='R',max='**'),
 374              VARI_SECT       =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE","AFFINE"),defaut="HOMOTHETIQUE"),
 375            ),
 376            b_cercle        =BLOC( condition = "SECTION=='CERCLE'",
 377              CARA            =SIMP(statut='o',typ='TXM',max='**',
 378                                  into=("R","EP","R1","R2","EP1","EP2") ),
 379              VALE            =SIMP(statut='o',typ='R',max='**'),
 380              VARI_SECT       =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE",) ),
 381              MODI_METRIQUE   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
 382            ),
 383            FCX             =SIMP(statut='f',typ=(fonction) ),
 384          ),
 385
 386          BARRE           =FACT(statut='f',min=01,max='**',
 387            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 388            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 389            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 390            SECTION         =SIMP(statut='o',typ='TXM',into=("GENERALE","RECTANGLE","CERCLE") ),
 391            b_generale      =BLOC( condition = "SECTION=='GENERALE'",
 392              CARA            =SIMP(statut='o',typ='TXM',into=("A",) ),
 393              VALE            =SIMP(statut='o',typ='R' ),
 394            ),
 395            b_rectangle     =BLOC( condition = "SECTION=='RECTANGLE'",
 396              CARA            =SIMP(statut='o',typ='TXM',into=("H","HZ","HY","EPY","EPZ","EP"),max=6 ),
 397              VALE            =SIMP(statut='o',typ='R',max=6 ),
 398            ),
 399            b_cercle        =BLOC( condition = "SECTION=='CERCLE'",
 400              CARA            =SIMP(statut='o',typ='TXM',max=2,into=("R","EP") ),
 401              VALE            =SIMP(statut='o',typ='R',max=2 ),
 402            ),
 403            FCX             =SIMP(statut='f',typ=(fonction) ),
 404          ),
 405
 406          COQUE           =FACT(statut='f',min=01,max='**',
 407            regles=(UN_PARMI('MAILLE','GROUP_MA' ),
 408                    PRESENT_PRESENT( 'EXCENTREMENT','INER_ROTA' ),),
 409            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 410            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 411            EPAIS           =SIMP(statut='o',typ='R' ),
 412            ANGL_REP        =SIMP(statut='f',typ='R',min=2,max=2),
 413            A_CIS           =SIMP(statut='c',typ='R',defaut= 0.8333333E0),
 414            COEF_RIGI_DRZ   =SIMP(statut='f',typ='R',defaut= 1.0E-5 ),
 415            COQUE_NCOU      =SIMP(statut='f',typ='I',defaut= 1 ),
 416            EXCENTREMENT    =SIMP(statut='f',typ='R' ),
 417            INER_ROTA       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 418            MODI_METRIQUE   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
 419          ),
 420
 421          CABLE           =FACT(statut='f',min=01,max='**',
 422            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 423                    UN_PARMI('A','SECTION') ),
 424            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 425            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 426            N_INIT          =SIMP(statut='f',typ='R',defaut= 5000. ),
 427            A               =SIMP(statut='f',typ='R' ),
 428            SECTION         =SIMP(statut='f',typ='R' ),
 429            FCX             =SIMP(statut='f',typ=(fonction) ),
 430          ),
 431
 432          DISCRET         =FACT(statut='f',min=01,max='**',
 433            regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
 434            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 435            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 436            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 437            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 438            REPERE          =SIMP(statut='f',typ='TXM',into=("LOCAL","GLOBAL") ),
 439            AMOR_HYST       =SIMP(statut='f',typ='R' ),
 440            CARA            =SIMP(statut='o',typ='TXM',max='**',
 441                                  into=("K_T_D_N","K_T_D_L","K_TR_D_N","K_TR_D_L",
 442                                                            "K_T_N",  "K_T_L",  "K_TR_N",  "K_TR_L",
 443                                                                 "M_T_D_N","M_TR_D_N","M_T_N",
 444                                                            "M_T_L",  "M_TR_N",  "M_TR_L",
 445                                        "A_T_D_N","A_TR_D_N","A_T_D_L","A_TR_D_L",
 446                                                            "A_T_N",  "A_T_L",   "A_TR_N", "A_TR_L") ),
 447            VALE            =SIMP(statut='o',typ='R',max='**'),
 448          ),
 449
 450          ORIENTATION     =FACT(statut='f',min=01,max='**',
 451            regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO' ),),
 452            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 453            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 454            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 455            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 456            CARA            =SIMP(statut='o',typ='TXM',
 457                                  into=("VECT_Y","ANGL_VRIL","VECT_X_Y","ANGL_NAUT","GENE_TUYAU") ),
 458            VALE            =SIMP(statut='o',typ='R',max='**'),
 459            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-4 ),
 460            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
 461          ),
 462
 463          DEFI_ARC        =FACT(statut='f',min=01,max='**',
 464            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 465                    UN_PARMI('ORIE_ARC','CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE',
 466                             'POIN_TANG','NOEUD_POIN_TANG','GROUP_NO_POIN_TG'),
 467                    PRESENT_PRESENT('ORIE_ARC','RAYON'),
 468                    EXCLUS('COEF_FLEX','COEF_FLEX_XY'),
 469                    EXCLUS('COEF_FLEX','COEF_FLEX_XZ'),
 470                    EXCLUS('INDI_SIGM','INDI_SIGM_XY'),
 471                    EXCLUS('INDI_SIGM','INDI_SIGM_XZ'),
 472                    PRESENT_PRESENT('COEF_FLEX_XY','COEF_FLEX_XZ'),
 473                    PRESENT_PRESENT('INDI_SIGM_XY','INDI_SIGM_XZ'),),
 474            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 475            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 476            ORIE_ARC        =SIMP(statut='f',typ='R'),
 477            CENTRE          =SIMP(statut='f',typ='R',max='**'),
 478            NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=1),
 479            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno,max=1),
 480            POIN_TANG       =SIMP(statut='f',typ='R',max='**'),
 481            NOEUD_POIN_TANG =SIMP(statut='f',typ=no,max=1),
 482            GROUP_NO_POIN_TG=SIMP(statut='f',typ=grno,max=1),
 483            RAYON           =SIMP(statut='f',typ='R'),
 484            COEF_FLEX       =SIMP(statut='f',typ='R'),
 485            INDI_SIGM       =SIMP(statut='f',typ='R'),
 486            COEF_FLEX_XY    =SIMP(statut='f',typ='R'),
 487            INDI_SIGM_XY    =SIMP(statut='f',typ='R'),
 488            COEF_FLEX_XZ    =SIMP(statut='f',typ='R'),
 489            INDI_SIGM_XZ    =SIMP(statut='f',typ='R'),
 490            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
 491            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
 492          ),
 493
 494          MASSIF          =FACT(statut='f',min=01,max='**',
 495            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 496                    UN_PARMI('ANGL_REP','ANGL_AXE'),
 497                    EXCLUS('ANGL_REP','ANGL_AXE'),
 498                    EXCLUS('ANGL_REP','ORIG_AXE'),
 499                    PRESENT_PRESENT('ANGL_AXE','ORIG_AXE'), ),
 500            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 501            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 502            ANGL_REP        =SIMP(statut='f',typ='R',max=3),
 503            ANGL_AXE        =SIMP(statut='f',typ='R',max=2),
 504            ORIG_AXE        =SIMP(statut='f',typ='R',max=3),
 505          ),
 506
 507          POUTRE_FLUI     =FACT(statut='f',min=01,max='**',
 508            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 509            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 510            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 511            B_T             =SIMP(statut='o',typ='R'),
 512            B_N             =SIMP(statut='o',typ='R'),
 513            B_TN            =SIMP(statut='o',typ='R',defaut= 0.E+0 ),
 514            A_FLUI          =SIMP(statut='o',typ='R'),
 515            A_CELL          =SIMP(statut='o',typ='R'),
 516            COEF_ECHELLE    =SIMP(statut='o',typ='R'),
 517          ),
 518
 519          GRILLE          =FACT(statut='f',min=01,max='**',
 520            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 521                    EXCLUS('ANGL_REP','ORIG_AXE'),
 522                    ENSEMBLE('ORIG_AXE','AXE')),
 523            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 524            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 525            SECTION_L       =SIMP(statut='o',typ='R'),
 526            ANGL_REP        =SIMP(statut='f',typ='R',max=2),
 527            ANGL_L          =SIMP(statut='f',typ='R'),
 528            POUR_CENT_L     =SIMP(statut='f',typ='R'),
 529            POUR_CENT_T     =SIMP(statut='f',typ='R'),
 530            EXCENTREMENT    =SIMP(statut='f',typ='R'),
 531            ORIG_AXE        =SIMP(statut='f',typ='R',max='**'),
 532            AXE             =SIMP(statut='f',typ='R',max='**'),
 533            COEF_RIGI_DRZ   =SIMP(statut='f',typ='R',defaut= 1.0E-10 ),
 534            GRILLE_NCOU     =SIMP(statut='f',typ='I',defaut= 1,min=1,max=1 ),
 535          ),
 536
 537          RIGI_PARASOL    =FACT(statut='f',min=01,max='**',
 538            regles=(UN_PARMI('COEF_GROUP','FONC_GROUP'),
 539                    UN_PARMI('COOR_CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),),
 540            GROUP_MA        =SIMP(statut='o',typ=ma,max='**'),
 541            FONC_GROUP      =SIMP(statut='f',typ=(fonction) ),
 542            COEF_GROUP      =SIMP(statut='f',typ='R',max='**'),
 543            REPERE          =SIMP(statut='f',typ='TXM',into=("LOCAL","GLOBAL") ),
 544            CARA            =SIMP(statut='o',typ='TXM',max='**',into=("K_TR_D_N","A_TR_D_N") ),
 545            VALE            =SIMP(statut='o',typ='R',max='**'),
 546            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno),
 547            NOEUD_CENTRE    =SIMP(statut='f',typ=no),
 548            COOR_CENTRE     =SIMP(statut='f',typ='R',max='**'),
 549          ),
 550
 551          ASSE_GRIL       =FACT(statut='f',min=01,max='**',
 552            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 553            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 554            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 555            CARA            =SIMP(statut='o',typ='TXM',max='**',
 556                                  into=("K_TR_D_N","K_TR_D_L_T","K_TR_D_L_N",) ),
 557            VALE            =SIMP(statut='o',typ='R',max='**'),
 558            PAS_T           =SIMP(statut='o',typ='R'),
 559            PAS_N           =SIMP(statut='o',typ='R'),
 560            ANGL_REP        =SIMP(statut='o',typ='R',max='**'),
 561            COEF_ECHELLE    =SIMP(statut='o',typ='R'),
 562          ),
 563
 564
 565          AFFE_SECT     =FACT(statut='f',min=1,max='**',
 566               regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
 567                       AU_MOINS_UN('TOUT_SECT','GROUP_MA_SECT','MAILLE_SECT'),
 568                       PRESENT_ABSENT('TOUT_SECT','GROUP_MA_SECT','MAILLE_SECT'),),
 569
 570               NOM             =SIMP(statut='f',typ='TXM'),
 571
 572               GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 573               MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 574
 575               TOUT_SECT         =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 576               GROUP_MA_SECT     =SIMP(statut='f',typ=grma,max='**'),
 577               MAILLE_SECT       =SIMP(statut='f',typ=ma,max='**'),
 578
 579               MAILLAGE_SECT     =SIMP(statut='o',typ=maillage),
 580               COOR_AXE_POUTRE    =SIMP(statut='o',typ='R',min=2,max=2),
 581          ),
 582
 583
 584          AFFE_FIBRE     =FACT(statut='f',min=1,max='**',
 585               regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
 586
 587               NOM             =SIMP(statut='f',typ='TXM'),
 588
 589               GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 590               MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 591
 592               CARA              =SIMP(statut='f',typ='TXM',defaut='SURFACE',into=('SURFACE','DIAMETRE',)),
 593               VALE              =SIMP(statut='o',typ='R',max='**'),
 594               COOR_AXE_POUTRE    =SIMP(statut='o',typ='R',min=2,max=2),
 595          ),
 596
 597
 598 ) ;
 599 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
 600 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 601 # ======================================================================
 602 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 603 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
 604 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
 605 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
 606 # (AT YOUR OPTION) ANY LATER VERSION.
 607 #
 608 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
 609 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
 610 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
 611 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
 612 #
 613 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
 614 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 615 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 616 # ======================================================================
 617 AFFE_CHAR_ACOU=OPER(nom="AFFE_CHAR_ACOU",op=  68,sd_prod=char_acou,
 618                     fr="Affectation de charges et conditions aux limites acoustiques constantes",
 619                     docu="U4.44.04-e",reentrant='n',
 620          regles=(AU_MOINS_UN('PRES_IMPO','VITE_FACE','IMPE_FACE','LIAISON_UNIF' ),),
 621          MODELE          =SIMP(statut='o',typ=modele ),
 622          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
 623          PRES_IMPO       =FACT(statut='f',min=01,max='**',
 624            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
 625            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 626            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 627            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 628            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 629            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 630            PRES            =SIMP(statut='o',typ='C' ),
 631          ),
 632          VITE_FACE       =FACT(statut='f',min=01,max='**',
 633              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
 634                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
 635            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 636            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 637            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 638            VNOR            =SIMP(statut='o',typ='C' ),
 639          ),
 640          IMPE_FACE       =FACT(statut='f',min=01,max='**',
 641              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
 642                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
 643            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 644            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 645            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 646            IMPE            =SIMP(statut='o',typ='C' ),
 647          ),
 648          LIAISON_UNIF    =FACT(statut='f',min=01,max='**',
 649            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE' ),),
 650            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 651            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 652            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 653            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 654            DDL             =SIMP(statut='o',typ='TXM',max='**'),
 655          ),
 656 )  ;
 657 #& MODIF COMMANDE  DATE 21/06/2001   AUTEUR VABHHTS J.PELLET
 658 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 659 # ======================================================================
 660 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 661 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
 662 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
 663 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
 664 # (AT YOUR OPTION) ANY LATER VERSION.
 665 #
 666 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
 667 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
 668 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
 669 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
 670 #
 671 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
 672 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 673 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 674 # ======================================================================
 675 # RESPONSABLE VABHHTS J.PELLET
 676 def affe_char_cine_prod(MECA_IMPO,THER_IMPO,ACOU_IMPO,**args):
 677   if MECA_IMPO != None  : return char_cine_meca
 678   if THER_IMPO != None  : return char_cine_ther
 679   if ACOU_IMPO != None  : return char_cine_acou
 680   raise AsException("type de concept resultat non prevu")
 681
 682 AFFE_CHAR_CINE=OPER(nom="AFFE_CHAR_CINE",op= 101,sd_prod=affe_char_cine_prod
 683                     ,fr="Affectation de conditions aux limites cinématiques pour traitement sans dualisation",
 684                      docu="U4.44.03-e",reentrant='n',
 685          regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO','ACOU_IMPO'),
 686                  EXCLUS('MECA_IMPO','THER_IMPO'),
 687                  EXCLUS('MECA_IMPO','ACOU_IMPO'),
 688                  EXCLUS('THER_IMPO','ACOU_IMPO'),),
 689          MODELE          =SIMP(statut='o',typ=modele ),
 690          MECA_IMPO       =FACT(statut='f',min=01,max='**',
 691            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
 692                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','TEMP','PHI'),),
 693            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 694            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 695            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 696            DX              =SIMP(statut='f',typ='R' ),
 697            DY              =SIMP(statut='f',typ='R' ),
 698            DZ              =SIMP(statut='f',typ='R' ),
 699            DRX             =SIMP(statut='f',typ='R' ),
 700            DRY             =SIMP(statut='f',typ='R' ),
 701            DRZ             =SIMP(statut='f',typ='R' ),
 702            GRX             =SIMP(statut='f',typ='R' ),
 703            PRES            =SIMP(statut='f',typ='R' ),
 704            TEMP            =SIMP(statut='f',typ='R' ),
 705            PHI             =SIMP(statut='f',typ='R' ),
 706          ),
 707          THER_IMPO       =FACT(statut='f',min=01,max='**',
 708            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
 709                    AU_MOINS_UN('TEMP','TEMP_INF','TEMP_SUP'),),
 710            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 711            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 712            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 713            TEMP_SUP        =SIMP(statut='f',typ='R' ),
 714            TEMP            =SIMP(statut='f',typ='R' ),
 715            TEMP_INF        =SIMP(statut='f',typ='R' ),
 716          ),
 717          ACOU_IMPO       =FACT(statut='f',min=01,max='**',
 718            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD' ),),
 719            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 720            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 721            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 722            PRES            =SIMP(statut='o',typ='C' ),
 723          ),
 724          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 725 )  ;
 726 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
 727 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 728 # ======================================================================
 729 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 730 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
 731 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
 732 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
 733 # (AT YOUR OPTION) ANY LATER VERSION.
 734 #
 735 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
 736 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
 737 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
 738 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
 739 #
 740 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
 741 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 742 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 743 # ======================================================================
 744 def affe_char_cine_f_prod(MECA_IMPO,THER_IMPO,**args):
 745   if MECA_IMPO != None  : return char_cine_meca
 746   if THER_IMPO != None  : return char_cine_ther
 747   raise AsException("type de concept resultat non prevu")
 748
 749 AFFE_CHAR_CINE_F=OPER(nom="AFFE_CHAR_CINE_F",op= 108,sd_prod=affe_char_cine_f_prod
 750                     ,fr="Affectation de conditions aux limites cinématiques pour traitement sans dualisation",
 751                      docu="U4.44.03-e",reentrant='n',
 752          regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO'),
 753                  EXCLUS('MECA_IMPO','THER_IMPO'),),
 754          MODELE          =SIMP(statut='o',typ=modele ),
 755          MECA_IMPO       =FACT(statut='f',min=01,max='**',
 756            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
 757                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','TEMP','PHI'),),
 758            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 759            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 760            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 761            DX              =SIMP(statut='f',typ=fonction ),
 762            DY              =SIMP(statut='f',typ=fonction ),
 763            DZ              =SIMP(statut='f',typ=fonction ),
 764            DRX             =SIMP(statut='f',typ=fonction ),
 765            DRY             =SIMP(statut='f',typ=fonction ),
 766            DRZ             =SIMP(statut='f',typ=fonction ),
 767            GRX             =SIMP(statut='f',typ=fonction ),
 768            PRES            =SIMP(statut='f',typ=fonction ),
 769            TEMP            =SIMP(statut='f',typ=fonction ),
 770            PHI             =SIMP(statut='f',typ=fonction ),
 771          ),
 772          THER_IMPO       =FACT(statut='f',min=01,max='**',
 773            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
 774                    AU_MOINS_UN('TEMP','TEMP_INF','TEMP_SUP' ),),
 775            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 776            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 777            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 778            TEMP_SUP        =SIMP(statut='f',typ=fonction ),
 779            TEMP            =SIMP(statut='f',typ=fonction ),
 780            TEMP_INF        =SIMP(statut='f',typ=fonction ),
 781          ),
 782          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 783 )  ;
 784 #& MODIF COMMANDE  DATE 13/08/2002   AUTEUR ADBHHPM P.MASSIN
 785 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 786 # ======================================================================
 787 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 788 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
 789 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
 790 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
 791 # (AT YOUR OPTION) ANY LATER VERSION.
 792 #
 793 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
 794 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
 795 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
 796 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
 797 #
 798 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
 799 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 800 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 801 # ======================================================================
 802 # RESPONSABLE G8BHHXD X.DESROCHES
 803 AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca
 804                     ,fr="Affectation de charges et conditions aux limites mécaniques constantes",
 805                      docu="U4.44.01-g2",reentrant='n',
 806          regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
 807                              'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
 808                              'PRES_REP','FORCE_POUTRE','FORCE_COQUE','LIAISON_OBLIQUE',
 809                              'FORCE_ELEC','INTE_ELEC','PESANTEUR','ROTATION','IMPE_FACE',
 810                              'VITE_FACE','TEMP_CALCULEE','RELA_CINE_BP','EPSI_INIT','CONTACT',
 811                              'LIAISON_UNIL_NO','LIAISON_GROUP','LIAISON_UNIF','FLUX_THM_REP',
 812                              'LIAISON_SOLIDE','LIAISON_ELEM','ONDE_FLUI','PRES_CALCULEE',
 813                              'EPSA_CALCULEE','LIAISON_CHAMNO','VECT_ASSE','LIAISON_COQUE',
 814                              'LIAISON_MAIL','FORCE_TUYAU','SECH_CALCULEE','HYDR_CALCULEE',
 815                              'EFFE_FOND','EVOL_CHAR','ARLEQUIN'),
 816                  EXCLUS('PRES_CALCULEE','EVOL_CHAR'),
 817                  EXCLUS('LIAISON_UNIL_NO','CONTACT'),),
 818
 819          MODELE          =SIMP(statut='o',typ=(modele) ),
 820          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
 821          VERI_NORM       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
 822 #    A TERME PRES_CALCULEE N'EXISTERA PLUS
 823          EVOL_CHAR       =SIMP(statut='f',fr="Champ de pression issu d'un autre calcul",
 824                                typ=evol_char ),
 825          PRES_CALCULEE   =SIMP(statut='f',fr="Champ de pression issu d'un autre calcul",
 826                                typ=evol_char ),
 827          TEMP_CALCULEE   =SIMP(statut='f',fr="Champ de température issu d'un autre calcul",
 828                                typ=(evol_ther,cham_no_temp_r,carte_temp_r,carte_temp_f ) ),
 829          HYDR_CALCULEE   =SIMP(statut='f',fr="Champ d hydratation issu d'un autre calcul",
 830                                typ=evol_ther ),
 831          SECH_CALCULEE   =SIMP(statut='f',fr="Champ de séchage issu d'un autre calcul",
 832                                typ=(evol_ther,cham_no_temp_r,carte_temp_r,carte_temp_f ) ),
 833          EPSA_CALCULEE   =SIMP(statut='f',fr="Champ de déformation anélastique issu d'un autre calcul",
 834                                typ=evol_noli ),
 835          VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
 836
 837          ARLEQUIN        =FACT(statut='f',min=1,max='**',
 838            GROUP_MA_1     =SIMP(statut='o',typ=grma,max='**'),
 839            GROUP_MA_2     =SIMP(statut='o',typ=grma,max='**'),
 840            GROUP_MA_COLL  =SIMP(statut='o',typ=grma,max='**'),
 841            CARA_ELEM      =SIMP(statut='f',typ=(cara_elem) ),
 842            regles        =(UN_PARMI('POIDS_1','POIDS_2'),),
 843            POIDS_1       =SIMP(statut='f',typ='R'),
 844            POIDS_2       =SIMP(statut='f',typ='R'),
 845          ),
 846
 847          CONTACT         =FACT(statut='f',fr="Imposer du contact avec ou sans frottement",min=1,max='**',
 848            regles=(UN_PARMI('GROUP_MA_2','MAILLE_2'),),
 849            APPARIEMENT     =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
 850                                  into=("NON","NODAL","NODAL_SYME","MAIT_ESCL","MAIT_ESCL_SYME")),
 851            RECHERCHE       =SIMP(statut='f',typ='TXM',defaut="NOEUD_VOISIN",into=("NOEUD_BOUCLE","NOEUD_VOISIN")),
 852            LISSAGE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
 853            NORMALE         =SIMP(statut='f',typ='TXM',defaut="MAIT",into=("MAIT","MAIT_ESCL")),
 854            METHODE         =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
 855                                  into=("CONTRAINTE","LAGRANGIEN","PENALISATION","CONTINUE") ),
 856            PROJECTION      =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","QUADRATIQUE") ),
 857            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
 858            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
 859            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
 860            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
 861            b_active        =BLOC(condition = "METHODE == 'CONTRAINTE' ",
 862                                  fr="Paramètres de la méthode des contraintes actives (contact uniquement)",
 863                 regles=(EXCLUS('DIST_2','COEF_IMPO'),
 864                         EXCLUS('DIST_1','COEF_IMPO'),),
 865                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","PRES","TEMP")),
 866                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS",) ),
 867                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
 868                 b_act_reac      =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
 869                                  fr="Paramètre de la réactualisation géométrique",
 870                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
 871                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
 872                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
 873                 COEF_IMPO       =SIMP(statut='f',typ='R'),
 874                 COEF_MULT_2     =SIMP(statut='f',typ='R'),
 875                 VECT_NORM_2     =SIMP(statut='f',typ='R',max=3),
 876                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
 877                 DIST_1          =SIMP(statut='f',typ='R'),
 878                 DIST_2          =SIMP(statut='f',typ='R'),),
 879            b_lagrangien    =BLOC(condition = "METHODE == 'LAGRANGIEN' ",
 880                                  fr="Paramètres de la méthode Lagrangienne (contact avec ou sans frottement)",
 881                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
 882                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
 883                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
 884                 b_lag_reac      =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
 885                                  fr="Paramètre de la réactualisation géométrique",
 886                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
 887                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
 888                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
 889                 DIST_1          =SIMP(statut='f',typ='R'),
 890                 DIST_2          =SIMP(statut='f',typ='R'),
 891                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
 892                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
 893                      COULOMB         =SIMP(statut='o',typ='R',max=1),
 894                      COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut=0.E+0),
 895                      ),),
 896            b_penalisation       =BLOC(condition = "METHODE == 'PENALISATION' ",
 897                                       fr="Paramètres de la méthode pénalisée (contact avec ou sans frottement)",
 898                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
 899                 E_N             =SIMP(statut='f',typ='R'),
 900                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
 901                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
 902                 b_pen_reac      =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
 903                                  fr="Paramètre de la réactualisation géométrique",
 904                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
 905                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
 906                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
 907                 DIST_1          =SIMP(statut='f',typ='R'),
 908                 DIST_2          =SIMP(statut='f',typ='R'),
 909                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
 910                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
 911                      COULOMB         =SIMP(statut='o',typ='R',max=1),
 912                      E_T             =SIMP(statut='f',typ='R',
 913                                            fr="Active la pénalisation sur le frottement et définit le coefficient de pénalisation"),
 914                      COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut=0.E+0),
 915                      ),),
 916            b_continue      =BLOC(condition = "METHODE == 'CONTINUE' ",
 917                                  fr="Paramètres de la méthode continue (contact avec ou sans frottement)",
 918                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
 919                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
 920                 INTEGRATION     =SIMP(statut='f',typ='TXM',defaut="NOEUD",into=("GAUSS","NOEUD","SIMPSON","SIMPSON1","SIMPSON2")),
 921                 COEF_REGU_CONT  =SIMP(statut='f',typ='R',defaut=100.E+0),
 922                 MODL_AXIS       =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
 923                 DIRECTION_APPA  =SIMP(statut='f',typ='R',max=3),
 924                 ITER_GEOM_MAXI  =SIMP(statut='f',typ='I',defaut=2),
 925                 ITER_CONT_MAXI  =SIMP(statut='f',typ='I',defaut=30),
 926                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
 927                      COULOMB         =SIMP(statut='o',typ='R',max=1),
 928                      ITER_FROT_MAXI  =SIMP(statut='f',typ='I',defaut=2),
 929                      COEF_REGU_FROT  =SIMP(statut='f',typ='R',defaut=100.E+0),
 930                      SEUIL_INIT      =SIMP(statut='f',typ='I',defaut=0),),),
 931          ),
 932
 933         DDL_IMPO        =FACT(statut='f',min=1,max='**',
 934              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
 935                      AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
 936                                  'TEMP','PRE1','PRE2','UI2','UI3','VI2','VI3','WI2','WI3','UO2',
 937                                  'UO3','VO2','VO3','WO2','WO3','UI4','UI5','VI4','VI5','WI4',
 938                                  'WI5','UO4','UO5','VO4','VO5','WO4','WO5','UI6','UO6','VI6',
 939                                  'VO6','WI6','WO6','WO','WI1','WO1','GONF'),),
 940              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 941              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 942              NOEUD           =SIMP(statut='f',typ=no,max='**'),
 943              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 944              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 945              DX              =SIMP(statut='f',typ='R' ),
 946              DY              =SIMP(statut='f',typ='R' ),
 947              DZ              =SIMP(statut='f',typ='R' ),
 948              DRX             =SIMP(statut='f',typ='R' ),
 949              DRY             =SIMP(statut='f',typ='R' ),
 950              DRZ             =SIMP(statut='f',typ='R' ),
 951              GRX             =SIMP(statut='f',typ='R' ),
 952              PRES            =SIMP(statut='f',typ='R' ),
 953              PHI             =SIMP(statut='f',typ='R' ),
 954              TEMP            =SIMP(statut='f',typ='R' ),
 955              PRE1            =SIMP(statut='f',typ='R' ),
 956              PRE2            =SIMP(statut='f',typ='R' ),
 957              UI2             =SIMP(statut='f',typ='R' ),
 958              UI3             =SIMP(statut='f',typ='R' ),
 959              UI4             =SIMP(statut='f',typ='R' ),
 960              UI5             =SIMP(statut='f',typ='R' ),
 961              UI6             =SIMP(statut='f',typ='R' ),
 962              UO2             =SIMP(statut='f',typ='R' ),
 963              UO3             =SIMP(statut='f',typ='R' ),
 964              UO4             =SIMP(statut='f',typ='R' ),
 965              UO5             =SIMP(statut='f',typ='R' ),
 966              UO6             =SIMP(statut='f',typ='R' ),
 967              VI2             =SIMP(statut='f',typ='R' ),
 968              VI3             =SIMP(statut='f',typ='R' ),
 969              VI4             =SIMP(statut='f',typ='R' ),
 970              VI5             =SIMP(statut='f',typ='R' ),
 971              VI6             =SIMP(statut='f',typ='R' ),
 972              VO2             =SIMP(statut='f',typ='R' ),
 973              VO3             =SIMP(statut='f',typ='R' ),
 974              VO4             =SIMP(statut='f',typ='R' ),
 975              VO5             =SIMP(statut='f',typ='R' ),
 976              VO6             =SIMP(statut='f',typ='R' ),
 977              WI2             =SIMP(statut='f',typ='R' ),
 978              WI3             =SIMP(statut='f',typ='R' ),
 979              WI4             =SIMP(statut='f',typ='R' ),
 980              WI5             =SIMP(statut='f',typ='R' ),
 981              WI6             =SIMP(statut='f',typ='R' ),
 982              WO2             =SIMP(statut='f',typ='R' ),
 983              WO3             =SIMP(statut='f',typ='R' ),
 984              WO4             =SIMP(statut='f',typ='R' ),
 985              WO5             =SIMP(statut='f',typ='R' ),
 986              WO6             =SIMP(statut='f',typ='R' ),
 987              WO              =SIMP(statut='f',typ='R' ),
 988              WI1             =SIMP(statut='f',typ='R' ),
 989              WO1             =SIMP(statut='f',typ='R' ),
 990              GONF            =SIMP(statut='f',typ='R' ),
 991            ),
 992
 993          EFFE_FOND       =FACT(statut='f',fr="Imposer un effet de fond",min=1,max='**',
 994            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
 995            GROUP_MA_INT    =SIMP(statut='o',typ=grma,max='**'),
 996            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 997            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 998            PRES            =SIMP(statut='o',typ='R' ),
 999          ),
1000
1001          EPSI_INIT       =FACT(statut='f',fr="Appliquer un chargement de déformation initiale à un volume 3D ou 2D",
1002                                  min=1,max='**',
1003              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1004                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1005                      AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ','EPX',
1006                                  'KY','KZ','EXX','EYY','EXY','KXX','KYY','KXY'),),
1007              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1008              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1009              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1010              EPXX            =SIMP(statut='f',typ='R' ),
1011              EPYY            =SIMP(statut='f',typ='R' ),
1012              EPZZ            =SIMP(statut='f',typ='R' ),
1013              EPXY            =SIMP(statut='f',typ='R' ),
1014              EPXZ            =SIMP(statut='f',typ='R' ),
1015              EPYZ            =SIMP(statut='f',typ='R' ),
1016              EPX             =SIMP(statut='f',typ='R' ),
1017              KY              =SIMP(statut='f',typ='R' ),
1018              KZ              =SIMP(statut='f',typ='R' ),
1019              EXX             =SIMP(statut='f',typ='R' ),
1020              EYY             =SIMP(statut='f',typ='R' ),
1021              EXY             =SIMP(statut='f',typ='R' ),
1022              KXX             =SIMP(statut='f',typ='R' ),
1023              KYY             =SIMP(statut='f',typ='R' ),
1024              KXY             =SIMP(statut='f',typ='R' ),
1025            ),
1026
1027            FACE_IMPO       =FACT(statut='f',min=1,max='**',
1028              regles=(UN_PARMI('GROUP_MA','MAILLE',),
1029                      AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
1030                                  'TEMP','PRE1','PRE2','DNOR','DTAN'),
1031                      EXCLUS('DNOR','DX'),
1032                      EXCLUS('DNOR','DY'),
1033                      EXCLUS('DNOR','DZ'),
1034                      EXCLUS('DNOR','DRX'),
1035                      EXCLUS('DNOR','DRY'),
1036                      EXCLUS('DNOR','DRZ'),
1037                      EXCLUS('DTAN','DX'),
1038                      EXCLUS('DTAN','DY'),
1039                      EXCLUS('DTAN','DZ'),
1040                      EXCLUS('DTAN','DRX'),
1041                      EXCLUS('DTAN','DRY'),
1042                      EXCLUS('DTAN','DRZ'),),
1043 #  rajout d'un mot clé REPERE :/ LOCAL /GLOBAL
1044              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1045              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1046              DX              =SIMP(statut='f',typ='R' ),
1047              DY              =SIMP(statut='f',typ='R' ),
1048              DZ              =SIMP(statut='f',typ='R' ),
1049              DRX             =SIMP(statut='f',typ='R' ),
1050              DRY             =SIMP(statut='f',typ='R' ),
1051              DRZ             =SIMP(statut='f',typ='R' ),
1052              DNOR            =SIMP(statut='f',typ='R' ),
1053              DTAN            =SIMP(statut='f',typ='R' ),
1054              GRX             =SIMP(statut='f',typ='R' ),
1055              PRES            =SIMP(statut='f',typ='R' ),
1056              PHI             =SIMP(statut='f',typ='R' ),
1057              TEMP            =SIMP(statut='f',typ='R' ),
1058              PRE1            =SIMP(statut='f',typ='R' ),
1059              PRE2            =SIMP(statut='f',typ='R' ),
1060            ),
1061
1062          FLUX_THM_REP    =FACT(statut='f',min=1,max='**',
1063              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1064                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1065                      AU_MOINS_UN('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
1066              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1067              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1068              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1069              FLUN            =SIMP(statut='f',typ='R' ),
1070              FLUN_HYDR1      =SIMP(statut='f',typ='R' ),
1071              FLUN_HYDR2      =SIMP(statut='f',typ='R' ),
1072            ),
1073
1074          FORCE_ARETE     =FACT(statut='f',fr="Appliquer des forces linéiques à une arete d élément volumique ou de coque",
1075                                  min=1,max='**',
1076              regles=(AU_MOINS_UN('GROUP_MA','MAILLE',),
1077                      AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
1078              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1079              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1080              FX              =SIMP(statut='f',typ='R' ),
1081              FY              =SIMP(statut='f',typ='R' ),
1082              FZ              =SIMP(statut='f',typ='R' ),
1083              MX              =SIMP(statut='f',typ='R' ),
1084              MY              =SIMP(statut='f',typ='R' ),
1085              MZ              =SIMP(statut='f',typ='R' ),
1086            ),
1087
1088            FORCE_COQUE     =FACT(statut='f',fr="Appliquer des forces surfaciques sur des coques",min=1,max='**',
1089              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1090                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1091                      AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
1092                      PRESENT_ABSENT('FX','PRES','F1','F2','F3','MF1','MF2'),
1093                      PRESENT_ABSENT('FY','PRES','F1','F2','F3','MF1','MF2'),
1094                      PRESENT_ABSENT('FZ','PRES','F1','F2','F3','MF1','MF2'),
1095                      PRESENT_ABSENT('MX','PRES','F1','F2','F3','MF1','MF2'),
1096                      PRESENT_ABSENT('MY','PRES','F1','F2','F3','MF1','MF2'),
1097                      PRESENT_ABSENT('MZ','PRES','F1','F2','F3','MF1','MF2'),
1098                      PRESENT_ABSENT('F1','FX','FY','FZ','MX','MY','MZ','PRES'),
1099                      PRESENT_ABSENT('F2','FX','FY','FZ','MX','MY','MZ','PRES'),
1100                      PRESENT_ABSENT('F3','FX','FY','FZ','MX','MY','MZ','PRES'),
1101                      PRESENT_ABSENT('MF1','FX','FY','FZ','MX','MY','MZ','PRES'),
1102                      PRESENT_ABSENT('MF2','FX','FY','FZ','MX','MY','MZ','PRES'),
1103                      PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
1104 #  rajour d'un mot clé REPERE :/ LOCAL /GLOBAL
1105              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1106              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1107              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1108
1109                FX              =SIMP(statut='f',typ='R' ),
1110                FY              =SIMP(statut='f',typ='R' ),
1111                FZ              =SIMP(statut='f',typ='R' ),
1112                MX              =SIMP(statut='f',typ='R' ),
1113                MY              =SIMP(statut='f',typ='R' ),
1114                MZ              =SIMP(statut='f',typ='R' ),
1115
1116                F1              =SIMP(statut='f',typ='R' ),
1117                F2              =SIMP(statut='f',typ='R' ),
1118                F3              =SIMP(statut='f',typ='R' ),
1119                MF1             =SIMP(statut='f',typ='R' ),
1120                MF2             =SIMP(statut='f',typ='R' ),
1121
1122              PRES            =SIMP(statut='f',typ='R' ),
1123              PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL",) ),
1124            ),
1125
1126          FORCE_CONTOUR   =FACT(statut='f',fr="Appliquer des forces linéiques au bord d'un domaine 2D ou AXIS_FOURIER",
1127                                  min=1,max='**',
1128              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1129                      AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1130              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1131              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1132              FX              =SIMP(statut='f',typ='R' ),
1133              FY              =SIMP(statut='f',typ='R' ),
1134              FZ              =SIMP(statut='f',typ='R' ),
1135              MX              =SIMP(statut='f',typ='R' ),
1136              MY              =SIMP(statut='f',typ='R' ),
1137              MZ              =SIMP(statut='f',typ='R' ),
1138            ),
1139
1140          FORCE_ELEC      =FACT(statut='f',
1141                                  fr="Force de Laplace due à la présence d'un conducteur rectiligne secondaire non maillé",
1142                                  min=1,max='**',
1143              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1144                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1145                      AU_MOINS_UN('FX','FY','FZ','POSITION'),
1146                      EXCLUS('FX','POSITION'),
1147                      EXCLUS('FY','POSITION'),
1148                      EXCLUS('FZ','POSITION'),),
1149 #  trop de regles : les blocs conditionnels permettent d en suprimer
1150              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1151              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1152              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1153
1154              FX              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1155              FY              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1156              FZ              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1157
1158              POSITION        =SIMP(statut='f',typ='TXM',fr="Direction prédéfinie",into=("PARA","INFI","FINI",) ),
1159              b_para     =BLOC ( condition = "POSITION == 'PARA'",
1160                regles=(UN_PARMI('TRANS','DIST'),),
1161                TRANS           =SIMP(statut='f',typ='R',max=3),
1162                DIST            =SIMP(statut='f',typ='R' ),
1163                b_point2        =BLOC ( condition = "DIST != None",
1164                  POINT2           =SIMP(statut='o',typ='R',max=3),
1165                ),
1166              ),
1167              b_fini_infi     =BLOC ( condition = "(POSITION == 'FINI') or (POSITION == 'INFI')",
1168                POINT1          =SIMP(statut='o',typ='R',max=3),
1169                POINT2          =SIMP(statut='o',typ='R',max=3),
1170              ),
1171            ),
1172
1173          FORCE_FACE      =FACT(statut='f',fr="Appliquer des forces surfaciques sur une face d'éléments volumiques",
1174                                  min=1,max='**',
1175              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1176                      AU_MOINS_UN('FX','FY','FZ'),),
1177              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1178              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1179              FX              =SIMP(statut='f',typ='R' ),
1180              FY              =SIMP(statut='f',typ='R' ),
1181              FZ              =SIMP(statut='f',typ='R' ),
1182            ),
1183
1184          FORCE_INTERNE   =FACT(statut='f',fr="Appliquer des forces volumiques (2D ou 3D) à un domaine volumique",
1185                                  min=1,max='**',
1186              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1187                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1188                      AU_MOINS_UN('FX','FY','FZ' ),),
1189              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1190              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1191              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1192              FX              =SIMP(statut='f',typ='R' ),
1193              FY              =SIMP(statut='f',typ='R' ),
1194              FZ              =SIMP(statut='f',typ='R' ),
1195            ),
1196
1197          IMPE_FACE       =FACT(statut='f',fr="Appliquer une impédance acoustique à une face",min=1,max='**',
1198              regles=(AU_MOINS_UN('GROUP_MA','MAILLE' ),),
1199              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1200              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1201              IMPE            =SIMP(statut='o',typ='R' ),
1202            ),
1203
1204          FORCE_NODALE    =FACT(statut='f',fr="Imposer des forces nodales en des noeuds",min=1,max='**',
1205            regles=(AU_MOINS_UN('GROUP_NO','NOEUD'),
1206                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
1207            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1208            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1209            FX              =SIMP(statut='f',typ='R' ),
1210            FY              =SIMP(statut='f',typ='R' ),
1211            FZ              =SIMP(statut='f',typ='R' ),
1212            MX              =SIMP(statut='f',typ='R' ),
1213            MY              =SIMP(statut='f',typ='R' ),
1214            MZ              =SIMP(statut='f',typ='R' ),
1215            ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
1216          ),
1217
1218         FORCE_POUTRE    =FACT(statut='f',fr="Appliquer des forces linéiques sur des poutres",min=1,max='**',
1219              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1220                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1221                      AU_MOINS_UN('FX','FY','FZ','N','VY','VZ'),
1222                      PRESENT_ABSENT('FX','N','VY','VZ'),
1223                      PRESENT_ABSENT('FY','N','VY','VZ'),
1224                      PRESENT_ABSENT('FZ','N','VY','VZ'),
1225                      PRESENT_ABSENT('N','FX','FY','FZ'),
1226                      PRESENT_ABSENT('VY','FX','FY','FZ'),
1227                      PRESENT_ABSENT('VZ','FX','FY','FZ'),),
1228              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1229              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1230              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1231              TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE",) ),
1232 #  rajour d'un mot clé REPERE :/ LOCAL /GLOBAL
1233                FX              =SIMP(statut='f',typ='R' ),
1234                FY              =SIMP(statut='f',typ='R' ),
1235                FZ              =SIMP(statut='f',typ='R' ),
1236
1237                N               =SIMP(statut='f',typ='R' ),
1238                VY              =SIMP(statut='f',typ='R' ),
1239                VZ              =SIMP(statut='f',typ='R' ),
1240
1241            ),
1242
1243          FORCE_TUYAU     =FACT(statut='f',fr="imposer une pression dans un élément TUYAU",min=1,max='**',
1244              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1245                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
1246              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1247              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1248              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1249              PRES            =SIMP(statut='f',typ='R' ),
1250            ),
1251
1252         INTE_ELEC       =FACT(statut='f',fr="Force de Laplace due à la présence d'un conducteur non rectiligne secondaire",
1253                                  min=1,max='**',
1254              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1255                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1256                      AU_MOINS_UN('GROUP_MA_2','MAILLE_2','TRANS','SYME'),
1257                      EXCLUS('TRANS','SYME'),),
1258              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1259              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1260              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1261              GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1262              MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1263              TRANS           =SIMP(statut='f',typ='R',max='**'),
1264              SYME            =SIMP(statut='f',typ='R',max='**'),
1265            ),
1266
1267          LIAISON_CHAMNO  =FACT(statut='f',fr="définir une relation linéaire entre tous les ddls d'un concept cham_nno",
1268                                  min=1,max='**',
1269 #  type de cham_no CO()
1270              CHAM_NO         =SIMP(statut='o',typ=cham_no), #CO()
1271              COEF_IMPO       =SIMP(statut='o',typ='R' ),
1272              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1273            ),
1274
1275            LIAISON_COQUE   =FACT(statut='f',min=1,max='**',
1276              GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1277              MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1278              GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
1279              NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
1280              GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1281              MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1282              GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
1283              NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1284              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1285            ),
1286            LIAISON_DDL     =FACT(statut='f',fr="Définir une relation linéaire entre des ddls de deux ou plusieurs noeuds",
1287                                  min=1,max='**',
1288              regles=(UN_PARMI('GROUP_NO','NOEUD'),),
1289              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1290              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1291              DDL             =SIMP(statut='o',typ='TXM',max='**'),
1292              COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
1293              COEF_IMPO       =SIMP(statut='o',typ='R' ),
1294            ),
1295
1296            LIAISON_ELEM    =FACT(statut='f',fr="Raccorder une poutre à une partie massive 3D ou une coque", min=1,max='**',
1297              regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
1298                      UN_PARMI('GROUP_NO_2','NOEUD_2'),),
1299              OPTION          =SIMP(statut='o',typ='TXM',into=("3D_TUYAU","3D_POU","COQ_POU","COQ_TUYAU") ),
1300              GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1301              MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1302              GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
1303              NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1304              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1305              CARA_ELEM       =SIMP(statut='f',typ=(cara_elem) ),
1306              AXE_POUTRE      =SIMP(statut='f',typ='R',max=3),
1307              ANGL_MAX        =SIMP(statut='f',typ='R',defaut= 1. ),
1308            ),
1309
1310            LIAISON_GROUP   =FACT(statut='f',fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1311                                  min=1,max='**',
1312              regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1313                      UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1314                      EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1315                      EXCLUS('GROUP_MA_1','NOEUD_2'),
1316                      EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1317                      EXCLUS('GROUP_NO_1','MAILLE_2'),
1318                      EXCLUS('MAILLE_1','GROUP_NO_2'),
1319                      EXCLUS('MAILLE_1','NOEUD_2'),
1320                      EXCLUS('NOEUD_1','GROUP_MA_2'),
1321                      EXCLUS('NOEUD_1','MAILLE_2'),
1322                      EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1323
1324                GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1325                MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1326                GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1327                MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1328                GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
1329                NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
1330                GROUP_NO_2      =SIMP(statut='f',typ=no,max='**'),
1331                NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1332
1333              SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1334              SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1335              DDL_1           =SIMP(statut='o',typ='TXM',max='**'),
1336              COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
1337              DDL_2           =SIMP(statut='o',typ='TXM',max='**'),
1338              COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
1339              COEF_IMPO       =SIMP(statut='o',typ='R' ),
1340              SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1341              TRAN            =SIMP(statut='f',typ='R',max=3),
1342              ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
1343              CENTRE          =SIMP(statut='f',typ='R',max=3),
1344            ),
1345
1346            LIAISON_OBLIQUE =FACT(statut='f',fr="Appliquer à des noeuds une valeur de déplacement dans un repere oblique",
1347                                  min=1,max='**',
1348              regles=(UN_PARMI('GROUP_NO','NOEUD'),
1349                      UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
1350              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1351              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1352              ANGL_NAUT       =SIMP(statut='o',typ='R',max=3),
1353              DX              =SIMP(statut='f',typ='R' ),
1354              DY              =SIMP(statut='f',typ='R' ),
1355              DZ              =SIMP(statut='f',typ='R' ),
1356              DRX             =SIMP(statut='f',typ='R' ),
1357              DRY             =SIMP(statut='f',typ='R' ),
1358              DRZ             =SIMP(statut='f',typ='R' ),
1359            ),
1360
1361            LIAISON_SOLIDE  =FACT(statut='f',fr="Modéliser une partie indéformable d'une structure",min=1,max='**',
1362              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1363              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1364              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1365              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1366              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1367              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1368            ),
1369
1370            LIAISON_UNIF    =FACT(statut='f',fr="Imposer une meme valeur (inconnue) à des ddls d'un emsemble de noeuds",
1371                                  min=1,max='**',
1372              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1373              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1374              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1375              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1376              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1377              DDL             =SIMP(statut='o',typ='TXM',max='**'),
1378            ),
1379
1380          LIAISON_UNIL_NO =FACT(statut='f',min=1,max='**',
1381            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
1382                    UN_PARMI('GROUP_MA_2','MAILLE_2'),),
1383            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),# CO()
1384            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),# CO()
1385            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),# CO()
1386            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),# CO()
1387            SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1388            TRAN            =SIMP(statut='f',typ='R',max=3 ),
1389            ANGL_NAUT       =SIMP(statut='f',typ='R',max=3 ),
1390            CENTRE          =SIMP(statut='f',typ='R',max=3 ),
1391            ANGLE_MAX       =SIMP(statut='f',typ='R' ),
1392            VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
1393            FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",
1394                                  into=("SANS","TRESCA","COULOMB") ),
1395            METHODE         =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
1396                                  into=("CONTRAINTE","LAGRANGIEN","PENALISATION") ),
1397            COULOMB         =SIMP(statut='f',typ='R' ),
1398            TRESCA          =SIMP(statut='f',typ='R' ),
1399            E_T             =SIMP(statut='f',typ='R' ),
1400            COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1401            CONTACT         =SIMP(statut='f',typ='TXM',into=("MAINTENU",) ),
1402            JEU             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1403          ),
1404
1405            LIAISON_MAIL    =FACT(statut='f',min=1,max='**',
1406              regles=(AU_MOINS_UN('GROUP_MA_MAIT','MAILLE_MAIT'),
1407                      AU_MOINS_UN('GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL','NOEUD_ESCL'),
1408                      PRESENT_PRESENT('DDL_MAIT','DDL_ESCL'),),
1409               GROUP_MA_MAIT   =SIMP(statut='f',typ=grma,max='**'),
1410               MAILLE_MAIT     =SIMP(statut='f',typ=ma,max='**'),
1411               GROUP_MA_ESCL   =SIMP(statut='f',typ=grma,max='**'),
1412               MAILLE_ESCL     =SIMP(statut='f',typ=ma,max='**'),
1413               GROUP_NO_ESCL   =SIMP(statut='f',typ=grno,max='**'),
1414               NOEUD_ESCL      =SIMP(statut='f',typ=no,max='**'),
1415               TRAN            =SIMP(statut='f',typ='R',max=3 ),
1416               ANGL_NAUT       =SIMP(statut='f',typ='R',max=3 ),
1417               CENTRE          =SIMP(statut='f',typ='R',max=3 ),
1418               DDL_MAIT        =SIMP(statut='f',typ='TXM',into=("DNOR",) ),
1419               DDL_ESCL        =SIMP(statut='f',typ='TXM',into=("DNOR",) ),
1420          ),
1421
1422          ONDE_FLUI       =FACT(statut='f',fr="Appliquer une amplitude de pression d onde incidente",min=1,max='**',
1423              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1424              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1425              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1426              PRES            =SIMP(statut='o',typ='R' ),
1427            ),
1428
1429          PRES_REP        =FACT(statut='f',fr="Appliquer une pression à un domaine de milieu continu 2D ou 3D",
1430                                  min=1,max='**',
1431              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1432                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1433                      AU_MOINS_UN('PRES','CISA_2D' ),),
1434              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1435              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1436              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1437              PRES            =SIMP(statut='f',typ='R' ),
1438              CISA_2D         =SIMP(statut='f',typ='R' ),
1439            ),
1440
1441          PESANTEUR       =SIMP(statut='f',typ='R',fr="Champ de pesanteur",min=4,max=4),
1442
1443          RELA_CINE_BP    =FACT(statut='f',min=1,max='**',
1444            CABLE_BP        =SIMP(statut='o',typ=cabl_precont ),
1445            SIGM_BPEL       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1446            RELA_CINE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1447          ),
1448
1449         ROTATION        =SIMP(statut='f',typ='R',fr="Champ de rotation",min=4,max=4),
1450          b_rotation      =BLOC ( condition = "ROTATION != None",
1451            CENTRE          =SIMP(statut='f',typ='R',defaut=(0.,0.,0.),max=3),),
1452
1453          VITE_FACE       =FACT(statut='f',fr="Imposer des vitesses acoustiquesnormales à une face",min=1,max='**',
1454              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1455              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1456              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1457              VNOR            =SIMP(statut='o',typ='R' ),
1458            ),
1459          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1460 )  ;
1461 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
1462 #            CONFIGURATION MANAGEMENT OF EDF VERSION
1463 # ======================================================================
1464 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
1465 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1466 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1467 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1468 # (AT YOUR OPTION) ANY LATER VERSION.
1469 #
1470 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1471 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1472 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1473 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1474 #
1475 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1476 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1477 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1478 # ======================================================================
1479 # RESPONSABLE G8BHHXD X.DESROCHES
1480 AFFE_CHAR_MECA_C=OPER(nom="AFFE_CHAR_MECA_C",op=   7,sd_prod=char_meca,
1481                      fr="Affectation de charges et conditions aux limites mécaniques complexes",
1482                      docu="U4.44.05-d2",reentrant='n',
1483          regles=(AU_MOINS_UN('DDL_IMPO','FORCE_POUTRE','LIAISON_DDL', ),),
1484          MODELE          =SIMP(statut='o',typ=modele ),
1485          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1486          DDL_IMPO        =FACT(statut='f',min=01,max='**',
1487            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
1488                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI', ),),
1489            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1490            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1491            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1492            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1493            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1494            DX              =SIMP(statut='f',typ='C' ),
1495            DY              =SIMP(statut='f',typ='C' ),
1496            DZ              =SIMP(statut='f',typ='C' ),
1497            DRX             =SIMP(statut='f',typ='C' ),
1498            DRY             =SIMP(statut='f',typ='C' ),
1499            DRZ             =SIMP(statut='f',typ='C' ),
1500            GRX             =SIMP(statut='f',typ='C' ),
1501            PRES            =SIMP(statut='f',typ='C' ),
1502            PHI             =SIMP(statut='f',typ='C' ),
1503          ),
1504          FORCE_POUTRE    =FACT(statut='f',min=01,max='**',
1505            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1506                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1507                    AU_MOINS_UN('FX','FY','FZ','N','VY','VZ',),
1508                    PRESENT_ABSENT('FX','N','VY','VZ',),
1509                    PRESENT_ABSENT('FY','N','VY','VZ',),
1510                    PRESENT_ABSENT('FZ','N','VY','VZ',),
1511                    PRESENT_ABSENT('N','FX','FY','FZ',),
1512                    PRESENT_ABSENT('VY', 'FX','FY','FZ',),
1513                    PRESENT_ABSENT('VZ','FX','FY','FZ', ),),
1514            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1515            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1516            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1517            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE") ),
1518            FX              =SIMP(statut='f',typ='C' ),
1519            FY              =SIMP(statut='f',typ='C' ),
1520            FZ              =SIMP(statut='f',typ='C' ),
1521            N               =SIMP(statut='f',typ='C' ),
1522            VY              =SIMP(statut='f',typ='C' ),
1523            VZ              =SIMP(statut='f',typ='C' ),
1524          ),
1525          LIAISON_DDL     =FACT(statut='f',min=01,max='**',
1526            regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
1527            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1528            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1529            DDL             =SIMP(statut='o',typ='TXM',max='**'),
1530            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
1531            COEF_IMPO       =SIMP(statut='o',typ='C' ),
1532          ),
1533          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1534 )  ;
1535 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
1536 #            CONFIGURATION MANAGEMENT OF EDF VERSION
1537 # ======================================================================
1538 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
1539 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1540 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1541 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1542 # (AT YOUR OPTION) ANY LATER VERSION.
1543 #
1544 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1545 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1546 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1547 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1548 #
1549 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1550 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1551 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1552 # ======================================================================
1553 # RESPONSABLE G8BHHXD X.DESROCHES
1554 AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
1555                       fr="Affectation de charges et conditions aux limites mécaniques fonction d une grandeur",
1556                       docu="U4.44.01-g3",reentrant='n',
1557         regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
1558                             'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
1559                             'PRES_REP','FORCE_POUTRE','VITE_FACE','IMPE_FACE','ONDE_PLANE',
1560                             'LIAISON_OBLIQUE','EPSI_INIT','LIAISON_GROUP','LIAISON_UNIF',
1561                             'LIAISON_SOLIDE','FORCE_COQUE','LIAISON_COQUE','FORCE_TUYAU',
1562                             'CONTACT'),),
1563          MODELE          =SIMP(statut='o',typ=modele ),
1564          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1565          VERI_NORM       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1566
1567          DDL_IMPO        =FACT(statut='f',min=1,max='**',
1568            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
1569                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
1570                                'TEMP','PRE1','PRE2'),),
1571            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1572            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1573            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1574            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1575            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1576            DX              =SIMP(statut='f',typ=(fonction) ),
1577            DY              =SIMP(statut='f',typ=(fonction) ),
1578            DZ              =SIMP(statut='f',typ=(fonction) ),
1579            DRX             =SIMP(statut='f',typ=(fonction) ),
1580            DRY             =SIMP(statut='f',typ=(fonction) ),
1581            DRZ             =SIMP(statut='f',typ=(fonction) ),
1582            GRX             =SIMP(statut='f',typ=(fonction) ),
1583            PRES            =SIMP(statut='f',typ=(fonction) ),
1584            PHI             =SIMP(statut='f',typ=(fonction) ),
1585            TEMP            =SIMP(statut='f',typ=(fonction) ),
1586            PRE1            =SIMP(statut='f',typ=(fonction) ),
1587            PRE2            =SIMP(statut='f',typ=(fonction) ),
1588          ),
1589          LIAISON_UNIF    =FACT(statut='f',min=1,max='**',
1590                                fr="Imposer une meme valeur (inconnue) a des ddls d un emsemble de noeuds",
1591            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1592            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1593            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1594            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1595            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1596            DDL             =SIMP(statut='o',typ='TXM',max='**'),
1597          ),
1598          LIAISON_SOLIDE  =FACT(statut='f',min=1,max='**',
1599                                fr="Modéliser une partie indéformable d une structure",
1600            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1601            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1602            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1603            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1604            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1605            NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
1606          ),
1607          LIAISON_OBLIQUE =FACT(statut='f',min=1,max='**',
1608                                fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1609            regles=(UN_PARMI('GROUP_NO','NOEUD'),
1610                    UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
1611            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1612            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1613            ANGL_NAUT       =SIMP(statut='o',typ='R',max=3),
1614            DX              =SIMP(statut='f',typ=(fonction) ),
1615            DY              =SIMP(statut='f',typ=(fonction) ),
1616            DZ              =SIMP(statut='f',typ=(fonction) ),
1617            DRX             =SIMP(statut='f',typ=(fonction) ),
1618            DRY             =SIMP(statut='f',typ=(fonction) ),
1619            DRZ             =SIMP(statut='f',typ=(fonction) ),
1620          ),
1621          LIAISON_COQUE   =FACT(statut='f',min=1,max='**',
1622            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1623            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1624            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
1625            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
1626            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1627            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1628            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
1629            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1630            NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
1631          ),
1632          FACE_IMPO       =FACT(statut='f',min=1,max='**',
1633            regles=(UN_PARMI('GROUP_MA','MAILLE'),
1634                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI','TEMP','PRE1','PRE2','DNOR','DTAN'),
1635                    EXCLUS('DNOR','DX'),
1636                    EXCLUS('DNOR','DY'),
1637                    EXCLUS('DNOR','DZ'),
1638                    EXCLUS('DNOR','DRX'),
1639                    EXCLUS('DNOR','DRY'),
1640                    EXCLUS('DNOR','DRZ'),
1641                    EXCLUS('DTAN','DX'),
1642                    EXCLUS('DTAN','DY'),
1643                    EXCLUS('DTAN','DZ'),
1644                    EXCLUS('DTAN','DRX'),
1645                    EXCLUS('DTAN','DRY'),
1646                    EXCLUS('DTAN','DRZ'),),
1647 #  rajout d un mot cle REPERE : / GLOBAL / LOCAL
1648            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1649            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1650            DX              =SIMP(statut='f',typ=(fonction) ),
1651            DY              =SIMP(statut='f',typ=(fonction) ),
1652            DZ              =SIMP(statut='f',typ=(fonction) ),
1653            DRX             =SIMP(statut='f',typ=(fonction) ),
1654            DRY             =SIMP(statut='f',typ=(fonction) ),
1655            DRZ             =SIMP(statut='f',typ=(fonction) ),
1656            GRX             =SIMP(statut='f',typ=(fonction) ),
1657            PRES            =SIMP(statut='f',typ=(fonction) ),
1658            PHI             =SIMP(statut='f',typ=(fonction) ),
1659            TEMP            =SIMP(statut='f',typ=(fonction) ),
1660            PRE1            =SIMP(statut='f',typ=(fonction) ),
1661            PRE2            =SIMP(statut='f',typ=(fonction) ),
1662            DNOR            =SIMP(statut='f',typ=(fonction) ),
1663            DTAN            =SIMP(statut='f',typ=(fonction) ),
1664          ),
1665          LIAISON_DDL     =FACT(statut='f',min=1,max='**',
1666                                fr="Définir une relation linéaire entre des ddls de deux ou plusieurs noeuds",
1667            regles=(UN_PARMI('GROUP_NO','NOEUD'),),
1668            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1669            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1670            DDL             =SIMP(statut='o',typ='TXM',max='**'),
1671            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
1672            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
1673          ),
1674          LIAISON_GROUP   =FACT(statut='f',min=1,max='**',
1675                                fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1676            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1677                    UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1678                    EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1679                    EXCLUS('GROUP_MA_1','NOEUD_2'),
1680                    EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1681                    EXCLUS('GROUP_NO_1','MAILLE_2'),
1682                    EXCLUS('MAILLE_1','GROUP_NO_2'),
1683                    EXCLUS('MAILLE_1','NOEUD_2'),
1684                    EXCLUS('NOEUD_1','GROUP_MA_2'),
1685                    EXCLUS('NOEUD_1','MAILLE_2'),
1686                    EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1687            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1688            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1689            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
1690            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
1691            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1692            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1693            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
1694            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1695            SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1696            SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1697            DDL_1           =SIMP(statut='o',typ='TXM',max='**'),
1698            COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
1699            DDL_2           =SIMP(statut='o',typ='TXM',max='**'),
1700            COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
1701            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
1702            SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1703            TRAN            =SIMP(statut='f',typ='R',max=3),
1704            ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
1705            CENTRE          =SIMP(statut='f',typ='R',max=3),
1706          ),
1707
1708          FORCE_NODALE    =FACT(statut='f',min=1,max='**',
1709            regles=(UN_PARMI('GROUP_NO','NOEUD'),
1710                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1711            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1712            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1713            FX              =SIMP(statut='f',typ=(fonction) ),
1714            FY              =SIMP(statut='f',typ=(fonction) ),
1715            FZ              =SIMP(statut='f',typ=(fonction) ),
1716            MX              =SIMP(statut='f',typ=(fonction) ),
1717            MY              =SIMP(statut='f',typ=(fonction) ),
1718            MZ              =SIMP(statut='f',typ=(fonction) ),
1719            ANGL_NAUT       =SIMP(statut='f',typ=(fonction),max=3 ),
1720          ),
1721          FORCE_INTERNE   =FACT(statut='f',min=1,max='**',
1722            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1723                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1724                    AU_MOINS_UN('FX','FY','FZ'),),
1725            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1726            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1727            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1728            FX              =SIMP(statut='f',typ=(fonction) ),
1729            FY              =SIMP(statut='f',typ=(fonction) ),
1730            FZ              =SIMP(statut='f',typ=(fonction) ),
1731          ),
1732          FORCE_FACE      =FACT(statut='f',min=1,max='**',
1733            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1734                    AU_MOINS_UN('FX','FY','FZ'),),
1735            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1736            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1737            FX              =SIMP(statut='f',typ=(fonction) ),
1738            FY              =SIMP(statut='f',typ=(fonction) ),
1739            FZ              =SIMP(statut='f',typ=(fonction) ),
1740          ),
1741          FORCE_ARETE     =FACT(statut='f',min=1,max='**',
1742            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1743                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1744            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1745            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1746            FX              =SIMP(statut='f',typ=(fonction) ),
1747            FY              =SIMP(statut='f',typ=(fonction) ),
1748            FZ              =SIMP(statut='f',typ=(fonction) ),
1749            MX              =SIMP(statut='f',typ=(fonction) ),
1750            MY              =SIMP(statut='f',typ=(fonction) ),
1751            MZ              =SIMP(statut='f',typ=(fonction) ),
1752          ),
1753          FORCE_CONTOUR   =FACT(statut='f',min=1,max='**',
1754            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1755                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1756            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1757            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1758            FX              =SIMP(statut='f',typ=(fonction) ),
1759            FY              =SIMP(statut='f',typ=(fonction) ),
1760            FZ              =SIMP(statut='f',typ=(fonction) ),
1761            MX              =SIMP(statut='f',typ=(fonction) ),
1762            MY              =SIMP(statut='f',typ=(fonction) ),
1763            MZ              =SIMP(statut='f',typ=(fonction) ),
1764          ),
1765          PRES_REP        =FACT(statut='f',min=1,max='**',
1766            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1767                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1768                    AU_MOINS_UN('PRES','CISA_2D'),),
1769            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1770            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1771            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1772            PRES            =SIMP(statut='f',typ=(fonction) ),
1773            CISA_2D         =SIMP(statut='f',typ=(fonction) ),
1774          ),
1775
1776          FORCE_COQUE     =FACT(statut='f',min=1,max='**',
1777            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1778                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1779                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
1780                    PRESENT_ABSENT('FX','PRES','F1','F2','F3','MF1','MF2'),
1781                    PRESENT_ABSENT('FY','PRES','F1','F2','F3','MF1','MF2'),
1782                    PRESENT_ABSENT('FZ','PRES','F1','F2','F3','MF1','MF2'),
1783                    PRESENT_ABSENT('MX','PRES','F1','F2','F3','MF1','MF2'),
1784                    PRESENT_ABSENT('MY','PRES','F1','F2','F3','MF1','MF2'),
1785                    PRESENT_ABSENT('MZ','PRES','F1','F2','F3','MF1','MF2'),
1786                    PRESENT_ABSENT('F1','PRES','FX','FY','FZ','MX','MY','MZ'),
1787                    PRESENT_ABSENT('F2','PRES','FX','FY','FZ','MX','MY','MZ'),
1788                    PRESENT_ABSENT('F3','PRES','FX','FY','FZ','MX','MY','MZ'),
1789                    PRESENT_ABSENT('MF1','PRES','FX','FY','FZ','MX','MY','MZ'),
1790                    PRESENT_ABSENT('MF2','PRES','FX','FY','FZ','MX','MY','MZ'),
1791                    PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
1792 #  rajout d un mot cle REPERE : / GLOBAL / LOCAL
1793            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1794            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1795            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1796            FX              =SIMP(statut='f',typ=(fonction) ),
1797            FY              =SIMP(statut='f',typ=(fonction) ),
1798            FZ              =SIMP(statut='f',typ=(fonction) ),
1799            MX              =SIMP(statut='f',typ=(fonction) ),
1800            MY              =SIMP(statut='f',typ=(fonction) ),
1801            MZ              =SIMP(statut='f',typ=(fonction) ),
1802            F1              =SIMP(statut='f',typ=(fonction) ),
1803            F2              =SIMP(statut='f',typ=(fonction) ),
1804            F3              =SIMP(statut='f',typ=(fonction) ),
1805            MF1             =SIMP(statut='f',typ=(fonction) ),
1806            MF2             =SIMP(statut='f',typ=(fonction) ),
1807            PRES            =SIMP(statut='f',typ=(fonction) ),
1808            PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",
1809                                  into=("SUP","INF","MOY","MAIL") ),
1810          ),
1811          FORCE_POUTRE    =FACT(statut='f',min=1,max='**',
1812            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1813                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1814                    AU_MOINS_UN('FX','FY','FZ','N','VY','VZ'),
1815                    PRESENT_ABSENT('FX','N','VY','VZ'),
1816                    PRESENT_ABSENT('FY','N','VY','VZ'),
1817                    PRESENT_ABSENT('FZ','N','VY','VZ'),
1818                    PRESENT_ABSENT('N','FX','FY','FZ'),
1819                    PRESENT_ABSENT('VY','FX','FY','FZ'),
1820                    PRESENT_ABSENT('VZ','FX','FY','FZ'),),
1821 #  rajout d un mot cle REPERE : / GLOBAL / LOCAL
1822            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1823            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1824            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1825            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE") ),
1826            FX              =SIMP(statut='f',typ=(fonction) ),
1827            FY              =SIMP(statut='f',typ=(fonction) ),
1828            FZ              =SIMP(statut='f',typ=(fonction) ),
1829            N               =SIMP(statut='f',typ=(fonction) ),
1830            VY              =SIMP(statut='f',typ=(fonction) ),
1831            VZ              =SIMP(statut='f',typ=(fonction) ),
1832          ),
1833          FORCE_TUYAU     =FACT(statut='f',min=1,max='**',
1834            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1835                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
1836            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1837            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1838            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1839            PRES            =SIMP(statut='f',typ=(fonction) ),
1840          ),
1841          VITE_FACE       =FACT(statut='f',min=1,max='**',
1842            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1843                    PRESENT_ABSENT('GROUP_MA','MAILLE'),),
1844            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1845            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1846            VNOR            =SIMP(statut='o',typ=(fonction) ),
1847          ),
1848          IMPE_FACE       =FACT(statut='f',min=1,max='**',
1849            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1850                    PRESENT_ABSENT('GROUP_MA','MAILLE'),),
1851            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1852            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1853            IMPE            =SIMP(statut='o',typ=(fonction) ),
1854          ),
1855          ONDE_PLANE      =FACT(statut='f',min=1,max='**',
1856            DIRECTION       =SIMP(statut='o',typ='R',max='**'),
1857            TYPE_ONDE       =SIMP(statut='o',typ='TXM' ),
1858            FONC_SIGNAL     =SIMP(statut='o',typ=(fonction) ),
1859            DIST_ORIG       =SIMP(statut='o',typ='R' ),
1860          ),
1861          EPSI_INIT       =FACT(statut='f',min=1,max='**',
1862            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1863                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1864                    AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ'),),
1865            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1866            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1867            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1868            EPXX            =SIMP(statut='f',typ=(fonction) ),
1869            EPYY            =SIMP(statut='f',typ=(fonction) ),
1870            EPZZ            =SIMP(statut='f',typ=(fonction) ),
1871            EPXY            =SIMP(statut='f',typ=(fonction) ),
1872            EPXZ            =SIMP(statut='f',typ=(fonction) ),
1873            EPYZ            =SIMP(statut='f',typ=(fonction) ),
1874          ),
1875
1876          CONTACT         =FACT(statut='f',min=1,max='**',
1877            regles=(UN_PARMI('GROUP_MA_2','MAILLE_2'),
1878                    EXCLUS('DIST_2','COEF_IMPO'),
1879                    EXCLUS('DIST_1','COEF_IMPO'),
1880                    EXCLUS('COEF_MULT_2','GROUP_MA_1'),
1881                    EXCLUS('COEF_MULT_2','MAILLE_1'),
1882                    EXCLUS('COEF_IMPO','GROUP_MA_1'),
1883                    EXCLUS('COEF_IMPO','MAILLE_1'),),
1884            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","PRES","TEMP") ),
1885            APPARIEMENT     =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
1886                                  into=("NON","NODAL","NODAL_SYME","MAIT_ESCL","MAIT_ESCL_SYME") ),
1887            RECHERCHE       =SIMP(statut='f',typ='TXM',defaut="NOEUD_VOISIN",
1888                                  into=("NOEUD_BOUCLE","NOEUD_VOISIN") ),
1889            INTEGRATION     =SIMP(statut='f',typ='TXM',defaut="NOEUD",into=("GAUSS","NOEUD")),
1890            COEF_REGU_CONT  =SIMP(statut='f',typ='R',defaut=100.E+0),
1891            COEF_REGU_FROT  =SIMP(statut='f',typ='R',defaut=100.E+0),
1892            MODL_AXIS       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
1893            ITER_GEOM_MAXI  =SIMP(statut='f',typ='I',defaut=2),
1894            ITER_CONT_MAXI  =SIMP(statut='f',typ='I',defaut=30),
1895            ITER_FROT_MAXI  =SIMP(statut='f',typ='I',defaut=2),
1896            LISSAGE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
1897            SEUIL_INIT      =SIMP(statut='f',typ='I',defaut=0),
1898            REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1899              b_act_reac      =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1900                               fr="Paramètre de la réactualisation géométrique",
1901                    NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
1902            NORMALE         =SIMP(statut='f',typ='TXM',defaut="MAIT",into=("MAIT","MAIT_ESCL")),
1903            METHODE         =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
1904                                  into=("CONTRAINTE","LAGRANGIEN","PENALISATION") ),
1905            FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1906            COULOMB         =SIMP(statut='f',typ='R',max=1,defaut=0.E+0),
1907            E_N             =SIMP(statut='f',typ='R' ),
1908            E_T             =SIMP(statut='f',typ='R' ),
1909            COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut=0.E+0),
1910            VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
1911            VECT_NORM_2     =SIMP(statut='f',typ='R',max=3),
1912            PROJECTION      =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE",) ),
1913            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1914            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'  ),
1915            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1916            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'  ),
1917            SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'  ),
1918            SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1919            DIST_1          =SIMP(statut='f',typ=(fonction) ),
1920            DIST_2          =SIMP(statut='f',typ=(fonction) ),
1921            COEF_IMPO       =SIMP(statut='f',typ='R',defaut=0.E+0),
1922            COEF_MULT_2     =SIMP(statut='f',typ='R',defaut=1.E+0),
1923          ),
1924          FLUX_THM_REP    =FACT(statut='f',min=1,max='**',
1925            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1926                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1927                    AU_MOINS_UN('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
1928            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1929            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1930            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1931            FLUN            =SIMP(statut='f',typ=(fonction) ),
1932            FLUN_HYDR1      =SIMP(statut='f',typ=(fonction) ),
1933            FLUN_HYDR2      =SIMP(statut='f',typ=(fonction) ),
1934          ),
1935
1936          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1937 )  ;
1938 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
1939 #            CONFIGURATION MANAGEMENT OF EDF VERSION
1940 # ======================================================================
1941 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
1942 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1943 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1944 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1945 # (AT YOUR OPTION) ANY LATER VERSION.
1946 #
1947 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1948 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1949 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1950 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1951 #
1952 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1953 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1954 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1955 # ======================================================================
1956 AFFE_CHAR_OPS011=OPER(nom="AFFE_CHAR_OPS011",op= 190,sd_prod=char_ther,
1957                       fr=" ",
1958                       docu="",reentrant='n',
1959          regles=(AU_MOINS_UN('CARA_TORSION', ),),
1960          MODELE          =SIMP(statut='o',typ=modele ),
1961          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",
1962                                into=("OUI","NON") ),
1963          CARA_TORSION    =FACT(statut='f',min=01,max='**',
1964            regles=(UN_PARMI('TOUT','GROUP_MA'),),
1965            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1966            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1967          ),
1968          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
1969 )  ;
1970 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
1971 #            CONFIGURATION MANAGEMENT OF EDF VERSION
1972 # ======================================================================
1973 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
1974 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1975 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1976 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1977 # (AT YOUR OPTION) ANY LATER VERSION.
1978 #
1979 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1980 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1981 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1982 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1983 #
1984 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1985 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1986 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1987 # ======================================================================
1988 AFFE_CHAR_THER=OPER(nom="AFFE_CHAR_THER",op=34,sd_prod=char_ther
1989                     ,fr="Affectation de charges et conditions aux limites thermiques constantes",
1990                     docu="U4.44.02-g2",reentrant='n',
1991       regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','FLUX_REP','ECHANGE',
1992                           'ECHANGE_PAROI','GRAD_TEMP_INIT','LIAISON_DDL','LIAISON_GROUP',
1993                           'LIAISON_UNIF','LIAISON_CHAMNO','RAYONNEMENT','LIAISON_MAIL' ),),
1994          MODELE          =SIMP(statut='o',typ=(modele) ),
1995          VERI_DDL        =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="OUI"),
1996          LIAISON_DDL     =FACT(statut='f',min=01,max='**',
1997            regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
1998            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1999            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2000            DDL             =SIMP(statut='f',typ='TXM',max='**',
2001                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2002            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
2003            COEF_IMPO       =SIMP(statut='o',typ='R' ),
2004          ),
2005          TEMP_IMPO       =FACT(statut='f',min=01,max='**',
2006            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
2007                    AU_MOINS_UN('TEMP_SUP','TEMP','TEMP_INF'),),
2008            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2009            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2010            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2011            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2012            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2013            TEMP            =SIMP(statut='f',typ='R'),
2014            TEMP_INF        =SIMP(statut='f',typ='R'),
2015            TEMP_SUP        =SIMP(statut='f',typ='R'), ),
2016          LIAISON_UNIF    =FACT(statut='f',min=01,max='**',
2017            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
2018            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2019            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2020            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2021            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2022            DDL             =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2023                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2024          ),
2025          LIAISON_CHAMNO  =FACT(statut='f',min=01,max='**',
2026            CHAM_NO         =SIMP(statut='o',typ=cham_no),# CO()# "il faut definir une structure de donnee generique chamno"
2027            COEF_IMPO       =SIMP(statut='o',typ='R' ),
2028            NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
2029          ),
2030          SOURCE          =FACT(statut='f',min=01,max='**',
2031            regles=(UN_PARMI('SOUR','SOUR_CALCULEE',),
2032                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2033                    PRESENT_ABSENT('SOUR_CALCULEE','TOUT','GROUP_MA','MAILLE'),),
2034            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2035            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2036            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2037            SOUR            =SIMP(statut='f',typ='R'),
2038            SOUR_CALCULEE   =SIMP(statut='f',typ=(cham_elem_sour_r) ),
2039          ),
2040          FLUX_REP        =FACT(statut='f',min=01,max='**',
2041            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2042                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2043                    PRESENT_PRESENT('CARA_TORSION','GROUP_MA'),
2044                    AU_MOINS_UN('FLUN','FLUN_INF','FLUN_SUP','CARA_TORSION') ),
2045            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2046            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2047            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2048            FLUN            =SIMP(statut='f',typ='R'),
2049            FLUN_INF        =SIMP(statut='f',typ='R'),
2050            FLUN_SUP        =SIMP(statut='f',typ='R'),
2051            CARA_TORSION    =SIMP(statut='f',typ=tabl_aire_int ),
2052          ),
2053          ECHANGE         =FACT(statut='f',min=01,max='**',
2054            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2055                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2056                    AU_MOINS_UN('COEF_H','COEF_H_INF','COEF_H_SUP'),
2057                    ENSEMBLE('COEF_H','TEMP_EXT',),
2058                    ENSEMBLE('COEF_H_INF','TEMP_EXT_INF'),
2059                              ENSEMBLE('COEF_H_SUP','TEMP_EXT_SUP'),),
2060            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2061            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2062            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2063            COEF_H          =SIMP(statut='f',typ='R'),
2064            TEMP_EXT        =SIMP(statut='f',typ='R'),
2065            COEF_H_INF      =SIMP(statut='f',typ='R'),
2066            TEMP_EXT_INF    =SIMP(statut='f',typ='R'),
2067            COEF_H_SUP      =SIMP(statut='f',typ='R'),
2068            TEMP_EXT_SUP    =SIMP(statut='f',typ='R'),
2069          ),
2070          ECHANGE_PAROI   =FACT(statut='f',min=01,max='**',
2071            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
2072                    UN_PARMI('GROUP_MA_2','MAILLE_2'),),
2073            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2074            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2075            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2076            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2077            COEF_H          =SIMP(statut='f',typ='R'),
2078            TRAN            =SIMP(statut='f',typ='R',min=2,max=3),
2079            ANGL_NAUT       =SIMP(statut='f',typ='R',min=1,max=3),
2080            CENTRE          =SIMP(statut='f',typ='R',min=2,max=3),
2081                          ),
2082          GRAD_TEMP_INIT  =FACT(statut='f',min=01,max='**',
2083            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2084                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2085                    AU_MOINS_UN('FLUX_X','FLUX_Y','FLUX_Z'),),
2086            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2087            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2088            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2089            FLUX_X          =SIMP(statut='f',typ='R' ),
2090            FLUX_Y          =SIMP(statut='f',typ='R' ),
2091            FLUX_Z          =SIMP(statut='f',typ='R' ),
2092                          ),
2093          LIAISON_GROUP   =FACT(statut='f',min=01,max='**',
2094            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
2095                    UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
2096                              EXCLUS('GROUP_MA_1','GROUP_NO_2'),
2097                              EXCLUS('GROUP_MA_1','NOEUD_2'),
2098                    EXCLUS('GROUP_NO_1','GROUP_MA_2'),
2099                              EXCLUS('GROUP_NO_1','MAILLE_2'),
2100                              EXCLUS('MAILLE_1','GROUP_NO_2'),
2101                              EXCLUS('MAILLE_1','NOEUD_2'),
2102                              EXCLUS('NOEUD_1','GROUP_MA_2'),
2103                              EXCLUS('NOEUD_1','MAILLE_2'),
2104                              EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
2105            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2106            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2107            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
2108            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
2109            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2110            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2111            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
2112            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
2113            SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
2114            SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
2115            DDL_1           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2116                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2117            COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
2118            DDL_2           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2119                                  into=("TEMP","TEMP_INF","TEMP_SUP",) ),
2120            COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
2121            COEF_IMPO       =SIMP(statut='o',typ='R' ),
2122            SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2123            TRAN            =SIMP(statut='f',typ='R',max='**'),
2124            ANGL_NAUT       =SIMP(statut='f',typ='R',max='**'),
2125            CENTRE          =SIMP(statut='f',typ='R',max='**'),
2126          ),
2127          CONVECTION      =FACT(statut='f',min=01,max='**',
2128            VITESSE         =SIMP(statut='o',typ=(cham_no_depl_r) ),
2129          ),
2130          RAYONNEMENT     =FACT(statut='f',min=01,max='**',
2131            fr="Attention, exprimer les températures en Celsius si rayonnement",
2132            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2133                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2134            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2135            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2136            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2137            SIGMA           =SIMP(statut='o',typ='R'),
2138            EPSILON         =SIMP(statut='o',typ='R'),
2139            TEMP_EXT        =SIMP(statut='o',typ='R'),
2140          ),
2141          LIAISON_MAIL    =FACT(statut='f',min=01,max='**',
2142            regles=(AU_MOINS_UN('GROUP_MA_MAIT','MAILLE_MAIT'),
2143                    AU_MOINS_UN('GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL',
2144                                'NOEUD_ESCL'),),
2145            GROUP_MA_MAIT   =SIMP(statut='f',typ=grma,max='**'),
2146            MAILLE_MAIT     =SIMP(statut='f',typ=ma,max='**'),
2147            GROUP_MA_ESCL   =SIMP(statut='f',typ=grma,max='**'),
2148            MAILLE_ESCL     =SIMP(statut='f',typ=ma,max='**'),
2149            GROUP_NO_ESCL   =SIMP(statut='f',typ=grno,max='**'),
2150            NOEUD_ESCL      =SIMP(statut='f',typ=no,max='**'),
2151            TRAN            =SIMP(statut='f',typ='R',max='**' ),
2152            ANGL_NAUT       =SIMP(statut='f',typ='R',max='**' ),
2153            CENTRE          =SIMP(statut='f',typ='R',max='**' ),
2154          ),
2155          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2156 )  ;
2157 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
2158 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2159 # ======================================================================
2160 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2161 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2162 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2163 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2164 # (AT YOUR OPTION) ANY LATER VERSION.
2165 #
2166 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2167 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2168 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2169 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2170 #
2171 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2172 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2173 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2174 # ======================================================================
2175 AFFE_CHAR_THER_F=OPER(nom="AFFE_CHAR_THER_F",op=33,sd_prod=char_ther,
2176                      fr="Affectation de charges et conditions aux limites thermiques fonction dune grandeur (temps, ...)",
2177                      docu="U4.44.02-g2",reentrant='n',
2178       regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','FLUX_REP','FLUX_NL','ECHANGE',
2179                           'ECHANGE_PAROI','LIAISON_DDL','LIAISON_GROUP','LIAISON_UNIF',
2180                           'GRAD_TEMP_INIT','RAYONNEMENT'),),
2181          MODELE          =SIMP(statut='o',typ=(modele) ),
2182          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2183          LIAISON_DDL     =FACT(statut='f',min=1,max='**',
2184            regles=(UN_PARMI('GROUP_NO','NOEUD'),),
2185            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2186            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2187            DDL             =SIMP(statut='f',typ='TXM',max='**',into=("TEMP","TEMP_INF","TEMP_SUP") ),
2188            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
2189            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
2190          ),
2191          TEMP_IMPO       =FACT(statut='f',min=1,max='**',
2192            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
2193                    AU_MOINS_UN('TEMP_SUP','TEMP','TEMP_INF','EVOL_THER'),
2194                    PRESENT_ABSENT('EVOL_THER','TEMP','TEMP_INF','TEMP_SUP'),),
2195            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2196            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2197            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2198            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2199            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2200            EVOL_THER       =SIMP(statut='f',typ=(evol_ther) ),
2201            DDL             =SIMP(statut='f',typ='TXM',into=("TEMP",) ),
2202            TEMP            =SIMP(statut='f',typ=(fonction) ),
2203            TEMP_INF        =SIMP(statut='f',typ=(fonction) ),
2204            TEMP_SUP        =SIMP(statut='f',typ=(fonction) ),
2205          ),
2206          LIAISON_UNIF    =FACT(statut='f',min=1,max='**',
2207            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
2208            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2209            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2210            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2211            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2212            DDL             =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2213                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2214          ),
2215          SOURCE          =FACT(statut='f',min=1,max='**',
2216            regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),),
2217            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2218            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2219            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2220            SOUR            =SIMP(statut='o',typ=(fonction) ),
2221          ),
2222          FLUX_REP        =FACT(statut='f',min=1,max='**',
2223            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2224                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2225                    AU_MOINS_UN('FLUN','FLUN_INF','FLUN_SUP','FLUX_X','FLUX_Y','FLUX_Z'),),
2226            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2227            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2228            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2229            FLUN            =SIMP(statut='f',typ=(fonction) ),
2230            FLUN_INF        =SIMP(statut='f',typ=(fonction) ),
2231            FLUN_SUP        =SIMP(statut='f',typ=(fonction) ),
2232            FLUX_X          =SIMP(statut='f',typ=(fonction) ),
2233            FLUX_Y          =SIMP(statut='f',typ=(fonction) ),
2234            FLUX_Z          =SIMP(statut='f',typ=(fonction) ),
2235          ),
2236          FLUX_NL         =FACT(statut='f',min=1,max='**',
2237            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2238                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2239            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2240            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2241            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2242            FLUN            =SIMP(statut='o',typ=(fonction) ),
2243          ),
2244          ECHANGE         =FACT(statut='f',min=1,max='**',
2245            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2246                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2247                    AU_MOINS_UN('COEF_H','COEF_H_INF','COEF_H_SUP'),
2248                    ENSEMBLE('COEF_H','TEMP_EXT'),
2249                    ENSEMBLE('COEF_H_INF','TEMP_EXT_INF'),
2250                    ENSEMBLE('COEF_H_SUP','TEMP_EXT_SUP'),),
2251            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2252            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2253            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2254            COEF_H          =SIMP(statut='f',typ=(fonction) ),
2255            TEMP_EXT        =SIMP(statut='f',typ=(fonction) ),
2256            COEF_H_INF      =SIMP(statut='f',typ=(fonction) ),
2257            TEMP_EXT_INF    =SIMP(statut='f',typ=(fonction) ),
2258            COEF_H_SUP      =SIMP(statut='f',typ=(fonction) ),
2259            TEMP_EXT_SUP    =SIMP(statut='f',typ=(fonction) ),
2260          ),
2261          ECHANGE_PAROI   =FACT(statut='f',min=1,max='**',
2262            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
2263                         UN_PARMI('GROUP_MA_2','MAILLE_2'),),
2264            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2265            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2266            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2267            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2268            COEF_H          =SIMP(statut='o',typ=(fonction) ),
2269            TRAN            =SIMP(statut='f',typ='R',min=2,max=3),
2270            ANGL_NAUT       =SIMP(statut='f',typ='R',min=1,max=3),
2271            CENTRE          =SIMP(statut='f',typ='R',min=2,max=3),
2272          ),
2273          GRAD_TEMP_INIT  =FACT(statut='f',min=1,max='**',
2274            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2275                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2276                    AU_MOINS_UN('FLUX_X','FLUX_Y','FLUX_Z'),),
2277            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2278            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2279            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2280            FLUX_X          =SIMP(statut='f',typ=(fonction) ),
2281            FLUX_Y          =SIMP(statut='f',typ=(fonction) ),
2282            FLUX_Z          =SIMP(statut='f',typ=(fonction) ),
2283          ),
2284          LIAISON_GROUP   =FACT(statut='f',min=1,max='**',
2285            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
2286                    UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
2287                              EXCLUS('GROUP_MA_1','GROUP_NO_2'),
2288                         EXCLUS('GROUP_MA_1','NOEUD_2'),
2289                    EXCLUS('GROUP_NO_1','GROUP_MA_2'),
2290                         EXCLUS('GROUP_NO_1','MAILLE_2'),
2291                         EXCLUS('MAILLE_1','GROUP_NO_2'),
2292                         EXCLUS('MAILLE_1','NOEUD_2'),
2293                         EXCLUS('NOEUD_1','GROUP_MA_2'),
2294                         EXCLUS('NOEUD_1','MAILLE_2'),
2295                         EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
2296            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2297            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2298            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
2299            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
2300            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2301            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2302            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
2303            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
2304            SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
2305            SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
2306            DDL_1           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2307                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2308            COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
2309            DDL_2           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2310                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2311            COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
2312            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
2313            SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2314            TRAN            =SIMP(statut='f',typ='R',max='**'),
2315            ANGL_NAUT       =SIMP(statut='f',typ='R',max='**'),
2316            CENTRE          =SIMP(statut='f',typ='R',max='**'),
2317          ),
2318          CONVECTION      =FACT(statut='f',min=1,max='**',
2319            VITESSE         =SIMP(statut='o',typ=(cham_no_depl_r) ),
2320          ),
2321          RAYONNEMENT     =FACT(statut='f',min=1,max='**',
2322            fr="Attention, exprimer les températures en Celsius si rayonnement",
2323            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2324                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2325            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2326            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2327            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2328            SIGMA           =SIMP(statut='o',typ=(fonction) ),
2329            EPSILON         =SIMP(statut='o',typ=(fonction) ),
2330            TEMP_EXT        =SIMP(statut='o',typ=(fonction) ),
2331          ),
2332          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2333 )  ;
2334 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2335 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2336 # ======================================================================
2337 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2338 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2339 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2340 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2341 # (AT YOUR OPTION) ANY LATER VERSION.
2342 #
2343 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2344 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2345 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2346 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2347 #
2348 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2349 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2350 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2351 # ======================================================================
2352 # RESPONSABLE VABHHTS J.PELLET
2353 AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
2354                    fr="Affectation de caractéristiques de matériaux à un maillage",
2355                          docu="U4.43.03-f",reentrant='n',
2356          MAILLAGE        =SIMP(statut='o',typ=maillage),
2357          MODELE          =SIMP(statut='f',typ=modele),
2358          AFFE            =FACT(statut='o',min=01,max='**',
2359            regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
2360            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2361            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2362            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2363            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2364            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2365            MATER           =SIMP(statut='o',typ=mater),
2366            TEMP_REF        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2367          ),
2368 )  ;
2369 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
2370 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2371 # ======================================================================
2372 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2373 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2374 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2375 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2376 # (AT YOUR OPTION) ANY LATER VERSION.
2377 #
2378 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2379 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2380 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2381 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2382 #
2383 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2384 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2385 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2386 # ======================================================================
2387 # RESPONSABLE JMBHH01 J.M.PROIX
2388 AFFE_MODELE=OPER(nom="AFFE_MODELE",op=18,sd_prod=modele,docu="U4.41.01-g3",
2389                  fr="Affectation des éléments finis sur le maillage",reentrant='n',
2390          regles=(AU_MOINS_UN('AFFE','AFFE_SOUS_STRUC'),),
2391          MAILLAGE        =SIMP(statut='o',typ=(maillage) ),
2392          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
2393          VERIF           =SIMP(statut='f',typ='TXM',max=2,into=("MAILLE","NOEUD") ),
2394          AFFE_SOUS_STRUC =FACT(statut='f',min=01,max=01,
2395            regles=(UN_PARMI('TOUT','MAILLE'),),
2396            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2397            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2398            PHENOMENE       =SIMP(statut='f',typ='TXM',defaut="MECANIQUE",into=("MECANIQUE",) ),
2399          ),
2400          AFFE            =FACT(statut='f',min=01,max='**',
2401            regles=(UN_PARMI('TOUT','GROUP_MA','GROUP_NO','MAILLE','NOEUD'),),
2402            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2403            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2404            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2405            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2406            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2407            PHENOMENE       =SIMP(statut='o',typ='TXM',
2408                                  into=("MECANIQUE","THERMIQUE","ACOUSTIQUE") ),
2409                 b_mecanique     =BLOC( condition = "PHENOMENE=='MECANIQUE'",
2410                                         fr="modelisations mécaniques",
2411                     MODELISATION    =SIMP(statut='o',typ='TXM', into=(
2412                                                                       "2D_CONTACT",
2413                                                                       "2D_DIS_T",
2414                                                                       "2D_DIS_TR",
2415                                                                       "2D_FLUI_ABSO",
2416                                                                       "2D_FLUI_PESA",
2417                                                                       "2D_FLUI_STRU",
2418                                                                       "2D_FLUIDE",
2419                                                                       "3D",
2420                                                                       "3D_ABSO",
2421                                                                       "3D_CONTACT",
2422                                                                       "3D_FAISCEAU",
2423                                                                       "3D_FLUI_ABSO",
2424                                                                       "3D_FLUIDE",
2425                                                                       "3D_HHM" ,
2426                                                                       "3D_HM",
2427                                                                       "3D_INCO",
2428                                                                       "3D_JOINT_CT",
2429                                                                       "3D_SI",
2430                                                                       "3D_THH",
2431                                                                       "3D_THHM",
2432                                                                       "3D_THM",
2433                                                                       "3D_GRAD_EPSI",
2434                                                                       "3D_GRAD_VARI",
2435                                                                       "APPUI_REP",
2436                                                                       "ASSE_GRIL",
2437                                                                       "AXIS",
2438                                                                       "AXIS_FLUI_STRU",
2439                                                                       "AXIS_FLUIDE",
2440                                                                       "AXIS_FOURIER",
2441                                                                       "AXIS_HHM",
2442                                                                       "AXIS_HM",
2443                                                                       "AXIS_INCO",
2444                                                                       "AXIS_SI",
2445                                                                       "AXIS_THH",
2446                                                                       "AXIS_THHM",
2447                                                                       "AXIS_THM",
2448                                                                       "AXIS_GRAD_VARI",
2449                                                                       "AXIS_FISSURE",
2450                                                                       "BARRE",
2451                                                                       "2D_BARRE",
2452                                                                       "C_PLAN",
2453                                                                       "C_PLAN_SI",
2454                                                                       "C_PLAN_GRAD_EPSI",
2455                                                                       "C_PLAN_GRAD_VARI",
2456                                                                       "CABLE",
2457                                                                       "CABLE_POULIE",
2458                                                                       "COQUE_3D",
2459                                                                       "COQUE_AXIS",
2460                                                                       "COQUE_C_PLAN",
2461                                                                       "COQUE_D_PLAN",
2462                                                                       "D_PLAN",
2463                                                                       "D_PLAN_GRAD_EPSI",
2464                                                                       "D_PLAN_GRAD_VARI",
2465                                                                       "PLAN_FISSURE",
2466                                                                       "D_PLAN_ABSO",
2467                                                                       "D_PLAN_HHM",
2468                                                                       "D_PLAN_HM",
2469                                                                       "D_PLAN_INCO",
2470                                                                       "D_PLAN_SI",
2471                                                                       "D_PLAN_THH",
2472                                                                       "D_PLAN_THHM",
2473                                                                       "D_PLAN_THM",
2474                                                                        "3D_HHMD",
2475                                                                        "3D_HMD",
2476                                                                        "3D_THHD",
2477                                                                        "3D_THHMD",
2478                                                                        "3D_THMD",
2479                                                                        "AXIS_HHMD",
2480                                                                        "AXIS_HMD",
2481                                                                        "AXIS_THHD",
2482                                                                        "AXIS_THHMD",
2483                                                                        "AXIS_THMD",
2484                                                                        "D_PLAN_HHMD",
2485                                                                        "D_PLAN_HMD",
2486                                                                        "D_PLAN_THHD",
2487                                                                        "D_PLAN_THHMD",
2488                                                                        "D_PLAN_THMD",
2489                                                                       "DIS_T",
2490                                                                       "DIS_TR",
2491                                                                       "DKT",
2492                                                                       "DST",
2493                                                                       "FLUI_STRU",
2494                                                                       "GRILLE",
2495                                                                       "POU_C_T",
2496                                                                       "POU_D_E",
2497                                                                       "POU_D_EM",
2498                                                                       "POU_D_T",
2499                                                                       "POU_D_T_GD",
2500                                                                       "POU_D_TG",
2501                                                                       "POU_D_TGM",
2502                                                                       "Q4G",
2503                                                                       "TUYAU_3M",
2504                                                                       "TUYAU_6M"
2505                                                                      )  )  ),
2506
2507                 b_thermique     =BLOC( condition = "PHENOMENE=='THERMIQUE'",
2508                                         fr="modelisations thermiques",
2509                     MODELISATION    =SIMP(statut='o',typ='TXM',into=(
2510                                                                       "3D",
2511                                                                       "3D_DIAG",
2512                                                                       "AXIS",
2513                                                                       "AXIS_DIAG",
2514                                                                       "AXIS_FOURIER",
2515                                                                       "COQUE",
2516                                                                       "COQUE_AXIS",
2517                                                                       "COQUE_PLAN",
2518                                                                       "PLAN",
2519                                                                       "PLAN_DIAG",
2520                                                                       ),),),
2521
2522                 b_acoustique    =BLOC( condition = "PHENOMENE=='ACOUSTIQUE'",
2523                                         fr="modelisations acoustiques",
2524                      MODELISATION    =SIMP(statut='o',typ='TXM',into=(
2525                                                                        "3D",
2526                                                                        "PLAN"
2527                                                                        ), ),),
2528
2529          ),
2530 ) ;
2531 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
2532 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2533 # ======================================================================
2534 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2535 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2536 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2537 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2538 # (AT YOUR OPTION) ANY LATER VERSION.
2539 #
2540 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2541 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2542 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2543 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2544 #
2545 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2546 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2547 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2548 # ======================================================================
2549 AIDE=PROC(nom="AIDE",op=42,docu="U4.02.01-g1",
2550           fr="Interrogation sur le catalogue des commandes et les concepts produits",
2551          regles=(AU_MOINS_UN('CONCEPT','TYPE_ELEM', ),),
2552          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
2553          TYPE_ELEM       =FACT(fr="couple type_elem option",
2554                                statut='f',min=01,max=01,
2555            INITEL          =SIMP(statut='f',typ='TXM',defaut="NON",
2556                                  into=("OUI","NON",) ),
2557          ),
2558          CONCEPT         =FACT(statut='f',min=01,max='**',
2559            NOM             =SIMP(fr="liste des noms de concept",
2560                                  statut='f',typ='TXM',max='**',defaut="*"),
2561            OPTION          =SIMP(fr="option d'édition de concept",
2562                                  statut='f',typ='TXM',defaut="TOUT_TYPE",
2563                                  into=("TOUT_TYPE","CREER","A_CREER",) ),
2564          ),
2565 ) ;
2566 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
2567 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2568 # ======================================================================
2569 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2570 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2571 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2572 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2573 # (AT YOUR OPTION) ANY LATER VERSION.
2574 #
2575 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2576 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2577 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2578 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2579 #
2580 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2581 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2582 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2583 # ======================================================================
2584 # RESPONSABLE VABHHTS J.PELLET
2585 ASSE_MAILLAGE=OPER(nom="ASSE_MAILLAGE",op= 105,sd_prod=maillage,
2586                    fr="Assembler deux maillages sous un seul nom",
2587                    docu="U4.23.03-e",reentrant='n',
2588          MAILLAGE        =SIMP(statut='o',typ=maillage,min=2,max=2 ),
2589 )  ;
2590 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2591 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2592 # ======================================================================
2593 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2594 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2595 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2596 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2597 # (AT YOUR OPTION) ANY LATER VERSION.
2598 #
2599 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2600 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2601 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2602 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2603 #
2604 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2605 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2606 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2607 # ======================================================================
2608 ASSE_MATR_GENE=OPER(nom="ASSE_MATR_GENE",op= 128,sd_prod=matr_asse_gene_r,
2609                     fr="Assemblage des matrices généralisées de macro éléments pour construction de la matrice globale généralisée",
2610                     docu="U4.65.04-d",reentrant='n',
2611          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
2612          OPTION          =SIMP(statut='o',typ='TXM',into=("RIGI_GENE","MASS_GENE","AMOR_GENE") ),
2613 )  ;
2614 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2615 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2616 # ======================================================================
2617 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2618 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2619 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2620 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2621 # (AT YOUR OPTION) ANY LATER VERSION.
2622 #
2623 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2624 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2625 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2626 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2627 #
2628 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2629 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2630 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2631 # ======================================================================
2632 # RESPONSABLE VABHHTS J.PELLET
2633 def asse_matrice_prod(MATR_ELEM,**args):
2634   if AsType(MATR_ELEM) == matr_elem_depl_r : return matr_asse_depl_r
2635   if AsType(MATR_ELEM) == matr_elem_depl_c : return matr_asse_depl_c
2636   if AsType(MATR_ELEM) == matr_elem_temp_r : return matr_asse_temp_r
2637   if AsType(MATR_ELEM) == matr_elem_pres_c : return matr_asse_pres_c
2638   raise AsException("type de concept resultat non prevu")
2639
2640 ASSE_MATRICE=OPER(nom="ASSE_MATRICE",op=12,sd_prod=asse_matrice_prod,
2641                   fr="Construction d une matrice assemblée",docu="U4.61.22-f",reentrant='n',
2642          MATR_ELEM       =SIMP(statut='o',
2643                                typ=(matr_elem_depl_r,matr_elem_depl_c,matr_elem_temp_r,matr_elem_pres_c) ),
2644          NUME_DDL        =SIMP(statut='o',typ=nume_ddl),
2645          CHAR_CINE       =SIMP(statut='f',typ=(char_cine_meca,char_cine_ther,char_cine_acou) ),
2646          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
2647 )  ;
2648 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2649 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2650 # ======================================================================
2651 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2652 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2653 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2654 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2655 # (AT YOUR OPTION) ANY LATER VERSION.
2656 #
2657 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2658 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2659 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2660 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2661 #
2662 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2663 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2664 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2665 # ======================================================================
2666 ASSE_VECT_GENE=OPER(nom="ASSE_VECT_GENE",op= 140,sd_prod=vect_asse_gene,
2667                     fr="Assemblage de vecteurs de chargement en coordonnées généralisées",
2668                     docu="U4.65.05-d",reentrant='n',
2669          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
2670          CHAR_SOUS_STRUC =FACT(statut='o',min=01,max='**',
2671            SOUS_STRUC      =SIMP(statut='o',typ='TXM' ),
2672            VECT_ASSE       =SIMP(statut='o',typ=cham_no_depl_r ),
2673          ),
2674 )  ;
2675 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2676 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2677 # ======================================================================
2678 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2679 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2680 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2681 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2682 # (AT YOUR OPTION) ANY LATER VERSION.
2683 #
2684 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2685 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2686 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2687 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2688 #
2689 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2690 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2691 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2692 # ======================================================================
2693 # RESPONSABLE VABHHTS J.PELLET
2694 def asse_vecteur_prod(VECT_ELEM,**args):
2695   if AsType(VECT_ELEM) == vect_elem_depl_r : return cham_no_depl_r
2696   if AsType(VECT_ELEM) == vect_elem_temp_r : return cham_no_temp_r
2697   if AsType(VECT_ELEM) == vect_elem_pres_r : return cham_no_pres_r
2698   if AsType(VECT_ELEM) == vect_elem_pres_c : return cham_no_pres_c
2699   raise AsException("type de concept resultat non prevu ")
2700
2701 ASSE_VECTEUR=OPER(nom="ASSE_VECTEUR",op=13,sd_prod=asse_vecteur_prod,
2702                   fr="Assemblage d un second membre",docu="U4.61.23-f",reentrant='n',
2703          VECT_ELEM       =SIMP(statut='o',typ=vect_elem,max='**'),
2704          NUME_DDL        =SIMP(statut='o',typ=nume_ddl ),
2705          INFO            =SIMP(statut='f',typ='I',into=(1,2,) ),
2706 )  ;
2707 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2708 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2709 # ======================================================================
2710 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2711 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2712 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2713 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2714 # (AT YOUR OPTION) ANY LATER VERSION.
2715 #
2716 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2717 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2718 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2719 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2720 #
2721 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2722 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2723 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2724 # ======================================================================
2725 CALC_AMOR_MODAL=OPER(nom="CALC_AMOR_MODAL",op= 172,sd_prod=listr8,
2726                      fr="Création d'une liste d'amortissements modaux calculés selon la règle du RCC-G",
2727                      docu="U4.52.13-c",reentrant='n',
2728          ENER_SOL        =FACT(statut='o',min=01,max=01,
2729            regles=(UN_PARMI('GROUP_NO_RADIER','GROUP_MA_RADIER'),
2730                    PRESENT_ABSENT('COEF_GROUP','FONC_GROUP'),
2731 #  Peut-on remplacer les deux règles suivantes par un ENSEMBLE_('KRX','KRY','KRZ')
2732                    PRESENT_PRESENT('KRX','KRY'),
2733                    PRESENT_PRESENT('KRX','KRZ'),
2734                    PRESENT_ABSENT('COOR_CENTRE','NOEUD_CENTRE'),
2735                    PRESENT_ABSENT('GROUP_NO_CENTRE','NOEUD_CENTRE'),
2736                    PRESENT_ABSENT('GROUP_NO_CENTRE','COOR_CENTRE'),),
2737            METHODE         =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","RIGI_PARASOL") ),
2738            MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
2739            GROUP_NO_RADIER =SIMP(statut='f',typ=grno,max='**'),
2740            GROUP_MA_RADIER =SIMP(statut='f',typ=grma,max='**'),
2741            FONC_GROUP      =SIMP(statut='f',typ=fonction ),
2742            COEF_GROUP      =SIMP(statut='f',typ='R',max='**'),
2743            KX              =SIMP(statut='o',typ='R' ),
2744            KY              =SIMP(statut='o',typ='R' ),
2745            KZ              =SIMP(statut='o',typ='R' ),
2746            KRX             =SIMP(statut='f',typ='R' ),
2747            KRY             =SIMP(statut='f',typ='R' ),
2748            KRZ             =SIMP(statut='f',typ='R' ),
2749            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno),
2750            NOEUD_CENTRE    =SIMP(statut='f',typ=no),
2751            COOR_CENTRE     =SIMP(statut='f',typ='R',max=03),
2752          ),
2753          AMOR_INTERNE    =FACT(statut='o',min=01,max=01,
2754            ENER_POT        =SIMP(statut='o',typ=tabl_ener_pot ),
2755            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
2756            AMOR_REDUIT     =SIMP(statut='o',typ='R',max='**'),
2757          ),
2758          AMOR_SOL        =FACT(statut='o',min=01,max=01,
2759            AMOR_REDUIT     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2760            FONC_AMOR_GEO   =SIMP(statut='o',typ=fonction,max='**' ),
2761            HOMOGENE        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2762            SEUIL           =SIMP(statut='f',typ='R',defaut= 0.3 ),
2763          ),
2764 )  ;
2765 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
2766 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2767 # ======================================================================
2768 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2769 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2770 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2771 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2772 # (AT YOUR OPTION) ANY LATER VERSION.
2773 #
2774 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2775 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2776 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2777 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2778 #
2779 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2780 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2781 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2782 # ======================================================================
2783 # RESPONSABLE JMBHH01 J.M.PROIX
2784 def calc_cham_elem_prod(OPTION,**args):
2785
2786 # options mecaniques
2787   if OPTION == "DEGE_ELNO_DEPL" : return cham_elem_epsi_r
2788   if OPTION == "ECIN_ELEM_DEPL" : return cham_elem_ener_r
2789   if OPTION == "EFGE_ELNO_CART" : return cham_elem_sief_r
2790   if OPTION == "EFGE_ELNO_DEPL" : return cham_elem_sief_r
2791   if OPTION == "ENDO_ELNO_SIGM" : return cham_elem_sief_r
2792   if OPTION == "EPOT_ELEM_DEPL" : return cham_elem_ener_r
2793   if OPTION == "ENEL_ELGA" :      return cham_elem_ener_r
2794   if OPTION == "ENEL_ELNO_ELGA" : return cham_elem_ener_r
2795   if OPTION == "EPSI_ELNO_DEPL" : return cham_elem_epsi_r
2796   if OPTION == "EQUI_ELGA_EPSI" : return cham_elem_epsi_r
2797   if OPTION == "EQUI_ELGA_SIGM" : return cham_elem_sief_r
2798   if OPTION == "EQUI_ELNO_EPSI" : return cham_elem_epsi_r
2799   if OPTION == "EQUI_ELNO_SIGM" : return cham_elem_sief_r
2800   if OPTION == "PRES_DBEL_DEPL" : return cham_elem_dbel_r
2801   if OPTION == "SIEF_ELGA_DEPL" : return cham_elem_sief_r
2802   if OPTION == "SIEF_ELGA_LAGR" : return cham_elem_sief_r
2803   if OPTION == "SIGM_ELNO_CART" : return cham_elem_sief_r
2804   if OPTION == "SIGM_ELNO_DEPL" : return cham_elem_sief_r
2805   if OPTION == "SIGM_ELNO_LAGR" : return cham_elem_sief_r
2806   if OPTION == "SIPO_ELNO_DEPL" : return cham_elem_sief_r
2807
2808 # options thermiques
2809
2810   if OPTION == "FLUX_ELGA_TEMP" : return cham_elem_flux_r
2811   if OPTION == "FLUX_ELNO_TEMP" : return cham_elem_flux_r
2812   if OPTION == "SOUR_ELGA_ELEC" : return cham_elem_sour_r
2813
2814 # options acoustiques
2815
2816   if OPTION == "PRES_ELNO_DBEL" : return cham_elem_dbel_r
2817   if OPTION == "PRES_ELNO_REEL" : return cham_elem_pres_r
2818   if OPTION == "PRES_ELNO_IMAG" : return cham_elem_pres_r
2819
2820 # autres options
2821
2822   if OPTION == "COOR_ELGA" :      return cham_elem_geom_r
2823
2824   raise AsException("type de concept resultat non prevu")
2825
2826 CALC_CHAM_ELEM=OPER(nom="CALC_CHAM_ELEM",op=38,sd_prod=calc_cham_elem_prod,
2827                     fr="Calcul de champs par éléments à partir de champs solution ou de champs par éléments",
2828                     docu="U4.81.03-g1",reentrant='n',
2829          MODELE          =SIMP(statut='o',typ=modele),
2830          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
2831          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
2832
2833          regles=(EXCLUS('TOUT','GROUP_MA',),EXCLUS('TOUT','MAILLE',),),
2834          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2835          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2836          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2837
2838 #
2839 #
2840 #  introduire un mot cle de type modelisation : mécanique,thermique,...
2841 #
2842
2843          OPTION          =SIMP(statut='o',typ='TXM',
2844                                into=("DEGE_ELNO_DEPL","ECIN_ELEM_DEPL","EFGE_ELNO_CART",
2845                                      "EFGE_ELNO_DEPL","ENDO_ELNO_SIGM","EPOT_ELEM_DEPL",
2846                                      "ENEL_ELGA",     "ENEL_ELNO_ELGA","EPSI_ELNO_DEPL",
2847                                      "EQUI_ELGA_EPSI","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI",
2848                                      "EQUI_ELNO_SIGM","PRES_DBEL_DEPL","SIEF_ELGA_DEPL",
2849                                      "SIEF_ELGA_LAGR","SIGM_ELNO_CART","SIGM_ELNO_DEPL",
2850                                      "SIGM_ELNO_LAGR","SIPO_ELNO_DEPL",
2851                                      "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","SOUR_ELGA_ELEC",
2852                                      "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG",
2853                                      "COOR_ELGA"), ),
2854
2855          b_dege_elno_depl  =BLOC(condition="OPTION=='DEGE_ELNO_DEPL'",
2856            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2857            PLAN            =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
2858          ),
2859
2860          b_ecin_elem_depl  =BLOC(condition="OPTION=='ECIN_ELEM_DEPL'",
2861            regles=(UN_PARMI('VITE','DEPL',),ENSEMBLE('DEPL','FREQ',),),
2862            FREQ            =SIMP(statut='f',typ='R'),
2863            VITE            =SIMP(statut='f',typ=cham_no_depl_r),
2864            DEPL            =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_depl_c)),
2865          ),
2866
2867          b_efge_elno_cart  =BLOC(condition="OPTION=='EFGE_ELNO_CART'",
2868            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2869            PLAN            =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
2870          ),
2871
2872          b_efge_elno_depl  =BLOC(condition="OPTION=='EFGE_ELNO_DEPL'",
2873            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2874            PLAN            =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
2875          ),
2876
2877          b_endo_elno_sigm  =BLOC(condition="OPTION=='ENDO_ELNO_SIGM'",
2878            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2879          ),
2880
2881          b_epot_elem_depl  =BLOC(condition="OPTION=='EPOT_ELEM_DEPL'",
2882            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2883          ),
2884
2885          b_enel_elga       =BLOC(condition="OPTION=='ENEL_ELGA'",
2886            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2887          ),
2888
2889          b_enel_elno_elga  =BLOC(condition="OPTION=='ENEL_ELNO_ELGA'",
2890            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2891          ),
2892
2893          b_epsi_elno_depl  =BLOC(condition="OPTION=='EPSI_ELNO_DEPL'",
2894            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2895          ),
2896
2897          b_equi_elga_epsi  =BLOC(condition="OPTION=='EQUI_ELGA_EPSI'",
2898            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_epsi_r,) ),
2899          ),
2900
2901          b_equi_elga_sigm  =BLOC(condition="OPTION=='EQUI_ELGA_SIGM'",
2902            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2903          ),
2904
2905          b_equi_elno_epsi  =BLOC(condition="OPTION=='EQUI_ELNO_EPSI'",
2906            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_epsi_r,) ),
2907          ),
2908
2909          b_equi_elno_sigm  =BLOC(condition="OPTION=='EQUI_ELNO_SIGM'",
2910            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2911          ),
2912
2913          b_pres_dbel_depl  =BLOC(condition="OPTION=='PRES_DBEL_DEPL'",
2914            DEPL            =SIMP(statut='o',typ=(cham_no_depl_c,)),
2915          ),
2916
2917          b_sief_elga_depl  =BLOC(condition="OPTION=='SIEF_ELGA_DEPL'",
2918            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2919          ),
2920
2921          b_sief_elga_lagr  =BLOC(condition="OPTION=='SIEF_ELGA_LAGR'",
2922            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2923            THETA           =SIMP(statut='o',typ=(theta_geom,)),
2924            PROPAGATION     =SIMP(statut='f',typ='R',defaut=0.E+0),
2925          ),
2926
2927          b_sigm_elno_cart  =BLOC(condition="OPTION=='SIGM_ELNO_CART'",
2928            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2929          ),
2930
2931          b_sigm_elno_depl  =BLOC(condition="OPTION=='SIGM_ELNO_DEPL'",
2932            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,) ),
2933          ),
2934
2935          b_sigm_elno_lagr  =BLOC(condition="OPTION=='SIGM_ELNO_LAGR'",
2936            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2937            THETA           =SIMP(statut='o',typ=(theta_geom,)),
2938            PROPAGATION     =SIMP(statut='f',typ='R',defaut=0.E+0),
2939          ),
2940
2941          b_sipo_elno_depl  =BLOC(condition="OPTION=='SIPO_ELNO_DEPL'",
2942            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2943          ),
2944
2945          b_thermique  =BLOC(condition="OPTION in ('FLUX_ELNO_TEMP','FLUX_ELGA_TEMP','SOUR_ELGA_ELEC',)",
2946            TEMP            =SIMP(statut='o',typ=(cham_no_temp_r,)),
2947          ),
2948
2949          b_acoustique  =BLOC(condition="OPTION in ('PRES_ELNO_DBEL','PRES_ELNO_REEL','PRES_ELNO_IMAG',)",
2950            PRES            =SIMP(statut='o',typ=(cham_no_pres_c,)),
2951          ),
2952
2953
2954
2955          EXCIT           =FACT(statut='f',min=01,max='**',
2956                regles=(EXCLUS('FONC_MULT','COEF_MULT', ),),
2957                CHARGE          =SIMP(statut='o',typ=(char_meca,char_ther,char_acou)),
2958                FONC_MULT       =SIMP(statut='f',typ=fonction),
2959                COEF_MULT       =SIMP(statut='f',typ='R'), ),
2960
2961          INST            =SIMP(statut='f',typ='R',defaut= 0.E+0),
2962          ACCE            =SIMP(statut='f',typ=cham_no_depl_r),
2963          NUME_COUCHE     =SIMP(statut='f',typ='I',defaut= 1),
2964          NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
2965          MODE_FOURIER    =SIMP(statut='f',typ='I',defaut= 0 ),
2966          ANGLE           =SIMP(statut='f',typ='I',defaut= 0),
2967 )  ;
2968 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2969 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2970 # ======================================================================
2971 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2972 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2973 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2974 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2975 # (AT YOUR OPTION) ANY LATER VERSION.
2976 #
2977 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2978 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2979 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2980 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2981 #
2982 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2983 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2984 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2985 # ======================================================================
2986 # RESPONSABLE VABHHTS J.PELLET
2987 def calc_char_cine_prod(CHAR_CINE,**args):
2988   if AsType(CHAR_CINE) == char_cine_meca : return cham_no_depl_r
2989   if AsType(CHAR_CINE) == char_cine_ther : return cham_no_temp_r
2990   if AsType(CHAR_CINE) == char_cine_acou : return cham_no_pres_c
2991   raise AsException("type de concept resultat non prevu")
2992
2993 CALC_CHAR_CINE=OPER(nom="CALC_CHAR_CINE",op= 102,sd_prod=calc_char_cine_prod,
2994                     fr="Calcul des seconds membres associés à des charges cinématiques (conditions aux limites non dualisées)",
2995                     docu="U4.61.03-e",reentrant='n',
2996          NUME_DDL        =SIMP(statut='o',typ=nume_ddl ),
2997          CHAR_CINE       =SIMP(statut='o',typ=(char_cine_meca,char_cine_ther,char_cine_acou ) ),
2998          INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2999          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3000 )  ;
3001 #& MODIF COMMANDE  DATE 28/03/2001   AUTEUR CIBHHLV L.VIVAN
3002 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3003 # ======================================================================
3004 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3005 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3006 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3007 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3008 # (AT YOUR OPTION) ANY LATER VERSION.
3009 #
3010 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3011 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3012 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3013 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3014 #
3015 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3016 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3017 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3018 # ======================================================================
3019 def calc_char_seisme_prod(MATR_MASS,**args ):
3020   if AsType(MATR_MASS) == matr_asse_depl_r : return cham_no_depl_r
3021   raise AsException("type de concept resultat non prevu")
3022
3023 CALC_CHAR_SEISME=OPER(nom="CALC_CHAR_SEISME",op=  92,sd_prod=calc_char_seisme_prod,
3024                       docu="U4.63.01-e",reentrant='n',
3025          regles=(UN_PARMI('MONO_APPUI','MODE_STAT' ),),
3026          MATR_MASS       =SIMP(statut='o',typ=matr_asse_depl_r,fr="Matrice de masse" ),
3027          DIRECTION       =SIMP(statut='o',typ='R',max=06,fr="Directions du séisme imposé"),
3028          MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3029          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
3030          b_mode_stat     =BLOC ( condition = "MODE_STAT != None",
3031            regles=(UN_PARMI('NOEUD','GROUP_NO' ),),
3032            NOEUD           =SIMP(statut='f',typ=no,max='**'),
3033            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
3034          ),
3035          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3036 )  ;
3037 #& MODIF COMMANDE  DATE 08/08/2002   AUTEUR CIBHHLV L.VIVAN
3038 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3039 # ======================================================================
3040 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3041 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3042 #              REDISTRIBUTION OF THIS FILE.
3043 # ======================================================================
3044 # RESPONSABLE JMBHH01 J.M.PROIX
3045 def calc_elem_prod(RESULTAT,**args):
3046    if AsType(RESULTAT) != None : return AsType(RESULTAT)
3047    raise AsException("type de concept resultat non prevu")
3048
3049 CALC_ELEM=OPER(nom="CALC_ELEM",op=58,sd_prod=calc_elem_prod,docu="U4.81.01-g3",reentrant='f',
3050                     fr="Compléter un résultat en calculant des champs par éléments (contraintes, déformations,... )",
3051          MODELE          =SIMP(statut='o',typ=modele),
3052          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
3053          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
3054
3055          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3056          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3057          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3058
3059          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
3060                         'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),),
3061          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3062          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
3063          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
3064          NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
3065          NOM_CAS         =SIMP(statut='f',typ='TXM' ),
3066
3067          INST            =SIMP(statut='f',typ='R',max='**'),
3068          FREQ            =SIMP(statut='f',typ='R',max='**'),
3069          LIST_INST       =SIMP(statut='f',typ=listr8),
3070          LIST_FREQ       =SIMP(statut='f',typ=listr8),
3071          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
3072          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
3073
3074          LIST_ORDRE      =SIMP(statut='f',typ=listis),
3075
3076          OPTION          =SIMP(statut='o',typ='TXM',max='**',
3077                                into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
3078                                      "SIGM_ELNO_TUYO","SIGM_ELNO_CART","DEGE_ELNO_DEPL","EFGE_ELNO_CART",
3079                                      "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL",
3080                                      "EPME_ELNO_DEPL","EPME_ELGA_DEPL","EPMG_ELNO_DEPL","EPMG_ELGA_DEPL",
3081                                      "EPSP_ELNO","EPSP_ELGA","ECIN_ELEM_DEPL","SIPO_ELNO_DEPL",
3082                                      "EPGR_ELNO","EPGR_ELGA","DURT_ELGA_META","DURT_ELNO_META",
3083                                      "SIGM_ELNO_COQU","SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",
3084                                      "SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA","ERRE_ELEM_NOZ2",
3085                                      "VNOR_ELEM_DEPL","SIRE_ELNO_DEPL","ERRE_ELGA_NORE","ERRE_ELNO_ELGA",
3086                                      "VARI_ELNO_ELGA","VARI_ELNO_TUYO","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
3087                                      "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI","EQUI_ELNO_EPME","EQUI_ELGA_EPME",
3088                                      "DCHA_ELNO_SIGM","DCHA_ELGA_SIGM","RADI_ELNO_SIGM","RADI_ELGA_SIGM",
3089                                      "ENDO_ELNO_SIGA","ENDO_ELNO_SINO","ENEL_ELGA","ENEL_ELNO_ELGA","SIEF_ELNO_ELGA",
3090                                      "DEUL_ELGA_TEMP","DETE_ELNO_DLTE","DEUL_ELGA_DEPL","DEDE_ELNO_DLDE",
3091                                      "DESI_ELNO_DLSI","PMPB_ELNO_SIEF","PMPB_ELGA_SIEF",
3092                                      "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","HYDR_ELNO_ELGA",
3093                                      "SOUR_ELGA_ELEC","VARI_ELNO_COQU","CRIT_ELNO_RUPT",
3094                                      "PRES_ELNO_DBEL","PRES_DBEL_DEPL","PRES_ELNO_REEL","PRES_ELNO_IMAG",
3095                                      "INTE_ELNO_ACTI","INTE_ELNO_REAC","ERTH_ELEM_TEMP","ERTH_ELNO_ELEM"
3096                                      ) ),
3097          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,mode_meca,
3098                                     mode_stat,mode_stat_depl,mode_stat_acce,mode_stat_forc,
3099                                     evol_noli,mult_elas,fourier_elas,
3100                                                evol_ther,base_modale,
3101                                                acou_harmo,mode_acou,mode_flamb) ),
3102          EXCIT           =FACT(statut='f',min=1,max='**',
3103              regles=(EXCLUS('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
3104              CHARGE          =SIMP(statut='o',typ=(char_meca,char_ther,char_acou) ),
3105              FONC_MULT       =SIMP(statut='f',typ=fonction),
3106              FONC_MULT_C     =SIMP(statut='f',typ=fonction_c),
3107              COEF_MULT       =SIMP(statut='f',typ='R'),
3108              COEF_MULT_C     =SIMP(statut='f',typ='C'),
3109              PHAS_DEG        =SIMP(statut='f',typ='R'),
3110              PUIS_PULS       =SIMP(statut='f',typ='I'),
3111              TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
3112          ),
3113          NORME           =SIMP(statut='f',typ='TXM',defaut="VMIS",
3114                                into=("VMIS","TOTAL","VMIS_CINE","TOTAL_CINE") ),
3115          NUME_COUCHE     =SIMP(statut='f',typ='I',defaut= 1 ),
3116          NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
3117
3118          ANGLE           =SIMP(statut='f',typ='I',defaut= 0 ),
3119          PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL") ),
3120          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
3121                                fr="Liste des paramètres de sensibilité.",
3122                                ang="List of sensitivity parameters"),
3123          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
3124          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3125 )  ;
3126 #& MODIF COMMANDE  DATE 24/06/2002   AUTEUR F1BHHAJ J.ANGLES
3127 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3128 # ======================================================================
3129 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3130 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3131 #              REDISTRIBUTION OF THIS FILE.
3132 # ======================================================================
3133 def calc_fatigue_prod(TYPE_CALCUL,**args):
3134   if TYPE_CALCUL == "CUMUL_DOMMAGE" : return cham_elem_dommag
3135   if TYPE_CALCUL == "FATIGUE_MULTI" : return cham_elem_facy_r
3136   raise AsException("type de calcul non prevu")
3137
3138 CALC_FATIGUE=OPER(nom="CALC_FATIGUE",op= 151,sd_prod=calc_fatigue_prod,reentrant='n',
3139                   fr="Calcul d un cham de dommage ou d un cisaillement maximal dans le plan critique.",
3140                   docu="U4.83.02-c",
3141
3142          TYPE_CALCUL = SIMP(statut='o',typ='TXM',
3143                                into=("CUMUL_DOMMAGE","FATIGUE_MULTI",) ),
3144
3145          b_cumul_domma   =BLOC(condition = "TYPE_CALCUL == 'CUMUL_DOMMAGE'",
3146                                fr="Calcul d un champ de dommage subi par une structure.",
3147            regles=(PRESENT_PRESENT('DOMMAGE','MATER', ),),
3148            OPTION          =SIMP(statut='o',typ='TXM',
3149                                  into=("DOMA_ELNO_SIGM","DOMA_ELGA_SIGM",
3150                                        "DOMA_ELNO_EPSI","DOMA_ELGA_EPSI",
3151                                        "DOMA_ELNO_EPME","DOMA_ELGA_EPME") ),
3152            HISTOIRE        =FACT(statut='o',min=01,max=01,
3153              RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,
3154                                                    evol_noli) ),
3155              EQUI_GD         =SIMP(statut='f',typ='TXM',defaut="VMIS_SG",
3156                                  into=("VMIS_SG","INVA_2_SG") ),
3157            ),
3158            DOMMAGE         =SIMP(statut='o',typ='TXM',
3159                                into=("WOHLER","MANSON_COFFIN","TAHERI_MANSON",
3160                                      "TAHERI_MIXTE",) ),
3161            MATER           =SIMP(statut='o',typ=(mater) ),
3162            TAHERI_NAPPE    =SIMP(statut='f',typ=(fonction) ),
3163            TAHERI_FONC     =SIMP(statut='f',typ=(fonction) ),
3164          ),
3165
3166          b_fatigue_multi   =BLOC(condition = "TYPE_CALCUL == 'FATIGUE_MULTI'",
3167                                  fr="Plan critique dans le cas de la fatigue multiaxiale a grand nombre de cycles.",
3168            RESULTAT      =SIMP(statut='o',typ=(evol_elas, evol_noli) ),
3169            CHAM_MATER    =SIMP(statut='o',typ=(cham_mater) ),
3170            CRITERE       =SIMP(statut='o',typ='TXM',into=("MATAKE",) ),
3171            METHODE       =SIMP(statut='o',typ='TXM',into=("CERCLE_EXACT",) ),
3172          ),
3173
3174          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
3175 )  ;
3176 #& MODIF COMMANDE  DATE 23/04/2001   AUTEUR MCOURTOI M.COURTOIS
3177 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3178 # ======================================================================
3179 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3180 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3181 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3182 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3183 # (AT YOUR OPTION) ANY LATER VERSION.
3184 #
3185 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3186 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3187 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3188 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3189 #
3190 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3191 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3192 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3193 # ======================================================================
3194 CALC_FLUI_STRU=OPER(nom="CALC_FLUI_STRU",op= 144,sd_prod=melasflu,
3195                     docu="U4.66.02-d",reentrant='n',
3196          VITE_FLUI       =FACT(statut='o',min=01,max=01,
3197                                fr="Définir la plage de vitesse fluide étudiée",
3198            VITE_MIN        =SIMP(statut='o',typ='R' ),
3199            VITE_MAX        =SIMP(statut='o',typ='R' ),
3200            NB_POIN         =SIMP(statut='o',typ='I' ),
3201          ),
3202          BASE_MODALE     =FACT(statut='o',min=01,max=01,
3203
3204            regles=(UN_PARMI('AMOR_REDUIT','AMOR_UNIF'),),
3205            MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
3206            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
3207            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
3208            AMOR_UNIF       =SIMP(statut='f',typ='R' ),
3209          ),
3210          TYPE_FLUI_STRU  =SIMP(statut='o',typ=type_flui_stru ),
3211          IMPRESSION      =FACT(statut='f',min=01,max=01,
3212                                fr="Choix des informations à imprimer dans le fichier RESULTAT",
3213            PARA_COUPLAGE   =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3214            DEFORMEE        =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3215          ),
3216 )  ;
3217 #& MODIF COMMANDE  DATE 06/03/2002   AUTEUR MCOURTOI M.COURTOIS
3218 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3219 # ======================================================================
3220 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3221 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3222 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3223 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3224 # (AT YOUR OPTION) ANY LATER VERSION.
3225 #
3226 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3227 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3228 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3229 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3230 #
3231 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3232 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3233 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3234 # ======================================================================
3235 CALC_FONC_INTERP=OPER(nom="CALC_FONC_INTERP",op= 134,sd_prod=fonction,
3236                       docu="U4.32.01-e1",reentrant='f',
3237          regles=(UN_PARMI('VALE_R','LIST_PARA'),),
3238          FONCTION        =SIMP(statut='o',typ=fonction ),
3239          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
3240          VALE_R          =SIMP(statut='f',typ='R',max='**'),
3241          LIST_PARA       =SIMP(statut='f',typ=listr8 ),
3242          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG","INT") ),
3243          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("EXCLU","CONSTANT","LINEAIRE","INTERPRE") ),
3244          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("EXCLU","CONSTANT","LINEAIRE","INTERPRE") ),
3245          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3246          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3247 )  ;
3248 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
3249 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3250 # ======================================================================
3251 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3252 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3253 #              REDISTRIBUTION OF THIS FILE.
3254 # ======================================================================
3255 # RESPONSABLE MCOURTOI M.COURTOIS
3256 def calc_fonction_prod(DERIVE,EXTRACTION,INTEGRE,RMS,NOCI_SEISME,MAX,COMB,COMB_C,ENVELOPPE,
3257                        SPEC_OSCI,ASSE,FFT,COMPOSE,CORR_ACCE,PUISSANCE, NORME, **args):
3258   if (RMS != None)        : return tabl_fonc_rms
3259   if (MAX != None)        : return tabl_fonc_max
3260   if (NOCI_SEISME != None): return tabl_fonc_noci
3261   if (INTEGRE != None)    : return fonction
3262   if (DERIVE != None)     : return fonction
3263   if (COMB != None)       : return fonction
3264   if (ENVELOPPE != None)  : return fonction
3265   if (EXTRACTION != None) : return fonction
3266   if (SPEC_OSCI != None)  : return fonction
3267   if (COMB_C != None)     : return fonction_c
3268   if (COMPOSE != None)    : return fonction
3269   if (ASSE != None)       : return fonction
3270   if (FFT != None)        :
3271      vale=FFT.get_child('FONCTION').get_valeur()
3272      if (AsType(vale) == fonction )  : return fonction_c
3273      if (AsType(vale) == fonction_c) : return fonction
3274   if (CORR_ACCE != None) : return fonction
3275   if (PUISSANCE != None) : return fonction
3276   if (NORME != None) : return table
3277   raise AsException("type de concept resultat non prevu")
3278
3279 CALC_FONCTION=OPER(nom="CALC_FONCTION",op=  91,sd_prod=calc_fonction_prod
3280                     ,fr="Opérations mathématiques sur des concepts de type fonction",
3281                      docu="U4.32.04-f2",reentrant='n',
3282          regles=(UN_PARMI('DERIVE','INTEGRE','SPEC_OSCI','MAX','COMB','COMB_C','ENVELOPPE','RMS',
3283                           'NOCI_SEISME','COMPOSE','EXTRACTION','ASSE','FFT','CORR_ACCE', 'PUISSANCE' ,'NORME'),),
3284          FFT             =FACT(statut='f',min=1,max=1,fr="Calcul de la transformee de Fourier ou de son inverse",
3285            FONCTION        =SIMP(statut='o',typ=(fonction,fonction_c) )
3286          ),
3287          DERIVE          =FACT(statut='f',min=1,max=1,fr="Calcul de la dérivée d une fonction",
3288            METHODE         =SIMP(statut='f',typ='TXM',defaut="DIFF_CENTREE",into=("DIFF_CENTREE",) ),
3289            FONCTION        =SIMP(statut='o',typ=fonction ),
3290          ),
3291          INTEGRE         =FACT(statut='f',min=1,max=1,fr="Calcul de l intégrale d une fonction",
3292            METHODE         =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
3293            FONCTION        =SIMP(statut='o',typ=fonction),
3294            COEF            =SIMP(statut='f',typ='R',defaut= 0.E+0,fr="Valeur de la constante d intégration" ),
3295          ),
3296          RMS             =FACT(statut='f',min=1,max=1,fr="Calcul de la valeur RMS d une fonction",
3297            METHODE         =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
3298            FONCTION        =SIMP(statut='o',typ=fonction ),
3299            INST_INIT       =SIMP(statut='f',typ='R',fr="Instant initial définissant le début du signal" ),
3300            INST_FIN        =SIMP(statut='f',typ='R',fr="Instant final définissant la fin du signal" ),
3301            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3302            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
3303          ),
3304          NOCI_SEISME     =FACT(statut='f',min=1,max=1,
3305            FONCTION        =SIMP(statut='f',typ=fonction ),
3306            SPEC_OSCI       =SIMP(statut='f',typ=fonction ),
3307            OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",max='**',
3308                                  into=("INTE_ARIAS","POUV_DEST","INTE_SPEC","VITE_ABSO_CUMU",
3309                                        "DUREE_PHAS_FORT","MAXI","ACCE_SUR_VITE","TOUT",) ),
3310            INST_INIT       =SIMP(statut='f',typ='R'),
3311            INST_FIN        =SIMP(statut='f',typ='R'),
3312            NATURE          =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE") ),
3313            COEF            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3314            PESANTEUR       =SIMP(statut='f',typ='R',defaut= 9.81E+0 ),
3315            FREQ_INIT       =SIMP(statut='f',typ='R',defaut= 4.E-1 ),
3316            FREQ_FIN        =SIMP(statut='f',typ='R',defaut= 10.E+0 ),
3317            AMOR_REDUIT     =SIMP(statut='f',typ='R'),
3318            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
3319            FREQ            =SIMP(statut='f',typ='R',max='**'),
3320            NORME           =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
3321            BORNE_INF       =SIMP(statut='f',typ='R',defaut= 0.05E+0 ),
3322            BORNE_SUP       =SIMP(statut='f',typ='R',defaut= 0.95E+0 ),
3323            b_acce_reel     =BLOC(condition="(INST_INIT != None)or(INST_FIN != None)or(FREQ_INIT != None)or(FREQ_FIN != None)",
3324              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
3325              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3326            ),
3327          ),
3328          SPEC_OSCI       =FACT(statut='f',min=1,max=1,fr="Calcul du spectre d oscillateur",
3329            METHODE         =SIMP(statut='f',typ='TXM',defaut="NIGAM",into=("NIGAM",) ),
3330            FONCTION        =SIMP(statut='o',typ=fonction ),
3331            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
3332            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
3333            FREQ            =SIMP(statut='f',typ='R',max='**'),
3334            NORME           =SIMP(statut='f',typ='R',defaut= 9.81E+0,fr="Valeur de la norme du spectre d oscillateur" ),
3335            NATURE          =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
3336            NATURE_FONC     =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
3337          ),
3338          MAX             =FACT(statut='f',min=1,max=1,fr="Calcul des extrémas locaux d une fonction",
3339            FONCTION        =SIMP(statut='o',typ=fonction ),
3340          ),
3341          COMB            =FACT(statut='f',min=1,max='**',fr="Calcul d une combinaison linéaire réelle de fonctions",
3342            FONCTION        =SIMP(statut='o',typ=fonction ),
3343            COEF            =SIMP(statut='o',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
3344          ),
3345          COMB_C          =FACT(statut='f',min=1,max='**',fr="Calcul d une combinaison linéaire complexe de fonctions",
3346            regles=(UN_PARMI('COEF_R','COEF_C'),),
3347            FONCTION        =SIMP(statut='o',typ=(fonction, fonction_c) ),
3348            COEF_R          =SIMP(statut='f',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
3349            COEF_C          =SIMP(statut='f',typ='C',fr="Coefficient complexe de la combinaison linéaire associée à la fonction" ),
3350          ),
3351          b_comb          =BLOC ( condition = " (COMB != None) or (COMB_C != None)",
3352              LIST_PARA      =SIMP(statut='f',typ=listr8 ),
3353          ),
3354          COMPOSE         =FACT(statut='f',min=1,max=1,fr="Calcul de la composition de deux fonctions FONC_RESU(FONC_PARA)",
3355            FONC_RESU       =SIMP(statut='o',typ=fonction),
3356            FONC_PARA       =SIMP(statut='o',typ=fonction),
3357          ),
3358          EXTRACTION      =FACT(statut='f',min=1,max=1,fr="Opération d extraction sur une fonction complexe",
3359            FONCTION        =SIMP(statut='o',typ=fonction_c),
3360            PARTIE          =SIMP(statut='o',typ='TXM',into=("REEL","IMAG","MODULE","PHASE"),fr="Partie à extraire"),
3361          ),
3362          ENVELOPPE       =FACT(statut='f',min=1,max=1,fr="Calcul de l enveloppe d une famille de fonctions",
3363            FONCTION        =SIMP(statut='o',typ=fonction,max='**' ),
3364            CRITERE         =SIMP(statut='f',typ='TXM',defaut="SUP",into=("SUP","INF"),fr="Type de l enveloppe" ),
3365          ),
3366          ASSE            =FACT(statut='f',min=1,max=1,fr="Création à partir de la concatenation de fonctions",
3367            FONCTION        =SIMP(statut='o',typ=fonction,max='**' ),
3368            SURCHARGE       =SIMP(statut='f',typ='TXM',defaut="DROITE",into=("DROITE","GAUCHE")),
3369          ),
3370           CORR_ACCE     =FACT(statut='f',min=1,max=1,fr="Correction d un accelerogramme reel",
3371             CORR_DEPL          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
3372             FONCTION        =SIMP(statut='o',typ=fonction ),
3373          ),
3374          PUISSANCE       =FACT(statut='f',min=1,max=1,fr="Cacul du carré d'une fonction",
3375             FONCTION      =SIMP(statut='o', typ=fonction),
3376             EXPOSANT      =SIMP(statut='f', typ='I', defaut=1 ),
3377          ),
3378          NORME     =FACT(statut='f',min=1,max=1,fr="Cacul de la norme L2 d'une fonction",
3379             FONCTION =SIMP(statut='o', typ=fonction),
3380          ),
3381          NOM_PARA        =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
3382                                                           "INST","X","Y","Z","EPSI","FREQ","PULS",
3383                                                           "AMOR","ABSC") ),
3384          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
3385          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
3386          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3387          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3388          NOM_PARA_FONC   =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
3389                                                           "INST","X","Y","Z","EPSI","FREQ","PULS",
3390                                                           "AMOR","ABSC") ),
3391          INTERPOL_FONC   =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
3392          PROL_DROITE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3393          PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3394          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3395          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3396 )  ;
3397 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
3398 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3399 # ======================================================================
3400 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3401 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3402 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3403 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3404 # (AT YOUR OPTION) ANY LATER VERSION.
3405 #
3406 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3407 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3408 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3409 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3410 #
3411 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3412 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3413 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3414 # ======================================================================
3415 CALC_FORC_AJOU=OPER(nom="CALC_FORC_AJOU",op=199,sd_prod=vect_asse_gene,
3416                    fr="calcul de la force ajoutee ",
3417                    docu="U4.66.03-a1",reentrant ='n',
3418
3419         regles=(EXCLUS('MODE_MECA','MODELE_GENE'),
3420                 PRESENT_PRESENT( 'MODELE_GENE','NUME_DDL_GENE'),
3421                 UN_PARMI('MONO_APPUI', 'NOEUD','GROUP_NO'),
3422                 UN_PARMI('MONO_APPUI','MODE_STAT')),
3423
3424          MODELE_FLUIDE   =SIMP(statut='o',typ=modele ),
3425          MODELE_INTERFACE=SIMP(statut='o',typ=modele ),
3426          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
3427          CHARGE          =SIMP(statut='o',typ=char_ther ),
3428          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
3429          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
3430          NUME_DDL_GENE   =SIMP(statut='f',typ=nume_ddl_gene ),
3431          DIST_REFE       =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
3432          AVEC_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3433          NUME_MODE_MECA  =SIMP(statut='f',typ='I',max='**'),
3434          POTENTIEL       =SIMP(statut='f',typ=evol_ther ),
3435          NOEUD_DOUBLE    =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3436
3437          DIRECTION       =SIMP(statut='o',typ='R',max=3),
3438          MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",),),
3439          NOEUD           =SIMP(statut='f',typ=no,max='**'),
3440          GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
3441          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,),),
3442
3443          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3444
3445          SOLVEUR         =FACT(statut='d',min=1,max=1,
3446            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
3447            b_mult_front    = BLOC ( condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
3448              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
3449            ),
3450            b_ldlt          =BLOC( condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
3451              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
3452            ),
3453            b_ldlt_mult     =BLOC( condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
3454                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
3455              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
3456              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3457            ),
3458            b_gcpc          =BLOC (condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
3459              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
3460              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
3461              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
3462              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
3463              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
3464            ),
3465 #  A quoi sert eps
3466            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0),  ),
3467
3468            ) ;
3469 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
3470 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3471 # ======================================================================
3472 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3473 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3474 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3475 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3476 # (AT YOUR OPTION) ANY LATER VERSION.
3477 #
3478 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3479 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3480 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3481 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3482 #
3483 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3484 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3485 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3486 # ======================================================================
3487 CALC_G_LOCAL_T=OPER(nom="CALC_G_LOCAL_T",op=77,sd_prod=tabl_calc_g_loca,
3488                     fr="Calcul du taux de restitution local d énergie",docu="U4.82.04-f3",reentrant='n',
3489          MODELE          =SIMP(statut='o',typ=modele),
3490          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
3491          regles=(UN_PARMI('FOND','FOND_FISS' ),
3492                  UN_PARMI('RESULTAT','DEPL'),
3493                  UN_PARMI('R_INF','R_INF_FO'),
3494                  PRESENT_PRESENT('R_INF','R_SUP'),
3495                  PRESENT_PRESENT('R_INF_FO','R_SUP_FO'), ),
3496          FOND            =SIMP(statut='f',typ=fond_fiss),
3497          FOND_FISS       =SIMP(statut='f',typ=fond_fiss),
3498          DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
3499          RESULTAT        =SIMP(statut='f',typ=(evol_elas,evol_noli),),
3500          b_extrac        =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
3501              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
3502              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3503              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
3504              LIST_ORDRE      =SIMP(statut='f',typ=listis),
3505              INST            =SIMP(statut='f',typ='R',max='**'),
3506              LIST_INST       =SIMP(statut='f',typ=listr8),
3507
3508              b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
3509                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
3510                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3511              ),
3512          ),
3513
3514          CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
3515          SYME_CHAR       =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
3516
3517          COMP_ELAS       =FACT(statut='f',min=01,max=01,
3518                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
3519                                      into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
3520                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3521                ELAS_VMIS_LINE  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3522                ELAS_VMIS_TRAC  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3523                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
3524       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3525                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3526                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3527                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3528          ),
3529
3530          COMP_INCR       =FACT(statut='f',min=01,max=01,
3531                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
3532                                      into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
3533                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3534                VMIS_ISOT_TRAC  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3535                VMIS_ISOT_LINE  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3536                VMIS_CINE_LINE  =SIMP(statut='f',typ='I',defaut=7,into=(7,) ),
3537                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
3538       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3539                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3540                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3541                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3542          ),
3543
3544          ETAT_INIT       =FACT(statut='f',min=01,max=01,
3545            SIGM            =SIMP(statut='f',typ=cham_elem_sief_r),
3546            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
3547          ),
3548
3549          OPTION          =SIMP(statut='f',typ='TXM',defaut="CALC_G",
3550                                into=("CALC_G","CALC_G_LGLO","G_BILINEAIRE","CALC_G_MAX") ),
3551          b_g             =BLOC(condition="OPTION=='CALC_G'",
3552            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3553            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE","LAGRANGE_NO_NO",) ),
3554          ),
3555          b_g_lglo        =BLOC(condition="OPTION=='CALC_G_LGLO'",
3556            PROPAGATION     =SIMP(statut='o',typ='R'),
3557            THETA           =SIMP(statut='o',typ=theta_geom),
3558            DIRE_THETA      =SIMP(statut='f',typ=cham_no_depl_r),
3559            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3560            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE","LAGRANGE_NO_NO",) ),
3561          ),
3562          b_g_bilin       =BLOC(condition="OPTION=='G_BILINEAIRE'",
3563            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3564            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3565          ),
3566          b_calc_g_max    =BLOC(condition="OPTION=='CALC_G_MAX'",
3567            BORNES          =FACT(statut='o',min=01,max='**',
3568               NUME_ORDRE     =SIMP(statut='o',typ='I'),
3569               VALE_MIN       =SIMP(statut='o',typ='R'),
3570               VALE_MAX       =SIMP(statut='o',typ='R'),
3571                                 ),
3572            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3573            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3574          ),
3575
3576          DEGRE           =SIMP(statut='f',typ='I',defaut=5,into=(0,1,2,3,4,5,6,7) ),
3577
3578          R_INF           =SIMP(statut='f',typ='R'),
3579          R_SUP           =SIMP(statut='f',typ='R'),
3580          R_INF_FO        =SIMP(statut='f',typ=fonction),
3581          R_SUP_FO        =SIMP(statut='f',typ=fonction),
3582
3583          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3584          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
3585 )  ;
3586 #& MODIF COMMANDE  DATE 03/07/2002   AUTEUR CIBHHPD D.NUNEZ
3587 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3588 # ======================================================================
3589 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3590 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3591 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3592 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3593 # (AT YOUR OPTION) ANY LATER VERSION.
3594 #
3595 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3596 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3597 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3598 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3599 #
3600 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3601 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3602 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3603 # ======================================================================
3604 CALC_G_THETA_T=OPER(nom="CALC_G_THETA_T",op=53,sd_prod=tabl_calc_g_th,
3605                     fr="Calcul du taux de restitution d énergie par la méthode theta en thermo-élasticité en 2D ou en 3D",
3606                     docu="U4.82.03-f2",reentrant='n',
3607          regles=(UN_PARMI('RESULTAT','DEPL'),
3608                  EXCLUS('COMP_ELAS','COMP_INCR'),),
3609          MODELE          =SIMP(statut='o',typ=modele),
3610          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
3611          THETA           =SIMP(statut='o',typ=theta_geom),
3612          DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
3613          RESULTAT        =SIMP(statut='f',typ=(evol_elas,evol_noli),),
3614
3615          b_extrac        =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
3616            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
3617            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3618            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
3619            LIST_ORDRE      =SIMP(statut='f',typ=listis),
3620            INST            =SIMP(statut='f',typ='R',max='**'),
3621            LIST_INST       =SIMP(statut='f',typ=listr8),
3622
3623            b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
3624              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
3625              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3626            ),
3627          ),
3628
3629          CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
3630          SYME_CHAR       =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
3631
3632          COMP_ELAS       =FACT(statut='f',min=01,max=01,
3633                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
3634                                      into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
3635                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3636                ELAS_VMIS_LINE  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3637                ELAS_VMIS_TRAC  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3638                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
3639       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3640                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3641                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3642                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3643          ),
3644          COMP_INCR       =FACT(statut='f',min=01,max=01,
3645                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
3646                                      into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
3647                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3648                VMIS_ISOT_TRAC  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3649                VMIS_ISOT_LINE  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3650                VMIS_CINE_LINE  =SIMP(statut='f',typ='I',defaut=7,into=(7,) ),
3651                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
3652       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3653                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3654                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3655                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3656          ),
3657          ETAT_INIT       =FACT(statut='f',min=01,max=01,
3658            SIGM            =SIMP(statut='f',typ=cham_elem_sief_r),
3659            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
3660          ),
3661          OPTION          =SIMP(statut='f',typ='TXM',defaut="CALC_G",
3662                                into=("CALC_G","CALC_G_LAGR","CALC_K_G","G_BILINEAIRE","CALC_G_MAX","CALC_DG",) ),
3663          b_calc_g_max    =BLOC(condition="OPTION=='CALC_G_MAX'",
3664            BORNES          =FACT(statut='o',min=01,max='**',
3665                 NUME_ORDRE     =SIMP(statut='o',typ='I'),
3666                 VALE_MIN       =SIMP(statut='o',typ='R'),
3667                 VALE_MAX       =SIMP(statut='o',typ='R'),
3668                                 ),
3669          ),
3670          b_calc_k_g      =BLOC(condition="OPTION=='CALC_K_G'",
3671              regles=(UN_PARMI('FOND','FOND_FISS' ),),
3672            FOND            =SIMP(statut='f',typ=fond_fiss),
3673            FOND_FISS       =SIMP(statut='f',typ=fond_fiss),
3674          ),
3675          b_calc_g_lagr   =BLOC(condition="OPTION=='CALC_G_LAGR'",
3676            PROPAGATION     =SIMP(statut='o',typ='R'),
3677          ),
3678          b_calc_dg       =BLOC(condition="OPTION=='CALC_DG'",
3679            SENSIBILITE     =FACT(statut='f',min=01,max=01,
3680                  THETA          =SIMP(statut='o',typ=theta_geom ),
3681                                ),
3682          ),
3683
3684          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3685          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
3686 )  ;
3687 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
3688 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3689 # ======================================================================
3690 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3691 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3692 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3693 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3694 # (AT YOUR OPTION) ANY LATER VERSION.
3695 #
3696 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3697 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3698 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3699 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3700 #
3701 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3702 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3703 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3704 # ======================================================================
3705 CALC_INTE_SPEC=OPER(nom="CALC_INTE_SPEC",op= 120,sd_prod=tabl_intsp,
3706                     fr="Calcul d une matrice interspectrale d une fonction du temps",
3707                     docu="U4.36.03-e",reentrant='n',
3708          INST_INIT       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3709          INST_FIN        =SIMP(statut='o',typ='R' ),
3710          DUREE_ANALYSE   =SIMP(statut='f',typ='R' ),
3711          DUREE_DECALAGE  =SIMP(statut='f',typ='R' ),
3712          NB_POIN         =SIMP(statut='o',typ='I' ),
3713          FONCTION        =SIMP(statut='o',typ=fonction,max='**' ),
3714          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3715          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
3716 )  ;
3717 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
3718 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3719 # ======================================================================
3720 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3721 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3722 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3723 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3724 # (AT YOUR OPTION) ANY LATER VERSION.
3725 #
3726 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3727 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3728 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3729 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3730 #
3731 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3732 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3733 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3734 # ======================================================================
3735 CALC_MATR_AJOU=OPER(nom="CALC_MATR_AJOU",op= 152,sd_prod=matr_asse_gene_r,
3736                     fr="Calcul des matrices de masse, d amortissement ou de raideur ajoutées",
3737                     docu="U4.66.01-c",reentrant='n',
3738          regles=(EXCLUS('MODE_MECA','CHAM_NO','MODELE_GENE'),
3739                  PRESENT_ABSENT('NUME_DDL_GENE','CHAM_NO'),
3740                  PRESENT_PRESENT('MODELE_GENE','NUME_DDL_GENE'),),
3741          MODELE_FLUIDE   =SIMP(statut='o',typ=modele ),
3742          MODELE_INTERFACE=SIMP(statut='o',typ=modele ),
3743          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
3744          CHARGE          =SIMP(statut='o',typ=char_ther ),
3745          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
3746          CHAM_NO         =SIMP(statut='f',typ=cham_no_depl_r ),
3747          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
3748          NUME_DDL_GENE   =SIMP(statut='f',typ=nume_ddl_gene ),
3749          DIST_REFE       =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
3750          AVEC_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3751          NUME_MODE_MECA  =SIMP(statut='f',typ='I',max='**'),
3752          OPTION          =SIMP(statut='o',typ='TXM',into=("MASS_AJOU","AMOR_AJOU","RIGI_AJOU") ),
3753          POTENTIEL       =SIMP(statut='f',typ=evol_ther ),
3754          NOEUD_DOUBLE    =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3755          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3756
3757          SOLVEUR         =FACT(statut='d',min=1,max=1,
3758            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
3759            b_mult_front    = BLOC ( condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
3760              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
3761            ),
3762            b_ldlt          =BLOC( condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
3763              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
3764            ),
3765            b_ldlt_mult     =BLOC( condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
3766                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
3767              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
3768              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3769            ),
3770            b_gcpc          =BLOC (condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
3771              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
3772              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
3773              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
3774              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
3775              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
3776            ),
3777 #  A quoi sert eps
3778            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3779          ),
3780 )  ;
3781 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
3782 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3783 # ======================================================================
3784 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3785 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3786 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3787 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3788 # (AT YOUR OPTION) ANY LATER VERSION.
3789 #
3790 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3791 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3792 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3793 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3794 #
3795 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3796 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3797 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3798 # ======================================================================
3799 # RESPONSABLE VABHHTS J.PELLET
3800 def calc_matr_elem_prod(OPTION,**args):
3801   if OPTION == "RIGI_MECA"        : return matr_elem_depl_r
3802   if OPTION == "RIGI_FLUI_STRU"   : return matr_elem_depl_r
3803   if OPTION == "RIGI_MECA_LAGR"   : return matr_elem_depl_r
3804   if OPTION == "MASS_ID_MDEP_R"   : return matr_elem_depl_r
3805   if OPTION == "MASS_ID_MDNS_R"   : return matr_elem_depl_r
3806   if OPTION == "MASS_ID_MTEM_R"   : return matr_elem_temp_r
3807   if OPTION == "MASS_ID_MTNS_R"   : return matr_elem_temp_r
3808   if OPTION == "MASS_MECA"        : return matr_elem_depl_r
3809   if OPTION == "MASS_FLUI_STRU"   : return matr_elem_depl_r
3810   if OPTION == "RIGI_GEOM"        : return matr_elem_depl_r
3811   if OPTION == "RIGI_ROTA"        : return matr_elem_depl_r
3812   if OPTION == "AMOR_MECA"        : return matr_elem_depl_r
3813   if OPTION == "IMPE_MECA"        : return matr_elem_depl_r
3814   if OPTION == "ONDE_FLUI"        : return matr_elem_depl_r
3815   if OPTION == "RIGI_MECA_HYST"   : return matr_elem_depl_c
3816   if OPTION == "RIGI_THER"        : return matr_elem_temp_r
3817   if OPTION == "MASS_THER"        : return matr_elem_temp_r
3818   if OPTION == "MASS_MECA_DIAG"   : return matr_elem_depl_r
3819   if OPTION == "RIGI_ACOU"        : return matr_elem_pres_c
3820   if OPTION == "MASS_ACOU"        : return matr_elem_pres_c
3821   if OPTION == "AMOR_ACOU"        : return matr_elem_pres_c
3822   raise AsException("type de concept resultat non prevu")
3823
3824 CALC_MATR_ELEM=OPER(nom="CALC_MATR_ELEM",op=   9,sd_prod=calc_matr_elem_prod
3825                     ,fr="Calcul des matrices élémentaires",docu="U4.61.01-g1",reentrant='n',
3826          OPTION          =SIMP(statut='o',typ='TXM',
3827                                into=("RIGI_MECA","MASS_MECA","RIGI_GEOM",
3828                                      "AMOR_MECA","RIGI_THER","MASS_THER","IMPE_MECA",
3829                                      "ONDE_FLUI","MASS_FLUI_STRU","RIGI_FLUI_STRU",
3830                                      "RIGI_ROTA","MASS_MECA_DIAG","RIGI_ACOU",
3831                                      "MASS_ID_MDEP_R","MASS_ID_MDNS_R","MASS_ID_MTEM_R","MASS_ID_MTNS_R",
3832                                      "MASS_ACOU","AMOR_ACOU","RIGI_MECA_HYST",
3833                                      "RIGI_MECA_LAGR") ),
3834
3835          b_rigi_meca = BLOC( condition = "OPTION=='RIGI_MECA'",
3836            regles=(AU_MOINS_UN('MODELE','CHARGE' ),),
3837            MODELE          =SIMP(statut='f',typ=modele ),
3838            b_modele        =BLOC(condition = "MODELE != None",
3839              CHAM_MATER      =SIMP(statut='f',typ=cham_mater ),
3840              CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
3841              MODE_FOURIER    =SIMP(statut='f',typ='I',defaut= 0 ),
3842            ),
3843            CHARGE          =SIMP(statut='f',typ=char_meca,max='**' ),
3844            b_charge        =BLOC (condition = "CHARGE != None",
3845              INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3846            ),
3847          ),
3848
3849          b_rigi_meca_lagr  =BLOC(condition = "OPTION=='RIGI_MECA_LAGR'",
3850            MODELE            =SIMP(statut='o',typ=modele ),
3851            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
3852            CHARGE            =SIMP(statut='f',typ=char_meca,max='**'  ),
3853            b_charge        =BLOC(condition = "CHARGE != None",
3854              INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3855            ),
3856            THETA           =SIMP(statut='o',typ=theta_geom ),
3857            PROPAGATION     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3858          ),
3859
3860          b_mass_meca       =BLOC(condition = "(OPTION=='MASS_MECA') or (OPTION=='MASS_MECA_DIAG')",
3861            regles=(AU_MOINS_UN('MODELE','CHARGE'),),
3862            MODELE          =SIMP(statut='f',typ=modele ),
3863            b_modele          =BLOC(condition = "MODELE != None",
3864              CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
3865              CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
3866            ),
3867            CHARGE          =SIMP(statut='f',typ=char_meca,max='**' ),
3868            b_charge        =BLOC(condition = "CHARGE != None",
3869              INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3870            ),
3871          ),
3872
3873          b_mass_identite   =BLOC(condition = "(OPTION in ('MASS_ID_MDEP_R','MASS_ID_MTEM_R','MASS_ID_MDNS_R','MASS_ID_MTNS_R')) ",
3874            MODELE            =SIMP(statut='o',typ=modele ),
3875            # j'ajoute ces 2 mot clés inutiles à cause de l'alarme pas assez subtile de MEDOME
3876            CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
3877            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
3878          ),
3879
3880          b_rigi_geom       =BLOC(condition = "OPTION=='RIGI_GEOM'",
3881            MODELE            =SIMP(statut='o',typ=modele ),
3882            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
3883            SIEF_ELGA         =SIMP(statut='o',typ=cham_elem_sief_r ),
3884            MODE_FOURIER      =SIMP(statut='f',typ='I',defaut= 0 ),
3885          ),
3886
3887          b_rigi_rota       =BLOC(condition = "OPTION=='RIGI_ROTA'",
3888            MODELE            =SIMP(statut='o',typ=modele ),
3889            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
3890            CHARGE            =SIMP(statut='o',typ=char_meca,max='**' ),
3891            INST              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3892          ),
3893
3894          b_amor_meca       =BLOC(condition = "OPTION=='AMOR_MECA'",
3895            regles=(AU_MOINS_UN('CARA_ELEM','RIGI_MECA'),
3896                    ENSEMBLE('RIGI_MECA','MASS_MECA','CHAM_MATER'), ),
3897            MODELE            =SIMP(statut='o',typ=modele ),
3898            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
3899            CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
3900            RIGI_MECA         =SIMP(statut='f',typ=matr_elem_depl_r ),
3901            MASS_MECA         =SIMP(statut='f',typ=matr_elem_depl_r ),
3902            CHARGE            =SIMP(statut='f',typ=char_meca,max='**' ),
3903          ),
3904
3905          b_rigi_meca_hyst  =BLOC( condition = "OPTION=='RIGI_MECA_HYST'",
3906            MODELE            =SIMP(statut='o',typ=modele ),
3907            CHARGE            =SIMP(statut='o',typ=char_meca ,max='**' ),
3908            CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
3909            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
3910            RIGI_MECA         =SIMP(statut='o',typ=matr_elem_depl_r ),
3911          ),
3912
3913          b_rigi_ther       =BLOC(condition = "OPTION=='RIGI_THER'",
3914            regles=(AU_MOINS_UN('MODELE','CHARGE' ),),
3915            MODELE            =SIMP(statut='f',typ=modele ),
3916            b_modele          =BLOC(condition = "MODELE != None",
3917              CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
3918              CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
3919              MODE_FOURIER      =SIMP(statut='f',typ='I',defaut= 0 ),
3920            ),
3921            CHARGE            =SIMP(statut='f',typ=char_ther,max='**' ),
3922          ),
3923
3924          b_mass_ther       =BLOC(condition = "OPTION=='MASS_THER'",
3925            MODELE            =SIMP(statut='o',typ=modele ),
3926            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
3927            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
3928          ),
3929
3930          b_rigi_acou       =BLOC(condition = "(OPTION=='RIGI_ACOU') or (OPTION=='MASS_ACOU') or (OPTION=='AMOR_ACOU')",
3931            MODELE            =SIMP(statut='o',typ=modele ),
3932            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
3933            CHARGE            =SIMP(statut='f',typ=char_acou ,max='**' ),
3934          ),
3935
3936          b_rigi_flui       =BLOC(condition = "(OPTION=='RIGI_FLUI_STRU') or (OPTION=='MASS_FLUI_STRU')",
3937            MODELE            =SIMP(statut='o',typ=modele ),
3938            CARA_ELEM         =SIMP(statut='o',typ=cara_elem ),
3939            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
3940            CHARGE            =SIMP(statut='o',typ=char_meca ,max='**' ),
3941            INST              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3942          ),
3943
3944          b_impe_meca       =BLOC(condition = "(OPTION=='IMPE_MECA') or (OPTION=='ONDE_FLUI')",
3945            MODELE            =SIMP(statut='o',typ=modele ),
3946            CHARGE            =SIMP(statut='o',typ=char_meca,max='**' ),
3947            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
3948          ),
3949 )  ;
3950 #& MODIF COMMANDE  DATE 06/03/2002   AUTEUR MCOURTOI M.COURTOIS
3951 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3952 # ======================================================================
3953 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3954 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3955 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3956 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3957 # (AT YOUR OPTION) ANY LATER VERSION.
3958 #
3959 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3960 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3961 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3962 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3963 #
3964 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3965 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3966 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3967 # ======================================================================
3968 CALC_META=OPER(nom="CALC_META",op=194,sd_prod=evol_ther,docu="U4.85.01-b1",reentrant='o',
3969                fr="Calcule la métallurgie a partir du résultat du calcul thermique",
3970          MODELE          =SIMP(statut='o',typ=modele ),
3971          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
3972          RESULTAT        =SIMP(statut='o',typ=evol_ther ),
3973          ETAT_INIT       =FACT(statut='o',min=01,max=01,
3974       regles=(UN_PARMI('NUME_INIT','META_INIT',),),
3975            EVOL_THER       =SIMP(statut='f',typ=evol_ther ),
3976            NUME_INIT       =SIMP(statut='f',typ='I' ),
3977            META_INIT       =SIMP(statut='f',typ=carte_var2_r ),
3978          ),
3979          COMP_INCR       =FACT(statut='o',min=01,max='**',
3980            RELATION        =SIMP(statut='o',typ='TXM',into=("ACIER","ZIRC",) ),
3981            ACIER           =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
3982            ZIRC            =SIMP(statut='c',typ='I',defaut=3,into=(3,) ),
3983       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3984            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3985            GROUP_MA        =SIMP(statut='f',typ=grma),
3986            MAILLE          =SIMP(statut='f',typ=ma),
3987          ),
3988          OPTION          =SIMP(statut='f',typ='TXM'
3989                              ,into=("META_ELNO_TEMP",) ),
3990 )  ;
3991 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
3992 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3993 # ======================================================================
3994 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3995 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3996 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3997 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3998 # (AT YOUR OPTION) ANY LATER VERSION.
3999 #
4000 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4001 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4002 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4003 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4004 #
4005 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4006 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4007 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4008 # ======================================================================
4009 # RESPONSABLE G8BHHXD X.DESROCHES
4010 def calc_no_prod(RESULTAT,**args):
4011    if AsType(RESULTAT) != None : return AsType(RESULTAT)
4012    raise AsException("type de concept resultat non prevu")
4013
4014 CALC_NO=OPER(nom="CALC_NO",op= 106,sd_prod=calc_no_prod,docu="U4.81.02-f3",reentrant='o',
4015          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
4016                                                mode_acou,mode_stat,mode_stat_depl,mode_stat_acce,
4017                                               mode_stat_forc,evol_ther,evol_noli,base_modale,
4018                                                mult_elas,fourier_elas,mode_flamb ) ),
4019          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
4020                                fr="Liste des paramètres de sensibilité.",
4021                                ang="List of sensitivity parameters"),
4022
4023          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
4024                         'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),),
4025          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4026          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
4027          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
4028          NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
4029          NOM_CAS         =SIMP(statut='f',typ='TXM' ),
4030          INST            =SIMP(statut='f',typ='R',max='**'),
4031          FREQ            =SIMP(statut='f',typ='R',max='**'),
4032          LIST_INST       =SIMP(statut='f',typ=listr8),
4033          LIST_FREQ       =SIMP(statut='f',typ=listr8),
4034          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
4035          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4036          LIST_ORDRE      =SIMP(statut='f',typ=listis),
4037
4038          OPTION          =SIMP(statut='o',typ='TXM',max='**',
4039                                into=("FORC_NODA","REAC_NODA",
4040                                      "DCHA_NOEU_SIGM",
4041                                      "DEGE_NOEU_DEPL",
4042                                      "DETE_NOEU_DLTE",
4043                                      "DEDE_NOEU_DLDE",
4044                                      "DESI_NOEU_DLSI",
4045                                      "DURT_NOEU_META",
4046                                      "EFGE_NOEU_CART","EFGE_NOEU_DEPL",
4047                                      "ENDO_NOEU_SINO",
4048                                      "ENEL_NOEU_ELGA",
4049                                      "EPMG_NOEU_DEPL",
4050                                      "EPSA_NOEU",
4051                                      "EPSG_NOEU"     ,"EPSG_NOEU_DEPL",
4052                                      "EPSI_NOEU_DEPL","EPSI_NOEU_DPGE",
4053                                      "EPSP_NOEU"     ,"EPSP_NOEU_ZAC",
4054                                      "EQUI_NOEU_EPME","EQUI_NOEU_EPSI","EQUI_NOEU_SIGM",
4055                                      "ERRE_NOEU_ELGA",
4056                                      "FLUX_NOEU_TEMP",
4057                                      "GRAD_NOEU_THETA",
4058                                      "HYDR_NOEU_ELGA",
4059                                      "INTE_NOEU_ACTI","INTE_NOEU_REAC",
4060                                      "META_NOEU_TEMP",
4061                                      "PMPB_NOEU_SIEF",
4062                                      "PRES_NOEU_DBEL","PRES_NOEU_IMAG","PRES_NOEU_REEL",
4063                                      "RADI_NOEU_SIGM",
4064                                      "SIEF_NOEU"     ,"SIEF_NOEU_ELGA",
4065                                      "SIGM_NOEU_CART","SIGM_NOEU_COQU","SIGM_NOEU_DEPL","SIGM_NOEU_DPGE",
4066                                      "SIGM_NOEU_SIEF","SIGM_NOEU_VARI","SIGM_NOEU_ZAC",
4067                                      "SIPO_NOEU_DEPL","SIPO_NOEU_SIEF",
4068                                      "SIRE_NOEU_DEPL",
4069                                      "VARI_NOEU"     ,"VARI_NOEU_ELGA",) ),
4070
4071          b_forc_reac     =BLOC(condition = """(OPTION == 'FORC_NODA') or (type(OPTION) == type(()) and 'FORC_NODA' in OPTION) or\
4072  (OPTION == 'REAC_NODA') or (type(OPTION) == type(()) and 'REAC_NODA' in OPTION)""",
4073              MODELE          =SIMP(statut='o',typ=modele),
4074          ),
4075
4076          CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
4077          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
4078          EXCIT           =FACT(statut='f',min=1,max='**',
4079            CHARGE          =SIMP(statut='f',typ=(char_meca,char_ther,char_acou) ),
4080            FONC_MULT       =SIMP(statut='f',typ=fonction),
4081            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
4082                                  into=("FIXE_CSTE","FIXE_PILO","SUIV") ),
4083          ),
4084          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4085          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4086          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4087 )  ;
4088 #& MODIF COMMANDE  DATE 03/07/2002   AUTEUR CIBHHPD D.NUNEZ
4089 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4090 # ======================================================================
4091 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4092 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4093 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4094 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4095 # (AT YOUR OPTION) ANY LATER VERSION.
4096 #
4097 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4098 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4099 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4100 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4101 #
4102 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4103 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4104 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4105 # ======================================================================
4106 CALC_THETA=OPER(nom="CALC_THETA",op=54,sd_prod=theta_geom,docu="U4.82.02-d",reentrant='n',
4107                 fr="Affectation d un champ sur le maillage (mécanique de la rupture)",
4108          regles=(UN_PARMI('THETA_2D','THETA_3D','THETA_BANDE'),
4109                  PRESENT_ABSENT('THETA_2D','DIRE_THETA'),
4110                  EXCLUS('DIRECTION','DIRE_THETA'),),
4111          OPTION          =SIMP(statut='f',typ='TXM',defaut="COURONNE",into=("COURONNE","BANDE") ),
4112          MODELE          =SIMP(statut='o',typ=(modele) ),
4113          FOND_FISS       =SIMP(statut='f',typ=fond_fiss),
4114          FOND_3D         =SIMP(statut='f',typ=(fond_fiss) ),
4115          THETA_3D        =FACT(statut='f',min=01,max='**',
4116            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
4117                    UN_PARMI('MODULE','MODULE_FO'),
4118                    ENSEMBLE('MODULE','R_INF','R_SUP'),
4119                    ENSEMBLE('MODULE_FO','R_INF_FO','R_SUP_FO'),),
4120            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4121            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4122            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4123            MODULE          =SIMP(statut='f',typ='R'),
4124            R_INF           =SIMP(statut='f',typ='R'),
4125            R_SUP           =SIMP(statut='f',typ='R'),
4126            MODULE_FO       =SIMP(statut='f',typ=fonction),
4127            R_INF_FO        =SIMP(statut='f',typ=fonction),
4128            R_SUP_FO        =SIMP(statut='f',typ=fonction),
4129                          ),
4130          DIRE_THETA      =SIMP(statut='f',typ=(cham_no_depl_r) ),
4131          DIRECTION       =SIMP(statut='f',typ='R',max='**'),
4132          THETA_2D        =FACT(statut='f',min=01,max='**',
4133            regles=(UN_PARMI('GROUP_NO','NOEUD'),),
4134            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4135            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4136            MODULE          =SIMP(statut='o',typ='R'),
4137            R_INF           =SIMP(statut='o',typ='R'),
4138            R_SUP           =SIMP(statut='o',typ='R'),
4139          ),
4140          THETA_BANDE     =FACT(statut='f',min=01,max='**',
4141            MODULE          =SIMP(statut='o',typ='R'),
4142            R_INF           =SIMP(statut='o',typ='R'),
4143            R_SUP           =SIMP(statut='o',typ='R'),
4144          ),
4145          GRAD_NOEU_THETA =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
4146          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
4147          IMPRESSION      =FACT(statut='f',min=01,max=01,
4148            FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
4149            FORMAT          =SIMP(statut='f',typ='TXM',defaut="EXCEL",into=("EXCEL","AGRAF") ),
4150          ),
4151 )  ;
4152 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
4153 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4154 # ======================================================================
4155 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4156 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4157 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4158 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4159 # (AT YOUR OPTION) ANY LATER VERSION.
4160 #
4161 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4162 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4163 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4164 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4165 #
4166 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4167 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4168 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4169 # ======================================================================
4170 # RESPONSABLE VABHHTS J.PELLET
4171 def calc_vect_elem_prod(OPTION,**args):
4172   if OPTION == "CHAR_MECA" :      return vect_elem_depl_r
4173   if OPTION == "CHAR_MECA_LAGR" : return vect_elem_depl_r
4174   if OPTION == "CHAR_THER" :      return vect_elem_temp_r
4175   if OPTION == "CHAR_ACOU" :      return vect_elem_pres_c
4176   if OPTION == "FORC_NODA" :      return vect_elem_depl_r
4177   raise AsException("type de concept resultat non prevu")
4178
4179 CALC_VECT_ELEM=OPER(nom="CALC_VECT_ELEM",op=8,sd_prod=calc_vect_elem_prod,docu="U4.61.02-f",reentrant='n',
4180                     fr="Calcul des seconds membres élémentaires",
4181          OPTION          =SIMP(statut='o',typ='TXM',into=("CHAR_MECA","CHAR_THER","CHAR_ACOU",
4182                                                            "FORC_NODA","CHAR_MECA_LAGR") ),
4183          b_char_meca     =BLOC(condition = "OPTION=='CHAR_MECA'",
4184            regles=(AU_MOINS_UN('CHARGE','MODELE'),),
4185            CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
4186            MODELE          =SIMP(statut='f',typ=modele),
4187            b_charge     =BLOC(condition = "CHARGE != None", fr="modèle ne contenant pas de sous-structure",
4188               CHAM_MATER   =SIMP(statut='f',typ=cham_mater),
4189               CARA_ELEM    =SIMP(statut='f',typ=cara_elem),
4190               INST         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4191               MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
4192            ),
4193            b_modele     =BLOC(condition = "(MODELE != None)",fr="modèle contenant une sous-structure",
4194               SOUS_STRUC      =FACT(statut='o',min=01,
4195                 regles=(UN_PARMI('TOUT','MAILLE'),),
4196                 CAS_CHARGE  =SIMP(statut='o',typ='TXM' ),
4197                 TOUT        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4198                 MAILLE      =SIMP(statut='f',typ=ma,max='**',),
4199               ),
4200            ),
4201          ),
4202          b_char_ther     =BLOC(condition = "OPTION=='CHAR_THER'",
4203            CARA_ELEM        =SIMP(statut='f',typ=cara_elem),
4204            CHARGE           =SIMP(statut='o',typ=char_ther,max='**'),
4205            INST             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4206          ),
4207
4208          b_char_acou     =BLOC(condition = "OPTION=='CHAR_ACOU'",
4209            CHAM_MATER        =SIMP(statut='o',typ=cham_mater),
4210            CHARGE            =SIMP(statut='o',typ=char_acou,max='**'),
4211          ),
4212
4213          b_forc_noda     =BLOC(condition = "OPTION=='FORC_NODA'",
4214            SIEF_ELGA         =SIMP(statut='o',typ=cham_elem_sief_r),
4215            CARA_ELEM         =SIMP(statut='f',typ=cara_elem),
4216            MODELE            =SIMP(statut='f',typ=modele),
4217          ),
4218
4219          b_meca_lagr     =BLOC(condition = "OPTION=='CHAR_MECA_LAGR'",
4220            CHAM_MATER        =SIMP(statut='o',typ=cham_mater),
4221            THETA             =SIMP(statut='o',typ=theta_geom),
4222            PROPAGATION       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4223            CHARGE            =SIMP(statut='f',typ=char_meca,max='**'),
4224            INST              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4225          ),
4226 ) ;
4227 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
4228 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4229 # ======================================================================
4230 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4231 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4232 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4233 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4234 # (AT YOUR OPTION) ANY LATER VERSION.
4235 #
4236 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4237 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4238 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4239 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4240 #
4241 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4242 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4243 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4244 # ======================================================================
4245 # RESPONSABLE G8BHHXD X.DESROCHES
4246 def comb_cham_elem_prod(COMB_R=None,COMB_C=None,COMB_FOURIER=None,**args):
4247
4248   if COMB_R != None:
4249     vale=COMB_R.get_child('CHAM_ELEM').get_valeur()
4250   elif COMB_C != None:
4251     vale=COMB_C.get_child('CHAM_ELEM').get_valeur()
4252   elif COMB_FOURIER != None:
4253     vale=COMB_FOURIER.get_child('CHAM_ELEM').get_valeur()
4254   else :
4255     raise AsException("type de concept resultat non prevu")
4256
4257   if AsType(vale) == cham_elem_sief_r : return cham_elem_sief_r
4258   if AsType(vale) == cham_elem_flux_r : return cham_elem_flux_r
4259   if AsType(vale) == cham_elem_epsi_r : return cham_elem_epsi_r
4260   if AsType(vale) == cham_elem_ener_r : return cham_elem_ener_r
4261   if AsType(vale) == cham_elem_crit_r : return cham_elem_crit_r
4262   if AsType(vale) == cham_elem_dbel_r : return cham_elem_dbel_r
4263   if AsType(vale) == cham_elem_pres_r : return cham_elem_pres_r
4264   if AsType(vale) == cham_elem_sief_c : return cham_elem_sief_c
4265   raise AsException("type de concept resultat non prevu")
4266
4267 COMB_CHAM_ELEM=OPER(nom="COMB_CHAM_ELEM",op= 139,sd_prod=comb_cham_elem_prod,reentrant='f',
4268                     fr="Combinaison linéaire de champs par éléments",docu="U4.72.03-e",
4269       regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),
4270               PRESENT_PRESENT('COMB_FOURIER','ANGL'),),
4271       COMB_R          =FACT(statut='f',min=01,max='**',
4272         PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
4273         COEF_R          =SIMP(statut='o',typ='R'),
4274         CHAM_ELEM       =SIMP(statut='o',
4275                               typ=(cham_elem_sief_r,cham_elem_flux_r,cham_elem_epsi_r,
4276                                    cham_elem_ener_r,cham_elem_crit_r,cham_elem_dbel_r,
4277                                    cham_elem_pres_r,cham_elem_sief_c ) ),
4278       ),
4279       COMB_C          =FACT(statut='f',min=01,max='**',
4280         regles=(UN_PARMI('COEF_R','COEF_C', ),),
4281         COEF_R          =SIMP(statut='f',typ='R'),
4282         COEF_C          =SIMP(statut='f',typ='C'),
4283         CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r) ),
4284       ),
4285       COMB_FOURIER    =FACT(statut='f',min=01,max='**',
4286         COEF_R          =SIMP(statut='f',typ='R',defaut= 1.),
4287         NUME_MODE       =SIMP(statut='o',typ='I'),
4288         TYPE_MODE       =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
4289         CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,cham_elem_flux_r,cham_elem_epsi_r ) ),
4290       ),
4291       ANGL            =SIMP(statut='f',typ='R' ),
4292 )  ;
4293
4294 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
4295 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4296 # ======================================================================
4297 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4298 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4299 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4300 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4301 # (AT YOUR OPTION) ANY LATER VERSION.
4302 #
4303 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4304 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4305 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4306 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4307 #
4308 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4309 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4310 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4311 # ======================================================================
4312 # RESPONSABLE G8BHHXD X.DESROCHES
4313 def comb_cham_no_prod(COMB_R,COMB_C,COMB_FOURIER,**args):
4314   if COMB_C != None:
4315     type_mat = AsType(COMB_C.get_child('CHAM_NO').get_valeur())
4316     if type_mat in  (cham_no_depl_c,cham_no_depl_r) : return cham_no_depl_c
4317     if type_mat in  (cham_no_temp_c,cham_no_temp_r) : return cham_no_temp_c
4318     if type_mat in  (cham_no_pres_c,cham_no_pres_r) : return cham_no_pres_c
4319   elif COMB_R != None:
4320     type_mat = AsType(COMB_R.get_child('CHAM_NO').get_valeur())
4321     if type_mat in  (cham_no_depl_c,cham_no_depl_r) : return cham_no_depl_r
4322     if type_mat in  (cham_no_temp_c,cham_no_temp_r) : return cham_no_temp_r
4323     if type_mat in  (cham_no_pres_c,cham_no_pres_r) : return cham_no_pres_r
4324     if type_mat ==  matr_asse_gene_r : return matr_asse_gene_r
4325   elif COMB_FOURIER != None:
4326     type_mat = AsType(COMB_FOURIER.get_child('CHAM_NO').get_valeur())
4327     if type_mat == cham_no_temp_r : return cham_no_temp_r
4328     if type_mat == cham_no_depl_r : return cham_no_depl_r
4329   raise AsException("type de concept resultat non prevu")
4330
4331
4332 COMB_CHAM_NO=OPER(nom="COMB_CHAM_NO",op=  30,sd_prod=comb_cham_no_prod
4333                     ,fr="Combinaison linéaire de champs aux noeuds",
4334                      docu="U4.72.02-f",reentrant='f',
4335          regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),),
4336          COMB_R          =FACT(statut='f',min=01,max='**',
4337            PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG",) ),
4338            CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_temp_c,cham_no_depl_r,cham_no_depl_c
4339                                                 ,cham_no_pres_r,cham_no_pres_c ) ),
4340            COEF_R          =SIMP(statut='o',typ='R' ),
4341          ),
4342          COMB_C          =FACT(statut='f',min=01,max='**',
4343            regles=(UN_PARMI('COEF_R','COEF_C' ),),
4344            CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r,cham_no_temp_c
4345                                                 ,cham_no_depl_c,cham_no_pres_c ) ),
4346            COEF_R          =SIMP(statut='f',typ='R' ),
4347            COEF_C          =SIMP(statut='f',typ='C' ),
4348          ),
4349          COMB_FOURIER    =FACT(statut='f',min=01,max='**',
4350            CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r) ),
4351            COEF_R          =SIMP(statut='f',typ='R',defaut= 1. ),
4352            NUME_MODE       =SIMP(statut='o',typ='I' ),
4353            TYPE_MODE       =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
4354          ),
4355          b_angl = BLOC ( condition = "COMB_FOURIER != None",
4356            ANGL            =SIMP(statut='o',typ='R' ),
4357          ),
4358 )  ;
4359 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
4360 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4361 # ======================================================================
4362 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4363 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4364 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4365 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4366 # (AT YOUR OPTION) ANY LATER VERSION.
4367 #
4368 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4369 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4370 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4371 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4372 #
4373 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4374 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4375 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4376 # ======================================================================
4377 # RESPONSABLE G8BHHXD X.DESROCHES
4378 COMB_FOURIER=OPER(nom="COMB_FOURIER",op= 161,sd_prod=comb_fourier,
4379                   docu="U4.83.31-c",reentrant='n',
4380          RESULTAT        =SIMP(statut='o',typ=fourier_elas ),
4381          ANGL            =SIMP(statut='o',typ='R',max='**'),
4382          NOM_CHAM        =SIMP(statut='o',typ='TXM',max=05,
4383                                into=("DEPL","REAC_NODA","SIEF_ELGA_DEPL","EPSI_ELNO_DEPL","SIGM_ELNO_DEPL") ),
4384 )  ;
4385 #& MODIF COMMANDE  DATE 06/03/2002   AUTEUR MCOURTOI M.COURTOIS
4386 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4387 # ======================================================================
4388 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4389 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4390 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4391 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4392 # (AT YOUR OPTION) ANY LATER VERSION.
4393 #
4394 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4395 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4396 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4397 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4398 #
4399 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4400 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4401 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4402 # ======================================================================
4403 # RESPONSABLE VABHHTS J.PELLET
4404 def comb_matr_asse_prod(COMB_R,COMB_C,**args):
4405   if COMB_C != None:
4406     type_mat = AsType(COMB_C.get_child('MATR_ASSE').get_valeur())
4407     if type_mat in  (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_c
4408     if type_mat in  (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_c
4409     if type_mat in  (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_c
4410     if type_mat in  (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_c
4411   elif COMB_R != None:
4412     type_mat = AsType(COMB_R.get_child('MATR_ASSE').get_valeur())
4413     if type_mat in  (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_r
4414     if type_mat in  (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_r
4415     if type_mat in  (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_r
4416     if type_mat in  (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_r
4417   raise AsException("type de concept resultat non prevu")
4418
4419 COMB_MATR_ASSE=OPER(nom="COMB_MATR_ASSE",op=  31,sd_prod=comb_matr_asse_prod,
4420                     fr="Combinaison linéaire de matrices assemblées",
4421                     docu="U4.72.01-g1",reentrant='f',
4422          regles=(UN_PARMI('COMB_R','COMB_C' ),),
4423          COMB_R          =FACT(statut='f',min=01,max='**',
4424            PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
4425            MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_temp_c
4426                                                 ,matr_asse_pres_r,matr_asse_pres_c,matr_asse_gene_r,matr_asse_gene_c ) ),
4427            COEF_R          =SIMP(statut='o',typ='R' ),
4428          ),
4429          COMB_C          =FACT(statut='f',min=01,max='**',
4430            regles=(UN_PARMI('COEF_R','COEF_C' ),),
4431            MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_temp_c
4432                                                 ,matr_asse_pres_r,matr_asse_pres_c,matr_asse_gene_r,matr_asse_gene_c ) ),
4433            COEF_R          =SIMP(statut='f',typ='R' ),
4434            COEF_C          =SIMP(statut='f',typ='C' ),
4435          ),
4436          SANS_CMP        =SIMP(statut='f',typ='TXM',into=("LAGR",) ),
4437 )  ;
4438 #& MODIF COMMANDE  DATE 18/06/2002   AUTEUR CIBHHPD D.NUNEZ
4439 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4440 # ======================================================================
4441 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4442 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4443 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4444 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4445 # (AT YOUR OPTION) ANY LATER VERSION.
4446 #
4447 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4448 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4449 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4450 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4451 #
4452 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4453 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4454 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4455 # ======================================================================
4456 COMB_SISM_MODAL=OPER(nom="COMB_SISM_MODAL",op= 109,sd_prod=mode_stat,
4457                      fr="Réponse sismique par recombinaison modale par une méthode spectrale",
4458                      docu="U4.84.01-e1",reentrant='n',
4459          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ','LIST_ORDRE'),
4460                  UN_PARMI('AMOR_REDUIT','LIST_AMOR','AMOR_GENE' ),),
4461          MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
4462          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4463          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
4464          LIST_ORDRE      =SIMP(statut='f',typ=listis ),
4465          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
4466          FREQ            =SIMP(statut='f',typ='R',max='**'),
4467          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
4468          b_freq          =BLOC(condition = "FREQ != None or LIST_FREQ != None",
4469            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
4470            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4471          ),
4472          MODE_CORR       =SIMP(statut='f',typ=mode_stat_acce ),
4473
4474          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
4475          LIST_AMOR       =SIMP(statut='f',typ=listr8 ),
4476          AMOR_GENE       =SIMP(statut='f',typ=matr_asse_gene_r ),
4477
4478          MASS_INER       =SIMP(statut='f',typ=tabl_mass_iner ),
4479          CORR_FREQ       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4480
4481          EXCIT           =FACT(statut='o',min=01,max='**',
4482            regles=(UN_PARMI('MONO_APPUI','NOEUD','GROUP_NO'),
4483                    UN_PARMI('AXE','TRI_AXE','TRI_SPEC' ),),
4484
4485            MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4486            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4487            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4488            AXE             =SIMP(statut='f',fr="Excitation suivant un seul axe",
4489                                  typ='R',max=03),
4490            TRI_AXE         =SIMP(statut='f',fr="Excitation suivant les trois axes mais avec le meme spectre",
4491                                  typ='R',max=03),
4492            TRI_SPEC        =SIMP(statut='f',fr="Excitation suivant les trois axes  avec trois spectres",
4493                                  typ='TXM',into=("OUI",) ),
4494            b_axe           =BLOC(condition = "AXE != None",fr="Excitation suivant un seul axe",
4495              SPEC_OSCI       =SIMP(statut='o',typ=fonction,max=01 ),
4496              ECHELLE         =SIMP(statut='f',typ='R',max=01),
4497            ),
4498            b_tri_axe       =BLOC(condition = "TRI_AXE != None",fr="Excitation suivant les trois axes mais avec le meme spectre",
4499              SPEC_OSCI       =SIMP(statut='o',typ=fonction,max=01 ),
4500              ECHELLE         =SIMP(statut='f',typ='R',max=01),
4501            ),
4502            b_tri_spec      =BLOC(condition = "TRI_SPEC != None",fr="Excitation suivant les trois axes  avec trois spectres",
4503              SPEC_OSCI       =SIMP(statut='o',typ=fonction,min=03,max=03 ),
4504              ECHELLE         =SIMP(statut='f',typ='R',min=03,max=03),
4505            ),
4506            NATURE          =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("ACCE","VITE","DEPL") ),
4507          ),
4508          COMB_MODE       =FACT(statut='o',min=01,max=01,
4509            TYPE            =SIMP(statut='o',typ='TXM',into=("SRSS","CQC","DSC","ABS","DPC") ),
4510            DUREE           =SIMP(statut='f',typ='R' ),
4511          ),
4512          COMB_DIRECTION  =FACT(statut='f',min=01,max=01,
4513            TYPE            =SIMP(statut='f',typ='TXM',into=("QUAD","NEWMARK") ),
4514          ),
4515          COMB_MULT_APPUI =FACT(statut='f',min=01,max='**',
4516            regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO' ),
4517                    UN_PARMI('TYPE_COMBI','TYPE' ),),
4518            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4519            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4520            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4521            TYPE_COMBI      =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
4522            TYPE            =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
4523          ),
4524          COMB_DEPL_APPUI=FACT(statut='f',min=01,max='**',
4525            regles=(UN_PARMI('TOUT','LIST_CAS'),
4526                    UN_PARMI('TYPE_COMBI','TYPE' ),),
4527            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
4528            LIST_CAS       =SIMP(statut='f',typ='I',max='**'),
4529            TYPE_COMBI      =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
4530            TYPE            =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
4531          ),
4532          DEPL_MULT_APPUI =FACT(statut='f',min=01,max='**',
4533            regles=(UN_PARMI('NOEUD','GROUP_NO'),
4534                    AU_MOINS_UN('DX','DY','DZ' ),),
4535            NOM_CAS         =SIMP(statut='o',typ='TXM',max='**'),
4536            NUME_CAS        =SIMP(statut='o',typ='I',max='**'),
4537            MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,), ),
4538            NOEUD_REFE      =SIMP(statut='f',typ=no),
4539            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4540            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4541            DX              =SIMP(statut='f',typ='R' ),
4542            DY              =SIMP(statut='f',typ='R' ),
4543            DZ              =SIMP(statut='f',typ='R' ),
4544          ),
4545          OPTION          =SIMP(statut='o',typ='TXM',max=9,
4546                                into=("DEPL","VITE","ACCE_ABSOLU","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
4547                                      "EFGE_ELNO_DEPL","REAC_NODA","FORC_NODA","EFGE_ELNO_CART",
4548                                      "SIPO_ELNO_DEPL") ),
4549          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
4550          IMPRESSION      =FACT(statut='f',min=01,max='**',
4551            regles=(EXCLUS('TOUT','NIVEAU'),),
4552            TOUT            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4553            NIVEAU          =SIMP(statut='f',typ='TXM',into=("SPEC_OSCI","MASS_EFFE","MAXI_GENE"),max=03 ),
4554          ),
4555          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
4556 )  ;
4557 #& MODIF COMMANDE  DATE 29/04/2002   AUTEUR GNICOLAS G.NICOLAS
4558 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4559 # ======================================================================
4560 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4561 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
4562 #              REDISTRIBUTION OF THIS FILE.
4563 # ======================================================================
4564 def crea_champ_prod(TYPE_CHAM,**args):
4565   if TYPE_CHAM == "CART_DBEL_R" : return carte_dbel_r
4566   if TYPE_CHAM == "CART_DEPL_C" : return carte_depl_c
4567   if TYPE_CHAM == "CART_DEPL_F" : return carte_depl_f
4568   if TYPE_CHAM == "CART_DEPL_R" : return carte_depl_r
4569   if TYPE_CHAM == "CART_DURT_R" : return carte_durt_r
4570   if TYPE_CHAM == "CART_ENER_R" : return carte_ener_r
4571   if TYPE_CHAM == "CART_EPSI_R" : return carte_epsi_r
4572   if TYPE_CHAM == "CART_ERREUR" : return carte_erreur
4573   if TYPE_CHAM == "CART_FLUX_R" : return carte_flux_r
4574   if TYPE_CHAM == "CART_GEOM_R" : return carte_geom_r
4575   if TYPE_CHAM == "CART_G_DEPL_R" : return carte_g_depl_r
4576   if TYPE_CHAM == "CART_HYDR_R" : return carte_hydr_r
4577   if TYPE_CHAM == "CART_INST_R" : return carte_inst_r
4578   if TYPE_CHAM == "CART_INTE_R" : return carte_inte_r
4579   if TYPE_CHAM == "CART_META_R" : return carte_meta_r
4580   if TYPE_CHAM == "CART_NEUT_F" : return carte_neut_f
4581   if TYPE_CHAM == "CART_NEUT_R" : return carte_neut_r
4582   if TYPE_CHAM == "CART_PRES_R" : return carte_pres_r
4583   if TYPE_CHAM == "CART_SIEF_R" : return carte_sief_r
4584   if TYPE_CHAM == "CART_SOUR_R" : return carte_sour_r
4585   if TYPE_CHAM == "CART_TEMP_F" : return carte_temp_f
4586   if TYPE_CHAM == "CART_TEMP_R" : return carte_temp_r
4587   if TYPE_CHAM == "CART_VAR2_R" : return carte_var2_r
4588   if TYPE_CHAM == "CART_VNOR_C" : return carte_vnor_c
4589   if TYPE_CHAM == "NOEU_DBEL_R" : return cham_no_dbel_r
4590   if TYPE_CHAM == "NOEU_DEPL_C" : return cham_no_depl_c
4591   if TYPE_CHAM == "NOEU_DEPL_F" : return cham_no_depl_f
4592   if TYPE_CHAM == "NOEU_DEPL_R" : return cham_no_depl_r
4593   if TYPE_CHAM == "NOEU_DURT_R" : return cham_no_durt_r
4594   if TYPE_CHAM == "NOEU_ENER_R" : return cham_no_ener_r
4595   if TYPE_CHAM == "NOEU_EPSI_R" : return cham_no_epsi_r
4596   if TYPE_CHAM == "NOEU_ERREUR" : return cham_no_erreur
4597   if TYPE_CHAM == "NOEU_FLUX_R" : return cham_no_flux_r
4598   if TYPE_CHAM == "NOEU_GEOM_R" : return cham_no_geom_r
4599   if TYPE_CHAM == "NOEU_G_DEPL_R" : return cham_no_g_depl_r
4600   if TYPE_CHAM == "NOEU_HYDR_R" : return cham_no_hydr_r
4601   if TYPE_CHAM == "NOEU_INST_R" : return cham_no_inst_r
4602   if TYPE_CHAM == "NOEU_INTE_R" : return cham_no_inte_r
4603   if TYPE_CHAM == "NOEU_META_R" : return cham_no_meta_r
4604   if TYPE_CHAM == "NOEU_NEUT_F" : return cham_no_neut_f
4605   if TYPE_CHAM == "NOEU_NEUT_R" : return cham_no_neut_r
4606   if TYPE_CHAM == "NOEU_PRES_R" : return cham_no_pres_r
4607   if TYPE_CHAM == "NOEU_SIEF_R" : return cham_no_sief_r
4608   if TYPE_CHAM == "NOEU_SOUR_R" : return cham_no_sour_r
4609   if TYPE_CHAM == "NOEU_TEMP_F" : return cham_no_temp_f
4610   if TYPE_CHAM == "NOEU_TEMP_R" : return cham_no_temp_r
4611   if TYPE_CHAM == "NOEU_VAR2_R" : return cham_no_var2_r
4612   if TYPE_CHAM == "NOEU_VNOR_C" : return cham_no_vnor_c
4613   if TYPE_CHAM == "ELEM_DBEL_R" : return cham_elem_dbel_r
4614   if TYPE_CHAM == "ELEM_DEPL_C" : return cham_elem_depl_c
4615   if TYPE_CHAM == "ELEM_DEPL_F" : return cham_elem_depl_f
4616   if TYPE_CHAM == "ELEM_DEPL_R" : return cham_elem_depl_r
4617   if TYPE_CHAM == "ELEM_DURT_R" : return cham_elem_durt_r
4618   if TYPE_CHAM == "ELEM_ENER_R" : return cham_elem_ener_r
4619   if TYPE_CHAM == "ELEM_EPSI_R" : return cham_elem_epsi_r
4620   if TYPE_CHAM == "ELEM_ERREUR" : return cham_elem_erreur
4621   if TYPE_CHAM == "ELEM_FLUX_R" : return cham_elem_flux_r
4622   if TYPE_CHAM == "ELEM_GEOM_R" : return cham_elem_geom_r
4623   if TYPE_CHAM == "ELEM_G_DEPL_R" : return cham_elem_g_depl
4624   if TYPE_CHAM == "ELEM_HYDR_R" : return cham_elem_hydr_r
4625   if TYPE_CHAM == "ELEM_INST_R" : return cham_elem_inst_r
4626   if TYPE_CHAM == "ELEM_INTE_R" : return cham_elem_inte_r
4627   if TYPE_CHAM == "ELEM_META_R" : return cham_elem_meta_r
4628   if TYPE_CHAM == "ELEM_NEUT_F" : return cham_elem_neut_f
4629   if TYPE_CHAM == "ELEM_NEUT_R" : return cham_elem_neut_r
4630   if TYPE_CHAM == "ELEM_PRES_R" : return cham_elem_pres_r
4631   if TYPE_CHAM == "ELEM_SIEF_R" : return cham_elem_sief_r
4632   if TYPE_CHAM == "ELEM_SOUR_R" : return cham_elem_sour_r
4633   if TYPE_CHAM == "ELEM_TEMP_F" : return cham_elem_temp_f
4634   if TYPE_CHAM == "ELEM_TEMP_R" : return cham_elem_temp_r
4635   if TYPE_CHAM == "ELEM_VARI_R" : return cham_elem_vari_r
4636   if TYPE_CHAM == "ELEM_VNOR_C" : return cham_elem_vnor_c
4637   if TYPE_CHAM == "ELNO_DBEL_R" : return cham_elem_dbel_r
4638   if TYPE_CHAM == "ELNO_DEPL_C" : return cham_elem_depl_c
4639   if TYPE_CHAM == "ELNO_DEPL_F" : return cham_elem_depl_f
4640   if TYPE_CHAM == "ELNO_DEPL_R" : return cham_elem_depl_r
4641   if TYPE_CHAM == "ELNO_DURT_R" : return cham_elem_durt_r
4642   if TYPE_CHAM == "ELNO_ENER_R" : return cham_elem_ener_r
4643   if TYPE_CHAM == "ELNO_EPSI_R" : return cham_elem_epsi_r
4644   if TYPE_CHAM == "ELNO_ERREUR" : return cham_elem_erreur
4645   if TYPE_CHAM == "ELNO_FLUX_R" : return cham_elem_flux_r
4646   if TYPE_CHAM == "ELNO_GEOM_R" : return cham_elem_geom_r
4647   if TYPE_CHAM == "ELNO_G_DEPL_R" : return cham_elem_g_depl
4648   if TYPE_CHAM == "ELNO_HYDR_R" : return cham_elem_hydr_r
4649   if TYPE_CHAM == "ELNO_INST_R" : return cham_elem_inst_r
4650   if TYPE_CHAM == "ELNO_INTE_R" : return cham_elem_inte_r
4651   if TYPE_CHAM == "ELNO_META_R" : return cham_elem_meta_r
4652   if TYPE_CHAM == "ELNO_NEUT_F" : return cham_elem_neut_f
4653   if TYPE_CHAM == "ELNO_NEUT_R" : return cham_elem_neut_r
4654   if TYPE_CHAM == "ELNO_PRES_R" : return cham_elem_pres_r
4655   if TYPE_CHAM == "ELNO_SIEF_R" : return cham_elem_sief_r
4656   if TYPE_CHAM == "ELNO_SOUR_R" : return cham_elem_sour_r
4657   if TYPE_CHAM == "ELNO_TEMP_F" : return cham_elem_temp_f
4658   if TYPE_CHAM == "ELNO_TEMP_R" : return cham_elem_temp_r
4659   if TYPE_CHAM == "ELNO_VARI_R" : return cham_elem_vari_r
4660   if TYPE_CHAM == "ELNO_VNOR_C" : return cham_elem_vnor_c
4661   if TYPE_CHAM == "ELGA_DBEL_R" : return cham_elem_dbel_r
4662   if TYPE_CHAM == "ELGA_DEPL_C" : return cham_elem_depl_c
4663   if TYPE_CHAM == "ELGA_DEPL_F" : return cham_elem_depl_f
4664   if TYPE_CHAM == "ELGA_DEPL_R" : return cham_elem_depl_r
4665   if TYPE_CHAM == "ELGA_DURT_R" : return cham_elem_durt_r
4666   if TYPE_CHAM == "ELGA_ENER_R" : return cham_elem_ener_r
4667   if TYPE_CHAM == "ELGA_EPSI_R" : return cham_elem_epsi_r
4668   if TYPE_CHAM == "ELGA_ERREUR" : return cham_elem_erreur
4669   if TYPE_CHAM == "ELGA_FLUX_R" : return cham_elem_flux_r
4670   if TYPE_CHAM == "ELGA_GEOM_R" : return cham_elem_geom_r
4671   if TYPE_CHAM == "ELGA_G_DEPL_R" : return cham_elem_g_depl
4672   if TYPE_CHAM == "ELGA_HYDR_R" : return cham_elem_hydr_r
4673   if TYPE_CHAM == "ELGA_INST_R" : return cham_elem_inst_r
4674   if TYPE_CHAM == "ELGA_INTE_R" : return cham_elem_inte_r
4675   if TYPE_CHAM == "ELGA_META_R" : return cham_elem_meta_r
4676   if TYPE_CHAM == "ELGA_NEUT_F" : return cham_elem_neut_f
4677   if TYPE_CHAM == "ELGA_NEUT_R" : return cham_elem_neut_r
4678   if TYPE_CHAM == "ELGA_PRES_R" : return cham_elem_pres_r
4679   if TYPE_CHAM == "ELGA_SIEF_R" : return cham_elem_sief_r
4680   if TYPE_CHAM == "ELGA_SOUR_R" : return cham_elem_sour_r
4681   if TYPE_CHAM == "ELGA_TEMP_F" : return cham_elem_temp_f
4682   if TYPE_CHAM == "ELGA_TEMP_R" : return cham_elem_temp_r
4683   if TYPE_CHAM == "ELGA_VARI_R" : return cham_elem_vari_r
4684   if TYPE_CHAM == "ELGA_VNOR_C" : return cham_elem_vnor_c
4685   if TYPE_CHAM == "CART_IRRA_R" : return carte_irra_r
4686   if TYPE_CHAM == "NOEU_IRRA_R" : return cham_no_irra_r
4687   if TYPE_CHAM == "ELEM_IRRA_R" : return cham_elem_irra_r
4688   if TYPE_CHAM == "ELNO_IRRA_R" : return cham_elem_irra_r
4689   if TYPE_CHAM == "ELGA_IRRA_R" : return cham_elem_irra_r
4690   raise AsException("type de concept resultat non prevu")
4691
4692 CREA_CHAMP=OPER(nom="CREA_CHAMP",op= 195,sd_prod=crea_champ_prod,
4693                 fr="  ",docu="U4.72.04-b1",reentrant='n',
4694          TYPE_CHAM       =SIMP(statut='o',typ='TXM',
4695                         into=("CART_DBEL_R","NOEU_DBEL_R","ELEM_DBEL_R",
4696                              "ELNO_DBEL_R","ELGA_DBEL_R","CART_DEPL_C",
4697                              "NOEU_DEPL_C","ELEM_DEPL_C","ELNO_DEPL_C",
4698                              "ELGA_DEPL_C","CART_DEPL_F","NOEU_DEPL_F",
4699                              "ELEM_DEPL_F","ELNO_DEPL_F","ELGA_DEPL_F",
4700                              "CART_DEPL_R","NOEU_DEPL_R","ELEM_DEPL_R",
4701                              "ELNO_DEPL_R","ELGA_DEPL_R","CART_DURT_R",
4702                              "NOEU_DURT_R","ELEM_DURT_R","ELNO_DURT_R",
4703                              "ELGA_DURT_R","CART_ENER_R","NOEU_ENER_R",
4704                              "ELEM_ENER_R","ELNO_ENER_R","ELGA_ENER_R",
4705                              "CART_EPSI_R","NOEU_EPSI_R","ELEM_EPSI_R",
4706                              "ELNO_EPSI_R","ELGA_EPSI_R","CART_ERREUR",
4707                              "NOEU_ERREUR","ELEM_ERREUR","ELNO_ERREUR",
4708                              "ELGA_ERREUR","CART_FLUX_R","NOEU_FLUX_R",
4709                              "ELEM_FLUX_R","ELNO_FLUX_R","ELGA_FLUX_R",
4710                              "CART_GEOM_R","NOEU_GEOM_R","ELEM_GEOM_R",
4711                              "ELNO_GEOM_R","ELGA_GEOM_R","CART_G_DEPL_R",
4712                              "NOEU_G_DEPL_R","ELEM_G_DEPL_R","ELNO_G_DEPL_R",
4713                              "ELGA_G_DEPL_R","CART_HYDR_R","NOEU_HYDR_R",
4714                              "ELEM_HYDR_R","ELNO_HYDR_R","ELGA_HYDR_R",
4715                              "CART_INST_R","NOEU_INST_R","ELEM_INST_R",
4716                              "ELNO_INST_R","ELGA_INST_R","CART_INTE_R",
4717                              "NOEU_INTE_R","ELEM_INTE_R","ELNO_INTE_R",
4718                              "ELGA_INTE_R","CART_META_R","NOEU_META_R",
4719                              "ELEM_META_R","ELNO_META_R","ELGA_META_R",
4720                              "CART_NEUT_F","NOEU_NEUT_F","ELEM_NEUT_F",
4721                              "ELNO_NEUT_F","ELGA_NEUT_F","CART_NEUT_R",
4722                              "NOEU_NEUT_R","ELEM_NEUT_R","ELNO_NEUT_R",
4723                              "ELGA_NEUT_R","CART_PRES_R","NOEU_PRES_R",
4724                              "ELEM_PRES_R","ELNO_PRES_R","ELGA_PRES_R",
4725                              "CART_SIEF_R","NOEU_SIEF_R","ELEM_SIEF_R",
4726                              "ELNO_SIEF_R","ELGA_SIEF_R","CART_SOUR_R",
4727                              "NOEU_SOUR_R","ELEM_SOUR_R","ELNO_SOUR_R",
4728                              "ELGA_SOUR_R","CART_TEMP_F","NOEU_TEMP_F",
4729                              "ELEM_TEMP_F","ELNO_TEMP_F","ELGA_TEMP_F",
4730                              "CART_TEMP_R","NOEU_TEMP_R","ELEM_TEMP_R",
4731                              "ELNO_TEMP_R","ELGA_TEMP_R","CART_VAR2_R",
4732                              "NOEU_VAR2_R","ELEM_VARI_R","ELNO_VARI_R",
4733                              "ELGA_VARI_R","CART_VNOR_C","NOEU_VNOR_C",
4734                              "ELEM_VNOR_C","ELNO_VNOR_C","ELGA_VNOR_C",
4735                              "CART_IRRA_R","NOEU_IRRA_R","ELEM_IRRA_R",
4736                              "ELNO_IRRA_R","ELGA_IRRA_R",) ),
4737
4738 #        SI CREATION D'UN CHAM_NO, POUR IMPOSER LA NUMEROTATION DES DDLS :
4739 #        ------------------------------------------------------------------
4740          regles=(EXCLUS('NUME_DDL','CHAM_NO',)),
4741          NUME_DDL        =SIMP(statut='f',typ=(nume_ddl) ),
4742          CHAM_NO         =SIMP(statut='f',typ=(cham_no) ),
4743
4744          OPERATION       =SIMP(statut='o',typ='TXM',into=("AFFE","ASSE","EVAL","EXTR","DISC",) ),
4745
4746          b_affe          =BLOC(condition = "OPERATION == 'AFFE'",
4747              regles=(UN_PARMI('MAILLAGE','MODELE'),EXCLUS('MAILLAGE','PROL_ZERO'),),
4748              MAILLAGE        =SIMP(statut='f',typ=(maillage) ),
4749              MODELE          =SIMP(statut='f',typ=(modele) ),
4750              PROL_ZERO       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
4751              AFFE            =FACT(statut='o',min=01,max='**',
4752                 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
4753                         UN_PARMI('VALE','VALE_I','VALE_C','VALE_F', ),),
4754                 TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4755                 GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4756                 MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4757                 GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4758                 NOEUD           =SIMP(statut='f',typ=no,max='**'),
4759                 NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
4760                 VALE            =SIMP(statut='f',typ='R',max='**' ),
4761                 VALE_I          =SIMP(statut='f',typ='I',max='**' ),
4762                 VALE_C          =SIMP(statut='f',typ='C',max='**' ),
4763                 VALE_F          =SIMP(statut='f',typ=fonction,max='**'),
4764                                    ),
4765                              ),
4766          b_asse          =BLOC(condition = "OPERATION == 'ASSE'",
4767              regles=(UN_PARMI('MAILLAGE','MODELE'),EXCLUS('MAILLAGE','PROL_ZERO'),),
4768              MAILLAGE        =SIMP(statut='f',typ=(maillage) ),
4769              MODELE          =SIMP(statut='f',typ=(modele) ),
4770              PROL_ZERO       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
4771              ASSE            =FACT(statut='o',min=01,max='**',
4772                 regles=(AU_MOINS_UN('TOUT','GROUP_MA','GROUP_NO','MAILLE','NOEUD',),
4773                 PRESENT_PRESENT('NOM_CMP_RESU','NOM_CMP', ),),
4774                 TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4775                 GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4776                 GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4777                 MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4778                 NOEUD           =SIMP(statut='f',typ=no,max='**'),
4779                 CHAM_GD         =SIMP(statut='o',typ=(cham_gd)),
4780                 NOM_CMP         =SIMP(statut='f',typ='TXM',max='**' ),
4781                 NOM_CMP_RESU    =SIMP(statut='f',typ='TXM',max='**' ),
4782                 CUMUL           =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
4783                 COEF_R          =SIMP(statut='f',typ='R',defaut= 1. ),
4784                                     ),
4785                              ),
4786          b_eval          =BLOC(condition = "OPERATION == 'EVAL'",
4787              CHAM_F          =SIMP(statut='o',typ=(cham_gd)),
4788              CHAM_PARA       =SIMP(statut='o',typ=(cham_gd),max='**'),
4789                              ),
4790          b_disc          =BLOC(condition = "OPERATION == 'DISC'",
4791              MODELE          =SIMP(statut='f',typ=(modele) ),
4792              PROL_ZERO       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
4793              CHAM_GD         =SIMP(statut='o',typ=(cham_gd)),
4794                              ),
4795          b_extr          =BLOC(condition = "OPERATION == 'EXTR'",
4796              regles=(UN_PARMI('MAILLAGE','RESULTAT'),),
4797              MAILLAGE        =SIMP(statut='f',typ=(maillage) ),
4798              RESULTAT        =SIMP(statut='f',typ=(resultat) ),
4799              b_extr_maillage =BLOC(condition = "MAILLAGE != None",
4800                  NOM_CHAM        =SIMP(statut='o',typ='TXM',into=("GEOMETRIE",)),
4801                                   ),
4802              b_extr_resultat =BLOC(condition = "RESULTAT != None",
4803                  regles=(EXCLUS('TYPE_MAXI','NUME_ORDRE','INST','FREQ','NUME_MODE',
4804                                 'NOEUD_CMP','NOM_CAS','ANGL', ),),
4805                  SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
4806                                    fr="Liste des paramètres de sensibilité.",
4807                                    ang="List of sensitivity parameters"),
4808                  NOM_CHAM        =SIMP(statut='o',typ='TXM',
4809                            into=("DEPL","VITE","ACCE",
4810                              "DEPL_ABSOLU","VITE_ABSOLU",
4811                              "TEMP","IRRA","ACCE_ABSOLU",
4812                              "FORC_NODA","REAC_NODA","EFGE_NOEU_DEPL",
4813                              "EFGE_NOEU_CART","EPSI_NOEU_DEPL",
4814                              "SIGM_NOEU_DEPL","SIGM_NOEU_CART",
4815                              "SIPO_NOEU_DEPL","EQUI_NOEU_SIGM",
4816                              "EQUI_NOEU_EPSI","FLUX_NOEU_TEMP",
4817                              "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP",
4818                              "META_ELGA_TEMP","META_ELNO_TEMP",
4819                              "META_NOEU_TEMP","DURT_ELGA_META",
4820                              "DURT_ELNO_META","DURT_NOEU_META","SIEF_ELGA",
4821                              "SIEF_ELNO_ELGA","SIEF_ELGA_DEPL",
4822                              "VARI_ELNO_ELGA","VARI_ELGA","EPOT_ELEM_DEPL",
4823                              "ECIN_ELEM_DEPL","SOUR_ELGA_ELEC",
4824                              "PRES_ELNO_REEL","PRES_ELNO_IMAG",
4825                              "PRES_ELNO_DBEL","INTE_ELNO_ACTI",
4826                              "INTE_ELNO_REAC","EFGE_ELNO_DEPL",
4827                              "SIGM_ELNO_DEPL","EFGE_ELNO_CART",
4828                              "SIGM_ELNO_CART","SIPO_ELNO_DEPL",
4829                              "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL",
4830                              "EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO",
4831                              "EPSP_ELGA","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
4832                              "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
4833                              "ERRE_ELNO_ELGA","ERRE_ELGA_NORE",
4834                              "ERRE_ELEM_NOZ1","ERRE_ELEM_NOZ2",
4835                              "SIGM_NOZ1_ELGA","SIGM_NOZ2_ELGA",
4836                              "DEGE_ELNO_DEPL","SIRE_ELNO_DEPL",
4837                              "VNOR_ELEM_DEPL","SIEF_ELNO","VARI_ELNO",
4838                              "SIEF_NOEU_ELGA","VARI_NOEU_ELGA",
4839                              "PRES_NOEU_DBEL","PRES_NOEU_REEL",
4840                              "PRES_NOEU_IMAG","INTE_NOEU_ACTI",
4841                              "INTE_NOEU_REAC","DCHA_ELGA_SIGM",
4842                              "DCHA_ELNO_SIGM","RADI_ELGA_SIGM",
4843                              "RADI_ELNO_SIGM","ENDO_ELNO_SIGA",
4844                              "ENDO_ELNO_SINO","ENDO_ELNO_SIGM",
4845                              "SIGM_ELNO_VARI","SIGM_NOEU_VARI",
4846                              "EPME_ELNO_DEPL","EPME_ELGA_DEPL",
4847                              "EPME_ELNO_DPGE","EPMG_ELNO_DEPL",
4848                              "EPMG_ELGA_DEPL","GRAD_ELGA_THETA",
4849                              "GTHE_ELNO_ELGA","GRAD_NOEU_THETA",
4850                              "HYDR_ELGA","HYDR_ELNO_ELGA","HYDR_NOEU_ELGA",
4851                              "THETA","SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",
4852                              "VALE_CONT",) ),
4853                  TYPE_MAXI       =SIMP(statut='f',typ='TXM',into=("MAXI","MINI","MAXI_ABS","MINI_ABS","NORM_TRAN",) ),
4854                  TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="VALE",into=("VALE","INST",) ),
4855                  TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4856                  LIST_INST       =SIMP(statut='f',typ=(listr8) ),
4857                  NUME_ORDRE      =SIMP(statut='f',typ='I'),
4858                  INST            =SIMP(statut='f',typ='R'),
4859                  FREQ            =SIMP(statut='f',typ='R'),
4860                  NUME_MODE       =SIMP(statut='f',typ='I'),
4861                  NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
4862                  NOM_CAS         =SIMP(statut='f',typ='TXM'),
4863                  ANGL            =SIMP(statut='f',typ='R'),
4864                  PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
4865                  CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
4866                  INTERPOL        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN",) ),
4867                               ),
4868
4869                 ),
4870 # FIN DU CATALOGUE : INFO,TITRE ET TYPAGE DU RESULAT :
4871 #-----------------------------------------------------
4872          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,) ),
4873          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
4874 )  ;
4875 #& MODIF COMMANDE  DATE 06/03/2002   AUTEUR MCOURTOI M.COURTOIS
4876 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4877 # ======================================================================
4878 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4879 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4880 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4881 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4882 # (AT YOUR OPTION) ANY LATER VERSION.
4883 #
4884 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4885 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4886 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4887 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4888 #
4889 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4890 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4891 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4892 # ======================================================================
4893 CREA_MAILLAGE=OPER(nom="CREA_MAILLAGE",op= 167,sd_prod=maillage,
4894                      docu="U4.23.02-d1",reentrant='n',
4895          regles=(EXCLUS('ECLA_PG','CREA_MAILLE'),
4896                  EXCLUS('ECLA_PG','CREA_GROUP_MA'),
4897                  EXCLUS('ECLA_PG','DETR_GROUP_MA'),
4898                  EXCLUS('ECLA_PG','MODI_MAILLE'),),
4899          MAILLAGE        =SIMP(statut='o',typ=maillage ),
4900          CREA_POI1       =FACT(statut='f',min=01,max='**',fr="Création de mailles de type POI1 à partir de noeuds",
4901            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD' ),),
4902            NOM_GROUP_MA    =SIMP(statut='f',typ=grma,max='**'),
4903            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4904            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4905            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4906            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4907            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4908          ),
4909          CREA_MAILLE     =FACT(statut='f',min=01,max='**',fr="Duplication de mailles",
4910            regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA'),),
4911            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4912            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4913            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4914            PREF_MAILLE     =SIMP(statut='o',typ='TXM' ),
4915            PREF_NUME       =SIMP(statut='f',typ='I' ),
4916          ),
4917          CREA_GROUP_MA   =FACT(statut='f',min=01,max='**',fr="Duplication de mailles et création de groupes de mailles",
4918            regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
4919            NOM             =SIMP(statut='o',typ='TXM'),
4920            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4921            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4922            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4923            PREF_MAILLE     =SIMP(statut='o',typ='TXM' ),
4924            PREF_NUME       =SIMP(statut='f',typ='I' ),
4925          ),
4926          DETR_GROUP_MA   =FACT(statut='f',min=01,max=01,fr="Destruction de groupes de mailles",
4927            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4928            NB_MAILLE       =SIMP(statut='f',typ='I',defaut= 0,
4929                                  fr="Nombre minimal de mailles que doit contenir le groupe pour etre détruit",  ),
4930          ),
4931          MODI_MAILLE     =FACT(statut='f',min=01,max='**',fr="Modification du type de mailles",
4932            regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
4933            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4934            MAILLE          =SIMP(statut='f',typ=grma,max='**'),
4935            GROUP_MA        =SIMP(statut='f',typ=ma,max='**'),
4936            OPTION          =SIMP(statut='o',typ='TXM',into=("TRIA6_7","QUAD8_9","SEG3_4"),fr="Choix de la transformation" ),
4937            PREF_NOEUD      =SIMP(statut='f',typ='TXM',defaut="NS"),
4938            PREF_NUME       =SIMP(statut='f',typ='I',defaut= 1 ),
4939          ),
4940          REPERE          =FACT(statut='f',min=01,max='**',
4941                                fr="changement de repère servant à déterminer les caractéristiques d une section de poutre",
4942            TABLE           =SIMP(statut='o',typ=tabl_cara_geom,
4943                                  fr="Nom de la table contenant les caractéristiques de la section de poutre" ),
4944            NOM_ORIG        =SIMP(statut='f',typ='TXM',into=("CDG","TORSION"),fr="Origine du nouveau repère" ),
4945            NOM_ROTA        =SIMP(statut='f',typ='TXM',into=("INERTIE",),fr="Direction du repére"  ),
4946            b_cdg =BLOC(condition = "NOM_ORIG == 'CDG'",
4947              GROUP_MA        =SIMP(statut='f',typ=grma,
4948                                    fr="Nom du groupe de mailles dont le centre de gravité sera l origine du nouveau repère"),
4949            ),
4950          ),
4951          ECLA_PG         =FACT(statut='f',min=01,max=01,
4952                                fr="Eclatement des mailles en petites mailles contenant chacune un seul point de gauss",
4953            MODELE          =SIMP(statut='o',typ=modele ),
4954            SHRINK          =SIMP(statut='f',typ='R',defaut= 0.9, fr="Facteur de réduction" ),
4955          ),
4956          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
4957 )  ;
4958 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
4959 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4960 # ======================================================================
4961 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4962 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4963 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4964 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4965 # (AT YOUR OPTION) ANY LATER VERSION.
4966 #
4967 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4968 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4969 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4970 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4971 #
4972 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4973 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4974 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4975 # ======================================================================
4976 def crea_resu_prod(TYPE_RESU,**args):
4977   if TYPE_RESU == "EVOL_ELAS"    : return evol_elas
4978   if TYPE_RESU == "EVOL_NOLI"    : return evol_noli
4979   if TYPE_RESU == "EVOL_THER"    : return evol_ther
4980   if TYPE_RESU == "MULT_ELAS"    : return mult_elas
4981   if TYPE_RESU == "FOURIER_ELAS" : return fourier_elas
4982   if TYPE_RESU == "EVOL_VARC"    : return evol_varc
4983   raise AsException("type de concept resultat non prevu")
4984
4985 CREA_RESU=OPER(nom="CREA_RESU",op=124,sd_prod=crea_resu_prod,docu="U4.44.12-e3",reentrant='f',
4986                fr="Engendrer ou enrichir une structure de donnees en affectant les cham_gd associes",
4987
4988          OPERATION =SIMP(statut='o',typ='TXM',into=("AFFE","ECLA_PG","PERM_CHAM","PROL_RTZ",),
4989                          fr="choix de la fonction a activer",),
4990
4991          b_affe       =BLOC(condition = "OPERATION == 'AFFE'",
4992
4993            TYPE_RESU    =SIMP(statut='o',typ='TXM',into=("MULT_ELAS","EVOL_ELAS","EVOL_NOLI","FOURIER_ELAS",
4994                                                          "EVOL_THER","EVOL_VARC",) ),
4995            NOM_CHAM     =SIMP(statut='f',typ='TXM',into=("DEPL","TEMP","IRRA","HYDR_ELGA",),max=1 ),
4996            AFFE         =FACT(statut='f',min=01,max='**',
4997              regles=(UN_PARMI('NOM_CAS','NUME_MODE','LIST_INST','INST',),),
4998              CHAM_GD         =SIMP(statut='f',typ=(cham_gd)),
4999              NOM_CAS         =SIMP(statut='f',typ='TXM' ),
5000              NUME_MODE       =SIMP(statut='f',typ='I'),
5001              TYPE_MODE       =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
5002              INST            =SIMP(statut='f',typ='R',max='**'),
5003              LIST_INST       =SIMP(statut='f',typ=listr8),
5004              NUME_INIT       =SIMP(statut='f',typ='I'),
5005              NUME_FIN        =SIMP(statut='f',typ='I'),
5006              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
5007              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5008            ),
5009          ),
5010
5011          b_ecla_pg    =BLOC(condition = "OPERATION == 'ECLA_PG'",
5012
5013            TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_ELAS","EVOL_NOLI","EVOL_THER"), ),
5014
5015            ECLA_PG         =FACT(statut='f',min=01,max=01,
5016              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
5017              NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
5018                                    into=("SIEF_ELGA","VARI_ELGA","SIEF_ELGA_DEPL","FLUX_ELGA_TEMP",) ),
5019              MODELE_INIT     =SIMP(statut='o',typ=modele),
5020              RESU_INIT       =SIMP(statut='o',typ=resultat),
5021              MAILLAGE        =SIMP(statut='o',typ=maillage),
5022              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5023              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
5024              LIST_ORDRE      =SIMP(statut='f',typ=listis),
5025              INST            =SIMP(statut='f',typ='R',max='**'),
5026              LIST_INST       =SIMP(statut='f',typ=listr8),
5027              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
5028              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
5029            ),
5030          ),
5031
5032          b_perm_cham =BLOC(condition = "OPERATION == 'PERM_CHAM'",
5033
5034            TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_NOLI",) ),
5035            NOM_CHAM        =SIMP(statut='f',typ='TXM',into=("DEPL","SIEF_ELGA","VARI_ELGA",),max='**' ),
5036            RESU_INIT       =SIMP(statut='o',typ=evol_noli),
5037            INST_INIT       =SIMP(statut='f',typ='R'),
5038            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
5039            CRITERE         =SIMP(statut='f',typ='TXM',into=('RELATIF','ABSOLU'),defaut='RELATIF'),
5040            MAILLAGE_INIT   =SIMP(statut='o',typ=maillage,),
5041            RESU_FINAL      =SIMP(statut='o',typ=evol_noli,),
5042            MAILLAGE_FINAL  =SIMP(statut='o',typ=maillage,),
5043            PERM_CHAM       =FACT(statut='o',min=01,max=01,
5044               GROUP_MA_FINAL =SIMP(statut='o',typ=grma),
5045               GROUP_MA_INIT  =SIMP(statut='o',typ=grma),
5046               TRAN           =SIMP(statut='o',typ='R',max='**'),
5047               PRECISION      =SIMP(statut='f',typ='R',defaut=1.0E-3),
5048            ),
5049          ),
5050
5051          b_prol_rtz   =BLOC(condition = "OPERATION == 'PROL_RTZ'",
5052
5053            TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_THER",) ),
5054
5055            PROL_RTZ        =FACT(statut='f',min=01,max=01,
5056               regles=(EXCLUS('INST','LIST_INST'),),
5057               MAILLAGE_FINAL  =SIMP(statut='o',typ=maillage,),
5058               TABLE           =SIMP(statut='o',typ=tabl_post_rele,fr="Table issue de post_releve_t"),
5059               INST            =SIMP(statut='f',typ='R',max='**'),
5060               LIST_INST       =SIMP(statut='f',typ=listr8),
5061               b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
5062                  PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
5063                  CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5064               ),
5065               PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU",),),
5066               PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU",),),
5067               REPERE          =SIMP(statut='o',typ='TXM',into=("CYLINDRIQUE",),),
5068               ORIGINE         =SIMP(statut='o',typ='R',min=03,max=03),
5069               AXE_Z           =SIMP(statut='o',typ='R',min=03,max=03),
5070            ),
5071          ),
5072
5073 )  ;
5074 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
5075 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5076 # ======================================================================
5077 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5078 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5079 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5080 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5081 # (AT YOUR OPTION) ANY LATER VERSION.
5082 #
5083 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5084 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5085 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5086 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5087 #
5088 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5089 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5090 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5091 # ======================================================================
5092 DEBUT=MACRO(nom="DEBUT",op=0 ,docu="U4.11.01-g2",repetable='n',
5093            fr="Ouverture d une étude. Allocation des ressources mémoire et disque",
5094           sd_prod=ops.DEBUT,
5095
5096          PAR_LOT         =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
5097                            into=("OUI","NON"),defaut="OUI"),
5098          BASE            =FACT(fr="définition des paramètres associés aux bases JEVEUX",
5099                                statut='f',min=1,max=3,
5100            FICHIER         =SIMP(fr="nom de la base",statut='o',typ='TXM',
5101                                  into=('GLOBALE','VOLATILE','LOCALE'),),
5102            TITRE           =SIMP(statut='f',typ='TXM'),
5103            CAS             =SIMP(statut='f',typ='TXM'),
5104            NMAX_ENRE       =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
5105            LONG_ENRE       =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
5106            LONG_REPE       =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
5107          ),
5108          IMPRESSION      =FACT(statut='f',min=1,max=3,
5109            FICHIER         =SIMP(statut='o',typ='TXM'),
5110            UNITE           =SIMP(statut='o',typ='I'),
5111          ),
5112          CATALOGUE       =FACT(statut='f',min=1,max=10,
5113            FICHIER         =SIMP(statut='o',typ='TXM'),
5114            TITRE           =SIMP(statut='f',typ='TXM'),
5115            UNITE           =SIMP(statut='f',typ='I'),
5116          ),
5117          CODE            =FACT(fr="définition d un nom pour l'esemble d'une étude",
5118                                statut='f',min=1,max=1,
5119            NOM             =SIMP(statut='o',typ='TXM'),
5120            NIV_PUB_WEB     =SIMP(statut='o',typ='TXM',into=('INTERNET','INTRANET')),
5121            UNITE           =SIMP(statut='f',typ='I',defaut=15),
5122          ),
5123          DEBUG           =FACT(fr="option de déboggage reservée aux développeurs",
5124                                statut='f',min=1,max=1,
5125            JXVERI          =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
5126                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
5127            JEVEUX          =SIMP(fr="force les déchargement sur disque",
5128                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
5129            ENVIMA          =SIMP(fr="imprime les valeurs définies dans ENVIMA",
5130                                  statut='f',typ='TXM',into=('TEST',)),
5131          ),
5132          MEMOIRE         =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=01,max=01,
5133            GESTION         =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
5134            TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
5135            TAILLE          =SIMP(statut='f',typ='I'),
5136            TAILLE_BLOC     =SIMP(statut='f',typ='R',defaut=800.),
5137            PARTITION       =SIMP(statut='f',typ='R'),
5138          ),
5139  );
5140 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
5141 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5142 # ======================================================================
5143 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5144 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5145 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5146 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5147 # (AT YOUR OPTION) ANY LATER VERSION.
5148 #
5149 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5150 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5151 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5152 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5153 #
5154 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5155 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5156 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5157 # ======================================================================
5158 DEFI_BASE_MODALE=OPER(nom="DEFI_BASE_MODALE",op=  99,sd_prod=base_modale,
5159                      docu="U4.64.02-f1",reentrant='f',
5160          regles=(UN_PARMI('CLASSIQUE','RITZ','DIAG_MASS'),),
5161          CLASSIQUE       =FACT(statut='f',min=01,max=01,
5162            INTERF_DYNA     =SIMP(statut='o',typ=interf_dyna_clas ),
5163            MODE_MECA       =SIMP(statut='o',typ=mode_meca,max='**' ),
5164            NMAX_MODE       =SIMP(statut='f',typ='I',defaut= 10 ),
5165          ),
5166          RITZ            =FACT(statut='f',min=01,max='**',
5167            regles=(UN_PARMI('MODE_STAT','MODE_MECA','MULT_ELAS','BASE_MODALE'),),
5168            MODE_MECA       =SIMP(statut='f',typ=mode_meca,max='**'  ),
5169            NMAX_MODE       =SIMP(statut='f',typ='I',defaut= 999 ),
5170            MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
5171            MULT_ELAS       =SIMP(statut='f',typ=mult_elas ),
5172            BASE_MODALE     =SIMP(statut='f',typ=base_modale ),
5173          ),
5174         DIAG_MASS        =FACT(statut='f',min=01,max='**',
5175            MODE_MECA       =SIMP(statut='o',typ=mode_meca,max='**'  ),
5176            MODE_STAT       =SIMP(statut='o',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
5177          ),
5178 #  le bloc conditionnel remplace-t-il PRESENT_PRESENT('RITZ','NUME_REF'),
5179 #                                     PRESENT_ABSENT('INTERF_DYNA','CLASSIQUE'),
5180          b_ritz          =BLOC(condition = "RITZ != None",
5181            INTERF_DYNA     =SIMP(statut='f',typ=interf_dyna_clas ),
5182            NUME_REF        =SIMP(statut='o',typ=nume_ddl ),
5183          ),
5184          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5185          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5186 )  ;
5187 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
5188 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5189 # ======================================================================
5190 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5191 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5192 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5193 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5194 # (AT YOUR OPTION) ANY LATER VERSION.
5195 #
5196 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5197 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5198 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5199 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5200 #
5201 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5202 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5203 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5204 # ======================================================================
5205 DEFI_CABLE_BP=OPER(nom="DEFI_CABLE_BP",op= 180,sd_prod=cabl_precont,
5206                    fr=" ",
5207                    docu="U4.42.04-a",reentrant='n',
5208          MODELE          =SIMP(statut='o',typ=modele ),
5209          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
5210          CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
5211          GROUP_MA_BETON  =SIMP(statut='o',typ=grma),
5212          DEFI_CABLE      =FACT(statut='o',min=1,max='**',
5213            regles=(UN_PARMI('MAILLE','GROUP_MA'),
5214                    UN_PARMI('NOEUD_ANCRAGE','GROUP_NO_ANCRAGE'),),
5215            MAILLE          =SIMP(statut='f',typ=ma,min=2,max='**'),
5216            GROUP_MA        =SIMP(statut='f',typ=grma),
5217            NOEUD_ANCRAGE   =SIMP(statut='f',typ=no,max=2),
5218            GROUP_NO_ANCRAGE=SIMP(statut='f',typ=grno,max=2),
5219            TYPE_ANCRAGE    =SIMP(statut='o',typ='TXM',min=2,max=2,
5220                                  into=("ACTIF","PASSIF") ),
5221          ),
5222          TENSION_INIT    =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5223          RECUL_ANCRAGE   =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5224          RELAXATION      =FACT(statut='f',min=0,max=1,
5225            R_J             =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5226          ),
5227          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
5228 )  ;
5229 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
5230 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5231 # ======================================================================
5232 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5233 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5234 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5235 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5236 # (AT YOUR OPTION) ANY LATER VERSION.
5237 #
5238 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5239 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5240 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5241 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5242 #
5243 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5244 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5245 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5246 # ======================================================================
5247 DEFI_CONSTANTE=OPER(nom="DEFI_CONSTANTE",op=   2,sd_prod=fonction,
5248                     fr="Définition d une fonction constante",
5249                     docu="U4.31.01-f",reentrant='n',
5250          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
5251          VALE            =SIMP(statut='o',typ='R',max=01 ),
5252          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5253 )  ;
5254 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
5255 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5256 # ======================================================================
5257 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5258 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5259 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5260 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5261 # (AT YOUR OPTION) ANY LATER VERSION.
5262 #
5263 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5264 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5265 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5266 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5267 #
5268 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5269 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5270 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5271 # ======================================================================
5272 DEFI_COQU_MULT=OPER(nom="DEFI_COQU_MULT",op=56,sd_prod=mater,docu="U4.42.03-e",reentrant='n',
5273                     fr="Définition d une coque composite couche par couche",
5274          COUCHE          =FACT(statut='o',min=01,max='**',
5275            EPAIS           =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5276            MATER           =SIMP(statut='o',typ=(mater) ),
5277            ORIENTATION     =SIMP(statut='f',typ='R',defaut= 0.E+0,
5278                                  val_min=-90.E+0,val_max=90.E+0   ),
5279          ),
5280          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
5281          IMPRESSION      =FACT(statut='f',min=01,max=01,
5282            FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
5283                                  into=("RESULTAT",) ),
5284          ),
5285 )  ;
5286 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
5287 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5288 # ======================================================================
5289 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5290 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5291 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5292 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5293 # (AT YOUR OPTION) ANY LATER VERSION.
5294 #
5295 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5296 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5297 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5298 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5299 #
5300 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5301 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5302 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5303 # ======================================================================
5304 DEFI_FLUI_STRU=OPER(nom="DEFI_FLUI_STRU",op= 143,sd_prod=type_flui_stru,
5305                     docu="U4.25.01-d",reentrant='n',
5306          regles=(  UN_PARMI('FAISCEAU_TRANS','GRAPPE','FAISCEAU_AXIAL','COQUE_COAX',),),
5307          FAISCEAU_TRANS  =FACT(statut='f',min=01,max='**',
5308            COUPLAGE        =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
5309            CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
5310            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
5311            PROF_RHO_F_INT  =SIMP(statut='f',typ=fonction ),
5312            PROF_RHO_F_EXT  =SIMP(statut='f',typ=fonction ),
5313            NOM_CMP         =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ") ),
5314            COEF_MASS_AJOU  =SIMP(statut='f',typ='R' ),
5315            TYPE_PAS        =SIMP(statut='f',typ='TXM',into=("CARRE_LIGN","TRIA_LIGN") ),
5316            TYPE_RESEAU     =SIMP(statut='f',typ='I' ),
5317            UNITE_CD        =SIMP(statut='f',typ='I',defaut=70),
5318            UNITE_CK        =SIMP(statut='f',typ='I',defaut=71),
5319            PAS             =SIMP(statut='f',typ='R' ),
5320          ),
5321          GRAPPE          =FACT(statut='f',min=00,max=01,
5322            regles=(ENSEMBLE('GRAPPE_2','NOEUD','CARA_ELEM','MODELE','RHO_FLUI',),
5323                    PRESENT_PRESENT('COEF_MASS_AJOU','GRAPPE_2', ),),
5324 #  peut on créer un bloc a partir de la valeur de couplage
5325            COUPLAGE        =SIMP(statut='o',typ='TXM',into=("OUI","NON") ),
5326            GRAPPE_2        =SIMP(statut='f',typ='TXM',
5327                                  into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC") ),
5328            NOEUD           =SIMP(statut='f',typ=no),
5329            CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
5330            MODELE          =SIMP(statut='f',typ=modele ),
5331            COEF_MASS_AJOU  =SIMP(statut='f',typ='R' ),
5332            RHO_FLUI        =SIMP(statut='f',typ='R' ),
5333            UNITE_CA        =SIMP(statut='f',typ='I',defaut=70),
5334            UNITE_KA        =SIMP(statut='f',typ='I',defaut=71),
5335          ),
5336          FAISCEAU_AXIAL  =FACT(statut='f',min=01,max='**',
5337            regles=(UN_PARMI('GROUP_MA','TRI_GROUP_MA'),
5338                    UN_PARMI('CARA_ELEM','RAYON_TUBE'),
5339                    ENSEMBLE('RAYON_TUBE','COOR_TUBE'),
5340                    PRESENT_ABSENT('RAYON_TUBE','TRI_GROUP_MA'),
5341                    ENSEMBLE('CARA_PAROI','VALE_PAROI'),
5342                    ENSEMBLE('LONG_TYPG','LARG_TYPG','EPAI_TYPG','RUGO_TYPG','COEF_TRAI_TYPG','COEF_DPOR_TYPG',
5343                             'COOR_GRILLE','TYPE_GRILLE', ),),
5344 #  on doit pouvoir mettre des blocs conditionnels mais pas assez d infos pour le faire
5345            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5346            TRI_GROUP_MA    =SIMP(statut='f',typ='TXM' ),
5347            VECT_X          =SIMP(statut='f',typ='R',max=03),
5348            PROF_RHO_FLUI   =SIMP(statut='f',typ=fonction ),
5349            PROF_VISC_CINE  =SIMP(statut='f',typ=fonction ),
5350            CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
5351            RAYON_TUBE      =SIMP(statut='f',typ='R' ),
5352            COOR_TUBE       =SIMP(statut='f',typ='R',max='**'),
5353            PESANTEUR       =SIMP(statut='f',typ='R',min=04,max=04),
5354            RUGO_TUBE       =SIMP(statut='f',typ='R' ),
5355            CARA_PAROI      =SIMP(statut='f',typ='TXM',max=05,
5356                                  into=("YC","ZC","R","HY","HZ") ),
5357            VALE_PAROI      =SIMP(statut='f',typ='R',max=05),
5358            ANGL_VRIL       =SIMP(statut='f',typ='R' ),
5359            LONG_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5360            LARG_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5361            EPAI_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5362            RUGO_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5363            COEF_TRAI_TYPG  =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5364            COEF_DPOR_TYPG  =SIMP(statut='f',typ='R',max='**'),
5365            COOR_GRILLE     =SIMP(statut='f',typ='R',max='**'),
5366            TYPE_GRILLE     =SIMP(statut='f',typ='I',max='**'),
5367          ),
5368          COQUE_COAX      =FACT(statut='f',min=00,max=01,
5369            MASS_AJOU       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
5370            GROUP_MA_INT    =SIMP(statut='o',typ=grma),
5371            GROUP_MA_EXT    =SIMP(statut='o',typ=grma),
5372            VECT_X          =SIMP(statut='o',typ='R',max='**'),
5373            CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
5374            MATER_INT       =SIMP(statut='o',typ=mater ),
5375            MATER_EXT       =SIMP(statut='o',typ=mater ),
5376            RHO_FLUI        =SIMP(statut='o',typ='R' ),
5377            VISC_CINE       =SIMP(statut='o',typ='R' ),
5378            RUGOSITE        =SIMP(statut='o',typ='R' ),
5379            PDC_MOY_1       =SIMP(statut='o',typ='R' ),
5380            PDC_DYN_1       =SIMP(statut='o',typ='R' ),
5381            PDC_MOY_2       =SIMP(statut='o',typ='R' ),
5382            PDC_DYN_2       =SIMP(statut='o',typ='R' ),
5383          ),
5384          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5385 )  ;
5386 #& MODIF COMMANDE  DATE 23/01/2002   AUTEUR DURAND C.DURAND
5387 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5388 # ======================================================================
5389 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5390 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5391 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5392 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5393 # (AT YOUR OPTION) ANY LATER VERSION.
5394 #
5395 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5396 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5397 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5398 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5399 #
5400 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5401 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5402 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5403 # ======================================================================
5404 DEFI_FONC_ELEC=OPER(nom="DEFI_FONC_ELEC",op=64,sd_prod=fonction,docu="U4.MK.10-e",reentrant='n',
5405                     fr="Définition d une fonction du temps pour calculer des forces de LAPLACE",
5406       regles=(UN_PARMI('COUR_PRIN','COUR'),
5407               EXCLUS('COUR','COUR_SECO'), ),
5408          FREQ            =SIMP(statut='f',typ='R',defaut= 50.),
5409          SIGNAL          =SIMP(statut='f',typ='TXM',defaut="COMPLET",into=("COMPLET","CONTINU") ),
5410          COUR            =FACT(statut='f',min=1,max='**',
5411          fr="Définition du courant de court-circuit",
5412            regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),
5413                    UN_PARMI('PHI_CC_2','INTC_CC_2'),),
5414            INTE_CC_1       =SIMP(statut='o',typ='R'),
5415            TAU_CC_1        =SIMP(statut='o',typ='R'),
5416            PHI_CC_1        =SIMP(statut='f',typ='R'),
5417            INTC_CC_1       =SIMP(statut='f',typ='R'),
5418            INTE_CC_2       =SIMP(statut='o',typ='R'),
5419            TAU_CC_2        =SIMP(statut='o',typ='R'),
5420            PHI_CC_2        =SIMP(statut='f',typ='R'),
5421            INTC_CC_2       =SIMP(statut='f',typ='R'),
5422            INST_CC_INIT    =SIMP(statut='o',typ='R'),
5423            INST_CC_FIN     =SIMP(statut='o',typ='R'),
5424          ),
5425          COUR_PRIN       =FACT(statut='f',min=1,max=1,
5426          fr="Définition du courant de court-circuit avec réenclenchement",
5427            regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),),
5428            INTE_CC_1       =SIMP(statut='o',typ='R'),
5429            TAU_CC_1        =SIMP(statut='o',typ='R'),
5430            PHI_CC_1        =SIMP(statut='f',typ='R'),
5431            INTC_CC_1       =SIMP(statut='f',typ='R'),
5432            INTE_RENC_1     =SIMP(statut='f',typ='R'),
5433            TAU_RENC_1      =SIMP(statut='f',typ='R'),
5434            PHI_RENC_1      =SIMP(statut='f',typ='R'),
5435            INST_CC_INIT    =SIMP(statut='o',typ='R'),
5436            INST_CC_FIN     =SIMP(statut='o',typ='R'),
5437            INST_RENC_INIT  =SIMP(statut='f',typ='R',defaut= 0.0E+0),
5438            INST_RENC_FIN   =SIMP(statut='f',typ='R',defaut= 0.0E+0),
5439          ),
5440          COUR_SECO       =FACT(statut='f',min=1,max='**',
5441          fr="Définition du courant de court-circuit avec un intervalle de temps différent de celui de COUR_PRIN",
5442            regles=(UN_PARMI('PHI_CC_2','INTC_CC_2'),),
5443            INTE_CC_2       =SIMP(statut='o',typ='R'),
5444            TAU_CC_2        =SIMP(statut='o',typ='R'),
5445            PHI_CC_2        =SIMP(statut='f',typ='R'),
5446            INTC_CC_2       =SIMP(statut='f',typ='R'),
5447            INTE_RENC_2     =SIMP(statut='f',typ='R'),
5448            TAU_RENC_2      =SIMP(statut='f',typ='R'),
5449            PHI_RENC_2      =SIMP(statut='f',typ='R'),
5450            DIST            =SIMP(statut='f',typ='R',defaut=1.0E+0),
5451          ),
5452          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
5453 )  ;
5454 #& MODIF COMMANDE  DATE 03/10/2001   AUTEUR DURAND C.DURAND
5455 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5456 # ======================================================================
5457 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5458 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5459 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5460 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5461 # (AT YOUR OPTION) ANY LATER VERSION.
5462 #
5463 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5464 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5465 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5466 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5467 #
5468 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5469 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5470 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5471 # ======================================================================
5472 DEFI_FONC_FLUI=OPER(nom="DEFI_FONC_FLUI",op= 142,sd_prod=fonction,
5473                     docu="U4.35.01-c",reentrant='n',
5474          MAILLAGE        =SIMP(statut='o',typ=(maillage) ),
5475          NOEUD_INIT      =SIMP(statut='o',typ=no),
5476          NOEUD_FIN       =SIMP(statut='o',typ=no),
5477          VITE            =FACT(statut='o',min=1,max=1,
5478            VALE            =SIMP(statut='f',typ='R',defaut= 1. ),
5479            PROFIL          =SIMP(statut='o',typ='TXM',into=("UNIFORME","LEONARD") ),
5480            NB_BAV          =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 2 , 3 ) ),
5481          ),
5482          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",
5483                                into=("NON","LIN","LOG") ),
5484          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",
5485                                into=("CONSTANT","LINEAIRE","EXCLU") ),
5486          PROL_GAUCHE     =SIMP(statut='f',typ='TXM' ,defaut="EXCLU",
5487                                into=("CONSTANT","LINEAIRE","EXCLU") ),
5488          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
5489          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5490 )  ;
5491 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
5492 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5493 # ======================================================================
5494 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5495 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5496 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5497 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5498 # (AT YOUR OPTION) ANY LATER VERSION.
5499 #
5500 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5501 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5502 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5503 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5504 #
5505 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5506 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5507 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5508 # ======================================================================
5509 # RESPONSABLE MCOURTOI M.COURTOIS
5510 def defi_fonction_prod(VALE,VALE_PARA,VALE_C,NOEUD_PARA,**args):
5511   if VALE != None  : return fonction
5512   if VALE_C != None  : return fonction_c
5513   if VALE_PARA != None  : return fonction
5514   if NOEUD_PARA != None  : return fonction
5515   raise AsException("type de concept resultat non prevu")
5516
5517 DEFI_FONCTION=OPER(nom="DEFI_FONCTION",op=3,sd_prod=defi_fonction_prod
5518                     ,fr="Définition des valeurs réelles ou complexes d une fonction réelle",
5519                      docu="U4.31.02-g3",reentrant='n',
5520          regles=(UN_PARMI('VALE','VALE_C','VALE_PARA','NOEUD_PARA'),),
5521          NOM_PARA        =SIMP(statut='o',typ='TXM',
5522                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
5523                                      "INST","X","Y","Z","EPSI","META","FREQ","PULS",
5524                                      "AMOR","ABSC","SIGM","HYDR","SECH","PORO","SAT",
5525                                      "PGAZ","PCAP","VITE") ),
5526          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
5527          VALE            =SIMP(statut='f',typ='R',min=2,max='**',
5528                                fr ="Fonction réelle définie par une liste de couples (abscisse,ordonnée)"),
5529          VALE_C          =SIMP(statut='f',typ='R',min=2,max='**',
5530                                fr ="Fonction complexe définie par une liste de couples"),
5531          VALE_PARA       =SIMP(statut='f',typ=listr8,
5532                                fr ="Fonction réelle définie par deux concepts de type listr8" ),
5533          b_vale_para     =BLOC(condition = "VALE_PARA != None",
5534            VALE_FONC       =SIMP(statut='o',typ=listr8 ),
5535          ),
5536          NOEUD_PARA      =SIMP(statut='f',typ=no,max='**',
5537                                fr ="Fonction réelle définie par une liste de noeuds et un maillage"),
5538          b_noeud_para    =BLOC(condition = "NOEUD_PARA != None",
5539            MAILLAGE        =SIMP(statut='o',typ=maillage ),
5540            VALE_Y          =SIMP(statut='o',typ='R',max='**'),
5541          ),
5542
5543          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
5544          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5545          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5546          VERIF           =SIMP(statut='f',typ='TXM',defaut="CROISSANT",into=("CROISSANT","NON") ),
5547          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5548          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5549 )  ;
5550 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
5551 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5552 # ======================================================================
5553 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5554 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5555 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5556 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5557 # (AT YOUR OPTION) ANY LATER VERSION.
5558 #
5559 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5560 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5561 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5562 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5563 #
5564 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5565 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5566 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5567 # ======================================================================
5568 DEFI_FOND_FISS=OPER(nom="DEFI_FOND_FISS",op=55,sd_prod=fond_fiss,docu="U4.82.01-e",reentrant='n',
5569                     fr="Définition de lèvres et d un fond de fissure en 3D",
5570          regles=(UN_PARMI('FOND','FOND_FERME'),
5571                  EXCLUS('FOND_FERME','DTAN_ORIG'),
5572                  EXCLUS('FOND_FERME','DTAN_EXTR'),
5573                       EXCLUS('FOND_FERME','VECT_GRNO_ORIG'),
5574                       EXCLUS('FOND_FERME','VECT_GRNO_EXTR'),
5575                  UN_PARMI('LEVRE_SUP','NORMALE'),
5576                       EXCLUS('LEVRE_INF','NORMALE'),
5577                  ENSEMBLE('DTAN_ORIG','DTAN_EXTR'),
5578                       ENSEMBLE('VECT_GRNO_ORIG','VECT_GRNO_EXTR'),
5579                       EXCLUS('DTAN_ORIG','VECT_GRNO_ORIG'),
5580                       EXCLUS('DTAN_EXTR','VECT_GRNO_EXTR') ,),
5581            MAILLAGE        =SIMP(statut='o',typ=maillage ),
5582            FOND            =FACT(statut='f',min=01,max=01,
5583              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
5584                      EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
5585                           EXCLUS('NOEUD_EXTR','GROUP_NO_EXTR'),),
5586              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5587              NOEUD           =SIMP(statut='f',typ=no,max='**'),
5588              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5589              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5590 #  à mettre à jour le max vaut-il 1
5591              NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
5592              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
5593              NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
5594              GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
5595            ),
5596            FOND_FERME      =FACT(statut='f',min=01,max=01,
5597              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
5598                           EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),),
5599              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5600              NOEUD           =SIMP(statut='f',typ=no,max='**'),
5601              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5602              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5603              NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
5604              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
5605              MAILLE_ORIG     =SIMP(statut='f',typ=ma,max=1),
5606              GROUP_MA_ORIG   =SIMP(statut='f',typ=ma,max=1),
5607            ),
5608            LEVRE_SUP       =FACT(statut='f',min=01,max=01,
5609              regles=(UN_PARMI('GROUP_MA','MAILLE'),),
5610              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5611              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5612            ),
5613            LEVRE_INF       =FACT(statut='f',min=01,max=01,
5614              regles=(UN_PARMI('GROUP_MA','MAILLE', ),),
5615              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5616              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5617            ),
5618            NORMALE         =SIMP(statut='f',typ='R',max='**'),
5619            DTAN_ORIG       =SIMP(statut='f',typ='R',max='**'),
5620            DTAN_EXTR       =SIMP(statut='f',typ='R',max='**'),
5621            VECT_GRNO_ORIG  =SIMP(statut='f',typ=grno,max=2),
5622            VECT_GRNO_EXTR  =SIMP(statut='f',typ=grno,max=2),
5623            INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
5624 )  ;
5625 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
5626 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5627 # ======================================================================
5628 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5629 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5630 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5631 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5632 # (AT YOUR OPTION) ANY LATER VERSION.
5633 #
5634 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5635 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5636 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5637 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5638 #
5639 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5640 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5641 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5642 # ======================================================================
5643 # RESPONSABLE VABHHTS J.PELLET
5644 def defi_group_prod(MAILLAGE,**args):
5645   if AsType(MAILLAGE) == maillage : return maillage
5646   if AsType(MAILLAGE) == squelette : return squelette
5647   raise AsException("type de concept resultat non prevu")
5648
5649 DEFI_GROUP=OPER(nom="DEFI_GROUP",op= 104,sd_prod=defi_group_prod,
5650                 fr="Définition de nouveaux groupes de noeuds et/ou de mailles dans un concept maillage",
5651                 docu="U4.22.01-f1",reentrant='o',
5652          regles=(AU_MOINS_UN('CREA_GROUP_MA','CREA_GROUP_NO'),),
5653          MAILLAGE        =SIMP(statut='o',typ=(maillage,squelette) ),
5654
5655          CREA_GROUP_MA   =FACT(statut='f',min=01,max='**',
5656            regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','INTERSEC','UNION','DIFFE','OPTION'),),
5657 #  quel est le concept attendu deriere NOM
5658            NOM             =SIMP(statut='o',typ=grma),
5659            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5660            GROUP_MA        =SIMP(statut='f',typ=grma),
5661            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5662            INTERSEC        =SIMP(statut='f',typ=grma,max='**'),
5663            UNION           =SIMP(statut='f',typ=grma,max='**'),
5664            DIFFE           =SIMP(statut='f',typ=grma,max='**'),
5665            OPTION          =SIMP(statut='f',typ='TXM',into=("FACE_NORMALE","SPHERE","CYLINDRE","BANDE") ),
5666            b_group_ma      =BLOC(condition = "GROUP_MA != None",
5667              regles=(EXCLUS('POSITION','NUME_INIT'),),
5668              NUME_INIT       =SIMP(statut='f',typ='I',defaut= 1 ),
5669              POSITION        =SIMP(statut='f',typ='TXM',into=("INIT","FIN","MILIEU") ),
5670              b_nume_init   =BLOC(condition = "NUME_INIT != None",
5671                NUME_FIN        =SIMP(statut='f',typ='I' ),
5672              ),
5673            ),
5674            b_face_normale  =BLOC(condition = "OPTION == 'FACE_NORMALE'",
5675              regles=(UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5676              ANGL_NAUT       =SIMP(statut='f',typ='R',max=02),
5677              VECT_NORMALE    =SIMP(statut='f',typ='R',max=03),
5678              ANGL_PREC       =SIMP(statut='f',typ='R',defaut= 0.5 ),
5679              VERI_SIGNE      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
5680            ),
5681            b_sphere        =BLOC(condition = "OPTION == 'SPHERE'",
5682              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),),
5683              POINT           =SIMP(statut='f',typ='R',max=03),
5684              NOEUD_CENTRE    =SIMP(statut='f',typ=no),
5685              RAYON           =SIMP(statut='o',typ='R' ),
5686            ),
5687            b_cylindre      =BLOC(condition = "OPTION == 'CYLINDRE'",
5688              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5689                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5690              POINT           =SIMP(statut='f',typ='R',max=03),
5691              NOEUD_CENTRE    =SIMP(statut='f',typ=no),
5692              RAYON           =SIMP(statut='o',typ='R' ),
5693              ANGL_NAUT       =SIMP(statut='f',typ='R',max=02),
5694              VECT_NORMALE    =SIMP(statut='f',typ='R',max=03),
5695            ),
5696            b_bande         =BLOC(condition = "OPTION == 'BANDE'",
5697              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5698                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5699              POINT           =SIMP(statut='f',typ='R',max=03),
5700              NOEUD_CENTRE    =SIMP(statut='f',typ=no),
5701              DIST            =SIMP(statut='o',typ='R' ),
5702              ANGL_NAUT       =SIMP(statut='f',typ='R',max=02),
5703              VECT_NORMALE    =SIMP(statut='f',typ='R',max=03),
5704            ),
5705          ),
5706          CREA_GROUP_NO   =FACT(statut='f',min=01,max='**',
5707            regles = (
5708          AU_MOINS_UN ('TOUT_GROUP_MA','GROUP_MA','NOEUD',
5709                      'INTERSEC','UNION','DIFFE','GROUP_NO','OPTION'),
5710                    EXCLUS ('TOUT_GROUP_MA','GROUP_MA','NOEUD','INTERSEC','UNION','DIFFE'),),
5711            TOUT_GROUP_MA   =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5712            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5713
5714            NOEUD           =SIMP(statut='f',typ=no,max='**'),
5715            INTERSEC        =SIMP(statut='f',typ=grno,max='**'),
5716            UNION           =SIMP(statut='f',typ=grno,max='**'),
5717            DIFFE           =SIMP(statut='f',typ=grno,max='**'),
5718            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5719            OPTION          =SIMP(statut='f',typ='TXM',into=("ENV_SPHERE","ENV_CYLINDRE","PLAN",
5720                                                             "SEGM_DROI_ORDO","NOEUD_ORDO") ),
5721            b_nom_group_ma  =BLOC(condition = "GROUP_MA != None",
5722              NOM             =SIMP(statut='f',typ=grma,max='**'),
5723            ),
5724            b_crit_noeud    = BLOC(condition = "GROUP_MA != None",
5725              CRIT_NOEUD    = SIMP(statut='f',typ='TXM',defaut="TOUS",
5726                             into=("TOUS","SOMMET","MILIEU","CENTRE"),),),
5727            b_nom =BLOC(condition = "GROUP_MA == None and TOUT_GROUP_MA == None" ,
5728              NOM             =SIMP(statut='o',typ=geom),
5729            ),
5730            b_group_no      =BLOC(condition = "GROUP_NO != None",
5731              regles=(EXCLUS('POSITION','NUME_INIT'),),
5732              NUME_INIT       =SIMP(statut='f',typ='I',defaut= 1 ),
5733              POSITION        =SIMP(statut='f',typ='TXM',into=("INIT","FIN","MILIEU") ),
5734              b_nume_init     =BLOC(condition = "NUME_INIT != None",
5735                NUME_FIN        =SIMP(statut='f',typ='I' ),
5736              ),
5737            ),
5738            b_env_sphere    =BLOC(condition = "OPTION == 'ENV_SPHERE'",
5739              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),),
5740              POINT           =SIMP(statut='f',typ='R',max=03),
5741              NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=01),
5742              RAYON           =SIMP(statut='o',typ='R' ),
5743              PRECISION       =SIMP(statut='f',typ='R' ),
5744              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5745            ),
5746            b_env_cylindre  =BLOC(condition = "OPTION == 'ENV_CYLINDRE'",
5747              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5748                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5749              POINT           =SIMP(statut='f',typ='R',max=03),
5750              NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=01),
5751              RAYON           =SIMP(statut='o',typ='R' ),
5752              ANGL_NAUT       =SIMP(statut='f',typ='R',max=03),
5753              VECT_NORMALE    =SIMP(statut='f',typ='R',max=03),
5754              PRECISION       =SIMP(statut='f',typ='R' ),
5755              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5756            ),
5757            b_env_plan      =BLOC(condition = "OPTION == 'PLAN'",
5758              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5759                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5760              POINT           =SIMP(statut='f',typ='R',max=03),
5761              NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=01),
5762              ANGL_NAUT       =SIMP(statut='f',typ='R',max=03),
5763              VECT_NORMALE    =SIMP(statut='f',typ='R',max=03),
5764              PRECISION       =SIMP(statut='f',typ='R' ),
5765              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5766            ),
5767            b_segm_droi_ordo=BLOC(condition = "OPTION == 'SEGM_DROI_ORDO'",
5768              regles=(UN_PARMI('NOEUD_ORIG','GROUP_NO_ORIG'),
5769                      UN_PARMI('NOEUD_EXTR','GROUP_NO_EXTR'),),
5770              NOEUD_ORIG      =SIMP(statut='f',typ=no),
5771              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno),
5772              NOEUD_EXTR      =SIMP(statut='f',typ=no),
5773              GROUP_NO_EXTR   =SIMP(statut='f',typ=grno),
5774              PRECISION       =SIMP(statut='f',typ='R' ),
5775              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5776            ),
5777            b_noeud_ordo    =BLOC(condition = "OPTION == 'NOEUD_ORDO'",
5778              regles=(UN_PARMI('NOEUD_ORIG','GROUP_NO_ORIG'),
5779                      UN_PARMI('NOEUD_EXTR','GROUP_NO_EXTR'),),
5780              NOEUD_ORIG      =SIMP(statut='f',typ=no),
5781              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno),
5782              NOEUD_EXTR      =SIMP(statut='f',typ=no),
5783              GROUP_NO_EXTR   =SIMP(statut='f',typ=grno),
5784              PRECISION       =SIMP(statut='f',typ='R' ),
5785              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5786            ),
5787          ),
5788          INFO            =SIMP(statut='f',typ='I',into=( 1 , 2 ) ),
5789 )  ;
5790 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
5791 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5792 # ======================================================================
5793 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5794 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5795 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5796 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5797 # (AT YOUR OPTION) ANY LATER VERSION.
5798 #
5799 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5800 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5801 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5802 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5803 #
5804 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5805 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5806 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5807 # ======================================================================
5808 DEFI_INTE_SPEC=OPER(nom="DEFI_INTE_SPEC",op= 115,sd_prod=tabl_intsp,
5809                     docu="U4.36.02-f2",reentrant='n',
5810
5811          DIMENSION       =SIMP(statut='f',typ='I',defaut= 1 ),
5812
5813          PAR_FONCTION    =FACT(statut='f',min=1,max='**',
5814            NUME_ORDRE_I    =SIMP(statut='o',typ='I' ),
5815            NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
5816            FONCTION        =SIMP(statut='o',typ=fonction_c ),
5817          ),
5818          KANAI_TAJIMI    =FACT(statut='f',min=1,max='**',
5819            regles=(EXCLUS('VALE_R','VALE_C'),),
5820            NUME_ORDRE_I    =SIMP(statut='o',typ='I' ),
5821            NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
5822            FREQ_MIN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5823            FREQ_MAX        =SIMP(statut='f',typ='R',defaut= 100. ),
5824            PAS             =SIMP(statut='f',typ='R',defaut= 1. ),
5825            AMOR_REDUIT     =SIMP(statut='f',typ='R',defaut= 0.6 ),
5826            FREQ_MOY        =SIMP(statut='f',typ='R',defaut= 5. ),
5827            VALE_R          =SIMP(statut='f',typ='R' ),
5828            VALE_C          =SIMP(statut='f',typ='C' ),
5829            INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
5830            PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5831            PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5832          ),
5833          CONSTANT        =FACT(statut='f',min=1,max='**',
5834            regles=(EXCLUS('VALE_R','VALE_C'),),
5835            NUME_ORDRE_I    =SIMP(statut='o',typ='I' ),
5836            NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
5837            FREQ_MIN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5838            FREQ_MAX        =SIMP(statut='f',typ='R',defaut= 100. ),
5839            PAS             =SIMP(statut='f',typ='R',defaut= 1. ),
5840            VALE_R          =SIMP(statut='f',typ='R' ),
5841            VALE_C          =SIMP(statut='f',typ='C' ),
5842            INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
5843            PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5844            PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5845          ),
5846          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5847          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5848 )  ;
5849 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
5850 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5851 # ======================================================================
5852 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5853 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5854 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5855 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5856 # (AT YOUR OPTION) ANY LATER VERSION.
5857 #
5858 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5859 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5860 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5861 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5862 #
5863 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5864 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5865 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5866 # ======================================================================
5867 DEFI_INTERF_DYNA=OPER(nom="DEFI_INTERF_DYNA",op=  98,sd_prod=interf_dyna_clas,
5868                       docu="U4.64.01-e",reentrant='n',
5869          NUME_DDL        =SIMP(statut='o',typ=nume_ddl ),
5870          INTERFACE       =FACT(statut='o',min=01,max='**',
5871            regles=(ENSEMBLE('NOM','TYPE'),
5872 #  erreur doc U sur la condition qui suit
5873                    UN_PARMI('NOEUD','GROUP_NO'),),
5874            NOM             =SIMP(statut='f',typ='TXM' ),
5875            TYPE            =SIMP(statut='f',typ='TXM',into=("MNEAL","CRAIGB","CB_HARMO","AUCUN") ),
5876            NOEUD           =SIMP(statut='f',typ=no,max='**'),
5877            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5878            DDL_ACTIF       =SIMP(statut='f',typ='TXM',max='**'),
5879            MASQUE          =SIMP(statut='f',typ='TXM',max='**'),
5880          ),
5881          FREQ            =SIMP(statut='f',typ='R',defaut= 1.),
5882          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5883 )  ;
5884 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
5885 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5886 # ======================================================================
5887 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5888 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5889 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5890 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5891 # (AT YOUR OPTION) ANY LATER VERSION.
5892 #
5893 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5894 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5895 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5896 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5897 #
5898 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5899 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5900 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5901 # ======================================================================
5902 # RESPONSABLE VABHHTS J.PELLET
5903 DEFI_LIST_ENTI=OPER(nom="DEFI_LIST_ENTI",op=22,sd_prod=listis,
5904                     fr="Définition d une suite croissante d entiers",
5905                     docu="U4.34.02-f",reentrant='n',
5906          regles=(UN_PARMI('VALE','DEBUT'),
5907                  EXCLUS('VALE','INTERVALLE'),),
5908          VALE            =SIMP(statut='f',typ='I',max='**'),
5909          DEBUT           =SIMP(statut='f',typ='I'),
5910          INTERVALLE      =FACT(statut='f',min=01,max='**',
5911            regles=(UN_PARMI('NOMBRE','PAS'),),
5912            JUSQU_A         =SIMP(statut='o',typ='I'),
5913            NOMBRE          =SIMP(statut='f',typ='I',val_min=1,),
5914            PAS             =SIMP(statut='f',typ='I',val_min=1,),
5915          ),
5916          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
5917          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5918 )  ;
5919 #& MODIF COMMANDE  DATE 06/03/2002   AUTEUR MCOURTOI M.COURTOIS
5920 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5921 # ======================================================================
5922 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5923 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5924 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5925 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5926 # (AT YOUR OPTION) ANY LATER VERSION.
5927 #
5928 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5929 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5930 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5931 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5932 #
5933 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5934 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5935 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5936 # ======================================================================
5937 # RESPONSABLE VABHHTS J.PELLET
5938 DEFI_LIST_REEL=OPER(nom="DEFI_LIST_REEL",op=24,sd_prod=listr8,
5939                     fr="Définition d une suite croissante de réels",
5940                     docu="U4.34.01-g1",reentrant='n',
5941          regles=(UN_PARMI('VALE','DEBUT',),
5942                  EXCLUS('VALE','INTERVALLE'),
5943                  ENSEMBLE('DEBUT','INTERVALLE')),
5944          VALE            =SIMP(statut='f',typ='R',max='**'),
5945          DEBUT           =SIMP(statut='f',typ='R'),
5946          INTERVALLE      =FACT(statut='f',min=01,max='**',
5947            regles=(UN_PARMI('NOMBRE','PAS'),),
5948            JUSQU_A         =SIMP(statut='o',typ='R'),
5949            NOMBRE          =SIMP(statut='f',typ='I'),
5950            PAS             =SIMP(statut='f',typ='R'),
5951          ),
5952          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
5953          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5954 )  ;
5955 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
5956 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5957 # ======================================================================
5958 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5959 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5960 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5961 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5962 # (AT YOUR OPTION) ANY LATER VERSION.
5963 #
5964 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5965 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5966 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5967 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5968 #
5969 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5970 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5971 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5972 # ======================================================================
5973 # RESPONSABLE VABHHTS J.PELLET
5974 DEFI_MAILLAGE=OPER(nom="DEFI_MAILLAGE",op=  88,sd_prod=maillage,
5975                    fr="Définition d un nouveau maillage à partir de macro éléments",
5976                    docu="U4.23.01-e",reentrant='n',
5977          DEFI_MAILLE     =FACT(statut='o',min=01,max='**',
5978            MACR_ELEM_STAT  =SIMP(statut='o',typ=macr_elem_stat,max='**' ),
5979            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5980            TRAN            =SIMP(statut='f',typ='R',max=03),
5981            ANGL_NAUT       =SIMP(statut='f',typ='R',max=03),
5982            b_angl_naut     =BLOC(condition = "ANGL_NAUT != None",
5983              CENTRE          =SIMP(statut='f',typ='R',max=03),
5984            ),
5985          ),
5986          RECO_GLOBAL     =FACT(statut='f',min=01,max='**',
5987            regles=(UN_PARMI('TOUT','MAILLE'),),
5988            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5989            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5990            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5991            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
5992          ),
5993          RECO_MAILLE     =FACT(statut='f',min=01,max='**',
5994            MAILLE          =SIMP(statut='o',typ=ma,max='**'),
5995            GROUP_NO        =SIMP(statut='o',typ=grno,max='**'),
5996            OPTION          =SIMP(statut='f',typ='TXM',defaut="GEOMETRIQUE",into=("GEOMETRIQUE","NOEUD_A_NOEUD","INVERSE") ),
5997            geometrique     =BLOC(condition = "OPTION == 'GEOMETRIQUE'",
5998              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5999              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
6000            ),
6001          ),
6002          DEFI_NOEUD      =FACT(statut='f',min=01,max='**',
6003            regles=(UN_PARMI('TOUT','NOEUD_INIT'),),
6004            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",),
6005                                  fr="Renommage de tous les noeuds" ),
6006            NOEUD_INIT      =SIMP(statut='f',typ=no,
6007                                  fr="Renommage d un seul noeud"),
6008            b_tout          =BLOC(condition = "TOUT != None",
6009              PREFIXE         =SIMP(statut='f',typ='TXM' ),
6010              INDEX           =SIMP(statut='o',typ='I',max='**'),
6011            ),
6012            b_noeud_init    =BLOC(condition = "NOEUD_INIT != None",
6013              MAILLE          =SIMP(statut='o',typ=ma),
6014              NOEUD_FIN       =SIMP(statut='o',typ=no),
6015            ),
6016          ),
6017          DEFI_GROUP_NO   =FACT(statut='f',min=01,max='**',
6018            regles=(UN_PARMI('TOUT','MAILLE'),
6019                 AU_MOINS_UN('INDEX','GROUP_NO_FIN'),
6020                    ENSEMBLE('GROUP_NO_INIT','GROUP_NO_FIN'),),
6021 #  la regle ancien catalogue AU_MOINS_UN__: ( INDEX , GROUP_NO_FIN ) incoherente avec doc U
6022            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",),
6023                                  fr="Création de plusieurs groupes de noeuds" ),
6024            MAILLE          =SIMP(statut='f',typ=ma,
6025                                  fr="Création de plusieurs groupes de noeuds"),
6026            GROUP_NO_INIT   =SIMP(statut='f',typ=grno,
6027                                  fr="Création d un seul groupe de noeuds"),
6028            PREFIXE         =SIMP(statut='f',typ='TXM' ),
6029            INDEX           =SIMP(statut='f',typ='I',max='**'),
6030            GROUP_NO_FIN    =SIMP(statut='f',typ=grno),
6031          ),
6032 )  ;
6033 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
6034 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6035 # ======================================================================
6036 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6037 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6038 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6039 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6040 # (AT YOUR OPTION) ANY LATER VERSION.
6041 #
6042 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6043 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6044 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6045 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6046 #
6047 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6048 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6049 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6050 # ======================================================================
6051 DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater,
6052                    fr="Définition des paramètres décrivant le comportement d un matériau",
6053                    docu="U4.43.01-g4",reentrant='n',
6054        regles=(EXCLUS('ELAS','ELAS_FO','ELAS_FLUI','ELAS_ISTR','ELAS_ISTR_FO','ELAS_ORTH',
6055                       'ELAS_ORTH_FO','ELAS_COQUE','ELAS_COQUE_FO',
6056                       'SURF_ETAT_SATU','CAM_CLAY_THM','SURF_ETAT_NSAT'),
6057                EXCLUS('THER','THER_FO','THER_ORTH','THER_NL'),
6058                EXCLUS('ECRO_LINE','ECRO_LINE_FO'),
6059                EXCLUS('TAHERI','TAHERI_FO'),
6060                EXCLUS('ROUSSELIER','ROUSSELIER_FO'),
6061                PRESENT_PRESENT('ROUSSELIER','TRACTION'),
6062                PRESENT_PRESENT('ROUSSELIER_FO','TRACTION'),
6063                EXCLUS('CIN1_CHAB','CIN1_CHAB_FO'),
6064                EXCLUS('CIN2_CHAB','CIN2_CHAB_FO'),
6065                EXCLUS('VISCOCHAB','VISCOCHAB_FO'),
6066                EXCLUS('POLY_CFC','POLY_CFC_FO'),
6067                EXCLUS('LEMAITRE','LEMAITRE_FO','ZIRC_CYRA2','ZIRC_EPRI'),
6068                EXCLUS('OHNO','OHNO_FO'),
6069                EXCLUS('LMARC','LMARC_FO'),
6070                EXCLUS('VMIS_POUTRE','VMIS_POUTRE_FO'),
6071                EXCLUS('VENDOCHAB','VENDOCHAB_FO'),
6072                PRESENT_PRESENT('BPEL_BETON','ELAS'),
6073                PRESENT_PRESENT('BPEL_ACIER','ELAS'),
6074                EXCLUS('RCCM','RCCM_FO'),
6075                EXCLUS('WEIBULL','WEIBULL_FO'),
6076                PRESENT_PRESENT('CAM_CLAY','ELAS'),
6077                PRESENT_PRESENT('LAIGLE','ELAS'),
6078                PRESENT_PRESENT('MAZARS','ELAS'),
6079                PRESENT_PRESENT('GRANGER_FD','ELAS_FO'),
6080                ),
6081
6082 #
6083 # comportement élastique
6084 #
6085            ELAS            =FACT(statut='f',min=0,max=1,
6086              E               =SIMP(statut='o',typ='R',val_min=0.E+0),
6087              NU              =SIMP(statut='o',typ='R',val_min=-1.E+0,val_max=0.5E+0),
6088              RHO             =SIMP(statut='f',typ='R'),
6089              ALPHA           =SIMP(statut='f',typ='R'),
6090              AMOR_ALPHA      =SIMP(statut='f',typ='R'),
6091              AMOR_BETA       =SIMP(statut='f',typ='R'),
6092              AMOR_HYST       =SIMP(statut='f',typ='R'),
6093            ),
6094            ELAS_FO         =FACT(statut='f',min=0,max=1,
6095              regles=(PRESENT_PRESENT('ALPHA','TEMP_DEF_ALPHA'),),
6096              E               =SIMP(statut='o',typ=fonction),
6097              NU              =SIMP(statut='o',typ=fonction),
6098              RHO             =SIMP(statut='f',typ='R'),
6099              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
6100              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.),
6101              ALPHA           =SIMP(statut='f',typ=fonction),
6102              AMOR_ALPHA      =SIMP(statut='f',typ=fonction),
6103              AMOR_BETA       =SIMP(statut='f',typ=fonction),
6104              AMOR_HYST       =SIMP(statut='f',typ=fonction),
6105              K_DESSIC        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6106              B_ENDOGE        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6107              FONC_DESORP     =SIMP(statut='f',typ=fonction),
6108              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
6109              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="INST",into=("TEMP","INST",) ),
6110              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
6111              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
6112            ),
6113            ELAS_FLUI       =FACT(statut='f',min=0,max=1,
6114              E               =SIMP(statut='o',typ='R'),
6115              NU              =SIMP(statut='o',typ='R'),
6116              RHO             =SIMP(statut='o',typ='R'),
6117              PROF_RHO_F_INT  =SIMP(statut='o',typ=fonction),
6118              PROF_RHO_F_EXT  =SIMP(statut='o',typ=fonction),
6119              COEF_MASS_AJOU  =SIMP(statut='o',typ=fonction),
6120              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="ABSC",into=("ABSC",) ),
6121            ),
6122            ELAS_ISTR       =FACT(statut='f',min=0,max=1,
6123              E_L             =SIMP(statut='o',typ='R'),
6124              E_N             =SIMP(statut='o',typ='R'),
6125              NU_LT           =SIMP(statut='o',typ='R'),
6126              NU_LN           =SIMP(statut='o',typ='R'),
6127              G_LN            =SIMP(statut='o',typ='R'),
6128              RHO             =SIMP(statut='f',typ='R'),
6129              ALPHA_L         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6130              ALPHA_N         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6131            ),
6132            ELAS_ISTR_FO    =FACT(statut='f',min=0,max=1,
6133              regles=(
6134                       PRESENT_PRESENT('ALPHA_L','TEMP_DEF_ALPHA'),
6135                       PRESENT_PRESENT('ALPHA_N','TEMP_DEF_ALPHA'),
6136                     ),
6137              E_L             =SIMP(statut='o',typ=fonction),
6138              E_N             =SIMP(statut='o',typ=fonction),
6139              NU_LT           =SIMP(statut='o',typ=fonction),
6140              NU_LN           =SIMP(statut='o',typ=fonction),
6141              G_LN            =SIMP(statut='o',typ=fonction),
6142              RHO             =SIMP(statut='f',typ='R'),
6143              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
6144              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.),
6145              ALPHA_L         =SIMP(statut='f',typ=fonction),
6146              ALPHA_N         =SIMP(statut='f',typ=fonction),
6147              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST")),
6148            ),
6149            ELAS_ORTH       =FACT(statut='f',min=0,max=1,
6150              E_L             =SIMP(statut='o',typ='R'),
6151              E_T             =SIMP(statut='o',typ='R'),
6152              E_N             =SIMP(statut='f',typ='R'),
6153              NU_LT           =SIMP(statut='o',typ='R'),
6154              NU_LN           =SIMP(statut='f',typ='R'),
6155              NU_TN           =SIMP(statut='f',typ='R'),
6156              G_LT            =SIMP(statut='o',typ='R'),
6157              G_LN            =SIMP(statut='f',typ='R'),
6158              G_TN            =SIMP(statut='f',typ='R'),
6159              RHO             =SIMP(statut='f',typ='R'),
6160              ALPHA_L         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6161              ALPHA_T         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6162              ALPHA_N         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6163              XT              =SIMP(statut='f',typ='R',defaut= 1. ),
6164              XC              =SIMP(statut='f',typ='R',defaut= 1. ),
6165              YT              =SIMP(statut='f',typ='R',defaut= 1. ),
6166              YC              =SIMP(statut='f',typ='R',defaut= 1. ),
6167              S_LT            =SIMP(statut='f',typ='R',defaut= 1. ),
6168            ),
6169            ELAS_ORTH_FO    =FACT(statut='f',min=0,max=1,
6170              regles=(
6171                       PRESENT_PRESENT('ALPHA_L','TEMP_DEF_ALPHA'),
6172                       PRESENT_PRESENT('ALPHA_N','TEMP_DEF_ALPHA'),
6173                       PRESENT_PRESENT('ALPHA_T','TEMP_DEF_ALPHA'),
6174                     ),
6175              E_L             =SIMP(statut='o',typ=fonction),
6176              E_T             =SIMP(statut='o',typ=fonction),
6177              E_N             =SIMP(statut='o',typ=fonction),
6178              NU_LT           =SIMP(statut='o',typ=fonction),
6179              NU_LN           =SIMP(statut='o',typ=fonction),
6180              NU_TN           =SIMP(statut='o',typ=fonction),
6181              G_LT            =SIMP(statut='o',typ=fonction),
6182              G_LN            =SIMP(statut='o',typ=fonction),
6183              G_TN            =SIMP(statut='o',typ=fonction),
6184              RHO             =SIMP(statut='f',typ='R'),
6185              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
6186              PRECISION       =SIMP(statut='f',typ='R',defaut= 1. ),
6187              ALPHA_L         =SIMP(statut='f',typ=fonction),
6188              ALPHA_T         =SIMP(statut='f',typ=fonction),
6189              ALPHA_N         =SIMP(statut='f',typ=fonction),
6190              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
6191            ),
6192            ELAS_THM        =FACT(statut='f',min=0,max=1,
6193              RHO_S           =SIMP(statut='o',typ='R'),
6194              UN_SUR_KS       =SIMP(statut='o',typ='R'),
6195              E               =SIMP(statut='f',typ='R'),
6196              KB              =SIMP(statut='f',typ='R'),
6197              D_KB_T          =SIMP(statut='f',typ='R'),
6198              ALPHA_S         =SIMP(statut='f',typ='R'),
6199              ALPHA_D         =SIMP(statut='f',typ='R'),
6200            ),
6201            SURF_ETAT_SATU  =FACT(statut='f',min=0,max=1,
6202              E_CHAR          =SIMP(statut='o',typ='R'),
6203              E_DECHAR        =SIMP(statut='o',typ='R'),
6204              XN              =SIMP(statut='f',typ='R'),
6205              RF              =SIMP(statut='f',typ='R'),
6206              EV_KB           =SIMP(statut='f',typ='R'),
6207              EV_XM           =SIMP(statut='f',typ='R'),
6208              D_E_T           =SIMP(statut='f',typ='R'),
6209              ALPHA0          =SIMP(statut='f',typ='R'),
6210              ALPHA1          =SIMP(statut='f',typ='R'),
6211              ALPHA2          =SIMP(statut='f',typ='R'),
6212              ALPHA3          =SIMP(statut='f',typ='R'),
6213              ALPHA_S         =SIMP(statut='f',typ='R'),
6214              ANG_FRT         =SIMP(statut='o',typ='R'),
6215              COHE            =SIMP(statut='o',typ='R'),
6216              RESI_TRAC       =SIMP(statut='o',typ='R'),
6217            ),
6218            CAM_CLAY_THM    =FACT(statut='f',min=0,max=1,
6219              NU              =SIMP(statut='f',typ='R'),
6220              LAMBDA          =SIMP(statut='o',typ='R'),
6221              KAPA            =SIMP(statut='o',typ='R'),
6222              M               =SIMP(statut='f',typ='R'),
6223              PRES_CRIT       =SIMP(statut='f',typ='R'),
6224              GAMA            =SIMP(statut='o',typ='R'),
6225              A0_PC           =SIMP(statut='o',typ='R'),
6226              A1_PC           =SIMP(statut='f',typ='R'),
6227              A2_PC           =SIMP(statut='f',typ='R'),
6228              ALPHA0_PC       =SIMP(statut='f',typ='R'),
6229              ALPHA1_PC       =SIMP(statut='f',typ='R'),
6230              ALPHA2_PC       =SIMP(statut='f',typ='R'),
6231              ALPHA3_PC       =SIMP(statut='f',typ='R'),
6232              ALPHA_S         =SIMP(statut='f',typ='R'),
6233                          ),
6234            SURF_ETAT_NSAT  =FACT(statut='f',min=0,max=1,
6235              E_CHAR          =SIMP(statut='o',typ='R'),
6236              E_DECHAR        =SIMP(statut='o',typ='R'),
6237              XN              =SIMP(statut='f',typ='R'),
6238              RF              =SIMP(statut='f',typ='R'),
6239              EV_KB           =SIMP(statut='f',typ='R'),
6240              EV_XM           =SIMP(statut='f',typ='R'),
6241              EV_A            =SIMP(statut='f',typ='R'),
6242              EV_B            =SIMP(statut='f',typ='R'),
6243              EV_CT           =SIMP(statut='f',typ='R'),
6244              EV_SIGB         =SIMP(statut='f',typ='R'),
6245              D_E_T           =SIMP(statut='f',typ='R'),
6246              D_E_SUCC        =SIMP(statut='f',typ='R'),
6247              ANG_FRT         =SIMP(statut='o',typ='R'),
6248              COHE            =SIMP(statut='o',typ='R'),
6249              D_COEH_SUCC     =SIMP(statut='f',typ='R'),
6250              ANG_FRT_ULT     =SIMP(statut='f',typ='R'),
6251              SUCC_ULTM       =SIMP(statut='f',typ='R'),
6252              RESI_TRAC       =SIMP(statut='f',typ='R'),
6253              A_SURF_SATU     =SIMP(statut='f',typ='R'),
6254              B_SURF_SATU     =SIMP(statut='f',typ='R'),
6255              C_SURF_SATU     =SIMP(statut='f',typ='R'),
6256              D_SURF_SATU     =SIMP(statut='f',typ='R'),
6257            ),
6258            ELAS_COQUE      =FACT(statut='f',min=0,max=1,
6259              regles=(EXCLUS('MEMB_L','M_LLLL',),
6260                      PRESENT_PRESENT('MEMB_L','MEMB_LT', 'MEMB_T','MEMB_G_LT','FLEX_L','FLEX_LT',
6261                                      'FLEX_T','FLEX_G_LT','CISA_L','CISA_T',),
6262                      PRESENT_PRESENT('M_LLLL','M_LLTT','M_LLLT','M_TTTT','M_TTLT','M_LTLT','F_LLLL',
6263                                      'F_LLTT','F_LLLT','F_TTTT','F_TTLT','F_LTLT','MF_LLLL',
6264                                      'MF_LLTT','MF_LLLT','MF_TTTT','MF_TTLT','MF_LTLT','MC_LLLZ',
6265                                      'MC_LLTZ','MC_TTLZ','MC_TTTZ','MC_LTLZ','MC_LTTZ','FC_LLLZ',
6266                                      'FC_LLTZ','FC_TTLZ','FC_TTTZ','FC_LTLZ','FC_LTTZ','C_LZLZ',
6267                                      'C_LZTZ','C_TZTZ'),),
6268              MEMB_L          =SIMP(statut='f',typ='R'),
6269              MEMB_LT         =SIMP(statut='f',typ='R'),
6270              MEMB_T          =SIMP(statut='f',typ='R'),
6271              MEMB_G_LT       =SIMP(statut='f',typ='R'),
6272              FLEX_L          =SIMP(statut='f',typ='R'),
6273              FLEX_LT         =SIMP(statut='f',typ='R'),
6274              FLEX_T          =SIMP(statut='f',typ='R'),
6275              FLEX_G_LT       =SIMP(statut='f',typ='R'),
6276              CISA_L          =SIMP(statut='f',typ='R'),
6277              CISA_T          =SIMP(statut='f',typ='R'),
6278              M_LLLL          =SIMP(statut='f',typ='R'),
6279              M_LLTT          =SIMP(statut='f',typ='R'),
6280              M_LLLT          =SIMP(statut='f',typ='R'),
6281              M_TTTT          =SIMP(statut='f',typ='R'),
6282              M_TTLT          =SIMP(statut='f',typ='R'),
6283              M_LTLT          =SIMP(statut='f',typ='R'),
6284              F_LLLL          =SIMP(statut='f',typ='R'),
6285              F_LLTT          =SIMP(statut='f',typ='R'),
6286              F_LLLT          =SIMP(statut='f',typ='R'),
6287              F_TTTT          =SIMP(statut='f',typ='R'),
6288              F_TTLT          =SIMP(statut='f',typ='R'),
6289              F_LTLT          =SIMP(statut='f',typ='R'),
6290              MF_LLLL         =SIMP(statut='f',typ='R'),
6291              MF_LLTT         =SIMP(statut='f',typ='R'),
6292              MF_LLLT         =SIMP(statut='f',typ='R'),
6293              MF_TTTT         =SIMP(statut='f',typ='R'),
6294              MF_TTLT         =SIMP(statut='f',typ='R'),
6295              MF_LTLT         =SIMP(statut='f',typ='R'),
6296              MC_LLLZ         =SIMP(statut='f',typ='R'),
6297              MC_LLTZ         =SIMP(statut='f',typ='R'),
6298              MC_TTLZ         =SIMP(statut='f',typ='R'),
6299              MC_TTTZ         =SIMP(statut='f',typ='R'),
6300              MC_LTLZ         =SIMP(statut='f',typ='R'),
6301              MC_LTTZ         =SIMP(statut='f',typ='R'),
6302              FC_LLLZ         =SIMP(statut='f',typ='R'),
6303              FC_LLTZ         =SIMP(statut='f',typ='R'),
6304              FC_TTLZ         =SIMP(statut='f',typ='R'),
6305              FC_TTTZ         =SIMP(statut='f',typ='R'),
6306              FC_LTLZ         =SIMP(statut='f',typ='R'),
6307              FC_LTTZ         =SIMP(statut='f',typ='R'),
6308              C_LZLZ          =SIMP(statut='f',typ='R'),
6309              C_LZTZ          =SIMP(statut='f',typ='R'),
6310              C_TZTZ          =SIMP(statut='f',typ='R'),
6311              RHO             =SIMP(statut='f',typ='R'),
6312              ALPHA           =SIMP(statut='f',typ='R'),
6313            ),
6314            ELAS_COQUE_FO   =FACT(statut='f',min=0,max=1,
6315              regles=(EXCLUS('MEMB_L','M_LLLL',),
6316                      PRESENT_PRESENT('MEMB_L','MEMB_LT','MEMB_T','MEMB_G_LT','FLEX_L','FLEX_LT',
6317                                      'FLEX_T','FLEX_G_LT','CISA_L','CISA_T',),
6318                      PRESENT_PRESENT('M_LLLL','M_LLTT','M_LLLT','M_TTTT','M_TTLT','M_LTLT','F_LLLL',
6319                                      'F_LLTT','F_LLLT','F_TTTT','F_TTLT','F_LTLT','MF_LLLL','MF_LLTT',
6320                                      'MF_LLLT','MF_TTTT','MF_TTLT','MF_LTLT','MC_LLLZ','MC_LLTZ',
6321                                      'MC_TTLZ','MC_TTTZ','MC_LTLZ','MC_LTTZ','FC_LLLZ','FC_LLTZ',
6322                                      'FC_TTLZ','FC_TTTZ','FC_LTLZ','FC_LTTZ','C_LZLZ','C_LZTZ','C_TZTZ'),),
6323              MEMB_L          =SIMP(statut='f',typ=fonction),
6324              MEMB_LT         =SIMP(statut='f',typ=fonction),
6325              MEMB_T          =SIMP(statut='f',typ=fonction),
6326              MEMB_G_LT       =SIMP(statut='f',typ=fonction),
6327              FLEX_L          =SIMP(statut='f',typ=fonction),
6328              FLEX_LT         =SIMP(statut='f',typ=fonction),
6329              FLEX_T          =SIMP(statut='f',typ=fonction),
6330              FLEX_G_LT       =SIMP(statut='f',typ=fonction),
6331              CISA_L          =SIMP(statut='f',typ=fonction),
6332              CISA_T          =SIMP(statut='f',typ=fonction),
6333              M_LLLL          =SIMP(statut='f',typ=fonction),
6334              M_LLTT          =SIMP(statut='f',typ=fonction),
6335              M_LLLT          =SIMP(statut='f',typ=fonction),
6336              M_TTTT          =SIMP(statut='f',typ=fonction),
6337              M_TTLT          =SIMP(statut='f',typ=fonction),
6338              M_LTLT          =SIMP(statut='f',typ=fonction),
6339              F_LLLL          =SIMP(statut='f',typ=fonction),
6340              F_LLTT          =SIMP(statut='f',typ=fonction),
6341              F_LLLT          =SIMP(statut='f',typ=fonction),
6342              F_TTTT          =SIMP(statut='f',typ=fonction),
6343              F_TTLT          =SIMP(statut='f',typ=fonction),
6344              F_LTLT          =SIMP(statut='f',typ=fonction),
6345              MF_LLLL         =SIMP(statut='f',typ=fonction),
6346              MF_LLTT         =SIMP(statut='f',typ=fonction),
6347              MF_LLLT         =SIMP(statut='f',typ=fonction),
6348              MF_TTTT         =SIMP(statut='f',typ=fonction),
6349              MF_TTLT         =SIMP(statut='f',typ=fonction),
6350              MF_LTLT         =SIMP(statut='f',typ=fonction),
6351              MC_LLLZ         =SIMP(statut='f',typ=fonction),
6352              MC_LLTZ         =SIMP(statut='f',typ=fonction),
6353              MC_TTLZ         =SIMP(statut='f',typ=fonction),
6354              MC_TTTZ         =SIMP(statut='f',typ=fonction),
6355              MC_LTLZ         =SIMP(statut='f',typ=fonction),
6356              MC_LTTZ         =SIMP(statut='f',typ=fonction),
6357              FC_LLLZ         =SIMP(statut='f',typ=fonction),
6358              FC_LLTZ         =SIMP(statut='f',typ=fonction),
6359              FC_TTLZ         =SIMP(statut='f',typ=fonction),
6360              FC_TTTZ         =SIMP(statut='f',typ=fonction),
6361              FC_LTLZ         =SIMP(statut='f',typ=fonction),
6362              FC_LTTZ         =SIMP(statut='f',typ=fonction),
6363              C_LZLZ          =SIMP(statut='f',typ=fonction),
6364              C_LZTZ          =SIMP(statut='f',typ=fonction),
6365              C_TZTZ          =SIMP(statut='f',typ=fonction),
6366              RHO             =SIMP(statut='f',typ='R'),
6367              ALPHA           =SIMP(statut='f',typ=fonction),
6368              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST") ),
6369            ),
6370            APPUI_ELAS      =FACT(statut='f',min=0,max=1,
6371              E_N             =SIMP(statut='o',typ='R'),
6372              E_TAN           =SIMP(statut='f',typ='R',defaut= 0.E+0),
6373            ),
6374            CABLE           =FACT(statut='f',min=0,max=1,
6375              E               =SIMP(statut='o',typ='R'),
6376              EC_SUR_E        =SIMP(statut='f',typ='R',defaut= 1.E-4 ),
6377              RHO             =SIMP(statut='f',typ='R'),
6378              ALPHA           =SIMP(statut='f',typ='R'),
6379              AMOR_ALPHA      =SIMP(statut='f',typ='R'),
6380              AMOR_BETA       =SIMP(statut='f',typ='R'),
6381            ),
6382 #
6383 # comportement mécanique non linéaire
6384 #
6385            TRACTION        =FACT(statut='f',min=0,max=1,
6386              SIGM            =SIMP(statut='o',typ=fonction),
6387              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",) ),
6388              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6389              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
6390              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
6391            ),
6392            ECRO_LINE       =FACT(statut='f',min=0,max=1,
6393              D_SIGM_EPSI     =SIMP(statut='o',typ='R'),
6394              SY              =SIMP(statut='o',typ='R'),
6395            ),
6396            ECRO_LINE_FO    =FACT(statut='f',min=0,max=1,
6397              D_SIGM_EPSI     =SIMP(statut='o',typ=fonction),
6398              SY              =SIMP(statut='o',typ=fonction),
6399              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6400            ),
6401            PRAGER          =FACT(statut='f',min=0,max=1,
6402              C               =SIMP(statut='o',typ='R'),
6403            ),
6404            PRAGER_FO       =FACT(statut='f',min=0,max=1,
6405              C               =SIMP(statut='o',typ=fonction),
6406              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6407            ),
6408            ECRO_FLEJOU     =FACT(statut='f',min=0,max=1,
6409              EP              =SIMP(statut='o',typ='R'),
6410              SY              =SIMP(statut='o',typ='R'),
6411              SU              =SIMP(statut='o',typ='R'),
6412              PUISS           =SIMP(statut='o',typ='R'),
6413            ),
6414            TAHERI          =FACT(statut='f',min=0,max=1,
6415              R_0             =SIMP(statut='o',typ='R'),
6416              ALPHA           =SIMP(statut='o',typ='R'),
6417              M               =SIMP(statut='o',typ='R'),
6418              A               =SIMP(statut='o',typ='R'),
6419              B               =SIMP(statut='o',typ='R'),
6420              C1              =SIMP(statut='o',typ='R'),
6421              C_INF           =SIMP(statut='o',typ='R'),
6422              S               =SIMP(statut='o',typ='R'),
6423            ),
6424            TAHERI_FO       =FACT(statut='f',min=0,max=1,
6425              R_0             =SIMP(statut='o',typ=fonction),
6426              ALPHA           =SIMP(statut='o',typ=fonction),
6427              M               =SIMP(statut='o',typ=fonction),
6428              A               =SIMP(statut='o',typ=fonction),
6429              B               =SIMP(statut='o',typ=fonction),
6430              C1              =SIMP(statut='o',typ=fonction),
6431              C_INF           =SIMP(statut='o',typ=fonction),
6432              S               =SIMP(statut='o',typ=fonction),
6433              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6434            ),
6435            ROUSSELIER      =FACT(statut='f',min=0,max=1,
6436              D               =SIMP(statut='o',typ='R'),
6437              SIGM_1          =SIMP(statut='o',typ='R'),
6438              PORO_INIT       =SIMP(statut='o',typ='R'),
6439              PORO_CRIT       =SIMP(statut='f',typ='R',defaut= 1. ),
6440              PORO_ACCE       =SIMP(statut='f',typ='R',defaut= 1. ),
6441              PORO_LIMI       =SIMP(statut='f',typ='R',defaut= 0.999 ),
6442              D_SIGM_EPSI_NORM=SIMP(statut='f',typ='R',defaut= 1. ),
6443              AN              =SIMP(statut='f',typ='R',defaut= 0. ),
6444            ),
6445            ROUSSELIER_FO   =FACT(statut='f',min=0,max=1,
6446              D               =SIMP(statut='o',typ=fonction),
6447              SIGM_1          =SIMP(statut='o',typ=fonction),
6448              PORO_INIT       =SIMP(statut='o',typ=fonction),
6449              PORO_CRIT       =SIMP(statut='f',typ='R',defaut= 1. ),
6450              PORO_ACCE       =SIMP(statut='f',typ='R',defaut= 1. ),
6451              PORO_LIMI       =SIMP(statut='f',typ='R',defaut= 0.999 ),
6452              D_SIGM_EPSI_NORM=SIMP(statut='f',typ='R',defaut= 1. ),
6453              AN              =SIMP(statut='f',typ='R',defaut= 0. ),
6454              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6455            ),
6456            ROUSS_VISC      =FACT(statut='f',min=0,max=1,
6457              SIGM_0          =SIMP(statut='o',typ='R'),
6458              EPSI_0          =SIMP(statut='o',typ='R'),
6459              M               =SIMP(statut='o',typ='R'),
6460            ),
6461            CHABOCHE        =FACT(statut='f',min=0,max=1,
6462              R_I             =SIMP(statut='o',typ='R'),
6463              R_0             =SIMP(statut='o',typ='R'),
6464              B               =SIMP(statut='o',typ='R'),
6465              K               =SIMP(statut='o',typ='R'),
6466              W               =SIMP(statut='o',typ='R'),
6467              A1              =SIMP(statut='o',typ='R'),
6468              A2              =SIMP(statut='o',typ='R'),
6469              C1              =SIMP(statut='o',typ='R'),
6470              C2              =SIMP(statut='o',typ='R'),
6471            ),
6472            CIN1_CHAB  =FACT(statut='f',min=0,max=1,
6473              R_0             =SIMP(statut='o',typ='R'),
6474              R_I             =SIMP(statut='f',typ='R'),
6475              B               =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6476              C_I             =SIMP(statut='o',typ='R'),
6477              K               =SIMP(statut='f',typ='R',defaut= 1.0E+0),
6478              W               =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6479              G_0             =SIMP(statut='o',typ='R'),
6480              A_I             =SIMP(statut='f',typ='R',defaut= 1.0E+0),
6481            ),
6482            CIN1_CHAB_FO  =FACT(statut='f',min=0,max=1,
6483              R_0             =SIMP(statut='o',typ=fonction),
6484              R_I             =SIMP(statut='o',typ=fonction),
6485              B               =SIMP(statut='o',typ=fonction),
6486              C_I             =SIMP(statut='o',typ=fonction),
6487              K               =SIMP(statut='o',typ=fonction),
6488              W               =SIMP(statut='o',typ=fonction),
6489              G_0             =SIMP(statut='o',typ=fonction),
6490              A_I             =SIMP(statut='o',typ=fonction),
6491              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
6492            ),
6493            CIN2_CHAB  =FACT(statut='f',min=0,max=1,
6494              R_0             =SIMP(statut='o',typ='R'),
6495              R_I             =SIMP(statut='f',typ='R'),
6496              B               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6497              C1_I            =SIMP(statut='o',typ='R'),
6498              C2_I            =SIMP(statut='o',typ='R'),
6499              K               =SIMP(statut='f',typ='R',defaut= 1.),
6500              W               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6501              G1_0            =SIMP(statut='o',typ='R'),
6502              G2_0            =SIMP(statut='o',typ='R'),
6503              A_I             =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
6504            ),
6505            CIN2_CHAB_FO  =FACT(statut='f',min=0,max=1,
6506              R_0             =SIMP(statut='o',typ=fonction),
6507              R_I             =SIMP(statut='o',typ=fonction),
6508              B               =SIMP(statut='o',typ=fonction),
6509              C1_I            =SIMP(statut='o',typ=fonction),
6510              C2_I            =SIMP(statut='o',typ=fonction),
6511              K               =SIMP(statut='o',typ=fonction),
6512              W               =SIMP(statut='o',typ=fonction),
6513              G1_0            =SIMP(statut='o',typ=fonction),
6514              G2_0            =SIMP(statut='o',typ=fonction),
6515              A_I             =SIMP(statut='o',typ=fonction),
6516              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6517            ),
6518            VISCOCHAB       =FACT(statut='f',min=0,max=1,
6519              K_0             =SIMP(statut='o',typ='R'),
6520              A_K             =SIMP(statut='o',typ='R'),
6521              A_R             =SIMP(statut='o',typ='R'),
6522              K               =SIMP(statut='o',typ='R'),
6523              N               =SIMP(statut='o',typ='R'),
6524              ALP             =SIMP(statut='o',typ='R'),
6525              B               =SIMP(statut='o',typ='R'),
6526              M_R             =SIMP(statut='o',typ='R'),
6527              G_R             =SIMP(statut='o',typ='R'),
6528              MU              =SIMP(statut='o',typ='R'),
6529              Q_M             =SIMP(statut='o',typ='R'),
6530              Q_0             =SIMP(statut='o',typ='R'),
6531              QR_0            =SIMP(statut='o',typ='R'),
6532              ETA             =SIMP(statut='o',typ='R'),
6533              C1              =SIMP(statut='o',typ='R'),
6534              M_1             =SIMP(statut='o',typ='R'),
6535              D1              =SIMP(statut='o',typ='R'),
6536              G_X1            =SIMP(statut='o',typ='R'),
6537              G1_0            =SIMP(statut='o',typ='R'),
6538              C2              =SIMP(statut='o',typ='R'),
6539              M_2             =SIMP(statut='o',typ='R'),
6540              D2              =SIMP(statut='o',typ='R'),
6541              G_X2            =SIMP(statut='o',typ='R'),
6542              G2_0            =SIMP(statut='o',typ='R'),
6543              A_I             =SIMP(statut='o',typ='R'),
6544            ),
6545            VISCOCHAB_FO    =FACT(statut='f',min=0,max=1,
6546              K_0             =SIMP(statut='o',typ=fonction),
6547              A_K             =SIMP(statut='o',typ=fonction),
6548              A_R             =SIMP(statut='o',typ=fonction),
6549              K               =SIMP(statut='o',typ=fonction),
6550              N               =SIMP(statut='o',typ=fonction),
6551              ALP             =SIMP(statut='o',typ=fonction),
6552              B               =SIMP(statut='o',typ=fonction),
6553              M_R             =SIMP(statut='o',typ=fonction),
6554              G_R             =SIMP(statut='o',typ=fonction),
6555              MU              =SIMP(statut='o',typ=fonction),
6556              Q_M             =SIMP(statut='o',typ=fonction),
6557              Q_0             =SIMP(statut='o',typ=fonction),
6558              QR_0            =SIMP(statut='o',typ=fonction),
6559              ETA             =SIMP(statut='o',typ=fonction),
6560              C1              =SIMP(statut='o',typ=fonction),
6561              M_1             =SIMP(statut='o',typ=fonction),
6562              D1              =SIMP(statut='o',typ=fonction),
6563              G_X1            =SIMP(statut='o',typ=fonction),
6564              G1_0            =SIMP(statut='o',typ=fonction),
6565              C2              =SIMP(statut='o',typ=fonction),
6566              M_2             =SIMP(statut='o',typ=fonction),
6567              D2              =SIMP(statut='o',typ=fonction),
6568              G_X2            =SIMP(statut='o',typ=fonction),
6569              G2_0            =SIMP(statut='o',typ=fonction),
6570              A_I             =SIMP(statut='o',typ=fonction),
6571              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6572            ),
6573            POLY_CFC        =FACT(statut='f',min=0,max=1,
6574              TEXTURE         =SIMP(statut='o',typ=(tabl_texture) ),
6575              DL              =SIMP(statut='f',typ='R'),
6576              DA              =SIMP(statut='f',typ='R'),
6577              N               =SIMP(statut='o',typ='R'),
6578              K               =SIMP(statut='o',typ='R'),
6579              TAU_0           =SIMP(statut='o',typ='R'),
6580              Q1              =SIMP(statut='o',typ='R'),
6581              B1              =SIMP(statut='o',typ='R'),
6582              HL              =SIMP(statut='o',typ='R'),
6583              Q2              =SIMP(statut='o',typ='R'),
6584              B2              =SIMP(statut='o',typ='R'),
6585              C1              =SIMP(statut='o',typ='R'),
6586              D1              =SIMP(statut='o',typ='R'),
6587              C2              =SIMP(statut='o',typ='R'),
6588            ),
6589            POLY_CFC_FO     =FACT(statut='f',min=0,max=1,
6590              TEXTURE         =SIMP(statut='o',typ=(tabl_texture) ),
6591              DL              =SIMP(statut='o',typ=fonction),
6592              DA              =SIMP(statut='o',typ=fonction),
6593              N               =SIMP(statut='o',typ=fonction),
6594              K               =SIMP(statut='o',typ=fonction),
6595              TAU_0           =SIMP(statut='o',typ=fonction),
6596              Q1              =SIMP(statut='o',typ=fonction),
6597              B1              =SIMP(statut='o',typ=fonction),
6598              HL              =SIMP(statut='o',typ=fonction),
6599              Q2              =SIMP(statut='o',typ=fonction),
6600              B2              =SIMP(statut='o',typ=fonction),
6601              C1              =SIMP(statut='o',typ=fonction),
6602              D1              =SIMP(statut='o',typ=fonction),
6603              C2              =SIMP(statut='o',typ=fonction),
6604              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6605            ),
6606            LEMAITRE        =FACT(statut='f',min=0,max=1,
6607              N               =SIMP(statut='o',typ='R'),
6608              UN_SUR_K        =SIMP(statut='o',typ='R'),
6609              UN_SUR_M        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6610            ),
6611            ZIRC_CYRA2      =FACT(statut='f',min=0,max=1,
6612              EPSI_FAB        =SIMP(statut='o',typ=fonction),
6613              TEMP_RECUIT     =SIMP(statut='o',typ=fonction),
6614              FLUX_PHI        =SIMP(statut='o',typ=fonction),
6615              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
6616            ),
6617            ZIRC_EPRI       =FACT(statut='f',min=0,max=1,
6618              FLUX_PHI        =SIMP(statut='o',typ='R'),
6619              R_P             =SIMP(statut='o',typ='R'),
6620              THETA_MAX       =SIMP(statut='o',typ='R'),
6621            ),
6622            LEMAITRE_FO     =FACT(statut='f',min=0,max=1,
6623              N               =SIMP(statut='o',typ=fonction),
6624              UN_SUR_K        =SIMP(statut='o',typ=fonction),
6625              UN_SUR_M        =SIMP(statut='f',typ=fonction),
6626              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6627            ),
6628            GRAN_IRRA       =FACT(statut='f',min=0,max=1,
6629              A               =SIMP(statut='f',typ='R',defaut= 0.E+0),
6630              B               =SIMP(statut='f',typ='R',defaut= 0.E+0),
6631              S               =SIMP(statut='f',typ='R',defaut= 0.E+0),
6632            ),
6633            FLU_IRRA       =FACT(statut='f',min=0,max=1,
6634              QSR_K           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6635              BETA            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6636              PHI_ZERO        =SIMP(statut='f',typ='R',defaut= 1.E+20),
6637              L               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6638            ),
6639            OHNO            =FACT(statut='f',min=0,max=1,
6640              R_I             =SIMP(statut='o',typ='R'),
6641              R_0             =SIMP(statut='o',typ='R'),
6642              B               =SIMP(statut='o',typ='R'),
6643              PHI             =SIMP(statut='o',typ='R'),
6644              A1              =SIMP(statut='o',typ='R'),
6645              A2              =SIMP(statut='o',typ='R'),
6646              A3              =SIMP(statut='o',typ='R'),
6647              A4              =SIMP(statut='o',typ='R'),
6648              A5              =SIMP(statut='o',typ='R'),
6649              GAMMA1          =SIMP(statut='o',typ='R'),
6650              GAMMA2          =SIMP(statut='o',typ='R'),
6651              GAMMA3          =SIMP(statut='o',typ='R'),
6652              GAMMA4          =SIMP(statut='o',typ='R'),
6653              GAMMA5          =SIMP(statut='o',typ='R'),
6654              M1              =SIMP(statut='o',typ='R'),
6655              M2              =SIMP(statut='o',typ='R'),
6656              M3              =SIMP(statut='o',typ='R'),
6657              M4              =SIMP(statut='o',typ='R'),
6658              M5              =SIMP(statut='o',typ='R'),
6659                            ),
6660            OHNO_FO         =FACT(statut='f',min=0,max=1,
6661              R_I             =SIMP(statut='o',typ=fonction),
6662              R_0             =SIMP(statut='o',typ=fonction),
6663              B               =SIMP(statut='o',typ=fonction),
6664              PHI             =SIMP(statut='o',typ=fonction),
6665              A1              =SIMP(statut='o',typ=fonction),
6666              A2              =SIMP(statut='o',typ=fonction),
6667              A3              =SIMP(statut='o',typ=fonction),
6668              A4              =SIMP(statut='o',typ=fonction),
6669              A5              =SIMP(statut='o',typ=fonction),
6670              GAMMA1          =SIMP(statut='o',typ=fonction),
6671              GAMMA2          =SIMP(statut='o',typ=fonction),
6672              GAMMA3          =SIMP(statut='o',typ=fonction),
6673              GAMMA4          =SIMP(statut='o',typ=fonction),
6674              GAMMA5          =SIMP(statut='o',typ=fonction),
6675              M1              =SIMP(statut='o',typ=fonction),
6676              M2              =SIMP(statut='o',typ=fonction),
6677              M3              =SIMP(statut='o',typ=fonction),
6678              M4              =SIMP(statut='o',typ=fonction),
6679              M5              =SIMP(statut='o',typ=fonction),
6680              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6681            ),
6682            LMARC           =FACT(statut='f',min=0,max=1,
6683              DE_0            =SIMP(statut='o',typ='R'),
6684              R_0             =SIMP(statut='o',typ='R'),
6685              N               =SIMP(statut='o',typ='R'),
6686              K               =SIMP(statut='o',typ='R'),
6687              Y_I             =SIMP(statut='o',typ='R'),
6688              Y_0             =SIMP(statut='o',typ='R'),
6689              B               =SIMP(statut='o',typ='R'),
6690              A_0             =SIMP(statut='o',typ='R'),
6691              RM              =SIMP(statut='o',typ='R'),
6692              M               =SIMP(statut='o',typ='R'),
6693              P               =SIMP(statut='o',typ='R'),
6694              P1              =SIMP(statut='o',typ='R'),
6695              P2              =SIMP(statut='o',typ='R'),
6696              M11             =SIMP(statut='o',typ='R'),
6697              M22             =SIMP(statut='o',typ='R'),
6698              M33             =SIMP(statut='o',typ='R'),
6699              M66             =SIMP(statut='o',typ='R'),
6700              N11             =SIMP(statut='o',typ='R'),
6701              N22             =SIMP(statut='o',typ='R'),
6702              N33             =SIMP(statut='o',typ='R'),
6703              N66             =SIMP(statut='o',typ='R'),
6704              Q11             =SIMP(statut='o',typ='R'),
6705              Q22             =SIMP(statut='o',typ='R'),
6706              Q33             =SIMP(statut='o',typ='R'),
6707              Q66             =SIMP(statut='o',typ='R'),
6708              R11             =SIMP(statut='o',typ='R'),
6709              R22             =SIMP(statut='o',typ='R'),
6710              R33             =SIMP(statut='o',typ='R'),
6711              R66             =SIMP(statut='o',typ='R'),
6712            ),
6713            LMARC_FO        =FACT(statut='f',min=0,max=1,
6714              DE_0            =SIMP(statut='o',typ=fonction),
6715              R_0             =SIMP(statut='o',typ=fonction),
6716              N               =SIMP(statut='o',typ=fonction),
6717              K               =SIMP(statut='o',typ=fonction),
6718              Y_I             =SIMP(statut='o',typ=fonction),
6719              Y_0             =SIMP(statut='o',typ=fonction),
6720              B               =SIMP(statut='o',typ=fonction),
6721              A_0             =SIMP(statut='o',typ=fonction),
6722              RM              =SIMP(statut='o',typ=fonction),
6723              M               =SIMP(statut='o',typ=fonction),
6724              P               =SIMP(statut='o',typ=fonction),
6725              P1              =SIMP(statut='o',typ=fonction),
6726              P2              =SIMP(statut='o',typ=fonction),
6727              M11             =SIMP(statut='o',typ=fonction),
6728              M22             =SIMP(statut='o',typ=fonction),
6729              M33             =SIMP(statut='o',typ=fonction),
6730              M66             =SIMP(statut='o',typ=fonction),
6731              N11             =SIMP(statut='o',typ=fonction),
6732              N22             =SIMP(statut='o',typ=fonction),
6733              N33             =SIMP(statut='o',typ=fonction),
6734              N66             =SIMP(statut='o',typ=fonction),
6735              Q11             =SIMP(statut='o',typ=fonction),
6736              Q22             =SIMP(statut='o',typ=fonction),
6737              Q33             =SIMP(statut='o',typ=fonction),
6738              Q66             =SIMP(statut='o',typ=fonction),
6739              R11             =SIMP(statut='o',typ=fonction),
6740              R22             =SIMP(statut='o',typ=fonction),
6741              R33             =SIMP(statut='o',typ=fonction),
6742              R66             =SIMP(statut='o',typ=fonction),
6743              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6744            ),
6745            VMIS_POUTRE     =FACT(statut='f',min=0,max=1,
6746              NP              =SIMP(statut='o',typ='R'),
6747              MEY             =SIMP(statut='o',typ='R'),
6748              MPY             =SIMP(statut='o',typ='R'),
6749              CAY             =SIMP(statut='o',typ='R'),
6750              CBY             =SIMP(statut='o',typ='R'),
6751              MEZ             =SIMP(statut='o',typ='R'),
6752              MPZ             =SIMP(statut='o',typ='R'),
6753              CAZ             =SIMP(statut='o',typ='R'),
6754              CBZ             =SIMP(statut='o',typ='R'),
6755              MPX             =SIMP(statut='o',typ='R'),
6756            ),
6757            VMIS_POUTRE_FO  =FACT(statut='f',min=0,max=1,
6758              NP              =SIMP(statut='o',typ=fonction),
6759              MEY             =SIMP(statut='o',typ=fonction),
6760              MPY             =SIMP(statut='o',typ=fonction),
6761              CAY             =SIMP(statut='o',typ=fonction),
6762              CBY             =SIMP(statut='o',typ=fonction),
6763              MEZ             =SIMP(statut='o',typ=fonction),
6764              MPZ             =SIMP(statut='o',typ=fonction),
6765              CAZ             =SIMP(statut='o',typ=fonction),
6766              CBZ             =SIMP(statut='o',typ=fonction),
6767              MPX             =SIMP(statut='o',typ=fonction),
6768              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6769            ),
6770            ARME            =FACT(statut='f',min=0,max=1,
6771              KYE             =SIMP(statut='o',typ='R'),
6772              DLE             =SIMP(statut='o',typ='R'),
6773              KYP             =SIMP(statut='o',typ='R'),
6774              DLP             =SIMP(statut='o',typ='R'),
6775              KYG             =SIMP(statut='o',typ='R'),
6776            ),
6777            ASSE_CORN       =FACT(statut='f',min=0,max=1,
6778              NU_1            =SIMP(statut='o',typ='R'),
6779              MU_1            =SIMP(statut='o',typ='R'),
6780              DXU_1           =SIMP(statut='o',typ='R'),
6781              DRYU_1          =SIMP(statut='o',typ='R'),
6782              C_1             =SIMP(statut='o',typ='R'),
6783              NU_2            =SIMP(statut='o',typ='R'),
6784              MU_2            =SIMP(statut='o',typ='R'),
6785              DXU_2           =SIMP(statut='o',typ='R'),
6786              DRYU_2          =SIMP(statut='o',typ='R'),
6787              C_2             =SIMP(statut='o',typ='R'),
6788              KY              =SIMP(statut='o',typ='R'),
6789              KZ              =SIMP(statut='o',typ='R'),
6790              KRX             =SIMP(statut='o',typ='R'),
6791              KRZ             =SIMP(statut='o',typ='R'),
6792            ),
6793            DIS_CONTACT     =FACT(statut='f',min=0,max=1,
6794              RIGI_NOR        =SIMP(statut='f',typ='R' ),
6795              DIST_1          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6796              DIST_2          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6797              RIGI_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6798              AMOR_NOR        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6799              AMOR_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6800              COULOMB         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6801              JEU             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6802              KT_ULTM         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6803              EFFO_N_INIT     =SIMP(statut='f',typ='R'),
6804              regles=(EXCLUS('RIGI_N_FO','RIGI_N_IRRA',),),
6805              RIGI_N_IRRA     =SIMP(statut='f',typ=fonction),
6806              RIGI_N_FO       =SIMP(statut='f',typ=fonction),
6807              RELA_MZ         =SIMP(statut='f',typ=fonction),
6808              C_PRAGER_MZ     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6809              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="DRZ",into=("DRZ",) ),
6810              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
6811            ),
6812            NADAI_B         =FACT(statut='f',min=0,max=1,
6813              F_C             =SIMP(statut='o',typ='R'),
6814              F_T             =SIMP(statut='o',typ='R'),
6815              CRIT_E_C        =SIMP(statut='o',typ='R'),
6816              EPSP_P_C        =SIMP(statut='o',typ='R'),
6817              EPSP_R_C        =SIMP(statut='o',typ='R'),
6818              EPSI_R_T        =SIMP(statut='o',typ='R'),
6819              FAC_T_C         =SIMP(statut='o',typ='R'),
6820            ),
6821            BETON_DOUBLE_DP =FACT(statut='f',min=0,max=1,
6822              F_C             =SIMP(statut='o',typ=fonction),
6823              F_T             =SIMP(statut='o',typ=fonction),
6824              COEF_BIAX       =SIMP(statut='o',typ=fonction),
6825              ENER_COMP_RUPT  =SIMP(statut='o',typ=fonction),
6826              ENER_TRAC_RUPT  =SIMP(statut='o',typ=fonction),
6827              COEF_ELAS_COMP  =SIMP(statut='o',typ='R'),
6828              LONG_CARA       =SIMP(statut='f',typ='R'),
6829              ECRO_COMP_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","PARABOLE") ),
6830              ECRO_TRAC_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","EXPONENT") ),
6831              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
6832              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="INST",into=("TEMP","INST",) ),
6833              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
6834              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
6835            ),
6836            LABORD_1D=FACT(statut='f',min=0 ,max=1,
6837              Y01             =SIMP(statut='o',typ='R'),
6838              Y02             =SIMP(statut='o',typ='R'),
6839              A1              =SIMP(statut='o',typ='R'),
6840              A2              =SIMP(statut='o',typ='R'),
6841              B1              =SIMP(statut='o',typ='R'),
6842              B2              =SIMP(statut='o',typ='R'),
6843              BETA1           =SIMP(statut='o',typ='R'),
6844              BETA2           =SIMP(statut='o',typ='R'),
6845              SIGF            =SIMP(statut='o',typ='R'),
6846            ),
6847          MAZARS=FACT(statut='f',min=0 ,max=1,
6848              EPSD0           =SIMP(statut='o',typ='R'),
6849              BETA            =SIMP(statut='o',typ='R'),
6850              AC              =SIMP(statut='o',typ='R'),
6851              BC              =SIMP(statut='o',typ='R'),
6852              AT              =SIMP(statut='o',typ='R'),
6853              BT              =SIMP(statut='o',typ='R'),
6854            ),
6855            VENDOCHAB       =FACT(statut='f',min=0,max=1,
6856              S_VP            =SIMP(statut='o',typ='R'),
6857              SEDVP1          =SIMP(statut='o',typ='R'),
6858              SEDVP2          =SIMP(statut='o',typ='R'),
6859              N_VP            =SIMP(statut='o',typ='R'),
6860              M_VP            =SIMP(statut='o',typ='R'),
6861              K_VP            =SIMP(statut='o',typ='R'),
6862              R_D             =SIMP(statut='o',typ='R'),
6863              A_D             =SIMP(statut='o',typ='R'),
6864              K_D             =SIMP(statut='o',typ='R'),
6865            ),
6866            VENDOCHAB_FO    =FACT(statut='f',min=0,max=1,
6867              S_VP            =SIMP(statut='o',typ=fonction),
6868              SEDVP1          =SIMP(statut='o',typ=fonction),
6869              SEDVP2          =SIMP(statut='o',typ=fonction),
6870              N_VP            =SIMP(statut='o',typ=fonction),
6871              M_VP            =SIMP(statut='o',typ=fonction),
6872              K_VP            =SIMP(statut='o',typ=fonction),
6873              R_D             =SIMP(statut='o',typ=fonction),
6874              A_D             =SIMP(statut='o',typ=fonction),
6875              K_D             =SIMP(statut='o',typ=fonction),
6876              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6877              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="X",into=("X",) ),
6878            ),
6879            PINTO_MENEGOTTO =FACT(statut='f',min=0,max=1,
6880              SY              =SIMP(statut='o',typ='R'),
6881              EPSI_ULTM       =SIMP(statut='o',typ='R'),
6882              SIGM_ULTM       =SIMP(statut='o',typ='R'),
6883              ELAN            =SIMP(statut='f',typ='R',defaut= 4. ),
6884              EPSP_HARD       =SIMP(statut='o',typ='R'),
6885              R_PM            =SIMP(statut='f',typ='R',defaut= 20. ),
6886              EP_SUR_E        =SIMP(statut='f',typ='R'),
6887              A1_PM           =SIMP(statut='f',typ='R',defaut= 18.5 ),
6888              A2_PM           =SIMP(statut='f',typ='R',defaut= 0.15 ),
6889              A6_PM           =SIMP(statut='f',typ='R',defaut= 620. ),
6890              C_PM            =SIMP(statut='f',typ='R',defaut= 0.5 ),
6891              A_PM            =SIMP(statut='f',typ='R',defaut= 6.0E-3 ),
6892            ),
6893            BPEL_BETON      =FACT(statut='f',min=0,max=1,
6894              PERT_FLUA       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6895              PERT_RETR       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6896            ),
6897            BPEL_ACIER      =FACT(statut='f',min=0,max=1,
6898              RELAX_1000      =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6899              MU0_RELAX       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6900              SY              =SIMP(statut='o',typ='R'),
6901              FROT_COURB      =SIMP(statut='o',typ='R'),
6902              FROT_LINE       =SIMP(statut='o',typ='R'),
6903            ),
6904            CAM_CLAY      =FACT(statut='f',min=0,max=1,
6905              PORO            =SIMP(statut='o',typ='R'),
6906              LAMBDA          =SIMP(statut='o',typ='R'),
6907              KAPA            =SIMP(statut='o',typ='R'),
6908              M               =SIMP(statut='o',typ='R'),
6909              PRES_CRIT       =SIMP(statut='o',typ='R'),
6910              PA              =SIMP(statut='o',typ='R'),
6911            ),
6912            CJS             =FACT(statut='f',min=0,max=1,
6913              regles=(ENSEMBLE('B_CJS','C_CJS','MU_CJS','PCO',),
6914                      ENSEMBLE('N_CJS','KP','RC',),
6915                      PRESENT_ABSENT('A_CJS','B_CJS',),
6916                      PRESENT_PRESENT('A_CJS','N_CJS',),
6917                      PRESENT_PRESENT('B_CJS','N_CJS', ),),
6918              BETA_CJS        =SIMP(statut='o',typ='R'),
6919              RM              =SIMP(statut='o',typ='R'),
6920              N_CJS           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6921              KP              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6922              RC              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6923              A_CJS           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6924              B_CJS           =SIMP(statut='f',typ='R',defaut= 1.0E+25 ),
6925              C_CJS           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6926              GAMMA_CJS       =SIMP(statut='o',typ='R'),
6927              MU_CJS          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6928              PCO             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6929              PA              =SIMP(statut='o',typ='R'),
6930              Q_INIT          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6931              R_INIT          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6932            ),
6933            ECRO_ASYM_LINE  =FACT(statut='f',min=0,max=1,
6934              DC_SIGM_EPSI    =SIMP(statut='o',typ='R'),
6935              SY_C            =SIMP(statut='o',typ='R'),
6936              DT_SIGM_EPSI    =SIMP(statut='o',typ='R'),
6937              SY_T            =SIMP(statut='o',typ='R'),
6938            ),
6939            GRANGER_FP      =FACT(statut='f',min=0,max=1,
6940              J1              =SIMP(statut='f',typ='R'),
6941              J2              =SIMP(statut='f',typ='R'),
6942              J3              =SIMP(statut='f',typ='R'),
6943              J4              =SIMP(statut='f',typ='R'),
6944              J5              =SIMP(statut='f',typ='R'),
6945              J6              =SIMP(statut='f',typ='R'),
6946              J7              =SIMP(statut='f',typ='R'),
6947              J8              =SIMP(statut='f',typ='R'),
6948              TAUX_1          =SIMP(statut='f',typ='R'),
6949              TAUX_2          =SIMP(statut='f',typ='R'),
6950              TAUX_3          =SIMP(statut='f',typ='R'),
6951              TAUX_4          =SIMP(statut='f',typ='R'),
6952              TAUX_5          =SIMP(statut='f',typ='R'),
6953              TAUX_6          =SIMP(statut='f',typ='R'),
6954              TAUX_7          =SIMP(statut='f',typ='R'),
6955              TAUX_8          =SIMP(statut='f',typ='R'),
6956              FONC_DESORP     =SIMP(statut='f',typ=fonction),
6957              QSR_K           =SIMP(statut='f',typ='R'),
6958              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
6959            ),
6960            V_GRANGER_FP    =FACT(statut='f',min=0,max=1,
6961              QSR_VEIL        =SIMP(statut='f',typ='R'),
6962              FONC_V          =SIMP(statut='f',typ=fonction),
6963              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
6964            ),
6965            GRANGER_FD      =FACT(statut='f',min=0,max=1,
6966              LAM_VISC      =SIMP(statut='o',typ='R'),
6967            ),
6968
6969 #
6970 # comportement thermique
6971 #
6972            THER_NL         =FACT(statut='f',min=0,max=1,
6973              regles=(UN_PARMI('BETA','RHO_CP', ),),
6974              LAMBDA          =SIMP(statut='o',typ=fonction),
6975              BETA            =SIMP(statut='f',typ=fonction),
6976              RHO_CP          =SIMP(statut='f',typ=fonction),
6977              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6978            ),
6979            THER_HYDR       =FACT(statut='f',min=0,max=1,
6980              LAMBDA          =SIMP(statut='o',typ=fonction),
6981              BETA            =SIMP(statut='f',typ=fonction),
6982              AFFINITE        =SIMP(statut='o',typ=fonction),
6983              CHALHYDR        =SIMP(statut='o',typ='R'),
6984              QSR_K           =SIMP(statut='o',typ='R'),
6985              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("HYDR",) ),
6986              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
6987            ),
6988            THER            =FACT(statut='f',min=0,max=1,
6989              LAMBDA          =SIMP(statut='o',typ='R'),
6990              RHO_CP          =SIMP(statut='f',typ='R'),
6991            ),
6992            THER_FO         =FACT(statut='f',min=0,max=1,
6993              LAMBDA          =SIMP(statut='o',typ=fonction),
6994              RHO_CP          =SIMP(statut='f',typ=fonction),
6995              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
6996            ),
6997            THER_ORTH       =FACT(statut='f',min=0,max=1,
6998              LAMBDA_L        =SIMP(statut='o',typ='R'),
6999              LAMBDA_T        =SIMP(statut='o',typ='R'),
7000              LAMBDA_N        =SIMP(statut='f',typ='R'),
7001              RHO_CP          =SIMP(statut='f',typ='R'),
7002            ),
7003            THER_COQUE      =FACT(statut='f',min=0,max=1,
7004              COND_LMM        =SIMP(statut='o',typ='R'),
7005              COND_TMM        =SIMP(statut='o',typ='R'),
7006              COND_LMP        =SIMP(statut='o',typ='R'),
7007              COND_TMP        =SIMP(statut='o',typ='R'),
7008              COND_LPP        =SIMP(statut='o',typ='R'),
7009              COND_TPP        =SIMP(statut='o',typ='R'),
7010              COND_LSI        =SIMP(statut='o',typ='R'),
7011              COND_TSI        =SIMP(statut='o',typ='R'),
7012              COND_NMM        =SIMP(statut='o',typ='R'),
7013              COND_NMP        =SIMP(statut='o',typ='R'),
7014              COND_NPP        =SIMP(statut='o',typ='R'),
7015              COND_NSI        =SIMP(statut='o',typ='R'),
7016              CMAS_MM         =SIMP(statut='f',typ='R'),
7017              CMAS_MP         =SIMP(statut='f',typ='R'),
7018              CMAS_PP         =SIMP(statut='f',typ='R'),
7019              CMAS_SI         =SIMP(statut='f',typ='R'),
7020            ),
7021            THER_COQUE_FO   =FACT(statut='f',min=0,max=1,
7022              COND_LMM        =SIMP(statut='o',typ=fonction),
7023              COND_TMM        =SIMP(statut='o',typ=fonction),
7024              COND_LMP        =SIMP(statut='o',typ=fonction),
7025              COND_TMP        =SIMP(statut='o',typ=fonction),
7026              COND_LPP        =SIMP(statut='o',typ=fonction),
7027              COND_TPP        =SIMP(statut='o',typ=fonction),
7028              COND_LSI        =SIMP(statut='o',typ=fonction),
7029              COND_TSI        =SIMP(statut='o',typ=fonction),
7030              COND_NMM        =SIMP(statut='o',typ=fonction),
7031              COND_NMP        =SIMP(statut='o',typ=fonction),
7032              COND_NPP        =SIMP(statut='o',typ=fonction),
7033              COND_NSI        =SIMP(statut='o',typ=fonction),
7034              CMAS_MM         =SIMP(statut='f',typ=fonction),
7035              CMAS_MP         =SIMP(statut='f',typ=fonction),
7036              CMAS_PP         =SIMP(statut='f',typ=fonction),
7037              CMAS_SI         =SIMP(statut='f',typ=fonction),
7038            ),
7039            SECH_GRANGER    =FACT(statut='f',min=0,max=1,
7040              A               =SIMP(statut='o',typ='R'),
7041              B               =SIMP(statut='o',typ='R'),
7042              QSR_K           =SIMP(statut='o',typ='R'),
7043              TEMP_0_C        =SIMP(statut='o',typ='R'),
7044            ),
7045            SECH_MENSI      =FACT(statut='f',min=0,max=1,
7046              A               =SIMP(statut='o',typ='R'),
7047              B               =SIMP(statut='o',typ='R'),
7048            ),
7049            SECH_BAZANT     =FACT(statut='f',min=0,max=1,
7050              D1              =SIMP(statut='o',typ='R'),
7051              ALPHA_BAZANT    =SIMP(statut='o',typ='R'),
7052              N               =SIMP(statut='o',typ='R'),
7053              FONC_DESORP     =SIMP(statut='o',typ=fonction),
7054              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7055            ),
7056            SECH_NAPPE      =FACT(statut='f',min=0,max=1,
7057              FONCTION        =SIMP(statut='o',typ=fonction),
7058              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7059              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="TSEC",into=("TSEC",) ),
7060            ),
7061 #
7062 # comportement métallurgique
7063 #
7064            META_ACIER      =FACT(statut='f',min=0,max=1,
7065              TRC             =SIMP(statut='o',typ=(tabl_trc) ),
7066              AR3             =SIMP(statut='o',typ='R'),
7067              ALPHA           =SIMP(statut='o',typ='R'),
7068              MS0             =SIMP(statut='o',typ='R'),
7069              AC1             =SIMP(statut='o',typ='R'),
7070              AC3             =SIMP(statut='o',typ='R'),
7071              TAUX_1          =SIMP(statut='o',typ='R'),
7072              TAUX_3          =SIMP(statut='o',typ='R'),
7073              LAMBDA0         =SIMP(statut='f',typ='R'),
7074              QSR_K           =SIMP(statut='f',typ='R'),
7075              D10             =SIMP(statut='f',typ='R'),
7076              WSR_K           =SIMP(statut='f',typ='R'),
7077            ),
7078            META_ZIRC       =FACT(statut='f',min=0,max=1,
7079              TDEQ            =SIMP(statut='o',typ='R'),
7080              N               =SIMP(statut='o',typ='R'),
7081              K               =SIMP(statut='o',typ='R'),
7082              TDC             =SIMP(statut='o',typ='R'),
7083              AC              =SIMP(statut='o',typ='R'),
7084              M               =SIMP(statut='o',typ='R'),
7085              QSR_K           =SIMP(statut='f',typ='R'),
7086              TDR             =SIMP(statut='o',typ='R'),
7087              AR              =SIMP(statut='o',typ='R'),
7088              BR              =SIMP(statut='o',typ='R'),
7089            ),
7090            DURT_META       =FACT(statut='f',min=0,max=1,
7091              F1_DURT         =SIMP(statut='o',typ='R'),
7092              F2_DURT         =SIMP(statut='o',typ='R'),
7093              F3_DURT         =SIMP(statut='o',typ='R'),
7094              F4_DURT         =SIMP(statut='o',typ='R'),
7095              C_DURT          =SIMP(statut='o',typ='R'),
7096            ),
7097            ELAS_META       =FACT(statut='f',min=0,max=1,
7098              E               =SIMP(statut='o',typ='R'),
7099              NU              =SIMP(statut='o',typ='R'),
7100              F_ALPHA         =SIMP(statut='o',typ='R'),
7101              C_ALPHA         =SIMP(statut='o',typ='R'),
7102              PHASE_REFE      =SIMP(statut='o',typ='TXM',into=("CHAUD","FROID")),
7103              EPSF_EPSC_TREF  =SIMP(statut='o',typ='R'),
7104              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7105              F1_SY           =SIMP(statut='f',typ='R'),
7106              F2_SY           =SIMP(statut='f',typ='R'),
7107              F3_SY           =SIMP(statut='f',typ='R'),
7108              F4_SY           =SIMP(statut='f',typ='R'),
7109              C_SY            =SIMP(statut='f',typ='R'),
7110              SY_MELANGE      =SIMP(statut='f',typ=fonction),
7111              F1_S_VP         =SIMP(statut='f',typ='R'),
7112              F2_S_VP         =SIMP(statut='f',typ='R'),
7113              F3_S_VP         =SIMP(statut='f',typ='R'),
7114              F4_S_VP         =SIMP(statut='f',typ='R'),
7115              C_S_VP          =SIMP(statut='f',typ='R' ),
7116              S_VP_MELANGE    =SIMP(statut='f',typ=fonction),
7117              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="META",into=("META",)),
7118            ),
7119            ELAS_META_FO    =FACT(statut='f',min=0,max=1,
7120              regles=(
7121                       PRESENT_PRESENT('F_ALPHA','TEMP_DEF_ALPHA'),
7122                       PRESENT_PRESENT('C_ALPHA','TEMP_DEF_ALPHA'),
7123                     ),
7124              E               =SIMP(statut='o',typ=fonction),
7125              NU              =SIMP(statut='o',typ=fonction),
7126              F_ALPHA         =SIMP(statut='o',typ=fonction),
7127              C_ALPHA         =SIMP(statut='o',typ=fonction),
7128              PHASE_REFE      =SIMP(statut='o',typ='TXM',into=("CHAUD","FROID")),
7129              EPSF_EPSC_TREF  =SIMP(statut='o',typ='R'),
7130              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
7131              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7132              F1_SY           =SIMP(statut='f',typ=fonction),
7133              F2_SY           =SIMP(statut='f',typ=fonction),
7134              F3_SY           =SIMP(statut='f',typ=fonction),
7135              F4_SY           =SIMP(statut='f',typ=fonction),
7136              C_SY            =SIMP(statut='f',typ=fonction),
7137              SY_MELANGE      =SIMP(statut='f',typ=fonction),
7138              F1_S_VP         =SIMP(statut='f',typ=fonction),
7139              F2_S_VP         =SIMP(statut='f',typ=fonction),
7140              F3_S_VP         =SIMP(statut='f',typ=fonction),
7141              F4_S_VP         =SIMP(statut='f',typ=fonction),
7142              C_S_VP          =SIMP(statut='f',typ=fonction),
7143              S_VP_MELANGE    =SIMP(statut='f',typ=fonction),
7144              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7145              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="META",into=("META",)),
7146            ),
7147            META_ECRO_LINE  =FACT(statut='f',min=0,max=1,
7148              F1_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
7149              F2_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
7150              F3_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
7151              F4_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
7152              C_D_SIGM_EPSI   =SIMP(statut='f',typ=fonction),
7153              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7154            ),
7155            META_TRACTION   =FACT(statut='f',min=0,max=1,
7156              SIGM_F1         =SIMP(statut='f',typ=fonction),
7157              SIGM_F2         =SIMP(statut='f',typ=fonction),
7158              SIGM_F3         =SIMP(statut='f',typ=fonction),
7159              SIGM_F4         =SIMP(statut='f',typ=fonction),
7160              SIGM_C          =SIMP(statut='f',typ=fonction),
7161              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",)),
7162              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7163            ),
7164            META_VISC_FO    =FACT(statut='f',min=0,max=1,
7165              F1_ETA          =SIMP(statut='f',typ=fonction),
7166              F1_N            =SIMP(statut='f',typ=fonction),
7167              F1_C            =SIMP(statut='f',typ=fonction),
7168              F1_M            =SIMP(statut='f',typ=fonction),
7169              F2_ETA          =SIMP(statut='f',typ=fonction),
7170              F2_N            =SIMP(statut='f',typ=fonction),
7171              F2_C            =SIMP(statut='f',typ=fonction),
7172              F2_M            =SIMP(statut='f',typ=fonction),
7173              F3_ETA          =SIMP(statut='f',typ=fonction),
7174              F3_N            =SIMP(statut='f',typ=fonction),
7175              F3_C            =SIMP(statut='f',typ=fonction),
7176              F3_M            =SIMP(statut='f',typ=fonction),
7177              F4_ETA          =SIMP(statut='f',typ=fonction),
7178              F4_N            =SIMP(statut='f',typ=fonction),
7179              F4_C            =SIMP(statut='f',typ=fonction),
7180              F4_M            =SIMP(statut='f',typ=fonction),
7181              C_ETA           =SIMP(statut='f',typ=fonction),
7182              C_N             =SIMP(statut='f',typ=fonction),
7183              C_C             =SIMP(statut='f',typ=fonction),
7184              C_M             =SIMP(statut='f',typ=fonction),
7185              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7186            ),
7187            META_PT         =FACT(statut='f',min=0,max=1,
7188              F1_K            =SIMP(statut='f',typ='R'),
7189              F2_K            =SIMP(statut='f',typ='R'),
7190              F3_K            =SIMP(statut='f',typ='R'),
7191              F4_K            =SIMP(statut='f',typ='R'),
7192              F1_D_F_META     =SIMP(statut='f',typ=fonction),
7193              F2_D_F_META     =SIMP(statut='f',typ=fonction),
7194              F3_D_F_META     =SIMP(statut='f',typ=fonction),
7195              F4_D_F_META     =SIMP(statut='f',typ=fonction),
7196              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7197              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="META",into=("META",) ),
7198            ),
7199            META_RE         =FACT(statut='f',min=0,max=1,
7200              C_F1_THETA      =SIMP(statut='f',typ='R'),
7201              C_F2_THETA      =SIMP(statut='f',typ='R'),
7202              C_F3_THETA      =SIMP(statut='f',typ='R'),
7203              C_F4_THETA      =SIMP(statut='f',typ='R'),
7204              F1_C_THETA      =SIMP(statut='f',typ='R'),
7205              F2_C_THETA      =SIMP(statut='f',typ='R'),
7206              F3_C_THETA      =SIMP(statut='f',typ='R'),
7207              F4_C_THETA      =SIMP(statut='f',typ='R'),
7208            ),
7209 #
7210 # comportement fluide
7211 #
7212            FLUIDE          =FACT(statut='f',min=0,max=1,
7213              regles=(EXCLUS('CELE_C','CELE_R'),),
7214              RHO             =SIMP(statut='o',typ='R'),
7215              CELE_C          =SIMP(statut='f',typ='C'),
7216              CELE_R          =SIMP(statut='f',typ='R'),
7217            ),
7218            PORO_JOINT      =FACT(statut='f',min=0,max=1,
7219              RHO_FLUI        =SIMP(statut='o',typ='R'),
7220              ENTRO_FLUI      =SIMP(statut='o',typ='R'),
7221              BIOT_M          =SIMP(statut='o',typ='R'),
7222              C_0             =SIMP(statut='o',typ='R'),
7223              T_R             =SIMP(statut='o',typ='R'),
7224              ALPHA_M         =SIMP(statut='o',typ='R'),
7225              LAMBDA_T        =SIMP(statut='o',typ='R'),
7226              LAMBDA_H        =SIMP(statut='o',typ='R'),
7227              SOURCE_INIT     =SIMP(statut='o',typ='R'),
7228              OMEGA_0         =SIMP(statut='o',typ='R'),
7229            ),
7230            THM_LIQU        =FACT(statut='f',min=0,max=1,
7231              RHO             =SIMP(statut='o',typ='R'),
7232              UN_SUR_K        =SIMP(statut='f',typ='R'),
7233              ALPHA           =SIMP(statut='f',typ='R'),
7234              CP              =SIMP(statut='f',typ='R'),
7235              VISC            =SIMP(statut='f',typ=fonction),
7236              D_VISC_TEMP     =SIMP(statut='f',typ=fonction),
7237              LAMBDA          =SIMP(statut='f',typ=fonction),
7238              D_LAMBDA_TEMP   =SIMP(statut='f',typ=fonction),
7239              COEF_HENRY      =SIMP(statut='f',typ='R'),
7240              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7241            ),
7242            THM_GAZ         =FACT(statut='f',min=0,max=1,
7243              MASS_MOL        =SIMP(statut='f',typ='R'),
7244              CP              =SIMP(statut='f',typ='R'),
7245              VISC            =SIMP(statut='f',typ=fonction),
7246              D_VISC_TEMP     =SIMP(statut='f',typ=fonction),
7247              LAMBDA          =SIMP(statut='f',typ=fonction),
7248              D_LAMBDA_TEMP   =SIMP(statut='f',typ=fonction),
7249              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7250            ),
7251            THM_VAPE_GAZ    =FACT(statut='f',min=0,max=1,
7252              MASS_MOL        =SIMP(statut='f',typ='R'),
7253              CP              =SIMP(statut='f',typ='R'),
7254              VISC            =SIMP(statut='f',typ=fonction),
7255              D_VISC_TEMP     =SIMP(statut='f',typ=fonction),
7256              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7257            ),
7258            THM_INIT        =FACT(statut='f',min=0,max=1,
7259              TEMP            =SIMP(statut='o',typ='R'),
7260              PRE1            =SIMP(statut='o',typ='R'),
7261              PRE2            =SIMP(statut='o',typ='R'),
7262              PORO            =SIMP(statut='o',typ='R'),
7263              PRES_VAPE       =SIMP(statut='o',typ='R'),
7264              DEGR_SATU       =SIMP(statut='f',typ='R'),
7265              PRES_ATMO       =SIMP(statut='f',typ='R'),
7266            ),
7267            THM_DIFFU       =FACT(statut='f',min=0,max=1,
7268              R_GAZ           =SIMP(statut='o',typ='R'),
7269              RHO             =SIMP(statut='f',typ='R'),
7270              CP              =SIMP(statut='f',typ='R'),
7271              BIOT_COEF       =SIMP(statut='f',typ='R'),
7272              SATU_PRES       =SIMP(statut='f',typ=fonction),
7273              D_SATU_PRES     =SIMP(statut='f',typ=fonction),
7274              PESA_X          =SIMP(statut='f',typ='R'),
7275              PESA_Y          =SIMP(statut='f',typ='R'),
7276              PESA_Z          =SIMP(statut='f',typ='R'),
7277              PERM_IN         =SIMP(statut='f',typ=fonction),
7278              PERM_LIQU       =SIMP(statut='f',typ=fonction),
7279              D_PERM_LIQU_SATU=SIMP(statut='f',typ=fonction),
7280              PERM_GAZ        =SIMP(statut='f',typ=fonction),
7281              D_PERM_SATU_GAZ =SIMP(statut='f',typ=fonction),
7282              D_PERM_PRES_GAZ =SIMP(statut='f',typ=fonction),
7283              FICK            =SIMP(statut='f',typ=fonction),
7284              D_FICK_TEMP     =SIMP(statut='f',typ=fonction),
7285              D_FICK_GAZ_PRES =SIMP(statut='f',typ=fonction),
7286              LAMBDA          =SIMP(statut='f',typ=fonction),
7287              D_LAMBDA_TEMP   =SIMP(statut='f',typ=fonction),
7288              SIGMA_T         =SIMP(statut='f',typ=fonction),
7289              D_SIGMA_T       =SIMP(statut='f',typ=fonction),
7290              PERM_G_INTR     =SIMP(statut='f',typ=fonction),
7291              CHAL_VAPO       =SIMP(statut='f',typ=fonction),
7292              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7293              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="SAT",into=("SAT",) ),
7294              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="PORO",into=("PORO",) ),
7295              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="PGAZ",into=("PGAZ",) ),
7296              VERI_P5         =SIMP(statut='c',typ='TXM',defaut="PCAP",into=("PCAP",) ),
7297            ),
7298 #
7299 # courbes et coefficients associés à la fatigue et au dommage
7300 #
7301            FATIGUE         =FACT(statut='f',min=0,max=1,
7302              regles=(PRESENT_ABSENT('WOHLER','A_BASQUIN','BETA_BASQUIN'),
7303                      PRESENT_ABSENT('WOHLER','A0','A1','A2','A3','SL'),
7304                      PRESENT_ABSENT('A_BASQUIN','A0','A1','A2','A3','SL'),
7305                      ENSEMBLE('A_BASQUIN','BETA_BASQUIN'),
7306                      ENSEMBLE('A0','A1','A2','A3','SL'),
7307                      PRESENT_PRESENT('A0','E_REFE'),
7308                      ENSEMBLE('D0','TAU0'),),
7309              WOHLER          =SIMP(statut='f',typ=fonction),
7310              A_BASQUIN       =SIMP(statut='f',typ='R'),
7311              BETA_BASQUIN    =SIMP(statut='f',typ='R'),
7312              A0              =SIMP(statut='f',typ='R'),
7313              A1              =SIMP(statut='f',typ='R'),
7314              A2              =SIMP(statut='f',typ='R'),
7315              A3              =SIMP(statut='f',typ='R'),
7316              SL              =SIMP(statut='f',typ='R'),
7317              MANSON_COFFIN   =SIMP(statut='f',typ=fonction),
7318              E_REFE          =SIMP(statut='f',typ='R'),
7319              D0              =SIMP(statut='f',typ='R'),
7320              TAU0            =SIMP(statut='f',typ='R'),
7321              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="SIGM",into=("SIGM",) ),
7322              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",) ),
7323            ),
7324            DOMMA_LEMAITRE  =FACT(statut='f',min=0,max=1,
7325              S               =SIMP(statut='o',typ=fonction),
7326              EPSP_SEUIL      =SIMP(statut='o',typ='R'),
7327              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7328            ),
7329            CISA_PLAN_CRIT  =FACT(statut='f',min=0,max=1,
7330              MATAKE_A        =SIMP(statut='o',typ='R'),
7331              MATAKE_B        =SIMP(statut='o',typ='R'),
7332              ENDU_FT         =SIMP(statut='o',typ='R',val_min=1.0E0,val_max=1.7321E0),
7333            ),
7334 #
7335 # autres comportements ...
7336 #
7337            WEIBULL         =FACT(statut='f',min=0,max=1,
7338              M               =SIMP(statut='o',typ='R'),
7339              VOLU_REFE       =SIMP(statut='o',typ='R'),
7340              SIGM_REFE       =SIMP(statut='o',typ='R'),
7341              SEUIL_EPSP_CUMU =SIMP(statut='f',typ='R',defaut= 1.0E-6),
7342            ),
7343            WEIBULL_FO      =FACT(statut='f',min=0,max=1,
7344              M               =SIMP(statut='o',typ='R'),
7345              VOLU_REFE       =SIMP(statut='o',typ='R'),
7346              SIGM_CNV        =SIMP(statut='o',typ='R'),
7347              SIGM_REFE       =SIMP(statut='o',typ=fonction),
7348              SEUIL_EPSP_CUMU =SIMP(statut='f',typ='R',defaut= 1.0E-6),
7349              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7350            ),
7351            CONTACT         =FACT(statut='f',min=0,max=1,
7352              E_N             =SIMP(statut='o',typ='R'),
7353              E_T             =SIMP(statut='f',typ='R',defaut= 0.E+0),
7354              COULOMB         =SIMP(statut='f',typ='R',defaut= 0.E+0),
7355            ),
7356            NON_LOCAL       =FACT(statut='f',min=0,max=1,
7357              LONG_CARA       =SIMP(statut='o',typ='R'),
7358              COEF_RIGI_MINI  =SIMP(statut='f',typ='R'),
7359            ),
7360            RUPT_FRAG       =FACT(statut='f',min=0,max=1,
7361              GC              =SIMP(statut='o',typ='R'),
7362              SIGM_C          =SIMP(statut='f',typ='R'),
7363              SAUT_C          =SIMP(statut='f',typ='R'),
7364            ),
7365            RCCM            =FACT(statut='f',min=0,max=1,
7366              SY_02           =SIMP(statut='f',typ='R'),
7367              SM              =SIMP(statut='f',typ='R'),
7368              SU              =SIMP(statut='f',typ='R'),
7369              SC              =SIMP(statut='f',typ='R'),
7370              SH              =SIMP(statut='f',typ='R'),
7371              N_KE            =SIMP(statut='f',typ='R'),
7372              M_KE            =SIMP(statut='f',typ='R'),
7373            ),
7374            RCCM_FO         =FACT(statut='f',min=0,max=1,
7375              SY_02           =SIMP(statut='f',typ=fonction),
7376              SM              =SIMP(statut='f',typ=fonction),
7377              SU              =SIMP(statut='f',typ=fonction),
7378              S               =SIMP(statut='f',typ=fonction),
7379              N_KE            =SIMP(statut='f',typ=fonction),
7380              M_KE            =SIMP(statut='f',typ=fonction),
7381            ),
7382            LAIGLE          =FACT(statut='f',min=0,max=1,
7383              GAMMA_ULT       =SIMP(statut='o',typ='R'),
7384              GAMMA_E         =SIMP(statut='o',typ='R'),
7385              M_ULT           =SIMP(statut='o',typ='R'),
7386              M_E             =SIMP(statut='o',typ='R'),
7387              A_E             =SIMP(statut='o',typ='R'),
7388              M_PIC           =SIMP(statut='o',typ='R'),
7389              A_PIC           =SIMP(statut='o',typ='R'),
7390              ETA             =SIMP(statut='o',typ='R'),
7391              SIGMA_C         =SIMP(statut='o',typ='R'),
7392              GAMMA           =SIMP(statut='o',typ='R'),
7393              KSI             =SIMP(statut='o',typ='R'),
7394              GAMMA_CJS       =SIMP(statut='o',typ='R'),
7395              SIGMA_P1        =SIMP(statut='o',typ='R'),
7396              SIGMA_P2        =SIMP(statut='o',typ='R'),
7397              PA              =SIMP(statut='o',typ='R'),
7398            ),
7399            INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
7400 )  ;
7401 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
7402 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7403 # ======================================================================
7404 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7405 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7406 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7407 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7408 # (AT YOUR OPTION) ANY LATER VERSION.
7409 #
7410 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7411 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7412 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7413 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7414 #
7415 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7416 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7417 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7418 # ======================================================================
7419 DEFI_MODELE_GENE=OPER(nom="DEFI_MODELE_GENE",op= 126,sd_prod=modele_gene,
7420                       docu="U4.65.02-d",reentrant='n',
7421          SOUS_STRUC      =FACT(statut='o',min=01,max='**',
7422            NOM             =SIMP(statut='o',typ='TXM' ),
7423            MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
7424            ANGL_NAUT       =SIMP(statut='f',typ='R',max=03),
7425            TRANS           =SIMP(statut='f',typ='R',max=03),
7426          ),
7427          LIAISON         =FACT(statut='o',min=01,max='**',
7428            SOUS_STRUC_1    =SIMP(statut='o',typ='TXM' ),
7429            INTERFACE_1     =SIMP(statut='o',typ='TXM' ),
7430            SOUS_STRUC_2    =SIMP(statut='o',typ='TXM' ),
7431            INTERFACE_2     =SIMP(statut='o',typ='TXM' ),
7432          ),
7433          VERIF           =FACT(statut='f',min=01,max='**',
7434 #  dans la doc U stop_erreur est obligatoire
7435            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7436            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
7437            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7438          ),
7439 )  ;
7440 #& MODIF COMMANDE  DATE 06/03/2002   AUTEUR MCOURTOI M.COURTOIS
7441 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7442 # ======================================================================
7443 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7444 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7445 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7446 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7447 # (AT YOUR OPTION) ANY LATER VERSION.
7448 #
7449 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7450 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7451 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7452 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7453 #
7454 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7455 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7456 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7457 # ======================================================================
7458 DEFI_NAPPE=OPER(nom="DEFI_NAPPE",op=   4,sd_prod=fonction,
7459                 fr="Définition des valeurs d une fonction de deux variables réelles",
7460                 docu="U4.31.03-g1",reentrant='n',
7461          regles=(UN_PARMI('FONCTION','DEFI_FONCTION'),
7462                  EXCLUS('FONCTION','NOM_PARA_FONC',),
7463                  ENSEMBLE('NOM_PARA_FONC','DEFI_FONCTION'),),
7464          NOM_PARA        =SIMP(statut='o',typ='TXM',into=("TEMP","INST","X","Y","Z","FREQ","PULS",
7465                                                           "AMOR","EPAIS","TSEC","HYDR","SECH") ),
7466          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
7467          PARA            =SIMP(statut='o',typ='R',max='**'),
7468          FONCTION        =SIMP(statut='f',typ=fonction,max='**' ),
7469          NOM_PARA_FONC   =SIMP(statut='f',typ='TXM',into=("TEMP","INST","X","Y","Z","EPSI","FREQ",
7470                                                           "PULS","AMOR","EPAIS") ),
7471          DEFI_FONCTION   =FACT(statut='f',max='**',
7472            VALE            =SIMP(statut='o',typ='R',max='**'),
7473            INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
7474            PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7475            PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7476          ),
7477          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
7478          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7479          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7480          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
7481          VERIF           =SIMP(statut='f',typ='TXM',into=("CROISSANT",) ),
7482          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7483 )  ;
7484 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
7485 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7486 # ======================================================================
7487 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7488 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7489 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7490 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7491 # (AT YOUR OPTION) ANY LATER VERSION.
7492 #
7493 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7494 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7495 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7496 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7497 #
7498 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7499 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7500 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7501 # ======================================================================
7502 DEFI_OBSTACLE=OPER(nom="DEFI_OBSTACLE",op=  73,sd_prod=obstacle
7503                     ,fr="Définition d un obstacle plan perpendiculaire à une structure filaire",
7504                      docu="U4.44.21-e",reentrant='n',
7505          TYPE            =SIMP(statut='o',typ='TXM',defaut="CERCLE",
7506                              into=("CERCLE","PLAN_Y","PLAN_Z","DISCRET",
7507                              "BI_CERCLE","BI_PLAN_Y","BI_PLAN_Z","BI_CERC_INT",
7508                              "CRAYON_900","CRAYON_1300","GUID_A_CARTE_900",
7509                              "GUID_B_CARTE_900","GUID_C_CARTE_900",
7510                              "GUID_D_CARTE_900","GUID_E_CARTE_900",
7511                              "GUID_F_CARTE_900","GUID_A_CARTE_1300",
7512                              "GUID_B_CARTE_1300","GUID_C_CARTE_1300",
7513                              "GUID_D_CARTE_1300","GUID_E_CARTE_1300",
7514                              "GUID_F_CARTE_1300","GUID_A_CARSP_900",
7515                              "GUID_B_CARSP_900","GUID_C_CARSP_900",
7516                              "GUID_D_CARSP_900","GUID_E_CARSP_900",
7517                              "GUID_F_CARSP_900","GUID_A_CARSP_1300",
7518                              "GUID_B_CARSP_1300","GUID_C_CARSP_1300",
7519                              "GUID_D_CARSP_1300","GUID_E_CARSP_1300",
7520                              "GUID_F_CARSP_1300","GUID_A_GCONT_900",
7521                              "GUID_B_GCONT_900","GUID_C_GCONT_900",
7522                              "GUID_D_GCONT_900","GUID_E_GCONT_900",
7523                              "GUID_F_GCONT_900","GUID_A_GCONT_1300",
7524                              "GUID_B_GCONT_1300","GUID_C_GCONT_1300",
7525                              "GUID_D_GCONT_1300","GUID_E_GCONT_1300",
7526                              "GUID_F_GCONT_1300","GUID_A_GCOMB_900",
7527                              "GUID_B_GCOMB_900","GUID_C_GCOMB_900",
7528                              "GUID_D_GCOMB_900","GUID_E_GCOMB_900",
7529                              "GUID_F_GCOMB_900","GUID_A_GCOMB_1300",
7530                              "GUID_B_GCOMB_1300","GUID_C_GCOMB_1300",
7531                              "GUID_D_GCOMB_1300","GUID_E_GCOMB_1300",
7532                              "GUID_F_GCOMB_1300",) ),
7533          VALE            =SIMP(statut='f',typ='R',max='**'),
7534          VERIF           =SIMP(statut='f',typ='TXM',defaut="FERME"),
7535 )  ;
7536 #& MODIF COMMANDE  DATE 10/10/2001   AUTEUR DURAND C.DURAND
7537 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7538 # ======================================================================
7539 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7540 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7541 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7542 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7543 # (AT YOUR OPTION) ANY LATER VERSION.
7544 #
7545 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7546 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7547 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7548 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7549 #
7550 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7551 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7552 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7553 # ======================================================================
7554 # RESPONSABLE GNICOLAS G.NICOLAS
7555 DEFI_PARA_SENSI=OPER(nom="DEFI_PARA_SENSI",op=   2,sd_prod=para_sensi,
7556                     fr="Définition d'un paramètre de sensibilité",
7557                     ang="Definition of a sensitive parameter",
7558                     docu="U4.31.xx-a",reentrant='n',
7559          NOM_RESU        =SIMP(statut='c',typ='TXM',into=("TOUTRESU",),defaut="TOUTRESU",
7560                                fr="Nom du concept créé",
7561                                ang="Name of the concept"),
7562          VALE            =SIMP(statut='o',typ='R',max=01,
7563                                fr="Valeur du parametre",
7564                                ang="Value of the parameter"),
7565          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7566 )  ;
7567 #& MODIF COMMANDE  DATE 07/03/2001   AUTEUR VABHHTS J.PELLET
7568 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7569 # ======================================================================
7570 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7571 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7572 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7573 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7574 # (AT YOUR OPTION) ANY LATER VERSION.
7575 #
7576 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7577 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7578 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7579 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7580 #
7581 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7582 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7583 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7584 # ======================================================================
7585 DEFI_SPEC_TURB=OPER(nom="DEFI_SPEC_TURB",op= 145,sd_prod=spectre,
7586                     fr="Définition d'un spectre d'excitation turbulente",
7587                     docu="U4.44.31-c",reentrant='n',
7588          regles=(UN_PARMI('SPEC_LONG_COR_1','SPEC_LONG_COR_2','SPEC_LONG_COR_3',
7589                           'SPEC_LONG_COR_4','SPEC_CORR_CONV_1','SPEC_CORR_CONV_2',
7590                           'SPEC_FONC_FORME','SPEC_EXCI_POINT'),),
7591          SPEC_LONG_COR_1 =FACT(statut='f',min=00,max=01,
7592            LONG_COR        =SIMP(statut='o',typ='R' ),
7593            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
7594            VISC_CINE       =SIMP(statut='o',typ='R' ),
7595          ),
7596          SPEC_LONG_COR_2 =FACT(statut='f',min=00,max=01,
7597            regles=(ENSEMBLE('FREQ_COUP','PHI0','BETA' ),),
7598            LONG_COR        =SIMP(statut='o',typ='R' ),
7599            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
7600            FREQ_COUP       =SIMP(statut='f',typ='R',defaut= 0.1 ),
7601            PHI0            =SIMP(statut='f',typ='R',defaut= 1.5E-3 ),
7602            BETA            =SIMP(statut='f',typ='R',defaut= 2.7 ),
7603          ),
7604          SPEC_LONG_COR_3 =FACT(statut='f',min=00,max=01,
7605            regles=(ENSEMBLE('PHI0_1','BETA_1','PHI0_2','BETA_2','FREQ_COUP'),),
7606            LONG_COR        =SIMP(statut='o',typ='R' ),
7607            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
7608            FREQ_COUP       =SIMP(statut='f',typ='R',defaut= 0.2 ),
7609            PHI0_1          =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
7610            BETA_1          =SIMP(statut='f',typ='R',defaut= 0.5 ),
7611            PHI0_2          =SIMP(statut='f',typ='R',defaut= 4.E-5 ),
7612            BETA_2          =SIMP(statut='f',typ='R',defaut= 3.5 ),
7613          ),
7614          SPEC_LONG_COR_4 =FACT(statut='f',min=00,max=01,
7615            regles=(ENSEMBLE('BETA','GAMMA'),),
7616            LONG_COR        =SIMP(statut='o',typ='R' ),
7617            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
7618            TAUX_VIDE       =SIMP(statut='o',typ='R' ),
7619            BETA            =SIMP(statut='f',typ='R',defaut= 2. ),
7620            GAMMA           =SIMP(statut='f',typ='R',defaut= 4. ),
7621          ),
7622          SPEC_CORR_CONV_1=FACT(statut='f',min=00,max=01,
7623            LONG_COR_1      =SIMP(statut='o',typ='R' ),
7624            LONG_COR_2      =SIMP(statut='f',typ='R' ),
7625            VITE_FLUI       =SIMP(statut='o',typ='R' ),
7626            RHO_FLUI        =SIMP(statut='o',typ='R' ),
7627            FREQ_COUP       =SIMP(statut='f',typ='R' ),
7628            K               =SIMP(statut='f',typ='R',defaut= 5.8E-3 ),
7629            D_FLUI          =SIMP(statut='o',typ='R' ),
7630            COEF_VITE_FLUI_A=SIMP(statut='f',typ='R' ),
7631            COEF_VITE_FLUI_O=SIMP(statut='f',typ='R' ),
7632            METHODE         =SIMP(statut='f',typ='TXM',defaut="GENERALE",
7633                                  into=("AU_YANG","GENERALE","CORCOS") ),
7634          ),
7635          SPEC_CORR_CONV_2=FACT(statut='f',min=00,max=01,
7636            FONCTION        =SIMP(statut='o',typ=fonction ),
7637            VITE_FLUI       =SIMP(statut='o',typ='R' ),
7638            FREQ_COUP       =SIMP(statut='f',typ='R' ),
7639            METHODE         =SIMP(statut='f',typ='TXM',defaut="GENERALE",
7640                                  into=("AU_YANG","GENERALE","CORCOS",) ),
7641            COEF_VITE_FLUI_A=SIMP(statut='f',typ='R' ),
7642            COEF_VITE_FLUI_O=SIMP(statut='f',typ='R' ),
7643          ),
7644          SPEC_FONC_FORME =FACT(statut='f',min=00,max=01,
7645            regles=(UN_PARMI('INTE_SPEC','GRAPPE_1'),
7646                    ENSEMBLE('INTE_SPEC','FONCTION'),),
7647            INTE_SPEC       =SIMP(statut='f',typ=tabl_intsp ),
7648            FONCTION        =SIMP(statut='f',typ=fonction,max='**'),
7649            GRAPPE_1        =SIMP(statut='f',typ='TXM',into=("DEBIT_180","DEBIT_300",) ),
7650            NOEUD           =SIMP(statut='o',typ=no),
7651            CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
7652            MODELE          =SIMP(statut='o',typ=modele ),
7653          ),
7654          SPEC_EXCI_POINT =FACT(statut='f',min=00,max=01,
7655            regles=(UN_PARMI('INTE_SPEC','GRAPPE_2'),),
7656            INTE_SPEC       =SIMP(statut='f',typ=tabl_intsp ),
7657            GRAPPE_2        =SIMP(statut='f',typ='TXM',
7658                                  into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC",) ),
7659 #  Quels sont les statuts des mots cles à l interieur des deux blocs qui suivent
7660            b_inte_spec =BLOC(condition = "INTE_SPEC != None",
7661              NATURE          =SIMP(statut='o',typ='TXM',max='**',into=("FORCE","MOMENT",) ),
7662              ANGL            =SIMP(statut='o',typ='R',max='**'),
7663              NOEUD           =SIMP(statut='o',typ=no,max='**'),
7664            ),
7665            b_grappe_2      =BLOC(condition = "GRAPPE_2 != None",
7666              RHO_FLUI        =SIMP(statut='o',typ='R' ),
7667              NOEUD           =SIMP(statut='o',typ=no),
7668            ),
7669            CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
7670            MODELE          =SIMP(statut='o',typ=modele ),
7671          ),
7672          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7673 )  ;
7674 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
7675 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7676 # ======================================================================
7677 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7678 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7679 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7680 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7681 # (AT YOUR OPTION) ANY LATER VERSION.
7682 #
7683 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7684 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7685 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7686 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7687 #
7688 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7689 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7690 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7691 # ======================================================================
7692 DEFI_SQUELETTE=OPER(nom="DEFI_SQUELETTE",op= 110,sd_prod=squelette,
7693                     fr="Définition d un maillage de visualisation",
7694                     docu="U4.24.01-e",reentrant='n',
7695          regles=(UN_PARMI('MODE_CYCL','MODELE_GENE','MAILLAGE'),
7696                  PRESENT_PRESENT('MODE_CYCL','SECTEUR'),
7697                  EXCLUS('SOUS_STRUC','SECTEUR'),
7698                  PRESENT_PRESENT('NOM_GROUP_MA','MODELE_GENE'),
7699                  PRESENT_PRESENT('NOM_GROUP_MA','SOUS_STRUC'),),
7700          MODE_CYCL       =SIMP(statut='f',typ=mode_cycl ),
7701          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
7702          SQUELETTE       =SIMP(statut='f',typ=squelette ),
7703          RECO_GLOBAL     =FACT(statut='f',min=01,max='**',
7704            regles=(EXCLUS('TOUT','GROUP_NO_1'),
7705                    PRESENT_PRESENT('GROUP_NO_1','GROUP_NO_2'),
7706                    PRESENT_PRESENT('GROUP_NO_1','SOUS_STRUC_1'),
7707                    PRESENT_PRESENT('GROUP_NO_2','SOUS_STRUC_2'),
7708                    PRESENT_PRESENT('SOUS_STRUC_1','SOUS_STRUC_2'),),
7709            TOUT            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",) ),
7710            GROUP_NO_1      =SIMP(statut='f',typ=grno),
7711            SOUS_STRUC_1    =SIMP(statut='f',typ='TXM' ),
7712            GROUP_NO_2      =SIMP(statut='f',typ=grno),
7713            SOUS_STRUC_2    =SIMP(statut='f',typ='TXM' ),
7714            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
7715            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7716            DIST_REFE       =SIMP(statut='f',typ='R' ),
7717          ),
7718          NOM_GROUP_MA    =FACT(statut='f',min=01,max='**',
7719            NOM             =SIMP(statut='o',typ='TXM' ),
7720            SOUS_STRUC      =SIMP(statut='o',typ='TXM' ),
7721            GROUP_MA        =SIMP(statut='o',typ=grma),
7722          ),
7723          EXCLUSIF        =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7724          MAILLAGE        =SIMP(statut='f',typ=maillage ),
7725          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
7726          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
7727          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7728          TRANS           =SIMP(statut='f',typ='R',min=3,max=3),
7729          ANGL_NAUT       =SIMP(statut='f',typ='R',min=3,max=3),
7730          SOUS_STRUC      =FACT(statut='f',min=01,max='**',
7731            NOM             =SIMP(statut='f',typ='TXM' ),
7732            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
7733            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
7734            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7735          ),
7736          SECTEUR         =FACT(statut='f',min=01,max='**',
7737            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
7738            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
7739            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7740          ),
7741          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7742 )  ;
7743 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
7744 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7745 # ======================================================================
7746 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7747 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7748 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7749 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7750 # (AT YOUR OPTION) ANY LATER VERSION.
7751 #
7752 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7753 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7754 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7755 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7756 #
7757 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7758 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7759 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7760 # ======================================================================
7761 DEFI_TEXTURE=OPER(nom="DEFI_TEXTURE",op= 181,sd_prod=tabl_texture,
7762                   fr=" ",docu="U4.43.05-a",reentrant='n',
7763          SYST_GLISSEMENT =FACT(statut='o',min=3,max=3,
7764            N               =SIMP(statut='o',typ='R',min=12,max=12 ),
7765            L               =SIMP(statut='o',typ='R',max='**' ),
7766          ),
7767          PLAN            =FACT(statut='o',min=40,max=40,
7768            ANGL_NAUT       =SIMP(statut='o',typ='R',max='**' ),
7769            PROPORTION      =SIMP(statut='o',typ='R' ),
7770          ),
7771          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
7772 )  ;
7773 #& MODIF COMMANDE  DATE 03/10/2001   AUTEUR DURAND C.DURAND
7774 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7775 # ======================================================================
7776 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7777 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7778 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7779 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7780 # (AT YOUR OPTION) ANY LATER VERSION.
7781 #
7782 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7783 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7784 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7785 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7786 #
7787 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7788 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7789 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7790 # ======================================================================
7791 DEFI_THER_JOULE=OPER(nom="DEFI_THER_JOULE",op= 121,sd_prod=fonction,docu="U4.MK.20-d",reentrant='n',
7792                     fr="Calculer la fonction d évolution temporelle de température due à l effet JOULE dans un cable",
7793          LIST_INST       =SIMP(statut='o',typ=listr8),
7794          INST_CC_INIT    =SIMP(statut='f',typ='R',defaut= 0.0E+0 ),
7795          INST_CC_FIN     =SIMP(statut='f',typ='R',defaut= 1.0E+10),
7796          INST_RENC_INIT  =SIMP(statut='f',typ='R',defaut= 1.0E+10),
7797          INST_RENC_FIN   =SIMP(statut='f',typ='R',defaut= 1.0E+10),
7798          TEMP_EXT_POSE   =SIMP(statut='f',typ='R',defaut= 15.0E+0),
7799          TEMP_EXT        =SIMP(statut='f',typ='R',defaut= 15.0E+0),
7800          TEMP_RESI_REF   =SIMP(statut='f',typ='R',defaut= 20.0E+0),
7801          PARA_COND_1D    =FACT(statut='f',min=01,max='**',
7802            INTE_CC         =SIMP(statut='f',typ='R',defaut= 0.0E+0),
7803            INTE_RENC       =SIMP(statut='f',typ='R',defaut= 0.0E+0),
7804            A               =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7805            SECTION         =SIMP(statut='f',typ='TXM',defaut="CERCLE",into=("CERCLE",) ),
7806            RESI_R0         =SIMP(statut='f',typ='R',defaut= 0.0E+0),
7807            RESI_R1         =SIMP(statut='f',typ='R',defaut= 0.E+0),
7808            RHO_CP          =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7809            COEF_H          =SIMP(statut='f',typ='R',defaut= 40.0E+0),
7810            TEMP_INIT       =SIMP(statut='f',typ='R',defaut= 15.0E+0),
7811          ),
7812 )  ;
7813
7814 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
7815 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7816 # ======================================================================
7817 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7818 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7819 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7820 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7821 # (AT YOUR OPTION) ANY LATER VERSION.
7822 #
7823 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7824 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7825 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7826 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7827 #
7828 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7829 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7830 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7831 # ======================================================================
7832 DEFI_TRC=OPER(nom="DEFI_TRC",op=94,sd_prod=tabl_trc,docu="U4.43.04-e",reentrant='n',
7833               fr="Définition d un diagramme de transformations en refroidissement continu d un acier",
7834          HIST_EXP        =FACT(statut='o',min=01,max='**',
7835            VALE            =SIMP(statut='o',typ='R',max='**'),
7836          ),
7837          TEMP_MS         =FACT(statut='o',min=01,max='**',
7838            SEUIL           =SIMP(statut='o',typ='R'),
7839            AKM             =SIMP(statut='o',typ='R'),
7840            BKM             =SIMP(statut='o',typ='R'),
7841            TPLM            =SIMP(statut='o',typ='R'),
7842          ),
7843          GRAIN_AUST      =FACT(statut='f',min=01,max='**',
7844            DREF           =SIMP(statut='f',typ='R'),
7845            A              =SIMP(statut='f',typ='R'),
7846          ),
7847 )  ;
7848 #& MODIF COMMANDE  DATE 06/03/2002   AUTEUR MCOURTOI M.COURTOIS
7849 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7850 # ======================================================================
7851 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7852 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7853 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7854 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7855 # (AT YOUR OPTION) ANY LATER VERSION.
7856 #
7857 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7858 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7859 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7860 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7861 #
7862 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7863 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7864 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7865 # ======================================================================
7866 def defi_valeur_prod(self,IS=None,R8=None,TX=None,C8=None,LS=None):
7867   if IS != None  : return entier
7868   if R8 != None  : return reel
7869   if TX != None  : return chaine
7870   if C8 != None  : return complexe
7871   if LS != None  : return liste
7872   raise AsException("type de concept resultat non prevu")
7873
7874 DEFI_VALEUR=MACRO(nom="DEFI_VALEUR",op=-4,sd_prod=defi_valeur_prod,
7875                  fr="Affectation d une valeur à une variable Superviseur",
7876                  docu="U4.31.04-f1",reentrant='f',
7877          regles=(UN_PARMI('IS','R8','TX','C8','LS'),),
7878          IS              =SIMP(statut='f',typ='I',max='**'),
7879          R8              =SIMP(statut='f',typ='R',max='**'),
7880          TX              =SIMP(statut='f',typ='TXM',max='**'),
7881          C8              =SIMP(statut='f',typ='C',max='**'),
7882          LS              =SIMP(statut='f',typ='L',max='**'),
7883 )  ;
7884 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
7885 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7886 # ======================================================================
7887 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7888 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7889 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7890 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7891 # (AT YOUR OPTION) ANY LATER VERSION.
7892 #
7893 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7894 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7895 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7896 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7897 #
7898 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7899 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7900 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7901 # ======================================================================
7902 DEFUFI=PROC(nom="DEFUFI",op=21,docu="U4.12.01-d",
7903             fr="Modification / ajout d une unité logique en sortie en complément de celles définies dans DEBUT",
7904          IMPRESSION      =FACT(statut='o',min=01,max='**',
7905            NOM             =SIMP(statut='o',typ='TXM',max='**'),
7906            UNITE           =SIMP(statut='o',typ='I' ),
7907          ),
7908 )  ;
7909 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
7910 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7911 # ======================================================================
7912 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7913 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7914 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7915 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7916 # (AT YOUR OPTION) ANY LATER VERSION.
7917 #
7918 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7919 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7920 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7921 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7922 #
7923 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7924 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7925 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7926 # ======================================================================
7927 DEPL_INTERNE=OPER(nom="DEPL_INTERNE",op=89,sd_prod=cham_no_depl_r,docu="U4.62.02-e",reentrant='n',
7928                   fr="Récupération du champ de déplacement interne à une sous-structure",
7929          DEPL_GLOBAL     =SIMP(statut='o',typ=cham_no_depl_r),
7930          MAILLE          =SIMP(statut='o',typ=ma,max=1),
7931          NOM_CAS         =SIMP(statut='f',typ='TXM',defaut=" "),
7932 )  ;
7933 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
7934 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7935 # ======================================================================
7936 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7937 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7938 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7939 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7940 # (AT YOUR OPTION) ANY LATER VERSION.
7941 #
7942 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7943 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7944 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7945 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7946 #
7947 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7948 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7949 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7950 # ======================================================================
7951 DETRUIRE=PROC(nom="DETRUIRE",op=-7,docu="U4.14.01-d",
7952               fr="Destruction d un concept utilisateur dans la base GLOBALE",
7953              op_init=ops.detruire,
7954             CONCEPT     =FACT(statut='o',min=01,
7955             NOM         =SIMP(statut='o',typ=assd,max='**'),
7956         ),
7957 );
7958 #& MODIF COMMANDE  DATE 03/10/2001   AUTEUR DURAND C.DURAND
7959 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7960 # ======================================================================
7961 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7962 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7963 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7964 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7965 # (AT YOUR OPTION) ANY LATER VERSION.
7966 #
7967 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7968 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7969 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7970 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7971 #
7972 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7973 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7974 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7975 # ======================================================================
7976 DIST_LIGN_3D=OPER(nom="DIST_LIGN_3D",op= 133,sd_prod=fonction,docu="U4.MK.30-d",reentrant='n',
7977                   fr="Calcul sous forme d une fonction du temps de la distance minimale entre deux structures filaires",
7978       regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),
7979               UN_PARMI('GROUP_MA_2','POIN_FIXE'),),
7980          MODELE          =SIMP(statut='o',typ=modele),
7981          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,evol_noli) ),
7982          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",)),
7983          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
7984          INST            =SIMP(statut='f',typ='R',max='**'),
7985          LIST_INST       =SIMP(statut='f',typ=listr8),
7986          LIST_ORDRE      =SIMP(statut='f',typ=listis),
7987          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
7988          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7989          GROUP_MA_1      =SIMP(statut='o',typ=grma,max='**'),
7990          GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
7991          POIN_FIXE       =SIMP(statut='f',typ='R',min=3,max=3),
7992          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
7993 )  ;
7994 #& MODIF COMMANDE  DATE 28/03/2001   AUTEUR CIBHHLV L.VIVAN
7995 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7996 # ======================================================================
7997 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7998 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7999 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8000 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8001 # (AT YOUR OPTION) ANY LATER VERSION.
8002 #
8003 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8004 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8005 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8006 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8007 #
8008 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8009 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8010 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8011 # ======================================================================
8012 DYNA_ALEA_MODAL=OPER(nom="DYNA_ALEA_MODAL",op= 131,sd_prod=tabl_intsp
8013                     ,fr="Calcule la réponse spectrale d une structure linéaire sous une excitation connue par sa DSP",
8014                      docu="U4.53.22-d",reentrant='n',
8015          BASE_MODALE     =FACT(statut='o',min=01,max=01,
8016            regles=(UN_PARMI('NUME_ORDRE','BANDE'),),
8017            MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
8018            BANDE           =SIMP(statut='f',typ='R',max=02),
8019            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
8020            b_bande =BLOC(condition = "BANDE != None",
8021              AMOR_UNIF       =SIMP(statut='o',typ='R' ),
8022            ),
8023            b_nume_ordre =BLOC(condition = "NUME_ORDRE != None",
8024              AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
8025            ),
8026          ),
8027          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,)),
8028          EXCIT           =FACT(statut='o',min=01,max=01,
8029            regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I'),
8030                    EXCLUS('CHAM_NO','NOEUD'),),
8031            DERIVATION      =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ) ),
8032            MODAL           =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8033 #  dans la doc U il y a plus de choix pour GRANDEUR
8034            GRANDEUR        =SIMP(statut='f',typ='TXM',defaut="DEPL_R",
8035                                  into=("DEPL_R","EFFO","SOUR_DEBI_VOLU","SOUR_DEBI_MASS","SOUR_PRESS","SOUR_FORCE")),
8036            INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
8037            NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
8038            OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG",) ),
8039 #  Toutes les regles ne semblent pas avoir été ecrites dans la doc U
8040            NUME_ORDRE_I    =SIMP(statut='f',typ='I',max='**'),
8041            NOEUD_I         =SIMP(statut='f',typ=no,max='**'),
8042            b_nume_ordre_i  =BLOC(condition = "NUME_ORDRE_I != None",
8043              NUME_ORDRE_J    =SIMP(statut='o',typ='I',max='**'),
8044            ),
8045            b_noeud_i       =BLOC(condition = "NOEUD_I != None",
8046              NOEUD_J         =SIMP(statut='o',typ=no,max='**'),
8047              NOM_CMP_I       =SIMP(statut='o',typ='TXM',max='**'),
8048              NOM_CMP_J       =SIMP(statut='o',typ='TXM',max='**'),
8049            ),
8050            CHAM_NO         =SIMP(statut='f',typ=cham_no),
8051            NOEUD           =SIMP(statut='f',typ=no,max='**'),
8052            b_noeud         =BLOC(condition = "NOEUD != None",
8053              NOM_CMP         =SIMP(statut='o',typ='TXM',max='**'),
8054            ),
8055          ),
8056          REPONSE         =FACT(statut='f',min=01,max=01,
8057            regles=(EXCLUS('FREQ_MIN','NB_POIN_MODE'),
8058                    EXCLUS('FREQ_MIN','FREQ_EXCIT'),
8059                    ENSEMBLE('FREQ_MIN','FREQ_MAX'),),
8060 #  Toutes les regles ne semblent pas avoir été ecrites dans la doc U
8061            DERIVATION      =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ,) ),
8062            OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
8063            FREQ_MIN        =SIMP(statut='f',typ='R' ),
8064            FREQ_MAX        =SIMP(statut='f',typ='R' ),
8065            PAS             =SIMP(statut='f',typ='R' ),
8066            FREQ_EXCIT      =SIMP(statut='f',typ='TXM',defaut="AVEC",into=("AVEC","SANS") ),
8067            NB_POIN_MODE    =SIMP(statut='f',typ='I',defaut= 50 ),
8068          ),
8069          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8070          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
8071 )  ;
8072 #& MODIF COMMANDE  DATE 26/03/2002   AUTEUR CAMBIER S.CAMBIER
8073 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8074 # ======================================================================
8075 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8076 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8077 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8078 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8079 # (AT YOUR OPTION) ANY LATER VERSION.
8080 #
8081 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8082 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8083 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8084 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8085 #
8086 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8087 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8088 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8089 # ======================================================================
8090 def dyna_line_harm_prod(MATR_MASS,**args):
8091   if AsType(MATR_MASS) == matr_asse_depl_r : return dyna_harmo
8092   if AsType(MATR_MASS) == matr_asse_depl_c : return dyna_harmo
8093   if AsType(MATR_MASS) == matr_asse_pres_c : return acou_harmo
8094   if AsType(MATR_MASS) == matr_asse_gene_r : return harm_gene
8095   raise AsException("type de concept resultat non prevu")
8096
8097 DYNA_LINE_HARM=OPER(nom="DYNA_LINE_HARM",op=  60,sd_prod=dyna_line_harm_prod,
8098                     fr="Réponse dynamique complexe d un système à une excitation harmonique",
8099                     docu="U4.53.11-e",reentrant='n',
8100          regles=(PRESENT_ABSENT('AMOR_REDUIT','MATR_AMOR'),
8101                  PRESENT_ABSENT('AMOR_REDUIT','LIST_AMOR'),
8102                  PRESENT_ABSENT('MATR_AMOR','LIST_AMOR'),
8103                  UN_PARMI('FREQ','LIST_FREQ'),),
8104          MODELE          =SIMP(statut='f',typ=modele ),
8105          CHAM_MATER      =SIMP(statut='f',typ=cham_mater ),
8106          CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
8107          MATR_MASS       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_pres_c,matr_asse_gene_r ) ),
8108          MATR_RIGI       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_pres_c
8109                                               ,matr_asse_gene_r,matr_asse_gene_c ) ),
8110          MATR_AMOR       =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_pres_c,matr_asse_gene_r ) ),
8111          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
8112          LIST_AMOR       =SIMP(statut='f',typ=listr8 ),
8113          MATR_IMPE_PHI   =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_gene_r) ),
8114          FREQ            =SIMP(statut='f',typ='R',max='**'),
8115          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
8116          TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI",)),
8117          NOM_CHAM        =SIMP(statut='f',typ='TXM',max=03,into=("DEPL","VITE","ACCE") ),
8118          EXCIT           =FACT(statut='o',min=01,max='**',
8119            regles=(UN_PARMI('VECT_ASSE','CHARGE'),
8120                    UN_PARMI('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
8121            VECT_ASSE       =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_pres_c,vect_asse_gene ) ),
8122            CHARGE          =SIMP(statut='f',typ=char_meca ),
8123            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
8124            FONC_MULT_C     =SIMP(statut='f',typ=fonction_c ),
8125            COEF_MULT_C     =SIMP(statut='f',typ='C' ),
8126            FONC_MULT       =SIMP(statut='f',typ=fonction ),
8127            COEF_MULT       =SIMP(statut='f',typ='R' ),
8128            PHAS_DEG        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8129            PUIS_PULS       =SIMP(statut='f',typ='I',defaut= 0 ),
8130          ),
8131          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8132          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
8133                                fr="Liste des paramètres de sensibilité.",
8134                                ang="List of sensitivity parameters"),
8135 )  ;
8136 # Rajouter test icompatibilite vect_asse et sensibilite
8137 # Peut-on aussi rajouter ici le test d incompatibilite charge complexe - derivation
8138 #  presents dans le Fortran
8139 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
8140 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8141 # ======================================================================
8142 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8143 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8144 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8145 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8146 # (AT YOUR OPTION) ANY LATER VERSION.
8147 #
8148 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8149 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8150 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8151 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8152 #
8153 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8154 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8155 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8156 # ======================================================================
8157 DYNA_LINE_TRAN=OPER(nom="DYNA_LINE_TRAN",op=  48,sd_prod=dyna_trans,
8158                     fr="Réponse temporelle d un système à une excitation transitoire",
8159                     docu="U4.53.02-g1",reentrant='f',
8160 #         regles=(UN_PARMI('WILSON','DIFF_CENTRE','ADAPT'),),
8161          regles=(UN_PARMI('NEWMARK','WILSON','DIFF_CENTRE','ADAPT'),),
8162          MODELE          =SIMP(statut='f',typ=modele ),
8163          CHAM_MATER      =SIMP(statut='f',typ=cham_mater ),
8164          CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
8165          MATR_MASS       =SIMP(statut='o',typ=matr_asse_depl_r ),
8166          MATR_RIGI       =SIMP(statut='o',typ=matr_asse_depl_r ),
8167          MATR_AMOR       =SIMP(statut='f',typ=matr_asse_depl_r ),
8168          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
8169          NEWMARK         =FACT(statut='f',min=01,max=01,
8170            ALPHA           =SIMP(statut='f',typ='R',defaut= 0.25 ),
8171            DELTA           =SIMP(statut='f',typ='R',defaut= 0.5 ),
8172          ),
8173          WILSON          =FACT(statut='f',min=01,max=01,
8174            THETA           =SIMP(statut='f',typ='R',defaut= 1.4 ),
8175          ),
8176          DIFF_CENTRE     =FACT(statut='f',min=01,max=01,
8177          ),
8178          ADAPT           =FACT(statut='f',min=01,max=01,
8179          ),
8180          ETAT_INIT       =FACT(statut='f',min=01,max=01,
8181            regles=(AU_MOINS_UN('DYNA_TRANS', 'DEPL_INIT', 'VITE_INIT',),
8182                    PRESENT_ABSENT('DYNA_TRANS', 'DEPL_INIT', 'VITE_INIT'),),
8183            DYNA_TRANS      =SIMP(statut='f',typ=dyna_trans ),
8184            b_dyna_trans    =BLOC(condition = "DYNA_TRANS != None",
8185              regles=(EXCLUS('NUME_INIT','INST_INIT' ),),
8186              NUME_INIT       =SIMP(statut='f',typ='I' ),
8187              INST_INIT       =SIMP(statut='f',typ='R' ),
8188              b_inst_init     =BLOC(condition = "INST_INIT != None",
8189                PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
8190                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8191              ),
8192            ),
8193            DEPL_INIT       =SIMP(statut='f',typ=(cham_no_depl_r) ),
8194            VITE_INIT       =SIMP(statut='f',typ=(cham_no_depl_r) ),
8195          ),
8196          EXCIT           =FACT(statut='f',min=01,max='**',
8197            regles=(UN_PARMI('CHARGE','VECT_ASSE'),
8198                    EXCLUS('CHARGE','COEF_MULT'),
8199                    EXCLUS('FONC_MULT','COEF_MULT'),
8200                    EXCLUS('ACCE','COEF_MULT'),
8201                    PRESENT_ABSENT('ACCE','FONC_MULT'),
8202                    PRESENT_PRESENT('ACCE','VITE','DEPL'),
8203                    PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
8204            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
8205            CHARGE          =SIMP(statut='f',typ=char_meca ),
8206            FONC_MULT       =SIMP(statut='f',typ=fonction ),
8207            COEF_MULT       =SIMP(statut='f',typ='R' ),
8208            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
8209            ACCE            =SIMP(statut='f',typ=fonction ),
8210            VITE            =SIMP(statut='f',typ=fonction ),
8211            DEPL            =SIMP(statut='f',typ=fonction ),
8212            MULT_APPUI      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
8213            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
8214            NOEUD           =SIMP(statut='f',typ=no,max='**'),
8215            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
8216          ),
8217          AMOR_MODAL      =FACT(statut='f',min=01,max=01,
8218            MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
8219            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
8220            NB_MODE         =SIMP(statut='f',typ='I',defaut= 9999 ),
8221            REAC_VITE       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8222          ),
8223 #  ce n est pas le mot clesolveur standard
8224          SOLVEUR         =FACT(statut='d',min=01,max=01,
8225            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8226            NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
8227            STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8228            RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8229            NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
8230          ),
8231          INCREMENT       =FACT(statut='o',min=01,max='**',
8232            regles=(UN_PARMI('LIST_INST','FONC_INST','PAS'),),
8233            LIST_INST       =SIMP(statut='f',typ=listr8 ),
8234            FONC_INST       =SIMP(statut='f',typ=fonction ),
8235            PAS             =SIMP(statut='f',typ='R' ),
8236            b_pas           =BLOC(condition = "PAS != None",
8237                INST_INIT       =SIMP(statut='f',typ='R' ),
8238                INST_FIN        =SIMP(statut='f',typ='R' ),
8239            ),
8240            b_list_fonc     =BLOC(condition = "LIST_INST != None or FONC_INST != None",
8241                regles=(EXCLUS('INST_FIN','NUME_FIN'),),
8242                NUME_FIN        =SIMP(statut='f',typ='I' ),
8243                INST_FIN        =SIMP(statut='f',typ='R' ),
8244            ),
8245            VITE_MIN        =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
8246            COEF_MULT_PAS   =SIMP(statut='f',typ='R',defaut= 1.1 ),
8247            COEF_DIVI_PAS   =SIMP(statut='f',typ='R',defaut= 1.33334 ),
8248            PAS_LIMI_RELA   =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8249            NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
8250            NMAX_ITER_PAS   =SIMP(statut='f',typ='I',defaut= 16 ),
8251            PAS_CALCUL      =SIMP(statut='f',typ='I',defaut= 1 ),
8252          ),
8253          ARCHIVAGE       =FACT(statut='f',min=01,max=01,
8254            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH', ),),
8255            LIST_ARCH       =SIMP(statut='f',typ=listis ),
8256            PAS_ARCH        =SIMP(statut='f',typ='I' ),
8257            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","VITE","ACCE") ),
8258          ),
8259          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8260          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
8261 )  ;
8262 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
8263 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8264 # ======================================================================
8265 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8266 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8267 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8268 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8269 # (AT YOUR OPTION) ANY LATER VERSION.
8270 #
8271 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8272 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8273 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8274 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8275 #
8276 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8277 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8278 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8279 # ======================================================================
8280 DYNA_NON_LINE=OPER(nom="DYNA_NON_LINE",op= 70,sd_prod=evol_noli,reentrant='f',
8281                    fr="Analyse mécanique dynamique non linéaire",docu="U4.53.01-f2",
8282          regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS',),
8283                  UN_PARMI('NEWMARK','HHT', ),),
8284          MODELE          =SIMP(statut='o',typ=modele),
8285          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
8286          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,)),
8287          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
8288          EXCIT           =FACT(statut='o',min=1,max='**',
8289            regles=(PRESENT_ABSENT('FONC_MULT','ACCE'),
8290                    PRESENT_PRESENT('ACCE','VITE','DEPL'),
8291                    PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
8292            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
8293                                  into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
8294            CHARGE          =SIMP(statut='o',typ=char_meca),
8295            FONC_MULT       =SIMP(statut='f',typ=fonction),
8296            DEPL            =SIMP(statut='f',typ=fonction),
8297            ACCE            =SIMP(statut='f',typ=fonction),
8298            VITE            =SIMP(statut='f',typ=fonction),
8299            MULT_APPUI      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8300            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
8301            NOEUD           =SIMP(statut='f',typ=no,max='**'),
8302            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
8303          ),
8304          AMOR_MODAL      =FACT(statut='f',min=1,max=1,
8305            MODE_MECA       =SIMP(statut='f',typ=mode_meca),
8306            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**' ),
8307            NB_MODE         =SIMP(statut='f',typ='I',defaut= 9999 ),
8308            REAC_VITE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8309          ),
8310          VARI_COMM           =FACT(statut='f',
8311            regles=(AU_MOINS_UN('IRRA',),),
8312            IRRA     =SIMP(statut='f',typ=evol_varc),
8313          ),
8314          COMP_INCR       =FACT(statut='f',min=1,max='**',
8315            RELATION        =SIMP(statut='o',typ='TXM',defaut="VMIS_ISOT_TRAC",
8316                                  into=( "ELAS",
8317                                         "VMIS_ISOT_TRAC",
8318                                         "VMIS_ISOT_LINE",
8319                                         "VMIS_ECMI_TRAC",
8320                                         "VMIS_ECMI_LINE",
8321                                         "LABORD_1D",
8322                                         "ENDO_FRAGILE",
8323                                         "ENDO_ISOT_BETON",
8324                                         "MAZARS",
8325                                         "RUPT_FRAG",
8326                                         "BARENBLATT",
8327                                         "META_P_IL",
8328                                         "META_P_IL_PT",
8329                                         "META_P_IL_RE",
8330                                         "META_P_IL_PT_RE",
8331                                         "META_V_IL",
8332                                         "META_V_IL_PT",
8333                                         "META_V_IL_RE",
8334                                         "META_V_IL_PT_RE",
8335                                         "META_P_INL",
8336                                         "META_P_INL_PT",
8337                                         "META_P_INL_RE",
8338                                         "META_P_INL_PT_RE",
8339                                         "META_V_INL",
8340                                         "META_V_INL_PT",
8341                                         "META_V_INL_RE",
8342                                         "META_V_INL_PT_RE",
8343                                         "META_P_CL",
8344                                         "META_P_CL_PT",
8345                                         "META_P_CL_RE",
8346                                         "META_P_CL_PT_RE",
8347                                         "META_V_CL",
8348                                         "META_V_CL_PT",
8349                                         "META_V_CL_RE",
8350                                         "META_V_CL_PT_RE",
8351                                         "VMIS_CINE_LINE",
8352                                         "VISC_TAHERI",
8353                                         "CHABOCHE",
8354                                         "VISCOCHAB",
8355                                         "VMIS_CIN1_CHAB",
8356                                         "VMIS_CIN2_CHAB",
8357                                         "POLY_CFC",
8358                                         "LMARC",
8359                                         "ROUSSELIER",
8360                                         "ROUSS_PR",
8361                                         "ROUSS_VISC",
8362                                         "VMIS_POU_LINE",
8363                                         "VMIS_POU_FLEJOU",
8364                                         "COULOMB",
8365                                         "ARME",
8366                                         "ASSE_CORN",
8367                                         "NORTON_HOFF",
8368                                         "LEMAITRE",
8369                                         "ZIRC_CYRA2",
8370                                         "ZIRC_EPRI",
8371                                         "ASSE_COMBU",
8372                                         "VENDOCHAB",
8373                                         "NADAI_B",
8374                                         "DIS_CONTACT",
8375                                         "DIS_CHOC",
8376                                         "DIS_GOUJ2E_PLAS",
8377                                         "DIS_GOUJ2E_ELAS",
8378                                         "GRILLE_ISOT_LINE",
8379                                         "GRILLE_CINE_LINE",
8380                                         "GRILLE_PINTO_MEN",
8381                                         "PINTO_MENEGOTTO",
8382                                         "CJS",
8383                                         "CAM_CLAY",
8384                                         "LAIGLE",
8385                                         "OHNO",
8386                                         "GRANGER_FP",
8387                                         "GRANGER_FP_V",
8388                                         "GRANGER_FD",
8389                                         "BETON_DOUBLE_DP",
8390                                         "KIT_HM",
8391                                         "KIT_HHM",
8392                                         "KIT_THH",
8393                                         "KIT_THM",
8394                                         "KIT_THHM",
8395                                         "VMIS_ASYM_LINE",
8396                                         "ELAS_THM",
8397                                         "SURF_ETAT_NSAT",
8398                                         "SURF_ETAT_SATU",
8399                                         "CAM_CLAY_THM",
8400                                         "KIT_DDI",
8401                                      ) ),
8402            ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8403            VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8404            VMIS_ISOT_LINE  =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8405            VMIS_ECMI_TRAC  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8406            VMIS_ECMI_LINE  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8407            LABORD_1D   =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
8408            ENDO_FRAGILE    =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8409            ENDO_ISOT_BETON =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8410            MAZARS          =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8411            BETON_GRAD_EPSI =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8412            RUPT_FRAG       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8413            BARENBLATT      =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8414            META_P_IL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8415           META_P_IL_PT       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8416           META_P_IL_RE       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8417           META_P_IL_PT_RE    =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8418           META_V_IL          =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8419           META_V_IL_PT       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8420           META_V_IL_RE       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8421           META_V_IL_PT_RE    =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8422           META_P_INL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8423           META_P_INL_PT      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8424           META_P_INL_RE      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8425           META_P_INL_PT_RE   =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8426           META_V_INL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8427           META_V_INL_PT      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8428           META_V_INL_RE      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8429           META_V_INL_PT_RE   =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8430           META_P_CL          =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8431           META_P_CL_PT       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8432           META_P_CL_RE       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8433           META_P_CL_PT_RE    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8434           META_V_CL          =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8435           META_V_CL_PT       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8436           META_V_CL_RE       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8437           META_V_CL_PT_RE    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8438            VMIS_CINE_LINE  =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
8439            CHABOCHE        =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
8440            VISCOCHAB       =SIMP(statut='c',typ='I',defaut=28,into=(28,)),
8441            VMIS_CIN1_CHAB  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8442            VMIS_CIN2_CHAB  =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
8443            POLY_CFC        =SIMP(statut='c',typ='I',defaut=1688,into=(1688,)),
8444            LMARC           =SIMP(statut='c',typ='I',defaut=20,into=(20,)),
8445            VISC_TAHERI     =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
8446            ROUSSELIER      =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
8447            ROUSS_PR        =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8448            ROUSS_VISC      =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8449            VMIS_POU_LINE   =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
8450            VMIS_POU_FLEJOU =SIMP(statut='c',typ='I',defaut=9 ,into=(9,)),
8451            COULOMB         =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8452            ASSE_CORN       =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8453            ARME            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8454            NORTON_HOFF     =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8455            LEMAITRE        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8456            ZIRC_CYRA2      =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8457            ZIRC_EPRI       =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8458            ASSE_COMBU      =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
8459            NADAI_B         =SIMP(statut='c',typ='I',defaut=34,into=(34,)),
8460            VENDOCHAB       =SIMP(statut='c',typ='I',defaut=10,into=(10,)),
8461            GRILLE_ISOT_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8462            GRILLE_CINE_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8463            GRILLE_PINTO_MEN=SIMP(statut='c',typ='I',defaut=16,into=(16,)),
8464            DIS_CONTACT     =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8465            DIS_CHOC        =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
8466            DIS_GOUJ2E_PLAS =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8467            DIS_GOUJ2E_ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8468            PINTO_MENEGOTTO =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8469            CJS             =SIMP(statut='c',typ='I',defaut=16,into=(16,)),
8470            CAM_CLAY        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8471            LAIGLE          =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8472            OHNO            =SIMP(statut='c',typ='I',defaut=32,into=(32,)),
8473            GRANGER_FP      =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
8474            GRANGER_FP_V    =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
8475            GRANGER_FD       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8476            BETON_DOUBLE_DP =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8477            KIT_HM          =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8478            KIT_HHM         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8479            KIT_THH         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8480            KIT_THM         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8481            KIT_THHM        =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8482            VMIS_ASYM_LINE  =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8483
8484            RELATION_KIT    =SIMP(statut='f',typ='TXM',max='**',
8485                                  into=(
8486 # MECA
8487                                        "ELAS",
8488                                        "CJS",
8489                                        "LAIGLE",
8490                                        "CAM_CLAY",
8491                                        "ELAS_THM",
8492                                        "SURF_ETAT_NSAT",
8493                                        "SURF_ETAT_SATU",
8494                                        "CAM_CLAY_THM",
8495 # THMC
8496                                        "GAZ",
8497                                        "LIQU_SATU",
8498                                        "LIQU_SATU_GAT",
8499                                        "LIQU_GAZ_ATM",
8500                                        "LIQU_VAPE_GAZ",
8501                                        "LIQU_NSAT_GAT",
8502                                        "LIQU_GAZ",
8503 # THER
8504                                        "THER_HOMO",
8505                                        "THER_POLY",
8506 # HYDR
8507                                        "HYDR_UTIL",
8508                                        "HYDR",
8509 # MECA_META
8510                                        "ACIER",
8511                                        "ZIRC",
8512 # MECA KIT_DDI
8513                                        "VMIS_ISOT_TRAC",
8514                                        "VMIS_ISOT_LINE",
8515                                        "VMIS_ISOT_CINE",
8516                                        "GRANGER_FP",
8517                                        "GRANGER_FP_V",
8518                                        "ROUSSELIER",
8519                                        "CHABOCHE",
8520                                        "OHNO",
8521                                        "NADAI_B",
8522                                        "BETON_DOUBLE_DP",
8523                                        ) ),
8524            ELAS_THM        =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8525            SURF_ETAT_NSAT  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8526            SURF_ETAT_SATU  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8527            CAM_CLAY_THM    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8528            GAZ             =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8529            LIQU_SATU       =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8530            LIQU_SATU_GAT   =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8531            LIQU_GAZ_ATM    =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8532            LIQU_VAPE_GAZ   =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8533            LIQU_NSAT_GAT   =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8534            LIQU_GAZ        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8535            THER_HOMO       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8536            THER_POLY       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8537            HYDR_UTIL       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8538            HYDR            =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8539            ACIER           =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
8540            ZIRC            =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8541
8542            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC","SIMO_MIEHE","GREEN_GR","GREEN",)),
8543            ALGO_C_PLAN     =SIMP(statut='f',typ='TXM',defaut="ANALYTIQUE",into=("DEBORST","ANALYTIQUE",)),
8544       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
8545            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8546            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
8547            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
8548          ),
8549          COMP_ELAS       =FACT(statut='f',min=1,max='**',
8550            RELATION        =SIMP(statut='o',typ='TXM',defaut="ELAS",
8551                                  into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
8552                                        "ELAS_POUTRE_GR","CABLE")),
8553            ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8554            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8555            ELAS_VMIS_LINE  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8556            ELAS_POUTRE_GR  =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8557            CABLE           =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8558            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GREEN","GREEN_GR",) ),
8559       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
8560            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8561            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
8562            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
8563          ),
8564 #-------------------------------------------------------------------
8565          ETAT_INIT       =FACT(statut='f',min=1,max=1,
8566            regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','VITE','SIGM','VARI','VARI_NON_LOCAL',),
8567                    EXCLUS('EVOL_NOLI','DEPL',),
8568                    EXCLUS('EVOL_NOLI','VITE'),
8569                    EXCLUS('EVOL_NOLI','SIGM',),
8570                    EXCLUS('EVOL_NOLI','VARI',),
8571                    EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
8572                    EXCLUS('NUME_ORDRE','INST'), ),
8573            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
8574            VITE            =SIMP(statut='f',typ=cham_no_depl_r),
8575            SIGM            =SIMP(statut='f',typ=(cham_elem_sief_r,carte_sief_r)),
8576            VARI            =SIMP(statut='f',typ=cham_elem_vari_r),
8577            VARI_NON_LOCAL  =SIMP(statut='f',typ=cham_no_vanl_r),
8578            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
8579            NUME_ORDRE      =SIMP(statut='f',typ='I'),
8580            INST            =SIMP(statut='f',typ='R'),
8581            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
8582            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8583            NUME_DIDI       =SIMP(statut='f',typ='I'),
8584            INST_ETAT_INIT  =SIMP(statut='f',typ='R'),
8585          ),
8586 #-------------------------------------------------------------------
8587          INCREMENT       =FACT(statut='o',min=1,max=1,
8588            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
8589                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
8590            LIST_INST       =SIMP(statut='o',typ=listr8),
8591            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
8592                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
8593            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
8594            INST_INIT       =SIMP(statut='f',typ='R'),
8595            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
8596            INST_FIN        =SIMP(statut='f',typ='R'),
8597            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
8598            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
8599            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
8600            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8601            OPTI_LIST_INST  =SIMP(statut='f',typ='TXM',into=("INCR_MAXI",),),
8602            NOM_CHAM        =SIMP(statut='f',typ='TXM',),
8603            NOM_CMP         =SIMP(statut='f',typ='TXM',),
8604            VALE            =SIMP(statut='f',typ='R'),
8605          ),
8606 #-------------------------------------------------------------------
8607          NEWMARK         =FACT(statut='f',min=1,max=1,
8608            ALPHA           =SIMP(statut='f',typ='R',defaut= 0.25),
8609            DELTA           =SIMP(statut='f',typ='R',defaut= 0.5),
8610          ),
8611          HHT             =FACT(statut='f',min=1,max=1,
8612            ALPHA           =SIMP(statut='f',typ='R'
8613                                 ,defaut= -0.29999999999999999 ),
8614          ),
8615          NEWTON          =FACT(statut='d',min=1,max=1,
8616            REAC_INCR       =SIMP(statut='f',typ='I',defaut= 1 ),
8617            PREDICTION      =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE") ),
8618            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
8619            REAC_ITER       =SIMP(statut='f',typ='I',defaut= 0),
8620            PAS_MINI_ELAS   =SIMP(statut='f',typ='R',defaut=0.0E+0),
8621          ),
8622          SOLVEUR         =FACT(statut='d',min=1,max=1,
8623            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
8624            b_mult_front    =BLOC(condition= "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
8625              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
8626            ),
8627            b_ldlt          =BLOC(condition= "METHODE == 'LDLT'",fr="Paramètres de la méthode LDLT",
8628              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8629            ),
8630            b_ldlt_mult     =BLOC(condition="METHODE == 'LDLT' or METHODE == 'MULT_FRONT'",
8631                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
8632              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
8633              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","DECOUPE") ),
8634            ),
8635            b_gcpc          =BLOC(condition="METHODE == 'GCPC'",fr="Paramètres de la méthode du gradient conjugué",
8636              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
8637              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
8638              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
8639              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8640              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
8641            ),
8642            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8643            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8644          ),
8645 #-------------------------------------------------------------------
8646          RECH_LINEAIRE   =FACT(statut='f',min=1,max=1,
8647            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
8648            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 3),
8649          ),
8650          PILOTAGE        =FACT(statut='f',min=1,max=1,
8651            regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
8652            TYPE            =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","PRED_ELAS_INCR","DEFORMATION") ),
8653            COEF_MULT       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8654            ETA_PILO_MAX    =SIMP(statut='f',typ='R'),
8655            ETA_PILO_MIN    =SIMP(statut='f',typ='R'),
8656            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8657            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
8658            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
8659            NOEUD           =SIMP(statut='f',typ=no,max='**'),
8660            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
8661            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**' ),
8662                          ),
8663          CONVERGENCE     =FACT(statut='d',min=1,max=1,
8664            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
8665            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
8666            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
8667            ITER_GLOB_ELAS  =SIMP(statut='f',typ='I',defaut=25),
8668            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
8669            RESI_INTE_RELA  =SIMP(statut='f',typ='R'
8670                                 ,defaut= 1.0E-6),
8671            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
8672            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut= 0 ),
8673            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
8674            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
8675                                  into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
8676          ),
8677 #-------------------------------------------------------------------
8678          OPTION          =SIMP(statut='f',typ='TXM',max='**',defaut="ELNO",
8679                                into=("SIEF_ELNO_ELGA","VARI_ELNO_ELGA","EFGE_ELNO_CART","ELNO","SANS") ),
8680          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
8681            regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
8682                    EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
8683            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
8684            INST            =SIMP(statut='f',typ='R',max='**' ),
8685            PAS_ARCH        =SIMP(statut='f',typ='I' ),
8686            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
8687            ARCH_ETAT_INIT  =SIMP(statut='f',typ='TXM',into=("OUI",)),
8688            NUME_INIT       =SIMP(statut='f',typ='I'),
8689            DETR_NUME_SUIV  =SIMP(statut='f',typ='TXM',into=("OUI",)),
8690            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**',
8691            into=("DEPL","SIEF_ELGA","VARI_ELGA","ACCE","VITE","VARI_NON_LOCAL","LANL_ELGA")),
8692          ),
8693          OBSERVATION     =FACT(statut='f',min=1,max='**',
8694            regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
8695                    PRESENT_PRESENT('MAILLE','POINT'),),
8696            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
8697
8698 into=("DEPL","VITE","ACCE","SIEF_ELGA","VARI_ELGA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU") ),
8699            NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
8700            LIST_ARCH       =SIMP(statut='f',typ=listis),
8701            LIST_INST       =SIMP(statut='f',typ=listr8),
8702            INST            =SIMP(statut='f',typ='R',max='**' ),
8703            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
8704            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8705            PAS_OBSE        =SIMP(statut='f',typ='I'),
8706            NOEUD           =SIMP(statut='f',typ=no,max='**'),
8707            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
8708            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
8709            POINT           =SIMP(statut='f',typ='I',max='**'),
8710          ),
8711 #-------------------------------------------------------------------
8712            SOLV_NON_LOCAL  =FACT(statut='f',min=1,max=1,
8713              METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
8714              b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
8715                RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
8716              ),
8717              b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
8718                RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8719              ),
8720              b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
8721                                     fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
8722                NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
8723                STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8724              ),
8725              b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
8726                PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
8727                NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
8728                RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8729                NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
8730              ),
8731              EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8732            ),
8733            LAGR_NON_LOCAL  =FACT(statut='f',max=1,
8734              ITER_DUAL_MAXI  =SIMP(statut='f',typ='I',defaut= 50),
8735              RESI_DUAL_ABSO  =SIMP(statut='o',typ='R'),
8736              RESI_PRIM_ABSO  =SIMP(statut='o',typ='R'),
8737              R               =SIMP(statut='f',typ='R',defaut= 1000.),
8738              ITER_PRIM_MAXI  =SIMP(statut='f',typ='I',defaut= 10),
8739            ),
8740 #-------------------------------------------------------------------
8741          PARM_THETA      =SIMP(statut='f',typ='R'
8742                               ,defaut= 1. ),
8743 #-------------------------------------------------------------------
8744          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
8745          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8746 )  ;
8747 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
8748 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8749 # ======================================================================
8750 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8751 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8752 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8753 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8754 # (AT YOUR OPTION) ANY LATER VERSION.
8755 #
8756 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8757 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8758 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8759 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8760 #
8761 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8762 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8763 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8764 # ======================================================================
8765 DYNA_SPEC_MODAL=OPER(nom="DYNA_SPEC_MODAL",op= 147,sd_prod=tabl_intsp,
8766                      fr="Calcul de la réponse par recombinaison modale d'une structure linéaire pour une excitation aléatoire",
8767                      docu="U4.53.23-c",reentrant='n',
8768          BASE_ELAS_FLUI  =SIMP(statut='o',typ=melasflu ),
8769          EXCIT           =FACT(statut='o',min=00,max=01,
8770            INTE_SPEC_GENE  =SIMP(statut='o',typ=tabl_intsp ),
8771          ),
8772          OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
8773          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8774 )  ;
8775 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
8776 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8777 # ======================================================================
8778 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8779 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8780 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8781 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8782 # (AT YOUR OPTION) ANY LATER VERSION.
8783 #
8784 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8785 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8786 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8787 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8788 #
8789 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8790 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8791 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8792 # ======================================================================
8793 DYNA_TRAN_MODAL=OPER(nom="DYNA_TRAN_MODAL",op=  74,sd_prod=tran_gene,
8794                      fr="Réponse dynamique transitoire en coordonnées généralisées par recombinaison modale",
8795                      docu="U4.53.21-f1",reentrant='f',
8796       regles=(EXCLUS('AMOR_REDUIT','AMOR_GENE','LIST_AMOR'),
8797               PRESENT_ABSENT('MODE_STAT','MODE_CORR'),),
8798          METHODE         =SIMP(statut='f',typ='TXM',defaut="EULER",
8799                                into=("EULER","NEWMARK","DEVOGE","ADAPT","ITMI") ),
8800          MASS_GENE       =SIMP(statut='o',typ=matr_asse_gene_r ),
8801          RIGI_GENE       =SIMP(statut='o',typ=matr_asse_gene_r ),
8802          AMOR_GENE       =SIMP(statut='f',typ=matr_asse_gene_r ),
8803          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
8804          LIST_AMOR       =SIMP(statut='f',typ=listr8 ),
8805          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc) ),
8806          MODE_CORR       =SIMP(statut='f',typ=(mult_elas,mode_stat_acce) ,),
8807
8808          ETAT_INIT       =FACT(statut='f',min=01,max=01,
8809            regles=(EXCLUS('RESU_GENE','DEPL_INIT_GENE'),
8810                    EXCLUS('RESU_GENE','VITE_INIT_GENE'),),
8811            RESU_GENE       =SIMP(statut='f',typ=tran_gene ),
8812            b_resu_gene     =BLOC(condition = "RESU_GENE != None",
8813              INST_INIT       =SIMP(statut='f',typ='R' ),
8814              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
8815              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8816            ),
8817            DEPL_INIT_GENE  =SIMP(statut='f',typ=vect_asse_gene ),
8818            VITE_INIT_GENE  =SIMP(statut='f',typ=vect_asse_gene ),
8819          ),
8820          INCREMENT       =FACT(statut='o',min=01,max='**',
8821            INST_INIT       =SIMP(statut='f',typ='R' ),
8822            INST_FIN        =SIMP(statut='o',typ='R' ),
8823            PAS             =SIMP(statut='f',typ='R' ),
8824            VERI_PAS        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8825            VITE_MIN        =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
8826            COEF_MULT_PAS   =SIMP(statut='f',typ='R',defaut= 1.1 ),
8827            COEF_DIVI_PAS   =SIMP(statut='f',typ='R',defaut= 1.3333334 ),
8828            PAS_LIMI_RELA   =SIMP(statut='f',typ='R',defaut= 1.0E-6 ),
8829            NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
8830            NMAX_ITER_PAS   =SIMP(statut='f',typ='I',defaut= 16 ),
8831          ),
8832          ARCHIVAGE       =FACT(statut='f',min=01,max=01,
8833            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH'),),
8834            LIST_ARCH       =SIMP(statut='f',typ=listis ),
8835            PAS_ARCH        =SIMP(statut='f',typ='I' ),
8836          ),
8837
8838          NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 20 ),
8839          RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
8840          LAMBDA          =SIMP(statut='f',typ='R',defaut= 10. ),
8841
8842          EXCIT           =FACT(statut='f',min=01,max='**',
8843            regles=(UN_PARMI('FONC_MULT','COEF_MULT','ACCE'),
8844                    PRESENT_PRESENT('ACCE','VITE','DEPL'),
8845                    PRESENT_PRESENT('D_FONC_DT','D_FONC_DT2'),
8846                    PRESENT_ABSENT('NUME_MODE','VECT_GENE','COEF_MULT'),
8847                    PRESENT_ABSENT('MULT_APPUI','CORR_STAT'),
8848                    PRESENT_ABSENT('MULT_APPUI','COEF_MULT'),
8849                    PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
8850            VECT_GENE       =SIMP(statut='f',typ=vect_asse_gene ),
8851            NUME_MODE       =SIMP(statut='f',typ='I' ),
8852            FONC_MULT       =SIMP(statut='f',typ=fonction ),
8853            COEF_MULT       =SIMP(statut='f',typ='R' ),
8854            ACCE            =SIMP(statut='f',typ=fonction ),
8855            VITE            =SIMP(statut='f',typ=fonction ),
8856            DEPL            =SIMP(statut='f',typ=fonction ),
8857            MULT_APPUI      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8858            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
8859            b_loca          =BLOC(condition= "DIRECTION != None",
8860              regles=(EXCLUS('NOEUD','GROUP_NO'),),
8861              NOEUD           =SIMP(statut='f',typ=no,max='**'),
8862              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
8863            ),
8864            CORR_STAT       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8865            D_FONC_DT       =SIMP(statut='f',typ=fonction ),
8866            D_FONC_DT2      =SIMP(statut='f',typ=fonction ),
8867          ),
8868          CHOC            =FACT(statut='f',min=01,max='**',
8869            regles=(UN_PARMI('NOEUD_1','GROUP_NO_1' ),
8870                    PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
8871                    PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
8872            INTITULE        =SIMP(statut='f',typ='TXM' ),
8873            NOEUD_1         =SIMP(statut='f',typ=no),
8874            NOEUD_2         =SIMP(statut='f',typ=no),
8875            GROUP_NO_1      =SIMP(statut='f',typ=grno),
8876            GROUP_NO_2      =SIMP(statut='f',typ=grno),
8877            OBSTACLE        =SIMP(statut='o',typ=obstacle ),
8878            ORIG_OBST       =SIMP(statut='f',typ='R',min=3,max=3),
8879            NORM_OBST       =SIMP(statut='o',typ='R',min=3,max=3),
8880            ANGL_VRIL       =SIMP(statut='f',typ='R' ),
8881            JEU             =SIMP(statut='f',typ='R',defaut= 1. ),
8882            DIST_1          =SIMP(statut='f',typ='R',val_min=0.E+0 ),
8883            DIST_2          =SIMP(statut='f',typ='R',val_min=0.E+0 ),
8884            SOUS_STRUC_1    =SIMP(statut='f',typ='TXM' ),
8885            SOUS_STRUC_2    =SIMP(statut='f',typ='TXM' ),
8886            REPERE          =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
8887            RIGI_NOR        =SIMP(statut='f',typ='R' ),
8888            AMOR_NOR        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8889            RIGI_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8890            AMOR_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8891            COULOMB         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8892
8893            LAME_FLUIDE     =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8894            b_lame          =BLOC(condition="LAME_FLUIDE=='OUI'",
8895                ALPHA           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8896                BETA            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8897                CHI             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8898                DELTA           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8899            ),
8900          ),
8901          VERI_CHOC       =FACT(statut='f',min=01,max='**',
8902            STOP_CRITERE    =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8903            SEUIL           =SIMP(statut='f',typ='R',defaut= 0.5 ),
8904          ),
8905          FLAMBAGE        =FACT(statut='f',min=01,max='**',
8906            regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
8907                    PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
8908                    PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
8909            NOEUD_1         =SIMP(statut='f',typ=no),
8910            NOEUD_2         =SIMP(statut='f',typ=no),
8911            GROUP_NO_1      =SIMP(statut='f',typ=grno),
8912            GROUP_NO_2      =SIMP(statut='f',typ=grno),
8913            OBSTACLE        =SIMP(statut='o',typ=obstacle ),
8914            ORIG_OBST       =SIMP(statut='f',typ='R',max='**'),
8915            NORM_OBST       =SIMP(statut='o',typ='R',max='**'),
8916            ANGL_VRIL       =SIMP(statut='f',typ='R' ),
8917            JEU             =SIMP(statut='f',typ='R',defaut= 1. ),
8918            DIST_1          =SIMP(statut='f',typ='R' ),
8919            DIST_2          =SIMP(statut='f',typ='R' ),
8920            REPERE          =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
8921            RIGI_NOR        =SIMP(statut='f',typ='R' ),
8922            FNOR_CRIT       =SIMP(statut='f',typ='R' ),
8923            FNOR_POST_FL    =SIMP(statut='f',typ='R' ),
8924            RIGI_NOR_POST_FL=SIMP(statut='f',typ='R' ),
8925          ),
8926          ANTI_SISM       =FACT(statut='f',min=01,max='**',
8927            regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
8928                    UN_PARMI('NOEUD_2','GROUP_NO_2'),
8929                    PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
8930                    PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
8931            NOEUD_1         =SIMP(statut='f',typ=no),
8932            NOEUD_2         =SIMP(statut='f',typ=no),
8933            GROUP_NO_1      =SIMP(statut='f',typ=grno),
8934            GROUP_NO_2      =SIMP(statut='f',typ=grno),
8935            RIGI_K1         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8936            RIGI_K2         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8937            SEUIL_FX        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8938            C               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8939            PUIS_ALPHA      =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8940            DX_MAX          =SIMP(statut='f',typ='R',defaut= 1. ),
8941          ),
8942          RELA_EFFO_DEPL  =FACT(statut='f',min=01,max='**',
8943            NOEUD           =SIMP(statut='o',typ=no),
8944            SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
8945            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
8946            RELATION        =SIMP(statut='o',typ=fonction ),
8947          ),
8948          RELA_TRANSIS    =FACT(statut='f',min=01,max='**',
8949            NOEUD           =SIMP(statut='o',typ=no),
8950            SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
8951            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
8952            RELATION        =SIMP(statut='o',typ=fonction ),
8953          ),
8954          RELA_EFFO_VITE  =FACT(statut='f',min=01,max='**',
8955            NOEUD           =SIMP(statut='o',typ=no),
8956            SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
8957            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
8958            RELATION        =SIMP(statut='o',typ=fonction ),
8959          ),
8960          b_itmi          =BLOC(condition = "METHODE=='ITMI'",
8961                 regles=(ENSEMBLE('BASE_ELAS_FLUI','NUME_VITE_FLUI'),),
8962                 BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu ),
8963                 NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
8964                 ETAT_STAT       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8965                 PREC_DUREE      =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
8966                 CHOC_FLUI       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8967                 NB_MODE         =SIMP(statut='f',typ='I' ),
8968                 NB_MODE_FLUI    =SIMP(statut='f',typ='I' ),
8969                 NB_MODE_DIAG    =SIMP(statut='f',typ='I' ),
8970                 TS_REG_ETAB     =SIMP(statut='f',typ='R' ),
8971          ),
8972          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
8973          IMPRESSION      =FACT(statut='f',min=01,max='**',
8974            regles=(EXCLUS('TOUT','NIVEAU'),),
8975            TOUT            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8976            NIVEAU          =SIMP(statut='f',typ='TXM',into=("DEPL_LOC","VITE_LOC","FORC_LOC","TAUX_CHOC") ),
8977            INST_INIT       =SIMP(statut='f',typ='R' ),
8978            INST_FIN        =SIMP(statut='f',typ='R' ),
8979          ),
8980          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8981  )  ;
8982 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
8983 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8984 # ======================================================================
8985 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8986 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8987 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8988 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8989 # (AT YOUR OPTION) ANY LATER VERSION.
8990 #
8991 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8992 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8993 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8994 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8995 #
8996 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8997 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8998 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8999 # ======================================================================
9000 # RESPONSABLE VABHHTS J.PELLET
9001 ENGENDRE_TEST=PROC(nom="ENGENDRE_TEST",op=178,docu="U4.92.11-b",
9002       regles=(UN_PARMI('TOUT','CO'),),
9003          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
9004          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9005          CO              =SIMP(statut='f',typ=assd,max='**'),
9006          TYPE_TEST       =SIMP(statut='f',typ='TXM',defaut="SOMME",into=("SOMME","RESUME") ),
9007          FORMAT_R        =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
9008          PREC_R          =SIMP(statut='f',typ='TXM',defaut="1.E-5"),
9009 )  ;
9010 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9011 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9012 # ======================================================================
9013 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9014 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9015 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9016 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9017 # (AT YOUR OPTION) ANY LATER VERSION.
9018 #
9019 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9020 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9021 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9022 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9023 #
9024 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9025 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9026 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9027 # ======================================================================
9028 EXEC_LOGICIEL=PROC(nom="EXEC_LOGICIEL",op= 183,fr="",docu="U7.00.01-a",
9029          LOGICIEL        =SIMP(statut='f',typ='TXM' ),
9030          ARGUMENT        =FACT(statut='f',min=01,max='**',
9031            NOM_PARA        =SIMP(statut='f',typ='TXM' ),
9032          ),
9033 )  ;
9034 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9035 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9036 # ======================================================================
9037 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9038 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9039 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9040 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9041 # (AT YOUR OPTION) ANY LATER VERSION.
9042 #
9043 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9044 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9045 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9046 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9047 #
9048 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9049 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9050 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9051 # ======================================================================
9052 #def extr_mode_prod(FILTRE_MODE,TITRE,IMPRESSION ):
9053 #  Sait-on faire
9054 def extr_mode_prod(FILTRE_MODE,**args):
9055   vale=FILTRE_MODE[0]['MODE']
9056   if AsType(vale) == mode_meca   : return mode_meca
9057   if AsType(vale) == mode_meca_c : return mode_meca_c
9058   if AsType(vale) == mode_gene   : return mode_gene
9059   raise AsException("type de concept resultat non prevu")
9060
9061 EXTR_MODE=OPER(nom="EXTR_MODE",op= 168,sd_prod=extr_mode_prod,
9062                docu="U4.52.12-c",reentrant='n',
9063          FILTRE_MODE     =FACT(statut='o',min=01,max='**',
9064            regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','NUME_MODE','NUME_MODE_EXCLU','FREQ_MIN','CRIT_EXTR',),),
9065            MODE            =SIMP(statut='o',typ=(mode_meca,mode_meca_c,mode_gene ) ),
9066            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9067            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
9068            NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
9069            NUME_MODE_EXCLU =SIMP(statut='f',typ='I',max='**'),
9070            FREQ_MIN        =SIMP(statut='f',typ='R' ),
9071            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN"
9072                                   ,into=("MASS_EFFE_UN","MASS_GENE") ),
9073            b_freq_min      =BLOC(condition = "FREQ_MIN != None",
9074              FREQ_MAX        =SIMP(statut='o',typ='R' ),
9075              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9076            ),
9077            b_crit_extr     =BLOC(condition = "CRIT_EXTR != None",
9078              SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9079            ),
9080          ),
9081          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9082          IMPRESSION      =FACT(statut='f',min=01,max=01,
9083            CUMUL           =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9084            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",into=("MASS_EFFE_UN","MASS_GENE") ),
9085          ),
9086 )  ;
9087 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
9088 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9089 # ======================================================================
9090 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9091 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9092 #              REDISTRIBUTION OF THIS FILE.
9093 # ======================================================================
9094 def extr_resu_prod(RESULTAT,**args):
9095   if AsType(RESULTAT) == evol_elas    : return evol_elas
9096   if AsType(RESULTAT) == evol_noli    : return evol_noli
9097   if AsType(RESULTAT) == evol_ther    : return evol_ther
9098   if AsType(RESULTAT) == dyna_trans   : return dyna_trans
9099   if AsType(RESULTAT) == dyna_harmo   : return dyna_harmo
9100   if AsType(RESULTAT) == acou_harmo   : return acou_harmo
9101   if AsType(RESULTAT) == mode_meca    : return mode_meca
9102   if AsType(RESULTAT) == mode_acou    : return mode_acou
9103   if AsType(RESULTAT) == mode_stat :    return mode_stat
9104   if AsType(mode_stat) == mode_stat_depl :    return mode_stat_depl
9105   if AsType(mode_stat) == mode_stat_acce :    return mode_stat_acce
9106   if AsType(mode_stat) == mode_stat_forc :    return mode_stat_forc
9107   if AsType(RESULTAT) == mult_elas    : return mult_elas
9108   if AsType(RESULTAT) == fourier_elas : return fourier_elas
9109   raise AsException("type de concept resultat non prevu")
9110
9111 EXTR_RESU=OPER(nom="EXTR_RESU",op=176,sd_prod=extr_resu_prod,docu="U4.71.04-c2",reentrant='f',
9112          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
9113                                                mode_acou,mode_stat_depl,mode_stat_acce,mode_stat_forc,evol_ther,evol_noli,
9114                                                mult_elas,fourier_elas ) ),
9115
9116          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
9117                                    fr="Liste des paramètres de sensibilité.",
9118                                    ang="List of sensitivity parameters"),
9119
9120          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
9121            regles=(  UN_PARMI('NUME_ORDRE', 'INST', 'FREQ', 'NUME_MODE',
9122                         'NOEUD_CMP', 'LIST_INST', 'LIST_FREQ', 'LIST_ORDRE',
9123                         'NOM_CAS', 'LIST_ARCH', 'PAS_ARCH' ),
9124                      EXCLUS( 'CHAM_EXCLU','NOM_CHAM' ),   ),
9125            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**'),
9126            NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
9127            PRECISION       =SIMP(statut='f',typ='R',defaut=1.E-3 ),
9128            CRITERE         =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),defaut="RELATIF"),
9129            LIST_ARCH       =SIMP(statut='f',typ=listis),
9130            PAS_ARCH        =SIMP(statut='f',typ='I'),
9131            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
9132            LIST_ORDRE      =SIMP(statut='f',typ=listis),
9133            INST            =SIMP(statut='f',typ='R',max='**'),
9134            LIST_INST       =SIMP(statut='f',typ=listr8),
9135            FREQ            =SIMP(statut='f',typ='R',max='**'),
9136            LIST_FREQ       =SIMP(statut='f',typ=listr8),
9137            NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
9138            NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
9139            NOM_CAS         =SIMP(statut='f',typ='TXM'),
9140                                ),
9141
9142          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
9143 )  ;
9144 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9145 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9146 # ======================================================================
9147 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9148 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9149 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9150 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9151 # (AT YOUR OPTION) ANY LATER VERSION.
9152 #
9153 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9154 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9155 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9156 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9157 #
9158 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9159 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9160 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9161 # ======================================================================
9162 def fact_grad_prod(MATR_ASSE,**args):
9163   if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
9164   if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
9165   if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
9166   raise AsException("type de concept resultat non prevu")
9167
9168 FACT_GRAD=OPER(nom="FACT_GRAD",op=85,sd_prod=fact_grad_prod,docu="U4.55.03-e",
9169                fr="Préconditionnement pour résolution par gradient conjugué",
9170                reentrant='n',
9171          MATR_ASSE       =SIMP(statut='o',
9172                                typ=(matr_asse_depl_r,matr_asse_temp_r,
9173                                     matr_asse_pres_r) ),
9174          PRE_COND        =SIMP(statut='f',typ='TXM',defaut="LDLT_INC",into=("LDLT_INC",) ),
9175          NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
9176          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
9177 )  ;
9178 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9179 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9180 # ======================================================================
9181 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9182 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9183 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9184 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9185 # (AT YOUR OPTION) ANY LATER VERSION.
9186 #
9187 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9188 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9189 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9190 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9191 #
9192 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9193 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9194 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9195 # ======================================================================
9196 FACT_INTE_SPEC=OPER(nom="FACT_INTE_SPEC",op= 117,sd_prod=interspfact,
9197                     fr="Factorisation d une matrice interspectrale hermitienne",
9198                     docu="U4.36.04-e",reentrant='n',
9199          regles=(ENSEMBLE('FREQ_FIN','NB_POIN'),),
9200 #  regle non indiquée dans la doc U
9201          INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
9202          NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
9203          FREQ_INIT       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9204          FREQ_FIN        =SIMP(statut='f',typ='R' ),
9205          NB_POIN         =SIMP(statut='f',typ='I',defaut= 0 ),
9206          SUR_ECHAN       =SIMP(statut='f',typ='R',defaut= 1. ),
9207          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9208 )  ;
9209 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
9210 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9211 # ======================================================================
9212 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9213 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9214 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9215 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9216 # (AT YOUR OPTION) ANY LATER VERSION.
9217 #
9218 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9219 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9220 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9221 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9222 #
9223 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9224 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9225 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9226 # ======================================================================
9227 # RESPONSABLE VABHHTS J.PELLET
9228 def fact_ldlt_prod(MATR_ASSE,**args):
9229   if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
9230   if AsType(MATR_ASSE) == matr_asse_depl_c : return matr_asse_depl_c
9231   if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
9232   if AsType(MATR_ASSE) == matr_asse_temp_c : return matr_asse_temp_c
9233   if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
9234   if AsType(MATR_ASSE) == matr_asse_pres_c : return matr_asse_pres_c
9235   raise AsException("type de concept resultat non prevu")
9236
9237 FACT_LDLT=OPER(nom="FACT_LDLT",op=14,sd_prod=fact_ldlt_prod,fr="Factorisation en place ou hors place",
9238                docu="U4.55.01-f",reentrant='f',
9239          regles=(EXCLUS('BLOC_DEBUT','DDL_DEBUT'),
9240                  EXCLUS('BLOC_FIN','DDL_FIN'),),
9241          MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
9242                                                matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
9243          STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9244          NPREC           =SIMP(statut='f',typ='I',defaut=8,val_min=0,),
9245          PRE_COND        =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","DIAG") ),
9246          BLOC_DEBUT      =SIMP(statut='f',typ='I',val_min=1,),
9247          DDL_DEBUT       =SIMP(statut='f',typ='I',val_min=1,),
9248          BLOC_FIN        =SIMP(statut='f',typ='I',val_min=1,),
9249          DDL_FIN         =SIMP(statut='f',typ='I',val_min=1,),
9250 #
9251          EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9252 #
9253          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9254          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
9255 )  ;
9256 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9257 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9258 # ======================================================================
9259 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9260 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9261 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9262 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9263 # (AT YOUR OPTION) ANY LATER VERSION.
9264 #
9265 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9266 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9267 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9268 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9269 #
9270 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9271 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9272 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9273 # ======================================================================
9274 # NEW 5.3.23
9275 FERMER=PROC(nom="FERMER",op=  10,fr=" ",
9276             docu="U4.12.02-a",
9277          UNITE           =SIMP(statut='o',typ='I',max='**' ),
9278 )  ;
9279 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9280 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9281 # ======================================================================
9282 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9283 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9284 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9285 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9286 # (AT YOUR OPTION) ANY LATER VERSION.
9287 #
9288 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9289 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9290 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9291 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9292 #
9293 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9294 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9295 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9296 # ======================================================================
9297 FIN=PROC(nom="FIN",op=9999,repetable='n',fr="Fin d'une étude",
9298          docu="U4.11.02-f",
9299          RETASSAGE       =SIMP(fr="provoque le retassage de la base GLOBALE",
9300                                statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
9301          PERFORMANCE     =SIMP(fr="provoque l'impression d'un résumé des mesures de temps ",
9302                                statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
9303          INFO_RESU       =SIMP(fr="provoque l'impression des informations sur les structures de données",
9304                                statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
9305          FICHIER         =SIMP(statut='f',typ='TXM',defaut="MESSAGE"),
9306 )  ;
9307 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9308 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9309 # ======================================================================
9310 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9311 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9312 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9313 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9314 # (AT YOUR OPTION) ANY LATER VERSION.
9315 #
9316 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9317 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9318 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9319 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9320 #
9321 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9322 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9323 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9324 # ======================================================================
9325 FONC_FLUI_STRU=OPER(nom="FONC_FLUI_STRU",op= 169,sd_prod=fonction,
9326                     docu="U4.35.02-c",reentrant='n',
9327          TYPE_FLUI_STRU  =SIMP(statut='o',typ=(type_flui_stru) ),
9328 )  ;
9329 #& MODIF COMMANDE  DATE 17/09/2001   AUTEUR MCOURTOI M.COURTOIS
9330 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9331 # ======================================================================
9332 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9333 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9334 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9335 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9336 # (AT YOUR OPTION) ANY LATER VERSION.
9337 #
9338 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9339 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9340 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9341 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9342 #
9343 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9344 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9345 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9346 # ======================================================================
9347 FORMULE = FORM( nom='FORMULE',op=-5,sd_prod=fonction,
9348                 fr="Définition d une fonction",reentrant = 'n',
9349                 regles=(UN_PARMI('REEL','ENTIER','COMPLEXE'),),
9350                 REEL = SIMP(typ = 'shell',max=1),
9351                 ENTIER = SIMP(typ = 'shell',max=1),
9352                 COMPLEXE = SIMP(typ = 'shell',max=1),
9353 ) ;
9354 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9355 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9356 # ======================================================================
9357 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9358 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9359 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9360 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9361 # (AT YOUR OPTION) ANY LATER VERSION.
9362 #
9363 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9364 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9365 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9366 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9367 #
9368 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9369 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9370 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9371 # ======================================================================
9372 GENE_FONC_ALEA=OPER(nom="GENE_FONC_ALEA",op= 118,sd_prod=tabl_fonc,
9373                     fr="Génération de la fonction temporelle à partir d une matrice interspectrale factorisée",
9374                     docu="U4.36.05-e",reentrant='n',
9375          INTE_SPEC_FACT  =SIMP(statut='o',typ=interspfact ),
9376          INIT_ALEA       =SIMP(statut='f',typ='I',defaut= 12312745 ),
9377          NB_TIRAGE       =SIMP(statut='f',typ='I',defaut= 1 ),
9378          NB_POIN         =SIMP(statut='f',typ='I' ),
9379          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
9380 )  ;
9381 #& MODIF COMMANDE  DATE 16/07/2002   AUTEUR VABHHTS J.PELLET
9382 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9383 # ======================================================================
9384 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
9385 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9386 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9387 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9388 # (AT YOUR OPTION) ANY LATER VERSION.
9389 #
9390 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9391 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9392 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9393 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9394 #
9395 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9396 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9397 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9398 # ======================================================================
9399 GENE_MATR_ALEA=OPER(nom="GENE_MATR_ALEA",op=  27,sd_prod=matr_asse_gene_r,
9400                fr="Generateur de matrice aleatoire",
9401                docu="U4.36.06",reentrant='n',
9402    MATR_MOYEN   = SIMP(statut='o', typ=matr_asse_gene_r),
9403    DELTA        = SIMP(statut='f', typ='R', defaut=0.1),
9404    INIT         = SIMP(statut='f', typ='TXM', into=("OUI","NON"),defaut="NON"),
9405 ) ;
9406
9407 #& MODIF COMMANDE  DATE 16/07/2002   AUTEUR VABHHTS J.PELLET
9408 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9409 # ======================================================================
9410 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
9411 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9412 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9413 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9414 # (AT YOUR OPTION) ANY LATER VERSION.
9415 #
9416 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9417 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9418 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9419 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9420 #
9421 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9422 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9423 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9424 # ======================================================================
9425 GENE_VARI_ALEA=OPER(nom="GENE_VARI_ALEA",op=  28,sd_prod=table,
9426                fr="Generateur de variable aleatoire",
9427                docu="U4.36.07",reentrant='n',
9428    TYPE       = SIMP(statut='f', typ='TXM', into=("EXP_TRONQUEE", "EXPONENTIELLE", "GAMMA"), defaut="EXP_TRONQUEE"),
9429    VALE_MOY   = SIMP(statut='f', typ='R', defaut=0.),
9430    DELTA      = SIMP(statut='f', typ='R', defaut=0.1),
9431    A          = SIMP(statut='f', typ='R', defaut=-1.),
9432    B          = SIMP(statut='f', typ='R', defaut=1.),
9433    INIT       = SIMP(statut='f', typ='TXM', into=("OUI","NON"),defaut="NON"),
9434 ) ;
9435
9436 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9437 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9438 # ======================================================================
9439 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9440 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9441 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9442 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9443 # (AT YOUR OPTION) ANY LATER VERSION.
9444 #
9445 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9446 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9447 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9448 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9449 #
9450 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9451 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9452 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9453 # ======================================================================
9454 IMPR_CHARGE=PROC(nom="IMPR_CHARGE",op= 158,
9455                  fr="Impression des charges mécaniques de type ddl imposés et relations linéaires entre les ddl",
9456                  docu="U7.04.31-c",
9457          FICHIER         =SIMP(statut='f',typ='TXM' ),
9458          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",) ),
9459          VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
9460          CHARGE          =SIMP(statut='o',typ=char_meca,max='**', ),
9461 )  ;
9462 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9463 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9464 # ======================================================================
9465 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9466 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9467 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9468 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9469 # (AT YOUR OPTION) ANY LATER VERSION.
9470 #
9471 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9472 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9473 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9474 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9475 #
9476 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9477 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9478 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9479 # ======================================================================
9480 IMPR_CLASSI=PROC(nom="IMPR_CLASSI",op= 114,docu="U7.04.21-a",
9481          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ',
9482                         'LIST_ORDRE' ),),
9483          UNITE_CLASSI    =SIMP(statut='o',typ='I' ),
9484          MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
9485          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9486          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
9487          LIST_ORDRE      =SIMP(statut='f',typ=listis ),
9488          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
9489          FREQ            =SIMP(statut='f',typ='R',max='**'),
9490          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
9491          b_prec_crit     =BLOC(condition = "LIST_FREQ != None or FREQ != None",
9492              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9493              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
9494                                    into=("RELATIF","ABSOLU") ),
9495          ),
9496          IMPRESSION      =FACT(statut='f',min=01,max='**',
9497            regles=(UN_PARMI('NOEUD','GROUP_NO', ),),
9498            NOEUD           =SIMP(statut='f',typ=no,max='**'),
9499            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
9500            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
9501          ),
9502          AMOR            =SIMP(statut='o',typ='R',max='**'),
9503 )  ;
9504 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
9505 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9506 # ======================================================================
9507 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9508 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9509 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9510 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9511 # (AT YOUR OPTION) ANY LATER VERSION.
9512 #
9513 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9514 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9515 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9516 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9517 #
9518 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9519 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9520 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9521 # ======================================================================
9522 # RESPONSABLE VABHHTS J.PELLET
9523 IMPR_CO=PROC(nom="IMPR_CO",op=17,docu="U4.91.11-f",
9524              fr="Impression du contenu d un concept utilisateur (pour développeur)",
9525          regles=(UN_PARMI('CO','CHAINE', ),),
9526          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
9527          NIVEAU          =SIMP(statut='f',typ='I',defaut=2,into=(0,1,2) ),
9528          ATTRIBUT        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","OUI") ),
9529          CONTENU         =SIMP(statut='f',typ='TXM',defaut="OUI",into=("NON","OUI") ),
9530          BASE            =SIMP(statut='f',typ='TXM',defaut="G",into=("","G","V","L") ),
9531          CO              =SIMP(statut='f',typ=assd,max='**'),
9532          CHAINE          =SIMP(statut='f',typ='TXM'),
9533          POSITION        =SIMP(statut='f',typ='I',defaut=1),
9534 )  ;
9535 #& MODIF COMMANDE  DATE 06/03/2002   AUTEUR MCOURTOI M.COURTOIS
9536 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9537 # ======================================================================
9538 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9539 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9540 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9541 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9542 # (AT YOUR OPTION) ANY LATER VERSION.
9543 #
9544 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9545 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9546 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9547 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9548 #
9549 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9550 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9551 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9552 # ======================================================================
9553 # RESPONSABLE MCOURTOI M.COURTOIS
9554 IMPR_COURBE=PROC(nom="IMPR_COURBE",op= 141,fr="Impression, sur fichiers",
9555                  docu="U4.33.01-e2",
9556          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
9557          FORMAT          =SIMP(statut='f',typ='TXM',position='global'
9558                               ,into=("AGRAF","EXCEL","POSTSCRIPT","RESULTAT","COMMANDE","SEISME") ),
9559          b_agraf_post =BLOC(condition = "(FORMAT=='AGRAF') or (FORMAT=='POSTSCRIPT')",fr="Mots-clés communs AGRAF et POSTCRIPT",
9560            BORNE_X         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des abcisses"),
9561            ECHELLE_X       =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),fr="Type d'échelle pour les abcisses" ),
9562            BORNE_Y         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des ordonnées"),
9563            ECHELLE_Y       =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),fr="Type d'échelle pour les ordonnées" ),
9564          ),
9565          b_agraf =BLOC(condition = "(FORMAT=='AGRAF')",fr="Mots-clés propres à AGRAF",
9566            TITRE_GRAPHIQUE =SIMP(statut='f',typ='TXM',fr="Titre associé au graphique" ),
9567            COMMENTAIRE     =SIMP(statut='f',typ='TXM',max='**',fr="Commentaires associés au graphique"),
9568            LEGENDE_X       =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des abcisses" ),
9569            LEGENDE_Y       =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des ordonnées" ),
9570            FREQ_GRILLE_X   =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence de tracage du quadrillage vertical" ),
9571            FREQ_GRILLE_Y   =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence de tracage du quadrillage horizontal" ),
9572          ),
9573          b_excel = BLOC(condition = "(FORMAT=='EXCEL')",fr="Mots-clés propres au format Excel",
9574            BORNE_X         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des abcisses"),
9575            BORNE_Y         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des ordonnées"),
9576          ),
9577          b_post = BLOC (  condition = "(FORMAT=='POSTSCRIPT')",fr="Mots-clés propres à POSTCRIPT",
9578            TITRE           =SIMP(statut='f',typ='TXM',fr="Titre associé au graphique" ),
9579            LABEL_X         =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des abcisses" ),
9580            LABEL_Y         =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des ordonnées" ),
9581            SORTIE          =SIMP(statut='f',typ='TXM',defaut="COULEUR",into=("MONOCHROME","COULEUR"),fr="Type d impression" ),
9582            DATE            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de la date" ),
9583            GRILLE          =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression du quadrillage" ),
9584            AXE_ZERO_X      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de l axe x égal zéro" ),
9585            AXE_ZERO_Y      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de l axe y égal zéro" ),
9586            PRESENTATION    =SIMP(statut='f',typ='TXM',defaut="PAYSAGE",into=("PAYSAGE","PORTRAIT"),
9587                                  fr="Disposition du graphique sur la feuille" ),
9588            FENETRE         =SIMP(statut='f',typ='TXM',defaut="RECTANGLE",into=("CARREE","RECTANGLE"),
9589                                  fr="Forme de la fenetre contenant le graphique" ),
9590          ),
9591          COURBE          =FACT(statut='o',min=01,max='**',fr="Définition de la courbe à tracer",
9592            regles=(UN_PARMI('FONCTION','LIST_RESU','TABLE','FONC_X','RESU_GENE'),),
9593            FONCTION        =SIMP(statut='f',typ=(fonction, fonction_c),
9594                                  fr="Fonction réelle ou complexe", ),
9595            LIST_RESU       =SIMP(statut='f',typ=listr8,
9596                                  fr="Liste des ordonnees d une fonction réelle définie par deux listes", ),
9597 #  creer le type table
9598            TABLE           =SIMP(statut='f',typ=table,
9599                                  fr="Nom de la table dont 2 colonnes définissent la fonction",),
9600            FONC_X          =SIMP(statut='f',typ=fonction,
9601                                  fr="Fonction abscisses d une fonction paramétrique",),
9602            RESU_GENE       =SIMP(statut='f',typ=tran_gene, ),
9603            b_fonction      =BLOC(condition = "FONCTION != None",
9604              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
9605            ),
9606            b_fonction_c  =BLOC(condition = "AsType(FONCTION) == fonction_c",
9607                                  fr="Fonction complexe définie par le mot-clé fonction",
9608              PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
9609            ),
9610            b_list_resu     =BLOC(condition = "LIST_RESU != None",
9611              LIST_PARA       =SIMP(statut='o',typ=listr8 ),
9612            ),
9613            b_table         =BLOC(condition = "TABLE != None",
9614              PARA_X          =SIMP(statut='o',typ='TXM',
9615                                    fr="Paramètre de la table associé aux abcisses de la fonction à tracer" ),
9616              PARA_Y          =SIMP(statut='o',typ='TXM',
9617                                    fr="Paramètre de la table associé aux ordonnées de la fonction à tracer" ),
9618            ),
9619            b_fonc_x        =BLOC(condition = "FONC_X != None",
9620              FONC_Y          =SIMP(statut='o',typ=fonction,fr="Fonction ordonnées d une fonction paramétrique" ),
9621              PARA            =SIMP(statut='f',typ='TXM',defaut="FONC_X",into=("FONC_X","FONC_Y"),
9622                                    fr="Permutation des roles des deux fonctions" ),
9623              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
9624            ),
9625            b_resu_gene     =BLOC(condition = "RESU_GENE != None",
9626              regles=(UN_PARMI('NOEUD_CHOC','GROUP_NO_CHOC'),),
9627              NOEUD_CHOC      =SIMP(statut='f',typ=no),
9628              GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
9629              PARA_X          =SIMP(statut='o',typ='TXM'),
9630              PARA_Y          =SIMP(statut='o',typ='TXM'),
9631              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
9632              SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
9633              INTITULE        =SIMP(statut='f',typ='TXM' ),
9634            ),
9635
9636
9637            LEGENDE         =SIMP(statut='f',typ='TXM',fr="Légende associée à la courbe" ),
9638            STYLE           =SIMP(statut='f',typ='TXM',defaut="LIGNE",fr="Style de la ligne représentant la courbe",
9639                                  into=("LIGNE","POINTILLE","POINT","POINT_RELIE") ),
9640            COULEUR         =SIMP(statut='f',typ='TXM',fr="Couleur associée à la courbe",
9641                                  into=("NOIR","ROUGE","VERT_FONCE","BLEU",
9642                                        "MAGENTA","CYAN","VERT","SIENNE","ORANGE",
9643                                        "POURPRE","JAUNE","DAIM","TURQUOISE","VIOLET",
9644                                        "BRUN","CORAIL","MARRON","MAUVE","MARRON_CLAIR") ),
9645            MARQUEUR        =SIMP(statut='f',typ='TXM',fr="Type du marqueur associé à la courbe",
9646                                  into=("POINT_F","CARRE_F","TRIANGLE_F",
9647                                        "LOSANGE_F","ETOILE_F","FUSEE_F","POINT",
9648                                        "CARRE","TRIANGLE","LOSANGE","ETOILE","FUSEE",
9649                                        "PLUS","X","CERCLE","CERCLE_P","CARRE_P",
9650                                        "LOSANGE_P","CERCLE_P_X","LOSANGE_P_X",
9651                                        "CERCLE_X","CARRE_X","LOSANGE_X") ),
9652             b_agraf =BLOC(condition = "(FORMAT=='AGRAF')",fr="Mots-clés propres à AGRAF",
9653               TRI             =SIMP(statut='f',typ='TXM',defaut="N",
9654                                     fr="Choix du tri effectué sur les abcisses ou sur les ordonnées",
9655                                     into=("N","X","Y","XY","YX") ),
9656               FREQ_MARQUEUR   =SIMP(statut='f',typ='I',defaut= 0,
9657                                     fr="Fréquence d impression du marqueur associé à la courbe", ),
9658             ),
9659          ),
9660 )  ;
9661 #& MODIF COMMANDE  DATE 05/03/2002   AUTEUR GNICOLAS G.NICOLAS
9662 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9663 # ======================================================================
9664 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9665 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9666 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9667 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9668 # (AT YOUR OPTION) ANY LATER VERSION.
9669 #
9670 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9671 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9672 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9673 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9674 #
9675 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9676 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9677 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9678 # ======================================================================
9679 # RESPONSABLE GNICOLAS G.NICOLAS
9680 IMPR_FICO_HOMA=PROC(nom="IMPR_FICO_HOMA",op= 189, docu="U7.04.01-b2",
9681                     fr="Imprime le fichier de configuration de HOMARD.",
9682                     ang="Writes the configuration file for HOMARD.",
9683 #
9684 # 1. Le niveau d'information
9685 #
9686          INFO           = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
9687 #
9688 # 2. LE REPERTOIRE OU AURA LIEU LE CALCUL HOMARD
9689 #
9690          REP             =SIMP(statut='f',typ='TXM'),
9691 #
9692 # 3. Langue des messages issus de HOMARD
9693 #
9694          LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
9695                                into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
9696                            fr="Langue des messages issus de HOMARD.",
9697                            ang="Language for HOMARD messages." ),
9698 #
9699 # 4. L'UNITE LOGIQUE D'ECRITURE DU FICHIER DE CONFIGURATION HOMARD
9700 #
9701          UNITE           =SIMP(statut='f',typ='I',defaut= 71 ),
9702 #
9703 # 5. LE TYPE DE TRAITEMENT :
9704 #
9705          TRAITEMENT      =FACT(statut='o',min=01,max=01,
9706 #
9707 # 5.1. QUATRE CHOIX EXCLUSIFS :
9708 #
9709 # 5.1.1.
9710 #      A. ADAPTATION PAR UN INDICATEUR D'ERREUR, AVEC TROIS VARIANTES :
9711 #         . RAFFINEMENT ET DERAFFINEMENT
9712 #         . RAFFINEMENT SEUL
9713 #         . DERAFFINEMENT SEUL
9714 #      B. ADAPTATION UNIFORME, AVEC DEUX VARIANTES :
9715 #         . RAFFINEMENT SEUL
9716 #         . DERAFFINEMENT SEUL
9717 #         . RIEN : LE MAILLAGE EST LE MEME A LA SORTIE ET A L'ENTREE
9718 #      C. INFORMATION SUR UN MAILLAGE
9719 #      D. MISE A JOUR DE SOLUTIONS
9720 #
9721            regles=( UN_PARMI('ADAPTATION','UNIFORME','INFORMATION','MAJSOLUTION'),),
9722            ADAPTATION      =SIMP(statut='f',typ='TXM',
9723                                  fr="Adaptation libre",
9724                                  ang="Free adaptation",
9725                                  into=("RAFFINEMENT","DERAFFINEMENT","RAFF_DERA") ),
9726            UNIFORME        =SIMP(statut='f',typ='TXM',
9727                                  fr="Adaptation uniforme",
9728                                  ang="Uniforme adaptation",
9729                                  into=("RAFFINEMENT","DERAFFINEMENT","RIEN") ),
9730            INFORMATION     =SIMP(statut='f',typ='TXM',
9731                                  fr="Adaptation libre",
9732                                  ang="Free adaptation",
9733                                  into=("OUI",) ),
9734            MAJSOLUTION     =SIMP(statut='f',typ='TXM',
9735                                  fr="Mise à jour de solutions",
9736                                  ang="Solution updating",
9737                                  into=("OUI",) ),
9738 #
9739 # 5.1.2. LES CONTRAINTES :
9740 #
9741 # 5.1.2.1. POUR DE L'ADAPTATION LIBRE, IL FAUT :
9742 #      A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
9743 #      B. LE NOM MED DU MAILLAGE D'ENTREE
9744 #      C. LE NOM MED DE L'INDICATEUR D'ERREUR
9745 #      D. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
9746 #      E. LA MISE A JOUR DE SOLUTION
9747 #      F. LE NOM MED DU MAILLAGE DE SORTIE
9748 #      REMARQUE : IL FAUT DES CRITERES, MAIS ON NE SAIT PAS LESQUELS
9749 #
9750 # 5.1.2.2. POUR DE L'ADAPTATION UNIFORME
9751 #          IL FAUT :
9752 #      A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
9753 #      B. LE NOM MED DU MAILLAGE DE SORTIE
9754 #          IL NE FAUT PAS :
9755 #      A. LE NOM MED DE L'INDICATEUR D'ERREUR
9756 #      B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
9757 #      C. LES CRITERES
9758 #      REMARQUE : A L'ITERATION 0, OU AUX ITERATIONS SUIVANTES SI MAJ DE SOLUTION,
9759 #                 IL FAUT LE NOM MED DU MAILLAGE D'ENTREE
9760 #
9761 # 5.1.2.3. POUR DE LA MISE A JOUR DE SOLUTION :
9762 #          IL FAUT :
9763 #      A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
9764 #      B. LE NOM MED DU MAILLAGE D'ENTREE
9765 #          IL NE FAUT PAS :
9766 #      A. LE NOM MED DE L'INDICATEUR D'ERREUR
9767 #      B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
9768 #      C. LES CRITERES
9769 #
9770 #
9771 # 5.1.2.4. POUR DE L'INFORMATION :
9772 #          IL FAUT :
9773 #      A. LE NOM MED DU MAILLAGE D'ENTREE
9774 #          IL NE FAUT PAS :
9775 #      A. LE NOM MED DE L'INDICATEUR D'ERREUR
9776 #      B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
9777 #      C. LES CRITERES
9778 #      D. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
9779 #      E. LA MISE A JOUR DE SOLUTION
9780 #
9781            b_maillage_initial =BLOC(condition = "( INFORMATION != None ) or ( ADAPTATION != None ) or \
9782                                                  ( MAJSOLUTION != None ) ",
9783                            fr="Nom MED du maillage en entrée",
9784                            ang="MED name of the in-mesh",
9785                            NOM_MED_MAILLAGE_N   =SIMP(statut='o',typ='TXM',),
9786                            ) ,
9787 #
9788            b_maillage_initial_uniforme =BLOC(condition = "( UNIFORME != None ) ",
9789                            fr="Nom MED du maillage en entrée",
9790                            ang="MED name of the in-mesh",
9791                            NOM_MED_MAILLAGE_N   =SIMP(statut='f',typ='TXM',),
9792                            ) ,
9793 #
9794            b_iteration_maj_champ =BLOC(condition = "( UNIFORME != None ) or ( ADAPTATION != None ) or \
9795                                                     ( MAJSOLUTION != None ) ",
9796                            fr="Nom MED du maillage en sortie, numero d'iteration et mise à jour de champs",
9797                            ang="MED name of the out-mesh, iteration rank and field updating",
9798                            NITER                =SIMP(statut='o',typ='I',
9799                            fr="Numéro d'itération.",
9800                            ang="Iteration number." ),
9801                            NOM_MED_MAILLAGE_NP1 =SIMP(statut='o',typ='TXM',
9802                            fr="Nom MED du maillage en sortie",
9803                            ang="MED name of the out-mesh" ),
9804                            MAJ_CHAM             =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
9805                            fr="Mise à jour de champs",
9806                            ang="Field updating" ),
9807                            ) ,
9808 #
9809            b_indicateur_d_erreur  =BLOC(condition = "ADAPTATION != None",
9810                            fr="Indicateur d'erreur",
9811                            ang="Error indicator",
9812                            regles=(AU_MOINS_UN('NUMORD_INDICA','NOM_RESU_INDICA'),
9813                                    EXCLUS('NUMORD_INDICA','NOM_RESU_INDICA'),
9814                                    PRESENT_PRESENT('NUMORD_INDICA','NUMPT_INDICA'),
9815                                    PRESENT_PRESENT('NOM_RESU_INDICA','NOM_CHAM_INDICA'),),
9816                            NOM_MED_INDICA  =SIMP(statut='o',typ='TXM',
9817                            fr="Nom MED de l'indicateur d'erreur.",
9818                            ang="MED name of error indicator.",),
9819                            NOM_CMP_INDICA  =SIMP(statut='o',typ='TXM',
9820                            fr="Nom de la composante de l'indicateur d'erreur retenue.",
9821                            ang="Name of the selected component of the error indicator.",),
9822                            NUMORD_INDICA  =SIMP(statut='f',typ='I',
9823                            fr="Numero d'ordre de l'indicateur.",
9824                            ang="Rank number of the error indicator.",),
9825                            NUMPT_INDICA  =SIMP(statut='f',typ='I',
9826                            fr="Numero du pas de temps de l'indicateur.",
9827                            ang="Time step number of the error indicator.",),
9828                            NOM_RESU_INDICA  =SIMP(statut='f',typ='TXM',
9829                            fr="Concept contenant l'indicateur.",
9830                            ang="Conceipt wich contains the error indicator.",),
9831                            NOM_CHAM_INDICA  =SIMP(statut='f',typ='TXM',
9832                            fr="Nom du champ dans le résultat de l'indicateur.",
9833                            ang="Name of the field of the error indicator.",),
9834                            ) ,
9835 #
9836            b_critere_de_raffinement =BLOC( condition = "( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'RAFFINEMENT' )" ,
9837                            fr="Critère de raffinement.",
9838                            ang="Refinement threshold.",
9839                            regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE' ),),
9840                            CRIT_RAFF_ABS   =SIMP(statut='f',typ='R',
9841                                                  fr="Critère absolu",
9842                                                  ang="Absolute threshold"  ),
9843                            CRIT_RAFF_REL   =SIMP(statut='f',typ='R',
9844                                                  fr="Critère relatif",
9845                                                  ang="Relative threshold" ),
9846                            CRIT_RAFF_PE    =SIMP(statut='f',typ='R',
9847                                                  fr="Pourcentage d'éléments",
9848                                                  ang="Percentage of elements" ),
9849                            ) ,
9850 #
9851            b_critere_de_deraffinement =BLOC ( condition = "( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'DERAFFINEMENT' )" ,
9852                            fr="Critère de déraffinement.",
9853                            ang="Unrefinement threshold.",
9854                            regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE' ),),
9855                            CRIT_DERA_ABS   =SIMP(statut='f',typ='R' ,
9856                                                  fr="Critère absolu",
9857                                                  ang="Absolute threshold" ),
9858                            CRIT_DERA_REL   =SIMP(statut='f',typ='R',
9859                                                  fr="Critère relatif",
9860                                                  ang="Relative threshold" ),
9861                            CRIT_DERA_PE    =SIMP(statut='f',typ='R',
9862                                                  fr="Pourcentage d'éléments",
9863                                                  ang="Percentage of elements" ),
9864                            ) ,
9865 #
9866            b_niveau_maximum =BLOC ( condition = " ( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'RAFFINEMENT' ) or \
9867                                                   ( UNIFORME == 'RAFFINEMENT' )" ,
9868                              fr="Niveau maximum de profondeur de raffinement",
9869                              ang="Maximum level for refinement",
9870                              NIVE_MAX        =SIMP(statut='f',typ='I' ),
9871                            ) ,
9872 #
9873            b_niveau_minimum =BLOC ( condition = " ( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'DERAFFINEMENT' ) or \
9874                                                   ( UNIFORME == 'DERAFFINEMENT' )" ,
9875                              fr="Niveau minimum de déraffinement",
9876                              ang="Minimum level for unrefinement",
9877                              NIVE_MIN        =SIMP(statut='f',typ='I' ),
9878                            ) ,
9879 #
9880          ),
9881 #
9882 # 6. L'ANALYSE DU MAILLAGE
9883 #
9884          ANALYSE         =FACT(statut='f',min=01,max=01,
9885                                fr="Analyse du maillage.",
9886                                ang="Mesh analysis.",
9887 #
9888 # 6.1. CHOIX NON EXCLUSIFS, AVEC DEUX VARIANTES (OUI/NON) :
9889 #    A. NOMBRE DES ELEMENTS
9890 #    B. QUALITE DES ELEMENTS
9891 #    C. INTERPENETRATION DES ELEMENTS
9892 #    D. CONNEXITE DU MAILLAGE
9893 #    E. TAILLE DES DIFFERENTS SOUS-DOMAINES
9894 #
9895            regles=(AU_MOINS_UN('NOMBRE','QUALITE','INTERPENETRATION','CONNEXITE','TAILLE'),),
9896 #
9897          NOMBRE          =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
9898                           fr="Nombre de noeuds et éléments du maillage",
9899                           ang="Number of nodes and elements in the mesh" ),
9900 #
9901          QUALITE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
9902                           fr="Qualité du maillage",
9903                           ang="Mesh quality" ),
9904 #
9905          INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
9906                           fr="Controle de la non interpénétration des éléments.",
9907                           ang="Overlapping checking." ),
9908 #
9909          CONNEXITE       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
9910                           fr="Connexité du maillage.",
9911                           ang="Mesh connexity." ),
9912 #
9913          TAILLE          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
9914                           fr="Tailles des sous-domaines du maillage.",
9915                           ang="Sizes of mesh sub-domains." ),
9916 #
9917          ),
9918 #
9919 )  ;
9920 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9921 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9922 # ======================================================================
9923 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9924 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9925 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9926 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9927 # (AT YOUR OPTION) ANY LATER VERSION.
9928 #
9929 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9930 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9931 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9932 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9933 #
9934 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9935 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9936 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9937 # ======================================================================
9938 IMPR_GENE=PROC(nom="IMPR_GENE",op= 157,
9939                fr="Calcul du dommage subi par une structure soumise à une sollicitation de type aléatoire",
9940                docu="U4.91.02-c",
9941          GENE            =FACT(statut='o',min=01,max='**',
9942            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
9943                           'LIST_INST','LIST_FREQ','TOUT_MODE','TOUT_INST','LIST_ORDRE'),
9944                    EXCLUS('TOUT_MODE','NUME_ORDRE','INST','FREQ','NUME_MODE',
9945                           'LIST_INST','LIST_FREQ','TOUT_ORDRE','TOUT_INST','LIST_ORDRE'),
9946                    EXCLUS('TOUT_INST','NUME_ORDRE','INST','FREQ','NUME_MODE',
9947                           'LIST_INST','LIST_FREQ','TOUT_ORDRE','LIST_ORDRE'),
9948                    EXCLUS('TOUT_CMP_GENE','NUME_CMP_GENE'),
9949                    EXCLUS('TOUT_CHAM','NOM_CHAM'),
9950                    EXCLUS('TOUT_PARA','NOM_PARA'),),
9951 #  faut-il faire des blocs selon le type de RESU_GENE
9952            RESU_GENE       =SIMP(statut='o',typ=(vect_asse_gene, tran_gene, mode_gene, harm_gene)),
9953            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
9954            FICHIER         =SIMP(statut='f',typ='TXM' ),
9955            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9956            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
9957            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
9958            TOUT_MODE       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9959            NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
9960            INST            =SIMP(statut='f',typ='R',max='**'),
9961            LIST_INST       =SIMP(statut='f',typ=listr8 ),
9962            TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9963            FREQ            =SIMP(statut='f',typ='R',max='**'),
9964            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
9965            b_prec_crit     =BLOC(condition = "LIST_FREQ != None or FREQ != None",
9966              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9967              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
9968                                    into=("RELATIF","ABSOLU") ),
9969            ),
9970            TOUT_CMP_GENE   =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9971            NUME_CMP_GENE   =SIMP(statut='f',typ='I',max='**'),
9972            TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9973            NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
9974            TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9975            NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
9976            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
9977            INFO_CMP_GENE   =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9978            INFO_GENE       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9979          ),
9980 )  ;
9981 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9982 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9983 # ======================================================================
9984 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9985 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9986 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9987 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9988 # (AT YOUR OPTION) ANY LATER VERSION.
9989 #
9990 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9991 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9992 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9993 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9994 #
9995 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9996 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9997 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9998 # ======================================================================
9999 IMPR_JEVEUX=PROC(nom="IMPR_JEVEUX",op=16,docu="U4.91.21-f",
10000                  fr="Impression de caractéristiques d'objets JEVEUX (pour développeur)",
10001          ENTITE          =SIMP(fr="choix de l'observation",statut='o',typ='TXM',
10002                                into=("DISQUE","MEMOIRE","REPERTOIRE",
10003                                      "OBJET","ATTRIBUT","SYSTEME") ),
10004          b_objet      =BLOC(condition = "(ENTITE=='OBJET')",
10005             NOMOBJ          =SIMP(fr="nom d'objet",statut='f',typ='TXM' ),
10006             NUMOC           =SIMP(fr="numéro d objet de collection",statut='f',typ='I' ),
10007             NOMOC           =SIMP(fr="nom d'objet de collection",statut='f',typ='TXM' ),
10008          ),
10009          b_attribut   =BLOC(condition = "(ENTITE=='ATTRIBUT')",
10010             NOMOBJ          =SIMP(fr="nom de collection",statut='f',typ='TXM' ),
10011             NOMATR          =SIMP(fr="nom d attribut de collection",statut='f',typ='TXM',
10012                                   into=('$$DESO','$$IADD','$$IADM','$$NOM','$$LONG',
10013                                       '$$LONO','$$LUTI','$$NUM') ),
10014          ),
10015          b_systeme    =BLOC(condition = "(ENTITE=='SYSTEME')",
10016             CLASSE          =SIMP(statut='o',typ='TXM',into=('G','V','L') ),
10017             NOMATR          =SIMP(fr="nom d attribut systeme",statut='f',typ='TXM',
10018                                   into=('$$CARA','$$IADD','$$GENR','$$TYPE','$$ETAT',
10019                                       '$$DOCU','$$ORIG','$$RNOM','$$LTYP','$$LONG',
10020                                       '$$LONO','$$DATE','$$LUTI','$$HCOD','$$INDX',
10021                                       '$$TLEC','$$TECR','$$IADM','$$ACCE') ),
10022          ),
10023          b_repertoire =BLOC(condition = "(ENTITE=='REPERTOIRE')",
10024             CLASSE          =SIMP(statut='f',typ='TXM',into=('G','V','L',' '),defaut=' '),
10025          ),
10026          b_disque     =BLOC(condition = "(ENTITE=='DISQUE')",
10027             CLASSE          =SIMP(statut='f',typ='TXM' ,into=('G','V','L',' '),defaut=' '),
10028          ),
10029          IMPRESSION      =FACT(statut='f',min=01,max=01,
10030            NOM             =SIMP(statut='f',typ='TXM' ),
10031            UNITE           =SIMP(statut='f',typ='I'),
10032          ),
10033          COMMENTAIRE     =SIMP(statut='f',typ='TXM' ),
10034 )  ;
10035 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
10036 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10037 # ======================================================================
10038 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10039 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10040 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10041 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10042 # (AT YOUR OPTION) ANY LATER VERSION.
10043 #
10044 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10045 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10046 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10047 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10048 #
10049 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10050 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10051 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10052 # ======================================================================
10053 IMPR_MACR_ELEM=PROC(nom="IMPR_MACR_ELEM",op= 160,
10054                     docu="U7.04.33-d1",
10055          MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
10056          FICHIER         =SIMP(statut='f',typ='TXM' ),
10057          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",
10058                                into=("MISS_3D","IDEAS","CADYRO","PLEXUS") ),
10059          b_ideas         =BLOC(condition = "FORMAT == 'PLEXUS'",
10060            VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10061          ),
10062          b_plexus         =BLOC(condition = "FORMAT == 'IDEAS'",
10063            VERSION          =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10064          ),
10065          b_miss_3d       =BLOC(condition = "FORMAT == 'MISS_3D'",
10066            UNITE           =SIMP(statut='f',typ='I',defaut= 26 ),
10067            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
10068            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
10069            GROUP_MA_INTERF =SIMP(statut='o',typ=grma,max='**'),
10070 #  Ces trois mots cles sont-ils dans le bon bloc et avec le bon statut
10071            GROUP_MA_FLU_STR=SIMP(statut='f',typ=grma,max='**'),
10072            GROUP_MA_FLU_SOL=SIMP(statut='f',typ=grma,max='**'),
10073            GROUP_MA_SOL_SOL=SIMP(statut='f',typ=grma,max='**'),
10074            IMPR_MODE_MECA  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10075            IMPR_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10076          ),
10077          b_cadyro        =BLOC(condition = "FORMAT == 'CADYRO'",
10078            SQUELETTE       =SIMP(statut='f',typ=squelette ),
10079            UNITE_MODE_MECA =SIMP(statut='f',typ='I',defaut= 26 ),
10080            UNITE_MODE_STAT =SIMP(statut='f',typ='I',defaut= 27 ),
10081            UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut= 28 ),
10082            IMPR_MODE_MECA  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10083            IMPR_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10084          ),
10085
10086 )  ;
10087 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
10088 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10089 # ======================================================================
10090 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10091 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10092 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10093 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10094 # (AT YOUR OPTION) ANY LATER VERSION.
10095 #
10096 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10097 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10098 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10099 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10100 #
10101 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10102 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10103 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10104 # ======================================================================
10105 IMPR_MATRICE=PROC(nom="IMPR_MATRICE",op= 159,
10106                   fr="Impression des matrices élémentaires et des matrices assemblées",
10107                   docu="U7.04.32-c",
10108          regles=(AU_MOINS_UN('MATR_ELEM','MATR_ASSE'),),
10109
10110          MATR_ELEM       =FACT(statut='f',min=01,max='**',
10111            FICHIER         =SIMP(statut='f',typ='TXM' ),
10112            FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",
10113                                  into=("IDEAS","RESULTAT") ),
10114            b_format      =BLOC(condition = "FORMAT == 'IDEAS'",
10115              VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10116            ),
10117 #  créer les types matr_elem  et vect_elem
10118            MATRICE         =SIMP(statut='o',typ=(matr_elem, vect_elem)),
10119 #  Quelle regle pour TOUT, NOEUD, GROUP_NO, MAILLE, GROUP_MA
10120            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10121            NOEUD           =SIMP(statut='f',typ=no,max='**'),
10122            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
10123            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10124            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10125            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
10126            GRAIN           =SIMP(statut='f',typ='TXM',defaut="VALEUR",
10127                                  into=("VALEUR","NOEUD","MAILLE") ),
10128            NB_CHIFFRE      =SIMP(statut='f',typ='I',defaut= 4 ),
10129          ),
10130          MATR_ASSE       =FACT(statut='f',min=01,max='**',
10131            FICHIER         =SIMP(statut='f',typ='TXM' ),
10132            FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",
10133                                  into=("IDEAS","RESULTAT") ),
10134            VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10135 #  créer le type matr_elem
10136            MATRICE         =SIMP(statut='o',typ=matr_asse),
10137 #  Quelle regle pour TOUT, NOEUD, GROUP_NO, MAILLE, GROUP_MA
10138            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10139            NOEUD           =SIMP(statut='f',typ=no,max='**'),
10140            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
10141            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10142            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10143            OPTION          =SIMP(statut='f',typ='TXM',defaut="SOUS_MATRICE",
10144                                  into=("SOUS_MATRICE","LIGNE","COLONNE") ),
10145            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
10146            GRAIN           =SIMP(statut='f',typ='TXM',defaut="VALEUR",
10147                                  into=("VALEUR","NOEUD") ),
10148            NB_CHIFFRE      =SIMP(statut='f',typ='I',defaut= 4 ),
10149            VALE_ZERO       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
10150          ),
10151 )  ;
10152 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
10153 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10154 # ======================================================================
10155 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10156 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10157 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10158 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10159 # (AT YOUR OPTION) ANY LATER VERSION.
10160 #
10161 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10162 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10163 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10164 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10165 #
10166 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10167 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10168 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10169 # ======================================================================
10170 IMPR_MISS_3D=PROC(nom="IMPR_MISS_3D",op= 162,
10171                   docu="U7.04.11-c",
10172          regles=(UN_PARMI('INST_INIT','FREQ_INIT'),
10173                  PRESENT_PRESENT('INST_INIT','INST_FIN'),
10174                  PRESENT_PRESENT('FREQ_INIT','FREQ_FIN'),),
10175          MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
10176          EXCIT           =FACT(statut='f',min=01,max='**',
10177            regles=(UN_PARMI('FONC_MULT','COEF_MULT' ),),
10178            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
10179            FONC_MULT       =SIMP(statut='f',typ=fonction ),
10180            COEF_MULT       =SIMP(statut='f',typ='R' ),
10181          ),
10182          EXCIT_SOL       =FACT(statut='f',min=01,max='**',
10183            DIRECTION       =SIMP(statut='o',typ='R',max='**'),
10184            FONC_SIGNAL     =SIMP(statut='f',typ=fonction ),
10185            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",
10186                                  into=("DEPL","VITE","ACCE","FORC",) ),
10187          ),
10188          INST_INIT       =SIMP(statut='f',typ='R' ),
10189          INST_FIN        =SIMP(statut='f',typ='R' ),
10190          FREQ_INIT       =SIMP(statut='f',typ='R' ),
10191          FREQ_FIN        =SIMP(statut='f',typ='R' ),
10192          PAS             =SIMP(statut='o',typ='R' ),
10193          UNITE           =SIMP(statut='f',typ='I',defaut= 26 ),
10194          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
10195          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
10196 )  ;
10197 #& MODIF COMMANDE  DATE 05/03/2002   AUTEUR GNICOLAS G.NICOLAS
10198 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10199 # ======================================================================
10200 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10201 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10202 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10203 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10204 # (AT YOUR OPTION) ANY LATER VERSION.
10205 #
10206 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10207 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10208 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10209 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10210 #
10211 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10212 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10213 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10214 # ======================================================================
10215 IMPR_RESU=PROC(nom="IMPR_RESU",op=39,docu="U4.91.01-g1",
10216                fr="Impression du résultat d un calcul (différents formats)",
10217          MODELE          =SIMP(statut='f',typ=modele),
10218          RESU            =FACT(statut='o',min=01,max='**',
10219            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
10220                                  into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED","GMSH") ),
10221
10222            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
10223              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
10224            ),
10225
10226            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
10227              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
10228            ),
10229
10230            regles=(AU_MOINS_UN('CHAM_GD','RESULTAT','MAILLAGE'),
10231                    EXCLUS('CHAM_GD','RESULTAT'),),
10232            MAILLAGE        =SIMP(statut='f',typ=(maillage,squelette)),
10233            INFO_MAILLAGE   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10234            CHAM_GD         =SIMP(statut='f',typ=cham_gd),
10235            RESULTAT        =SIMP(statut='f',typ=resultat),# CO() sd a creer !!!
10236
10237            b_sensibilite   =BLOC(condition="RESULTAT != None",
10238                                  fr="Définition des paramètres de sensibilité",
10239                                  ang="Definition of sensitivity parameters",
10240              SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
10241                                    fr="Liste des paramètres de sensibilité.",
10242                                    ang="List of sensitivity parameters"),),
10243
10244            b_extrac        =BLOC(condition="RESULTAT != None",
10245                                  fr="extraction d un champ de grandeur",
10246              regles=(EXCLUS('TOUT_CHAM','NOM_CHAM'),
10247                      EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP',
10248                             'LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS','ANGL'),),
10249              TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10250              NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
10251
10252              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10253              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
10254              NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
10255              LIST_ORDRE      =SIMP(statut='f',typ=listis),
10256              NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
10257              NOM_CAS         =SIMP(statut='f',typ='TXM',max='**'),
10258              ANGL            =SIMP(statut='f',typ='R',max='**'),
10259              FREQ            =SIMP(statut='f',typ='R',max='**'),
10260              LIST_FREQ       =SIMP(statut='f',typ=listr8),
10261              INST            =SIMP(statut='f',typ='R',max='**'),
10262              LIST_INST       =SIMP(statut='f',typ=listr8),
10263
10264              b_acce_reel     =BLOC(condition="(FREQ != None)or(LIST_FREQ != None)or(INST != None)or(LIST_INST != None)",
10265                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
10266                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10267              ),
10268            ),
10269
10270            b_parametres    =BLOC(condition="""(RESULTAT != None)and(FORMAT == 'RESULTAT')""",
10271              regles=(EXCLUS('TOUT_PARA','NOM_PARA'),),
10272              INFO_RESU       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10273              TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI","NON",) ),
10274              NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
10275              FORM_TABL       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON","EXCEL") ),
10276            ),
10277
10278            b_cmp=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and\
10279                                    ((FORMAT == 'RESULTAT')or(FORMAT == 'ENSIGHT')or(FORMAT == 'MED'))""",
10280                                  fr="sélection des composantes",
10281              regles=(EXCLUS('TOUT_CMP','NOM_CMP'),),
10282              TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10283              NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
10284            ),
10285
10286            b_gmsh=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and((FORMAT == 'GMSH'))""",
10287                                  fr="sélection des composantes et des entités toplogiques",
10288              NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
10289              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10290              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10291            ),
10292
10293            b_topologie=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and((FORMAT == 'RESULTAT')or(FORMAT == 'IDEAS'))""",
10294                                    fr="sélection des entités toplogiques",
10295              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10296              NOEUD           =SIMP(statut='f',typ=no,max='**'),
10297              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
10298              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10299              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10300            ),
10301
10302            b_valeurs         =BLOC(condition="(FORMAT == 'RESULTAT')",
10303                                    fr="sélection sur les valeurs",
10304              VALE_MAX        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10305              VALE_MIN        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10306              BORNE_SUP       =SIMP(statut='f',typ='R'),
10307              BORNE_INF       =SIMP(statut='f',typ='R'),
10308              IMPR_COOR       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10309              FORMAT_R        =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
10310            ),
10311
10312            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
10313            FICHIER         =SIMP(statut='f',typ='TXM'),
10314          ),
10315          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
10316 ) ;
10317 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
10318 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10319 # ======================================================================
10320 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10321 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10322 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10323 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10324 # (AT YOUR OPTION) ANY LATER VERSION.
10325 #
10326 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10327 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10328 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10329 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10330 #
10331 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10332 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10333 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10334 # ======================================================================
10335 IMPR_STURM=PROC(nom="IMPR_STURM",op=32,fr="Calculer et imprimer le nombre de valeurs propres dans un intervalle donné",
10336                 docu="U4.52.01-f",
10337          MATR_A          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
10338          MATR_B          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
10339          TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="DYNAMIQUE",into=("MODE_FLAMB","DYNAMIQUE"),
10340                                fr="Type d analyse" ),
10341          b_dynamique  =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
10342                             fr="Recheche du nombre de fréquences propres",
10343              FREQ_MIN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ,fr="Borne inférieure de l intervalle" ),
10344              FREQ_MAX        =SIMP(statut='o',typ='R',fr="Borne supérieure de l intervalle" ),
10345          ),
10346          b_mode_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
10347                             fr="Recherche du nombre de charges critiques",
10348              CHAR_CRIT_MIN   =SIMP(statut='o',typ='R',fr="Borne inférieure de l intervalle" ),
10349              CHAR_CRIT_MAX   =SIMP(statut='o',typ='R',fr="Borne supérieure de l intervalle" ),
10350          ),
10351          NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8 ),
10352          NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
10353          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
10354          PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
10355          SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
10356 )  ;
10357 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
10358 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10359 # ======================================================================
10360 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10361 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10362 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10363 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10364 # (AT YOUR OPTION) ANY LATER VERSION.
10365 #
10366 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10367 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10368 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10369 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10370 #
10371 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10372 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10373 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10374 # ======================================================================
10375 # RESPONSABLE VABHHTS J.PELLET
10376 IMPR_TABLE=PROC(nom="IMPR_TABLE",op=155,docu="U4.91.03-d2",
10377                 fr="Impression d un concept de type table",
10378          TABLE           =SIMP(statut='o',typ=table),
10379          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT", ),
10380          FORMAT          =SIMP(statut='f',typ='TXM',defaut="EXCEL",
10381                                into=("EXCEL","AGRAF","MOT_CLE","TABLEAU","ASTER") ),
10382          FILTRE          =FACT(statut='f',min=1,max='**',
10383            NOM_PARA        =SIMP(statut='o',typ='TXM'),
10384            CRIT_COMP       =SIMP(statut='f',typ='TXM',defaut="EQ",
10385                                  into=("EQ","LT","GT","NE","LE","GE","VIDE",
10386                                        "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
10387            b_vale          =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
10388               regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
10389               VALE            =SIMP(statut='f',typ='R'),
10390               VALE_I          =SIMP(statut='f',typ='I'),
10391               VALE_C          =SIMP(statut='f',typ='C'),
10392               VALE_K          =SIMP(statut='f',typ='TXM'),),
10393
10394            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10395            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10396          ),
10397          TRI             =FACT(statut='f',min=1,max=1,
10398            NOM_PARA        =SIMP(statut='o',typ='TXM',max='**'),
10399            ORDRE           =SIMP(statut='f',typ='TXM',max='**',defaut="CROISSANT",
10400                                  into=("CROISSANT","DECROISSANT") ),
10401            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10402            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10403          ),
10404          PAGINATION      =SIMP(statut='f',typ='TXM',max='**'),
10405          FORMAT_R        =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
10406          FORMAT_C        =SIMP(statut='f',typ='TXM',defaut="MODULE_PHASE",
10407                                     into=("MODULE_PHASE","REEL_IMAG") ),
10408          NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
10409          TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI",)),
10410          IMPR_FONCTION   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10411 )  ;
10412 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
10413 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10414 # ======================================================================
10415 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10416 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10417 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10418 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10419 # (AT YOUR OPTION) ANY LATER VERSION.
10420 #
10421 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10422 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10423 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10424 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10425 #
10426 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10427 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10428 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10429 # ======================================================================
10430 INCLUDE=MACRO(nom="INCLUDE",op=-1,docu="U4.13.01-e",
10431              fr="Débranchement vers un fichier de commandes secondaires",
10432              sd_prod=ops.INCLUDE,op_init=ops.INCLUDE_context,fichier_ini=1,
10433          UNITE = SIMP(statut='o',typ='I'),
10434          INFO  = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10435 );
10436 #& MODIF COMMANDE  DATE 14/02/2001   AUTEUR DURAND C.DURAND
10437 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10438 # ======================================================================
10439 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10440 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10441 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10442 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10443 # (AT YOUR OPTION) ANY LATER VERSION.
10444 #
10445 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10446 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10447 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10448 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10449 #
10450 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10451 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10452 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10453 # ======================================================================
10454 INCLUDE_MATERIAU=MACRO(nom="INCLUDE_MATERIAU",op=-14,docu="U4.43.02-a",
10455                        fr=" ",
10456          sd_prod=ops.INCLUDE_MATERIAU,op_init=ops.INCLUDE_context,fichier_ini=0,
10457          NOM_AFNOR       =SIMP(statut='o',typ='TXM' ),
10458          TYPE_MODELE     =SIMP(statut='o',typ='TXM',into=("REF","PAR") ),
10459          VARIANTE        =SIMP(statut='o',typ='TXM',
10460                                into=("A","B","C","D","E","F","G","H","I","J",
10461                                      "K","L","M","N","O","P","Q","R","S","T","U","V",
10462                                      "W","X","Y","Z",) ),
10463          TYPE_VALE       =SIMP(statut='o',typ='TXM',into=("NOMI","MINI","MAXI") ),
10464          NOM_MATER       =SIMP(statut='o',typ='TXM' ),
10465          UNITE           =SIMP(statut='f',typ='I',defaut= 32 ),
10466          EXTRACTION      =FACT(statut='f',min=01,max=99,
10467            COMPOR          =SIMP(statut='o',typ='TXM' ),
10468            TEMP_EVAL       =SIMP(statut='o',typ='R' ),
10469          ),
10470          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
10471 )  ;
10472 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
10473 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10474 # ======================================================================
10475 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10476 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10477 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10478 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10479 # (AT YOUR OPTION) ANY LATER VERSION.
10480 #
10481 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10482 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10483 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10484 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10485 #
10486 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10487 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10488 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10489 # ======================================================================
10490 # RESPONSABLE G8BHHXD X.DESROCHES
10491 INTE_MAIL_2D=OPER(nom="INTE_MAIL_2D",op=50,sd_prod=courbe,docu="U4.81.11-e",
10492                   fr="Définition d une courbe sur un maillage 2D",reentrant='n',
10493
10494          MAILLAGE        =SIMP(statut='o',typ=(maillage) ),
10495
10496          regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
10497                  AU_MOINS_UN('DEFI_SEGMENT','DEFI_ARC','DEFI_CHEMIN'),
10498                  PRESENT_ABSENT('DEFI_CHEMIN','DEFI_SEGMENT','DEFI_ARC'),
10499                  PRESENT_ABSENT('DEFI_SEGMENT','NOEUD_ORIG','GROUP_NO_ORIG'),
10500                  PRESENT_ABSENT('DEFI_ARC','NOEUD_ORIG','GROUP_NO_ORIG'),
10501                  EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
10502                  EXCLUS('DEFI_CHEMIN','DEFI_SEGMENT'),
10503                  EXCLUS('DEFI_CHEMIN','DEFI_ARC'),),
10504
10505          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10506          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10507          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10508
10509          DEFI_SEGMENT    =FACT(statut='f',min=01,max='**',
10510            regles=(UN_PARMI('ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
10511                    UN_PARMI('EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),),
10512            ORIGINE         =SIMP(statut='f',typ='R',min=2,max=2),
10513            NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
10514            GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
10515            EXTREMITE       =SIMP(statut='f',typ='R',min=2,max=2),
10516            NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
10517            GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
10518          ),
10519
10520          DEFI_ARC        =FACT(statut='f',min=01,max='**',
10521            regles=(UN_PARMI('CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),
10522                    UN_PARMI('RAYON','ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
10523                    UN_PARMI('RAYON','EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),
10524                    PRESENT_PRESENT('RAYON','SECTEUR'),),
10525            CENTRE          =SIMP(statut='f',typ='R',min=2,max=2),
10526            NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=1),
10527            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno,max=1),
10528            RAYON           =SIMP(statut='f',typ='R',max=1,val_min=0.E+0),
10529            SECTEUR         =SIMP(statut='f',typ='R',min=2,max=2,
10530                                  val_min=-180.E+0,val_max=180E+0),
10531            ORIGINE         =SIMP(statut='f',typ='R',min=2,max=2),
10532            NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
10533            GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
10534            EXTREMITE       =SIMP(statut='f',typ='R',min=2,max=2),
10535            NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
10536            GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
10537            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10538            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
10539                                  into=("RELATIF","ABSOLU",) ),
10540          ),
10541
10542          DEFI_CHEMIN     =FACT(statut='f',min=01,max='**',
10543            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
10544            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10545            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10546          ),
10547
10548          NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
10549          GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
10550          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
10551          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10552 )  ;
10553 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
10554 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10555 # ======================================================================
10556 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10557 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10558 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10559 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10560 # (AT YOUR OPTION) ANY LATER VERSION.
10561 #
10562 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10563 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10564 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10565 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10566 #
10567 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10568 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10569 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10570 # ======================================================================
10571 # RESPONSABLE G8BHHXD X.DESROCHES
10572 INTE_MAIL_3D=OPER(nom="INTE_MAIL_3D",op=96,sd_prod=surface,docu="U4.81.12-e",
10573                   fr="Définition d un chemin sur un maillage 3D",reentrant='n',
10574          MAILLAGE        =SIMP(statut='o',typ=maillage),
10575          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10576          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10577          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10578          DEFI_SEGMENT    =FACT(statut='o',min=01,max='**',
10579            regles=(UN_PARMI('ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
10580                    UN_PARMI('EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),),
10581            ORIGINE         =SIMP(statut='f',typ='R',min=3,max=3),
10582            NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
10583            GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
10584            EXTREMITE       =SIMP(statut='f',typ='R',min=3,max=3),
10585            NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
10586            GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
10587          ),
10588          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
10589          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10590 )  ;
10591 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
10592 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10593 # ======================================================================
10594 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10595 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10596 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10597 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10598 # (AT YOUR OPTION) ANY LATER VERSION.
10599 #
10600 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10601 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10602 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10603 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10604 #
10605 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10606 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10607 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10608 # ======================================================================
10609 def lire_champ_prod(TYPE_CHAM=None,**args):
10610   if TYPE_CHAM == "CHAM_NO_TEMP_R" : return cham_no_temp_r
10611   if TYPE_CHAM == "CHAM_NO_DEPL_R" : return cham_no_depl_r
10612   raise AsException("type de concept resultat non prevu")
10613
10614 LIRE_CHAMP=OPER(nom="LIRE_CHAMP",op= 192,sd_prod=lire_champ_prod,
10615                 fr="Lire un champ dans un fichier et le stocker dans un concept.",
10616                 ang="To read a field in a file and to save it in a concept.",
10617                 docu="U7.02.02-b2",reentrant='n',
10618 #
10619 # 1. Le maillage support du champ
10620 #
10621          MAILLAGE        =SIMP(statut='o',typ=maillage,
10622                           fr="Nom du maillage support du champ",
10623                           ang="Name of the mesh on which the field is defined" ),
10624 #
10625 # 2. Format de lecture
10626 #    Remarque : seul MED est operationnel dans cette version.
10627 #
10628          FORMAT          =SIMP(statut='f',typ='TXM',defaut="MED",into=("MED",),
10629                           fr="Format du fichier : MED seulement",
10630                           ang="Format of the file : MED only" ),
10631 #
10632 # 3. L'unite logique du fichier.
10633 #
10634          UNITE           =SIMP(statut='f',typ='I',defaut= 81,
10635                           fr="Le fichier est : fort.n.",
10636                           ang="File is : fort.n" ),
10637 #
10638 # 4. Pour le format MED, il faut preciser le nom sous lequel le champ est connu dans le fichier
10639 #    et les composantes a lire
10640 #
10641          b_format =BLOC(condition = "FORMAT == 'MED'",
10642                         fr="Nom du champ dans le fichier MED",
10643          regles=(UN_PARMI('NOM_CMP_IDEM','NOM_CMP'),
10644           PRESENT_PRESENT('NOM_CMP','NOM_CMP_MED' ),),
10645 #
10646             NOM_MED      =SIMP(statut='o',typ='TXM',
10647                           fr="Nom du champ dans le fichier MED.",
10648                           ang="Name of the field in the MED file." ),
10649 #
10650             NOM_CMP_IDEM =SIMP(statut='f',typ='TXM',into=("OUI",),
10651                           fr="Les composantes ont le meme nom dans MED et ASTER.",
10652                           ang="The names of the components are the same in ASTER and MED." ),
10653             NOM_CMP      =SIMP(statut='f',typ='TXM',max='**',
10654                           fr="Nom des composantes dans ASTER.",
10655                           ang="Names of the components in ASTER" ),
10656             NOM_CMP_MED  =SIMP(statut='f',typ='TXM',max='**',
10657                           fr="Nom des composantes dans MED.",
10658                           ang="Names of the components in MED" ),
10659 #
10660             NUME_ORDRE   =SIMP(statut='f',typ='I',max='**',
10661                           fr="Numéro d'ordre du champ à lire.",
10662                           ang="Rank number of the field to read."),
10663 #
10664             NUME_PT      =SIMP(statut='f',typ='I',max='**',
10665                           fr="Numéro du pas de temps du champ à lire.",
10666                           ang="Time step number of the field to read."),
10667 #
10668 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
10669 # le maillage associé au champ y a été enregistré. Par défaut, on prendra le premier maillage.
10670 #
10671             NOM_MAIL_MED = SIMP(statut='f',typ='TXM',
10672                            fr="Nom du maillage dans le fichier MED.",
10673                            ang="Name of the mesh into the MED file.",),
10674 #
10675                   ),
10676 #
10677 # 5. Le type du concept lu
10678 #
10679          TYPE_CHAM       =SIMP(statut='o',typ='TXM',into=("CHAM_NO_TEMP_R","CHAM_NO_DEPL_R"),
10680                           fr="Type de champ à créer.",
10681                           ang="Type of the field to create." ),
10682 #
10683 # 6. Le niveau d'information
10684 #
10685          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
10686 )  ;
10687 #& MODIF COMMANDE  DATE 06/03/2002   AUTEUR MCOURTOI M.COURTOIS
10688 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10689 # ======================================================================
10690 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10691 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10692 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10693 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10694 # (AT YOUR OPTION) ANY LATER VERSION.
10695 #
10696 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10697 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10698 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10699 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10700 #
10701 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10702 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10703 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10704 # ======================================================================
10705 LIRE_FONCTION=OPER(nom="LIRE_FONCTION",op=  83,sd_prod=fonction,
10706                    fr="Lecture d une fonction dans un fichier ",
10707                    docu="U4.32.02-f1",reentrant='n',
10708          UNITE           =SIMP(statut='o',typ='I' ),
10709          NOM_PARA        =SIMP(statut='f',typ='TXM',
10710                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
10711                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
10712          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
10713          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
10714          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10715          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10716          NOM_PARA_FONC   =SIMP(statut='f',typ='TXM',
10717                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
10718                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
10719          INTERPOL_FONC   =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
10720          PROL_DROITE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10721          PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10722          INFO            =SIMP(statut='f',typ='I',defaut= 2,into=( 1 , 2) ),
10723          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
10724 )  ;
10725 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
10726 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10727 # ======================================================================
10728 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10729 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10730 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10731 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10732 # (AT YOUR OPTION) ANY LATER VERSION.
10733 #
10734 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10735 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10736 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10737 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10738 #
10739 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10740 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10741 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10742 # ======================================================================
10743 LIRE_INTE_SPEC=OPER(nom="LIRE_INTE_SPEC",op= 116,sd_prod=tabl_intsp,
10744                     fr="Lecture sur un fichier externe de  fonctions complexes pour créer une matrice interspectrale",
10745                     docu="U4.36.01-f2",reentrant='n',
10746          UNITE           =SIMP(statut='o',typ='I' ),
10747          FORMAT          =SIMP(statut='f',typ='TXM',defaut="MODULE_PHASE",into=("REEL_IMAG","MODULE_PHASE") ),
10748          NOM_PARA        =SIMP(statut='f',typ='TXM',
10749                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
10750                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
10751          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
10752          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
10753          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10754          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10755          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
10756          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
10757 )  ;
10758 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
10759 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10760 # ======================================================================
10761 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10762 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10763 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10764 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10765 # (AT YOUR OPTION) ANY LATER VERSION.
10766 #
10767 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10768 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10769 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10770 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10771 #
10772 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10773 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10774 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10775 # ======================================================================
10776 # RESPONSABLE VABHHTS J.PELLET
10777 LIRE_MAILLAGE=OPER(nom="LIRE_MAILLAGE",op=   1,sd_prod=maillage,
10778                    fr="Lecture d'un fichier de maillage",
10779                    ang="Readings of a mesh file",
10780                    docu="U4.21.01-g1",reentrant='n',
10781 #
10782          UNITE           =SIMP(statut='f',typ='I',defaut= 20 ),
10783 #
10784          FORMAT          =SIMP(statut='f',typ='TXM',defaut="ASTER",into=("ASTER","MED"),
10785                             fr="Format du fichier : ASTER ou MED.",
10786                             ang="Format of the file : ASTER or MED.",),
10787 #
10788          ABSC_CURV       =FACT(statut='f',min=0,max=1,
10789                TOUT          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10790          ),
10791 #
10792          VERI_MAIL       =FACT(statut='d',min=1,max=1,
10793                VERIF         =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10794                APLAT         =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10795          ),
10796 #
10797          b_format_med =BLOC( condition = " ( FORMAT == 'MED' ) " ,
10798                            fr="Informations complémentaires pour la lecture MED.",
10799                            ang="Further information for MED readings.",
10800 #
10801 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
10802 # le maillage y a été enregistré. Par défaut, on va le chercher sous le nom du concept à créer.
10803 #
10804               NOM_MED    = SIMP(statut='f',typ='TXM',
10805                             fr="Nom du maillage dans le fichier MED.",
10806                             ang="Name of the mesh into the MED file.",),
10807 #
10808               INFO_MED   = SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
10809 #
10810                            ) ,
10811 #
10812          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
10813 #
10814 )  ;
10815 #& MODIF COMMANDE  DATE 16/07/2002   AUTEUR VABHHTS J.PELLET
10816 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10817 # ======================================================================
10818 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10819 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
10820 #              REDISTRIBUTION OF THIS FILE.
10821 # ======================================================================
10822 def lire_miss_3d_prod(TYPE_RESU,**args):
10823   if TYPE_RESU == "TRANS" : return dyna_trans
10824   if TYPE_RESU == "HARMO" : return dyna_harmo
10825   raise AsException("type de concept resultat non prevu")
10826
10827 LIRE_MISS_3D=OPER(nom="LIRE_MISS_3D",op= 163,sd_prod=lire_miss_3d_prod,
10828                   fr="Restitution au format MISS3D d une évolution harmonique ou transitoire",
10829                   docu="U7.02.31-c",reentrant='n',
10830          MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
10831          UNITE           =SIMP(statut='f',typ='I',defaut= 27 ),
10832          NOM             =SIMP(statut='f',typ='TXM' ),
10833          TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="TRANS",into=("TRANS","HARMO") ),
10834          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
10835 )  ;
10836 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
10837 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10838 # ======================================================================
10839 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10840 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10841 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10842 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10843 # (AT YOUR OPTION) ANY LATER VERSION.
10844 #
10845 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10846 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10847 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10848 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10849 #
10850 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10851 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10852 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10853 # ======================================================================
10854 LIRE_PLEXUS=OPER(nom="LIRE_PLEXUS",op= 184,sd_prod=evol_char,
10855                  fr=" ",
10856                  docu="U7.02.11-a",reentrant='n',
10857          regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
10858          UNITE           =SIMP(statut='f',typ='I',defaut= 19 ),
10859          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",)),
10860          MAIL_PLEXUS     =SIMP(statut='o',typ=maillage ),
10861          MAILLAGE        =SIMP(statut='o',typ=maillage ),
10862          MODELE          =SIMP(statut='o',typ=modele ),
10863          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10864          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
10865          LIST_ORDRE      =SIMP(statut='f',typ=listis ),
10866          INST            =SIMP(statut='f',typ='R',max='**'),
10867          LIST_INST       =SIMP(statut='f',typ=listr8 ),
10868          b_prec_crit     =BLOC(condition = "LIST_INST != None or INST != None",
10869              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10870              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
10871                                    into=("RELATIF","ABSOLU") ),
10872          ),
10873          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
10874 )  ;
10875 #& MODIF COMMANDE  DATE 16/07/2002   AUTEUR VABHHTS J.PELLET
10876 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10877 # ======================================================================
10878 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10879 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
10880 #              REDISTRIBUTION OF THIS FILE.
10881 # ======================================================================
10882 # RESPONSABLE VABHHTS J.PELLET
10883 def lire_resu_prod(TYPE_RESU,**args):
10884   if TYPE_RESU == "EVOL_CHAR" :  return evol_char
10885   if TYPE_RESU == "EVOL_THER" :  return evol_ther
10886   if TYPE_RESU == "EVOL_ELAS" :  return evol_elas
10887   if TYPE_RESU == "EVOL_NOLI" :  return evol_noli
10888   if TYPE_RESU == "DYNA_TRANS" : return dyna_trans
10889   if TYPE_RESU == "DYNA_HARMO" : return dyna_harmo
10890   if TYPE_RESU == "HARM_GENE" :  return harm_gene
10891   if TYPE_RESU == "MODE_MECA" :  return mode_meca
10892   raise AsException("type de concept resultat non prevu")
10893
10894 LIRE_RESU=OPER(nom="LIRE_RESU",op=150,sd_prod=lire_resu_prod,docu="U7.02.01-d2",reentrant='n',
10895                fr="Lecture de champs aux noeuds ou par éléments aux noeuds sur un fichier IDEAS ou EnSight",
10896
10897
10898 # 0 mots clés généraux :
10899 #----------------------
10900          TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_THER","EVOL_ELAS","EVOL_NOLI","MODE_MECA",
10901                                                           "DYNA_TRANS","DYNA_HARMO","HARM_GENE","EVOL_CHAR") ),
10902
10903          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS","ENSIGHT","MED") ),
10904          DATASET_58      =SIMP(statut='f',typ='TXM',defaut='NON',into=('OUI','NON',) ),
10905
10906          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
10907          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
10908
10909          regles=(UN_PARMI('MAILLAGE','MODELE'),),
10910          MAILLAGE        =SIMP(statut='f',typ=maillage),
10911          MODELE          =SIMP(statut='f',typ=modele),
10912
10913          NB_VARI         =SIMP(statut='f',typ='I' ),
10914
10915
10916 # 1 blocs selon le format choisi :
10917 #---------------------------------
10918
10919 # 1-1 ideas :
10920 # ---------
10921          b_ideas         =BLOC(condition="FORMAT=='IDEAS'",
10922            UNITE           =SIMP(statut='f',typ='I',defaut= 19 ),
10923          ),
10924
10925          b_format_ideas = BLOC(condition="DATASET_58=='NON'",
10926            FORMAT_IDEAS    =FACT(statut='f',max='**',
10927              regles=(UN_PARMI('POSI_INST','POSI_FREQ'),),
10928              NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',into=("TEMP","DEPL","VITE","ACCE","PRES","VARI_ELNO",
10929                                                                      "SIEF_ELNO","EPSA_ELNO","TEMP_PEAU","VITE_VENT",
10930                                                                      "FVOL_3D","FVOL_2D","FSUR_3D","FSUR_2D") ),
10931              NUME_DATASET    =SIMP(statut='f',typ='I',into=(55,57,2414) ),
10932              RECORD_3        =SIMP(statut='f',typ='I',max=10),
10933              RECORD_6        =SIMP(statut='f',typ='I',max=10),
10934              RECORD_9        =SIMP(statut='f',typ='I',max=10),
10935              POSI_ORDRE      =SIMP(statut='o',typ='I',min=2,max=2),
10936              POSI_NUME_MODE  =SIMP(statut='f',typ='I',min=2,max=2),
10937              POSI_MASS_GENE  =SIMP(statut='f',typ='I',min=2,max=2),
10938              POSI_INST       =SIMP(statut='f',typ='I',min=2,max=2),
10939              POSI_FREQ       =SIMP(statut='f',typ='I',min=2,max=2),
10940              NOM_CMP         =SIMP(statut='o',typ='TXM',max='**'),),
10941          ),
10942          b_dataset_58 = BLOC(condition="(DATASET_58=='OUI') and ((TYPE_RESU=='DYNA_TRANS') or\
10943                                         (TYPE_RESU=='DYNA_HARMO') or (TYPE_RESU=='HARM_GENE'))",
10944              NOM_CHAM=SIMP(statut='o',typ='TXM',into=("DEPL","VITE","ACCE","EPSI_NOEU_DEPL","SIEF_NOEU",) ),
10945              REDEFI_ORIENT=FACT(statut='f',max='**',
10946                                 regles=(PRESENT_PRESENT('CODE_DIR','DIRECTION','NOEUD',),),
10947                                 CODE_DIR =SIMP(statut='f',typ='I',into=(1,2,3,) ),
10948                                 DIRECTION=SIMP(statut='f',typ='R',min=3,max=3,),
10949                                 NOEUD    =SIMP(statut='f',typ=no,max='**'),),
10950          ),
10951 # 1-2 ensight :
10952 # -------------
10953          b_ensight       =BLOC(condition="FORMAT=='ENSIGHT'",
10954            NOM_FICHIER     =SIMP(statut='f',typ='TXM'),
10955          ),
10956 # 1-3 med :
10957 # ---------
10958          b_med           =BLOC(condition = "FORMAT == 'MED'",fr="Nom du champ dans le fichier MED",
10959 #                           regles=(UN_PARMI('NOM_CMP_IDEM','NOM_CMP'),
10960 #                           PRESENT_PRESENT('NOM_CMP','NOM_CMP_MED' ),),
10961            NOM_MED         =SIMP(statut='o',typ='TXM',
10962                                  fr="Nom du champ dans le fichier MED.",
10963                                  ang="Name of the field in the MED file." ),
10964            NOM_CMP_IDEM    =SIMP(statut='f',typ='TXM',into=("OUI",),
10965                                  fr="Les composantes ont le meme nom dans MED et ASTER.",
10966                                  ang="The names of the components are the same in ASTER and MED." ),
10967            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**',
10968                                  fr="Nom des composantes dans ASTER.",
10969                                  ang="Names of the components in ASTER" ),
10970            NOM_CMP_MED     =SIMP(statut='f',typ='TXM',max='**',
10971                                  fr="Nom des composantes dans MED.",
10972                                  ang="Names of the components in MED" ),
10973 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
10974 # le maillage associé au champ y a été enregistré. Par défaut, on prendra le premier maillage.
10975            NOM_MAIL_MED    =SIMP(statut='f',typ='TXM',
10976                                  fr="Nom du maillage dans le fichier MED.",
10977                                  ang="Name of the mesh into the MED file.",),
10978            UNITE           =SIMP(statut='f',typ='I',defaut= 81,
10979                                  fr="Le fichier est : fort.n.",
10980                                  ang="File is : fort.n" ),
10981                   ),
10982
10983
10984 # 2 blocs selon le type du résultat :
10985 #---------------------------------
10986          b_evol_elas     =BLOC(condition="TYPE_RESU=='EVOL_ELAS'",
10987            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
10988                                  into=("DEPL",) ),
10989          ),
10990          b_evol_ther     =BLOC(condition="TYPE_RESU=='EVOL_THER'",
10991            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
10992                                  into=("TEMP","TEMP_PEAU") ),
10993          ),
10994          b_evol_char     =BLOC(condition="TYPE_RESU=='EVOL_CHAR'",
10995            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
10996                                  into=("PRES","VITE_VENT",
10997                                        "FVOL_3D","FVOL_2D",
10998                                        "FSUR_3D","FSUR_2D") ),
10999          ),
11000          b_evol_noli     =BLOC(condition="TYPE_RESU=='EVOL_NOLI'",
11001            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
11002                                  into=("DEPL","VITE","ACCE","VARI_ELNO",
11003                                        "SIEF_ELNO","EPSA_ELNO") ),
11004          ),
11005          b_mode_meca     =BLOC(condition="TYPE_RESU=='MODE_MECA'",
11006            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
11007                                  into=("DEPL",) ),
11008          ),
11009          b_dyna          =BLOC(condition="((TYPE_RESU=='DYNA_TRANS') or (TYPE_RESU=='DYNA_HARMO') or\
11010                                           (TYPE_RESU=='HARM_GENE')) and (DATASET_58=='NON')",
11011            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
11012                                  into=("DEPL","VITE","ACCE",) ),
11013          ),
11014
11015
11016 # 3 autres blocs :
11017 #---------------------------------
11018          b_extrac        =BLOC(condition="1",fr="accès à un champ dans la structure de données résultat",
11019            regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST','FREQ','LIST_FREQ'),),
11020            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11021            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
11022            INST            =SIMP(statut='f',typ='R',max='**'),
11023            LIST_INST       =SIMP(statut='f',typ=listr8),
11024            LIST_ORDRE      =SIMP(statut='f',typ=listis),
11025            FREQ            =SIMP(statut='f',typ='R',max='**'),
11026            LIST_FREQ       =SIMP(statut='f',typ=listr8),
11027
11028            b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)or(FREQ != None)or(LIST_FREQ != None)",
11029              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
11030              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
11031            ),
11032          ),
11033 )  ;
11034 #& MODIF COMMANDE  DATE 08/08/2002   AUTEUR CIBHHLV L.VIVAN
11035 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11036 # ======================================================================
11037 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
11038 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11039 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11040 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11041 # (AT YOUR OPTION) ANY LATER VERSION.
11042 #
11043 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11044 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11045 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11046 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11047 #
11048 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11049 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11050 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11051 # ======================================================================
11052 def lire_table_prod(TYPE_TABLE,**args):
11053   if TYPE_TABLE == "TABLE"          : return table
11054   if TYPE_TABLE == "TABL_CARA_GEOM" : return tabl_cara_geom
11055   if TYPE_TABLE == "TABL_POST_RELE" : return tabl_post_rele
11056   if TYPE_TABLE == "TABL_POST_USUR" : return tabl_post_usur
11057   if TYPE_TABLE == "TABL_POST_ALEA" : return tabl_post_alea
11058   raise AsException("type de concept resultat non prevu")
11059 LIRE_TABLE=OPER(nom="LIRE_TABLE",op=29,sd_prod=lire_table_prod,
11060                 docu="U7.02.03",fr="Lecture d un concept de type table",
11061          UNITE           =SIMP(statut='o',typ='I' ),
11062          FORMAT          =SIMP(statut='f',typ='TXM',into=("ASTER",),defaut="ASTER"),
11063          NUME_TABLE      =SIMP(statut='f',typ='I',defaut=1),
11064          TYPE_TABLE      =SIMP(statut='f',typ='TXM',defaut="TABLE",
11065                               into=("TABLE",
11066                                     "TABL_CARA_GEOM",
11067                                     "TABL_POST_RELE",
11068                                     "TABL_POST_USUR",
11069                                     "TABL_POST_ALEA" ) ),
11070          SEPARATEUR      =SIMP(statut='o',typ='TXM'),
11071          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11072          )  ;
11073 #& MODIF COMMANDE  DATE 16/07/2002   AUTEUR GNICOLAS G.NICOLAS
11074 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11075 # ======================================================================
11076 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11077 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11078 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11079 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11080 # (AT YOUR OPTION) ANY LATER VERSION.
11081 #
11082 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11083 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11084 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11085 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11086 #
11087 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11088 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11089 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11090 # ======================================================================
11091 # RESPONSABLE GNICOLAS G.NICOLAS
11092 def macr_adap_mail_prod(self,MAJ_CHAM,ADAPTATION,**args):
11093   mail1=ADAPTATION['MAILLAGE_N']
11094   self.type_sdprod(mail1,maillage)
11095   mail2=ADAPTATION['MAILLAGE_NP1']
11096   self.type_sdprod(mail2,maillage)
11097   if MAJ_CHAM == None:return None
11098   for ch in MAJ_CHAM:
11099     t=ch['TYPE_CHAM']
11100     if t == 'CHAM_NO_TEMP_R':self.type_sdprod(ch['CHAM_MAJ'],cham_no_temp_r)
11101     if t == 'CHAM_NO_DEPL_R':self.type_sdprod(ch['CHAM_MAJ'],cham_no_depl_r)
11102   return None
11103
11104 MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",op=-24,sd_prod=macr_adap_mail_prod,
11105                      fr="Adapter un maillage avec le logiciel HOMARD.",
11106                      ang="Mesh adaptation with HOMARD software.",
11107                      docu="U7.03.01-b2",
11108 #
11109 # 1. Le niveau d'information
11110 #
11111          INFO           = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
11112 #
11113 # 2. Version de HOMARD
11114 #
11115          VERSION_HOMARD = SIMP(statut='f',typ='TXM',defaut="V5_3",
11116                                into=("V5_3", "V5_N", "V5_N_PERSO"),
11117                            fr="Version de HOMARD",
11118                            ang="HOMARD release"),
11119 #
11120 # 3. Langue des messages issus de HOMARD
11121 #
11122          LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
11123                                into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
11124                            fr="Langue des messages issus de HOMARD.",
11125                            ang="Language for HOMARD messages." ),
11126 #
11127 # 4. LE TYPE DE TRAITEMENT :
11128 #
11129          ADAPTATION      =FACT(statut='o',min=01,max=01,
11130                            fr="Type d'adaptation",
11131                            ang="Type of adaptation",
11132 #
11133 # 4.1. DEUX CHOIX D'ADAPTATION EXCLUSIFS :
11134 #
11135 # 4.1.
11136 #      A. SELON UN INDICATEUR D'ERREUR, AVEC TROIS VARIANTES :
11137 #         . RAFFINEMENT ET DERAFFINEMENT
11138 #         . RAFFINEMENT SEUL
11139 #         . DERAFFINEMENT SEUL
11140 #      B. UNIFORME, AVEC TROIS VARIANTES :
11141 #         . RAFFINEMENT SEUL
11142 #         . DERAFFINEMENT SEUL
11143 #         . RIEN : LE MAILLAGE EST LE MEME A LA SORTIE ET A L'ENTREE
11144 #
11145            regles=(
11146                    UN_PARMI('LIBRE','UNIFORME'),
11147                   ),
11148            LIBRE          = SIMP(statut='f',typ='TXM',
11149                                  into=("RAFF_DERA","RAFFINEMENT","DERAFFINEMENT"),
11150                            fr="Adaptation selon un indicateur d'erreur.",
11151                            ang="Adaptation among an error indicator" ),
11152            UNIFORME       = SIMP(statut='f',typ='TXM',
11153                                  into=("RAFFINEMENT","DERAFFINEMENT","RIEN"),
11154                            fr="Adaptation uniforme.",
11155                            ang="Uniform adaptation" ),
11156 #
11157 # 4.2. QUEL QUE SOIT LE TYPE DE TRAITEMENT, IL FAUT DONNER  :
11158 #      A. LE CONCEPT DU MAILLAGE INITIAL
11159 #      B. LE CONCEPT DU MAILLAGE FINAL
11160 #
11161            MAILLAGE_N     = SIMP(statut='o',typ=(CO,maillage),
11162                            fr="Maillage avant adaptation",
11163                            ang="Mesh before adaptation" ),
11164            MAILLAGE_NP1   = SIMP(statut='o',typ=(CO,maillage),
11165                            fr="Maillage apres adaptation",
11166                            ang="Mesh after adaptation" ),
11167 #
11168 # 4.3. POUR DE L'ADAPTATION LIBRE, IL FAUT L'INDICATEUR D'ERREUR
11169 #
11170 #
11171            b_indicateur_d_erreur   =BLOC( condition = " LIBRE != None " ,
11172                            fr="Indicateur d'erreur",
11173                            ang="Error indicator",
11174 #
11175 # 4.3.1. LE NOM DU CONCEPT RESULTAT
11176 #
11177                            RESULTAT_N     = SIMP(statut='o',typ=(evol_elas,evol_noli,evol_ther) ,
11178                            fr="Resultat contenant l'indicateur d'erreur",
11179                            ang="Result with error indicator" ),
11180 #
11181 # 4.3.2. LE CHAMP D'INDICATEUR D'ERREUR
11182 #
11183                            INDICATEUR     = SIMP(statut='o',typ='TXM',
11184                            fr="Champ de l'indicateur d'erreur",
11185                            ang="Error indicator field" ),
11186 #
11187 # 4.3.3. LA COMPOSANTE RETENUE
11188 #
11189                            NOM_CMP_INDICA = SIMP(statut='o',typ='TXM',
11190                            fr="Composante retenue",
11191                            ang="Selected component" ),
11192 #
11193 # 4.3.4. LE NUMERO D'ORDRE
11194 #
11195                            NUME_ORDRE     = SIMP(statut='f',typ='I' ,
11196                            fr="Numero d ordre",
11197                            ang="Rank" ),
11198                            ) ,
11199 #
11200 # 4.4. LES CRITERES POUR DE L'ADAPTATION LIBRE :
11201 #        ABSOLU, RELATIF, EN PROPORTION D'ENTITE
11202 # 4.4.1. POUR LE RAFFINEMENT :
11203 #
11204            b_critere_de_raffinement =BLOC( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'RAFFINEMENT' ) " ,
11205                            fr="Critère de raffinement.",
11206                            ang="Refinement threshold.",
11207                            regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE' ),),
11208                            CRIT_RAFF_ABS  = SIMP(statut='f',typ='R',
11209                                                    fr="Critère absolu",
11210                                                    ang="Absolute threshold" ),
11211                            CRIT_RAFF_REL  = SIMP(statut='f',typ='R',
11212                                                    fr="Critère relatif",
11213                                                    ang="Relative threshold" ),
11214                            CRIT_RAFF_PE   = SIMP(statut='f',typ='R',
11215                                                    fr="Pourcentage d'éléments",
11216                                                    ang="Percentage of elements" ),
11217                            ) ,
11218 #
11219 # 4.4.2. POUR LE DERAFFINEMENT :
11220 #
11221            b_critere_de_deraffinement =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'DERAFFINEMENT' ) " ,
11222                            fr="Critère de déraffinement.",
11223                            ang="Unrefinement threshold.",
11224                            regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE' ),),
11225                            CRIT_DERA_ABS  = SIMP(statut='f',typ='R' ,
11226                                                  fr="Critère absolu",
11227                                                  ang="Absolute threshold" ),
11228                            CRIT_DERA_REL  = SIMP(statut='f',typ='R',
11229                                                  fr="Critère relatif",
11230                                                  ang="Relative threshold" ),
11231                            CRIT_DERA_PE   = SIMP(statut='f',typ='R',
11232                                                  fr="Pourcentage d'éléments",
11233                                                  ang="Percentage of elements" ),
11234                            ) ,
11235 #
11236 # 4.5. LES NIVEAUX EXTREMES POUR LE MAILLAGE ADAPTE
11237 # 4.5.1. POUR LE RAFFINEMENT :
11238 #
11239            b_niveau_maximum =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'RAFFINEMENT' ) or \
11240                                                   ( UNIFORME == 'RAFFINEMENT' ) " ,
11241                              fr="Niveau maximum de profondeur de raffinement",
11242                              ang="Maximum level for refinement",
11243                              NIVE_MAX       = SIMP(statut='f',typ='I' ),
11244                            ) ,
11245 #
11246 # 4.5.2. POUR LE DERAFFINEMENT :
11247 #
11248            b_niveau_minimum =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'DERAFFINEMENT' ) or \
11249                                                   ( UNIFORME == 'DERAFFINEMENT' ) " ,
11250                              fr="Niveau minimum de profondeur de déraffinement",
11251                              ang="Minimum level for unrefinement",
11252                              NIVE_MIN       = SIMP(statut='f',typ='I' ),
11253                            ) ,
11254          ),
11255 #
11256 # 5. LA MISE A JOUR DE CHAMPS.
11257 #    PAR DEFAUT, RIEN NE SE FAIT
11258 #
11259          MAJ_CHAM        =FACT(statut='f',min=01,max='**',
11260                            fr="Mise à jour de champs sur le nouveau maillage.",
11261                            ang="Updating of fields over the new mesh.",
11262 #
11263 # 5.1. LE NOM DU RESULTAT DU CHAMP A INTERPOLER
11264 #
11265            RESULTAT       = SIMP(statut='o',
11266                                  typ=(evol_elas,evol_noli,evol_ther),
11267                            fr="Resultat contenant le champ à mettre à jour",
11268                            ang="Result with field to be updated" ),
11269 #
11270 # 5.2. LE NOM DU CHAMP A INTERPOLER
11271 #
11272            NOM_CHAM       = SIMP(statut='o',typ='TXM',
11273                            fr="Nom du champ à mettre à jour",
11274                            ang="Name of the field to be updated" ),
11275 #
11276 # 5.3. LE NUMERO D'ORDRE POUR LE CHAMP A INTERPOLER
11277 #
11278            NUME_ORDRE     = SIMP(statut='f',typ='I',
11279                            fr="Numero d ordre du champ à mettre à jour",
11280                            ang="Rank of the field to be updated" ),
11281 #
11282 # 5.4. LE NOM DU CHAMP QUI CONTIENDRA LE RESULTAT DE LA MISE A JOUR
11283 #
11284            CHAM_MAJ       = SIMP(statut='o',typ=(CO,cham_gd),
11285                            fr="Nom du champ qui contiendra le champ mis à jour",
11286                            ang="Name of the field for the updated field"),
11287 #
11288 # 5.5. LE TYPE DU CHAMP QUI CONTIENDRA LE RESULTAT DE LA MISE A JOUR
11289 #
11290            TYPE_CHAM      = SIMP(statut='o',typ='TXM',
11291                                  into=("CHAM_NO_TEMP_R","CHAM_NO_DEPL_R"),
11292                            fr="Type du champ qui contiendra le champ mis à jour",
11293                            ang="Type of the field for the updated field" ),
11294          ),
11295 #
11296 # 6. INFORMATION SUR LE MAILLAGE : par defaut, on ne fait que les nombres
11297 #    A. NOMBRE DE NOEUDS ET ELEMENTS DU MAILLAGE
11298 #    B. QUALITE DES ELEMENTS DU MAILLAGE
11299 #    C. CONTROLE DE LA NON INTERPENETRATION DES ELEMENTS DU MAILLAGE
11300 #    D. CONNEXITE DU MAILLAGE
11301 #    E. TAILLE DES DIFFERENTS SOUS-DOMAINES
11302 #
11303          NOMBRE         = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
11304                           fr="Nombre de noeuds et éléments du maillage",
11305                           ang="Number of nodes and elements in the mesh" ),
11306 #
11307          QUALITE        = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11308                           fr="Qualité du maillage",
11309                           ang="Mesh quality" ),
11310 #
11311          INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11312                           fr="Controle de la non interpénétration des éléments.",
11313                           ang="Overlapping checking." ),
11314 #
11315          CONNEXITE      = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11316                           fr="Connexité du maillage.",
11317                           ang="Mesh connexity." ),
11318 #
11319          TAILLE         = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11320                           fr="Tailles des sous-domaines du maillage.",
11321                           ang="Sizes of mesh sub-domains." ),
11322 #
11323          MENAGE         = SIMP(statut='f',typ='TXM',into=("MAILLAGE","SOLUTION","TOUT") ),
11324 #
11325 )  ;
11326 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
11327 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11328 # ======================================================================
11329 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11330 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11331 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11332 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11333 # (AT YOUR OPTION) ANY LATER VERSION.
11334 #
11335 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11336 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11337 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11338 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11339 #
11340 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11341 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11342 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11343 # ======================================================================
11344 # RESPONSABLE F1BHHAJ J.ANGLES
11345 def macr_ascouf_calc_prod(self,MODELE,CHAM_MATER,CARA_ELEM,FOND_FISS,CHARGE,RESU_THER,**args):
11346   self.type_sdprod(MODELE,modele)
11347   if CHAM_MATER != None:self.type_sdprod(CHAM_MATER,cham_mater)
11348   if CARA_ELEM  != None:self.type_sdprod(CARA_ELEM,cara_elem)
11349   if FOND_FISS  != None:self.type_sdprod(FOND_FISS,fond_fiss)
11350   if CHARGE     != None:self.type_sdprod(CHARGE,char_meca)
11351   if RESU_THER  != None:self.type_sdprod(RESU_THER,evol_ther)
11352   return evol_noli
11353
11354 MACR_ASCOUF_CALC=MACRO(nom="MACR_ASCOUF_CALC",op= -20,sd_prod=macr_ascouf_calc_prod,
11355                       fr=" ",
11356                       docu="U4.CF.20-b1",reentrant='n',
11357          regles=(UN_PARMI('COMP_INCR','COMP_ELAS'),),
11358
11359          TYPE_MAILLAGE   =SIMP(statut='o',typ='TXM',
11360                                into=("SAIN",
11361                                      "FISS_COUDE",
11362                                      "SOUS_EPAIS_COUDE"
11363                                      ) ),
11364
11365          CL_BOL_P2_GV    =FACT(statut='f',min=1,max=1,
11366            ANGLE           =SIMP(statut='o',typ='R' ),
11367            AZIMUT          =SIMP(statut='f',typ='R',defaut= 90. ),
11368          ),
11369
11370          MAILLAGE        =SIMP(statut='o',typ=maillage ),
11371          MODELE          =SIMP(statut='o',typ=(CO,modele)),
11372          CHAM_MATER      =SIMP(statut='f',typ=(CO,cham_mater)),
11373          CARA_ELEM       =SIMP(statut='f',typ=(CO,cara_elem)),
11374          FOND_FISS       =SIMP(statut='f',typ=(CO,fond_fiss)),
11375          CHARGE          =SIMP(statut='f',typ=(CO,char_meca)),
11376          RESU_THER       =SIMP(statut='f',typ=(CO,evol_ther)),
11377
11378          AFFE_MATERIAU   =FACT(statut='o',min=1,max=3,
11379            regles=(UN_PARMI('TOUT','GROUP_MA'),),
11380            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11381            GROUP_MA        =SIMP(statut='f',typ='TXM',into=("COUDE","BOL") ),
11382            MATER           =SIMP(statut='o',typ=mater ),
11383            TEMP_REF        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11384          ),
11385
11386          PRES_REP        =FACT(statut='f',min=1,max=1,
11387            PRES            =SIMP(statut='o',typ='R' ),
11388            EFFE_FOND_P1    =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11389            FONC_MULT       =SIMP(statut='f',typ=fonction ),
11390          ),
11391
11392          ECHANGE         =FACT(statut='f',min=1,max=1,
11393            COEF_H          =SIMP(statut='f',typ=fonction ),
11394            TEMP_EXT        =SIMP(statut='f',typ=fonction ),
11395          ),
11396
11397          TORS_P1         =FACT(statut='f',min=1,max=6,
11398            regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
11399            FX              =SIMP(statut='f',typ='R' ),
11400            FY              =SIMP(statut='f',typ='R' ),
11401            FZ              =SIMP(statut='f',typ='R' ),
11402            MX              =SIMP(statut='f',typ='R' ),
11403            MY              =SIMP(statut='f',typ='R' ),
11404            MZ              =SIMP(statut='f',typ='R' ),
11405            FONC_MULT       =SIMP(statut='f',typ=fonction ),
11406          ),
11407
11408          COMP_INCR       =FACT(statut='f',min=1,max=1,
11409            RELATION        =SIMP(statut='o',typ='TXM',into=("VMIS_ISOT_TRAC",) ),
11410            VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut= 2,into=( 2 ,) ),
11411          ),
11412
11413          COMP_ELAS       =FACT(statut='f',min=1,max=1,
11414            RELATION        =SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC") ),
11415            ELAS            =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
11416            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
11417          ),
11418
11419          SOLVEUR         =FACT(statut='d',min=1,max=1,
11420            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
11421            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
11422              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
11423            ),
11424            b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
11425              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11426            ),
11427            b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
11428                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
11429              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
11430              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11431            ),
11432            b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
11433              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
11434              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
11435              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
11436              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
11437              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
11438            ),
11439 #  A quoi sert eps
11440            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11441            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11442          ),
11443
11444          CONVERGENCE     =FACT(statut='d',min=1,max=1,
11445            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
11446            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
11447            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
11448            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
11449            RESI_INTE_RELA  =SIMP(statut='f',typ='R'
11450                                 ,defaut= 1.0E-6),
11451            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
11452            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut= 0 ),
11453            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
11454            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
11455          ),
11456
11457          NEWTON          =FACT(statut='d',min=1,max=1,
11458            REAC_INCR       =SIMP(statut='f',typ='I',defaut= 1 ),
11459            PREDICTION      =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
11460            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
11461            REAC_ITER       =SIMP(statut='f',typ='I',defaut=0),
11462            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
11463          ),
11464
11465          RECH_LINEAIRE   =FACT(statut='f',min=1,max=1,
11466            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11467            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 3),
11468          ),
11469
11470          INCREMENT       =FACT(statut='o',min=1,max=1,
11471            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
11472                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
11473            LIST_INST       =SIMP(statut='o',typ=listr8),
11474            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
11475                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
11476            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
11477            INST_INIT       =SIMP(statut='f',typ='R'),
11478            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
11479            INST_FIN        =SIMP(statut='f',typ='R'),
11480            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
11481            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
11482            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
11483            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
11484          ),
11485
11486          THETA_3D        =FACT(statut='f',min=1,max='**',
11487            R_INF           =SIMP(statut='o',typ='R' ),
11488            R_SUP           =SIMP(statut='o',typ='R' ),
11489          ),
11490
11491          IMPR_TABLE      =FACT(statut='f',min=1,max=1,
11492            regles=(UN_PARMI('TOUT_PARA','NOM_PARA', ),
11493             PRESENT_PRESENT('TOUT_PARA','ANGLE',    ),
11494             PRESENT_PRESENT('TOUT_PARA','R_CINTR',  ),
11495                    UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL',),),
11496            NOM_PARA        =SIMP(statut='f',typ='TXM',max=4,
11497                                  into=("TRESCA_MEMBRANE",
11498                                        "TRESCA_MFLE",
11499                                        "TRESCA",
11500                                        "SI_LONG"
11501                                        "SI_RADI"
11502                                        "SI_CIRC"
11503                                        ) ),
11504            TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11505            ANGLE           =SIMP(statut='f',typ='R',max='**' ),
11506            R_CINTR         =SIMP(statut='f',typ='R',max='**' ),
11507            POSI_CURV_LONGI =SIMP(statut='f',typ='R',max='**' ),
11508            POSI_ANGUL      =SIMP(statut='f',typ='R',max='**' ),
11509            TRANSFORMEE     =SIMP(statut='f',typ='TXM',defaut="COUDE",into=("COUDE","TUBE") ),
11510          ),
11511
11512          IMPRESSION      =FACT(statut='f',min=1,max=1,
11513            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
11514                                  into=("RESULTAT","ASTER","IDEAS","CASTEM") ),
11515
11516            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
11517              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
11518            ),
11519
11520            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
11521              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
11522            ),
11523
11524          ),
11525
11526          TITRE           =SIMP(statut='f',typ='TXM' ),
11527
11528          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11529 )  ;
11530 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
11531 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11532 # ======================================================================
11533 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11534 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11535 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11536 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11537 # (AT YOUR OPTION) ANY LATER VERSION.
11538 #
11539 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11540 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11541 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11542 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11543 #
11544 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11545 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11546 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11547 # ======================================================================
11548 # RESPONSABLE F1BHHAJ J.ANGLES
11549 MACR_ASCOUF_MAIL=MACRO(nom="MACR_ASCOUF_MAIL",op= -19,sd_prod=maillage,
11550                       fr=" ",docu="U4.CF.10-b1",reentrant='n',
11551
11552          regles=(EXCLUS('SOUS_EPAIS_COUDE','FISS_COUDE','SOUS_EPAIS_MULTI'),),
11553
11554          EXEC_MAILLAGE   =FACT(statut='o',min=1,max=1,
11555            LOGICIEL        =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000") ),
11556            UNITE_DATG      =SIMP(statut='f',typ='I',defaut=70),
11557            UNITE_MGIB      =SIMP(statut='f',typ='I',defaut=19),
11558            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10,11)),
11559          ),
11560
11561          TYPE_ELEM       =SIMP(statut='f',typ='TXM',defaut="CU20",into=("CU20","CUB8") ),
11562
11563          COUDE           =FACT(statut='o',min=1,max=1,
11564            ANGLE           =SIMP(statut='o',typ='R' ),
11565            R_CINTR         =SIMP(statut='o',typ='R' ),
11566            L_TUBE_P1       =SIMP(statut='o',typ='R' ),
11567            L_TUBE_P2       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11568            NB_ELEM_EPAIS   =SIMP(statut='f',typ='I',defaut= 3 ),
11569            SYME            =SIMP(statut='f',typ='TXM',defaut="ENTIER",into=("ENTIER","QUART","DEMI") ),
11570            TRANSFORMEE     =SIMP(statut='o',typ='TXM',defaut="COUDE",into=("COUDE","TUBE") ),
11571            b_transf_coude  =BLOC(condition = "TRANSFORMEE == 'COUDE' ",
11572               DEXT            =SIMP(statut='o',typ='R' ),
11573               EPAIS           =SIMP(statut='o',typ='R' ),
11574               SUR_EPAIS       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11575               BOL_P2          =SIMP(statut='f',typ='TXM',into=("ASP_MPP","CUVE","GV") ),
11576            ),
11577            b_transf_tube   =BLOC(condition = "TRANSFORMEE == 'TUBE' ",
11578               TRAN_EPAIS      =SIMP(statut='o',typ='TXM',defaut="NON",into=("OUI","NON") ),
11579               b_trans_epais_oui    =BLOC(condition = "TRAN_EPAIS == 'OUI' ",
11580                       regles=(ENSEMBLE('ANGL_TETA2','EPAIS_TI'),
11581                               UN_PARMI('ABSC_CURV_TRAN','POSI_ANGU_TRAN'),),
11582                       DEXT_T1         =SIMP(statut='o',typ='R' ),
11583                       EPAIS_T1        =SIMP(statut='o',typ='R' ),
11584                       EPAIS_T2        =SIMP(statut='o',typ='R' ),
11585                       EPAIS_TI        =SIMP(statut='f',typ='R' ),
11586                       ANGL_TETA1      =SIMP(statut='o',typ='R' ),
11587                       ANGL_TETA2      =SIMP(statut='f',typ='R' ),
11588                       ABSC_CURV_TRAN  =SIMP(statut='f',typ='R' ),
11589                       POSI_ANGU_TRAN  =SIMP(statut='f',typ='R' ),
11590               ),
11591               b_trans_epais_non    =BLOC(condition = "TRAN_EPAIS == 'NON' ",
11592                       DEXT            =SIMP(statut='o',typ='R' ),
11593                       EPAIS           =SIMP(statut='o',typ='R' ),
11594                       SUR_EPAIS       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11595                       BOL_P2          =SIMP(statut='f',typ='TXM',into=("ASP_MPP","CUVE","GV") ),
11596               ),
11597            ),
11598          ),
11599
11600          SOUS_EPAIS_COUDE=FACT(statut='f',min=1,max=1,
11601            regles=(UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL'),
11602                    UN_PARMI('POSI_CURV_CIRC','AZIMUT'),),
11603            TYPE            =SIMP(statut='o',typ='TXM',into=("AXIS","ELLI") ),
11604            AXE_CIRC        =SIMP(statut='f',typ='R' ),
11605            AXE_LONGI       =SIMP(statut='o',typ='R' ),
11606            PROFONDEUR      =SIMP(statut='o',typ='R' ),
11607            POSI_CURV_LONGI =SIMP(statut='f',typ='R' ),
11608            POSI_ANGUL      =SIMP(statut='f',typ='R' ),
11609            POSI_CURV_CIRC  =SIMP(statut='f',typ='R' ),
11610            AZIMUT          =SIMP(statut='f',typ='R' ),
11611            SOUS_EPAIS      =SIMP(statut='o',typ='TXM',into=("INTERNE","EXTERNE") ),
11612            NB_ELEM_LONGI   =SIMP(statut='o',typ='I' ),
11613            NB_ELEM_CIRC    =SIMP(statut='o',typ='I' ),
11614            NB_ELEM_RADI    =SIMP(statut='f',typ='I',defaut= 3 ),
11615            EMPREINTE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11616          ),
11617
11618          SOUS_EPAIS_MULTI=FACT(statut='f',min=1,max='**',
11619            regles=(UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL'),
11620                    UN_PARMI('POSI_CURV_CIRC','AZIMUT'),),
11621            TYPE            =SIMP(statut='o',typ='TXM',into=("AXIS","ELLI") ),
11622            AXE_CIRC        =SIMP(statut='f',typ='R' ),
11623            AXE_LONGI       =SIMP(statut='o',typ='R' ),
11624            PROFONDEUR      =SIMP(statut='o',typ='R' ),
11625            POSI_CURV_LONGI =SIMP(statut='f',typ='R' ),
11626            POSI_ANGUL      =SIMP(statut='f',typ='R' ),
11627            POSI_CURV_CIRC  =SIMP(statut='f',typ='R' ),
11628            AZIMUT          =SIMP(statut='f',typ='R' ),
11629            SOUS_EPAIS      =SIMP(statut='o',typ='TXM',into=("INTERNE","EXTERNE") ),
11630            NB_ELEM_LONGI   =SIMP(statut='o',typ='I' ),
11631            NB_ELEM_CIRC    =SIMP(statut='o',typ='I' ),
11632            EMPREINTE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11633          ),
11634
11635          FISS_COUDE      =FACT(statut='f',min=1,max=1,
11636            regles=(UN_PARMI('ABSC_CURV','POSI_ANGUL'),),
11637            AXIS            =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON" ),
11638            b_axis_non    =BLOC(condition = "AXIS == 'NON' ",
11639                    LONGUEUR        =SIMP(statut='o',typ='R' ),
11640            ),
11641            b_axis_oui    =BLOC(condition = "AXIS == 'OUI' ",
11642                    LONGUEUR        =SIMP(statut='f',typ='R' ),
11643            ),
11644            PROFONDEUR      =SIMP(statut='o',typ='R' ),
11645            ABSC_CURV       =SIMP(statut='f',typ='R' ),
11646            POSI_ANGUL      =SIMP(statut='f',typ='R' ),
11647            FISSURE         =SIMP(statut='o',typ='TXM',into=("DEB_INT","DEB_EXT") ),
11648            AZIMUT          =SIMP(statut='f',typ='R',defaut= 90. ),
11649            ORIEN           =SIMP(statut='o',typ='R',
11650                                  into=(45.,-45.,90.,0.E+0) ),
11651            NB_TRANCHE      =SIMP(statut='o',typ='I' ),
11652            NB_SECTEUR      =SIMP(statut='o',typ='I' ),
11653            NB_COURONNE     =SIMP(statut='o',typ='I' ),
11654            RAYON_TORE      =SIMP(statut='f',typ='R' ),
11655            COEF_MULT_RC2   =SIMP(statut='f',typ='R',defaut= 1. ),
11656            COEF_MULT_RC3   =SIMP(statut='f',typ='R' ),
11657            ANGL_OUVERTURE  =SIMP(statut='f',typ='R',defaut= 0.5 ),
11658          ),
11659
11660          IMPRESSION      =FACT(statut='f',min=1,max='**',
11661            regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
11662            FORMAT          =SIMP(statut='f',typ='TXM',defaut="ASTER",
11663                                  into=("ASTER","IDEAS","CASTEM") ),
11664            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
11665              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
11666            ),
11667            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
11668              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
11669            ),
11670            FICHIER         =SIMP(statut='f',typ='TXM' ),
11671            UNITE           =SIMP(statut='f',typ='I' ),
11672          ),
11673
11674          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11675 )  ;
11676 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
11677 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11678 # ======================================================================
11679 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11680 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11681 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11682 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11683 # (AT YOUR OPTION) ANY LATER VERSION.
11684 #
11685 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11686 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11687 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11688 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11689 #
11690 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11691 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11692 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11693 # ======================================================================
11694 # RESPONSABLE F1BHHAJ J.ANGLES
11695 def macr_aspic_calc_prod(self,MODELE,CHAM_MATER,CARA_ELEM,FOND_FISS_1,FOND_FISS_2,CHARGE,RESU_THER,**args):
11696   if MODELE      != None:self.type_sdprod(MODELE,modele)
11697   if CHAM_MATER  != None:self.type_sdprod(CHAM_MATER,cham_mater)
11698   if CARA_ELEM   != None:self.type_sdprod(CARA_ELEM,cara_elem)
11699   if FOND_FISS_1 != None:self.type_sdprod(FOND_FISS_1,fond_fiss)
11700   if FOND_FISS_2 != None:self.type_sdprod(FOND_FISS_2,fond_fiss)
11701   if CHARGE      != None:self.type_sdprod(CHARGE,char_meca)
11702   if RESU_THER   != None:self.type_sdprod(RESU_THER,evol_ther)
11703   return evol_noli
11704
11705 MACR_ASPIC_CALC=MACRO(nom="MACR_ASPIC_CALC",op=-17,sd_prod=macr_aspic_calc_prod,
11706                     fr=" ",docu="U4.PC.20-b2",reentrant='n',
11707          regles=(UN_PARMI('COMP_INCR','COMP_ELAS'),),
11708
11709          TYPE_MAILLAGE   =SIMP(statut='o',typ='TXM',
11710                                into=("SAIN_FIN","SAIN_GROS","FISS_COUR_DEB","FISS_COUR_NONDEB","FISS_LONG_DEB",
11711                                      "FISS_LONG_NONDEB","FISS_AXIS_DEB","FISS_AXIS_NONDEB") ),
11712
11713          TUBULURE        =FACT(statut='o',min=1,max=1,
11714            TYPE            =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2") ),
11715          ),
11716          MAILLAGE        =SIMP(statut='o',typ=maillage),
11717          MODELE          =SIMP(statut='f',typ=(CO,modele)),
11718          CHAM_MATER      =SIMP(statut='f',typ=(CO,cham_mater)),
11719          CARA_ELEM       =SIMP(statut='f',typ=(CO,cara_elem)),
11720          FOND_FISS_1     =SIMP(statut='f',typ=(CO,fond_fiss)),
11721          FOND_FISS_2     =SIMP(statut='f',typ=(CO,fond_fiss)),
11722          CHARGE          =SIMP(statut='f',typ=(CO,char_meca)),
11723          RESU_THER       =SIMP(statut='f',typ=(CO,evol_ther)),
11724
11725          AFFE_MATERIAU   =FACT(statut='o',min=1,max=3,
11726            regles=(UN_PARMI('TOUT','GROUP_MA'),),
11727            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
11728            GROUP_MA        =SIMP(statut='f',typ='TXM',into=("TUBU","CORP","SOUD","SOUDCORP","SOUDTUBU") ),
11729            MATER           =SIMP(statut='o',typ=mater),
11730            TEMP_REF        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11731            RCCM            =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
11732          ),
11733
11734          EQUILIBRE       =FACT(statut='o',min=1,max=1,
11735            NOEUD           =SIMP(statut='o',typ=no),
11736          ),
11737
11738          PRES_REP        =FACT(statut='o',min=1,max=1,
11739            PRES            =SIMP(statut='o',typ='R'),
11740            NOEUD           =SIMP(statut='f',typ=no),
11741            EFFE_FOND       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
11742            FONC_MULT       =SIMP(statut='f',typ=fonction),
11743          ),
11744
11745          ECHANGE         =FACT(statut='f',min=1,max=1,
11746            COEF_H_TUBU     =SIMP(statut='o',typ=fonction),
11747            COEF_H_CORP     =SIMP(statut='o',typ=fonction),
11748            TEMP_EXT        =SIMP(statut='o',typ=fonction),
11749          ),
11750
11751          TORS_CORP       =FACT(statut='f',min=1,max=6,
11752            regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
11753            NOEUD           =SIMP(statut='o',typ=no),
11754            FX              =SIMP(statut='f',typ='R'),
11755            FY              =SIMP(statut='f',typ='R'),
11756            FZ              =SIMP(statut='f',typ='R'),
11757            MX              =SIMP(statut='f',typ='R'),
11758            MY              =SIMP(statut='f',typ='R'),
11759            MZ              =SIMP(statut='f',typ='R'),
11760            FONC_MULT       =SIMP(statut='f',typ=fonction),
11761          ),
11762
11763          TORS_TUBU       =FACT(statut='f',min=1,max=6,
11764            regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
11765            FX              =SIMP(statut='f',typ='R'),
11766            FY              =SIMP(statut='f',typ='R'),
11767            FZ              =SIMP(statut='f',typ='R'),
11768            MX              =SIMP(statut='f',typ='R'),
11769            MY              =SIMP(statut='f',typ='R'),
11770            MZ              =SIMP(statut='f',typ='R'),
11771            FONC_MULT       =SIMP(statut='f',typ=fonction),
11772          ),
11773
11774          COMP_INCR       =FACT(statut='f',min=1,max=1,
11775            RELATION        =SIMP(statut='o',typ='TXM',into=("VMIS_ISOT_TRAC",) ),
11776            VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut= 2,into=( 2 ,) ),
11777          ),
11778
11779          COMP_ELAS       =FACT(statut='f',min=1,max=1,
11780            RELATION        =SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC") ),
11781            ELAS            =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
11782            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
11783          ),
11784
11785          THETA_3D        =FACT(statut='f',min=1,max='**',
11786            R_INF           =SIMP(statut='o',typ='R'),
11787            R_SUP           =SIMP(statut='o',typ='R'),
11788          ),
11789
11790          OPTION          =SIMP(statut='f',typ='TXM',into=("CALC_G_MAX","CALC_G_MAX_LOCAL") ),
11791          BORNES          =FACT(statut='f',min=1,max='**',
11792            NUME_ORDRE      =SIMP(statut='o',typ='I'),
11793            VALE_MIN        =SIMP(statut='o',typ='R'),
11794            VALE_MAX        =SIMP(statut='o',typ='R'),
11795          ),
11796
11797          SOLVEUR         =FACT(statut='d',min=1,max=1,
11798            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
11799            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
11800              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
11801            ),
11802            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
11803              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11804            ),
11805            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
11806                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
11807              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
11808              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11809            ),
11810            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
11811              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
11812              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
11813              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
11814              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
11815              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
11816            ),
11817 #  A quoi sert eps
11818            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11819            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11820          ),
11821
11822          CONVERGENCE     =FACT(statut='d',min=1,max=1,
11823            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
11824            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
11825            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
11826            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
11827            RESI_INTE_RELA  =SIMP(statut='f',typ='R',defaut=1.0E-6),
11828            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut=10),
11829            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut=0),
11830            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
11831            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
11832          ),
11833
11834          NEWTON          =FACT(statut='d',min=1,max=1,
11835            REAC_INCR       =SIMP(statut='f',typ='I',defaut=1),
11836            PREDICTION      =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE","EXTRAPOL","DEPL_CALCULE")),
11837            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE")),
11838            REAC_ITER       =SIMP(statut='f',typ='I',defaut= 0),
11839          ),
11840
11841          RECH_LINEAIRE   =FACT(statut='d',min=1,max=1,
11842            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut=1.0E-3),
11843            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut=3),
11844          ),
11845
11846          INCREMENT       =FACT(statut='o',min=1,max=1,
11847            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
11848                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
11849            LIST_INST       =SIMP(statut='o',typ=listr8),
11850            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
11851                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
11852            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
11853            INST_INIT       =SIMP(statut='f',typ='R'),
11854            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
11855            INST_FIN        =SIMP(statut='f',typ='R'),
11856            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
11857            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
11858            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
11859            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
11860          ),
11861
11862          PAS_AZIMUT      =SIMP(statut='f',typ='I',defaut=1),
11863
11864          IMPRESSION      =FACT(statut='f',min=1,max=1,
11865            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
11866                                  into=("RESULTAT","ASTER","CASTEM","IDEAS")),
11867
11868            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
11869              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
11870            ),
11871
11872            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
11873              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
11874            ),
11875
11876            b_extrac        =BLOC(condition="((FORMAT=='IDEAS')or(FORMAT=='CASTEM'))",
11877                                  fr="extraction d un champ de grandeur",
11878              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST'),),
11879              NOM_CHAM        =SIMP(statut='f',typ='TXM',max=3,
11880                                    into=("DEPL","EQUI_ELNO_SIGM","TEMP")),
11881
11882              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11883              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
11884              INST            =SIMP(statut='f',typ='R',max='**'),
11885            ),
11886          ),
11887
11888          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
11889
11890          TITRE           =SIMP(statut='f',typ='TXM'),
11891 )  ;
11892 # debut entete
11893 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
11894 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11895 # ======================================================================
11896 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11897 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11898 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11899 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11900 # (AT YOUR OPTION) ANY LATER VERSION.
11901 #
11902 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11903 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11904 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11905 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11906 #
11907 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11908 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11909 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11910 # ======================================================================
11911 # RESPONSABLE F1BHHAJ J.ANGLES
11912 MACR_ASPIC_MAIL=MACRO(nom="MACR_ASPIC_MAIL",op= -16,sd_prod=maillage,reentrant='n',
11913                     fr=" ",docu="U4.PC.10-b1",
11914
11915          EXEC_MAILLAGE   =FACT(statut='o',min=1,max=1,
11916            LOGICIEL        =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000")),
11917            UNITE_DATG      =SIMP(statut='f',typ='I',defaut=70),
11918            UNITE_MGIB      =SIMP(statut='f',typ='I',defaut=19),
11919            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10,11)),
11920          ),
11921
11922          TYPE_ELEM       =SIMP(statut='f',typ='TXM',defaut="CU20",into=("CU20","CUB8")),
11923
11924          RAFF_MAIL       =SIMP(statut='f',typ='TXM',defaut="GROS",into=("GROS","FIN")),
11925
11926          TUBULURE        =FACT(statut='o',min=1,max=1,
11927            E_BASE          =SIMP(statut='o',typ='R'),
11928            DEXT_BASE       =SIMP(statut='o',typ='R'),
11929            L_BASE          =SIMP(statut='o',typ='R'),
11930            L_CHANF         =SIMP(statut='o',typ='R'),
11931            E_TUBU          =SIMP(statut='o',typ='R'),
11932            DEXT_TUBU       =SIMP(statut='o',typ='R'),
11933            Z_MAX           =SIMP(statut='o',typ='R'),
11934            TYPE            =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2")),
11935            L_PENETR        =SIMP(statut='f',typ='R',defaut= 0.0E+0),
11936          ),
11937
11938          SOUDURE         =FACT(statut='o',min=1,max=1,
11939            H_SOUD          =SIMP(statut='o',typ='R'),
11940            ANGL_SOUD       =SIMP(statut='o',typ='R'),
11941            JEU_SOUD        =SIMP(statut='o',typ='R'),
11942          ),
11943
11944          CORPS           =FACT(statut='o',min=1,max=1,
11945            E_CORP          =SIMP(statut='o',typ='R'),
11946            DEXT_CORP       =SIMP(statut='o',typ='R'),
11947            X_MAX           =SIMP(statut='o',typ='R'),
11948          ),
11949
11950          FISS_SOUDURE    =FACT(statut='f',min=1,max=1,
11951            TYPE            =SIMP(statut='o',typ='TXM',into=("LONGUE","COURTE")),
11952            AXIS            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
11953            PROFONDEUR      =SIMP(statut='o',typ='R'),
11954            LONGUEUR        =SIMP(statut='f',typ='R'),
11955            AZIMUT          =SIMP(statut='o',typ='R'),
11956            RAYON_TORE      =SIMP(statut='f',typ='R'),
11957            POSITION        =SIMP(statut='o',typ='TXM',into=("DROIT","INCLINE")),
11958            FISSURE         =SIMP(statut='o',typ='TXM',into=("DEB_INT","DEB_EXT","NON_DEB","TRAVERS")),
11959            LIGA_INT        =SIMP(statut='f',typ='R'),
11960            ANGL_OUVERTURE  =SIMP(statut='f',typ='R',defaut= 0.0E+0),
11961            COEF_MULT_RC1   =SIMP(statut='f',typ='R'),
11962            COEF_MULT_RC2   =SIMP(statut='f',typ='R'),
11963            COEF_MULT_RC3   =SIMP(statut='f',typ='R'),
11964            NB_TRANCHE      =SIMP(statut='f',typ='I'),
11965            NB_SECTEUR      =SIMP(statut='f',typ='I'),
11966            NB_COURONNE     =SIMP(statut='f',typ='I'),
11967          ),
11968
11969          IMPRESSION      =FACT(statut='f',min=1,max='**',
11970            regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
11971            FORMAT          =SIMP(statut='f',typ='TXM',defaut="ASTER",into=("ASTER","IDEAS","CASTEM")),
11972
11973            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
11974              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
11975            ),
11976
11977            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
11978              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
11979            ),
11980            FICHIER         =SIMP(statut='f',typ='TXM'),
11981            UNITE           =SIMP(statut='f',typ='I'),
11982          ),
11983
11984          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
11985 )  ;
11986 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
11987 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11988 # ======================================================================
11989 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11990 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11991 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11992 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11993 # (AT YOUR OPTION) ANY LATER VERSION.
11994 #
11995 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11996 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11997 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11998 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11999 #
12000 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12001 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12002 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12003 # ======================================================================
12004 MACR_ELEM_DYNA=OPER(nom="MACR_ELEM_DYNA",op=  81,sd_prod=macr_elem_dyna,
12005                     fr="Définition d un macro élément pour analyse modale ou harmonique par sous structuration dynamique",
12006                     docu="U4.65.01-e1",reentrant='n',
12007          regles=(EXCLUS('MATR_AMOR','AMOR_REDUIT' ),),
12008          BASE_MODALE     =SIMP(statut='o',typ=base_modale ),
12009          MATR_RIGI       =SIMP(statut='f',typ=matr_asse_depl_r ),
12010          MATR_MASS       =SIMP(statut='f',typ=matr_asse_depl_r ),
12011          MATR_AMOR       =SIMP(statut='f',typ=matr_asse_depl_r ),
12012          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
12013          OPTION          =SIMP(statut='f',typ='TXM',defaut="CLASSIQUE",into=("CLASSIQUE","RITZ",
12014                           "DIAG_MASS") ),
12015 )  ;
12016 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
12017 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12018 # ======================================================================
12019 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12020 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12021 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12022 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12023 # (AT YOUR OPTION) ANY LATER VERSION.
12024 #
12025 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12026 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12027 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12028 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12029 #
12030 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12031 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12032 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12033 # ======================================================================
12034 MACR_ELEM_STAT=OPER(nom="MACR_ELEM_STAT",op=86,sd_prod=macr_elem_stat,docu="U4.62.01-f1",reentrant='f',
12035                     fr="Définition d un macro-élément pour l analyse statique par sous structuration",
12036         regles=(AU_MOINS_UN('DEFINITION','RIGI_MECA','MASS_MECA','CAS_CHARGE'),
12037                 ENSEMBLE('DEFINITION','EXTERIEUR'),),
12038          DEFINITION      =FACT(statut='f',min=1,max=1,
12039            MODELE          =SIMP(statut='o',typ=modele),
12040            CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
12041            CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
12042            CHAR_MACR_ELEM  =SIMP(statut='f',typ=char_meca),
12043            INST            =SIMP(statut='f',typ='R',defaut=0.0E+0 ),
12044            NMAX_CAS        =SIMP(statut='f',typ='I',defaut=10),
12045            NMAX_CHAR       =SIMP(statut='f',typ='I',defaut=10),
12046          ),
12047          EXTERIEUR       =FACT(statut='f',min=1,max=1,
12048            regles=(AU_MOINS_UN('NOEUD','GROUP_NO'),),
12049            NOEUD           =SIMP(statut='f',typ=no,max='**'),
12050            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
12051          ),
12052          RIGI_MECA       =FACT(statut='f',min=1,max=1,
12053          ),
12054          MASS_MECA       =FACT(statut='f',min=1,max=1,
12055            BIDO1           =SIMP(statut='f',typ='I',defaut=0),
12056          ),
12057          CAS_CHARGE      =FACT(statut='f',min=1,max='**',
12058            NOM_CAS         =SIMP(statut='o',typ='TXM'),
12059            SUIV            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
12060            CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
12061            INST            =SIMP(statut='f',typ='R',defaut=0.E+0),
12062          ),
12063 )  ;
12064 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
12065 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12066 # ======================================================================
12067 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12068 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12069 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12070 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12071 # (AT YOUR OPTION) ANY LATER VERSION.
12072 #
12073 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12074 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12075 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12076 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12077 #
12078 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12079 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12080 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12081 # ======================================================================
12082 MACR_GOUJ2E_CALC=MACRO(nom="MACR_GOUJ2E_CALC",op=-23,sd_prod=evol_noli,
12083                       fr=" ",docu="U4.GJ.20-a",reentrant='n',
12084          MAILLAGE        =SIMP(statut='o',typ=maillage),
12085          DEFI_GOUJ       =FACT(statut='o',min=01,max=01,
12086            TYPE            =SIMP(statut='o',typ='TXM',into=("M33","M64","M90","M115","M155","M180","M186")),
12087            VARIANTE        =SIMP(statut='o',typ='TXM',into=("A","B","C","D","E","F","G","H","I","J","K","L","M",
12088                                                             "N","O","P","Q","R","S","T","U","V","W","X","Y","Z")),
12089            FILET_TRONQUE   =SIMP(statut='f',typ='I',max='**'),
12090            FILET_TRONQA    =SIMP(statut='f',typ='I',max='**'),
12091            FILET_TRONQB    =SIMP(statut='f',typ='I',max='**'),
12092            FILET_JEU_HT    =SIMP(statut='f',typ='I',max='**'),
12093            FILET_JEU_HTA   =SIMP(statut='f',typ='I',max='**'),
12094            FILET_JEU_HTB   =SIMP(statut='f',typ='I',max='**'),
12095          ),
12096          EXCIT           =FACT(statut='o',min=01,max=01,
12097            TYPE_BLOCAGE    =SIMP(statut='o',typ='I',defaut=2,into=(1,2,3)),
12098            FORCE_GOUJ      =SIMP(statut='o',typ='R'),
12099          ),
12100          CALCUL          =FACT(statut='o',min=01,max=01,
12101            TYPE_CALCUL     =SIMP(statut='o',typ='TXM',into=("ELASTIQUE","ELASTOPLASTIQUE")),
12102            NB_INCR         =SIMP(statut='o',typ='I'),
12103          ),
12104          IMPRESSION      =FACT(statut='f',min=01,max=01,
12105            FORMAT          =SIMP(statut='f',typ='TXM',defaut="TABLE",
12106                                  into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED","TABLE")),
12107            VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12108          ),
12109          TITRE           =SIMP(statut='f',typ='TXM'),
12110          INFO            =SIMP(statut='f',typ='I',defaut=1 ,into=(1,2)),
12111 )  ;
12112 #& MODIF COMMANDE  DATE 03/10/2001   AUTEUR DURAND C.DURAND
12113 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12114 # ======================================================================
12115 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12116 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12117 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12118 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12119 # (AT YOUR OPTION) ANY LATER VERSION.
12120 #
12121 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12122 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12123 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12124 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12125 #
12126 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12127 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12128 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12129 # ======================================================================
12130 MACR_GOUJ2E_MAIL=MACRO(nom="MACR_GOUJ2E_MAIL",op= -22,sd_prod=maillage,
12131                       fr=" ",docu="U4.GJ.10-a",reentrant='n',
12132          EXEC_MAILLAGE   =FACT(statut='o',min=1,max=1,
12133            LOGICIEL        =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000") ),
12134            UNITE_DATG      =SIMP(statut='f',typ='I',defaut=70),
12135            UNITE_MGIB      =SIMP(statut='f',typ='I',defaut=19),
12136            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10)),
12137          ),
12138          DEFI_GOUJ       =FACT(statut='o',min=1,max=1,
12139            TYPE            =SIMP(statut='o',typ='TXM',into=("M33","M64","M90","M115","M155","M180","M186")),
12140            VARIANTE        =SIMP(statut='o',typ='TXM',into=("A","B","C","D","E","F","G","H","I","J","K","L","M",
12141                                                             "N","O","P","Q","R","S","T","U","V","W","X","Y","Z")),
12142          ),
12143          GEOM_GOUJ_BRID  =FACT(statut='o',min=1,max=1,
12144            NB_FILET        =SIMP(statut='o',typ='I'),
12145            H_CORP_BRID     =SIMP(statut='o',typ='R'),
12146            R_EXT_BRID      =SIMP(statut='o',typ='R'),
12147            H_HAUT_BRID     =SIMP(statut='f',typ='R',defaut=0.0E+0),
12148            H_BAS_BRID      =SIMP(statut='f',typ='R',defaut= 0.0E+0),
12149            FILET_ABST      =SIMP(statut='f',typ='I',max='**'),
12150          ),
12151          IMPRESSION      =FACT(statut='f',min=1,max=1,
12152            regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
12153            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
12154                                  into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED")),
12155            FICHIER         =SIMP(statut='f',typ='TXM'),
12156            UNITE           =SIMP(statut='f',typ='I'),
12157            VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12158            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
12159          ),
12160          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12161 )  ;
12162 #& MODIF COMMANDE  DATE 16/07/2002   AUTEUR GNICOLAS G.NICOLAS
12163 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12164 # ======================================================================
12165 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12166 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12167 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12168 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12169 # (AT YOUR OPTION) ANY LATER VERSION.
12170 #
12171 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12172 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12173 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12174 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12175 #
12176 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12177 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12178 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12179 # ======================================================================
12180 # RESPONSABLE GNICOLAS G.NICOLAS
12181 MACR_INFO_MAIL=MACRO(nom="MACR_INFO_MAIL",op=-24,docu="U7.03.02-b2",
12182                      fr="Donner des informations sur un maillage.",
12183                      ang="To give information about a mesh.",
12184 #
12185 # 1. Le niveau d'information
12186 #
12187          INFO           = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12188 #
12189 # 2. Version de HOMARD
12190 #
12191          VERSION_HOMARD = SIMP(statut='f',typ='TXM',defaut="V5_3",
12192                                into=("V5_3", "V5_N","V5_N_PERSO"),
12193                            fr="Version de HOMARD",
12194                            ang="HOMARD release"),
12195 #
12196 # 3. Langue des messages issus de HOMARD
12197 #
12198          LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
12199                                into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
12200                            fr="Langue des messages issus de HOMARD.",
12201                            ang="Language for HOMARD messages." ),
12202 #
12203 # 4. Le nom du maillage a analyser
12204 #
12205          MAILLAGE       = SIMP(statut='o',typ=maillage,
12206                            fr="Maillage à analyser.",
12207                            ang="Mesh to be checked." ),
12208 #
12209 # 5. Les options ; par defaut, on ne fait que les nombres
12210 # 5.1. Nombre de noeuds et elements
12211 #
12212          NOMBRE         = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
12213                           fr="Nombre de noeuds et éléments du maillage",
12214                           ang="Number of nodes and elements in the mesh" ),
12215 #
12216 # 5.2. Determination de la qualite des elements du maillage
12217 #
12218          QUALITE        = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12219                           fr="Qualité du maillage",
12220                           ang="Mesh quality" ),
12221 #
12222 # 5.3. Connexite du maillage
12223 #
12224          CONNEXITE      = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12225                           fr="Connexité du maillage.",
12226                           ang="Mesh connexity." ),
12227 #
12228 # 5.4. Taille des sous-domaines du maillage
12229 #
12230          TAILLE         = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12231                           fr="Tailles des sous-domaines du maillage.",
12232                           ang="Sizes of mesh sub-domains." ),
12233 #
12234 # 5.5. Controle de la non-interpenetration des elements
12235 #
12236          INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12237                           fr="Controle de la non interpénétration des éléments.",
12238                           ang="Overlapping checking." ),
12239 #
12240 )  ;
12241 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR DURAND C.DURAND
12242 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12243 # ======================================================================
12244 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
12245 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12246 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12247 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12248 # (AT YOUR OPTION) ANY LATER VERSION.
12249 #
12250 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12251 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12252 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12253 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12254 #
12255 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12256 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12257 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12258 # ======================================================================
12259
12260 from Macro.macr_lign_coupe_ops import macr_lign_coupe_ops
12261
12262 def macr_lign_coupe_prod(self,LIGN_COUPE,**args):
12263   if not LIGN_COUPE:  raise AsException("Impossible de typer les concepts resultats")
12264   for m in LIGN_COUPE:
12265     self.type_sdprod(m['TABLE'],table)
12266   return None
12267
12268
12269 MACR_LIGN_COUPE=MACRO(nom="MACR_LIGN_COUPE",op=macr_lign_coupe_ops,sd_prod=macr_lign_coupe_prod,
12270                        docu="",reentrant='n',
12271                        fr="extraction d un résultat sur des lignes de coupes définies par 2 points et un intervalle",
12272          RESULTAT        =SIMP(statut='o',typ=(evol_elas,evol_noli,evol_ther) ),
12273          b_meca        =BLOC(condition = "AsType(RESULTAT) in (evol_elas,evol_noli)",fr="résultat mécanique",
12274            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut='SIGM_NOEU_DEPL' ),
12275          ),
12276          b_ther        =BLOC(condition = "AsType(RESULTAT) in (evol_ther,)",fr="résultat thermique",
12277            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut='TEMP' ),
12278          ),
12279          MODELE          =SIMP(statut='o',typ=modele ),
12280          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=25),
12281          LIGN_COUPE     =FACT(statut='o',min=1,max='**',
12282            NB_POINTS       =SIMP(statut='o',typ='I'),
12283            COOR_ORIG       =SIMP(statut='o',typ='R',min=2,max=3),
12284            COOR_EXTR       =SIMP(statut='o',typ='R',min=2,max=3),
12285            TABLE           =SIMP(statut='o',typ=(table,CO)),
12286          ),
12287 )  ;
12288 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
12289 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12290 # ======================================================================
12291 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12292 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12293 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12294 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12295 # (AT YOUR OPTION) ANY LATER VERSION.
12296 #
12297 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12298 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12299 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12300 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12301 #
12302 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12303 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12304 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12305 # ======================================================================
12306 # RESPONSABLE JMBHH01 J.M.PROIX
12307
12308 from Macro.macro_cara_poutre_ops import macro_cara_poutre_ops
12309
12310 MACRO_CARA_POUTRE=MACRO(nom="MACRO_CARA_POUTRE",op=macro_cara_poutre_ops,sd_prod=tabl_cara_geom,
12311                        docu="U4.42.02-d1",reentrant='n',
12312                        fr="caractéristiques d'une section transversale de poutre à partir d'un maillage 2D",
12313          regles=(EXCLUS('SYME_X','GROUP_MA_BORD'),
12314                  EXCLUS('SYME_Y','GROUP_MA_BORD'),
12315                  ENSEMBLE('LONGUEUR','LIAISON','MATERIAU') ,),
12316          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut= 20 ),
12317          SYME_X          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
12318          SYME_Y          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
12319          GROUP_MA_BORD   =SIMP(statut='f',typ=grma,max='**'),
12320          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
12321          ORIG_INER       =SIMP(statut='f',typ='R',max='**',defaut=(0.E+0,0.E+0)),
12322          NOEUD           =SIMP(statut='f',typ=no,max='**'),
12323          GROUP_MA_INTE   =SIMP(statut='f',typ=grma,max='**'),
12324          LONGUEUR        =SIMP(statut='f',typ='R'),
12325          MATERIAU        =SIMP(statut='f',typ=mater),
12326          LIAISON         =SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT")),
12327          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12328 )  ;
12329 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
12330 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12331 # ======================================================================
12332 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12333 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12334 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12335 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12336 # (AT YOUR OPTION) ANY LATER VERSION.
12337 #
12338 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12339 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12340 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12341 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12342 #
12343 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12344 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12345 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12346 # ======================================================================
12347 MACRO_CHAR_F_U=MACRO(nom="MACRO_CHAR_F_U",op=-15,sd_prod=char_meca,
12348                     fr=" ",docu="U4.72.07-a",reentrant='n',
12349          MODELE          =SIMP(statut='o',typ=modele),
12350          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
12351          CHARGE          =SIMP(statut='o',typ=char_meca),
12352          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
12353          COEF_IMPO       =SIMP(statut='f',typ='R',defaut=1.0E+0),
12354          NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="APRES",into=("NORMAL","APRES")),
12355          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12356 )  ;
12357 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
12358 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12359 # ======================================================================
12360 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12361 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12362 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12363 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12364 # (AT YOUR OPTION) ANY LATER VERSION.
12365 #
12366 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12367 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12368 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12369 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12370 #
12371 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12372 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12373 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12374 # ======================================================================
12375 # RESPONSABLE G8BHHXD X.DESROCHES
12376
12377 from Macro.macro_elas_mult_ops import macro_elas_mult_ops
12378
12379 def macro_elas_mult_prod(self,NUME_DDL,CAS_CHARGE,**args ):
12380   self.type_sdprod(NUME_DDL,nume_ddl)
12381   if CAS_CHARGE[0]['NOM_CAS']      != None : return mult_elas
12382   if CAS_CHARGE[0]['MODE_FOURIER'] != None : return fourier_elas
12383   raise AsException("type de concept resultat non prevu")
12384
12385 MACRO_ELAS_MULT=MACRO(nom="MACRO_ELAS_MULT",op=macro_elas_mult_ops,sd_prod=macro_elas_mult_prod,docu="U4.51.02-d2",reentrant='f',
12386          regles=(UN_PARMI('CHAR_MECA_GLOBAL','CHAR_CINE_GLOBAL','LIAISON_DISCRET', ),),
12387          MODELE          =SIMP(statut='o',typ=modele),
12388          CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
12389          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
12390          NUME_DDL        =SIMP(statut='f',typ=(nume_ddl,CO)),
12391          CHAR_MECA_GLOBAL=SIMP(statut='f',typ=char_meca,max='**'),
12392          CHAR_CINE_GLOBAL=SIMP(statut='f',typ=char_meca,max='**'),
12393          LIAISON_DISCRET =SIMP(statut='f',typ='TXM',into=("OUI",)),
12394          CAS_CHARGE      =FACT(statut='o',min=1,max='**',
12395            regles=(UN_PARMI('NOM_CAS','MODE_FOURIER'),
12396                    UN_PARMI('CHAR_MECA','CHAR_CINE','VECT_ASSE'),),
12397            NOM_CAS         =SIMP(statut='f',typ='TXM' ),
12398            MODE_FOURIER    =SIMP(statut='f',typ='I' ),
12399            TYPE_MODE       =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
12400            CHAR_MECA       =SIMP(statut='f',typ=char_meca,max='**'),
12401            CHAR_CINE       =SIMP(statut='f',typ=char_meca,max='**'),
12402            OPTION          =SIMP(statut='f',typ='TXM',max='**',
12403                                  into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
12404                                        "SIGM_ELNO_CART","EFGE_ELNO_CART","DEGE_ELNO_DEPL","EPSI_ELNO_DEPL",
12405                                        "EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO","EPSP_ELGA",
12406                                        "ECIN_ELEM_DEPL","FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","SOUR_ELGA_ELEC",
12407                                        "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG","INTE_ELNO_ACTI",
12408                                        "INTE_ELNO_REAC","SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA",
12409                                        "ERRE_ELEM_NOZ2","VNOR_ELEM_DEPL","ERRE_ELNO_ELGA","SIRE_ELNO_DEPL",
12410                                        "ERRE_ELGA_NORE","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI",
12411                                        "EQUI_ELGA_EPSI","FORC_NODA","REAC_NODA","EPSI_NOEU_DEPL","SIGM_NOEU_DEPL",
12412                                        "EFGE_NOEU_DEPL","EQUI_NOEU_SIGM","EQUI_NOEU_EPSI","FLUX_NOEU_TEMP") ),
12413            NUME_COUCHE     =SIMP(statut='f',typ='I',defaut=1),
12414            NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY")),
12415            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
12416            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r),
12417          ),
12418          SOLVEUR         =FACT(statut='d',min=1,max=1,
12419            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT") ),
12420            b_mult_front    = BLOC ( condition = "METHODE == 'MULT_FRONT' ",
12421                                     fr="Paramètres de la méthode multi frontale",
12422              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
12423            ),
12424            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
12425              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
12426             ),
12427            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
12428                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
12429              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
12430              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12431            ),
12432          ),
12433          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2)),
12434          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
12435 )  ;
12436 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
12437 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12438 # ======================================================================
12439 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12440 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12441 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12442 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12443 # (AT YOUR OPTION) ANY LATER VERSION.
12444 #
12445 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12446 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12447 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12448 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12449 #
12450 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12451 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12452 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12453 # ======================================================================
12454 MACRO_MADMACS=MACRO(nom="MACRO_MADMACS",op=-9,docu="U7.03.21-c",
12455                     fr="Impression au format IDEAS des données pour chainage entre Code_Aster et MADMACS",
12456          regles=(UN_PARMI('MATR_ELEM_RIGI','MATR_RIGI'),
12457                  UN_PARMI('MATR_ELEM_MASS','MATR_MASS'),
12458                  PRESENT_ABSENT('MATR_ELEM_AMOR','MATR_AMOR'),),
12459          FICHIER         =SIMP(statut='f',typ='TXM' ),
12460          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",)),
12461          VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(5,)),
12462          MAILLAGE        =SIMP(statut='o',typ=maillage),
12463          NUME_DDL        =SIMP(statut='o',typ=nume_ddl),
12464          CHARGE          =SIMP(statut='o',typ=char_meca,max='**'),
12465          MATR_ELEM_RIGI  =SIMP(statut='f',typ=matr_elem_depl_r),
12466          MATR_RIGI       =SIMP(statut='f',typ=matr_asse_depl_r),
12467          MATR_ELEM_MASS  =SIMP(statut='f',typ=matr_elem_depl_r),
12468          MATR_MASS       =SIMP(statut='f',typ=matr_asse_depl_r),
12469          MATR_ELEM_AMOR  =SIMP(statut='f',typ=matr_elem_depl_r),
12470          MATR_AMOR       =SIMP(statut='f',typ=matr_asse_depl_r),
12471          MODE_MECA       =SIMP(statut='o',typ=mode_meca),
12472          NMAX_MODE       =SIMP(statut='f',typ='I',defaut=10),
12473          INTERFACE       =FACT(statut='f',min=01,max='**',
12474            regles=(UN_PARMI('NOEUD','GROUP_NO'),
12475                    UN_PARMI('DDL_ACTIF','MASQUE'),),
12476            NOM             =SIMP(statut='o',typ='TXM'),
12477            NOEUD           =SIMP(statut='f',typ=no,max='**'),
12478            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
12479            DDL_ACTIF       =SIMP(statut='f',typ='TXM',max='**'),
12480            MASQUE          =SIMP(statut='f',typ='TXM',max='**'),
12481          ),
12482          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12483 )  ;
12484 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
12485 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12486 # ======================================================================
12487 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12488 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12489 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12490 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12491 # (AT YOUR OPTION) ANY LATER VERSION.
12492 #
12493 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12494 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12495 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12496 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12497 #
12498 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12499 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12500 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12501 # ======================================================================
12502 def macro_matr_ajou_prod(self,MATR_AMOR_AJOU,MATR_MASS_AJOU,MATR_RIGI_AJOU,FORC_AJOU,**args):
12503   self.type_sdprod(MATR_AMOR_AJOU,matr_asse_depl_r)
12504   self.type_sdprod(MATR_MASS_AJOU,matr_asse_depl_r)
12505   self.type_sdprod(MATR_RIGI_AJOU,matr_asse_depl_r)
12506   if FORC_AJOU != None:
12507     for m in FORC_AJOU:
12508       self.type_sdprod(m['VECTEUR'],vect_asse_gene)
12509
12510   return None
12511
12512 MACRO_MATR_AJOU=MACRO(nom="MACRO_MATR_AJOU",op=-13,docu="U4.66.11-c1",sd_prod=macro_matr_ajou_prod,
12513       regles=(AU_MOINS_UN('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
12514               AU_MOINS_UN('MATR_MASS_AJOU','MATR_AMOR_AJOU','MATR_RIGI_AJOU'),
12515               EXCLUS('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
12516               EXCLUS('MONO_APPUI','MODE_STAT',),
12517              ),
12518          MAILLAGE        =SIMP(statut='o',typ=maillage),
12519          GROUP_MA_FLUIDE =SIMP(statut='o',typ=grma),
12520          GROUP_MA_INTERF =SIMP(statut='o',typ=grma),
12521          MODELISATION    =SIMP(statut='o',typ='TXM',into=("PLAN","AXIS","3D")),
12522          FLUIDE          =FACT(statut='o',min=1,max='**',
12523            RHO             =SIMP(statut='o',typ='R'),
12524            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
12525            GROUP_MA        =SIMP(statut='f',typ=grma),
12526            MAILLE          =SIMP(statut='f',typ=ma),
12527          ),
12528          DDL_IMPO        =FACT(statut='o',min=1,max='**',
12529            regles=(UN_PARMI('NOEUD','GROUP_NO'),
12530                    UN_PARMI('PRES_FLUIDE','PRES_SORTIE'),),
12531            NOEUD           =SIMP(statut='f',typ=no),
12532            GROUP_NO        =SIMP(statut='f',typ=grno),
12533            PRES_FLUIDE     =SIMP(statut='f',typ='R'),
12534            PRES_SORTIE     =SIMP(statut='f',typ='R'),
12535          ),
12536          ECOULEMENT      =FACT(statut='f',min=1,max='**',
12537            GROUP_MA_1      =SIMP(statut='o',typ=grma),
12538            GROUP_MA_2      =SIMP(statut='o',typ=grma),
12539            VNOR_1          =SIMP(statut='o',typ='R'),
12540            VNOR_2          =SIMP(statut='f',typ='R'),
12541            POTENTIEL       =SIMP(statut='f',typ=evol_ther),
12542          ),
12543          MODE_MECA       =SIMP(statut='f',typ=mode_meca),
12544          DEPL_IMPO       =SIMP(statut='f',typ=cham_no_depl_r),
12545          MODELE_GENE     =SIMP(statut='f',typ=modele_gene),
12546          NUME_DDL_GENE   =SIMP(statut='f',typ=nume_ddl_gene),
12547          DIST_REFE       =SIMP(statut='f',typ='R',defaut= 1.0E-2),
12548          MATR_MASS_AJOU  =SIMP(statut='f',typ=(CO,matr_asse)),
12549          MATR_RIGI_AJOU  =SIMP(statut='f',typ=(CO,matr_asse)),
12550          MATR_AMOR_AJOU  =SIMP(statut='f',typ=(CO,matr_asse)),
12551          MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",),),
12552          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,),),
12553          FORC_AJOU       =FACT(statut='f',min=1,max='**',
12554            DIRECTION     =SIMP(statut='o',typ='R',max=3),
12555            NOEUD         =SIMP(statut='f',typ=no,max='**'),
12556            GROUP_NO      =SIMP(statut='f',typ=grno,max='**'),
12557            VECTEUR       =SIMP(statut='o',typ=(CO,vect_asse_gene)),
12558          ),
12559          SOLVEUR         =FACT(statut='d',min=1,max=1,
12560            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
12561            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
12562              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
12563            ),
12564            b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
12565              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
12566            ),
12567            b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
12568                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
12569              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
12570              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12571            ),
12572            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
12573              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
12574              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
12575              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
12576              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
12577              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
12578            ),
12579 #  A quoi sert eps
12580            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12581          ),
12582          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12583          NOEUD_DOUBLE    =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
12584          AVEC_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
12585 ) ;
12586 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
12587 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12588 # ======================================================================
12589 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12590 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12591 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12592 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12593 # (AT YOUR OPTION) ANY LATER VERSION.
12594 #
12595 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12596 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12597 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12598 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12599 #
12600 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12601 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12602 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12603 # ======================================================================
12604
12605 from Macro.macro_matr_asse_ops import macro_matr_asse_ops
12606
12607 def macro_matr_asse_prod(self,NUME_DDL,MATR_ASSE,**args):
12608   if not MATR_ASSE:  raise AsException("Impossible de typer les concepts resultats")
12609   if not NUME_DDL:  raise AsException("Impossible de typer les concepts resultats")
12610   self.type_sdprod(NUME_DDL,nume_ddl)
12611   for m in MATR_ASSE:
12612     opti=m['OPTION']
12613
12614     if opti in ( "RIGI_MECA","RIGI_FLUI_STRU","RIGI_MECA_LAGR" ,
12615        "MASS_MECA" , "MASS_FLUI_STRU" ,"RIGI_GEOM" ,"RIGI_ROTA",
12616        "AMOR_MECA","IMPE_MECA","MASS_ID_MDEP_R","MASS_ID_MDNS_R",
12617        "ONDE_FLUI","MASS_MECA_DIAG" ) : t=matr_asse_depl_r
12618
12619     if opti in ( "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",) : t=matr_asse_pres_c
12620
12621     if opti in ( "RIGI_THER","MASS_THER","RIGI_THER_CONV" ,
12622        "RIGI_THER_CONV_D","MASS_ID_MTEM_R","MASS_ID_MTNS_R",) : t=matr_asse_temp_r
12623
12624     if opti == "RIGI_MECA_HYST"   : t= matr_asse_depl_c
12625
12626     self.type_sdprod(m['MATRICE'],t)
12627   return None
12628
12629 MACRO_MATR_ASSE=MACRO(nom="MACRO_MATR_ASSE",op=macro_matr_asse_ops,docu="U4.61.21-d1",
12630                       sd_prod=macro_matr_asse_prod,
12631                       fr="Calcul des matrices assemblées (matr_asse_gd) par exemple de rigidité, de masse ",
12632          MODELE          =SIMP(statut='o',typ=modele),
12633          CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
12634          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
12635          CHARGE          =SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**'),
12636          INST            =SIMP(statut='f',typ='R'),
12637          NUME_DDL        =SIMP(statut='o',typ=(nume_ddl,CO)),
12638          SOLVEUR         =FACT(statut='d',min=1,max=1,
12639            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",
12640                                  into=("LDLT","MULT_FRONT","GCPC")),
12641            RENUM           =SIMP(statut='f',typ='TXM',into=("SANS","RCMK","MD","MDA","METIS")),
12642          ),
12643          MATR_ASSE       =FACT(statut='o',min=1,max='**',
12644            MATRICE         =SIMP(statut='o',typ=(matr_asse,CO)),
12645            OPTION          =SIMP(statut='o',typ='TXM',
12646                                  into=("RIGI_MECA","MASS_MECA","MASS_MECA_DIAG",
12647                                        "AMOR_MECA","RIGI_MECA_HYST","IMPE_MECA",
12648                                        "ONDE_FLUI","RIGI_FLUI_STRU","MASS_FLUI_STRU",
12649                                        "RIGI_ROTA","RIGI_GEOM","RIGI_MECA_LAGR",
12650                                        "RIGI_THER","MASS_THER",
12651                                        "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",
12652                                        "MASS_ID_MTEM_R","MASS_ID_MTNS_R","MASS_ID_MDEP_R","MASS_ID_MDNS_R",)
12653                                  ),
12654            SIEF_ELGA       =SIMP(statut='f',typ=cham_elem_sief_r),
12655            MODE_FOURIER    =SIMP(statut='f',typ='I'),
12656            THETA           =SIMP(statut='f',typ=theta_geom),
12657            PROPAGATION     =SIMP(statut='f',typ='R'),
12658          ),
12659          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
12660          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12661 )  ;
12662 #& MODIF COMMANDE  DATE 11/06/2002   AUTEUR DURAND C.DURAND
12663 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12664 # ======================================================================
12665 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12666 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12667 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12668 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12669 # (AT YOUR OPTION) ANY LATER VERSION.
12670 #
12671 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12672 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12673 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12674 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12675 #
12676 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12677 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12678 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12679 # ======================================================================
12680
12681 from Macro.macro_miss_3d_ops import macro_miss_3d_ops
12682
12683 MACRO_MISS_3D=MACRO(nom="MACRO_MISS_3D",op=macro_miss_3d_ops,fr=" ",docu="U7.03.11-a",
12684          OPTION          =FACT(statut='o',min=1,max=1,
12685            regles=(UN_PARMI('TOUT','MODULE'),),
12686            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
12687            MODULE          =SIMP(statut='f',typ='TXM',into=("PRE_MISS","MISS_EVOL","MISS_IMPE")),
12688          ),
12689          PROJET          =SIMP(statut='o',typ='TXM'),
12690          REPERTOIRE      =SIMP(statut='f',typ='TXM'),
12691          UNITE_IMPR_ASTER=SIMP(statut='f',typ='I',defaut=25),
12692          UNITE_OPTI_MISS =SIMP(statut='f',typ='I',defaut=26),
12693          UNITE_MODELE_SOL=SIMP(statut='f',typ='I',defaut=27),
12694          UNITE_RESU_IMPE =SIMP(statut='f',typ='I',defaut=30),
12695 )  ;
12696 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
12697 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12698 # ======================================================================
12699 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12700 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12701 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12702 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12703 # (AT YOUR OPTION) ANY LATER VERSION.
12704 #
12705 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12706 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12707 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12708 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12709 #
12710 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12711 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12712 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12713 # ======================================================================
12714
12715 from Macro.macro_mode_meca_ops import macro_mode_meca_ops
12716
12717 def macro_mode_meca_prod(self,MATR_A,MATR_B,**args ):
12718   self.type_sdprod(MATR_A,matr_asse_depl_r)
12719   self.type_sdprod(MATR_B,matr_asse_depl_r)
12720   return mode_meca
12721
12722 MACRO_MODE_MECA=MACRO(nom="MACRO_MODE_MECA",op=macro_mode_meca_ops,sd_prod=macro_mode_meca_prod,
12723                      docu="U4.52.02-d1",reentrant='n',
12724          MATR_A          =SIMP(statut='o',typ=(CO,matr_asse_depl_r) ),
12725          MATR_B          =SIMP(statut='o',typ=(CO,matr_asse_depl_r) ),
12726          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
12727 #  ce mot cle ne devrait il pas etre dans calc_freq
12728          METHODE         =SIMP(statut='f',typ='TXM',defaut="SORENSEN",
12729                                into=("TRI_DIAG","JACOBI","SORENSEN",) ),
12730          OPTION          =SIMP(statut='f',typ='TXM',defaut="SANS",
12731                                into=("MODE_RIGIDE","SANS") ),
12732          CALC_FREQ       =FACT(statut='d',min=0,max=1,
12733            regles=(UN_PARMI('FREQ','FREQ_MAX'),
12734                    PRESENT_PRESENT('FREQ_MIN','FREQ_MAX'),
12735                    PRESENT_PRESENT('FREQ_MAX','NB_BLOC_FREQ'),
12736                    EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
12737            FREQ            =SIMP(statut='f',typ='R',min=2,max='**',val_min=0.E+0 ),
12738            FREQ_MIN        =SIMP(statut='f',typ='R' ),
12739            FREQ_MAX        =SIMP(statut='f',typ='R' ),
12740            NB_BLOC_FREQ    =SIMP(statut='f',typ='I' ),
12741            DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
12742            COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
12743            NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8 ),
12744            NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
12745            PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
12746            PREC_LANCZOS    =SIMP(statut='f',typ='R',defaut= 1.E-10 ),
12747            PREC_ORTHO      =SIMP(statut='f',typ='R',defaut= 1.E-12 ),
12748            NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5 ),
12749            NMAX_ITER_QR    =SIMP(statut='f',typ='I',defaut= 30 ),
12750            PREC_BATHE      =SIMP(statut='f',typ='R',defaut= 1.4E-10 ),
12751            NMAX_ITER_BATHE =SIMP(statut='f',typ='I' ,defaut= 12 ),
12752            PREC_JACOBI     =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
12753            NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12 ),
12754            PREC_SOREN      =SIMP(statut='f',typ='R',defaut= 0.E0 ),
12755            NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20 ),
12756            PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717 ),
12757            SEUIL_FREQ      =SIMP(statut='f',typ='R' ,defaut= 1.E-2 ),
12758            STOP_FREQ_VIDE  =SIMP(statut='f',typ='TXM',defaut="NON" ,into=("OUI","NON") ),
12759          ),
12760          VERI_MODE       =FACT(statut='d',min=0,max=1,
12761            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12762            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
12763            PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
12764            STURM           =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12765          ),
12766          NORM_MODE       =FACT(statut='o',min=1,max='**',
12767            MASS_INER       =SIMP(statut='o',typ=tabl_mass_iner ),
12768            NORME           =SIMP(statut='f',typ='TXM',defaut="TRAN_ROTA",
12769                                  into=("MASS_GENE","RIGI_GENE","EUCL",
12770                                        "EUCL_TRAN","TRAN","TRAN_ROTA") ),
12771            INFO            =SIMP(statut='f',typ='I',defaut= 1 ,into=(1,2) ),
12772          ),
12773          FILTRE_MODE     =FACT(statut='f',min=1,max=1,
12774            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
12775                                  into=("MASS_EFFE_UN","MASS_GENE") ),
12776            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
12777          ),
12778          IMPRESSION      =FACT(statut='d',min=1,max=1,
12779            TOUT_PARA       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12780            CUMUL           =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12781            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
12782                                  into=("MASS_EFFE_UN","MASS_GENE",) ),
12783          ),
12784 )  ;
12785 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
12786 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12787 # ======================================================================
12788 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12789 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12790 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12791 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12792 # (AT YOUR OPTION) ANY LATER VERSION.
12793 #
12794 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12795 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12796 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12797 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12798 #
12799 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12800 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12801 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12802 # ======================================================================
12803
12804 from Macro.macro_proj_base_ops import macro_proj_base_ops
12805
12806 def macro_proj_base_prod(self,MATR_ASSE_GENE,VECT_ASSE_GENE,**args ):
12807   if MATR_ASSE_GENE != None:
12808     for m in MATR_ASSE_GENE:
12809       self.type_sdprod(m['MATRICE'],matr_asse_gene_r)
12810       self.type_sdprod(m['MATR_ASSE'],matr_asse_depl_r)
12811   if VECT_ASSE_GENE != None:
12812     for v in VECT_ASSE_GENE:
12813       self.type_sdprod(v['VECTEUR'],vect_asse_gene)
12814   return None
12815
12816 MACRO_PROJ_BASE=MACRO(nom="MACRO_PROJ_BASE",op=macro_proj_base_ops,docu="U4.63.11-d1",
12817                       sd_prod=macro_proj_base_prod,
12818                       fr="Projection des matrices et/ou vecteurs assemblés sur une base de vecteurs",
12819          BASE            =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene) ),
12820          NB_VECT         =SIMP(statut='f',typ='I',defaut= 9999),
12821          MATR_ASSE_GENE  =FACT(statut='f',min=01,max='**',
12822            MATRICE         =SIMP(statut='o',typ=(CO,matr_asse)),
12823            MATR_ASSE       =SIMP(statut='f',typ=matr_asse_depl_r),
12824            MATR_ASSE_GENE  =SIMP(statut='f',typ=matr_asse_gene_r),
12825            PROFIL          =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("PLEIN","DIAG") ),
12826          ),
12827          VECT_ASSE_GENE  =FACT(statut='f',min=01,max='**',
12828            VECTEUR         =SIMP(statut='o',typ=(CO,vect_asse)),
12829            TYPE_VECT       =SIMP(statut='f',typ='TXM',defaut="FORC"),
12830            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r),
12831            VECT_ASSE_GENE  =SIMP(statut='f',typ=vect_asse_gene),
12832          ),
12833          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12834 )  ;
12835 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
12836 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12837 # ======================================================================
12838 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12839 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12840 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12841 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12842 # (AT YOUR OPTION) ANY LATER VERSION.
12843 #
12844 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12845 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12846 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12847 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12848 #
12849 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12850 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12851 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12852 # ======================================================================
12853 MAJ_CATA=PROC(nom="MAJ_CATA",op=20,docu="U4.15.01-e1",
12854               fr="Compilation des catalogues de commandes et d éléments",
12855
12856          ELEMENT         =FACT(statut='f',min=01,max=01,),
12857
12858 )  ;
12859 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
12860 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12861 # ======================================================================
12862 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12863 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12864 #              REDISTRIBUTION OF THIS FILE.
12865 # ======================================================================
12866 # RESPONSABLE VABHHTS J.PELLET
12867 MECA_STATIQUE=OPER(nom="MECA_STATIQUE",op=46,sd_prod=evol_elas,
12868                    fr="Analyse mécanique statique linéaire",docu="U4.51.01-g1",reentrant='n',
12869                    regles=(EXCLUS("INST","LIST_INST"),
12870                            AU_MOINS_UN('CHAM_MATER','CARA_ELEM',), ),
12871          MODELE          =SIMP(statut='o',typ=modele),
12872          CHAM_MATER      =SIMP(statut='f',typ=cham_mater,
12873          fr="le CHAM_MATER est nécessaire, sauf si le modèle ne contient que des éléments discrets (modélisations DIS_XXX)",
12874          ang="CHAM_MATER is compulsory, except if the model contains only discret elements (modelizations DIS_XXX)"),
12875          CARA_ELEM       =SIMP(statut='f',typ=cara_elem,
12876          fr="le CARA_ELEM est nécessaire dès que le modèle contient des éléments de structure : coques, poutres, ...",
12877          ang="CARA_ELEM is compulsory as soon as the model contains structural elements : plates, beams, ..."),
12878          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
12879          EXCIT           =FACT(statut='o',min=1,max='**',
12880            CHARGE          =SIMP(statut='o',typ=(char_meca,char_cine_meca)),
12881            FONC_MULT       =SIMP(statut='f',typ=fonction),
12882            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
12883          ),
12884          INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12885          LIST_INST       =SIMP(statut='f',typ=listr8),
12886          OPTION          =SIMP(statut='f',typ='TXM',max='**',
12887                                into=("SANS","SIGM_ELNO_DEPL","SIPO_ELNO_DEPL","EFGE_ELNO_DEPL",
12888                                      "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPME_ELNO_DEPL","EPME_ELGA_DEPL",
12889                                      "EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
12890                                      "EQUI_ELNO_EPME","EQUI_ELGA_EPME","DEGE_ELNO_DEPL","EPOT_ELEM_DEPL",
12891                                      "ENEL_ELGA","ENEL_ELNO_ELGA") ),
12892          NUME_COUCHE     =SIMP(statut='f',typ='I',defaut=1),
12893          NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
12894          ANGLE           =SIMP(statut='f',typ='I',defaut=0),
12895          PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL") ),
12896          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
12897                                fr="Liste des paramètres de sensibilité.",
12898                                ang="List of sensitivity parameters"),
12899          SOLVEUR         =FACT(statut='d',min=1,max=1,
12900            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
12901            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
12902              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
12903            ),
12904            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
12905              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
12906            ),
12907            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
12908                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
12909              NPREC           =SIMP(statut='f',typ='I',defaut=8),
12910              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12911            ),
12912            b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
12913              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
12914              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
12915              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
12916              RESI_RELA       =SIMP(statut='f',typ='R',defaut=1.E-6),
12917              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
12918            ),
12919 #  A quoi sert eps
12920            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12921          ),
12922          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
12923 )  ;
12924 #& MODIF COMMANDE  DATE 17/06/2002   AUTEUR GNICOLAS G.NICOLAS
12925 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12926 # ======================================================================
12927 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12928 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12929 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12930 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12931 # (AT YOUR OPTION) ANY LATER VERSION.
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 # RESPONSABLE GNICOLAS G.NICOLAS
12943 MEMO_NOM_SENSI=PROC(nom="MEMO_NOM_SENSI",op=129,docu="U4.31.xx-a",
12944                     fr="Mémorisation des noms des concepts dérivés.",
12945                     ang="Memorisation of the names of the sensitive concepts.",
12946
12947          regles=(AU_MOINS_UN('NOM','NOM_ZERO','NOM_UN'),),
12948
12949          NOM=FACT(statut='f',max='**',
12950              regles=(PRESENT_PRESENT('MOT_CLE','VALEUR' ),),
12951
12952              NOM_SD=SIMP(statut='o',typ='TXM',
12953                          fr="Nom de la structure de base",
12954                          ang="Name of the basic structure"),
12955
12956              PARA_SENSI=SIMP(statut='o',typ=(para_sensi,theta_geom),
12957                          fr="Nom du paramètre sensible",
12958                          ang="Name of the sensitive parameter"),
12959
12960              NOM_COMPOSE=SIMP(statut='f',typ='TXM',defaut=" ",
12961                          fr="Nom de la structure composée",
12962                          ang="Name of the built structure"),
12963
12964              MOT_CLE=SIMP(statut='f',typ='TXM',max='**',
12965                          fr="Liste des mots clés concernés par la dérivation",
12966                          ang="Keyword list involved in derivation"),
12967
12968              VALEUR=SIMP(statut='f',typ='TXM',max='**',
12969                          fr="Liste des objets concernés par la dérivation",
12970                          ang="Object list involved in derivation"),
12971
12972                  ),
12973
12974          NOM_ZERO=SIMP(statut='f',typ=fonction,
12975                        fr="Nom de la fonction nulle",
12976                        ang="Name of the zero fonction"),
12977
12978          NOM_UN=SIMP  (statut='f',typ=fonction,
12979                        fr="Nom de la fonction unité",
12980                        ang="Name of the one fonction"),
12981
12982 )  ;
12983 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
12984 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12985 # ======================================================================
12986 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12987 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12988 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12989 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12990 # (AT YOUR OPTION) ANY LATER VERSION.
12991 #
12992 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12993 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12994 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12995 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12996 #
12997 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12998 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12999 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13000 # ======================================================================
13001 MODE_ITER_CYCL=OPER(nom="MODE_ITER_CYCL",op=  80,sd_prod=mode_cycl,
13002                     fr="Modes propres d une structure à répétitivité cyclique à partir d une base de modes propres réels",
13003                     docu="U4.52.05-e",reentrant='n',
13004          BASE_MODALE     =SIMP(statut='o',typ=base_modale ),
13005          NB_MODE         =SIMP(statut='f',typ='I',defaut= 999 ),
13006          NB_SECTEUR      =SIMP(statut='o',typ='I' ),
13007          LIAISON         =FACT(statut='o',min=01,max=01,
13008            DROITE          =SIMP(statut='o',typ='TXM' ),
13009            GAUCHE          =SIMP(statut='o',typ='TXM' ),
13010            AXE             =SIMP(statut='f',typ='TXM' ),
13011          ),
13012          VERI_CYCL       =FACT(statut='f',min=01,max=01,
13013            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
13014            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF",) ),
13015            DIST_REFE       =SIMP(statut='f',typ='R' ),
13016          ),
13017          CALCUL          =FACT(statut='o',min=01,max=01,
13018            TOUT_DIAM       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13019            NB_DIAM         =SIMP(statut='f',typ='I',max='**'),
13020            OPTION          =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE"
13021                                 ,into=("PLUS_PETITE","CENTRE","BANDE") ),
13022            b_centre      =BLOC(condition = "OPTION == 'CENTRE'",
13023              FREQ            =SIMP(statut='o',typ='R',min=01,max=01),
13024            ),
13025            b_bande       =BLOC(condition = "OPTION == 'BANDE'",
13026              FREQ            =SIMP(statut='o',typ='R',min=02,max=02),
13027            ),
13028 #  NMAX_FREQ n a-t-il pas un sens qu avec OPTION CENTRE
13029            NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10 ),
13030            PREC_SEPARE     =SIMP(statut='f',typ='R',defaut= 100. ),
13031            PREC_AJUSTE     =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
13032            NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 50 ),
13033          ),
13034          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13035 )  ;
13036 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
13037 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13038 # ======================================================================
13039 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13040 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13041 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13042 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13043 # (AT YOUR OPTION) ANY LATER VERSION.
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 def mode_iter_inv_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
13055   if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
13056   if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
13057   if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
13058   if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
13059   if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
13060   raise AsException("type de concept resultat non prevu")
13061
13062 MODE_ITER_INV=OPER(nom="MODE_ITER_INV",op=  44,sd_prod=mode_iter_inv_prod
13063                     ,fr="Modes propres par itérations inverses ; valeurs propres et modes réels ou complexes",
13064                      docu="U4.52.04-g1",reentrant='n',
13065          MATR_A          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13066          MATR_B          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13067          MATR_C          =SIMP(statut='f',typ=matr_asse_depl_r ),
13068          TYPE_RESU       =SIMP(statut='f',position='global',typ='TXM',defaut="DYNAMIQUE",
13069                                into=("MODE_FLAMB","DYNAMIQUE"),fr="Type d analyse" ),
13070          b_dynam         =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
13071            CALC_FREQ       =FACT(statut='o',min=1,max=1,fr="Choix des paramètres pour le calcul des valeurs propres",
13072
13073              OPTION          =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
13074                                    fr="Choix de l option pour estimer les valeurs propres"  ),
13075              FREQ            =SIMP(statut='o',typ='R',max='**'),
13076              AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
13077              NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 0,val_min=0 ),
13078              NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30,val_min=0 ),
13079              PREC_SEPARE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0 ),
13080              NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15,val_min=0 ),
13081              PREC_AJUSTE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0 ),
13082
13083              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13084              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13085              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0, ),
13086              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0, ),
13087            ),
13088          ),
13089          b_flamb        =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
13090            CALC_FREQ       =FACT(statut='o',min=1,max=1,fr="Choix des paramètres pour le calcul des valeurs propres",
13091
13092              OPTION          =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
13093                                  fr="Choix de l option pour estimer les valeurs propres"  ),
13094              CHAR_CRIT       =SIMP(statut='o',typ='R',max='**' ),
13095              NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 0,val_min=0 ),
13096              NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30,val_min=0 ),
13097              PREC_SEPARE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0, ),
13098              NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15 ),
13099              PREC_AJUSTE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0, ),
13100
13101              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13102              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13103              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0, ),
13104              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0, ),
13105            ),
13106          ),
13107          CALC_MODE       =FACT(statut='d',min=0,max=1,fr="Choix des paramètres pour le calcul des vecteurs propres",
13108            OPTION          =SIMP(statut='f',typ='TXM',defaut="DIRECT",into=("DIRECT","RAYLEIGH") ),
13109            PREC            =SIMP(statut='f',typ='R',defaut= 1.E-5,val_min=0.E+0,fr="Précision de convergence" ),
13110            NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
13111          ),
13112          VERI_MODE       =FACT(statut='d',min=0,max=1,
13113            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13114            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0,
13115                                  fr="Valeur limite admise pour l ereur a posteriori des modes"  ),
13116          ),
13117          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13118          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13119 )  ;
13120 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
13121 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13122 # ======================================================================
13123 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13124 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13125 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13126 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13127 # (AT YOUR OPTION) ANY LATER VERSION.
13128 #
13129 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13130 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13131 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13132 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13133 #
13134 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13135 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13136 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13137 # ======================================================================
13138 def mode_iter_simult_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
13139   if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
13140   if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
13141   if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
13142   if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
13143   if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
13144   raise AsException("type de concept resultat non prevu")
13145
13146 MODE_ITER_SIMULT=OPER(nom="MODE_ITER_SIMULT",op=  45,sd_prod=mode_iter_simult_prod,
13147                       fr="Modes propres par itérations simultanées ; valeurs propres et modes propres réels ou complexes",
13148                       docu="U4.52.03-f2",reentrant='n',
13149          MATR_A          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13150          MATR_B          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13151          MATR_C          =SIMP(statut='f',position='global',typ=matr_asse_depl_r ),
13152          METHODE         =SIMP(statut='f',position='global',typ='TXM',defaut="SORENSEN",
13153                                into=("TRI_DIAG","JACOBI","SORENSEN") ),
13154          TYPE_RESU       =SIMP(statut='f',position='global',typ='TXM',defaut="DYNAMIQUE",
13155                                into=("MODE_FLAMB","DYNAMIQUE"),
13156                                fr="Type d analyse" ),
13157          OPTION          =SIMP(statut='f',typ='TXM',defaut="SANS",into=("MODE_RIGIDE","SANS"),
13158                                fr="Calcul des modes de corps rigide, uniquement pour la méthode TRI_DIAG" ),
13159
13160          b_flamb         =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
13161            CALC_FREQ       =FACT(statut='d',min=0,max=1,
13162              OPTION          =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
13163                                    fr="Choix de l option et par conséquent du shift du problème modal" ),
13164              b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
13165                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
13166              ),
13167              b_centre      =BLOC(condition = "OPTION == 'CENTRE'",
13168                                  fr="Recherche des valeurs propres les plus proches d une valeur donnée",
13169                CHAR_CRIT       =SIMP(statut='o',typ='R',min=1,max=1,
13170                                      fr="Charge critique autour de laquelle on cherche les charges critiques propres"),
13171              ),
13172              b_bande       =BLOC(condition = "(OPTION == 'BANDE')",
13173                                  fr="Recherche des valeurs propres dans une bande donnée",
13174                CHAR_CRIT       =SIMP(statut='o',typ='R',min=2,max=2,
13175                                      fr="Valeur des deux charges critiques délimitant la bande de recherche"),
13176              ),
13177              APPROCHE        =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG"),
13178                                    fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
13179              regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
13180              DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
13181              COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
13182              b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
13183                PREC_ORTHO      =SIMP(statut='f',typ='R',defaut= 1.E-12,val_min=0.E+0 ),
13184                NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13185                PREC_LANCZOS    =SIMP(statut='f',typ='R',defaut= 1.E-8,val_min=0.E+0 ),
13186                NMAX_ITER_QR    =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
13187              ),
13188              b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
13189                PREC_BATHE      =SIMP(statut='f',typ='R',defaut= 1.E-10,val_min=0.E+0 ),
13190                NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40,val_min=0 ),
13191                PREC_JACOBI     =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13192                NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12,val_min=0 ),
13193              ),
13194              b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
13195                PREC_SOREN      =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
13196                NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
13197                PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
13198              ),
13199              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13200              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13201              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0 ),
13202              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13203            ),
13204          ),
13205
13206          b_dynam        =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
13207            CALC_FREQ       =FACT(statut='d',min=0,max=1,
13208              OPTION          =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
13209                                    fr="Choix de l option et par conséquent du shift du problème modal" ),
13210              b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
13211                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
13212              ),
13213              b_centre       =BLOC(condition = "OPTION == 'CENTRE'",
13214                                   fr="Recherche des valeurs propres les plus proches d une valeur donnée",
13215                FREQ            =SIMP(statut='o',typ='R',min=1,max=1,
13216                                      fr="Fréquence autour de laquelle on cherche les fréquences propres"),
13217                AMOR_REDUIT     =SIMP(statut='f',typ='R',max=1,),
13218                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
13219              ),
13220              b_bande         =BLOC(condition = "(OPTION == 'BANDE')",
13221                                    fr="Recherche des valeurs propres dans une bande donnée",
13222                FREQ            =SIMP(statut='o',typ='R',min=2,max=2,
13223                                      fr="Valeur des deux fréquences délimitant la bande de recherche"),
13224              ),
13225              APPROCHE        =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG"),
13226                                    fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
13227              regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
13228              DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
13229              COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
13230              b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
13231                PREC_ORTHO      =SIMP(statut='f',typ='R',defaut= 1.E-12,val_min=0.E+0 ),
13232                NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13233                PREC_LANCZOS    =SIMP(statut='f',typ='R',defaut= 1.E-8,val_min=0.E+0 ),
13234                NMAX_ITER_QR    =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
13235              ),
13236              b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
13237                PREC_BATHE      =SIMP(statut='f',typ='R',defaut= 1.E-10,val_min=0.E+0 ),
13238                NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40,val_min=0 ),
13239                PREC_JACOBI     =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13240                NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12,val_min=0 ),
13241              ),
13242              b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
13243                PREC_SOREN      =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
13244                NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
13245                PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
13246              ),
13247              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13248              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13249              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0 ),
13250              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13251            ),
13252          ),
13253
13254          VERI_MODE       =FACT(statut='d',min=0,max=1,
13255            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13256            PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-3,val_min=0.E+0 ),
13257            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-6,val_min=0.E+0,
13258                                  fr="Valeur limite admise pour l ereur a posteriori des modes" ),
13259            STURM           =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13260          ),
13261          STOP_FREQ_VIDE  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13262          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13263          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13264 )  ;
13265 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
13266 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13267 # ======================================================================
13268 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13269 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13270 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13271 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13272 # (AT YOUR OPTION) ANY LATER VERSION.
13273 #
13274 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13275 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13276 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13277 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13278 #
13279 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13280 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13281 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13282 # ======================================================================
13283 def mode_stat_prod(MODE_STAT,FORCE_NODALE,PSEUDO_MODE,**args):
13284  if (MODE_STAT != None)          : return mode_stat_depl
13285  if (PSEUDO_MODE !=None)         : return mode_stat_acce
13286  if (FORCE_NODALE != None)       : return mode_stat_forc
13287  raise AsException("type de concept resultat non prevu")
13288 MODE_STATIQUE=OPER(nom="MODE_STATIQUE",op= 93,sd_prod=mode_stat_prod,
13289                    fr="Calcul de modes statiques",
13290                    docu="U4.52.14-f2",reentrant='n',
13291          MATR_RIGI       =SIMP(statut='o',typ=matr_asse_depl_r ),
13292          MATR_MASS       =SIMP(statut='f',typ=matr_asse_depl_r ),
13293                regles=(UN_PARMI('MODE_STAT','FORCE_NODALE','PSEUDO_MODE'),),
13294          MODE_STAT       =FACT(statut='f',min=01,max='**',
13295            regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
13296                    UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
13297            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ,),
13298            NOEUD           =SIMP(statut='f',typ=no,max='**'),
13299            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
13300            TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",) ,),
13301            AVEC_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13302            SANS_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13303          ),
13304          FORCE_NODALE    =FACT(statut='f',min=01,max='**',
13305            regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
13306                    UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
13307            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",), ),
13308            NOEUD           =SIMP(statut='f',typ=no,max='**'),
13309            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
13310            TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",), ),
13311            AVEC_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13312            SANS_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13313          ),
13314          PSEUDO_MODE       =FACT(statut='f',min=01,max='**',
13315            regles=(UN_PARMI('AXE','DIRECTION','TOUT','NOEUD','GROUP_NO' ),),
13316            AXE             =SIMP(statut='f',typ='TXM',into=("X","Y","Z"),max=3),
13317            DIRECTION       =SIMP(statut='f',typ='R',min=3,max=3),
13318            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
13319            NOEUD           =SIMP(statut='f',typ=no,max='**'),
13320            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
13321            b_dir           =BLOC(condition = "DIRECTION != None",
13322              NOM_DIR         =SIMP(statut='f',typ='TXM' ),),
13323            b_cmp          =BLOC(condition="TOUT!= None or NOEUD!=None or GROUP_NO!=None",
13324              regles=(UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
13325              TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13326              AVEC_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13327              SANS_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13328         ),
13329          ),
13330          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13331          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
13332 )  ;
13333 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
13334 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13335 # ======================================================================
13336 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13337 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13338 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13339 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13340 # (AT YOUR OPTION) ANY LATER VERSION.
13341 #
13342 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13343 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13344 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13345 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13346 #
13347 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13348 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13349 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13350 # ======================================================================
13351 MODI_BASE_MODALE=OPER(nom="MODI_BASE_MODALE",op= 149,sd_prod=mode_meca,
13352                       docu="U4.66.21-c",reentrant='f',
13353 #  la commande modi_base _modale : reentrant = f ou o
13354          regles=(EXCLUS('AMOR_UNIF','AMOR_REDUIT', ),),
13355          BASE            =SIMP(statut='o',typ=mode_meca ),
13356          BASE_ELAS_FLUI  =SIMP(statut='o',typ=melasflu ),
13357          NUME_VITE_FLUI  =SIMP(statut='o',typ='I' ),
13358          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
13359          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
13360          AMOR_UNIF       =SIMP(statut='f',typ='R' ),
13361          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
13362          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13363 )  ;
13364 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
13365 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13366 # ======================================================================
13367 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13368 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13369 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13370 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13371 # (AT YOUR OPTION) ANY LATER VERSION.
13372 #
13373 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13374 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13375 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13376 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13377 #
13378 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13379 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13380 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13381 # ======================================================================
13382 # RESPONSABLE G8BHHXD X.DESROCHES
13383 MODI_MAILLAGE=OPER(nom="MODI_MAILLAGE",op= 154,sd_prod=maillage,
13384                    fr="Modification de la connectivité de groupes de mailles 2D ou 3D affectées à la modélisation de contact",
13385                    docu="U4.23.04-d1",reentrant='o',
13386       regles=(UN_PARMI('ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
13387                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE'),
13388               EXCLUS('EQUE_PIQUA','PLAQ_TUBE'),
13389               EXCLUS('EQUE_PIQUA','TUBE_COUDE'),),
13390          MAILLAGE        =SIMP(statut='o',typ=maillage ),
13391
13392          ORIE_CONTACT    =FACT(statut='f',min=01,max=01,
13393            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
13394          ),
13395
13396          DEFORME         =FACT(statut='f',min=01,max=01,
13397            OPTION          =SIMP(statut='o',typ='TXM',into=("TRAN","TRAN_APPUI") ),
13398            DEPL            =SIMP(statut='o',typ=cham_no_depl_r ),
13399         b_deform        =BLOC(condition = "OPTION=='TRAN_APPUI'",
13400            GROUP_NO_APPUI = SIMP(statut='o',typ=grno,max='**' ),
13401            GROUP_NO_STRU = SIMP(statut='o',typ=grno,max='**' ),),
13402          ),
13403
13404          EQUE_PIQUA      =FACT(statut='f',min=01,max=01,
13405            GROUP_NO        =SIMP(statut='o',typ=grno),
13406            E_BASE          =SIMP(statut='o',typ='R' ),
13407            DEXT_BASE       =SIMP(statut='o',typ='R' ),
13408            L_BASE          =SIMP(statut='o',typ='R' ),
13409            L_CHANF         =SIMP(statut='o',typ='R' ),
13410            H_SOUD          =SIMP(statut='o',typ='R' ),
13411            ANGL_SOUD       =SIMP(statut='o',typ='R' ),
13412            JEU_SOUD        =SIMP(statut='o',typ='R' ),
13413            E_CORP          =SIMP(statut='o',typ='R' ),
13414            DEXT_CORP       =SIMP(statut='o',typ='R' ),
13415            AZIMUT          =SIMP(statut='o',typ='R' ),
13416            RAFF_MAIL       =SIMP(statut='o',typ='TXM' ),
13417            X_MAX           =SIMP(statut='o',typ='R' ),
13418          ),
13419          ORIE_PEAU_2D    =FACT(statut='f',min=01,max='**',
13420            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
13421          ),
13422          ORIE_PEAU_3D    =FACT(statut='f',min=01,max='**',
13423            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
13424          ),
13425          ORIE_NORM_COQUE =FACT(statut='f',min=01,max='**',
13426            regles=(EXCLUS('NOEUD','GROUP_NO'),
13427                    PRESENT_PRESENT('NOEUD','VECT_NORM'),
13428                    PRESENT_PRESENT('GROUP_NO','VECT_NORM'),),
13429            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
13430            VECT_NORM       =SIMP(statut='f',typ='R',max=03),
13431            NOEUD           =SIMP(statut='f',typ=no),
13432            GROUP_NO        =SIMP(statut='f',typ=grno),
13433          ),
13434          b_modele        =BLOC(condition = "(ORIE_PEAU_2D != None) or (ORIE_PEAU_3D != None) or(ORIE_NORM_COQUE != None)",
13435            MODELE          =SIMP(statut='o',typ=modele ),
13436          ),
13437          PLAQ_TUBE       =FACT(statut='f',min=01,max=01,
13438            DEXT            =SIMP(statut='o',typ='R' ),
13439            EPAIS           =SIMP(statut='o',typ='R' ),
13440            L_TUBE_P1       =SIMP(statut='o',typ='R' ),
13441            AZIMUT          =SIMP(statut='f',typ='R',defaut= 90. ),
13442            COUTURE         =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",)  ),
13443          ),
13444          TUBE_COUDE      =FACT(statut='f',min=01,max=01,
13445            ANGLE           =SIMP(statut='o',typ='R' ),
13446            R_CINTR         =SIMP(statut='o',typ='R' ),
13447            L_TUBE_P1       =SIMP(statut='o',typ='R' ),
13448          ),
13449          MODI_MAILLE     =FACT(statut='f',min=01,max=01,
13450            regles=(AU_MOINS_UN('GROUP_MA_FOND','MAILLE_FOND','GROUP_NO_FOND','NOEUD_FOND'),),
13451            OPTION          =SIMP(statut='o',typ='TXM',into=("NOEUD_QUART",) ),
13452            GROUP_MA_FOND   =SIMP(statut='f',typ=grma,max='**'),
13453            MAILLE_FOND     =SIMP(statut='f',typ=ma,max='**'),
13454            GROUP_NO_FOND   =SIMP(statut='f',typ=grno,max='**'),
13455            NOEUD_FOND      =SIMP(statut='f',typ=no,max='**'),
13456          ),
13457          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13458 )  ;
13459 #& MODIF COMMANDE  DATE 15/01/2002   AUTEUR CIBHHLV L.VIVAN
13460 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13461 # ======================================================================
13462 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13463 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13464 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13465 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13466 # (AT YOUR OPTION) ANY LATER VERSION.
13467 #
13468 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13469 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13470 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13471 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13472 #
13473 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13474 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13475 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13476 # ======================================================================
13477 MODI_OBSTACLE=OPER(nom="MODI_OBSTACLE",op=182,sd_prod=obstacle,
13478                    fr=" ",docu="U4.44.22-a",reentrant='f',
13479       regles=(PRESENT_ABSENT('R_MOBILE','CRAYON'),
13480               PRESENT_PRESENT('TUBE_NEUF','TABL_USURE'),
13481               PRESENT_PRESENT('V_USUR_TUBE','V_USUR_OBST'),),
13482          TUBE_NEUF       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13483          V_USUR_TUBE     =SIMP(statut='f',typ='R',max='**'),
13484          V_USUR_OBST     =SIMP(statut='f',typ='R',max='**'),
13485          TABL_USURE      =SIMP(statut='f',typ=tabl_post_usur),
13486          INST            =SIMP(statut='f',typ='R'),
13487          OBSTACLE        =SIMP(statut='f',typ=obstacle),
13488          GUIDE           =SIMP(statut='o',typ=obstacle),
13489          CRAYON          =SIMP(statut='f',typ=obstacle),
13490          R_MOBILE        =SIMP(statut='f',typ='R'),
13491          PERCEMENT       =SIMP(statut='f',typ='R',defaut=1),
13492          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13493 )  ;
13494 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
13495 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13496 # ======================================================================
13497 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13498 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13499 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13500 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13501 # (AT YOUR OPTION) ANY LATER VERSION.
13502 #
13503 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13504 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13505 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13506 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13507 #
13508 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13509 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13510 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13511 # ======================================================================
13512 # RESPONSABLE JMBHH01 J.M.PROIX
13513 def modi_repere_prod(RESULTAT,**args):
13514   if AsType(RESULTAT) == evol_elas :    return evol_elas
13515   if AsType(RESULTAT) == evol_noli :    return evol_noli
13516   if AsType(RESULTAT) == evol_ther :    return evol_ther
13517   if AsType(RESULTAT) == dyna_trans :   return dyna_trans
13518   if AsType(RESULTAT) == dyna_harmo :   return dyna_harmo
13519   if AsType(RESULTAT) == mode_meca :    return mode_meca
13520   if AsType(RESULTAT) == mode_flamb :   return mode_flamb
13521   if AsType(RESULTAT) == mult_elas :    return mult_elas
13522   if AsType(RESULTAT) == base_modale  : return base_modale
13523   raise AsException("type de concept resultat non prevu")
13524
13525 MODI_REPERE=OPER(nom="MODI_REPERE",op=191,sd_prod=modi_repere_prod,docu="U4.74.01-a3",reentrant='n',
13526                     fr="Impression des resultats dans un repere cylindrique",
13527          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,mode_meca,
13528                                                evol_noli,mult_elas,
13529                                                evol_ther,base_modale,mode_flamb) ),
13530          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
13531                         'NOEUD_CMP','LIST_INST','LIST_FREQ','NOM_CAS'),),
13532          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13533          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
13534          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
13535          NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
13536          NOM_CAS         =SIMP(statut='f',typ='TXM' ),
13537
13538          INST            =SIMP(statut='f',typ='R',max='**'),
13539          FREQ            =SIMP(statut='f',typ='R',max='**'),
13540          LIST_INST       =SIMP(statut='f',typ=listr8),
13541          LIST_FREQ       =SIMP(statut='f',typ=listr8),
13542
13543          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
13544          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",),),
13545
13546          MODI_CHAM       =FACT(statut='o',min=01,max='**',
13547            TYPE_CHAM       =SIMP(statut='o',typ='TXM', max=1,
13548                                  into=("VECT_2D","VECT_3D","TORS_3D","TENS_2D","TENS_3D"),),
13549            NOM_CHAM        =SIMP(statut='o',typ='TXM',max=1 ),
13550            b_vect_2d       =BLOC(condition = "TYPE_CHAM=='VECT_2D'",
13551               NOM_CMP         =SIMP(statut='o',typ='TXM',min=2,max=2 ),),
13552            b_vect_3d       =BLOC(condition = "TYPE_CHAM=='VECT_3D'",
13553               NOM_CMP         =SIMP(statut='o',typ='TXM',min=3,max=3 ),),
13554            b_tors_3d       =BLOC(condition = "TYPE_CHAM=='TORS_3D'",
13555               NOM_CMP         =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
13556            b_tens_2d       =BLOC(condition = "TYPE_CHAM=='TENS_2D'",
13557               NOM_CMP         =SIMP(statut='o',typ='TXM',min=4,max=4 ),),
13558            b_tens_3d       =BLOC(condition = "TYPE_CHAM=='TENS_3D'",
13559               NOM_CMP         =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
13560          ),
13561          DEFI_REPERE     =FACT(statut='o',min=1,max=1,
13562          regles=(UN_PARMI('ANGL_NAUT','ORIGINE'),),
13563            REPERE          =SIMP(statut='f',typ='TXM',defaut="UTILISATEUR",
13564                                  into=("UTILISATEUR","CYLINDRIQUE"),),
13565            ANGL_NAUT       =SIMP(statut='f',typ='R',min=1,max=3),
13566            ORIGINE         =SIMP(statut='f',typ='R',min=2,max=3),
13567            AXE_Z           =SIMP(statut='f',typ='R',min=3,max=3),
13568          ),
13569          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13570 )  ;
13571 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
13572 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13573 # ======================================================================
13574 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13575 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13576 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13577 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13578 # (AT YOUR OPTION) ANY LATER VERSION.
13579 #
13580 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13581 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13582 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13583 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13584 #
13585 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13586 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13587 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13588 # ======================================================================
13589 def norm_mode_prod(MODE,**args ):
13590   if AsType(MODE) == mode_meca   : return mode_meca
13591   if AsType(MODE) == mode_meca_c : return mode_meca_c
13592   if AsType(MODE) == mode_flamb  : return mode_flamb
13593   raise AsException("type de concept resultat non prevu")
13594
13595 NORM_MODE=OPER(nom="NORM_MODE",op=  37,sd_prod=norm_mode_prod,
13596                fr="Normalisation de modes propres",
13597                docu="U4.52.11-e",reentrant='f',
13598          regles=(UN_PARMI('NORME','NOEUD','AVEC_CMP','SANS_CMP'),),
13599          MODE       =SIMP(statut='o',typ=(mode_meca,mode_flamb) ),
13600          NORME      =SIMP(statut='f',typ='TXM',fr="Norme prédéfinie : masse généralisée, euclidienne,...",
13601                           into=("MASS_GENE","RIGI_GENE","EUCL","EUCL_TRAN","TRAN","TRAN_ROTA") ),
13602          NOEUD      =SIMP(statut='f',typ=no, fr="Composante donnée d un noeud spécifié égale à 1"),
13603          b_noeud    =BLOC(condition = "NOEUD != None",
13604            NOM_CMP    =SIMP(statut='o',typ='TXM' ),
13605          ),
13606          AVEC_CMP   =SIMP(statut='f',typ='TXM',max='**'),
13607          SANS_CMP   =SIMP(statut='f',typ='TXM',max='**'),
13608          MASS_INER  =SIMP(statut='f',typ=tabl_mass_iner ),
13609          MODE_SIGNE =FACT(statut='f',min=00,max=01,fr="Imposer un signe sur une des composantes des modes",
13610            NOEUD      =SIMP(statut='o',typ=no,fr="Noeud ou sera imposé le signe"),
13611            NOM_CMP    =SIMP(statut='o',typ='TXM',fr="Composante du noeud ou sera imposé le signe" ),
13612            SIGNE      =SIMP(statut='f',typ='TXM',defaut="POSITIF",into=("NEGATIF","POSITIF"),
13613                             fr="Choix du signe" ),
13614          ),
13615          TITRE      =SIMP(statut='f',typ='TXM',max='**'),
13616          INFO       =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13617 )  ;
13618 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
13619 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13620 # ======================================================================
13621 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13622 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13623 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13624 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13625 # (AT YOUR OPTION) ANY LATER VERSION.
13626 #
13627 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13628 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13629 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13630 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13631 #
13632 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13633 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13634 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13635 # ======================================================================
13636 # RESPONSABLE VABHHTS J.PELLET
13637 NUME_DDL=OPER(nom="NUME_DDL",op=11,sd_prod=nume_ddl,docu="U4.61.11-g1",reentrant='n',
13638               fr="Etablissement de la numérotation des ddl avec ou sans renumérotation et du stockage de la matrice",
13639                   regles=(UN_PARMI('MATR_RIGI','MODELE'),),
13640          MATR_RIGI       =SIMP(statut='f',typ=(matr_elem_depl_r ,matr_elem_depl_c,
13641                                                matr_elem_temp_r,matr_elem_pres_c),max=100 ),
13642          MODELE          =SIMP(statut='f',typ=modele ),
13643          b_modele        =BLOC(condition = "MODELE != None",
13644            CHARGE     =SIMP(statut='f',max='**',typ=(char_meca,char_ther,char_acou, ),),
13645          ),
13646          METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
13647          b_mult_front    =BLOC(condition="METHODE=='MULT_FRONT'",fr="paramètres associés à la méthode multifrontale",
13648            RENUM           =SIMP(statut='f',typ='TXM',into=("MD","MDA","METIS"),defaut="METIS" ),
13649          ),
13650          b_ldlt          =BLOC(condition="METHODE=='LDLT'",fr="paramètres associés à la méthode LDLT",
13651            RENUM           =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK"  ),
13652          ),
13653          b_gcpc          =BLOC(condition="METHODE=='GCPC'",fr="paramètres associés à la méthode gradient conjugué",
13654            RENUM           =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK"  ),
13655          ),
13656          INFO            =SIMP(statut='f',typ='I',into=(1,2)),
13657 )  ;
13658 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
13659 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13660 # ======================================================================
13661 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13662 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13663 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13664 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13665 # (AT YOUR OPTION) ANY LATER VERSION.
13666 #
13667 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13668 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13669 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13670 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13671 #
13672 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13673 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13674 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13675 # ======================================================================
13676 NUME_DDL_GENE=OPER(nom="NUME_DDL_GENE",op= 127,sd_prod=nume_ddl_gene,
13677                    fr="Etablissement de la numérotation des ddl d un modèle établi en coordonnées généralisées",
13678                     docu="U4.65.03-e1",reentrant='n',
13679          regles=UN_PARMI('MODELE_GENE','BASE'),
13680          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
13681              b_modele_gene     =BLOC(condition = "MODELE_GENE != None",
13682                STOCKAGE     =SIMP(statut='f',typ='TXM',defaut="LIGN_CIEL",into=("LIGN_CIEL","PLEIN") ),
13683                                     ),
13684          BASE     =SIMP(statut='f',typ=(mode_meca,base_modale,mode_gene ) ),
13685              b_base     =BLOC(condition = "BASE != None",
13686                STOCKAGE     =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("DIAG","PLEIN") ),
13687                NB_VECT     =SIMP(statut='f',typ='I',defaut= 9999 ),
13688                              ),
13689 )  ;
13690 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
13691 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13692 # ======================================================================
13693 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13694 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13695 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13696 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13697 # (AT YOUR OPTION) ANY LATER VERSION.
13698 #
13699 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13700 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13701 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13702 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13703 #
13704 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13705 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13706 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13707 # ======================================================================
13708 POST_DYNA_ALEA=OPER(nom="POST_DYNA_ALEA",op= 132,sd_prod=tabl_post_alea,
13709                     fr="Traitements statistiques de résultats de type interspectre et impression sur fichiers",
13710                     docu="U4.84.04-d",reentrant='n',
13711          regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I','OPTION'),),
13712          INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
13713          NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
13714          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13715          NUME_ORDRE_I    =SIMP(statut='f',typ='I',max='**' ),
13716          NOEUD_I         =SIMP(statut='f',typ=no,max='**'),
13717          OPTION          =SIMP(statut='f',typ='TXM',into=("DIAG",) ),
13718          b_nume_ordre_i =BLOC(condition = "NUME_ORDRE_I != None",
13719            NUME_ORDRE_J    =SIMP(statut='o',typ='I',max='**' ),
13720          ),
13721          b_noeud_i      =BLOC(condition = "NOEUD_I != None",
13722            NOEUD_J         =SIMP(statut='o',typ=no,max='**'),
13723            NOM_CMP_I       =SIMP(statut='o',typ='TXM',max='**' ),
13724            NOM_CMP_J       =SIMP(statut='o',typ='TXM',max='**' ),
13725          ),
13726          DEPASSEMENT     =FACT(statut='f',min=01,max='**',
13727            fr="Loi de dépassement d un seuil pendant une durée donnée",
13728            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
13729            VALE_MIN        =SIMP(statut='f',typ='R' ),
13730            VALE_MAX        =SIMP(statut='f',typ='R' ),
13731            PAS             =SIMP(statut='f',typ='R' ),
13732            DUREE           =SIMP(statut='f',typ='R',defaut= 1. ),
13733          ),
13734          RAYLEIGH        =FACT(statut='f',min=01,max='**',
13735            fr="Densité de probabilité de pic positif, loi adaptée à des signaux à bande étroite",
13736            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
13737            VALE_MIN        =SIMP(statut='f',typ='R' ),
13738            VALE_MAX        =SIMP(statut='f',typ='R' ),
13739            PAS             =SIMP(statut='f',typ='R' ),
13740          ),
13741          GAUSS           =FACT(statut='f',min=01,max='**',
13742            fr="Densité de probabilité de pic positif, loi normale adaptée à des signaux large bande",
13743            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
13744            VALE_MIN        =SIMP(statut='f',typ='R' ),
13745            VALE_MAX        =SIMP(statut='f',typ='R' ),
13746            PAS             =SIMP(statut='f',typ='R' ),
13747          ),
13748          VANMARCKE       =FACT(statut='f',min=01,max='**',
13749            fr="Probabilité de non dépassement de seuil pendant une durée donnée (analyse sismique)",
13750            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
13751            VALE_MIN        =SIMP(statut='f',typ='R' ),
13752            VALE_MAX        =SIMP(statut='f',typ='R' ),
13753            PAS             =SIMP(statut='f',typ='R' ),
13754            DUREE           =SIMP(statut='f',typ='R',defaut= 10. ),
13755          ),
13756          MOMENT          =SIMP(statut='f',typ='I',max='**',fr="Moments spectraux en complément des cinq premiers" ),
13757          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
13758          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
13759 )  ;
13760 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
13761 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13762 # ======================================================================
13763 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13764 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13765 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13766 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13767 # (AT YOUR OPTION) ANY LATER VERSION.
13768 #
13769 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13770 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13771 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13772 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13773 #
13774 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13775 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13776 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13777 # ======================================================================
13778 POST_DYNA_MODA_T=OPER(nom="POST_DYNA_MODA_T",op= 130,sd_prod=tabl_post_dyna,
13779                       fr="Post-traitements en coordonnées généralisées issus de DYNA_TRAN_MODAL",
13780                       docu="U4.84.02-d",reentrant='n',
13781         regles=(UN_PARMI('CHOC','RELA_EFFO_DEPL', ),),
13782          RESU_GENE       =SIMP(statut='o',typ=tran_gene ),
13783          CHOC            =FACT(statut='f',min=01,max='**',
13784                                fr="Analyse des non linéarités de choc",
13785            INST_INIT       =SIMP(statut='f',typ='R',defaut= -1. ),
13786            INST_FIN        =SIMP(statut='f',typ='R',defaut= 999. ),
13787            NB_BLOC         =SIMP(statut='f',typ='I',defaut= 1 ),
13788            SEUIL_FORCE     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
13789            DUREE_REPOS     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
13790            OPTION          =SIMP(statut='f',typ='TXM',defaut="USURE",into=("IMPACT","USURE") ),
13791            NB_CLASSE       =SIMP(statut='f',typ='I',defaut= 10 ),
13792          ),
13793          RELA_EFFO_DEPL  =FACT(statut='f',min=01,max=01,
13794                                fr="Analyse des relationsnon linéaires effort-déplacement",
13795            NOEUD           =SIMP(statut='o',typ=no),
13796            NOM_CMP         =SIMP(statut='o',typ='TXM' ),
13797          ),
13798          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
13799          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
13800 )  ;
13801 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
13802 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13803 # ======================================================================
13804 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13805 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13806 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13807 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13808 # (AT YOUR OPTION) ANY LATER VERSION.
13809 #
13810 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13811 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13812 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13813 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13814 #
13815 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13816 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13817 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13818 # ======================================================================
13819 # RESPONSABLE G8BHHXD X.DESROCHES
13820 def post_elem_prod( MASS_INER,ENER_POT,ENER_CIN,TRAV_EXT,WEIBULL,
13821                     CARA_GEOM,CARA_POUTRE,RICE_TRACEY,CHAR_LIMITE,
13822                     INDIC_ENER,INDIC_SEUIL,ENER_ELAS,ENER_TOTALE,
13823                     AIRE_INTERNE,**args ):
13824   if MASS_INER    != None  : return tabl_mass_iner
13825   if ENER_POT     != None  : return tabl_ener_pot
13826   if ENER_CIN     != None  : return tabl_ener_cin
13827   if TRAV_EXT     != None  : return tabl_trav_ext
13828   if WEIBULL      != None  : return tabl_weibull
13829   if CARA_GEOM    != None  : return tabl_cara_geom
13830   if CARA_POUTRE  != None  : return tabl_cara_geom
13831   if RICE_TRACEY  != None  : return tabl_rice_tracey
13832   if CHAR_LIMITE  != None  : return tabl_char_limite
13833   if INDIC_ENER   != None  : return tabl_indic_ener
13834   if INDIC_SEUIL  != None  : return tabl_indic_seuil
13835   if ENER_ELAS    != None  : return tabl_ener_elas
13836   if ENER_TOTALE  != None  : return tabl_ener_totale
13837   if AIRE_INTERNE != None  : return tabl_aire_int
13838   raise AsException("type de concept resultat non prevu")
13839
13840 POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=post_elem_prod,docu="U4.81.22-e3",reentrant='f',
13841                fr="Calcul de quantités globales (masse, inerties, énergie, ...) sur tout ou partie du modèle",
13842
13843          regles=(UN_PARMI('MASS_INER', 'ENER_POT', 'ENER_CIN','TRAV_EXT',
13844                           'WEIBULL', 'RICE_TRACEY', 'CARA_GEOM','CHAR_LIMITE',
13845                           'CARA_POUTRE', 'INDIC_ENER', 'INDIC_SEUIL',
13846                           'AIRE_INTERNE','ENER_ELAS','ENER_TOTALE'),
13847                 ),
13848
13849          MASS_INER      = FACT(statut='f',min=1,max='**',
13850                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
13851                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13852                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
13853                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
13854                                ORIG_INER    = SIMP(statut='f',typ='R',min=3,max=3 ),
13855                               ),
13856          b_mass_iner = BLOC(condition = "( MASS_INER != None )",
13857                        fr="calcul de la masse, les inerties et le centre de gravité",
13858                        regles=(EXCLUS('CHAM_GD','RESULTAT'),
13859                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
13860                                       'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
13861                        MODELE         = SIMP(statut='o',typ=modele),
13862                        CHAM_MATER     = SIMP(statut='f',typ=cham_mater),
13863                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
13864                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
13865                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
13866                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
13867                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
13868                        GEOMETRIE      = SIMP(statut='f',typ='TXM',defaut="INITIALE",into=("INITIALE","DEFORMEE")),
13869                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
13870                        RESULTAT       = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_noli,mult_elas,
13871                                                              fourier_elas,dyna_trans) ),
13872                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
13873                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
13874                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13875                        NUME_ORDRE     = SIMP(statut='f',typ='I',max=1),
13876                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
13877                        INST           = SIMP(statut='f',typ='R',max=1),
13878                        LIST_INST      = SIMP(statut='f',typ=listr8),
13879                        FREQ           = SIMP(statut='f',typ='R',max=1),
13880                        LIST_FREQ      = SIMP(statut='f',typ=listr8),
13881                        NUME_MODE      = SIMP(statut='f',typ='I',max=1),
13882                        NOEUD_CMP      = SIMP(statut='f',typ='TXM',min=2,max=2),
13883                        NOM_CAS        = SIMP(statut='f',typ='TXM',max=1),
13884          ),
13885
13886          ENER_POT       = FACT(statut='f',min=1,max='**',
13887                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
13888                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13889                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
13890                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
13891                               ),
13892          b_ener_pot = BLOC(condition = "( ENER_POT  != None )",
13893                        fr="calcul de l'énergie potentielle de déformation",
13894                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
13895                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
13896                                       'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
13897                        MODELE         = SIMP(statut='o',typ=modele),
13898                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
13899                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
13900                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
13901                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
13902                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
13903                        ANGLE          = SIMP(statut='f',typ='I',defaut=0),
13904                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
13905                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
13906                        RESULTAT       = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,dyna_trans) ),
13907                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
13908                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
13909                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13910                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
13911                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
13912                        INST           = SIMP(statut='f',typ='R',max='**'),
13913                        LIST_INST      = SIMP(statut='f',typ=listr8),
13914                        FREQ           = SIMP(statut='f',typ='R',max='**'),
13915                        LIST_FREQ      = SIMP(statut='f',typ=listr8),
13916                        NUME_MODE      = SIMP(statut='f',typ='I',max='**'),
13917                        NOEUD_CMP      = SIMP(statut='f',typ='TXM',max='**'),
13918                        NOM_CAS        = SIMP(statut='f',typ='TXM',max='**'),
13919          ),
13920
13921          ENER_CIN       = FACT(statut='f',min=1,max='**',
13922                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
13923                                OPTION       = SIMP(statut='f',typ='TXM',
13924                                                    into=("MASS_MECA","MASS_MECA_DIAG"),
13925                                                    defaut="MASS_MECA" ),
13926                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13927                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
13928                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
13929                               ),
13930          b_ener_cin = BLOC(condition = "( ENER_CIN != None )",
13931                        fr="calcul de l'énergie cinétique",
13932                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
13933                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
13934                                       'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
13935                        MODELE         = SIMP(statut='o',typ=modele),
13936                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
13937                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
13938                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
13939                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
13940                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
13941                        ANGLE          = SIMP(statut='f',typ='I',defaut=0),
13942                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
13943                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
13944                        RESULTAT       = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,dyna_trans) ),
13945                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
13946                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
13947                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13948                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
13949                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
13950                        INST           = SIMP(statut='f',typ='R',max='**'),
13951                        LIST_INST      = SIMP(statut='f',typ=listr8),
13952                        FREQ           = SIMP(statut='f',typ='R',max='**'),
13953                        LIST_FREQ      = SIMP(statut='f',typ=listr8),
13954                        NUME_MODE      = SIMP(statut='f',typ='I',max='**'),
13955                        NOEUD_CMP      = SIMP(statut='f',typ='TXM',max='**'),
13956                        NOM_CAS        = SIMP(statut='f',typ='TXM',max='**'),
13957          ),
13958
13959          ENER_ELAS      = FACT(statut='f',min=1,max='**',
13960                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
13961                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13962                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
13963                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
13964                               ),
13965          b_ener_elas = BLOC(condition = "( ENER_ELAS != None )",
13966                        fr="calcul de l'énergie de déformation élastique",
13967                        MODELE         = SIMP(statut='o',typ=modele),
13968                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
13969                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
13970                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
13971                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
13972                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
13973                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
13974                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
13975                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
13976                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
13977                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
13978                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13979                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
13980                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
13981                        INST           = SIMP(statut='f',typ='R',max='**'),
13982                        LIST_INST      = SIMP(statut='f',typ=listr8),
13983          ),
13984
13985          ENER_TOTALE    = FACT(statut='f',min=1,max='**',
13986                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
13987                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13988                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
13989                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
13990                               ),
13991          b_ener_totale = BLOC(condition = "( ENER_TOTALE != None )",
13992                        fr="calcul de l'énergie de déformation totale",
13993                        MODELE         = SIMP(statut='o',typ=modele),
13994                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
13995                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
13996                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
13997                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
13998                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
13999                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14000                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
14001                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14002                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14003                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14004                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14005                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14006                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14007                        INST           = SIMP(statut='f',typ='R',max='**'),
14008                        LIST_INST      = SIMP(statut='f',typ=listr8),
14009          ),
14010
14011          WEIBULL        = FACT(statut='f',min=1,max='**',
14012                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14013                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14014                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14015                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14016                                OPTION       = SIMP(statut='f',typ='TXM',
14017                                                    into=("SIGM_ELGA","SIGM_ELMOY"),
14018                                                    defaut="SIGM_ELGA"),
14019                                CORR_PLAST   = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
14020                                COEF_MULT    = SIMP(statut='f',typ='R',defaut=1.),
14021                               ),
14022          b_weibull = BLOC(condition = "( WEIBULL != None )",
14023                        fr="calcul du champ élémentaire de la puissance m-ième de la contrainte de Weibull",
14024                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
14025                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14026                        MODELE         = SIMP(statut='o',typ=modele),
14027                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14028                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14029                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14030                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
14031                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14032                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14033                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14034                        RESULTAT       = SIMP(statut='f',typ=(evol_noli) ),
14035                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14036                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14037                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14038                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14039                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14040                        INST           = SIMP(statut='f',typ='R',max='**'),
14041                        LIST_INST      = SIMP(statut='f',typ=listr8),
14042          ),
14043
14044          RICE_TRACEY    = FACT(statut='f',min=1,max='**',
14045                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14046                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14047                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14048                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14049                                OPTION       = SIMP(statut='f',typ='TXM',
14050                                                    into=("SIGM_ELGA","SIGM_ELMOY"),
14051                                                    defaut="SIGM_ELGA"),
14052                                LOCAL        = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
14053                               ),
14054          b_rice_tracey = BLOC(condition = "( RICE_TRACEY != None )",
14055                        fr="calcul du taux de croissance d'une cavité sphérique par rapport à un domaine",
14056                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
14057                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14058                        MODELE         = SIMP(statut='o',typ=modele),
14059                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14060                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14061                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14062                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
14063                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14064                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14065                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14066                        RESULTAT       = SIMP(statut='f',typ=(evol_noli) ),
14067                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14068                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14069                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14070                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14071                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14072                        INST           = SIMP(statut='f',typ='R',max='**'),
14073                        LIST_INST      = SIMP(statut='f',typ=listr8),
14074          ),
14075
14076          INDIC_ENER     = FACT(statut='f',min=1,max='**',
14077                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14078                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14079                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14080                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14081                               ),
14082          b_indic_ener = BLOC(condition = "( INDIC_ENER != None )",
14083                        fr="calcul un indicateur global de perte de proportionnalité du chargement",
14084                        MODELE         = SIMP(statut='o',typ=modele),
14085                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14086                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14087                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14088                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
14089                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14090                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14091                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14092                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14093                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14094                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14095                        INST           = SIMP(statut='f',typ='R',max='**'),
14096                        LIST_INST      = SIMP(statut='f',typ=listr8),
14097          ),
14098
14099          INDIC_SEUIL    = FACT(statut='f',min=1,max='**',
14100                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14101                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14102                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14103                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14104                               ),
14105          b_indic_seuil = BLOC(condition = "( INDIC_SEUIL != None )",
14106                        fr="calcul un indicateur global de perte de proportionnalité du chargement",
14107                        MODELE         = SIMP(statut='o',typ=modele),
14108                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14109                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14110                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14111                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
14112                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14113                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14114                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14115                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14116                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14117                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14118                        INST           = SIMP(statut='f',typ='R',max='**'),
14119                        LIST_INST      = SIMP(statut='f',typ=listr8),
14120          ),
14121
14122          CHAR_LIMITE    = FACT(statut='f',min=0,max=1,
14123                                CHAR_CSTE = SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON")
14124                               ),
14125          b_char_limite = BLOC(condition = "( CHAR_LIMITE != None )",
14126                        fr="post-traitement du calcul de la charge limite",
14127                        MODELE         = SIMP(statut='o',typ=modele),
14128                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14129                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14130                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14131                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14132                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
14133                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14134                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14135                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14136                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14137                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14138                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14139                        INST           = SIMP(statut='f',typ='R',max='**'),
14140                        LIST_INST      = SIMP(statut='f',typ=listr8),
14141          ),
14142
14143          CARA_GEOM      = FACT(statut='f',min=1,max='**',
14144                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14145                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14146                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14147                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14148                                SYME_X       = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
14149                                SYME_Y       = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
14150                                ORIG_INER    = SIMP(statut='f',typ='R',min=2,max=2),
14151                               ),
14152          b_cara_geom = BLOC(condition = "( CARA_GEOM != None )",
14153                        fr="calcul des caractéristiques géométriques d'un section de poutre",
14154                        MODELE         = SIMP(statut='o',typ=modele),
14155                        CHAM_MATER     = SIMP(statut='f',typ=cham_mater),
14156                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14157                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14158          ),
14159
14160          CARA_POUTRE    = FACT(statut='f',min=1,max='**',
14161                                regles=(AU_MOINS_UN('TOUT','GROUP_MA'),
14162                                        ENSEMBLE('LONGUEUR','LIAISON','MATERIAU'),),
14163                                TOUT          = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14164                                GROUP_MA      = SIMP(statut='f',typ=grma,max='**'),
14165                                GROUP_MA_INTE = SIMP(statut='f',typ=grma,max='**'),
14166                                CARA_GEOM     = SIMP(statut='f',typ=tabl_cara_geom),
14167                                LAPL_PHI      = SIMP(statut='f',typ=evol_ther),
14168                                LAPL_PHI_Y    = SIMP(statut='f',typ=evol_ther),
14169                                LAPL_PHI_Z    = SIMP(statut='f',typ=evol_ther),
14170                                LIAISON       = SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT")),
14171                                LONGUEUR      = SIMP(statut='f',typ='R'),
14172                                MATERIAU      = SIMP(statut='f',typ=mater),
14173                                OPTION        = SIMP(statut='f',typ='TXM',
14174                                                     into=("CARA_TORSION","CARA_CISAILLEMENT","CARA_GAUCHI") ),
14175                              ),
14176          b_cara_poutre = BLOC(condition = "( CARA_POUTRE != None )",
14177                        fr="calcul des caractéristiques mécaniques d'un section de poutre",
14178                        MODELE         = SIMP(statut='o',typ=modele),
14179                        CHAM_MATER     = SIMP(statut='f',typ=cham_mater),
14180                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14181                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14182          ),
14183
14184           AIRE_INTERNE   = FACT(statut='f',min=1,max='**',
14185                                 GROUP_MA_BORD  = SIMP(statut='o',typ=grma,max='**'),
14186                                ),
14187          b_aire_interne = BLOC(condition = "( AIRE_INTERNE != None )",
14188                        fr="calcul de l'aire d'un trou dans un maillage 2D",
14189                        MODELE         = SIMP(statut='o',typ=modele),
14190          ),
14191
14192          TRAV_EXT       = FACT(statut='f',min=1,max=1),
14193          b_trav_ext = BLOC(condition = "( TRAV_EXT != None )",
14194                        fr="calcul du travail des efforts extérieurs",
14195                        RESULTAT       = SIMP(statut='o',typ=(evol_elas,evol_noli,dyna_trans) ),
14196                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14197                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14198                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14199          ),
14200
14201          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
14202          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14203
14204  )  ;
14205 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
14206 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14207 # ======================================================================
14208 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14209 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14210 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14211 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14212 # (AT YOUR OPTION) ANY LATER VERSION.
14213 #
14214 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14215 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14216 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14217 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14218 #
14219 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14220 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14221 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14222 # ======================================================================
14223 POST_FATI_ALEA=OPER(nom="POST_FATI_ALEA",op=170,sd_prod=tabl_post_f_alea,docu="U4.84.03-c",reentrant='n',
14224                     fr="Calcul du dommage subi par une structure soumise à unesollicitation de type aléatoire",
14225          regles=(ENSEMBLE('MOMENT_SPEC_0','MOMENT_SPEC_2'),
14226                  PRESENT_PRESENT( 'MOMENT_SPEC_4','MOMENT_SPEC_0'),
14227                  UN_PARMI('TABL_POST_ALEA','MOMENT_SPEC_0'), ),
14228          MOMENT_SPEC_0   =SIMP(statut='f',typ='R'),
14229          MOMENT_SPEC_2   =SIMP(statut='f',typ='R'),
14230          MOMENT_SPEC_4   =SIMP(statut='f',typ='R'),
14231          TABL_POST_ALEA  =SIMP(statut='f',typ=tabl_post_alea),
14232          COMPTAGE        =SIMP(statut='o',typ='TXM',into=("PIC","NIVEAU")),
14233          DUREE           =SIMP(statut='f',typ='R',defaut= 1.),
14234          CORR_KE         =SIMP(statut='f',typ='TXM',into=("RCCM",)),
14235          DOMMAGE         =SIMP(statut='o',typ='TXM',into=("WOHLER",)),
14236          MATER           =SIMP(statut='o',typ=mater),
14237          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
14238 )  ;
14239 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
14240 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14241 # ======================================================================
14242 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14243 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14244 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14245 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14246 # (AT YOUR OPTION) ANY LATER VERSION.
14247 #
14248 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14249 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14250 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14251 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14252 #
14253 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14254 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14255 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14256 # ======================================================================
14257 POST_FATIGUE=OPER(nom="POST_FATIGUE",op=136,sd_prod=tabl_post_fatig,docu="U4.83.01-d1",reentrant='n',
14258                   fr="Calcul du dommage subi par une structure soumise à une histoire de chargement",
14259
14260          CHARGEMENT = SIMP(statut='o',typ='TXM',into=("UNIAXIAL","PERIODIQUE","QUELCONQUE")),
14261
14262          b_uniaxial = BLOC( condition = "CHARGEMENT=='UNIAXIAL'",
14263                       regles=(PRESENT_PRESENT('CORR_KE','MATER'),
14264                               PRESENT_PRESENT('CORR_SIGM_MOYE','MATER'),
14265                               PRESENT_PRESENT('DOMMAGE','MATER'),),
14266              HISTOIRE       = FACT(statut='o',min=1,max=1,
14267                                  regles=(UN_PARMI('SIGM','EPSI'),),
14268                                  SIGM  = SIMP(statut='f',typ=fonction),
14269                                  EPSI  = SIMP(statut='f',typ=fonction),),
14270              COMPTAGE       = SIMP(statut='o',typ='TXM',into=("RAINFLOW","RCCM","NATUREL")),
14271              DELTA_OSCI     = SIMP(statut='f',typ='R',defaut= 0.0E+0),
14272              COEF_MULT      = FACT(statut='f',min=1,max=1,
14273                                  KT    = SIMP(statut='o',typ='R'),),
14274              CORR_KE        = SIMP(statut='f',typ='TXM',into=("RCCM",)),
14275              DOMMAGE        = SIMP(statut='f',typ='TXM',into=("WOHLER","MANSON_COFFIN",
14276                                                               "TAHERI_MANSON","TAHERI_MIXTE")),
14277              MATER          = SIMP(statut='f',typ=mater),
14278              CORR_SIGM_MOYE = SIMP(statut='f',typ='TXM',into=("GOODMAN","GERBER")),
14279              TAHERI_NAPPE   = SIMP(statut='f',typ=fonction),
14280              TAHERI_FONC    = SIMP(statut='f',typ=fonction),
14281              CUMUL          = SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
14282          ),
14283
14284          b_periodique = BLOC( condition = "CHARGEMENT=='PERIODIQUE'",
14285              HISTOIRE       = FACT(statut='o',min=1,max=1,
14286                                  SIGM_XX  = SIMP(statut='o',typ=fonction),
14287                                  SIGM_YY  = SIMP(statut='o',typ=fonction),
14288                                  SIGM_ZZ  = SIMP(statut='o',typ=fonction),
14289                                  SIGM_XY  = SIMP(statut='o',typ=fonction),
14290                                  SIGM_XZ  = SIMP(statut='f',typ=fonction),
14291                                  SIGM_YZ  = SIMP(statut='f',typ=fonction),),
14292              CRITERE        = SIMP(statut='o',typ='TXM',into=("CROSSLAND","PAPADOPOULOS")),
14293              DOMMAGE        = SIMP(statut='f',typ='TXM',into=("WOHLER",)),
14294              MATER          = SIMP(statut='o',typ=mater),
14295              COEF_CORR      = SIMP(statut='f',typ='R'),
14296          ),
14297
14298          b_quelconque = BLOC( condition = "CHARGEMENT=='QUELCONQUE'",
14299              HISTOIRE       = FACT(statut='o',min=1,max=1,
14300                                  SIGM_XX  = SIMP(statut='o',typ=fonction),
14301                                  SIGM_YY  = SIMP(statut='o',typ=fonction),
14302                                  SIGM_ZZ  = SIMP(statut='o',typ=fonction),
14303                                  SIGM_XY  = SIMP(statut='o',typ=fonction),
14304                                  SIGM_XZ  = SIMP(statut='f',typ=fonction),
14305                                  SIGM_YZ  = SIMP(statut='f',typ=fonction),
14306                                  EPSP     = SIMP(statut='o',typ=fonction),
14307                                  TEMP     = SIMP(statut='o',typ=fonction),),
14308              DOMMAGE        = SIMP(statut='f',typ='TXM',into=("LEMAITRE",),defaut="LEMAITRE"),
14309              MATER          = SIMP(statut='o',typ=mater),
14310              CUMUL          = SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
14311          ),
14312
14313          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14314          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
14315 )  ;
14316 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
14317 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14318 # ======================================================================
14319 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14320 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14321 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14322 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14323 # (AT YOUR OPTION) ANY LATER VERSION.
14324 #
14325 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14326 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14327 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14328 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14329 #
14330 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14331 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14332 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14333 # ======================================================================
14334 POST_GOUJ2E=OPER(nom="POST_GOUJ2E",op=187,sd_prod=tabl_post_gouj2e,reentrant='n',
14335                  fr=" ",docu="U4.GJ.30-a",
14336          TABLE           =SIMP(statut='o',typ=tabl_post_rele),
14337 )  ;
14338 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
14339 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14340 # ======================================================================
14341 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14342 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14343 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14344 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14345 # (AT YOUR OPTION) ANY LATER VERSION.
14346 #
14347 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14348 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14349 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14350 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14351 #
14352 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14353 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14354 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14355 # ======================================================================
14356 # RESPONSABLE JMBHH01 J.M.PROIX
14357 POST_K1_K2_K3=OPER(nom="POST_K1_K2_K3",op=188,sd_prod=tabl_post_k,
14358                    fr="Calcul des FIC par extrapolation du champ de déplacements sur les lèvres de la fissure",
14359                    docu="U4.82.05-b2",reentrant='n',
14360
14361            regles=(UN_PARMI('RESULTAT','TABL_DEPL_SUP'),
14362                    PRESENT_PRESENT('TABL_DEPL_SUP','TABL_DEPL_INF'),),
14363
14364          MODELISATION  =SIMP(statut='o',typ='TXM',
14365                              into=("3D","AXIS","D_PLAN","C_PLAN"),
14366                              fr="Modélisation cohérente avec celle utilisée pour le calcul des déplacements"),
14367            FOND_3D         =SIMP(statut='f',typ=fond_fiss),
14368            FOND_FISS       =SIMP(statut='f',typ=fond_fiss),
14369          b_fond_3d     =BLOC (condition="(FOND_3D != None) or (FOND_FISS!= None)",
14370                          MAILLAGE      = SIMP(statut='o',typ=maillage),
14371                          PRECISION     = SIMP(statut='f',typ='R',defaut=0.001),
14372                          NOEUD         = SIMP(statut='f',typ=no,max='**'),
14373                          GROUP_NO      = SIMP(statut='f',typ=grno,max='**'),
14374                          SANS_NOEUD    = SIMP(statut='f',typ=no,max='**'),
14375                          SANS_GROUP_NO = SIMP(statut='f',typ=grno,max='**')
14376                          ),
14377          MATER         =SIMP(statut='o',typ=mater,
14378                              fr="Matériau homogène et isotrope cohérent avec celui utilisé pour le calcul des déplacements"),
14379          RESULTAT      =SIMP(statut='f',typ=(evol_elas,evol_noli),
14380                              fr="Table déplacement des noeuds de la lèvre supérieure et inférieure"),
14381          TABL_DEPL_SUP =SIMP(statut='f',typ=tabl_post_rele,
14382                              fr="Table issue de post_releve_t sur les noeuds de la lèvre supérieure"),
14383          TABL_DEPL_INF =SIMP(statut='f',typ=tabl_post_rele,
14384                              fr="Table issue de post_releve_t sur les noeuds de la lèvre inférieure"),
14385          ABSC_CURV_MAXI=SIMP(statut='f',typ='R',
14386                              fr="distance maximum à partir du fond de fissure à utiliser pour le calcul"),
14387          PREC_VIS_A_VIS= SIMP(statut='f',typ='R',defaut=0.1),
14388          TOUT_ORDRE    =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14389          NUME_ORDRE    =SIMP(statut='f',typ='I',max='**'),
14390          LIST_ORDRE    =SIMP(statut='f',typ=listis),
14391          INST          =SIMP(statut='f',typ='R',max='**'),
14392          LIST_INST     =SIMP(statut='f',typ=listr8),
14393              b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
14394                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
14395                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
14396              ),
14397          INFO          =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14398          VECT_K1       =SIMP(statut='o',typ='R',max='**',
14399                              fr="Vecteur normal au plan de fissure, orienté de la lèvre inférieure vers la lèvre supérieure"),
14400          TITRE         =SIMP(statut='f',typ='TXM',max='**'),
14401 )  ;
14402 #& MODIF COMMANDE  DATE 29/03/2002   AUTEUR CIBHHBC R.FERNANDES
14403 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14404 # ======================================================================
14405 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
14406 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14407 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14408 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14409 # (AT YOUR OPTION) ANY LATER VERSION.
14410 #
14411 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14412 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14413 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14414 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14415 #
14416 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14417 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14418 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14419 #
14420 #
14421 # ======================================================================
14422 #
14423 POST_K_BETA=OPER(nom="POST_K_BETA",op=198,sd_prod=tabl_post_beta,
14424                    fr="Calcul des FIC par la méthode K_BETA",
14425                    docu="U4.82.07-a",reentrant='n',
14426          MAILLAGE      = SIMP(statut='o',typ=maillage),
14427          MATER_REV     = SIMP(statut='o',typ=mater),
14428          EPAIS_REV     = SIMP(statut='o',typ='R'),
14429          FISSURE       = FACT(statut='o',min=1,max=1,
14430             DECALAGE       = SIMP(statut='f',typ='R',defaut=-2.e-04),
14431             PROFONDEUR     = SIMP(statut='o',typ='R'),
14432             LONGUEUR       = SIMP(statut='o',typ='R'),
14433             ORIENTATION    = SIMP(statut='o',typ='TXM',
14434                                  into=("CIRC","LONGI"),),
14435          ),
14436          K1D           = FACT(statut='o',min=1,max='**',
14437             TABL_MECA_REV  = SIMP(statut='o',typ=(tabl_post_rele)),
14438             TABL_MECA_MDB  = SIMP(statut='o',typ=(tabl_post_rele)),
14439             TABL_THER      = SIMP(statut='o',typ=(tabl_post_rele)),
14440             INTITULE       = SIMP(statut='o',typ='TXM' ),
14441          ),
14442          INFO          = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14443          TITRE         = SIMP(statut='f',typ='TXM',max='**'),
14444 );
14445 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
14446 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14447 # ======================================================================
14448 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14449 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14450 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14451 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14452 # (AT YOUR OPTION) ANY LATER VERSION.
14453 #
14454 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14455 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14456 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14457 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14458 #
14459 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14460 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14461 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14462 # ======================================================================
14463 # RESPONSABLE JMBHH01 J.M.PROIX
14464 POST_RCCM=OPER(nom="POST_RCCM",op= 165,sd_prod=tabl_post_rccm,
14465                fr="Vérification des critères de niveau 0 et certains critères de niveau A du RCC-M-B3200 (Edition 1991)",
14466                docu="U4.83.11-d1",reentrant='n',
14467          MATER           =SIMP(statut='o',typ=mater ),
14468          TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="VALE_MAX",into=("VALE_MAX","VALE_INST") ),
14469          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
14470          MAILLAGE        =SIMP(statut='f',typ=maillage),
14471          OPTION          =SIMP(statut='o',typ='TXM',max='**',
14472                                into=("PM_PB",
14473                                      "SN",
14474                                      "FATIGUE_SPMAX",
14475                                      "FATIGUE_ZH210"
14476                                      ) ),
14477          SEGMENT         =FACT(statut='o',min=01,max='**',fr="Segment sur lequel s effectue le depouillement",
14478            regles=(AU_MOINS_UN('CHEMIN','GROUP_NO','NOEUD'),
14479                    EXCLUS('CHEMIN','GROUP_NO'),
14480                    EXCLUS('CHEMIN','NOEUD'),),
14481            INTITULE        =SIMP(statut='f',typ='TXM' ),
14482            CHEMIN          =SIMP(statut='f',typ=(courbe,surface),),
14483            NOEUD           =SIMP(statut='f',typ=no,max='**'),
14484            GROUP_NO        =SIMP(statut='f',typ=grno),
14485              b_acce_noeud     =BLOC(condition="(NOEUD != None)or(GROUP_NO != None)",
14486                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
14487                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
14488              ),
14489          ),
14490          TRANSITOIRE     =FACT(statut='o',min=01,max='**',fr="transitoire à dépouiller",
14491            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
14492            RESULTAT        =SIMP(statut='o',typ=(evol_elas,evol_noli) ),
14493            RESU_SIGM_THER  =SIMP(statut='f',typ=(evol_elas,evol_noli),fr="résultat sous chargement thermique seul" ),
14494            NB_OCCUR        =SIMP(statut='f',typ='I',defaut= 1,fr="nombre d occurences réelles de ce transitoire" ),
14495            NOM_CHAM        =SIMP(statut='o',typ='TXM',into=("SIEF_ELNO_ELGA","SIGM_ELNO_DEPL") ),
14496            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14497            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
14498            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
14499            INST            =SIMP(statut='f',typ='R',max='**'),
14500            LIST_INST       =SIMP(statut='f',typ=listr8 ),
14501            b_inst          =BLOC(condition = "(INST != None) or (LIST_INST != None)" ,
14502              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
14503              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
14504            ),
14505          ),
14506 )  ;
14507 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
14508 # ======================================================================
14509 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14510 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14511 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14512 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14513 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14514 # (AT YOUR OPTION) ANY LATER VERSION.
14515 #
14516 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14517 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14518 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14519 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14520 #
14521 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14522 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14523 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14524 # ======================================================================
14525 # RESPONSABLE G8BHHXD X.DESROCHES
14526 POST_RELEVE_T=OPER(nom="POST_RELEVE_T",op=51,sd_prod=tabl_post_rele,docu="U4.81.21-e1",reentrant='n',
14527          ACTION          =FACT(statut='o',min=01,max='**',
14528            regles=(AU_MOINS_UN('CHEMIN','GROUP_NO','NOEUD'),
14529                    EXCLUS('CHEMIN','GROUP_NO'),
14530                    EXCLUS('CHEMIN','NOEUD'),
14531                    PRESENT_ABSENT('CHEMIN','GROUP_MA','MAILLE'),
14532                    UN_PARMI('RESULTAT','CHAM_GD'),
14533                    UN_PARMI('TOUT_CMP','NOM_CMP','INVARIANT','ELEM_PRINCIPAUX','RESULTANTE'),
14534                    PRESENT_PRESENT('TRAC_DIR','DIRECTION'),
14535                    PRESENT_PRESENT('TRAC_DIRECTION','DIRECTION'),
14536                    ENSEMBLE('MOMENT','POINT'),
14537                    PRESENT_PRESENT('MOMENT','RESULTANTE'),
14538                    PRESENT_ABSENT('TOUT_CMP','TRAC_DIRECTION','TRAC_NORMALE'),
14539                    PRESENT_ABSENT('TOUT_CMP','TRAC_DIR','TRAC_NOR'),
14540                    PRESENT_PRESENT('ORIGINE','AXE_Z'),),
14541            INTITULE        =SIMP(statut='o',typ='TXM'),
14542            CHEMIN          =SIMP(statut='f',typ=(courbe,surface) ),
14543            NOEUD           =SIMP(statut='f',typ=no,max='**'),
14544            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14545            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
14546            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
14547            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
14548            FORMAT_C        =SIMP(statut='f',typ='TXM',defaut="MODULE",into=("MODULE","REEL","IMAG")),
14549            CHAM_GD         =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r,cham_no_var2_r,
14550                                                  cham_elem_sief_r,cham_elem_epsi_r,cham_elem_flux_r,cham_elem_crit_r,
14551                                                  cham_elem_ener_r,cham_elem_dbel_r,cham_elem_pres_r,cham_elem_erreur,
14552                                                  cham_elem_vari_r,cham_no_depl_c,cham_no_temp_c,cham_no_pres_c,
14553                                                  cham_elem_sief_c,cham_elem_epsi_c)),
14554            RESULTAT        =SIMP(statut='f',typ=(evol_elas,evol_ther,evol_noli,dyna_trans,
14555                                                  mode_meca,mode_flamb,mode_acou,base_modale,mode_stat,
14556                                                  mult_elas,fourier_elas,dyna_harmo,acou_harmo)),
14557            b_sensibilite   =BLOC(condition="RESULTAT != None",
14558                                  fr="Définition des paramètres de sensibilité",
14559                                  ang="Definition of sensitivity parameters",
14560              SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
14561                                    fr="Liste des paramètres de sensibilité.",
14562                                    ang="List of sensitivity parameters"),),
14563
14564            b_extrac        =BLOC(condition = "RESULTAT != None",fr="extraction des résultats",
14565              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','NUME_MODE','LIST_MODE',
14566                             'INST','LIST_INST','FREQ','LIST_FREQ','NOEUD_CMP','NOM_CAS'), ),
14567              NOM_CHAM        =SIMP(statut='o',typ='TXM' ),
14568              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14569              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
14570              LIST_ORDRE      =SIMP(statut='f',typ=listis),
14571              NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
14572              LIST_MODE       =SIMP(statut='f',typ=listis),
14573              NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
14574              NOM_CAS         =SIMP(statut='f',typ='TXM',max='**'),
14575              FREQ            =SIMP(statut='f',typ='R',max='**'),
14576              LIST_FREQ       =SIMP(statut='f',typ=listr8),
14577              INST            =SIMP(statut='f',typ='R',max='**'),
14578              LIST_INST       =SIMP(statut='f',typ=listr8),
14579              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
14580              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14581            ),
14582            TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",)),
14583            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
14584            INVARIANT       =SIMP(statut='f',typ='TXM',into=("OUI",)),
14585            ELEM_PRINCIPAUX =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14586            RESULTANTE      =SIMP(statut='f',typ='TXM',max='**'),
14587            MOMENT          =SIMP(statut='f',typ='TXM',max='**'),
14588            POINT           =SIMP(statut='f',typ='R',max='**'),
14589
14590            REPERE          =SIMP(statut='f',typ='TXM',defaut="GLOBAL",
14591                                  into=("GLOBAL","LOCAL","POLAIRE","UTILISATEUR","CYLINDRIQUE"),),
14592            ANGL_NAUT       =SIMP(statut='f',typ='R',min=3,max=3),
14593            ORIGINE         =SIMP(statut='f',typ='R',min=3,max=3),
14594            AXE_Z           =SIMP(statut='f',typ='R',min=3,max=3),
14595
14596            TRAC_NOR        =SIMP(statut='f',typ='TXM',into=("OUI",)),
14597            TRAC_DIR        =SIMP(statut='f',typ='TXM',into=("OUI",)),
14598            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
14599            TRAC_DIRECTION  =SIMP(statut='f',typ='TXM',into=("OUI",)),
14600            TRAC_NORMALE    =SIMP(statut='f',typ='TXM',into=("OUI",)),
14601
14602            VECT_Y          =SIMP(statut='f',typ='R',max='**'),
14603            MOYE_NOEUD      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
14604            OPERATION       =SIMP(statut='o',typ='TXM',into=("EXTRACTION","MOYENNE"),max=2),
14605          ),
14606          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14607          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
14608 )  ;
14609 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
14610 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14611 # ======================================================================
14612 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14613 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14614 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14615 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14616 # (AT YOUR OPTION) ANY LATER VERSION.
14617 #
14618 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14619 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14620 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14621 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14622 #
14623 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14624 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14625 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14626 # ======================================================================
14627 POST_SIMPLIFIE=OPER(nom="POST_SIMPLIFIE",op=185,sd_prod=tabl_post_simpli,
14628                     fr=" ",docu="U4.PS.10-a",reentrant='n',
14629          MATER           =SIMP(statut='o',typ=(mater) ),
14630          DEF_EQUI        =FACT(statut='f',min=01,max=01,
14631            METHODE         =SIMP(statut='f',typ='TXM',max='**',defaut="UTO_2_3",
14632                                  into=("UTO_2_3",) ),
14633            EPAIS           =SIMP(statut='o',typ='R'),
14634            LONG_FISS       =SIMP(statut='o',typ='R'),
14635            LONG_LIGA_INT   =SIMP(statut='o',typ='R'),
14636            DEXT            =SIMP(statut='o',typ='R'),
14637            TEMP_ANALYSE    =SIMP(statut='f',typ='R'),
14638          ),
14639 )  ;
14640 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
14641 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14642 # ======================================================================
14643 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14644 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14645 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14646 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14647 # (AT YOUR OPTION) ANY LATER VERSION.
14648 #
14649 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14650 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14651 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14652 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14653 #
14654 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14655 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14656 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14657 # ======================================================================
14658 POST_USURE=OPER(nom="POST_USURE",op=153,sd_prod=tabl_post_usur,docu="U4.84.05-d1",reentrant='f',
14659                 fr="Calcul des volumes d'usure et des profondeurs d'usure",
14660          regles=(UN_PARMI('RESU_GENE','PUIS_USURE'),
14661                  PRESENT_PRESENT('RESU_GENE','NOEUD'),
14662                  UN_PARMI('INST','LIST_INST'),),
14663          ETAT_INIT       =FACT(statut='f',min=01,max=01,
14664            TABL_USURE      =SIMP(statut='f',typ=tabl_post_usur),
14665            INST_INIT       =SIMP(statut='f',typ='R'),
14666                          ),
14667          RESU_GENE       =SIMP(statut='f',typ=tran_gene),
14668          NOEUD           =SIMP(statut='f',typ=no,max=1),
14669          INST_INIT       =SIMP(statut='f',typ='R',defaut=-1.0E+0),
14670          INST_FIN        =SIMP(statut='f',typ='R'),
14671          NB_BLOC         =SIMP(statut='f',typ='I',defaut= 1 ),
14672          PUIS_USURE      =SIMP(statut='f',typ='R'),
14673          LOI_USURE       =SIMP(statut='o',typ='TXM',into=("ARCHARD","KWU_EPRI","EDF_MZ")),
14674          b_archard       =BLOC(condition = "LOI_USURE == 'ARCHARD'",
14675            regles=(UN_PARMI('MOBILE','MATER_USURE','SECTEUR'),
14676                    EXCLUS('MATER_USURE','OBSTACLE'),
14677                    EXCLUS('MOBILE','USURE_OBST'),),
14678            MOBILE          =FACT(statut='f',min=01,max=01,
14679              COEF_USURE      =SIMP(statut='o',typ='R'),
14680            ),
14681            OBSTACLE        =FACT(statut='f',min=01,max=01,
14682              COEF_USURE      =SIMP(statut='o',typ='R'),
14683            ),
14684            SECTEUR         =FACT(statut='f',min=01,max='**',
14685              CONTACT         =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
14686                                                               "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
14687                                                               "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
14688              COEF_USUR_MOBILE=SIMP(statut='f',typ='R'),
14689              COEF_USUR_OBST  =SIMP(statut='f',typ='R'),
14690              ANGL_INIT       =SIMP(statut='f',typ='R'),
14691              ANGL_FIN        =SIMP(statut='f',typ='R'),
14692            ),
14693            MATER_USURE     =SIMP(statut='f',typ='TXM'),
14694            USURE_OBST      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
14695          ),
14696          b_kwu_epri        =BLOC(condition = "LOI_USURE == 'KWU_EPRI'",
14697            regles=(UN_PARMI('MOBILE','MATER_USURE'),
14698                    EXCLUS('MATER_USURE','OBSTACLE'),
14699                    EXCLUS('MOBILE','USURE_OBST'),),
14700            MOBILE          =FACT(statut='f',min=01,max=01,
14701              COEF_FNOR       =SIMP(statut='f',typ='R'),
14702              COEF_VTAN       =SIMP(statut='f',typ='R'),
14703              COEF_USURE      =SIMP(statut='f',typ='R'),
14704              COEF_K          =SIMP(statut='f',typ='R',defaut=5.0E+0),
14705              COEF_C          =SIMP(statut='f',typ='R',defaut=10.0E+0),
14706            ),
14707            OBSTACLE        =FACT(statut='f',min=01,max=01,
14708              COEF_FNOR       =SIMP(statut='f',typ='R' ),
14709              COEF_VTAN       =SIMP(statut='f',typ='R' ),
14710              COEF_USURE      =SIMP(statut='o',typ='R'),
14711              COEF_K          =SIMP(statut='f',typ='R',defaut=5.0E+0),
14712              COEF_C          =SIMP(statut='f',typ='R',defaut=10.0E+0),
14713            ),
14714            MATER_USURE     =SIMP(statut='f',typ='TXM'),
14715            USURE_OBST      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
14716            FNOR_MAXI       =SIMP(statut='f',typ='R' ),
14717            VTAN_MAXI       =SIMP(statut='f',typ='R' ),
14718          ),
14719          b_edf_mz          =BLOC(condition = "LOI_USURE == 'EDF_MZ'",
14720            regles=(UN_PARMI('MOBILE','MATER_USURE'),
14721                    EXCLUS('MATER_USURE','OBSTACLE'),
14722                    EXCLUS('MOBILE','USURE_OBST'),),
14723            MOBILE          =FACT(statut='f',min=01,max=01,
14724              COEF_USURE      =SIMP(statut='f',typ='R',defaut=1.0E-13),
14725              COEF_B          =SIMP(statut='f',typ='R',defaut=1.2E+0),
14726              COEF_N          =SIMP(statut='f',typ='R',defaut=2.44E-8),
14727              COEF_S          =SIMP(statut='f',typ='R',defaut=1.14E-16),
14728            ),
14729            OBSTACLE        =FACT(statut='f',min=01,max=01,
14730              COEF_USURE      =SIMP(statut='o',typ='R',defaut=1.0E-13),
14731              COEF_B          =SIMP(statut='f',typ='R',defaut=1.2E+0),
14732              COEF_N          =SIMP(statut='f',typ='R',defaut=2.44E-8),
14733              COEF_S          =SIMP(statut='f',typ='R',defaut=1.14E-16),
14734            ),
14735            MATER_USURE     =SIMP(statut='f',typ='TXM'),
14736            USURE_OBST      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
14737          ),
14738          CONTACT         =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
14739                                                           "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
14740                                                           "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
14741          RAYON_MOBILE    =SIMP(statut='f',typ='R'),
14742          RAYON_OBST      =SIMP(statut='f',typ='R'),
14743          LARGEUR_OBST    =SIMP(statut='f',typ='R'),
14744          ANGL_INCLI      =SIMP(statut='f',typ='R'),
14745          ANGL_ISTHME     =SIMP(statut='f',typ='R'),
14746          ANGL_IMPACT     =SIMP(statut='f',typ='R'),
14747          INST            =SIMP(statut='f',typ='R',max='**'),
14748          LIST_INST       =SIMP(statut='f',typ=listr8),
14749          COEF_INST       =SIMP(statut='f',typ='R',defaut=1.0E+0),
14750          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14751          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
14752 )  ;
14753 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
14754 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14755 # ======================================================================
14756 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14757 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14758 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14759 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14760 # (AT YOUR OPTION) ANY LATER VERSION.
14761 #
14762 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14763 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14764 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14765 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14766 #
14767 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14768 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14769 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14770 # ======================================================================
14771 POST_ZAC=OPER(nom="POST_ZAC",op= 175,sd_prod=mult_elas,docu="U4.83.21-b",reentrant='n',
14772               fr="Donne l'état adapté ou accommodé d'une structure sous chargement cyclique élastique affine ou non",
14773          MODELE          =SIMP(statut='o',typ=modele),
14774          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
14775          EXCIT           =FACT(statut='o',min=01,max='**',
14776            CHARGE          =SIMP(statut='o',typ=char_meca),
14777            FONC_MULT       =SIMP(statut='f',typ=fonction),
14778            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",into=("FIXE_CSTE",)),
14779          ),
14780          EVOL_ELAS       =SIMP(statut='o',typ=evol_elas),
14781          b_evol_elas     =BLOC(condition="EVOL_ELAS != None",
14782            regles=(UN_PARMI('NUME_ORDRE','LIST_INST','INST'),),
14783            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
14784            LIST_INST       =SIMP(statut='f',typ=listr8),
14785            INST            =SIMP(statut='f',typ='R',max='**'),
14786          ),
14787          TEMP_ZAC        =SIMP(statut='f',typ='R',defaut=0.0E+0),
14788          EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
14789          b_evol_noli     =BLOC(condition="EVOL_NOLI != None",
14790            INST_MAX        =SIMP(statut='o',typ='R'),
14791          ),
14792          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
14793          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14794
14795 )  ;
14796 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
14797 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14798 # ======================================================================
14799 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14800 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14801 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14802 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14803 # (AT YOUR OPTION) ANY LATER VERSION.
14804 #
14805 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14806 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14807 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14808 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14809 #
14810 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14811 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14812 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14813 # ======================================================================
14814 POURSUITE=MACRO(nom="POURSUITE",op=0,repetable='n',fr="Poursuite d une étude",
14815                 docu="U4.11.03-g2",sd_prod = ops.POURSUITE,
14816                 op_init = ops.POURSUITE_context,fichier_ini = 1,
14817          PAR_LOT         =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
14818                            into=("OUI","NON"),defaut="OUI"),
14819          BASE            =FACT(fr="définition des parmètres associés aux bases JEVEUX",
14820                                statut='f',min=1,max=3,
14821            FICHIER         =SIMP(fr="nom de la base",statut='o',typ='TXM'),
14822            TITRE           =SIMP(statut='f',typ='TXM'),
14823            CAS             =SIMP(statut='f',typ='TXM'),
14824            NMAX_ENRE       =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
14825            LONG_ENRE       =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
14826            LONG_REPE       =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
14827          ),
14828          IMPRESSION      =FACT(statut='f',min=1,max=3,
14829            FICHIER         =SIMP(statut='o',typ='TXM'),
14830            UNITE           =SIMP(statut='o',typ='I'),
14831          ),
14832          CATALOGUE       =FACT(statut='f',min=1,max=10,
14833            FICHIER         =SIMP(statut='o',typ='TXM'),
14834            TITRE           =SIMP(statut='f',typ='TXM'),
14835            UNITE           =SIMP(statut='f',typ='I'),
14836          ),
14837          DEBUG           =FACT(fr="option de déboggage reservée aux développeurs",
14838                                statut='f',min=1,max=1,
14839            JXVERI          =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
14840                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
14841            JEVEUX          =SIMP(fr="force les déchargement sur disque",
14842                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
14843            ENVIMA          =SIMP(fr="imprime les valeurs définies dans ENVIMA",
14844                                  statut='f',typ='TXM',into=('TES',)),
14845          ),
14846          MEMOIRE         =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=1,max=1,
14847            GESTION         =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
14848            TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
14849            TAILLE          =SIMP(statut='f',typ='I'),
14850            TAILLE_BLOC     =SIMP(statut='f',typ='R',defaut=800.),
14851            PARTITION       =SIMP(statut='f',typ='R' ),
14852          ),
14853          CODE            =FACT("définition d un nom pour l'esemble d'une étude",
14854                                statut='f',min=1,max=1,
14855            NOM             =SIMP(statut='o',typ='TXM'),
14856            UNITE           =SIMP(statut='f',typ='I',defaut=15),
14857          ),
14858 )  ;
14859 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
14860 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14861 # ======================================================================
14862 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14863 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14864 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14865 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14866 # (AT YOUR OPTION) ANY LATER VERSION.
14867 #
14868 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14869 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14870 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14871 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14872 #
14873 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14874 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14875 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14876 # ======================================================================
14877 PRE_CHAR_IDEAS=PROC(nom="PRE_CHAR_IDEAS",op=100,docu="U7.01.02-e",
14878                     fr="Conversion de conditions aux limites et chargements IDEAS en commandes Aster",
14879          UNITE_IDEAS     =SIMP(statut='f',typ='I',defaut=19),
14880          UNITE_ASTER     =SIMP(statut='f',typ='I',defaut=21),
14881          MODELE          =SIMP(statut='o',typ=modele),
14882 )  ;
14883 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
14884 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14885 # ======================================================================
14886 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14887 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14888 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14889 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14890 # (AT YOUR OPTION) ANY LATER VERSION.
14891 #
14892 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14893 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14894 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14895 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14896 #
14897 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14898 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14899 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14900 # ======================================================================
14901 PRE_GIBI=PROC(nom="PRE_GIBI",op=49,docu="U7.01.11-f",
14902               fr="Conversion d un fichier de maillage GIBI",
14903          UNITE_GIBI      =SIMP(statut='f',typ='I',defaut=19),
14904          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),
14905 )  ;
14906 #& MODIF COMMANDE  DATE 11/06/2002   AUTEUR DURAND C.DURAND
14907 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14908 # ======================================================================
14909 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14910 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14911 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14912 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14913 # (AT YOUR OPTION) ANY LATER VERSION.
14914 #
14915 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14916 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14917 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14918 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14919 #
14920 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14921 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14922 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14923 # ======================================================================
14924
14925 from Macro.pre_gmsh_ops import pre_gmsh_ops
14926
14927 PRE_GMSH=MACRO(nom="PRE_GMSH",op=pre_gmsh_ops,docu="U7.01.01-f",
14928                fr="Conversion d un fichier universel GMSH au format Aster",
14929          UNITE_GMSH      =SIMP(statut='f',typ='I',defaut=19),
14930          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),
14931          MODI_QUAD       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
14932 )  ;
14933 #& MODIF COMMANDE  DATE 11/06/2002   AUTEUR DURAND C.DURAND
14934 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14935 # ======================================================================
14936 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
14937 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14938 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14939 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14940 # (AT YOUR OPTION) ANY LATER VERSION.
14941 #
14942 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14943 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14944 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14945 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14946 #
14947 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14948 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14949 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14950 # ======================================================================
14951
14952 PRE_GMSH_LECT=PROC(nom="PRE_GMSH_LECT",op=47,docu="U7.01.01-f",
14953                fr="Conversion d un fichier universel GMSH au format Aster",
14954          UNITE_GMSH      =SIMP(statut='f',typ='I',defaut=19),
14955          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),
14956 )  ;
14957 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
14958 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14959 # ======================================================================
14960 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14961 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14962 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14963 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14964 # (AT YOUR OPTION) ANY LATER VERSION.
14965 #
14966 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14967 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14968 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14969 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14970 #
14971 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14972 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14973 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14974 # ======================================================================
14975 PRE_IDEAS=PROC(nom="PRE_IDEAS",op=47,docu="U7.01.01-f",
14976                fr="Conversion d un fichier universel IDEAS-SUPERTAB au format Aster",
14977          UNITE_IDEAS     =SIMP(statut='f',typ='I',defaut=19),
14978          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),
14979 )  ;
14980 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
14981 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14982 # ======================================================================
14983 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14984 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14985 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14986 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14987 # (AT YOUR OPTION) ANY LATER VERSION.
14988 #
14989 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14990 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14991 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14992 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14993 #
14994 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14995 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14996 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14997 # ======================================================================
14998 PROCEDURE=PROC(nom="PROCEDURE",op=-3, docu="U4.13.03-e",
14999           fr="Nommer le fichier de commandes secondaires",
15000           NOM  =SIMP(statut='f',typ='TXM',defaut=" "),
15001 ) ;
15002 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
15003 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15004 # ======================================================================
15005 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15006 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15007 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15008 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15009 # (AT YOUR OPTION) ANY LATER VERSION.
15010 #
15011 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15012 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15013 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15014 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15015 #
15016 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15017 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15018 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15019 # ======================================================================
15020 def prod_matr_cham_prod(MATR_ASSE,**args):
15021   if AsType(MATR_ASSE) == matr_asse_depl_r : return cham_no_depl_r
15022   if AsType(MATR_ASSE) == matr_asse_depl_c : return cham_no_depl_c
15023   if AsType(MATR_ASSE) == matr_asse_temp_r : return cham_no_temp_r
15024   if AsType(MATR_ASSE) == matr_asse_pres_c : return cham_no_pres_c
15025   raise AsException("type de concept resultat non prevu")
15026
15027 PROD_MATR_CHAM=OPER(nom="PROD_MATR_CHAM",op= 156,sd_prod=prod_matr_cham_prod,
15028                     fr="Effectuer le produit d une matrice par un vecteur",
15029                     docu="U4.72.06-b",reentrant='n',
15030          MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_pres_c ) ),
15031          CHAM_NO         =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_temp_r,cham_no_pres_c ) ),
15032          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
15033 )  ;
15034 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
15035 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15036 # ======================================================================
15037 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15038 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15039 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15040 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15041 # (AT YOUR OPTION) ANY LATER VERSION.
15042 #
15043 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15044 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15045 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15046 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15047 #
15048 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15049 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15050 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15051 # ======================================================================
15052 # RESPONSABLE VABHHTS J.PELLET
15053 def proj_champ_prod(RESULTAT=None,CHAM_NO_REFE=None,**args ):
15054     if AsType(RESULTAT)     == evol_ther      : return evol_ther
15055     if AsType(RESULTAT)     == evol_elas      : return evol_elas
15056     if AsType(RESULTAT)     == evol_noli      : return evol_noli
15057     if AsType(RESULTAT)     == evol_char      : return evol_char
15058     if AsType(CHAM_NO_REFE) == cham_no_depl_r : return cham_no_depl_r
15059     if AsType(CHAM_NO_REFE) == cham_no_depl_c : return cham_no_depl_c
15060     if AsType(CHAM_NO_REFE) == cham_no_pres_c : return cham_no_pres_c
15061     if AsType(CHAM_NO_REFE) == cham_no_temp_r : return cham_no_temp_r
15062     if AsType(CHAM_NO_REFE) == cham_no_epsi_r : return cham_no_epsi_r
15063     if AsType(CHAM_NO_REFE) == cham_no_sief_r : return cham_no_sief_r
15064     if AsType(CHAM_NO_REFE) == cham_no_flux_r : return cham_no_flux_r
15065     raise AsException("type de concept resultat non prevu")
15066
15067 PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,docu="U4.72.05-d2",reentrant='n',
15068                 fr="Projection d'un champ aux noeuds sur les noeuds d'un autre maillage",
15069 #
15070          METHODE         =SIMP(statut='f',typ='TXM',defaut="NUAGE_DEG_1",
15071                                into=("NUAGE_DEG_0","NUAGE_DEG_1","ELEM",) ),
15072          b_nuage         =BLOC(condition="(METHODE=='NUAGE_DEG_1') or (METHODE=='NUAGE_DEG_0')",
15073                                fr="Lissage d'un nuage de points",
15074            CHAM_NO         =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_pres_c,cham_no_temp_r,
15075                                                  cham_no_epsi_r,cham_no_sief_r,cham_no_flux_r)),
15076            CHAM_NO_REFE    =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_pres_c,cham_no_temp_r,
15077                                                  cham_no_epsi_r,cham_no_sief_r,cham_no_flux_r)),
15078          ),
15079          b_elem          =BLOC(condition="METHODE=='ELEM'",
15080                               fr="Utilisation des fonctions de forme du maillage initial",
15081            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','LIST_INST','LIST_FREQ','LIST_ORDRE'),
15082                    EXCLUS('TOUT_CHAM','NOM_CHAM',), ),
15083            RESULTAT        =SIMP(statut='o',typ=(evol_ther,evol_elas,evol_noli,evol_char) ),
15084            MODELE_1        =SIMP(statut='o',typ=modele),
15085            MODELE_2        =SIMP(statut='o',typ=modele),
15086
15087            TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15088            NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
15089
15090            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15091            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
15092            LIST_ORDRE      =SIMP(statut='f',typ=listis),
15093            INST            =SIMP(statut='f',typ='R',max='**' ),
15094            LIST_INST       =SIMP(statut='f',typ=listr8),
15095            FREQ            =SIMP(statut='f',typ='R',max='**' ),
15096            LIST_FREQ       =SIMP(statut='f',typ=listr8),
15097          ),
15098
15099          VIS_A_VIS       =FACT(statut='f',min=01,max='**',
15100            regles=(AU_MOINS_UN('TOUT_1','GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
15101                    AU_MOINS_UN('TOUT_2','GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),),
15102            TOUT_1          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15103            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
15104            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
15105            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
15106            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
15107            TOUT_2          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15108            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
15109            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
15110            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
15111            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
15112          ),
15113
15114          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
15115 )  ;
15116 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
15117 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15118 # ======================================================================
15119 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15120 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15121 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15122 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15123 # (AT YOUR OPTION) ANY LATER VERSION.
15124 #
15125 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15126 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15127 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15128 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15129 #
15130 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15131 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15132 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15133 # ======================================================================
15134 def matr_asse_gene_prod(MATR_ASSE,MATR_ASSE_GENE,**args):
15135   if AsType(MATR_ASSE) == matr_asse_depl_r  : return matr_asse_gene_r
15136   if AsType(MATR_ASSE_GENE) == matr_asse_gene_r  : return matr_asse_gene_r
15137   if AsType(MATR_ASSE) == matr_asse_depl_c  : return matr_asse_gene_c
15138   if AsType(MATR_ASSE_GENE) == matr_asse_gene_c  : return matr_asse_gene_c
15139   raise AsException("type de concept resultat non prevu")
15140
15141 PROJ_MATR_BASE=OPER(nom="PROJ_MATR_BASE",op=  71,sd_prod=matr_asse_gene_prod,
15142                     fr="Projection d une matrice assemblée sur une base (modale ou de RITZ)",
15143                     docu="U4.63.12-f1",reentrant='n',
15144          regles=(UN_PARMI('MATR_ASSE','MATR_ASSE_GENE'),),
15145          BASE            =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene ) ),
15146          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
15147          MATR_ASSE       =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_depl_c) ),
15148          MATR_ASSE_GENE  =SIMP(statut='f',typ=(matr_asse_gene_r,matr_asse_gene_c) ),
15149 )  ;
15150
15151 #& MODIF COMMANDE  DATE 19/12/2001   AUTEUR CIBHHAB N.RAHNI
15152 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15153 # ======================================================================
15154 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15155 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15156 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15157 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15158 # (AT YOUR OPTION) ANY LATER VERSION.
15159 #
15160 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15161 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15162 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15163 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15164 #
15165 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15166 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15167 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15168 # ======================================================================
15169 def proj_mesu_modal_prod(MESURE,**args):
15170      vale=MESURE['NOM_PARA']
15171      if  vale == 'INST'   : return tran_gene
15172      raise AsException("type de concept resultat non prevu")
15173
15174 PROJ_MESU_MODAL=OPER(nom="PROJ_MESU_MODAL",op= 193,
15175                      sd_prod=proj_mesu_modal_prod,
15176                      docu="U4.73.01-a",reentrant='n',
15177                      fr="Extrapolation de resultats experimentaux sur un modele numerique en dynamique",
15178
15179 # commentaire C. Durand-13/10/2000 :
15180 #le mot cle NOM_PARA, par construction, vaut tjs INST : donc on retourne TRAN_GENE a chaque fois
15181 #def proj_mesu_modal_prod(**args):
15182 #     vale=args['MESURE'].get_child('NOM_PARA').get_valeur()
15183 #     if  vale == 'INST'   : return tran_gene
15184 #     raise AsException("type de concept resultat non prevu")
15185 #PROJ_MESU_MODAL=OPER(nom="PROJ_MESU_MODAL",op= 193,sd_prod=proj_mesu_modal_prod,)
15186
15187          MODELE          =SIMP(statut='f',typ=(modele) ),
15188          MASS_GENE       =SIMP(statut='o',typ=(matr_asse_gene_r) ),
15189          RIGI_GENE       =SIMP(statut='o',typ=(matr_asse_gene_r) ),
15190          MESURE          =FACT(statut='o',min=01,max=01,
15191            MODELE          =SIMP(statut='o',typ=(modele) ),
15192            MAILLAGE        =SIMP(statut='o',typ=(maillage) ),
15193            CARA_ELEM       =SIMP(statut='o',typ=(cara_elem) ),
15194            UNITE           =SIMP(statut='f',typ='I',defaut= 33 ),
15195            NOM_PARA        =SIMP(statut='f',typ='TXM',defaut="INST",into=("INST",) ),
15196            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15197            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
15198            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","SIGM_NOEU_DEPL","EPSI_NOEU_DEPL",) ),
15199                          ),
15200          REGULARISATION  =FACT(statut='f',min=01,max=01,
15201       regles=(UN_PARMI('COEF_PONDER','COEF_PONDER_F', ),),
15202            METHODE         =SIMP(statut='f',typ='TXM',defaut="TIKHONOV",into=("TIKHONOV",) ),
15203            NORM_MIN        =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
15204            COEF_PONDER     =SIMP(statut='f',typ='R',max='**' ),
15205            COEF_PONDER_F   =SIMP(statut='f',typ=(fonction),max='**' ),
15206                          ),
15207                        )  ;
15208 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
15209 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15210 # ======================================================================
15211 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15212 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15213 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15214 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15215 # (AT YOUR OPTION) ANY LATER VERSION.
15216 #
15217 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15218 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15219 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15220 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15221 #
15222 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15223 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15224 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15225 # ======================================================================
15226 PROJ_SPEC_BASE=OPER(nom="PROJ_SPEC_BASE",op= 146,sd_prod=tabl_intsp,docu="U4.63.14-c",reentrant='n',
15227                     fr="Projection d un ou plusieurs spectres de turbulenc sur un ensemble de bases modales ",
15228       regles=(UN_PARMI('BASE_ELAS_FLUI','MODE_MECA','CHAM_NO'),
15229               ENSEMBLE('FREQ_INIT','FREQ_FIN','NB_POIN'),),
15230          SPEC_TURB       =SIMP(statut='o',typ=spectre,max='**' ),
15231          BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu ),
15232          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
15233          CHAM_NO         =SIMP(statut='f',typ=cham_no_depl_r ),
15234          FREQ_INIT       =SIMP(statut='f',typ='R',val_min=0.E+0 ),
15235          FREQ_FIN        =SIMP(statut='f',typ='R',val_min=0.E+0 ),
15236          NB_POIN         =SIMP(statut='f',typ='I' ),
15237          OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG")),
15238          GROUP_MA        =SIMP(statut='f',typ=grma),
15239 #  Quel est le type attendu derriere  MODELE_INTERFACE
15240          MODELE_INTERFACE=SIMP(statut='f',typ=modele),
15241          VECT_X          =SIMP(statut='f',typ='R',min=3,max=3 ),
15242          VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3 ),
15243          ORIG_AXE        =SIMP(statut='f',typ='R',min=3,max=3 ),
15244          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
15245 )  ;
15246 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
15247 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15248 # ======================================================================
15249 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15250 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15251 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15252 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15253 # (AT YOUR OPTION) ANY LATER VERSION.
15254 #
15255 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15256 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15257 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15258 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15259 #
15260 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15261 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15262 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15263 # ======================================================================
15264 PROJ_VECT_BASE=OPER(nom="PROJ_VECT_BASE",op=  72,sd_prod=vect_asse_gene,
15265                     fr="Projection d un vecteur assemblé sur une base (modale ou de RITZ)",
15266                     docu="U4.63.13-f1",reentrant='n',
15267          regles=(UN_PARMI('VECT_ASSE','VECT_ASSE_GENE'),),
15268          BASE            =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene ) ),
15269          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
15270          TYPE_VECT       =SIMP(statut='f',typ='TXM',defaut="FORC"),
15271          VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
15272          VECT_ASSE_GENE  =SIMP(statut='f',typ=vect_asse_gene ),
15273 )  ;
15274 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
15275 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15276 # ======================================================================
15277 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15278 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15279 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15280 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15281 # (AT YOUR OPTION) ANY LATER VERSION.
15282 #
15283 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15284 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15285 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15286 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15287 #
15288 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15289 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15290 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15291 # ======================================================================
15292 RECA_WEIBULL=OPER(nom="RECA_WEIBULL",op= 197,sd_prod=tabl_reca_weib,
15293                      fr=" ",docu="U4.82.06-a",reentrant='n',
15294          LIST_PARA       =SIMP(statut='o',typ='TXM',max='**',into=("SIGM_REFE","M",) ),
15295          RESU            =FACT(statut='o',min=01,max='**',
15296            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST',),
15297                    AU_MOINS_UN('TOUT','GROUP_MA','MAILLE', ),),
15298            EVOL_NOLI       =SIMP(statut='o',typ=(evol_noli) ),
15299            MODELE          =SIMP(statut='o',typ=(modele) ),
15300            CHAM_MATER      =SIMP(statut='o',typ=(cham_mater) ),
15301            TEMPE           =SIMP(statut='f',typ='R' ),
15302            LIST_INST_RUPT  =SIMP(statut='o',typ='R',max='**' ),
15303            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15304            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
15305            INST            =SIMP(statut='f',typ='R',max='**' ),
15306            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
15307            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15308            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
15309            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
15310            COEF_MULT       =SIMP(statut='f',typ='R',defaut= 1.E0 ),
15311                          ),
15312          OPTION          =SIMP(statut='f',typ='TXM',defaut="SIGM_ELGA",into=("SIGM_ELGA","SIGM_ELMOY",) ),
15313          CORR_PLAST      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
15314          METHODE         =SIMP(statut='f',typ='TXM',defaut="MAXI_VRAI",into=("MAXI_VRAI","REGR_LINE",) ),
15315          INCO_GLOB_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
15316          ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
15317          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
15318                        )  ;
15319 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
15320 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15321 # ======================================================================
15322 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15323 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15324 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15325 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15326 # (AT YOUR OPTION) ANY LATER VERSION.
15327 #
15328 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15329 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15330 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15331 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15332 #
15333 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15334 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15335 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15336 # ======================================================================
15337 # RESPONSABLE MCOURTOI M.COURTOIS
15338 def recu_fonction_prod(RESULTAT=None,TABLE=None,OBSTACLE=None,
15339                        RESU_GENE=None,BASE_ELAS_FLUI=None,CHAM_GD=None,
15340                        TYPE_RESU=None,**args):
15341   if AsType(RESULTAT) == dyna_harmo : return fonction_c
15342 #  On ne sait pas interpreter les deux conditions suivantes
15343   if TABLE != None :
15344      if TYPE_RESU != None :
15345         if TYPE_RESU == "FONCTION_C" : return fonction_c
15346         if TYPE_RESU == "FONCTION"   : return fonction
15347      else:
15348         return fonction
15349   if RESU_GENE      != None         : return fonction
15350   if BASE_ELAS_FLUI != None         : return fonction
15351   if RESULTAT       != None         : return fonction
15352   if CHAM_GD        != None         : return fonction
15353   if OBSTACLE       != None         : return fonction
15354   raise AsException("type de concept resultat non prevu")
15355
15356 RECU_FONCTION=OPER(nom="RECU_FONCTION",op=  90,sd_prod=recu_fonction_prod,
15357                    fr="Extraire sous forme d une fonction, l évolution temporelle d une composante d un champ ou d une table",
15358                    docu="U4.32.03-f2",reentrant='n',
15359          regles=(UN_PARMI('CHAM_GD','RESULTAT','RESU_GENE','TABLE','BASE_ELAS_FLUI','OBSTACLE'),),
15360
15361          CHAM_GD         =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r,cham_elem_sief_r,
15362                                                cham_elem_vari_r,cham_elem_epsi_r,cham_elem_flux_r,
15363                                                cham_elem_pres_r,cham_elem_meta_r ) ),
15364          RESULTAT        =SIMP(statut='f',typ=(evol_elas,dyna_trans,evol_noli,evol_ther,dyna_harmo ) ),
15365          RESU_GENE       =SIMP(statut='f',typ=tran_gene),
15366 #  concept table à créer
15367          TABLE           =SIMP(statut='f',typ=table),
15368          BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu),
15369          REPERE          =SIMP(statut='f',typ='TXM',into=("POLAIRE","GLOBAL") ),
15370          OBSTACLE        =SIMP(statut='f',typ=obstacle),
15371
15372          b_tran_gene = BLOC ( condition = "RESU_GENE != None",
15373                               fr="Récupération de la fonction concernant les chocs à partir d un concept TRAN_GENE",
15374             regles=(PRESENT_PRESENT('SOUS_STRUC','INTITULE'),
15375                     PRESENT_ABSENT('MULT_APPUI','CORR_STAT'),),
15376              MULT_APPUI      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
15377              CORR_STAT       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
15378              ACCE_MONO_APPUI =SIMP(statut='f',typ=fonction),
15379              PARA_X          =SIMP(statut='f',typ='TXM' ),
15380              PARA_Y          =SIMP(statut='f',typ='TXM' ),
15381              SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
15382              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
15383              INTITULE        =SIMP(statut='f',typ='TXM' ),
15384          ),
15385          b_base_elas_flui = BLOC ( condition = "BASE_ELAS_FLUI != None",
15386                                    fr="Récupération de la fonction à partir d un concept melasflu",
15387            regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE'),),
15388            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15389            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
15390            NUME_MODE       =SIMP(statut='o',typ='I' ),
15391            PARA_X          =SIMP(statut='o',typ='TXM',into=("VITE_FLU",) ),
15392            PARA_Y          =SIMP(statut='o',typ='TXM',into=("FREQ","AMOR") ),
15393          ),
15394          b_table = BLOC ( condition = "TABLE != None",fr="Récupération de la fonction à partir d un concept table",
15395            regles=(UN_PARMI('PARA_X','NOM_PARA_TABL'),
15396                    PRESENT_PRESENT('PARA_X','PARA_Y'),),
15397            PARA_X          =SIMP(statut='f',typ='TXM',
15398                                  fr="1ère colonne de la table qui définit la fonction à récupérer", ),
15399            PARA_Y          =SIMP(statut='f',typ='TXM',
15400                                  fr="2ème colonne de la table qui définit la fonction à récupérer", ),
15401            NOM_PARA_TABL   =SIMP(statut='f',typ='TXM',into=("FONCTION",),
15402                                  fr="Nom du paramètre de la table à qui est associé la fonction" ),
15403            b_nom_para_tabl = BLOC (condition = "NOM_PARA_TABL != None",
15404              TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="FONCTION",into=("FONCTION","FONCTION_C") ),
15405            ),
15406
15407            FILTRE          =FACT(statut='f',min=1,max='**',
15408               NOM_PARA        =SIMP(statut='o',typ='TXM' ),
15409               CRIT_COMP       =SIMP(statut='f',typ='TXM',defaut="EQ",
15410                                     into=("EQ","LT","GT","NE","LE","GE","VIDE",
15411                                           "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
15412               b_vale          =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
15413                  regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
15414                  VALE            =SIMP(statut='f',typ='R' ),
15415                  VALE_I          =SIMP(statut='f',typ='I' ),
15416                  VALE_C          =SIMP(statut='f',typ='C' ),
15417                  VALE_K          =SIMP(statut='f',typ='TXM' ),),
15418
15419               CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
15420               PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15421            ),
15422          ),
15423 # RESULTAT
15424          b_resu = BLOC ( condition = "RESULTAT != None", fr="Opérandes en cas de RESULTAT",
15425            regles=(
15426 #    A voir par Mathieu Courtois : il existe de tests (SDNX300B) qui ne satisfont pas ce UN_PARMI
15427 #           UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','TOUT_INST','LIST_INST','FREQ','LIST_FREQ'),
15428                    AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC','NOM_PARA_RESU'),
15429                    PRESENT_PRESENT('MAILLE','NOM_CMP'),
15430                    PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
15431                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
15432                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
15433                    PRESENT_PRESENT('POINT','NOM_CMP'),
15434                    EXCLUS('POINT','NOEUD'),
15435                    EXCLUS('GROUP_MA','MAILLE'),
15436                    EXCLUS('GROUP_NO','NOEUD'),
15437                    EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),
15438                    UN_PARMI('NOM_CHAM','NOM_PARA_RESU'),),
15439            NOM_CHAM        =SIMP(statut='f',typ='TXM' ),
15440            NOM_PARA_RESU   =SIMP(statut='f',typ='TXM' ),
15441            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15442            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
15443            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
15444            TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15445            INST            =SIMP(statut='f',typ='R',max='**'),
15446            LIST_INST       =SIMP(statut='f',typ=listr8 ),
15447            FREQ            =SIMP(statut='f',typ='R',max='**'),
15448            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
15449            b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
15450              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15451              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
15452              INTERP_NUME     =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN") ),
15453            ),
15454            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
15455
15456            MAILLE          =SIMP(statut='f',typ=ma),
15457            GROUP_MA        =SIMP(statut='f',typ=grma),
15458            NOEUD           =SIMP(statut='f',typ=no),
15459            GROUP_NO        =SIMP(statut='f',typ=grno),
15460            POINT           =SIMP(statut='f',typ='I' ),
15461            SOUS_POINT      =SIMP(statut='f',typ='I' ),
15462            NOEUD_CHOC      =SIMP(statut='f',typ=no),
15463            GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
15464          ),
15465 # RESU_GENE
15466          b_resu_gene = BLOC ( condition = "RESU_GENE != None", fr="Opérandes en cas de RESU_GENE",
15467 #    A voir par Mathieu Courtois : il existe de tests (SDNX300B) qui ne satisfont pas ce UN_PARMI
15468 #           regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','TOUT_INST','LIST_INST','FREQ','LIST_FREQ'),),
15469            NOM_CHAM        =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE","PTEM") ),
15470            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15471            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
15472            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
15473            TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15474            INST            =SIMP(statut='f',typ='R',max='**'),
15475            LIST_INST       =SIMP(statut='f',typ=listr8 ),
15476            FREQ            =SIMP(statut='f',typ='R',max='**'),
15477            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
15478            b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
15479              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15480              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
15481              INTERP_NUME     =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN") ),
15482            ),
15483            b_local_cham = BLOC ( condition = "NOM_CHAM!='PTEM'", fr="Opérandes de localisation du champ",
15484              regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
15485                      PRESENT_PRESENT('MAILLE','NOM_CMP'),
15486                      PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
15487                      PRESENT_PRESENT('NOEUD','NOM_CMP'),
15488                      PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
15489                      PRESENT_PRESENT('POINT','NOM_CMP'),
15490                      EXCLUS('POINT','NOEUD'),
15491                      EXCLUS('GROUP_MA','MAILLE'),
15492                      EXCLUS('GROUP_NO','NOEUD'),
15493                      EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
15494              NOM_CMP         =SIMP(statut='f',typ='TXM' ),
15495
15496              MAILLE          =SIMP(statut='f',typ=ma),
15497              GROUP_MA        =SIMP(statut='f',typ=grma),
15498              NOEUD           =SIMP(statut='f',typ=no),
15499              GROUP_NO        =SIMP(statut='f',typ=grno),
15500              POINT           =SIMP(statut='f',typ='I' ),
15501              SOUS_POINT      =SIMP(statut='f',typ='I' ),
15502              NOEUD_CHOC      =SIMP(statut='f',typ=no),
15503              GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
15504            ),
15505          ),
15506 # CHAM_GD
15507          b_cham_gd = BLOC ( condition = "(CHAM_GD != None)", fr="Opérandes en cas de CHAM_GD",
15508
15509            regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
15510                    PRESENT_PRESENT('MAILLE','NOM_CMP'),
15511                    PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
15512                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
15513                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
15514                    PRESENT_PRESENT('POINT','NOM_CMP'),
15515                    EXCLUS('POINT','NOEUD'),
15516                    EXCLUS('GROUP_MA','MAILLE'),
15517                    EXCLUS('GROUP_NO','NOEUD'),
15518                    EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
15519            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
15520
15521            MAILLE          =SIMP(statut='f',typ=ma),
15522            GROUP_MA        =SIMP(statut='f',typ=grma),
15523            NOEUD           =SIMP(statut='f',typ=no),
15524            GROUP_NO        =SIMP(statut='f',typ=grno),
15525            POINT           =SIMP(statut='f',typ='I' ),
15526            SOUS_POINT      =SIMP(statut='f',typ='I' ),
15527            NOEUD_CHOC      =SIMP(statut='f',typ=no),
15528            GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
15529          ),
15530 ###
15531          NOM_PARA        =SIMP(statut='f',typ='TXM',
15532                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
15533                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC") ),
15534          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
15535          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
15536          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
15537          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
15538
15539          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
15540          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
15541 )  ;
15542 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
15543 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15544 # ======================================================================
15545 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15546 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15547 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15548 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15549 # (AT YOUR OPTION) ANY LATER VERSION.
15550 #
15551 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15552 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15553 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15554 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15555 #
15556 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15557 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15558 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15559 # ======================================================================
15560 RECU_GENE=OPER(nom="RECU_GENE",op=  76,sd_prod=vect_asse_gene,docu="U4.71.03-e",reentrant='n',
15561                fr="Récupération d un champ de grandeur à partir d un résultat en coordonnées généralisées",
15562          RESU_GENE       =SIMP(statut='o',typ=tran_gene ),
15563          INST            =SIMP(statut='o',typ='R' ),
15564          NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE") ),
15565          INTERPOL        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
15566          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF" ,into=("ABSOLU","RELATIF") ),
15567          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15568 )  ;
15569 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
15570 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15571 # ======================================================================
15572 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15573 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15574 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15575 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15576 # (AT YOUR OPTION) ANY LATER VERSION.
15577 #
15578 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15579 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15580 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15581 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15582 #
15583 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15584 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15585 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15586 # ======================================================================
15587 # RESPONSABLE VABHHTS J.PELLET
15588 RECU_TABLE=OPER(nom="RECU_TABLE",op= 174,sd_prod=table,
15589                 fr=" ",docu="U4.71.02-b2",reentrant='n',
15590          CO              =SIMP(statut='o',typ=assd),
15591          regles=(UN_PARMI('NOM_TABLE','NOM_PARA')),
15592          NOM_TABLE       =SIMP(statut='f',typ='TXM' ),
15593          NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
15594          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
15595 )  ;
15596 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
15597 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15598 # ======================================================================
15599 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15600 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15601 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15602 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15603 # (AT YOUR OPTION) ANY LATER VERSION.
15604 #
15605 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15606 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15607 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15608 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15609 #
15610 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15611 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15612 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15613 # ======================================================================
15614 def reso_grad_prod(MATR_ASSE,**args ):
15615   if AsType(MATR_ASSE) == matr_asse_depl_r : return cham_no_depl_r
15616   if AsType(MATR_ASSE) == matr_asse_temp_r : return cham_no_temp_r
15617   if AsType(MATR_ASSE) == matr_asse_pres_r : return cham_no_pres_r
15618   raise AsException("type de concept resultat non prevu")
15619
15620 RESO_GRAD=OPER(nom="RESO_GRAD",op=  84,sd_prod=reso_grad_prod,
15621                fr="Résolution par la méthode du gradient conjugué préconditionné",
15622                docu="U4.55.04-e",reentrant='f',
15623          MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
15624          CHAM_NO         =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r ) ),
15625          CHAM_CINE       =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r ) ),
15626          MATR_FACT       =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
15627          NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
15628          REPRISE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
15629          RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1E-6 ),
15630          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
15631 )  ;
15632 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
15633 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15634 # ======================================================================
15635 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15636 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15637 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15638 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15639 # (AT YOUR OPTION) ANY LATER VERSION.
15640 #
15641 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15642 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15643 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15644 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15645 #
15646 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15647 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15648 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15649 # ======================================================================
15650 # RESPONSABLE VABHHTS J.PELLET
15651 def reso_ldlt_prod(CHAM_NO,**args ):
15652   if AsType(CHAM_NO) == cham_no_temp_r : return cham_no_temp_r
15653   if AsType(CHAM_NO) == cham_no_depl_r : return cham_no_depl_r
15654   if AsType(CHAM_NO) == cham_no_pres_r : return cham_no_pres_r
15655   if AsType(CHAM_NO) == cham_no_temp_c : return cham_no_temp_c
15656   if AsType(CHAM_NO) == cham_no_depl_c : return cham_no_depl_c
15657   if AsType(CHAM_NO) == cham_no_pres_c : return cham_no_pres_c
15658   raise AsException("type de concept resultat non prevu")
15659
15660 RESO_LDLT=OPER(nom="RESO_LDLT",op=15,sd_prod=reso_ldlt_prod,reentrant='f',
15661                fr="Résolution en place ou hors place d un système factorisé",docu="U4.55.02-f",
15662          MATR_FACT       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
15663                                                matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
15664          CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r,
15665                                                cham_no_temp_c,cham_no_depl_c,cham_no_pres_c) ),
15666          CHAM_CINE       =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_c) ),
15667          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
15668          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
15669 )  ;
15670 #& MODIF COMMANDE  DATE 17/04/2002   AUTEUR BOYERE E.BOYERE
15671 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15672 # ======================================================================
15673 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15674 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15675 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15676 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15677 # (AT YOUR OPTION) ANY LATER VERSION.
15678 #
15679 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15680 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15681 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15682 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15683 #
15684 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15685 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15686 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15687 # ======================================================================
15688 # RESPONSABLE BOYERE E.BOYERE
15689 def rest_base_phys_prod(RESU_GENE,RESULTAT,**args ):
15690   if AsType(RESU_GENE) == tran_gene : return dyna_trans
15691   if AsType(RESU_GENE) == mode_gene : return mode_meca
15692   if AsType(RESU_GENE) == mode_cycl : return mode_meca
15693   if AsType(RESU_GENE) == harm_gene : return dyna_harmo
15694   if AsType(RESULTAT)  == mode_meca : return mode_meca
15695   raise AsException("type de concept resultat non prevu")
15696
15697 REST_BASE_PHYS=OPER(nom="REST_BASE_PHYS",op=  75,sd_prod=rest_base_phys_prod,
15698                     fr="Restituer dans la base physique des résultats en coordonnées généralisées",
15699                     docu="U4.63.21-e",reentrant='n',
15700         regles=(UN_PARMI('RESU_GENE','RESULTAT'),
15701                 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','TOUT_INST'),
15702                 EXCLUS('TOUT_INST','NUME_ORDRE','INST','LIST_INST','TOUT_ORDRE'),
15703 #  Doc U à revoir
15704                 PRESENT_ABSENT('MULT_APPUI','CORR_STAT'),
15705                 EXCLUS('MULT_APPUI','NOEUD','GROUP_NO'),
15706                 EXCLUS('CORR_STAT','NOEUD','GROUP_NO'),
15707                 EXCLUS('NOEUD','GROUP_NO'),
15708                 PRESENT_PRESENT('RESULTAT','SQUELETTE'),
15709                 PRESENT_PRESENT('ACCE_MONO_APPUI','DIRECTION'),),
15710          RESU_GENE       =SIMP(statut='f',typ=(tran_gene,mode_gene,mode_cycl,harm_gene ) ),
15711          RESULTAT        =SIMP(statut='f',typ=mode_meca ),
15712
15713          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
15714          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15715          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
15716          TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15717          INST            =SIMP(statut='f',typ='R',max='**' ),
15718          LIST_INST       =SIMP(statut='f',typ=listr8 ),
15719          FREQ            =SIMP(statut='f',typ='R',max='**' ),
15720          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
15721          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
15722          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15723          INTERPOL        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
15724          MULT_APPUI      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
15725          CORR_STAT       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
15726          NOM_CHAM        =SIMP(statut='f',typ='TXM',max=8,defaut="ACCE",
15727                                into=("DEPL","VITE","ACCE","ACCE_ABSOLU","EFGE_ELNO_DEPL","SIPO_ELNO_DEPL",
15728                                      "SIGM_ELNO_DEPL","FORC_NODA",) ),
15729          TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15730          GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
15731          NOEUD           =SIMP(statut='f',typ=no,max='**'),
15732
15733          ACCE_MONO_APPUI =SIMP(statut='f',typ=fonction),
15734          DIRECTION       =SIMP(statut='f',typ='R',max='**' ),
15735
15736          SQUELETTE       =SIMP(statut='f',typ=squelette ),
15737          SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
15738          SECTEUR         =SIMP(statut='f',typ='I',defaut= 1 ),
15739          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
15740 )  ;
15741 #& MODIF COMMANDE  DATE 28/03/2001   AUTEUR CIBHHLV L.VIVAN
15742 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15743 # ======================================================================
15744 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15745 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15746 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15747 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15748 # (AT YOUR OPTION) ANY LATER VERSION.
15749 #
15750 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15751 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15752 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15753 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15754 #
15755 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15756 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15757 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15758 # ======================================================================
15759 REST_SPEC_PHYS=OPER(nom="REST_SPEC_PHYS",op= 148,sd_prod=tabl_intsp,
15760                     docu="U4.63.22-c",reentrant='n',
15761          regles=(AU_MOINS_UN('BASE_ELAS_FLUI','MODE_MECA'),),
15762          BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu ),
15763          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
15764          BANDE           =SIMP(statut='f',typ='R',min=02,max=02 ),
15765          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
15766          INTE_SPEC_GENE  =SIMP(statut='o',typ=tabl_intsp ),
15767          NOEUD           =SIMP(statut='o',typ=no,max='**'),
15768          NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
15769          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
15770          NOM_CHAM        =SIMP(statut='o',typ='TXM',max=07,
15771                                into=("DEPL","VITE","ACCE","EFGE_ELNO_DEPL",
15772                                      "SIPO_ELNO_DEPL","SIGM_ELNO_DEPL","FORC_NODA") ),
15773          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc), ),
15774          EXCIT           =FACT(statut='f',max=01,
15775            NOEUD           =SIMP(statut='o',typ=no,max='**'),
15776            NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
15777          ),
15778          MOUVEMENT       =SIMP(statut='f',typ='TXM',defaut="ABSOLU",into=("RELATIF","ABSOLU","DIFFERENTIEL") ),
15779          OPTION          =SIMP(statut='f',typ='TXM',defaut="DIAG_DIAG",
15780                                into=("DIAG_TOUT","DIAG_DIAG","TOUT_TOUT","TOUT_DIAG") ),
15781          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
15782 )  ;
15783 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
15784 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15785 # ======================================================================
15786 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15787 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15788 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15789 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15790 # (AT YOUR OPTION) ANY LATER VERSION.
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 RETOUR=PROC(nom="RETOUR",op= -2,docu="U4.13.02-e",
15802             fr="Retour au fichier de commandes appelant",
15803 ) ;
15804 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
15805 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15806 # ======================================================================
15807 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15808 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15809 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15810 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15811 # (AT YOUR OPTION) ANY LATER VERSION.
15812 #
15813 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15814 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15815 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15816 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15817 #
15818 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15819 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15820 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15821 # ======================================================================
15822 #  RESPONSABLE ADBHHVV V.CANO
15823 STAT_NON_LINE=OPER(nom="STAT_NON_LINE",op=70,sd_prod=evol_noli,
15824                    fr="Analyse mécanique statique non linéaire",
15825                    docu="U4.51.03-f4",reentrant='f',
15826          regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS'),),
15827          MODELE          =SIMP(statut='o',typ=modele),
15828          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
15829          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
15830          EXCIT           =FACT(statut='o',min=1,max='**',
15831            CHARGE          =SIMP(statut='o',typ=char_meca),
15832            FONC_MULT       =SIMP(statut='f',typ=fonction),
15833            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
15834                                  into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
15835          ),
15836          VARI_COMM           =FACT(statut='f',
15837            regles=(AU_MOINS_UN('IRRA',),),
15838            IRRA     =SIMP(statut='f',typ=evol_varc),
15839          ),
15840          COMP_INCR       =FACT(statut='f',min=1,max='**',
15841            RELATION        =SIMP(statut='o',typ='TXM',defaut="VMIS_ISOT_TRAC",
15842                                  into=( "ELAS",
15843                                         "VMIS_ISOT_TRAC",
15844                                         "VMIS_ISOT_LINE",
15845                                         "VMIS_ECMI_TRAC",
15846                                         "VMIS_ECMI_LINE",
15847                                         "LABORD_1D",
15848                                         "ENDO_FRAGILE",
15849                                         "ENDO_ISOT_BETON",
15850                                         "MAZARS",
15851                                         "RUPT_FRAG",
15852                                         "BARENBLATT",
15853                                         "META_P_IL",
15854                                         "META_P_IL_PT",
15855                                         "META_P_IL_RE",
15856                                         "META_P_IL_PT_RE",
15857                                         "META_V_IL",
15858                                         "META_V_IL_PT",
15859                                         "META_V_IL_RE",
15860                                         "META_V_IL_PT_RE",
15861                                         "META_P_INL",
15862                                         "META_P_INL_PT",
15863                                         "META_P_INL_RE",
15864                                         "META_P_INL_PT_RE",
15865                                         "META_V_INL",
15866                                         "META_V_INL_PT",
15867                                         "META_V_INL_RE",
15868                                         "META_V_INL_PT_RE",
15869                                         "META_P_CL",
15870                                         "META_P_CL_PT",
15871                                         "META_P_CL_RE",
15872                                         "META_P_CL_PT_RE",
15873                                         "META_V_CL",
15874                                         "META_V_CL_PT",
15875                                         "META_V_CL_RE",
15876                                         "META_V_CL_PT_RE",
15877                                         "VMIS_CINE_LINE",
15878                                         "VISC_TAHERI",
15879                                         "CHABOCHE",
15880                                         "VISCOCHAB",
15881                                         "VISC_CIN1_CHAB",
15882                                         "VISC_CIN2_CHAB",
15883                                         "POLY_CFC",
15884                                         "LMARC",
15885                                         "ROUSSELIER",
15886                                         "ROUSS_PR",
15887                                         "ROUSS_VISC",
15888                                         "VMIS_POU_LINE",
15889                                         "VMIS_POU_FLEJOU",
15890                                         "COULOMB",
15891                                         "ARME",
15892                                         "ASSE_CORN",
15893                                         "NORTON_HOFF",
15894                                         "LEMAITRE",
15895                                         "ZIRC_CYRA2",
15896                                         "ZIRC_EPRI",
15897                                         "ASSE_COMBU",
15898                                         "VENDOCHAB",
15899                                         "NADAI_B",
15900                                         "DIS_CONTACT",
15901                                         "DIS_CHOC",
15902                                         "DIS_GOUJ2E_PLAS",
15903                                         "DIS_GOUJ2E_ELAS",
15904                                         "GRILLE_ISOT_LINE",
15905                                         "GRILLE_CINE_LINE",
15906                                         "GRILLE_PINTO_MEN",
15907                                         "PINTO_MENEGOTTO",
15908                                         "CJS",
15909                                         "CAM_CLAY",
15910                                         "LAIGLE",
15911                                         "OHNO",
15912                                         "GRANGER_FP",
15913                                         "GRANGER_FP_V",
15914                                         "GRANGER_FD",
15915                                         "BETON_DOUBLE_DP",
15916                                         "KIT_HM",
15917                                         "KIT_HHM",
15918                                         "KIT_THH",
15919                                         "KIT_THM",
15920                                         "KIT_THHM",
15921                                         "VMIS_ASYM_LINE",
15922                                         "ELAS_THM",
15923                                         "SURF_ETAT_NSAT",
15924                                         "SURF_ETAT_SATU",
15925                                         "CAM_CLAY_THM",
15926                                         "KIT_DDI",
15927                                      ) ),
15928           ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15929           VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15930           VMIS_ISOT_LINE  =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15931           VMIS_ECMI_TRAC  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
15932           VMIS_ECMI_LINE  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
15933           LABORD_1D   =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
15934           ENDO_FRAGILE    =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15935           ENDO_ISOT_BETON =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15936           MAZARS          =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15937           RUPT_FRAG       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15938           BARENBLATT      =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15939           META_P_IL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15940           META_P_IL_PT       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15941           META_P_IL_RE       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15942           META_P_IL_PT_RE    =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15943           META_V_IL          =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15944           META_V_IL_PT       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15945           META_V_IL_RE       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15946           META_V_IL_PT_RE    =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15947           META_P_INL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15948           META_P_INL_PT      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15949           META_P_INL_RE      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15950           META_P_INL_PT_RE   =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15951           META_V_INL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15952           META_V_INL_PT      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15953           META_V_INL_RE      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15954           META_V_INL_PT_RE   =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15955           META_P_CL          =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15956           META_P_CL_PT       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15957           META_P_CL_RE       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15958           META_P_CL_PT_RE    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15959           META_V_CL          =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15960           META_V_CL_PT       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15961           META_V_CL_RE       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15962           META_V_CL_PT_RE    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15963           VMIS_CINE_LINE  =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
15964           CHABOCHE        =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
15965           VISCOCHAB       =SIMP(statut='c',typ='I',defaut=28,into=(28,)),
15966           VISC_CIN1_CHAB  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
15967           VISC_CIN2_CHAB  =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
15968           POLY_CFC        =SIMP(statut='c',typ='I',defaut=1688,into=(1688,)),
15969           LMARC           =SIMP(statut='c',typ='I',defaut=20,into=(20,)),
15970           VISC_TAHERI     =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
15971           ROUSSELIER      =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
15972           ROUSS_PR        =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
15973           ROUSS_VISC      =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
15974           VMIS_POU_LINE   =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
15975           VMIS_POU_FLEJOU =SIMP(statut='c',typ='I',defaut=9 ,into=(9,)),
15976           COULOMB         =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
15977           ASSE_CORN       =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
15978           ARME            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15979           NORTON_HOFF     =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15980           LEMAITRE        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15981           ZIRC_CYRA2      =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15982           ZIRC_EPRI       =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15983           ASSE_COMBU      =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
15984           NADAI_B         =SIMP(statut='c',typ='I',defaut=34,into=(34,)),
15985           VENDOCHAB       =SIMP(statut='c',typ='I',defaut=10,into=(10,)),
15986           GRILLE_ISOT_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
15987           GRILLE_CINE_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
15988           GRILLE_PINTO_MEN=SIMP(statut='c',typ='I',defaut=16,into=(16,)),
15989           DIS_CONTACT     =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15990           DIS_CHOC        =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
15991           DIS_GOUJ2E_PLAS =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15992           DIS_GOUJ2E_ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15993           PINTO_MENEGOTTO =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
15994           CJS             =SIMP(statut='c',typ='I',defaut=16,into=(16,)),
15995           CAM_CLAY        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15996           LAIGLE          =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
15997           OHNO            =SIMP(statut='c',typ='I',defaut=32,into=(32,)),
15998           GRANGER_FP      =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
15999           GRANGER_FP_V    =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
16000           GRANGER_FD       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16001           BETON_DOUBLE_DP =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16002           KIT_HM          =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16003           KIT_HHM         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16004           KIT_THH         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16005           KIT_THM         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16006           KIT_THHM        =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16007           VMIS_ASYM_LINE  =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16008
16009            RELATION_KIT    =SIMP(statut='f',typ='TXM',max='**',
16010                                  into=(
16011 # MECA
16012                                        "ELAS",
16013                                        "CJS",
16014                                        "CAM_CLAY",
16015                                        "LAIGLE",
16016                                        "ELAS_THM",
16017                                        "SURF_ETAT_NSAT",
16018                                        "SURF_ETAT_SATU",
16019                                        "CAM_CLAY_THM",
16020 # THMC
16021                                        "GAZ",
16022                                        "LIQU_SATU",
16023                                        "LIQU_SATU_GAT",
16024                                        "LIQU_GAZ_ATM",
16025                                        "LIQU_VAPE_GAZ",
16026                                        "LIQU_NSAT_GAT",
16027                                        "LIQU_GAZ",
16028 # THER
16029                                        "THER_HOMO",
16030                                        "THER_POLY",
16031 # HYDR
16032                                        "HYDR_UTIL",
16033                                        "HYDR",
16034 # MECA_META
16035                                        "ACIER",
16036                                        "ZIRC",
16037 # MECA KIT_DDI
16038                                        "VMIS_ISOT_TRAC",
16039                                        "VMIS_ISOT_LINE",
16040                                        "VMIS_ISOT_CINE",
16041                                        "GRANGER_FP",
16042                                        "GRANGER_FP_V",
16043                                        "ROUSSELIER",
16044                                        "CHABOCHE",
16045                                        "OHNO",
16046                                        "NADAI_B",
16047                                        "BETON_DOUBLE_DP",
16048                                        ) ),
16049            ELAS_THM        =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16050            SURF_ETAT_NSAT  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16051            SURF_ETAT_SATU  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16052            CAM_CLAY_THM    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16053            GAZ             =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16054            LIQU_SATU       =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16055            LIQU_SATU_GAT   =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16056            LIQU_GAZ_ATM    =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16057            LIQU_VAPE_GAZ   =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16058            LIQU_NSAT_GAT   =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16059            LIQU_GAZ        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16060            THER_HOMO       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16061            THER_POLY       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16062            HYDR_UTIL       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16063            HYDR            =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16064            ACIER           =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
16065            ZIRC            =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16066
16067            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC","SIMO_MIEHE","GREEN_GR","GREEN",)),
16068            ALGO_C_PLAN     =SIMP(statut='f',typ='TXM',defaut="ANALYTIQUE",into=("DEBORST","ANALYTIQUE",)),
16069       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
16070            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16071            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
16072            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16073          ),
16074          COMP_ELAS       =FACT(statut='f',min=1,max='**',
16075            RELATION        =SIMP(statut='o',typ='TXM',defaut="ELAS",
16076                                  into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
16077                                        "ELAS_POUTRE_GR","CABLE")),
16078            ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16079            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16080            ELAS_VMIS_LINE  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16081            ELAS_POUTRE_GR  =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16082            CABLE           =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16083            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GREEN","GREEN_GR",) ),
16084       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
16085            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16086            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
16087            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16088          ),
16089          ETAT_INIT       =FACT(statut='f',min=1,max=1,
16090            regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI','VARI_NON_LOCAL',),
16091                    EXCLUS('EVOL_NOLI','DEPL',),
16092                    EXCLUS('EVOL_NOLI','SIGM',),
16093                    EXCLUS('EVOL_NOLI','VARI',),
16094                    EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
16095                    EXCLUS('NUME_ORDRE','INST'), ),
16096            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
16097            SIGM            =SIMP(statut='f',typ=(cham_elem_sief_r,carte_sief_r)),
16098            VARI            =SIMP(statut='f',typ=cham_elem_vari_r),
16099            VARI_NON_LOCAL  =SIMP(statut='f',typ=cham_no_vanl_r),
16100            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
16101            NUME_ORDRE      =SIMP(statut='f',typ='I'),
16102            INST            =SIMP(statut='f',typ='R'),
16103            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16104            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16105            NUME_DIDI       =SIMP(statut='f',typ='I'),
16106            INST_ETAT_INIT  =SIMP(statut='f',typ='R'),
16107          ),
16108          INCREMENT       =FACT(statut='o',min=1,max=1,
16109            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
16110                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
16111            LIST_INST       =SIMP(statut='o',typ=listr8),
16112            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
16113                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
16114            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
16115            INST_INIT       =SIMP(statut='f',typ='R'),
16116            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
16117            INST_FIN        =SIMP(statut='f',typ='R'),
16118            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
16119            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
16120            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
16121            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
16122            OPTI_LIST_INST  =SIMP(statut='f',typ='TXM',into=("INCR_MAXI",),),
16123            NOM_CHAM        =SIMP(statut='f',typ='TXM',),
16124            NOM_CMP         =SIMP(statut='f',typ='TXM',),
16125            VALE            =SIMP(statut='f',typ='R'),
16126          ),
16127          NEWTON          =FACT(statut='d',min=1,max=1,
16128            REAC_INCR       =SIMP(statut='f',typ='I',defaut= 1 ),
16129            PREDICTION      =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
16130            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
16131            PAS_MINI_ELAS   =SIMP(statut='f',typ='R',defaut=0.0E+0),
16132            REAC_ITER       =SIMP(statut='f',typ='I',defaut=0),
16133            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
16134          ),
16135          RECH_LINEAIRE   =FACT(statut='f',min=1,max=1,
16136            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
16137            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 3),
16138          ),
16139          PILOTAGE        =FACT(statut='f',min=1,max=1,
16140            regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
16141            TYPE    =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","PRED_ELAS_INCR","DEFORMATION","ANA_LIM") ),
16142            COEF_MULT       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
16143            ETA_PILO_MAX    =SIMP(statut='f',typ='R'),
16144            ETA_PILO_MIN    =SIMP(statut='f',typ='R'),
16145            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16146            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
16147            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16148            NOEUD           =SIMP(statut='f',typ=no,max='**'),
16149            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
16150            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**' ),
16151                          ),
16152          CONVERGENCE     =FACT(statut='d',min=1,max=1,
16153            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
16154            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
16155            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
16156            ITER_GLOB_ELAS  =SIMP(statut='f',typ='I',defaut=25),
16157            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
16158            RESI_INTE_RELA  =SIMP(statut='f',typ='R'
16159                                 ,defaut= 1.0E-6),
16160            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
16161            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut= 0 ),
16162            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
16163            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
16164                                  into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
16165          ),
16166          PARM_THETA      =SIMP(statut='f',typ='R'
16167                               ,defaut= 1. ),
16168          SOLVEUR         =FACT(statut='d',min=1,max=1,
16169            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
16170            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
16171              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
16172            ),
16173            b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
16174              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
16175            ),
16176            b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
16177                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
16178              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
16179              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","DECOUPE") ),
16180            ),
16181            b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
16182              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
16183              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
16184              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
16185              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
16186              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
16187            ),
16188 #  A quoi sert eps
16189            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
16190            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
16191          ),
16192          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
16193            regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
16194                    EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
16195            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
16196            INST            =SIMP(statut='f',typ='R',max='**' ),
16197            PAS_ARCH        =SIMP(statut='f',typ='I' ),
16198            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
16199            ARCH_ETAT_INIT  =SIMP(statut='f',typ='TXM',into=("OUI",)),
16200            NUME_INIT       =SIMP(statut='f',typ='I'),
16201            DETR_NUME_SUIV  =SIMP(statut='f',typ='TXM',into=("OUI",)),
16202            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","SIEF_ELGA","VARI_ELGA",
16203                                                                      "VARI_NON_LOCAL","LANL_ELGA")),
16204          ),
16205          OBSERVATION     =FACT(statut='f',min=1,max='**',
16206            regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
16207                    PRESENT_PRESENT('MAILLE','POINT'),),
16208            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',into=("DEPL","VITE","ACCE","SIEF_ELGA",
16209                                               "VARI_ELGA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU")),
16210            NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
16211            LIST_ARCH       =SIMP(statut='f',typ=listis),
16212            LIST_INST       =SIMP(statut='f',typ=listr8),
16213            INST            =SIMP(statut='f',typ='R',max='**' ),
16214            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16215            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16216            PAS_OBSE        =SIMP(statut='f',typ='I'),
16217            NOEUD           =SIMP(statut='f',typ=no,max='**'),
16218            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
16219            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16220            POINT           =SIMP(statut='f',typ='I',max='**'),
16221          ),
16222            SOLV_NON_LOCAL  =FACT(statut='f',min=1,max=1,
16223              METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
16224              b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
16225                RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
16226              ),
16227              b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
16228                RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
16229              ),
16230              b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
16231                                     fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
16232                NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
16233                STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
16234              ),
16235              b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
16236                PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
16237                NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
16238                RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
16239                NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
16240              ),
16241              EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
16242            ),
16243            LAGR_NON_LOCAL  =FACT(statut='f',max=1,
16244              ITER_DUAL_MAXI  =SIMP(statut='f',typ='I',defaut= 50),
16245              RESI_DUAL_ABSO  =SIMP(statut='o',typ='R'),
16246              RESI_PRIM_ABSO  =SIMP(statut='o',typ='R'),
16247              R               =SIMP(statut='f',typ='R',defaut= 1000.),
16248              ITER_PRIM_MAXI  =SIMP(statut='f',typ='I',defaut= 10),
16249            ),
16250          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
16251          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
16252  )  ;
16253 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
16254 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16255 # ======================================================================
16256 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16257 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16258 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16259 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16260 # (AT YOUR OPTION) ANY LATER VERSION.
16261 #
16262 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16263 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16264 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16265 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16266 #
16267 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16268 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16269 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16270 # ======================================================================
16271 # RESPONSABLE MCOURTOI M.COURTOIS
16272 TEST_FONCTION=PROC(nom="TEST_FONCTION",op= 135,fr="Extraction d une valeur numérique ou d un attribut de fonction",
16273                    docu="U4.92.02-f2",
16274          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
16275          TEST_NOOK       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
16276          VALEUR          =FACT(statut='f',min=01,max='**',
16277                                fr="Tester la valeur d une fonction ou d une nappe",
16278            regles=(UN_PARMI('VALE_REFE','VALE_REFE_C', ),),
16279            FONCTION        =SIMP(statut='o',typ=fonction ),
16280            NOM_PARA        =SIMP(statut='f',typ='TXM',max=2),
16281            VALE_PARA       =SIMP(statut='o',typ='R',max=2),
16282            VALE_REFE       =SIMP(statut='f',typ='R' ),
16283            VALE_REFE_C     =SIMP(statut='f',typ='C' ),
16284            CRITERE         =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
16285                                  defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16286            PRECISION       =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
16287                                  defaut= 1.E-3 ),
16288            REFERENCE       =SIMP(statut='f',typ='TXM',
16289                                  into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
16290            b_version = BLOC (condition = "REFERENCE == 'NON_REGRESSION'",
16291              VERSION         =SIMP(statut='f',typ='TXM' ),
16292            ),
16293          ),
16294          ATTRIBUT        =FACT(statut='f',min=01,max='**',
16295                                fr="Tester la valeur d un attribut d une fonction ou d''une nappe",
16296            FONCTION        =SIMP(statut='o',typ=fonction ),
16297            PARA            =SIMP(statut='f',typ='R' ),
16298            CRIT_PARA       =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16299            PREC_PARA       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16300            ATTR            =SIMP(statut='o',typ='TXM',
16301                                  into=("NOM_PARA","NOM_RESU","PROL_DROITE","PROL_GAUCHE","INTERPOL",
16302                                        "PROL_GAUCHE_FONC","PROL_DROITE_FONC","INTERPOL_FONC","NOM_PARA_FONC") ),
16303            ATTR_REFE       =SIMP(statut='o',typ='TXM' ),
16304            REFERENCE       =SIMP(statut='f',typ='TXM',
16305                                  into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
16306            b_version       =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
16307              VERSION         =SIMP(statut='f',typ='TXM' ),
16308            ),
16309          ),
16310          TABL_INTSP      =FACT(statut='f',min=01,max='**',
16311                                fr="Tester la valeur d une fonction contenue dans une table interspectrale",
16312            regles=(UN_PARMI('NUME_ORDRE_I','NOEUD_I'),),
16313            INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
16314            NOEUD_I         =SIMP(statut='f',typ=no),
16315            NUME_ORDRE_I    =SIMP(statut='f',typ='I' ),
16316            b_nume_ordre_i = BLOC (condition = "NUME_ORDRE_I != None",
16317              NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
16318            ),
16319            b_noeud_i = BLOC (condition = "NOEUD_I != None",
16320              NOEUD_J         =SIMP(statut='o',typ=no),
16321              NOM_CMP_I       =SIMP(statut='o',typ='TXM' ),
16322              NOM_CMP_J       =SIMP(statut='o',typ='TXM' ),
16323            ),
16324            NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
16325            VALE_PARA       =SIMP(statut='o',typ='R' ),
16326            VALE_REFE_C     =SIMP(statut='o',typ='C' ),
16327            CRITERE         =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
16328                                  defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16329            PRECISION       =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
16330                                  defaut= 1.E-3 ),
16331            REFERENCE       =SIMP(statut='f',typ='TXM',
16332                                  into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
16333            b_version       =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
16334              VERSION         =SIMP(statut='f',typ='TXM' ),
16335            ),
16336          ),
16337 )  ;
16338 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
16339 # RESPONSABLE VABHHTS J.PELLET
16340 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16341 # ======================================================================
16342 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16343 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16344 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16345 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16346 # (AT YOUR OPTION) ANY LATER VERSION.
16347 #
16348 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16349 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16350 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16351 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16352 #
16353 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16354 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16355 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16356 #
16357 #
16358 # ======================================================================
16359 TEST_RESU=PROC(nom="TEST_RESU",op=23,docu="U4.92.01-g3",
16360          fr="Extraction d une valeur et comparaison à une valeur de référence",
16361          regles=(AU_MOINS_UN('CHAM_NO','CHAM_ELEM','RESU','OBJET')),
16362          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
16363
16364          CHAM_NO         =FACT(statut='f',min=01,max='**',
16365            regles=(UN_PARMI('NOEUD','GROUP_NO','TYPE_TEST'),
16366                    EXCLUS('NOEUD','GROUP_NO'),
16367                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
16368                    PRESENT_PRESENT( 'GROUP_NO','NOM_CMP'),
16369                    UN_PARMI('VALE','VALE_I','VALE_C'),),
16370            CHAM_GD         =SIMP(statut='o',typ=cham_no),
16371            NOEUD           =SIMP(statut='f',typ=no,max='**'),
16372            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
16373            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
16374            TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
16375            VALE            =SIMP(statut='f',typ='R'),
16376            VALE_I          =SIMP(statut='f',typ='I'),
16377            VALE_C          =SIMP(statut='f',typ='C'),
16378            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
16379            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
16380            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
16381                                                             "NON_REGRESSION","AUTRE_ASTER")),
16382            VERSION         =SIMP(statut='f',typ='TXM'),
16383          ),
16384
16385          CHAM_ELEM       =FACT(statut='f',min=01,max='**',
16386            regles=(UN_PARMI('MAILLE','TYPE_TEST',),
16387                    EXCLUS('NOEUD','GROUP_NO','POINT'),
16388                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
16389                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16390                    PRESENT_PRESENT('POINT','NOM_CMP'),
16391                    UN_PARMI('VALE','VALE_I','VALE_C'), ),
16392            CHAM_GD         =SIMP(statut='o',typ=cham_elem),# CO()
16393            MAILLE          =SIMP(statut='f',typ=ma),# CO()
16394            POINT           =SIMP(statut='f',typ='I' ),
16395            SOUS_POINT      =SIMP(statut='f',typ='I'),
16396            NOEUD           =SIMP(statut='f',typ=no),# CO()
16397            GROUP_NO        =SIMP(statut='f',typ=grno),# CO()
16398            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
16399            TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
16400            VALE            =SIMP(statut='f',typ='R' ),
16401            VALE_I          =SIMP(statut='f',typ='I' ),
16402            VALE_C          =SIMP(statut='f',typ='C' ),
16403            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
16404            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16405            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
16406                                                             "NON_REGRESSION","AUTRE_ASTER") ),
16407            VERSION         =SIMP(statut='f',typ='TXM' ),
16408          ),
16409
16410          RESU            =FACT(statut='f',min=01,max='**',
16411            regles=(UN_PARMI('NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP','NOM_CAS','ANGL'),
16412                    UN_PARMI('NOM_CHAM','PARA'),
16413                    PRESENT_ABSENT('PARA','NOEUD','GROUP_NO','POINT','NOM_CMP','TYPE_TEST'),
16414                    PRESENT_PRESENT('NOM_CMP','NOM_CHAM'),
16415                    EXCLUS('NOEUD','GROUP_NO','POINT','TYPE_TEST'),
16416                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
16417                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16418                    PRESENT_PRESENT('POINT','NOM_CMP'),
16419                    UN_PARMI('VALE','VALE_I','VALE_C') ,),
16420            RESULTAT        =SIMP(statut='o',typ=resultat),
16421            SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
16422                                  fr="Liste des paramètres de sensibilité.",
16423                                  ang="List of sensitivity parameters"),
16424            NUME_ORDRE      =SIMP(statut='f',typ='I'),
16425            INST            =SIMP(statut='f',typ='R'),
16426            FREQ            =SIMP(statut='f',typ='R'),
16427            NUME_MODE       =SIMP(statut='f',typ='I'),
16428            NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**' ),
16429            NOM_CAS         =SIMP(statut='f',typ='TXM'),
16430            ANGL            =SIMP(statut='f',typ='R'),
16431            PARA            =SIMP(statut='f',typ='TXM'),
16432            NOM_CHAM        =SIMP(statut='f',typ='TXM'),
16433            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
16434            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16435            NOEUD           =SIMP(statut='f',typ=no,max='**'),
16436            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
16437            POINT           =SIMP(statut='f',typ='I'),
16438            SOUS_POINT      =SIMP(statut='f',typ='I'),
16439            TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
16440            VALE            =SIMP(statut='f',typ='R'),
16441            VALE_I          =SIMP(statut='f',typ='I'),
16442            VALE_C          =SIMP(statut='f',typ='C'),
16443            CRITERE         =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),max=02),
16444            PRECISION       =SIMP(statut='f',typ='R',max=02),
16445            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
16446                                                             "NON_REGRESSION","AUTRE_ASTER",) ),
16447            VERSION         =SIMP(statut='f',typ='TXM' ),
16448          ),
16449
16450          OBJET           =FACT(statut='f',max='**',
16451            regles=(UN_PARMI('INDICE','S_I','S_R','RESUME',),
16452                  UN_PARMI('VALE','VALE_I','VALE_C','RESUME','S_R','S_I'),),
16453            NOM             =SIMP(statut='o',typ='TXM'),
16454            INDICE          =SIMP(statut='f',typ='I'),
16455            NUM_OBJ         =SIMP(statut='f',typ='I'),
16456            S_R             =SIMP(statut='f',typ='R'),
16457            S_I             =SIMP(statut='f',typ='I'),
16458            RESUME          =SIMP(statut='f',typ='I'),
16459            VALE            =SIMP(statut='f',typ='R'),
16460            VALE_I          =SIMP(statut='f',typ='I'),
16461            VALE_C          =SIMP(statut='f',typ='C'),
16462            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
16463            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
16464            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
16465                                                             "NON_REGRESSION","AUTRE_ASTER",) ),
16466            VERSION         =SIMP(statut='f',typ='TXM' ),
16467          ),
16468 )  ;
16469 #& MODIF COMMANDE  DATE 06/03/2002   AUTEUR MCOURTOI M.COURTOIS
16470 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16471 # ======================================================================
16472 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16473 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16474 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16475 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16476 # (AT YOUR OPTION) ANY LATER VERSION.
16477 #
16478 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16479 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16480 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16481 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16482 #
16483 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16484 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16485 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16486 # ======================================================================
16487 # RESPONSABLE VABHHTS J.PELLET
16488 TEST_TABLE=PROC(nom="TEST_TABLE",op= 177,
16489                 docu="U4.92.03-c1",
16490          regles=(UN_PARMI('VALE','VALE_I','VALE_C', ),),
16491          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
16492 #  concept table à créer
16493          TABLE           =SIMP(statut='o',typ=table),
16494
16495          FILTRE          =FACT(statut='f',min=1,max='**',
16496            NOM_PARA        =SIMP(statut='o',typ='TXM' ),
16497            CRIT_COMP       =SIMP(statut='f',typ='TXM',defaut="EQ",
16498                                  into=("EQ","LT","GT","NE","LE","GE","VIDE",
16499                                        "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
16500            b_vale          =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
16501               regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
16502               VALE            =SIMP(statut='f',typ='R' ),
16503               VALE_I          =SIMP(statut='f',typ='I' ),
16504               VALE_C          =SIMP(statut='f',typ='C' ),
16505               VALE_K          =SIMP(statut='f',typ='TXM' ),),
16506
16507            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16508            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16509          ),
16510          TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
16511          NOM_PARA        =SIMP(statut='o',typ='TXM' ),
16512          VALE            =SIMP(statut='f',typ='R' ),
16513          VALE_I          =SIMP(statut='f',typ='I' ),
16514          VALE_C          =SIMP(statut='f',typ='C' ),
16515          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16516          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.2E-3 ),
16517          REFERENCE       =SIMP(statut='f',typ='TXM',
16518                                into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
16519          b_version       =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
16520              VERSION         =SIMP(statut='f',typ='TXM' ),
16521          ),
16522 )  ;
16523 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
16524 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16525 # ======================================================================
16526 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16527 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16528 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16529 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16530 # (AT YOUR OPTION) ANY LATER VERSION.
16531 #
16532 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16533 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16534 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16535 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16536 #
16537 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16538 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16539 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16540 # ======================================================================
16541 THER_LINEAIRE=OPER(nom="THER_LINEAIRE",op=25,sd_prod=evol_ther,docu="U4.54.01-g2",reentrant='f',
16542                    fr="Analyse thermique linéaire stationnaire ou transitoire",
16543          MODELE          =SIMP(statut='o',typ=modele),
16544          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
16545          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
16546          EXCIT           =FACT(statut='o',min=1,max='**',
16547            CHARGE          =SIMP(statut='o',typ=(char_ther,char_cine_ther)),
16548            FONC_MULT       =SIMP(statut='f',typ=fonction),
16549          ),
16550          INCREMENT       =FACT(statut='f',min=1,max=1,
16551            LIST_INST       =SIMP(statut='o',typ=listr8 ),
16552            NUME_INIT       =SIMP(statut='f',typ='I'),
16553            NUME_FIN        =SIMP(statut='f',typ='I'),
16554          ),
16555          TEMP_INIT       =FACT(statut='f',min=1,max=1,
16556            regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
16557            STATIONNAIRE    =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16558            EVOL_THER       =SIMP(statut='f',typ=evol_ther),
16559            CHAM_NO         =SIMP(statut='f',typ=cham_no_temp_r),
16560            VALE            =SIMP(statut='f',typ='R'),
16561            NUME_INIT       =SIMP(statut='f',typ='I'),
16562          ),
16563          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
16564                                fr="Liste des paramètres de sensibilité.",
16565                                ang="List of sensitivity parameters",
16566          ),
16567            SENS_INIT       =FACT(statut='f',min=1,max=1,
16568              regles=(EXCLUS('STATIONNAIRE','EVOL_THER', ),),
16569              STATIONNAIRE    =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16570              EVOL_THER       =SIMP(statut='f',typ=evol_ther),
16571              NUME_INIT       =SIMP(statut='f',typ='I'),
16572            ),
16573          SOLVEUR         =FACT(statut='d',min=1,max=1,
16574            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
16575            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
16576              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
16577            ),
16578            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
16579              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
16580            ),
16581            b_ldlt_mult      =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
16582                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
16583              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
16584              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
16585            ),
16586            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
16587              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
16588              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
16589              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
16590              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
16591              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
16592            ),
16593 #  A quoi sert eps
16594            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
16595          ),
16596          PARM_THETA      =SIMP(statut='f',typ='R',defaut= 0.57),
16597          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
16598            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST'),),
16599            LIST_ARCH       =SIMP(statut='f',typ=listis),
16600            LIST_INST       =SIMP(statut='f',typ=listr8),
16601            INST            =SIMP(statut='f',typ='R',max='**'),
16602            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16603            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
16604                                  into=("RELATIF","ABSOLU")),
16605            PAS_ARCH        =SIMP(statut='f',typ='I'),
16606            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',into=("VARI",)),
16607          ),
16608          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
16609          INFO            =SIMP(statut='f',typ='I',into=(1,2)),
16610 )  ;
16611 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
16612 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16613 # ======================================================================
16614 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16615 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16616 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16617 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16618 # (AT YOUR OPTION) ANY LATER VERSION.
16619 #
16620 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16621 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16622 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16623 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16624 #
16625 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16626 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16627 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16628 # ======================================================================
16629 THER_NON_LINE=OPER(nom="THER_NON_LINE",op= 186,sd_prod=evol_ther,docu="U4.54.02-e2",reentrant='f',
16630                    fr="Analyse thermique non linéaire stationnaire ou transitoire" ,
16631          MODELE          =SIMP(statut='o',typ=(modele) ),
16632          CHAM_MATER      =SIMP(statut='o',typ=(cham_mater) ),
16633          CARA_ELEM       =SIMP(statut='c',typ=(cara_elem) ),
16634          COMP_THER_NL    =FACT(statut='d',min=1,max='**',
16635            RELATION        =SIMP(statut='f',typ='TXM',defaut="THER_NL",
16636                                  into=("THER_NL",
16637                                        "THER_HYDR",
16638                                        "SECH_GRANGER",
16639                                        "SECH_MENSI",
16640                                        "SECH_BAZANT",
16641                                        "SECH_NAPPE"
16642                                        ) ),
16643       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
16644            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16645            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
16646            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16647          ),
16648          EVOL_THER_SECH  =SIMP(statut='f',typ=evol_ther),
16649          EXCIT           =FACT(statut='o',min=1,max='**',
16650            CHARGE          =SIMP(statut='o',typ=char_ther),
16651            FONC_MULT       =SIMP(statut='f',typ=fonction),
16652          ),
16653          INCREMENT       =FACT(statut='f',min=1,max=1,
16654            LIST_INST       =SIMP(statut='o',typ=listr8),
16655            NUME_INIT       =SIMP(statut='f',typ='I'),
16656            NUME_FIN        =SIMP(statut='f',typ='I'),
16657          ),
16658          TEMP_INIT       =FACT(statut='f',min=1,max=1,
16659            regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
16660            STATIONNAIRE    =SIMP(statut='f',typ='TXM',into=("OUI",)),
16661            EVOL_THER       =SIMP(statut='f',typ=evol_ther),
16662            CHAM_NO         =SIMP(statut='f',typ=cham_no_temp_r),
16663            VALE            =SIMP(statut='f',typ='R'),
16664            NUME_INIT       =SIMP(statut='f',typ='I'),
16665          ),
16666          NEWTON          =FACT(statut='d',min=1,max=1,
16667            REAC_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
16668            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16669            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 0 ),
16670          ),
16671          CONVERGENCE     =FACT(statut='d',min=1,max=1,
16672            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
16673            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
16674            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
16675          ),
16676          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
16677                                fr="Liste des paramètres de sensibilité.",
16678                                ang="List of sensitivity parameters",
16679          ),
16680          SOLVEUR         =FACT(statut='d',min=1,max=1,
16681            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
16682            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Parametres de la méthode multi frontale",
16683              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
16684            ),
16685            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Parametres de la méthode LDLT",
16686              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
16687            ),
16688            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
16689                                    fr="Parametres relatifs a la non inversibilité de la matrice a factorise",
16690              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
16691              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
16692            ),
16693            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Parametres de la méthode du gradient conjugué",
16694              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
16695              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
16696              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
16697              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
16698              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
16699            ),
16700 #  A quoi sert eps
16701            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
16702            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
16703          ),
16704          PARM_THETA      =SIMP(statut='f',typ='R',defaut= 0.57 ),
16705          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
16706            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST', ),),
16707            LIST_ARCH       =SIMP(statut='f',typ=(listis) ),
16708            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
16709            INST            =SIMP(statut='f',typ='R',max='**'),
16710            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16711            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
16712            PAS_ARCH        =SIMP(statut='f',typ='I'),
16713            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',into=("VARI",)),
16714          ),
16715          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
16716          OPTION          =SIMP(statut='f',typ='TXM',max='**',
16717                                into=("FLUX_ELGA_TEMP","FLUX_ELNO_TEMP") ),
16718          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
16719
16720 )  ;
16721 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
16722 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16723 # ======================================================================
16724 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16725 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16726 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16727 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16728 # (AT YOUR OPTION) ANY LATER VERSION.
16729 #
16730 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16731 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16732 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16733 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16734 #
16735 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16736 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16737 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16738 # ======================================================================
16739 THER_NON_LINE_MO=OPER(nom="THER_NON_LINE_MO",op= 171,sd_prod=evol_ther,
16740                      fr="Thermique non lineaire en repere mobile",
16741                      docu="U4.54.03-b",reentrant='f',
16742          MODELE          =SIMP(statut='o',typ=modele ),
16743          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
16744          CARA_ELEM       =SIMP(statut='c',typ=cara_elem ),
16745          EXCIT           =FACT(statut='o',min=1,max='**',
16746            CHARGE          =SIMP(statut='o',typ=char_ther ),
16747            FONC_MULT       =SIMP(statut='c',typ=fonction ),
16748          ),
16749          TEMP_INIT       =FACT(statut='f',min=1,max=1,
16750            EVOL_THER       =SIMP(statut='f',typ=evol_ther ),
16751            NUME_INIT       =SIMP(statut='f',typ='I',defaut= 0 ),
16752          ),
16753          CONVERGENCE     =FACT(statut='d',min=1,max=1,
16754            CRIT_TEMP_RELA  =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16755            CRIT_ENTH_RELA  =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
16756            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
16757            ARRET           =SIMP(statut='c',typ='TXM',defaut="OUI",into=("OUI","NON") ),
16758          ),
16759          SOLVEUR         =FACT(statut='d',min=1,max=1,
16760            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
16761            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
16762              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
16763            ),
16764            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
16765              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
16766            ),
16767            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
16768                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
16769              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
16770              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
16771            ),
16772            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
16773              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
16774              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
16775              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
16776              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
16777              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
16778            ),
16779            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
16780            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
16781          ),
16782          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
16783          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
16784 )  ;
16785
16786
16787