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_STA6.py,v 1.1.1.2 2002/09/02 17:27:12 eficas 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                     UIinfo={'groupes':('CACHE',)},
 341          regles=(AU_MOINS_UN('POUTRE','BARRE','COQUE','CABLE','DISCRET','MASSIF',
 342                              'ASSE_GRIL','GRILLE','AFFE_SECT','AFFE_FIBRE'),),
 343          MODELE          =SIMP(statut='o',typ=modele ),
 344          INFO            =SIMP(statut='f',typ='I', defaut= 1 ,into=(1,2) ),
 345          VERIF           =SIMP(statut='f',typ='TXM',max='**',into=("MAILLE","NOEUD") ),
 346
 347          POUTRE          =FACT(statut='f',min=01,max='**',
 348            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 349            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 350            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 351            SECTION         =SIMP(statut='o',typ='TXM' ,into=("GENERALE","RECTANGLE","CERCLE") ),
 352            CARA_SECT       =SIMP(statut='f',typ=(cara_pout) ),
 353            TUYAU_NCOU      =SIMP(statut='f',typ='I',min=1,max=10,defaut=3),
 354            TUYAU_NSEC      =SIMP(statut='f',typ='I',min=1,max=32,defaut=16),
 355            b_generale      =BLOC( condition = "SECTION=='GENERALE'",
 356              CARA            =SIMP(statut='o',typ='TXM',max='**',
 357                                  into=("A","IY","IZ","AY","AZ","EY","EZ","JX","RY","RZ","RT",
 358                                                            "AI","JG","IYR2","IZR2","A1",
 359                                        "IY1","IZ1","AY1","AZ1","EY1","EZ1","JX1","RY1",
 360                                        "RZ1","RT1","AI1","JG1","IYR21","IZR21","A2",
 361                                        "IY2","IZ2","AY2","AZ2","EY2","EZ2","JX2","RY2",
 362                                        "RZ2","RT2","AI2","JG2","IYR22","IZR22","H",
 363                                        "HZ","HY","EP","EPY","EPZ","H1","HZ1","HY1",
 364                                        "EP1","EPY1","EPZ1","H2","HZ2","HY2","EP2",
 365                                        "EPY2","EPZ2","R","R1","R2") ),
 366              VALE            =SIMP(statut='o',typ='R',max='**'),
 367              VARI_SECT       =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE",) ),
 368            ),
 369            b_rectangle     =BLOC( condition = "SECTION=='RECTANGLE'",
 370              CARA            =SIMP(statut='o',typ='TXM',max='**',
 371                                  into=("H","EP","HY","HZ","EPY","EPZ",
 372                                                            "H1","HZ1","HY1","EP1","EPY1","EPZ1",
 373                                                            "H2","HZ2","HY2","EP2","EPY2","EPZ2") ),
 374              VALE            =SIMP(statut='o',typ='R',max='**'),
 375              VARI_SECT       =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE","AFFINE"),defaut="HOMOTHETIQUE"),
 376            ),
 377            b_cercle        =BLOC( condition = "SECTION=='CERCLE'",
 378              CARA            =SIMP(statut='o',typ='TXM',max='**',
 379                                  into=("R","EP","R1","R2","EP1","EP2") ),
 380              VALE            =SIMP(statut='o',typ='R',max='**'),
 381              VARI_SECT       =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE",) ),
 382              MODI_METRIQUE   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
 383            ),
 384            FCX             =SIMP(statut='f',typ=(fonction) ),
 385          ),
 386
 387          BARRE           =FACT(statut='f',min=01,max='**',
 388            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 389            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 390            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 391            SECTION         =SIMP(statut='o',typ='TXM',into=("GENERALE","RECTANGLE","CERCLE") ),
 392            b_generale      =BLOC( condition = "SECTION=='GENERALE'",
 393              CARA            =SIMP(statut='o',typ='TXM',into=("A",) ),
 394              VALE            =SIMP(statut='o',typ='R' ),
 395            ),
 396            b_rectangle     =BLOC( condition = "SECTION=='RECTANGLE'",
 397              CARA            =SIMP(statut='o',typ='TXM',into=("H","HZ","HY","EPY","EPZ","EP"),max=6 ),
 398              VALE            =SIMP(statut='o',typ='R',max=6 ),
 399            ),
 400            b_cercle        =BLOC( condition = "SECTION=='CERCLE'",
 401              CARA            =SIMP(statut='o',typ='TXM',max=2,into=("R","EP") ),
 402              VALE            =SIMP(statut='o',typ='R',max=2 ),
 403            ),
 404            FCX             =SIMP(statut='f',typ=(fonction) ),
 405          ),
 406
 407          COQUE           =FACT(statut='f',min=01,max='**',
 408            regles=(UN_PARMI('MAILLE','GROUP_MA' ),
 409                    PRESENT_PRESENT( 'EXCENTREMENT','INER_ROTA' ),),
 410            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 411            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 412            EPAIS           =SIMP(statut='o',typ='R' ),
 413            ANGL_REP        =SIMP(statut='f',typ='R',min=2,max=2),
 414            A_CIS           =SIMP(statut='c',typ='R',defaut= 0.8333333E0),
 415            COEF_RIGI_DRZ   =SIMP(statut='f',typ='R',defaut= 1.0E-5 ),
 416            COQUE_NCOU      =SIMP(statut='f',typ='I',defaut= 1 ),
 417            EXCENTREMENT    =SIMP(statut='f',typ='R' ),
 418            INER_ROTA       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 419            MODI_METRIQUE   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
 420          ),
 421
 422          CABLE           =FACT(statut='f',min=01,max='**',
 423            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 424                    UN_PARMI('A','SECTION') ),
 425            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 426            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 427            N_INIT          =SIMP(statut='f',typ='R',defaut= 5000. ),
 428            A               =SIMP(statut='f',typ='R' ),
 429            SECTION         =SIMP(statut='f',typ='R' ),
 430            FCX             =SIMP(statut='f',typ=(fonction) ),
 431          ),
 432
 433          DISCRET         =FACT(statut='f',min=01,max='**',
 434            regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
 435            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 436            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 437            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 438            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 439            REPERE          =SIMP(statut='f',typ='TXM',into=("LOCAL","GLOBAL") ),
 440            AMOR_HYST       =SIMP(statut='f',typ='R' ),
 441            CARA            =SIMP(statut='o',typ='TXM',max='**',
 442                                  into=("K_T_D_N","K_T_D_L","K_TR_D_N","K_TR_D_L",
 443                                                            "K_T_N",  "K_T_L",  "K_TR_N",  "K_TR_L",
 444                                                                 "M_T_D_N","M_TR_D_N","M_T_N",
 445                                                            "M_T_L",  "M_TR_N",  "M_TR_L",
 446                                        "A_T_D_N","A_TR_D_N","A_T_D_L","A_TR_D_L",
 447                                                            "A_T_N",  "A_T_L",   "A_TR_N", "A_TR_L") ),
 448            VALE            =SIMP(statut='o',typ='R',max='**'),
 449          ),
 450
 451          ORIENTATION     =FACT(statut='f',min=01,max='**',
 452            regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO' ),),
 453            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 454            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 455            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 456            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 457            CARA            =SIMP(statut='o',typ='TXM',
 458                                  into=("VECT_Y","ANGL_VRIL","VECT_X_Y","ANGL_NAUT","GENE_TUYAU") ),
 459            VALE            =SIMP(statut='o',typ='R',max='**'),
 460            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-4 ),
 461            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
 462          ),
 463
 464          DEFI_ARC        =FACT(statut='f',min=01,max='**',
 465            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 466                    UN_PARMI('ORIE_ARC','CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE',
 467                             'POIN_TANG','NOEUD_POIN_TANG','GROUP_NO_POIN_TG'),
 468                    PRESENT_PRESENT('ORIE_ARC','RAYON'),
 469                    EXCLUS('COEF_FLEX','COEF_FLEX_XY'),
 470                    EXCLUS('COEF_FLEX','COEF_FLEX_XZ'),
 471                    EXCLUS('INDI_SIGM','INDI_SIGM_XY'),
 472                    EXCLUS('INDI_SIGM','INDI_SIGM_XZ'),
 473                    PRESENT_PRESENT('COEF_FLEX_XY','COEF_FLEX_XZ'),
 474                    PRESENT_PRESENT('INDI_SIGM_XY','INDI_SIGM_XZ'),),
 475            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 476            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 477            ORIE_ARC        =SIMP(statut='f',typ='R'),
 478            CENTRE          =SIMP(statut='f',typ='R',max='**'),
 479            NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=1),
 480            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno,max=1),
 481            POIN_TANG       =SIMP(statut='f',typ='R',max='**'),
 482            NOEUD_POIN_TANG =SIMP(statut='f',typ=no,max=1),
 483            GROUP_NO_POIN_TG=SIMP(statut='f',typ=grno,max=1),
 484            RAYON           =SIMP(statut='f',typ='R'),
 485            COEF_FLEX       =SIMP(statut='f',typ='R'),
 486            INDI_SIGM       =SIMP(statut='f',typ='R'),
 487            COEF_FLEX_XY    =SIMP(statut='f',typ='R'),
 488            INDI_SIGM_XY    =SIMP(statut='f',typ='R'),
 489            COEF_FLEX_XZ    =SIMP(statut='f',typ='R'),
 490            INDI_SIGM_XZ    =SIMP(statut='f',typ='R'),
 491            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
 492            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
 493          ),
 494
 495          MASSIF          =FACT(statut='f',min=01,max='**',
 496            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 497                    UN_PARMI('ANGL_REP','ANGL_AXE'),
 498                    EXCLUS('ANGL_REP','ANGL_AXE'),
 499                    EXCLUS('ANGL_REP','ORIG_AXE'),
 500                    PRESENT_PRESENT('ANGL_AXE','ORIG_AXE'), ),
 501            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 502            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 503            ANGL_REP        =SIMP(statut='f',typ='R',max=3),
 504            ANGL_AXE        =SIMP(statut='f',typ='R',max=2),
 505            ORIG_AXE        =SIMP(statut='f',typ='R',max=3),
 506          ),
 507
 508          POUTRE_FLUI     =FACT(statut='f',min=01,max='**',
 509            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 510            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 511            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 512            B_T             =SIMP(statut='o',typ='R'),
 513            B_N             =SIMP(statut='o',typ='R'),
 514            B_TN            =SIMP(statut='o',typ='R',defaut= 0.E+0 ),
 515            A_FLUI          =SIMP(statut='o',typ='R'),
 516            A_CELL          =SIMP(statut='o',typ='R'),
 517            COEF_ECHELLE    =SIMP(statut='o',typ='R'),
 518          ),
 519
 520          GRILLE          =FACT(statut='f',min=01,max='**',
 521            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 522                    EXCLUS('ANGL_REP','ORIG_AXE'),
 523                    ENSEMBLE('ORIG_AXE','AXE')),
 524            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 525            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 526            SECTION_L       =SIMP(statut='o',typ='R'),
 527            ANGL_REP        =SIMP(statut='f',typ='R',max=2),
 528            ANGL_L          =SIMP(statut='f',typ='R'),
 529            POUR_CENT_L     =SIMP(statut='f',typ='R'),
 530            POUR_CENT_T     =SIMP(statut='f',typ='R'),
 531            EXCENTREMENT    =SIMP(statut='f',typ='R'),
 532            ORIG_AXE        =SIMP(statut='f',typ='R',max='**'),
 533            AXE             =SIMP(statut='f',typ='R',max='**'),
 534            COEF_RIGI_DRZ   =SIMP(statut='f',typ='R',defaut= 1.0E-10 ),
 535            GRILLE_NCOU     =SIMP(statut='f',typ='I',defaut= 1,min=1,max=1 ),
 536          ),
 537
 538          RIGI_PARASOL    =FACT(statut='f',min=01,max='**',
 539            regles=(UN_PARMI('COEF_GROUP','FONC_GROUP'),
 540                    UN_PARMI('COOR_CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),),
 541            GROUP_MA        =SIMP(statut='o',typ=ma,max='**'),
 542            FONC_GROUP      =SIMP(statut='f',typ=(fonction) ),
 543            COEF_GROUP      =SIMP(statut='f',typ='R',max='**'),
 544            REPERE          =SIMP(statut='f',typ='TXM',into=("LOCAL","GLOBAL") ),
 545            CARA            =SIMP(statut='o',typ='TXM',max='**',into=("K_TR_D_N","A_TR_D_N") ),
 546            VALE            =SIMP(statut='o',typ='R',max='**'),
 547            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno),
 548            NOEUD_CENTRE    =SIMP(statut='f',typ=no),
 549            COOR_CENTRE     =SIMP(statut='f',typ='R',max='**'),
 550          ),
 551
 552          ASSE_GRIL       =FACT(statut='f',min=01,max='**',
 553            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 554            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 555            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 556            CARA            =SIMP(statut='o',typ='TXM',max='**',
 557                                  into=("K_TR_D_N","K_TR_D_L_T","K_TR_D_L_N",) ),
 558            VALE            =SIMP(statut='o',typ='R',max='**'),
 559            PAS_T           =SIMP(statut='o',typ='R'),
 560            PAS_N           =SIMP(statut='o',typ='R'),
 561            ANGL_REP        =SIMP(statut='o',typ='R',max='**'),
 562            COEF_ECHELLE    =SIMP(statut='o',typ='R'),
 563          ),
 564
 565
 566          AFFE_SECT     =FACT(statut='f',min=1,max='**',
 567               regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
 568                       AU_MOINS_UN('TOUT_SECT','GROUP_MA_SECT','MAILLE_SECT'),
 569                       PRESENT_ABSENT('TOUT_SECT','GROUP_MA_SECT','MAILLE_SECT'),),
 570
 571               NOM             =SIMP(statut='f',typ='TXM'),
 572
 573               GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 574               MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 575
 576               TOUT_SECT         =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 577               GROUP_MA_SECT     =SIMP(statut='f',typ=grma,max='**'),
 578               MAILLE_SECT       =SIMP(statut='f',typ=ma,max='**'),
 579
 580               MAILLAGE_SECT     =SIMP(statut='o',typ=maillage),
 581               COOR_AXE_POUTRE    =SIMP(statut='o',typ='R',min=2,max=2),
 582          ),
 583
 584
 585          AFFE_FIBRE     =FACT(statut='f',min=1,max='**',
 586               regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
 587
 588               NOM             =SIMP(statut='f',typ='TXM'),
 589
 590               GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 591               MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 592
 593               CARA              =SIMP(statut='f',typ='TXM',defaut='SURFACE',into=('SURFACE','DIAMETRE',)),
 594               VALE              =SIMP(statut='o',typ='R',max='**'),
 595               COOR_AXE_POUTRE    =SIMP(statut='o',typ='R',min=2,max=2),
 596          ),
 597
 598
 599 ) ;
 600 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
 601 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 602 # ======================================================================
 603 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 604 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
 605 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
 606 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
 607 # (AT YOUR OPTION) ANY LATER VERSION.
 608 #
 609 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
 610 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
 611 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
 612 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
 613 #
 614 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
 615 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 616 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 617 # ======================================================================
 618 AFFE_CHAR_ACOU=OPER(nom="AFFE_CHAR_ACOU",op=  68,sd_prod=char_acou,
 619                     fr="Affectation de charges et conditions aux limites acoustiques constantes",
 620                     docu="U4.44.04-e",reentrant='n',
 621                     UIinfo={'groupes':('CALCUL','ACOU')},
 622          regles=(AU_MOINS_UN('PRES_IMPO','VITE_FACE','IMPE_FACE','LIAISON_UNIF' ),),
 623          MODELE          =SIMP(statut='o',typ=modele ),
 624          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
 625          PRES_IMPO       =FACT(statut='f',min=01,max='**',
 626            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
 627            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 628            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 629            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 630            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 631            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 632            PRES            =SIMP(statut='o',typ='C' ),
 633          ),
 634          VITE_FACE       =FACT(statut='f',min=01,max='**',
 635              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
 636                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
 637            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 638            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 639            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 640            VNOR            =SIMP(statut='o',typ='C' ),
 641          ),
 642          IMPE_FACE       =FACT(statut='f',min=01,max='**',
 643              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
 644                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
 645            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 646            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 647            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 648            IMPE            =SIMP(statut='o',typ='C' ),
 649          ),
 650          LIAISON_UNIF    =FACT(statut='f',min=01,max='**',
 651            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE' ),),
 652            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 653            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 654            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 655            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 656            DDL             =SIMP(statut='o',typ='TXM',max='**'),
 657          ),
 658 )  ;
 659 #& MODIF COMMANDE  DATE 21/06/2001   AUTEUR VABHHTS J.PELLET
 660 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 661 # ======================================================================
 662 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 663 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
 664 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
 665 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
 666 # (AT YOUR OPTION) ANY LATER VERSION.
 667 #
 668 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
 669 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
 670 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
 671 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
 672 #
 673 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
 674 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 675 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 676 # ======================================================================
 677 # RESPONSABLE VABHHTS J.PELLET
 678 def affe_char_cine_prod(MECA_IMPO,THER_IMPO,ACOU_IMPO,**args):
 679   if MECA_IMPO != None  : return char_cine_meca
 680   if THER_IMPO != None  : return char_cine_ther
 681   if ACOU_IMPO != None  : return char_cine_acou
 682   raise AsException("type de concept resultat non prevu")
 683
 684 AFFE_CHAR_CINE=OPER(nom="AFFE_CHAR_CINE",op= 101,sd_prod=affe_char_cine_prod
 685                     ,fr="Affectation de conditions aux limites cinématiques pour traitement sans dualisation",
 686                      docu="U4.44.03-e",reentrant='n',
 687          regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO','ACOU_IMPO'),
 688                  EXCLUS('MECA_IMPO','THER_IMPO'),
 689                  EXCLUS('MECA_IMPO','ACOU_IMPO'),
 690                  EXCLUS('THER_IMPO','ACOU_IMPO'),),
 691          MODELE          =SIMP(statut='o',typ=modele ),
 692          MECA_IMPO       =FACT(statut='f',min=01,max='**',
 693            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
 694                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','TEMP','PHI'),),
 695            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 696            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 697            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 698            DX              =SIMP(statut='f',typ='R' ),
 699            DY              =SIMP(statut='f',typ='R' ),
 700            DZ              =SIMP(statut='f',typ='R' ),
 701            DRX             =SIMP(statut='f',typ='R' ),
 702            DRY             =SIMP(statut='f',typ='R' ),
 703            DRZ             =SIMP(statut='f',typ='R' ),
 704            GRX             =SIMP(statut='f',typ='R' ),
 705            PRES            =SIMP(statut='f',typ='R' ),
 706            TEMP            =SIMP(statut='f',typ='R' ),
 707            PHI             =SIMP(statut='f',typ='R' ),
 708          ),
 709          THER_IMPO       =FACT(statut='f',min=01,max='**',
 710            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
 711                    AU_MOINS_UN('TEMP','TEMP_INF','TEMP_SUP'),),
 712            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 713            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 714            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 715            TEMP_SUP        =SIMP(statut='f',typ='R' ),
 716            TEMP            =SIMP(statut='f',typ='R' ),
 717            TEMP_INF        =SIMP(statut='f',typ='R' ),
 718          ),
 719          ACOU_IMPO       =FACT(statut='f',min=01,max='**',
 720            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD' ),),
 721            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 722            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 723            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 724            PRES            =SIMP(statut='o',typ='C' ),
 725          ),
 726          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 727 )  ;
 728 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
 729 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 730 # ======================================================================
 731 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 732 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
 733 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
 734 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
 735 # (AT YOUR OPTION) ANY LATER VERSION.
 736 #
 737 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
 738 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
 739 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
 740 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
 741 #
 742 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
 743 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 744 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 745 # ======================================================================
 746 def affe_char_cine_f_prod(MECA_IMPO,THER_IMPO,**args):
 747   if MECA_IMPO != None  : return char_cine_meca
 748   if THER_IMPO != None  : return char_cine_ther
 749   raise AsException("type de concept resultat non prevu")
 750
 751 AFFE_CHAR_CINE_F=OPER(nom="AFFE_CHAR_CINE_F",op= 108,sd_prod=affe_char_cine_f_prod
 752                     ,fr="Affectation de conditions aux limites cinématiques pour traitement sans dualisation",
 753                      docu="U4.44.03-e",reentrant='n',
 754          regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO'),
 755                  EXCLUS('MECA_IMPO','THER_IMPO'),),
 756          MODELE          =SIMP(statut='o',typ=modele ),
 757          MECA_IMPO       =FACT(statut='f',min=01,max='**',
 758            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
 759                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','TEMP','PHI'),),
 760            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 761            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 762            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 763            DX              =SIMP(statut='f',typ=fonction ),
 764            DY              =SIMP(statut='f',typ=fonction ),
 765            DZ              =SIMP(statut='f',typ=fonction ),
 766            DRX             =SIMP(statut='f',typ=fonction ),
 767            DRY             =SIMP(statut='f',typ=fonction ),
 768            DRZ             =SIMP(statut='f',typ=fonction ),
 769            GRX             =SIMP(statut='f',typ=fonction ),
 770            PRES            =SIMP(statut='f',typ=fonction ),
 771            TEMP            =SIMP(statut='f',typ=fonction ),
 772            PHI             =SIMP(statut='f',typ=fonction ),
 773          ),
 774          THER_IMPO       =FACT(statut='f',min=01,max='**',
 775            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
 776                    AU_MOINS_UN('TEMP','TEMP_INF','TEMP_SUP' ),),
 777            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 778            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 779            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 780            TEMP_SUP        =SIMP(statut='f',typ=fonction ),
 781            TEMP            =SIMP(statut='f',typ=fonction ),
 782            TEMP_INF        =SIMP(statut='f',typ=fonction ),
 783          ),
 784          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 785 )  ;
 786 #& MODIF COMMANDE  DATE 13/08/2002   AUTEUR ADBHHPM P.MASSIN
 787 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 788 # ======================================================================
 789 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 790 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
 791 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
 792 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
 793 # (AT YOUR OPTION) ANY LATER VERSION.
 794 #
 795 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
 796 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
 797 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
 798 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
 799 #
 800 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
 801 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 802 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 803 # ======================================================================
 804 # RESPONSABLE G8BHHXD X.DESROCHES
 805 AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca
 806                     ,fr="Affectation de charges et conditions aux limites mécaniques constantes",
 807                      docu="U4.44.01-g2",reentrant='n',
 808          regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
 809                              'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
 810                              'PRES_REP','FORCE_POUTRE','FORCE_COQUE','LIAISON_OBLIQUE',
 811                              'FORCE_ELEC','INTE_ELEC','PESANTEUR','ROTATION','IMPE_FACE',
 812                              'VITE_FACE','TEMP_CALCULEE','RELA_CINE_BP','EPSI_INIT','CONTACT',
 813                              'LIAISON_UNIL_NO','LIAISON_GROUP','LIAISON_UNIF','FLUX_THM_REP',
 814                              'LIAISON_SOLIDE','LIAISON_ELEM','ONDE_FLUI','PRES_CALCULEE',
 815                              'EPSA_CALCULEE','LIAISON_CHAMNO','VECT_ASSE','LIAISON_COQUE',
 816                              'LIAISON_MAIL','FORCE_TUYAU','SECH_CALCULEE','HYDR_CALCULEE',
 817                              'EFFE_FOND','EVOL_CHAR','ARLEQUIN'),
 818                  EXCLUS('PRES_CALCULEE','EVOL_CHAR'),
 819                  EXCLUS('LIAISON_UNIL_NO','CONTACT'),),
 820
 821          MODELE          =SIMP(statut='o',typ=(modele) ),
 822          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
 823          VERI_NORM       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
 824 #    A TERME PRES_CALCULEE N'EXISTERA PLUS
 825          EVOL_CHAR       =SIMP(statut='f',fr="Champ de pression issu d'un autre calcul",
 826                                typ=evol_char ),
 827          PRES_CALCULEE   =SIMP(statut='f',fr="Champ de pression issu d'un autre calcul",
 828                                typ=evol_char ),
 829          TEMP_CALCULEE   =SIMP(statut='f',fr="Champ de température issu d'un autre calcul",
 830                                typ=(evol_ther,cham_no_temp_r,carte_temp_r,carte_temp_f ) ),
 831          HYDR_CALCULEE   =SIMP(statut='f',fr="Champ d hydratation issu d'un autre calcul",
 832                                typ=evol_ther ),
 833          SECH_CALCULEE   =SIMP(statut='f',fr="Champ de séchage issu d'un autre calcul",
 834                                typ=(evol_ther,cham_no_temp_r,carte_temp_r,carte_temp_f ) ),
 835          EPSA_CALCULEE   =SIMP(statut='f',fr="Champ de déformation anélastique issu d'un autre calcul",
 836                                typ=evol_noli ),
 837          VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
 838
 839          ARLEQUIN        =FACT(statut='f',min=1,max='**',
 840            GROUP_MA_1     =SIMP(statut='o',typ=grma,max='**'),
 841            GROUP_MA_2     =SIMP(statut='o',typ=grma,max='**'),
 842            GROUP_MA_COLL  =SIMP(statut='o',typ=grma,max='**'),
 843            CARA_ELEM      =SIMP(statut='f',typ=(cara_elem) ),
 844            regles        =(UN_PARMI('POIDS_1','POIDS_2'),),
 845            POIDS_1       =SIMP(statut='f',typ='R'),
 846            POIDS_2       =SIMP(statut='f',typ='R'),
 847          ),
 848
 849          CONTACT         =FACT(statut='f',fr="Imposer du contact avec ou sans frottement",min=1,max='**',
 850            regles=(UN_PARMI('GROUP_MA_2','MAILLE_2'),),
 851            APPARIEMENT     =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
 852                                  into=("NON","NODAL","NODAL_SYME","MAIT_ESCL","MAIT_ESCL_SYME")),
 853            RECHERCHE       =SIMP(statut='f',typ='TXM',defaut="NOEUD_VOISIN",into=("NOEUD_BOUCLE","NOEUD_VOISIN")),
 854            LISSAGE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
 855            NORMALE         =SIMP(statut='f',typ='TXM',defaut="MAIT",into=("MAIT","MAIT_ESCL")),
 856            METHODE         =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
 857                                  into=("CONTRAINTE","LAGRANGIEN","PENALISATION","CONTINUE") ),
 858            PROJECTION      =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","QUADRATIQUE") ),
 859            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
 860            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
 861            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
 862            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
 863            b_active        =BLOC(condition = "METHODE == 'CONTRAINTE' ",
 864                                  fr="Paramètres de la méthode des contraintes actives (contact uniquement)",
 865                 regles=(EXCLUS('DIST_2','COEF_IMPO'),
 866                         EXCLUS('DIST_1','COEF_IMPO'),),
 867                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","PRES","TEMP")),
 868                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS",) ),
 869                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
 870                 b_act_reac      =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
 871                                  fr="Paramètre de la réactualisation géométrique",
 872                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
 873                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
 874                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
 875                 COEF_IMPO       =SIMP(statut='f',typ='R'),
 876                 COEF_MULT_2     =SIMP(statut='f',typ='R'),
 877                 VECT_NORM_2     =SIMP(statut='f',typ='R',max=3),
 878                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
 879                 DIST_1          =SIMP(statut='f',typ='R'),
 880                 DIST_2          =SIMP(statut='f',typ='R'),),
 881            b_lagrangien    =BLOC(condition = "METHODE == 'LAGRANGIEN' ",
 882                                  fr="Paramètres de la méthode Lagrangienne (contact avec ou sans frottement)",
 883                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
 884                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
 885                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
 886                 b_lag_reac      =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
 887                                  fr="Paramètre de la réactualisation géométrique",
 888                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
 889                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
 890                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
 891                 DIST_1          =SIMP(statut='f',typ='R'),
 892                 DIST_2          =SIMP(statut='f',typ='R'),
 893                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
 894                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
 895                      COULOMB         =SIMP(statut='o',typ='R',max=1),
 896                      COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut=0.E+0),
 897                      ),),
 898            b_penalisation       =BLOC(condition = "METHODE == 'PENALISATION' ",
 899                                       fr="Paramètres de la méthode pénalisée (contact avec ou sans frottement)",
 900                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
 901                 E_N             =SIMP(statut='f',typ='R'),
 902                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
 903                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
 904                 b_pen_reac      =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
 905                                  fr="Paramètre de la réactualisation géométrique",
 906                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
 907                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
 908                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
 909                 DIST_1          =SIMP(statut='f',typ='R'),
 910                 DIST_2          =SIMP(statut='f',typ='R'),
 911                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
 912                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
 913                      COULOMB         =SIMP(statut='o',typ='R',max=1),
 914                      E_T             =SIMP(statut='f',typ='R',
 915                                            fr="Active la pénalisation sur le frottement et définit le coefficient de pénalisation"),
 916                      COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut=0.E+0),
 917                      ),),
 918            b_continue      =BLOC(condition = "METHODE == 'CONTINUE' ",
 919                                  fr="Paramètres de la méthode continue (contact avec ou sans frottement)",
 920                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
 921                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
 922                 INTEGRATION     =SIMP(statut='f',typ='TXM',defaut="NOEUD",into=("GAUSS","NOEUD","SIMPSON","SIMPSON1","SIMPSON2")),
 923                 COEF_REGU_CONT  =SIMP(statut='f',typ='R',defaut=100.E+0),
 924                 MODL_AXIS       =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
 925                 DIRECTION_APPA  =SIMP(statut='f',typ='R',max=3),
 926                 ITER_GEOM_MAXI  =SIMP(statut='f',typ='I',defaut=2),
 927                 ITER_CONT_MAXI  =SIMP(statut='f',typ='I',defaut=30),
 928                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
 929                      COULOMB         =SIMP(statut='o',typ='R',max=1),
 930                      ITER_FROT_MAXI  =SIMP(statut='f',typ='I',defaut=2),
 931                      COEF_REGU_FROT  =SIMP(statut='f',typ='R',defaut=100.E+0),
 932                      SEUIL_INIT      =SIMP(statut='f',typ='I',defaut=0),),),
 933          ),
 934
 935         DDL_IMPO        =FACT(statut='f',min=1,max='**',
 936              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
 937                      AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
 938                                  'TEMP','PRE1','PRE2','UI2','UI3','VI2','VI3','WI2','WI3','UO2',
 939                                  'UO3','VO2','VO3','WO2','WO3','UI4','UI5','VI4','VI5','WI4',
 940                                  'WI5','UO4','UO5','VO4','VO5','WO4','WO5','UI6','UO6','VI6',
 941                                  'VO6','WI6','WO6','WO','WI1','WO1','GONF'),),
 942              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 943              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 944              NOEUD           =SIMP(statut='f',typ=no,max='**'),
 945              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 946              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 947              DX              =SIMP(statut='f',typ='R' ),
 948              DY              =SIMP(statut='f',typ='R' ),
 949              DZ              =SIMP(statut='f',typ='R' ),
 950              DRX             =SIMP(statut='f',typ='R' ),
 951              DRY             =SIMP(statut='f',typ='R' ),
 952              DRZ             =SIMP(statut='f',typ='R' ),
 953              GRX             =SIMP(statut='f',typ='R' ),
 954              PRES            =SIMP(statut='f',typ='R' ),
 955              PHI             =SIMP(statut='f',typ='R' ),
 956              TEMP            =SIMP(statut='f',typ='R' ),
 957              PRE1            =SIMP(statut='f',typ='R' ),
 958              PRE2            =SIMP(statut='f',typ='R' ),
 959              UI2             =SIMP(statut='f',typ='R' ),
 960              UI3             =SIMP(statut='f',typ='R' ),
 961              UI4             =SIMP(statut='f',typ='R' ),
 962              UI5             =SIMP(statut='f',typ='R' ),
 963              UI6             =SIMP(statut='f',typ='R' ),
 964              UO2             =SIMP(statut='f',typ='R' ),
 965              UO3             =SIMP(statut='f',typ='R' ),
 966              UO4             =SIMP(statut='f',typ='R' ),
 967              UO5             =SIMP(statut='f',typ='R' ),
 968              UO6             =SIMP(statut='f',typ='R' ),
 969              VI2             =SIMP(statut='f',typ='R' ),
 970              VI3             =SIMP(statut='f',typ='R' ),
 971              VI4             =SIMP(statut='f',typ='R' ),
 972              VI5             =SIMP(statut='f',typ='R' ),
 973              VI6             =SIMP(statut='f',typ='R' ),
 974              VO2             =SIMP(statut='f',typ='R' ),
 975              VO3             =SIMP(statut='f',typ='R' ),
 976              VO4             =SIMP(statut='f',typ='R' ),
 977              VO5             =SIMP(statut='f',typ='R' ),
 978              VO6             =SIMP(statut='f',typ='R' ),
 979              WI2             =SIMP(statut='f',typ='R' ),
 980              WI3             =SIMP(statut='f',typ='R' ),
 981              WI4             =SIMP(statut='f',typ='R' ),
 982              WI5             =SIMP(statut='f',typ='R' ),
 983              WI6             =SIMP(statut='f',typ='R' ),
 984              WO2             =SIMP(statut='f',typ='R' ),
 985              WO3             =SIMP(statut='f',typ='R' ),
 986              WO4             =SIMP(statut='f',typ='R' ),
 987              WO5             =SIMP(statut='f',typ='R' ),
 988              WO6             =SIMP(statut='f',typ='R' ),
 989              WO              =SIMP(statut='f',typ='R' ),
 990              WI1             =SIMP(statut='f',typ='R' ),
 991              WO1             =SIMP(statut='f',typ='R' ),
 992              GONF            =SIMP(statut='f',typ='R' ),
 993            ),
 994
 995          EFFE_FOND       =FACT(statut='f',fr="Imposer un effet de fond",min=1,max='**',
 996            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
 997            GROUP_MA_INT    =SIMP(statut='o',typ=grma,max='**'),
 998            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 999            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1000            PRES            =SIMP(statut='o',typ='R' ),
1001          ),
1002
1003          EPSI_INIT       =FACT(statut='f',fr="Appliquer un chargement de déformation initiale à un volume 3D ou 2D",
1004                                  min=1,max='**',
1005              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1006                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1007                      AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ','EPX',
1008                                  'KY','KZ','EXX','EYY','EXY','KXX','KYY','KXY'),),
1009              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1010              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1011              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1012              EPXX            =SIMP(statut='f',typ='R' ),
1013              EPYY            =SIMP(statut='f',typ='R' ),
1014              EPZZ            =SIMP(statut='f',typ='R' ),
1015              EPXY            =SIMP(statut='f',typ='R' ),
1016              EPXZ            =SIMP(statut='f',typ='R' ),
1017              EPYZ            =SIMP(statut='f',typ='R' ),
1018              EPX             =SIMP(statut='f',typ='R' ),
1019              KY              =SIMP(statut='f',typ='R' ),
1020              KZ              =SIMP(statut='f',typ='R' ),
1021              EXX             =SIMP(statut='f',typ='R' ),
1022              EYY             =SIMP(statut='f',typ='R' ),
1023              EXY             =SIMP(statut='f',typ='R' ),
1024              KXX             =SIMP(statut='f',typ='R' ),
1025              KYY             =SIMP(statut='f',typ='R' ),
1026              KXY             =SIMP(statut='f',typ='R' ),
1027            ),
1028
1029            FACE_IMPO       =FACT(statut='f',min=1,max='**',
1030              regles=(UN_PARMI('GROUP_MA','MAILLE',),
1031                      AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
1032                                  'TEMP','PRE1','PRE2','DNOR','DTAN'),
1033                      EXCLUS('DNOR','DX'),
1034                      EXCLUS('DNOR','DY'),
1035                      EXCLUS('DNOR','DZ'),
1036                      EXCLUS('DNOR','DRX'),
1037                      EXCLUS('DNOR','DRY'),
1038                      EXCLUS('DNOR','DRZ'),
1039                      EXCLUS('DTAN','DX'),
1040                      EXCLUS('DTAN','DY'),
1041                      EXCLUS('DTAN','DZ'),
1042                      EXCLUS('DTAN','DRX'),
1043                      EXCLUS('DTAN','DRY'),
1044                      EXCLUS('DTAN','DRZ'),),
1045 #  rajout d'un mot clé REPERE :/ LOCAL /GLOBAL
1046              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1047              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1048              DX              =SIMP(statut='f',typ='R' ),
1049              DY              =SIMP(statut='f',typ='R' ),
1050              DZ              =SIMP(statut='f',typ='R' ),
1051              DRX             =SIMP(statut='f',typ='R' ),
1052              DRY             =SIMP(statut='f',typ='R' ),
1053              DRZ             =SIMP(statut='f',typ='R' ),
1054              DNOR            =SIMP(statut='f',typ='R' ),
1055              DTAN            =SIMP(statut='f',typ='R' ),
1056              GRX             =SIMP(statut='f',typ='R' ),
1057              PRES            =SIMP(statut='f',typ='R' ),
1058              PHI             =SIMP(statut='f',typ='R' ),
1059              TEMP            =SIMP(statut='f',typ='R' ),
1060              PRE1            =SIMP(statut='f',typ='R' ),
1061              PRE2            =SIMP(statut='f',typ='R' ),
1062            ),
1063
1064          FLUX_THM_REP    =FACT(statut='f',min=1,max='**',
1065              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1066                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1067                      AU_MOINS_UN('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
1068              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1069              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1070              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1071              FLUN            =SIMP(statut='f',typ='R' ),
1072              FLUN_HYDR1      =SIMP(statut='f',typ='R' ),
1073              FLUN_HYDR2      =SIMP(statut='f',typ='R' ),
1074            ),
1075
1076          FORCE_ARETE     =FACT(statut='f',fr="Appliquer des forces linéiques à une arete d élément volumique ou de coque",
1077                                  min=1,max='**',
1078              regles=(AU_MOINS_UN('GROUP_MA','MAILLE',),
1079                      AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
1080              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1081              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1082              FX              =SIMP(statut='f',typ='R' ),
1083              FY              =SIMP(statut='f',typ='R' ),
1084              FZ              =SIMP(statut='f',typ='R' ),
1085              MX              =SIMP(statut='f',typ='R' ),
1086              MY              =SIMP(statut='f',typ='R' ),
1087              MZ              =SIMP(statut='f',typ='R' ),
1088            ),
1089
1090            FORCE_COQUE     =FACT(statut='f',fr="Appliquer des forces surfaciques sur des coques",min=1,max='**',
1091              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1092                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1093                      AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
1094                      PRESENT_ABSENT('FX','PRES','F1','F2','F3','MF1','MF2'),
1095                      PRESENT_ABSENT('FY','PRES','F1','F2','F3','MF1','MF2'),
1096                      PRESENT_ABSENT('FZ','PRES','F1','F2','F3','MF1','MF2'),
1097                      PRESENT_ABSENT('MX','PRES','F1','F2','F3','MF1','MF2'),
1098                      PRESENT_ABSENT('MY','PRES','F1','F2','F3','MF1','MF2'),
1099                      PRESENT_ABSENT('MZ','PRES','F1','F2','F3','MF1','MF2'),
1100                      PRESENT_ABSENT('F1','FX','FY','FZ','MX','MY','MZ','PRES'),
1101                      PRESENT_ABSENT('F2','FX','FY','FZ','MX','MY','MZ','PRES'),
1102                      PRESENT_ABSENT('F3','FX','FY','FZ','MX','MY','MZ','PRES'),
1103                      PRESENT_ABSENT('MF1','FX','FY','FZ','MX','MY','MZ','PRES'),
1104                      PRESENT_ABSENT('MF2','FX','FY','FZ','MX','MY','MZ','PRES'),
1105                      PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
1106 #  rajour d'un mot clé REPERE :/ LOCAL /GLOBAL
1107              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1108              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1109              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1110
1111                FX              =SIMP(statut='f',typ='R' ),
1112                FY              =SIMP(statut='f',typ='R' ),
1113                FZ              =SIMP(statut='f',typ='R' ),
1114                MX              =SIMP(statut='f',typ='R' ),
1115                MY              =SIMP(statut='f',typ='R' ),
1116                MZ              =SIMP(statut='f',typ='R' ),
1117
1118                F1              =SIMP(statut='f',typ='R' ),
1119                F2              =SIMP(statut='f',typ='R' ),
1120                F3              =SIMP(statut='f',typ='R' ),
1121                MF1             =SIMP(statut='f',typ='R' ),
1122                MF2             =SIMP(statut='f',typ='R' ),
1123
1124              PRES            =SIMP(statut='f',typ='R' ),
1125              PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL",) ),
1126            ),
1127
1128          FORCE_CONTOUR   =FACT(statut='f',fr="Appliquer des forces linéiques au bord d'un domaine 2D ou AXIS_FOURIER",
1129                                  min=1,max='**',
1130              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1131                      AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1132              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1133              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1134              FX              =SIMP(statut='f',typ='R' ),
1135              FY              =SIMP(statut='f',typ='R' ),
1136              FZ              =SIMP(statut='f',typ='R' ),
1137              MX              =SIMP(statut='f',typ='R' ),
1138              MY              =SIMP(statut='f',typ='R' ),
1139              MZ              =SIMP(statut='f',typ='R' ),
1140            ),
1141
1142          FORCE_ELEC      =FACT(statut='f',
1143                                  fr="Force de Laplace due à la présence d'un conducteur rectiligne secondaire non maillé",
1144                                  min=1,max='**',
1145              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1146                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1147                      AU_MOINS_UN('FX','FY','FZ','POSITION'),
1148                      EXCLUS('FX','POSITION'),
1149                      EXCLUS('FY','POSITION'),
1150                      EXCLUS('FZ','POSITION'),),
1151 #  trop de regles : les blocs conditionnels permettent d en suprimer
1152              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1153              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1154              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1155
1156              FX              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1157              FY              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1158              FZ              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1159
1160              POSITION        =SIMP(statut='f',typ='TXM',fr="Direction prédéfinie",into=("PARA","INFI","FINI",) ),
1161              b_para     =BLOC ( condition = "POSITION == 'PARA'",
1162                regles=(UN_PARMI('TRANS','DIST'),),
1163                TRANS           =SIMP(statut='f',typ='R',max=3),
1164                DIST            =SIMP(statut='f',typ='R' ),
1165                b_point2        =BLOC ( condition = "DIST != None",
1166                  POINT2           =SIMP(statut='o',typ='R',max=3),
1167                ),
1168              ),
1169              b_fini_infi     =BLOC ( condition = "(POSITION == 'FINI') or (POSITION == 'INFI')",
1170                POINT1          =SIMP(statut='o',typ='R',max=3),
1171                POINT2          =SIMP(statut='o',typ='R',max=3),
1172              ),
1173            ),
1174
1175          FORCE_FACE      =FACT(statut='f',fr="Appliquer des forces surfaciques sur une face d'éléments volumiques",
1176                                  min=1,max='**',
1177              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1178                      AU_MOINS_UN('FX','FY','FZ'),),
1179              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1180              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1181              FX              =SIMP(statut='f',typ='R' ),
1182              FY              =SIMP(statut='f',typ='R' ),
1183              FZ              =SIMP(statut='f',typ='R' ),
1184            ),
1185
1186          FORCE_INTERNE   =FACT(statut='f',fr="Appliquer des forces volumiques (2D ou 3D) à un domaine volumique",
1187                                  min=1,max='**',
1188              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1189                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1190                      AU_MOINS_UN('FX','FY','FZ' ),),
1191              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1192              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1193              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1194              FX              =SIMP(statut='f',typ='R' ),
1195              FY              =SIMP(statut='f',typ='R' ),
1196              FZ              =SIMP(statut='f',typ='R' ),
1197            ),
1198
1199          IMPE_FACE       =FACT(statut='f',fr="Appliquer une impédance acoustique à une face",min=1,max='**',
1200              regles=(AU_MOINS_UN('GROUP_MA','MAILLE' ),),
1201              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1202              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1203              IMPE            =SIMP(statut='o',typ='R' ),
1204            ),
1205
1206          FORCE_NODALE    =FACT(statut='f',fr="Imposer des forces nodales en des noeuds",min=1,max='**',
1207            regles=(AU_MOINS_UN('GROUP_NO','NOEUD'),
1208                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
1209            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1210            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1211            FX              =SIMP(statut='f',typ='R' ),
1212            FY              =SIMP(statut='f',typ='R' ),
1213            FZ              =SIMP(statut='f',typ='R' ),
1214            MX              =SIMP(statut='f',typ='R' ),
1215            MY              =SIMP(statut='f',typ='R' ),
1216            MZ              =SIMP(statut='f',typ='R' ),
1217            ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
1218          ),
1219
1220         FORCE_POUTRE    =FACT(statut='f',fr="Appliquer des forces linéiques sur des poutres",min=1,max='**',
1221              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1222                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1223                      AU_MOINS_UN('FX','FY','FZ','N','VY','VZ'),
1224                      PRESENT_ABSENT('FX','N','VY','VZ'),
1225                      PRESENT_ABSENT('FY','N','VY','VZ'),
1226                      PRESENT_ABSENT('FZ','N','VY','VZ'),
1227                      PRESENT_ABSENT('N','FX','FY','FZ'),
1228                      PRESENT_ABSENT('VY','FX','FY','FZ'),
1229                      PRESENT_ABSENT('VZ','FX','FY','FZ'),),
1230              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1231              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1232              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1233              TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE",) ),
1234 #  rajour d'un mot clé REPERE :/ LOCAL /GLOBAL
1235                FX              =SIMP(statut='f',typ='R' ),
1236                FY              =SIMP(statut='f',typ='R' ),
1237                FZ              =SIMP(statut='f',typ='R' ),
1238
1239                N               =SIMP(statut='f',typ='R' ),
1240                VY              =SIMP(statut='f',typ='R' ),
1241                VZ              =SIMP(statut='f',typ='R' ),
1242
1243            ),
1244
1245          FORCE_TUYAU     =FACT(statut='f',fr="imposer une pression dans un élément TUYAU",min=1,max='**',
1246              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1247                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
1248              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1249              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1250              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1251              PRES            =SIMP(statut='f',typ='R' ),
1252            ),
1253
1254         INTE_ELEC       =FACT(statut='f',fr="Force de Laplace due à la présence d'un conducteur non rectiligne secondaire",
1255                                  min=1,max='**',
1256              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1257                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1258                      AU_MOINS_UN('GROUP_MA_2','MAILLE_2','TRANS','SYME'),
1259                      EXCLUS('TRANS','SYME'),),
1260              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1261              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1262              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1263              GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1264              MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1265              TRANS           =SIMP(statut='f',typ='R',max='**'),
1266              SYME            =SIMP(statut='f',typ='R',max='**'),
1267            ),
1268
1269          LIAISON_CHAMNO  =FACT(statut='f',fr="définir une relation linéaire entre tous les ddls d'un concept cham_nno",
1270                                  min=1,max='**',
1271 #  type de cham_no CO()
1272              CHAM_NO         =SIMP(statut='o',typ=cham_no), #CO()
1273              COEF_IMPO       =SIMP(statut='o',typ='R' ),
1274              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1275            ),
1276
1277            LIAISON_COQUE   =FACT(statut='f',min=1,max='**',
1278              GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1279              MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1280              GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
1281              NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
1282              GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1283              MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1284              GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
1285              NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1286              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1287            ),
1288            LIAISON_DDL     =FACT(statut='f',fr="Définir une relation linéaire entre des ddls de deux ou plusieurs noeuds",
1289                                  min=1,max='**',
1290              regles=(UN_PARMI('GROUP_NO','NOEUD'),),
1291              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1292              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1293              DDL             =SIMP(statut='o',typ='TXM',max='**'),
1294              COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
1295              COEF_IMPO       =SIMP(statut='o',typ='R' ),
1296            ),
1297
1298            LIAISON_ELEM    =FACT(statut='f',fr="Raccorder une poutre à une partie massive 3D ou une coque", min=1,max='**',
1299              regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
1300                      UN_PARMI('GROUP_NO_2','NOEUD_2'),),
1301              OPTION          =SIMP(statut='o',typ='TXM',into=("3D_TUYAU","3D_POU","COQ_POU","COQ_TUYAU") ),
1302              GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1303              MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1304              GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
1305              NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1306              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1307              CARA_ELEM       =SIMP(statut='f',typ=(cara_elem) ),
1308              AXE_POUTRE      =SIMP(statut='f',typ='R',max=3),
1309              ANGL_MAX        =SIMP(statut='f',typ='R',defaut= 1. ),
1310            ),
1311
1312            LIAISON_GROUP   =FACT(statut='f',fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1313                                  min=1,max='**',
1314              regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1315                      UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1316                      EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1317                      EXCLUS('GROUP_MA_1','NOEUD_2'),
1318                      EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1319                      EXCLUS('GROUP_NO_1','MAILLE_2'),
1320                      EXCLUS('MAILLE_1','GROUP_NO_2'),
1321                      EXCLUS('MAILLE_1','NOEUD_2'),
1322                      EXCLUS('NOEUD_1','GROUP_MA_2'),
1323                      EXCLUS('NOEUD_1','MAILLE_2'),
1324                      EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1325
1326                GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1327                MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1328                GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1329                MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1330                GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
1331                NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
1332                GROUP_NO_2      =SIMP(statut='f',typ=no,max='**'),
1333                NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1334
1335              SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1336              SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1337              DDL_1           =SIMP(statut='o',typ='TXM',max='**'),
1338              COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
1339              DDL_2           =SIMP(statut='o',typ='TXM',max='**'),
1340              COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
1341              COEF_IMPO       =SIMP(statut='o',typ='R' ),
1342              SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1343              TRAN            =SIMP(statut='f',typ='R',max=3),
1344              ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
1345              CENTRE          =SIMP(statut='f',typ='R',max=3),
1346            ),
1347
1348            LIAISON_OBLIQUE =FACT(statut='f',fr="Appliquer à des noeuds une valeur de déplacement dans un repere oblique",
1349                                  min=1,max='**',
1350              regles=(UN_PARMI('GROUP_NO','NOEUD'),
1351                      UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
1352              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1353              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1354              ANGL_NAUT       =SIMP(statut='o',typ='R',max=3),
1355              DX              =SIMP(statut='f',typ='R' ),
1356              DY              =SIMP(statut='f',typ='R' ),
1357              DZ              =SIMP(statut='f',typ='R' ),
1358              DRX             =SIMP(statut='f',typ='R' ),
1359              DRY             =SIMP(statut='f',typ='R' ),
1360              DRZ             =SIMP(statut='f',typ='R' ),
1361            ),
1362
1363            LIAISON_SOLIDE  =FACT(statut='f',fr="Modéliser une partie indéformable d'une structure",min=1,max='**',
1364              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1365              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1366              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1367              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1368              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1369              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1370            ),
1371
1372            LIAISON_UNIF    =FACT(statut='f',fr="Imposer une meme valeur (inconnue) à des ddls d'un emsemble de noeuds",
1373                                  min=1,max='**',
1374              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1375              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1376              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1377              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1378              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1379              DDL             =SIMP(statut='o',typ='TXM',max='**'),
1380            ),
1381
1382          LIAISON_UNIL_NO =FACT(statut='f',min=1,max='**',
1383            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
1384                    UN_PARMI('GROUP_MA_2','MAILLE_2'),),
1385            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),# CO()
1386            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),# CO()
1387            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),# CO()
1388            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),# CO()
1389            SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1390            TRAN            =SIMP(statut='f',typ='R',max=3 ),
1391            ANGL_NAUT       =SIMP(statut='f',typ='R',max=3 ),
1392            CENTRE          =SIMP(statut='f',typ='R',max=3 ),
1393            ANGLE_MAX       =SIMP(statut='f',typ='R' ),
1394            VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
1395            FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",
1396                                  into=("SANS","TRESCA","COULOMB") ),
1397            METHODE         =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
1398                                  into=("CONTRAINTE","LAGRANGIEN","PENALISATION") ),
1399            COULOMB         =SIMP(statut='f',typ='R' ),
1400            TRESCA          =SIMP(statut='f',typ='R' ),
1401            E_T             =SIMP(statut='f',typ='R' ),
1402            COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1403            CONTACT         =SIMP(statut='f',typ='TXM',into=("MAINTENU",) ),
1404            JEU             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1405          ),
1406
1407            LIAISON_MAIL    =FACT(statut='f',min=1,max='**',
1408              regles=(AU_MOINS_UN('GROUP_MA_MAIT','MAILLE_MAIT'),
1409                      AU_MOINS_UN('GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL','NOEUD_ESCL'),
1410                      PRESENT_PRESENT('DDL_MAIT','DDL_ESCL'),),
1411               GROUP_MA_MAIT   =SIMP(statut='f',typ=grma,max='**'),
1412               MAILLE_MAIT     =SIMP(statut='f',typ=ma,max='**'),
1413               GROUP_MA_ESCL   =SIMP(statut='f',typ=grma,max='**'),
1414               MAILLE_ESCL     =SIMP(statut='f',typ=ma,max='**'),
1415               GROUP_NO_ESCL   =SIMP(statut='f',typ=grno,max='**'),
1416               NOEUD_ESCL      =SIMP(statut='f',typ=no,max='**'),
1417               TRAN            =SIMP(statut='f',typ='R',max=3 ),
1418               ANGL_NAUT       =SIMP(statut='f',typ='R',max=3 ),
1419               CENTRE          =SIMP(statut='f',typ='R',max=3 ),
1420               DDL_MAIT        =SIMP(statut='f',typ='TXM',into=("DNOR",) ),
1421               DDL_ESCL        =SIMP(statut='f',typ='TXM',into=("DNOR",) ),
1422          ),
1423
1424          ONDE_FLUI       =FACT(statut='f',fr="Appliquer une amplitude de pression d onde incidente",min=1,max='**',
1425              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1426              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1427              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1428              PRES            =SIMP(statut='o',typ='R' ),
1429            ),
1430
1431          PRES_REP        =FACT(statut='f',fr="Appliquer une pression à un domaine de milieu continu 2D ou 3D",
1432                                  min=1,max='**',
1433              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1434                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1435                      AU_MOINS_UN('PRES','CISA_2D' ),),
1436              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1437              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1438              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1439              PRES            =SIMP(statut='f',typ='R' ),
1440              CISA_2D         =SIMP(statut='f',typ='R' ),
1441            ),
1442
1443          PESANTEUR       =SIMP(statut='f',typ='R',fr="Champ de pesanteur",min=4,max=4),
1444
1445          RELA_CINE_BP    =FACT(statut='f',min=1,max='**',
1446            CABLE_BP        =SIMP(statut='o',typ=cabl_precont ),
1447            SIGM_BPEL       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1448            RELA_CINE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1449          ),
1450
1451         ROTATION        =SIMP(statut='f',typ='R',fr="Champ de rotation",min=4,max=4),
1452          b_rotation      =BLOC ( condition = "ROTATION != None",
1453            CENTRE          =SIMP(statut='f',typ='R',defaut=(0.,0.,0.),max=3),),
1454
1455          VITE_FACE       =FACT(statut='f',fr="Imposer des vitesses acoustiquesnormales à une face",min=1,max='**',
1456              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1457              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1458              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1459              VNOR            =SIMP(statut='o',typ='R' ),
1460            ),
1461          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1462 )  ;
1463 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
1464 #            CONFIGURATION MANAGEMENT OF EDF VERSION
1465 # ======================================================================
1466 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
1467 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1468 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1469 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1470 # (AT YOUR OPTION) ANY LATER VERSION.
1471 #
1472 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1473 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1474 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1475 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1476 #
1477 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1478 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1479 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1480 # ======================================================================
1481 # RESPONSABLE G8BHHXD X.DESROCHES
1482 AFFE_CHAR_MECA_C=OPER(nom="AFFE_CHAR_MECA_C",op=   7,sd_prod=char_meca,
1483                      fr="Affectation de charges et conditions aux limites mécaniques complexes",
1484                      docu="U4.44.05-d2",reentrant='n',
1485          regles=(AU_MOINS_UN('DDL_IMPO','FORCE_POUTRE','LIAISON_DDL', ),),
1486          MODELE          =SIMP(statut='o',typ=modele ),
1487          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1488          DDL_IMPO        =FACT(statut='f',min=01,max='**',
1489            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
1490                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI', ),),
1491            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1492            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1493            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1494            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1495            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1496            DX              =SIMP(statut='f',typ='C' ),
1497            DY              =SIMP(statut='f',typ='C' ),
1498            DZ              =SIMP(statut='f',typ='C' ),
1499            DRX             =SIMP(statut='f',typ='C' ),
1500            DRY             =SIMP(statut='f',typ='C' ),
1501            DRZ             =SIMP(statut='f',typ='C' ),
1502            GRX             =SIMP(statut='f',typ='C' ),
1503            PRES            =SIMP(statut='f',typ='C' ),
1504            PHI             =SIMP(statut='f',typ='C' ),
1505          ),
1506          FORCE_POUTRE    =FACT(statut='f',min=01,max='**',
1507            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1508                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1509                    AU_MOINS_UN('FX','FY','FZ','N','VY','VZ',),
1510                    PRESENT_ABSENT('FX','N','VY','VZ',),
1511                    PRESENT_ABSENT('FY','N','VY','VZ',),
1512                    PRESENT_ABSENT('FZ','N','VY','VZ',),
1513                    PRESENT_ABSENT('N','FX','FY','FZ',),
1514                    PRESENT_ABSENT('VY', 'FX','FY','FZ',),
1515                    PRESENT_ABSENT('VZ','FX','FY','FZ', ),),
1516            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1517            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1518            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1519            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE") ),
1520            FX              =SIMP(statut='f',typ='C' ),
1521            FY              =SIMP(statut='f',typ='C' ),
1522            FZ              =SIMP(statut='f',typ='C' ),
1523            N               =SIMP(statut='f',typ='C' ),
1524            VY              =SIMP(statut='f',typ='C' ),
1525            VZ              =SIMP(statut='f',typ='C' ),
1526          ),
1527          LIAISON_DDL     =FACT(statut='f',min=01,max='**',
1528            regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
1529            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1530            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1531            DDL             =SIMP(statut='o',typ='TXM',max='**'),
1532            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
1533            COEF_IMPO       =SIMP(statut='o',typ='C' ),
1534          ),
1535          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1536 )  ;
1537 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
1538 #            CONFIGURATION MANAGEMENT OF EDF VERSION
1539 # ======================================================================
1540 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
1541 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1542 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1543 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1544 # (AT YOUR OPTION) ANY LATER VERSION.
1545 #
1546 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1547 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1548 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1549 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1550 #
1551 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1552 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1553 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1554 # ======================================================================
1555 # RESPONSABLE G8BHHXD X.DESROCHES
1556 AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
1557                       fr="Affectation de charges et conditions aux limites mécaniques fonction d une grandeur",
1558                       docu="U4.44.01-g3",reentrant='n',
1559         regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
1560                             'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
1561                             'PRES_REP','FORCE_POUTRE','VITE_FACE','IMPE_FACE','ONDE_PLANE',
1562                             'LIAISON_OBLIQUE','EPSI_INIT','LIAISON_GROUP','LIAISON_UNIF',
1563                             'LIAISON_SOLIDE','FORCE_COQUE','LIAISON_COQUE','FORCE_TUYAU',
1564                             'CONTACT'),),
1565          MODELE          =SIMP(statut='o',typ=modele ),
1566          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1567          VERI_NORM       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1568
1569          DDL_IMPO        =FACT(statut='f',min=1,max='**',
1570            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
1571                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
1572                                'TEMP','PRE1','PRE2'),),
1573            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1574            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1575            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1576            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1577            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1578            DX              =SIMP(statut='f',typ=(fonction) ),
1579            DY              =SIMP(statut='f',typ=(fonction) ),
1580            DZ              =SIMP(statut='f',typ=(fonction) ),
1581            DRX             =SIMP(statut='f',typ=(fonction) ),
1582            DRY             =SIMP(statut='f',typ=(fonction) ),
1583            DRZ             =SIMP(statut='f',typ=(fonction) ),
1584            GRX             =SIMP(statut='f',typ=(fonction) ),
1585            PRES            =SIMP(statut='f',typ=(fonction) ),
1586            PHI             =SIMP(statut='f',typ=(fonction) ),
1587            TEMP            =SIMP(statut='f',typ=(fonction) ),
1588            PRE1            =SIMP(statut='f',typ=(fonction) ),
1589            PRE2            =SIMP(statut='f',typ=(fonction) ),
1590          ),
1591          LIAISON_UNIF    =FACT(statut='f',min=1,max='**',
1592                                fr="Imposer une meme valeur (inconnue) a des ddls d un emsemble de noeuds",
1593            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1594            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1595            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1596            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1597            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1598            DDL             =SIMP(statut='o',typ='TXM',max='**'),
1599          ),
1600          LIAISON_SOLIDE  =FACT(statut='f',min=1,max='**',
1601                                fr="Modéliser une partie indéformable d une structure",
1602            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1603            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1604            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1605            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1606            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1607            NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
1608          ),
1609          LIAISON_OBLIQUE =FACT(statut='f',min=1,max='**',
1610                                fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1611            regles=(UN_PARMI('GROUP_NO','NOEUD'),
1612                    UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
1613            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1614            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1615            ANGL_NAUT       =SIMP(statut='o',typ='R',max=3),
1616            DX              =SIMP(statut='f',typ=(fonction) ),
1617            DY              =SIMP(statut='f',typ=(fonction) ),
1618            DZ              =SIMP(statut='f',typ=(fonction) ),
1619            DRX             =SIMP(statut='f',typ=(fonction) ),
1620            DRY             =SIMP(statut='f',typ=(fonction) ),
1621            DRZ             =SIMP(statut='f',typ=(fonction) ),
1622          ),
1623          LIAISON_COQUE   =FACT(statut='f',min=1,max='**',
1624            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1625            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1626            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
1627            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
1628            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1629            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1630            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
1631            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1632            NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
1633          ),
1634          FACE_IMPO       =FACT(statut='f',min=1,max='**',
1635            regles=(UN_PARMI('GROUP_MA','MAILLE'),
1636                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI','TEMP','PRE1','PRE2','DNOR','DTAN'),
1637                    EXCLUS('DNOR','DX'),
1638                    EXCLUS('DNOR','DY'),
1639                    EXCLUS('DNOR','DZ'),
1640                    EXCLUS('DNOR','DRX'),
1641                    EXCLUS('DNOR','DRY'),
1642                    EXCLUS('DNOR','DRZ'),
1643                    EXCLUS('DTAN','DX'),
1644                    EXCLUS('DTAN','DY'),
1645                    EXCLUS('DTAN','DZ'),
1646                    EXCLUS('DTAN','DRX'),
1647                    EXCLUS('DTAN','DRY'),
1648                    EXCLUS('DTAN','DRZ'),),
1649 #  rajout d un mot cle REPERE : / GLOBAL / LOCAL
1650            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1651            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1652            DX              =SIMP(statut='f',typ=(fonction) ),
1653            DY              =SIMP(statut='f',typ=(fonction) ),
1654            DZ              =SIMP(statut='f',typ=(fonction) ),
1655            DRX             =SIMP(statut='f',typ=(fonction) ),
1656            DRY             =SIMP(statut='f',typ=(fonction) ),
1657            DRZ             =SIMP(statut='f',typ=(fonction) ),
1658            GRX             =SIMP(statut='f',typ=(fonction) ),
1659            PRES            =SIMP(statut='f',typ=(fonction) ),
1660            PHI             =SIMP(statut='f',typ=(fonction) ),
1661            TEMP            =SIMP(statut='f',typ=(fonction) ),
1662            PRE1            =SIMP(statut='f',typ=(fonction) ),
1663            PRE2            =SIMP(statut='f',typ=(fonction) ),
1664            DNOR            =SIMP(statut='f',typ=(fonction) ),
1665            DTAN            =SIMP(statut='f',typ=(fonction) ),
1666          ),
1667          LIAISON_DDL     =FACT(statut='f',min=1,max='**',
1668                                fr="Définir une relation linéaire entre des ddls de deux ou plusieurs noeuds",
1669            regles=(UN_PARMI('GROUP_NO','NOEUD'),),
1670            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1671            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1672            DDL             =SIMP(statut='o',typ='TXM',max='**'),
1673            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
1674            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
1675          ),
1676          LIAISON_GROUP   =FACT(statut='f',min=1,max='**',
1677                                fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1678            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1679                    UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1680                    EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1681                    EXCLUS('GROUP_MA_1','NOEUD_2'),
1682                    EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1683                    EXCLUS('GROUP_NO_1','MAILLE_2'),
1684                    EXCLUS('MAILLE_1','GROUP_NO_2'),
1685                    EXCLUS('MAILLE_1','NOEUD_2'),
1686                    EXCLUS('NOEUD_1','GROUP_MA_2'),
1687                    EXCLUS('NOEUD_1','MAILLE_2'),
1688                    EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1689            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1690            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1691            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
1692            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
1693            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1694            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1695            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
1696            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1697            SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1698            SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1699            DDL_1           =SIMP(statut='o',typ='TXM',max='**'),
1700            COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
1701            DDL_2           =SIMP(statut='o',typ='TXM',max='**'),
1702            COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
1703            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
1704            SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1705            TRAN            =SIMP(statut='f',typ='R',max=3),
1706            ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
1707            CENTRE          =SIMP(statut='f',typ='R',max=3),
1708          ),
1709
1710          FORCE_NODALE    =FACT(statut='f',min=1,max='**',
1711            regles=(UN_PARMI('GROUP_NO','NOEUD'),
1712                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1713            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1714            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1715            FX              =SIMP(statut='f',typ=(fonction) ),
1716            FY              =SIMP(statut='f',typ=(fonction) ),
1717            FZ              =SIMP(statut='f',typ=(fonction) ),
1718            MX              =SIMP(statut='f',typ=(fonction) ),
1719            MY              =SIMP(statut='f',typ=(fonction) ),
1720            MZ              =SIMP(statut='f',typ=(fonction) ),
1721            ANGL_NAUT       =SIMP(statut='f',typ=(fonction),max=3 ),
1722          ),
1723          FORCE_INTERNE   =FACT(statut='f',min=1,max='**',
1724            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1725                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1726                    AU_MOINS_UN('FX','FY','FZ'),),
1727            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1728            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1729            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1730            FX              =SIMP(statut='f',typ=(fonction) ),
1731            FY              =SIMP(statut='f',typ=(fonction) ),
1732            FZ              =SIMP(statut='f',typ=(fonction) ),
1733          ),
1734          FORCE_FACE      =FACT(statut='f',min=1,max='**',
1735            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1736                    AU_MOINS_UN('FX','FY','FZ'),),
1737            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1738            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1739            FX              =SIMP(statut='f',typ=(fonction) ),
1740            FY              =SIMP(statut='f',typ=(fonction) ),
1741            FZ              =SIMP(statut='f',typ=(fonction) ),
1742          ),
1743          FORCE_ARETE     =FACT(statut='f',min=1,max='**',
1744            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1745                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1746            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1747            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1748            FX              =SIMP(statut='f',typ=(fonction) ),
1749            FY              =SIMP(statut='f',typ=(fonction) ),
1750            FZ              =SIMP(statut='f',typ=(fonction) ),
1751            MX              =SIMP(statut='f',typ=(fonction) ),
1752            MY              =SIMP(statut='f',typ=(fonction) ),
1753            MZ              =SIMP(statut='f',typ=(fonction) ),
1754          ),
1755          FORCE_CONTOUR   =FACT(statut='f',min=1,max='**',
1756            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1757                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1758            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1759            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1760            FX              =SIMP(statut='f',typ=(fonction) ),
1761            FY              =SIMP(statut='f',typ=(fonction) ),
1762            FZ              =SIMP(statut='f',typ=(fonction) ),
1763            MX              =SIMP(statut='f',typ=(fonction) ),
1764            MY              =SIMP(statut='f',typ=(fonction) ),
1765            MZ              =SIMP(statut='f',typ=(fonction) ),
1766          ),
1767          PRES_REP        =FACT(statut='f',min=1,max='**',
1768            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1769                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1770                    AU_MOINS_UN('PRES','CISA_2D'),),
1771            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1772            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1773            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1774            PRES            =SIMP(statut='f',typ=(fonction) ),
1775            CISA_2D         =SIMP(statut='f',typ=(fonction) ),
1776          ),
1777
1778          FORCE_COQUE     =FACT(statut='f',min=1,max='**',
1779            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1780                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1781                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
1782                    PRESENT_ABSENT('FX','PRES','F1','F2','F3','MF1','MF2'),
1783                    PRESENT_ABSENT('FY','PRES','F1','F2','F3','MF1','MF2'),
1784                    PRESENT_ABSENT('FZ','PRES','F1','F2','F3','MF1','MF2'),
1785                    PRESENT_ABSENT('MX','PRES','F1','F2','F3','MF1','MF2'),
1786                    PRESENT_ABSENT('MY','PRES','F1','F2','F3','MF1','MF2'),
1787                    PRESENT_ABSENT('MZ','PRES','F1','F2','F3','MF1','MF2'),
1788                    PRESENT_ABSENT('F1','PRES','FX','FY','FZ','MX','MY','MZ'),
1789                    PRESENT_ABSENT('F2','PRES','FX','FY','FZ','MX','MY','MZ'),
1790                    PRESENT_ABSENT('F3','PRES','FX','FY','FZ','MX','MY','MZ'),
1791                    PRESENT_ABSENT('MF1','PRES','FX','FY','FZ','MX','MY','MZ'),
1792                    PRESENT_ABSENT('MF2','PRES','FX','FY','FZ','MX','MY','MZ'),
1793                    PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
1794 #  rajout d un mot cle REPERE : / GLOBAL / LOCAL
1795            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1796            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1797            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1798            FX              =SIMP(statut='f',typ=(fonction) ),
1799            FY              =SIMP(statut='f',typ=(fonction) ),
1800            FZ              =SIMP(statut='f',typ=(fonction) ),
1801            MX              =SIMP(statut='f',typ=(fonction) ),
1802            MY              =SIMP(statut='f',typ=(fonction) ),
1803            MZ              =SIMP(statut='f',typ=(fonction) ),
1804            F1              =SIMP(statut='f',typ=(fonction) ),
1805            F2              =SIMP(statut='f',typ=(fonction) ),
1806            F3              =SIMP(statut='f',typ=(fonction) ),
1807            MF1             =SIMP(statut='f',typ=(fonction) ),
1808            MF2             =SIMP(statut='f',typ=(fonction) ),
1809            PRES            =SIMP(statut='f',typ=(fonction) ),
1810            PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",
1811                                  into=("SUP","INF","MOY","MAIL") ),
1812          ),
1813          FORCE_POUTRE    =FACT(statut='f',min=1,max='**',
1814            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1815                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1816                    AU_MOINS_UN('FX','FY','FZ','N','VY','VZ'),
1817                    PRESENT_ABSENT('FX','N','VY','VZ'),
1818                    PRESENT_ABSENT('FY','N','VY','VZ'),
1819                    PRESENT_ABSENT('FZ','N','VY','VZ'),
1820                    PRESENT_ABSENT('N','FX','FY','FZ'),
1821                    PRESENT_ABSENT('VY','FX','FY','FZ'),
1822                    PRESENT_ABSENT('VZ','FX','FY','FZ'),),
1823 #  rajout d un mot cle REPERE : / GLOBAL / LOCAL
1824            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1825            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1826            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1827            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE") ),
1828            FX              =SIMP(statut='f',typ=(fonction) ),
1829            FY              =SIMP(statut='f',typ=(fonction) ),
1830            FZ              =SIMP(statut='f',typ=(fonction) ),
1831            N               =SIMP(statut='f',typ=(fonction) ),
1832            VY              =SIMP(statut='f',typ=(fonction) ),
1833            VZ              =SIMP(statut='f',typ=(fonction) ),
1834          ),
1835          FORCE_TUYAU     =FACT(statut='f',min=1,max='**',
1836            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1837                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
1838            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1839            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1840            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1841            PRES            =SIMP(statut='f',typ=(fonction) ),
1842          ),
1843          VITE_FACE       =FACT(statut='f',min=1,max='**',
1844            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1845                    PRESENT_ABSENT('GROUP_MA','MAILLE'),),
1846            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1847            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1848            VNOR            =SIMP(statut='o',typ=(fonction) ),
1849          ),
1850          IMPE_FACE       =FACT(statut='f',min=1,max='**',
1851            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1852                    PRESENT_ABSENT('GROUP_MA','MAILLE'),),
1853            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1854            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1855            IMPE            =SIMP(statut='o',typ=(fonction) ),
1856          ),
1857          ONDE_PLANE      =FACT(statut='f',min=1,max='**',
1858            DIRECTION       =SIMP(statut='o',typ='R',max='**'),
1859            TYPE_ONDE       =SIMP(statut='o',typ='TXM' ),
1860            FONC_SIGNAL     =SIMP(statut='o',typ=(fonction) ),
1861            DIST_ORIG       =SIMP(statut='o',typ='R' ),
1862          ),
1863          EPSI_INIT       =FACT(statut='f',min=1,max='**',
1864            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1865                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1866                    AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ'),),
1867            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1868            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1869            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1870            EPXX            =SIMP(statut='f',typ=(fonction) ),
1871            EPYY            =SIMP(statut='f',typ=(fonction) ),
1872            EPZZ            =SIMP(statut='f',typ=(fonction) ),
1873            EPXY            =SIMP(statut='f',typ=(fonction) ),
1874            EPXZ            =SIMP(statut='f',typ=(fonction) ),
1875            EPYZ            =SIMP(statut='f',typ=(fonction) ),
1876          ),
1877
1878          CONTACT         =FACT(statut='f',min=1,max='**',
1879            regles=(UN_PARMI('GROUP_MA_2','MAILLE_2'),
1880                    EXCLUS('DIST_2','COEF_IMPO'),
1881                    EXCLUS('DIST_1','COEF_IMPO'),
1882                    EXCLUS('COEF_MULT_2','GROUP_MA_1'),
1883                    EXCLUS('COEF_MULT_2','MAILLE_1'),
1884                    EXCLUS('COEF_IMPO','GROUP_MA_1'),
1885                    EXCLUS('COEF_IMPO','MAILLE_1'),),
1886            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","PRES","TEMP") ),
1887            APPARIEMENT     =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
1888                                  into=("NON","NODAL","NODAL_SYME","MAIT_ESCL","MAIT_ESCL_SYME") ),
1889            RECHERCHE       =SIMP(statut='f',typ='TXM',defaut="NOEUD_VOISIN",
1890                                  into=("NOEUD_BOUCLE","NOEUD_VOISIN") ),
1891            INTEGRATION     =SIMP(statut='f',typ='TXM',defaut="NOEUD",into=("GAUSS","NOEUD")),
1892            COEF_REGU_CONT  =SIMP(statut='f',typ='R',defaut=100.E+0),
1893            COEF_REGU_FROT  =SIMP(statut='f',typ='R',defaut=100.E+0),
1894            MODL_AXIS       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
1895            ITER_GEOM_MAXI  =SIMP(statut='f',typ='I',defaut=2),
1896            ITER_CONT_MAXI  =SIMP(statut='f',typ='I',defaut=30),
1897            ITER_FROT_MAXI  =SIMP(statut='f',typ='I',defaut=2),
1898            LISSAGE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
1899            SEUIL_INIT      =SIMP(statut='f',typ='I',defaut=0),
1900            REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1901              b_act_reac      =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1902                               fr="Paramètre de la réactualisation géométrique",
1903                    NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
1904            NORMALE         =SIMP(statut='f',typ='TXM',defaut="MAIT",into=("MAIT","MAIT_ESCL")),
1905            METHODE         =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
1906                                  into=("CONTRAINTE","LAGRANGIEN","PENALISATION") ),
1907            FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1908            COULOMB         =SIMP(statut='f',typ='R',max=1,defaut=0.E+0),
1909            E_N             =SIMP(statut='f',typ='R' ),
1910            E_T             =SIMP(statut='f',typ='R' ),
1911            COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut=0.E+0),
1912            VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
1913            VECT_NORM_2     =SIMP(statut='f',typ='R',max=3),
1914            PROJECTION      =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE",) ),
1915            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1916            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'  ),
1917            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1918            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'  ),
1919            SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'  ),
1920            SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1921            DIST_1          =SIMP(statut='f',typ=(fonction) ),
1922            DIST_2          =SIMP(statut='f',typ=(fonction) ),
1923            COEF_IMPO       =SIMP(statut='f',typ='R',defaut=0.E+0),
1924            COEF_MULT_2     =SIMP(statut='f',typ='R',defaut=1.E+0),
1925          ),
1926          FLUX_THM_REP    =FACT(statut='f',min=1,max='**',
1927            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1928                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1929                    AU_MOINS_UN('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
1930            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1931            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1932            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1933            FLUN            =SIMP(statut='f',typ=(fonction) ),
1934            FLUN_HYDR1      =SIMP(statut='f',typ=(fonction) ),
1935            FLUN_HYDR2      =SIMP(statut='f',typ=(fonction) ),
1936          ),
1937
1938          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1939 )  ;
1940 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
1941 #            CONFIGURATION MANAGEMENT OF EDF VERSION
1942 # ======================================================================
1943 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
1944 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1945 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1946 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1947 # (AT YOUR OPTION) ANY LATER VERSION.
1948 #
1949 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1950 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1951 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1952 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1953 #
1954 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1955 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1956 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1957 # ======================================================================
1958 AFFE_CHAR_OPS011=OPER(nom="AFFE_CHAR_OPS011",op= 190,sd_prod=char_ther,
1959                       fr=" ",
1960                       docu="",reentrant='n',
1961          regles=(AU_MOINS_UN('CARA_TORSION', ),),
1962          MODELE          =SIMP(statut='o',typ=modele ),
1963          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",
1964                                into=("OUI","NON") ),
1965          CARA_TORSION    =FACT(statut='f',min=01,max='**',
1966            regles=(UN_PARMI('TOUT','GROUP_MA'),),
1967            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1968            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1969          ),
1970          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
1971 )  ;
1972 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
1973 #            CONFIGURATION MANAGEMENT OF EDF VERSION
1974 # ======================================================================
1975 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
1976 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1977 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1978 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1979 # (AT YOUR OPTION) ANY LATER VERSION.
1980 #
1981 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1982 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1983 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1984 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1985 #
1986 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1987 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1988 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1989 # ======================================================================
1990 AFFE_CHAR_THER=OPER(nom="AFFE_CHAR_THER",op=34,sd_prod=char_ther
1991                     ,fr="Affectation de charges et conditions aux limites thermiques constantes",
1992                     docu="U4.44.02-g2",reentrant='n',
1993       regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','FLUX_REP','ECHANGE',
1994                           'ECHANGE_PAROI','GRAD_TEMP_INIT','LIAISON_DDL','LIAISON_GROUP',
1995                           'LIAISON_UNIF','LIAISON_CHAMNO','RAYONNEMENT','LIAISON_MAIL' ),),
1996          MODELE          =SIMP(statut='o',typ=(modele) ),
1997          VERI_DDL        =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="OUI"),
1998          LIAISON_DDL     =FACT(statut='f',min=01,max='**',
1999            regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
2000            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2001            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2002            DDL             =SIMP(statut='f',typ='TXM',max='**',
2003                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2004            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
2005            COEF_IMPO       =SIMP(statut='o',typ='R' ),
2006          ),
2007          TEMP_IMPO       =FACT(statut='f',min=01,max='**',
2008            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
2009                    AU_MOINS_UN('TEMP_SUP','TEMP','TEMP_INF'),),
2010            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2011            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2012            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2013            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2014            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2015            TEMP            =SIMP(statut='f',typ='R'),
2016            TEMP_INF        =SIMP(statut='f',typ='R'),
2017            TEMP_SUP        =SIMP(statut='f',typ='R'), ),
2018          LIAISON_UNIF    =FACT(statut='f',min=01,max='**',
2019            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
2020            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2021            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2022            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2023            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2024            DDL             =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2025                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2026          ),
2027          LIAISON_CHAMNO  =FACT(statut='f',min=01,max='**',
2028            CHAM_NO         =SIMP(statut='o',typ=cham_no),# CO()# "il faut definir une structure de donnee generique chamno"
2029            COEF_IMPO       =SIMP(statut='o',typ='R' ),
2030            NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
2031          ),
2032          SOURCE          =FACT(statut='f',min=01,max='**',
2033            regles=(UN_PARMI('SOUR','SOUR_CALCULEE',),
2034                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2035                    PRESENT_ABSENT('SOUR_CALCULEE','TOUT','GROUP_MA','MAILLE'),),
2036            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2037            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2038            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2039            SOUR            =SIMP(statut='f',typ='R'),
2040            SOUR_CALCULEE   =SIMP(statut='f',typ=(cham_elem_sour_r) ),
2041          ),
2042          FLUX_REP        =FACT(statut='f',min=01,max='**',
2043            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2044                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2045                    PRESENT_PRESENT('CARA_TORSION','GROUP_MA'),
2046                    AU_MOINS_UN('FLUN','FLUN_INF','FLUN_SUP','CARA_TORSION') ),
2047            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2048            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2049            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2050            FLUN            =SIMP(statut='f',typ='R'),
2051            FLUN_INF        =SIMP(statut='f',typ='R'),
2052            FLUN_SUP        =SIMP(statut='f',typ='R'),
2053            CARA_TORSION    =SIMP(statut='f',typ=tabl_aire_int ),
2054          ),
2055          ECHANGE         =FACT(statut='f',min=01,max='**',
2056            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2057                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2058                    AU_MOINS_UN('COEF_H','COEF_H_INF','COEF_H_SUP'),
2059                    ENSEMBLE('COEF_H','TEMP_EXT',),
2060                    ENSEMBLE('COEF_H_INF','TEMP_EXT_INF'),
2061                              ENSEMBLE('COEF_H_SUP','TEMP_EXT_SUP'),),
2062            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2063            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2064            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2065            COEF_H          =SIMP(statut='f',typ='R'),
2066            TEMP_EXT        =SIMP(statut='f',typ='R'),
2067            COEF_H_INF      =SIMP(statut='f',typ='R'),
2068            TEMP_EXT_INF    =SIMP(statut='f',typ='R'),
2069            COEF_H_SUP      =SIMP(statut='f',typ='R'),
2070            TEMP_EXT_SUP    =SIMP(statut='f',typ='R'),
2071          ),
2072          ECHANGE_PAROI   =FACT(statut='f',min=01,max='**',
2073            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
2074                    UN_PARMI('GROUP_MA_2','MAILLE_2'),),
2075            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2076            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2077            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2078            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2079            COEF_H          =SIMP(statut='f',typ='R'),
2080            TRAN            =SIMP(statut='f',typ='R',min=2,max=3),
2081            ANGL_NAUT       =SIMP(statut='f',typ='R',min=1,max=3),
2082            CENTRE          =SIMP(statut='f',typ='R',min=2,max=3),
2083                          ),
2084          GRAD_TEMP_INIT  =FACT(statut='f',min=01,max='**',
2085            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2086                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2087                    AU_MOINS_UN('FLUX_X','FLUX_Y','FLUX_Z'),),
2088            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2089            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2090            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2091            FLUX_X          =SIMP(statut='f',typ='R' ),
2092            FLUX_Y          =SIMP(statut='f',typ='R' ),
2093            FLUX_Z          =SIMP(statut='f',typ='R' ),
2094                          ),
2095          LIAISON_GROUP   =FACT(statut='f',min=01,max='**',
2096            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
2097                    UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
2098                              EXCLUS('GROUP_MA_1','GROUP_NO_2'),
2099                              EXCLUS('GROUP_MA_1','NOEUD_2'),
2100                    EXCLUS('GROUP_NO_1','GROUP_MA_2'),
2101                              EXCLUS('GROUP_NO_1','MAILLE_2'),
2102                              EXCLUS('MAILLE_1','GROUP_NO_2'),
2103                              EXCLUS('MAILLE_1','NOEUD_2'),
2104                              EXCLUS('NOEUD_1','GROUP_MA_2'),
2105                              EXCLUS('NOEUD_1','MAILLE_2'),
2106                              EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
2107            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2108            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2109            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
2110            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
2111            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2112            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2113            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
2114            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
2115            SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
2116            SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
2117            DDL_1           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2118                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2119            COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
2120            DDL_2           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2121                                  into=("TEMP","TEMP_INF","TEMP_SUP",) ),
2122            COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
2123            COEF_IMPO       =SIMP(statut='o',typ='R' ),
2124            SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2125            TRAN            =SIMP(statut='f',typ='R',max='**'),
2126            ANGL_NAUT       =SIMP(statut='f',typ='R',max='**'),
2127            CENTRE          =SIMP(statut='f',typ='R',max='**'),
2128          ),
2129          CONVECTION      =FACT(statut='f',min=01,max='**',
2130            VITESSE         =SIMP(statut='o',typ=(cham_no_depl_r) ),
2131          ),
2132          RAYONNEMENT     =FACT(statut='f',min=01,max='**',
2133            fr="Attention, exprimer les températures en Celsius si rayonnement",
2134            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2135                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2136            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2137            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2138            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2139            SIGMA           =SIMP(statut='o',typ='R'),
2140            EPSILON         =SIMP(statut='o',typ='R'),
2141            TEMP_EXT        =SIMP(statut='o',typ='R'),
2142          ),
2143          LIAISON_MAIL    =FACT(statut='f',min=01,max='**',
2144            regles=(AU_MOINS_UN('GROUP_MA_MAIT','MAILLE_MAIT'),
2145                    AU_MOINS_UN('GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL',
2146                                'NOEUD_ESCL'),),
2147            GROUP_MA_MAIT   =SIMP(statut='f',typ=grma,max='**'),
2148            MAILLE_MAIT     =SIMP(statut='f',typ=ma,max='**'),
2149            GROUP_MA_ESCL   =SIMP(statut='f',typ=grma,max='**'),
2150            MAILLE_ESCL     =SIMP(statut='f',typ=ma,max='**'),
2151            GROUP_NO_ESCL   =SIMP(statut='f',typ=grno,max='**'),
2152            NOEUD_ESCL      =SIMP(statut='f',typ=no,max='**'),
2153            TRAN            =SIMP(statut='f',typ='R',max='**' ),
2154            ANGL_NAUT       =SIMP(statut='f',typ='R',max='**' ),
2155            CENTRE          =SIMP(statut='f',typ='R',max='**' ),
2156          ),
2157          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2158 )  ;
2159 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
2160 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2161 # ======================================================================
2162 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2163 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2164 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2165 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2166 # (AT YOUR OPTION) ANY LATER VERSION.
2167 #
2168 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2169 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2170 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2171 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2172 #
2173 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2174 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2175 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2176 # ======================================================================
2177 AFFE_CHAR_THER_F=OPER(nom="AFFE_CHAR_THER_F",op=33,sd_prod=char_ther,
2178                      fr="Affectation de charges et conditions aux limites thermiques fonction dune grandeur (temps, ...)",
2179                      docu="U4.44.02-g2",reentrant='n',
2180       regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','FLUX_REP','FLUX_NL','ECHANGE',
2181                           'ECHANGE_PAROI','LIAISON_DDL','LIAISON_GROUP','LIAISON_UNIF',
2182                           'GRAD_TEMP_INIT','RAYONNEMENT'),),
2183          MODELE          =SIMP(statut='o',typ=(modele) ),
2184          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2185          LIAISON_DDL     =FACT(statut='f',min=1,max='**',
2186            regles=(UN_PARMI('GROUP_NO','NOEUD'),),
2187            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2188            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2189            DDL             =SIMP(statut='f',typ='TXM',max='**',into=("TEMP","TEMP_INF","TEMP_SUP") ),
2190            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
2191            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
2192          ),
2193          TEMP_IMPO       =FACT(statut='f',min=1,max='**',
2194            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
2195                    AU_MOINS_UN('TEMP_SUP','TEMP','TEMP_INF','EVOL_THER'),
2196                    PRESENT_ABSENT('EVOL_THER','TEMP','TEMP_INF','TEMP_SUP'),),
2197            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2198            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2199            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2200            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2201            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2202            EVOL_THER       =SIMP(statut='f',typ=(evol_ther) ),
2203            DDL             =SIMP(statut='f',typ='TXM',into=("TEMP",) ),
2204            TEMP            =SIMP(statut='f',typ=(fonction) ),
2205            TEMP_INF        =SIMP(statut='f',typ=(fonction) ),
2206            TEMP_SUP        =SIMP(statut='f',typ=(fonction) ),
2207          ),
2208          LIAISON_UNIF    =FACT(statut='f',min=1,max='**',
2209            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
2210            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2211            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2212            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2213            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2214            DDL             =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2215                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2216          ),
2217          SOURCE          =FACT(statut='f',min=1,max='**',
2218            regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),),
2219            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2220            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2221            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2222            SOUR            =SIMP(statut='o',typ=(fonction) ),
2223          ),
2224          FLUX_REP        =FACT(statut='f',min=1,max='**',
2225            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2226                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2227                    AU_MOINS_UN('FLUN','FLUN_INF','FLUN_SUP','FLUX_X','FLUX_Y','FLUX_Z'),),
2228            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2229            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2230            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2231            FLUN            =SIMP(statut='f',typ=(fonction) ),
2232            FLUN_INF        =SIMP(statut='f',typ=(fonction) ),
2233            FLUN_SUP        =SIMP(statut='f',typ=(fonction) ),
2234            FLUX_X          =SIMP(statut='f',typ=(fonction) ),
2235            FLUX_Y          =SIMP(statut='f',typ=(fonction) ),
2236            FLUX_Z          =SIMP(statut='f',typ=(fonction) ),
2237          ),
2238          FLUX_NL         =FACT(statut='f',min=1,max='**',
2239            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2240                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2241            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2242            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2243            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2244            FLUN            =SIMP(statut='o',typ=(fonction) ),
2245          ),
2246          ECHANGE         =FACT(statut='f',min=1,max='**',
2247            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2248                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2249                    AU_MOINS_UN('COEF_H','COEF_H_INF','COEF_H_SUP'),
2250                    ENSEMBLE('COEF_H','TEMP_EXT'),
2251                    ENSEMBLE('COEF_H_INF','TEMP_EXT_INF'),
2252                    ENSEMBLE('COEF_H_SUP','TEMP_EXT_SUP'),),
2253            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2254            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2255            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2256            COEF_H          =SIMP(statut='f',typ=(fonction) ),
2257            TEMP_EXT        =SIMP(statut='f',typ=(fonction) ),
2258            COEF_H_INF      =SIMP(statut='f',typ=(fonction) ),
2259            TEMP_EXT_INF    =SIMP(statut='f',typ=(fonction) ),
2260            COEF_H_SUP      =SIMP(statut='f',typ=(fonction) ),
2261            TEMP_EXT_SUP    =SIMP(statut='f',typ=(fonction) ),
2262          ),
2263          ECHANGE_PAROI   =FACT(statut='f',min=1,max='**',
2264            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
2265                         UN_PARMI('GROUP_MA_2','MAILLE_2'),),
2266            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2267            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2268            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2269            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2270            COEF_H          =SIMP(statut='o',typ=(fonction) ),
2271            TRAN            =SIMP(statut='f',typ='R',min=2,max=3),
2272            ANGL_NAUT       =SIMP(statut='f',typ='R',min=1,max=3),
2273            CENTRE          =SIMP(statut='f',typ='R',min=2,max=3),
2274          ),
2275          GRAD_TEMP_INIT  =FACT(statut='f',min=1,max='**',
2276            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2277                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2278                    AU_MOINS_UN('FLUX_X','FLUX_Y','FLUX_Z'),),
2279            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2280            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2281            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2282            FLUX_X          =SIMP(statut='f',typ=(fonction) ),
2283            FLUX_Y          =SIMP(statut='f',typ=(fonction) ),
2284            FLUX_Z          =SIMP(statut='f',typ=(fonction) ),
2285          ),
2286          LIAISON_GROUP   =FACT(statut='f',min=1,max='**',
2287            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
2288                    UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
2289                              EXCLUS('GROUP_MA_1','GROUP_NO_2'),
2290                         EXCLUS('GROUP_MA_1','NOEUD_2'),
2291                    EXCLUS('GROUP_NO_1','GROUP_MA_2'),
2292                         EXCLUS('GROUP_NO_1','MAILLE_2'),
2293                         EXCLUS('MAILLE_1','GROUP_NO_2'),
2294                         EXCLUS('MAILLE_1','NOEUD_2'),
2295                         EXCLUS('NOEUD_1','GROUP_MA_2'),
2296                         EXCLUS('NOEUD_1','MAILLE_2'),
2297                         EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
2298            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2299            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2300            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
2301            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
2302            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2303            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2304            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
2305            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
2306            SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
2307            SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
2308            DDL_1           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2309                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2310            COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
2311            DDL_2           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2312                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2313            COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
2314            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
2315            SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2316            TRAN            =SIMP(statut='f',typ='R',max='**'),
2317            ANGL_NAUT       =SIMP(statut='f',typ='R',max='**'),
2318            CENTRE          =SIMP(statut='f',typ='R',max='**'),
2319          ),
2320          CONVECTION      =FACT(statut='f',min=1,max='**',
2321            VITESSE         =SIMP(statut='o',typ=(cham_no_depl_r) ),
2322          ),
2323          RAYONNEMENT     =FACT(statut='f',min=1,max='**',
2324            fr="Attention, exprimer les températures en Celsius si rayonnement",
2325            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2326                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2327            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2328            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2329            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2330            SIGMA           =SIMP(statut='o',typ=(fonction) ),
2331            EPSILON         =SIMP(statut='o',typ=(fonction) ),
2332            TEMP_EXT        =SIMP(statut='o',typ=(fonction) ),
2333          ),
2334          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2335 )  ;
2336 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2337 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2338 # ======================================================================
2339 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2340 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2341 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2342 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2343 # (AT YOUR OPTION) ANY LATER VERSION.
2344 #
2345 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2346 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2347 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2348 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2349 #
2350 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2351 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2352 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2353 # ======================================================================
2354 # RESPONSABLE VABHHTS J.PELLET
2355 AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
2356                    fr="Affectation de caractéristiques de matériaux à un maillage",
2357                          docu="U4.43.03-f",reentrant='n',
2358          MAILLAGE        =SIMP(statut='o',typ=maillage),
2359          MODELE          =SIMP(statut='f',typ=modele),
2360          AFFE            =FACT(statut='o',min=01,max='**',
2361            regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
2362            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2363            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2364            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2365            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2366            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2367            MATER           =SIMP(statut='o',typ=mater),
2368            TEMP_REF        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2369          ),
2370 )  ;
2371 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
2372 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2373 # ======================================================================
2374 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2375 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2376 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2377 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2378 # (AT YOUR OPTION) ANY LATER VERSION.
2379 #
2380 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2381 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2382 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2383 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2384 #
2385 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2386 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2387 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2388 # ======================================================================
2389 # RESPONSABLE JMBHH01 J.M.PROIX
2390 AFFE_MODELE=OPER(nom="AFFE_MODELE",op=18,sd_prod=modele,docu="U4.41.01-g3",
2391                  fr="Affectation des éléments finis sur le maillage",reentrant='n',
2392          regles=(AU_MOINS_UN('AFFE','AFFE_SOUS_STRUC'),),
2393          MAILLAGE        =SIMP(statut='o',typ=(maillage) ),
2394          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
2395          VERIF           =SIMP(statut='f',typ='TXM',max=2,into=("MAILLE","NOEUD") ),
2396          AFFE_SOUS_STRUC =FACT(statut='f',min=01,max=01,
2397            regles=(UN_PARMI('TOUT','MAILLE'),),
2398            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2399            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2400            PHENOMENE       =SIMP(statut='f',typ='TXM',defaut="MECANIQUE",into=("MECANIQUE",) ),
2401          ),
2402          AFFE            =FACT(statut='f',min=01,max='**',
2403            regles=(UN_PARMI('TOUT','GROUP_MA','GROUP_NO','MAILLE','NOEUD'),),
2404            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2405            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2406            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2407            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2408            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2409            PHENOMENE       =SIMP(statut='o',typ='TXM',
2410                                  into=("MECANIQUE","THERMIQUE","ACOUSTIQUE") ),
2411                 b_mecanique     =BLOC( condition = "PHENOMENE=='MECANIQUE'",
2412                                         fr="modelisations mécaniques",
2413                     MODELISATION    =SIMP(statut='o',typ='TXM', into=(
2414                                                                       "2D_CONTACT",
2415                                                                       "2D_DIS_T",
2416                                                                       "2D_DIS_TR",
2417                                                                       "2D_FLUI_ABSO",
2418                                                                       "2D_FLUI_PESA",
2419                                                                       "2D_FLUI_STRU",
2420                                                                       "2D_FLUIDE",
2421                                                                       "3D",
2422                                                                       "3D_ABSO",
2423                                                                       "3D_CONTACT",
2424                                                                       "3D_FAISCEAU",
2425                                                                       "3D_FLUI_ABSO",
2426                                                                       "3D_FLUIDE",
2427                                                                       "3D_HHM" ,
2428                                                                       "3D_HM",
2429                                                                       "3D_INCO",
2430                                                                       "3D_JOINT_CT",
2431                                                                       "3D_SI",
2432                                                                       "3D_THH",
2433                                                                       "3D_THHM",
2434                                                                       "3D_THM",
2435                                                                       "3D_GRAD_EPSI",
2436                                                                       "3D_GRAD_VARI",
2437                                                                       "APPUI_REP",
2438                                                                       "ASSE_GRIL",
2439                                                                       "AXIS",
2440                                                                       "AXIS_FLUI_STRU",
2441                                                                       "AXIS_FLUIDE",
2442                                                                       "AXIS_FOURIER",
2443                                                                       "AXIS_HHM",
2444                                                                       "AXIS_HM",
2445                                                                       "AXIS_INCO",
2446                                                                       "AXIS_SI",
2447                                                                       "AXIS_THH",
2448                                                                       "AXIS_THHM",
2449                                                                       "AXIS_THM",
2450                                                                       "AXIS_GRAD_VARI",
2451                                                                       "AXIS_FISSURE",
2452                                                                       "BARRE",
2453                                                                       "2D_BARRE",
2454                                                                       "C_PLAN",
2455                                                                       "C_PLAN_SI",
2456                                                                       "C_PLAN_GRAD_EPSI",
2457                                                                       "C_PLAN_GRAD_VARI",
2458                                                                       "CABLE",
2459                                                                       "CABLE_POULIE",
2460                                                                       "COQUE_3D",
2461                                                                       "COQUE_AXIS",
2462                                                                       "COQUE_C_PLAN",
2463                                                                       "COQUE_D_PLAN",
2464                                                                       "D_PLAN",
2465                                                                       "D_PLAN_GRAD_EPSI",
2466                                                                       "D_PLAN_GRAD_VARI",
2467                                                                       "PLAN_FISSURE",
2468                                                                       "D_PLAN_ABSO",
2469                                                                       "D_PLAN_HHM",
2470                                                                       "D_PLAN_HM",
2471                                                                       "D_PLAN_INCO",
2472                                                                       "D_PLAN_SI",
2473                                                                       "D_PLAN_THH",
2474                                                                       "D_PLAN_THHM",
2475                                                                       "D_PLAN_THM",
2476                                                                        "3D_HHMD",
2477                                                                        "3D_HMD",
2478                                                                        "3D_THHD",
2479                                                                        "3D_THHMD",
2480                                                                        "3D_THMD",
2481                                                                        "AXIS_HHMD",
2482                                                                        "AXIS_HMD",
2483                                                                        "AXIS_THHD",
2484                                                                        "AXIS_THHMD",
2485                                                                        "AXIS_THMD",
2486                                                                        "D_PLAN_HHMD",
2487                                                                        "D_PLAN_HMD",
2488                                                                        "D_PLAN_THHD",
2489                                                                        "D_PLAN_THHMD",
2490                                                                        "D_PLAN_THMD",
2491                                                                       "DIS_T",
2492                                                                       "DIS_TR",
2493                                                                       "DKT",
2494                                                                       "DST",
2495                                                                       "FLUI_STRU",
2496                                                                       "GRILLE",
2497                                                                       "POU_C_T",
2498                                                                       "POU_D_E",
2499                                                                       "POU_D_EM",
2500                                                                       "POU_D_T",
2501                                                                       "POU_D_T_GD",
2502                                                                       "POU_D_TG",
2503                                                                       "POU_D_TGM",
2504                                                                       "Q4G",
2505                                                                       "TUYAU_3M",
2506                                                                       "TUYAU_6M"
2507                                                                      )  )  ),
2508
2509                 b_thermique     =BLOC( condition = "PHENOMENE=='THERMIQUE'",
2510                                         fr="modelisations thermiques",
2511                     MODELISATION    =SIMP(statut='o',typ='TXM',into=(
2512                                                                       "3D",
2513                                                                       "3D_DIAG",
2514                                                                       "AXIS",
2515                                                                       "AXIS_DIAG",
2516                                                                       "AXIS_FOURIER",
2517                                                                       "COQUE",
2518                                                                       "COQUE_AXIS",
2519                                                                       "COQUE_PLAN",
2520                                                                       "PLAN",
2521                                                                       "PLAN_DIAG",
2522                                                                       ),),),
2523
2524                 b_acoustique    =BLOC( condition = "PHENOMENE=='ACOUSTIQUE'",
2525                                         fr="modelisations acoustiques",
2526                      MODELISATION    =SIMP(statut='o',typ='TXM',into=(
2527                                                                        "3D",
2528                                                                        "PLAN"
2529                                                                        ), ),),
2530
2531          ),
2532 ) ;
2533 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
2534 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2535 # ======================================================================
2536 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2537 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2538 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2539 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2540 # (AT YOUR OPTION) ANY LATER VERSION.
2541 #
2542 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2543 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2544 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2545 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2546 #
2547 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2548 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2549 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2550 # ======================================================================
2551 AIDE=PROC(nom="AIDE",op=42,docu="U4.02.01-g1",
2552           fr="Interrogation sur le catalogue des commandes et les concepts produits",
2553          regles=(AU_MOINS_UN('CONCEPT','TYPE_ELEM', ),),
2554          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
2555          TYPE_ELEM       =FACT(fr="couple type_elem option",
2556                                statut='f',min=01,max=01,
2557            INITEL          =SIMP(statut='f',typ='TXM',defaut="NON",
2558                                  into=("OUI","NON",) ),
2559          ),
2560          CONCEPT         =FACT(statut='f',min=01,max='**',
2561            NOM             =SIMP(fr="liste des noms de concept",
2562                                  statut='f',typ='TXM',max='**',defaut="*"),
2563            OPTION          =SIMP(fr="option d'édition de concept",
2564                                  statut='f',typ='TXM',defaut="TOUT_TYPE",
2565                                  into=("TOUT_TYPE","CREER","A_CREER",) ),
2566          ),
2567 ) ;
2568 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
2569 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2570 # ======================================================================
2571 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2572 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2573 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2574 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2575 # (AT YOUR OPTION) ANY LATER VERSION.
2576 #
2577 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2578 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2579 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2580 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2581 #
2582 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2583 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2584 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2585 # ======================================================================
2586 # RESPONSABLE VABHHTS J.PELLET
2587 ASSE_MAILLAGE=OPER(nom="ASSE_MAILLAGE",op= 105,sd_prod=maillage,
2588                    fr="Assembler deux maillages sous un seul nom",
2589                    docu="U4.23.03-e",reentrant='n',
2590          MAILLAGE        =SIMP(statut='o',typ=maillage,min=2,max=2 ),
2591 )  ;
2592 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2593 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2594 # ======================================================================
2595 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2596 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2597 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2598 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2599 # (AT YOUR OPTION) ANY LATER VERSION.
2600 #
2601 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2602 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2603 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2604 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2605 #
2606 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2607 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2608 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2609 # ======================================================================
2610 ASSE_MATR_GENE=OPER(nom="ASSE_MATR_GENE",op= 128,sd_prod=matr_asse_gene_r,
2611                     fr="Assemblage des matrices généralisées de macro éléments pour construction de la matrice globale généralisée",
2612                     docu="U4.65.04-d",reentrant='n',
2613          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
2614          OPTION          =SIMP(statut='o',typ='TXM',into=("RIGI_GENE","MASS_GENE","AMOR_GENE") ),
2615 )  ;
2616 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2617 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2618 # ======================================================================
2619 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2620 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2621 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2622 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2623 # (AT YOUR OPTION) ANY LATER VERSION.
2624 #
2625 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2626 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2627 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2628 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2629 #
2630 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2631 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2632 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2633 # ======================================================================
2634 # RESPONSABLE VABHHTS J.PELLET
2635 def asse_matrice_prod(MATR_ELEM,**args):
2636   if AsType(MATR_ELEM) == matr_elem_depl_r : return matr_asse_depl_r
2637   if AsType(MATR_ELEM) == matr_elem_depl_c : return matr_asse_depl_c
2638   if AsType(MATR_ELEM) == matr_elem_temp_r : return matr_asse_temp_r
2639   if AsType(MATR_ELEM) == matr_elem_pres_c : return matr_asse_pres_c
2640   raise AsException("type de concept resultat non prevu")
2641
2642 ASSE_MATRICE=OPER(nom="ASSE_MATRICE",op=12,sd_prod=asse_matrice_prod,
2643                   fr="Construction d une matrice assemblée",docu="U4.61.22-f",reentrant='n',
2644          MATR_ELEM       =SIMP(statut='o',
2645                                typ=(matr_elem_depl_r,matr_elem_depl_c,matr_elem_temp_r,matr_elem_pres_c) ),
2646          NUME_DDL        =SIMP(statut='o',typ=nume_ddl),
2647          CHAR_CINE       =SIMP(statut='f',typ=(char_cine_meca,char_cine_ther,char_cine_acou) ),
2648          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
2649 )  ;
2650 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2651 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2652 # ======================================================================
2653 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2654 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2655 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2656 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2657 # (AT YOUR OPTION) ANY LATER VERSION.
2658 #
2659 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2660 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2661 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2662 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2663 #
2664 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2665 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2666 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2667 # ======================================================================
2668 ASSE_VECT_GENE=OPER(nom="ASSE_VECT_GENE",op= 140,sd_prod=vect_asse_gene,
2669                     fr="Assemblage de vecteurs de chargement en coordonnées généralisées",
2670                     docu="U4.65.05-d",reentrant='n',
2671          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
2672          CHAR_SOUS_STRUC =FACT(statut='o',min=01,max='**',
2673            SOUS_STRUC      =SIMP(statut='o',typ='TXM' ),
2674            VECT_ASSE       =SIMP(statut='o',typ=cham_no_depl_r ),
2675          ),
2676 )  ;
2677 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2678 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2679 # ======================================================================
2680 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2681 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2682 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2683 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2684 # (AT YOUR OPTION) ANY LATER VERSION.
2685 #
2686 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2687 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2688 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2689 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2690 #
2691 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2692 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2693 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2694 # ======================================================================
2695 # RESPONSABLE VABHHTS J.PELLET
2696 def asse_vecteur_prod(VECT_ELEM,**args):
2697   if AsType(VECT_ELEM) == vect_elem_depl_r : return cham_no_depl_r
2698   if AsType(VECT_ELEM) == vect_elem_temp_r : return cham_no_temp_r
2699   if AsType(VECT_ELEM) == vect_elem_pres_r : return cham_no_pres_r
2700   if AsType(VECT_ELEM) == vect_elem_pres_c : return cham_no_pres_c
2701   raise AsException("type de concept resultat non prevu ")
2702
2703 ASSE_VECTEUR=OPER(nom="ASSE_VECTEUR",op=13,sd_prod=asse_vecteur_prod,
2704                   fr="Assemblage d un second membre",docu="U4.61.23-f",reentrant='n',
2705          VECT_ELEM       =SIMP(statut='o',typ=vect_elem,max='**'),
2706          NUME_DDL        =SIMP(statut='o',typ=nume_ddl ),
2707          INFO            =SIMP(statut='f',typ='I',into=(1,2,) ),
2708 )  ;
2709 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2710 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2711 # ======================================================================
2712 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2713 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2714 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2715 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2716 # (AT YOUR OPTION) ANY LATER VERSION.
2717 #
2718 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2719 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2720 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2721 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2722 #
2723 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2724 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2725 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2726 # ======================================================================
2727 CALC_AMOR_MODAL=OPER(nom="CALC_AMOR_MODAL",op= 172,sd_prod=listr8,
2728                      fr="Création d'une liste d'amortissements modaux calculés selon la règle du RCC-G",
2729                      docu="U4.52.13-c",reentrant='n',
2730          ENER_SOL        =FACT(statut='o',min=01,max=01,
2731            regles=(UN_PARMI('GROUP_NO_RADIER','GROUP_MA_RADIER'),
2732                    PRESENT_ABSENT('COEF_GROUP','FONC_GROUP'),
2733 #  Peut-on remplacer les deux règles suivantes par un ENSEMBLE_('KRX','KRY','KRZ')
2734                    PRESENT_PRESENT('KRX','KRY'),
2735                    PRESENT_PRESENT('KRX','KRZ'),
2736                    PRESENT_ABSENT('COOR_CENTRE','NOEUD_CENTRE'),
2737                    PRESENT_ABSENT('GROUP_NO_CENTRE','NOEUD_CENTRE'),
2738                    PRESENT_ABSENT('GROUP_NO_CENTRE','COOR_CENTRE'),),
2739            METHODE         =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","RIGI_PARASOL") ),
2740            MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
2741            GROUP_NO_RADIER =SIMP(statut='f',typ=grno,max='**'),
2742            GROUP_MA_RADIER =SIMP(statut='f',typ=grma,max='**'),
2743            FONC_GROUP      =SIMP(statut='f',typ=fonction ),
2744            COEF_GROUP      =SIMP(statut='f',typ='R',max='**'),
2745            KX              =SIMP(statut='o',typ='R' ),
2746            KY              =SIMP(statut='o',typ='R' ),
2747            KZ              =SIMP(statut='o',typ='R' ),
2748            KRX             =SIMP(statut='f',typ='R' ),
2749            KRY             =SIMP(statut='f',typ='R' ),
2750            KRZ             =SIMP(statut='f',typ='R' ),
2751            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno),
2752            NOEUD_CENTRE    =SIMP(statut='f',typ=no),
2753            COOR_CENTRE     =SIMP(statut='f',typ='R',max=03),
2754          ),
2755          AMOR_INTERNE    =FACT(statut='o',min=01,max=01,
2756            ENER_POT        =SIMP(statut='o',typ=tabl_ener_pot ),
2757            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
2758            AMOR_REDUIT     =SIMP(statut='o',typ='R',max='**'),
2759          ),
2760          AMOR_SOL        =FACT(statut='o',min=01,max=01,
2761            AMOR_REDUIT     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2762            FONC_AMOR_GEO   =SIMP(statut='o',typ=fonction,max='**' ),
2763            HOMOGENE        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2764            SEUIL           =SIMP(statut='f',typ='R',defaut= 0.3 ),
2765          ),
2766 )  ;
2767 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
2768 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2769 # ======================================================================
2770 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2771 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2772 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2773 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2774 # (AT YOUR OPTION) ANY LATER VERSION.
2775 #
2776 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2777 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2778 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2779 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2780 #
2781 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2782 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2783 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2784 # ======================================================================
2785 # RESPONSABLE JMBHH01 J.M.PROIX
2786 def calc_cham_elem_prod(OPTION,**args):
2787
2788 # options mecaniques
2789   if OPTION == "DEGE_ELNO_DEPL" : return cham_elem_epsi_r
2790   if OPTION == "ECIN_ELEM_DEPL" : return cham_elem_ener_r
2791   if OPTION == "EFGE_ELNO_CART" : return cham_elem_sief_r
2792   if OPTION == "EFGE_ELNO_DEPL" : return cham_elem_sief_r
2793   if OPTION == "ENDO_ELNO_SIGM" : return cham_elem_sief_r
2794   if OPTION == "EPOT_ELEM_DEPL" : return cham_elem_ener_r
2795   if OPTION == "ENEL_ELGA" :      return cham_elem_ener_r
2796   if OPTION == "ENEL_ELNO_ELGA" : return cham_elem_ener_r
2797   if OPTION == "EPSI_ELNO_DEPL" : return cham_elem_epsi_r
2798   if OPTION == "EQUI_ELGA_EPSI" : return cham_elem_epsi_r
2799   if OPTION == "EQUI_ELGA_SIGM" : return cham_elem_sief_r
2800   if OPTION == "EQUI_ELNO_EPSI" : return cham_elem_epsi_r
2801   if OPTION == "EQUI_ELNO_SIGM" : return cham_elem_sief_r
2802   if OPTION == "PRES_DBEL_DEPL" : return cham_elem_dbel_r
2803   if OPTION == "SIEF_ELGA_DEPL" : return cham_elem_sief_r
2804   if OPTION == "SIEF_ELGA_LAGR" : return cham_elem_sief_r
2805   if OPTION == "SIGM_ELNO_CART" : return cham_elem_sief_r
2806   if OPTION == "SIGM_ELNO_DEPL" : return cham_elem_sief_r
2807   if OPTION == "SIGM_ELNO_LAGR" : return cham_elem_sief_r
2808   if OPTION == "SIPO_ELNO_DEPL" : return cham_elem_sief_r
2809
2810 # options thermiques
2811
2812   if OPTION == "FLUX_ELGA_TEMP" : return cham_elem_flux_r
2813   if OPTION == "FLUX_ELNO_TEMP" : return cham_elem_flux_r
2814   if OPTION == "SOUR_ELGA_ELEC" : return cham_elem_sour_r
2815
2816 # options acoustiques
2817
2818   if OPTION == "PRES_ELNO_DBEL" : return cham_elem_dbel_r
2819   if OPTION == "PRES_ELNO_REEL" : return cham_elem_pres_r
2820   if OPTION == "PRES_ELNO_IMAG" : return cham_elem_pres_r
2821
2822 # autres options
2823
2824   if OPTION == "COOR_ELGA" :      return cham_elem_geom_r
2825
2826   raise AsException("type de concept resultat non prevu")
2827
2828 CALC_CHAM_ELEM=OPER(nom="CALC_CHAM_ELEM",op=38,sd_prod=calc_cham_elem_prod,
2829                     fr="Calcul de champs par éléments à partir de champs solution ou de champs par éléments",
2830                     docu="U4.81.03-g1",reentrant='n',
2831          MODELE          =SIMP(statut='o',typ=modele),
2832          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
2833          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
2834
2835          regles=(EXCLUS('TOUT','GROUP_MA',),EXCLUS('TOUT','MAILLE',),),
2836          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2837          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2838          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2839
2840 #
2841 #
2842 #  introduire un mot cle de type modelisation : mécanique,thermique,...
2843 #
2844
2845          OPTION          =SIMP(statut='o',typ='TXM',
2846                                into=("DEGE_ELNO_DEPL","ECIN_ELEM_DEPL","EFGE_ELNO_CART",
2847                                      "EFGE_ELNO_DEPL","ENDO_ELNO_SIGM","EPOT_ELEM_DEPL",
2848                                      "ENEL_ELGA",     "ENEL_ELNO_ELGA","EPSI_ELNO_DEPL",
2849                                      "EQUI_ELGA_EPSI","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI",
2850                                      "EQUI_ELNO_SIGM","PRES_DBEL_DEPL","SIEF_ELGA_DEPL",
2851                                      "SIEF_ELGA_LAGR","SIGM_ELNO_CART","SIGM_ELNO_DEPL",
2852                                      "SIGM_ELNO_LAGR","SIPO_ELNO_DEPL",
2853                                      "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","SOUR_ELGA_ELEC",
2854                                      "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG",
2855                                      "COOR_ELGA"), ),
2856
2857          b_dege_elno_depl  =BLOC(condition="OPTION=='DEGE_ELNO_DEPL'",
2858            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2859            PLAN            =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
2860          ),
2861
2862          b_ecin_elem_depl  =BLOC(condition="OPTION=='ECIN_ELEM_DEPL'",
2863            regles=(UN_PARMI('VITE','DEPL',),ENSEMBLE('DEPL','FREQ',),),
2864            FREQ            =SIMP(statut='f',typ='R'),
2865            VITE            =SIMP(statut='f',typ=cham_no_depl_r),
2866            DEPL            =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_depl_c)),
2867          ),
2868
2869          b_efge_elno_cart  =BLOC(condition="OPTION=='EFGE_ELNO_CART'",
2870            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2871            PLAN            =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
2872          ),
2873
2874          b_efge_elno_depl  =BLOC(condition="OPTION=='EFGE_ELNO_DEPL'",
2875            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2876            PLAN            =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
2877          ),
2878
2879          b_endo_elno_sigm  =BLOC(condition="OPTION=='ENDO_ELNO_SIGM'",
2880            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2881          ),
2882
2883          b_epot_elem_depl  =BLOC(condition="OPTION=='EPOT_ELEM_DEPL'",
2884            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2885          ),
2886
2887          b_enel_elga       =BLOC(condition="OPTION=='ENEL_ELGA'",
2888            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2889          ),
2890
2891          b_enel_elno_elga  =BLOC(condition="OPTION=='ENEL_ELNO_ELGA'",
2892            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2893          ),
2894
2895          b_epsi_elno_depl  =BLOC(condition="OPTION=='EPSI_ELNO_DEPL'",
2896            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2897          ),
2898
2899          b_equi_elga_epsi  =BLOC(condition="OPTION=='EQUI_ELGA_EPSI'",
2900            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_epsi_r,) ),
2901          ),
2902
2903          b_equi_elga_sigm  =BLOC(condition="OPTION=='EQUI_ELGA_SIGM'",
2904            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2905          ),
2906
2907          b_equi_elno_epsi  =BLOC(condition="OPTION=='EQUI_ELNO_EPSI'",
2908            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_epsi_r,) ),
2909          ),
2910
2911          b_equi_elno_sigm  =BLOC(condition="OPTION=='EQUI_ELNO_SIGM'",
2912            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2913          ),
2914
2915          b_pres_dbel_depl  =BLOC(condition="OPTION=='PRES_DBEL_DEPL'",
2916            DEPL            =SIMP(statut='o',typ=(cham_no_depl_c,)),
2917          ),
2918
2919          b_sief_elga_depl  =BLOC(condition="OPTION=='SIEF_ELGA_DEPL'",
2920            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2921          ),
2922
2923          b_sief_elga_lagr  =BLOC(condition="OPTION=='SIEF_ELGA_LAGR'",
2924            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2925            THETA           =SIMP(statut='o',typ=(theta_geom,)),
2926            PROPAGATION     =SIMP(statut='f',typ='R',defaut=0.E+0),
2927          ),
2928
2929          b_sigm_elno_cart  =BLOC(condition="OPTION=='SIGM_ELNO_CART'",
2930            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
2931          ),
2932
2933          b_sigm_elno_depl  =BLOC(condition="OPTION=='SIGM_ELNO_DEPL'",
2934            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,) ),
2935          ),
2936
2937          b_sigm_elno_lagr  =BLOC(condition="OPTION=='SIGM_ELNO_LAGR'",
2938            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2939            THETA           =SIMP(statut='o',typ=(theta_geom,)),
2940            PROPAGATION     =SIMP(statut='f',typ='R',defaut=0.E+0),
2941          ),
2942
2943          b_sipo_elno_depl  =BLOC(condition="OPTION=='SIPO_ELNO_DEPL'",
2944            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
2945          ),
2946
2947          b_thermique  =BLOC(condition="OPTION in ('FLUX_ELNO_TEMP','FLUX_ELGA_TEMP','SOUR_ELGA_ELEC',)",
2948            TEMP            =SIMP(statut='o',typ=(cham_no_temp_r,)),
2949          ),
2950
2951          b_acoustique  =BLOC(condition="OPTION in ('PRES_ELNO_DBEL','PRES_ELNO_REEL','PRES_ELNO_IMAG',)",
2952            PRES            =SIMP(statut='o',typ=(cham_no_pres_c,)),
2953          ),
2954
2955
2956
2957          EXCIT           =FACT(statut='f',min=01,max='**',
2958                regles=(EXCLUS('FONC_MULT','COEF_MULT', ),),
2959                CHARGE          =SIMP(statut='o',typ=(char_meca,char_ther,char_acou)),
2960                FONC_MULT       =SIMP(statut='f',typ=fonction),
2961                COEF_MULT       =SIMP(statut='f',typ='R'), ),
2962
2963          INST            =SIMP(statut='f',typ='R',defaut= 0.E+0),
2964          ACCE            =SIMP(statut='f',typ=cham_no_depl_r),
2965          NUME_COUCHE     =SIMP(statut='f',typ='I',defaut= 1),
2966          NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
2967          MODE_FOURIER    =SIMP(statut='f',typ='I',defaut= 0 ),
2968          ANGLE           =SIMP(statut='f',typ='I',defaut= 0),
2969 )  ;
2970 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
2971 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2972 # ======================================================================
2973 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2974 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2975 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2976 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2977 # (AT YOUR OPTION) ANY LATER VERSION.
2978 #
2979 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2980 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2981 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2982 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2983 #
2984 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2985 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2986 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2987 # ======================================================================
2988 # RESPONSABLE VABHHTS J.PELLET
2989 def calc_char_cine_prod(CHAR_CINE,**args):
2990   if AsType(CHAR_CINE) == char_cine_meca : return cham_no_depl_r
2991   if AsType(CHAR_CINE) == char_cine_ther : return cham_no_temp_r
2992   if AsType(CHAR_CINE) == char_cine_acou : return cham_no_pres_c
2993   raise AsException("type de concept resultat non prevu")
2994
2995 CALC_CHAR_CINE=OPER(nom="CALC_CHAR_CINE",op= 102,sd_prod=calc_char_cine_prod,
2996                     fr="Calcul des seconds membres associés à des charges cinématiques (conditions aux limites non dualisées)",
2997                     docu="U4.61.03-e",reentrant='n',
2998          NUME_DDL        =SIMP(statut='o',typ=nume_ddl ),
2999          CHAR_CINE       =SIMP(statut='o',typ=(char_cine_meca,char_cine_ther,char_cine_acou ) ),
3000          INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3001          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3002 )  ;
3003 #& MODIF COMMANDE  DATE 28/03/2001   AUTEUR CIBHHLV L.VIVAN
3004 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3005 # ======================================================================
3006 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3007 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3008 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3009 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3010 # (AT YOUR OPTION) ANY LATER VERSION.
3011 #
3012 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3013 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3014 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3015 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3016 #
3017 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3018 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3019 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3020 # ======================================================================
3021 def calc_char_seisme_prod(MATR_MASS,**args ):
3022   if AsType(MATR_MASS) == matr_asse_depl_r : return cham_no_depl_r
3023   raise AsException("type de concept resultat non prevu")
3024
3025 CALC_CHAR_SEISME=OPER(nom="CALC_CHAR_SEISME",op=  92,sd_prod=calc_char_seisme_prod,
3026                       docu="U4.63.01-e",reentrant='n',
3027          regles=(UN_PARMI('MONO_APPUI','MODE_STAT' ),),
3028          MATR_MASS       =SIMP(statut='o',typ=matr_asse_depl_r,fr="Matrice de masse" ),
3029          DIRECTION       =SIMP(statut='o',typ='R',max=06,fr="Directions du séisme imposé"),
3030          MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3031          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
3032          b_mode_stat     =BLOC ( condition = "MODE_STAT != None",
3033            regles=(UN_PARMI('NOEUD','GROUP_NO' ),),
3034            NOEUD           =SIMP(statut='f',typ=no,max='**'),
3035            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
3036          ),
3037          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3038 )  ;
3039 #& MODIF COMMANDE  DATE 08/08/2002   AUTEUR CIBHHLV L.VIVAN
3040 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3041 # ======================================================================
3042 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3043 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3044 #              REDISTRIBUTION OF THIS FILE.
3045 # ======================================================================
3046 # RESPONSABLE JMBHH01 J.M.PROIX
3047 def calc_elem_prod(RESULTAT,**args):
3048    if AsType(RESULTAT) != None : return AsType(RESULTAT)
3049    raise AsException("type de concept resultat non prevu")
3050
3051 CALC_ELEM=OPER(nom="CALC_ELEM",op=58,sd_prod=calc_elem_prod,docu="U4.81.01-g3",reentrant='f',
3052                     fr="Compléter un résultat en calculant des champs par éléments (contraintes, déformations,... )",
3053          MODELE          =SIMP(statut='o',typ=modele),
3054          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
3055          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
3056
3057          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3058          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3059          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3060
3061          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
3062                         'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),),
3063          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3064          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
3065          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
3066          NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
3067          NOM_CAS         =SIMP(statut='f',typ='TXM' ),
3068
3069          INST            =SIMP(statut='f',typ='R',max='**'),
3070          FREQ            =SIMP(statut='f',typ='R',max='**'),
3071          LIST_INST       =SIMP(statut='f',typ=listr8),
3072          LIST_FREQ       =SIMP(statut='f',typ=listr8),
3073          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
3074          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
3075
3076          LIST_ORDRE      =SIMP(statut='f',typ=listis),
3077
3078          OPTION          =SIMP(statut='o',typ='TXM',max='**',
3079                                into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
3080                                      "SIGM_ELNO_TUYO","SIGM_ELNO_CART","DEGE_ELNO_DEPL","EFGE_ELNO_CART",
3081                                      "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL",
3082                                      "EPME_ELNO_DEPL","EPME_ELGA_DEPL","EPMG_ELNO_DEPL","EPMG_ELGA_DEPL",
3083                                      "EPSP_ELNO","EPSP_ELGA","ECIN_ELEM_DEPL","SIPO_ELNO_DEPL",
3084                                      "EPGR_ELNO","EPGR_ELGA","DURT_ELGA_META","DURT_ELNO_META",
3085                                      "SIGM_ELNO_COQU","SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",
3086                                      "SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA","ERRE_ELEM_NOZ2",
3087                                      "VNOR_ELEM_DEPL","SIRE_ELNO_DEPL","ERRE_ELGA_NORE","ERRE_ELNO_ELGA",
3088                                      "VARI_ELNO_ELGA","VARI_ELNO_TUYO","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
3089                                      "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI","EQUI_ELNO_EPME","EQUI_ELGA_EPME",
3090                                      "DCHA_ELNO_SIGM","DCHA_ELGA_SIGM","RADI_ELNO_SIGM","RADI_ELGA_SIGM",
3091                                      "ENDO_ELNO_SIGA","ENDO_ELNO_SINO","ENEL_ELGA","ENEL_ELNO_ELGA","SIEF_ELNO_ELGA",
3092                                      "DEUL_ELGA_TEMP","DETE_ELNO_DLTE","DEUL_ELGA_DEPL","DEDE_ELNO_DLDE",
3093                                      "DESI_ELNO_DLSI","PMPB_ELNO_SIEF","PMPB_ELGA_SIEF",
3094                                      "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","HYDR_ELNO_ELGA",
3095                                      "SOUR_ELGA_ELEC","VARI_ELNO_COQU","CRIT_ELNO_RUPT",
3096                                      "PRES_ELNO_DBEL","PRES_DBEL_DEPL","PRES_ELNO_REEL","PRES_ELNO_IMAG",
3097                                      "INTE_ELNO_ACTI","INTE_ELNO_REAC","ERTH_ELEM_TEMP","ERTH_ELNO_ELEM"
3098                                      ) ),
3099          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,mode_meca,
3100                                     mode_stat,mode_stat_depl,mode_stat_acce,mode_stat_forc,
3101                                     evol_noli,mult_elas,fourier_elas,
3102                                                evol_ther,base_modale,
3103                                                acou_harmo,mode_acou,mode_flamb) ),
3104          EXCIT           =FACT(statut='f',min=1,max='**',
3105              regles=(EXCLUS('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
3106              CHARGE          =SIMP(statut='o',typ=(char_meca,char_ther,char_acou) ),
3107              FONC_MULT       =SIMP(statut='f',typ=fonction),
3108              FONC_MULT_C     =SIMP(statut='f',typ=fonction_c),
3109              COEF_MULT       =SIMP(statut='f',typ='R'),
3110              COEF_MULT_C     =SIMP(statut='f',typ='C'),
3111              PHAS_DEG        =SIMP(statut='f',typ='R'),
3112              PUIS_PULS       =SIMP(statut='f',typ='I'),
3113              TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
3114          ),
3115          NORME           =SIMP(statut='f',typ='TXM',defaut="VMIS",
3116                                into=("VMIS","TOTAL","VMIS_CINE","TOTAL_CINE") ),
3117          NUME_COUCHE     =SIMP(statut='f',typ='I',defaut= 1 ),
3118          NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
3119
3120          ANGLE           =SIMP(statut='f',typ='I',defaut= 0 ),
3121          PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL") ),
3122          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
3123                                fr="Liste des paramètres de sensibilité.",
3124                                ang="List of sensitivity parameters"),
3125          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
3126          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3127 )  ;
3128 #& MODIF COMMANDE  DATE 24/06/2002   AUTEUR F1BHHAJ J.ANGLES
3129 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3130 # ======================================================================
3131 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3132 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3133 #              REDISTRIBUTION OF THIS FILE.
3134 # ======================================================================
3135 def calc_fatigue_prod(TYPE_CALCUL,**args):
3136   if TYPE_CALCUL == "CUMUL_DOMMAGE" : return cham_elem_dommag
3137   if TYPE_CALCUL == "FATIGUE_MULTI" : return cham_elem_facy_r
3138   raise AsException("type de calcul non prevu")
3139
3140 CALC_FATIGUE=OPER(nom="CALC_FATIGUE",op= 151,sd_prod=calc_fatigue_prod,reentrant='n',
3141                   fr="Calcul d un cham de dommage ou d un cisaillement maximal dans le plan critique.",
3142                   docu="U4.83.02-c",
3143
3144          TYPE_CALCUL = SIMP(statut='o',typ='TXM',
3145                                into=("CUMUL_DOMMAGE","FATIGUE_MULTI",) ),
3146
3147          b_cumul_domma   =BLOC(condition = "TYPE_CALCUL == 'CUMUL_DOMMAGE'",
3148                                fr="Calcul d un champ de dommage subi par une structure.",
3149            regles=(PRESENT_PRESENT('DOMMAGE','MATER', ),),
3150            OPTION          =SIMP(statut='o',typ='TXM',
3151                                  into=("DOMA_ELNO_SIGM","DOMA_ELGA_SIGM",
3152                                        "DOMA_ELNO_EPSI","DOMA_ELGA_EPSI",
3153                                        "DOMA_ELNO_EPME","DOMA_ELGA_EPME") ),
3154            HISTOIRE        =FACT(statut='o',min=01,max=01,
3155              RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,
3156                                                    evol_noli) ),
3157              EQUI_GD         =SIMP(statut='f',typ='TXM',defaut="VMIS_SG",
3158                                  into=("VMIS_SG","INVA_2_SG") ),
3159            ),
3160            DOMMAGE         =SIMP(statut='o',typ='TXM',
3161                                into=("WOHLER","MANSON_COFFIN","TAHERI_MANSON",
3162                                      "TAHERI_MIXTE",) ),
3163            MATER           =SIMP(statut='o',typ=(mater) ),
3164            TAHERI_NAPPE    =SIMP(statut='f',typ=(fonction) ),
3165            TAHERI_FONC     =SIMP(statut='f',typ=(fonction) ),
3166          ),
3167
3168          b_fatigue_multi   =BLOC(condition = "TYPE_CALCUL == 'FATIGUE_MULTI'",
3169                                  fr="Plan critique dans le cas de la fatigue multiaxiale a grand nombre de cycles.",
3170            RESULTAT      =SIMP(statut='o',typ=(evol_elas, evol_noli) ),
3171            CHAM_MATER    =SIMP(statut='o',typ=(cham_mater) ),
3172            CRITERE       =SIMP(statut='o',typ='TXM',into=("MATAKE",) ),
3173            METHODE       =SIMP(statut='o',typ='TXM',into=("CERCLE_EXACT",) ),
3174          ),
3175
3176          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
3177 )  ;
3178 #& MODIF COMMANDE  DATE 23/04/2001   AUTEUR MCOURTOI M.COURTOIS
3179 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3180 # ======================================================================
3181 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3182 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3183 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3184 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3185 # (AT YOUR OPTION) ANY LATER VERSION.
3186 #
3187 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3188 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3189 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3190 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3191 #
3192 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3193 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3194 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3195 # ======================================================================
3196 CALC_FLUI_STRU=OPER(nom="CALC_FLUI_STRU",op= 144,sd_prod=melasflu,
3197                     docu="U4.66.02-d",reentrant='n',
3198          VITE_FLUI       =FACT(statut='o',min=01,max=01,
3199                                fr="Définir la plage de vitesse fluide étudiée",
3200            VITE_MIN        =SIMP(statut='o',typ='R' ),
3201            VITE_MAX        =SIMP(statut='o',typ='R' ),
3202            NB_POIN         =SIMP(statut='o',typ='I' ),
3203          ),
3204          BASE_MODALE     =FACT(statut='o',min=01,max=01,
3205
3206            regles=(UN_PARMI('AMOR_REDUIT','AMOR_UNIF'),),
3207            MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
3208            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
3209            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
3210            AMOR_UNIF       =SIMP(statut='f',typ='R' ),
3211          ),
3212          TYPE_FLUI_STRU  =SIMP(statut='o',typ=type_flui_stru ),
3213          IMPRESSION      =FACT(statut='f',min=01,max=01,
3214                                fr="Choix des informations à imprimer dans le fichier RESULTAT",
3215            PARA_COUPLAGE   =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3216            DEFORMEE        =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3217          ),
3218 )  ;
3219 #& MODIF COMMANDE  DATE 06/03/2002   AUTEUR MCOURTOI M.COURTOIS
3220 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3221 # ======================================================================
3222 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3223 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3224 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3225 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3226 # (AT YOUR OPTION) ANY LATER VERSION.
3227 #
3228 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3229 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3230 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3231 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3232 #
3233 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3234 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3235 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3236 # ======================================================================
3237 CALC_FONC_INTERP=OPER(nom="CALC_FONC_INTERP",op= 134,sd_prod=fonction,
3238                       docu="U4.32.01-e1",reentrant='f',
3239          regles=(UN_PARMI('VALE_R','LIST_PARA'),),
3240          FONCTION        =SIMP(statut='o',typ=fonction ),
3241          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
3242          VALE_R          =SIMP(statut='f',typ='R',max='**'),
3243          LIST_PARA       =SIMP(statut='f',typ=listr8 ),
3244          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG","INT") ),
3245          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("EXCLU","CONSTANT","LINEAIRE","INTERPRE") ),
3246          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("EXCLU","CONSTANT","LINEAIRE","INTERPRE") ),
3247          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3248          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3249 )  ;
3250 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
3251 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3252 # ======================================================================
3253 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3254 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3255 #              REDISTRIBUTION OF THIS FILE.
3256 # ======================================================================
3257 # RESPONSABLE MCOURTOI M.COURTOIS
3258 def calc_fonction_prod(DERIVE,EXTRACTION,INTEGRE,RMS,NOCI_SEISME,MAX,COMB,COMB_C,ENVELOPPE,
3259                        SPEC_OSCI,ASSE,FFT,COMPOSE,CORR_ACCE,PUISSANCE, NORME, **args):
3260   if (RMS != None)        : return tabl_fonc_rms
3261   if (MAX != None)        : return tabl_fonc_max
3262   if (NOCI_SEISME != None): return tabl_fonc_noci
3263   if (INTEGRE != None)    : return fonction
3264   if (DERIVE != None)     : return fonction
3265   if (COMB != None)       : return fonction
3266   if (ENVELOPPE != None)  : return fonction
3267   if (EXTRACTION != None) : return fonction
3268   if (SPEC_OSCI != None)  : return fonction
3269   if (COMB_C != None)     : return fonction_c
3270   if (COMPOSE != None)    : return fonction
3271   if (ASSE != None)       : return fonction
3272   if (FFT != None)        :
3273      vale=FFT.get_child('FONCTION').get_valeur()
3274      if (AsType(vale) == fonction )  : return fonction_c
3275      if (AsType(vale) == fonction_c) : return fonction
3276   if (CORR_ACCE != None) : return fonction
3277   if (PUISSANCE != None) : return fonction
3278   if (NORME != None) : return table
3279   raise AsException("type de concept resultat non prevu")
3280
3281 CALC_FONCTION=OPER(nom="CALC_FONCTION",op=  91,sd_prod=calc_fonction_prod
3282                     ,fr="Opérations mathématiques sur des concepts de type fonction",
3283                      docu="U4.32.04-f2",reentrant='n',
3284          regles=(UN_PARMI('DERIVE','INTEGRE','SPEC_OSCI','MAX','COMB','COMB_C','ENVELOPPE','RMS',
3285                           'NOCI_SEISME','COMPOSE','EXTRACTION','ASSE','FFT','CORR_ACCE', 'PUISSANCE' ,'NORME'),),
3286          FFT             =FACT(statut='f',min=1,max=1,fr="Calcul de la transformee de Fourier ou de son inverse",
3287            FONCTION        =SIMP(statut='o',typ=(fonction,fonction_c) )
3288          ),
3289          DERIVE          =FACT(statut='f',min=1,max=1,fr="Calcul de la dérivée d une fonction",
3290            METHODE         =SIMP(statut='f',typ='TXM',defaut="DIFF_CENTREE",into=("DIFF_CENTREE",) ),
3291            FONCTION        =SIMP(statut='o',typ=fonction ),
3292          ),
3293          INTEGRE         =FACT(statut='f',min=1,max=1,fr="Calcul de l intégrale d une fonction",
3294            METHODE         =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
3295            FONCTION        =SIMP(statut='o',typ=fonction),
3296            COEF            =SIMP(statut='f',typ='R',defaut= 0.E+0,fr="Valeur de la constante d intégration" ),
3297          ),
3298          RMS             =FACT(statut='f',min=1,max=1,fr="Calcul de la valeur RMS d une fonction",
3299            METHODE         =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
3300            FONCTION        =SIMP(statut='o',typ=fonction ),
3301            INST_INIT       =SIMP(statut='f',typ='R',fr="Instant initial définissant le début du signal" ),
3302            INST_FIN        =SIMP(statut='f',typ='R',fr="Instant final définissant la fin du signal" ),
3303            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3304            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
3305          ),
3306          NOCI_SEISME     =FACT(statut='f',min=1,max=1,
3307            FONCTION        =SIMP(statut='f',typ=fonction ),
3308            SPEC_OSCI       =SIMP(statut='f',typ=fonction ),
3309            OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",max='**',
3310                                  into=("INTE_ARIAS","POUV_DEST","INTE_SPEC","VITE_ABSO_CUMU",
3311                                        "DUREE_PHAS_FORT","MAXI","ACCE_SUR_VITE","TOUT",) ),
3312            INST_INIT       =SIMP(statut='f',typ='R'),
3313            INST_FIN        =SIMP(statut='f',typ='R'),
3314            NATURE          =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE") ),
3315            COEF            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3316            PESANTEUR       =SIMP(statut='f',typ='R',defaut= 9.81E+0 ),
3317            FREQ_INIT       =SIMP(statut='f',typ='R',defaut= 4.E-1 ),
3318            FREQ_FIN        =SIMP(statut='f',typ='R',defaut= 10.E+0 ),
3319            AMOR_REDUIT     =SIMP(statut='f',typ='R'),
3320            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
3321            FREQ            =SIMP(statut='f',typ='R',max='**'),
3322            NORME           =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
3323            BORNE_INF       =SIMP(statut='f',typ='R',defaut= 0.05E+0 ),
3324            BORNE_SUP       =SIMP(statut='f',typ='R',defaut= 0.95E+0 ),
3325            b_acce_reel     =BLOC(condition="(INST_INIT != None)or(INST_FIN != None)or(FREQ_INIT != None)or(FREQ_FIN != None)",
3326              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
3327              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3328            ),
3329          ),
3330          SPEC_OSCI       =FACT(statut='f',min=1,max=1,fr="Calcul du spectre d oscillateur",
3331            METHODE         =SIMP(statut='f',typ='TXM',defaut="NIGAM",into=("NIGAM",) ),
3332            FONCTION        =SIMP(statut='o',typ=fonction ),
3333            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
3334            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
3335            FREQ            =SIMP(statut='f',typ='R',max='**'),
3336            NORME           =SIMP(statut='f',typ='R',defaut= 9.81E+0,fr="Valeur de la norme du spectre d oscillateur" ),
3337            NATURE          =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
3338            NATURE_FONC     =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
3339          ),
3340          MAX             =FACT(statut='f',min=1,max=1,fr="Calcul des extrémas locaux d une fonction",
3341            FONCTION        =SIMP(statut='o',typ=fonction ),
3342          ),
3343          COMB            =FACT(statut='f',min=1,max='**',fr="Calcul d une combinaison linéaire réelle de fonctions",
3344            FONCTION        =SIMP(statut='o',typ=fonction ),
3345            COEF            =SIMP(statut='o',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
3346          ),
3347          COMB_C          =FACT(statut='f',min=1,max='**',fr="Calcul d une combinaison linéaire complexe de fonctions",
3348            regles=(UN_PARMI('COEF_R','COEF_C'),),
3349            FONCTION        =SIMP(statut='o',typ=(fonction, fonction_c) ),
3350            COEF_R          =SIMP(statut='f',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
3351            COEF_C          =SIMP(statut='f',typ='C',fr="Coefficient complexe de la combinaison linéaire associée à la fonction" ),
3352          ),
3353          b_comb          =BLOC ( condition = " (COMB != None) or (COMB_C != None)",
3354              LIST_PARA      =SIMP(statut='f',typ=listr8 ),
3355          ),
3356          COMPOSE         =FACT(statut='f',min=1,max=1,fr="Calcul de la composition de deux fonctions FONC_RESU(FONC_PARA)",
3357            FONC_RESU       =SIMP(statut='o',typ=fonction),
3358            FONC_PARA       =SIMP(statut='o',typ=fonction),
3359          ),
3360          EXTRACTION      =FACT(statut='f',min=1,max=1,fr="Opération d extraction sur une fonction complexe",
3361            FONCTION        =SIMP(statut='o',typ=fonction_c),
3362            PARTIE          =SIMP(statut='o',typ='TXM',into=("REEL","IMAG","MODULE","PHASE"),fr="Partie à extraire"),
3363          ),
3364          ENVELOPPE       =FACT(statut='f',min=1,max=1,fr="Calcul de l enveloppe d une famille de fonctions",
3365            FONCTION        =SIMP(statut='o',typ=fonction,max='**' ),
3366            CRITERE         =SIMP(statut='f',typ='TXM',defaut="SUP",into=("SUP","INF"),fr="Type de l enveloppe" ),
3367          ),
3368          ASSE            =FACT(statut='f',min=1,max=1,fr="Création à partir de la concatenation de fonctions",
3369            FONCTION        =SIMP(statut='o',typ=fonction,max='**' ),
3370            SURCHARGE       =SIMP(statut='f',typ='TXM',defaut="DROITE",into=("DROITE","GAUCHE")),
3371          ),
3372           CORR_ACCE     =FACT(statut='f',min=1,max=1,fr="Correction d un accelerogramme reel",
3373             CORR_DEPL          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
3374             FONCTION        =SIMP(statut='o',typ=fonction ),
3375          ),
3376          PUISSANCE       =FACT(statut='f',min=1,max=1,fr="Cacul du carré d'une fonction",
3377             FONCTION      =SIMP(statut='o', typ=fonction),
3378             EXPOSANT      =SIMP(statut='f', typ='I', defaut=1 ),
3379          ),
3380          NORME     =FACT(statut='f',min=1,max=1,fr="Cacul de la norme L2 d'une fonction",
3381             FONCTION =SIMP(statut='o', typ=fonction),
3382          ),
3383          NOM_PARA        =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
3384                                                           "INST","X","Y","Z","EPSI","FREQ","PULS",
3385                                                           "AMOR","ABSC") ),
3386          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
3387          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
3388          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3389          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3390          NOM_PARA_FONC   =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
3391                                                           "INST","X","Y","Z","EPSI","FREQ","PULS",
3392                                                           "AMOR","ABSC") ),
3393          INTERPOL_FONC   =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
3394          PROL_DROITE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3395          PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
3396          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3397          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3398 )  ;
3399 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
3400 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3401 # ======================================================================
3402 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3403 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3404 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3405 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3406 # (AT YOUR OPTION) ANY LATER VERSION.
3407 #
3408 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3409 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3410 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3411 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3412 #
3413 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3414 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3415 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3416 # ======================================================================
3417 CALC_FORC_AJOU=OPER(nom="CALC_FORC_AJOU",op=199,sd_prod=vect_asse_gene,
3418                    fr="calcul de la force ajoutee ",
3419                    docu="U4.66.03-a1",reentrant ='n',
3420
3421         regles=(EXCLUS('MODE_MECA','MODELE_GENE'),
3422                 PRESENT_PRESENT( 'MODELE_GENE','NUME_DDL_GENE'),
3423                 UN_PARMI('MONO_APPUI', 'NOEUD','GROUP_NO'),
3424                 UN_PARMI('MONO_APPUI','MODE_STAT')),
3425
3426          MODELE_FLUIDE   =SIMP(statut='o',typ=modele ),
3427          MODELE_INTERFACE=SIMP(statut='o',typ=modele ),
3428          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
3429          CHARGE          =SIMP(statut='o',typ=char_ther ),
3430          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
3431          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
3432          NUME_DDL_GENE   =SIMP(statut='f',typ=nume_ddl_gene ),
3433          DIST_REFE       =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
3434          AVEC_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3435          NUME_MODE_MECA  =SIMP(statut='f',typ='I',max='**'),
3436          POTENTIEL       =SIMP(statut='f',typ=evol_ther ),
3437          NOEUD_DOUBLE    =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3438
3439          DIRECTION       =SIMP(statut='o',typ='R',max=3),
3440          MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",),),
3441          NOEUD           =SIMP(statut='f',typ=no,max='**'),
3442          GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
3443          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,),),
3444
3445          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3446
3447          SOLVEUR         =FACT(statut='d',min=1,max=1,
3448            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
3449            b_mult_front    = BLOC ( condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
3450              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
3451            ),
3452            b_ldlt          =BLOC( condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
3453              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
3454            ),
3455            b_ldlt_mult     =BLOC( condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
3456                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
3457              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
3458              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3459            ),
3460            b_gcpc          =BLOC (condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
3461              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
3462              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
3463              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
3464              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
3465              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
3466            ),
3467 #  A quoi sert eps
3468            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0),  ),
3469
3470            ) ;
3471 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
3472 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3473 # ======================================================================
3474 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3475 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3476 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3477 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3478 # (AT YOUR OPTION) ANY LATER VERSION.
3479 #
3480 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3481 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3482 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3483 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3484 #
3485 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3486 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3487 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3488 # ======================================================================
3489 CALC_G_LOCAL_T=OPER(nom="CALC_G_LOCAL_T",op=77,sd_prod=tabl_calc_g_loca,
3490                     fr="Calcul du taux de restitution local d énergie",docu="U4.82.04-f3",reentrant='n',
3491          MODELE          =SIMP(statut='o',typ=modele),
3492          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
3493          regles=(UN_PARMI('FOND','FOND_FISS' ),
3494                  UN_PARMI('RESULTAT','DEPL'),
3495                  UN_PARMI('R_INF','R_INF_FO'),
3496                  PRESENT_PRESENT('R_INF','R_SUP'),
3497                  PRESENT_PRESENT('R_INF_FO','R_SUP_FO'), ),
3498          FOND            =SIMP(statut='f',typ=fond_fiss),
3499          FOND_FISS       =SIMP(statut='f',typ=fond_fiss),
3500          DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
3501          RESULTAT        =SIMP(statut='f',typ=(evol_elas,evol_noli),),
3502          b_extrac        =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
3503              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
3504              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3505              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
3506              LIST_ORDRE      =SIMP(statut='f',typ=listis),
3507              INST            =SIMP(statut='f',typ='R',max='**'),
3508              LIST_INST       =SIMP(statut='f',typ=listr8),
3509
3510              b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
3511                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
3512                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3513              ),
3514          ),
3515
3516          CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
3517          SYME_CHAR       =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
3518
3519          COMP_ELAS       =FACT(statut='f',min=01,max=01,
3520                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
3521                                      into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
3522                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3523                ELAS_VMIS_LINE  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3524                ELAS_VMIS_TRAC  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3525                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
3526       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3527                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3528                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3529                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3530          ),
3531
3532          COMP_INCR       =FACT(statut='f',min=01,max=01,
3533                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
3534                                      into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
3535                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3536                VMIS_ISOT_TRAC  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3537                VMIS_ISOT_LINE  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3538                VMIS_CINE_LINE  =SIMP(statut='f',typ='I',defaut=7,into=(7,) ),
3539                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
3540       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3541                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3542                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3543                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3544          ),
3545
3546          ETAT_INIT       =FACT(statut='f',min=01,max=01,
3547            SIGM            =SIMP(statut='f',typ=cham_elem_sief_r),
3548            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
3549          ),
3550
3551          OPTION          =SIMP(statut='f',typ='TXM',defaut="CALC_G",
3552                                into=("CALC_G","CALC_G_LGLO","G_BILINEAIRE","CALC_G_MAX") ),
3553          b_g             =BLOC(condition="OPTION=='CALC_G'",
3554            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3555            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE","LAGRANGE_NO_NO",) ),
3556          ),
3557          b_g_lglo        =BLOC(condition="OPTION=='CALC_G_LGLO'",
3558            PROPAGATION     =SIMP(statut='o',typ='R'),
3559            THETA           =SIMP(statut='o',typ=theta_geom),
3560            DIRE_THETA      =SIMP(statut='f',typ=cham_no_depl_r),
3561            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3562            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE","LAGRANGE_NO_NO",) ),
3563          ),
3564          b_g_bilin       =BLOC(condition="OPTION=='G_BILINEAIRE'",
3565            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3566            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3567          ),
3568          b_calc_g_max    =BLOC(condition="OPTION=='CALC_G_MAX'",
3569            BORNES          =FACT(statut='o',min=01,max='**',
3570               NUME_ORDRE     =SIMP(statut='o',typ='I'),
3571               VALE_MIN       =SIMP(statut='o',typ='R'),
3572               VALE_MAX       =SIMP(statut='o',typ='R'),
3573                                 ),
3574            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3575            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
3576          ),
3577
3578          DEGRE           =SIMP(statut='f',typ='I',defaut=5,into=(0,1,2,3,4,5,6,7) ),
3579
3580          R_INF           =SIMP(statut='f',typ='R'),
3581          R_SUP           =SIMP(statut='f',typ='R'),
3582          R_INF_FO        =SIMP(statut='f',typ=fonction),
3583          R_SUP_FO        =SIMP(statut='f',typ=fonction),
3584
3585          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3586          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
3587 )  ;
3588 #& MODIF COMMANDE  DATE 03/07/2002   AUTEUR CIBHHPD D.NUNEZ
3589 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3590 # ======================================================================
3591 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3592 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3593 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3594 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3595 # (AT YOUR OPTION) ANY LATER VERSION.
3596 #
3597 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3598 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3599 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3600 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3601 #
3602 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3603 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3604 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3605 # ======================================================================
3606 CALC_G_THETA_T=OPER(nom="CALC_G_THETA_T",op=53,sd_prod=tabl_calc_g_th,
3607                     fr="Calcul du taux de restitution d énergie par la méthode theta en thermo-élasticité en 2D ou en 3D",
3608                     docu="U4.82.03-f2",reentrant='n',
3609          regles=(UN_PARMI('RESULTAT','DEPL'),
3610                  EXCLUS('COMP_ELAS','COMP_INCR'),),
3611          MODELE          =SIMP(statut='o',typ=modele),
3612          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
3613          THETA           =SIMP(statut='o',typ=theta_geom),
3614          DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
3615          RESULTAT        =SIMP(statut='f',typ=(evol_elas,evol_noli),),
3616
3617          b_extrac        =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
3618            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
3619            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3620            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
3621            LIST_ORDRE      =SIMP(statut='f',typ=listis),
3622            INST            =SIMP(statut='f',typ='R',max='**'),
3623            LIST_INST       =SIMP(statut='f',typ=listr8),
3624
3625            b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
3626              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
3627              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
3628            ),
3629          ),
3630
3631          CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
3632          SYME_CHAR       =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
3633
3634          COMP_ELAS       =FACT(statut='f',min=01,max=01,
3635                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
3636                                      into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
3637                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3638                ELAS_VMIS_LINE  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3639                ELAS_VMIS_TRAC  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3640                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
3641       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3642                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3643                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3644                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3645          ),
3646          COMP_INCR       =FACT(statut='f',min=01,max=01,
3647                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
3648                                      into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
3649                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
3650                VMIS_ISOT_TRAC  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3651                VMIS_ISOT_LINE  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
3652                VMIS_CINE_LINE  =SIMP(statut='f',typ='I',defaut=7,into=(7,) ),
3653                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
3654       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3655                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3656                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3657                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3658          ),
3659          ETAT_INIT       =FACT(statut='f',min=01,max=01,
3660            SIGM            =SIMP(statut='f',typ=cham_elem_sief_r),
3661            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
3662          ),
3663          OPTION          =SIMP(statut='f',typ='TXM',defaut="CALC_G",
3664                                into=("CALC_G","CALC_G_LAGR","CALC_K_G","G_BILINEAIRE","CALC_G_MAX","CALC_DG",) ),
3665          b_calc_g_max    =BLOC(condition="OPTION=='CALC_G_MAX'",
3666            BORNES          =FACT(statut='o',min=01,max='**',
3667                 NUME_ORDRE     =SIMP(statut='o',typ='I'),
3668                 VALE_MIN       =SIMP(statut='o',typ='R'),
3669                 VALE_MAX       =SIMP(statut='o',typ='R'),
3670                                 ),
3671          ),
3672          b_calc_k_g      =BLOC(condition="OPTION=='CALC_K_G'",
3673              regles=(UN_PARMI('FOND','FOND_FISS' ),),
3674            FOND            =SIMP(statut='f',typ=fond_fiss),
3675            FOND_FISS       =SIMP(statut='f',typ=fond_fiss),
3676          ),
3677          b_calc_g_lagr   =BLOC(condition="OPTION=='CALC_G_LAGR'",
3678            PROPAGATION     =SIMP(statut='o',typ='R'),
3679          ),
3680          b_calc_dg       =BLOC(condition="OPTION=='CALC_DG'",
3681            SENSIBILITE     =FACT(statut='f',min=01,max=01,
3682                  THETA          =SIMP(statut='o',typ=theta_geom ),
3683                                ),
3684          ),
3685
3686          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3687          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
3688 )  ;
3689 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
3690 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3691 # ======================================================================
3692 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3693 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3694 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3695 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3696 # (AT YOUR OPTION) ANY LATER VERSION.
3697 #
3698 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3699 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3700 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3701 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3702 #
3703 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3704 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3705 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3706 # ======================================================================
3707 CALC_INTE_SPEC=OPER(nom="CALC_INTE_SPEC",op= 120,sd_prod=tabl_intsp,
3708                     fr="Calcul d une matrice interspectrale d une fonction du temps",
3709                     docu="U4.36.03-e",reentrant='n',
3710          INST_INIT       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3711          INST_FIN        =SIMP(statut='o',typ='R' ),
3712          DUREE_ANALYSE   =SIMP(statut='f',typ='R' ),
3713          DUREE_DECALAGE  =SIMP(statut='f',typ='R' ),
3714          NB_POIN         =SIMP(statut='o',typ='I' ),
3715          FONCTION        =SIMP(statut='o',typ=fonction,max='**' ),
3716          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3717          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
3718 )  ;
3719 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
3720 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3721 # ======================================================================
3722 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3723 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3724 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3725 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3726 # (AT YOUR OPTION) ANY LATER VERSION.
3727 #
3728 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3729 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3730 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3731 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3732 #
3733 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3734 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3735 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3736 # ======================================================================
3737 CALC_MATR_AJOU=OPER(nom="CALC_MATR_AJOU",op= 152,sd_prod=matr_asse_gene_r,
3738                     fr="Calcul des matrices de masse, d amortissement ou de raideur ajoutées",
3739                     docu="U4.66.01-c",reentrant='n',
3740          regles=(EXCLUS('MODE_MECA','CHAM_NO','MODELE_GENE'),
3741                  PRESENT_ABSENT('NUME_DDL_GENE','CHAM_NO'),
3742                  PRESENT_PRESENT('MODELE_GENE','NUME_DDL_GENE'),),
3743          MODELE_FLUIDE   =SIMP(statut='o',typ=modele ),
3744          MODELE_INTERFACE=SIMP(statut='o',typ=modele ),
3745          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
3746          CHARGE          =SIMP(statut='o',typ=char_ther ),
3747          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
3748          CHAM_NO         =SIMP(statut='f',typ=cham_no_depl_r ),
3749          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
3750          NUME_DDL_GENE   =SIMP(statut='f',typ=nume_ddl_gene ),
3751          DIST_REFE       =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
3752          AVEC_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3753          NUME_MODE_MECA  =SIMP(statut='f',typ='I',max='**'),
3754          OPTION          =SIMP(statut='o',typ='TXM',into=("MASS_AJOU","AMOR_AJOU","RIGI_AJOU") ),
3755          POTENTIEL       =SIMP(statut='f',typ=evol_ther ),
3756          NOEUD_DOUBLE    =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
3757          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3758
3759          SOLVEUR         =FACT(statut='d',min=1,max=1,
3760            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
3761            b_mult_front    = BLOC ( condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
3762              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
3763            ),
3764            b_ldlt          =BLOC( condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
3765              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
3766            ),
3767            b_ldlt_mult     =BLOC( condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
3768                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
3769              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
3770              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3771            ),
3772            b_gcpc          =BLOC (condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
3773              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
3774              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
3775              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
3776              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
3777              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
3778            ),
3779 #  A quoi sert eps
3780            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3781          ),
3782 )  ;
3783 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
3784 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3785 # ======================================================================
3786 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3787 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3788 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3789 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3790 # (AT YOUR OPTION) ANY LATER VERSION.
3791 #
3792 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3793 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3794 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3795 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3796 #
3797 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3798 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3799 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3800 # ======================================================================
3801 # RESPONSABLE VABHHTS J.PELLET
3802 def calc_matr_elem_prod(OPTION,**args):
3803   if OPTION == "RIGI_MECA"        : return matr_elem_depl_r
3804   if OPTION == "RIGI_FLUI_STRU"   : return matr_elem_depl_r
3805   if OPTION == "RIGI_MECA_LAGR"   : return matr_elem_depl_r
3806   if OPTION == "MASS_ID_MDEP_R"   : return matr_elem_depl_r
3807   if OPTION == "MASS_ID_MDNS_R"   : return matr_elem_depl_r
3808   if OPTION == "MASS_ID_MTEM_R"   : return matr_elem_temp_r
3809   if OPTION == "MASS_ID_MTNS_R"   : return matr_elem_temp_r
3810   if OPTION == "MASS_MECA"        : return matr_elem_depl_r
3811   if OPTION == "MASS_FLUI_STRU"   : return matr_elem_depl_r
3812   if OPTION == "RIGI_GEOM"        : return matr_elem_depl_r
3813   if OPTION == "RIGI_ROTA"        : return matr_elem_depl_r
3814   if OPTION == "AMOR_MECA"        : return matr_elem_depl_r
3815   if OPTION == "IMPE_MECA"        : return matr_elem_depl_r
3816   if OPTION == "ONDE_FLUI"        : return matr_elem_depl_r
3817   if OPTION == "RIGI_MECA_HYST"   : return matr_elem_depl_c
3818   if OPTION == "RIGI_THER"        : return matr_elem_temp_r
3819   if OPTION == "MASS_THER"        : return matr_elem_temp_r
3820   if OPTION == "MASS_MECA_DIAG"   : return matr_elem_depl_r
3821   if OPTION == "RIGI_ACOU"        : return matr_elem_pres_c
3822   if OPTION == "MASS_ACOU"        : return matr_elem_pres_c
3823   if OPTION == "AMOR_ACOU"        : return matr_elem_pres_c
3824   raise AsException("type de concept resultat non prevu")
3825
3826 CALC_MATR_ELEM=OPER(nom="CALC_MATR_ELEM",op=   9,sd_prod=calc_matr_elem_prod
3827                     ,fr="Calcul des matrices élémentaires",docu="U4.61.01-g1",reentrant='n',
3828          OPTION          =SIMP(statut='o',typ='TXM',
3829                                into=("RIGI_MECA","MASS_MECA","RIGI_GEOM",
3830                                      "AMOR_MECA","RIGI_THER","MASS_THER","IMPE_MECA",
3831                                      "ONDE_FLUI","MASS_FLUI_STRU","RIGI_FLUI_STRU",
3832                                      "RIGI_ROTA","MASS_MECA_DIAG","RIGI_ACOU",
3833                                      "MASS_ID_MDEP_R","MASS_ID_MDNS_R","MASS_ID_MTEM_R","MASS_ID_MTNS_R",
3834                                      "MASS_ACOU","AMOR_ACOU","RIGI_MECA_HYST",
3835                                      "RIGI_MECA_LAGR") ),
3836
3837          b_rigi_meca = BLOC( condition = "OPTION=='RIGI_MECA'",
3838            regles=(AU_MOINS_UN('MODELE','CHARGE' ),),
3839            MODELE          =SIMP(statut='f',typ=modele ),
3840            b_modele        =BLOC(condition = "MODELE != None",
3841              CHAM_MATER      =SIMP(statut='f',typ=cham_mater ),
3842              CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
3843              MODE_FOURIER    =SIMP(statut='f',typ='I',defaut= 0 ),
3844            ),
3845            CHARGE          =SIMP(statut='f',typ=char_meca,max='**' ),
3846            b_charge        =BLOC (condition = "CHARGE != None",
3847              INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3848            ),
3849          ),
3850
3851          b_rigi_meca_lagr  =BLOC(condition = "OPTION=='RIGI_MECA_LAGR'",
3852            MODELE            =SIMP(statut='o',typ=modele ),
3853            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
3854            CHARGE            =SIMP(statut='f',typ=char_meca,max='**'  ),
3855            b_charge        =BLOC(condition = "CHARGE != None",
3856              INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3857            ),
3858            THETA           =SIMP(statut='o',typ=theta_geom ),
3859            PROPAGATION     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3860          ),
3861
3862          b_mass_meca       =BLOC(condition = "(OPTION=='MASS_MECA') or (OPTION=='MASS_MECA_DIAG')",
3863            regles=(AU_MOINS_UN('MODELE','CHARGE'),),
3864            MODELE          =SIMP(statut='f',typ=modele ),
3865            b_modele          =BLOC(condition = "MODELE != None",
3866              CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
3867              CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
3868            ),
3869            CHARGE          =SIMP(statut='f',typ=char_meca,max='**' ),
3870            b_charge        =BLOC(condition = "CHARGE != None",
3871              INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3872            ),
3873          ),
3874
3875          b_mass_identite   =BLOC(condition = "(OPTION in ('MASS_ID_MDEP_R','MASS_ID_MTEM_R','MASS_ID_MDNS_R','MASS_ID_MTNS_R')) ",
3876            MODELE            =SIMP(statut='o',typ=modele ),
3877            # j'ajoute ces 2 mot clés inutiles à cause de l'alarme pas assez subtile de MEDOME
3878            CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
3879            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
3880          ),
3881
3882          b_rigi_geom       =BLOC(condition = "OPTION=='RIGI_GEOM'",
3883            MODELE            =SIMP(statut='o',typ=modele ),
3884            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
3885            SIEF_ELGA         =SIMP(statut='o',typ=cham_elem_sief_r ),
3886            MODE_FOURIER      =SIMP(statut='f',typ='I',defaut= 0 ),
3887          ),
3888
3889          b_rigi_rota       =BLOC(condition = "OPTION=='RIGI_ROTA'",
3890            MODELE            =SIMP(statut='o',typ=modele ),
3891            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
3892            CHARGE            =SIMP(statut='o',typ=char_meca,max='**' ),
3893            INST              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3894          ),
3895
3896          b_amor_meca       =BLOC(condition = "OPTION=='AMOR_MECA'",
3897            regles=(AU_MOINS_UN('CARA_ELEM','RIGI_MECA'),
3898                    ENSEMBLE('RIGI_MECA','MASS_MECA','CHAM_MATER'), ),
3899            MODELE            =SIMP(statut='o',typ=modele ),
3900            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
3901            CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
3902            RIGI_MECA         =SIMP(statut='f',typ=matr_elem_depl_r ),
3903            MASS_MECA         =SIMP(statut='f',typ=matr_elem_depl_r ),
3904            CHARGE            =SIMP(statut='f',typ=char_meca,max='**' ),
3905          ),
3906
3907          b_rigi_meca_hyst  =BLOC( condition = "OPTION=='RIGI_MECA_HYST'",
3908            MODELE            =SIMP(statut='o',typ=modele ),
3909            CHARGE            =SIMP(statut='o',typ=char_meca ,max='**' ),
3910            CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
3911            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
3912            RIGI_MECA         =SIMP(statut='o',typ=matr_elem_depl_r ),
3913          ),
3914
3915          b_rigi_ther       =BLOC(condition = "OPTION=='RIGI_THER'",
3916            regles=(AU_MOINS_UN('MODELE','CHARGE' ),),
3917            MODELE            =SIMP(statut='f',typ=modele ),
3918            b_modele          =BLOC(condition = "MODELE != None",
3919              CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
3920              CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
3921              MODE_FOURIER      =SIMP(statut='f',typ='I',defaut= 0 ),
3922            ),
3923            CHARGE            =SIMP(statut='f',typ=char_ther,max='**' ),
3924          ),
3925
3926          b_mass_ther       =BLOC(condition = "OPTION=='MASS_THER'",
3927            MODELE            =SIMP(statut='o',typ=modele ),
3928            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
3929            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
3930          ),
3931
3932          b_rigi_acou       =BLOC(condition = "(OPTION=='RIGI_ACOU') or (OPTION=='MASS_ACOU') or (OPTION=='AMOR_ACOU')",
3933            MODELE            =SIMP(statut='o',typ=modele ),
3934            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
3935            CHARGE            =SIMP(statut='f',typ=char_acou ,max='**' ),
3936          ),
3937
3938          b_rigi_flui       =BLOC(condition = "(OPTION=='RIGI_FLUI_STRU') or (OPTION=='MASS_FLUI_STRU')",
3939            MODELE            =SIMP(statut='o',typ=modele ),
3940            CARA_ELEM         =SIMP(statut='o',typ=cara_elem ),
3941            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
3942            CHARGE            =SIMP(statut='o',typ=char_meca ,max='**' ),
3943            INST              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3944          ),
3945
3946          b_impe_meca       =BLOC(condition = "(OPTION=='IMPE_MECA') or (OPTION=='ONDE_FLUI')",
3947            MODELE            =SIMP(statut='o',typ=modele ),
3948            CHARGE            =SIMP(statut='o',typ=char_meca,max='**' ),
3949            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
3950          ),
3951 )  ;
3952 #& MODIF COMMANDE  DATE 06/03/2002   AUTEUR MCOURTOI M.COURTOIS
3953 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3954 # ======================================================================
3955 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3956 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3957 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3958 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3959 # (AT YOUR OPTION) ANY LATER VERSION.
3960 #
3961 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3962 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3963 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3964 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3965 #
3966 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3967 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3968 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3969 # ======================================================================
3970 CALC_META=OPER(nom="CALC_META",op=194,sd_prod=evol_ther,docu="U4.85.01-b1",reentrant='o',
3971                fr="Calcule la métallurgie a partir du résultat du calcul thermique",
3972          MODELE          =SIMP(statut='o',typ=modele ),
3973          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
3974          RESULTAT        =SIMP(statut='o',typ=evol_ther ),
3975          ETAT_INIT       =FACT(statut='o',min=01,max=01,
3976       regles=(UN_PARMI('NUME_INIT','META_INIT',),),
3977            EVOL_THER       =SIMP(statut='f',typ=evol_ther ),
3978            NUME_INIT       =SIMP(statut='f',typ='I' ),
3979            META_INIT       =SIMP(statut='f',typ=carte_var2_r ),
3980          ),
3981          COMP_INCR       =FACT(statut='o',min=01,max='**',
3982            RELATION        =SIMP(statut='o',typ='TXM',into=("ACIER","ZIRC",) ),
3983            ACIER           =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
3984            ZIRC            =SIMP(statut='c',typ='I',defaut=3,into=(3,) ),
3985       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
3986            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3987            GROUP_MA        =SIMP(statut='f',typ=grma),
3988            MAILLE          =SIMP(statut='f',typ=ma),
3989          ),
3990          OPTION          =SIMP(statut='f',typ='TXM'
3991                              ,into=("META_ELNO_TEMP",) ),
3992 )  ;
3993 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
3994 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3995 # ======================================================================
3996 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3997 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3998 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3999 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4000 # (AT YOUR OPTION) ANY LATER VERSION.
4001 #
4002 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4003 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4004 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4005 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4006 #
4007 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4008 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4009 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4010 # ======================================================================
4011 # RESPONSABLE G8BHHXD X.DESROCHES
4012 def calc_no_prod(RESULTAT,**args):
4013    if AsType(RESULTAT) != None : return AsType(RESULTAT)
4014    raise AsException("type de concept resultat non prevu")
4015
4016 CALC_NO=OPER(nom="CALC_NO",op= 106,sd_prod=calc_no_prod,docu="U4.81.02-f3",reentrant='o',
4017          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
4018                                                mode_acou,mode_stat,mode_stat_depl,mode_stat_acce,
4019                                               mode_stat_forc,evol_ther,evol_noli,base_modale,
4020                                                mult_elas,fourier_elas,mode_flamb ) ),
4021          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
4022                                fr="Liste des paramètres de sensibilité.",
4023                                ang="List of sensitivity parameters"),
4024
4025          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
4026                         'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),),
4027          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4028          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
4029          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
4030          NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
4031          NOM_CAS         =SIMP(statut='f',typ='TXM' ),
4032          INST            =SIMP(statut='f',typ='R',max='**'),
4033          FREQ            =SIMP(statut='f',typ='R',max='**'),
4034          LIST_INST       =SIMP(statut='f',typ=listr8),
4035          LIST_FREQ       =SIMP(statut='f',typ=listr8),
4036          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
4037          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4038          LIST_ORDRE      =SIMP(statut='f',typ=listis),
4039
4040          OPTION          =SIMP(statut='o',typ='TXM',max='**',
4041                                into=("FORC_NODA","REAC_NODA",
4042                                      "DCHA_NOEU_SIGM",
4043                                      "DEGE_NOEU_DEPL",
4044                                      "DETE_NOEU_DLTE",
4045                                      "DEDE_NOEU_DLDE",
4046                                      "DESI_NOEU_DLSI",
4047                                      "DURT_NOEU_META",
4048                                      "EFGE_NOEU_CART","EFGE_NOEU_DEPL",
4049                                      "ENDO_NOEU_SINO",
4050                                      "ENEL_NOEU_ELGA",
4051                                      "EPMG_NOEU_DEPL",
4052                                      "EPSA_NOEU",
4053                                      "EPSG_NOEU"     ,"EPSG_NOEU_DEPL",
4054                                      "EPSI_NOEU_DEPL","EPSI_NOEU_DPGE",
4055                                      "EPSP_NOEU"     ,"EPSP_NOEU_ZAC",
4056                                      "EQUI_NOEU_EPME","EQUI_NOEU_EPSI","EQUI_NOEU_SIGM",
4057                                      "ERRE_NOEU_ELGA",
4058                                      "FLUX_NOEU_TEMP",
4059                                      "GRAD_NOEU_THETA",
4060                                      "HYDR_NOEU_ELGA",
4061                                      "INTE_NOEU_ACTI","INTE_NOEU_REAC",
4062                                      "META_NOEU_TEMP",
4063                                      "PMPB_NOEU_SIEF",
4064                                      "PRES_NOEU_DBEL","PRES_NOEU_IMAG","PRES_NOEU_REEL",
4065                                      "RADI_NOEU_SIGM",
4066                                      "SIEF_NOEU"     ,"SIEF_NOEU_ELGA",
4067                                      "SIGM_NOEU_CART","SIGM_NOEU_COQU","SIGM_NOEU_DEPL","SIGM_NOEU_DPGE",
4068                                      "SIGM_NOEU_SIEF","SIGM_NOEU_VARI","SIGM_NOEU_ZAC",
4069                                      "SIPO_NOEU_DEPL","SIPO_NOEU_SIEF",
4070                                      "SIRE_NOEU_DEPL",
4071                                      "VARI_NOEU"     ,"VARI_NOEU_ELGA",) ),
4072
4073          b_forc_reac     =BLOC(condition = """(OPTION == 'FORC_NODA') or (type(OPTION) == type(()) and 'FORC_NODA' in OPTION) or\
4074  (OPTION == 'REAC_NODA') or (type(OPTION) == type(()) and 'REAC_NODA' in OPTION)""",
4075              MODELE          =SIMP(statut='o',typ=modele),
4076          ),
4077
4078          CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
4079          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
4080          EXCIT           =FACT(statut='f',min=1,max='**',
4081            CHARGE          =SIMP(statut='f',typ=(char_meca,char_ther,char_acou) ),
4082            FONC_MULT       =SIMP(statut='f',typ=fonction),
4083            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
4084                                  into=("FIXE_CSTE","FIXE_PILO","SUIV") ),
4085          ),
4086          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4087          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4088          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4089 )  ;
4090 #& MODIF COMMANDE  DATE 03/07/2002   AUTEUR CIBHHPD D.NUNEZ
4091 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4092 # ======================================================================
4093 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4094 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4095 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4096 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4097 # (AT YOUR OPTION) ANY LATER VERSION.
4098 #
4099 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4100 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4101 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4102 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4103 #
4104 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4105 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4106 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4107 # ======================================================================
4108 CALC_THETA=OPER(nom="CALC_THETA",op=54,sd_prod=theta_geom,docu="U4.82.02-d",reentrant='n',
4109                 fr="Affectation d un champ sur le maillage (mécanique de la rupture)",
4110          regles=(UN_PARMI('THETA_2D','THETA_3D','THETA_BANDE'),
4111                  PRESENT_ABSENT('THETA_2D','DIRE_THETA'),
4112                  EXCLUS('DIRECTION','DIRE_THETA'),),
4113          OPTION          =SIMP(statut='f',typ='TXM',defaut="COURONNE",into=("COURONNE","BANDE") ),
4114          MODELE          =SIMP(statut='o',typ=(modele) ),
4115          FOND_FISS       =SIMP(statut='f',typ=fond_fiss),
4116          FOND_3D         =SIMP(statut='f',typ=(fond_fiss) ),
4117          THETA_3D        =FACT(statut='f',min=01,max='**',
4118            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
4119                    UN_PARMI('MODULE','MODULE_FO'),
4120                    ENSEMBLE('MODULE','R_INF','R_SUP'),
4121                    ENSEMBLE('MODULE_FO','R_INF_FO','R_SUP_FO'),),
4122            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4123            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4124            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4125            MODULE          =SIMP(statut='f',typ='R'),
4126            R_INF           =SIMP(statut='f',typ='R'),
4127            R_SUP           =SIMP(statut='f',typ='R'),
4128            MODULE_FO       =SIMP(statut='f',typ=fonction),
4129            R_INF_FO        =SIMP(statut='f',typ=fonction),
4130            R_SUP_FO        =SIMP(statut='f',typ=fonction),
4131                          ),
4132          DIRE_THETA      =SIMP(statut='f',typ=(cham_no_depl_r) ),
4133          DIRECTION       =SIMP(statut='f',typ='R',max='**'),
4134          THETA_2D        =FACT(statut='f',min=01,max='**',
4135            regles=(UN_PARMI('GROUP_NO','NOEUD'),),
4136            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4137            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4138            MODULE          =SIMP(statut='o',typ='R'),
4139            R_INF           =SIMP(statut='o',typ='R'),
4140            R_SUP           =SIMP(statut='o',typ='R'),
4141          ),
4142          THETA_BANDE     =FACT(statut='f',min=01,max='**',
4143            MODULE          =SIMP(statut='o',typ='R'),
4144            R_INF           =SIMP(statut='o',typ='R'),
4145            R_SUP           =SIMP(statut='o',typ='R'),
4146          ),
4147          GRAD_NOEU_THETA =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
4148          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
4149          IMPRESSION      =FACT(statut='f',min=01,max=01,
4150            FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
4151            FORMAT          =SIMP(statut='f',typ='TXM',defaut="EXCEL",into=("EXCEL","AGRAF") ),
4152          ),
4153 )  ;
4154 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
4155 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4156 # ======================================================================
4157 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4158 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4159 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4160 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4161 # (AT YOUR OPTION) ANY LATER VERSION.
4162 #
4163 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4164 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4165 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4166 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4167 #
4168 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4169 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4170 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4171 # ======================================================================
4172 # RESPONSABLE VABHHTS J.PELLET
4173 def calc_vect_elem_prod(OPTION,**args):
4174   if OPTION == "CHAR_MECA" :      return vect_elem_depl_r
4175   if OPTION == "CHAR_MECA_LAGR" : return vect_elem_depl_r
4176   if OPTION == "CHAR_THER" :      return vect_elem_temp_r
4177   if OPTION == "CHAR_ACOU" :      return vect_elem_pres_c
4178   if OPTION == "FORC_NODA" :      return vect_elem_depl_r
4179   raise AsException("type de concept resultat non prevu")
4180
4181 CALC_VECT_ELEM=OPER(nom="CALC_VECT_ELEM",op=8,sd_prod=calc_vect_elem_prod,docu="U4.61.02-f",reentrant='n',
4182                     fr="Calcul des seconds membres élémentaires",
4183          OPTION          =SIMP(statut='o',typ='TXM',into=("CHAR_MECA","CHAR_THER","CHAR_ACOU",
4184                                                            "FORC_NODA","CHAR_MECA_LAGR") ),
4185          b_char_meca     =BLOC(condition = "OPTION=='CHAR_MECA'",
4186            regles=(AU_MOINS_UN('CHARGE','MODELE'),),
4187            CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
4188            MODELE          =SIMP(statut='f',typ=modele),
4189            b_charge     =BLOC(condition = "CHARGE != None", fr="modèle ne contenant pas de sous-structure",
4190               CHAM_MATER   =SIMP(statut='f',typ=cham_mater),
4191               CARA_ELEM    =SIMP(statut='f',typ=cara_elem),
4192               INST         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4193               MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
4194            ),
4195            b_modele     =BLOC(condition = "(MODELE != None)",fr="modèle contenant une sous-structure",
4196               SOUS_STRUC      =FACT(statut='o',min=01,
4197                 regles=(UN_PARMI('TOUT','MAILLE'),),
4198                 CAS_CHARGE  =SIMP(statut='o',typ='TXM' ),
4199                 TOUT        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4200                 MAILLE      =SIMP(statut='f',typ=ma,max='**',),
4201               ),
4202            ),
4203          ),
4204          b_char_ther     =BLOC(condition = "OPTION=='CHAR_THER'",
4205            CARA_ELEM        =SIMP(statut='f',typ=cara_elem),
4206            CHARGE           =SIMP(statut='o',typ=char_ther,max='**'),
4207            INST             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4208          ),
4209
4210          b_char_acou     =BLOC(condition = "OPTION=='CHAR_ACOU'",
4211            CHAM_MATER        =SIMP(statut='o',typ=cham_mater),
4212            CHARGE            =SIMP(statut='o',typ=char_acou,max='**'),
4213          ),
4214
4215          b_forc_noda     =BLOC(condition = "OPTION=='FORC_NODA'",
4216            SIEF_ELGA         =SIMP(statut='o',typ=cham_elem_sief_r),
4217            CARA_ELEM         =SIMP(statut='f',typ=cara_elem),
4218            MODELE            =SIMP(statut='f',typ=modele),
4219          ),
4220
4221          b_meca_lagr     =BLOC(condition = "OPTION=='CHAR_MECA_LAGR'",
4222            CHAM_MATER        =SIMP(statut='o',typ=cham_mater),
4223            THETA             =SIMP(statut='o',typ=theta_geom),
4224            PROPAGATION       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4225            CHARGE            =SIMP(statut='f',typ=char_meca,max='**'),
4226            INST              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4227          ),
4228 ) ;
4229 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
4230 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4231 # ======================================================================
4232 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4233 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4234 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4235 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4236 # (AT YOUR OPTION) ANY LATER VERSION.
4237 #
4238 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4239 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4240 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4241 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4242 #
4243 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4244 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4245 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4246 # ======================================================================
4247 # RESPONSABLE G8BHHXD X.DESROCHES
4248 def comb_cham_elem_prod(COMB_R=None,COMB_C=None,COMB_FOURIER=None,**args):
4249
4250   if COMB_R != None:
4251     vale=COMB_R.get_child('CHAM_ELEM').get_valeur()
4252   elif COMB_C != None:
4253     vale=COMB_C.get_child('CHAM_ELEM').get_valeur()
4254   elif COMB_FOURIER != None:
4255     vale=COMB_FOURIER.get_child('CHAM_ELEM').get_valeur()
4256   else :
4257     raise AsException("type de concept resultat non prevu")
4258
4259   if AsType(vale) == cham_elem_sief_r : return cham_elem_sief_r
4260   if AsType(vale) == cham_elem_flux_r : return cham_elem_flux_r
4261   if AsType(vale) == cham_elem_epsi_r : return cham_elem_epsi_r
4262   if AsType(vale) == cham_elem_ener_r : return cham_elem_ener_r
4263   if AsType(vale) == cham_elem_crit_r : return cham_elem_crit_r
4264   if AsType(vale) == cham_elem_dbel_r : return cham_elem_dbel_r
4265   if AsType(vale) == cham_elem_pres_r : return cham_elem_pres_r
4266   if AsType(vale) == cham_elem_sief_c : return cham_elem_sief_c
4267   raise AsException("type de concept resultat non prevu")
4268
4269 COMB_CHAM_ELEM=OPER(nom="COMB_CHAM_ELEM",op= 139,sd_prod=comb_cham_elem_prod,reentrant='f',
4270                     fr="Combinaison linéaire de champs par éléments",docu="U4.72.03-e",
4271       regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),
4272               PRESENT_PRESENT('COMB_FOURIER','ANGL'),),
4273       COMB_R          =FACT(statut='f',min=01,max='**',
4274         PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
4275         COEF_R          =SIMP(statut='o',typ='R'),
4276         CHAM_ELEM       =SIMP(statut='o',
4277                               typ=(cham_elem_sief_r,cham_elem_flux_r,cham_elem_epsi_r,
4278                                    cham_elem_ener_r,cham_elem_crit_r,cham_elem_dbel_r,
4279                                    cham_elem_pres_r,cham_elem_sief_c ) ),
4280       ),
4281       COMB_C          =FACT(statut='f',min=01,max='**',
4282         regles=(UN_PARMI('COEF_R','COEF_C', ),),
4283         COEF_R          =SIMP(statut='f',typ='R'),
4284         COEF_C          =SIMP(statut='f',typ='C'),
4285         CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r) ),
4286       ),
4287       COMB_FOURIER    =FACT(statut='f',min=01,max='**',
4288         COEF_R          =SIMP(statut='f',typ='R',defaut= 1.),
4289         NUME_MODE       =SIMP(statut='o',typ='I'),
4290         TYPE_MODE       =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
4291         CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,cham_elem_flux_r,cham_elem_epsi_r ) ),
4292       ),
4293       ANGL            =SIMP(statut='f',typ='R' ),
4294 )  ;
4295
4296 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
4297 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4298 # ======================================================================
4299 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4300 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4301 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4302 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4303 # (AT YOUR OPTION) ANY LATER VERSION.
4304 #
4305 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4306 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4307 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4308 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4309 #
4310 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4311 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4312 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4313 # ======================================================================
4314 # RESPONSABLE G8BHHXD X.DESROCHES
4315 def comb_cham_no_prod(COMB_R,COMB_C,COMB_FOURIER,**args):
4316   if COMB_C != None:
4317     type_mat = AsType(COMB_C.get_child('CHAM_NO').get_valeur())
4318     if type_mat in  (cham_no_depl_c,cham_no_depl_r) : return cham_no_depl_c
4319     if type_mat in  (cham_no_temp_c,cham_no_temp_r) : return cham_no_temp_c
4320     if type_mat in  (cham_no_pres_c,cham_no_pres_r) : return cham_no_pres_c
4321   elif COMB_R != None:
4322     type_mat = AsType(COMB_R.get_child('CHAM_NO').get_valeur())
4323     if type_mat in  (cham_no_depl_c,cham_no_depl_r) : return cham_no_depl_r
4324     if type_mat in  (cham_no_temp_c,cham_no_temp_r) : return cham_no_temp_r
4325     if type_mat in  (cham_no_pres_c,cham_no_pres_r) : return cham_no_pres_r
4326     if type_mat ==  matr_asse_gene_r : return matr_asse_gene_r
4327   elif COMB_FOURIER != None:
4328     type_mat = AsType(COMB_FOURIER.get_child('CHAM_NO').get_valeur())
4329     if type_mat == cham_no_temp_r : return cham_no_temp_r
4330     if type_mat == cham_no_depl_r : return cham_no_depl_r
4331   raise AsException("type de concept resultat non prevu")
4332
4333
4334 COMB_CHAM_NO=OPER(nom="COMB_CHAM_NO",op=  30,sd_prod=comb_cham_no_prod
4335                     ,fr="Combinaison linéaire de champs aux noeuds",
4336                      docu="U4.72.02-f",reentrant='f',
4337          regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),),
4338          COMB_R          =FACT(statut='f',min=01,max='**',
4339            PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG",) ),
4340            CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_temp_c,cham_no_depl_r,cham_no_depl_c
4341                                                 ,cham_no_pres_r,cham_no_pres_c ) ),
4342            COEF_R          =SIMP(statut='o',typ='R' ),
4343          ),
4344          COMB_C          =FACT(statut='f',min=01,max='**',
4345            regles=(UN_PARMI('COEF_R','COEF_C' ),),
4346            CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r,cham_no_temp_c
4347                                                 ,cham_no_depl_c,cham_no_pres_c ) ),
4348            COEF_R          =SIMP(statut='f',typ='R' ),
4349            COEF_C          =SIMP(statut='f',typ='C' ),
4350          ),
4351          COMB_FOURIER    =FACT(statut='f',min=01,max='**',
4352            CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r) ),
4353            COEF_R          =SIMP(statut='f',typ='R',defaut= 1. ),
4354            NUME_MODE       =SIMP(statut='o',typ='I' ),
4355            TYPE_MODE       =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
4356          ),
4357          b_angl = BLOC ( condition = "COMB_FOURIER != None",
4358            ANGL            =SIMP(statut='o',typ='R' ),
4359          ),
4360 )  ;
4361 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
4362 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4363 # ======================================================================
4364 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4365 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4366 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4367 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4368 # (AT YOUR OPTION) ANY LATER VERSION.
4369 #
4370 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4371 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4372 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4373 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4374 #
4375 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4376 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4377 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4378 # ======================================================================
4379 # RESPONSABLE G8BHHXD X.DESROCHES
4380 COMB_FOURIER=OPER(nom="COMB_FOURIER",op= 161,sd_prod=comb_fourier,
4381                   docu="U4.83.31-c",reentrant='n',
4382          RESULTAT        =SIMP(statut='o',typ=fourier_elas ),
4383          ANGL            =SIMP(statut='o',typ='R',max='**'),
4384          NOM_CHAM        =SIMP(statut='o',typ='TXM',max=05,
4385                                into=("DEPL","REAC_NODA","SIEF_ELGA_DEPL","EPSI_ELNO_DEPL","SIGM_ELNO_DEPL") ),
4386 )  ;
4387 #& MODIF COMMANDE  DATE 06/03/2002   AUTEUR MCOURTOI M.COURTOIS
4388 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4389 # ======================================================================
4390 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4391 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4392 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4393 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4394 # (AT YOUR OPTION) ANY LATER VERSION.
4395 #
4396 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4397 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4398 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4399 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4400 #
4401 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4402 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4403 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4404 # ======================================================================
4405 # RESPONSABLE VABHHTS J.PELLET
4406 def comb_matr_asse_prod(COMB_R,COMB_C,**args):
4407   if COMB_C != None:
4408     type_mat = AsType(COMB_C.get_child('MATR_ASSE').get_valeur())
4409     if type_mat in  (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_c
4410     if type_mat in  (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_c
4411     if type_mat in  (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_c
4412     if type_mat in  (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_c
4413   elif COMB_R != None:
4414     type_mat = AsType(COMB_R.get_child('MATR_ASSE').get_valeur())
4415     if type_mat in  (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_r
4416     if type_mat in  (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_r
4417     if type_mat in  (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_r
4418     if type_mat in  (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_r
4419   raise AsException("type de concept resultat non prevu")
4420
4421 COMB_MATR_ASSE=OPER(nom="COMB_MATR_ASSE",op=  31,sd_prod=comb_matr_asse_prod,
4422                     fr="Combinaison linéaire de matrices assemblées",
4423                     docu="U4.72.01-g1",reentrant='f',
4424          regles=(UN_PARMI('COMB_R','COMB_C' ),),
4425          COMB_R          =FACT(statut='f',min=01,max='**',
4426            PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
4427            MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_temp_c
4428                                                 ,matr_asse_pres_r,matr_asse_pres_c,matr_asse_gene_r,matr_asse_gene_c ) ),
4429            COEF_R          =SIMP(statut='o',typ='R' ),
4430          ),
4431          COMB_C          =FACT(statut='f',min=01,max='**',
4432            regles=(UN_PARMI('COEF_R','COEF_C' ),),
4433            MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_temp_c
4434                                                 ,matr_asse_pres_r,matr_asse_pres_c,matr_asse_gene_r,matr_asse_gene_c ) ),
4435            COEF_R          =SIMP(statut='f',typ='R' ),
4436            COEF_C          =SIMP(statut='f',typ='C' ),
4437          ),
4438          SANS_CMP        =SIMP(statut='f',typ='TXM',into=("LAGR",) ),
4439 )  ;
4440 #& MODIF COMMANDE  DATE 18/06/2002   AUTEUR CIBHHPD D.NUNEZ
4441 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4442 # ======================================================================
4443 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4444 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4445 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4446 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4447 # (AT YOUR OPTION) ANY LATER VERSION.
4448 #
4449 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4450 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4451 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4452 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4453 #
4454 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4455 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4456 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4457 # ======================================================================
4458 COMB_SISM_MODAL=OPER(nom="COMB_SISM_MODAL",op= 109,sd_prod=mode_stat,
4459                      fr="Réponse sismique par recombinaison modale par une méthode spectrale",
4460                      docu="U4.84.01-e1",reentrant='n',
4461          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ','LIST_ORDRE'),
4462                  UN_PARMI('AMOR_REDUIT','LIST_AMOR','AMOR_GENE' ),),
4463          MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
4464          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4465          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
4466          LIST_ORDRE      =SIMP(statut='f',typ=listis ),
4467          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
4468          FREQ            =SIMP(statut='f',typ='R',max='**'),
4469          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
4470          b_freq          =BLOC(condition = "FREQ != None or LIST_FREQ != None",
4471            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
4472            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4473          ),
4474          MODE_CORR       =SIMP(statut='f',typ=mode_stat_acce ),
4475
4476          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
4477          LIST_AMOR       =SIMP(statut='f',typ=listr8 ),
4478          AMOR_GENE       =SIMP(statut='f',typ=matr_asse_gene_r ),
4479
4480          MASS_INER       =SIMP(statut='f',typ=tabl_mass_iner ),
4481          CORR_FREQ       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4482
4483          EXCIT           =FACT(statut='o',min=01,max='**',
4484            regles=(UN_PARMI('MONO_APPUI','NOEUD','GROUP_NO'),
4485                    UN_PARMI('AXE','TRI_AXE','TRI_SPEC' ),),
4486
4487            MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4488            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4489            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4490            AXE             =SIMP(statut='f',fr="Excitation suivant un seul axe",
4491                                  typ='R',max=03),
4492            TRI_AXE         =SIMP(statut='f',fr="Excitation suivant les trois axes mais avec le meme spectre",
4493                                  typ='R',max=03),
4494            TRI_SPEC        =SIMP(statut='f',fr="Excitation suivant les trois axes  avec trois spectres",
4495                                  typ='TXM',into=("OUI",) ),
4496            b_axe           =BLOC(condition = "AXE != None",fr="Excitation suivant un seul axe",
4497              SPEC_OSCI       =SIMP(statut='o',typ=fonction,max=01 ),
4498              ECHELLE         =SIMP(statut='f',typ='R',max=01),
4499            ),
4500            b_tri_axe       =BLOC(condition = "TRI_AXE != None",fr="Excitation suivant les trois axes mais avec le meme spectre",
4501              SPEC_OSCI       =SIMP(statut='o',typ=fonction,max=01 ),
4502              ECHELLE         =SIMP(statut='f',typ='R',max=01),
4503            ),
4504            b_tri_spec      =BLOC(condition = "TRI_SPEC != None",fr="Excitation suivant les trois axes  avec trois spectres",
4505              SPEC_OSCI       =SIMP(statut='o',typ=fonction,min=03,max=03 ),
4506              ECHELLE         =SIMP(statut='f',typ='R',min=03,max=03),
4507            ),
4508            NATURE          =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("ACCE","VITE","DEPL") ),
4509          ),
4510          COMB_MODE       =FACT(statut='o',min=01,max=01,
4511            TYPE            =SIMP(statut='o',typ='TXM',into=("SRSS","CQC","DSC","ABS","DPC") ),
4512            DUREE           =SIMP(statut='f',typ='R' ),
4513          ),
4514          COMB_DIRECTION  =FACT(statut='f',min=01,max=01,
4515            TYPE            =SIMP(statut='f',typ='TXM',into=("QUAD","NEWMARK") ),
4516          ),
4517          COMB_MULT_APPUI =FACT(statut='f',min=01,max='**',
4518            regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO' ),
4519                    UN_PARMI('TYPE_COMBI','TYPE' ),),
4520            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4521            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4522            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4523            TYPE_COMBI      =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
4524            TYPE            =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
4525          ),
4526          COMB_DEPL_APPUI=FACT(statut='f',min=01,max='**',
4527            regles=(UN_PARMI('TOUT','LIST_CAS'),
4528                    UN_PARMI('TYPE_COMBI','TYPE' ),),
4529            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
4530            LIST_CAS       =SIMP(statut='f',typ='I',max='**'),
4531            TYPE_COMBI      =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
4532            TYPE            =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
4533          ),
4534          DEPL_MULT_APPUI =FACT(statut='f',min=01,max='**',
4535            regles=(UN_PARMI('NOEUD','GROUP_NO'),
4536                    AU_MOINS_UN('DX','DY','DZ' ),),
4537            NOM_CAS         =SIMP(statut='o',typ='TXM',max='**'),
4538            NUME_CAS        =SIMP(statut='o',typ='I',max='**'),
4539            MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,), ),
4540            NOEUD_REFE      =SIMP(statut='f',typ=no),
4541            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4542            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4543            DX              =SIMP(statut='f',typ='R' ),
4544            DY              =SIMP(statut='f',typ='R' ),
4545            DZ              =SIMP(statut='f',typ='R' ),
4546          ),
4547          OPTION          =SIMP(statut='o',typ='TXM',max=9,
4548                                into=("DEPL","VITE","ACCE_ABSOLU","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
4549                                      "EFGE_ELNO_DEPL","REAC_NODA","FORC_NODA","EFGE_ELNO_CART",
4550                                      "SIPO_ELNO_DEPL") ),
4551          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
4552          IMPRESSION      =FACT(statut='f',min=01,max='**',
4553            regles=(EXCLUS('TOUT','NIVEAU'),),
4554            TOUT            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4555            NIVEAU          =SIMP(statut='f',typ='TXM',into=("SPEC_OSCI","MASS_EFFE","MAXI_GENE"),max=03 ),
4556          ),
4557          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
4558 )  ;
4559 #& MODIF COMMANDE  DATE 29/04/2002   AUTEUR GNICOLAS G.NICOLAS
4560 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4561 # ======================================================================
4562 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4563 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
4564 #              REDISTRIBUTION OF THIS FILE.
4565 # ======================================================================
4566 def crea_champ_prod(TYPE_CHAM,**args):
4567   if TYPE_CHAM == "CART_DBEL_R" : return carte_dbel_r
4568   if TYPE_CHAM == "CART_DEPL_C" : return carte_depl_c
4569   if TYPE_CHAM == "CART_DEPL_F" : return carte_depl_f
4570   if TYPE_CHAM == "CART_DEPL_R" : return carte_depl_r
4571   if TYPE_CHAM == "CART_DURT_R" : return carte_durt_r
4572   if TYPE_CHAM == "CART_ENER_R" : return carte_ener_r
4573   if TYPE_CHAM == "CART_EPSI_R" : return carte_epsi_r
4574   if TYPE_CHAM == "CART_ERREUR" : return carte_erreur
4575   if TYPE_CHAM == "CART_FLUX_R" : return carte_flux_r
4576   if TYPE_CHAM == "CART_GEOM_R" : return carte_geom_r
4577   if TYPE_CHAM == "CART_G_DEPL_R" : return carte_g_depl_r
4578   if TYPE_CHAM == "CART_HYDR_R" : return carte_hydr_r
4579   if TYPE_CHAM == "CART_INST_R" : return carte_inst_r
4580   if TYPE_CHAM == "CART_INTE_R" : return carte_inte_r
4581   if TYPE_CHAM == "CART_META_R" : return carte_meta_r
4582   if TYPE_CHAM == "CART_NEUT_F" : return carte_neut_f
4583   if TYPE_CHAM == "CART_NEUT_R" : return carte_neut_r
4584   if TYPE_CHAM == "CART_PRES_R" : return carte_pres_r
4585   if TYPE_CHAM == "CART_SIEF_R" : return carte_sief_r
4586   if TYPE_CHAM == "CART_SOUR_R" : return carte_sour_r
4587   if TYPE_CHAM == "CART_TEMP_F" : return carte_temp_f
4588   if TYPE_CHAM == "CART_TEMP_R" : return carte_temp_r
4589   if TYPE_CHAM == "CART_VAR2_R" : return carte_var2_r
4590   if TYPE_CHAM == "CART_VNOR_C" : return carte_vnor_c
4591   if TYPE_CHAM == "NOEU_DBEL_R" : return cham_no_dbel_r
4592   if TYPE_CHAM == "NOEU_DEPL_C" : return cham_no_depl_c
4593   if TYPE_CHAM == "NOEU_DEPL_F" : return cham_no_depl_f
4594   if TYPE_CHAM == "NOEU_DEPL_R" : return cham_no_depl_r
4595   if TYPE_CHAM == "NOEU_DURT_R" : return cham_no_durt_r
4596   if TYPE_CHAM == "NOEU_ENER_R" : return cham_no_ener_r
4597   if TYPE_CHAM == "NOEU_EPSI_R" : return cham_no_epsi_r
4598   if TYPE_CHAM == "NOEU_ERREUR" : return cham_no_erreur
4599   if TYPE_CHAM == "NOEU_FLUX_R" : return cham_no_flux_r
4600   if TYPE_CHAM == "NOEU_GEOM_R" : return cham_no_geom_r
4601   if TYPE_CHAM == "NOEU_G_DEPL_R" : return cham_no_g_depl_r
4602   if TYPE_CHAM == "NOEU_HYDR_R" : return cham_no_hydr_r
4603   if TYPE_CHAM == "NOEU_INST_R" : return cham_no_inst_r
4604   if TYPE_CHAM == "NOEU_INTE_R" : return cham_no_inte_r
4605   if TYPE_CHAM == "NOEU_META_R" : return cham_no_meta_r
4606   if TYPE_CHAM == "NOEU_NEUT_F" : return cham_no_neut_f
4607   if TYPE_CHAM == "NOEU_NEUT_R" : return cham_no_neut_r
4608   if TYPE_CHAM == "NOEU_PRES_R" : return cham_no_pres_r
4609   if TYPE_CHAM == "NOEU_SIEF_R" : return cham_no_sief_r
4610   if TYPE_CHAM == "NOEU_SOUR_R" : return cham_no_sour_r
4611   if TYPE_CHAM == "NOEU_TEMP_F" : return cham_no_temp_f
4612   if TYPE_CHAM == "NOEU_TEMP_R" : return cham_no_temp_r
4613   if TYPE_CHAM == "NOEU_VAR2_R" : return cham_no_var2_r
4614   if TYPE_CHAM == "NOEU_VNOR_C" : return cham_no_vnor_c
4615   if TYPE_CHAM == "ELEM_DBEL_R" : return cham_elem_dbel_r
4616   if TYPE_CHAM == "ELEM_DEPL_C" : return cham_elem_depl_c
4617   if TYPE_CHAM == "ELEM_DEPL_F" : return cham_elem_depl_f
4618   if TYPE_CHAM == "ELEM_DEPL_R" : return cham_elem_depl_r
4619   if TYPE_CHAM == "ELEM_DURT_R" : return cham_elem_durt_r
4620   if TYPE_CHAM == "ELEM_ENER_R" : return cham_elem_ener_r
4621   if TYPE_CHAM == "ELEM_EPSI_R" : return cham_elem_epsi_r
4622   if TYPE_CHAM == "ELEM_ERREUR" : return cham_elem_erreur
4623   if TYPE_CHAM == "ELEM_FLUX_R" : return cham_elem_flux_r
4624   if TYPE_CHAM == "ELEM_GEOM_R" : return cham_elem_geom_r
4625   if TYPE_CHAM == "ELEM_G_DEPL_R" : return cham_elem_g_depl
4626   if TYPE_CHAM == "ELEM_HYDR_R" : return cham_elem_hydr_r
4627   if TYPE_CHAM == "ELEM_INST_R" : return cham_elem_inst_r
4628   if TYPE_CHAM == "ELEM_INTE_R" : return cham_elem_inte_r
4629   if TYPE_CHAM == "ELEM_META_R" : return cham_elem_meta_r
4630   if TYPE_CHAM == "ELEM_NEUT_F" : return cham_elem_neut_f
4631   if TYPE_CHAM == "ELEM_NEUT_R" : return cham_elem_neut_r
4632   if TYPE_CHAM == "ELEM_PRES_R" : return cham_elem_pres_r
4633   if TYPE_CHAM == "ELEM_SIEF_R" : return cham_elem_sief_r
4634   if TYPE_CHAM == "ELEM_SOUR_R" : return cham_elem_sour_r
4635   if TYPE_CHAM == "ELEM_TEMP_F" : return cham_elem_temp_f
4636   if TYPE_CHAM == "ELEM_TEMP_R" : return cham_elem_temp_r
4637   if TYPE_CHAM == "ELEM_VARI_R" : return cham_elem_vari_r
4638   if TYPE_CHAM == "ELEM_VNOR_C" : return cham_elem_vnor_c
4639   if TYPE_CHAM == "ELNO_DBEL_R" : return cham_elem_dbel_r
4640   if TYPE_CHAM == "ELNO_DEPL_C" : return cham_elem_depl_c
4641   if TYPE_CHAM == "ELNO_DEPL_F" : return cham_elem_depl_f
4642   if TYPE_CHAM == "ELNO_DEPL_R" : return cham_elem_depl_r
4643   if TYPE_CHAM == "ELNO_DURT_R" : return cham_elem_durt_r
4644   if TYPE_CHAM == "ELNO_ENER_R" : return cham_elem_ener_r
4645   if TYPE_CHAM == "ELNO_EPSI_R" : return cham_elem_epsi_r
4646   if TYPE_CHAM == "ELNO_ERREUR" : return cham_elem_erreur
4647   if TYPE_CHAM == "ELNO_FLUX_R" : return cham_elem_flux_r
4648   if TYPE_CHAM == "ELNO_GEOM_R" : return cham_elem_geom_r
4649   if TYPE_CHAM == "ELNO_G_DEPL_R" : return cham_elem_g_depl
4650   if TYPE_CHAM == "ELNO_HYDR_R" : return cham_elem_hydr_r
4651   if TYPE_CHAM == "ELNO_INST_R" : return cham_elem_inst_r
4652   if TYPE_CHAM == "ELNO_INTE_R" : return cham_elem_inte_r
4653   if TYPE_CHAM == "ELNO_META_R" : return cham_elem_meta_r
4654   if TYPE_CHAM == "ELNO_NEUT_F" : return cham_elem_neut_f
4655   if TYPE_CHAM == "ELNO_NEUT_R" : return cham_elem_neut_r
4656   if TYPE_CHAM == "ELNO_PRES_R" : return cham_elem_pres_r
4657   if TYPE_CHAM == "ELNO_SIEF_R" : return cham_elem_sief_r
4658   if TYPE_CHAM == "ELNO_SOUR_R" : return cham_elem_sour_r
4659   if TYPE_CHAM == "ELNO_TEMP_F" : return cham_elem_temp_f
4660   if TYPE_CHAM == "ELNO_TEMP_R" : return cham_elem_temp_r
4661   if TYPE_CHAM == "ELNO_VARI_R" : return cham_elem_vari_r
4662   if TYPE_CHAM == "ELNO_VNOR_C" : return cham_elem_vnor_c
4663   if TYPE_CHAM == "ELGA_DBEL_R" : return cham_elem_dbel_r
4664   if TYPE_CHAM == "ELGA_DEPL_C" : return cham_elem_depl_c
4665   if TYPE_CHAM == "ELGA_DEPL_F" : return cham_elem_depl_f
4666   if TYPE_CHAM == "ELGA_DEPL_R" : return cham_elem_depl_r
4667   if TYPE_CHAM == "ELGA_DURT_R" : return cham_elem_durt_r
4668   if TYPE_CHAM == "ELGA_ENER_R" : return cham_elem_ener_r
4669   if TYPE_CHAM == "ELGA_EPSI_R" : return cham_elem_epsi_r
4670   if TYPE_CHAM == "ELGA_ERREUR" : return cham_elem_erreur
4671   if TYPE_CHAM == "ELGA_FLUX_R" : return cham_elem_flux_r
4672   if TYPE_CHAM == "ELGA_GEOM_R" : return cham_elem_geom_r
4673   if TYPE_CHAM == "ELGA_G_DEPL_R" : return cham_elem_g_depl
4674   if TYPE_CHAM == "ELGA_HYDR_R" : return cham_elem_hydr_r
4675   if TYPE_CHAM == "ELGA_INST_R" : return cham_elem_inst_r
4676   if TYPE_CHAM == "ELGA_INTE_R" : return cham_elem_inte_r
4677   if TYPE_CHAM == "ELGA_META_R" : return cham_elem_meta_r
4678   if TYPE_CHAM == "ELGA_NEUT_F" : return cham_elem_neut_f
4679   if TYPE_CHAM == "ELGA_NEUT_R" : return cham_elem_neut_r
4680   if TYPE_CHAM == "ELGA_PRES_R" : return cham_elem_pres_r
4681   if TYPE_CHAM == "ELGA_SIEF_R" : return cham_elem_sief_r
4682   if TYPE_CHAM == "ELGA_SOUR_R" : return cham_elem_sour_r
4683   if TYPE_CHAM == "ELGA_TEMP_F" : return cham_elem_temp_f
4684   if TYPE_CHAM == "ELGA_TEMP_R" : return cham_elem_temp_r
4685   if TYPE_CHAM == "ELGA_VARI_R" : return cham_elem_vari_r
4686   if TYPE_CHAM == "ELGA_VNOR_C" : return cham_elem_vnor_c
4687   if TYPE_CHAM == "CART_IRRA_R" : return carte_irra_r
4688   if TYPE_CHAM == "NOEU_IRRA_R" : return cham_no_irra_r
4689   if TYPE_CHAM == "ELEM_IRRA_R" : return cham_elem_irra_r
4690   if TYPE_CHAM == "ELNO_IRRA_R" : return cham_elem_irra_r
4691   if TYPE_CHAM == "ELGA_IRRA_R" : return cham_elem_irra_r
4692   raise AsException("type de concept resultat non prevu")
4693
4694 CREA_CHAMP=OPER(nom="CREA_CHAMP",op= 195,sd_prod=crea_champ_prod,
4695                 fr="  ",docu="U4.72.04-b1",reentrant='n',
4696          TYPE_CHAM       =SIMP(statut='o',typ='TXM',
4697                         into=("CART_DBEL_R","NOEU_DBEL_R","ELEM_DBEL_R",
4698                              "ELNO_DBEL_R","ELGA_DBEL_R","CART_DEPL_C",
4699                              "NOEU_DEPL_C","ELEM_DEPL_C","ELNO_DEPL_C",
4700                              "ELGA_DEPL_C","CART_DEPL_F","NOEU_DEPL_F",
4701                              "ELEM_DEPL_F","ELNO_DEPL_F","ELGA_DEPL_F",
4702                              "CART_DEPL_R","NOEU_DEPL_R","ELEM_DEPL_R",
4703                              "ELNO_DEPL_R","ELGA_DEPL_R","CART_DURT_R",
4704                              "NOEU_DURT_R","ELEM_DURT_R","ELNO_DURT_R",
4705                              "ELGA_DURT_R","CART_ENER_R","NOEU_ENER_R",
4706                              "ELEM_ENER_R","ELNO_ENER_R","ELGA_ENER_R",
4707                              "CART_EPSI_R","NOEU_EPSI_R","ELEM_EPSI_R",
4708                              "ELNO_EPSI_R","ELGA_EPSI_R","CART_ERREUR",
4709                              "NOEU_ERREUR","ELEM_ERREUR","ELNO_ERREUR",
4710                              "ELGA_ERREUR","CART_FLUX_R","NOEU_FLUX_R",
4711                              "ELEM_FLUX_R","ELNO_FLUX_R","ELGA_FLUX_R",
4712                              "CART_GEOM_R","NOEU_GEOM_R","ELEM_GEOM_R",
4713                              "ELNO_GEOM_R","ELGA_GEOM_R","CART_G_DEPL_R",
4714                              "NOEU_G_DEPL_R","ELEM_G_DEPL_R","ELNO_G_DEPL_R",
4715                              "ELGA_G_DEPL_R","CART_HYDR_R","NOEU_HYDR_R",
4716                              "ELEM_HYDR_R","ELNO_HYDR_R","ELGA_HYDR_R",
4717                              "CART_INST_R","NOEU_INST_R","ELEM_INST_R",
4718                              "ELNO_INST_R","ELGA_INST_R","CART_INTE_R",
4719                              "NOEU_INTE_R","ELEM_INTE_R","ELNO_INTE_R",
4720                              "ELGA_INTE_R","CART_META_R","NOEU_META_R",
4721                              "ELEM_META_R","ELNO_META_R","ELGA_META_R",
4722                              "CART_NEUT_F","NOEU_NEUT_F","ELEM_NEUT_F",
4723                              "ELNO_NEUT_F","ELGA_NEUT_F","CART_NEUT_R",
4724                              "NOEU_NEUT_R","ELEM_NEUT_R","ELNO_NEUT_R",
4725                              "ELGA_NEUT_R","CART_PRES_R","NOEU_PRES_R",
4726                              "ELEM_PRES_R","ELNO_PRES_R","ELGA_PRES_R",
4727                              "CART_SIEF_R","NOEU_SIEF_R","ELEM_SIEF_R",
4728                              "ELNO_SIEF_R","ELGA_SIEF_R","CART_SOUR_R",
4729                              "NOEU_SOUR_R","ELEM_SOUR_R","ELNO_SOUR_R",
4730                              "ELGA_SOUR_R","CART_TEMP_F","NOEU_TEMP_F",
4731                              "ELEM_TEMP_F","ELNO_TEMP_F","ELGA_TEMP_F",
4732                              "CART_TEMP_R","NOEU_TEMP_R","ELEM_TEMP_R",
4733                              "ELNO_TEMP_R","ELGA_TEMP_R","CART_VAR2_R",
4734                              "NOEU_VAR2_R","ELEM_VARI_R","ELNO_VARI_R",
4735                              "ELGA_VARI_R","CART_VNOR_C","NOEU_VNOR_C",
4736                              "ELEM_VNOR_C","ELNO_VNOR_C","ELGA_VNOR_C",
4737                              "CART_IRRA_R","NOEU_IRRA_R","ELEM_IRRA_R",
4738                              "ELNO_IRRA_R","ELGA_IRRA_R",) ),
4739
4740 #        SI CREATION D'UN CHAM_NO, POUR IMPOSER LA NUMEROTATION DES DDLS :
4741 #        ------------------------------------------------------------------
4742          regles=(EXCLUS('NUME_DDL','CHAM_NO',)),
4743          NUME_DDL        =SIMP(statut='f',typ=(nume_ddl) ),
4744          CHAM_NO         =SIMP(statut='f',typ=(cham_no) ),
4745
4746          OPERATION       =SIMP(statut='o',typ='TXM',into=("AFFE","ASSE","EVAL","EXTR","DISC",) ),
4747
4748          b_affe          =BLOC(condition = "OPERATION == 'AFFE'",
4749              regles=(UN_PARMI('MAILLAGE','MODELE'),EXCLUS('MAILLAGE','PROL_ZERO'),),
4750              MAILLAGE        =SIMP(statut='f',typ=(maillage) ),
4751              MODELE          =SIMP(statut='f',typ=(modele) ),
4752              PROL_ZERO       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
4753              AFFE            =FACT(statut='o',min=01,max='**',
4754                 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
4755                         UN_PARMI('VALE','VALE_I','VALE_C','VALE_F', ),),
4756                 TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4757                 GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4758                 MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4759                 GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4760                 NOEUD           =SIMP(statut='f',typ=no,max='**'),
4761                 NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
4762                 VALE            =SIMP(statut='f',typ='R',max='**' ),
4763                 VALE_I          =SIMP(statut='f',typ='I',max='**' ),
4764                 VALE_C          =SIMP(statut='f',typ='C',max='**' ),
4765                 VALE_F          =SIMP(statut='f',typ=fonction,max='**'),
4766                                    ),
4767                              ),
4768          b_asse          =BLOC(condition = "OPERATION == 'ASSE'",
4769              regles=(UN_PARMI('MAILLAGE','MODELE'),EXCLUS('MAILLAGE','PROL_ZERO'),),
4770              MAILLAGE        =SIMP(statut='f',typ=(maillage) ),
4771              MODELE          =SIMP(statut='f',typ=(modele) ),
4772              PROL_ZERO       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
4773              ASSE            =FACT(statut='o',min=01,max='**',
4774                 regles=(AU_MOINS_UN('TOUT','GROUP_MA','GROUP_NO','MAILLE','NOEUD',),
4775                 PRESENT_PRESENT('NOM_CMP_RESU','NOM_CMP', ),),
4776                 TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4777                 GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4778                 GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4779                 MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4780                 NOEUD           =SIMP(statut='f',typ=no,max='**'),
4781                 CHAM_GD         =SIMP(statut='o',typ=(cham_gd)),
4782                 NOM_CMP         =SIMP(statut='f',typ='TXM',max='**' ),
4783                 NOM_CMP_RESU    =SIMP(statut='f',typ='TXM',max='**' ),
4784                 CUMUL           =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
4785                 COEF_R          =SIMP(statut='f',typ='R',defaut= 1. ),
4786                                     ),
4787                              ),
4788          b_eval          =BLOC(condition = "OPERATION == 'EVAL'",
4789              CHAM_F          =SIMP(statut='o',typ=(cham_gd)),
4790              CHAM_PARA       =SIMP(statut='o',typ=(cham_gd),max='**'),
4791                              ),
4792          b_disc          =BLOC(condition = "OPERATION == 'DISC'",
4793              MODELE          =SIMP(statut='f',typ=(modele) ),
4794              PROL_ZERO       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
4795              CHAM_GD         =SIMP(statut='o',typ=(cham_gd)),
4796                              ),
4797          b_extr          =BLOC(condition = "OPERATION == 'EXTR'",
4798              regles=(UN_PARMI('MAILLAGE','RESULTAT'),),
4799              MAILLAGE        =SIMP(statut='f',typ=(maillage) ),
4800              RESULTAT        =SIMP(statut='f',typ=(resultat) ),
4801              b_extr_maillage =BLOC(condition = "MAILLAGE != None",
4802                  NOM_CHAM        =SIMP(statut='o',typ='TXM',into=("GEOMETRIE",)),
4803                                   ),
4804              b_extr_resultat =BLOC(condition = "RESULTAT != None",
4805                  regles=(EXCLUS('TYPE_MAXI','NUME_ORDRE','INST','FREQ','NUME_MODE',
4806                                 'NOEUD_CMP','NOM_CAS','ANGL', ),),
4807                  SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
4808                                    fr="Liste des paramètres de sensibilité.",
4809                                    ang="List of sensitivity parameters"),
4810                  NOM_CHAM        =SIMP(statut='o',typ='TXM',
4811                            into=("DEPL","VITE","ACCE",
4812                              "DEPL_ABSOLU","VITE_ABSOLU",
4813                              "TEMP","IRRA","ACCE_ABSOLU",
4814                              "FORC_NODA","REAC_NODA","EFGE_NOEU_DEPL",
4815                              "EFGE_NOEU_CART","EPSI_NOEU_DEPL",
4816                              "SIGM_NOEU_DEPL","SIGM_NOEU_CART",
4817                              "SIPO_NOEU_DEPL","EQUI_NOEU_SIGM",
4818                              "EQUI_NOEU_EPSI","FLUX_NOEU_TEMP",
4819                              "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP",
4820                              "META_ELGA_TEMP","META_ELNO_TEMP",
4821                              "META_NOEU_TEMP","DURT_ELGA_META",
4822                              "DURT_ELNO_META","DURT_NOEU_META","SIEF_ELGA",
4823                              "SIEF_ELNO_ELGA","SIEF_ELGA_DEPL",
4824                              "VARI_ELNO_ELGA","VARI_ELGA","EPOT_ELEM_DEPL",
4825                              "ECIN_ELEM_DEPL","SOUR_ELGA_ELEC",
4826                              "PRES_ELNO_REEL","PRES_ELNO_IMAG",
4827                              "PRES_ELNO_DBEL","INTE_ELNO_ACTI",
4828                              "INTE_ELNO_REAC","EFGE_ELNO_DEPL",
4829                              "SIGM_ELNO_DEPL","EFGE_ELNO_CART",
4830                              "SIGM_ELNO_CART","SIPO_ELNO_DEPL",
4831                              "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL",
4832                              "EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO",
4833                              "EPSP_ELGA","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
4834                              "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
4835                              "ERRE_ELNO_ELGA","ERRE_ELGA_NORE",
4836                              "ERRE_ELEM_NOZ1","ERRE_ELEM_NOZ2",
4837                              "SIGM_NOZ1_ELGA","SIGM_NOZ2_ELGA",
4838                              "DEGE_ELNO_DEPL","SIRE_ELNO_DEPL",
4839                              "VNOR_ELEM_DEPL","SIEF_ELNO","VARI_ELNO",
4840                              "SIEF_NOEU_ELGA","VARI_NOEU_ELGA",
4841                              "PRES_NOEU_DBEL","PRES_NOEU_REEL",
4842                              "PRES_NOEU_IMAG","INTE_NOEU_ACTI",
4843                              "INTE_NOEU_REAC","DCHA_ELGA_SIGM",
4844                              "DCHA_ELNO_SIGM","RADI_ELGA_SIGM",
4845                              "RADI_ELNO_SIGM","ENDO_ELNO_SIGA",
4846                              "ENDO_ELNO_SINO","ENDO_ELNO_SIGM",
4847                              "SIGM_ELNO_VARI","SIGM_NOEU_VARI",
4848                              "EPME_ELNO_DEPL","EPME_ELGA_DEPL",
4849                              "EPME_ELNO_DPGE","EPMG_ELNO_DEPL",
4850                              "EPMG_ELGA_DEPL","GRAD_ELGA_THETA",
4851                              "GTHE_ELNO_ELGA","GRAD_NOEU_THETA",
4852                              "HYDR_ELGA","HYDR_ELNO_ELGA","HYDR_NOEU_ELGA",
4853                              "THETA","SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",
4854                              "VALE_CONT",) ),
4855                  TYPE_MAXI       =SIMP(statut='f',typ='TXM',into=("MAXI","MINI","MAXI_ABS","MINI_ABS","NORM_TRAN",) ),
4856                  TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="VALE",into=("VALE","INST",) ),
4857                  TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4858                  LIST_INST       =SIMP(statut='f',typ=(listr8) ),
4859                  NUME_ORDRE      =SIMP(statut='f',typ='I'),
4860                  INST            =SIMP(statut='f',typ='R'),
4861                  FREQ            =SIMP(statut='f',typ='R'),
4862                  NUME_MODE       =SIMP(statut='f',typ='I'),
4863                  NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
4864                  NOM_CAS         =SIMP(statut='f',typ='TXM'),
4865                  ANGL            =SIMP(statut='f',typ='R'),
4866                  PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
4867                  CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
4868                  INTERPOL        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN",) ),
4869                               ),
4870
4871                 ),
4872 # FIN DU CATALOGUE : INFO,TITRE ET TYPAGE DU RESULAT :
4873 #-----------------------------------------------------
4874          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,) ),
4875          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
4876 )  ;
4877 #& MODIF COMMANDE  DATE 06/03/2002   AUTEUR MCOURTOI M.COURTOIS
4878 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4879 # ======================================================================
4880 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4881 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4882 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4883 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4884 # (AT YOUR OPTION) ANY LATER VERSION.
4885 #
4886 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4887 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4888 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4889 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4890 #
4891 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4892 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4893 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4894 # ======================================================================
4895 CREA_MAILLAGE=OPER(nom="CREA_MAILLAGE",op= 167,sd_prod=maillage,
4896                      docu="U4.23.02-d1",reentrant='n',
4897          regles=(EXCLUS('ECLA_PG','CREA_MAILLE'),
4898                  EXCLUS('ECLA_PG','CREA_GROUP_MA'),
4899                  EXCLUS('ECLA_PG','DETR_GROUP_MA'),
4900                  EXCLUS('ECLA_PG','MODI_MAILLE'),),
4901          MAILLAGE        =SIMP(statut='o',typ=maillage ),
4902          CREA_POI1       =FACT(statut='f',min=01,max='**',fr="Création de mailles de type POI1 à partir de noeuds",
4903            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD' ),),
4904            NOM_GROUP_MA    =SIMP(statut='f',typ=grma,max='**'),
4905            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4906            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4907            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4908            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4909            NOEUD           =SIMP(statut='f',typ=no,max='**'),
4910          ),
4911          CREA_MAILLE     =FACT(statut='f',min=01,max='**',fr="Duplication de mailles",
4912            regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA'),),
4913            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4914            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4915            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4916            PREF_MAILLE     =SIMP(statut='o',typ='TXM' ),
4917            PREF_NUME       =SIMP(statut='f',typ='I' ),
4918          ),
4919          CREA_GROUP_MA   =FACT(statut='f',min=01,max='**',fr="Duplication de mailles et création de groupes de mailles",
4920            regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
4921            NOM             =SIMP(statut='o',typ='TXM'),
4922            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4923            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4924            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4925            PREF_MAILLE     =SIMP(statut='o',typ='TXM' ),
4926            PREF_NUME       =SIMP(statut='f',typ='I' ),
4927          ),
4928          DETR_GROUP_MA   =FACT(statut='f',min=01,max=01,fr="Destruction de groupes de mailles",
4929            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4930            NB_MAILLE       =SIMP(statut='f',typ='I',defaut= 0,
4931                                  fr="Nombre minimal de mailles que doit contenir le groupe pour etre détruit",  ),
4932          ),
4933          MODI_MAILLE     =FACT(statut='f',min=01,max='**',fr="Modification du type de mailles",
4934            regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
4935            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4936            MAILLE          =SIMP(statut='f',typ=grma,max='**'),
4937            GROUP_MA        =SIMP(statut='f',typ=ma,max='**'),
4938            OPTION          =SIMP(statut='o',typ='TXM',into=("TRIA6_7","QUAD8_9","SEG3_4"),fr="Choix de la transformation" ),
4939            PREF_NOEUD      =SIMP(statut='f',typ='TXM',defaut="NS"),
4940            PREF_NUME       =SIMP(statut='f',typ='I',defaut= 1 ),
4941          ),
4942          REPERE          =FACT(statut='f',min=01,max='**',
4943                                fr="changement de repère servant à déterminer les caractéristiques d une section de poutre",
4944            TABLE           =SIMP(statut='o',typ=tabl_cara_geom,
4945                                  fr="Nom de la table contenant les caractéristiques de la section de poutre" ),
4946            NOM_ORIG        =SIMP(statut='f',typ='TXM',into=("CDG","TORSION"),fr="Origine du nouveau repère" ),
4947            NOM_ROTA        =SIMP(statut='f',typ='TXM',into=("INERTIE",),fr="Direction du repére"  ),
4948            b_cdg =BLOC(condition = "NOM_ORIG == 'CDG'",
4949              GROUP_MA        =SIMP(statut='f',typ=grma,
4950                                    fr="Nom du groupe de mailles dont le centre de gravité sera l origine du nouveau repère"),
4951            ),
4952          ),
4953          ECLA_PG         =FACT(statut='f',min=01,max=01,
4954                                fr="Eclatement des mailles en petites mailles contenant chacune un seul point de gauss",
4955            MODELE          =SIMP(statut='o',typ=modele ),
4956            SHRINK          =SIMP(statut='f',typ='R',defaut= 0.9, fr="Facteur de réduction" ),
4957          ),
4958          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
4959 )  ;
4960 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
4961 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4962 # ======================================================================
4963 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4964 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4965 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4966 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4967 # (AT YOUR OPTION) ANY LATER VERSION.
4968 #
4969 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4970 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4971 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4972 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4973 #
4974 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4975 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4976 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4977 # ======================================================================
4978 def crea_resu_prod(TYPE_RESU,**args):
4979   if TYPE_RESU == "EVOL_ELAS"    : return evol_elas
4980   if TYPE_RESU == "EVOL_NOLI"    : return evol_noli
4981   if TYPE_RESU == "EVOL_THER"    : return evol_ther
4982   if TYPE_RESU == "MULT_ELAS"    : return mult_elas
4983   if TYPE_RESU == "FOURIER_ELAS" : return fourier_elas
4984   if TYPE_RESU == "EVOL_VARC"    : return evol_varc
4985   raise AsException("type de concept resultat non prevu")
4986
4987 CREA_RESU=OPER(nom="CREA_RESU",op=124,sd_prod=crea_resu_prod,docu="U4.44.12-e3",reentrant='f',
4988                fr="Engendrer ou enrichir une structure de donnees en affectant les cham_gd associes",
4989
4990          OPERATION =SIMP(statut='o',typ='TXM',into=("AFFE","ECLA_PG","PERM_CHAM","PROL_RTZ",),
4991                          fr="choix de la fonction a activer",),
4992
4993          b_affe       =BLOC(condition = "OPERATION == 'AFFE'",
4994
4995            TYPE_RESU    =SIMP(statut='o',typ='TXM',into=("MULT_ELAS","EVOL_ELAS","EVOL_NOLI","FOURIER_ELAS",
4996                                                          "EVOL_THER","EVOL_VARC",) ),
4997            NOM_CHAM     =SIMP(statut='f',typ='TXM',into=("DEPL","TEMP","IRRA","HYDR_ELGA",),max=1 ),
4998            AFFE         =FACT(statut='f',min=01,max='**',
4999              regles=(UN_PARMI('NOM_CAS','NUME_MODE','LIST_INST','INST',),),
5000              CHAM_GD         =SIMP(statut='f',typ=(cham_gd)),
5001              NOM_CAS         =SIMP(statut='f',typ='TXM' ),
5002              NUME_MODE       =SIMP(statut='f',typ='I'),
5003              TYPE_MODE       =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
5004              INST            =SIMP(statut='f',typ='R',max='**'),
5005              LIST_INST       =SIMP(statut='f',typ=listr8),
5006              NUME_INIT       =SIMP(statut='f',typ='I'),
5007              NUME_FIN        =SIMP(statut='f',typ='I'),
5008              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
5009              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5010            ),
5011          ),
5012
5013          b_ecla_pg    =BLOC(condition = "OPERATION == 'ECLA_PG'",
5014
5015            TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_ELAS","EVOL_NOLI","EVOL_THER"), ),
5016
5017            ECLA_PG         =FACT(statut='f',min=01,max=01,
5018              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
5019              NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
5020                                    into=("SIEF_ELGA","VARI_ELGA","SIEF_ELGA_DEPL","FLUX_ELGA_TEMP",) ),
5021              MODELE_INIT     =SIMP(statut='o',typ=modele),
5022              RESU_INIT       =SIMP(statut='o',typ=resultat),
5023              MAILLAGE        =SIMP(statut='o',typ=maillage),
5024              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5025              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
5026              LIST_ORDRE      =SIMP(statut='f',typ=listis),
5027              INST            =SIMP(statut='f',typ='R',max='**'),
5028              LIST_INST       =SIMP(statut='f',typ=listr8),
5029              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
5030              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
5031            ),
5032          ),
5033
5034          b_perm_cham =BLOC(condition = "OPERATION == 'PERM_CHAM'",
5035
5036            TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_NOLI",) ),
5037            NOM_CHAM        =SIMP(statut='f',typ='TXM',into=("DEPL","SIEF_ELGA","VARI_ELGA",),max='**' ),
5038            RESU_INIT       =SIMP(statut='o',typ=evol_noli),
5039            INST_INIT       =SIMP(statut='f',typ='R'),
5040            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
5041            CRITERE         =SIMP(statut='f',typ='TXM',into=('RELATIF','ABSOLU'),defaut='RELATIF'),
5042            MAILLAGE_INIT   =SIMP(statut='o',typ=maillage,),
5043            RESU_FINAL      =SIMP(statut='o',typ=evol_noli,),
5044            MAILLAGE_FINAL  =SIMP(statut='o',typ=maillage,),
5045            PERM_CHAM       =FACT(statut='o',min=01,max=01,
5046               GROUP_MA_FINAL =SIMP(statut='o',typ=grma),
5047               GROUP_MA_INIT  =SIMP(statut='o',typ=grma),
5048               TRAN           =SIMP(statut='o',typ='R',max='**'),
5049               PRECISION      =SIMP(statut='f',typ='R',defaut=1.0E-3),
5050            ),
5051          ),
5052
5053          b_prol_rtz   =BLOC(condition = "OPERATION == 'PROL_RTZ'",
5054
5055            TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_THER",) ),
5056
5057            PROL_RTZ        =FACT(statut='f',min=01,max=01,
5058               regles=(EXCLUS('INST','LIST_INST'),),
5059               MAILLAGE_FINAL  =SIMP(statut='o',typ=maillage,),
5060               TABLE           =SIMP(statut='o',typ=tabl_post_rele,fr="Table issue de post_releve_t"),
5061               INST            =SIMP(statut='f',typ='R',max='**'),
5062               LIST_INST       =SIMP(statut='f',typ=listr8),
5063               b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
5064                  PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
5065                  CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5066               ),
5067               PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU",),),
5068               PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU",),),
5069               REPERE          =SIMP(statut='o',typ='TXM',into=("CYLINDRIQUE",),),
5070               ORIGINE         =SIMP(statut='o',typ='R',min=03,max=03),
5071               AXE_Z           =SIMP(statut='o',typ='R',min=03,max=03),
5072            ),
5073          ),
5074
5075 )  ;
5076 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
5077 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5078 # ======================================================================
5079 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5080 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5081 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5082 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5083 # (AT YOUR OPTION) ANY LATER VERSION.
5084 #
5085 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5086 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5087 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5088 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5089 #
5090 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5091 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5092 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5093 # ======================================================================
5094 DEBUT=MACRO(nom="DEBUT",op=0 ,docu="U4.11.01-g2",repetable='n',
5095            fr="Ouverture d une étude. Allocation des ressources mémoire et disque",
5096           sd_prod=ops.DEBUT,
5097
5098          PAR_LOT         =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
5099                            into=("OUI","NON"),defaut="OUI"),
5100          BASE            =FACT(fr="définition des paramètres associés aux bases JEVEUX",
5101                                statut='f',min=1,max=3,
5102            FICHIER         =SIMP(fr="nom de la base",statut='o',typ='TXM',
5103                                  into=('GLOBALE','VOLATILE','LOCALE'),),
5104            TITRE           =SIMP(statut='f',typ='TXM'),
5105            CAS             =SIMP(statut='f',typ='TXM'),
5106            NMAX_ENRE       =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
5107            LONG_ENRE       =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
5108            LONG_REPE       =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
5109          ),
5110          IMPRESSION      =FACT(statut='f',min=1,max=3,
5111            FICHIER         =SIMP(statut='o',typ='TXM'),
5112            UNITE           =SIMP(statut='o',typ='I'),
5113          ),
5114          CATALOGUE       =FACT(statut='f',min=1,max=10,
5115            FICHIER         =SIMP(statut='o',typ='TXM'),
5116            TITRE           =SIMP(statut='f',typ='TXM'),
5117            UNITE           =SIMP(statut='f',typ='I'),
5118          ),
5119          CODE            =FACT(fr="définition d un nom pour l'esemble d'une étude",
5120                                statut='f',min=1,max=1,
5121            NOM             =SIMP(statut='o',typ='TXM'),
5122            NIV_PUB_WEB     =SIMP(statut='o',typ='TXM',into=('INTERNET','INTRANET')),
5123            UNITE           =SIMP(statut='f',typ='I',defaut=15),
5124          ),
5125          DEBUG           =FACT(fr="option de déboggage reservée aux développeurs",
5126                                statut='f',min=1,max=1,
5127            JXVERI          =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
5128                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
5129            JEVEUX          =SIMP(fr="force les déchargement sur disque",
5130                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
5131            ENVIMA          =SIMP(fr="imprime les valeurs définies dans ENVIMA",
5132                                  statut='f',typ='TXM',into=('TEST',)),
5133          ),
5134          MEMOIRE         =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=01,max=01,
5135            GESTION         =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
5136            TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
5137            TAILLE          =SIMP(statut='f',typ='I'),
5138            TAILLE_BLOC     =SIMP(statut='f',typ='R',defaut=800.),
5139            PARTITION       =SIMP(statut='f',typ='R'),
5140          ),
5141  );
5142 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
5143 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5144 # ======================================================================
5145 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5146 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5147 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5148 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5149 # (AT YOUR OPTION) ANY LATER VERSION.
5150 #
5151 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5152 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5153 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5154 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5155 #
5156 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5157 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5158 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5159 # ======================================================================
5160 DEFI_BASE_MODALE=OPER(nom="DEFI_BASE_MODALE",op=  99,sd_prod=base_modale,
5161                      docu="U4.64.02-f1",reentrant='f',
5162          regles=(UN_PARMI('CLASSIQUE','RITZ','DIAG_MASS'),),
5163          CLASSIQUE       =FACT(statut='f',min=01,max=01,
5164            INTERF_DYNA     =SIMP(statut='o',typ=interf_dyna_clas ),
5165            MODE_MECA       =SIMP(statut='o',typ=mode_meca,max='**' ),
5166            NMAX_MODE       =SIMP(statut='f',typ='I',defaut= 10 ),
5167          ),
5168          RITZ            =FACT(statut='f',min=01,max='**',
5169            regles=(UN_PARMI('MODE_STAT','MODE_MECA','MULT_ELAS','BASE_MODALE'),),
5170            MODE_MECA       =SIMP(statut='f',typ=mode_meca,max='**'  ),
5171            NMAX_MODE       =SIMP(statut='f',typ='I',defaut= 999 ),
5172            MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
5173            MULT_ELAS       =SIMP(statut='f',typ=mult_elas ),
5174            BASE_MODALE     =SIMP(statut='f',typ=base_modale ),
5175          ),
5176         DIAG_MASS        =FACT(statut='f',min=01,max='**',
5177            MODE_MECA       =SIMP(statut='o',typ=mode_meca,max='**'  ),
5178            MODE_STAT       =SIMP(statut='o',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
5179          ),
5180 #  le bloc conditionnel remplace-t-il PRESENT_PRESENT('RITZ','NUME_REF'),
5181 #                                     PRESENT_ABSENT('INTERF_DYNA','CLASSIQUE'),
5182          b_ritz          =BLOC(condition = "RITZ != None",
5183            INTERF_DYNA     =SIMP(statut='f',typ=interf_dyna_clas ),
5184            NUME_REF        =SIMP(statut='o',typ=nume_ddl ),
5185          ),
5186          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5187          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5188 )  ;
5189 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
5190 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5191 # ======================================================================
5192 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5193 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5194 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5195 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5196 # (AT YOUR OPTION) ANY LATER VERSION.
5197 #
5198 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5199 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5200 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5201 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5202 #
5203 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5204 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5205 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5206 # ======================================================================
5207 DEFI_CABLE_BP=OPER(nom="DEFI_CABLE_BP",op= 180,sd_prod=cabl_precont,
5208                    fr=" ",
5209                    docu="U4.42.04-a",reentrant='n',
5210          MODELE          =SIMP(statut='o',typ=modele ),
5211          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
5212          CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
5213          GROUP_MA_BETON  =SIMP(statut='o',typ=grma),
5214          DEFI_CABLE      =FACT(statut='o',min=1,max='**',
5215            regles=(UN_PARMI('MAILLE','GROUP_MA'),
5216                    UN_PARMI('NOEUD_ANCRAGE','GROUP_NO_ANCRAGE'),),
5217            MAILLE          =SIMP(statut='f',typ=ma,min=2,max='**'),
5218            GROUP_MA        =SIMP(statut='f',typ=grma),
5219            NOEUD_ANCRAGE   =SIMP(statut='f',typ=no,max=2),
5220            GROUP_NO_ANCRAGE=SIMP(statut='f',typ=grno,max=2),
5221            TYPE_ANCRAGE    =SIMP(statut='o',typ='TXM',min=2,max=2,
5222                                  into=("ACTIF","PASSIF") ),
5223          ),
5224          TENSION_INIT    =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5225          RECUL_ANCRAGE   =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5226          RELAXATION      =FACT(statut='f',min=0,max=1,
5227            R_J             =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5228          ),
5229          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
5230 )  ;
5231 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
5232 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5233 # ======================================================================
5234 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5235 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5236 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5237 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5238 # (AT YOUR OPTION) ANY LATER VERSION.
5239 #
5240 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5241 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5242 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5243 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5244 #
5245 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5246 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5247 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5248 # ======================================================================
5249 DEFI_CONSTANTE=OPER(nom="DEFI_CONSTANTE",op=   2,sd_prod=fonction,
5250                     fr="Définition d une fonction constante",
5251                     docu="U4.31.01-f",reentrant='n',
5252          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
5253          VALE            =SIMP(statut='o',typ='R',max=01 ),
5254          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5255 )  ;
5256 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
5257 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5258 # ======================================================================
5259 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5260 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5261 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5262 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5263 # (AT YOUR OPTION) ANY LATER VERSION.
5264 #
5265 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5266 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5267 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5268 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5269 #
5270 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5271 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5272 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5273 # ======================================================================
5274 DEFI_COQU_MULT=OPER(nom="DEFI_COQU_MULT",op=56,sd_prod=mater,docu="U4.42.03-e",reentrant='n',
5275                     fr="Définition d une coque composite couche par couche",
5276          COUCHE          =FACT(statut='o',min=01,max='**',
5277            EPAIS           =SIMP(statut='o',typ='R',val_min=0.E+0 ),
5278            MATER           =SIMP(statut='o',typ=(mater) ),
5279            ORIENTATION     =SIMP(statut='f',typ='R',defaut= 0.E+0,
5280                                  val_min=-90.E+0,val_max=90.E+0   ),
5281          ),
5282          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
5283          IMPRESSION      =FACT(statut='f',min=01,max=01,
5284            FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
5285                                  into=("RESULTAT",) ),
5286          ),
5287 )  ;
5288 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
5289 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5290 # ======================================================================
5291 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5292 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5293 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5294 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5295 # (AT YOUR OPTION) ANY LATER VERSION.
5296 #
5297 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5298 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5299 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5300 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5301 #
5302 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5303 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5304 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5305 # ======================================================================
5306 DEFI_FLUI_STRU=OPER(nom="DEFI_FLUI_STRU",op= 143,sd_prod=type_flui_stru,
5307                     docu="U4.25.01-d",reentrant='n',
5308          regles=(  UN_PARMI('FAISCEAU_TRANS','GRAPPE','FAISCEAU_AXIAL','COQUE_COAX',),),
5309          FAISCEAU_TRANS  =FACT(statut='f',min=01,max='**',
5310            COUPLAGE        =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
5311            CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
5312            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
5313            PROF_RHO_F_INT  =SIMP(statut='f',typ=fonction ),
5314            PROF_RHO_F_EXT  =SIMP(statut='f',typ=fonction ),
5315            NOM_CMP         =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ") ),
5316            COEF_MASS_AJOU  =SIMP(statut='f',typ='R' ),
5317            TYPE_PAS        =SIMP(statut='f',typ='TXM',into=("CARRE_LIGN","TRIA_LIGN") ),
5318            TYPE_RESEAU     =SIMP(statut='f',typ='I' ),
5319            UNITE_CD        =SIMP(statut='f',typ='I',defaut=70),
5320            UNITE_CK        =SIMP(statut='f',typ='I',defaut=71),
5321            PAS             =SIMP(statut='f',typ='R' ),
5322          ),
5323          GRAPPE          =FACT(statut='f',min=00,max=01,
5324            regles=(ENSEMBLE('GRAPPE_2','NOEUD','CARA_ELEM','MODELE','RHO_FLUI',),
5325                    PRESENT_PRESENT('COEF_MASS_AJOU','GRAPPE_2', ),),
5326 #  peut on créer un bloc a partir de la valeur de couplage
5327            COUPLAGE        =SIMP(statut='o',typ='TXM',into=("OUI","NON") ),
5328            GRAPPE_2        =SIMP(statut='f',typ='TXM',
5329                                  into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC") ),
5330            NOEUD           =SIMP(statut='f',typ=no),
5331            CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
5332            MODELE          =SIMP(statut='f',typ=modele ),
5333            COEF_MASS_AJOU  =SIMP(statut='f',typ='R' ),
5334            RHO_FLUI        =SIMP(statut='f',typ='R' ),
5335            UNITE_CA        =SIMP(statut='f',typ='I',defaut=70),
5336            UNITE_KA        =SIMP(statut='f',typ='I',defaut=71),
5337          ),
5338          FAISCEAU_AXIAL  =FACT(statut='f',min=01,max='**',
5339            regles=(UN_PARMI('GROUP_MA','TRI_GROUP_MA'),
5340                    UN_PARMI('CARA_ELEM','RAYON_TUBE'),
5341                    ENSEMBLE('RAYON_TUBE','COOR_TUBE'),
5342                    PRESENT_ABSENT('RAYON_TUBE','TRI_GROUP_MA'),
5343                    ENSEMBLE('CARA_PAROI','VALE_PAROI'),
5344                    ENSEMBLE('LONG_TYPG','LARG_TYPG','EPAI_TYPG','RUGO_TYPG','COEF_TRAI_TYPG','COEF_DPOR_TYPG',
5345                             'COOR_GRILLE','TYPE_GRILLE', ),),
5346 #  on doit pouvoir mettre des blocs conditionnels mais pas assez d infos pour le faire
5347            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5348            TRI_GROUP_MA    =SIMP(statut='f',typ='TXM' ),
5349            VECT_X          =SIMP(statut='f',typ='R',max=03),
5350            PROF_RHO_FLUI   =SIMP(statut='f',typ=fonction ),
5351            PROF_VISC_CINE  =SIMP(statut='f',typ=fonction ),
5352            CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
5353            RAYON_TUBE      =SIMP(statut='f',typ='R' ),
5354            COOR_TUBE       =SIMP(statut='f',typ='R',max='**'),
5355            PESANTEUR       =SIMP(statut='f',typ='R',min=04,max=04),
5356            RUGO_TUBE       =SIMP(statut='f',typ='R' ),
5357            CARA_PAROI      =SIMP(statut='f',typ='TXM',max=05,
5358                                  into=("YC","ZC","R","HY","HZ") ),
5359            VALE_PAROI      =SIMP(statut='f',typ='R',max=05),
5360            ANGL_VRIL       =SIMP(statut='f',typ='R' ),
5361            LONG_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5362            LARG_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5363            EPAI_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5364            RUGO_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5365            COEF_TRAI_TYPG  =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
5366            COEF_DPOR_TYPG  =SIMP(statut='f',typ='R',max='**'),
5367            COOR_GRILLE     =SIMP(statut='f',typ='R',max='**'),
5368            TYPE_GRILLE     =SIMP(statut='f',typ='I',max='**'),
5369          ),
5370          COQUE_COAX      =FACT(statut='f',min=00,max=01,
5371            MASS_AJOU       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
5372            GROUP_MA_INT    =SIMP(statut='o',typ=grma),
5373            GROUP_MA_EXT    =SIMP(statut='o',typ=grma),
5374            VECT_X          =SIMP(statut='o',typ='R',max='**'),
5375            CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
5376            MATER_INT       =SIMP(statut='o',typ=mater ),
5377            MATER_EXT       =SIMP(statut='o',typ=mater ),
5378            RHO_FLUI        =SIMP(statut='o',typ='R' ),
5379            VISC_CINE       =SIMP(statut='o',typ='R' ),
5380            RUGOSITE        =SIMP(statut='o',typ='R' ),
5381            PDC_MOY_1       =SIMP(statut='o',typ='R' ),
5382            PDC_DYN_1       =SIMP(statut='o',typ='R' ),
5383            PDC_MOY_2       =SIMP(statut='o',typ='R' ),
5384            PDC_DYN_2       =SIMP(statut='o',typ='R' ),
5385          ),
5386          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5387 )  ;
5388 #& MODIF COMMANDE  DATE 23/01/2002   AUTEUR DURAND C.DURAND
5389 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5390 # ======================================================================
5391 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5392 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5393 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5394 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5395 # (AT YOUR OPTION) ANY LATER VERSION.
5396 #
5397 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5398 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5399 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5400 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5401 #
5402 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5403 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5404 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5405 # ======================================================================
5406 DEFI_FONC_ELEC=OPER(nom="DEFI_FONC_ELEC",op=64,sd_prod=fonction,docu="U4.MK.10-e",reentrant='n',
5407                     fr="Définition d une fonction du temps pour calculer des forces de LAPLACE",
5408       regles=(UN_PARMI('COUR_PRIN','COUR'),
5409               EXCLUS('COUR','COUR_SECO'), ),
5410          FREQ            =SIMP(statut='f',typ='R',defaut= 50.),
5411          SIGNAL          =SIMP(statut='f',typ='TXM',defaut="COMPLET",into=("COMPLET","CONTINU") ),
5412          COUR            =FACT(statut='f',min=1,max='**',
5413          fr="Définition du courant de court-circuit",
5414            regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),
5415                    UN_PARMI('PHI_CC_2','INTC_CC_2'),),
5416            INTE_CC_1       =SIMP(statut='o',typ='R'),
5417            TAU_CC_1        =SIMP(statut='o',typ='R'),
5418            PHI_CC_1        =SIMP(statut='f',typ='R'),
5419            INTC_CC_1       =SIMP(statut='f',typ='R'),
5420            INTE_CC_2       =SIMP(statut='o',typ='R'),
5421            TAU_CC_2        =SIMP(statut='o',typ='R'),
5422            PHI_CC_2        =SIMP(statut='f',typ='R'),
5423            INTC_CC_2       =SIMP(statut='f',typ='R'),
5424            INST_CC_INIT    =SIMP(statut='o',typ='R'),
5425            INST_CC_FIN     =SIMP(statut='o',typ='R'),
5426          ),
5427          COUR_PRIN       =FACT(statut='f',min=1,max=1,
5428          fr="Définition du courant de court-circuit avec réenclenchement",
5429            regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),),
5430            INTE_CC_1       =SIMP(statut='o',typ='R'),
5431            TAU_CC_1        =SIMP(statut='o',typ='R'),
5432            PHI_CC_1        =SIMP(statut='f',typ='R'),
5433            INTC_CC_1       =SIMP(statut='f',typ='R'),
5434            INTE_RENC_1     =SIMP(statut='f',typ='R'),
5435            TAU_RENC_1      =SIMP(statut='f',typ='R'),
5436            PHI_RENC_1      =SIMP(statut='f',typ='R'),
5437            INST_CC_INIT    =SIMP(statut='o',typ='R'),
5438            INST_CC_FIN     =SIMP(statut='o',typ='R'),
5439            INST_RENC_INIT  =SIMP(statut='f',typ='R',defaut= 0.0E+0),
5440            INST_RENC_FIN   =SIMP(statut='f',typ='R',defaut= 0.0E+0),
5441          ),
5442          COUR_SECO       =FACT(statut='f',min=1,max='**',
5443          fr="Définition du courant de court-circuit avec un intervalle de temps différent de celui de COUR_PRIN",
5444            regles=(UN_PARMI('PHI_CC_2','INTC_CC_2'),),
5445            INTE_CC_2       =SIMP(statut='o',typ='R'),
5446            TAU_CC_2        =SIMP(statut='o',typ='R'),
5447            PHI_CC_2        =SIMP(statut='f',typ='R'),
5448            INTC_CC_2       =SIMP(statut='f',typ='R'),
5449            INTE_RENC_2     =SIMP(statut='f',typ='R'),
5450            TAU_RENC_2      =SIMP(statut='f',typ='R'),
5451            PHI_RENC_2      =SIMP(statut='f',typ='R'),
5452            DIST            =SIMP(statut='f',typ='R',defaut=1.0E+0),
5453          ),
5454          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
5455 )  ;
5456 #& MODIF COMMANDE  DATE 03/10/2001   AUTEUR DURAND C.DURAND
5457 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5458 # ======================================================================
5459 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5460 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5461 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5462 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5463 # (AT YOUR OPTION) ANY LATER VERSION.
5464 #
5465 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5466 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5467 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5468 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5469 #
5470 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5471 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5472 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5473 # ======================================================================
5474 DEFI_FONC_FLUI=OPER(nom="DEFI_FONC_FLUI",op= 142,sd_prod=fonction,
5475                     docu="U4.35.01-c",reentrant='n',
5476          MAILLAGE        =SIMP(statut='o',typ=(maillage) ),
5477          NOEUD_INIT      =SIMP(statut='o',typ=no),
5478          NOEUD_FIN       =SIMP(statut='o',typ=no),
5479          VITE            =FACT(statut='o',min=1,max=1,
5480            VALE            =SIMP(statut='f',typ='R',defaut= 1. ),
5481            PROFIL          =SIMP(statut='o',typ='TXM',into=("UNIFORME","LEONARD") ),
5482            NB_BAV          =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 2 , 3 ) ),
5483          ),
5484          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",
5485                                into=("NON","LIN","LOG") ),
5486          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",
5487                                into=("CONSTANT","LINEAIRE","EXCLU") ),
5488          PROL_GAUCHE     =SIMP(statut='f',typ='TXM' ,defaut="EXCLU",
5489                                into=("CONSTANT","LINEAIRE","EXCLU") ),
5490          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
5491          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5492 )  ;
5493 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
5494 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5495 # ======================================================================
5496 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5497 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5498 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5499 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5500 # (AT YOUR OPTION) ANY LATER VERSION.
5501 #
5502 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5503 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5504 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5505 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5506 #
5507 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5508 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5509 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5510 # ======================================================================
5511 # RESPONSABLE MCOURTOI M.COURTOIS
5512 def defi_fonction_prod(VALE,VALE_PARA,VALE_C,NOEUD_PARA,**args):
5513   if VALE != None  : return fonction
5514   if VALE_C != None  : return fonction_c
5515   if VALE_PARA != None  : return fonction
5516   if NOEUD_PARA != None  : return fonction
5517   raise AsException("type de concept resultat non prevu")
5518
5519 DEFI_FONCTION=OPER(nom="DEFI_FONCTION",op=3,sd_prod=defi_fonction_prod
5520                     ,fr="Définition des valeurs réelles ou complexes d une fonction réelle",
5521                      docu="U4.31.02-g3",reentrant='n',
5522          regles=(UN_PARMI('VALE','VALE_C','VALE_PARA','NOEUD_PARA'),),
5523          NOM_PARA        =SIMP(statut='o',typ='TXM',
5524                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
5525                                      "INST","X","Y","Z","EPSI","META","FREQ","PULS",
5526                                      "AMOR","ABSC","SIGM","HYDR","SECH","PORO","SAT",
5527                                      "PGAZ","PCAP","VITE") ),
5528          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
5529          VALE            =SIMP(statut='f',typ='R',min=2,max='**',
5530                                fr ="Fonction réelle définie par une liste de couples (abscisse,ordonnée)"),
5531          VALE_C          =SIMP(statut='f',typ='R',min=2,max='**',
5532                                fr ="Fonction complexe définie par une liste de couples"),
5533          VALE_PARA       =SIMP(statut='f',typ=listr8,
5534                                fr ="Fonction réelle définie par deux concepts de type listr8" ),
5535          b_vale_para     =BLOC(condition = "VALE_PARA != None",
5536            VALE_FONC       =SIMP(statut='o',typ=listr8 ),
5537          ),
5538          NOEUD_PARA      =SIMP(statut='f',typ=no,max='**',
5539                                fr ="Fonction réelle définie par une liste de noeuds et un maillage"),
5540          b_noeud_para    =BLOC(condition = "NOEUD_PARA != None",
5541            MAILLAGE        =SIMP(statut='o',typ=maillage ),
5542            VALE_Y          =SIMP(statut='o',typ='R',max='**'),
5543          ),
5544
5545          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
5546          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5547          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5548          VERIF           =SIMP(statut='f',typ='TXM',defaut="CROISSANT",into=("CROISSANT","NON") ),
5549          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5550          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5551 )  ;
5552 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
5553 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5554 # ======================================================================
5555 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5556 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5557 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5558 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5559 # (AT YOUR OPTION) ANY LATER VERSION.
5560 #
5561 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5562 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5563 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5564 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5565 #
5566 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5567 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5568 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5569 # ======================================================================
5570 DEFI_FOND_FISS=OPER(nom="DEFI_FOND_FISS",op=55,sd_prod=fond_fiss,docu="U4.82.01-e",reentrant='n',
5571                     fr="Définition de lèvres et d un fond de fissure en 3D",
5572          regles=(UN_PARMI('FOND','FOND_FERME'),
5573                  EXCLUS('FOND_FERME','DTAN_ORIG'),
5574                  EXCLUS('FOND_FERME','DTAN_EXTR'),
5575                       EXCLUS('FOND_FERME','VECT_GRNO_ORIG'),
5576                       EXCLUS('FOND_FERME','VECT_GRNO_EXTR'),
5577                  UN_PARMI('LEVRE_SUP','NORMALE'),
5578                       EXCLUS('LEVRE_INF','NORMALE'),
5579                  ENSEMBLE('DTAN_ORIG','DTAN_EXTR'),
5580                       ENSEMBLE('VECT_GRNO_ORIG','VECT_GRNO_EXTR'),
5581                       EXCLUS('DTAN_ORIG','VECT_GRNO_ORIG'),
5582                       EXCLUS('DTAN_EXTR','VECT_GRNO_EXTR') ,),
5583            MAILLAGE        =SIMP(statut='o',typ=maillage ),
5584            FOND            =FACT(statut='f',min=01,max=01,
5585              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
5586                      EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
5587                           EXCLUS('NOEUD_EXTR','GROUP_NO_EXTR'),),
5588              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5589              NOEUD           =SIMP(statut='f',typ=no,max='**'),
5590              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5591              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5592 #  à mettre à jour le max vaut-il 1
5593              NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
5594              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
5595              NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
5596              GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
5597            ),
5598            FOND_FERME      =FACT(statut='f',min=01,max=01,
5599              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
5600                           EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),),
5601              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5602              NOEUD           =SIMP(statut='f',typ=no,max='**'),
5603              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5604              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5605              NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
5606              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
5607              MAILLE_ORIG     =SIMP(statut='f',typ=ma,max=1),
5608              GROUP_MA_ORIG   =SIMP(statut='f',typ=ma,max=1),
5609            ),
5610            LEVRE_SUP       =FACT(statut='f',min=01,max=01,
5611              regles=(UN_PARMI('GROUP_MA','MAILLE'),),
5612              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5613              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5614            ),
5615            LEVRE_INF       =FACT(statut='f',min=01,max=01,
5616              regles=(UN_PARMI('GROUP_MA','MAILLE', ),),
5617              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5618              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5619            ),
5620            NORMALE         =SIMP(statut='f',typ='R',max='**'),
5621            DTAN_ORIG       =SIMP(statut='f',typ='R',max='**'),
5622            DTAN_EXTR       =SIMP(statut='f',typ='R',max='**'),
5623            VECT_GRNO_ORIG  =SIMP(statut='f',typ=grno,max=2),
5624            VECT_GRNO_EXTR  =SIMP(statut='f',typ=grno,max=2),
5625            INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
5626 )  ;
5627 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
5628 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5629 # ======================================================================
5630 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5631 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5632 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5633 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5634 # (AT YOUR OPTION) ANY LATER VERSION.
5635 #
5636 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5637 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5638 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5639 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5640 #
5641 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5642 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5643 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5644 # ======================================================================
5645 # RESPONSABLE VABHHTS J.PELLET
5646 def defi_group_prod(MAILLAGE,**args):
5647   if AsType(MAILLAGE) == maillage : return maillage
5648   if AsType(MAILLAGE) == squelette : return squelette
5649   raise AsException("type de concept resultat non prevu")
5650
5651 DEFI_GROUP=OPER(nom="DEFI_GROUP",op= 104,sd_prod=defi_group_prod,
5652                 fr="Définition de nouveaux groupes de noeuds et/ou de mailles dans un concept maillage",
5653                 docu="U4.22.01-f1",reentrant='o',
5654          regles=(AU_MOINS_UN('CREA_GROUP_MA','CREA_GROUP_NO'),),
5655          MAILLAGE        =SIMP(statut='o',typ=(maillage,squelette) ),
5656
5657          CREA_GROUP_MA   =FACT(statut='f',min=01,max='**',
5658            regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','INTERSEC','UNION','DIFFE','OPTION'),),
5659 #  quel est le concept attendu deriere NOM
5660            NOM             =SIMP(statut='o',typ=grma),
5661            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5662            GROUP_MA        =SIMP(statut='f',typ=grma),
5663            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5664            INTERSEC        =SIMP(statut='f',typ=grma,max='**'),
5665            UNION           =SIMP(statut='f',typ=grma,max='**'),
5666            DIFFE           =SIMP(statut='f',typ=grma,max='**'),
5667            OPTION          =SIMP(statut='f',typ='TXM',into=("FACE_NORMALE","SPHERE","CYLINDRE","BANDE") ),
5668            b_group_ma      =BLOC(condition = "GROUP_MA != None",
5669              regles=(EXCLUS('POSITION','NUME_INIT'),),
5670              NUME_INIT       =SIMP(statut='f',typ='I',defaut= 1 ),
5671              POSITION        =SIMP(statut='f',typ='TXM',into=("INIT","FIN","MILIEU") ),
5672              b_nume_init   =BLOC(condition = "NUME_INIT != None",
5673                NUME_FIN        =SIMP(statut='f',typ='I' ),
5674              ),
5675            ),
5676            b_face_normale  =BLOC(condition = "OPTION == 'FACE_NORMALE'",
5677              regles=(UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5678              ANGL_NAUT       =SIMP(statut='f',typ='R',max=02),
5679              VECT_NORMALE    =SIMP(statut='f',typ='R',max=03),
5680              ANGL_PREC       =SIMP(statut='f',typ='R',defaut= 0.5 ),
5681              VERI_SIGNE      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
5682            ),
5683            b_sphere        =BLOC(condition = "OPTION == 'SPHERE'",
5684              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),),
5685              POINT           =SIMP(statut='f',typ='R',max=03),
5686              NOEUD_CENTRE    =SIMP(statut='f',typ=no),
5687              RAYON           =SIMP(statut='o',typ='R' ),
5688            ),
5689            b_cylindre      =BLOC(condition = "OPTION == 'CYLINDRE'",
5690              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5691                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5692              POINT           =SIMP(statut='f',typ='R',max=03),
5693              NOEUD_CENTRE    =SIMP(statut='f',typ=no),
5694              RAYON           =SIMP(statut='o',typ='R' ),
5695              ANGL_NAUT       =SIMP(statut='f',typ='R',max=02),
5696              VECT_NORMALE    =SIMP(statut='f',typ='R',max=03),
5697            ),
5698            b_bande         =BLOC(condition = "OPTION == 'BANDE'",
5699              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5700                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5701              POINT           =SIMP(statut='f',typ='R',max=03),
5702              NOEUD_CENTRE    =SIMP(statut='f',typ=no),
5703              DIST            =SIMP(statut='o',typ='R' ),
5704              ANGL_NAUT       =SIMP(statut='f',typ='R',max=02),
5705              VECT_NORMALE    =SIMP(statut='f',typ='R',max=03),
5706            ),
5707          ),
5708          CREA_GROUP_NO   =FACT(statut='f',min=01,max='**',
5709            regles = (
5710          AU_MOINS_UN ('TOUT_GROUP_MA','GROUP_MA','NOEUD',
5711                      'INTERSEC','UNION','DIFFE','GROUP_NO','OPTION'),
5712                    EXCLUS ('TOUT_GROUP_MA','GROUP_MA','NOEUD','INTERSEC','UNION','DIFFE'),),
5713            TOUT_GROUP_MA   =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5714            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5715
5716            NOEUD           =SIMP(statut='f',typ=no,max='**'),
5717            INTERSEC        =SIMP(statut='f',typ=grno,max='**'),
5718            UNION           =SIMP(statut='f',typ=grno,max='**'),
5719            DIFFE           =SIMP(statut='f',typ=grno,max='**'),
5720            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5721            OPTION          =SIMP(statut='f',typ='TXM',into=("ENV_SPHERE","ENV_CYLINDRE","PLAN",
5722                                                             "SEGM_DROI_ORDO","NOEUD_ORDO") ),
5723            b_nom_group_ma  =BLOC(condition = "GROUP_MA != None",
5724              NOM             =SIMP(statut='f',typ=grma,max='**'),
5725            ),
5726            b_crit_noeud    = BLOC(condition = "GROUP_MA != None",
5727              CRIT_NOEUD    = SIMP(statut='f',typ='TXM',defaut="TOUS",
5728                             into=("TOUS","SOMMET","MILIEU","CENTRE"),),),
5729            b_nom =BLOC(condition = "GROUP_MA == None and TOUT_GROUP_MA == None" ,
5730              NOM             =SIMP(statut='o',typ=geom),
5731            ),
5732            b_group_no      =BLOC(condition = "GROUP_NO != None",
5733              regles=(EXCLUS('POSITION','NUME_INIT'),),
5734              NUME_INIT       =SIMP(statut='f',typ='I',defaut= 1 ),
5735              POSITION        =SIMP(statut='f',typ='TXM',into=("INIT","FIN","MILIEU") ),
5736              b_nume_init     =BLOC(condition = "NUME_INIT != None",
5737                NUME_FIN        =SIMP(statut='f',typ='I' ),
5738              ),
5739            ),
5740            b_env_sphere    =BLOC(condition = "OPTION == 'ENV_SPHERE'",
5741              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),),
5742              POINT           =SIMP(statut='f',typ='R',max=03),
5743              NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=01),
5744              RAYON           =SIMP(statut='o',typ='R' ),
5745              PRECISION       =SIMP(statut='f',typ='R' ),
5746              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5747            ),
5748            b_env_cylindre  =BLOC(condition = "OPTION == 'ENV_CYLINDRE'",
5749              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5750                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5751              POINT           =SIMP(statut='f',typ='R',max=03),
5752              NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=01),
5753              RAYON           =SIMP(statut='o',typ='R' ),
5754              ANGL_NAUT       =SIMP(statut='f',typ='R',max=03),
5755              VECT_NORMALE    =SIMP(statut='f',typ='R',max=03),
5756              PRECISION       =SIMP(statut='f',typ='R' ),
5757              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5758            ),
5759            b_env_plan      =BLOC(condition = "OPTION == 'PLAN'",
5760              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
5761                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
5762              POINT           =SIMP(statut='f',typ='R',max=03),
5763              NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=01),
5764              ANGL_NAUT       =SIMP(statut='f',typ='R',max=03),
5765              VECT_NORMALE    =SIMP(statut='f',typ='R',max=03),
5766              PRECISION       =SIMP(statut='f',typ='R' ),
5767              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5768            ),
5769            b_segm_droi_ordo=BLOC(condition = "OPTION == 'SEGM_DROI_ORDO'",
5770              regles=(UN_PARMI('NOEUD_ORIG','GROUP_NO_ORIG'),
5771                      UN_PARMI('NOEUD_EXTR','GROUP_NO_EXTR'),),
5772              NOEUD_ORIG      =SIMP(statut='f',typ=no),
5773              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno),
5774              NOEUD_EXTR      =SIMP(statut='f',typ=no),
5775              GROUP_NO_EXTR   =SIMP(statut='f',typ=grno),
5776              PRECISION       =SIMP(statut='f',typ='R' ),
5777              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5778            ),
5779            b_noeud_ordo    =BLOC(condition = "OPTION == 'NOEUD_ORDO'",
5780              regles=(UN_PARMI('NOEUD_ORIG','GROUP_NO_ORIG'),
5781                      UN_PARMI('NOEUD_EXTR','GROUP_NO_EXTR'),),
5782              NOEUD_ORIG      =SIMP(statut='f',typ=no),
5783              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno),
5784              NOEUD_EXTR      =SIMP(statut='f',typ=no),
5785              GROUP_NO_EXTR   =SIMP(statut='f',typ=grno),
5786              PRECISION       =SIMP(statut='f',typ='R' ),
5787              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
5788            ),
5789          ),
5790          INFO            =SIMP(statut='f',typ='I',into=( 1 , 2 ) ),
5791 )  ;
5792 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
5793 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5794 # ======================================================================
5795 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5796 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5797 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5798 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5799 # (AT YOUR OPTION) ANY LATER VERSION.
5800 #
5801 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5802 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5803 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5804 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5805 #
5806 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5807 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5808 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5809 # ======================================================================
5810 DEFI_INTE_SPEC=OPER(nom="DEFI_INTE_SPEC",op= 115,sd_prod=tabl_intsp,
5811                     docu="U4.36.02-f2",reentrant='n',
5812
5813          DIMENSION       =SIMP(statut='f',typ='I',defaut= 1 ),
5814
5815          PAR_FONCTION    =FACT(statut='f',min=1,max='**',
5816            NUME_ORDRE_I    =SIMP(statut='o',typ='I' ),
5817            NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
5818            FONCTION        =SIMP(statut='o',typ=fonction_c ),
5819          ),
5820          KANAI_TAJIMI    =FACT(statut='f',min=1,max='**',
5821            regles=(EXCLUS('VALE_R','VALE_C'),),
5822            NUME_ORDRE_I    =SIMP(statut='o',typ='I' ),
5823            NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
5824            FREQ_MIN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5825            FREQ_MAX        =SIMP(statut='f',typ='R',defaut= 100. ),
5826            PAS             =SIMP(statut='f',typ='R',defaut= 1. ),
5827            AMOR_REDUIT     =SIMP(statut='f',typ='R',defaut= 0.6 ),
5828            FREQ_MOY        =SIMP(statut='f',typ='R',defaut= 5. ),
5829            VALE_R          =SIMP(statut='f',typ='R' ),
5830            VALE_C          =SIMP(statut='f',typ='C' ),
5831            INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
5832            PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5833            PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5834          ),
5835          CONSTANT        =FACT(statut='f',min=1,max='**',
5836            regles=(EXCLUS('VALE_R','VALE_C'),),
5837            NUME_ORDRE_I    =SIMP(statut='o',typ='I' ),
5838            NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
5839            FREQ_MIN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5840            FREQ_MAX        =SIMP(statut='f',typ='R',defaut= 100. ),
5841            PAS             =SIMP(statut='f',typ='R',defaut= 1. ),
5842            VALE_R          =SIMP(statut='f',typ='R' ),
5843            VALE_C          =SIMP(statut='f',typ='C' ),
5844            INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
5845            PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5846            PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
5847          ),
5848          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5849          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5850 )  ;
5851 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
5852 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5853 # ======================================================================
5854 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5855 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5856 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5857 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5858 # (AT YOUR OPTION) ANY LATER VERSION.
5859 #
5860 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5861 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5862 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5863 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5864 #
5865 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5866 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5867 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5868 # ======================================================================
5869 DEFI_INTERF_DYNA=OPER(nom="DEFI_INTERF_DYNA",op=  98,sd_prod=interf_dyna_clas,
5870                       docu="U4.64.01-e",reentrant='n',
5871          NUME_DDL        =SIMP(statut='o',typ=nume_ddl ),
5872          INTERFACE       =FACT(statut='o',min=01,max='**',
5873            regles=(ENSEMBLE('NOM','TYPE'),
5874 #  erreur doc U sur la condition qui suit
5875                    UN_PARMI('NOEUD','GROUP_NO'),),
5876            NOM             =SIMP(statut='f',typ='TXM' ),
5877            TYPE            =SIMP(statut='f',typ='TXM',into=("MNEAL","CRAIGB","CB_HARMO","AUCUN") ),
5878            NOEUD           =SIMP(statut='f',typ=no,max='**'),
5879            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5880            DDL_ACTIF       =SIMP(statut='f',typ='TXM',max='**'),
5881            MASQUE          =SIMP(statut='f',typ='TXM',max='**'),
5882          ),
5883          FREQ            =SIMP(statut='f',typ='R',defaut= 1.),
5884          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
5885 )  ;
5886 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
5887 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5888 # ======================================================================
5889 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5890 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5891 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5892 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5893 # (AT YOUR OPTION) ANY LATER VERSION.
5894 #
5895 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5896 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5897 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5898 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5899 #
5900 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5901 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5902 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5903 # ======================================================================
5904 # RESPONSABLE VABHHTS J.PELLET
5905 DEFI_LIST_ENTI=OPER(nom="DEFI_LIST_ENTI",op=22,sd_prod=listis,
5906                     fr="Définition d une suite croissante d entiers",
5907                     docu="U4.34.02-f",reentrant='n',
5908          regles=(UN_PARMI('VALE','DEBUT'),
5909                  EXCLUS('VALE','INTERVALLE'),),
5910          VALE            =SIMP(statut='f',typ='I',max='**'),
5911          DEBUT           =SIMP(statut='f',typ='I'),
5912          INTERVALLE      =FACT(statut='f',min=01,max='**',
5913            regles=(UN_PARMI('NOMBRE','PAS'),),
5914            JUSQU_A         =SIMP(statut='o',typ='I'),
5915            NOMBRE          =SIMP(statut='f',typ='I',val_min=1,),
5916            PAS             =SIMP(statut='f',typ='I',val_min=1,),
5917          ),
5918          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
5919          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5920 )  ;
5921 #& MODIF COMMANDE  DATE 06/03/2002   AUTEUR MCOURTOI M.COURTOIS
5922 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5923 # ======================================================================
5924 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5925 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5926 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5927 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5928 # (AT YOUR OPTION) ANY LATER VERSION.
5929 #
5930 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5931 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5932 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5933 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5934 #
5935 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5936 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5937 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5938 # ======================================================================
5939 # RESPONSABLE VABHHTS J.PELLET
5940 DEFI_LIST_REEL=OPER(nom="DEFI_LIST_REEL",op=24,sd_prod=listr8,
5941                     fr="Définition d une suite croissante de réels",
5942                     docu="U4.34.01-g1",reentrant='n',
5943          regles=(UN_PARMI('VALE','DEBUT',),
5944                  EXCLUS('VALE','INTERVALLE'),
5945                  ENSEMBLE('DEBUT','INTERVALLE')),
5946          VALE            =SIMP(statut='f',typ='R',max='**'),
5947          DEBUT           =SIMP(statut='f',typ='R'),
5948          INTERVALLE      =FACT(statut='f',min=01,max='**',
5949            regles=(UN_PARMI('NOMBRE','PAS'),),
5950            JUSQU_A         =SIMP(statut='o',typ='R'),
5951            NOMBRE          =SIMP(statut='f',typ='I'),
5952            PAS             =SIMP(statut='f',typ='R'),
5953          ),
5954          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
5955          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5956 )  ;
5957 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
5958 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5959 # ======================================================================
5960 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5961 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5962 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5963 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5964 # (AT YOUR OPTION) ANY LATER VERSION.
5965 #
5966 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5967 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5968 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5969 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5970 #
5971 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5972 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5973 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5974 # ======================================================================
5975 # RESPONSABLE VABHHTS J.PELLET
5976 DEFI_MAILLAGE=OPER(nom="DEFI_MAILLAGE",op=  88,sd_prod=maillage,
5977                    fr="Définition d un nouveau maillage à partir de macro éléments",
5978                    docu="U4.23.01-e",reentrant='n',
5979          DEFI_MAILLE     =FACT(statut='o',min=01,max='**',
5980            MACR_ELEM_STAT  =SIMP(statut='o',typ=macr_elem_stat,max='**' ),
5981            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5982            TRAN            =SIMP(statut='f',typ='R',max=03),
5983            ANGL_NAUT       =SIMP(statut='f',typ='R',max=03),
5984            b_angl_naut     =BLOC(condition = "ANGL_NAUT != None",
5985              CENTRE          =SIMP(statut='f',typ='R',max=03),
5986            ),
5987          ),
5988          RECO_GLOBAL     =FACT(statut='f',min=01,max='**',
5989            regles=(UN_PARMI('TOUT','MAILLE'),),
5990            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5991            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5992            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5993            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
5994          ),
5995          RECO_MAILLE     =FACT(statut='f',min=01,max='**',
5996            MAILLE          =SIMP(statut='o',typ=ma,max='**'),
5997            GROUP_NO        =SIMP(statut='o',typ=grno,max='**'),
5998            OPTION          =SIMP(statut='f',typ='TXM',defaut="GEOMETRIQUE",into=("GEOMETRIQUE","NOEUD_A_NOEUD","INVERSE") ),
5999            geometrique     =BLOC(condition = "OPTION == 'GEOMETRIQUE'",
6000              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6001              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
6002            ),
6003          ),
6004          DEFI_NOEUD      =FACT(statut='f',min=01,max='**',
6005            regles=(UN_PARMI('TOUT','NOEUD_INIT'),),
6006            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",),
6007                                  fr="Renommage de tous les noeuds" ),
6008            NOEUD_INIT      =SIMP(statut='f',typ=no,
6009                                  fr="Renommage d un seul noeud"),
6010            b_tout          =BLOC(condition = "TOUT != None",
6011              PREFIXE         =SIMP(statut='f',typ='TXM' ),
6012              INDEX           =SIMP(statut='o',typ='I',max='**'),
6013            ),
6014            b_noeud_init    =BLOC(condition = "NOEUD_INIT != None",
6015              MAILLE          =SIMP(statut='o',typ=ma),
6016              NOEUD_FIN       =SIMP(statut='o',typ=no),
6017            ),
6018          ),
6019          DEFI_GROUP_NO   =FACT(statut='f',min=01,max='**',
6020            regles=(UN_PARMI('TOUT','MAILLE'),
6021                 AU_MOINS_UN('INDEX','GROUP_NO_FIN'),
6022                    ENSEMBLE('GROUP_NO_INIT','GROUP_NO_FIN'),),
6023 #  la regle ancien catalogue AU_MOINS_UN__: ( INDEX , GROUP_NO_FIN ) incoherente avec doc U
6024            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",),
6025                                  fr="Création de plusieurs groupes de noeuds" ),
6026            MAILLE          =SIMP(statut='f',typ=ma,
6027                                  fr="Création de plusieurs groupes de noeuds"),
6028            GROUP_NO_INIT   =SIMP(statut='f',typ=grno,
6029                                  fr="Création d un seul groupe de noeuds"),
6030            PREFIXE         =SIMP(statut='f',typ='TXM' ),
6031            INDEX           =SIMP(statut='f',typ='I',max='**'),
6032            GROUP_NO_FIN    =SIMP(statut='f',typ=grno),
6033          ),
6034 )  ;
6035 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
6036 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6037 # ======================================================================
6038 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6039 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6040 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6041 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6042 # (AT YOUR OPTION) ANY LATER VERSION.
6043 #
6044 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6045 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6046 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6047 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6048 #
6049 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6050 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6051 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6052 # ======================================================================
6053 DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater,
6054                    fr="Définition des paramètres décrivant le comportement d un matériau",
6055                    docu="U4.43.01-g4",reentrant='n',
6056        regles=(EXCLUS('ELAS','ELAS_FO','ELAS_FLUI','ELAS_ISTR','ELAS_ISTR_FO','ELAS_ORTH',
6057                       'ELAS_ORTH_FO','ELAS_COQUE','ELAS_COQUE_FO',
6058                       'SURF_ETAT_SATU','CAM_CLAY_THM','SURF_ETAT_NSAT'),
6059                EXCLUS('THER','THER_FO','THER_ORTH','THER_NL'),
6060                EXCLUS('ECRO_LINE','ECRO_LINE_FO'),
6061                EXCLUS('TAHERI','TAHERI_FO'),
6062                EXCLUS('ROUSSELIER','ROUSSELIER_FO'),
6063                PRESENT_PRESENT('ROUSSELIER','TRACTION'),
6064                PRESENT_PRESENT('ROUSSELIER_FO','TRACTION'),
6065                EXCLUS('CIN1_CHAB','CIN1_CHAB_FO'),
6066                EXCLUS('CIN2_CHAB','CIN2_CHAB_FO'),
6067                EXCLUS('VISCOCHAB','VISCOCHAB_FO'),
6068                EXCLUS('POLY_CFC','POLY_CFC_FO'),
6069                EXCLUS('LEMAITRE','LEMAITRE_FO','ZIRC_CYRA2','ZIRC_EPRI'),
6070                EXCLUS('OHNO','OHNO_FO'),
6071                EXCLUS('LMARC','LMARC_FO'),
6072                EXCLUS('VMIS_POUTRE','VMIS_POUTRE_FO'),
6073                EXCLUS('VENDOCHAB','VENDOCHAB_FO'),
6074                PRESENT_PRESENT('BPEL_BETON','ELAS'),
6075                PRESENT_PRESENT('BPEL_ACIER','ELAS'),
6076                EXCLUS('RCCM','RCCM_FO'),
6077                EXCLUS('WEIBULL','WEIBULL_FO'),
6078                PRESENT_PRESENT('CAM_CLAY','ELAS'),
6079                PRESENT_PRESENT('LAIGLE','ELAS'),
6080                PRESENT_PRESENT('MAZARS','ELAS'),
6081                PRESENT_PRESENT('GRANGER_FD','ELAS_FO'),
6082                ),
6083
6084 #
6085 # comportement élastique
6086 #
6087            ELAS            =FACT(statut='f',min=0,max=1,
6088              E               =SIMP(statut='o',typ='R',val_min=0.E+0),
6089              NU              =SIMP(statut='o',typ='R',val_min=-1.E+0,val_max=0.5E+0),
6090              RHO             =SIMP(statut='f',typ='R'),
6091              ALPHA           =SIMP(statut='f',typ='R'),
6092              AMOR_ALPHA      =SIMP(statut='f',typ='R'),
6093              AMOR_BETA       =SIMP(statut='f',typ='R'),
6094              AMOR_HYST       =SIMP(statut='f',typ='R'),
6095            ),
6096            ELAS_FO         =FACT(statut='f',min=0,max=1,
6097              regles=(PRESENT_PRESENT('ALPHA','TEMP_DEF_ALPHA'),),
6098              E               =SIMP(statut='o',typ=fonction),
6099              NU              =SIMP(statut='o',typ=fonction),
6100              RHO             =SIMP(statut='f',typ='R'),
6101              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
6102              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.),
6103              ALPHA           =SIMP(statut='f',typ=fonction),
6104              AMOR_ALPHA      =SIMP(statut='f',typ=fonction),
6105              AMOR_BETA       =SIMP(statut='f',typ=fonction),
6106              AMOR_HYST       =SIMP(statut='f',typ=fonction),
6107              K_DESSIC        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6108              B_ENDOGE        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6109              FONC_DESORP     =SIMP(statut='f',typ=fonction),
6110              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
6111              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="INST",into=("TEMP","INST",) ),
6112              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
6113              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
6114            ),
6115            ELAS_FLUI       =FACT(statut='f',min=0,max=1,
6116              E               =SIMP(statut='o',typ='R'),
6117              NU              =SIMP(statut='o',typ='R'),
6118              RHO             =SIMP(statut='o',typ='R'),
6119              PROF_RHO_F_INT  =SIMP(statut='o',typ=fonction),
6120              PROF_RHO_F_EXT  =SIMP(statut='o',typ=fonction),
6121              COEF_MASS_AJOU  =SIMP(statut='o',typ=fonction),
6122              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="ABSC",into=("ABSC",) ),
6123            ),
6124            ELAS_ISTR       =FACT(statut='f',min=0,max=1,
6125              E_L             =SIMP(statut='o',typ='R'),
6126              E_N             =SIMP(statut='o',typ='R'),
6127              NU_LT           =SIMP(statut='o',typ='R'),
6128              NU_LN           =SIMP(statut='o',typ='R'),
6129              G_LN            =SIMP(statut='o',typ='R'),
6130              RHO             =SIMP(statut='f',typ='R'),
6131              ALPHA_L         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6132              ALPHA_N         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6133            ),
6134            ELAS_ISTR_FO    =FACT(statut='f',min=0,max=1,
6135              regles=(
6136                       PRESENT_PRESENT('ALPHA_L','TEMP_DEF_ALPHA'),
6137                       PRESENT_PRESENT('ALPHA_N','TEMP_DEF_ALPHA'),
6138                     ),
6139              E_L             =SIMP(statut='o',typ=fonction),
6140              E_N             =SIMP(statut='o',typ=fonction),
6141              NU_LT           =SIMP(statut='o',typ=fonction),
6142              NU_LN           =SIMP(statut='o',typ=fonction),
6143              G_LN            =SIMP(statut='o',typ=fonction),
6144              RHO             =SIMP(statut='f',typ='R'),
6145              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
6146              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.),
6147              ALPHA_L         =SIMP(statut='f',typ=fonction),
6148              ALPHA_N         =SIMP(statut='f',typ=fonction),
6149              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST")),
6150            ),
6151            ELAS_ORTH       =FACT(statut='f',min=0,max=1,
6152              E_L             =SIMP(statut='o',typ='R'),
6153              E_T             =SIMP(statut='o',typ='R'),
6154              E_N             =SIMP(statut='f',typ='R'),
6155              NU_LT           =SIMP(statut='o',typ='R'),
6156              NU_LN           =SIMP(statut='f',typ='R'),
6157              NU_TN           =SIMP(statut='f',typ='R'),
6158              G_LT            =SIMP(statut='o',typ='R'),
6159              G_LN            =SIMP(statut='f',typ='R'),
6160              G_TN            =SIMP(statut='f',typ='R'),
6161              RHO             =SIMP(statut='f',typ='R'),
6162              ALPHA_L         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6163              ALPHA_T         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6164              ALPHA_N         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6165              XT              =SIMP(statut='f',typ='R',defaut= 1. ),
6166              XC              =SIMP(statut='f',typ='R',defaut= 1. ),
6167              YT              =SIMP(statut='f',typ='R',defaut= 1. ),
6168              YC              =SIMP(statut='f',typ='R',defaut= 1. ),
6169              S_LT            =SIMP(statut='f',typ='R',defaut= 1. ),
6170            ),
6171            ELAS_ORTH_FO    =FACT(statut='f',min=0,max=1,
6172              regles=(
6173                       PRESENT_PRESENT('ALPHA_L','TEMP_DEF_ALPHA'),
6174                       PRESENT_PRESENT('ALPHA_N','TEMP_DEF_ALPHA'),
6175                       PRESENT_PRESENT('ALPHA_T','TEMP_DEF_ALPHA'),
6176                     ),
6177              E_L             =SIMP(statut='o',typ=fonction),
6178              E_T             =SIMP(statut='o',typ=fonction),
6179              E_N             =SIMP(statut='o',typ=fonction),
6180              NU_LT           =SIMP(statut='o',typ=fonction),
6181              NU_LN           =SIMP(statut='o',typ=fonction),
6182              NU_TN           =SIMP(statut='o',typ=fonction),
6183              G_LT            =SIMP(statut='o',typ=fonction),
6184              G_LN            =SIMP(statut='o',typ=fonction),
6185              G_TN            =SIMP(statut='o',typ=fonction),
6186              RHO             =SIMP(statut='f',typ='R'),
6187              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
6188              PRECISION       =SIMP(statut='f',typ='R',defaut= 1. ),
6189              ALPHA_L         =SIMP(statut='f',typ=fonction),
6190              ALPHA_T         =SIMP(statut='f',typ=fonction),
6191              ALPHA_N         =SIMP(statut='f',typ=fonction),
6192              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
6193            ),
6194            ELAS_THM        =FACT(statut='f',min=0,max=1,
6195              RHO_S           =SIMP(statut='o',typ='R'),
6196              UN_SUR_KS       =SIMP(statut='o',typ='R'),
6197              E               =SIMP(statut='f',typ='R'),
6198              KB              =SIMP(statut='f',typ='R'),
6199              D_KB_T          =SIMP(statut='f',typ='R'),
6200              ALPHA_S         =SIMP(statut='f',typ='R'),
6201              ALPHA_D         =SIMP(statut='f',typ='R'),
6202            ),
6203            SURF_ETAT_SATU  =FACT(statut='f',min=0,max=1,
6204              E_CHAR          =SIMP(statut='o',typ='R'),
6205              E_DECHAR        =SIMP(statut='o',typ='R'),
6206              XN              =SIMP(statut='f',typ='R'),
6207              RF              =SIMP(statut='f',typ='R'),
6208              EV_KB           =SIMP(statut='f',typ='R'),
6209              EV_XM           =SIMP(statut='f',typ='R'),
6210              D_E_T           =SIMP(statut='f',typ='R'),
6211              ALPHA0          =SIMP(statut='f',typ='R'),
6212              ALPHA1          =SIMP(statut='f',typ='R'),
6213              ALPHA2          =SIMP(statut='f',typ='R'),
6214              ALPHA3          =SIMP(statut='f',typ='R'),
6215              ALPHA_S         =SIMP(statut='f',typ='R'),
6216              ANG_FRT         =SIMP(statut='o',typ='R'),
6217              COHE            =SIMP(statut='o',typ='R'),
6218              RESI_TRAC       =SIMP(statut='o',typ='R'),
6219            ),
6220            CAM_CLAY_THM    =FACT(statut='f',min=0,max=1,
6221              NU              =SIMP(statut='f',typ='R'),
6222              LAMBDA          =SIMP(statut='o',typ='R'),
6223              KAPA            =SIMP(statut='o',typ='R'),
6224              M               =SIMP(statut='f',typ='R'),
6225              PRES_CRIT       =SIMP(statut='f',typ='R'),
6226              GAMA            =SIMP(statut='o',typ='R'),
6227              A0_PC           =SIMP(statut='o',typ='R'),
6228              A1_PC           =SIMP(statut='f',typ='R'),
6229              A2_PC           =SIMP(statut='f',typ='R'),
6230              ALPHA0_PC       =SIMP(statut='f',typ='R'),
6231              ALPHA1_PC       =SIMP(statut='f',typ='R'),
6232              ALPHA2_PC       =SIMP(statut='f',typ='R'),
6233              ALPHA3_PC       =SIMP(statut='f',typ='R'),
6234              ALPHA_S         =SIMP(statut='f',typ='R'),
6235                          ),
6236            SURF_ETAT_NSAT  =FACT(statut='f',min=0,max=1,
6237              E_CHAR          =SIMP(statut='o',typ='R'),
6238              E_DECHAR        =SIMP(statut='o',typ='R'),
6239              XN              =SIMP(statut='f',typ='R'),
6240              RF              =SIMP(statut='f',typ='R'),
6241              EV_KB           =SIMP(statut='f',typ='R'),
6242              EV_XM           =SIMP(statut='f',typ='R'),
6243              EV_A            =SIMP(statut='f',typ='R'),
6244              EV_B            =SIMP(statut='f',typ='R'),
6245              EV_CT           =SIMP(statut='f',typ='R'),
6246              EV_SIGB         =SIMP(statut='f',typ='R'),
6247              D_E_T           =SIMP(statut='f',typ='R'),
6248              D_E_SUCC        =SIMP(statut='f',typ='R'),
6249              ANG_FRT         =SIMP(statut='o',typ='R'),
6250              COHE            =SIMP(statut='o',typ='R'),
6251              D_COEH_SUCC     =SIMP(statut='f',typ='R'),
6252              ANG_FRT_ULT     =SIMP(statut='f',typ='R'),
6253              SUCC_ULTM       =SIMP(statut='f',typ='R'),
6254              RESI_TRAC       =SIMP(statut='f',typ='R'),
6255              A_SURF_SATU     =SIMP(statut='f',typ='R'),
6256              B_SURF_SATU     =SIMP(statut='f',typ='R'),
6257              C_SURF_SATU     =SIMP(statut='f',typ='R'),
6258              D_SURF_SATU     =SIMP(statut='f',typ='R'),
6259            ),
6260            ELAS_COQUE      =FACT(statut='f',min=0,max=1,
6261              regles=(EXCLUS('MEMB_L','M_LLLL',),
6262                      PRESENT_PRESENT('MEMB_L','MEMB_LT', 'MEMB_T','MEMB_G_LT','FLEX_L','FLEX_LT',
6263                                      'FLEX_T','FLEX_G_LT','CISA_L','CISA_T',),
6264                      PRESENT_PRESENT('M_LLLL','M_LLTT','M_LLLT','M_TTTT','M_TTLT','M_LTLT','F_LLLL',
6265                                      'F_LLTT','F_LLLT','F_TTTT','F_TTLT','F_LTLT','MF_LLLL',
6266                                      'MF_LLTT','MF_LLLT','MF_TTTT','MF_TTLT','MF_LTLT','MC_LLLZ',
6267                                      'MC_LLTZ','MC_TTLZ','MC_TTTZ','MC_LTLZ','MC_LTTZ','FC_LLLZ',
6268                                      'FC_LLTZ','FC_TTLZ','FC_TTTZ','FC_LTLZ','FC_LTTZ','C_LZLZ',
6269                                      'C_LZTZ','C_TZTZ'),),
6270              MEMB_L          =SIMP(statut='f',typ='R'),
6271              MEMB_LT         =SIMP(statut='f',typ='R'),
6272              MEMB_T          =SIMP(statut='f',typ='R'),
6273              MEMB_G_LT       =SIMP(statut='f',typ='R'),
6274              FLEX_L          =SIMP(statut='f',typ='R'),
6275              FLEX_LT         =SIMP(statut='f',typ='R'),
6276              FLEX_T          =SIMP(statut='f',typ='R'),
6277              FLEX_G_LT       =SIMP(statut='f',typ='R'),
6278              CISA_L          =SIMP(statut='f',typ='R'),
6279              CISA_T          =SIMP(statut='f',typ='R'),
6280              M_LLLL          =SIMP(statut='f',typ='R'),
6281              M_LLTT          =SIMP(statut='f',typ='R'),
6282              M_LLLT          =SIMP(statut='f',typ='R'),
6283              M_TTTT          =SIMP(statut='f',typ='R'),
6284              M_TTLT          =SIMP(statut='f',typ='R'),
6285              M_LTLT          =SIMP(statut='f',typ='R'),
6286              F_LLLL          =SIMP(statut='f',typ='R'),
6287              F_LLTT          =SIMP(statut='f',typ='R'),
6288              F_LLLT          =SIMP(statut='f',typ='R'),
6289              F_TTTT          =SIMP(statut='f',typ='R'),
6290              F_TTLT          =SIMP(statut='f',typ='R'),
6291              F_LTLT          =SIMP(statut='f',typ='R'),
6292              MF_LLLL         =SIMP(statut='f',typ='R'),
6293              MF_LLTT         =SIMP(statut='f',typ='R'),
6294              MF_LLLT         =SIMP(statut='f',typ='R'),
6295              MF_TTTT         =SIMP(statut='f',typ='R'),
6296              MF_TTLT         =SIMP(statut='f',typ='R'),
6297              MF_LTLT         =SIMP(statut='f',typ='R'),
6298              MC_LLLZ         =SIMP(statut='f',typ='R'),
6299              MC_LLTZ         =SIMP(statut='f',typ='R'),
6300              MC_TTLZ         =SIMP(statut='f',typ='R'),
6301              MC_TTTZ         =SIMP(statut='f',typ='R'),
6302              MC_LTLZ         =SIMP(statut='f',typ='R'),
6303              MC_LTTZ         =SIMP(statut='f',typ='R'),
6304              FC_LLLZ         =SIMP(statut='f',typ='R'),
6305              FC_LLTZ         =SIMP(statut='f',typ='R'),
6306              FC_TTLZ         =SIMP(statut='f',typ='R'),
6307              FC_TTTZ         =SIMP(statut='f',typ='R'),
6308              FC_LTLZ         =SIMP(statut='f',typ='R'),
6309              FC_LTTZ         =SIMP(statut='f',typ='R'),
6310              C_LZLZ          =SIMP(statut='f',typ='R'),
6311              C_LZTZ          =SIMP(statut='f',typ='R'),
6312              C_TZTZ          =SIMP(statut='f',typ='R'),
6313              RHO             =SIMP(statut='f',typ='R'),
6314              ALPHA           =SIMP(statut='f',typ='R'),
6315            ),
6316            ELAS_COQUE_FO   =FACT(statut='f',min=0,max=1,
6317              regles=(EXCLUS('MEMB_L','M_LLLL',),
6318                      PRESENT_PRESENT('MEMB_L','MEMB_LT','MEMB_T','MEMB_G_LT','FLEX_L','FLEX_LT',
6319                                      'FLEX_T','FLEX_G_LT','CISA_L','CISA_T',),
6320                      PRESENT_PRESENT('M_LLLL','M_LLTT','M_LLLT','M_TTTT','M_TTLT','M_LTLT','F_LLLL',
6321                                      'F_LLTT','F_LLLT','F_TTTT','F_TTLT','F_LTLT','MF_LLLL','MF_LLTT',
6322                                      'MF_LLLT','MF_TTTT','MF_TTLT','MF_LTLT','MC_LLLZ','MC_LLTZ',
6323                                      'MC_TTLZ','MC_TTTZ','MC_LTLZ','MC_LTTZ','FC_LLLZ','FC_LLTZ',
6324                                      'FC_TTLZ','FC_TTTZ','FC_LTLZ','FC_LTTZ','C_LZLZ','C_LZTZ','C_TZTZ'),),
6325              MEMB_L          =SIMP(statut='f',typ=fonction),
6326              MEMB_LT         =SIMP(statut='f',typ=fonction),
6327              MEMB_T          =SIMP(statut='f',typ=fonction),
6328              MEMB_G_LT       =SIMP(statut='f',typ=fonction),
6329              FLEX_L          =SIMP(statut='f',typ=fonction),
6330              FLEX_LT         =SIMP(statut='f',typ=fonction),
6331              FLEX_T          =SIMP(statut='f',typ=fonction),
6332              FLEX_G_LT       =SIMP(statut='f',typ=fonction),
6333              CISA_L          =SIMP(statut='f',typ=fonction),
6334              CISA_T          =SIMP(statut='f',typ=fonction),
6335              M_LLLL          =SIMP(statut='f',typ=fonction),
6336              M_LLTT          =SIMP(statut='f',typ=fonction),
6337              M_LLLT          =SIMP(statut='f',typ=fonction),
6338              M_TTTT          =SIMP(statut='f',typ=fonction),
6339              M_TTLT          =SIMP(statut='f',typ=fonction),
6340              M_LTLT          =SIMP(statut='f',typ=fonction),
6341              F_LLLL          =SIMP(statut='f',typ=fonction),
6342              F_LLTT          =SIMP(statut='f',typ=fonction),
6343              F_LLLT          =SIMP(statut='f',typ=fonction),
6344              F_TTTT          =SIMP(statut='f',typ=fonction),
6345              F_TTLT          =SIMP(statut='f',typ=fonction),
6346              F_LTLT          =SIMP(statut='f',typ=fonction),
6347              MF_LLLL         =SIMP(statut='f',typ=fonction),
6348              MF_LLTT         =SIMP(statut='f',typ=fonction),
6349              MF_LLLT         =SIMP(statut='f',typ=fonction),
6350              MF_TTTT         =SIMP(statut='f',typ=fonction),
6351              MF_TTLT         =SIMP(statut='f',typ=fonction),
6352              MF_LTLT         =SIMP(statut='f',typ=fonction),
6353              MC_LLLZ         =SIMP(statut='f',typ=fonction),
6354              MC_LLTZ         =SIMP(statut='f',typ=fonction),
6355              MC_TTLZ         =SIMP(statut='f',typ=fonction),
6356              MC_TTTZ         =SIMP(statut='f',typ=fonction),
6357              MC_LTLZ         =SIMP(statut='f',typ=fonction),
6358              MC_LTTZ         =SIMP(statut='f',typ=fonction),
6359              FC_LLLZ         =SIMP(statut='f',typ=fonction),
6360              FC_LLTZ         =SIMP(statut='f',typ=fonction),
6361              FC_TTLZ         =SIMP(statut='f',typ=fonction),
6362              FC_TTTZ         =SIMP(statut='f',typ=fonction),
6363              FC_LTLZ         =SIMP(statut='f',typ=fonction),
6364              FC_LTTZ         =SIMP(statut='f',typ=fonction),
6365              C_LZLZ          =SIMP(statut='f',typ=fonction),
6366              C_LZTZ          =SIMP(statut='f',typ=fonction),
6367              C_TZTZ          =SIMP(statut='f',typ=fonction),
6368              RHO             =SIMP(statut='f',typ='R'),
6369              ALPHA           =SIMP(statut='f',typ=fonction),
6370              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST") ),
6371            ),
6372            APPUI_ELAS      =FACT(statut='f',min=0,max=1,
6373              E_N             =SIMP(statut='o',typ='R'),
6374              E_TAN           =SIMP(statut='f',typ='R',defaut= 0.E+0),
6375            ),
6376            CABLE           =FACT(statut='f',min=0,max=1,
6377              E               =SIMP(statut='o',typ='R'),
6378              EC_SUR_E        =SIMP(statut='f',typ='R',defaut= 1.E-4 ),
6379              RHO             =SIMP(statut='f',typ='R'),
6380              ALPHA           =SIMP(statut='f',typ='R'),
6381              AMOR_ALPHA      =SIMP(statut='f',typ='R'),
6382              AMOR_BETA       =SIMP(statut='f',typ='R'),
6383            ),
6384 #
6385 # comportement mécanique non linéaire
6386 #
6387            TRACTION        =FACT(statut='f',min=0,max=1,
6388              SIGM            =SIMP(statut='o',typ=fonction),
6389              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",) ),
6390              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6391              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
6392              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
6393            ),
6394            ECRO_LINE       =FACT(statut='f',min=0,max=1,
6395              D_SIGM_EPSI     =SIMP(statut='o',typ='R'),
6396              SY              =SIMP(statut='o',typ='R'),
6397            ),
6398            ECRO_LINE_FO    =FACT(statut='f',min=0,max=1,
6399              D_SIGM_EPSI     =SIMP(statut='o',typ=fonction),
6400              SY              =SIMP(statut='o',typ=fonction),
6401              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6402            ),
6403            PRAGER          =FACT(statut='f',min=0,max=1,
6404              C               =SIMP(statut='o',typ='R'),
6405            ),
6406            PRAGER_FO       =FACT(statut='f',min=0,max=1,
6407              C               =SIMP(statut='o',typ=fonction),
6408              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6409            ),
6410            ECRO_FLEJOU     =FACT(statut='f',min=0,max=1,
6411              EP              =SIMP(statut='o',typ='R'),
6412              SY              =SIMP(statut='o',typ='R'),
6413              SU              =SIMP(statut='o',typ='R'),
6414              PUISS           =SIMP(statut='o',typ='R'),
6415            ),
6416            TAHERI          =FACT(statut='f',min=0,max=1,
6417              R_0             =SIMP(statut='o',typ='R'),
6418              ALPHA           =SIMP(statut='o',typ='R'),
6419              M               =SIMP(statut='o',typ='R'),
6420              A               =SIMP(statut='o',typ='R'),
6421              B               =SIMP(statut='o',typ='R'),
6422              C1              =SIMP(statut='o',typ='R'),
6423              C_INF           =SIMP(statut='o',typ='R'),
6424              S               =SIMP(statut='o',typ='R'),
6425            ),
6426            TAHERI_FO       =FACT(statut='f',min=0,max=1,
6427              R_0             =SIMP(statut='o',typ=fonction),
6428              ALPHA           =SIMP(statut='o',typ=fonction),
6429              M               =SIMP(statut='o',typ=fonction),
6430              A               =SIMP(statut='o',typ=fonction),
6431              B               =SIMP(statut='o',typ=fonction),
6432              C1              =SIMP(statut='o',typ=fonction),
6433              C_INF           =SIMP(statut='o',typ=fonction),
6434              S               =SIMP(statut='o',typ=fonction),
6435              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6436            ),
6437            ROUSSELIER      =FACT(statut='f',min=0,max=1,
6438              D               =SIMP(statut='o',typ='R'),
6439              SIGM_1          =SIMP(statut='o',typ='R'),
6440              PORO_INIT       =SIMP(statut='o',typ='R'),
6441              PORO_CRIT       =SIMP(statut='f',typ='R',defaut= 1. ),
6442              PORO_ACCE       =SIMP(statut='f',typ='R',defaut= 1. ),
6443              PORO_LIMI       =SIMP(statut='f',typ='R',defaut= 0.999 ),
6444              D_SIGM_EPSI_NORM=SIMP(statut='f',typ='R',defaut= 1. ),
6445              AN              =SIMP(statut='f',typ='R',defaut= 0. ),
6446            ),
6447            ROUSSELIER_FO   =FACT(statut='f',min=0,max=1,
6448              D               =SIMP(statut='o',typ=fonction),
6449              SIGM_1          =SIMP(statut='o',typ=fonction),
6450              PORO_INIT       =SIMP(statut='o',typ=fonction),
6451              PORO_CRIT       =SIMP(statut='f',typ='R',defaut= 1. ),
6452              PORO_ACCE       =SIMP(statut='f',typ='R',defaut= 1. ),
6453              PORO_LIMI       =SIMP(statut='f',typ='R',defaut= 0.999 ),
6454              D_SIGM_EPSI_NORM=SIMP(statut='f',typ='R',defaut= 1. ),
6455              AN              =SIMP(statut='f',typ='R',defaut= 0. ),
6456              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6457            ),
6458            ROUSS_VISC      =FACT(statut='f',min=0,max=1,
6459              SIGM_0          =SIMP(statut='o',typ='R'),
6460              EPSI_0          =SIMP(statut='o',typ='R'),
6461              M               =SIMP(statut='o',typ='R'),
6462            ),
6463            CHABOCHE        =FACT(statut='f',min=0,max=1,
6464              R_I             =SIMP(statut='o',typ='R'),
6465              R_0             =SIMP(statut='o',typ='R'),
6466              B               =SIMP(statut='o',typ='R'),
6467              K               =SIMP(statut='o',typ='R'),
6468              W               =SIMP(statut='o',typ='R'),
6469              A1              =SIMP(statut='o',typ='R'),
6470              A2              =SIMP(statut='o',typ='R'),
6471              C1              =SIMP(statut='o',typ='R'),
6472              C2              =SIMP(statut='o',typ='R'),
6473            ),
6474            CIN1_CHAB  =FACT(statut='f',min=0,max=1,
6475              R_0             =SIMP(statut='o',typ='R'),
6476              R_I             =SIMP(statut='f',typ='R'),
6477              B               =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6478              C_I             =SIMP(statut='o',typ='R'),
6479              K               =SIMP(statut='f',typ='R',defaut= 1.0E+0),
6480              W               =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6481              G_0             =SIMP(statut='o',typ='R'),
6482              A_I             =SIMP(statut='f',typ='R',defaut= 1.0E+0),
6483            ),
6484            CIN1_CHAB_FO  =FACT(statut='f',min=0,max=1,
6485              R_0             =SIMP(statut='o',typ=fonction),
6486              R_I             =SIMP(statut='o',typ=fonction),
6487              B               =SIMP(statut='o',typ=fonction),
6488              C_I             =SIMP(statut='o',typ=fonction),
6489              K               =SIMP(statut='o',typ=fonction),
6490              W               =SIMP(statut='o',typ=fonction),
6491              G_0             =SIMP(statut='o',typ=fonction),
6492              A_I             =SIMP(statut='o',typ=fonction),
6493              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
6494            ),
6495            CIN2_CHAB  =FACT(statut='f',min=0,max=1,
6496              R_0             =SIMP(statut='o',typ='R'),
6497              R_I             =SIMP(statut='f',typ='R'),
6498              B               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6499              C1_I            =SIMP(statut='o',typ='R'),
6500              C2_I            =SIMP(statut='o',typ='R'),
6501              K               =SIMP(statut='f',typ='R',defaut= 1.),
6502              W               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6503              G1_0            =SIMP(statut='o',typ='R'),
6504              G2_0            =SIMP(statut='o',typ='R'),
6505              A_I             =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
6506            ),
6507            CIN2_CHAB_FO  =FACT(statut='f',min=0,max=1,
6508              R_0             =SIMP(statut='o',typ=fonction),
6509              R_I             =SIMP(statut='o',typ=fonction),
6510              B               =SIMP(statut='o',typ=fonction),
6511              C1_I            =SIMP(statut='o',typ=fonction),
6512              C2_I            =SIMP(statut='o',typ=fonction),
6513              K               =SIMP(statut='o',typ=fonction),
6514              W               =SIMP(statut='o',typ=fonction),
6515              G1_0            =SIMP(statut='o',typ=fonction),
6516              G2_0            =SIMP(statut='o',typ=fonction),
6517              A_I             =SIMP(statut='o',typ=fonction),
6518              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6519            ),
6520            VISCOCHAB       =FACT(statut='f',min=0,max=1,
6521              K_0             =SIMP(statut='o',typ='R'),
6522              A_K             =SIMP(statut='o',typ='R'),
6523              A_R             =SIMP(statut='o',typ='R'),
6524              K               =SIMP(statut='o',typ='R'),
6525              N               =SIMP(statut='o',typ='R'),
6526              ALP             =SIMP(statut='o',typ='R'),
6527              B               =SIMP(statut='o',typ='R'),
6528              M_R             =SIMP(statut='o',typ='R'),
6529              G_R             =SIMP(statut='o',typ='R'),
6530              MU              =SIMP(statut='o',typ='R'),
6531              Q_M             =SIMP(statut='o',typ='R'),
6532              Q_0             =SIMP(statut='o',typ='R'),
6533              QR_0            =SIMP(statut='o',typ='R'),
6534              ETA             =SIMP(statut='o',typ='R'),
6535              C1              =SIMP(statut='o',typ='R'),
6536              M_1             =SIMP(statut='o',typ='R'),
6537              D1              =SIMP(statut='o',typ='R'),
6538              G_X1            =SIMP(statut='o',typ='R'),
6539              G1_0            =SIMP(statut='o',typ='R'),
6540              C2              =SIMP(statut='o',typ='R'),
6541              M_2             =SIMP(statut='o',typ='R'),
6542              D2              =SIMP(statut='o',typ='R'),
6543              G_X2            =SIMP(statut='o',typ='R'),
6544              G2_0            =SIMP(statut='o',typ='R'),
6545              A_I             =SIMP(statut='o',typ='R'),
6546            ),
6547            VISCOCHAB_FO    =FACT(statut='f',min=0,max=1,
6548              K_0             =SIMP(statut='o',typ=fonction),
6549              A_K             =SIMP(statut='o',typ=fonction),
6550              A_R             =SIMP(statut='o',typ=fonction),
6551              K               =SIMP(statut='o',typ=fonction),
6552              N               =SIMP(statut='o',typ=fonction),
6553              ALP             =SIMP(statut='o',typ=fonction),
6554              B               =SIMP(statut='o',typ=fonction),
6555              M_R             =SIMP(statut='o',typ=fonction),
6556              G_R             =SIMP(statut='o',typ=fonction),
6557              MU              =SIMP(statut='o',typ=fonction),
6558              Q_M             =SIMP(statut='o',typ=fonction),
6559              Q_0             =SIMP(statut='o',typ=fonction),
6560              QR_0            =SIMP(statut='o',typ=fonction),
6561              ETA             =SIMP(statut='o',typ=fonction),
6562              C1              =SIMP(statut='o',typ=fonction),
6563              M_1             =SIMP(statut='o',typ=fonction),
6564              D1              =SIMP(statut='o',typ=fonction),
6565              G_X1            =SIMP(statut='o',typ=fonction),
6566              G1_0            =SIMP(statut='o',typ=fonction),
6567              C2              =SIMP(statut='o',typ=fonction),
6568              M_2             =SIMP(statut='o',typ=fonction),
6569              D2              =SIMP(statut='o',typ=fonction),
6570              G_X2            =SIMP(statut='o',typ=fonction),
6571              G2_0            =SIMP(statut='o',typ=fonction),
6572              A_I             =SIMP(statut='o',typ=fonction),
6573              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6574            ),
6575            POLY_CFC        =FACT(statut='f',min=0,max=1,
6576              TEXTURE         =SIMP(statut='o',typ=(tabl_texture) ),
6577              DL              =SIMP(statut='f',typ='R'),
6578              DA              =SIMP(statut='f',typ='R'),
6579              N               =SIMP(statut='o',typ='R'),
6580              K               =SIMP(statut='o',typ='R'),
6581              TAU_0           =SIMP(statut='o',typ='R'),
6582              Q1              =SIMP(statut='o',typ='R'),
6583              B1              =SIMP(statut='o',typ='R'),
6584              HL              =SIMP(statut='o',typ='R'),
6585              Q2              =SIMP(statut='o',typ='R'),
6586              B2              =SIMP(statut='o',typ='R'),
6587              C1              =SIMP(statut='o',typ='R'),
6588              D1              =SIMP(statut='o',typ='R'),
6589              C2              =SIMP(statut='o',typ='R'),
6590            ),
6591            POLY_CFC_FO     =FACT(statut='f',min=0,max=1,
6592              TEXTURE         =SIMP(statut='o',typ=(tabl_texture) ),
6593              DL              =SIMP(statut='o',typ=fonction),
6594              DA              =SIMP(statut='o',typ=fonction),
6595              N               =SIMP(statut='o',typ=fonction),
6596              K               =SIMP(statut='o',typ=fonction),
6597              TAU_0           =SIMP(statut='o',typ=fonction),
6598              Q1              =SIMP(statut='o',typ=fonction),
6599              B1              =SIMP(statut='o',typ=fonction),
6600              HL              =SIMP(statut='o',typ=fonction),
6601              Q2              =SIMP(statut='o',typ=fonction),
6602              B2              =SIMP(statut='o',typ=fonction),
6603              C1              =SIMP(statut='o',typ=fonction),
6604              D1              =SIMP(statut='o',typ=fonction),
6605              C2              =SIMP(statut='o',typ=fonction),
6606              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6607            ),
6608            LEMAITRE        =FACT(statut='f',min=0,max=1,
6609              N               =SIMP(statut='o',typ='R'),
6610              UN_SUR_K        =SIMP(statut='o',typ='R'),
6611              UN_SUR_M        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6612            ),
6613            ZIRC_CYRA2      =FACT(statut='f',min=0,max=1,
6614              EPSI_FAB        =SIMP(statut='o',typ=fonction),
6615              TEMP_RECUIT     =SIMP(statut='o',typ=fonction),
6616              FLUX_PHI        =SIMP(statut='o',typ=fonction),
6617              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
6618            ),
6619            ZIRC_EPRI       =FACT(statut='f',min=0,max=1,
6620              FLUX_PHI        =SIMP(statut='o',typ='R'),
6621              R_P             =SIMP(statut='o',typ='R'),
6622              THETA_MAX       =SIMP(statut='o',typ='R'),
6623            ),
6624            LEMAITRE_FO     =FACT(statut='f',min=0,max=1,
6625              N               =SIMP(statut='o',typ=fonction),
6626              UN_SUR_K        =SIMP(statut='o',typ=fonction),
6627              UN_SUR_M        =SIMP(statut='f',typ=fonction),
6628              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6629            ),
6630            GRAN_IRRA       =FACT(statut='f',min=0,max=1,
6631              A               =SIMP(statut='f',typ='R',defaut= 0.E+0),
6632              B               =SIMP(statut='f',typ='R',defaut= 0.E+0),
6633              S               =SIMP(statut='f',typ='R',defaut= 0.E+0),
6634            ),
6635            FLU_IRRA       =FACT(statut='f',min=0,max=1,
6636              QSR_K           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6637              BETA            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6638              PHI_ZERO        =SIMP(statut='f',typ='R',defaut= 1.E+20),
6639              L               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6640            ),
6641            OHNO            =FACT(statut='f',min=0,max=1,
6642              R_I             =SIMP(statut='o',typ='R'),
6643              R_0             =SIMP(statut='o',typ='R'),
6644              B               =SIMP(statut='o',typ='R'),
6645              PHI             =SIMP(statut='o',typ='R'),
6646              A1              =SIMP(statut='o',typ='R'),
6647              A2              =SIMP(statut='o',typ='R'),
6648              A3              =SIMP(statut='o',typ='R'),
6649              A4              =SIMP(statut='o',typ='R'),
6650              A5              =SIMP(statut='o',typ='R'),
6651              GAMMA1          =SIMP(statut='o',typ='R'),
6652              GAMMA2          =SIMP(statut='o',typ='R'),
6653              GAMMA3          =SIMP(statut='o',typ='R'),
6654              GAMMA4          =SIMP(statut='o',typ='R'),
6655              GAMMA5          =SIMP(statut='o',typ='R'),
6656              M1              =SIMP(statut='o',typ='R'),
6657              M2              =SIMP(statut='o',typ='R'),
6658              M3              =SIMP(statut='o',typ='R'),
6659              M4              =SIMP(statut='o',typ='R'),
6660              M5              =SIMP(statut='o',typ='R'),
6661                            ),
6662            OHNO_FO         =FACT(statut='f',min=0,max=1,
6663              R_I             =SIMP(statut='o',typ=fonction),
6664              R_0             =SIMP(statut='o',typ=fonction),
6665              B               =SIMP(statut='o',typ=fonction),
6666              PHI             =SIMP(statut='o',typ=fonction),
6667              A1              =SIMP(statut='o',typ=fonction),
6668              A2              =SIMP(statut='o',typ=fonction),
6669              A3              =SIMP(statut='o',typ=fonction),
6670              A4              =SIMP(statut='o',typ=fonction),
6671              A5              =SIMP(statut='o',typ=fonction),
6672              GAMMA1          =SIMP(statut='o',typ=fonction),
6673              GAMMA2          =SIMP(statut='o',typ=fonction),
6674              GAMMA3          =SIMP(statut='o',typ=fonction),
6675              GAMMA4          =SIMP(statut='o',typ=fonction),
6676              GAMMA5          =SIMP(statut='o',typ=fonction),
6677              M1              =SIMP(statut='o',typ=fonction),
6678              M2              =SIMP(statut='o',typ=fonction),
6679              M3              =SIMP(statut='o',typ=fonction),
6680              M4              =SIMP(statut='o',typ=fonction),
6681              M5              =SIMP(statut='o',typ=fonction),
6682              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6683            ),
6684            LMARC           =FACT(statut='f',min=0,max=1,
6685              DE_0            =SIMP(statut='o',typ='R'),
6686              R_0             =SIMP(statut='o',typ='R'),
6687              N               =SIMP(statut='o',typ='R'),
6688              K               =SIMP(statut='o',typ='R'),
6689              Y_I             =SIMP(statut='o',typ='R'),
6690              Y_0             =SIMP(statut='o',typ='R'),
6691              B               =SIMP(statut='o',typ='R'),
6692              A_0             =SIMP(statut='o',typ='R'),
6693              RM              =SIMP(statut='o',typ='R'),
6694              M               =SIMP(statut='o',typ='R'),
6695              P               =SIMP(statut='o',typ='R'),
6696              P1              =SIMP(statut='o',typ='R'),
6697              P2              =SIMP(statut='o',typ='R'),
6698              M11             =SIMP(statut='o',typ='R'),
6699              M22             =SIMP(statut='o',typ='R'),
6700              M33             =SIMP(statut='o',typ='R'),
6701              M66             =SIMP(statut='o',typ='R'),
6702              N11             =SIMP(statut='o',typ='R'),
6703              N22             =SIMP(statut='o',typ='R'),
6704              N33             =SIMP(statut='o',typ='R'),
6705              N66             =SIMP(statut='o',typ='R'),
6706              Q11             =SIMP(statut='o',typ='R'),
6707              Q22             =SIMP(statut='o',typ='R'),
6708              Q33             =SIMP(statut='o',typ='R'),
6709              Q66             =SIMP(statut='o',typ='R'),
6710              R11             =SIMP(statut='o',typ='R'),
6711              R22             =SIMP(statut='o',typ='R'),
6712              R33             =SIMP(statut='o',typ='R'),
6713              R66             =SIMP(statut='o',typ='R'),
6714            ),
6715            LMARC_FO        =FACT(statut='f',min=0,max=1,
6716              DE_0            =SIMP(statut='o',typ=fonction),
6717              R_0             =SIMP(statut='o',typ=fonction),
6718              N               =SIMP(statut='o',typ=fonction),
6719              K               =SIMP(statut='o',typ=fonction),
6720              Y_I             =SIMP(statut='o',typ=fonction),
6721              Y_0             =SIMP(statut='o',typ=fonction),
6722              B               =SIMP(statut='o',typ=fonction),
6723              A_0             =SIMP(statut='o',typ=fonction),
6724              RM              =SIMP(statut='o',typ=fonction),
6725              M               =SIMP(statut='o',typ=fonction),
6726              P               =SIMP(statut='o',typ=fonction),
6727              P1              =SIMP(statut='o',typ=fonction),
6728              P2              =SIMP(statut='o',typ=fonction),
6729              M11             =SIMP(statut='o',typ=fonction),
6730              M22             =SIMP(statut='o',typ=fonction),
6731              M33             =SIMP(statut='o',typ=fonction),
6732              M66             =SIMP(statut='o',typ=fonction),
6733              N11             =SIMP(statut='o',typ=fonction),
6734              N22             =SIMP(statut='o',typ=fonction),
6735              N33             =SIMP(statut='o',typ=fonction),
6736              N66             =SIMP(statut='o',typ=fonction),
6737              Q11             =SIMP(statut='o',typ=fonction),
6738              Q22             =SIMP(statut='o',typ=fonction),
6739              Q33             =SIMP(statut='o',typ=fonction),
6740              Q66             =SIMP(statut='o',typ=fonction),
6741              R11             =SIMP(statut='o',typ=fonction),
6742              R22             =SIMP(statut='o',typ=fonction),
6743              R33             =SIMP(statut='o',typ=fonction),
6744              R66             =SIMP(statut='o',typ=fonction),
6745              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6746            ),
6747            VMIS_POUTRE     =FACT(statut='f',min=0,max=1,
6748              NP              =SIMP(statut='o',typ='R'),
6749              MEY             =SIMP(statut='o',typ='R'),
6750              MPY             =SIMP(statut='o',typ='R'),
6751              CAY             =SIMP(statut='o',typ='R'),
6752              CBY             =SIMP(statut='o',typ='R'),
6753              MEZ             =SIMP(statut='o',typ='R'),
6754              MPZ             =SIMP(statut='o',typ='R'),
6755              CAZ             =SIMP(statut='o',typ='R'),
6756              CBZ             =SIMP(statut='o',typ='R'),
6757              MPX             =SIMP(statut='o',typ='R'),
6758            ),
6759            VMIS_POUTRE_FO  =FACT(statut='f',min=0,max=1,
6760              NP              =SIMP(statut='o',typ=fonction),
6761              MEY             =SIMP(statut='o',typ=fonction),
6762              MPY             =SIMP(statut='o',typ=fonction),
6763              CAY             =SIMP(statut='o',typ=fonction),
6764              CBY             =SIMP(statut='o',typ=fonction),
6765              MEZ             =SIMP(statut='o',typ=fonction),
6766              MPZ             =SIMP(statut='o',typ=fonction),
6767              CAZ             =SIMP(statut='o',typ=fonction),
6768              CBZ             =SIMP(statut='o',typ=fonction),
6769              MPX             =SIMP(statut='o',typ=fonction),
6770              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6771            ),
6772            ARME            =FACT(statut='f',min=0,max=1,
6773              KYE             =SIMP(statut='o',typ='R'),
6774              DLE             =SIMP(statut='o',typ='R'),
6775              KYP             =SIMP(statut='o',typ='R'),
6776              DLP             =SIMP(statut='o',typ='R'),
6777              KYG             =SIMP(statut='o',typ='R'),
6778            ),
6779            ASSE_CORN       =FACT(statut='f',min=0,max=1,
6780              NU_1            =SIMP(statut='o',typ='R'),
6781              MU_1            =SIMP(statut='o',typ='R'),
6782              DXU_1           =SIMP(statut='o',typ='R'),
6783              DRYU_1          =SIMP(statut='o',typ='R'),
6784              C_1             =SIMP(statut='o',typ='R'),
6785              NU_2            =SIMP(statut='o',typ='R'),
6786              MU_2            =SIMP(statut='o',typ='R'),
6787              DXU_2           =SIMP(statut='o',typ='R'),
6788              DRYU_2          =SIMP(statut='o',typ='R'),
6789              C_2             =SIMP(statut='o',typ='R'),
6790              KY              =SIMP(statut='o',typ='R'),
6791              KZ              =SIMP(statut='o',typ='R'),
6792              KRX             =SIMP(statut='o',typ='R'),
6793              KRZ             =SIMP(statut='o',typ='R'),
6794            ),
6795            DIS_CONTACT     =FACT(statut='f',min=0,max=1,
6796              RIGI_NOR        =SIMP(statut='f',typ='R' ),
6797              DIST_1          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6798              DIST_2          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6799              RIGI_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6800              AMOR_NOR        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6801              AMOR_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6802              COULOMB         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6803              JEU             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6804              KT_ULTM         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6805              EFFO_N_INIT     =SIMP(statut='f',typ='R'),
6806              regles=(EXCLUS('RIGI_N_FO','RIGI_N_IRRA',),),
6807              RIGI_N_IRRA     =SIMP(statut='f',typ=fonction),
6808              RIGI_N_FO       =SIMP(statut='f',typ=fonction),
6809              RELA_MZ         =SIMP(statut='f',typ=fonction),
6810              C_PRAGER_MZ     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6811              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="DRZ",into=("DRZ",) ),
6812              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
6813            ),
6814            NADAI_B         =FACT(statut='f',min=0,max=1,
6815              F_C             =SIMP(statut='o',typ='R'),
6816              F_T             =SIMP(statut='o',typ='R'),
6817              CRIT_E_C        =SIMP(statut='o',typ='R'),
6818              EPSP_P_C        =SIMP(statut='o',typ='R'),
6819              EPSP_R_C        =SIMP(statut='o',typ='R'),
6820              EPSI_R_T        =SIMP(statut='o',typ='R'),
6821              FAC_T_C         =SIMP(statut='o',typ='R'),
6822            ),
6823            BETON_DOUBLE_DP =FACT(statut='f',min=0,max=1,
6824              F_C             =SIMP(statut='o',typ=fonction),
6825              F_T             =SIMP(statut='o',typ=fonction),
6826              COEF_BIAX       =SIMP(statut='o',typ=fonction),
6827              ENER_COMP_RUPT  =SIMP(statut='o',typ=fonction),
6828              ENER_TRAC_RUPT  =SIMP(statut='o',typ=fonction),
6829              COEF_ELAS_COMP  =SIMP(statut='o',typ='R'),
6830              LONG_CARA       =SIMP(statut='f',typ='R'),
6831              ECRO_COMP_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","PARABOLE") ),
6832              ECRO_TRAC_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","EXPONENT") ),
6833              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
6834              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="INST",into=("TEMP","INST",) ),
6835              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
6836              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
6837            ),
6838            LABORD_1D=FACT(statut='f',min=0 ,max=1,
6839              Y01             =SIMP(statut='o',typ='R'),
6840              Y02             =SIMP(statut='o',typ='R'),
6841              A1              =SIMP(statut='o',typ='R'),
6842              A2              =SIMP(statut='o',typ='R'),
6843              B1              =SIMP(statut='o',typ='R'),
6844              B2              =SIMP(statut='o',typ='R'),
6845              BETA1           =SIMP(statut='o',typ='R'),
6846              BETA2           =SIMP(statut='o',typ='R'),
6847              SIGF            =SIMP(statut='o',typ='R'),
6848            ),
6849          MAZARS=FACT(statut='f',min=0 ,max=1,
6850              EPSD0           =SIMP(statut='o',typ='R'),
6851              BETA            =SIMP(statut='o',typ='R'),
6852              AC              =SIMP(statut='o',typ='R'),
6853              BC              =SIMP(statut='o',typ='R'),
6854              AT              =SIMP(statut='o',typ='R'),
6855              BT              =SIMP(statut='o',typ='R'),
6856            ),
6857            VENDOCHAB       =FACT(statut='f',min=0,max=1,
6858              S_VP            =SIMP(statut='o',typ='R'),
6859              SEDVP1          =SIMP(statut='o',typ='R'),
6860              SEDVP2          =SIMP(statut='o',typ='R'),
6861              N_VP            =SIMP(statut='o',typ='R'),
6862              M_VP            =SIMP(statut='o',typ='R'),
6863              K_VP            =SIMP(statut='o',typ='R'),
6864              R_D             =SIMP(statut='o',typ='R'),
6865              A_D             =SIMP(statut='o',typ='R'),
6866              K_D             =SIMP(statut='o',typ='R'),
6867            ),
6868            VENDOCHAB_FO    =FACT(statut='f',min=0,max=1,
6869              S_VP            =SIMP(statut='o',typ=fonction),
6870              SEDVP1          =SIMP(statut='o',typ=fonction),
6871              SEDVP2          =SIMP(statut='o',typ=fonction),
6872              N_VP            =SIMP(statut='o',typ=fonction),
6873              M_VP            =SIMP(statut='o',typ=fonction),
6874              K_VP            =SIMP(statut='o',typ=fonction),
6875              R_D             =SIMP(statut='o',typ=fonction),
6876              A_D             =SIMP(statut='o',typ=fonction),
6877              K_D             =SIMP(statut='o',typ=fonction),
6878              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6879              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="X",into=("X",) ),
6880            ),
6881            PINTO_MENEGOTTO =FACT(statut='f',min=0,max=1,
6882              SY              =SIMP(statut='o',typ='R'),
6883              EPSI_ULTM       =SIMP(statut='o',typ='R'),
6884              SIGM_ULTM       =SIMP(statut='o',typ='R'),
6885              ELAN            =SIMP(statut='f',typ='R',defaut= 4. ),
6886              EPSP_HARD       =SIMP(statut='o',typ='R'),
6887              R_PM            =SIMP(statut='f',typ='R',defaut= 20. ),
6888              EP_SUR_E        =SIMP(statut='f',typ='R'),
6889              A1_PM           =SIMP(statut='f',typ='R',defaut= 18.5 ),
6890              A2_PM           =SIMP(statut='f',typ='R',defaut= 0.15 ),
6891              A6_PM           =SIMP(statut='f',typ='R',defaut= 620. ),
6892              C_PM            =SIMP(statut='f',typ='R',defaut= 0.5 ),
6893              A_PM            =SIMP(statut='f',typ='R',defaut= 6.0E-3 ),
6894            ),
6895            BPEL_BETON      =FACT(statut='f',min=0,max=1,
6896              PERT_FLUA       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6897              PERT_RETR       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6898            ),
6899            BPEL_ACIER      =FACT(statut='f',min=0,max=1,
6900              RELAX_1000      =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6901              MU0_RELAX       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6902              SY              =SIMP(statut='o',typ='R'),
6903              FROT_COURB      =SIMP(statut='o',typ='R'),
6904              FROT_LINE       =SIMP(statut='o',typ='R'),
6905            ),
6906            CAM_CLAY      =FACT(statut='f',min=0,max=1,
6907              PORO            =SIMP(statut='o',typ='R'),
6908              LAMBDA          =SIMP(statut='o',typ='R'),
6909              KAPA            =SIMP(statut='o',typ='R'),
6910              M               =SIMP(statut='o',typ='R'),
6911              PRES_CRIT       =SIMP(statut='o',typ='R'),
6912              PA              =SIMP(statut='o',typ='R'),
6913            ),
6914            CJS             =FACT(statut='f',min=0,max=1,
6915              regles=(ENSEMBLE('B_CJS','C_CJS','MU_CJS','PCO',),
6916                      ENSEMBLE('N_CJS','KP','RC',),
6917                      PRESENT_ABSENT('A_CJS','B_CJS',),
6918                      PRESENT_PRESENT('A_CJS','N_CJS',),
6919                      PRESENT_PRESENT('B_CJS','N_CJS', ),),
6920              BETA_CJS        =SIMP(statut='o',typ='R'),
6921              RM              =SIMP(statut='o',typ='R'),
6922              N_CJS           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6923              KP              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6924              RC              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6925              A_CJS           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6926              B_CJS           =SIMP(statut='f',typ='R',defaut= 1.0E+25 ),
6927              C_CJS           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6928              GAMMA_CJS       =SIMP(statut='o',typ='R'),
6929              MU_CJS          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6930              PCO             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6931              PA              =SIMP(statut='o',typ='R'),
6932              Q_INIT          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6933              R_INIT          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6934            ),
6935            ECRO_ASYM_LINE  =FACT(statut='f',min=0,max=1,
6936              DC_SIGM_EPSI    =SIMP(statut='o',typ='R'),
6937              SY_C            =SIMP(statut='o',typ='R'),
6938              DT_SIGM_EPSI    =SIMP(statut='o',typ='R'),
6939              SY_T            =SIMP(statut='o',typ='R'),
6940            ),
6941            GRANGER_FP      =FACT(statut='f',min=0,max=1,
6942              J1              =SIMP(statut='f',typ='R'),
6943              J2              =SIMP(statut='f',typ='R'),
6944              J3              =SIMP(statut='f',typ='R'),
6945              J4              =SIMP(statut='f',typ='R'),
6946              J5              =SIMP(statut='f',typ='R'),
6947              J6              =SIMP(statut='f',typ='R'),
6948              J7              =SIMP(statut='f',typ='R'),
6949              J8              =SIMP(statut='f',typ='R'),
6950              TAUX_1          =SIMP(statut='f',typ='R'),
6951              TAUX_2          =SIMP(statut='f',typ='R'),
6952              TAUX_3          =SIMP(statut='f',typ='R'),
6953              TAUX_4          =SIMP(statut='f',typ='R'),
6954              TAUX_5          =SIMP(statut='f',typ='R'),
6955              TAUX_6          =SIMP(statut='f',typ='R'),
6956              TAUX_7          =SIMP(statut='f',typ='R'),
6957              TAUX_8          =SIMP(statut='f',typ='R'),
6958              FONC_DESORP     =SIMP(statut='f',typ=fonction),
6959              QSR_K           =SIMP(statut='f',typ='R'),
6960              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
6961            ),
6962            V_GRANGER_FP    =FACT(statut='f',min=0,max=1,
6963              QSR_VEIL        =SIMP(statut='f',typ='R'),
6964              FONC_V          =SIMP(statut='f',typ=fonction),
6965              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
6966            ),
6967            GRANGER_FD      =FACT(statut='f',min=0,max=1,
6968              LAM_VISC      =SIMP(statut='o',typ='R'),
6969            ),
6970
6971 #
6972 # comportement thermique
6973 #
6974            THER_NL         =FACT(statut='f',min=0,max=1,
6975              regles=(UN_PARMI('BETA','RHO_CP', ),),
6976              LAMBDA          =SIMP(statut='o',typ=fonction),
6977              BETA            =SIMP(statut='f',typ=fonction),
6978              RHO_CP          =SIMP(statut='f',typ=fonction),
6979              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
6980            ),
6981            THER_HYDR       =FACT(statut='f',min=0,max=1,
6982              LAMBDA          =SIMP(statut='o',typ=fonction),
6983              BETA            =SIMP(statut='f',typ=fonction),
6984              AFFINITE        =SIMP(statut='o',typ=fonction),
6985              CHALHYDR        =SIMP(statut='o',typ='R'),
6986              QSR_K           =SIMP(statut='o',typ='R'),
6987              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("HYDR",) ),
6988              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
6989            ),
6990            THER            =FACT(statut='f',min=0,max=1,
6991              LAMBDA          =SIMP(statut='o',typ='R'),
6992              RHO_CP          =SIMP(statut='f',typ='R'),
6993            ),
6994            THER_FO         =FACT(statut='f',min=0,max=1,
6995              LAMBDA          =SIMP(statut='o',typ=fonction),
6996              RHO_CP          =SIMP(statut='f',typ=fonction),
6997              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
6998            ),
6999            THER_ORTH       =FACT(statut='f',min=0,max=1,
7000              LAMBDA_L        =SIMP(statut='o',typ='R'),
7001              LAMBDA_T        =SIMP(statut='o',typ='R'),
7002              LAMBDA_N        =SIMP(statut='f',typ='R'),
7003              RHO_CP          =SIMP(statut='f',typ='R'),
7004            ),
7005            THER_COQUE      =FACT(statut='f',min=0,max=1,
7006              COND_LMM        =SIMP(statut='o',typ='R'),
7007              COND_TMM        =SIMP(statut='o',typ='R'),
7008              COND_LMP        =SIMP(statut='o',typ='R'),
7009              COND_TMP        =SIMP(statut='o',typ='R'),
7010              COND_LPP        =SIMP(statut='o',typ='R'),
7011              COND_TPP        =SIMP(statut='o',typ='R'),
7012              COND_LSI        =SIMP(statut='o',typ='R'),
7013              COND_TSI        =SIMP(statut='o',typ='R'),
7014              COND_NMM        =SIMP(statut='o',typ='R'),
7015              COND_NMP        =SIMP(statut='o',typ='R'),
7016              COND_NPP        =SIMP(statut='o',typ='R'),
7017              COND_NSI        =SIMP(statut='o',typ='R'),
7018              CMAS_MM         =SIMP(statut='f',typ='R'),
7019              CMAS_MP         =SIMP(statut='f',typ='R'),
7020              CMAS_PP         =SIMP(statut='f',typ='R'),
7021              CMAS_SI         =SIMP(statut='f',typ='R'),
7022            ),
7023            THER_COQUE_FO   =FACT(statut='f',min=0,max=1,
7024              COND_LMM        =SIMP(statut='o',typ=fonction),
7025              COND_TMM        =SIMP(statut='o',typ=fonction),
7026              COND_LMP        =SIMP(statut='o',typ=fonction),
7027              COND_TMP        =SIMP(statut='o',typ=fonction),
7028              COND_LPP        =SIMP(statut='o',typ=fonction),
7029              COND_TPP        =SIMP(statut='o',typ=fonction),
7030              COND_LSI        =SIMP(statut='o',typ=fonction),
7031              COND_TSI        =SIMP(statut='o',typ=fonction),
7032              COND_NMM        =SIMP(statut='o',typ=fonction),
7033              COND_NMP        =SIMP(statut='o',typ=fonction),
7034              COND_NPP        =SIMP(statut='o',typ=fonction),
7035              COND_NSI        =SIMP(statut='o',typ=fonction),
7036              CMAS_MM         =SIMP(statut='f',typ=fonction),
7037              CMAS_MP         =SIMP(statut='f',typ=fonction),
7038              CMAS_PP         =SIMP(statut='f',typ=fonction),
7039              CMAS_SI         =SIMP(statut='f',typ=fonction),
7040            ),
7041            SECH_GRANGER    =FACT(statut='f',min=0,max=1,
7042              A               =SIMP(statut='o',typ='R'),
7043              B               =SIMP(statut='o',typ='R'),
7044              QSR_K           =SIMP(statut='o',typ='R'),
7045              TEMP_0_C        =SIMP(statut='o',typ='R'),
7046            ),
7047            SECH_MENSI      =FACT(statut='f',min=0,max=1,
7048              A               =SIMP(statut='o',typ='R'),
7049              B               =SIMP(statut='o',typ='R'),
7050            ),
7051            SECH_BAZANT     =FACT(statut='f',min=0,max=1,
7052              D1              =SIMP(statut='o',typ='R'),
7053              ALPHA_BAZANT    =SIMP(statut='o',typ='R'),
7054              N               =SIMP(statut='o',typ='R'),
7055              FONC_DESORP     =SIMP(statut='o',typ=fonction),
7056              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7057            ),
7058            SECH_NAPPE      =FACT(statut='f',min=0,max=1,
7059              FONCTION        =SIMP(statut='o',typ=fonction),
7060              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7061              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="TSEC",into=("TSEC",) ),
7062            ),
7063 #
7064 # comportement métallurgique
7065 #
7066            META_ACIER      =FACT(statut='f',min=0,max=1,
7067              TRC             =SIMP(statut='o',typ=(tabl_trc) ),
7068              AR3             =SIMP(statut='o',typ='R'),
7069              ALPHA           =SIMP(statut='o',typ='R'),
7070              MS0             =SIMP(statut='o',typ='R'),
7071              AC1             =SIMP(statut='o',typ='R'),
7072              AC3             =SIMP(statut='o',typ='R'),
7073              TAUX_1          =SIMP(statut='o',typ='R'),
7074              TAUX_3          =SIMP(statut='o',typ='R'),
7075              LAMBDA0         =SIMP(statut='f',typ='R'),
7076              QSR_K           =SIMP(statut='f',typ='R'),
7077              D10             =SIMP(statut='f',typ='R'),
7078              WSR_K           =SIMP(statut='f',typ='R'),
7079            ),
7080            META_ZIRC       =FACT(statut='f',min=0,max=1,
7081              TDEQ            =SIMP(statut='o',typ='R'),
7082              N               =SIMP(statut='o',typ='R'),
7083              K               =SIMP(statut='o',typ='R'),
7084              TDC             =SIMP(statut='o',typ='R'),
7085              AC              =SIMP(statut='o',typ='R'),
7086              M               =SIMP(statut='o',typ='R'),
7087              QSR_K           =SIMP(statut='f',typ='R'),
7088              TDR             =SIMP(statut='o',typ='R'),
7089              AR              =SIMP(statut='o',typ='R'),
7090              BR              =SIMP(statut='o',typ='R'),
7091            ),
7092            DURT_META       =FACT(statut='f',min=0,max=1,
7093              F1_DURT         =SIMP(statut='o',typ='R'),
7094              F2_DURT         =SIMP(statut='o',typ='R'),
7095              F3_DURT         =SIMP(statut='o',typ='R'),
7096              F4_DURT         =SIMP(statut='o',typ='R'),
7097              C_DURT          =SIMP(statut='o',typ='R'),
7098            ),
7099            ELAS_META       =FACT(statut='f',min=0,max=1,
7100              E               =SIMP(statut='o',typ='R'),
7101              NU              =SIMP(statut='o',typ='R'),
7102              F_ALPHA         =SIMP(statut='o',typ='R'),
7103              C_ALPHA         =SIMP(statut='o',typ='R'),
7104              PHASE_REFE      =SIMP(statut='o',typ='TXM',into=("CHAUD","FROID")),
7105              EPSF_EPSC_TREF  =SIMP(statut='o',typ='R'),
7106              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7107              F1_SY           =SIMP(statut='f',typ='R'),
7108              F2_SY           =SIMP(statut='f',typ='R'),
7109              F3_SY           =SIMP(statut='f',typ='R'),
7110              F4_SY           =SIMP(statut='f',typ='R'),
7111              C_SY            =SIMP(statut='f',typ='R'),
7112              SY_MELANGE      =SIMP(statut='f',typ=fonction),
7113              F1_S_VP         =SIMP(statut='f',typ='R'),
7114              F2_S_VP         =SIMP(statut='f',typ='R'),
7115              F3_S_VP         =SIMP(statut='f',typ='R'),
7116              F4_S_VP         =SIMP(statut='f',typ='R'),
7117              C_S_VP          =SIMP(statut='f',typ='R' ),
7118              S_VP_MELANGE    =SIMP(statut='f',typ=fonction),
7119              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="META",into=("META",)),
7120            ),
7121            ELAS_META_FO    =FACT(statut='f',min=0,max=1,
7122              regles=(
7123                       PRESENT_PRESENT('F_ALPHA','TEMP_DEF_ALPHA'),
7124                       PRESENT_PRESENT('C_ALPHA','TEMP_DEF_ALPHA'),
7125                     ),
7126              E               =SIMP(statut='o',typ=fonction),
7127              NU              =SIMP(statut='o',typ=fonction),
7128              F_ALPHA         =SIMP(statut='o',typ=fonction),
7129              C_ALPHA         =SIMP(statut='o',typ=fonction),
7130              PHASE_REFE      =SIMP(statut='o',typ='TXM',into=("CHAUD","FROID")),
7131              EPSF_EPSC_TREF  =SIMP(statut='o',typ='R'),
7132              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
7133              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7134              F1_SY           =SIMP(statut='f',typ=fonction),
7135              F2_SY           =SIMP(statut='f',typ=fonction),
7136              F3_SY           =SIMP(statut='f',typ=fonction),
7137              F4_SY           =SIMP(statut='f',typ=fonction),
7138              C_SY            =SIMP(statut='f',typ=fonction),
7139              SY_MELANGE      =SIMP(statut='f',typ=fonction),
7140              F1_S_VP         =SIMP(statut='f',typ=fonction),
7141              F2_S_VP         =SIMP(statut='f',typ=fonction),
7142              F3_S_VP         =SIMP(statut='f',typ=fonction),
7143              F4_S_VP         =SIMP(statut='f',typ=fonction),
7144              C_S_VP          =SIMP(statut='f',typ=fonction),
7145              S_VP_MELANGE    =SIMP(statut='f',typ=fonction),
7146              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7147              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="META",into=("META",)),
7148            ),
7149            META_ECRO_LINE  =FACT(statut='f',min=0,max=1,
7150              F1_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
7151              F2_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
7152              F3_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
7153              F4_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
7154              C_D_SIGM_EPSI   =SIMP(statut='f',typ=fonction),
7155              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7156            ),
7157            META_TRACTION   =FACT(statut='f',min=0,max=1,
7158              SIGM_F1         =SIMP(statut='f',typ=fonction),
7159              SIGM_F2         =SIMP(statut='f',typ=fonction),
7160              SIGM_F3         =SIMP(statut='f',typ=fonction),
7161              SIGM_F4         =SIMP(statut='f',typ=fonction),
7162              SIGM_C          =SIMP(statut='f',typ=fonction),
7163              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",)),
7164              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7165            ),
7166            META_VISC_FO    =FACT(statut='f',min=0,max=1,
7167              F1_ETA          =SIMP(statut='f',typ=fonction),
7168              F1_N            =SIMP(statut='f',typ=fonction),
7169              F1_C            =SIMP(statut='f',typ=fonction),
7170              F1_M            =SIMP(statut='f',typ=fonction),
7171              F2_ETA          =SIMP(statut='f',typ=fonction),
7172              F2_N            =SIMP(statut='f',typ=fonction),
7173              F2_C            =SIMP(statut='f',typ=fonction),
7174              F2_M            =SIMP(statut='f',typ=fonction),
7175              F3_ETA          =SIMP(statut='f',typ=fonction),
7176              F3_N            =SIMP(statut='f',typ=fonction),
7177              F3_C            =SIMP(statut='f',typ=fonction),
7178              F3_M            =SIMP(statut='f',typ=fonction),
7179              F4_ETA          =SIMP(statut='f',typ=fonction),
7180              F4_N            =SIMP(statut='f',typ=fonction),
7181              F4_C            =SIMP(statut='f',typ=fonction),
7182              F4_M            =SIMP(statut='f',typ=fonction),
7183              C_ETA           =SIMP(statut='f',typ=fonction),
7184              C_N             =SIMP(statut='f',typ=fonction),
7185              C_C             =SIMP(statut='f',typ=fonction),
7186              C_M             =SIMP(statut='f',typ=fonction),
7187              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7188            ),
7189            META_PT         =FACT(statut='f',min=0,max=1,
7190              F1_K            =SIMP(statut='f',typ='R'),
7191              F2_K            =SIMP(statut='f',typ='R'),
7192              F3_K            =SIMP(statut='f',typ='R'),
7193              F4_K            =SIMP(statut='f',typ='R'),
7194              F1_D_F_META     =SIMP(statut='f',typ=fonction),
7195              F2_D_F_META     =SIMP(statut='f',typ=fonction),
7196              F3_D_F_META     =SIMP(statut='f',typ=fonction),
7197              F4_D_F_META     =SIMP(statut='f',typ=fonction),
7198              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7199              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="META",into=("META",) ),
7200            ),
7201            META_RE         =FACT(statut='f',min=0,max=1,
7202              C_F1_THETA      =SIMP(statut='f',typ='R'),
7203              C_F2_THETA      =SIMP(statut='f',typ='R'),
7204              C_F3_THETA      =SIMP(statut='f',typ='R'),
7205              C_F4_THETA      =SIMP(statut='f',typ='R'),
7206              F1_C_THETA      =SIMP(statut='f',typ='R'),
7207              F2_C_THETA      =SIMP(statut='f',typ='R'),
7208              F3_C_THETA      =SIMP(statut='f',typ='R'),
7209              F4_C_THETA      =SIMP(statut='f',typ='R'),
7210            ),
7211 #
7212 # comportement fluide
7213 #
7214            FLUIDE          =FACT(statut='f',min=0,max=1,
7215              regles=(EXCLUS('CELE_C','CELE_R'),),
7216              RHO             =SIMP(statut='o',typ='R'),
7217              CELE_C          =SIMP(statut='f',typ='C'),
7218              CELE_R          =SIMP(statut='f',typ='R'),
7219            ),
7220            PORO_JOINT      =FACT(statut='f',min=0,max=1,
7221              RHO_FLUI        =SIMP(statut='o',typ='R'),
7222              ENTRO_FLUI      =SIMP(statut='o',typ='R'),
7223              BIOT_M          =SIMP(statut='o',typ='R'),
7224              C_0             =SIMP(statut='o',typ='R'),
7225              T_R             =SIMP(statut='o',typ='R'),
7226              ALPHA_M         =SIMP(statut='o',typ='R'),
7227              LAMBDA_T        =SIMP(statut='o',typ='R'),
7228              LAMBDA_H        =SIMP(statut='o',typ='R'),
7229              SOURCE_INIT     =SIMP(statut='o',typ='R'),
7230              OMEGA_0         =SIMP(statut='o',typ='R'),
7231            ),
7232            THM_LIQU        =FACT(statut='f',min=0,max=1,
7233              RHO             =SIMP(statut='o',typ='R'),
7234              UN_SUR_K        =SIMP(statut='f',typ='R'),
7235              ALPHA           =SIMP(statut='f',typ='R'),
7236              CP              =SIMP(statut='f',typ='R'),
7237              VISC            =SIMP(statut='f',typ=fonction),
7238              D_VISC_TEMP     =SIMP(statut='f',typ=fonction),
7239              LAMBDA          =SIMP(statut='f',typ=fonction),
7240              D_LAMBDA_TEMP   =SIMP(statut='f',typ=fonction),
7241              COEF_HENRY      =SIMP(statut='f',typ='R'),
7242              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7243            ),
7244            THM_GAZ         =FACT(statut='f',min=0,max=1,
7245              MASS_MOL        =SIMP(statut='f',typ='R'),
7246              CP              =SIMP(statut='f',typ='R'),
7247              VISC            =SIMP(statut='f',typ=fonction),
7248              D_VISC_TEMP     =SIMP(statut='f',typ=fonction),
7249              LAMBDA          =SIMP(statut='f',typ=fonction),
7250              D_LAMBDA_TEMP   =SIMP(statut='f',typ=fonction),
7251              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7252            ),
7253            THM_VAPE_GAZ    =FACT(statut='f',min=0,max=1,
7254              MASS_MOL        =SIMP(statut='f',typ='R'),
7255              CP              =SIMP(statut='f',typ='R'),
7256              VISC            =SIMP(statut='f',typ=fonction),
7257              D_VISC_TEMP     =SIMP(statut='f',typ=fonction),
7258              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7259            ),
7260            THM_INIT        =FACT(statut='f',min=0,max=1,
7261              TEMP            =SIMP(statut='o',typ='R'),
7262              PRE1            =SIMP(statut='o',typ='R'),
7263              PRE2            =SIMP(statut='o',typ='R'),
7264              PORO            =SIMP(statut='o',typ='R'),
7265              PRES_VAPE       =SIMP(statut='o',typ='R'),
7266              DEGR_SATU       =SIMP(statut='f',typ='R'),
7267              PRES_ATMO       =SIMP(statut='f',typ='R'),
7268            ),
7269            THM_DIFFU       =FACT(statut='f',min=0,max=1,
7270              R_GAZ           =SIMP(statut='o',typ='R'),
7271              RHO             =SIMP(statut='f',typ='R'),
7272              CP              =SIMP(statut='f',typ='R'),
7273              BIOT_COEF       =SIMP(statut='f',typ='R'),
7274              SATU_PRES       =SIMP(statut='f',typ=fonction),
7275              D_SATU_PRES     =SIMP(statut='f',typ=fonction),
7276              PESA_X          =SIMP(statut='f',typ='R'),
7277              PESA_Y          =SIMP(statut='f',typ='R'),
7278              PESA_Z          =SIMP(statut='f',typ='R'),
7279              PERM_IN         =SIMP(statut='f',typ=fonction),
7280              PERM_LIQU       =SIMP(statut='f',typ=fonction),
7281              D_PERM_LIQU_SATU=SIMP(statut='f',typ=fonction),
7282              PERM_GAZ        =SIMP(statut='f',typ=fonction),
7283              D_PERM_SATU_GAZ =SIMP(statut='f',typ=fonction),
7284              D_PERM_PRES_GAZ =SIMP(statut='f',typ=fonction),
7285              FICK            =SIMP(statut='f',typ=fonction),
7286              D_FICK_TEMP     =SIMP(statut='f',typ=fonction),
7287              D_FICK_GAZ_PRES =SIMP(statut='f',typ=fonction),
7288              LAMBDA          =SIMP(statut='f',typ=fonction),
7289              D_LAMBDA_TEMP   =SIMP(statut='f',typ=fonction),
7290              SIGMA_T         =SIMP(statut='f',typ=fonction),
7291              D_SIGMA_T       =SIMP(statut='f',typ=fonction),
7292              PERM_G_INTR     =SIMP(statut='f',typ=fonction),
7293              CHAL_VAPO       =SIMP(statut='f',typ=fonction),
7294              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7295              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="SAT",into=("SAT",) ),
7296              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="PORO",into=("PORO",) ),
7297              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="PGAZ",into=("PGAZ",) ),
7298              VERI_P5         =SIMP(statut='c',typ='TXM',defaut="PCAP",into=("PCAP",) ),
7299            ),
7300 #
7301 # courbes et coefficients associés à la fatigue et au dommage
7302 #
7303            FATIGUE         =FACT(statut='f',min=0,max=1,
7304              regles=(PRESENT_ABSENT('WOHLER','A_BASQUIN','BETA_BASQUIN'),
7305                      PRESENT_ABSENT('WOHLER','A0','A1','A2','A3','SL'),
7306                      PRESENT_ABSENT('A_BASQUIN','A0','A1','A2','A3','SL'),
7307                      ENSEMBLE('A_BASQUIN','BETA_BASQUIN'),
7308                      ENSEMBLE('A0','A1','A2','A3','SL'),
7309                      PRESENT_PRESENT('A0','E_REFE'),
7310                      ENSEMBLE('D0','TAU0'),),
7311              WOHLER          =SIMP(statut='f',typ=fonction),
7312              A_BASQUIN       =SIMP(statut='f',typ='R'),
7313              BETA_BASQUIN    =SIMP(statut='f',typ='R'),
7314              A0              =SIMP(statut='f',typ='R'),
7315              A1              =SIMP(statut='f',typ='R'),
7316              A2              =SIMP(statut='f',typ='R'),
7317              A3              =SIMP(statut='f',typ='R'),
7318              SL              =SIMP(statut='f',typ='R'),
7319              MANSON_COFFIN   =SIMP(statut='f',typ=fonction),
7320              E_REFE          =SIMP(statut='f',typ='R'),
7321              D0              =SIMP(statut='f',typ='R'),
7322              TAU0            =SIMP(statut='f',typ='R'),
7323              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="SIGM",into=("SIGM",) ),
7324              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",) ),
7325            ),
7326            DOMMA_LEMAITRE  =FACT(statut='f',min=0,max=1,
7327              S               =SIMP(statut='o',typ=fonction),
7328              EPSP_SEUIL      =SIMP(statut='o',typ='R'),
7329              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7330            ),
7331            CISA_PLAN_CRIT  =FACT(statut='f',min=0,max=1,
7332              MATAKE_A        =SIMP(statut='o',typ='R'),
7333              MATAKE_B        =SIMP(statut='o',typ='R'),
7334              ENDU_FT         =SIMP(statut='o',typ='R',val_min=1.0E0,val_max=1.7321E0),
7335            ),
7336 #
7337 # autres comportements ...
7338 #
7339            WEIBULL         =FACT(statut='f',min=0,max=1,
7340              M               =SIMP(statut='o',typ='R'),
7341              VOLU_REFE       =SIMP(statut='o',typ='R'),
7342              SIGM_REFE       =SIMP(statut='o',typ='R'),
7343              SEUIL_EPSP_CUMU =SIMP(statut='f',typ='R',defaut= 1.0E-6),
7344            ),
7345            WEIBULL_FO      =FACT(statut='f',min=0,max=1,
7346              M               =SIMP(statut='o',typ='R'),
7347              VOLU_REFE       =SIMP(statut='o',typ='R'),
7348              SIGM_CNV        =SIMP(statut='o',typ='R'),
7349              SIGM_REFE       =SIMP(statut='o',typ=fonction),
7350              SEUIL_EPSP_CUMU =SIMP(statut='f',typ='R',defaut= 1.0E-6),
7351              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7352            ),
7353            CONTACT         =FACT(statut='f',min=0,max=1,
7354              E_N             =SIMP(statut='o',typ='R'),
7355              E_T             =SIMP(statut='f',typ='R',defaut= 0.E+0),
7356              COULOMB         =SIMP(statut='f',typ='R',defaut= 0.E+0),
7357            ),
7358            NON_LOCAL       =FACT(statut='f',min=0,max=1,
7359              LONG_CARA       =SIMP(statut='o',typ='R'),
7360              COEF_RIGI_MINI  =SIMP(statut='f',typ='R'),
7361            ),
7362            RUPT_FRAG       =FACT(statut='f',min=0,max=1,
7363              GC              =SIMP(statut='o',typ='R'),
7364              SIGM_C          =SIMP(statut='f',typ='R'),
7365              SAUT_C          =SIMP(statut='f',typ='R'),
7366            ),
7367            RCCM            =FACT(statut='f',min=0,max=1,
7368              SY_02           =SIMP(statut='f',typ='R'),
7369              SM              =SIMP(statut='f',typ='R'),
7370              SU              =SIMP(statut='f',typ='R'),
7371              SC              =SIMP(statut='f',typ='R'),
7372              SH              =SIMP(statut='f',typ='R'),
7373              N_KE            =SIMP(statut='f',typ='R'),
7374              M_KE            =SIMP(statut='f',typ='R'),
7375            ),
7376            RCCM_FO         =FACT(statut='f',min=0,max=1,
7377              SY_02           =SIMP(statut='f',typ=fonction),
7378              SM              =SIMP(statut='f',typ=fonction),
7379              SU              =SIMP(statut='f',typ=fonction),
7380              S               =SIMP(statut='f',typ=fonction),
7381              N_KE            =SIMP(statut='f',typ=fonction),
7382              M_KE            =SIMP(statut='f',typ=fonction),
7383            ),
7384            LAIGLE          =FACT(statut='f',min=0,max=1,
7385              GAMMA_ULT       =SIMP(statut='o',typ='R'),
7386              GAMMA_E         =SIMP(statut='o',typ='R'),
7387              M_ULT           =SIMP(statut='o',typ='R'),
7388              M_E             =SIMP(statut='o',typ='R'),
7389              A_E             =SIMP(statut='o',typ='R'),
7390              M_PIC           =SIMP(statut='o',typ='R'),
7391              A_PIC           =SIMP(statut='o',typ='R'),
7392              ETA             =SIMP(statut='o',typ='R'),
7393              SIGMA_C         =SIMP(statut='o',typ='R'),
7394              GAMMA           =SIMP(statut='o',typ='R'),
7395              KSI             =SIMP(statut='o',typ='R'),
7396              GAMMA_CJS       =SIMP(statut='o',typ='R'),
7397              SIGMA_P1        =SIMP(statut='o',typ='R'),
7398              SIGMA_P2        =SIMP(statut='o',typ='R'),
7399              PA              =SIMP(statut='o',typ='R'),
7400            ),
7401            INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
7402 )  ;
7403 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
7404 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7405 # ======================================================================
7406 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7407 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7408 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7409 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7410 # (AT YOUR OPTION) ANY LATER VERSION.
7411 #
7412 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7413 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7414 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7415 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7416 #
7417 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7418 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7419 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7420 # ======================================================================
7421 DEFI_MODELE_GENE=OPER(nom="DEFI_MODELE_GENE",op= 126,sd_prod=modele_gene,
7422                       docu="U4.65.02-d",reentrant='n',
7423          SOUS_STRUC      =FACT(statut='o',min=01,max='**',
7424            NOM             =SIMP(statut='o',typ='TXM' ),
7425            MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
7426            ANGL_NAUT       =SIMP(statut='f',typ='R',max=03),
7427            TRANS           =SIMP(statut='f',typ='R',max=03),
7428          ),
7429          LIAISON         =FACT(statut='o',min=01,max='**',
7430            SOUS_STRUC_1    =SIMP(statut='o',typ='TXM' ),
7431            INTERFACE_1     =SIMP(statut='o',typ='TXM' ),
7432            SOUS_STRUC_2    =SIMP(statut='o',typ='TXM' ),
7433            INTERFACE_2     =SIMP(statut='o',typ='TXM' ),
7434          ),
7435          VERIF           =FACT(statut='f',min=01,max='**',
7436 #  dans la doc U stop_erreur est obligatoire
7437            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
7438            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
7439            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7440          ),
7441 )  ;
7442 #& MODIF COMMANDE  DATE 06/03/2002   AUTEUR MCOURTOI M.COURTOIS
7443 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7444 # ======================================================================
7445 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7446 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7447 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7448 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7449 # (AT YOUR OPTION) ANY LATER VERSION.
7450 #
7451 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7452 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7453 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7454 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7455 #
7456 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7457 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7458 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7459 # ======================================================================
7460 DEFI_NAPPE=OPER(nom="DEFI_NAPPE",op=   4,sd_prod=fonction,
7461                 fr="Définition des valeurs d une fonction de deux variables réelles",
7462                 docu="U4.31.03-g1",reentrant='n',
7463          regles=(UN_PARMI('FONCTION','DEFI_FONCTION'),
7464                  EXCLUS('FONCTION','NOM_PARA_FONC',),
7465                  ENSEMBLE('NOM_PARA_FONC','DEFI_FONCTION'),),
7466          NOM_PARA        =SIMP(statut='o',typ='TXM',into=("TEMP","INST","X","Y","Z","FREQ","PULS",
7467                                                           "AMOR","EPAIS","TSEC","HYDR","SECH") ),
7468          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
7469          PARA            =SIMP(statut='o',typ='R',max='**'),
7470          FONCTION        =SIMP(statut='f',typ=fonction,max='**' ),
7471          NOM_PARA_FONC   =SIMP(statut='f',typ='TXM',into=("TEMP","INST","X","Y","Z","EPSI","FREQ",
7472                                                           "PULS","AMOR","EPAIS") ),
7473          DEFI_FONCTION   =FACT(statut='f',max='**',
7474            VALE            =SIMP(statut='o',typ='R',max='**'),
7475            INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
7476            PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7477            PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7478          ),
7479          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
7480          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7481          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
7482          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
7483          VERIF           =SIMP(statut='f',typ='TXM',into=("CROISSANT",) ),
7484          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7485 )  ;
7486 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
7487 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7488 # ======================================================================
7489 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7490 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7491 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7492 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7493 # (AT YOUR OPTION) ANY LATER VERSION.
7494 #
7495 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7496 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7497 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7498 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7499 #
7500 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7501 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7502 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7503 # ======================================================================
7504 DEFI_OBSTACLE=OPER(nom="DEFI_OBSTACLE",op=  73,sd_prod=obstacle
7505                     ,fr="Définition d un obstacle plan perpendiculaire à une structure filaire",
7506                      docu="U4.44.21-e",reentrant='n',
7507          TYPE            =SIMP(statut='o',typ='TXM',defaut="CERCLE",
7508                              into=("CERCLE","PLAN_Y","PLAN_Z","DISCRET",
7509                              "BI_CERCLE","BI_PLAN_Y","BI_PLAN_Z","BI_CERC_INT",
7510                              "CRAYON_900","CRAYON_1300","GUID_A_CARTE_900",
7511                              "GUID_B_CARTE_900","GUID_C_CARTE_900",
7512                              "GUID_D_CARTE_900","GUID_E_CARTE_900",
7513                              "GUID_F_CARTE_900","GUID_A_CARTE_1300",
7514                              "GUID_B_CARTE_1300","GUID_C_CARTE_1300",
7515                              "GUID_D_CARTE_1300","GUID_E_CARTE_1300",
7516                              "GUID_F_CARTE_1300","GUID_A_CARSP_900",
7517                              "GUID_B_CARSP_900","GUID_C_CARSP_900",
7518                              "GUID_D_CARSP_900","GUID_E_CARSP_900",
7519                              "GUID_F_CARSP_900","GUID_A_CARSP_1300",
7520                              "GUID_B_CARSP_1300","GUID_C_CARSP_1300",
7521                              "GUID_D_CARSP_1300","GUID_E_CARSP_1300",
7522                              "GUID_F_CARSP_1300","GUID_A_GCONT_900",
7523                              "GUID_B_GCONT_900","GUID_C_GCONT_900",
7524                              "GUID_D_GCONT_900","GUID_E_GCONT_900",
7525                              "GUID_F_GCONT_900","GUID_A_GCONT_1300",
7526                              "GUID_B_GCONT_1300","GUID_C_GCONT_1300",
7527                              "GUID_D_GCONT_1300","GUID_E_GCONT_1300",
7528                              "GUID_F_GCONT_1300","GUID_A_GCOMB_900",
7529                              "GUID_B_GCOMB_900","GUID_C_GCOMB_900",
7530                              "GUID_D_GCOMB_900","GUID_E_GCOMB_900",
7531                              "GUID_F_GCOMB_900","GUID_A_GCOMB_1300",
7532                              "GUID_B_GCOMB_1300","GUID_C_GCOMB_1300",
7533                              "GUID_D_GCOMB_1300","GUID_E_GCOMB_1300",
7534                              "GUID_F_GCOMB_1300",) ),
7535          VALE            =SIMP(statut='f',typ='R',max='**'),
7536          VERIF           =SIMP(statut='f',typ='TXM',defaut="FERME"),
7537 )  ;
7538 #& MODIF COMMANDE  DATE 10/10/2001   AUTEUR DURAND C.DURAND
7539 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7540 # ======================================================================
7541 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7542 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7543 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7544 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7545 # (AT YOUR OPTION) ANY LATER VERSION.
7546 #
7547 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7548 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7549 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7550 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7551 #
7552 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7553 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7554 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7555 # ======================================================================
7556 # RESPONSABLE GNICOLAS G.NICOLAS
7557 DEFI_PARA_SENSI=OPER(nom="DEFI_PARA_SENSI",op=   2,sd_prod=para_sensi,
7558                     fr="Définition d'un paramètre de sensibilité",
7559                     ang="Definition of a sensitive parameter",
7560                     docu="U4.31.xx-a",reentrant='n',
7561          NOM_RESU        =SIMP(statut='c',typ='TXM',into=("TOUTRESU",),defaut="TOUTRESU",
7562                                fr="Nom du concept créé",
7563                                ang="Name of the concept"),
7564          VALE            =SIMP(statut='o',typ='R',max=01,
7565                                fr="Valeur du parametre",
7566                                ang="Value of the parameter"),
7567          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7568 )  ;
7569 #& MODIF COMMANDE  DATE 07/03/2001   AUTEUR VABHHTS J.PELLET
7570 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7571 # ======================================================================
7572 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7573 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7574 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7575 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7576 # (AT YOUR OPTION) ANY LATER VERSION.
7577 #
7578 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7579 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7580 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7581 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7582 #
7583 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7584 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7585 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7586 # ======================================================================
7587 DEFI_SPEC_TURB=OPER(nom="DEFI_SPEC_TURB",op= 145,sd_prod=spectre,
7588                     fr="Définition d'un spectre d'excitation turbulente",
7589                     docu="U4.44.31-c",reentrant='n',
7590          regles=(UN_PARMI('SPEC_LONG_COR_1','SPEC_LONG_COR_2','SPEC_LONG_COR_3',
7591                           'SPEC_LONG_COR_4','SPEC_CORR_CONV_1','SPEC_CORR_CONV_2',
7592                           'SPEC_FONC_FORME','SPEC_EXCI_POINT'),),
7593          SPEC_LONG_COR_1 =FACT(statut='f',min=00,max=01,
7594            LONG_COR        =SIMP(statut='o',typ='R' ),
7595            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
7596            VISC_CINE       =SIMP(statut='o',typ='R' ),
7597          ),
7598          SPEC_LONG_COR_2 =FACT(statut='f',min=00,max=01,
7599            regles=(ENSEMBLE('FREQ_COUP','PHI0','BETA' ),),
7600            LONG_COR        =SIMP(statut='o',typ='R' ),
7601            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
7602            FREQ_COUP       =SIMP(statut='f',typ='R',defaut= 0.1 ),
7603            PHI0            =SIMP(statut='f',typ='R',defaut= 1.5E-3 ),
7604            BETA            =SIMP(statut='f',typ='R',defaut= 2.7 ),
7605          ),
7606          SPEC_LONG_COR_3 =FACT(statut='f',min=00,max=01,
7607            regles=(ENSEMBLE('PHI0_1','BETA_1','PHI0_2','BETA_2','FREQ_COUP'),),
7608            LONG_COR        =SIMP(statut='o',typ='R' ),
7609            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
7610            FREQ_COUP       =SIMP(statut='f',typ='R',defaut= 0.2 ),
7611            PHI0_1          =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
7612            BETA_1          =SIMP(statut='f',typ='R',defaut= 0.5 ),
7613            PHI0_2          =SIMP(statut='f',typ='R',defaut= 4.E-5 ),
7614            BETA_2          =SIMP(statut='f',typ='R',defaut= 3.5 ),
7615          ),
7616          SPEC_LONG_COR_4 =FACT(statut='f',min=00,max=01,
7617            regles=(ENSEMBLE('BETA','GAMMA'),),
7618            LONG_COR        =SIMP(statut='o',typ='R' ),
7619            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
7620            TAUX_VIDE       =SIMP(statut='o',typ='R' ),
7621            BETA            =SIMP(statut='f',typ='R',defaut= 2. ),
7622            GAMMA           =SIMP(statut='f',typ='R',defaut= 4. ),
7623          ),
7624          SPEC_CORR_CONV_1=FACT(statut='f',min=00,max=01,
7625            LONG_COR_1      =SIMP(statut='o',typ='R' ),
7626            LONG_COR_2      =SIMP(statut='f',typ='R' ),
7627            VITE_FLUI       =SIMP(statut='o',typ='R' ),
7628            RHO_FLUI        =SIMP(statut='o',typ='R' ),
7629            FREQ_COUP       =SIMP(statut='f',typ='R' ),
7630            K               =SIMP(statut='f',typ='R',defaut= 5.8E-3 ),
7631            D_FLUI          =SIMP(statut='o',typ='R' ),
7632            COEF_VITE_FLUI_A=SIMP(statut='f',typ='R' ),
7633            COEF_VITE_FLUI_O=SIMP(statut='f',typ='R' ),
7634            METHODE         =SIMP(statut='f',typ='TXM',defaut="GENERALE",
7635                                  into=("AU_YANG","GENERALE","CORCOS") ),
7636          ),
7637          SPEC_CORR_CONV_2=FACT(statut='f',min=00,max=01,
7638            FONCTION        =SIMP(statut='o',typ=fonction ),
7639            VITE_FLUI       =SIMP(statut='o',typ='R' ),
7640            FREQ_COUP       =SIMP(statut='f',typ='R' ),
7641            METHODE         =SIMP(statut='f',typ='TXM',defaut="GENERALE",
7642                                  into=("AU_YANG","GENERALE","CORCOS",) ),
7643            COEF_VITE_FLUI_A=SIMP(statut='f',typ='R' ),
7644            COEF_VITE_FLUI_O=SIMP(statut='f',typ='R' ),
7645          ),
7646          SPEC_FONC_FORME =FACT(statut='f',min=00,max=01,
7647            regles=(UN_PARMI('INTE_SPEC','GRAPPE_1'),
7648                    ENSEMBLE('INTE_SPEC','FONCTION'),),
7649            INTE_SPEC       =SIMP(statut='f',typ=tabl_intsp ),
7650            FONCTION        =SIMP(statut='f',typ=fonction,max='**'),
7651            GRAPPE_1        =SIMP(statut='f',typ='TXM',into=("DEBIT_180","DEBIT_300",) ),
7652            NOEUD           =SIMP(statut='o',typ=no),
7653            CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
7654            MODELE          =SIMP(statut='o',typ=modele ),
7655          ),
7656          SPEC_EXCI_POINT =FACT(statut='f',min=00,max=01,
7657            regles=(UN_PARMI('INTE_SPEC','GRAPPE_2'),),
7658            INTE_SPEC       =SIMP(statut='f',typ=tabl_intsp ),
7659            GRAPPE_2        =SIMP(statut='f',typ='TXM',
7660                                  into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC",) ),
7661 #  Quels sont les statuts des mots cles à l interieur des deux blocs qui suivent
7662            b_inte_spec =BLOC(condition = "INTE_SPEC != None",
7663              NATURE          =SIMP(statut='o',typ='TXM',max='**',into=("FORCE","MOMENT",) ),
7664              ANGL            =SIMP(statut='o',typ='R',max='**'),
7665              NOEUD           =SIMP(statut='o',typ=no,max='**'),
7666            ),
7667            b_grappe_2      =BLOC(condition = "GRAPPE_2 != None",
7668              RHO_FLUI        =SIMP(statut='o',typ='R' ),
7669              NOEUD           =SIMP(statut='o',typ=no),
7670            ),
7671            CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
7672            MODELE          =SIMP(statut='o',typ=modele ),
7673          ),
7674          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7675 )  ;
7676 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
7677 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7678 # ======================================================================
7679 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7680 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7681 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7682 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7683 # (AT YOUR OPTION) ANY LATER VERSION.
7684 #
7685 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7686 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7687 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7688 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7689 #
7690 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7691 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7692 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7693 # ======================================================================
7694 DEFI_SQUELETTE=OPER(nom="DEFI_SQUELETTE",op= 110,sd_prod=squelette,
7695                     fr="Définition d un maillage de visualisation",
7696                     docu="U4.24.01-e",reentrant='n',
7697          regles=(UN_PARMI('MODE_CYCL','MODELE_GENE','MAILLAGE'),
7698                  PRESENT_PRESENT('MODE_CYCL','SECTEUR'),
7699                  EXCLUS('SOUS_STRUC','SECTEUR'),
7700                  PRESENT_PRESENT('NOM_GROUP_MA','MODELE_GENE'),
7701                  PRESENT_PRESENT('NOM_GROUP_MA','SOUS_STRUC'),),
7702          MODE_CYCL       =SIMP(statut='f',typ=mode_cycl ),
7703          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
7704          SQUELETTE       =SIMP(statut='f',typ=squelette ),
7705          RECO_GLOBAL     =FACT(statut='f',min=01,max='**',
7706            regles=(EXCLUS('TOUT','GROUP_NO_1'),
7707                    PRESENT_PRESENT('GROUP_NO_1','GROUP_NO_2'),
7708                    PRESENT_PRESENT('GROUP_NO_1','SOUS_STRUC_1'),
7709                    PRESENT_PRESENT('GROUP_NO_2','SOUS_STRUC_2'),
7710                    PRESENT_PRESENT('SOUS_STRUC_1','SOUS_STRUC_2'),),
7711            TOUT            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",) ),
7712            GROUP_NO_1      =SIMP(statut='f',typ=grno),
7713            SOUS_STRUC_1    =SIMP(statut='f',typ='TXM' ),
7714            GROUP_NO_2      =SIMP(statut='f',typ=grno),
7715            SOUS_STRUC_2    =SIMP(statut='f',typ='TXM' ),
7716            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
7717            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7718            DIST_REFE       =SIMP(statut='f',typ='R' ),
7719          ),
7720          NOM_GROUP_MA    =FACT(statut='f',min=01,max='**',
7721            NOM             =SIMP(statut='o',typ='TXM' ),
7722            SOUS_STRUC      =SIMP(statut='o',typ='TXM' ),
7723            GROUP_MA        =SIMP(statut='o',typ=grma),
7724          ),
7725          EXCLUSIF        =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
7726          MAILLAGE        =SIMP(statut='f',typ=maillage ),
7727          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
7728          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
7729          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7730          TRANS           =SIMP(statut='f',typ='R',min=3,max=3),
7731          ANGL_NAUT       =SIMP(statut='f',typ='R',min=3,max=3),
7732          SOUS_STRUC      =FACT(statut='f',min=01,max='**',
7733            NOM             =SIMP(statut='f',typ='TXM' ),
7734            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
7735            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
7736            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7737          ),
7738          SECTEUR         =FACT(statut='f',min=01,max='**',
7739            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
7740            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
7741            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7742          ),
7743          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7744 )  ;
7745 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
7746 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7747 # ======================================================================
7748 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7749 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7750 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7751 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7752 # (AT YOUR OPTION) ANY LATER VERSION.
7753 #
7754 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7755 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7756 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7757 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7758 #
7759 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7760 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7761 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7762 # ======================================================================
7763 DEFI_TEXTURE=OPER(nom="DEFI_TEXTURE",op= 181,sd_prod=tabl_texture,
7764                   fr=" ",docu="U4.43.05-a",reentrant='n',
7765          SYST_GLISSEMENT =FACT(statut='o',min=3,max=3,
7766            N               =SIMP(statut='o',typ='R',min=12,max=12 ),
7767            L               =SIMP(statut='o',typ='R',max='**' ),
7768          ),
7769          PLAN            =FACT(statut='o',min=40,max=40,
7770            ANGL_NAUT       =SIMP(statut='o',typ='R',max='**' ),
7771            PROPORTION      =SIMP(statut='o',typ='R' ),
7772          ),
7773          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
7774 )  ;
7775 #& MODIF COMMANDE  DATE 03/10/2001   AUTEUR DURAND C.DURAND
7776 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7777 # ======================================================================
7778 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7779 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7780 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7781 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7782 # (AT YOUR OPTION) ANY LATER VERSION.
7783 #
7784 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7785 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7786 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7787 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7788 #
7789 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7790 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7791 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7792 # ======================================================================
7793 DEFI_THER_JOULE=OPER(nom="DEFI_THER_JOULE",op= 121,sd_prod=fonction,docu="U4.MK.20-d",reentrant='n',
7794                     fr="Calculer la fonction d évolution temporelle de température due à l effet JOULE dans un cable",
7795          LIST_INST       =SIMP(statut='o',typ=listr8),
7796          INST_CC_INIT    =SIMP(statut='f',typ='R',defaut= 0.0E+0 ),
7797          INST_CC_FIN     =SIMP(statut='f',typ='R',defaut= 1.0E+10),
7798          INST_RENC_INIT  =SIMP(statut='f',typ='R',defaut= 1.0E+10),
7799          INST_RENC_FIN   =SIMP(statut='f',typ='R',defaut= 1.0E+10),
7800          TEMP_EXT_POSE   =SIMP(statut='f',typ='R',defaut= 15.0E+0),
7801          TEMP_EXT        =SIMP(statut='f',typ='R',defaut= 15.0E+0),
7802          TEMP_RESI_REF   =SIMP(statut='f',typ='R',defaut= 20.0E+0),
7803          PARA_COND_1D    =FACT(statut='f',min=01,max='**',
7804            INTE_CC         =SIMP(statut='f',typ='R',defaut= 0.0E+0),
7805            INTE_RENC       =SIMP(statut='f',typ='R',defaut= 0.0E+0),
7806            A               =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7807            SECTION         =SIMP(statut='f',typ='TXM',defaut="CERCLE",into=("CERCLE",) ),
7808            RESI_R0         =SIMP(statut='f',typ='R',defaut= 0.0E+0),
7809            RESI_R1         =SIMP(statut='f',typ='R',defaut= 0.E+0),
7810            RHO_CP          =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7811            COEF_H          =SIMP(statut='f',typ='R',defaut= 40.0E+0),
7812            TEMP_INIT       =SIMP(statut='f',typ='R',defaut= 15.0E+0),
7813          ),
7814 )  ;
7815
7816 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
7817 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7818 # ======================================================================
7819 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7820 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7821 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7822 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7823 # (AT YOUR OPTION) ANY LATER VERSION.
7824 #
7825 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7826 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7827 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7828 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7829 #
7830 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7831 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7832 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7833 # ======================================================================
7834 DEFI_TRC=OPER(nom="DEFI_TRC",op=94,sd_prod=tabl_trc,docu="U4.43.04-e",reentrant='n',
7835               fr="Définition d un diagramme de transformations en refroidissement continu d un acier",
7836          HIST_EXP        =FACT(statut='o',min=01,max='**',
7837            VALE            =SIMP(statut='o',typ='R',max='**'),
7838          ),
7839          TEMP_MS         =FACT(statut='o',min=01,max='**',
7840            SEUIL           =SIMP(statut='o',typ='R'),
7841            AKM             =SIMP(statut='o',typ='R'),
7842            BKM             =SIMP(statut='o',typ='R'),
7843            TPLM            =SIMP(statut='o',typ='R'),
7844          ),
7845          GRAIN_AUST      =FACT(statut='f',min=01,max='**',
7846            DREF           =SIMP(statut='f',typ='R'),
7847            A              =SIMP(statut='f',typ='R'),
7848          ),
7849 )  ;
7850 #& MODIF COMMANDE  DATE 06/03/2002   AUTEUR MCOURTOI M.COURTOIS
7851 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7852 # ======================================================================
7853 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7854 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7855 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7856 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7857 # (AT YOUR OPTION) ANY LATER VERSION.
7858 #
7859 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7860 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7861 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7862 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7863 #
7864 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7865 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7866 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7867 # ======================================================================
7868 def defi_valeur_prod(self,IS=None,R8=None,TX=None,C8=None,LS=None):
7869   if IS != None  : return entier
7870   if R8 != None  : return reel
7871   if TX != None  : return chaine
7872   if C8 != None  : return complexe
7873   if LS != None  : return liste
7874   raise AsException("type de concept resultat non prevu")
7875
7876 DEFI_VALEUR=MACRO(nom="DEFI_VALEUR",op=-4,sd_prod=defi_valeur_prod,
7877                  fr="Affectation d une valeur à une variable Superviseur",
7878                  docu="U4.31.04-f1",reentrant='f',
7879          regles=(UN_PARMI('IS','R8','TX','C8','LS'),),
7880          IS              =SIMP(statut='f',typ='I',max='**'),
7881          R8              =SIMP(statut='f',typ='R',max='**'),
7882          TX              =SIMP(statut='f',typ='TXM',max='**'),
7883          C8              =SIMP(statut='f',typ='C',max='**'),
7884          LS              =SIMP(statut='f',typ='L',max='**'),
7885 )  ;
7886 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
7887 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7888 # ======================================================================
7889 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7890 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7891 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7892 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7893 # (AT YOUR OPTION) ANY LATER VERSION.
7894 #
7895 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7896 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7897 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7898 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7899 #
7900 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7901 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7902 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7903 # ======================================================================
7904 DEFUFI=PROC(nom="DEFUFI",op=21,docu="U4.12.01-d",
7905             fr="Modification / ajout d une unité logique en sortie en complément de celles définies dans DEBUT",
7906          IMPRESSION      =FACT(statut='o',min=01,max='**',
7907            NOM             =SIMP(statut='o',typ='TXM',max='**'),
7908            UNITE           =SIMP(statut='o',typ='I' ),
7909          ),
7910 )  ;
7911 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
7912 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7913 # ======================================================================
7914 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7915 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7916 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7917 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7918 # (AT YOUR OPTION) ANY LATER VERSION.
7919 #
7920 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7921 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7922 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7923 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7924 #
7925 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7926 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7927 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7928 # ======================================================================
7929 DEPL_INTERNE=OPER(nom="DEPL_INTERNE",op=89,sd_prod=cham_no_depl_r,docu="U4.62.02-e",reentrant='n',
7930                   fr="Récupération du champ de déplacement interne à une sous-structure",
7931          DEPL_GLOBAL     =SIMP(statut='o',typ=cham_no_depl_r),
7932          MAILLE          =SIMP(statut='o',typ=ma,max=1),
7933          NOM_CAS         =SIMP(statut='f',typ='TXM',defaut=" "),
7934 )  ;
7935 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
7936 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7937 # ======================================================================
7938 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7939 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7940 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7941 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7942 # (AT YOUR OPTION) ANY LATER VERSION.
7943 #
7944 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7945 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7946 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7947 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7948 #
7949 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7950 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7951 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7952 # ======================================================================
7953 DETRUIRE=PROC(nom="DETRUIRE",op=-7,docu="U4.14.01-d",
7954               fr="Destruction d un concept utilisateur dans la base GLOBALE",
7955              op_init=ops.detruire,
7956             CONCEPT     =FACT(statut='o',min=01,
7957             NOM         =SIMP(statut='o',typ=assd,max='**'),
7958         ),
7959 );
7960 #& MODIF COMMANDE  DATE 03/10/2001   AUTEUR DURAND C.DURAND
7961 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7962 # ======================================================================
7963 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7964 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7965 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7966 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7967 # (AT YOUR OPTION) ANY LATER VERSION.
7968 #
7969 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7970 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7971 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7972 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7973 #
7974 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7975 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7976 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7977 # ======================================================================
7978 DIST_LIGN_3D=OPER(nom="DIST_LIGN_3D",op= 133,sd_prod=fonction,docu="U4.MK.30-d",reentrant='n',
7979                   fr="Calcul sous forme d une fonction du temps de la distance minimale entre deux structures filaires",
7980       regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),
7981               UN_PARMI('GROUP_MA_2','POIN_FIXE'),),
7982          MODELE          =SIMP(statut='o',typ=modele),
7983          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,evol_noli) ),
7984          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",)),
7985          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
7986          INST            =SIMP(statut='f',typ='R',max='**'),
7987          LIST_INST       =SIMP(statut='f',typ=listr8),
7988          LIST_ORDRE      =SIMP(statut='f',typ=listis),
7989          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
7990          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7991          GROUP_MA_1      =SIMP(statut='o',typ=grma,max='**'),
7992          GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
7993          POIN_FIXE       =SIMP(statut='f',typ='R',min=3,max=3),
7994          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
7995 )  ;
7996 #& MODIF COMMANDE  DATE 28/03/2001   AUTEUR CIBHHLV L.VIVAN
7997 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7998 # ======================================================================
7999 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8000 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8001 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8002 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8003 # (AT YOUR OPTION) ANY LATER VERSION.
8004 #
8005 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8006 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8007 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8008 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8009 #
8010 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8011 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8012 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8013 # ======================================================================
8014 DYNA_ALEA_MODAL=OPER(nom="DYNA_ALEA_MODAL",op= 131,sd_prod=tabl_intsp
8015                     ,fr="Calcule la réponse spectrale d une structure linéaire sous une excitation connue par sa DSP",
8016                      docu="U4.53.22-d",reentrant='n',
8017          BASE_MODALE     =FACT(statut='o',min=01,max=01,
8018            regles=(UN_PARMI('NUME_ORDRE','BANDE'),),
8019            MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
8020            BANDE           =SIMP(statut='f',typ='R',max=02),
8021            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
8022            b_bande =BLOC(condition = "BANDE != None",
8023              AMOR_UNIF       =SIMP(statut='o',typ='R' ),
8024            ),
8025            b_nume_ordre =BLOC(condition = "NUME_ORDRE != None",
8026              AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
8027            ),
8028          ),
8029          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,)),
8030          EXCIT           =FACT(statut='o',min=01,max=01,
8031            regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I'),
8032                    EXCLUS('CHAM_NO','NOEUD'),),
8033            DERIVATION      =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ) ),
8034            MODAL           =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8035 #  dans la doc U il y a plus de choix pour GRANDEUR
8036            GRANDEUR        =SIMP(statut='f',typ='TXM',defaut="DEPL_R",
8037                                  into=("DEPL_R","EFFO","SOUR_DEBI_VOLU","SOUR_DEBI_MASS","SOUR_PRESS","SOUR_FORCE")),
8038            INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
8039            NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
8040            OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG",) ),
8041 #  Toutes les regles ne semblent pas avoir été ecrites dans la doc U
8042            NUME_ORDRE_I    =SIMP(statut='f',typ='I',max='**'),
8043            NOEUD_I         =SIMP(statut='f',typ=no,max='**'),
8044            b_nume_ordre_i  =BLOC(condition = "NUME_ORDRE_I != None",
8045              NUME_ORDRE_J    =SIMP(statut='o',typ='I',max='**'),
8046            ),
8047            b_noeud_i       =BLOC(condition = "NOEUD_I != None",
8048              NOEUD_J         =SIMP(statut='o',typ=no,max='**'),
8049              NOM_CMP_I       =SIMP(statut='o',typ='TXM',max='**'),
8050              NOM_CMP_J       =SIMP(statut='o',typ='TXM',max='**'),
8051            ),
8052            CHAM_NO         =SIMP(statut='f',typ=cham_no),
8053            NOEUD           =SIMP(statut='f',typ=no,max='**'),
8054            b_noeud         =BLOC(condition = "NOEUD != None",
8055              NOM_CMP         =SIMP(statut='o',typ='TXM',max='**'),
8056            ),
8057          ),
8058          REPONSE         =FACT(statut='f',min=01,max=01,
8059            regles=(EXCLUS('FREQ_MIN','NB_POIN_MODE'),
8060                    EXCLUS('FREQ_MIN','FREQ_EXCIT'),
8061                    ENSEMBLE('FREQ_MIN','FREQ_MAX'),),
8062 #  Toutes les regles ne semblent pas avoir été ecrites dans la doc U
8063            DERIVATION      =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ,) ),
8064            OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
8065            FREQ_MIN        =SIMP(statut='f',typ='R' ),
8066            FREQ_MAX        =SIMP(statut='f',typ='R' ),
8067            PAS             =SIMP(statut='f',typ='R' ),
8068            FREQ_EXCIT      =SIMP(statut='f',typ='TXM',defaut="AVEC",into=("AVEC","SANS") ),
8069            NB_POIN_MODE    =SIMP(statut='f',typ='I',defaut= 50 ),
8070          ),
8071          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8072          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
8073 )  ;
8074 #& MODIF COMMANDE  DATE 26/03/2002   AUTEUR CAMBIER S.CAMBIER
8075 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8076 # ======================================================================
8077 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8078 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8079 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8080 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8081 # (AT YOUR OPTION) ANY LATER VERSION.
8082 #
8083 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8084 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8085 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8086 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8087 #
8088 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8089 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8090 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8091 # ======================================================================
8092 def dyna_line_harm_prod(MATR_MASS,**args):
8093   if AsType(MATR_MASS) == matr_asse_depl_r : return dyna_harmo
8094   if AsType(MATR_MASS) == matr_asse_depl_c : return dyna_harmo
8095   if AsType(MATR_MASS) == matr_asse_pres_c : return acou_harmo
8096   if AsType(MATR_MASS) == matr_asse_gene_r : return harm_gene
8097   raise AsException("type de concept resultat non prevu")
8098
8099 DYNA_LINE_HARM=OPER(nom="DYNA_LINE_HARM",op=  60,sd_prod=dyna_line_harm_prod,
8100                     fr="Réponse dynamique complexe d un système à une excitation harmonique",
8101                     docu="U4.53.11-e",reentrant='n',
8102          regles=(PRESENT_ABSENT('AMOR_REDUIT','MATR_AMOR'),
8103                  PRESENT_ABSENT('AMOR_REDUIT','LIST_AMOR'),
8104                  PRESENT_ABSENT('MATR_AMOR','LIST_AMOR'),
8105                  UN_PARMI('FREQ','LIST_FREQ'),),
8106          MODELE          =SIMP(statut='f',typ=modele ),
8107          CHAM_MATER      =SIMP(statut='f',typ=cham_mater ),
8108          CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
8109          MATR_MASS       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_pres_c,matr_asse_gene_r ) ),
8110          MATR_RIGI       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_pres_c
8111                                               ,matr_asse_gene_r,matr_asse_gene_c ) ),
8112          MATR_AMOR       =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_pres_c,matr_asse_gene_r ) ),
8113          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
8114          LIST_AMOR       =SIMP(statut='f',typ=listr8 ),
8115          MATR_IMPE_PHI   =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_gene_r) ),
8116          FREQ            =SIMP(statut='f',typ='R',max='**'),
8117          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
8118          TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI",)),
8119          NOM_CHAM        =SIMP(statut='f',typ='TXM',max=03,into=("DEPL","VITE","ACCE") ),
8120          EXCIT           =FACT(statut='o',min=01,max='**',
8121            regles=(UN_PARMI('VECT_ASSE','CHARGE'),
8122                    UN_PARMI('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
8123            VECT_ASSE       =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_pres_c,vect_asse_gene ) ),
8124            CHARGE          =SIMP(statut='f',typ=char_meca ),
8125            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
8126            FONC_MULT_C     =SIMP(statut='f',typ=fonction_c ),
8127            COEF_MULT_C     =SIMP(statut='f',typ='C' ),
8128            FONC_MULT       =SIMP(statut='f',typ=fonction ),
8129            COEF_MULT       =SIMP(statut='f',typ='R' ),
8130            PHAS_DEG        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8131            PUIS_PULS       =SIMP(statut='f',typ='I',defaut= 0 ),
8132          ),
8133          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8134          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
8135                                fr="Liste des paramètres de sensibilité.",
8136                                ang="List of sensitivity parameters"),
8137 )  ;
8138 # Rajouter test icompatibilite vect_asse et sensibilite
8139 # Peut-on aussi rajouter ici le test d incompatibilite charge complexe - derivation
8140 #  presents dans le Fortran
8141 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
8142 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8143 # ======================================================================
8144 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8145 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8146 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8147 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8148 # (AT YOUR OPTION) ANY LATER VERSION.
8149 #
8150 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8151 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8152 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8153 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8154 #
8155 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8156 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8157 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8158 # ======================================================================
8159 DYNA_LINE_TRAN=OPER(nom="DYNA_LINE_TRAN",op=  48,sd_prod=dyna_trans,
8160                     fr="Réponse temporelle d un système à une excitation transitoire",
8161                     docu="U4.53.02-g1",reentrant='f',
8162 #         regles=(UN_PARMI('WILSON','DIFF_CENTRE','ADAPT'),),
8163          regles=(UN_PARMI('NEWMARK','WILSON','DIFF_CENTRE','ADAPT'),),
8164          MODELE          =SIMP(statut='f',typ=modele ),
8165          CHAM_MATER      =SIMP(statut='f',typ=cham_mater ),
8166          CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
8167          MATR_MASS       =SIMP(statut='o',typ=matr_asse_depl_r ),
8168          MATR_RIGI       =SIMP(statut='o',typ=matr_asse_depl_r ),
8169          MATR_AMOR       =SIMP(statut='f',typ=matr_asse_depl_r ),
8170          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
8171          NEWMARK         =FACT(statut='f',min=01,max=01,
8172            ALPHA           =SIMP(statut='f',typ='R',defaut= 0.25 ),
8173            DELTA           =SIMP(statut='f',typ='R',defaut= 0.5 ),
8174          ),
8175          WILSON          =FACT(statut='f',min=01,max=01,
8176            THETA           =SIMP(statut='f',typ='R',defaut= 1.4 ),
8177          ),
8178          DIFF_CENTRE     =FACT(statut='f',min=01,max=01,
8179          ),
8180          ADAPT           =FACT(statut='f',min=01,max=01,
8181          ),
8182          ETAT_INIT       =FACT(statut='f',min=01,max=01,
8183            regles=(AU_MOINS_UN('DYNA_TRANS', 'DEPL_INIT', 'VITE_INIT',),
8184                    PRESENT_ABSENT('DYNA_TRANS', 'DEPL_INIT', 'VITE_INIT'),),
8185            DYNA_TRANS      =SIMP(statut='f',typ=dyna_trans ),
8186            b_dyna_trans    =BLOC(condition = "DYNA_TRANS != None",
8187              regles=(EXCLUS('NUME_INIT','INST_INIT' ),),
8188              NUME_INIT       =SIMP(statut='f',typ='I' ),
8189              INST_INIT       =SIMP(statut='f',typ='R' ),
8190              b_inst_init     =BLOC(condition = "INST_INIT != None",
8191                PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
8192                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8193              ),
8194            ),
8195            DEPL_INIT       =SIMP(statut='f',typ=(cham_no_depl_r) ),
8196            VITE_INIT       =SIMP(statut='f',typ=(cham_no_depl_r) ),
8197          ),
8198          EXCIT           =FACT(statut='f',min=01,max='**',
8199            regles=(UN_PARMI('CHARGE','VECT_ASSE'),
8200                    EXCLUS('CHARGE','COEF_MULT'),
8201                    EXCLUS('FONC_MULT','COEF_MULT'),
8202                    EXCLUS('ACCE','COEF_MULT'),
8203                    PRESENT_ABSENT('ACCE','FONC_MULT'),
8204                    PRESENT_PRESENT('ACCE','VITE','DEPL'),
8205                    PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
8206            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
8207            CHARGE          =SIMP(statut='f',typ=char_meca ),
8208            FONC_MULT       =SIMP(statut='f',typ=fonction ),
8209            COEF_MULT       =SIMP(statut='f',typ='R' ),
8210            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
8211            ACCE            =SIMP(statut='f',typ=fonction ),
8212            VITE            =SIMP(statut='f',typ=fonction ),
8213            DEPL            =SIMP(statut='f',typ=fonction ),
8214            MULT_APPUI      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
8215            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
8216            NOEUD           =SIMP(statut='f',typ=no,max='**'),
8217            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
8218          ),
8219          AMOR_MODAL      =FACT(statut='f',min=01,max=01,
8220            MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
8221            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
8222            NB_MODE         =SIMP(statut='f',typ='I',defaut= 9999 ),
8223            REAC_VITE       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8224          ),
8225 #  ce n est pas le mot clesolveur standard
8226          SOLVEUR         =FACT(statut='d',min=01,max=01,
8227            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8228            NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
8229            STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8230            RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8231            NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
8232          ),
8233          INCREMENT       =FACT(statut='o',min=01,max='**',
8234            regles=(UN_PARMI('LIST_INST','FONC_INST','PAS'),),
8235            LIST_INST       =SIMP(statut='f',typ=listr8 ),
8236            FONC_INST       =SIMP(statut='f',typ=fonction ),
8237            PAS             =SIMP(statut='f',typ='R' ),
8238            b_pas           =BLOC(condition = "PAS != None",
8239                INST_INIT       =SIMP(statut='f',typ='R' ),
8240                INST_FIN        =SIMP(statut='f',typ='R' ),
8241            ),
8242            b_list_fonc     =BLOC(condition = "LIST_INST != None or FONC_INST != None",
8243                regles=(EXCLUS('INST_FIN','NUME_FIN'),),
8244                NUME_FIN        =SIMP(statut='f',typ='I' ),
8245                INST_FIN        =SIMP(statut='f',typ='R' ),
8246            ),
8247            VITE_MIN        =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
8248            COEF_MULT_PAS   =SIMP(statut='f',typ='R',defaut= 1.1 ),
8249            COEF_DIVI_PAS   =SIMP(statut='f',typ='R',defaut= 1.33334 ),
8250            PAS_LIMI_RELA   =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8251            NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
8252            NMAX_ITER_PAS   =SIMP(statut='f',typ='I',defaut= 16 ),
8253            PAS_CALCUL      =SIMP(statut='f',typ='I',defaut= 1 ),
8254          ),
8255          ARCHIVAGE       =FACT(statut='f',min=01,max=01,
8256            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH', ),),
8257            LIST_ARCH       =SIMP(statut='f',typ=listis ),
8258            PAS_ARCH        =SIMP(statut='f',typ='I' ),
8259            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","VITE","ACCE") ),
8260          ),
8261          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8262          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
8263 )  ;
8264 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
8265 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8266 # ======================================================================
8267 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8268 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8269 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8270 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8271 # (AT YOUR OPTION) ANY LATER VERSION.
8272 #
8273 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8274 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8275 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8276 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8277 #
8278 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8279 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8280 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8281 # ======================================================================
8282 DYNA_NON_LINE=OPER(nom="DYNA_NON_LINE",op= 70,sd_prod=evol_noli,reentrant='f',
8283                    fr="Analyse mécanique dynamique non linéaire",docu="U4.53.01-f2",
8284          regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS',),
8285                  UN_PARMI('NEWMARK','HHT', ),),
8286          MODELE          =SIMP(statut='o',typ=modele),
8287          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
8288          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,)),
8289          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
8290          EXCIT           =FACT(statut='o',min=1,max='**',
8291            regles=(PRESENT_ABSENT('FONC_MULT','ACCE'),
8292                    PRESENT_PRESENT('ACCE','VITE','DEPL'),
8293                    PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
8294            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
8295                                  into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
8296            CHARGE          =SIMP(statut='o',typ=char_meca),
8297            FONC_MULT       =SIMP(statut='f',typ=fonction),
8298            DEPL            =SIMP(statut='f',typ=fonction),
8299            ACCE            =SIMP(statut='f',typ=fonction),
8300            VITE            =SIMP(statut='f',typ=fonction),
8301            MULT_APPUI      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8302            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
8303            NOEUD           =SIMP(statut='f',typ=no,max='**'),
8304            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
8305          ),
8306          AMOR_MODAL      =FACT(statut='f',min=1,max=1,
8307            MODE_MECA       =SIMP(statut='f',typ=mode_meca),
8308            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**' ),
8309            NB_MODE         =SIMP(statut='f',typ='I',defaut= 9999 ),
8310            REAC_VITE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8311          ),
8312          VARI_COMM           =FACT(statut='f',
8313            regles=(AU_MOINS_UN('IRRA',),),
8314            IRRA     =SIMP(statut='f',typ=evol_varc),
8315          ),
8316          COMP_INCR       =FACT(statut='f',min=1,max='**',
8317            RELATION        =SIMP(statut='o',typ='TXM',defaut="VMIS_ISOT_TRAC",
8318                                  into=( "ELAS",
8319                                         "VMIS_ISOT_TRAC",
8320                                         "VMIS_ISOT_LINE",
8321                                         "VMIS_ECMI_TRAC",
8322                                         "VMIS_ECMI_LINE",
8323                                         "LABORD_1D",
8324                                         "ENDO_FRAGILE",
8325                                         "ENDO_ISOT_BETON",
8326                                         "MAZARS",
8327                                         "RUPT_FRAG",
8328                                         "BARENBLATT",
8329                                         "META_P_IL",
8330                                         "META_P_IL_PT",
8331                                         "META_P_IL_RE",
8332                                         "META_P_IL_PT_RE",
8333                                         "META_V_IL",
8334                                         "META_V_IL_PT",
8335                                         "META_V_IL_RE",
8336                                         "META_V_IL_PT_RE",
8337                                         "META_P_INL",
8338                                         "META_P_INL_PT",
8339                                         "META_P_INL_RE",
8340                                         "META_P_INL_PT_RE",
8341                                         "META_V_INL",
8342                                         "META_V_INL_PT",
8343                                         "META_V_INL_RE",
8344                                         "META_V_INL_PT_RE",
8345                                         "META_P_CL",
8346                                         "META_P_CL_PT",
8347                                         "META_P_CL_RE",
8348                                         "META_P_CL_PT_RE",
8349                                         "META_V_CL",
8350                                         "META_V_CL_PT",
8351                                         "META_V_CL_RE",
8352                                         "META_V_CL_PT_RE",
8353                                         "VMIS_CINE_LINE",
8354                                         "VISC_TAHERI",
8355                                         "CHABOCHE",
8356                                         "VISCOCHAB",
8357                                         "VMIS_CIN1_CHAB",
8358                                         "VMIS_CIN2_CHAB",
8359                                         "POLY_CFC",
8360                                         "LMARC",
8361                                         "ROUSSELIER",
8362                                         "ROUSS_PR",
8363                                         "ROUSS_VISC",
8364                                         "VMIS_POU_LINE",
8365                                         "VMIS_POU_FLEJOU",
8366                                         "COULOMB",
8367                                         "ARME",
8368                                         "ASSE_CORN",
8369                                         "NORTON_HOFF",
8370                                         "LEMAITRE",
8371                                         "ZIRC_CYRA2",
8372                                         "ZIRC_EPRI",
8373                                         "ASSE_COMBU",
8374                                         "VENDOCHAB",
8375                                         "NADAI_B",
8376                                         "DIS_CONTACT",
8377                                         "DIS_CHOC",
8378                                         "DIS_GOUJ2E_PLAS",
8379                                         "DIS_GOUJ2E_ELAS",
8380                                         "GRILLE_ISOT_LINE",
8381                                         "GRILLE_CINE_LINE",
8382                                         "GRILLE_PINTO_MEN",
8383                                         "PINTO_MENEGOTTO",
8384                                         "CJS",
8385                                         "CAM_CLAY",
8386                                         "LAIGLE",
8387                                         "OHNO",
8388                                         "GRANGER_FP",
8389                                         "GRANGER_FP_V",
8390                                         "GRANGER_FD",
8391                                         "BETON_DOUBLE_DP",
8392                                         "KIT_HM",
8393                                         "KIT_HHM",
8394                                         "KIT_THH",
8395                                         "KIT_THM",
8396                                         "KIT_THHM",
8397                                         "VMIS_ASYM_LINE",
8398                                         "ELAS_THM",
8399                                         "SURF_ETAT_NSAT",
8400                                         "SURF_ETAT_SATU",
8401                                         "CAM_CLAY_THM",
8402                                         "KIT_DDI",
8403                                      ) ),
8404            ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8405            VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8406            VMIS_ISOT_LINE  =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8407            VMIS_ECMI_TRAC  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8408            VMIS_ECMI_LINE  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8409            LABORD_1D   =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
8410            ENDO_FRAGILE    =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8411            ENDO_ISOT_BETON =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8412            MAZARS          =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8413            BETON_GRAD_EPSI =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8414            RUPT_FRAG       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8415            BARENBLATT      =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8416            META_P_IL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8417           META_P_IL_PT       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8418           META_P_IL_RE       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8419           META_P_IL_PT_RE    =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8420           META_V_IL          =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8421           META_V_IL_PT       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8422           META_V_IL_RE       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8423           META_V_IL_PT_RE    =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8424           META_P_INL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8425           META_P_INL_PT      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8426           META_P_INL_RE      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8427           META_P_INL_PT_RE   =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8428           META_V_INL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8429           META_V_INL_PT      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8430           META_V_INL_RE      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8431           META_V_INL_PT_RE   =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8432           META_P_CL          =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8433           META_P_CL_PT       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8434           META_P_CL_RE       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8435           META_P_CL_PT_RE    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8436           META_V_CL          =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8437           META_V_CL_PT       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8438           META_V_CL_RE       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8439           META_V_CL_PT_RE    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8440            VMIS_CINE_LINE  =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
8441            CHABOCHE        =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
8442            VISCOCHAB       =SIMP(statut='c',typ='I',defaut=28,into=(28,)),
8443            VMIS_CIN1_CHAB  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8444            VMIS_CIN2_CHAB  =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
8445            POLY_CFC        =SIMP(statut='c',typ='I',defaut=1688,into=(1688,)),
8446            LMARC           =SIMP(statut='c',typ='I',defaut=20,into=(20,)),
8447            VISC_TAHERI     =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
8448            ROUSSELIER      =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
8449            ROUSS_PR        =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8450            ROUSS_VISC      =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8451            VMIS_POU_LINE   =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
8452            VMIS_POU_FLEJOU =SIMP(statut='c',typ='I',defaut=9 ,into=(9,)),
8453            COULOMB         =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8454            ASSE_CORN       =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8455            ARME            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8456            NORTON_HOFF     =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8457            LEMAITRE        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8458            ZIRC_CYRA2      =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8459            ZIRC_EPRI       =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8460            ASSE_COMBU      =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
8461            NADAI_B         =SIMP(statut='c',typ='I',defaut=34,into=(34,)),
8462            VENDOCHAB       =SIMP(statut='c',typ='I',defaut=10,into=(10,)),
8463            GRILLE_ISOT_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8464            GRILLE_CINE_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8465            GRILLE_PINTO_MEN=SIMP(statut='c',typ='I',defaut=16,into=(16,)),
8466            DIS_CONTACT     =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8467            DIS_CHOC        =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
8468            DIS_GOUJ2E_PLAS =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8469            DIS_GOUJ2E_ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8470            PINTO_MENEGOTTO =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8471            CJS             =SIMP(statut='c',typ='I',defaut=16,into=(16,)),
8472            CAM_CLAY        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8473            LAIGLE          =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
8474            OHNO            =SIMP(statut='c',typ='I',defaut=32,into=(32,)),
8475            GRANGER_FP      =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
8476            GRANGER_FP_V    =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
8477            GRANGER_FD       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8478            BETON_DOUBLE_DP =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8479            KIT_HM          =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8480            KIT_HHM         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8481            KIT_THH         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8482            KIT_THM         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8483            KIT_THHM        =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8484            VMIS_ASYM_LINE  =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
8485
8486            RELATION_KIT    =SIMP(statut='f',typ='TXM',max='**',
8487                                  into=(
8488 # MECA
8489                                        "ELAS",
8490                                        "CJS",
8491                                        "LAIGLE",
8492                                        "CAM_CLAY",
8493                                        "ELAS_THM",
8494                                        "SURF_ETAT_NSAT",
8495                                        "SURF_ETAT_SATU",
8496                                        "CAM_CLAY_THM",
8497 # THMC
8498                                        "GAZ",
8499                                        "LIQU_SATU",
8500                                        "LIQU_SATU_GAT",
8501                                        "LIQU_GAZ_ATM",
8502                                        "LIQU_VAPE_GAZ",
8503                                        "LIQU_NSAT_GAT",
8504                                        "LIQU_GAZ",
8505 # THER
8506                                        "THER_HOMO",
8507                                        "THER_POLY",
8508 # HYDR
8509                                        "HYDR_UTIL",
8510                                        "HYDR",
8511 # MECA_META
8512                                        "ACIER",
8513                                        "ZIRC",
8514 # MECA KIT_DDI
8515                                        "VMIS_ISOT_TRAC",
8516                                        "VMIS_ISOT_LINE",
8517                                        "VMIS_ISOT_CINE",
8518                                        "GRANGER_FP",
8519                                        "GRANGER_FP_V",
8520                                        "ROUSSELIER",
8521                                        "CHABOCHE",
8522                                        "OHNO",
8523                                        "NADAI_B",
8524                                        "BETON_DOUBLE_DP",
8525                                        ) ),
8526            ELAS_THM        =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8527            SURF_ETAT_NSAT  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8528            SURF_ETAT_SATU  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8529            CAM_CLAY_THM    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
8530            GAZ             =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8531            LIQU_SATU       =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8532            LIQU_SATU_GAT   =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8533            LIQU_GAZ_ATM    =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8534            LIQU_VAPE_GAZ   =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8535            LIQU_NSAT_GAT   =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8536            LIQU_GAZ        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
8537            THER_HOMO       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8538            THER_POLY       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8539            HYDR_UTIL       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8540            HYDR            =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
8541            ACIER           =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
8542            ZIRC            =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8543
8544            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC","SIMO_MIEHE","GREEN_GR","GREEN",)),
8545            ALGO_C_PLAN     =SIMP(statut='f',typ='TXM',defaut="ANALYTIQUE",into=("DEBORST","ANALYTIQUE",)),
8546       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
8547            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8548            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
8549            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
8550          ),
8551          COMP_ELAS       =FACT(statut='f',min=1,max='**',
8552            RELATION        =SIMP(statut='o',typ='TXM',defaut="ELAS",
8553                                  into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
8554                                        "ELAS_POUTRE_GR","CABLE")),
8555            ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8556            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8557            ELAS_VMIS_LINE  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8558            ELAS_POUTRE_GR  =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
8559            CABLE           =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
8560            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GREEN","GREEN_GR",) ),
8561       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
8562            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8563            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
8564            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
8565          ),
8566 #-------------------------------------------------------------------
8567          ETAT_INIT       =FACT(statut='f',min=1,max=1,
8568            regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','VITE','SIGM','VARI','VARI_NON_LOCAL',),
8569                    EXCLUS('EVOL_NOLI','DEPL',),
8570                    EXCLUS('EVOL_NOLI','VITE'),
8571                    EXCLUS('EVOL_NOLI','SIGM',),
8572                    EXCLUS('EVOL_NOLI','VARI',),
8573                    EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
8574                    EXCLUS('NUME_ORDRE','INST'), ),
8575            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
8576            VITE            =SIMP(statut='f',typ=cham_no_depl_r),
8577            SIGM            =SIMP(statut='f',typ=(cham_elem_sief_r,carte_sief_r)),
8578            VARI            =SIMP(statut='f',typ=cham_elem_vari_r),
8579            VARI_NON_LOCAL  =SIMP(statut='f',typ=cham_no_vanl_r),
8580            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
8581            NUME_ORDRE      =SIMP(statut='f',typ='I'),
8582            INST            =SIMP(statut='f',typ='R'),
8583            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
8584            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8585            NUME_DIDI       =SIMP(statut='f',typ='I'),
8586            INST_ETAT_INIT  =SIMP(statut='f',typ='R'),
8587          ),
8588 #-------------------------------------------------------------------
8589          INCREMENT       =FACT(statut='o',min=1,max=1,
8590            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
8591                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
8592            LIST_INST       =SIMP(statut='o',typ=listr8),
8593            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
8594                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
8595            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
8596            INST_INIT       =SIMP(statut='f',typ='R'),
8597            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
8598            INST_FIN        =SIMP(statut='f',typ='R'),
8599            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
8600            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
8601            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
8602            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8603            OPTI_LIST_INST  =SIMP(statut='f',typ='TXM',into=("INCR_MAXI",),),
8604            NOM_CHAM        =SIMP(statut='f',typ='TXM',),
8605            NOM_CMP         =SIMP(statut='f',typ='TXM',),
8606            VALE            =SIMP(statut='f',typ='R'),
8607          ),
8608 #-------------------------------------------------------------------
8609          NEWMARK         =FACT(statut='f',min=1,max=1,
8610            ALPHA           =SIMP(statut='f',typ='R',defaut= 0.25),
8611            DELTA           =SIMP(statut='f',typ='R',defaut= 0.5),
8612          ),
8613          HHT             =FACT(statut='f',min=1,max=1,
8614            ALPHA           =SIMP(statut='f',typ='R'
8615                                 ,defaut= -0.29999999999999999 ),
8616          ),
8617          NEWTON          =FACT(statut='d',min=1,max=1,
8618            REAC_INCR       =SIMP(statut='f',typ='I',defaut= 1 ),
8619            PREDICTION      =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE") ),
8620            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
8621            REAC_ITER       =SIMP(statut='f',typ='I',defaut= 0),
8622            PAS_MINI_ELAS   =SIMP(statut='f',typ='R',defaut=0.0E+0),
8623          ),
8624          SOLVEUR         =FACT(statut='d',min=1,max=1,
8625            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
8626            b_mult_front    =BLOC(condition= "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
8627              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
8628            ),
8629            b_ldlt          =BLOC(condition= "METHODE == 'LDLT'",fr="Paramètres de la méthode LDLT",
8630              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8631            ),
8632            b_ldlt_mult     =BLOC(condition="METHODE == 'LDLT' or METHODE == 'MULT_FRONT'",
8633                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
8634              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
8635              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","DECOUPE") ),
8636            ),
8637            b_gcpc          =BLOC(condition="METHODE == 'GCPC'",fr="Paramètres de la méthode du gradient conjugué",
8638              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
8639              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
8640              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
8641              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8642              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
8643            ),
8644            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8645            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8646          ),
8647 #-------------------------------------------------------------------
8648          RECH_LINEAIRE   =FACT(statut='f',min=1,max=1,
8649            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
8650            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 3),
8651          ),
8652          PILOTAGE        =FACT(statut='f',min=1,max=1,
8653            regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
8654            TYPE            =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","PRED_ELAS_INCR","DEFORMATION") ),
8655            COEF_MULT       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8656            ETA_PILO_MAX    =SIMP(statut='f',typ='R'),
8657            ETA_PILO_MIN    =SIMP(statut='f',typ='R'),
8658            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8659            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
8660            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
8661            NOEUD           =SIMP(statut='f',typ=no,max='**'),
8662            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
8663            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**' ),
8664                          ),
8665          CONVERGENCE     =FACT(statut='d',min=1,max=1,
8666            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
8667            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
8668            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
8669            ITER_GLOB_ELAS  =SIMP(statut='f',typ='I',defaut=25),
8670            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
8671            RESI_INTE_RELA  =SIMP(statut='f',typ='R'
8672                                 ,defaut= 1.0E-6),
8673            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
8674            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut= 0 ),
8675            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
8676            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
8677                                  into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
8678          ),
8679 #-------------------------------------------------------------------
8680          OPTION          =SIMP(statut='f',typ='TXM',max='**',defaut="ELNO",
8681                                into=("SIEF_ELNO_ELGA","VARI_ELNO_ELGA","EFGE_ELNO_CART","ELNO","SANS") ),
8682          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
8683            regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
8684                    EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
8685            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
8686            INST            =SIMP(statut='f',typ='R',max='**' ),
8687            PAS_ARCH        =SIMP(statut='f',typ='I' ),
8688            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
8689            ARCH_ETAT_INIT  =SIMP(statut='f',typ='TXM',into=("OUI",)),
8690            NUME_INIT       =SIMP(statut='f',typ='I'),
8691            DETR_NUME_SUIV  =SIMP(statut='f',typ='TXM',into=("OUI",)),
8692            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**',
8693            into=("DEPL","SIEF_ELGA","VARI_ELGA","ACCE","VITE","VARI_NON_LOCAL","LANL_ELGA")),
8694          ),
8695          OBSERVATION     =FACT(statut='f',min=1,max='**',
8696            regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
8697                    PRESENT_PRESENT('MAILLE','POINT'),),
8698            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
8699
8700 into=("DEPL","VITE","ACCE","SIEF_ELGA","VARI_ELGA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU") ),
8701            NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
8702            LIST_ARCH       =SIMP(statut='f',typ=listis),
8703            LIST_INST       =SIMP(statut='f',typ=listr8),
8704            INST            =SIMP(statut='f',typ='R',max='**' ),
8705            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
8706            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8707            PAS_OBSE        =SIMP(statut='f',typ='I'),
8708            NOEUD           =SIMP(statut='f',typ=no,max='**'),
8709            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
8710            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
8711            POINT           =SIMP(statut='f',typ='I',max='**'),
8712          ),
8713 #-------------------------------------------------------------------
8714            SOLV_NON_LOCAL  =FACT(statut='f',min=1,max=1,
8715              METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
8716              b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
8717                RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
8718              ),
8719              b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
8720                RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
8721              ),
8722              b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
8723                                     fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
8724                NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
8725                STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8726              ),
8727              b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
8728                PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
8729                NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
8730                RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
8731                NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
8732              ),
8733              EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8734            ),
8735            LAGR_NON_LOCAL  =FACT(statut='f',max=1,
8736              ITER_DUAL_MAXI  =SIMP(statut='f',typ='I',defaut= 50),
8737              RESI_DUAL_ABSO  =SIMP(statut='o',typ='R'),
8738              RESI_PRIM_ABSO  =SIMP(statut='o',typ='R'),
8739              R               =SIMP(statut='f',typ='R',defaut= 1000.),
8740              ITER_PRIM_MAXI  =SIMP(statut='f',typ='I',defaut= 10),
8741            ),
8742 #-------------------------------------------------------------------
8743          PARM_THETA      =SIMP(statut='f',typ='R'
8744                               ,defaut= 1. ),
8745 #-------------------------------------------------------------------
8746          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
8747          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8748 )  ;
8749 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
8750 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8751 # ======================================================================
8752 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8753 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8754 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8755 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8756 # (AT YOUR OPTION) ANY LATER VERSION.
8757 #
8758 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8759 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8760 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8761 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8762 #
8763 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8764 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8765 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8766 # ======================================================================
8767 DYNA_SPEC_MODAL=OPER(nom="DYNA_SPEC_MODAL",op= 147,sd_prod=tabl_intsp,
8768                      fr="Calcul de la réponse par recombinaison modale d'une structure linéaire pour une excitation aléatoire",
8769                      docu="U4.53.23-c",reentrant='n',
8770          BASE_ELAS_FLUI  =SIMP(statut='o',typ=melasflu ),
8771          EXCIT           =FACT(statut='o',min=00,max=01,
8772            INTE_SPEC_GENE  =SIMP(statut='o',typ=tabl_intsp ),
8773          ),
8774          OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
8775          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8776 )  ;
8777 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
8778 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8779 # ======================================================================
8780 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8781 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8782 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8783 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8784 # (AT YOUR OPTION) ANY LATER VERSION.
8785 #
8786 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8787 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8788 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8789 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8790 #
8791 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8792 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8793 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8794 # ======================================================================
8795 DYNA_TRAN_MODAL=OPER(nom="DYNA_TRAN_MODAL",op=  74,sd_prod=tran_gene,
8796                      fr="Réponse dynamique transitoire en coordonnées généralisées par recombinaison modale",
8797                      docu="U4.53.21-f1",reentrant='f',
8798       regles=(EXCLUS('AMOR_REDUIT','AMOR_GENE','LIST_AMOR'),
8799               PRESENT_ABSENT('MODE_STAT','MODE_CORR'),),
8800          METHODE         =SIMP(statut='f',typ='TXM',defaut="EULER",
8801                                into=("EULER","NEWMARK","DEVOGE","ADAPT","ITMI") ),
8802          MASS_GENE       =SIMP(statut='o',typ=matr_asse_gene_r ),
8803          RIGI_GENE       =SIMP(statut='o',typ=matr_asse_gene_r ),
8804          AMOR_GENE       =SIMP(statut='f',typ=matr_asse_gene_r ),
8805          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
8806          LIST_AMOR       =SIMP(statut='f',typ=listr8 ),
8807          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc) ),
8808          MODE_CORR       =SIMP(statut='f',typ=(mult_elas,mode_stat_acce) ,),
8809
8810          ETAT_INIT       =FACT(statut='f',min=01,max=01,
8811            regles=(EXCLUS('RESU_GENE','DEPL_INIT_GENE'),
8812                    EXCLUS('RESU_GENE','VITE_INIT_GENE'),),
8813            RESU_GENE       =SIMP(statut='f',typ=tran_gene ),
8814            b_resu_gene     =BLOC(condition = "RESU_GENE != None",
8815              INST_INIT       =SIMP(statut='f',typ='R' ),
8816              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
8817              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8818            ),
8819            DEPL_INIT_GENE  =SIMP(statut='f',typ=vect_asse_gene ),
8820            VITE_INIT_GENE  =SIMP(statut='f',typ=vect_asse_gene ),
8821          ),
8822          INCREMENT       =FACT(statut='o',min=01,max='**',
8823            INST_INIT       =SIMP(statut='f',typ='R' ),
8824            INST_FIN        =SIMP(statut='o',typ='R' ),
8825            PAS             =SIMP(statut='f',typ='R' ),
8826            VERI_PAS        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8827            VITE_MIN        =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
8828            COEF_MULT_PAS   =SIMP(statut='f',typ='R',defaut= 1.1 ),
8829            COEF_DIVI_PAS   =SIMP(statut='f',typ='R',defaut= 1.3333334 ),
8830            PAS_LIMI_RELA   =SIMP(statut='f',typ='R',defaut= 1.0E-6 ),
8831            NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
8832            NMAX_ITER_PAS   =SIMP(statut='f',typ='I',defaut= 16 ),
8833          ),
8834          ARCHIVAGE       =FACT(statut='f',min=01,max=01,
8835            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH'),),
8836            LIST_ARCH       =SIMP(statut='f',typ=listis ),
8837            PAS_ARCH        =SIMP(statut='f',typ='I' ),
8838          ),
8839
8840          NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 20 ),
8841          RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
8842          LAMBDA          =SIMP(statut='f',typ='R',defaut= 10. ),
8843
8844          EXCIT           =FACT(statut='f',min=01,max='**',
8845            regles=(UN_PARMI('FONC_MULT','COEF_MULT','ACCE'),
8846                    PRESENT_PRESENT('ACCE','VITE','DEPL'),
8847                    PRESENT_PRESENT('D_FONC_DT','D_FONC_DT2'),
8848                    PRESENT_ABSENT('NUME_MODE','VECT_GENE','COEF_MULT'),
8849                    PRESENT_ABSENT('MULT_APPUI','CORR_STAT'),
8850                    PRESENT_ABSENT('MULT_APPUI','COEF_MULT'),
8851                    PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
8852            VECT_GENE       =SIMP(statut='f',typ=vect_asse_gene ),
8853            NUME_MODE       =SIMP(statut='f',typ='I' ),
8854            FONC_MULT       =SIMP(statut='f',typ=fonction ),
8855            COEF_MULT       =SIMP(statut='f',typ='R' ),
8856            ACCE            =SIMP(statut='f',typ=fonction ),
8857            VITE            =SIMP(statut='f',typ=fonction ),
8858            DEPL            =SIMP(statut='f',typ=fonction ),
8859            MULT_APPUI      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8860            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
8861            b_loca          =BLOC(condition= "DIRECTION != None",
8862              regles=(EXCLUS('NOEUD','GROUP_NO'),),
8863              NOEUD           =SIMP(statut='f',typ=no,max='**'),
8864              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
8865            ),
8866            CORR_STAT       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8867            D_FONC_DT       =SIMP(statut='f',typ=fonction ),
8868            D_FONC_DT2      =SIMP(statut='f',typ=fonction ),
8869          ),
8870          CHOC            =FACT(statut='f',min=01,max='**',
8871            regles=(UN_PARMI('NOEUD_1','GROUP_NO_1' ),
8872                    PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
8873                    PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
8874            INTITULE        =SIMP(statut='f',typ='TXM' ),
8875            NOEUD_1         =SIMP(statut='f',typ=no),
8876            NOEUD_2         =SIMP(statut='f',typ=no),
8877            GROUP_NO_1      =SIMP(statut='f',typ=grno),
8878            GROUP_NO_2      =SIMP(statut='f',typ=grno),
8879            OBSTACLE        =SIMP(statut='o',typ=obstacle ),
8880            ORIG_OBST       =SIMP(statut='f',typ='R',min=3,max=3),
8881            NORM_OBST       =SIMP(statut='o',typ='R',min=3,max=3),
8882            ANGL_VRIL       =SIMP(statut='f',typ='R' ),
8883            JEU             =SIMP(statut='f',typ='R',defaut= 1. ),
8884            DIST_1          =SIMP(statut='f',typ='R',val_min=0.E+0 ),
8885            DIST_2          =SIMP(statut='f',typ='R',val_min=0.E+0 ),
8886            SOUS_STRUC_1    =SIMP(statut='f',typ='TXM' ),
8887            SOUS_STRUC_2    =SIMP(statut='f',typ='TXM' ),
8888            REPERE          =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
8889            RIGI_NOR        =SIMP(statut='f',typ='R' ),
8890            AMOR_NOR        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8891            RIGI_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8892            AMOR_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8893            COULOMB         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8894
8895            LAME_FLUIDE     =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8896            b_lame          =BLOC(condition="LAME_FLUIDE=='OUI'",
8897                ALPHA           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8898                BETA            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8899                CHI             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8900                DELTA           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8901            ),
8902          ),
8903          VERI_CHOC       =FACT(statut='f',min=01,max='**',
8904            STOP_CRITERE    =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8905            SEUIL           =SIMP(statut='f',typ='R',defaut= 0.5 ),
8906          ),
8907          FLAMBAGE        =FACT(statut='f',min=01,max='**',
8908            regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
8909                    PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
8910                    PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
8911            NOEUD_1         =SIMP(statut='f',typ=no),
8912            NOEUD_2         =SIMP(statut='f',typ=no),
8913            GROUP_NO_1      =SIMP(statut='f',typ=grno),
8914            GROUP_NO_2      =SIMP(statut='f',typ=grno),
8915            OBSTACLE        =SIMP(statut='o',typ=obstacle ),
8916            ORIG_OBST       =SIMP(statut='f',typ='R',max='**'),
8917            NORM_OBST       =SIMP(statut='o',typ='R',max='**'),
8918            ANGL_VRIL       =SIMP(statut='f',typ='R' ),
8919            JEU             =SIMP(statut='f',typ='R',defaut= 1. ),
8920            DIST_1          =SIMP(statut='f',typ='R' ),
8921            DIST_2          =SIMP(statut='f',typ='R' ),
8922            REPERE          =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
8923            RIGI_NOR        =SIMP(statut='f',typ='R' ),
8924            FNOR_CRIT       =SIMP(statut='f',typ='R' ),
8925            FNOR_POST_FL    =SIMP(statut='f',typ='R' ),
8926            RIGI_NOR_POST_FL=SIMP(statut='f',typ='R' ),
8927          ),
8928          ANTI_SISM       =FACT(statut='f',min=01,max='**',
8929            regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
8930                    UN_PARMI('NOEUD_2','GROUP_NO_2'),
8931                    PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
8932                    PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
8933            NOEUD_1         =SIMP(statut='f',typ=no),
8934            NOEUD_2         =SIMP(statut='f',typ=no),
8935            GROUP_NO_1      =SIMP(statut='f',typ=grno),
8936            GROUP_NO_2      =SIMP(statut='f',typ=grno),
8937            RIGI_K1         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8938            RIGI_K2         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8939            SEUIL_FX        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8940            C               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8941            PUIS_ALPHA      =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8942            DX_MAX          =SIMP(statut='f',typ='R',defaut= 1. ),
8943          ),
8944          RELA_EFFO_DEPL  =FACT(statut='f',min=01,max='**',
8945            NOEUD           =SIMP(statut='o',typ=no),
8946            SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
8947            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
8948            RELATION        =SIMP(statut='o',typ=fonction ),
8949          ),
8950          RELA_TRANSIS    =FACT(statut='f',min=01,max='**',
8951            NOEUD           =SIMP(statut='o',typ=no),
8952            SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
8953            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
8954            RELATION        =SIMP(statut='o',typ=fonction ),
8955          ),
8956          RELA_EFFO_VITE  =FACT(statut='f',min=01,max='**',
8957            NOEUD           =SIMP(statut='o',typ=no),
8958            SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
8959            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
8960            RELATION        =SIMP(statut='o',typ=fonction ),
8961          ),
8962          b_itmi          =BLOC(condition = "METHODE=='ITMI'",
8963                 regles=(ENSEMBLE('BASE_ELAS_FLUI','NUME_VITE_FLUI'),),
8964                 BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu ),
8965                 NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
8966                 ETAT_STAT       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8967                 PREC_DUREE      =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
8968                 CHOC_FLUI       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8969                 NB_MODE         =SIMP(statut='f',typ='I' ),
8970                 NB_MODE_FLUI    =SIMP(statut='f',typ='I' ),
8971                 NB_MODE_DIAG    =SIMP(statut='f',typ='I' ),
8972                 TS_REG_ETAB     =SIMP(statut='f',typ='R' ),
8973          ),
8974          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
8975          IMPRESSION      =FACT(statut='f',min=01,max='**',
8976            regles=(EXCLUS('TOUT','NIVEAU'),),
8977            TOUT            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8978            NIVEAU          =SIMP(statut='f',typ='TXM',into=("DEPL_LOC","VITE_LOC","FORC_LOC","TAUX_CHOC") ),
8979            INST_INIT       =SIMP(statut='f',typ='R' ),
8980            INST_FIN        =SIMP(statut='f',typ='R' ),
8981          ),
8982          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8983  )  ;
8984 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
8985 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8986 # ======================================================================
8987 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8988 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8989 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8990 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8991 # (AT YOUR OPTION) ANY LATER VERSION.
8992 #
8993 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8994 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8995 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8996 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8997 #
8998 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8999 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9000 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9001 # ======================================================================
9002 # RESPONSABLE VABHHTS J.PELLET
9003 ENGENDRE_TEST=PROC(nom="ENGENDRE_TEST",op=178,docu="U4.92.11-b",
9004       regles=(UN_PARMI('TOUT','CO'),),
9005          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
9006          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9007          CO              =SIMP(statut='f',typ=assd,max='**'),
9008          TYPE_TEST       =SIMP(statut='f',typ='TXM',defaut="SOMME",into=("SOMME","RESUME") ),
9009          FORMAT_R        =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
9010          PREC_R          =SIMP(statut='f',typ='TXM',defaut="1.E-5"),
9011 )  ;
9012 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9013 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9014 # ======================================================================
9015 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9016 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9017 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9018 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9019 # (AT YOUR OPTION) ANY LATER VERSION.
9020 #
9021 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9022 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9023 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9024 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9025 #
9026 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9027 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9028 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9029 # ======================================================================
9030 EXEC_LOGICIEL=PROC(nom="EXEC_LOGICIEL",op= 183,fr="",docu="U7.00.01-a",
9031          LOGICIEL        =SIMP(statut='f',typ='TXM' ),
9032          ARGUMENT        =FACT(statut='f',min=01,max='**',
9033            NOM_PARA        =SIMP(statut='f',typ='TXM' ),
9034          ),
9035 )  ;
9036 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9037 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9038 # ======================================================================
9039 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9040 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9041 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9042 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9043 # (AT YOUR OPTION) ANY LATER VERSION.
9044 #
9045 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9046 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9047 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9048 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9049 #
9050 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9051 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9052 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9053 # ======================================================================
9054 #def extr_mode_prod(FILTRE_MODE,TITRE,IMPRESSION ):
9055 #  Sait-on faire
9056 def extr_mode_prod(FILTRE_MODE,**args):
9057   vale=FILTRE_MODE[0]['MODE']
9058   if AsType(vale) == mode_meca   : return mode_meca
9059   if AsType(vale) == mode_meca_c : return mode_meca_c
9060   if AsType(vale) == mode_gene   : return mode_gene
9061   raise AsException("type de concept resultat non prevu")
9062
9063 EXTR_MODE=OPER(nom="EXTR_MODE",op= 168,sd_prod=extr_mode_prod,
9064                docu="U4.52.12-c",reentrant='n',
9065          FILTRE_MODE     =FACT(statut='o',min=01,max='**',
9066            regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','NUME_MODE','NUME_MODE_EXCLU','FREQ_MIN','CRIT_EXTR',),),
9067            MODE            =SIMP(statut='o',typ=(mode_meca,mode_meca_c,mode_gene ) ),
9068            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9069            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
9070            NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
9071            NUME_MODE_EXCLU =SIMP(statut='f',typ='I',max='**'),
9072            FREQ_MIN        =SIMP(statut='f',typ='R' ),
9073            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN"
9074                                   ,into=("MASS_EFFE_UN","MASS_GENE") ),
9075            b_freq_min      =BLOC(condition = "FREQ_MIN != None",
9076              FREQ_MAX        =SIMP(statut='o',typ='R' ),
9077              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9078            ),
9079            b_crit_extr     =BLOC(condition = "CRIT_EXTR != None",
9080              SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9081            ),
9082          ),
9083          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9084          IMPRESSION      =FACT(statut='f',min=01,max=01,
9085            CUMUL           =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9086            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",into=("MASS_EFFE_UN","MASS_GENE") ),
9087          ),
9088 )  ;
9089 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
9090 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9091 # ======================================================================
9092 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9093 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9094 #              REDISTRIBUTION OF THIS FILE.
9095 # ======================================================================
9096 def extr_resu_prod(RESULTAT,**args):
9097   if AsType(RESULTAT) == evol_elas    : return evol_elas
9098   if AsType(RESULTAT) == evol_noli    : return evol_noli
9099   if AsType(RESULTAT) == evol_ther    : return evol_ther
9100   if AsType(RESULTAT) == dyna_trans   : return dyna_trans
9101   if AsType(RESULTAT) == dyna_harmo   : return dyna_harmo
9102   if AsType(RESULTAT) == acou_harmo   : return acou_harmo
9103   if AsType(RESULTAT) == mode_meca    : return mode_meca
9104   if AsType(RESULTAT) == mode_acou    : return mode_acou
9105   if AsType(RESULTAT) == mode_stat :    return mode_stat
9106   if AsType(mode_stat) == mode_stat_depl :    return mode_stat_depl
9107   if AsType(mode_stat) == mode_stat_acce :    return mode_stat_acce
9108   if AsType(mode_stat) == mode_stat_forc :    return mode_stat_forc
9109   if AsType(RESULTAT) == mult_elas    : return mult_elas
9110   if AsType(RESULTAT) == fourier_elas : return fourier_elas
9111   raise AsException("type de concept resultat non prevu")
9112
9113 EXTR_RESU=OPER(nom="EXTR_RESU",op=176,sd_prod=extr_resu_prod,docu="U4.71.04-c2",reentrant='f',
9114          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
9115                                                mode_acou,mode_stat_depl,mode_stat_acce,mode_stat_forc,evol_ther,evol_noli,
9116                                                mult_elas,fourier_elas ) ),
9117
9118          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
9119                                    fr="Liste des paramètres de sensibilité.",
9120                                    ang="List of sensitivity parameters"),
9121
9122          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
9123            regles=(  UN_PARMI('NUME_ORDRE', 'INST', 'FREQ', 'NUME_MODE',
9124                         'NOEUD_CMP', 'LIST_INST', 'LIST_FREQ', 'LIST_ORDRE',
9125                         'NOM_CAS', 'LIST_ARCH', 'PAS_ARCH' ),
9126                      EXCLUS( 'CHAM_EXCLU','NOM_CHAM' ),   ),
9127            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**'),
9128            NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
9129            PRECISION       =SIMP(statut='f',typ='R',defaut=1.E-3 ),
9130            CRITERE         =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),defaut="RELATIF"),
9131            LIST_ARCH       =SIMP(statut='f',typ=listis),
9132            PAS_ARCH        =SIMP(statut='f',typ='I'),
9133            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
9134            LIST_ORDRE      =SIMP(statut='f',typ=listis),
9135            INST            =SIMP(statut='f',typ='R',max='**'),
9136            LIST_INST       =SIMP(statut='f',typ=listr8),
9137            FREQ            =SIMP(statut='f',typ='R',max='**'),
9138            LIST_FREQ       =SIMP(statut='f',typ=listr8),
9139            NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
9140            NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
9141            NOM_CAS         =SIMP(statut='f',typ='TXM'),
9142                                ),
9143
9144          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
9145 )  ;
9146 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9147 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9148 # ======================================================================
9149 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9150 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9151 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9152 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9153 # (AT YOUR OPTION) ANY LATER VERSION.
9154 #
9155 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9156 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9157 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9158 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9159 #
9160 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9161 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9162 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9163 # ======================================================================
9164 def fact_grad_prod(MATR_ASSE,**args):
9165   if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
9166   if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
9167   if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
9168   raise AsException("type de concept resultat non prevu")
9169
9170 FACT_GRAD=OPER(nom="FACT_GRAD",op=85,sd_prod=fact_grad_prod,docu="U4.55.03-e",
9171                fr="Préconditionnement pour résolution par gradient conjugué",
9172                reentrant='n',
9173          MATR_ASSE       =SIMP(statut='o',
9174                                typ=(matr_asse_depl_r,matr_asse_temp_r,
9175                                     matr_asse_pres_r) ),
9176          PRE_COND        =SIMP(statut='f',typ='TXM',defaut="LDLT_INC",into=("LDLT_INC",) ),
9177          NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
9178          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
9179 )  ;
9180 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9181 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9182 # ======================================================================
9183 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9184 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9185 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9186 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9187 # (AT YOUR OPTION) ANY LATER VERSION.
9188 #
9189 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9190 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9191 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9192 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9193 #
9194 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9195 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9196 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9197 # ======================================================================
9198 FACT_INTE_SPEC=OPER(nom="FACT_INTE_SPEC",op= 117,sd_prod=interspfact,
9199                     fr="Factorisation d une matrice interspectrale hermitienne",
9200                     docu="U4.36.04-e",reentrant='n',
9201          regles=(ENSEMBLE('FREQ_FIN','NB_POIN'),),
9202 #  regle non indiquée dans la doc U
9203          INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
9204          NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
9205          FREQ_INIT       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9206          FREQ_FIN        =SIMP(statut='f',typ='R' ),
9207          NB_POIN         =SIMP(statut='f',typ='I',defaut= 0 ),
9208          SUR_ECHAN       =SIMP(statut='f',typ='R',defaut= 1. ),
9209          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9210 )  ;
9211 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
9212 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9213 # ======================================================================
9214 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9215 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9216 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9217 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9218 # (AT YOUR OPTION) ANY LATER VERSION.
9219 #
9220 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9221 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9222 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9223 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9224 #
9225 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9226 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9227 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9228 # ======================================================================
9229 # RESPONSABLE VABHHTS J.PELLET
9230 def fact_ldlt_prod(MATR_ASSE,**args):
9231   if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
9232   if AsType(MATR_ASSE) == matr_asse_depl_c : return matr_asse_depl_c
9233   if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
9234   if AsType(MATR_ASSE) == matr_asse_temp_c : return matr_asse_temp_c
9235   if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
9236   if AsType(MATR_ASSE) == matr_asse_pres_c : return matr_asse_pres_c
9237   raise AsException("type de concept resultat non prevu")
9238
9239 FACT_LDLT=OPER(nom="FACT_LDLT",op=14,sd_prod=fact_ldlt_prod,fr="Factorisation en place ou hors place",
9240                docu="U4.55.01-f",reentrant='f',
9241          regles=(EXCLUS('BLOC_DEBUT','DDL_DEBUT'),
9242                  EXCLUS('BLOC_FIN','DDL_FIN'),),
9243          MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
9244                                                matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
9245          STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9246          NPREC           =SIMP(statut='f',typ='I',defaut=8,val_min=0,),
9247          PRE_COND        =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","DIAG") ),
9248          BLOC_DEBUT      =SIMP(statut='f',typ='I',val_min=1,),
9249          DDL_DEBUT       =SIMP(statut='f',typ='I',val_min=1,),
9250          BLOC_FIN        =SIMP(statut='f',typ='I',val_min=1,),
9251          DDL_FIN         =SIMP(statut='f',typ='I',val_min=1,),
9252 #
9253          EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9254 #
9255          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9256          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
9257 )  ;
9258 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9259 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9260 # ======================================================================
9261 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9262 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9263 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9264 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9265 # (AT YOUR OPTION) ANY LATER VERSION.
9266 #
9267 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9268 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9269 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9270 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9271 #
9272 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9273 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9274 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9275 # ======================================================================
9276 # NEW 5.3.23
9277 FERMER=PROC(nom="FERMER",op=  10,fr=" ",
9278             docu="U4.12.02-a",
9279          UNITE           =SIMP(statut='o',typ='I',max='**' ),
9280 )  ;
9281 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9282 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9283 # ======================================================================
9284 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9285 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9286 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9287 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9288 # (AT YOUR OPTION) ANY LATER VERSION.
9289 #
9290 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9291 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9292 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9293 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9294 #
9295 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9296 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9297 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9298 # ======================================================================
9299 FIN=PROC(nom="FIN",op=9999,repetable='n',fr="Fin d'une étude",
9300          docu="U4.11.02-f",
9301          RETASSAGE       =SIMP(fr="provoque le retassage de la base GLOBALE",
9302                                statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
9303          PERFORMANCE     =SIMP(fr="provoque l'impression d'un résumé des mesures de temps ",
9304                                statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
9305          INFO_RESU       =SIMP(fr="provoque l'impression des informations sur les structures de données",
9306                                statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
9307          FICHIER         =SIMP(statut='f',typ='TXM',defaut="MESSAGE"),
9308 )  ;
9309 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9310 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9311 # ======================================================================
9312 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9313 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9314 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9315 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9316 # (AT YOUR OPTION) ANY LATER VERSION.
9317 #
9318 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9319 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9320 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9321 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9322 #
9323 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9324 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9325 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9326 # ======================================================================
9327 FONC_FLUI_STRU=OPER(nom="FONC_FLUI_STRU",op= 169,sd_prod=fonction,
9328                     docu="U4.35.02-c",reentrant='n',
9329          TYPE_FLUI_STRU  =SIMP(statut='o',typ=(type_flui_stru) ),
9330 )  ;
9331 #& MODIF COMMANDE  DATE 17/09/2001   AUTEUR MCOURTOI M.COURTOIS
9332 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9333 # ======================================================================
9334 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9335 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9336 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9337 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9338 # (AT YOUR OPTION) ANY LATER VERSION.
9339 #
9340 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9341 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9342 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9343 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9344 #
9345 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9346 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9347 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9348 # ======================================================================
9349 FORMULE = FORM( nom='FORMULE',op=-5,sd_prod=fonction,
9350                 fr="Définition d une fonction",reentrant = 'n',
9351                 regles=(UN_PARMI('REEL','ENTIER','COMPLEXE'),),
9352                 REEL = SIMP(typ = 'shell',max=1),
9353                 ENTIER = SIMP(typ = 'shell',max=1),
9354                 COMPLEXE = SIMP(typ = 'shell',max=1),
9355 ) ;
9356 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9357 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9358 # ======================================================================
9359 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9360 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9361 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9362 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9363 # (AT YOUR OPTION) ANY LATER VERSION.
9364 #
9365 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9366 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9367 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9368 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9369 #
9370 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9371 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9372 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9373 # ======================================================================
9374 GENE_FONC_ALEA=OPER(nom="GENE_FONC_ALEA",op= 118,sd_prod=tabl_fonc,
9375                     fr="Génération de la fonction temporelle à partir d une matrice interspectrale factorisée",
9376                     docu="U4.36.05-e",reentrant='n',
9377          INTE_SPEC_FACT  =SIMP(statut='o',typ=interspfact ),
9378          INIT_ALEA       =SIMP(statut='f',typ='I',defaut= 12312745 ),
9379          NB_TIRAGE       =SIMP(statut='f',typ='I',defaut= 1 ),
9380          NB_POIN         =SIMP(statut='f',typ='I' ),
9381          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
9382 )  ;
9383 #& MODIF COMMANDE  DATE 16/07/2002   AUTEUR VABHHTS J.PELLET
9384 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9385 # ======================================================================
9386 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
9387 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9388 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9389 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9390 # (AT YOUR OPTION) ANY LATER VERSION.
9391 #
9392 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9393 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9394 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9395 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9396 #
9397 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9398 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9399 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9400 # ======================================================================
9401 GENE_MATR_ALEA=OPER(nom="GENE_MATR_ALEA",op=  27,sd_prod=matr_asse_gene_r,
9402                fr="Generateur de matrice aleatoire",
9403                docu="U4.36.06",reentrant='n',
9404    MATR_MOYEN   = SIMP(statut='o', typ=matr_asse_gene_r),
9405    DELTA        = SIMP(statut='f', typ='R', defaut=0.1),
9406    INIT         = SIMP(statut='f', typ='TXM', into=("OUI","NON"),defaut="NON"),
9407 ) ;
9408
9409 #& MODIF COMMANDE  DATE 16/07/2002   AUTEUR VABHHTS J.PELLET
9410 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9411 # ======================================================================
9412 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
9413 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9414 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9415 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9416 # (AT YOUR OPTION) ANY LATER VERSION.
9417 #
9418 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9419 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9420 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9421 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9422 #
9423 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9424 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9425 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9426 # ======================================================================
9427 GENE_VARI_ALEA=OPER(nom="GENE_VARI_ALEA",op=  28,sd_prod=table,
9428                fr="Generateur de variable aleatoire",
9429                docu="U4.36.07",reentrant='n',
9430    TYPE       = SIMP(statut='f', typ='TXM', into=("EXP_TRONQUEE", "EXPONENTIELLE", "GAMMA"), defaut="EXP_TRONQUEE"),
9431    VALE_MOY   = SIMP(statut='f', typ='R', defaut=0.),
9432    DELTA      = SIMP(statut='f', typ='R', defaut=0.1),
9433    A          = SIMP(statut='f', typ='R', defaut=-1.),
9434    B          = SIMP(statut='f', typ='R', defaut=1.),
9435    INIT       = SIMP(statut='f', typ='TXM', into=("OUI","NON"),defaut="NON"),
9436 ) ;
9437
9438 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9439 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9440 # ======================================================================
9441 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9442 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9443 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9444 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9445 # (AT YOUR OPTION) ANY LATER VERSION.
9446 #
9447 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9448 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9449 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9450 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9451 #
9452 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9453 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9454 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9455 # ======================================================================
9456 IMPR_CHARGE=PROC(nom="IMPR_CHARGE",op= 158,
9457                  fr="Impression des charges mécaniques de type ddl imposés et relations linéaires entre les ddl",
9458                  docu="U7.04.31-c",
9459          FICHIER         =SIMP(statut='f',typ='TXM' ),
9460          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",) ),
9461          VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
9462          CHARGE          =SIMP(statut='o',typ=char_meca,max='**', ),
9463 )  ;
9464 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9465 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9466 # ======================================================================
9467 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9468 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9469 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9470 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9471 # (AT YOUR OPTION) ANY LATER VERSION.
9472 #
9473 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9474 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9475 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9476 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9477 #
9478 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9479 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9480 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9481 # ======================================================================
9482 IMPR_CLASSI=PROC(nom="IMPR_CLASSI",op= 114,docu="U7.04.21-a",
9483          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ',
9484                         'LIST_ORDRE' ),),
9485          UNITE_CLASSI    =SIMP(statut='o',typ='I' ),
9486          MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
9487          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9488          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
9489          LIST_ORDRE      =SIMP(statut='f',typ=listis ),
9490          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
9491          FREQ            =SIMP(statut='f',typ='R',max='**'),
9492          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
9493          b_prec_crit     =BLOC(condition = "LIST_FREQ != None or FREQ != None",
9494              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9495              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
9496                                    into=("RELATIF","ABSOLU") ),
9497          ),
9498          IMPRESSION      =FACT(statut='f',min=01,max='**',
9499            regles=(UN_PARMI('NOEUD','GROUP_NO', ),),
9500            NOEUD           =SIMP(statut='f',typ=no,max='**'),
9501            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
9502            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
9503          ),
9504          AMOR            =SIMP(statut='o',typ='R',max='**'),
9505 )  ;
9506 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
9507 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9508 # ======================================================================
9509 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9510 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9511 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9512 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9513 # (AT YOUR OPTION) ANY LATER VERSION.
9514 #
9515 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9516 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9517 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9518 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9519 #
9520 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9521 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9522 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9523 # ======================================================================
9524 # RESPONSABLE VABHHTS J.PELLET
9525 IMPR_CO=PROC(nom="IMPR_CO",op=17,docu="U4.91.11-f",
9526              fr="Impression du contenu d un concept utilisateur (pour développeur)",
9527          regles=(UN_PARMI('CO','CHAINE', ),),
9528          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
9529          NIVEAU          =SIMP(statut='f',typ='I',defaut=2,into=(0,1,2) ),
9530          ATTRIBUT        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","OUI") ),
9531          CONTENU         =SIMP(statut='f',typ='TXM',defaut="OUI",into=("NON","OUI") ),
9532          BASE            =SIMP(statut='f',typ='TXM',defaut="G",into=("","G","V","L") ),
9533          CO              =SIMP(statut='f',typ=assd,max='**'),
9534          CHAINE          =SIMP(statut='f',typ='TXM'),
9535          POSITION        =SIMP(statut='f',typ='I',defaut=1),
9536 )  ;
9537 #& MODIF COMMANDE  DATE 06/03/2002   AUTEUR MCOURTOI M.COURTOIS
9538 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9539 # ======================================================================
9540 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9541 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9542 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9543 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9544 # (AT YOUR OPTION) ANY LATER VERSION.
9545 #
9546 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9547 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9548 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9549 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9550 #
9551 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9552 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9553 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9554 # ======================================================================
9555 # RESPONSABLE MCOURTOI M.COURTOIS
9556 IMPR_COURBE=PROC(nom="IMPR_COURBE",op= 141,fr="Impression, sur fichiers",
9557                  docu="U4.33.01-e2",
9558          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
9559          FORMAT          =SIMP(statut='f',typ='TXM',position='global'
9560                               ,into=("AGRAF","EXCEL","POSTSCRIPT","RESULTAT","COMMANDE","SEISME") ),
9561          b_agraf_post =BLOC(condition = "(FORMAT=='AGRAF') or (FORMAT=='POSTSCRIPT')",fr="Mots-clés communs AGRAF et POSTCRIPT",
9562            BORNE_X         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des abcisses"),
9563            ECHELLE_X       =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),fr="Type d'échelle pour les abcisses" ),
9564            BORNE_Y         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des ordonnées"),
9565            ECHELLE_Y       =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),fr="Type d'échelle pour les ordonnées" ),
9566          ),
9567          b_agraf =BLOC(condition = "(FORMAT=='AGRAF')",fr="Mots-clés propres à AGRAF",
9568            TITRE_GRAPHIQUE =SIMP(statut='f',typ='TXM',fr="Titre associé au graphique" ),
9569            COMMENTAIRE     =SIMP(statut='f',typ='TXM',max='**',fr="Commentaires associés au graphique"),
9570            LEGENDE_X       =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des abcisses" ),
9571            LEGENDE_Y       =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des ordonnées" ),
9572            FREQ_GRILLE_X   =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence de tracage du quadrillage vertical" ),
9573            FREQ_GRILLE_Y   =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence de tracage du quadrillage horizontal" ),
9574          ),
9575          b_excel = BLOC(condition = "(FORMAT=='EXCEL')",fr="Mots-clés propres au format Excel",
9576            BORNE_X         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des abcisses"),
9577            BORNE_Y         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des ordonnées"),
9578          ),
9579          b_post = BLOC (  condition = "(FORMAT=='POSTSCRIPT')",fr="Mots-clés propres à POSTCRIPT",
9580            TITRE           =SIMP(statut='f',typ='TXM',fr="Titre associé au graphique" ),
9581            LABEL_X         =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des abcisses" ),
9582            LABEL_Y         =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des ordonnées" ),
9583            SORTIE          =SIMP(statut='f',typ='TXM',defaut="COULEUR",into=("MONOCHROME","COULEUR"),fr="Type d impression" ),
9584            DATE            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de la date" ),
9585            GRILLE          =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression du quadrillage" ),
9586            AXE_ZERO_X      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de l axe x égal zéro" ),
9587            AXE_ZERO_Y      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de l axe y égal zéro" ),
9588            PRESENTATION    =SIMP(statut='f',typ='TXM',defaut="PAYSAGE",into=("PAYSAGE","PORTRAIT"),
9589                                  fr="Disposition du graphique sur la feuille" ),
9590            FENETRE         =SIMP(statut='f',typ='TXM',defaut="RECTANGLE",into=("CARREE","RECTANGLE"),
9591                                  fr="Forme de la fenetre contenant le graphique" ),
9592          ),
9593          COURBE          =FACT(statut='o',min=01,max='**',fr="Définition de la courbe à tracer",
9594            regles=(UN_PARMI('FONCTION','LIST_RESU','TABLE','FONC_X','RESU_GENE'),),
9595            FONCTION        =SIMP(statut='f',typ=(fonction, fonction_c),
9596                                  fr="Fonction réelle ou complexe", ),
9597            LIST_RESU       =SIMP(statut='f',typ=listr8,
9598                                  fr="Liste des ordonnees d une fonction réelle définie par deux listes", ),
9599 #  creer le type table
9600            TABLE           =SIMP(statut='f',typ=table,
9601                                  fr="Nom de la table dont 2 colonnes définissent la fonction",),
9602            FONC_X          =SIMP(statut='f',typ=fonction,
9603                                  fr="Fonction abscisses d une fonction paramétrique",),
9604            RESU_GENE       =SIMP(statut='f',typ=tran_gene, ),
9605            b_fonction      =BLOC(condition = "FONCTION != None",
9606              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
9607            ),
9608            b_fonction_c  =BLOC(condition = "AsType(FONCTION) == fonction_c",
9609                                  fr="Fonction complexe définie par le mot-clé fonction",
9610              PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
9611            ),
9612            b_list_resu     =BLOC(condition = "LIST_RESU != None",
9613              LIST_PARA       =SIMP(statut='o',typ=listr8 ),
9614            ),
9615            b_table         =BLOC(condition = "TABLE != None",
9616              PARA_X          =SIMP(statut='o',typ='TXM',
9617                                    fr="Paramètre de la table associé aux abcisses de la fonction à tracer" ),
9618              PARA_Y          =SIMP(statut='o',typ='TXM',
9619                                    fr="Paramètre de la table associé aux ordonnées de la fonction à tracer" ),
9620            ),
9621            b_fonc_x        =BLOC(condition = "FONC_X != None",
9622              FONC_Y          =SIMP(statut='o',typ=fonction,fr="Fonction ordonnées d une fonction paramétrique" ),
9623              PARA            =SIMP(statut='f',typ='TXM',defaut="FONC_X",into=("FONC_X","FONC_Y"),
9624                                    fr="Permutation des roles des deux fonctions" ),
9625              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
9626            ),
9627            b_resu_gene     =BLOC(condition = "RESU_GENE != None",
9628              regles=(UN_PARMI('NOEUD_CHOC','GROUP_NO_CHOC'),),
9629              NOEUD_CHOC      =SIMP(statut='f',typ=no),
9630              GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
9631              PARA_X          =SIMP(statut='o',typ='TXM'),
9632              PARA_Y          =SIMP(statut='o',typ='TXM'),
9633              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
9634              SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
9635              INTITULE        =SIMP(statut='f',typ='TXM' ),
9636            ),
9637
9638
9639            LEGENDE         =SIMP(statut='f',typ='TXM',fr="Légende associée à la courbe" ),
9640            STYLE           =SIMP(statut='f',typ='TXM',defaut="LIGNE",fr="Style de la ligne représentant la courbe",
9641                                  into=("LIGNE","POINTILLE","POINT","POINT_RELIE") ),
9642            COULEUR         =SIMP(statut='f',typ='TXM',fr="Couleur associée à la courbe",
9643                                  into=("NOIR","ROUGE","VERT_FONCE","BLEU",
9644                                        "MAGENTA","CYAN","VERT","SIENNE","ORANGE",
9645                                        "POURPRE","JAUNE","DAIM","TURQUOISE","VIOLET",
9646                                        "BRUN","CORAIL","MARRON","MAUVE","MARRON_CLAIR") ),
9647            MARQUEUR        =SIMP(statut='f',typ='TXM',fr="Type du marqueur associé à la courbe",
9648                                  into=("POINT_F","CARRE_F","TRIANGLE_F",
9649                                        "LOSANGE_F","ETOILE_F","FUSEE_F","POINT",
9650                                        "CARRE","TRIANGLE","LOSANGE","ETOILE","FUSEE",
9651                                        "PLUS","X","CERCLE","CERCLE_P","CARRE_P",
9652                                        "LOSANGE_P","CERCLE_P_X","LOSANGE_P_X",
9653                                        "CERCLE_X","CARRE_X","LOSANGE_X") ),
9654             b_agraf =BLOC(condition = "(FORMAT=='AGRAF')",fr="Mots-clés propres à AGRAF",
9655               TRI             =SIMP(statut='f',typ='TXM',defaut="N",
9656                                     fr="Choix du tri effectué sur les abcisses ou sur les ordonnées",
9657                                     into=("N","X","Y","XY","YX") ),
9658               FREQ_MARQUEUR   =SIMP(statut='f',typ='I',defaut= 0,
9659                                     fr="Fréquence d impression du marqueur associé à la courbe", ),
9660             ),
9661          ),
9662 )  ;
9663 #& MODIF COMMANDE  DATE 05/03/2002   AUTEUR GNICOLAS G.NICOLAS
9664 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9665 # ======================================================================
9666 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9667 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9668 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9669 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9670 # (AT YOUR OPTION) ANY LATER VERSION.
9671 #
9672 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9673 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9674 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9675 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9676 #
9677 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9678 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9679 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9680 # ======================================================================
9681 # RESPONSABLE GNICOLAS G.NICOLAS
9682 IMPR_FICO_HOMA=PROC(nom="IMPR_FICO_HOMA",op= 189, docu="U7.04.01-b2",
9683                     fr="Imprime le fichier de configuration de HOMARD.",
9684                     ang="Writes the configuration file for HOMARD.",
9685 #
9686 # 1. Le niveau d'information
9687 #
9688          INFO           = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
9689 #
9690 # 2. LE REPERTOIRE OU AURA LIEU LE CALCUL HOMARD
9691 #
9692          REP             =SIMP(statut='f',typ='TXM'),
9693 #
9694 # 3. Langue des messages issus de HOMARD
9695 #
9696          LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
9697                                into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
9698                            fr="Langue des messages issus de HOMARD.",
9699                            ang="Language for HOMARD messages." ),
9700 #
9701 # 4. L'UNITE LOGIQUE D'ECRITURE DU FICHIER DE CONFIGURATION HOMARD
9702 #
9703          UNITE           =SIMP(statut='f',typ='I',defaut= 71 ),
9704 #
9705 # 5. LE TYPE DE TRAITEMENT :
9706 #
9707          TRAITEMENT      =FACT(statut='o',min=01,max=01,
9708 #
9709 # 5.1. QUATRE CHOIX EXCLUSIFS :
9710 #
9711 # 5.1.1.
9712 #      A. ADAPTATION PAR UN INDICATEUR D'ERREUR, AVEC TROIS VARIANTES :
9713 #         . RAFFINEMENT ET DERAFFINEMENT
9714 #         . RAFFINEMENT SEUL
9715 #         . DERAFFINEMENT SEUL
9716 #      B. ADAPTATION UNIFORME, AVEC DEUX VARIANTES :
9717 #         . RAFFINEMENT SEUL
9718 #         . DERAFFINEMENT SEUL
9719 #         . RIEN : LE MAILLAGE EST LE MEME A LA SORTIE ET A L'ENTREE
9720 #      C. INFORMATION SUR UN MAILLAGE
9721 #      D. MISE A JOUR DE SOLUTIONS
9722 #
9723            regles=( UN_PARMI('ADAPTATION','UNIFORME','INFORMATION','MAJSOLUTION'),),
9724            ADAPTATION      =SIMP(statut='f',typ='TXM',
9725                                  fr="Adaptation libre",
9726                                  ang="Free adaptation",
9727                                  into=("RAFFINEMENT","DERAFFINEMENT","RAFF_DERA") ),
9728            UNIFORME        =SIMP(statut='f',typ='TXM',
9729                                  fr="Adaptation uniforme",
9730                                  ang="Uniforme adaptation",
9731                                  into=("RAFFINEMENT","DERAFFINEMENT","RIEN") ),
9732            INFORMATION     =SIMP(statut='f',typ='TXM',
9733                                  fr="Adaptation libre",
9734                                  ang="Free adaptation",
9735                                  into=("OUI",) ),
9736            MAJSOLUTION     =SIMP(statut='f',typ='TXM',
9737                                  fr="Mise à jour de solutions",
9738                                  ang="Solution updating",
9739                                  into=("OUI",) ),
9740 #
9741 # 5.1.2. LES CONTRAINTES :
9742 #
9743 # 5.1.2.1. POUR DE L'ADAPTATION LIBRE, IL FAUT :
9744 #      A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
9745 #      B. LE NOM MED DU MAILLAGE D'ENTREE
9746 #      C. LE NOM MED DE L'INDICATEUR D'ERREUR
9747 #      D. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
9748 #      E. LA MISE A JOUR DE SOLUTION
9749 #      F. LE NOM MED DU MAILLAGE DE SORTIE
9750 #      REMARQUE : IL FAUT DES CRITERES, MAIS ON NE SAIT PAS LESQUELS
9751 #
9752 # 5.1.2.2. POUR DE L'ADAPTATION UNIFORME
9753 #          IL FAUT :
9754 #      A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
9755 #      B. LE NOM MED DU MAILLAGE DE SORTIE
9756 #          IL NE FAUT PAS :
9757 #      A. LE NOM MED DE L'INDICATEUR D'ERREUR
9758 #      B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
9759 #      C. LES CRITERES
9760 #      REMARQUE : A L'ITERATION 0, OU AUX ITERATIONS SUIVANTES SI MAJ DE SOLUTION,
9761 #                 IL FAUT LE NOM MED DU MAILLAGE D'ENTREE
9762 #
9763 # 5.1.2.3. POUR DE LA MISE A JOUR DE SOLUTION :
9764 #          IL FAUT :
9765 #      A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
9766 #      B. LE NOM MED DU MAILLAGE D'ENTREE
9767 #          IL NE FAUT PAS :
9768 #      A. LE NOM MED DE L'INDICATEUR D'ERREUR
9769 #      B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
9770 #      C. LES CRITERES
9771 #
9772 #
9773 # 5.1.2.4. POUR DE L'INFORMATION :
9774 #          IL FAUT :
9775 #      A. LE NOM MED DU MAILLAGE D'ENTREE
9776 #          IL NE FAUT PAS :
9777 #      A. LE NOM MED DE L'INDICATEUR D'ERREUR
9778 #      B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
9779 #      C. LES CRITERES
9780 #      D. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
9781 #      E. LA MISE A JOUR DE SOLUTION
9782 #
9783            b_maillage_initial =BLOC(condition = "( INFORMATION != None ) or ( ADAPTATION != None ) or \
9784                                                  ( MAJSOLUTION != None ) ",
9785                            fr="Nom MED du maillage en entrée",
9786                            ang="MED name of the in-mesh",
9787                            NOM_MED_MAILLAGE_N   =SIMP(statut='o',typ='TXM',),
9788                            ) ,
9789 #
9790            b_maillage_initial_uniforme =BLOC(condition = "( UNIFORME != None ) ",
9791                            fr="Nom MED du maillage en entrée",
9792                            ang="MED name of the in-mesh",
9793                            NOM_MED_MAILLAGE_N   =SIMP(statut='f',typ='TXM',),
9794                            ) ,
9795 #
9796            b_iteration_maj_champ =BLOC(condition = "( UNIFORME != None ) or ( ADAPTATION != None ) or \
9797                                                     ( MAJSOLUTION != None ) ",
9798                            fr="Nom MED du maillage en sortie, numero d'iteration et mise à jour de champs",
9799                            ang="MED name of the out-mesh, iteration rank and field updating",
9800                            NITER                =SIMP(statut='o',typ='I',
9801                            fr="Numéro d'itération.",
9802                            ang="Iteration number." ),
9803                            NOM_MED_MAILLAGE_NP1 =SIMP(statut='o',typ='TXM',
9804                            fr="Nom MED du maillage en sortie",
9805                            ang="MED name of the out-mesh" ),
9806                            MAJ_CHAM             =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
9807                            fr="Mise à jour de champs",
9808                            ang="Field updating" ),
9809                            ) ,
9810 #
9811            b_indicateur_d_erreur  =BLOC(condition = "ADAPTATION != None",
9812                            fr="Indicateur d'erreur",
9813                            ang="Error indicator",
9814                            regles=(AU_MOINS_UN('NUMORD_INDICA','NOM_RESU_INDICA'),
9815                                    EXCLUS('NUMORD_INDICA','NOM_RESU_INDICA'),
9816                                    PRESENT_PRESENT('NUMORD_INDICA','NUMPT_INDICA'),
9817                                    PRESENT_PRESENT('NOM_RESU_INDICA','NOM_CHAM_INDICA'),),
9818                            NOM_MED_INDICA  =SIMP(statut='o',typ='TXM',
9819                            fr="Nom MED de l'indicateur d'erreur.",
9820                            ang="MED name of error indicator.",),
9821                            NOM_CMP_INDICA  =SIMP(statut='o',typ='TXM',
9822                            fr="Nom de la composante de l'indicateur d'erreur retenue.",
9823                            ang="Name of the selected component of the error indicator.",),
9824                            NUMORD_INDICA  =SIMP(statut='f',typ='I',
9825                            fr="Numero d'ordre de l'indicateur.",
9826                            ang="Rank number of the error indicator.",),
9827                            NUMPT_INDICA  =SIMP(statut='f',typ='I',
9828                            fr="Numero du pas de temps de l'indicateur.",
9829                            ang="Time step number of the error indicator.",),
9830                            NOM_RESU_INDICA  =SIMP(statut='f',typ='TXM',
9831                            fr="Concept contenant l'indicateur.",
9832                            ang="Conceipt wich contains the error indicator.",),
9833                            NOM_CHAM_INDICA  =SIMP(statut='f',typ='TXM',
9834                            fr="Nom du champ dans le résultat de l'indicateur.",
9835                            ang="Name of the field of the error indicator.",),
9836                            ) ,
9837 #
9838            b_critere_de_raffinement =BLOC( condition = "( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'RAFFINEMENT' )" ,
9839                            fr="Critère de raffinement.",
9840                            ang="Refinement threshold.",
9841                            regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE' ),),
9842                            CRIT_RAFF_ABS   =SIMP(statut='f',typ='R',
9843                                                  fr="Critère absolu",
9844                                                  ang="Absolute threshold"  ),
9845                            CRIT_RAFF_REL   =SIMP(statut='f',typ='R',
9846                                                  fr="Critère relatif",
9847                                                  ang="Relative threshold" ),
9848                            CRIT_RAFF_PE    =SIMP(statut='f',typ='R',
9849                                                  fr="Pourcentage d'éléments",
9850                                                  ang="Percentage of elements" ),
9851                            ) ,
9852 #
9853            b_critere_de_deraffinement =BLOC ( condition = "( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'DERAFFINEMENT' )" ,
9854                            fr="Critère de déraffinement.",
9855                            ang="Unrefinement threshold.",
9856                            regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE' ),),
9857                            CRIT_DERA_ABS   =SIMP(statut='f',typ='R' ,
9858                                                  fr="Critère absolu",
9859                                                  ang="Absolute threshold" ),
9860                            CRIT_DERA_REL   =SIMP(statut='f',typ='R',
9861                                                  fr="Critère relatif",
9862                                                  ang="Relative threshold" ),
9863                            CRIT_DERA_PE    =SIMP(statut='f',typ='R',
9864                                                  fr="Pourcentage d'éléments",
9865                                                  ang="Percentage of elements" ),
9866                            ) ,
9867 #
9868            b_niveau_maximum =BLOC ( condition = " ( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'RAFFINEMENT' ) or \
9869                                                   ( UNIFORME == 'RAFFINEMENT' )" ,
9870                              fr="Niveau maximum de profondeur de raffinement",
9871                              ang="Maximum level for refinement",
9872                              NIVE_MAX        =SIMP(statut='f',typ='I' ),
9873                            ) ,
9874 #
9875            b_niveau_minimum =BLOC ( condition = " ( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'DERAFFINEMENT' ) or \
9876                                                   ( UNIFORME == 'DERAFFINEMENT' )" ,
9877                              fr="Niveau minimum de déraffinement",
9878                              ang="Minimum level for unrefinement",
9879                              NIVE_MIN        =SIMP(statut='f',typ='I' ),
9880                            ) ,
9881 #
9882          ),
9883 #
9884 # 6. L'ANALYSE DU MAILLAGE
9885 #
9886          ANALYSE         =FACT(statut='f',min=01,max=01,
9887                                fr="Analyse du maillage.",
9888                                ang="Mesh analysis.",
9889 #
9890 # 6.1. CHOIX NON EXCLUSIFS, AVEC DEUX VARIANTES (OUI/NON) :
9891 #    A. NOMBRE DES ELEMENTS
9892 #    B. QUALITE DES ELEMENTS
9893 #    C. INTERPENETRATION DES ELEMENTS
9894 #    D. CONNEXITE DU MAILLAGE
9895 #    E. TAILLE DES DIFFERENTS SOUS-DOMAINES
9896 #
9897            regles=(AU_MOINS_UN('NOMBRE','QUALITE','INTERPENETRATION','CONNEXITE','TAILLE'),),
9898 #
9899          NOMBRE          =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
9900                           fr="Nombre de noeuds et éléments du maillage",
9901                           ang="Number of nodes and elements in the mesh" ),
9902 #
9903          QUALITE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
9904                           fr="Qualité du maillage",
9905                           ang="Mesh quality" ),
9906 #
9907          INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
9908                           fr="Controle de la non interpénétration des éléments.",
9909                           ang="Overlapping checking." ),
9910 #
9911          CONNEXITE       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
9912                           fr="Connexité du maillage.",
9913                           ang="Mesh connexity." ),
9914 #
9915          TAILLE          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
9916                           fr="Tailles des sous-domaines du maillage.",
9917                           ang="Sizes of mesh sub-domains." ),
9918 #
9919          ),
9920 #
9921 )  ;
9922 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9923 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9924 # ======================================================================
9925 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9926 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9927 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9928 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9929 # (AT YOUR OPTION) ANY LATER VERSION.
9930 #
9931 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9932 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9933 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9934 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9935 #
9936 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9937 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9938 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9939 # ======================================================================
9940 IMPR_GENE=PROC(nom="IMPR_GENE",op= 157,
9941                fr="Calcul du dommage subi par une structure soumise à une sollicitation de type aléatoire",
9942                docu="U4.91.02-c",
9943          GENE            =FACT(statut='o',min=01,max='**',
9944            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
9945                           'LIST_INST','LIST_FREQ','TOUT_MODE','TOUT_INST','LIST_ORDRE'),
9946                    EXCLUS('TOUT_MODE','NUME_ORDRE','INST','FREQ','NUME_MODE',
9947                           'LIST_INST','LIST_FREQ','TOUT_ORDRE','TOUT_INST','LIST_ORDRE'),
9948                    EXCLUS('TOUT_INST','NUME_ORDRE','INST','FREQ','NUME_MODE',
9949                           'LIST_INST','LIST_FREQ','TOUT_ORDRE','LIST_ORDRE'),
9950                    EXCLUS('TOUT_CMP_GENE','NUME_CMP_GENE'),
9951                    EXCLUS('TOUT_CHAM','NOM_CHAM'),
9952                    EXCLUS('TOUT_PARA','NOM_PARA'),),
9953 #  faut-il faire des blocs selon le type de RESU_GENE
9954            RESU_GENE       =SIMP(statut='o',typ=(vect_asse_gene, tran_gene, mode_gene, harm_gene)),
9955            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
9956            FICHIER         =SIMP(statut='f',typ='TXM' ),
9957            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9958            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
9959            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
9960            TOUT_MODE       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9961            NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
9962            INST            =SIMP(statut='f',typ='R',max='**'),
9963            LIST_INST       =SIMP(statut='f',typ=listr8 ),
9964            TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9965            FREQ            =SIMP(statut='f',typ='R',max='**'),
9966            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
9967            b_prec_crit     =BLOC(condition = "LIST_FREQ != None or FREQ != None",
9968              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9969              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
9970                                    into=("RELATIF","ABSOLU") ),
9971            ),
9972            TOUT_CMP_GENE   =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9973            NUME_CMP_GENE   =SIMP(statut='f',typ='I',max='**'),
9974            TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9975            NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
9976            TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9977            NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
9978            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
9979            INFO_CMP_GENE   =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9980            INFO_GENE       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9981          ),
9982 )  ;
9983 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
9984 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9985 # ======================================================================
9986 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9987 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9988 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9989 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9990 # (AT YOUR OPTION) ANY LATER VERSION.
9991 #
9992 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9993 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9994 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9995 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9996 #
9997 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9998 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9999 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10000 # ======================================================================
10001 IMPR_JEVEUX=PROC(nom="IMPR_JEVEUX",op=16,docu="U4.91.21-f",
10002                  fr="Impression de caractéristiques d'objets JEVEUX (pour développeur)",
10003          ENTITE          =SIMP(fr="choix de l'observation",statut='o',typ='TXM',
10004                                into=("DISQUE","MEMOIRE","REPERTOIRE",
10005                                      "OBJET","ATTRIBUT","SYSTEME") ),
10006          b_objet      =BLOC(condition = "(ENTITE=='OBJET')",
10007             NOMOBJ          =SIMP(fr="nom d'objet",statut='f',typ='TXM' ),
10008             NUMOC           =SIMP(fr="numéro d objet de collection",statut='f',typ='I' ),
10009             NOMOC           =SIMP(fr="nom d'objet de collection",statut='f',typ='TXM' ),
10010          ),
10011          b_attribut   =BLOC(condition = "(ENTITE=='ATTRIBUT')",
10012             NOMOBJ          =SIMP(fr="nom de collection",statut='f',typ='TXM' ),
10013             NOMATR          =SIMP(fr="nom d attribut de collection",statut='f',typ='TXM',
10014                                   into=('$$DESO','$$IADD','$$IADM','$$NOM','$$LONG',
10015                                       '$$LONO','$$LUTI','$$NUM') ),
10016          ),
10017          b_systeme    =BLOC(condition = "(ENTITE=='SYSTEME')",
10018             CLASSE          =SIMP(statut='o',typ='TXM',into=('G','V','L') ),
10019             NOMATR          =SIMP(fr="nom d attribut systeme",statut='f',typ='TXM',
10020                                   into=('$$CARA','$$IADD','$$GENR','$$TYPE','$$ETAT',
10021                                       '$$DOCU','$$ORIG','$$RNOM','$$LTYP','$$LONG',
10022                                       '$$LONO','$$DATE','$$LUTI','$$HCOD','$$INDX',
10023                                       '$$TLEC','$$TECR','$$IADM','$$ACCE') ),
10024          ),
10025          b_repertoire =BLOC(condition = "(ENTITE=='REPERTOIRE')",
10026             CLASSE          =SIMP(statut='f',typ='TXM',into=('G','V','L',' '),defaut=' '),
10027          ),
10028          b_disque     =BLOC(condition = "(ENTITE=='DISQUE')",
10029             CLASSE          =SIMP(statut='f',typ='TXM' ,into=('G','V','L',' '),defaut=' '),
10030          ),
10031          IMPRESSION      =FACT(statut='f',min=01,max=01,
10032            NOM             =SIMP(statut='f',typ='TXM' ),
10033            UNITE           =SIMP(statut='f',typ='I'),
10034          ),
10035          COMMENTAIRE     =SIMP(statut='f',typ='TXM' ),
10036 )  ;
10037 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
10038 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10039 # ======================================================================
10040 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10041 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10042 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10043 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10044 # (AT YOUR OPTION) ANY LATER VERSION.
10045 #
10046 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10047 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10048 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10049 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10050 #
10051 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10052 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10053 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10054 # ======================================================================
10055 IMPR_MACR_ELEM=PROC(nom="IMPR_MACR_ELEM",op= 160,
10056                     docu="U7.04.33-d1",
10057          MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
10058          FICHIER         =SIMP(statut='f',typ='TXM' ),
10059          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",
10060                                into=("MISS_3D","IDEAS","CADYRO","PLEXUS") ),
10061          b_ideas         =BLOC(condition = "FORMAT == 'PLEXUS'",
10062            VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10063          ),
10064          b_plexus         =BLOC(condition = "FORMAT == 'IDEAS'",
10065            VERSION          =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10066          ),
10067          b_miss_3d       =BLOC(condition = "FORMAT == 'MISS_3D'",
10068            UNITE           =SIMP(statut='f',typ='I',defaut= 26 ),
10069            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
10070            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
10071            GROUP_MA_INTERF =SIMP(statut='o',typ=grma,max='**'),
10072 #  Ces trois mots cles sont-ils dans le bon bloc et avec le bon statut
10073            GROUP_MA_FLU_STR=SIMP(statut='f',typ=grma,max='**'),
10074            GROUP_MA_FLU_SOL=SIMP(statut='f',typ=grma,max='**'),
10075            GROUP_MA_SOL_SOL=SIMP(statut='f',typ=grma,max='**'),
10076            IMPR_MODE_MECA  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10077            IMPR_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10078          ),
10079          b_cadyro        =BLOC(condition = "FORMAT == 'CADYRO'",
10080            SQUELETTE       =SIMP(statut='f',typ=squelette ),
10081            UNITE_MODE_MECA =SIMP(statut='f',typ='I',defaut= 26 ),
10082            UNITE_MODE_STAT =SIMP(statut='f',typ='I',defaut= 27 ),
10083            UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut= 28 ),
10084            IMPR_MODE_MECA  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10085            IMPR_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10086          ),
10087
10088 )  ;
10089 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
10090 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10091 # ======================================================================
10092 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10093 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10094 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10095 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10096 # (AT YOUR OPTION) ANY LATER VERSION.
10097 #
10098 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10099 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10100 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10101 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10102 #
10103 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10104 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10105 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10106 # ======================================================================
10107 IMPR_MATRICE=PROC(nom="IMPR_MATRICE",op= 159,
10108                   fr="Impression des matrices élémentaires et des matrices assemblées",
10109                   docu="U7.04.32-c",
10110          regles=(AU_MOINS_UN('MATR_ELEM','MATR_ASSE'),),
10111
10112          MATR_ELEM       =FACT(statut='f',min=01,max='**',
10113            FICHIER         =SIMP(statut='f',typ='TXM' ),
10114            FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",
10115                                  into=("IDEAS","RESULTAT") ),
10116            b_format      =BLOC(condition = "FORMAT == 'IDEAS'",
10117              VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10118            ),
10119 #  créer les types matr_elem  et vect_elem
10120            MATRICE         =SIMP(statut='o',typ=(matr_elem, vect_elem)),
10121 #  Quelle regle pour TOUT, NOEUD, GROUP_NO, MAILLE, GROUP_MA
10122            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10123            NOEUD           =SIMP(statut='f',typ=no,max='**'),
10124            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
10125            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10126            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10127            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
10128            GRAIN           =SIMP(statut='f',typ='TXM',defaut="VALEUR",
10129                                  into=("VALEUR","NOEUD","MAILLE") ),
10130            NB_CHIFFRE      =SIMP(statut='f',typ='I',defaut= 4 ),
10131          ),
10132          MATR_ASSE       =FACT(statut='f',min=01,max='**',
10133            FICHIER         =SIMP(statut='f',typ='TXM' ),
10134            FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",
10135                                  into=("IDEAS","RESULTAT") ),
10136            VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10137 #  créer le type matr_elem
10138            MATRICE         =SIMP(statut='o',typ=matr_asse),
10139 #  Quelle regle pour TOUT, NOEUD, GROUP_NO, MAILLE, GROUP_MA
10140            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10141            NOEUD           =SIMP(statut='f',typ=no,max='**'),
10142            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
10143            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10144            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10145            OPTION          =SIMP(statut='f',typ='TXM',defaut="SOUS_MATRICE",
10146                                  into=("SOUS_MATRICE","LIGNE","COLONNE") ),
10147            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
10148            GRAIN           =SIMP(statut='f',typ='TXM',defaut="VALEUR",
10149                                  into=("VALEUR","NOEUD") ),
10150            NB_CHIFFRE      =SIMP(statut='f',typ='I',defaut= 4 ),
10151            VALE_ZERO       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
10152          ),
10153 )  ;
10154 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
10155 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10156 # ======================================================================
10157 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10158 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10159 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10160 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10161 # (AT YOUR OPTION) ANY LATER VERSION.
10162 #
10163 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10164 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10165 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10166 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10167 #
10168 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10169 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10170 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10171 # ======================================================================
10172 IMPR_MISS_3D=PROC(nom="IMPR_MISS_3D",op= 162,
10173                   docu="U7.04.11-c",
10174          regles=(UN_PARMI('INST_INIT','FREQ_INIT'),
10175                  PRESENT_PRESENT('INST_INIT','INST_FIN'),
10176                  PRESENT_PRESENT('FREQ_INIT','FREQ_FIN'),),
10177          MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
10178          EXCIT           =FACT(statut='f',min=01,max='**',
10179            regles=(UN_PARMI('FONC_MULT','COEF_MULT' ),),
10180            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
10181            FONC_MULT       =SIMP(statut='f',typ=fonction ),
10182            COEF_MULT       =SIMP(statut='f',typ='R' ),
10183          ),
10184          EXCIT_SOL       =FACT(statut='f',min=01,max='**',
10185            DIRECTION       =SIMP(statut='o',typ='R',max='**'),
10186            FONC_SIGNAL     =SIMP(statut='f',typ=fonction ),
10187            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",
10188                                  into=("DEPL","VITE","ACCE","FORC",) ),
10189          ),
10190          INST_INIT       =SIMP(statut='f',typ='R' ),
10191          INST_FIN        =SIMP(statut='f',typ='R' ),
10192          FREQ_INIT       =SIMP(statut='f',typ='R' ),
10193          FREQ_FIN        =SIMP(statut='f',typ='R' ),
10194          PAS             =SIMP(statut='o',typ='R' ),
10195          UNITE           =SIMP(statut='f',typ='I',defaut= 26 ),
10196          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
10197          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
10198 )  ;
10199 #& MODIF COMMANDE  DATE 05/03/2002   AUTEUR GNICOLAS G.NICOLAS
10200 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10201 # ======================================================================
10202 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10203 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10204 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10205 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10206 # (AT YOUR OPTION) ANY LATER VERSION.
10207 #
10208 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10209 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10210 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10211 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10212 #
10213 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10214 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10215 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10216 # ======================================================================
10217 IMPR_RESU=PROC(nom="IMPR_RESU",op=39,docu="U4.91.01-g1",
10218                fr="Impression du résultat d un calcul (différents formats)",
10219          MODELE          =SIMP(statut='f',typ=modele),
10220          RESU            =FACT(statut='o',min=01,max='**',
10221            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
10222                                  into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED","GMSH") ),
10223
10224            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
10225              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
10226            ),
10227
10228            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
10229              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
10230            ),
10231
10232            regles=(AU_MOINS_UN('CHAM_GD','RESULTAT','MAILLAGE'),
10233                    EXCLUS('CHAM_GD','RESULTAT'),),
10234            MAILLAGE        =SIMP(statut='f',typ=(maillage,squelette)),
10235            INFO_MAILLAGE   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10236            CHAM_GD         =SIMP(statut='f',typ=cham_gd),
10237            RESULTAT        =SIMP(statut='f',typ=resultat),# CO() sd a creer !!!
10238
10239            b_sensibilite   =BLOC(condition="RESULTAT != None",
10240                                  fr="Définition des paramètres de sensibilité",
10241                                  ang="Definition of sensitivity parameters",
10242              SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
10243                                    fr="Liste des paramètres de sensibilité.",
10244                                    ang="List of sensitivity parameters"),),
10245
10246            b_extrac        =BLOC(condition="RESULTAT != None",
10247                                  fr="extraction d un champ de grandeur",
10248              regles=(EXCLUS('TOUT_CHAM','NOM_CHAM'),
10249                      EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP',
10250                             'LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS','ANGL'),),
10251              TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10252              NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
10253
10254              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10255              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
10256              NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
10257              LIST_ORDRE      =SIMP(statut='f',typ=listis),
10258              NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
10259              NOM_CAS         =SIMP(statut='f',typ='TXM',max='**'),
10260              ANGL            =SIMP(statut='f',typ='R',max='**'),
10261              FREQ            =SIMP(statut='f',typ='R',max='**'),
10262              LIST_FREQ       =SIMP(statut='f',typ=listr8),
10263              INST            =SIMP(statut='f',typ='R',max='**'),
10264              LIST_INST       =SIMP(statut='f',typ=listr8),
10265
10266              b_acce_reel     =BLOC(condition="(FREQ != None)or(LIST_FREQ != None)or(INST != None)or(LIST_INST != None)",
10267                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
10268                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10269              ),
10270            ),
10271
10272            b_parametres    =BLOC(condition="""(RESULTAT != None)and(FORMAT == 'RESULTAT')""",
10273              regles=(EXCLUS('TOUT_PARA','NOM_PARA'),),
10274              INFO_RESU       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10275              TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI","NON",) ),
10276              NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
10277              FORM_TABL       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON","EXCEL") ),
10278            ),
10279
10280            b_cmp=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and\
10281                                    ((FORMAT == 'RESULTAT')or(FORMAT == 'ENSIGHT')or(FORMAT == 'MED'))""",
10282                                  fr="sélection des composantes",
10283              regles=(EXCLUS('TOUT_CMP','NOM_CMP'),),
10284              TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10285              NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
10286            ),
10287
10288            b_gmsh=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and((FORMAT == 'GMSH'))""",
10289                                  fr="sélection des composantes et des entités toplogiques",
10290              NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
10291              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10292              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10293            ),
10294
10295            b_topologie=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and((FORMAT == 'RESULTAT')or(FORMAT == 'IDEAS'))""",
10296                                    fr="sélection des entités toplogiques",
10297              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10298              NOEUD           =SIMP(statut='f',typ=no,max='**'),
10299              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
10300              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10301              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10302            ),
10303
10304            b_valeurs         =BLOC(condition="(FORMAT == 'RESULTAT')",
10305                                    fr="sélection sur les valeurs",
10306              VALE_MAX        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10307              VALE_MIN        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10308              BORNE_SUP       =SIMP(statut='f',typ='R'),
10309              BORNE_INF       =SIMP(statut='f',typ='R'),
10310              IMPR_COOR       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10311              FORMAT_R        =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
10312            ),
10313
10314            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
10315            FICHIER         =SIMP(statut='f',typ='TXM'),
10316          ),
10317          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
10318 ) ;
10319 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
10320 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10321 # ======================================================================
10322 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10323 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10324 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10325 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10326 # (AT YOUR OPTION) ANY LATER VERSION.
10327 #
10328 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10329 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10330 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10331 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10332 #
10333 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10334 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10335 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10336 # ======================================================================
10337 IMPR_STURM=PROC(nom="IMPR_STURM",op=32,fr="Calculer et imprimer le nombre de valeurs propres dans un intervalle donné",
10338                 docu="U4.52.01-f",
10339          MATR_A          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
10340          MATR_B          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
10341          TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="DYNAMIQUE",into=("MODE_FLAMB","DYNAMIQUE"),
10342                                fr="Type d analyse" ),
10343          b_dynamique  =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
10344                             fr="Recheche du nombre de fréquences propres",
10345              FREQ_MIN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ,fr="Borne inférieure de l intervalle" ),
10346              FREQ_MAX        =SIMP(statut='o',typ='R',fr="Borne supérieure de l intervalle" ),
10347          ),
10348          b_mode_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
10349                             fr="Recherche du nombre de charges critiques",
10350              CHAR_CRIT_MIN   =SIMP(statut='o',typ='R',fr="Borne inférieure de l intervalle" ),
10351              CHAR_CRIT_MAX   =SIMP(statut='o',typ='R',fr="Borne supérieure de l intervalle" ),
10352          ),
10353          NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8 ),
10354          NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
10355          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
10356          PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
10357          SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
10358 )  ;
10359 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
10360 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10361 # ======================================================================
10362 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10363 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10364 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10365 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10366 # (AT YOUR OPTION) ANY LATER VERSION.
10367 #
10368 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10369 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10370 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10371 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10372 #
10373 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10374 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10375 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10376 # ======================================================================
10377 # RESPONSABLE VABHHTS J.PELLET
10378 IMPR_TABLE=PROC(nom="IMPR_TABLE",op=155,docu="U4.91.03-d2",
10379                 fr="Impression d un concept de type table",
10380          TABLE           =SIMP(statut='o',typ=table),
10381          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT", ),
10382          FORMAT          =SIMP(statut='f',typ='TXM',defaut="EXCEL",
10383                                into=("EXCEL","AGRAF","MOT_CLE","TABLEAU","ASTER") ),
10384          FILTRE          =FACT(statut='f',min=1,max='**',
10385            NOM_PARA        =SIMP(statut='o',typ='TXM'),
10386            CRIT_COMP       =SIMP(statut='f',typ='TXM',defaut="EQ",
10387                                  into=("EQ","LT","GT","NE","LE","GE","VIDE",
10388                                        "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
10389            b_vale          =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
10390               regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
10391               VALE            =SIMP(statut='f',typ='R'),
10392               VALE_I          =SIMP(statut='f',typ='I'),
10393               VALE_C          =SIMP(statut='f',typ='C'),
10394               VALE_K          =SIMP(statut='f',typ='TXM'),),
10395
10396            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10397            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10398          ),
10399          TRI             =FACT(statut='f',min=1,max=1,
10400            NOM_PARA        =SIMP(statut='o',typ='TXM',max='**'),
10401            ORDRE           =SIMP(statut='f',typ='TXM',max='**',defaut="CROISSANT",
10402                                  into=("CROISSANT","DECROISSANT") ),
10403            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
10404            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10405          ),
10406          PAGINATION      =SIMP(statut='f',typ='TXM',max='**'),
10407          FORMAT_R        =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
10408          FORMAT_C        =SIMP(statut='f',typ='TXM',defaut="MODULE_PHASE",
10409                                     into=("MODULE_PHASE","REEL_IMAG") ),
10410          NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
10411          TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI",)),
10412          IMPR_FONCTION   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10413 )  ;
10414 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
10415 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10416 # ======================================================================
10417 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10418 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10419 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10420 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10421 # (AT YOUR OPTION) ANY LATER VERSION.
10422 #
10423 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10424 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10425 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10426 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10427 #
10428 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10429 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10430 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10431 # ======================================================================
10432 INCLUDE=MACRO(nom="INCLUDE",op=-1,docu="U4.13.01-e",
10433              fr="Débranchement vers un fichier de commandes secondaires",
10434              sd_prod=ops.INCLUDE,op_init=ops.INCLUDE_context,fichier_ini=1,
10435          UNITE = SIMP(statut='o',typ='I'),
10436          INFO  = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10437 );
10438 #& MODIF COMMANDE  DATE 14/02/2001   AUTEUR DURAND C.DURAND
10439 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10440 # ======================================================================
10441 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10442 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10443 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10444 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10445 # (AT YOUR OPTION) ANY LATER VERSION.
10446 #
10447 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10448 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10449 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10450 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10451 #
10452 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10453 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10454 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10455 # ======================================================================
10456 INCLUDE_MATERIAU=MACRO(nom="INCLUDE_MATERIAU",op=-14,docu="U4.43.02-a",
10457                        fr=" ",
10458          sd_prod=ops.INCLUDE_MATERIAU,op_init=ops.INCLUDE_context,fichier_ini=0,
10459          NOM_AFNOR       =SIMP(statut='o',typ='TXM' ),
10460          TYPE_MODELE     =SIMP(statut='o',typ='TXM',into=("REF","PAR") ),
10461          VARIANTE        =SIMP(statut='o',typ='TXM',
10462                                into=("A","B","C","D","E","F","G","H","I","J",
10463                                      "K","L","M","N","O","P","Q","R","S","T","U","V",
10464                                      "W","X","Y","Z",) ),
10465          TYPE_VALE       =SIMP(statut='o',typ='TXM',into=("NOMI","MINI","MAXI") ),
10466          NOM_MATER       =SIMP(statut='o',typ='TXM' ),
10467          UNITE           =SIMP(statut='f',typ='I',defaut= 32 ),
10468          EXTRACTION      =FACT(statut='f',min=01,max=99,
10469            COMPOR          =SIMP(statut='o',typ='TXM' ),
10470            TEMP_EVAL       =SIMP(statut='o',typ='R' ),
10471          ),
10472          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
10473 )  ;
10474 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
10475 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10476 # ======================================================================
10477 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10478 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10479 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10480 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10481 # (AT YOUR OPTION) ANY LATER VERSION.
10482 #
10483 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10484 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10485 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10486 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10487 #
10488 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10489 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10490 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10491 # ======================================================================
10492 # RESPONSABLE G8BHHXD X.DESROCHES
10493 INTE_MAIL_2D=OPER(nom="INTE_MAIL_2D",op=50,sd_prod=courbe,docu="U4.81.11-e",
10494                   fr="Définition d une courbe sur un maillage 2D",reentrant='n',
10495
10496          MAILLAGE        =SIMP(statut='o',typ=(maillage) ),
10497
10498          regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
10499                  AU_MOINS_UN('DEFI_SEGMENT','DEFI_ARC','DEFI_CHEMIN'),
10500                  PRESENT_ABSENT('DEFI_CHEMIN','DEFI_SEGMENT','DEFI_ARC'),
10501                  PRESENT_ABSENT('DEFI_SEGMENT','NOEUD_ORIG','GROUP_NO_ORIG'),
10502                  PRESENT_ABSENT('DEFI_ARC','NOEUD_ORIG','GROUP_NO_ORIG'),
10503                  EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
10504                  EXCLUS('DEFI_CHEMIN','DEFI_SEGMENT'),
10505                  EXCLUS('DEFI_CHEMIN','DEFI_ARC'),),
10506
10507          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10508          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10509          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10510
10511          DEFI_SEGMENT    =FACT(statut='f',min=01,max='**',
10512            regles=(UN_PARMI('ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
10513                    UN_PARMI('EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),),
10514            ORIGINE         =SIMP(statut='f',typ='R',min=2,max=2),
10515            NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
10516            GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
10517            EXTREMITE       =SIMP(statut='f',typ='R',min=2,max=2),
10518            NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
10519            GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
10520          ),
10521
10522          DEFI_ARC        =FACT(statut='f',min=01,max='**',
10523            regles=(UN_PARMI('CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),
10524                    UN_PARMI('RAYON','ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
10525                    UN_PARMI('RAYON','EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),
10526                    PRESENT_PRESENT('RAYON','SECTEUR'),),
10527            CENTRE          =SIMP(statut='f',typ='R',min=2,max=2),
10528            NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=1),
10529            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno,max=1),
10530            RAYON           =SIMP(statut='f',typ='R',max=1,val_min=0.E+0),
10531            SECTEUR         =SIMP(statut='f',typ='R',min=2,max=2,
10532                                  val_min=-180.E+0,val_max=180E+0),
10533            ORIGINE         =SIMP(statut='f',typ='R',min=2,max=2),
10534            NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
10535            GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
10536            EXTREMITE       =SIMP(statut='f',typ='R',min=2,max=2),
10537            NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
10538            GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
10539            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10540            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
10541                                  into=("RELATIF","ABSOLU",) ),
10542          ),
10543
10544          DEFI_CHEMIN     =FACT(statut='f',min=01,max='**',
10545            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
10546            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10547            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10548          ),
10549
10550          NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
10551          GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
10552          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
10553          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10554 )  ;
10555 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
10556 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10557 # ======================================================================
10558 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10559 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10560 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10561 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10562 # (AT YOUR OPTION) ANY LATER VERSION.
10563 #
10564 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10565 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10566 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10567 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10568 #
10569 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10570 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10571 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10572 # ======================================================================
10573 # RESPONSABLE G8BHHXD X.DESROCHES
10574 INTE_MAIL_3D=OPER(nom="INTE_MAIL_3D",op=96,sd_prod=surface,docu="U4.81.12-e",
10575                   fr="Définition d un chemin sur un maillage 3D",reentrant='n',
10576          MAILLAGE        =SIMP(statut='o',typ=maillage),
10577          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10578          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
10579          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
10580          DEFI_SEGMENT    =FACT(statut='o',min=01,max='**',
10581            regles=(UN_PARMI('ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
10582                    UN_PARMI('EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),),
10583            ORIGINE         =SIMP(statut='f',typ='R',min=3,max=3),
10584            NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
10585            GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
10586            EXTREMITE       =SIMP(statut='f',typ='R',min=3,max=3),
10587            NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
10588            GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
10589          ),
10590          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
10591          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10592 )  ;
10593 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
10594 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10595 # ======================================================================
10596 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10597 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10598 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10599 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10600 # (AT YOUR OPTION) ANY LATER VERSION.
10601 #
10602 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10603 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10604 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10605 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10606 #
10607 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10608 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10609 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10610 # ======================================================================
10611 def lire_champ_prod(TYPE_CHAM=None,**args):
10612   if TYPE_CHAM == "CHAM_NO_TEMP_R" : return cham_no_temp_r
10613   if TYPE_CHAM == "CHAM_NO_DEPL_R" : return cham_no_depl_r
10614   raise AsException("type de concept resultat non prevu")
10615
10616 LIRE_CHAMP=OPER(nom="LIRE_CHAMP",op= 192,sd_prod=lire_champ_prod,
10617                 fr="Lire un champ dans un fichier et le stocker dans un concept.",
10618                 ang="To read a field in a file and to save it in a concept.",
10619                 docu="U7.02.02-b2",reentrant='n',
10620 #
10621 # 1. Le maillage support du champ
10622 #
10623          MAILLAGE        =SIMP(statut='o',typ=maillage,
10624                           fr="Nom du maillage support du champ",
10625                           ang="Name of the mesh on which the field is defined" ),
10626 #
10627 # 2. Format de lecture
10628 #    Remarque : seul MED est operationnel dans cette version.
10629 #
10630          FORMAT          =SIMP(statut='f',typ='TXM',defaut="MED",into=("MED",),
10631                           fr="Format du fichier : MED seulement",
10632                           ang="Format of the file : MED only" ),
10633 #
10634 # 3. L'unite logique du fichier.
10635 #
10636          UNITE           =SIMP(statut='f',typ='I',defaut= 81,
10637                           fr="Le fichier est : fort.n.",
10638                           ang="File is : fort.n" ),
10639 #
10640 # 4. Pour le format MED, il faut preciser le nom sous lequel le champ est connu dans le fichier
10641 #    et les composantes a lire
10642 #
10643          b_format =BLOC(condition = "FORMAT == 'MED'",
10644                         fr="Nom du champ dans le fichier MED",
10645          regles=(UN_PARMI('NOM_CMP_IDEM','NOM_CMP'),
10646           PRESENT_PRESENT('NOM_CMP','NOM_CMP_MED' ),),
10647 #
10648             NOM_MED      =SIMP(statut='o',typ='TXM',
10649                           fr="Nom du champ dans le fichier MED.",
10650                           ang="Name of the field in the MED file." ),
10651 #
10652             NOM_CMP_IDEM =SIMP(statut='f',typ='TXM',into=("OUI",),
10653                           fr="Les composantes ont le meme nom dans MED et ASTER.",
10654                           ang="The names of the components are the same in ASTER and MED." ),
10655             NOM_CMP      =SIMP(statut='f',typ='TXM',max='**',
10656                           fr="Nom des composantes dans ASTER.",
10657                           ang="Names of the components in ASTER" ),
10658             NOM_CMP_MED  =SIMP(statut='f',typ='TXM',max='**',
10659                           fr="Nom des composantes dans MED.",
10660                           ang="Names of the components in MED" ),
10661 #
10662             NUME_ORDRE   =SIMP(statut='f',typ='I',max='**',
10663                           fr="Numéro d'ordre du champ à lire.",
10664                           ang="Rank number of the field to read."),
10665 #
10666             NUME_PT      =SIMP(statut='f',typ='I',max='**',
10667                           fr="Numéro du pas de temps du champ à lire.",
10668                           ang="Time step number of the field to read."),
10669 #
10670 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
10671 # le maillage associé au champ y a été enregistré. Par défaut, on prendra le premier maillage.
10672 #
10673             NOM_MAIL_MED = SIMP(statut='f',typ='TXM',
10674                            fr="Nom du maillage dans le fichier MED.",
10675                            ang="Name of the mesh into the MED file.",),
10676 #
10677                   ),
10678 #
10679 # 5. Le type du concept lu
10680 #
10681          TYPE_CHAM       =SIMP(statut='o',typ='TXM',into=("CHAM_NO_TEMP_R","CHAM_NO_DEPL_R"),
10682                           fr="Type de champ à créer.",
10683                           ang="Type of the field to create." ),
10684 #
10685 # 6. Le niveau d'information
10686 #
10687          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
10688 )  ;
10689 #& MODIF COMMANDE  DATE 06/03/2002   AUTEUR MCOURTOI M.COURTOIS
10690 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10691 # ======================================================================
10692 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10693 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10694 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10695 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10696 # (AT YOUR OPTION) ANY LATER VERSION.
10697 #
10698 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10699 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10700 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10701 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10702 #
10703 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10704 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10705 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10706 # ======================================================================
10707 LIRE_FONCTION=OPER(nom="LIRE_FONCTION",op=  83,sd_prod=fonction,
10708                    fr="Lecture d une fonction dans un fichier ",
10709                    docu="U4.32.02-f1",reentrant='n',
10710          UNITE           =SIMP(statut='o',typ='I' ),
10711          NOM_PARA        =SIMP(statut='f',typ='TXM',
10712                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
10713                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
10714          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
10715          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
10716          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10717          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10718          NOM_PARA_FONC   =SIMP(statut='f',typ='TXM',
10719                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
10720                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
10721          INTERPOL_FONC   =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
10722          PROL_DROITE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10723          PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10724          INFO            =SIMP(statut='f',typ='I',defaut= 2,into=( 1 , 2) ),
10725          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
10726 )  ;
10727 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
10728 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10729 # ======================================================================
10730 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10731 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10732 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10733 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10734 # (AT YOUR OPTION) ANY LATER VERSION.
10735 #
10736 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10737 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10738 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10739 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10740 #
10741 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10742 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10743 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10744 # ======================================================================
10745 LIRE_INTE_SPEC=OPER(nom="LIRE_INTE_SPEC",op= 116,sd_prod=tabl_intsp,
10746                     fr="Lecture sur un fichier externe de  fonctions complexes pour créer une matrice interspectrale",
10747                     docu="U4.36.01-f2",reentrant='n',
10748          UNITE           =SIMP(statut='o',typ='I' ),
10749          FORMAT          =SIMP(statut='f',typ='TXM',defaut="MODULE_PHASE",into=("REEL_IMAG","MODULE_PHASE") ),
10750          NOM_PARA        =SIMP(statut='f',typ='TXM',
10751                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
10752                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
10753          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
10754          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
10755          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10756          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
10757          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
10758          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
10759 )  ;
10760 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
10761 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10762 # ======================================================================
10763 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10764 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10765 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10766 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10767 # (AT YOUR OPTION) ANY LATER VERSION.
10768 #
10769 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10770 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10771 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10772 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10773 #
10774 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10775 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10776 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10777 # ======================================================================
10778 # RESPONSABLE VABHHTS J.PELLET
10779 LIRE_MAILLAGE=OPER(nom="LIRE_MAILLAGE",op=   1,sd_prod=maillage,
10780                    fr="Lecture d'un fichier de maillage",
10781                    ang="Readings of a mesh file",
10782                    docu="U4.21.01-g1",reentrant='n',
10783 #
10784          UNITE           =SIMP(statut='f',typ='I',defaut= 20 ),
10785 #
10786          FORMAT          =SIMP(statut='f',typ='TXM',defaut="ASTER",into=("ASTER","MED"),
10787                             fr="Format du fichier : ASTER ou MED.",
10788                             ang="Format of the file : ASTER or MED.",),
10789 #
10790          ABSC_CURV       =FACT(statut='f',min=0,max=1,
10791                TOUT          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
10792          ),
10793 #
10794          VERI_MAIL       =FACT(statut='d',min=1,max=1,
10795                VERIF         =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10796                APLAT         =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
10797          ),
10798 #
10799          b_format_med =BLOC( condition = " ( FORMAT == 'MED' ) " ,
10800                            fr="Informations complémentaires pour la lecture MED.",
10801                            ang="Further information for MED readings.",
10802 #
10803 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
10804 # le maillage y a été enregistré. Par défaut, on va le chercher sous le nom du concept à créer.
10805 #
10806               NOM_MED    = SIMP(statut='f',typ='TXM',
10807                             fr="Nom du maillage dans le fichier MED.",
10808                             ang="Name of the mesh into the MED file.",),
10809 #
10810               INFO_MED   = SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
10811 #
10812                            ) ,
10813 #
10814          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
10815 #
10816 )  ;
10817 #& MODIF COMMANDE  DATE 16/07/2002   AUTEUR VABHHTS J.PELLET
10818 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10819 # ======================================================================
10820 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10821 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
10822 #              REDISTRIBUTION OF THIS FILE.
10823 # ======================================================================
10824 def lire_miss_3d_prod(TYPE_RESU,**args):
10825   if TYPE_RESU == "TRANS" : return dyna_trans
10826   if TYPE_RESU == "HARMO" : return dyna_harmo
10827   raise AsException("type de concept resultat non prevu")
10828
10829 LIRE_MISS_3D=OPER(nom="LIRE_MISS_3D",op= 163,sd_prod=lire_miss_3d_prod,
10830                   fr="Restitution au format MISS3D d une évolution harmonique ou transitoire",
10831                   docu="U7.02.31-c",reentrant='n',
10832          MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
10833          UNITE           =SIMP(statut='f',typ='I',defaut= 27 ),
10834          NOM             =SIMP(statut='f',typ='TXM' ),
10835          TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="TRANS",into=("TRANS","HARMO") ),
10836          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
10837 )  ;
10838 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
10839 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10840 # ======================================================================
10841 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10842 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10843 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10844 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10845 # (AT YOUR OPTION) ANY LATER VERSION.
10846 #
10847 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10848 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10849 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10850 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10851 #
10852 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10853 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10854 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10855 # ======================================================================
10856 LIRE_PLEXUS=OPER(nom="LIRE_PLEXUS",op= 184,sd_prod=evol_char,
10857                  fr=" ",
10858                  docu="U7.02.11-a",reentrant='n',
10859          regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
10860          UNITE           =SIMP(statut='f',typ='I',defaut= 19 ),
10861          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",)),
10862          MAIL_PLEXUS     =SIMP(statut='o',typ=maillage ),
10863          MAILLAGE        =SIMP(statut='o',typ=maillage ),
10864          MODELE          =SIMP(statut='o',typ=modele ),
10865          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10866          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
10867          LIST_ORDRE      =SIMP(statut='f',typ=listis ),
10868          INST            =SIMP(statut='f',typ='R',max='**'),
10869          LIST_INST       =SIMP(statut='f',typ=listr8 ),
10870          b_prec_crit     =BLOC(condition = "LIST_INST != None or INST != None",
10871              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10872              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
10873                                    into=("RELATIF","ABSOLU") ),
10874          ),
10875          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
10876 )  ;
10877 #& MODIF COMMANDE  DATE 16/07/2002   AUTEUR VABHHTS J.PELLET
10878 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10879 # ======================================================================
10880 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10881 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
10882 #              REDISTRIBUTION OF THIS FILE.
10883 # ======================================================================
10884 # RESPONSABLE VABHHTS J.PELLET
10885 def lire_resu_prod(TYPE_RESU,**args):
10886   if TYPE_RESU == "EVOL_CHAR" :  return evol_char
10887   if TYPE_RESU == "EVOL_THER" :  return evol_ther
10888   if TYPE_RESU == "EVOL_ELAS" :  return evol_elas
10889   if TYPE_RESU == "EVOL_NOLI" :  return evol_noli
10890   if TYPE_RESU == "DYNA_TRANS" : return dyna_trans
10891   if TYPE_RESU == "DYNA_HARMO" : return dyna_harmo
10892   if TYPE_RESU == "HARM_GENE" :  return harm_gene
10893   if TYPE_RESU == "MODE_MECA" :  return mode_meca
10894   raise AsException("type de concept resultat non prevu")
10895
10896 LIRE_RESU=OPER(nom="LIRE_RESU",op=150,sd_prod=lire_resu_prod,docu="U7.02.01-d2",reentrant='n',
10897                fr="Lecture de champs aux noeuds ou par éléments aux noeuds sur un fichier IDEAS ou EnSight",
10898
10899
10900 # 0 mots clés généraux :
10901 #----------------------
10902          TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_THER","EVOL_ELAS","EVOL_NOLI","MODE_MECA",
10903                                                           "DYNA_TRANS","DYNA_HARMO","HARM_GENE","EVOL_CHAR") ),
10904
10905          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS","ENSIGHT","MED") ),
10906          DATASET_58      =SIMP(statut='f',typ='TXM',defaut='NON',into=('OUI','NON',) ),
10907
10908          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
10909          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
10910
10911          regles=(UN_PARMI('MAILLAGE','MODELE'),),
10912          MAILLAGE        =SIMP(statut='f',typ=maillage),
10913          MODELE          =SIMP(statut='f',typ=modele),
10914
10915          NB_VARI         =SIMP(statut='f',typ='I' ),
10916
10917
10918 # 1 blocs selon le format choisi :
10919 #---------------------------------
10920
10921 # 1-1 ideas :
10922 # ---------
10923          b_ideas         =BLOC(condition="FORMAT=='IDEAS'",
10924            UNITE           =SIMP(statut='f',typ='I',defaut= 19 ),
10925          ),
10926
10927          b_format_ideas = BLOC(condition="DATASET_58=='NON'",
10928            FORMAT_IDEAS    =FACT(statut='f',max='**',
10929              regles=(UN_PARMI('POSI_INST','POSI_FREQ'),),
10930              NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',into=("TEMP","DEPL","VITE","ACCE","PRES","VARI_ELNO",
10931                                                                      "SIEF_ELNO","EPSA_ELNO","TEMP_PEAU","VITE_VENT",
10932                                                                      "FVOL_3D","FVOL_2D","FSUR_3D","FSUR_2D") ),
10933              NUME_DATASET    =SIMP(statut='f',typ='I',into=(55,57,2414) ),
10934              RECORD_3        =SIMP(statut='f',typ='I',max=10),
10935              RECORD_6        =SIMP(statut='f',typ='I',max=10),
10936              RECORD_9        =SIMP(statut='f',typ='I',max=10),
10937              POSI_ORDRE      =SIMP(statut='o',typ='I',min=2,max=2),
10938              POSI_NUME_MODE  =SIMP(statut='f',typ='I',min=2,max=2),
10939              POSI_MASS_GENE  =SIMP(statut='f',typ='I',min=2,max=2),
10940              POSI_INST       =SIMP(statut='f',typ='I',min=2,max=2),
10941              POSI_FREQ       =SIMP(statut='f',typ='I',min=2,max=2),
10942              NOM_CMP         =SIMP(statut='o',typ='TXM',max='**'),),
10943          ),
10944          b_dataset_58 = BLOC(condition="(DATASET_58=='OUI') and ((TYPE_RESU=='DYNA_TRANS') or\
10945                                         (TYPE_RESU=='DYNA_HARMO') or (TYPE_RESU=='HARM_GENE'))",
10946              NOM_CHAM=SIMP(statut='o',typ='TXM',into=("DEPL","VITE","ACCE","EPSI_NOEU_DEPL","SIEF_NOEU",) ),
10947              REDEFI_ORIENT=FACT(statut='f',max='**',
10948                                 regles=(PRESENT_PRESENT('CODE_DIR','DIRECTION','NOEUD',),),
10949                                 CODE_DIR =SIMP(statut='f',typ='I',into=(1,2,3,) ),
10950                                 DIRECTION=SIMP(statut='f',typ='R',min=3,max=3,),
10951                                 NOEUD    =SIMP(statut='f',typ=no,max='**'),),
10952          ),
10953 # 1-2 ensight :
10954 # -------------
10955          b_ensight       =BLOC(condition="FORMAT=='ENSIGHT'",
10956            NOM_FICHIER     =SIMP(statut='f',typ='TXM'),
10957          ),
10958 # 1-3 med :
10959 # ---------
10960          b_med           =BLOC(condition = "FORMAT == 'MED'",fr="Nom du champ dans le fichier MED",
10961 #                           regles=(UN_PARMI('NOM_CMP_IDEM','NOM_CMP'),
10962 #                           PRESENT_PRESENT('NOM_CMP','NOM_CMP_MED' ),),
10963            NOM_MED         =SIMP(statut='o',typ='TXM',
10964                                  fr="Nom du champ dans le fichier MED.",
10965                                  ang="Name of the field in the MED file." ),
10966            NOM_CMP_IDEM    =SIMP(statut='f',typ='TXM',into=("OUI",),
10967                                  fr="Les composantes ont le meme nom dans MED et ASTER.",
10968                                  ang="The names of the components are the same in ASTER and MED." ),
10969            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**',
10970                                  fr="Nom des composantes dans ASTER.",
10971                                  ang="Names of the components in ASTER" ),
10972            NOM_CMP_MED     =SIMP(statut='f',typ='TXM',max='**',
10973                                  fr="Nom des composantes dans MED.",
10974                                  ang="Names of the components in MED" ),
10975 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
10976 # le maillage associé au champ y a été enregistré. Par défaut, on prendra le premier maillage.
10977            NOM_MAIL_MED    =SIMP(statut='f',typ='TXM',
10978                                  fr="Nom du maillage dans le fichier MED.",
10979                                  ang="Name of the mesh into the MED file.",),
10980            UNITE           =SIMP(statut='f',typ='I',defaut= 81,
10981                                  fr="Le fichier est : fort.n.",
10982                                  ang="File is : fort.n" ),
10983                   ),
10984
10985
10986 # 2 blocs selon le type du résultat :
10987 #---------------------------------
10988          b_evol_elas     =BLOC(condition="TYPE_RESU=='EVOL_ELAS'",
10989            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
10990                                  into=("DEPL",) ),
10991          ),
10992          b_evol_ther     =BLOC(condition="TYPE_RESU=='EVOL_THER'",
10993            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
10994                                  into=("TEMP","TEMP_PEAU") ),
10995          ),
10996          b_evol_char     =BLOC(condition="TYPE_RESU=='EVOL_CHAR'",
10997            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
10998                                  into=("PRES","VITE_VENT",
10999                                        "FVOL_3D","FVOL_2D",
11000                                        "FSUR_3D","FSUR_2D") ),
11001          ),
11002          b_evol_noli     =BLOC(condition="TYPE_RESU=='EVOL_NOLI'",
11003            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
11004                                  into=("DEPL","VITE","ACCE","VARI_ELNO",
11005                                        "SIEF_ELNO","EPSA_ELNO") ),
11006          ),
11007          b_mode_meca     =BLOC(condition="TYPE_RESU=='MODE_MECA'",
11008            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
11009                                  into=("DEPL",) ),
11010          ),
11011          b_dyna          =BLOC(condition="((TYPE_RESU=='DYNA_TRANS') or (TYPE_RESU=='DYNA_HARMO') or\
11012                                           (TYPE_RESU=='HARM_GENE')) and (DATASET_58=='NON')",
11013            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
11014                                  into=("DEPL","VITE","ACCE",) ),
11015          ),
11016
11017
11018 # 3 autres blocs :
11019 #---------------------------------
11020          b_extrac        =BLOC(condition="1",fr="accès à un champ dans la structure de données résultat",
11021            regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST','FREQ','LIST_FREQ'),),
11022            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11023            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
11024            INST            =SIMP(statut='f',typ='R',max='**'),
11025            LIST_INST       =SIMP(statut='f',typ=listr8),
11026            LIST_ORDRE      =SIMP(statut='f',typ=listis),
11027            FREQ            =SIMP(statut='f',typ='R',max='**'),
11028            LIST_FREQ       =SIMP(statut='f',typ=listr8),
11029
11030            b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)or(FREQ != None)or(LIST_FREQ != None)",
11031              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
11032              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
11033            ),
11034          ),
11035 )  ;
11036 #& MODIF COMMANDE  DATE 08/08/2002   AUTEUR CIBHHLV L.VIVAN
11037 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11038 # ======================================================================
11039 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
11040 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11041 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11042 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11043 # (AT YOUR OPTION) ANY LATER VERSION.
11044 #
11045 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11046 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11047 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11048 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11049 #
11050 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11051 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11052 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11053 # ======================================================================
11054 def lire_table_prod(TYPE_TABLE,**args):
11055   if TYPE_TABLE == "TABLE"          : return table
11056   if TYPE_TABLE == "TABL_CARA_GEOM" : return tabl_cara_geom
11057   if TYPE_TABLE == "TABL_POST_RELE" : return tabl_post_rele
11058   if TYPE_TABLE == "TABL_POST_USUR" : return tabl_post_usur
11059   if TYPE_TABLE == "TABL_POST_ALEA" : return tabl_post_alea
11060   raise AsException("type de concept resultat non prevu")
11061 LIRE_TABLE=OPER(nom="LIRE_TABLE",op=29,sd_prod=lire_table_prod,
11062                 docu="U7.02.03",fr="Lecture d un concept de type table",
11063          UNITE           =SIMP(statut='o',typ='I' ),
11064          FORMAT          =SIMP(statut='f',typ='TXM',into=("ASTER",),defaut="ASTER"),
11065          NUME_TABLE      =SIMP(statut='f',typ='I',defaut=1),
11066          TYPE_TABLE      =SIMP(statut='f',typ='TXM',defaut="TABLE",
11067                               into=("TABLE",
11068                                     "TABL_CARA_GEOM",
11069                                     "TABL_POST_RELE",
11070                                     "TABL_POST_USUR",
11071                                     "TABL_POST_ALEA" ) ),
11072          SEPARATEUR      =SIMP(statut='o',typ='TXM'),
11073          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11074          )  ;
11075 #& MODIF COMMANDE  DATE 16/07/2002   AUTEUR GNICOLAS G.NICOLAS
11076 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11077 # ======================================================================
11078 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11079 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11080 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11081 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11082 # (AT YOUR OPTION) ANY LATER VERSION.
11083 #
11084 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11085 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11086 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11087 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11088 #
11089 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11090 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11091 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11092 # ======================================================================
11093 # RESPONSABLE GNICOLAS G.NICOLAS
11094 def macr_adap_mail_prod(self,MAJ_CHAM,ADAPTATION,**args):
11095   mail1=ADAPTATION['MAILLAGE_N']
11096   self.type_sdprod(mail1,maillage)
11097   mail2=ADAPTATION['MAILLAGE_NP1']
11098   self.type_sdprod(mail2,maillage)
11099   if MAJ_CHAM == None:return None
11100   for ch in MAJ_CHAM:
11101     t=ch['TYPE_CHAM']
11102     if t == 'CHAM_NO_TEMP_R':self.type_sdprod(ch['CHAM_MAJ'],cham_no_temp_r)
11103     if t == 'CHAM_NO_DEPL_R':self.type_sdprod(ch['CHAM_MAJ'],cham_no_depl_r)
11104   return None
11105
11106 MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",op=-24,sd_prod=macr_adap_mail_prod,
11107                      fr="Adapter un maillage avec le logiciel HOMARD.",
11108                      ang="Mesh adaptation with HOMARD software.",
11109                      docu="U7.03.01-b2",
11110 #
11111 # 1. Le niveau d'information
11112 #
11113          INFO           = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
11114 #
11115 # 2. Version de HOMARD
11116 #
11117          VERSION_HOMARD = SIMP(statut='f',typ='TXM',defaut="V5_3",
11118                                into=("V5_3", "V5_N", "V5_N_PERSO"),
11119                            fr="Version de HOMARD",
11120                            ang="HOMARD release"),
11121 #
11122 # 3. Langue des messages issus de HOMARD
11123 #
11124          LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
11125                                into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
11126                            fr="Langue des messages issus de HOMARD.",
11127                            ang="Language for HOMARD messages." ),
11128 #
11129 # 4. LE TYPE DE TRAITEMENT :
11130 #
11131          ADAPTATION      =FACT(statut='o',min=01,max=01,
11132                            fr="Type d'adaptation",
11133                            ang="Type of adaptation",
11134 #
11135 # 4.1. DEUX CHOIX D'ADAPTATION EXCLUSIFS :
11136 #
11137 # 4.1.
11138 #      A. SELON UN INDICATEUR D'ERREUR, AVEC TROIS VARIANTES :
11139 #         . RAFFINEMENT ET DERAFFINEMENT
11140 #         . RAFFINEMENT SEUL
11141 #         . DERAFFINEMENT SEUL
11142 #      B. UNIFORME, AVEC TROIS VARIANTES :
11143 #         . RAFFINEMENT SEUL
11144 #         . DERAFFINEMENT SEUL
11145 #         . RIEN : LE MAILLAGE EST LE MEME A LA SORTIE ET A L'ENTREE
11146 #
11147            regles=(
11148                    UN_PARMI('LIBRE','UNIFORME'),
11149                   ),
11150            LIBRE          = SIMP(statut='f',typ='TXM',
11151                                  into=("RAFF_DERA","RAFFINEMENT","DERAFFINEMENT"),
11152                            fr="Adaptation selon un indicateur d'erreur.",
11153                            ang="Adaptation among an error indicator" ),
11154            UNIFORME       = SIMP(statut='f',typ='TXM',
11155                                  into=("RAFFINEMENT","DERAFFINEMENT","RIEN"),
11156                            fr="Adaptation uniforme.",
11157                            ang="Uniform adaptation" ),
11158 #
11159 # 4.2. QUEL QUE SOIT LE TYPE DE TRAITEMENT, IL FAUT DONNER  :
11160 #      A. LE CONCEPT DU MAILLAGE INITIAL
11161 #      B. LE CONCEPT DU MAILLAGE FINAL
11162 #
11163            MAILLAGE_N     = SIMP(statut='o',typ=(CO,maillage),
11164                            fr="Maillage avant adaptation",
11165                            ang="Mesh before adaptation" ),
11166            MAILLAGE_NP1   = SIMP(statut='o',typ=(CO,maillage),
11167                            fr="Maillage apres adaptation",
11168                            ang="Mesh after adaptation" ),
11169 #
11170 # 4.3. POUR DE L'ADAPTATION LIBRE, IL FAUT L'INDICATEUR D'ERREUR
11171 #
11172 #
11173            b_indicateur_d_erreur   =BLOC( condition = " LIBRE != None " ,
11174                            fr="Indicateur d'erreur",
11175                            ang="Error indicator",
11176 #
11177 # 4.3.1. LE NOM DU CONCEPT RESULTAT
11178 #
11179                            RESULTAT_N     = SIMP(statut='o',typ=(evol_elas,evol_noli,evol_ther) ,
11180                            fr="Resultat contenant l'indicateur d'erreur",
11181                            ang="Result with error indicator" ),
11182 #
11183 # 4.3.2. LE CHAMP D'INDICATEUR D'ERREUR
11184 #
11185                            INDICATEUR     = SIMP(statut='o',typ='TXM',
11186                            fr="Champ de l'indicateur d'erreur",
11187                            ang="Error indicator field" ),
11188 #
11189 # 4.3.3. LA COMPOSANTE RETENUE
11190 #
11191                            NOM_CMP_INDICA = SIMP(statut='o',typ='TXM',
11192                            fr="Composante retenue",
11193                            ang="Selected component" ),
11194 #
11195 # 4.3.4. LE NUMERO D'ORDRE
11196 #
11197                            NUME_ORDRE     = SIMP(statut='f',typ='I' ,
11198                            fr="Numero d ordre",
11199                            ang="Rank" ),
11200                            ) ,
11201 #
11202 # 4.4. LES CRITERES POUR DE L'ADAPTATION LIBRE :
11203 #        ABSOLU, RELATIF, EN PROPORTION D'ENTITE
11204 # 4.4.1. POUR LE RAFFINEMENT :
11205 #
11206            b_critere_de_raffinement =BLOC( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'RAFFINEMENT' ) " ,
11207                            fr="Critère de raffinement.",
11208                            ang="Refinement threshold.",
11209                            regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE' ),),
11210                            CRIT_RAFF_ABS  = SIMP(statut='f',typ='R',
11211                                                    fr="Critère absolu",
11212                                                    ang="Absolute threshold" ),
11213                            CRIT_RAFF_REL  = SIMP(statut='f',typ='R',
11214                                                    fr="Critère relatif",
11215                                                    ang="Relative threshold" ),
11216                            CRIT_RAFF_PE   = SIMP(statut='f',typ='R',
11217                                                    fr="Pourcentage d'éléments",
11218                                                    ang="Percentage of elements" ),
11219                            ) ,
11220 #
11221 # 4.4.2. POUR LE DERAFFINEMENT :
11222 #
11223            b_critere_de_deraffinement =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'DERAFFINEMENT' ) " ,
11224                            fr="Critère de déraffinement.",
11225                            ang="Unrefinement threshold.",
11226                            regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE' ),),
11227                            CRIT_DERA_ABS  = SIMP(statut='f',typ='R' ,
11228                                                  fr="Critère absolu",
11229                                                  ang="Absolute threshold" ),
11230                            CRIT_DERA_REL  = SIMP(statut='f',typ='R',
11231                                                  fr="Critère relatif",
11232                                                  ang="Relative threshold" ),
11233                            CRIT_DERA_PE   = SIMP(statut='f',typ='R',
11234                                                  fr="Pourcentage d'éléments",
11235                                                  ang="Percentage of elements" ),
11236                            ) ,
11237 #
11238 # 4.5. LES NIVEAUX EXTREMES POUR LE MAILLAGE ADAPTE
11239 # 4.5.1. POUR LE RAFFINEMENT :
11240 #
11241            b_niveau_maximum =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'RAFFINEMENT' ) or \
11242                                                   ( UNIFORME == 'RAFFINEMENT' ) " ,
11243                              fr="Niveau maximum de profondeur de raffinement",
11244                              ang="Maximum level for refinement",
11245                              NIVE_MAX       = SIMP(statut='f',typ='I' ),
11246                            ) ,
11247 #
11248 # 4.5.2. POUR LE DERAFFINEMENT :
11249 #
11250            b_niveau_minimum =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'DERAFFINEMENT' ) or \
11251                                                   ( UNIFORME == 'DERAFFINEMENT' ) " ,
11252                              fr="Niveau minimum de profondeur de déraffinement",
11253                              ang="Minimum level for unrefinement",
11254                              NIVE_MIN       = SIMP(statut='f',typ='I' ),
11255                            ) ,
11256          ),
11257 #
11258 # 5. LA MISE A JOUR DE CHAMPS.
11259 #    PAR DEFAUT, RIEN NE SE FAIT
11260 #
11261          MAJ_CHAM        =FACT(statut='f',min=01,max='**',
11262                            fr="Mise à jour de champs sur le nouveau maillage.",
11263                            ang="Updating of fields over the new mesh.",
11264 #
11265 # 5.1. LE NOM DU RESULTAT DU CHAMP A INTERPOLER
11266 #
11267            RESULTAT       = SIMP(statut='o',
11268                                  typ=(evol_elas,evol_noli,evol_ther),
11269                            fr="Resultat contenant le champ à mettre à jour",
11270                            ang="Result with field to be updated" ),
11271 #
11272 # 5.2. LE NOM DU CHAMP A INTERPOLER
11273 #
11274            NOM_CHAM       = SIMP(statut='o',typ='TXM',
11275                            fr="Nom du champ à mettre à jour",
11276                            ang="Name of the field to be updated" ),
11277 #
11278 # 5.3. LE NUMERO D'ORDRE POUR LE CHAMP A INTERPOLER
11279 #
11280            NUME_ORDRE     = SIMP(statut='f',typ='I',
11281                            fr="Numero d ordre du champ à mettre à jour",
11282                            ang="Rank of the field to be updated" ),
11283 #
11284 # 5.4. LE NOM DU CHAMP QUI CONTIENDRA LE RESULTAT DE LA MISE A JOUR
11285 #
11286            CHAM_MAJ       = SIMP(statut='o',typ=(CO,cham_gd),
11287                            fr="Nom du champ qui contiendra le champ mis à jour",
11288                            ang="Name of the field for the updated field"),
11289 #
11290 # 5.5. LE TYPE DU CHAMP QUI CONTIENDRA LE RESULTAT DE LA MISE A JOUR
11291 #
11292            TYPE_CHAM      = SIMP(statut='o',typ='TXM',
11293                                  into=("CHAM_NO_TEMP_R","CHAM_NO_DEPL_R"),
11294                            fr="Type du champ qui contiendra le champ mis à jour",
11295                            ang="Type of the field for the updated field" ),
11296          ),
11297 #
11298 # 6. INFORMATION SUR LE MAILLAGE : par defaut, on ne fait que les nombres
11299 #    A. NOMBRE DE NOEUDS ET ELEMENTS DU MAILLAGE
11300 #    B. QUALITE DES ELEMENTS DU MAILLAGE
11301 #    C. CONTROLE DE LA NON INTERPENETRATION DES ELEMENTS DU MAILLAGE
11302 #    D. CONNEXITE DU MAILLAGE
11303 #    E. TAILLE DES DIFFERENTS SOUS-DOMAINES
11304 #
11305          NOMBRE         = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
11306                           fr="Nombre de noeuds et éléments du maillage",
11307                           ang="Number of nodes and elements in the mesh" ),
11308 #
11309          QUALITE        = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11310                           fr="Qualité du maillage",
11311                           ang="Mesh quality" ),
11312 #
11313          INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11314                           fr="Controle de la non interpénétration des éléments.",
11315                           ang="Overlapping checking." ),
11316 #
11317          CONNEXITE      = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11318                           fr="Connexité du maillage.",
11319                           ang="Mesh connexity." ),
11320 #
11321          TAILLE         = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
11322                           fr="Tailles des sous-domaines du maillage.",
11323                           ang="Sizes of mesh sub-domains." ),
11324 #
11325          MENAGE         = SIMP(statut='f',typ='TXM',into=("MAILLAGE","SOLUTION","TOUT") ),
11326 #
11327 )  ;
11328 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
11329 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11330 # ======================================================================
11331 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11332 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11333 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11334 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11335 # (AT YOUR OPTION) ANY LATER VERSION.
11336 #
11337 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11338 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11339 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11340 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11341 #
11342 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11343 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11344 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11345 # ======================================================================
11346 # RESPONSABLE F1BHHAJ J.ANGLES
11347 def macr_ascouf_calc_prod(self,MODELE,CHAM_MATER,CARA_ELEM,FOND_FISS,CHARGE,RESU_THER,**args):
11348   self.type_sdprod(MODELE,modele)
11349   if CHAM_MATER != None:self.type_sdprod(CHAM_MATER,cham_mater)
11350   if CARA_ELEM  != None:self.type_sdprod(CARA_ELEM,cara_elem)
11351   if FOND_FISS  != None:self.type_sdprod(FOND_FISS,fond_fiss)
11352   if CHARGE     != None:self.type_sdprod(CHARGE,char_meca)
11353   if RESU_THER  != None:self.type_sdprod(RESU_THER,evol_ther)
11354   return evol_noli
11355
11356 MACR_ASCOUF_CALC=MACRO(nom="MACR_ASCOUF_CALC",op= -20,sd_prod=macr_ascouf_calc_prod,
11357                       fr=" ",
11358                       docu="U4.CF.20-b1",reentrant='n',
11359          regles=(UN_PARMI('COMP_INCR','COMP_ELAS'),),
11360
11361          TYPE_MAILLAGE   =SIMP(statut='o',typ='TXM',
11362                                into=("SAIN",
11363                                      "FISS_COUDE",
11364                                      "SOUS_EPAIS_COUDE"
11365                                      ) ),
11366
11367          CL_BOL_P2_GV    =FACT(statut='f',min=1,max=1,
11368            ANGLE           =SIMP(statut='o',typ='R' ),
11369            AZIMUT          =SIMP(statut='f',typ='R',defaut= 90. ),
11370          ),
11371
11372          MAILLAGE        =SIMP(statut='o',typ=maillage ),
11373          MODELE          =SIMP(statut='o',typ=(CO,modele)),
11374          CHAM_MATER      =SIMP(statut='f',typ=(CO,cham_mater)),
11375          CARA_ELEM       =SIMP(statut='f',typ=(CO,cara_elem)),
11376          FOND_FISS       =SIMP(statut='f',typ=(CO,fond_fiss)),
11377          CHARGE          =SIMP(statut='f',typ=(CO,char_meca)),
11378          RESU_THER       =SIMP(statut='f',typ=(CO,evol_ther)),
11379
11380          AFFE_MATERIAU   =FACT(statut='o',min=1,max=3,
11381            regles=(UN_PARMI('TOUT','GROUP_MA'),),
11382            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11383            GROUP_MA        =SIMP(statut='f',typ='TXM',into=("COUDE","BOL") ),
11384            MATER           =SIMP(statut='o',typ=mater ),
11385            TEMP_REF        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11386          ),
11387
11388          PRES_REP        =FACT(statut='f',min=1,max=1,
11389            PRES            =SIMP(statut='o',typ='R' ),
11390            EFFE_FOND_P1    =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11391            FONC_MULT       =SIMP(statut='f',typ=fonction ),
11392          ),
11393
11394          ECHANGE         =FACT(statut='f',min=1,max=1,
11395            COEF_H          =SIMP(statut='f',typ=fonction ),
11396            TEMP_EXT        =SIMP(statut='f',typ=fonction ),
11397          ),
11398
11399          TORS_P1         =FACT(statut='f',min=1,max=6,
11400            regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
11401            FX              =SIMP(statut='f',typ='R' ),
11402            FY              =SIMP(statut='f',typ='R' ),
11403            FZ              =SIMP(statut='f',typ='R' ),
11404            MX              =SIMP(statut='f',typ='R' ),
11405            MY              =SIMP(statut='f',typ='R' ),
11406            MZ              =SIMP(statut='f',typ='R' ),
11407            FONC_MULT       =SIMP(statut='f',typ=fonction ),
11408          ),
11409
11410          COMP_INCR       =FACT(statut='f',min=1,max=1,
11411            RELATION        =SIMP(statut='o',typ='TXM',into=("VMIS_ISOT_TRAC",) ),
11412            VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut= 2,into=( 2 ,) ),
11413          ),
11414
11415          COMP_ELAS       =FACT(statut='f',min=1,max=1,
11416            RELATION        =SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC") ),
11417            ELAS            =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
11418            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
11419          ),
11420
11421          SOLVEUR         =FACT(statut='d',min=1,max=1,
11422            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
11423            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
11424              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
11425            ),
11426            b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
11427              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11428            ),
11429            b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
11430                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
11431              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
11432              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11433            ),
11434            b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
11435              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
11436              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
11437              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
11438              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
11439              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
11440            ),
11441 #  A quoi sert eps
11442            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11443            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11444          ),
11445
11446          CONVERGENCE     =FACT(statut='d',min=1,max=1,
11447            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
11448            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
11449            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
11450            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
11451            RESI_INTE_RELA  =SIMP(statut='f',typ='R'
11452                                 ,defaut= 1.0E-6),
11453            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
11454            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut= 0 ),
11455            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
11456            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
11457          ),
11458
11459          NEWTON          =FACT(statut='d',min=1,max=1,
11460            REAC_INCR       =SIMP(statut='f',typ='I',defaut= 1 ),
11461            PREDICTION      =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
11462            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
11463            REAC_ITER       =SIMP(statut='f',typ='I',defaut=0),
11464            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
11465          ),
11466
11467          RECH_LINEAIRE   =FACT(statut='f',min=1,max=1,
11468            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11469            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 3),
11470          ),
11471
11472          INCREMENT       =FACT(statut='o',min=1,max=1,
11473            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
11474                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
11475            LIST_INST       =SIMP(statut='o',typ=listr8),
11476            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
11477                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
11478            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
11479            INST_INIT       =SIMP(statut='f',typ='R'),
11480            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
11481            INST_FIN        =SIMP(statut='f',typ='R'),
11482            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
11483            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
11484            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
11485            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
11486          ),
11487
11488          THETA_3D        =FACT(statut='f',min=1,max='**',
11489            R_INF           =SIMP(statut='o',typ='R' ),
11490            R_SUP           =SIMP(statut='o',typ='R' ),
11491          ),
11492
11493          IMPR_TABLE      =FACT(statut='f',min=1,max=1,
11494            regles=(UN_PARMI('TOUT_PARA','NOM_PARA', ),
11495             PRESENT_PRESENT('TOUT_PARA','ANGLE',    ),
11496             PRESENT_PRESENT('TOUT_PARA','R_CINTR',  ),
11497                    UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL',),),
11498            NOM_PARA        =SIMP(statut='f',typ='TXM',max=4,
11499                                  into=("TRESCA_MEMBRANE",
11500                                        "TRESCA_MFLE",
11501                                        "TRESCA",
11502                                        "SI_LONG"
11503                                        "SI_RADI"
11504                                        "SI_CIRC"
11505                                        ) ),
11506            TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11507            ANGLE           =SIMP(statut='f',typ='R',max='**' ),
11508            R_CINTR         =SIMP(statut='f',typ='R',max='**' ),
11509            POSI_CURV_LONGI =SIMP(statut='f',typ='R',max='**' ),
11510            POSI_ANGUL      =SIMP(statut='f',typ='R',max='**' ),
11511            TRANSFORMEE     =SIMP(statut='f',typ='TXM',defaut="COUDE",into=("COUDE","TUBE") ),
11512          ),
11513
11514          IMPRESSION      =FACT(statut='f',min=1,max=1,
11515            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
11516                                  into=("RESULTAT","ASTER","IDEAS","CASTEM") ),
11517
11518            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
11519              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
11520            ),
11521
11522            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
11523              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
11524            ),
11525
11526          ),
11527
11528          TITRE           =SIMP(statut='f',typ='TXM' ),
11529
11530          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11531 )  ;
11532 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
11533 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11534 # ======================================================================
11535 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11536 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11537 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11538 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11539 # (AT YOUR OPTION) ANY LATER VERSION.
11540 #
11541 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11542 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11543 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11544 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11545 #
11546 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11547 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11548 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11549 # ======================================================================
11550 # RESPONSABLE F1BHHAJ J.ANGLES
11551 MACR_ASCOUF_MAIL=MACRO(nom="MACR_ASCOUF_MAIL",op= -19,sd_prod=maillage,
11552                       fr=" ",docu="U4.CF.10-b1",reentrant='n',
11553
11554          regles=(EXCLUS('SOUS_EPAIS_COUDE','FISS_COUDE','SOUS_EPAIS_MULTI'),),
11555
11556          EXEC_MAILLAGE   =FACT(statut='o',min=1,max=1,
11557            LOGICIEL        =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000") ),
11558            UNITE_DATG      =SIMP(statut='f',typ='I',defaut=70),
11559            UNITE_MGIB      =SIMP(statut='f',typ='I',defaut=19),
11560            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10,11)),
11561          ),
11562
11563          TYPE_ELEM       =SIMP(statut='f',typ='TXM',defaut="CU20",into=("CU20","CUB8") ),
11564
11565          COUDE           =FACT(statut='o',min=1,max=1,
11566            ANGLE           =SIMP(statut='o',typ='R' ),
11567            R_CINTR         =SIMP(statut='o',typ='R' ),
11568            L_TUBE_P1       =SIMP(statut='o',typ='R' ),
11569            L_TUBE_P2       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11570            NB_ELEM_EPAIS   =SIMP(statut='f',typ='I',defaut= 3 ),
11571            SYME            =SIMP(statut='f',typ='TXM',defaut="ENTIER",into=("ENTIER","QUART","DEMI") ),
11572            TRANSFORMEE     =SIMP(statut='o',typ='TXM',defaut="COUDE",into=("COUDE","TUBE") ),
11573            b_transf_coude  =BLOC(condition = "TRANSFORMEE == 'COUDE' ",
11574               DEXT            =SIMP(statut='o',typ='R' ),
11575               EPAIS           =SIMP(statut='o',typ='R' ),
11576               SUR_EPAIS       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11577               BOL_P2          =SIMP(statut='f',typ='TXM',into=("ASP_MPP","CUVE","GV") ),
11578            ),
11579            b_transf_tube   =BLOC(condition = "TRANSFORMEE == 'TUBE' ",
11580               TRAN_EPAIS      =SIMP(statut='o',typ='TXM',defaut="NON",into=("OUI","NON") ),
11581               b_trans_epais_oui    =BLOC(condition = "TRAN_EPAIS == 'OUI' ",
11582                       regles=(ENSEMBLE('ANGL_TETA2','EPAIS_TI'),
11583                               UN_PARMI('ABSC_CURV_TRAN','POSI_ANGU_TRAN'),),
11584                       DEXT_T1         =SIMP(statut='o',typ='R' ),
11585                       EPAIS_T1        =SIMP(statut='o',typ='R' ),
11586                       EPAIS_T2        =SIMP(statut='o',typ='R' ),
11587                       EPAIS_TI        =SIMP(statut='f',typ='R' ),
11588                       ANGL_TETA1      =SIMP(statut='o',typ='R' ),
11589                       ANGL_TETA2      =SIMP(statut='f',typ='R' ),
11590                       ABSC_CURV_TRAN  =SIMP(statut='f',typ='R' ),
11591                       POSI_ANGU_TRAN  =SIMP(statut='f',typ='R' ),
11592               ),
11593               b_trans_epais_non    =BLOC(condition = "TRAN_EPAIS == 'NON' ",
11594                       DEXT            =SIMP(statut='o',typ='R' ),
11595                       EPAIS           =SIMP(statut='o',typ='R' ),
11596                       SUR_EPAIS       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11597                       BOL_P2          =SIMP(statut='f',typ='TXM',into=("ASP_MPP","CUVE","GV") ),
11598               ),
11599            ),
11600          ),
11601
11602          SOUS_EPAIS_COUDE=FACT(statut='f',min=1,max=1,
11603            regles=(UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL'),
11604                    UN_PARMI('POSI_CURV_CIRC','AZIMUT'),),
11605            TYPE            =SIMP(statut='o',typ='TXM',into=("AXIS","ELLI") ),
11606            AXE_CIRC        =SIMP(statut='f',typ='R' ),
11607            AXE_LONGI       =SIMP(statut='o',typ='R' ),
11608            PROFONDEUR      =SIMP(statut='o',typ='R' ),
11609            POSI_CURV_LONGI =SIMP(statut='f',typ='R' ),
11610            POSI_ANGUL      =SIMP(statut='f',typ='R' ),
11611            POSI_CURV_CIRC  =SIMP(statut='f',typ='R' ),
11612            AZIMUT          =SIMP(statut='f',typ='R' ),
11613            SOUS_EPAIS      =SIMP(statut='o',typ='TXM',into=("INTERNE","EXTERNE") ),
11614            NB_ELEM_LONGI   =SIMP(statut='o',typ='I' ),
11615            NB_ELEM_CIRC    =SIMP(statut='o',typ='I' ),
11616            NB_ELEM_RADI    =SIMP(statut='f',typ='I',defaut= 3 ),
11617            EMPREINTE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11618          ),
11619
11620          SOUS_EPAIS_MULTI=FACT(statut='f',min=1,max='**',
11621            regles=(UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL'),
11622                    UN_PARMI('POSI_CURV_CIRC','AZIMUT'),),
11623            TYPE            =SIMP(statut='o',typ='TXM',into=("AXIS","ELLI") ),
11624            AXE_CIRC        =SIMP(statut='f',typ='R' ),
11625            AXE_LONGI       =SIMP(statut='o',typ='R' ),
11626            PROFONDEUR      =SIMP(statut='o',typ='R' ),
11627            POSI_CURV_LONGI =SIMP(statut='f',typ='R' ),
11628            POSI_ANGUL      =SIMP(statut='f',typ='R' ),
11629            POSI_CURV_CIRC  =SIMP(statut='f',typ='R' ),
11630            AZIMUT          =SIMP(statut='f',typ='R' ),
11631            SOUS_EPAIS      =SIMP(statut='o',typ='TXM',into=("INTERNE","EXTERNE") ),
11632            NB_ELEM_LONGI   =SIMP(statut='o',typ='I' ),
11633            NB_ELEM_CIRC    =SIMP(statut='o',typ='I' ),
11634            EMPREINTE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11635          ),
11636
11637          FISS_COUDE      =FACT(statut='f',min=1,max=1,
11638            regles=(UN_PARMI('ABSC_CURV','POSI_ANGUL'),),
11639            AXIS            =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON" ),
11640            b_axis_non    =BLOC(condition = "AXIS == 'NON' ",
11641                    LONGUEUR        =SIMP(statut='o',typ='R' ),
11642            ),
11643            b_axis_oui    =BLOC(condition = "AXIS == 'OUI' ",
11644                    LONGUEUR        =SIMP(statut='f',typ='R' ),
11645            ),
11646            PROFONDEUR      =SIMP(statut='o',typ='R' ),
11647            ABSC_CURV       =SIMP(statut='f',typ='R' ),
11648            POSI_ANGUL      =SIMP(statut='f',typ='R' ),
11649            FISSURE         =SIMP(statut='o',typ='TXM',into=("DEB_INT","DEB_EXT") ),
11650            AZIMUT          =SIMP(statut='f',typ='R',defaut= 90. ),
11651            ORIEN           =SIMP(statut='o',typ='R',
11652                                  into=(45.,-45.,90.,0.E+0) ),
11653            NB_TRANCHE      =SIMP(statut='o',typ='I' ),
11654            NB_SECTEUR      =SIMP(statut='o',typ='I' ),
11655            NB_COURONNE     =SIMP(statut='o',typ='I' ),
11656            RAYON_TORE      =SIMP(statut='f',typ='R' ),
11657            COEF_MULT_RC2   =SIMP(statut='f',typ='R',defaut= 1. ),
11658            COEF_MULT_RC3   =SIMP(statut='f',typ='R' ),
11659            ANGL_OUVERTURE  =SIMP(statut='f',typ='R',defaut= 0.5 ),
11660          ),
11661
11662          IMPRESSION      =FACT(statut='f',min=1,max='**',
11663            regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
11664            FORMAT          =SIMP(statut='f',typ='TXM',defaut="ASTER",
11665                                  into=("ASTER","IDEAS","CASTEM") ),
11666            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
11667              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
11668            ),
11669            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
11670              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
11671            ),
11672            FICHIER         =SIMP(statut='f',typ='TXM' ),
11673            UNITE           =SIMP(statut='f',typ='I' ),
11674          ),
11675
11676          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11677 )  ;
11678 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
11679 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11680 # ======================================================================
11681 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11682 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11683 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11684 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11685 # (AT YOUR OPTION) ANY LATER VERSION.
11686 #
11687 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11688 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11689 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11690 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11691 #
11692 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11693 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11694 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11695 # ======================================================================
11696 # RESPONSABLE F1BHHAJ J.ANGLES
11697 def macr_aspic_calc_prod(self,MODELE,CHAM_MATER,CARA_ELEM,FOND_FISS_1,FOND_FISS_2,CHARGE,RESU_THER,**args):
11698   if MODELE      != None:self.type_sdprod(MODELE,modele)
11699   if CHAM_MATER  != None:self.type_sdprod(CHAM_MATER,cham_mater)
11700   if CARA_ELEM   != None:self.type_sdprod(CARA_ELEM,cara_elem)
11701   if FOND_FISS_1 != None:self.type_sdprod(FOND_FISS_1,fond_fiss)
11702   if FOND_FISS_2 != None:self.type_sdprod(FOND_FISS_2,fond_fiss)
11703   if CHARGE      != None:self.type_sdprod(CHARGE,char_meca)
11704   if RESU_THER   != None:self.type_sdprod(RESU_THER,evol_ther)
11705   return evol_noli
11706
11707 MACR_ASPIC_CALC=MACRO(nom="MACR_ASPIC_CALC",op=-17,sd_prod=macr_aspic_calc_prod,
11708                     fr=" ",docu="U4.PC.20-b2",reentrant='n',
11709          regles=(UN_PARMI('COMP_INCR','COMP_ELAS'),),
11710
11711          TYPE_MAILLAGE   =SIMP(statut='o',typ='TXM',
11712                                into=("SAIN_FIN","SAIN_GROS","FISS_COUR_DEB","FISS_COUR_NONDEB","FISS_LONG_DEB",
11713                                      "FISS_LONG_NONDEB","FISS_AXIS_DEB","FISS_AXIS_NONDEB") ),
11714
11715          TUBULURE        =FACT(statut='o',min=1,max=1,
11716            TYPE            =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2") ),
11717          ),
11718          MAILLAGE        =SIMP(statut='o',typ=maillage),
11719          MODELE          =SIMP(statut='f',typ=(CO,modele)),
11720          CHAM_MATER      =SIMP(statut='f',typ=(CO,cham_mater)),
11721          CARA_ELEM       =SIMP(statut='f',typ=(CO,cara_elem)),
11722          FOND_FISS_1     =SIMP(statut='f',typ=(CO,fond_fiss)),
11723          FOND_FISS_2     =SIMP(statut='f',typ=(CO,fond_fiss)),
11724          CHARGE          =SIMP(statut='f',typ=(CO,char_meca)),
11725          RESU_THER       =SIMP(statut='f',typ=(CO,evol_ther)),
11726
11727          AFFE_MATERIAU   =FACT(statut='o',min=1,max=3,
11728            regles=(UN_PARMI('TOUT','GROUP_MA'),),
11729            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
11730            GROUP_MA        =SIMP(statut='f',typ='TXM',into=("TUBU","CORP","SOUD","SOUDCORP","SOUDTUBU") ),
11731            MATER           =SIMP(statut='o',typ=mater),
11732            TEMP_REF        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11733            RCCM            =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
11734          ),
11735
11736          EQUILIBRE       =FACT(statut='o',min=1,max=1,
11737            NOEUD           =SIMP(statut='o',typ=no),
11738          ),
11739
11740          PRES_REP        =FACT(statut='o',min=1,max=1,
11741            PRES            =SIMP(statut='o',typ='R'),
11742            NOEUD           =SIMP(statut='f',typ=no),
11743            EFFE_FOND       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
11744            FONC_MULT       =SIMP(statut='f',typ=fonction),
11745          ),
11746
11747          ECHANGE         =FACT(statut='f',min=1,max=1,
11748            COEF_H_TUBU     =SIMP(statut='o',typ=fonction),
11749            COEF_H_CORP     =SIMP(statut='o',typ=fonction),
11750            TEMP_EXT        =SIMP(statut='o',typ=fonction),
11751          ),
11752
11753          TORS_CORP       =FACT(statut='f',min=1,max=6,
11754            regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
11755            NOEUD           =SIMP(statut='o',typ=no),
11756            FX              =SIMP(statut='f',typ='R'),
11757            FY              =SIMP(statut='f',typ='R'),
11758            FZ              =SIMP(statut='f',typ='R'),
11759            MX              =SIMP(statut='f',typ='R'),
11760            MY              =SIMP(statut='f',typ='R'),
11761            MZ              =SIMP(statut='f',typ='R'),
11762            FONC_MULT       =SIMP(statut='f',typ=fonction),
11763          ),
11764
11765          TORS_TUBU       =FACT(statut='f',min=1,max=6,
11766            regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
11767            FX              =SIMP(statut='f',typ='R'),
11768            FY              =SIMP(statut='f',typ='R'),
11769            FZ              =SIMP(statut='f',typ='R'),
11770            MX              =SIMP(statut='f',typ='R'),
11771            MY              =SIMP(statut='f',typ='R'),
11772            MZ              =SIMP(statut='f',typ='R'),
11773            FONC_MULT       =SIMP(statut='f',typ=fonction),
11774          ),
11775
11776          COMP_INCR       =FACT(statut='f',min=1,max=1,
11777            RELATION        =SIMP(statut='o',typ='TXM',into=("VMIS_ISOT_TRAC",) ),
11778            VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut= 2,into=( 2 ,) ),
11779          ),
11780
11781          COMP_ELAS       =FACT(statut='f',min=1,max=1,
11782            RELATION        =SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC") ),
11783            ELAS            =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
11784            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
11785          ),
11786
11787          THETA_3D        =FACT(statut='f',min=1,max='**',
11788            R_INF           =SIMP(statut='o',typ='R'),
11789            R_SUP           =SIMP(statut='o',typ='R'),
11790          ),
11791
11792          OPTION          =SIMP(statut='f',typ='TXM',into=("CALC_G_MAX","CALC_G_MAX_LOCAL") ),
11793          BORNES          =FACT(statut='f',min=1,max='**',
11794            NUME_ORDRE      =SIMP(statut='o',typ='I'),
11795            VALE_MIN        =SIMP(statut='o',typ='R'),
11796            VALE_MAX        =SIMP(statut='o',typ='R'),
11797          ),
11798
11799          SOLVEUR         =FACT(statut='d',min=1,max=1,
11800            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
11801            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
11802              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
11803            ),
11804            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
11805              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
11806            ),
11807            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
11808                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
11809              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
11810              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11811            ),
11812            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
11813              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
11814              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
11815              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
11816              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
11817              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
11818            ),
11819 #  A quoi sert eps
11820            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11821            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11822          ),
11823
11824          CONVERGENCE     =FACT(statut='d',min=1,max=1,
11825            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
11826            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
11827            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
11828            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
11829            RESI_INTE_RELA  =SIMP(statut='f',typ='R',defaut=1.0E-6),
11830            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut=10),
11831            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut=0),
11832            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
11833            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
11834          ),
11835
11836          NEWTON          =FACT(statut='d',min=1,max=1,
11837            REAC_INCR       =SIMP(statut='f',typ='I',defaut=1),
11838            PREDICTION      =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE","EXTRAPOL","DEPL_CALCULE")),
11839            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE")),
11840            REAC_ITER       =SIMP(statut='f',typ='I',defaut= 0),
11841          ),
11842
11843          RECH_LINEAIRE   =FACT(statut='d',min=1,max=1,
11844            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut=1.0E-3),
11845            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut=3),
11846          ),
11847
11848          INCREMENT       =FACT(statut='o',min=1,max=1,
11849            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
11850                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
11851            LIST_INST       =SIMP(statut='o',typ=listr8),
11852            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
11853                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
11854            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
11855            INST_INIT       =SIMP(statut='f',typ='R'),
11856            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
11857            INST_FIN        =SIMP(statut='f',typ='R'),
11858            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
11859            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
11860            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
11861            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
11862          ),
11863
11864          PAS_AZIMUT      =SIMP(statut='f',typ='I',defaut=1),
11865
11866          IMPRESSION      =FACT(statut='f',min=1,max=1,
11867            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
11868                                  into=("RESULTAT","ASTER","CASTEM","IDEAS")),
11869
11870            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
11871              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
11872            ),
11873
11874            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
11875              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
11876            ),
11877
11878            b_extrac        =BLOC(condition="((FORMAT=='IDEAS')or(FORMAT=='CASTEM'))",
11879                                  fr="extraction d un champ de grandeur",
11880              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST'),),
11881              NOM_CHAM        =SIMP(statut='f',typ='TXM',max=3,
11882                                    into=("DEPL","EQUI_ELNO_SIGM","TEMP")),
11883
11884              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11885              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
11886              INST            =SIMP(statut='f',typ='R',max='**'),
11887            ),
11888          ),
11889
11890          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
11891
11892          TITRE           =SIMP(statut='f',typ='TXM'),
11893 )  ;
11894 # debut entete
11895 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
11896 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11897 # ======================================================================
11898 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11899 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11900 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11901 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11902 # (AT YOUR OPTION) ANY LATER VERSION.
11903 #
11904 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11905 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11906 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11907 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11908 #
11909 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11910 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11911 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11912 # ======================================================================
11913 # RESPONSABLE F1BHHAJ J.ANGLES
11914 MACR_ASPIC_MAIL=MACRO(nom="MACR_ASPIC_MAIL",op= -16,sd_prod=maillage,reentrant='n',
11915                     fr=" ",docu="U4.PC.10-b1",
11916
11917          EXEC_MAILLAGE   =FACT(statut='o',min=1,max=1,
11918            LOGICIEL        =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000")),
11919            UNITE_DATG      =SIMP(statut='f',typ='I',defaut=70),
11920            UNITE_MGIB      =SIMP(statut='f',typ='I',defaut=19),
11921            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10,11)),
11922          ),
11923
11924          TYPE_ELEM       =SIMP(statut='f',typ='TXM',defaut="CU20",into=("CU20","CUB8")),
11925
11926          RAFF_MAIL       =SIMP(statut='f',typ='TXM',defaut="GROS",into=("GROS","FIN")),
11927
11928          TUBULURE        =FACT(statut='o',min=1,max=1,
11929            E_BASE          =SIMP(statut='o',typ='R'),
11930            DEXT_BASE       =SIMP(statut='o',typ='R'),
11931            L_BASE          =SIMP(statut='o',typ='R'),
11932            L_CHANF         =SIMP(statut='o',typ='R'),
11933            E_TUBU          =SIMP(statut='o',typ='R'),
11934            DEXT_TUBU       =SIMP(statut='o',typ='R'),
11935            Z_MAX           =SIMP(statut='o',typ='R'),
11936            TYPE            =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2")),
11937            L_PENETR        =SIMP(statut='f',typ='R',defaut= 0.0E+0),
11938          ),
11939
11940          SOUDURE         =FACT(statut='o',min=1,max=1,
11941            H_SOUD          =SIMP(statut='o',typ='R'),
11942            ANGL_SOUD       =SIMP(statut='o',typ='R'),
11943            JEU_SOUD        =SIMP(statut='o',typ='R'),
11944          ),
11945
11946          CORPS           =FACT(statut='o',min=1,max=1,
11947            E_CORP          =SIMP(statut='o',typ='R'),
11948            DEXT_CORP       =SIMP(statut='o',typ='R'),
11949            X_MAX           =SIMP(statut='o',typ='R'),
11950          ),
11951
11952          FISS_SOUDURE    =FACT(statut='f',min=1,max=1,
11953            TYPE            =SIMP(statut='o',typ='TXM',into=("LONGUE","COURTE")),
11954            AXIS            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
11955            PROFONDEUR      =SIMP(statut='o',typ='R'),
11956            LONGUEUR        =SIMP(statut='f',typ='R'),
11957            AZIMUT          =SIMP(statut='o',typ='R'),
11958            RAYON_TORE      =SIMP(statut='f',typ='R'),
11959            POSITION        =SIMP(statut='o',typ='TXM',into=("DROIT","INCLINE")),
11960            FISSURE         =SIMP(statut='o',typ='TXM',into=("DEB_INT","DEB_EXT","NON_DEB","TRAVERS")),
11961            LIGA_INT        =SIMP(statut='f',typ='R'),
11962            ANGL_OUVERTURE  =SIMP(statut='f',typ='R',defaut= 0.0E+0),
11963            COEF_MULT_RC1   =SIMP(statut='f',typ='R'),
11964            COEF_MULT_RC2   =SIMP(statut='f',typ='R'),
11965            COEF_MULT_RC3   =SIMP(statut='f',typ='R'),
11966            NB_TRANCHE      =SIMP(statut='f',typ='I'),
11967            NB_SECTEUR      =SIMP(statut='f',typ='I'),
11968            NB_COURONNE     =SIMP(statut='f',typ='I'),
11969          ),
11970
11971          IMPRESSION      =FACT(statut='f',min=1,max='**',
11972            regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
11973            FORMAT          =SIMP(statut='f',typ='TXM',defaut="ASTER",into=("ASTER","IDEAS","CASTEM")),
11974
11975            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
11976              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
11977            ),
11978
11979            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
11980              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
11981            ),
11982            FICHIER         =SIMP(statut='f',typ='TXM'),
11983            UNITE           =SIMP(statut='f',typ='I'),
11984          ),
11985
11986          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
11987 )  ;
11988 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
11989 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11990 # ======================================================================
11991 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11992 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11993 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11994 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11995 # (AT YOUR OPTION) ANY LATER VERSION.
11996 #
11997 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11998 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11999 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12000 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12001 #
12002 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12003 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12004 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12005 # ======================================================================
12006 MACR_ELEM_DYNA=OPER(nom="MACR_ELEM_DYNA",op=  81,sd_prod=macr_elem_dyna,
12007                     fr="Définition d un macro élément pour analyse modale ou harmonique par sous structuration dynamique",
12008                     docu="U4.65.01-e1",reentrant='n',
12009          regles=(EXCLUS('MATR_AMOR','AMOR_REDUIT' ),),
12010          BASE_MODALE     =SIMP(statut='o',typ=base_modale ),
12011          MATR_RIGI       =SIMP(statut='f',typ=matr_asse_depl_r ),
12012          MATR_MASS       =SIMP(statut='f',typ=matr_asse_depl_r ),
12013          MATR_AMOR       =SIMP(statut='f',typ=matr_asse_depl_r ),
12014          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
12015          OPTION          =SIMP(statut='f',typ='TXM',defaut="CLASSIQUE",into=("CLASSIQUE","RITZ",
12016                           "DIAG_MASS") ),
12017 )  ;
12018 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
12019 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12020 # ======================================================================
12021 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12022 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12023 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12024 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12025 # (AT YOUR OPTION) ANY LATER VERSION.
12026 #
12027 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12028 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12029 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12030 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12031 #
12032 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12033 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12034 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12035 # ======================================================================
12036 MACR_ELEM_STAT=OPER(nom="MACR_ELEM_STAT",op=86,sd_prod=macr_elem_stat,docu="U4.62.01-f1",reentrant='f',
12037                     fr="Définition d un macro-élément pour l analyse statique par sous structuration",
12038         regles=(AU_MOINS_UN('DEFINITION','RIGI_MECA','MASS_MECA','CAS_CHARGE'),
12039                 ENSEMBLE('DEFINITION','EXTERIEUR'),),
12040          DEFINITION      =FACT(statut='f',min=1,max=1,
12041            MODELE          =SIMP(statut='o',typ=modele),
12042            CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
12043            CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
12044            CHAR_MACR_ELEM  =SIMP(statut='f',typ=char_meca),
12045            INST            =SIMP(statut='f',typ='R',defaut=0.0E+0 ),
12046            NMAX_CAS        =SIMP(statut='f',typ='I',defaut=10),
12047            NMAX_CHAR       =SIMP(statut='f',typ='I',defaut=10),
12048          ),
12049          EXTERIEUR       =FACT(statut='f',min=1,max=1,
12050            regles=(AU_MOINS_UN('NOEUD','GROUP_NO'),),
12051            NOEUD           =SIMP(statut='f',typ=no,max='**'),
12052            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
12053          ),
12054          RIGI_MECA       =FACT(statut='f',min=1,max=1,
12055          ),
12056          MASS_MECA       =FACT(statut='f',min=1,max=1,
12057            BIDO1           =SIMP(statut='f',typ='I',defaut=0),
12058          ),
12059          CAS_CHARGE      =FACT(statut='f',min=1,max='**',
12060            NOM_CAS         =SIMP(statut='o',typ='TXM'),
12061            SUIV            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
12062            CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
12063            INST            =SIMP(statut='f',typ='R',defaut=0.E+0),
12064          ),
12065 )  ;
12066 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
12067 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12068 # ======================================================================
12069 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12070 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12071 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12072 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12073 # (AT YOUR OPTION) ANY LATER VERSION.
12074 #
12075 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12076 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12077 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12078 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12079 #
12080 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12081 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12082 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12083 # ======================================================================
12084 MACR_GOUJ2E_CALC=MACRO(nom="MACR_GOUJ2E_CALC",op=-23,sd_prod=evol_noli,
12085                       fr=" ",docu="U4.GJ.20-a",reentrant='n',
12086          MAILLAGE        =SIMP(statut='o',typ=maillage),
12087          DEFI_GOUJ       =FACT(statut='o',min=01,max=01,
12088            TYPE            =SIMP(statut='o',typ='TXM',into=("M33","M64","M90","M115","M155","M180","M186")),
12089            VARIANTE        =SIMP(statut='o',typ='TXM',into=("A","B","C","D","E","F","G","H","I","J","K","L","M",
12090                                                             "N","O","P","Q","R","S","T","U","V","W","X","Y","Z")),
12091            FILET_TRONQUE   =SIMP(statut='f',typ='I',max='**'),
12092            FILET_TRONQA    =SIMP(statut='f',typ='I',max='**'),
12093            FILET_TRONQB    =SIMP(statut='f',typ='I',max='**'),
12094            FILET_JEU_HT    =SIMP(statut='f',typ='I',max='**'),
12095            FILET_JEU_HTA   =SIMP(statut='f',typ='I',max='**'),
12096            FILET_JEU_HTB   =SIMP(statut='f',typ='I',max='**'),
12097          ),
12098          EXCIT           =FACT(statut='o',min=01,max=01,
12099            TYPE_BLOCAGE    =SIMP(statut='o',typ='I',defaut=2,into=(1,2,3)),
12100            FORCE_GOUJ      =SIMP(statut='o',typ='R'),
12101          ),
12102          CALCUL          =FACT(statut='o',min=01,max=01,
12103            TYPE_CALCUL     =SIMP(statut='o',typ='TXM',into=("ELASTIQUE","ELASTOPLASTIQUE")),
12104            NB_INCR         =SIMP(statut='o',typ='I'),
12105          ),
12106          IMPRESSION      =FACT(statut='f',min=01,max=01,
12107            FORMAT          =SIMP(statut='f',typ='TXM',defaut="TABLE",
12108                                  into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED","TABLE")),
12109            VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12110          ),
12111          TITRE           =SIMP(statut='f',typ='TXM'),
12112          INFO            =SIMP(statut='f',typ='I',defaut=1 ,into=(1,2)),
12113 )  ;
12114 #& MODIF COMMANDE  DATE 03/10/2001   AUTEUR DURAND C.DURAND
12115 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12116 # ======================================================================
12117 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12118 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12119 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12120 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12121 # (AT YOUR OPTION) ANY LATER VERSION.
12122 #
12123 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12124 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12125 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12126 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12127 #
12128 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12129 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12130 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12131 # ======================================================================
12132 MACR_GOUJ2E_MAIL=MACRO(nom="MACR_GOUJ2E_MAIL",op= -22,sd_prod=maillage,
12133                       fr=" ",docu="U4.GJ.10-a",reentrant='n',
12134          EXEC_MAILLAGE   =FACT(statut='o',min=1,max=1,
12135            LOGICIEL        =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000") ),
12136            UNITE_DATG      =SIMP(statut='f',typ='I',defaut=70),
12137            UNITE_MGIB      =SIMP(statut='f',typ='I',defaut=19),
12138            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10)),
12139          ),
12140          DEFI_GOUJ       =FACT(statut='o',min=1,max=1,
12141            TYPE            =SIMP(statut='o',typ='TXM',into=("M33","M64","M90","M115","M155","M180","M186")),
12142            VARIANTE        =SIMP(statut='o',typ='TXM',into=("A","B","C","D","E","F","G","H","I","J","K","L","M",
12143                                                             "N","O","P","Q","R","S","T","U","V","W","X","Y","Z")),
12144          ),
12145          GEOM_GOUJ_BRID  =FACT(statut='o',min=1,max=1,
12146            NB_FILET        =SIMP(statut='o',typ='I'),
12147            H_CORP_BRID     =SIMP(statut='o',typ='R'),
12148            R_EXT_BRID      =SIMP(statut='o',typ='R'),
12149            H_HAUT_BRID     =SIMP(statut='f',typ='R',defaut=0.0E+0),
12150            H_BAS_BRID      =SIMP(statut='f',typ='R',defaut= 0.0E+0),
12151            FILET_ABST      =SIMP(statut='f',typ='I',max='**'),
12152          ),
12153          IMPRESSION      =FACT(statut='f',min=1,max=1,
12154            regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
12155            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
12156                                  into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED")),
12157            FICHIER         =SIMP(statut='f',typ='TXM'),
12158            UNITE           =SIMP(statut='f',typ='I'),
12159            VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12160            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
12161          ),
12162          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12163 )  ;
12164 #& MODIF COMMANDE  DATE 16/07/2002   AUTEUR GNICOLAS G.NICOLAS
12165 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12166 # ======================================================================
12167 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12168 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12169 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12170 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12171 # (AT YOUR OPTION) ANY LATER VERSION.
12172 #
12173 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12174 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12175 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12176 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12177 #
12178 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12179 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12180 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12181 # ======================================================================
12182 # RESPONSABLE GNICOLAS G.NICOLAS
12183 MACR_INFO_MAIL=MACRO(nom="MACR_INFO_MAIL",op=-24,docu="U7.03.02-b2",
12184                      fr="Donner des informations sur un maillage.",
12185                      ang="To give information about a mesh.",
12186 #
12187 # 1. Le niveau d'information
12188 #
12189          INFO           = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12190 #
12191 # 2. Version de HOMARD
12192 #
12193          VERSION_HOMARD = SIMP(statut='f',typ='TXM',defaut="V5_3",
12194                                into=("V5_3", "V5_N","V5_N_PERSO"),
12195                            fr="Version de HOMARD",
12196                            ang="HOMARD release"),
12197 #
12198 # 3. Langue des messages issus de HOMARD
12199 #
12200          LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
12201                                into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
12202                            fr="Langue des messages issus de HOMARD.",
12203                            ang="Language for HOMARD messages." ),
12204 #
12205 # 4. Le nom du maillage a analyser
12206 #
12207          MAILLAGE       = SIMP(statut='o',typ=maillage,
12208                            fr="Maillage à analyser.",
12209                            ang="Mesh to be checked." ),
12210 #
12211 # 5. Les options ; par defaut, on ne fait que les nombres
12212 # 5.1. Nombre de noeuds et elements
12213 #
12214          NOMBRE         = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
12215                           fr="Nombre de noeuds et éléments du maillage",
12216                           ang="Number of nodes and elements in the mesh" ),
12217 #
12218 # 5.2. Determination de la qualite des elements du maillage
12219 #
12220          QUALITE        = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12221                           fr="Qualité du maillage",
12222                           ang="Mesh quality" ),
12223 #
12224 # 5.3. Connexite du maillage
12225 #
12226          CONNEXITE      = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12227                           fr="Connexité du maillage.",
12228                           ang="Mesh connexity." ),
12229 #
12230 # 5.4. Taille des sous-domaines du maillage
12231 #
12232          TAILLE         = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12233                           fr="Tailles des sous-domaines du maillage.",
12234                           ang="Sizes of mesh sub-domains." ),
12235 #
12236 # 5.5. Controle de la non-interpenetration des elements
12237 #
12238          INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12239                           fr="Controle de la non interpénétration des éléments.",
12240                           ang="Overlapping checking." ),
12241 #
12242 )  ;
12243 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR DURAND C.DURAND
12244 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12245 # ======================================================================
12246 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
12247 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12248 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12249 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12250 # (AT YOUR OPTION) ANY LATER VERSION.
12251 #
12252 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12253 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12254 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12255 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12256 #
12257 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12258 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12259 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12260 # ======================================================================
12261
12262 from Macro.macr_lign_coupe_ops import macr_lign_coupe_ops
12263
12264 def macr_lign_coupe_prod(self,LIGN_COUPE,**args):
12265   if not LIGN_COUPE:  raise AsException("Impossible de typer les concepts resultats")
12266   for m in LIGN_COUPE:
12267     self.type_sdprod(m['TABLE'],table)
12268   return None
12269
12270
12271 MACR_LIGN_COUPE=MACRO(nom="MACR_LIGN_COUPE",op=macr_lign_coupe_ops,sd_prod=macr_lign_coupe_prod,
12272                        docu="",reentrant='n',
12273                        fr="extraction d un résultat sur des lignes de coupes définies par 2 points et un intervalle",
12274          RESULTAT        =SIMP(statut='o',typ=(evol_elas,evol_noli,evol_ther) ),
12275          b_meca        =BLOC(condition = "AsType(RESULTAT) in (evol_elas,evol_noli)",fr="résultat mécanique",
12276            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut='SIGM_NOEU_DEPL' ),
12277          ),
12278          b_ther        =BLOC(condition = "AsType(RESULTAT) in (evol_ther,)",fr="résultat thermique",
12279            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut='TEMP' ),
12280          ),
12281          MODELE          =SIMP(statut='o',typ=modele ),
12282          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=25),
12283          LIGN_COUPE     =FACT(statut='o',min=1,max='**',
12284            NB_POINTS       =SIMP(statut='o',typ='I'),
12285            COOR_ORIG       =SIMP(statut='o',typ='R',min=2,max=3),
12286            COOR_EXTR       =SIMP(statut='o',typ='R',min=2,max=3),
12287            TABLE           =SIMP(statut='o',typ=(table,CO)),
12288          ),
12289 )  ;
12290 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
12291 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12292 # ======================================================================
12293 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12294 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12295 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12296 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12297 # (AT YOUR OPTION) ANY LATER VERSION.
12298 #
12299 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12300 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12301 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12302 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12303 #
12304 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12305 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12306 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12307 # ======================================================================
12308 # RESPONSABLE JMBHH01 J.M.PROIX
12309
12310 from Macro.macro_cara_poutre_ops import macro_cara_poutre_ops
12311
12312 MACRO_CARA_POUTRE=MACRO(nom="MACRO_CARA_POUTRE",op=macro_cara_poutre_ops,sd_prod=tabl_cara_geom,
12313                        docu="U4.42.02-d1",reentrant='n',
12314                        fr="caractéristiques d'une section transversale de poutre à partir d'un maillage 2D",
12315          regles=(EXCLUS('SYME_X','GROUP_MA_BORD'),
12316                  EXCLUS('SYME_Y','GROUP_MA_BORD'),
12317                  ENSEMBLE('LONGUEUR','LIAISON','MATERIAU') ,),
12318          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut= 20 ),
12319          SYME_X          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
12320          SYME_Y          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
12321          GROUP_MA_BORD   =SIMP(statut='f',typ=grma,max='**'),
12322          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
12323          ORIG_INER       =SIMP(statut='f',typ='R',max='**',defaut=(0.E+0,0.E+0)),
12324          NOEUD           =SIMP(statut='f',typ=no,max='**'),
12325          GROUP_MA_INTE   =SIMP(statut='f',typ=grma,max='**'),
12326          LONGUEUR        =SIMP(statut='f',typ='R'),
12327          MATERIAU        =SIMP(statut='f',typ=mater),
12328          LIAISON         =SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT")),
12329          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12330 )  ;
12331 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
12332 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12333 # ======================================================================
12334 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12335 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12336 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12337 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12338 # (AT YOUR OPTION) ANY LATER VERSION.
12339 #
12340 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12341 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12342 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12343 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12344 #
12345 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12346 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12347 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12348 # ======================================================================
12349 MACRO_CHAR_F_U=MACRO(nom="MACRO_CHAR_F_U",op=-15,sd_prod=char_meca,
12350                     fr=" ",docu="U4.72.07-a",reentrant='n',
12351          MODELE          =SIMP(statut='o',typ=modele),
12352          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
12353          CHARGE          =SIMP(statut='o',typ=char_meca),
12354          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
12355          COEF_IMPO       =SIMP(statut='f',typ='R',defaut=1.0E+0),
12356          NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="APRES",into=("NORMAL","APRES")),
12357          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12358 )  ;
12359 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
12360 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12361 # ======================================================================
12362 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12363 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12364 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12365 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12366 # (AT YOUR OPTION) ANY LATER VERSION.
12367 #
12368 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12369 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12370 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12371 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12372 #
12373 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12374 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12375 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12376 # ======================================================================
12377 # RESPONSABLE G8BHHXD X.DESROCHES
12378
12379 from Macro.macro_elas_mult_ops import macro_elas_mult_ops
12380
12381 def macro_elas_mult_prod(self,NUME_DDL,CAS_CHARGE,**args ):
12382   self.type_sdprod(NUME_DDL,nume_ddl)
12383   if CAS_CHARGE[0]['NOM_CAS']      != None : return mult_elas
12384   if CAS_CHARGE[0]['MODE_FOURIER'] != None : return fourier_elas
12385   raise AsException("type de concept resultat non prevu")
12386
12387 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',
12388          regles=(UN_PARMI('CHAR_MECA_GLOBAL','CHAR_CINE_GLOBAL','LIAISON_DISCRET', ),),
12389          MODELE          =SIMP(statut='o',typ=modele),
12390          CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
12391          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
12392          NUME_DDL        =SIMP(statut='f',typ=(nume_ddl,CO)),
12393          CHAR_MECA_GLOBAL=SIMP(statut='f',typ=char_meca,max='**'),
12394          CHAR_CINE_GLOBAL=SIMP(statut='f',typ=char_meca,max='**'),
12395          LIAISON_DISCRET =SIMP(statut='f',typ='TXM',into=("OUI",)),
12396          CAS_CHARGE      =FACT(statut='o',min=1,max='**',
12397            regles=(UN_PARMI('NOM_CAS','MODE_FOURIER'),
12398                    UN_PARMI('CHAR_MECA','CHAR_CINE','VECT_ASSE'),),
12399            NOM_CAS         =SIMP(statut='f',typ='TXM' ),
12400            MODE_FOURIER    =SIMP(statut='f',typ='I' ),
12401            TYPE_MODE       =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
12402            CHAR_MECA       =SIMP(statut='f',typ=char_meca,max='**'),
12403            CHAR_CINE       =SIMP(statut='f',typ=char_meca,max='**'),
12404            OPTION          =SIMP(statut='f',typ='TXM',max='**',
12405                                  into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
12406                                        "SIGM_ELNO_CART","EFGE_ELNO_CART","DEGE_ELNO_DEPL","EPSI_ELNO_DEPL",
12407                                        "EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO","EPSP_ELGA",
12408                                        "ECIN_ELEM_DEPL","FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","SOUR_ELGA_ELEC",
12409                                        "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG","INTE_ELNO_ACTI",
12410                                        "INTE_ELNO_REAC","SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA",
12411                                        "ERRE_ELEM_NOZ2","VNOR_ELEM_DEPL","ERRE_ELNO_ELGA","SIRE_ELNO_DEPL",
12412                                        "ERRE_ELGA_NORE","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI",
12413                                        "EQUI_ELGA_EPSI","FORC_NODA","REAC_NODA","EPSI_NOEU_DEPL","SIGM_NOEU_DEPL",
12414                                        "EFGE_NOEU_DEPL","EQUI_NOEU_SIGM","EQUI_NOEU_EPSI","FLUX_NOEU_TEMP") ),
12415            NUME_COUCHE     =SIMP(statut='f',typ='I',defaut=1),
12416            NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY")),
12417            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
12418            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r),
12419          ),
12420          SOLVEUR         =FACT(statut='d',min=1,max=1,
12421            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT") ),
12422            b_mult_front    = BLOC ( condition = "METHODE == 'MULT_FRONT' ",
12423                                     fr="Paramètres de la méthode multi frontale",
12424              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
12425            ),
12426            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
12427              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
12428             ),
12429            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
12430                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
12431              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
12432              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12433            ),
12434          ),
12435          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2)),
12436          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
12437 )  ;
12438 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
12439 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12440 # ======================================================================
12441 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12442 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12443 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12444 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12445 # (AT YOUR OPTION) ANY LATER VERSION.
12446 #
12447 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12448 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12449 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12450 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12451 #
12452 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12453 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12454 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12455 # ======================================================================
12456 MACRO_MADMACS=MACRO(nom="MACRO_MADMACS",op=-9,docu="U7.03.21-c",
12457                     fr="Impression au format IDEAS des données pour chainage entre Code_Aster et MADMACS",
12458          regles=(UN_PARMI('MATR_ELEM_RIGI','MATR_RIGI'),
12459                  UN_PARMI('MATR_ELEM_MASS','MATR_MASS'),
12460                  PRESENT_ABSENT('MATR_ELEM_AMOR','MATR_AMOR'),),
12461          FICHIER         =SIMP(statut='f',typ='TXM' ),
12462          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",)),
12463          VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(5,)),
12464          MAILLAGE        =SIMP(statut='o',typ=maillage),
12465          NUME_DDL        =SIMP(statut='o',typ=nume_ddl),
12466          CHARGE          =SIMP(statut='o',typ=char_meca,max='**'),
12467          MATR_ELEM_RIGI  =SIMP(statut='f',typ=matr_elem_depl_r),
12468          MATR_RIGI       =SIMP(statut='f',typ=matr_asse_depl_r),
12469          MATR_ELEM_MASS  =SIMP(statut='f',typ=matr_elem_depl_r),
12470          MATR_MASS       =SIMP(statut='f',typ=matr_asse_depl_r),
12471          MATR_ELEM_AMOR  =SIMP(statut='f',typ=matr_elem_depl_r),
12472          MATR_AMOR       =SIMP(statut='f',typ=matr_asse_depl_r),
12473          MODE_MECA       =SIMP(statut='o',typ=mode_meca),
12474          NMAX_MODE       =SIMP(statut='f',typ='I',defaut=10),
12475          INTERFACE       =FACT(statut='f',min=01,max='**',
12476            regles=(UN_PARMI('NOEUD','GROUP_NO'),
12477                    UN_PARMI('DDL_ACTIF','MASQUE'),),
12478            NOM             =SIMP(statut='o',typ='TXM'),
12479            NOEUD           =SIMP(statut='f',typ=no,max='**'),
12480            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
12481            DDL_ACTIF       =SIMP(statut='f',typ='TXM',max='**'),
12482            MASQUE          =SIMP(statut='f',typ='TXM',max='**'),
12483          ),
12484          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12485 )  ;
12486 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
12487 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12488 # ======================================================================
12489 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12490 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12491 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12492 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12493 # (AT YOUR OPTION) ANY LATER VERSION.
12494 #
12495 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12496 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12497 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12498 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12499 #
12500 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12501 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12502 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12503 # ======================================================================
12504 def macro_matr_ajou_prod(self,MATR_AMOR_AJOU,MATR_MASS_AJOU,MATR_RIGI_AJOU,FORC_AJOU,**args):
12505   self.type_sdprod(MATR_AMOR_AJOU,matr_asse_depl_r)
12506   self.type_sdprod(MATR_MASS_AJOU,matr_asse_depl_r)
12507   self.type_sdprod(MATR_RIGI_AJOU,matr_asse_depl_r)
12508   if FORC_AJOU != None:
12509     for m in FORC_AJOU:
12510       self.type_sdprod(m['VECTEUR'],vect_asse_gene)
12511
12512   return None
12513
12514 MACRO_MATR_AJOU=MACRO(nom="MACRO_MATR_AJOU",op=-13,docu="U4.66.11-c1",sd_prod=macro_matr_ajou_prod,
12515       regles=(AU_MOINS_UN('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
12516               AU_MOINS_UN('MATR_MASS_AJOU','MATR_AMOR_AJOU','MATR_RIGI_AJOU'),
12517               EXCLUS('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
12518               EXCLUS('MONO_APPUI','MODE_STAT',),
12519              ),
12520          MAILLAGE        =SIMP(statut='o',typ=maillage),
12521          GROUP_MA_FLUIDE =SIMP(statut='o',typ=grma),
12522          GROUP_MA_INTERF =SIMP(statut='o',typ=grma),
12523          MODELISATION    =SIMP(statut='o',typ='TXM',into=("PLAN","AXIS","3D")),
12524          FLUIDE          =FACT(statut='o',min=1,max='**',
12525            RHO             =SIMP(statut='o',typ='R'),
12526            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
12527            GROUP_MA        =SIMP(statut='f',typ=grma),
12528            MAILLE          =SIMP(statut='f',typ=ma),
12529          ),
12530          DDL_IMPO        =FACT(statut='o',min=1,max='**',
12531            regles=(UN_PARMI('NOEUD','GROUP_NO'),
12532                    UN_PARMI('PRES_FLUIDE','PRES_SORTIE'),),
12533            NOEUD           =SIMP(statut='f',typ=no),
12534            GROUP_NO        =SIMP(statut='f',typ=grno),
12535            PRES_FLUIDE     =SIMP(statut='f',typ='R'),
12536            PRES_SORTIE     =SIMP(statut='f',typ='R'),
12537          ),
12538          ECOULEMENT      =FACT(statut='f',min=1,max='**',
12539            GROUP_MA_1      =SIMP(statut='o',typ=grma),
12540            GROUP_MA_2      =SIMP(statut='o',typ=grma),
12541            VNOR_1          =SIMP(statut='o',typ='R'),
12542            VNOR_2          =SIMP(statut='f',typ='R'),
12543            POTENTIEL       =SIMP(statut='f',typ=evol_ther),
12544          ),
12545          MODE_MECA       =SIMP(statut='f',typ=mode_meca),
12546          DEPL_IMPO       =SIMP(statut='f',typ=cham_no_depl_r),
12547          MODELE_GENE     =SIMP(statut='f',typ=modele_gene),
12548          NUME_DDL_GENE   =SIMP(statut='f',typ=nume_ddl_gene),
12549          DIST_REFE       =SIMP(statut='f',typ='R',defaut= 1.0E-2),
12550          MATR_MASS_AJOU  =SIMP(statut='f',typ=(CO,matr_asse)),
12551          MATR_RIGI_AJOU  =SIMP(statut='f',typ=(CO,matr_asse)),
12552          MATR_AMOR_AJOU  =SIMP(statut='f',typ=(CO,matr_asse)),
12553          MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",),),
12554          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,),),
12555          FORC_AJOU       =FACT(statut='f',min=1,max='**',
12556            DIRECTION     =SIMP(statut='o',typ='R',max=3),
12557            NOEUD         =SIMP(statut='f',typ=no,max='**'),
12558            GROUP_NO      =SIMP(statut='f',typ=grno,max='**'),
12559            VECTEUR       =SIMP(statut='o',typ=(CO,vect_asse_gene)),
12560          ),
12561          SOLVEUR         =FACT(statut='d',min=1,max=1,
12562            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
12563            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
12564              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
12565            ),
12566            b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
12567              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
12568            ),
12569            b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
12570                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
12571              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
12572              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12573            ),
12574            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
12575              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
12576              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
12577              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
12578              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
12579              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
12580            ),
12581 #  A quoi sert eps
12582            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12583          ),
12584          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12585          NOEUD_DOUBLE    =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
12586          AVEC_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
12587 ) ;
12588 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
12589 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12590 # ======================================================================
12591 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12592 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12593 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12594 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12595 # (AT YOUR OPTION) ANY LATER VERSION.
12596 #
12597 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12598 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12599 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12600 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12601 #
12602 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12603 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12604 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12605 # ======================================================================
12606
12607 from Macro.macro_matr_asse_ops import macro_matr_asse_ops
12608
12609 def macro_matr_asse_prod(self,NUME_DDL,MATR_ASSE,**args):
12610   if not MATR_ASSE:  raise AsException("Impossible de typer les concepts resultats")
12611   if not NUME_DDL:  raise AsException("Impossible de typer les concepts resultats")
12612   self.type_sdprod(NUME_DDL,nume_ddl)
12613   for m in MATR_ASSE:
12614     opti=m['OPTION']
12615
12616     if opti in ( "RIGI_MECA","RIGI_FLUI_STRU","RIGI_MECA_LAGR" ,
12617        "MASS_MECA" , "MASS_FLUI_STRU" ,"RIGI_GEOM" ,"RIGI_ROTA",
12618        "AMOR_MECA","IMPE_MECA","MASS_ID_MDEP_R","MASS_ID_MDNS_R",
12619        "ONDE_FLUI","MASS_MECA_DIAG" ) : t=matr_asse_depl_r
12620
12621     if opti in ( "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",) : t=matr_asse_pres_c
12622
12623     if opti in ( "RIGI_THER","MASS_THER","RIGI_THER_CONV" ,
12624        "RIGI_THER_CONV_D","MASS_ID_MTEM_R","MASS_ID_MTNS_R",) : t=matr_asse_temp_r
12625
12626     if opti == "RIGI_MECA_HYST"   : t= matr_asse_depl_c
12627
12628     self.type_sdprod(m['MATRICE'],t)
12629   return None
12630
12631 MACRO_MATR_ASSE=MACRO(nom="MACRO_MATR_ASSE",op=macro_matr_asse_ops,docu="U4.61.21-d1",
12632                       sd_prod=macro_matr_asse_prod,
12633                       fr="Calcul des matrices assemblées (matr_asse_gd) par exemple de rigidité, de masse ",
12634          MODELE          =SIMP(statut='o',typ=modele),
12635          CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
12636          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
12637          CHARGE          =SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**'),
12638          INST            =SIMP(statut='f',typ='R'),
12639          NUME_DDL        =SIMP(statut='o',typ=(nume_ddl,CO)),
12640          SOLVEUR         =FACT(statut='d',min=1,max=1,
12641            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",
12642                                  into=("LDLT","MULT_FRONT","GCPC")),
12643            RENUM           =SIMP(statut='f',typ='TXM',into=("SANS","RCMK","MD","MDA","METIS")),
12644          ),
12645          MATR_ASSE       =FACT(statut='o',min=1,max='**',
12646            MATRICE         =SIMP(statut='o',typ=(matr_asse,CO)),
12647            OPTION          =SIMP(statut='o',typ='TXM',
12648                                  into=("RIGI_MECA","MASS_MECA","MASS_MECA_DIAG",
12649                                        "AMOR_MECA","RIGI_MECA_HYST","IMPE_MECA",
12650                                        "ONDE_FLUI","RIGI_FLUI_STRU","MASS_FLUI_STRU",
12651                                        "RIGI_ROTA","RIGI_GEOM","RIGI_MECA_LAGR",
12652                                        "RIGI_THER","MASS_THER",
12653                                        "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",
12654                                        "MASS_ID_MTEM_R","MASS_ID_MTNS_R","MASS_ID_MDEP_R","MASS_ID_MDNS_R",)
12655                                  ),
12656            SIEF_ELGA       =SIMP(statut='f',typ=cham_elem_sief_r),
12657            MODE_FOURIER    =SIMP(statut='f',typ='I'),
12658            THETA           =SIMP(statut='f',typ=theta_geom),
12659            PROPAGATION     =SIMP(statut='f',typ='R'),
12660          ),
12661          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
12662          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12663 )  ;
12664 #& MODIF COMMANDE  DATE 11/06/2002   AUTEUR DURAND C.DURAND
12665 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12666 # ======================================================================
12667 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12668 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12669 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12670 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12671 # (AT YOUR OPTION) ANY LATER VERSION.
12672 #
12673 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12674 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12675 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12676 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12677 #
12678 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12679 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12680 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12681 # ======================================================================
12682
12683 from Macro.macro_miss_3d_ops import macro_miss_3d_ops
12684
12685 MACRO_MISS_3D=MACRO(nom="MACRO_MISS_3D",op=macro_miss_3d_ops,fr=" ",docu="U7.03.11-a",
12686          OPTION          =FACT(statut='o',min=1,max=1,
12687            regles=(UN_PARMI('TOUT','MODULE'),),
12688            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
12689            MODULE          =SIMP(statut='f',typ='TXM',into=("PRE_MISS","MISS_EVOL","MISS_IMPE")),
12690          ),
12691          PROJET          =SIMP(statut='o',typ='TXM'),
12692          REPERTOIRE      =SIMP(statut='f',typ='TXM'),
12693          UNITE_IMPR_ASTER=SIMP(statut='f',typ='I',defaut=25),
12694          UNITE_OPTI_MISS =SIMP(statut='f',typ='I',defaut=26),
12695          UNITE_MODELE_SOL=SIMP(statut='f',typ='I',defaut=27),
12696          UNITE_RESU_IMPE =SIMP(statut='f',typ='I',defaut=30),
12697 )  ;
12698 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
12699 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12700 # ======================================================================
12701 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12702 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12703 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12704 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12705 # (AT YOUR OPTION) ANY LATER VERSION.
12706 #
12707 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12708 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12709 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12710 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12711 #
12712 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12713 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12714 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12715 # ======================================================================
12716
12717 from Macro.macro_mode_meca_ops import macro_mode_meca_ops
12718
12719 def macro_mode_meca_prod(self,MATR_A,MATR_B,**args ):
12720   self.type_sdprod(MATR_A,matr_asse_depl_r)
12721   self.type_sdprod(MATR_B,matr_asse_depl_r)
12722   return mode_meca
12723
12724 MACRO_MODE_MECA=MACRO(nom="MACRO_MODE_MECA",op=macro_mode_meca_ops,sd_prod=macro_mode_meca_prod,
12725                      docu="U4.52.02-d1",reentrant='n',
12726          MATR_A          =SIMP(statut='o',typ=(CO,matr_asse_depl_r) ),
12727          MATR_B          =SIMP(statut='o',typ=(CO,matr_asse_depl_r) ),
12728          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
12729 #  ce mot cle ne devrait il pas etre dans calc_freq
12730          METHODE         =SIMP(statut='f',typ='TXM',defaut="SORENSEN",
12731                                into=("TRI_DIAG","JACOBI","SORENSEN",) ),
12732          OPTION          =SIMP(statut='f',typ='TXM',defaut="SANS",
12733                                into=("MODE_RIGIDE","SANS") ),
12734          CALC_FREQ       =FACT(statut='d',min=0,max=1,
12735            regles=(UN_PARMI('FREQ','FREQ_MAX'),
12736                    PRESENT_PRESENT('FREQ_MIN','FREQ_MAX'),
12737                    PRESENT_PRESENT('FREQ_MAX','NB_BLOC_FREQ'),
12738                    EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
12739            FREQ            =SIMP(statut='f',typ='R',min=2,max='**',val_min=0.E+0 ),
12740            FREQ_MIN        =SIMP(statut='f',typ='R' ),
12741            FREQ_MAX        =SIMP(statut='f',typ='R' ),
12742            NB_BLOC_FREQ    =SIMP(statut='f',typ='I' ),
12743            DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
12744            COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
12745            NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8 ),
12746            NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
12747            PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
12748            PREC_LANCZOS    =SIMP(statut='f',typ='R',defaut= 1.E-10 ),
12749            PREC_ORTHO      =SIMP(statut='f',typ='R',defaut= 1.E-12 ),
12750            NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5 ),
12751            NMAX_ITER_QR    =SIMP(statut='f',typ='I',defaut= 30 ),
12752            PREC_BATHE      =SIMP(statut='f',typ='R',defaut= 1.4E-10 ),
12753            NMAX_ITER_BATHE =SIMP(statut='f',typ='I' ,defaut= 12 ),
12754            PREC_JACOBI     =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
12755            NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12 ),
12756            PREC_SOREN      =SIMP(statut='f',typ='R',defaut= 0.E0 ),
12757            NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20 ),
12758            PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717 ),
12759            SEUIL_FREQ      =SIMP(statut='f',typ='R' ,defaut= 1.E-2 ),
12760            STOP_FREQ_VIDE  =SIMP(statut='f',typ='TXM',defaut="NON" ,into=("OUI","NON") ),
12761          ),
12762          VERI_MODE       =FACT(statut='d',min=0,max=1,
12763            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12764            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
12765            PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
12766            STURM           =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12767          ),
12768          NORM_MODE       =FACT(statut='o',min=1,max='**',
12769            MASS_INER       =SIMP(statut='o',typ=tabl_mass_iner ),
12770            NORME           =SIMP(statut='f',typ='TXM',defaut="TRAN_ROTA",
12771                                  into=("MASS_GENE","RIGI_GENE","EUCL",
12772                                        "EUCL_TRAN","TRAN","TRAN_ROTA") ),
12773            INFO            =SIMP(statut='f',typ='I',defaut= 1 ,into=(1,2) ),
12774          ),
12775          FILTRE_MODE     =FACT(statut='f',min=1,max=1,
12776            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
12777                                  into=("MASS_EFFE_UN","MASS_GENE") ),
12778            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
12779          ),
12780          IMPRESSION      =FACT(statut='d',min=1,max=1,
12781            TOUT_PARA       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12782            CUMUL           =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12783            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
12784                                  into=("MASS_EFFE_UN","MASS_GENE",) ),
12785          ),
12786 )  ;
12787 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
12788 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12789 # ======================================================================
12790 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12791 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12792 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12793 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12794 # (AT YOUR OPTION) ANY LATER VERSION.
12795 #
12796 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12797 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12798 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12799 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12800 #
12801 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12802 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12803 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12804 # ======================================================================
12805
12806 from Macro.macro_proj_base_ops import macro_proj_base_ops
12807
12808 def macro_proj_base_prod(self,MATR_ASSE_GENE,VECT_ASSE_GENE,**args ):
12809   if MATR_ASSE_GENE != None:
12810     for m in MATR_ASSE_GENE:
12811       self.type_sdprod(m['MATRICE'],matr_asse_gene_r)
12812       self.type_sdprod(m['MATR_ASSE'],matr_asse_depl_r)
12813   if VECT_ASSE_GENE != None:
12814     for v in VECT_ASSE_GENE:
12815       self.type_sdprod(v['VECTEUR'],vect_asse_gene)
12816   return None
12817
12818 MACRO_PROJ_BASE=MACRO(nom="MACRO_PROJ_BASE",op=macro_proj_base_ops,docu="U4.63.11-d1",
12819                       sd_prod=macro_proj_base_prod,
12820                       fr="Projection des matrices et/ou vecteurs assemblés sur une base de vecteurs",
12821          BASE            =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene) ),
12822          NB_VECT         =SIMP(statut='f',typ='I',defaut= 9999),
12823          MATR_ASSE_GENE  =FACT(statut='f',min=01,max='**',
12824            MATRICE         =SIMP(statut='o',typ=(CO,matr_asse)),
12825            MATR_ASSE       =SIMP(statut='f',typ=matr_asse_depl_r),
12826            MATR_ASSE_GENE  =SIMP(statut='f',typ=matr_asse_gene_r),
12827            PROFIL          =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("PLEIN","DIAG") ),
12828          ),
12829          VECT_ASSE_GENE  =FACT(statut='f',min=01,max='**',
12830            VECTEUR         =SIMP(statut='o',typ=(CO,vect_asse)),
12831            TYPE_VECT       =SIMP(statut='f',typ='TXM',defaut="FORC"),
12832            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r),
12833            VECT_ASSE_GENE  =SIMP(statut='f',typ=vect_asse_gene),
12834          ),
12835          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12836 )  ;
12837 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
12838 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12839 # ======================================================================
12840 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12841 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12842 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12843 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12844 # (AT YOUR OPTION) ANY LATER VERSION.
12845 #
12846 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12847 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12848 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12849 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12850 #
12851 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12852 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12853 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12854 # ======================================================================
12855 MAJ_CATA=PROC(nom="MAJ_CATA",op=20,docu="U4.15.01-e1",
12856               fr="Compilation des catalogues de commandes et d éléments",
12857
12858          ELEMENT         =FACT(statut='f',min=01,max=01,),
12859
12860 )  ;
12861 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
12862 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12863 # ======================================================================
12864 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12865 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
12866 #              REDISTRIBUTION OF THIS FILE.
12867 # ======================================================================
12868 # RESPONSABLE VABHHTS J.PELLET
12869 MECA_STATIQUE=OPER(nom="MECA_STATIQUE",op=46,sd_prod=evol_elas,
12870                    fr="Analyse mécanique statique linéaire",docu="U4.51.01-g1",reentrant='n',
12871                    regles=(EXCLUS("INST","LIST_INST"),
12872                            AU_MOINS_UN('CHAM_MATER','CARA_ELEM',), ),
12873          MODELE          =SIMP(statut='o',typ=modele),
12874          CHAM_MATER      =SIMP(statut='f',typ=cham_mater,
12875          fr="le CHAM_MATER est nécessaire, sauf si le modèle ne contient que des éléments discrets (modélisations DIS_XXX)",
12876          ang="CHAM_MATER is compulsory, except if the model contains only discret elements (modelizations DIS_XXX)"),
12877          CARA_ELEM       =SIMP(statut='f',typ=cara_elem,
12878          fr="le CARA_ELEM est nécessaire dès que le modèle contient des éléments de structure : coques, poutres, ...",
12879          ang="CARA_ELEM is compulsory as soon as the model contains structural elements : plates, beams, ..."),
12880          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
12881          EXCIT           =FACT(statut='o',min=1,max='**',
12882            CHARGE          =SIMP(statut='o',typ=(char_meca,char_cine_meca)),
12883            FONC_MULT       =SIMP(statut='f',typ=fonction),
12884            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
12885          ),
12886          INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12887          LIST_INST       =SIMP(statut='f',typ=listr8),
12888          OPTION          =SIMP(statut='f',typ='TXM',max='**',
12889                                into=("SANS","SIGM_ELNO_DEPL","SIPO_ELNO_DEPL","EFGE_ELNO_DEPL",
12890                                      "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPME_ELNO_DEPL","EPME_ELGA_DEPL",
12891                                      "EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
12892                                      "EQUI_ELNO_EPME","EQUI_ELGA_EPME","DEGE_ELNO_DEPL","EPOT_ELEM_DEPL",
12893                                      "ENEL_ELGA","ENEL_ELNO_ELGA") ),
12894          NUME_COUCHE     =SIMP(statut='f',typ='I',defaut=1),
12895          NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
12896          ANGLE           =SIMP(statut='f',typ='I',defaut=0),
12897          PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL") ),
12898          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
12899                                fr="Liste des paramètres de sensibilité.",
12900                                ang="List of sensitivity parameters"),
12901          SOLVEUR         =FACT(statut='d',min=1,max=1,
12902            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
12903            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
12904              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
12905            ),
12906            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
12907              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
12908            ),
12909            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
12910                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
12911              NPREC           =SIMP(statut='f',typ='I',defaut=8),
12912              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12913            ),
12914            b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
12915              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
12916              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
12917              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
12918              RESI_RELA       =SIMP(statut='f',typ='R',defaut=1.E-6),
12919              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
12920            ),
12921 #  A quoi sert eps
12922            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12923          ),
12924          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
12925 )  ;
12926 #& MODIF COMMANDE  DATE 17/06/2002   AUTEUR GNICOLAS G.NICOLAS
12927 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12928 # ======================================================================
12929 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12930 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12931 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12932 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12933 # (AT YOUR OPTION) ANY LATER VERSION.
12934 #
12935 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12936 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12937 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12938 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12939 #
12940 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12941 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12942 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12943 # ======================================================================
12944 # RESPONSABLE GNICOLAS G.NICOLAS
12945 MEMO_NOM_SENSI=PROC(nom="MEMO_NOM_SENSI",op=129,docu="U4.31.xx-a",
12946                     fr="Mémorisation des noms des concepts dérivés.",
12947                     ang="Memorisation of the names of the sensitive concepts.",
12948
12949          regles=(AU_MOINS_UN('NOM','NOM_ZERO','NOM_UN'),),
12950
12951          NOM=FACT(statut='f',max='**',
12952              regles=(PRESENT_PRESENT('MOT_CLE','VALEUR' ),),
12953
12954              NOM_SD=SIMP(statut='o',typ='TXM',
12955                          fr="Nom de la structure de base",
12956                          ang="Name of the basic structure"),
12957
12958              PARA_SENSI=SIMP(statut='o',typ=(para_sensi,theta_geom),
12959                          fr="Nom du paramètre sensible",
12960                          ang="Name of the sensitive parameter"),
12961
12962              NOM_COMPOSE=SIMP(statut='f',typ='TXM',defaut=" ",
12963                          fr="Nom de la structure composée",
12964                          ang="Name of the built structure"),
12965
12966              MOT_CLE=SIMP(statut='f',typ='TXM',max='**',
12967                          fr="Liste des mots clés concernés par la dérivation",
12968                          ang="Keyword list involved in derivation"),
12969
12970              VALEUR=SIMP(statut='f',typ='TXM',max='**',
12971                          fr="Liste des objets concernés par la dérivation",
12972                          ang="Object list involved in derivation"),
12973
12974                  ),
12975
12976          NOM_ZERO=SIMP(statut='f',typ=fonction,
12977                        fr="Nom de la fonction nulle",
12978                        ang="Name of the zero fonction"),
12979
12980          NOM_UN=SIMP  (statut='f',typ=fonction,
12981                        fr="Nom de la fonction unité",
12982                        ang="Name of the one fonction"),
12983
12984 )  ;
12985 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
12986 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12987 # ======================================================================
12988 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12989 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12990 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12991 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12992 # (AT YOUR OPTION) ANY LATER VERSION.
12993 #
12994 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12995 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12996 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12997 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12998 #
12999 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13000 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13001 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13002 # ======================================================================
13003 MODE_ITER_CYCL=OPER(nom="MODE_ITER_CYCL",op=  80,sd_prod=mode_cycl,
13004                     fr="Modes propres d une structure à répétitivité cyclique à partir d une base de modes propres réels",
13005                     docu="U4.52.05-e",reentrant='n',
13006          BASE_MODALE     =SIMP(statut='o',typ=base_modale ),
13007          NB_MODE         =SIMP(statut='f',typ='I',defaut= 999 ),
13008          NB_SECTEUR      =SIMP(statut='o',typ='I' ),
13009          LIAISON         =FACT(statut='o',min=01,max=01,
13010            DROITE          =SIMP(statut='o',typ='TXM' ),
13011            GAUCHE          =SIMP(statut='o',typ='TXM' ),
13012            AXE             =SIMP(statut='f',typ='TXM' ),
13013          ),
13014          VERI_CYCL       =FACT(statut='f',min=01,max=01,
13015            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
13016            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF",) ),
13017            DIST_REFE       =SIMP(statut='f',typ='R' ),
13018          ),
13019          CALCUL          =FACT(statut='o',min=01,max=01,
13020            TOUT_DIAM       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13021            NB_DIAM         =SIMP(statut='f',typ='I',max='**'),
13022            OPTION          =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE"
13023                                 ,into=("PLUS_PETITE","CENTRE","BANDE") ),
13024            b_centre      =BLOC(condition = "OPTION == 'CENTRE'",
13025              FREQ            =SIMP(statut='o',typ='R',min=01,max=01),
13026            ),
13027            b_bande       =BLOC(condition = "OPTION == 'BANDE'",
13028              FREQ            =SIMP(statut='o',typ='R',min=02,max=02),
13029            ),
13030 #  NMAX_FREQ n a-t-il pas un sens qu avec OPTION CENTRE
13031            NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10 ),
13032            PREC_SEPARE     =SIMP(statut='f',typ='R',defaut= 100. ),
13033            PREC_AJUSTE     =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
13034            NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 50 ),
13035          ),
13036          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13037 )  ;
13038 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
13039 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13040 # ======================================================================
13041 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13042 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13043 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13044 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13045 # (AT YOUR OPTION) ANY LATER VERSION.
13046 #
13047 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13048 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13049 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13050 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13051 #
13052 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13053 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13054 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13055 # ======================================================================
13056 def mode_iter_inv_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
13057   if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
13058   if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
13059   if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
13060   if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
13061   if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
13062   raise AsException("type de concept resultat non prevu")
13063
13064 MODE_ITER_INV=OPER(nom="MODE_ITER_INV",op=  44,sd_prod=mode_iter_inv_prod
13065                     ,fr="Modes propres par itérations inverses ; valeurs propres et modes réels ou complexes",
13066                      docu="U4.52.04-g1",reentrant='n',
13067          MATR_A          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13068          MATR_B          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13069          MATR_C          =SIMP(statut='f',typ=matr_asse_depl_r ),
13070          TYPE_RESU       =SIMP(statut='f',position='global',typ='TXM',defaut="DYNAMIQUE",
13071                                into=("MODE_FLAMB","DYNAMIQUE"),fr="Type d analyse" ),
13072          b_dynam         =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
13073            CALC_FREQ       =FACT(statut='o',min=1,max=1,fr="Choix des paramètres pour le calcul des valeurs propres",
13074
13075              OPTION          =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
13076                                    fr="Choix de l option pour estimer les valeurs propres"  ),
13077              FREQ            =SIMP(statut='o',typ='R',max='**'),
13078              AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
13079              NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 0,val_min=0 ),
13080              NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30,val_min=0 ),
13081              PREC_SEPARE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0 ),
13082              NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15,val_min=0 ),
13083              PREC_AJUSTE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0 ),
13084
13085              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13086              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13087              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0, ),
13088              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0, ),
13089            ),
13090          ),
13091          b_flamb        =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
13092            CALC_FREQ       =FACT(statut='o',min=1,max=1,fr="Choix des paramètres pour le calcul des valeurs propres",
13093
13094              OPTION          =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
13095                                  fr="Choix de l option pour estimer les valeurs propres"  ),
13096              CHAR_CRIT       =SIMP(statut='o',typ='R',max='**' ),
13097              NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 0,val_min=0 ),
13098              NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30,val_min=0 ),
13099              PREC_SEPARE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0, ),
13100              NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15 ),
13101              PREC_AJUSTE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0, ),
13102
13103              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13104              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13105              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0, ),
13106              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0, ),
13107            ),
13108          ),
13109          CALC_MODE       =FACT(statut='d',min=0,max=1,fr="Choix des paramètres pour le calcul des vecteurs propres",
13110            OPTION          =SIMP(statut='f',typ='TXM',defaut="DIRECT",into=("DIRECT","RAYLEIGH") ),
13111            PREC            =SIMP(statut='f',typ='R',defaut= 1.E-5,val_min=0.E+0,fr="Précision de convergence" ),
13112            NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
13113          ),
13114          VERI_MODE       =FACT(statut='d',min=0,max=1,
13115            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13116            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0,
13117                                  fr="Valeur limite admise pour l ereur a posteriori des modes"  ),
13118          ),
13119          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13120          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13121 )  ;
13122 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
13123 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13124 # ======================================================================
13125 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13126 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13127 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13128 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13129 # (AT YOUR OPTION) ANY LATER VERSION.
13130 #
13131 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13132 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13133 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13134 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13135 #
13136 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13137 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13138 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13139 # ======================================================================
13140 def mode_iter_simult_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
13141   if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
13142   if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
13143   if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
13144   if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
13145   if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
13146   raise AsException("type de concept resultat non prevu")
13147
13148 MODE_ITER_SIMULT=OPER(nom="MODE_ITER_SIMULT",op=  45,sd_prod=mode_iter_simult_prod,
13149                       fr="Modes propres par itérations simultanées ; valeurs propres et modes propres réels ou complexes",
13150                       docu="U4.52.03-f2",reentrant='n',
13151          MATR_A          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13152          MATR_B          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
13153          MATR_C          =SIMP(statut='f',position='global',typ=matr_asse_depl_r ),
13154          METHODE         =SIMP(statut='f',position='global',typ='TXM',defaut="SORENSEN",
13155                                into=("TRI_DIAG","JACOBI","SORENSEN") ),
13156          TYPE_RESU       =SIMP(statut='f',position='global',typ='TXM',defaut="DYNAMIQUE",
13157                                into=("MODE_FLAMB","DYNAMIQUE"),
13158                                fr="Type d analyse" ),
13159          OPTION          =SIMP(statut='f',typ='TXM',defaut="SANS",into=("MODE_RIGIDE","SANS"),
13160                                fr="Calcul des modes de corps rigide, uniquement pour la méthode TRI_DIAG" ),
13161
13162          b_flamb         =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
13163            CALC_FREQ       =FACT(statut='d',min=0,max=1,
13164              OPTION          =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
13165                                    fr="Choix de l option et par conséquent du shift du problème modal" ),
13166              b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
13167                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
13168              ),
13169              b_centre      =BLOC(condition = "OPTION == 'CENTRE'",
13170                                  fr="Recherche des valeurs propres les plus proches d une valeur donnée",
13171                CHAR_CRIT       =SIMP(statut='o',typ='R',min=1,max=1,
13172                                      fr="Charge critique autour de laquelle on cherche les charges critiques propres"),
13173              ),
13174              b_bande       =BLOC(condition = "(OPTION == 'BANDE')",
13175                                  fr="Recherche des valeurs propres dans une bande donnée",
13176                CHAR_CRIT       =SIMP(statut='o',typ='R',min=2,max=2,
13177                                      fr="Valeur des deux charges critiques délimitant la bande de recherche"),
13178              ),
13179              APPROCHE        =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG"),
13180                                    fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
13181              regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
13182              DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
13183              COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
13184              b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
13185                PREC_ORTHO      =SIMP(statut='f',typ='R',defaut= 1.E-12,val_min=0.E+0 ),
13186                NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13187                PREC_LANCZOS    =SIMP(statut='f',typ='R',defaut= 1.E-8,val_min=0.E+0 ),
13188                NMAX_ITER_QR    =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
13189              ),
13190              b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
13191                PREC_BATHE      =SIMP(statut='f',typ='R',defaut= 1.E-10,val_min=0.E+0 ),
13192                NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40,val_min=0 ),
13193                PREC_JACOBI     =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13194                NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12,val_min=0 ),
13195              ),
13196              b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
13197                PREC_SOREN      =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
13198                NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
13199                PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
13200              ),
13201              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13202              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13203              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0 ),
13204              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13205            ),
13206          ),
13207
13208          b_dynam        =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
13209            CALC_FREQ       =FACT(statut='d',min=0,max=1,
13210              OPTION          =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
13211                                    fr="Choix de l option et par conséquent du shift du problème modal" ),
13212              b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
13213                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
13214              ),
13215              b_centre       =BLOC(condition = "OPTION == 'CENTRE'",
13216                                   fr="Recherche des valeurs propres les plus proches d une valeur donnée",
13217                FREQ            =SIMP(statut='o',typ='R',min=1,max=1,
13218                                      fr="Fréquence autour de laquelle on cherche les fréquences propres"),
13219                AMOR_REDUIT     =SIMP(statut='f',typ='R',max=1,),
13220                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
13221              ),
13222              b_bande         =BLOC(condition = "(OPTION == 'BANDE')",
13223                                    fr="Recherche des valeurs propres dans une bande donnée",
13224                FREQ            =SIMP(statut='o',typ='R',min=2,max=2,
13225                                      fr="Valeur des deux fréquences délimitant la bande de recherche"),
13226              ),
13227              APPROCHE        =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG"),
13228                                    fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
13229              regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
13230              DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
13231              COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
13232              b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
13233                PREC_ORTHO      =SIMP(statut='f',typ='R',defaut= 1.E-12,val_min=0.E+0 ),
13234                NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13235                PREC_LANCZOS    =SIMP(statut='f',typ='R',defaut= 1.E-8,val_min=0.E+0 ),
13236                NMAX_ITER_QR    =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
13237              ),
13238              b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
13239                PREC_BATHE      =SIMP(statut='f',typ='R',defaut= 1.E-10,val_min=0.E+0 ),
13240                NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40,val_min=0 ),
13241                PREC_JACOBI     =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13242                NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12,val_min=0 ),
13243              ),
13244              b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
13245                PREC_SOREN      =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
13246                NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
13247                PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
13248              ),
13249              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
13250              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13251              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0 ),
13252              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13253            ),
13254          ),
13255
13256          VERI_MODE       =FACT(statut='d',min=0,max=1,
13257            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13258            PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-3,val_min=0.E+0 ),
13259            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-6,val_min=0.E+0,
13260                                  fr="Valeur limite admise pour l ereur a posteriori des modes" ),
13261            STURM           =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13262          ),
13263          STOP_FREQ_VIDE  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13264          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13265          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13266 )  ;
13267 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
13268 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13269 # ======================================================================
13270 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13271 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13272 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13273 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13274 # (AT YOUR OPTION) ANY LATER VERSION.
13275 #
13276 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13277 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13278 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13279 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13280 #
13281 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13282 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13283 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13284 # ======================================================================
13285 def mode_stat_prod(MODE_STAT,FORCE_NODALE,PSEUDO_MODE,**args):
13286  if (MODE_STAT != None)          : return mode_stat_depl
13287  if (PSEUDO_MODE !=None)         : return mode_stat_acce
13288  if (FORCE_NODALE != None)       : return mode_stat_forc
13289  raise AsException("type de concept resultat non prevu")
13290 MODE_STATIQUE=OPER(nom="MODE_STATIQUE",op= 93,sd_prod=mode_stat_prod,
13291                    fr="Calcul de modes statiques",
13292                    docu="U4.52.14-f2",reentrant='n',
13293          MATR_RIGI       =SIMP(statut='o',typ=matr_asse_depl_r ),
13294          MATR_MASS       =SIMP(statut='f',typ=matr_asse_depl_r ),
13295                regles=(UN_PARMI('MODE_STAT','FORCE_NODALE','PSEUDO_MODE'),),
13296          MODE_STAT       =FACT(statut='f',min=01,max='**',
13297            regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
13298                    UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
13299            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ,),
13300            NOEUD           =SIMP(statut='f',typ=no,max='**'),
13301            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
13302            TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",) ,),
13303            AVEC_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13304            SANS_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13305          ),
13306          FORCE_NODALE    =FACT(statut='f',min=01,max='**',
13307            regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
13308                    UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
13309            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",), ),
13310            NOEUD           =SIMP(statut='f',typ=no,max='**'),
13311            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
13312            TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",), ),
13313            AVEC_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13314            SANS_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13315          ),
13316          PSEUDO_MODE       =FACT(statut='f',min=01,max='**',
13317            regles=(UN_PARMI('AXE','DIRECTION','TOUT','NOEUD','GROUP_NO' ),),
13318            AXE             =SIMP(statut='f',typ='TXM',into=("X","Y","Z"),max=3),
13319            DIRECTION       =SIMP(statut='f',typ='R',min=3,max=3),
13320            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
13321            NOEUD           =SIMP(statut='f',typ=no,max='**'),
13322            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
13323            b_dir           =BLOC(condition = "DIRECTION != None",
13324              NOM_DIR         =SIMP(statut='f',typ='TXM' ),),
13325            b_cmp          =BLOC(condition="TOUT!= None or NOEUD!=None or GROUP_NO!=None",
13326              regles=(UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
13327              TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13328              AVEC_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13329              SANS_CMP        =SIMP(statut='f',typ='TXM',max='**'),
13330         ),
13331          ),
13332          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13333          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
13334 )  ;
13335 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
13336 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13337 # ======================================================================
13338 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13339 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13340 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13341 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13342 # (AT YOUR OPTION) ANY LATER VERSION.
13343 #
13344 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13345 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13346 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13347 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13348 #
13349 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13350 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13351 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13352 # ======================================================================
13353 MODI_BASE_MODALE=OPER(nom="MODI_BASE_MODALE",op= 149,sd_prod=mode_meca,
13354                       docu="U4.66.21-c",reentrant='f',
13355 #  la commande modi_base _modale : reentrant = f ou o
13356          regles=(EXCLUS('AMOR_UNIF','AMOR_REDUIT', ),),
13357          BASE            =SIMP(statut='o',typ=mode_meca ),
13358          BASE_ELAS_FLUI  =SIMP(statut='o',typ=melasflu ),
13359          NUME_VITE_FLUI  =SIMP(statut='o',typ='I' ),
13360          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
13361          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
13362          AMOR_UNIF       =SIMP(statut='f',typ='R' ),
13363          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
13364          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13365 )  ;
13366 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
13367 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13368 # ======================================================================
13369 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13370 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13371 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13372 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13373 # (AT YOUR OPTION) ANY LATER VERSION.
13374 #
13375 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13376 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13377 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13378 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13379 #
13380 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13381 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13382 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13383 # ======================================================================
13384 # RESPONSABLE G8BHHXD X.DESROCHES
13385 MODI_MAILLAGE=OPER(nom="MODI_MAILLAGE",op= 154,sd_prod=maillage,
13386                    fr="Modification de la connectivité de groupes de mailles 2D ou 3D affectées à la modélisation de contact",
13387                    docu="U4.23.04-d1",reentrant='o',
13388       regles=(UN_PARMI('ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
13389                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE'),
13390               EXCLUS('EQUE_PIQUA','PLAQ_TUBE'),
13391               EXCLUS('EQUE_PIQUA','TUBE_COUDE'),),
13392          MAILLAGE        =SIMP(statut='o',typ=maillage ),
13393
13394          ORIE_CONTACT    =FACT(statut='f',min=01,max=01,
13395            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
13396          ),
13397
13398          DEFORME         =FACT(statut='f',min=01,max=01,
13399            OPTION          =SIMP(statut='o',typ='TXM',into=("TRAN","TRAN_APPUI") ),
13400            DEPL            =SIMP(statut='o',typ=cham_no_depl_r ),
13401         b_deform        =BLOC(condition = "OPTION=='TRAN_APPUI'",
13402            GROUP_NO_APPUI = SIMP(statut='o',typ=grno,max='**' ),
13403            GROUP_NO_STRU = SIMP(statut='o',typ=grno,max='**' ),),
13404          ),
13405
13406          EQUE_PIQUA      =FACT(statut='f',min=01,max=01,
13407            GROUP_NO        =SIMP(statut='o',typ=grno),
13408            E_BASE          =SIMP(statut='o',typ='R' ),
13409            DEXT_BASE       =SIMP(statut='o',typ='R' ),
13410            L_BASE          =SIMP(statut='o',typ='R' ),
13411            L_CHANF         =SIMP(statut='o',typ='R' ),
13412            H_SOUD          =SIMP(statut='o',typ='R' ),
13413            ANGL_SOUD       =SIMP(statut='o',typ='R' ),
13414            JEU_SOUD        =SIMP(statut='o',typ='R' ),
13415            E_CORP          =SIMP(statut='o',typ='R' ),
13416            DEXT_CORP       =SIMP(statut='o',typ='R' ),
13417            AZIMUT          =SIMP(statut='o',typ='R' ),
13418            RAFF_MAIL       =SIMP(statut='o',typ='TXM' ),
13419            X_MAX           =SIMP(statut='o',typ='R' ),
13420          ),
13421          ORIE_PEAU_2D    =FACT(statut='f',min=01,max='**',
13422            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
13423          ),
13424          ORIE_PEAU_3D    =FACT(statut='f',min=01,max='**',
13425            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
13426          ),
13427          ORIE_NORM_COQUE =FACT(statut='f',min=01,max='**',
13428            regles=(EXCLUS('NOEUD','GROUP_NO'),
13429                    PRESENT_PRESENT('NOEUD','VECT_NORM'),
13430                    PRESENT_PRESENT('GROUP_NO','VECT_NORM'),),
13431            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
13432            VECT_NORM       =SIMP(statut='f',typ='R',max=03),
13433            NOEUD           =SIMP(statut='f',typ=no),
13434            GROUP_NO        =SIMP(statut='f',typ=grno),
13435          ),
13436          b_modele        =BLOC(condition = "(ORIE_PEAU_2D != None) or (ORIE_PEAU_3D != None) or(ORIE_NORM_COQUE != None)",
13437            MODELE          =SIMP(statut='o',typ=modele ),
13438          ),
13439          PLAQ_TUBE       =FACT(statut='f',min=01,max=01,
13440            DEXT            =SIMP(statut='o',typ='R' ),
13441            EPAIS           =SIMP(statut='o',typ='R' ),
13442            L_TUBE_P1       =SIMP(statut='o',typ='R' ),
13443            AZIMUT          =SIMP(statut='f',typ='R',defaut= 90. ),
13444            COUTURE         =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",)  ),
13445          ),
13446          TUBE_COUDE      =FACT(statut='f',min=01,max=01,
13447            ANGLE           =SIMP(statut='o',typ='R' ),
13448            R_CINTR         =SIMP(statut='o',typ='R' ),
13449            L_TUBE_P1       =SIMP(statut='o',typ='R' ),
13450          ),
13451          MODI_MAILLE     =FACT(statut='f',min=01,max=01,
13452            regles=(AU_MOINS_UN('GROUP_MA_FOND','MAILLE_FOND','GROUP_NO_FOND','NOEUD_FOND'),),
13453            OPTION          =SIMP(statut='o',typ='TXM',into=("NOEUD_QUART",) ),
13454            GROUP_MA_FOND   =SIMP(statut='f',typ=grma,max='**'),
13455            MAILLE_FOND     =SIMP(statut='f',typ=ma,max='**'),
13456            GROUP_NO_FOND   =SIMP(statut='f',typ=grno,max='**'),
13457            NOEUD_FOND      =SIMP(statut='f',typ=no,max='**'),
13458          ),
13459          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13460 )  ;
13461 #& MODIF COMMANDE  DATE 15/01/2002   AUTEUR CIBHHLV L.VIVAN
13462 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13463 # ======================================================================
13464 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13465 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13466 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13467 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13468 # (AT YOUR OPTION) ANY LATER VERSION.
13469 #
13470 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13471 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13472 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13473 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13474 #
13475 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13476 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13477 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13478 # ======================================================================
13479 MODI_OBSTACLE=OPER(nom="MODI_OBSTACLE",op=182,sd_prod=obstacle,
13480                    fr=" ",docu="U4.44.22-a",reentrant='f',
13481       regles=(PRESENT_ABSENT('R_MOBILE','CRAYON'),
13482               PRESENT_PRESENT('TUBE_NEUF','TABL_USURE'),
13483               PRESENT_PRESENT('V_USUR_TUBE','V_USUR_OBST'),),
13484          TUBE_NEUF       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13485          V_USUR_TUBE     =SIMP(statut='f',typ='R',max='**'),
13486          V_USUR_OBST     =SIMP(statut='f',typ='R',max='**'),
13487          TABL_USURE      =SIMP(statut='f',typ=tabl_post_usur),
13488          INST            =SIMP(statut='f',typ='R'),
13489          OBSTACLE        =SIMP(statut='f',typ=obstacle),
13490          GUIDE           =SIMP(statut='o',typ=obstacle),
13491          CRAYON          =SIMP(statut='f',typ=obstacle),
13492          R_MOBILE        =SIMP(statut='f',typ='R'),
13493          PERCEMENT       =SIMP(statut='f',typ='R',defaut=1),
13494          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13495 )  ;
13496 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
13497 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13498 # ======================================================================
13499 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13500 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13501 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13502 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13503 # (AT YOUR OPTION) ANY LATER VERSION.
13504 #
13505 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13506 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13507 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13508 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13509 #
13510 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13511 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13512 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13513 # ======================================================================
13514 # RESPONSABLE JMBHH01 J.M.PROIX
13515 def modi_repere_prod(RESULTAT,**args):
13516   if AsType(RESULTAT) == evol_elas :    return evol_elas
13517   if AsType(RESULTAT) == evol_noli :    return evol_noli
13518   if AsType(RESULTAT) == evol_ther :    return evol_ther
13519   if AsType(RESULTAT) == dyna_trans :   return dyna_trans
13520   if AsType(RESULTAT) == dyna_harmo :   return dyna_harmo
13521   if AsType(RESULTAT) == mode_meca :    return mode_meca
13522   if AsType(RESULTAT) == mode_flamb :   return mode_flamb
13523   if AsType(RESULTAT) == mult_elas :    return mult_elas
13524   if AsType(RESULTAT) == base_modale  : return base_modale
13525   raise AsException("type de concept resultat non prevu")
13526
13527 MODI_REPERE=OPER(nom="MODI_REPERE",op=191,sd_prod=modi_repere_prod,docu="U4.74.01-a3",reentrant='n',
13528                     fr="Impression des resultats dans un repere cylindrique",
13529          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,mode_meca,
13530                                                evol_noli,mult_elas,
13531                                                evol_ther,base_modale,mode_flamb) ),
13532          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
13533                         'NOEUD_CMP','LIST_INST','LIST_FREQ','NOM_CAS'),),
13534          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13535          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
13536          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
13537          NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
13538          NOM_CAS         =SIMP(statut='f',typ='TXM' ),
13539
13540          INST            =SIMP(statut='f',typ='R',max='**'),
13541          FREQ            =SIMP(statut='f',typ='R',max='**'),
13542          LIST_INST       =SIMP(statut='f',typ=listr8),
13543          LIST_FREQ       =SIMP(statut='f',typ=listr8),
13544
13545          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
13546          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",),),
13547
13548          MODI_CHAM       =FACT(statut='o',min=01,max='**',
13549            TYPE_CHAM       =SIMP(statut='o',typ='TXM', max=1,
13550                                  into=("VECT_2D","VECT_3D","TORS_3D","TENS_2D","TENS_3D"),),
13551            NOM_CHAM        =SIMP(statut='o',typ='TXM',max=1 ),
13552            b_vect_2d       =BLOC(condition = "TYPE_CHAM=='VECT_2D'",
13553               NOM_CMP         =SIMP(statut='o',typ='TXM',min=2,max=2 ),),
13554            b_vect_3d       =BLOC(condition = "TYPE_CHAM=='VECT_3D'",
13555               NOM_CMP         =SIMP(statut='o',typ='TXM',min=3,max=3 ),),
13556            b_tors_3d       =BLOC(condition = "TYPE_CHAM=='TORS_3D'",
13557               NOM_CMP         =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
13558            b_tens_2d       =BLOC(condition = "TYPE_CHAM=='TENS_2D'",
13559               NOM_CMP         =SIMP(statut='o',typ='TXM',min=4,max=4 ),),
13560            b_tens_3d       =BLOC(condition = "TYPE_CHAM=='TENS_3D'",
13561               NOM_CMP         =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
13562          ),
13563          DEFI_REPERE     =FACT(statut='o',min=1,max=1,
13564          regles=(UN_PARMI('ANGL_NAUT','ORIGINE'),),
13565            REPERE          =SIMP(statut='f',typ='TXM',defaut="UTILISATEUR",
13566                                  into=("UTILISATEUR","CYLINDRIQUE"),),
13567            ANGL_NAUT       =SIMP(statut='f',typ='R',min=1,max=3),
13568            ORIGINE         =SIMP(statut='f',typ='R',min=2,max=3),
13569            AXE_Z           =SIMP(statut='f',typ='R',min=3,max=3),
13570          ),
13571          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13572 )  ;
13573 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
13574 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13575 # ======================================================================
13576 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13577 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13578 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13579 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13580 # (AT YOUR OPTION) ANY LATER VERSION.
13581 #
13582 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13583 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13584 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13585 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13586 #
13587 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13588 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13589 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13590 # ======================================================================
13591 def norm_mode_prod(MODE,**args ):
13592   if AsType(MODE) == mode_meca   : return mode_meca
13593   if AsType(MODE) == mode_meca_c : return mode_meca_c
13594   if AsType(MODE) == mode_flamb  : return mode_flamb
13595   raise AsException("type de concept resultat non prevu")
13596
13597 NORM_MODE=OPER(nom="NORM_MODE",op=  37,sd_prod=norm_mode_prod,
13598                fr="Normalisation de modes propres",
13599                docu="U4.52.11-e",reentrant='f',
13600          regles=(UN_PARMI('NORME','NOEUD','AVEC_CMP','SANS_CMP'),),
13601          MODE       =SIMP(statut='o',typ=(mode_meca,mode_flamb) ),
13602          NORME      =SIMP(statut='f',typ='TXM',fr="Norme prédéfinie : masse généralisée, euclidienne,...",
13603                           into=("MASS_GENE","RIGI_GENE","EUCL","EUCL_TRAN","TRAN","TRAN_ROTA") ),
13604          NOEUD      =SIMP(statut='f',typ=no, fr="Composante donnée d un noeud spécifié égale à 1"),
13605          b_noeud    =BLOC(condition = "NOEUD != None",
13606            NOM_CMP    =SIMP(statut='o',typ='TXM' ),
13607          ),
13608          AVEC_CMP   =SIMP(statut='f',typ='TXM',max='**'),
13609          SANS_CMP   =SIMP(statut='f',typ='TXM',max='**'),
13610          MASS_INER  =SIMP(statut='f',typ=tabl_mass_iner ),
13611          MODE_SIGNE =FACT(statut='f',min=00,max=01,fr="Imposer un signe sur une des composantes des modes",
13612            NOEUD      =SIMP(statut='o',typ=no,fr="Noeud ou sera imposé le signe"),
13613            NOM_CMP    =SIMP(statut='o',typ='TXM',fr="Composante du noeud ou sera imposé le signe" ),
13614            SIGNE      =SIMP(statut='f',typ='TXM',defaut="POSITIF",into=("NEGATIF","POSITIF"),
13615                             fr="Choix du signe" ),
13616          ),
13617          TITRE      =SIMP(statut='f',typ='TXM',max='**'),
13618          INFO       =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
13619 )  ;
13620 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
13621 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13622 # ======================================================================
13623 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13624 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13625 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13626 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13627 # (AT YOUR OPTION) ANY LATER VERSION.
13628 #
13629 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13630 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13631 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13632 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13633 #
13634 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13635 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13636 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13637 # ======================================================================
13638 # RESPONSABLE VABHHTS J.PELLET
13639 NUME_DDL=OPER(nom="NUME_DDL",op=11,sd_prod=nume_ddl,docu="U4.61.11-g1",reentrant='n',
13640               fr="Etablissement de la numérotation des ddl avec ou sans renumérotation et du stockage de la matrice",
13641                   regles=(UN_PARMI('MATR_RIGI','MODELE'),),
13642          MATR_RIGI       =SIMP(statut='f',typ=(matr_elem_depl_r ,matr_elem_depl_c,
13643                                                matr_elem_temp_r,matr_elem_pres_c),max=100 ),
13644          MODELE          =SIMP(statut='f',typ=modele ),
13645          b_modele        =BLOC(condition = "MODELE != None",
13646            CHARGE     =SIMP(statut='f',max='**',typ=(char_meca,char_ther,char_acou, ),),
13647          ),
13648          METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
13649          b_mult_front    =BLOC(condition="METHODE=='MULT_FRONT'",fr="paramètres associés à la méthode multifrontale",
13650            RENUM           =SIMP(statut='f',typ='TXM',into=("MD","MDA","METIS"),defaut="METIS" ),
13651          ),
13652          b_ldlt          =BLOC(condition="METHODE=='LDLT'",fr="paramètres associés à la méthode LDLT",
13653            RENUM           =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK"  ),
13654          ),
13655          b_gcpc          =BLOC(condition="METHODE=='GCPC'",fr="paramètres associés à la méthode gradient conjugué",
13656            RENUM           =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK"  ),
13657          ),
13658          INFO            =SIMP(statut='f',typ='I',into=(1,2)),
13659 )  ;
13660 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
13661 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13662 # ======================================================================
13663 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13664 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13665 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13666 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13667 # (AT YOUR OPTION) ANY LATER VERSION.
13668 #
13669 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13670 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13671 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13672 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13673 #
13674 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13675 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13676 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13677 # ======================================================================
13678 NUME_DDL_GENE=OPER(nom="NUME_DDL_GENE",op= 127,sd_prod=nume_ddl_gene,
13679                    fr="Etablissement de la numérotation des ddl d un modèle établi en coordonnées généralisées",
13680                     docu="U4.65.03-e1",reentrant='n',
13681          regles=UN_PARMI('MODELE_GENE','BASE'),
13682          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
13683              b_modele_gene     =BLOC(condition = "MODELE_GENE != None",
13684                STOCKAGE     =SIMP(statut='f',typ='TXM',defaut="LIGN_CIEL",into=("LIGN_CIEL","PLEIN") ),
13685                                     ),
13686          BASE     =SIMP(statut='f',typ=(mode_meca,base_modale,mode_gene ) ),
13687              b_base     =BLOC(condition = "BASE != None",
13688                STOCKAGE     =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("DIAG","PLEIN") ),
13689                NB_VECT     =SIMP(statut='f',typ='I',defaut= 9999 ),
13690                              ),
13691 )  ;
13692 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
13693 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13694 # ======================================================================
13695 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13696 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13697 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13698 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13699 # (AT YOUR OPTION) ANY LATER VERSION.
13700 #
13701 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13702 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13703 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13704 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13705 #
13706 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13707 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13708 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13709 # ======================================================================
13710 POST_DYNA_ALEA=OPER(nom="POST_DYNA_ALEA",op= 132,sd_prod=tabl_post_alea,
13711                     fr="Traitements statistiques de résultats de type interspectre et impression sur fichiers",
13712                     docu="U4.84.04-d",reentrant='n',
13713          regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I','OPTION'),),
13714          INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
13715          NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
13716          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
13717          NUME_ORDRE_I    =SIMP(statut='f',typ='I',max='**' ),
13718          NOEUD_I         =SIMP(statut='f',typ=no,max='**'),
13719          OPTION          =SIMP(statut='f',typ='TXM',into=("DIAG",) ),
13720          b_nume_ordre_i =BLOC(condition = "NUME_ORDRE_I != None",
13721            NUME_ORDRE_J    =SIMP(statut='o',typ='I',max='**' ),
13722          ),
13723          b_noeud_i      =BLOC(condition = "NOEUD_I != None",
13724            NOEUD_J         =SIMP(statut='o',typ=no,max='**'),
13725            NOM_CMP_I       =SIMP(statut='o',typ='TXM',max='**' ),
13726            NOM_CMP_J       =SIMP(statut='o',typ='TXM',max='**' ),
13727          ),
13728          DEPASSEMENT     =FACT(statut='f',min=01,max='**',
13729            fr="Loi de dépassement d un seuil pendant une durée donnée",
13730            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
13731            VALE_MIN        =SIMP(statut='f',typ='R' ),
13732            VALE_MAX        =SIMP(statut='f',typ='R' ),
13733            PAS             =SIMP(statut='f',typ='R' ),
13734            DUREE           =SIMP(statut='f',typ='R',defaut= 1. ),
13735          ),
13736          RAYLEIGH        =FACT(statut='f',min=01,max='**',
13737            fr="Densité de probabilité de pic positif, loi adaptée à des signaux à bande étroite",
13738            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
13739            VALE_MIN        =SIMP(statut='f',typ='R' ),
13740            VALE_MAX        =SIMP(statut='f',typ='R' ),
13741            PAS             =SIMP(statut='f',typ='R' ),
13742          ),
13743          GAUSS           =FACT(statut='f',min=01,max='**',
13744            fr="Densité de probabilité de pic positif, loi normale adaptée à des signaux large bande",
13745            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
13746            VALE_MIN        =SIMP(statut='f',typ='R' ),
13747            VALE_MAX        =SIMP(statut='f',typ='R' ),
13748            PAS             =SIMP(statut='f',typ='R' ),
13749          ),
13750          VANMARCKE       =FACT(statut='f',min=01,max='**',
13751            fr="Probabilité de non dépassement de seuil pendant une durée donnée (analyse sismique)",
13752            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
13753            VALE_MIN        =SIMP(statut='f',typ='R' ),
13754            VALE_MAX        =SIMP(statut='f',typ='R' ),
13755            PAS             =SIMP(statut='f',typ='R' ),
13756            DUREE           =SIMP(statut='f',typ='R',defaut= 10. ),
13757          ),
13758          MOMENT          =SIMP(statut='f',typ='I',max='**',fr="Moments spectraux en complément des cinq premiers" ),
13759          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
13760          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
13761 )  ;
13762 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
13763 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13764 # ======================================================================
13765 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13766 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13767 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13768 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13769 # (AT YOUR OPTION) ANY LATER VERSION.
13770 #
13771 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13772 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13773 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13774 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13775 #
13776 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13777 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13778 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13779 # ======================================================================
13780 POST_DYNA_MODA_T=OPER(nom="POST_DYNA_MODA_T",op= 130,sd_prod=tabl_post_dyna,
13781                       fr="Post-traitements en coordonnées généralisées issus de DYNA_TRAN_MODAL",
13782                       docu="U4.84.02-d",reentrant='n',
13783         regles=(UN_PARMI('CHOC','RELA_EFFO_DEPL', ),),
13784          RESU_GENE       =SIMP(statut='o',typ=tran_gene ),
13785          CHOC            =FACT(statut='f',min=01,max='**',
13786                                fr="Analyse des non linéarités de choc",
13787            INST_INIT       =SIMP(statut='f',typ='R',defaut= -1. ),
13788            INST_FIN        =SIMP(statut='f',typ='R',defaut= 999. ),
13789            NB_BLOC         =SIMP(statut='f',typ='I',defaut= 1 ),
13790            SEUIL_FORCE     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
13791            DUREE_REPOS     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
13792            OPTION          =SIMP(statut='f',typ='TXM',defaut="USURE",into=("IMPACT","USURE") ),
13793            NB_CLASSE       =SIMP(statut='f',typ='I',defaut= 10 ),
13794          ),
13795          RELA_EFFO_DEPL  =FACT(statut='f',min=01,max=01,
13796                                fr="Analyse des relationsnon linéaires effort-déplacement",
13797            NOEUD           =SIMP(statut='o',typ=no),
13798            NOM_CMP         =SIMP(statut='o',typ='TXM' ),
13799          ),
13800          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
13801          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
13802 )  ;
13803 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
13804 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13805 # ======================================================================
13806 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13807 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13808 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13809 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13810 # (AT YOUR OPTION) ANY LATER VERSION.
13811 #
13812 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13813 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13814 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13815 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13816 #
13817 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13818 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13819 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13820 # ======================================================================
13821 # RESPONSABLE G8BHHXD X.DESROCHES
13822 def post_elem_prod( MASS_INER,ENER_POT,ENER_CIN,TRAV_EXT,WEIBULL,
13823                     CARA_GEOM,CARA_POUTRE,RICE_TRACEY,CHAR_LIMITE,
13824                     INDIC_ENER,INDIC_SEUIL,ENER_ELAS,ENER_TOTALE,
13825                     AIRE_INTERNE,**args ):
13826   if MASS_INER    != None  : return tabl_mass_iner
13827   if ENER_POT     != None  : return tabl_ener_pot
13828   if ENER_CIN     != None  : return tabl_ener_cin
13829   if TRAV_EXT     != None  : return tabl_trav_ext
13830   if WEIBULL      != None  : return tabl_weibull
13831   if CARA_GEOM    != None  : return tabl_cara_geom
13832   if CARA_POUTRE  != None  : return tabl_cara_geom
13833   if RICE_TRACEY  != None  : return tabl_rice_tracey
13834   if CHAR_LIMITE  != None  : return tabl_char_limite
13835   if INDIC_ENER   != None  : return tabl_indic_ener
13836   if INDIC_SEUIL  != None  : return tabl_indic_seuil
13837   if ENER_ELAS    != None  : return tabl_ener_elas
13838   if ENER_TOTALE  != None  : return tabl_ener_totale
13839   if AIRE_INTERNE != None  : return tabl_aire_int
13840   raise AsException("type de concept resultat non prevu")
13841
13842 POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=post_elem_prod,docu="U4.81.22-e3",reentrant='f',
13843                fr="Calcul de quantités globales (masse, inerties, énergie, ...) sur tout ou partie du modèle",
13844
13845          regles=(UN_PARMI('MASS_INER', 'ENER_POT', 'ENER_CIN','TRAV_EXT',
13846                           'WEIBULL', 'RICE_TRACEY', 'CARA_GEOM','CHAR_LIMITE',
13847                           'CARA_POUTRE', 'INDIC_ENER', 'INDIC_SEUIL',
13848                           'AIRE_INTERNE','ENER_ELAS','ENER_TOTALE'),
13849                 ),
13850
13851          MASS_INER      = FACT(statut='f',min=1,max='**',
13852                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
13853                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13854                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
13855                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
13856                                ORIG_INER    = SIMP(statut='f',typ='R',min=3,max=3 ),
13857                               ),
13858          b_mass_iner = BLOC(condition = "( MASS_INER != None )",
13859                        fr="calcul de la masse, les inerties et le centre de gravité",
13860                        regles=(EXCLUS('CHAM_GD','RESULTAT'),
13861                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
13862                                       'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
13863                        MODELE         = SIMP(statut='o',typ=modele),
13864                        CHAM_MATER     = SIMP(statut='f',typ=cham_mater),
13865                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
13866                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
13867                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
13868                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
13869                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
13870                        GEOMETRIE      = SIMP(statut='f',typ='TXM',defaut="INITIALE",into=("INITIALE","DEFORMEE")),
13871                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
13872                        RESULTAT       = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_noli,mult_elas,
13873                                                              fourier_elas,dyna_trans) ),
13874                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
13875                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
13876                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13877                        NUME_ORDRE     = SIMP(statut='f',typ='I',max=1),
13878                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
13879                        INST           = SIMP(statut='f',typ='R',max=1),
13880                        LIST_INST      = SIMP(statut='f',typ=listr8),
13881                        FREQ           = SIMP(statut='f',typ='R',max=1),
13882                        LIST_FREQ      = SIMP(statut='f',typ=listr8),
13883                        NUME_MODE      = SIMP(statut='f',typ='I',max=1),
13884                        NOEUD_CMP      = SIMP(statut='f',typ='TXM',min=2,max=2),
13885                        NOM_CAS        = SIMP(statut='f',typ='TXM',max=1),
13886          ),
13887
13888          ENER_POT       = FACT(statut='f',min=1,max='**',
13889                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
13890                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13891                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
13892                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
13893                               ),
13894          b_ener_pot = BLOC(condition = "( ENER_POT  != None )",
13895                        fr="calcul de l'énergie potentielle de déformation",
13896                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
13897                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
13898                                       'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
13899                        MODELE         = SIMP(statut='o',typ=modele),
13900                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
13901                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
13902                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
13903                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
13904                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
13905                        ANGLE          = SIMP(statut='f',typ='I',defaut=0),
13906                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
13907                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
13908                        RESULTAT       = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,dyna_trans) ),
13909                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
13910                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
13911                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13912                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
13913                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
13914                        INST           = SIMP(statut='f',typ='R',max='**'),
13915                        LIST_INST      = SIMP(statut='f',typ=listr8),
13916                        FREQ           = SIMP(statut='f',typ='R',max='**'),
13917                        LIST_FREQ      = SIMP(statut='f',typ=listr8),
13918                        NUME_MODE      = SIMP(statut='f',typ='I',max='**'),
13919                        NOEUD_CMP      = SIMP(statut='f',typ='TXM',max='**'),
13920                        NOM_CAS        = SIMP(statut='f',typ='TXM',max='**'),
13921          ),
13922
13923          ENER_CIN       = FACT(statut='f',min=1,max='**',
13924                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
13925                                OPTION       = SIMP(statut='f',typ='TXM',
13926                                                    into=("MASS_MECA","MASS_MECA_DIAG"),
13927                                                    defaut="MASS_MECA" ),
13928                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13929                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
13930                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
13931                               ),
13932          b_ener_cin = BLOC(condition = "( ENER_CIN != None )",
13933                        fr="calcul de l'énergie cinétique",
13934                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
13935                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
13936                                       'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
13937                        MODELE         = SIMP(statut='o',typ=modele),
13938                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
13939                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
13940                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
13941                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
13942                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
13943                        ANGLE          = SIMP(statut='f',typ='I',defaut=0),
13944                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
13945                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
13946                        RESULTAT       = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,dyna_trans) ),
13947                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
13948                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
13949                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13950                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
13951                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
13952                        INST           = SIMP(statut='f',typ='R',max='**'),
13953                        LIST_INST      = SIMP(statut='f',typ=listr8),
13954                        FREQ           = SIMP(statut='f',typ='R',max='**'),
13955                        LIST_FREQ      = SIMP(statut='f',typ=listr8),
13956                        NUME_MODE      = SIMP(statut='f',typ='I',max='**'),
13957                        NOEUD_CMP      = SIMP(statut='f',typ='TXM',max='**'),
13958                        NOM_CAS        = SIMP(statut='f',typ='TXM',max='**'),
13959          ),
13960
13961          ENER_ELAS      = FACT(statut='f',min=1,max='**',
13962                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
13963                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13964                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
13965                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
13966                               ),
13967          b_ener_elas = BLOC(condition = "( ENER_ELAS != None )",
13968                        fr="calcul de l'énergie de déformation élastique",
13969                        MODELE         = SIMP(statut='o',typ=modele),
13970                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
13971                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
13972                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
13973                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
13974                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
13975                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
13976                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
13977                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
13978                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
13979                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
13980                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13981                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
13982                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
13983                        INST           = SIMP(statut='f',typ='R',max='**'),
13984                        LIST_INST      = SIMP(statut='f',typ=listr8),
13985          ),
13986
13987          ENER_TOTALE    = FACT(statut='f',min=1,max='**',
13988                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
13989                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
13990                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
13991                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
13992                               ),
13993          b_ener_totale = BLOC(condition = "( ENER_TOTALE != None )",
13994                        fr="calcul de l'énergie de déformation totale",
13995                        MODELE         = SIMP(statut='o',typ=modele),
13996                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
13997                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
13998                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
13999                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
14000                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14001                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14002                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
14003                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14004                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14005                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14006                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14007                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14008                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14009                        INST           = SIMP(statut='f',typ='R',max='**'),
14010                        LIST_INST      = SIMP(statut='f',typ=listr8),
14011          ),
14012
14013          WEIBULL        = FACT(statut='f',min=1,max='**',
14014                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14015                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14016                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14017                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14018                                OPTION       = SIMP(statut='f',typ='TXM',
14019                                                    into=("SIGM_ELGA","SIGM_ELMOY"),
14020                                                    defaut="SIGM_ELGA"),
14021                                CORR_PLAST   = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
14022                                COEF_MULT    = SIMP(statut='f',typ='R',defaut=1.),
14023                               ),
14024          b_weibull = BLOC(condition = "( WEIBULL != None )",
14025                        fr="calcul du champ élémentaire de la puissance m-ième de la contrainte de Weibull",
14026                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
14027                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14028                        MODELE         = SIMP(statut='o',typ=modele),
14029                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14030                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14031                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14032                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
14033                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14034                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14035                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14036                        RESULTAT       = SIMP(statut='f',typ=(evol_noli) ),
14037                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14038                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14039                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14040                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14041                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14042                        INST           = SIMP(statut='f',typ='R',max='**'),
14043                        LIST_INST      = SIMP(statut='f',typ=listr8),
14044          ),
14045
14046          RICE_TRACEY    = FACT(statut='f',min=1,max='**',
14047                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14048                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14049                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14050                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14051                                OPTION       = SIMP(statut='f',typ='TXM',
14052                                                    into=("SIGM_ELGA","SIGM_ELMOY"),
14053                                                    defaut="SIGM_ELGA"),
14054                                LOCAL        = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
14055                               ),
14056          b_rice_tracey = BLOC(condition = "( RICE_TRACEY != None )",
14057                        fr="calcul du taux de croissance d'une cavité sphérique par rapport à un domaine",
14058                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
14059                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14060                        MODELE         = SIMP(statut='o',typ=modele),
14061                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14062                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14063                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14064                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
14065                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14066                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14067                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14068                        RESULTAT       = SIMP(statut='f',typ=(evol_noli) ),
14069                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14070                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14071                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14072                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14073                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14074                        INST           = SIMP(statut='f',typ='R',max='**'),
14075                        LIST_INST      = SIMP(statut='f',typ=listr8),
14076          ),
14077
14078          INDIC_ENER     = FACT(statut='f',min=1,max='**',
14079                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14080                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14081                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14082                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14083                               ),
14084          b_indic_ener = BLOC(condition = "( INDIC_ENER != None )",
14085                        fr="calcul un indicateur global de perte de proportionnalité du chargement",
14086                        MODELE         = SIMP(statut='o',typ=modele),
14087                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14088                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14089                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14090                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
14091                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14092                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14093                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14094                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14095                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14096                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14097                        INST           = SIMP(statut='f',typ='R',max='**'),
14098                        LIST_INST      = SIMP(statut='f',typ=listr8),
14099          ),
14100
14101          INDIC_SEUIL    = FACT(statut='f',min=1,max='**',
14102                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14103                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14104                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14105                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14106                               ),
14107          b_indic_seuil = BLOC(condition = "( INDIC_SEUIL != None )",
14108                        fr="calcul un indicateur global de perte de proportionnalité du chargement",
14109                        MODELE         = SIMP(statut='o',typ=modele),
14110                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14111                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14112                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14113                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
14114                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14115                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14116                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14117                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14118                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14119                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14120                        INST           = SIMP(statut='f',typ='R',max='**'),
14121                        LIST_INST      = SIMP(statut='f',typ=listr8),
14122          ),
14123
14124          CHAR_LIMITE    = FACT(statut='f',min=0,max=1,
14125                                CHAR_CSTE = SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON")
14126                               ),
14127          b_char_limite = BLOC(condition = "( CHAR_LIMITE != None )",
14128                        fr="post-traitement du calcul de la charge limite",
14129                        MODELE         = SIMP(statut='o',typ=modele),
14130                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14131                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14132                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14133                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14134                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
14135                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
14136                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14137                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14138                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14139                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14140                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14141                        INST           = SIMP(statut='f',typ='R',max='**'),
14142                        LIST_INST      = SIMP(statut='f',typ=listr8),
14143          ),
14144
14145          CARA_GEOM      = FACT(statut='f',min=1,max='**',
14146                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14147                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14148                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14149                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14150                                SYME_X       = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
14151                                SYME_Y       = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
14152                                ORIG_INER    = SIMP(statut='f',typ='R',min=2,max=2),
14153                               ),
14154          b_cara_geom = BLOC(condition = "( CARA_GEOM != None )",
14155                        fr="calcul des caractéristiques géométriques d'un section de poutre",
14156                        MODELE         = SIMP(statut='o',typ=modele),
14157                        CHAM_MATER     = SIMP(statut='f',typ=cham_mater),
14158                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14159                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14160          ),
14161
14162          CARA_POUTRE    = FACT(statut='f',min=1,max='**',
14163                                regles=(AU_MOINS_UN('TOUT','GROUP_MA'),
14164                                        ENSEMBLE('LONGUEUR','LIAISON','MATERIAU'),),
14165                                TOUT          = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14166                                GROUP_MA      = SIMP(statut='f',typ=grma,max='**'),
14167                                GROUP_MA_INTE = SIMP(statut='f',typ=grma,max='**'),
14168                                CARA_GEOM     = SIMP(statut='f',typ=tabl_cara_geom),
14169                                LAPL_PHI      = SIMP(statut='f',typ=evol_ther),
14170                                LAPL_PHI_Y    = SIMP(statut='f',typ=evol_ther),
14171                                LAPL_PHI_Z    = SIMP(statut='f',typ=evol_ther),
14172                                LIAISON       = SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT")),
14173                                LONGUEUR      = SIMP(statut='f',typ='R'),
14174                                MATERIAU      = SIMP(statut='f',typ=mater),
14175                                OPTION        = SIMP(statut='f',typ='TXM',
14176                                                     into=("CARA_TORSION","CARA_CISAILLEMENT","CARA_GAUCHI") ),
14177                              ),
14178          b_cara_poutre = BLOC(condition = "( CARA_POUTRE != None )",
14179                        fr="calcul des caractéristiques mécaniques d'un section de poutre",
14180                        MODELE         = SIMP(statut='o',typ=modele),
14181                        CHAM_MATER     = SIMP(statut='f',typ=cham_mater),
14182                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14183                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14184          ),
14185
14186           AIRE_INTERNE   = FACT(statut='f',min=1,max='**',
14187                                 GROUP_MA_BORD  = SIMP(statut='o',typ=grma,max='**'),
14188                                ),
14189          b_aire_interne = BLOC(condition = "( AIRE_INTERNE != None )",
14190                        fr="calcul de l'aire d'un trou dans un maillage 2D",
14191                        MODELE         = SIMP(statut='o',typ=modele),
14192          ),
14193
14194          TRAV_EXT       = FACT(statut='f',min=1,max=1),
14195          b_trav_ext = BLOC(condition = "( TRAV_EXT != None )",
14196                        fr="calcul du travail des efforts extérieurs",
14197                        RESULTAT       = SIMP(statut='o',typ=(evol_elas,evol_noli,dyna_trans) ),
14198                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14199                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14200                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14201          ),
14202
14203          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
14204          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14205
14206  )  ;
14207 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
14208 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14209 # ======================================================================
14210 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14211 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14212 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14213 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14214 # (AT YOUR OPTION) ANY LATER VERSION.
14215 #
14216 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14217 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14218 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14219 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14220 #
14221 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14222 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14223 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14224 # ======================================================================
14225 POST_FATI_ALEA=OPER(nom="POST_FATI_ALEA",op=170,sd_prod=tabl_post_f_alea,docu="U4.84.03-c",reentrant='n',
14226                     fr="Calcul du dommage subi par une structure soumise à unesollicitation de type aléatoire",
14227          regles=(ENSEMBLE('MOMENT_SPEC_0','MOMENT_SPEC_2'),
14228                  PRESENT_PRESENT( 'MOMENT_SPEC_4','MOMENT_SPEC_0'),
14229                  UN_PARMI('TABL_POST_ALEA','MOMENT_SPEC_0'), ),
14230          MOMENT_SPEC_0   =SIMP(statut='f',typ='R'),
14231          MOMENT_SPEC_2   =SIMP(statut='f',typ='R'),
14232          MOMENT_SPEC_4   =SIMP(statut='f',typ='R'),
14233          TABL_POST_ALEA  =SIMP(statut='f',typ=tabl_post_alea),
14234          COMPTAGE        =SIMP(statut='o',typ='TXM',into=("PIC","NIVEAU")),
14235          DUREE           =SIMP(statut='f',typ='R',defaut= 1.),
14236          CORR_KE         =SIMP(statut='f',typ='TXM',into=("RCCM",)),
14237          DOMMAGE         =SIMP(statut='o',typ='TXM',into=("WOHLER",)),
14238          MATER           =SIMP(statut='o',typ=mater),
14239          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
14240 )  ;
14241 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
14242 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14243 # ======================================================================
14244 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14245 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14246 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14247 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14248 # (AT YOUR OPTION) ANY LATER VERSION.
14249 #
14250 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14251 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14252 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14253 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14254 #
14255 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14256 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14257 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14258 # ======================================================================
14259 POST_FATIGUE=OPER(nom="POST_FATIGUE",op=136,sd_prod=tabl_post_fatig,docu="U4.83.01-d1",reentrant='n',
14260                   fr="Calcul du dommage subi par une structure soumise à une histoire de chargement",
14261
14262          CHARGEMENT = SIMP(statut='o',typ='TXM',into=("UNIAXIAL","PERIODIQUE","QUELCONQUE")),
14263
14264          b_uniaxial = BLOC( condition = "CHARGEMENT=='UNIAXIAL'",
14265                       regles=(PRESENT_PRESENT('CORR_KE','MATER'),
14266                               PRESENT_PRESENT('CORR_SIGM_MOYE','MATER'),
14267                               PRESENT_PRESENT('DOMMAGE','MATER'),),
14268              HISTOIRE       = FACT(statut='o',min=1,max=1,
14269                                  regles=(UN_PARMI('SIGM','EPSI'),),
14270                                  SIGM  = SIMP(statut='f',typ=fonction),
14271                                  EPSI  = SIMP(statut='f',typ=fonction),),
14272              COMPTAGE       = SIMP(statut='o',typ='TXM',into=("RAINFLOW","RCCM","NATUREL")),
14273              DELTA_OSCI     = SIMP(statut='f',typ='R',defaut= 0.0E+0),
14274              COEF_MULT      = FACT(statut='f',min=1,max=1,
14275                                  KT    = SIMP(statut='o',typ='R'),),
14276              CORR_KE        = SIMP(statut='f',typ='TXM',into=("RCCM",)),
14277              DOMMAGE        = SIMP(statut='f',typ='TXM',into=("WOHLER","MANSON_COFFIN",
14278                                                               "TAHERI_MANSON","TAHERI_MIXTE")),
14279              MATER          = SIMP(statut='f',typ=mater),
14280              CORR_SIGM_MOYE = SIMP(statut='f',typ='TXM',into=("GOODMAN","GERBER")),
14281              TAHERI_NAPPE   = SIMP(statut='f',typ=fonction),
14282              TAHERI_FONC    = SIMP(statut='f',typ=fonction),
14283              CUMUL          = SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
14284          ),
14285
14286          b_periodique = BLOC( condition = "CHARGEMENT=='PERIODIQUE'",
14287              HISTOIRE       = FACT(statut='o',min=1,max=1,
14288                                  SIGM_XX  = SIMP(statut='o',typ=fonction),
14289                                  SIGM_YY  = SIMP(statut='o',typ=fonction),
14290                                  SIGM_ZZ  = SIMP(statut='o',typ=fonction),
14291                                  SIGM_XY  = SIMP(statut='o',typ=fonction),
14292                                  SIGM_XZ  = SIMP(statut='f',typ=fonction),
14293                                  SIGM_YZ  = SIMP(statut='f',typ=fonction),),
14294              CRITERE        = SIMP(statut='o',typ='TXM',into=("CROSSLAND","PAPADOPOULOS")),
14295              DOMMAGE        = SIMP(statut='f',typ='TXM',into=("WOHLER",)),
14296              MATER          = SIMP(statut='o',typ=mater),
14297              COEF_CORR      = SIMP(statut='f',typ='R'),
14298          ),
14299
14300          b_quelconque = BLOC( condition = "CHARGEMENT=='QUELCONQUE'",
14301              HISTOIRE       = FACT(statut='o',min=1,max=1,
14302                                  SIGM_XX  = SIMP(statut='o',typ=fonction),
14303                                  SIGM_YY  = SIMP(statut='o',typ=fonction),
14304                                  SIGM_ZZ  = SIMP(statut='o',typ=fonction),
14305                                  SIGM_XY  = SIMP(statut='o',typ=fonction),
14306                                  SIGM_XZ  = SIMP(statut='f',typ=fonction),
14307                                  SIGM_YZ  = SIMP(statut='f',typ=fonction),
14308                                  EPSP     = SIMP(statut='o',typ=fonction),
14309                                  TEMP     = SIMP(statut='o',typ=fonction),),
14310              DOMMAGE        = SIMP(statut='f',typ='TXM',into=("LEMAITRE",),defaut="LEMAITRE"),
14311              MATER          = SIMP(statut='o',typ=mater),
14312              CUMUL          = SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
14313          ),
14314
14315          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14316          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
14317 )  ;
14318 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
14319 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14320 # ======================================================================
14321 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14322 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14323 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14324 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14325 # (AT YOUR OPTION) ANY LATER VERSION.
14326 #
14327 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14328 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14329 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14330 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14331 #
14332 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14333 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14334 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14335 # ======================================================================
14336 POST_GOUJ2E=OPER(nom="POST_GOUJ2E",op=187,sd_prod=tabl_post_gouj2e,reentrant='n',
14337                  fr=" ",docu="U4.GJ.30-a",
14338          TABLE           =SIMP(statut='o',typ=tabl_post_rele),
14339 )  ;
14340 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
14341 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14342 # ======================================================================
14343 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14344 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14345 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14346 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14347 # (AT YOUR OPTION) ANY LATER VERSION.
14348 #
14349 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14350 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14351 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14352 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14353 #
14354 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14355 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14356 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14357 # ======================================================================
14358 # RESPONSABLE JMBHH01 J.M.PROIX
14359 POST_K1_K2_K3=OPER(nom="POST_K1_K2_K3",op=188,sd_prod=tabl_post_k,
14360                    fr="Calcul des FIC par extrapolation du champ de déplacements sur les lèvres de la fissure",
14361                    docu="U4.82.05-b2",reentrant='n',
14362
14363            regles=(UN_PARMI('RESULTAT','TABL_DEPL_SUP'),
14364                    PRESENT_PRESENT('TABL_DEPL_SUP','TABL_DEPL_INF'),),
14365
14366          MODELISATION  =SIMP(statut='o',typ='TXM',
14367                              into=("3D","AXIS","D_PLAN","C_PLAN"),
14368                              fr="Modélisation cohérente avec celle utilisée pour le calcul des déplacements"),
14369            FOND_3D         =SIMP(statut='f',typ=fond_fiss),
14370            FOND_FISS       =SIMP(statut='f',typ=fond_fiss),
14371          b_fond_3d     =BLOC (condition="(FOND_3D != None) or (FOND_FISS!= None)",
14372                          MAILLAGE      = SIMP(statut='o',typ=maillage),
14373                          PRECISION     = SIMP(statut='f',typ='R',defaut=0.001),
14374                          NOEUD         = SIMP(statut='f',typ=no,max='**'),
14375                          GROUP_NO      = SIMP(statut='f',typ=grno,max='**'),
14376                          SANS_NOEUD    = SIMP(statut='f',typ=no,max='**'),
14377                          SANS_GROUP_NO = SIMP(statut='f',typ=grno,max='**')
14378                          ),
14379          MATER         =SIMP(statut='o',typ=mater,
14380                              fr="Matériau homogène et isotrope cohérent avec celui utilisé pour le calcul des déplacements"),
14381          RESULTAT      =SIMP(statut='f',typ=(evol_elas,evol_noli),
14382                              fr="Table déplacement des noeuds de la lèvre supérieure et inférieure"),
14383          TABL_DEPL_SUP =SIMP(statut='f',typ=tabl_post_rele,
14384                              fr="Table issue de post_releve_t sur les noeuds de la lèvre supérieure"),
14385          TABL_DEPL_INF =SIMP(statut='f',typ=tabl_post_rele,
14386                              fr="Table issue de post_releve_t sur les noeuds de la lèvre inférieure"),
14387          ABSC_CURV_MAXI=SIMP(statut='f',typ='R',
14388                              fr="distance maximum à partir du fond de fissure à utiliser pour le calcul"),
14389          PREC_VIS_A_VIS= SIMP(statut='f',typ='R',defaut=0.1),
14390          TOUT_ORDRE    =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14391          NUME_ORDRE    =SIMP(statut='f',typ='I',max='**'),
14392          LIST_ORDRE    =SIMP(statut='f',typ=listis),
14393          INST          =SIMP(statut='f',typ='R',max='**'),
14394          LIST_INST     =SIMP(statut='f',typ=listr8),
14395              b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
14396                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
14397                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
14398              ),
14399          INFO          =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14400          VECT_K1       =SIMP(statut='o',typ='R',max='**',
14401                              fr="Vecteur normal au plan de fissure, orienté de la lèvre inférieure vers la lèvre supérieure"),
14402          TITRE         =SIMP(statut='f',typ='TXM',max='**'),
14403 )  ;
14404 #& MODIF COMMANDE  DATE 29/03/2002   AUTEUR CIBHHBC R.FERNANDES
14405 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14406 # ======================================================================
14407 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
14408 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14409 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14410 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14411 # (AT YOUR OPTION) ANY LATER VERSION.
14412 #
14413 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14414 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14415 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14416 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14417 #
14418 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14419 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14420 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14421 #
14422 #
14423 # ======================================================================
14424 #
14425 POST_K_BETA=OPER(nom="POST_K_BETA",op=198,sd_prod=tabl_post_beta,
14426                    fr="Calcul des FIC par la méthode K_BETA",
14427                    docu="U4.82.07-a",reentrant='n',
14428          MAILLAGE      = SIMP(statut='o',typ=maillage),
14429          MATER_REV     = SIMP(statut='o',typ=mater),
14430          EPAIS_REV     = SIMP(statut='o',typ='R'),
14431          FISSURE       = FACT(statut='o',min=1,max=1,
14432             DECALAGE       = SIMP(statut='f',typ='R',defaut=-2.e-04),
14433             PROFONDEUR     = SIMP(statut='o',typ='R'),
14434             LONGUEUR       = SIMP(statut='o',typ='R'),
14435             ORIENTATION    = SIMP(statut='o',typ='TXM',
14436                                  into=("CIRC","LONGI"),),
14437          ),
14438          K1D           = FACT(statut='o',min=1,max='**',
14439             TABL_MECA_REV  = SIMP(statut='o',typ=(tabl_post_rele)),
14440             TABL_MECA_MDB  = SIMP(statut='o',typ=(tabl_post_rele)),
14441             TABL_THER      = SIMP(statut='o',typ=(tabl_post_rele)),
14442             INTITULE       = SIMP(statut='o',typ='TXM' ),
14443          ),
14444          INFO          = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14445          TITRE         = SIMP(statut='f',typ='TXM',max='**'),
14446 );
14447 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
14448 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14449 # ======================================================================
14450 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14451 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14452 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14453 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14454 # (AT YOUR OPTION) ANY LATER VERSION.
14455 #
14456 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14457 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14458 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14459 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14460 #
14461 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14462 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14463 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14464 # ======================================================================
14465 # RESPONSABLE JMBHH01 J.M.PROIX
14466 POST_RCCM=OPER(nom="POST_RCCM",op= 165,sd_prod=tabl_post_rccm,
14467                fr="Vérification des critères de niveau 0 et certains critères de niveau A du RCC-M-B3200 (Edition 1991)",
14468                docu="U4.83.11-d1",reentrant='n',
14469          MATER           =SIMP(statut='o',typ=mater ),
14470          TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="VALE_MAX",into=("VALE_MAX","VALE_INST") ),
14471          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
14472          MAILLAGE        =SIMP(statut='f',typ=maillage),
14473          OPTION          =SIMP(statut='o',typ='TXM',max='**',
14474                                into=("PM_PB",
14475                                      "SN",
14476                                      "FATIGUE_SPMAX",
14477                                      "FATIGUE_ZH210"
14478                                      ) ),
14479          SEGMENT         =FACT(statut='o',min=01,max='**',fr="Segment sur lequel s effectue le depouillement",
14480            regles=(AU_MOINS_UN('CHEMIN','GROUP_NO','NOEUD'),
14481                    EXCLUS('CHEMIN','GROUP_NO'),
14482                    EXCLUS('CHEMIN','NOEUD'),),
14483            INTITULE        =SIMP(statut='f',typ='TXM' ),
14484            CHEMIN          =SIMP(statut='f',typ=(courbe,surface),),
14485            NOEUD           =SIMP(statut='f',typ=no,max='**'),
14486            GROUP_NO        =SIMP(statut='f',typ=grno),
14487              b_acce_noeud     =BLOC(condition="(NOEUD != None)or(GROUP_NO != None)",
14488                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
14489                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
14490              ),
14491          ),
14492          TRANSITOIRE     =FACT(statut='o',min=01,max='**',fr="transitoire à dépouiller",
14493            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
14494            RESULTAT        =SIMP(statut='o',typ=(evol_elas,evol_noli) ),
14495            RESU_SIGM_THER  =SIMP(statut='f',typ=(evol_elas,evol_noli),fr="résultat sous chargement thermique seul" ),
14496            NB_OCCUR        =SIMP(statut='f',typ='I',defaut= 1,fr="nombre d occurences réelles de ce transitoire" ),
14497            NOM_CHAM        =SIMP(statut='o',typ='TXM',into=("SIEF_ELNO_ELGA","SIGM_ELNO_DEPL") ),
14498            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14499            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
14500            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
14501            INST            =SIMP(statut='f',typ='R',max='**'),
14502            LIST_INST       =SIMP(statut='f',typ=listr8 ),
14503            b_inst          =BLOC(condition = "(INST != None) or (LIST_INST != None)" ,
14504              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
14505              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
14506            ),
14507          ),
14508 )  ;
14509 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
14510 # ======================================================================
14511 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14512 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14513 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14514 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14515 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14516 # (AT YOUR OPTION) ANY LATER VERSION.
14517 #
14518 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14519 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14520 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14521 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14522 #
14523 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14524 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14525 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14526 # ======================================================================
14527 # RESPONSABLE G8BHHXD X.DESROCHES
14528 POST_RELEVE_T=OPER(nom="POST_RELEVE_T",op=51,sd_prod=tabl_post_rele,docu="U4.81.21-e1",reentrant='n',
14529          ACTION          =FACT(statut='o',min=01,max='**',
14530            regles=(AU_MOINS_UN('CHEMIN','GROUP_NO','NOEUD'),
14531                    EXCLUS('CHEMIN','GROUP_NO'),
14532                    EXCLUS('CHEMIN','NOEUD'),
14533                    PRESENT_ABSENT('CHEMIN','GROUP_MA','MAILLE'),
14534                    UN_PARMI('RESULTAT','CHAM_GD'),
14535                    UN_PARMI('TOUT_CMP','NOM_CMP','INVARIANT','ELEM_PRINCIPAUX','RESULTANTE'),
14536                    PRESENT_PRESENT('TRAC_DIR','DIRECTION'),
14537                    PRESENT_PRESENT('TRAC_DIRECTION','DIRECTION'),
14538                    ENSEMBLE('MOMENT','POINT'),
14539                    PRESENT_PRESENT('MOMENT','RESULTANTE'),
14540                    PRESENT_ABSENT('TOUT_CMP','TRAC_DIRECTION','TRAC_NORMALE'),
14541                    PRESENT_ABSENT('TOUT_CMP','TRAC_DIR','TRAC_NOR'),
14542                    PRESENT_PRESENT('ORIGINE','AXE_Z'),),
14543            INTITULE        =SIMP(statut='o',typ='TXM'),
14544            CHEMIN          =SIMP(statut='f',typ=(courbe,surface) ),
14545            NOEUD           =SIMP(statut='f',typ=no,max='**'),
14546            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14547            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
14548            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
14549            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
14550            FORMAT_C        =SIMP(statut='f',typ='TXM',defaut="MODULE",into=("MODULE","REEL","IMAG")),
14551            CHAM_GD         =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r,cham_no_var2_r,
14552                                                  cham_elem_sief_r,cham_elem_epsi_r,cham_elem_flux_r,cham_elem_crit_r,
14553                                                  cham_elem_ener_r,cham_elem_dbel_r,cham_elem_pres_r,cham_elem_erreur,
14554                                                  cham_elem_vari_r,cham_no_depl_c,cham_no_temp_c,cham_no_pres_c,
14555                                                  cham_elem_sief_c,cham_elem_epsi_c)),
14556            RESULTAT        =SIMP(statut='f',typ=(evol_elas,evol_ther,evol_noli,dyna_trans,
14557                                                  mode_meca,mode_flamb,mode_acou,base_modale,mode_stat,
14558                                                  mult_elas,fourier_elas,dyna_harmo,acou_harmo)),
14559            b_sensibilite   =BLOC(condition="RESULTAT != None",
14560                                  fr="Définition des paramètres de sensibilité",
14561                                  ang="Definition of sensitivity parameters",
14562              SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
14563                                    fr="Liste des paramètres de sensibilité.",
14564                                    ang="List of sensitivity parameters"),),
14565
14566            b_extrac        =BLOC(condition = "RESULTAT != None",fr="extraction des résultats",
14567              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','NUME_MODE','LIST_MODE',
14568                             'INST','LIST_INST','FREQ','LIST_FREQ','NOEUD_CMP','NOM_CAS'), ),
14569              NOM_CHAM        =SIMP(statut='o',typ='TXM' ),
14570              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14571              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
14572              LIST_ORDRE      =SIMP(statut='f',typ=listis),
14573              NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
14574              LIST_MODE       =SIMP(statut='f',typ=listis),
14575              NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
14576              NOM_CAS         =SIMP(statut='f',typ='TXM',max='**'),
14577              FREQ            =SIMP(statut='f',typ='R',max='**'),
14578              LIST_FREQ       =SIMP(statut='f',typ=listr8),
14579              INST            =SIMP(statut='f',typ='R',max='**'),
14580              LIST_INST       =SIMP(statut='f',typ=listr8),
14581              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
14582              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14583            ),
14584            TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",)),
14585            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
14586            INVARIANT       =SIMP(statut='f',typ='TXM',into=("OUI",)),
14587            ELEM_PRINCIPAUX =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14588            RESULTANTE      =SIMP(statut='f',typ='TXM',max='**'),
14589            MOMENT          =SIMP(statut='f',typ='TXM',max='**'),
14590            POINT           =SIMP(statut='f',typ='R',max='**'),
14591
14592            REPERE          =SIMP(statut='f',typ='TXM',defaut="GLOBAL",
14593                                  into=("GLOBAL","LOCAL","POLAIRE","UTILISATEUR","CYLINDRIQUE"),),
14594            ANGL_NAUT       =SIMP(statut='f',typ='R',min=3,max=3),
14595            ORIGINE         =SIMP(statut='f',typ='R',min=3,max=3),
14596            AXE_Z           =SIMP(statut='f',typ='R',min=3,max=3),
14597
14598            TRAC_NOR        =SIMP(statut='f',typ='TXM',into=("OUI",)),
14599            TRAC_DIR        =SIMP(statut='f',typ='TXM',into=("OUI",)),
14600            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
14601            TRAC_DIRECTION  =SIMP(statut='f',typ='TXM',into=("OUI",)),
14602            TRAC_NORMALE    =SIMP(statut='f',typ='TXM',into=("OUI",)),
14603
14604            VECT_Y          =SIMP(statut='f',typ='R',max='**'),
14605            MOYE_NOEUD      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
14606            OPERATION       =SIMP(statut='o',typ='TXM',into=("EXTRACTION","MOYENNE"),max=2),
14607          ),
14608          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14609          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
14610 )  ;
14611 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
14612 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14613 # ======================================================================
14614 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14615 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14616 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14617 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14618 # (AT YOUR OPTION) ANY LATER VERSION.
14619 #
14620 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14621 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14622 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14623 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14624 #
14625 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14626 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14627 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14628 # ======================================================================
14629 POST_SIMPLIFIE=OPER(nom="POST_SIMPLIFIE",op=185,sd_prod=tabl_post_simpli,
14630                     fr=" ",docu="U4.PS.10-a",reentrant='n',
14631          MATER           =SIMP(statut='o',typ=(mater) ),
14632          DEF_EQUI        =FACT(statut='f',min=01,max=01,
14633            METHODE         =SIMP(statut='f',typ='TXM',max='**',defaut="UTO_2_3",
14634                                  into=("UTO_2_3",) ),
14635            EPAIS           =SIMP(statut='o',typ='R'),
14636            LONG_FISS       =SIMP(statut='o',typ='R'),
14637            LONG_LIGA_INT   =SIMP(statut='o',typ='R'),
14638            DEXT            =SIMP(statut='o',typ='R'),
14639            TEMP_ANALYSE    =SIMP(statut='f',typ='R'),
14640          ),
14641 )  ;
14642 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
14643 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14644 # ======================================================================
14645 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14646 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14647 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14648 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14649 # (AT YOUR OPTION) ANY LATER VERSION.
14650 #
14651 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14652 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14653 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14654 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14655 #
14656 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14657 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14658 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14659 # ======================================================================
14660 POST_USURE=OPER(nom="POST_USURE",op=153,sd_prod=tabl_post_usur,docu="U4.84.05-d1",reentrant='f',
14661                 fr="Calcul des volumes d'usure et des profondeurs d'usure",
14662          regles=(UN_PARMI('RESU_GENE','PUIS_USURE'),
14663                  PRESENT_PRESENT('RESU_GENE','NOEUD'),
14664                  UN_PARMI('INST','LIST_INST'),),
14665          ETAT_INIT       =FACT(statut='f',min=01,max=01,
14666            TABL_USURE      =SIMP(statut='f',typ=tabl_post_usur),
14667            INST_INIT       =SIMP(statut='f',typ='R'),
14668                          ),
14669          RESU_GENE       =SIMP(statut='f',typ=tran_gene),
14670          NOEUD           =SIMP(statut='f',typ=no,max=1),
14671          INST_INIT       =SIMP(statut='f',typ='R',defaut=-1.0E+0),
14672          INST_FIN        =SIMP(statut='f',typ='R'),
14673          NB_BLOC         =SIMP(statut='f',typ='I',defaut= 1 ),
14674          PUIS_USURE      =SIMP(statut='f',typ='R'),
14675          LOI_USURE       =SIMP(statut='o',typ='TXM',into=("ARCHARD","KWU_EPRI","EDF_MZ")),
14676          b_archard       =BLOC(condition = "LOI_USURE == 'ARCHARD'",
14677            regles=(UN_PARMI('MOBILE','MATER_USURE','SECTEUR'),
14678                    EXCLUS('MATER_USURE','OBSTACLE'),
14679                    EXCLUS('MOBILE','USURE_OBST'),),
14680            MOBILE          =FACT(statut='f',min=01,max=01,
14681              COEF_USURE      =SIMP(statut='o',typ='R'),
14682            ),
14683            OBSTACLE        =FACT(statut='f',min=01,max=01,
14684              COEF_USURE      =SIMP(statut='o',typ='R'),
14685            ),
14686            SECTEUR         =FACT(statut='f',min=01,max='**',
14687              CONTACT         =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
14688                                                               "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
14689                                                               "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
14690              COEF_USUR_MOBILE=SIMP(statut='f',typ='R'),
14691              COEF_USUR_OBST  =SIMP(statut='f',typ='R'),
14692              ANGL_INIT       =SIMP(statut='f',typ='R'),
14693              ANGL_FIN        =SIMP(statut='f',typ='R'),
14694            ),
14695            MATER_USURE     =SIMP(statut='f',typ='TXM'),
14696            USURE_OBST      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
14697          ),
14698          b_kwu_epri        =BLOC(condition = "LOI_USURE == 'KWU_EPRI'",
14699            regles=(UN_PARMI('MOBILE','MATER_USURE'),
14700                    EXCLUS('MATER_USURE','OBSTACLE'),
14701                    EXCLUS('MOBILE','USURE_OBST'),),
14702            MOBILE          =FACT(statut='f',min=01,max=01,
14703              COEF_FNOR       =SIMP(statut='f',typ='R'),
14704              COEF_VTAN       =SIMP(statut='f',typ='R'),
14705              COEF_USURE      =SIMP(statut='f',typ='R'),
14706              COEF_K          =SIMP(statut='f',typ='R',defaut=5.0E+0),
14707              COEF_C          =SIMP(statut='f',typ='R',defaut=10.0E+0),
14708            ),
14709            OBSTACLE        =FACT(statut='f',min=01,max=01,
14710              COEF_FNOR       =SIMP(statut='f',typ='R' ),
14711              COEF_VTAN       =SIMP(statut='f',typ='R' ),
14712              COEF_USURE      =SIMP(statut='o',typ='R'),
14713              COEF_K          =SIMP(statut='f',typ='R',defaut=5.0E+0),
14714              COEF_C          =SIMP(statut='f',typ='R',defaut=10.0E+0),
14715            ),
14716            MATER_USURE     =SIMP(statut='f',typ='TXM'),
14717            USURE_OBST      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
14718            FNOR_MAXI       =SIMP(statut='f',typ='R' ),
14719            VTAN_MAXI       =SIMP(statut='f',typ='R' ),
14720          ),
14721          b_edf_mz          =BLOC(condition = "LOI_USURE == 'EDF_MZ'",
14722            regles=(UN_PARMI('MOBILE','MATER_USURE'),
14723                    EXCLUS('MATER_USURE','OBSTACLE'),
14724                    EXCLUS('MOBILE','USURE_OBST'),),
14725            MOBILE          =FACT(statut='f',min=01,max=01,
14726              COEF_USURE      =SIMP(statut='f',typ='R',defaut=1.0E-13),
14727              COEF_B          =SIMP(statut='f',typ='R',defaut=1.2E+0),
14728              COEF_N          =SIMP(statut='f',typ='R',defaut=2.44E-8),
14729              COEF_S          =SIMP(statut='f',typ='R',defaut=1.14E-16),
14730            ),
14731            OBSTACLE        =FACT(statut='f',min=01,max=01,
14732              COEF_USURE      =SIMP(statut='o',typ='R',defaut=1.0E-13),
14733              COEF_B          =SIMP(statut='f',typ='R',defaut=1.2E+0),
14734              COEF_N          =SIMP(statut='f',typ='R',defaut=2.44E-8),
14735              COEF_S          =SIMP(statut='f',typ='R',defaut=1.14E-16),
14736            ),
14737            MATER_USURE     =SIMP(statut='f',typ='TXM'),
14738            USURE_OBST      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
14739          ),
14740          CONTACT         =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
14741                                                           "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
14742                                                           "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
14743          RAYON_MOBILE    =SIMP(statut='f',typ='R'),
14744          RAYON_OBST      =SIMP(statut='f',typ='R'),
14745          LARGEUR_OBST    =SIMP(statut='f',typ='R'),
14746          ANGL_INCLI      =SIMP(statut='f',typ='R'),
14747          ANGL_ISTHME     =SIMP(statut='f',typ='R'),
14748          ANGL_IMPACT     =SIMP(statut='f',typ='R'),
14749          INST            =SIMP(statut='f',typ='R',max='**'),
14750          LIST_INST       =SIMP(statut='f',typ=listr8),
14751          COEF_INST       =SIMP(statut='f',typ='R',defaut=1.0E+0),
14752          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14753          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
14754 )  ;
14755 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
14756 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14757 # ======================================================================
14758 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14759 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14760 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14761 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14762 # (AT YOUR OPTION) ANY LATER VERSION.
14763 #
14764 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14765 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14766 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14767 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14768 #
14769 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14770 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14771 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14772 # ======================================================================
14773 POST_ZAC=OPER(nom="POST_ZAC",op= 175,sd_prod=mult_elas,docu="U4.83.21-b",reentrant='n',
14774               fr="Donne l'état adapté ou accommodé d'une structure sous chargement cyclique élastique affine ou non",
14775          MODELE          =SIMP(statut='o',typ=modele),
14776          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
14777          EXCIT           =FACT(statut='o',min=01,max='**',
14778            CHARGE          =SIMP(statut='o',typ=char_meca),
14779            FONC_MULT       =SIMP(statut='f',typ=fonction),
14780            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",into=("FIXE_CSTE",)),
14781          ),
14782          EVOL_ELAS       =SIMP(statut='o',typ=evol_elas),
14783          b_evol_elas     =BLOC(condition="EVOL_ELAS != None",
14784            regles=(UN_PARMI('NUME_ORDRE','LIST_INST','INST'),),
14785            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
14786            LIST_INST       =SIMP(statut='f',typ=listr8),
14787            INST            =SIMP(statut='f',typ='R',max='**'),
14788          ),
14789          TEMP_ZAC        =SIMP(statut='f',typ='R',defaut=0.0E+0),
14790          EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
14791          b_evol_noli     =BLOC(condition="EVOL_NOLI != None",
14792            INST_MAX        =SIMP(statut='o',typ='R'),
14793          ),
14794          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
14795          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14796
14797 )  ;
14798 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
14799 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14800 # ======================================================================
14801 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14802 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14803 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14804 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14805 # (AT YOUR OPTION) ANY LATER VERSION.
14806 #
14807 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14808 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14809 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14810 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14811 #
14812 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14813 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14814 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14815 # ======================================================================
14816 POURSUITE=MACRO(nom="POURSUITE",op=0,repetable='n',fr="Poursuite d une étude",
14817                 docu="U4.11.03-g2",sd_prod = ops.POURSUITE,
14818                 op_init = ops.POURSUITE_context,fichier_ini = 1,
14819          PAR_LOT         =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
14820                            into=("OUI","NON"),defaut="OUI"),
14821          BASE            =FACT(fr="définition des parmètres associés aux bases JEVEUX",
14822                                statut='f',min=1,max=3,
14823            FICHIER         =SIMP(fr="nom de la base",statut='o',typ='TXM'),
14824            TITRE           =SIMP(statut='f',typ='TXM'),
14825            CAS             =SIMP(statut='f',typ='TXM'),
14826            NMAX_ENRE       =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
14827            LONG_ENRE       =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
14828            LONG_REPE       =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
14829          ),
14830          IMPRESSION      =FACT(statut='f',min=1,max=3,
14831            FICHIER         =SIMP(statut='o',typ='TXM'),
14832            UNITE           =SIMP(statut='o',typ='I'),
14833          ),
14834          CATALOGUE       =FACT(statut='f',min=1,max=10,
14835            FICHIER         =SIMP(statut='o',typ='TXM'),
14836            TITRE           =SIMP(statut='f',typ='TXM'),
14837            UNITE           =SIMP(statut='f',typ='I'),
14838          ),
14839          DEBUG           =FACT(fr="option de déboggage reservée aux développeurs",
14840                                statut='f',min=1,max=1,
14841            JXVERI          =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
14842                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
14843            JEVEUX          =SIMP(fr="force les déchargement sur disque",
14844                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
14845            ENVIMA          =SIMP(fr="imprime les valeurs définies dans ENVIMA",
14846                                  statut='f',typ='TXM',into=('TES',)),
14847          ),
14848          MEMOIRE         =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=1,max=1,
14849            GESTION         =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
14850            TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
14851            TAILLE          =SIMP(statut='f',typ='I'),
14852            TAILLE_BLOC     =SIMP(statut='f',typ='R',defaut=800.),
14853            PARTITION       =SIMP(statut='f',typ='R' ),
14854          ),
14855          CODE            =FACT("définition d un nom pour l'esemble d'une étude",
14856                                statut='f',min=1,max=1,
14857            NOM             =SIMP(statut='o',typ='TXM'),
14858            UNITE           =SIMP(statut='f',typ='I',defaut=15),
14859          ),
14860 )  ;
14861 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
14862 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14863 # ======================================================================
14864 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14865 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14866 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14867 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14868 # (AT YOUR OPTION) ANY LATER VERSION.
14869 #
14870 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14871 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14872 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14873 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14874 #
14875 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14876 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14877 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14878 # ======================================================================
14879 PRE_CHAR_IDEAS=PROC(nom="PRE_CHAR_IDEAS",op=100,docu="U7.01.02-e",
14880                     fr="Conversion de conditions aux limites et chargements IDEAS en commandes Aster",
14881          UNITE_IDEAS     =SIMP(statut='f',typ='I',defaut=19),
14882          UNITE_ASTER     =SIMP(statut='f',typ='I',defaut=21),
14883          MODELE          =SIMP(statut='o',typ=modele),
14884 )  ;
14885 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
14886 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14887 # ======================================================================
14888 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14889 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14890 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14891 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14892 # (AT YOUR OPTION) ANY LATER VERSION.
14893 #
14894 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14895 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14896 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14897 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14898 #
14899 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14900 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14901 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14902 # ======================================================================
14903 PRE_GIBI=PROC(nom="PRE_GIBI",op=49,docu="U7.01.11-f",
14904               fr="Conversion d un fichier de maillage GIBI",
14905          UNITE_GIBI      =SIMP(statut='f',typ='I',defaut=19),
14906          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),
14907 )  ;
14908 #& MODIF COMMANDE  DATE 11/06/2002   AUTEUR DURAND C.DURAND
14909 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14910 # ======================================================================
14911 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14912 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14913 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14914 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14915 # (AT YOUR OPTION) ANY LATER VERSION.
14916 #
14917 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14918 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14919 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14920 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14921 #
14922 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14923 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14924 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14925 # ======================================================================
14926
14927 from Macro.pre_gmsh_ops import pre_gmsh_ops
14928
14929 PRE_GMSH=MACRO(nom="PRE_GMSH",op=pre_gmsh_ops,docu="U7.01.01-f",
14930                fr="Conversion d un fichier universel GMSH au format Aster",
14931          UNITE_GMSH      =SIMP(statut='f',typ='I',defaut=19),
14932          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),
14933          MODI_QUAD       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
14934 )  ;
14935 #& MODIF COMMANDE  DATE 11/06/2002   AUTEUR DURAND C.DURAND
14936 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14937 # ======================================================================
14938 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
14939 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14940 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14941 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14942 # (AT YOUR OPTION) ANY LATER VERSION.
14943 #
14944 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14945 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14946 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14947 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14948 #
14949 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14950 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14951 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14952 # ======================================================================
14953
14954 PRE_GMSH_LECT=PROC(nom="PRE_GMSH_LECT",op=47,docu="U7.01.01-f",
14955                fr="Conversion d un fichier universel GMSH au format Aster",
14956          UNITE_GMSH      =SIMP(statut='f',typ='I',defaut=19),
14957          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),
14958 )  ;
14959 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
14960 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14961 # ======================================================================
14962 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14963 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14964 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14965 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14966 # (AT YOUR OPTION) ANY LATER VERSION.
14967 #
14968 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14969 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14970 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14971 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14972 #
14973 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14974 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14975 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14976 # ======================================================================
14977 PRE_IDEAS=PROC(nom="PRE_IDEAS",op=47,docu="U7.01.01-f",
14978                fr="Conversion d un fichier universel IDEAS-SUPERTAB au format Aster",
14979          UNITE_IDEAS     =SIMP(statut='f',typ='I',defaut=19),
14980          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),
14981 )  ;
14982 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
14983 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14984 # ======================================================================
14985 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14986 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14987 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14988 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14989 # (AT YOUR OPTION) ANY LATER VERSION.
14990 #
14991 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14992 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14993 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14994 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14995 #
14996 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14997 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14998 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14999 # ======================================================================
15000 PROCEDURE=PROC(nom="PROCEDURE",op=-3, docu="U4.13.03-e",
15001           fr="Nommer le fichier de commandes secondaires",
15002           NOM  =SIMP(statut='f',typ='TXM',defaut=" "),
15003 ) ;
15004 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
15005 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15006 # ======================================================================
15007 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15008 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15009 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15010 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15011 # (AT YOUR OPTION) ANY LATER VERSION.
15012 #
15013 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15014 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15015 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15016 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15017 #
15018 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15019 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15020 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15021 # ======================================================================
15022 def prod_matr_cham_prod(MATR_ASSE,**args):
15023   if AsType(MATR_ASSE) == matr_asse_depl_r : return cham_no_depl_r
15024   if AsType(MATR_ASSE) == matr_asse_depl_c : return cham_no_depl_c
15025   if AsType(MATR_ASSE) == matr_asse_temp_r : return cham_no_temp_r
15026   if AsType(MATR_ASSE) == matr_asse_pres_c : return cham_no_pres_c
15027   raise AsException("type de concept resultat non prevu")
15028
15029 PROD_MATR_CHAM=OPER(nom="PROD_MATR_CHAM",op= 156,sd_prod=prod_matr_cham_prod,
15030                     fr="Effectuer le produit d une matrice par un vecteur",
15031                     docu="U4.72.06-b",reentrant='n',
15032          MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_pres_c ) ),
15033          CHAM_NO         =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_temp_r,cham_no_pres_c ) ),
15034          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
15035 )  ;
15036 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
15037 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15038 # ======================================================================
15039 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15040 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15041 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15042 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15043 # (AT YOUR OPTION) ANY LATER VERSION.
15044 #
15045 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15046 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15047 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15048 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15049 #
15050 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15051 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15052 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15053 # ======================================================================
15054 # RESPONSABLE VABHHTS J.PELLET
15055 def proj_champ_prod(RESULTAT=None,CHAM_NO_REFE=None,**args ):
15056     if AsType(RESULTAT)     == evol_ther      : return evol_ther
15057     if AsType(RESULTAT)     == evol_elas      : return evol_elas
15058     if AsType(RESULTAT)     == evol_noli      : return evol_noli
15059     if AsType(RESULTAT)     == evol_char      : return evol_char
15060     if AsType(CHAM_NO_REFE) == cham_no_depl_r : return cham_no_depl_r
15061     if AsType(CHAM_NO_REFE) == cham_no_depl_c : return cham_no_depl_c
15062     if AsType(CHAM_NO_REFE) == cham_no_pres_c : return cham_no_pres_c
15063     if AsType(CHAM_NO_REFE) == cham_no_temp_r : return cham_no_temp_r
15064     if AsType(CHAM_NO_REFE) == cham_no_epsi_r : return cham_no_epsi_r
15065     if AsType(CHAM_NO_REFE) == cham_no_sief_r : return cham_no_sief_r
15066     if AsType(CHAM_NO_REFE) == cham_no_flux_r : return cham_no_flux_r
15067     raise AsException("type de concept resultat non prevu")
15068
15069 PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,docu="U4.72.05-d2",reentrant='n',
15070                 fr="Projection d'un champ aux noeuds sur les noeuds d'un autre maillage",
15071 #
15072          METHODE         =SIMP(statut='f',typ='TXM',defaut="NUAGE_DEG_1",
15073                                into=("NUAGE_DEG_0","NUAGE_DEG_1","ELEM",) ),
15074          b_nuage         =BLOC(condition="(METHODE=='NUAGE_DEG_1') or (METHODE=='NUAGE_DEG_0')",
15075                                fr="Lissage d'un nuage de points",
15076            CHAM_NO         =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            CHAM_NO_REFE    =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_pres_c,cham_no_temp_r,
15079                                                  cham_no_epsi_r,cham_no_sief_r,cham_no_flux_r)),
15080          ),
15081          b_elem          =BLOC(condition="METHODE=='ELEM'",
15082                               fr="Utilisation des fonctions de forme du maillage initial",
15083            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','LIST_INST','LIST_FREQ','LIST_ORDRE'),
15084                    EXCLUS('TOUT_CHAM','NOM_CHAM',), ),
15085            RESULTAT        =SIMP(statut='o',typ=(evol_ther,evol_elas,evol_noli,evol_char) ),
15086            MODELE_1        =SIMP(statut='o',typ=modele),
15087            MODELE_2        =SIMP(statut='o',typ=modele),
15088
15089            TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15090            NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
15091
15092            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15093            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
15094            LIST_ORDRE      =SIMP(statut='f',typ=listis),
15095            INST            =SIMP(statut='f',typ='R',max='**' ),
15096            LIST_INST       =SIMP(statut='f',typ=listr8),
15097            FREQ            =SIMP(statut='f',typ='R',max='**' ),
15098            LIST_FREQ       =SIMP(statut='f',typ=listr8),
15099          ),
15100
15101          VIS_A_VIS       =FACT(statut='f',min=01,max='**',
15102            regles=(AU_MOINS_UN('TOUT_1','GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
15103                    AU_MOINS_UN('TOUT_2','GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),),
15104            TOUT_1          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15105            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
15106            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
15107            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
15108            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
15109            TOUT_2          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15110            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
15111            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
15112            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
15113            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
15114          ),
15115
15116          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
15117 )  ;
15118 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
15119 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15120 # ======================================================================
15121 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15122 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15123 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15124 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15125 # (AT YOUR OPTION) ANY LATER VERSION.
15126 #
15127 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15128 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15129 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15130 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15131 #
15132 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15133 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15134 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15135 # ======================================================================
15136 def matr_asse_gene_prod(MATR_ASSE,MATR_ASSE_GENE,**args):
15137   if AsType(MATR_ASSE) == matr_asse_depl_r  : return matr_asse_gene_r
15138   if AsType(MATR_ASSE_GENE) == matr_asse_gene_r  : return matr_asse_gene_r
15139   if AsType(MATR_ASSE) == matr_asse_depl_c  : return matr_asse_gene_c
15140   if AsType(MATR_ASSE_GENE) == matr_asse_gene_c  : return matr_asse_gene_c
15141   raise AsException("type de concept resultat non prevu")
15142
15143 PROJ_MATR_BASE=OPER(nom="PROJ_MATR_BASE",op=  71,sd_prod=matr_asse_gene_prod,
15144                     fr="Projection d une matrice assemblée sur une base (modale ou de RITZ)",
15145                     docu="U4.63.12-f1",reentrant='n',
15146          regles=(UN_PARMI('MATR_ASSE','MATR_ASSE_GENE'),),
15147          BASE            =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene ) ),
15148          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
15149          MATR_ASSE       =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_depl_c) ),
15150          MATR_ASSE_GENE  =SIMP(statut='f',typ=(matr_asse_gene_r,matr_asse_gene_c) ),
15151 )  ;
15152
15153 #& MODIF COMMANDE  DATE 19/12/2001   AUTEUR CIBHHAB N.RAHNI
15154 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15155 # ======================================================================
15156 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15157 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15158 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15159 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15160 # (AT YOUR OPTION) ANY LATER VERSION.
15161 #
15162 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15163 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15164 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15165 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15166 #
15167 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15168 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15169 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15170 # ======================================================================
15171 def proj_mesu_modal_prod(MESURE,**args):
15172      vale=MESURE['NOM_PARA']
15173      if  vale == 'INST'   : return tran_gene
15174      raise AsException("type de concept resultat non prevu")
15175
15176 PROJ_MESU_MODAL=OPER(nom="PROJ_MESU_MODAL",op= 193,
15177                      sd_prod=proj_mesu_modal_prod,
15178                      docu="U4.73.01-a",reentrant='n',
15179                      fr="Extrapolation de resultats experimentaux sur un modele numerique en dynamique",
15180
15181 # commentaire C. Durand-13/10/2000 :
15182 #le mot cle NOM_PARA, par construction, vaut tjs INST : donc on retourne TRAN_GENE a chaque fois
15183 #def proj_mesu_modal_prod(**args):
15184 #     vale=args['MESURE'].get_child('NOM_PARA').get_valeur()
15185 #     if  vale == 'INST'   : return tran_gene
15186 #     raise AsException("type de concept resultat non prevu")
15187 #PROJ_MESU_MODAL=OPER(nom="PROJ_MESU_MODAL",op= 193,sd_prod=proj_mesu_modal_prod,)
15188
15189          MODELE          =SIMP(statut='f',typ=(modele) ),
15190          MASS_GENE       =SIMP(statut='o',typ=(matr_asse_gene_r) ),
15191          RIGI_GENE       =SIMP(statut='o',typ=(matr_asse_gene_r) ),
15192          MESURE          =FACT(statut='o',min=01,max=01,
15193            MODELE          =SIMP(statut='o',typ=(modele) ),
15194            MAILLAGE        =SIMP(statut='o',typ=(maillage) ),
15195            CARA_ELEM       =SIMP(statut='o',typ=(cara_elem) ),
15196            UNITE           =SIMP(statut='f',typ='I',defaut= 33 ),
15197            NOM_PARA        =SIMP(statut='f',typ='TXM',defaut="INST",into=("INST",) ),
15198            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15199            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
15200            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","SIGM_NOEU_DEPL","EPSI_NOEU_DEPL",) ),
15201                          ),
15202          REGULARISATION  =FACT(statut='f',min=01,max=01,
15203       regles=(UN_PARMI('COEF_PONDER','COEF_PONDER_F', ),),
15204            METHODE         =SIMP(statut='f',typ='TXM',defaut="TIKHONOV",into=("TIKHONOV",) ),
15205            NORM_MIN        =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
15206            COEF_PONDER     =SIMP(statut='f',typ='R',max='**' ),
15207            COEF_PONDER_F   =SIMP(statut='f',typ=(fonction),max='**' ),
15208                          ),
15209                        )  ;
15210 #& MODIF COMMANDE  DATE 16/01/2002   AUTEUR DURAND C.DURAND
15211 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15212 # ======================================================================
15213 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15214 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15215 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15216 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15217 # (AT YOUR OPTION) ANY LATER VERSION.
15218 #
15219 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15220 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15221 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15222 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15223 #
15224 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15225 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15226 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15227 # ======================================================================
15228 PROJ_SPEC_BASE=OPER(nom="PROJ_SPEC_BASE",op= 146,sd_prod=tabl_intsp,docu="U4.63.14-c",reentrant='n',
15229                     fr="Projection d un ou plusieurs spectres de turbulenc sur un ensemble de bases modales ",
15230       regles=(UN_PARMI('BASE_ELAS_FLUI','MODE_MECA','CHAM_NO'),
15231               ENSEMBLE('FREQ_INIT','FREQ_FIN','NB_POIN'),),
15232          SPEC_TURB       =SIMP(statut='o',typ=spectre,max='**' ),
15233          BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu ),
15234          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
15235          CHAM_NO         =SIMP(statut='f',typ=cham_no_depl_r ),
15236          FREQ_INIT       =SIMP(statut='f',typ='R',val_min=0.E+0 ),
15237          FREQ_FIN        =SIMP(statut='f',typ='R',val_min=0.E+0 ),
15238          NB_POIN         =SIMP(statut='f',typ='I' ),
15239          OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG")),
15240          GROUP_MA        =SIMP(statut='f',typ=grma),
15241 #  Quel est le type attendu derriere  MODELE_INTERFACE
15242          MODELE_INTERFACE=SIMP(statut='f',typ=modele),
15243          VECT_X          =SIMP(statut='f',typ='R',min=3,max=3 ),
15244          VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3 ),
15245          ORIG_AXE        =SIMP(statut='f',typ='R',min=3,max=3 ),
15246          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
15247 )  ;
15248 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
15249 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15250 # ======================================================================
15251 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15252 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15253 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15254 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15255 # (AT YOUR OPTION) ANY LATER VERSION.
15256 #
15257 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15258 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15259 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15260 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15261 #
15262 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15263 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15264 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15265 # ======================================================================
15266 PROJ_VECT_BASE=OPER(nom="PROJ_VECT_BASE",op=  72,sd_prod=vect_asse_gene,
15267                     fr="Projection d un vecteur assemblé sur une base (modale ou de RITZ)",
15268                     docu="U4.63.13-f1",reentrant='n',
15269          regles=(UN_PARMI('VECT_ASSE','VECT_ASSE_GENE'),),
15270          BASE            =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene ) ),
15271          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
15272          TYPE_VECT       =SIMP(statut='f',typ='TXM',defaut="FORC"),
15273          VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
15274          VECT_ASSE_GENE  =SIMP(statut='f',typ=vect_asse_gene ),
15275 )  ;
15276 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
15277 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15278 # ======================================================================
15279 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15280 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15281 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15282 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15283 # (AT YOUR OPTION) ANY LATER VERSION.
15284 #
15285 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15286 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15287 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15288 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15289 #
15290 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15291 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15292 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15293 # ======================================================================
15294 RECA_WEIBULL=OPER(nom="RECA_WEIBULL",op= 197,sd_prod=tabl_reca_weib,
15295                      fr=" ",docu="U4.82.06-a",reentrant='n',
15296          LIST_PARA       =SIMP(statut='o',typ='TXM',max='**',into=("SIGM_REFE","M",) ),
15297          RESU            =FACT(statut='o',min=01,max='**',
15298            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST',),
15299                    AU_MOINS_UN('TOUT','GROUP_MA','MAILLE', ),),
15300            EVOL_NOLI       =SIMP(statut='o',typ=(evol_noli) ),
15301            MODELE          =SIMP(statut='o',typ=(modele) ),
15302            CHAM_MATER      =SIMP(statut='o',typ=(cham_mater) ),
15303            TEMPE           =SIMP(statut='f',typ='R' ),
15304            LIST_INST_RUPT  =SIMP(statut='o',typ='R',max='**' ),
15305            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15306            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
15307            INST            =SIMP(statut='f',typ='R',max='**' ),
15308            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
15309            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15310            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
15311            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
15312            COEF_MULT       =SIMP(statut='f',typ='R',defaut= 1.E0 ),
15313                          ),
15314          OPTION          =SIMP(statut='f',typ='TXM',defaut="SIGM_ELGA",into=("SIGM_ELGA","SIGM_ELMOY",) ),
15315          CORR_PLAST      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
15316          METHODE         =SIMP(statut='f',typ='TXM',defaut="MAXI_VRAI",into=("MAXI_VRAI","REGR_LINE",) ),
15317          INCO_GLOB_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
15318          ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
15319          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
15320                        )  ;
15321 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
15322 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15323 # ======================================================================
15324 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15325 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15326 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15327 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15328 # (AT YOUR OPTION) ANY LATER VERSION.
15329 #
15330 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15331 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15332 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15333 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15334 #
15335 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15336 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15337 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15338 # ======================================================================
15339 # RESPONSABLE MCOURTOI M.COURTOIS
15340 def recu_fonction_prod(RESULTAT=None,TABLE=None,OBSTACLE=None,
15341                        RESU_GENE=None,BASE_ELAS_FLUI=None,CHAM_GD=None,
15342                        TYPE_RESU=None,**args):
15343   if AsType(RESULTAT) == dyna_harmo : return fonction_c
15344 #  On ne sait pas interpreter les deux conditions suivantes
15345   if TABLE != None :
15346      if TYPE_RESU != None :
15347         if TYPE_RESU == "FONCTION_C" : return fonction_c
15348         if TYPE_RESU == "FONCTION"   : return fonction
15349      else:
15350         return fonction
15351   if RESU_GENE      != None         : return fonction
15352   if BASE_ELAS_FLUI != None         : return fonction
15353   if RESULTAT       != None         : return fonction
15354   if CHAM_GD        != None         : return fonction
15355   if OBSTACLE       != None         : return fonction
15356   raise AsException("type de concept resultat non prevu")
15357
15358 RECU_FONCTION=OPER(nom="RECU_FONCTION",op=  90,sd_prod=recu_fonction_prod,
15359                    fr="Extraire sous forme d une fonction, l évolution temporelle d une composante d un champ ou d une table",
15360                    docu="U4.32.03-f2",reentrant='n',
15361          regles=(UN_PARMI('CHAM_GD','RESULTAT','RESU_GENE','TABLE','BASE_ELAS_FLUI','OBSTACLE'),),
15362
15363          CHAM_GD         =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r,cham_elem_sief_r,
15364                                                cham_elem_vari_r,cham_elem_epsi_r,cham_elem_flux_r,
15365                                                cham_elem_pres_r,cham_elem_meta_r ) ),
15366          RESULTAT        =SIMP(statut='f',typ=(evol_elas,dyna_trans,evol_noli,evol_ther,dyna_harmo ) ),
15367          RESU_GENE       =SIMP(statut='f',typ=tran_gene),
15368 #  concept table à créer
15369          TABLE           =SIMP(statut='f',typ=table),
15370          BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu),
15371          REPERE          =SIMP(statut='f',typ='TXM',into=("POLAIRE","GLOBAL") ),
15372          OBSTACLE        =SIMP(statut='f',typ=obstacle),
15373
15374          b_tran_gene = BLOC ( condition = "RESU_GENE != None",
15375                               fr="Récupération de la fonction concernant les chocs à partir d un concept TRAN_GENE",
15376             regles=(PRESENT_PRESENT('SOUS_STRUC','INTITULE'),
15377                     PRESENT_ABSENT('MULT_APPUI','CORR_STAT'),),
15378              MULT_APPUI      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
15379              CORR_STAT       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
15380              ACCE_MONO_APPUI =SIMP(statut='f',typ=fonction),
15381              PARA_X          =SIMP(statut='f',typ='TXM' ),
15382              PARA_Y          =SIMP(statut='f',typ='TXM' ),
15383              SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
15384              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
15385              INTITULE        =SIMP(statut='f',typ='TXM' ),
15386          ),
15387          b_base_elas_flui = BLOC ( condition = "BASE_ELAS_FLUI != None",
15388                                    fr="Récupération de la fonction à partir d un concept melasflu",
15389            regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE'),),
15390            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15391            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
15392            NUME_MODE       =SIMP(statut='o',typ='I' ),
15393            PARA_X          =SIMP(statut='o',typ='TXM',into=("VITE_FLU",) ),
15394            PARA_Y          =SIMP(statut='o',typ='TXM',into=("FREQ","AMOR") ),
15395          ),
15396          b_table = BLOC ( condition = "TABLE != None",fr="Récupération de la fonction à partir d un concept table",
15397            regles=(UN_PARMI('PARA_X','NOM_PARA_TABL'),
15398                    PRESENT_PRESENT('PARA_X','PARA_Y'),),
15399            PARA_X          =SIMP(statut='f',typ='TXM',
15400                                  fr="1ère colonne de la table qui définit la fonction à récupérer", ),
15401            PARA_Y          =SIMP(statut='f',typ='TXM',
15402                                  fr="2ème colonne de la table qui définit la fonction à récupérer", ),
15403            NOM_PARA_TABL   =SIMP(statut='f',typ='TXM',into=("FONCTION",),
15404                                  fr="Nom du paramètre de la table à qui est associé la fonction" ),
15405            b_nom_para_tabl = BLOC (condition = "NOM_PARA_TABL != None",
15406              TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="FONCTION",into=("FONCTION","FONCTION_C") ),
15407            ),
15408
15409            FILTRE          =FACT(statut='f',min=1,max='**',
15410               NOM_PARA        =SIMP(statut='o',typ='TXM' ),
15411               CRIT_COMP       =SIMP(statut='f',typ='TXM',defaut="EQ",
15412                                     into=("EQ","LT","GT","NE","LE","GE","VIDE",
15413                                           "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
15414               b_vale          =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
15415                  regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
15416                  VALE            =SIMP(statut='f',typ='R' ),
15417                  VALE_I          =SIMP(statut='f',typ='I' ),
15418                  VALE_C          =SIMP(statut='f',typ='C' ),
15419                  VALE_K          =SIMP(statut='f',typ='TXM' ),),
15420
15421               CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
15422               PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15423            ),
15424          ),
15425 # RESULTAT
15426          b_resu = BLOC ( condition = "RESULTAT != None", fr="Opérandes en cas de RESULTAT",
15427            regles=(
15428 #    A voir par Mathieu Courtois : il existe de tests (SDNX300B) qui ne satisfont pas ce UN_PARMI
15429 #           UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','TOUT_INST','LIST_INST','FREQ','LIST_FREQ'),
15430                    AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC','NOM_PARA_RESU'),
15431                    PRESENT_PRESENT('MAILLE','NOM_CMP'),
15432                    PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
15433                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
15434                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
15435                    PRESENT_PRESENT('POINT','NOM_CMP'),
15436                    EXCLUS('POINT','NOEUD'),
15437                    EXCLUS('GROUP_MA','MAILLE'),
15438                    EXCLUS('GROUP_NO','NOEUD'),
15439                    EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),
15440                    UN_PARMI('NOM_CHAM','NOM_PARA_RESU'),),
15441            NOM_CHAM        =SIMP(statut='f',typ='TXM' ),
15442            NOM_PARA_RESU   =SIMP(statut='f',typ='TXM' ),
15443            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15444            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
15445            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
15446            TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15447            INST            =SIMP(statut='f',typ='R',max='**'),
15448            LIST_INST       =SIMP(statut='f',typ=listr8 ),
15449            FREQ            =SIMP(statut='f',typ='R',max='**'),
15450            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
15451            b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
15452              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15453              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
15454              INTERP_NUME     =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN") ),
15455            ),
15456            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
15457
15458            MAILLE          =SIMP(statut='f',typ=ma),
15459            GROUP_MA        =SIMP(statut='f',typ=grma),
15460            NOEUD           =SIMP(statut='f',typ=no),
15461            GROUP_NO        =SIMP(statut='f',typ=grno),
15462            POINT           =SIMP(statut='f',typ='I' ),
15463            SOUS_POINT      =SIMP(statut='f',typ='I' ),
15464            NOEUD_CHOC      =SIMP(statut='f',typ=no),
15465            GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
15466          ),
15467 # RESU_GENE
15468          b_resu_gene = BLOC ( condition = "RESU_GENE != None", fr="Opérandes en cas de RESU_GENE",
15469 #    A voir par Mathieu Courtois : il existe de tests (SDNX300B) qui ne satisfont pas ce UN_PARMI
15470 #           regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','TOUT_INST','LIST_INST','FREQ','LIST_FREQ'),),
15471            NOM_CHAM        =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE","PTEM") ),
15472            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15473            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
15474            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
15475            TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15476            INST            =SIMP(statut='f',typ='R',max='**'),
15477            LIST_INST       =SIMP(statut='f',typ=listr8 ),
15478            FREQ            =SIMP(statut='f',typ='R',max='**'),
15479            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
15480            b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
15481              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15482              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
15483              INTERP_NUME     =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN") ),
15484            ),
15485            b_local_cham = BLOC ( condition = "NOM_CHAM!='PTEM'", fr="Opérandes de localisation du champ",
15486              regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
15487                      PRESENT_PRESENT('MAILLE','NOM_CMP'),
15488                      PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
15489                      PRESENT_PRESENT('NOEUD','NOM_CMP'),
15490                      PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
15491                      PRESENT_PRESENT('POINT','NOM_CMP'),
15492                      EXCLUS('POINT','NOEUD'),
15493                      EXCLUS('GROUP_MA','MAILLE'),
15494                      EXCLUS('GROUP_NO','NOEUD'),
15495                      EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
15496              NOM_CMP         =SIMP(statut='f',typ='TXM' ),
15497
15498              MAILLE          =SIMP(statut='f',typ=ma),
15499              GROUP_MA        =SIMP(statut='f',typ=grma),
15500              NOEUD           =SIMP(statut='f',typ=no),
15501              GROUP_NO        =SIMP(statut='f',typ=grno),
15502              POINT           =SIMP(statut='f',typ='I' ),
15503              SOUS_POINT      =SIMP(statut='f',typ='I' ),
15504              NOEUD_CHOC      =SIMP(statut='f',typ=no),
15505              GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
15506            ),
15507          ),
15508 # CHAM_GD
15509          b_cham_gd = BLOC ( condition = "(CHAM_GD != None)", fr="Opérandes en cas de CHAM_GD",
15510
15511            regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
15512                    PRESENT_PRESENT('MAILLE','NOM_CMP'),
15513                    PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
15514                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
15515                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
15516                    PRESENT_PRESENT('POINT','NOM_CMP'),
15517                    EXCLUS('POINT','NOEUD'),
15518                    EXCLUS('GROUP_MA','MAILLE'),
15519                    EXCLUS('GROUP_NO','NOEUD'),
15520                    EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
15521            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
15522
15523            MAILLE          =SIMP(statut='f',typ=ma),
15524            GROUP_MA        =SIMP(statut='f',typ=grma),
15525            NOEUD           =SIMP(statut='f',typ=no),
15526            GROUP_NO        =SIMP(statut='f',typ=grno),
15527            POINT           =SIMP(statut='f',typ='I' ),
15528            SOUS_POINT      =SIMP(statut='f',typ='I' ),
15529            NOEUD_CHOC      =SIMP(statut='f',typ=no),
15530            GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
15531          ),
15532 ###
15533          NOM_PARA        =SIMP(statut='f',typ='TXM',
15534                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
15535                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC") ),
15536          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
15537          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
15538          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
15539          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
15540
15541          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
15542          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
15543 )  ;
15544 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
15545 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15546 # ======================================================================
15547 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15548 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15549 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15550 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15551 # (AT YOUR OPTION) ANY LATER VERSION.
15552 #
15553 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15554 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15555 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15556 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15557 #
15558 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15559 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15560 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15561 # ======================================================================
15562 RECU_GENE=OPER(nom="RECU_GENE",op=  76,sd_prod=vect_asse_gene,docu="U4.71.03-e",reentrant='n',
15563                fr="Récupération d un champ de grandeur à partir d un résultat en coordonnées généralisées",
15564          RESU_GENE       =SIMP(statut='o',typ=tran_gene ),
15565          INST            =SIMP(statut='o',typ='R' ),
15566          NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE") ),
15567          INTERPOL        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
15568          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF" ,into=("ABSOLU","RELATIF") ),
15569          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15570 )  ;
15571 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
15572 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15573 # ======================================================================
15574 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15575 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15576 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15577 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15578 # (AT YOUR OPTION) ANY LATER VERSION.
15579 #
15580 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15581 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15582 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15583 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15584 #
15585 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15586 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15587 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15588 # ======================================================================
15589 # RESPONSABLE VABHHTS J.PELLET
15590 RECU_TABLE=OPER(nom="RECU_TABLE",op= 174,sd_prod=table,
15591                 fr=" ",docu="U4.71.02-b2",reentrant='n',
15592          CO              =SIMP(statut='o',typ=assd),
15593          regles=(UN_PARMI('NOM_TABLE','NOM_PARA')),
15594          NOM_TABLE       =SIMP(statut='f',typ='TXM' ),
15595          NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
15596          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
15597 )  ;
15598 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
15599 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15600 # ======================================================================
15601 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15602 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15603 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15604 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15605 # (AT YOUR OPTION) ANY LATER VERSION.
15606 #
15607 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15608 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15609 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15610 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15611 #
15612 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15613 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15614 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15615 # ======================================================================
15616 def reso_grad_prod(MATR_ASSE,**args ):
15617   if AsType(MATR_ASSE) == matr_asse_depl_r : return cham_no_depl_r
15618   if AsType(MATR_ASSE) == matr_asse_temp_r : return cham_no_temp_r
15619   if AsType(MATR_ASSE) == matr_asse_pres_r : return cham_no_pres_r
15620   raise AsException("type de concept resultat non prevu")
15621
15622 RESO_GRAD=OPER(nom="RESO_GRAD",op=  84,sd_prod=reso_grad_prod,
15623                fr="Résolution par la méthode du gradient conjugué préconditionné",
15624                docu="U4.55.04-e",reentrant='f',
15625          MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
15626          CHAM_NO         =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r ) ),
15627          CHAM_CINE       =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r ) ),
15628          MATR_FACT       =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
15629          NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
15630          REPRISE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
15631          RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1E-6 ),
15632          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
15633 )  ;
15634 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
15635 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15636 # ======================================================================
15637 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15638 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15639 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15640 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15641 # (AT YOUR OPTION) ANY LATER VERSION.
15642 #
15643 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15644 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15645 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15646 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15647 #
15648 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15649 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15650 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15651 # ======================================================================
15652 # RESPONSABLE VABHHTS J.PELLET
15653 def reso_ldlt_prod(CHAM_NO,**args ):
15654   if AsType(CHAM_NO) == cham_no_temp_r : return cham_no_temp_r
15655   if AsType(CHAM_NO) == cham_no_depl_r : return cham_no_depl_r
15656   if AsType(CHAM_NO) == cham_no_pres_r : return cham_no_pres_r
15657   if AsType(CHAM_NO) == cham_no_temp_c : return cham_no_temp_c
15658   if AsType(CHAM_NO) == cham_no_depl_c : return cham_no_depl_c
15659   if AsType(CHAM_NO) == cham_no_pres_c : return cham_no_pres_c
15660   raise AsException("type de concept resultat non prevu")
15661
15662 RESO_LDLT=OPER(nom="RESO_LDLT",op=15,sd_prod=reso_ldlt_prod,reentrant='f',
15663                fr="Résolution en place ou hors place d un système factorisé",docu="U4.55.02-f",
15664          MATR_FACT       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
15665                                                matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
15666          CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r,
15667                                                cham_no_temp_c,cham_no_depl_c,cham_no_pres_c) ),
15668          CHAM_CINE       =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_c) ),
15669          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
15670          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
15671 )  ;
15672 #& MODIF COMMANDE  DATE 17/04/2002   AUTEUR BOYERE E.BOYERE
15673 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15674 # ======================================================================
15675 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15676 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15677 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15678 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15679 # (AT YOUR OPTION) ANY LATER VERSION.
15680 #
15681 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15682 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15683 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15684 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15685 #
15686 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15687 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15688 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15689 # ======================================================================
15690 # RESPONSABLE BOYERE E.BOYERE
15691 def rest_base_phys_prod(RESU_GENE,RESULTAT,**args ):
15692   if AsType(RESU_GENE) == tran_gene : return dyna_trans
15693   if AsType(RESU_GENE) == mode_gene : return mode_meca
15694   if AsType(RESU_GENE) == mode_cycl : return mode_meca
15695   if AsType(RESU_GENE) == harm_gene : return dyna_harmo
15696   if AsType(RESULTAT)  == mode_meca : return mode_meca
15697   raise AsException("type de concept resultat non prevu")
15698
15699 REST_BASE_PHYS=OPER(nom="REST_BASE_PHYS",op=  75,sd_prod=rest_base_phys_prod,
15700                     fr="Restituer dans la base physique des résultats en coordonnées généralisées",
15701                     docu="U4.63.21-e",reentrant='n',
15702         regles=(UN_PARMI('RESU_GENE','RESULTAT'),
15703                 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','TOUT_INST'),
15704                 EXCLUS('TOUT_INST','NUME_ORDRE','INST','LIST_INST','TOUT_ORDRE'),
15705 #  Doc U à revoir
15706                 PRESENT_ABSENT('MULT_APPUI','CORR_STAT'),
15707                 EXCLUS('MULT_APPUI','NOEUD','GROUP_NO'),
15708                 EXCLUS('CORR_STAT','NOEUD','GROUP_NO'),
15709                 EXCLUS('NOEUD','GROUP_NO'),
15710                 PRESENT_PRESENT('RESULTAT','SQUELETTE'),
15711                 PRESENT_PRESENT('ACCE_MONO_APPUI','DIRECTION'),),
15712          RESU_GENE       =SIMP(statut='f',typ=(tran_gene,mode_gene,mode_cycl,harm_gene ) ),
15713          RESULTAT        =SIMP(statut='f',typ=mode_meca ),
15714
15715          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
15716          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15717          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
15718          TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15719          INST            =SIMP(statut='f',typ='R',max='**' ),
15720          LIST_INST       =SIMP(statut='f',typ=listr8 ),
15721          FREQ            =SIMP(statut='f',typ='R',max='**' ),
15722          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
15723          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
15724          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
15725          INTERPOL        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
15726          MULT_APPUI      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
15727          CORR_STAT       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
15728          NOM_CHAM        =SIMP(statut='f',typ='TXM',max=8,defaut="ACCE",
15729                                into=("DEPL","VITE","ACCE","ACCE_ABSOLU","EFGE_ELNO_DEPL","SIPO_ELNO_DEPL",
15730                                      "SIGM_ELNO_DEPL","FORC_NODA",) ),
15731          TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15732          GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
15733          NOEUD           =SIMP(statut='f',typ=no,max='**'),
15734
15735          ACCE_MONO_APPUI =SIMP(statut='f',typ=fonction),
15736          DIRECTION       =SIMP(statut='f',typ='R',max='**' ),
15737
15738          SQUELETTE       =SIMP(statut='f',typ=squelette ),
15739          SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
15740          SECTEUR         =SIMP(statut='f',typ='I',defaut= 1 ),
15741          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
15742 )  ;
15743 #& MODIF COMMANDE  DATE 28/03/2001   AUTEUR CIBHHLV L.VIVAN
15744 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15745 # ======================================================================
15746 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15747 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15748 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15749 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15750 # (AT YOUR OPTION) ANY LATER VERSION.
15751 #
15752 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15753 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15754 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15755 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15756 #
15757 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15758 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15759 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15760 # ======================================================================
15761 REST_SPEC_PHYS=OPER(nom="REST_SPEC_PHYS",op= 148,sd_prod=tabl_intsp,
15762                     docu="U4.63.22-c",reentrant='n',
15763          regles=(AU_MOINS_UN('BASE_ELAS_FLUI','MODE_MECA'),),
15764          BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu ),
15765          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
15766          BANDE           =SIMP(statut='f',typ='R',min=02,max=02 ),
15767          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
15768          INTE_SPEC_GENE  =SIMP(statut='o',typ=tabl_intsp ),
15769          NOEUD           =SIMP(statut='o',typ=no,max='**'),
15770          NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
15771          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
15772          NOM_CHAM        =SIMP(statut='o',typ='TXM',max=07,
15773                                into=("DEPL","VITE","ACCE","EFGE_ELNO_DEPL",
15774                                      "SIPO_ELNO_DEPL","SIGM_ELNO_DEPL","FORC_NODA") ),
15775          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc), ),
15776          EXCIT           =FACT(statut='f',max=01,
15777            NOEUD           =SIMP(statut='o',typ=no,max='**'),
15778            NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
15779          ),
15780          MOUVEMENT       =SIMP(statut='f',typ='TXM',defaut="ABSOLU",into=("RELATIF","ABSOLU","DIFFERENTIEL") ),
15781          OPTION          =SIMP(statut='f',typ='TXM',defaut="DIAG_DIAG",
15782                                into=("DIAG_TOUT","DIAG_DIAG","TOUT_TOUT","TOUT_DIAG") ),
15783          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
15784 )  ;
15785 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
15786 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15787 # ======================================================================
15788 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15789 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15790 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15791 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15792 # (AT YOUR OPTION) ANY LATER VERSION.
15793 #
15794 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15795 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15796 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15797 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15798 #
15799 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15800 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15801 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15802 # ======================================================================
15803 RETOUR=PROC(nom="RETOUR",op= -2,docu="U4.13.02-e",
15804             fr="Retour au fichier de commandes appelant",
15805 ) ;
15806 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
15807 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15808 # ======================================================================
15809 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15810 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15811 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15812 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15813 # (AT YOUR OPTION) ANY LATER VERSION.
15814 #
15815 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15816 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15817 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15818 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15819 #
15820 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15821 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15822 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15823 # ======================================================================
15824 #  RESPONSABLE ADBHHVV V.CANO
15825 STAT_NON_LINE=OPER(nom="STAT_NON_LINE",op=70,sd_prod=evol_noli,
15826                    fr="Analyse mécanique statique non linéaire",
15827                    docu="U4.51.03-f4",reentrant='f',
15828          regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS'),),
15829          MODELE          =SIMP(statut='o',typ=modele),
15830          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
15831          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
15832          EXCIT           =FACT(statut='o',min=1,max='**',
15833            CHARGE          =SIMP(statut='o',typ=char_meca),
15834            FONC_MULT       =SIMP(statut='f',typ=fonction),
15835            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
15836                                  into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
15837          ),
15838          VARI_COMM           =FACT(statut='f',
15839            regles=(AU_MOINS_UN('IRRA',),),
15840            IRRA     =SIMP(statut='f',typ=evol_varc),
15841          ),
15842          COMP_INCR       =FACT(statut='f',min=1,max='**',
15843            RELATION        =SIMP(statut='o',typ='TXM',defaut="VMIS_ISOT_TRAC",
15844                                  into=( "ELAS",
15845                                         "VMIS_ISOT_TRAC",
15846                                         "VMIS_ISOT_LINE",
15847                                         "VMIS_ECMI_TRAC",
15848                                         "VMIS_ECMI_LINE",
15849                                         "LABORD_1D",
15850                                         "ENDO_FRAGILE",
15851                                         "ENDO_ISOT_BETON",
15852                                         "MAZARS",
15853                                         "RUPT_FRAG",
15854                                         "BARENBLATT",
15855                                         "META_P_IL",
15856                                         "META_P_IL_PT",
15857                                         "META_P_IL_RE",
15858                                         "META_P_IL_PT_RE",
15859                                         "META_V_IL",
15860                                         "META_V_IL_PT",
15861                                         "META_V_IL_RE",
15862                                         "META_V_IL_PT_RE",
15863                                         "META_P_INL",
15864                                         "META_P_INL_PT",
15865                                         "META_P_INL_RE",
15866                                         "META_P_INL_PT_RE",
15867                                         "META_V_INL",
15868                                         "META_V_INL_PT",
15869                                         "META_V_INL_RE",
15870                                         "META_V_INL_PT_RE",
15871                                         "META_P_CL",
15872                                         "META_P_CL_PT",
15873                                         "META_P_CL_RE",
15874                                         "META_P_CL_PT_RE",
15875                                         "META_V_CL",
15876                                         "META_V_CL_PT",
15877                                         "META_V_CL_RE",
15878                                         "META_V_CL_PT_RE",
15879                                         "VMIS_CINE_LINE",
15880                                         "VISC_TAHERI",
15881                                         "CHABOCHE",
15882                                         "VISCOCHAB",
15883                                         "VISC_CIN1_CHAB",
15884                                         "VISC_CIN2_CHAB",
15885                                         "POLY_CFC",
15886                                         "LMARC",
15887                                         "ROUSSELIER",
15888                                         "ROUSS_PR",
15889                                         "ROUSS_VISC",
15890                                         "VMIS_POU_LINE",
15891                                         "VMIS_POU_FLEJOU",
15892                                         "COULOMB",
15893                                         "ARME",
15894                                         "ASSE_CORN",
15895                                         "NORTON_HOFF",
15896                                         "LEMAITRE",
15897                                         "ZIRC_CYRA2",
15898                                         "ZIRC_EPRI",
15899                                         "ASSE_COMBU",
15900                                         "VENDOCHAB",
15901                                         "NADAI_B",
15902                                         "DIS_CONTACT",
15903                                         "DIS_CHOC",
15904                                         "DIS_GOUJ2E_PLAS",
15905                                         "DIS_GOUJ2E_ELAS",
15906                                         "GRILLE_ISOT_LINE",
15907                                         "GRILLE_CINE_LINE",
15908                                         "GRILLE_PINTO_MEN",
15909                                         "PINTO_MENEGOTTO",
15910                                         "CJS",
15911                                         "CAM_CLAY",
15912                                         "LAIGLE",
15913                                         "OHNO",
15914                                         "GRANGER_FP",
15915                                         "GRANGER_FP_V",
15916                                         "GRANGER_FD",
15917                                         "BETON_DOUBLE_DP",
15918                                         "KIT_HM",
15919                                         "KIT_HHM",
15920                                         "KIT_THH",
15921                                         "KIT_THM",
15922                                         "KIT_THHM",
15923                                         "VMIS_ASYM_LINE",
15924                                         "ELAS_THM",
15925                                         "SURF_ETAT_NSAT",
15926                                         "SURF_ETAT_SATU",
15927                                         "CAM_CLAY_THM",
15928                                         "KIT_DDI",
15929                                      ) ),
15930           ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15931           VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15932           VMIS_ISOT_LINE  =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15933           VMIS_ECMI_TRAC  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
15934           VMIS_ECMI_LINE  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
15935           LABORD_1D   =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
15936           ENDO_FRAGILE    =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15937           ENDO_ISOT_BETON =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15938           MAZARS          =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15939           RUPT_FRAG       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15940           BARENBLATT      =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15941           META_P_IL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15942           META_P_IL_PT       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15943           META_P_IL_RE       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15944           META_P_IL_PT_RE    =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15945           META_V_IL          =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15946           META_V_IL_PT       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15947           META_V_IL_RE       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15948           META_V_IL_PT_RE    =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15949           META_P_INL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15950           META_P_INL_PT      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15951           META_P_INL_RE      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15952           META_P_INL_PT_RE   =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15953           META_V_INL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15954           META_V_INL_PT      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15955           META_V_INL_RE      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15956           META_V_INL_PT_RE   =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15957           META_P_CL          =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15958           META_P_CL_PT       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15959           META_P_CL_RE       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15960           META_P_CL_PT_RE    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15961           META_V_CL          =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15962           META_V_CL_PT       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15963           META_V_CL_RE       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15964           META_V_CL_PT_RE    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15965           VMIS_CINE_LINE  =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
15966           CHABOCHE        =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
15967           VISCOCHAB       =SIMP(statut='c',typ='I',defaut=28,into=(28,)),
15968           VISC_CIN1_CHAB  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
15969           VISC_CIN2_CHAB  =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
15970           POLY_CFC        =SIMP(statut='c',typ='I',defaut=1688,into=(1688,)),
15971           LMARC           =SIMP(statut='c',typ='I',defaut=20,into=(20,)),
15972           VISC_TAHERI     =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
15973           ROUSSELIER      =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
15974           ROUSS_PR        =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
15975           ROUSS_VISC      =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
15976           VMIS_POU_LINE   =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
15977           VMIS_POU_FLEJOU =SIMP(statut='c',typ='I',defaut=9 ,into=(9,)),
15978           COULOMB         =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
15979           ASSE_CORN       =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
15980           ARME            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15981           NORTON_HOFF     =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15982           LEMAITRE        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15983           ZIRC_CYRA2      =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15984           ZIRC_EPRI       =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15985           ASSE_COMBU      =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
15986           NADAI_B         =SIMP(statut='c',typ='I',defaut=34,into=(34,)),
15987           VENDOCHAB       =SIMP(statut='c',typ='I',defaut=10,into=(10,)),
15988           GRILLE_ISOT_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
15989           GRILLE_CINE_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
15990           GRILLE_PINTO_MEN=SIMP(statut='c',typ='I',defaut=16,into=(16,)),
15991           DIS_CONTACT     =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
15992           DIS_CHOC        =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
15993           DIS_GOUJ2E_PLAS =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15994           DIS_GOUJ2E_ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
15995           PINTO_MENEGOTTO =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
15996           CJS             =SIMP(statut='c',typ='I',defaut=16,into=(16,)),
15997           CAM_CLAY        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
15998           LAIGLE          =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
15999           OHNO            =SIMP(statut='c',typ='I',defaut=32,into=(32,)),
16000           GRANGER_FP      =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
16001           GRANGER_FP_V    =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
16002           GRANGER_FD       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16003           BETON_DOUBLE_DP =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16004           KIT_HM          =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16005           KIT_HHM         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16006           KIT_THH         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16007           KIT_THM         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16008           KIT_THHM        =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16009           VMIS_ASYM_LINE  =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
16010
16011            RELATION_KIT    =SIMP(statut='f',typ='TXM',max='**',
16012                                  into=(
16013 # MECA
16014                                        "ELAS",
16015                                        "CJS",
16016                                        "CAM_CLAY",
16017                                        "LAIGLE",
16018                                        "ELAS_THM",
16019                                        "SURF_ETAT_NSAT",
16020                                        "SURF_ETAT_SATU",
16021                                        "CAM_CLAY_THM",
16022 # THMC
16023                                        "GAZ",
16024                                        "LIQU_SATU",
16025                                        "LIQU_SATU_GAT",
16026                                        "LIQU_GAZ_ATM",
16027                                        "LIQU_VAPE_GAZ",
16028                                        "LIQU_NSAT_GAT",
16029                                        "LIQU_GAZ",
16030 # THER
16031                                        "THER_HOMO",
16032                                        "THER_POLY",
16033 # HYDR
16034                                        "HYDR_UTIL",
16035                                        "HYDR",
16036 # MECA_META
16037                                        "ACIER",
16038                                        "ZIRC",
16039 # MECA KIT_DDI
16040                                        "VMIS_ISOT_TRAC",
16041                                        "VMIS_ISOT_LINE",
16042                                        "VMIS_ISOT_CINE",
16043                                        "GRANGER_FP",
16044                                        "GRANGER_FP_V",
16045                                        "ROUSSELIER",
16046                                        "CHABOCHE",
16047                                        "OHNO",
16048                                        "NADAI_B",
16049                                        "BETON_DOUBLE_DP",
16050                                        ) ),
16051            ELAS_THM        =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16052            SURF_ETAT_NSAT  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16053            SURF_ETAT_SATU  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16054            CAM_CLAY_THM    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
16055            GAZ             =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16056            LIQU_SATU       =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16057            LIQU_SATU_GAT   =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16058            LIQU_GAZ_ATM    =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16059            LIQU_VAPE_GAZ   =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16060            LIQU_NSAT_GAT   =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16061            LIQU_GAZ        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
16062            THER_HOMO       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16063            THER_POLY       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16064            HYDR_UTIL       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16065            HYDR            =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
16066            ACIER           =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
16067            ZIRC            =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16068
16069            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC","SIMO_MIEHE","GREEN_GR","GREEN",)),
16070            ALGO_C_PLAN     =SIMP(statut='f',typ='TXM',defaut="ANALYTIQUE",into=("DEBORST","ANALYTIQUE",)),
16071       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
16072            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16073            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
16074            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16075          ),
16076          COMP_ELAS       =FACT(statut='f',min=1,max='**',
16077            RELATION        =SIMP(statut='o',typ='TXM',defaut="ELAS",
16078                                  into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
16079                                        "ELAS_POUTRE_GR","CABLE")),
16080            ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16081            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16082            ELAS_VMIS_LINE  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16083            ELAS_POUTRE_GR  =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
16084            CABLE           =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
16085            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GREEN","GREEN_GR",) ),
16086       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
16087            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16088            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
16089            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16090          ),
16091          ETAT_INIT       =FACT(statut='f',min=1,max=1,
16092            regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI','VARI_NON_LOCAL',),
16093                    EXCLUS('EVOL_NOLI','DEPL',),
16094                    EXCLUS('EVOL_NOLI','SIGM',),
16095                    EXCLUS('EVOL_NOLI','VARI',),
16096                    EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
16097                    EXCLUS('NUME_ORDRE','INST'), ),
16098            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
16099            SIGM            =SIMP(statut='f',typ=(cham_elem_sief_r,carte_sief_r)),
16100            VARI            =SIMP(statut='f',typ=cham_elem_vari_r),
16101            VARI_NON_LOCAL  =SIMP(statut='f',typ=cham_no_vanl_r),
16102            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
16103            NUME_ORDRE      =SIMP(statut='f',typ='I'),
16104            INST            =SIMP(statut='f',typ='R'),
16105            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16106            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16107            NUME_DIDI       =SIMP(statut='f',typ='I'),
16108            INST_ETAT_INIT  =SIMP(statut='f',typ='R'),
16109          ),
16110          INCREMENT       =FACT(statut='o',min=1,max=1,
16111            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
16112                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
16113            LIST_INST       =SIMP(statut='o',typ=listr8),
16114            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
16115                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
16116            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
16117            INST_INIT       =SIMP(statut='f',typ='R'),
16118            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
16119            INST_FIN        =SIMP(statut='f',typ='R'),
16120            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
16121            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
16122            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
16123            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
16124            OPTI_LIST_INST  =SIMP(statut='f',typ='TXM',into=("INCR_MAXI",),),
16125            NOM_CHAM        =SIMP(statut='f',typ='TXM',),
16126            NOM_CMP         =SIMP(statut='f',typ='TXM',),
16127            VALE            =SIMP(statut='f',typ='R'),
16128          ),
16129          NEWTON          =FACT(statut='d',min=1,max=1,
16130            REAC_INCR       =SIMP(statut='f',typ='I',defaut= 1 ),
16131            PREDICTION      =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
16132            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
16133            PAS_MINI_ELAS   =SIMP(statut='f',typ='R',defaut=0.0E+0),
16134            REAC_ITER       =SIMP(statut='f',typ='I',defaut=0),
16135            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
16136          ),
16137          RECH_LINEAIRE   =FACT(statut='f',min=1,max=1,
16138            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
16139            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 3),
16140          ),
16141          PILOTAGE        =FACT(statut='f',min=1,max=1,
16142            regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
16143            TYPE    =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","PRED_ELAS_INCR","DEFORMATION","ANA_LIM") ),
16144            COEF_MULT       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
16145            ETA_PILO_MAX    =SIMP(statut='f',typ='R'),
16146            ETA_PILO_MIN    =SIMP(statut='f',typ='R'),
16147            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16148            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
16149            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16150            NOEUD           =SIMP(statut='f',typ=no,max='**'),
16151            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
16152            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**' ),
16153                          ),
16154          CONVERGENCE     =FACT(statut='d',min=1,max=1,
16155            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
16156            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
16157            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
16158            ITER_GLOB_ELAS  =SIMP(statut='f',typ='I',defaut=25),
16159            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
16160            RESI_INTE_RELA  =SIMP(statut='f',typ='R'
16161                                 ,defaut= 1.0E-6),
16162            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
16163            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut= 0 ),
16164            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
16165            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
16166                                  into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
16167          ),
16168          PARM_THETA      =SIMP(statut='f',typ='R'
16169                               ,defaut= 1. ),
16170          SOLVEUR         =FACT(statut='d',min=1,max=1,
16171            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
16172            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
16173              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
16174            ),
16175            b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
16176              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
16177            ),
16178            b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
16179                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
16180              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
16181              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","DECOUPE") ),
16182            ),
16183            b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
16184              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
16185              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
16186              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
16187              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
16188              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
16189            ),
16190 #  A quoi sert eps
16191            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
16192            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
16193          ),
16194          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
16195            regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
16196                    EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
16197            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
16198            INST            =SIMP(statut='f',typ='R',max='**' ),
16199            PAS_ARCH        =SIMP(statut='f',typ='I' ),
16200            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
16201            ARCH_ETAT_INIT  =SIMP(statut='f',typ='TXM',into=("OUI",)),
16202            NUME_INIT       =SIMP(statut='f',typ='I'),
16203            DETR_NUME_SUIV  =SIMP(statut='f',typ='TXM',into=("OUI",)),
16204            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","SIEF_ELGA","VARI_ELGA",
16205                                                                      "VARI_NON_LOCAL","LANL_ELGA")),
16206          ),
16207          OBSERVATION     =FACT(statut='f',min=1,max='**',
16208            regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
16209                    PRESENT_PRESENT('MAILLE','POINT'),),
16210            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',into=("DEPL","VITE","ACCE","SIEF_ELGA",
16211                                               "VARI_ELGA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU")),
16212            NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
16213            LIST_ARCH       =SIMP(statut='f',typ=listis),
16214            LIST_INST       =SIMP(statut='f',typ=listr8),
16215            INST            =SIMP(statut='f',typ='R',max='**' ),
16216            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16217            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16218            PAS_OBSE        =SIMP(statut='f',typ='I'),
16219            NOEUD           =SIMP(statut='f',typ=no,max='**'),
16220            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
16221            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16222            POINT           =SIMP(statut='f',typ='I',max='**'),
16223          ),
16224            SOLV_NON_LOCAL  =FACT(statut='f',min=1,max=1,
16225              METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
16226              b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
16227                RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
16228              ),
16229              b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
16230                RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
16231              ),
16232              b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
16233                                     fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
16234                NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
16235                STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
16236              ),
16237              b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
16238                PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
16239                NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
16240                RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
16241                NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
16242              ),
16243              EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
16244            ),
16245            LAGR_NON_LOCAL  =FACT(statut='f',max=1,
16246              ITER_DUAL_MAXI  =SIMP(statut='f',typ='I',defaut= 50),
16247              RESI_DUAL_ABSO  =SIMP(statut='o',typ='R'),
16248              RESI_PRIM_ABSO  =SIMP(statut='o',typ='R'),
16249              R               =SIMP(statut='f',typ='R',defaut= 1000.),
16250              ITER_PRIM_MAXI  =SIMP(statut='f',typ='I',defaut= 10),
16251            ),
16252          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
16253          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
16254  )  ;
16255 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
16256 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16257 # ======================================================================
16258 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16259 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16260 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16261 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16262 # (AT YOUR OPTION) ANY LATER VERSION.
16263 #
16264 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16265 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16266 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16267 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16268 #
16269 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16270 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16271 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16272 # ======================================================================
16273 # RESPONSABLE MCOURTOI M.COURTOIS
16274 TEST_FONCTION=PROC(nom="TEST_FONCTION",op= 135,fr="Extraction d une valeur numérique ou d un attribut de fonction",
16275                    docu="U4.92.02-f2",
16276          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
16277          TEST_NOOK       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
16278          VALEUR          =FACT(statut='f',min=01,max='**',
16279                                fr="Tester la valeur d une fonction ou d une nappe",
16280            regles=(UN_PARMI('VALE_REFE','VALE_REFE_C', ),),
16281            FONCTION        =SIMP(statut='o',typ=fonction ),
16282            NOM_PARA        =SIMP(statut='f',typ='TXM',max=2),
16283            VALE_PARA       =SIMP(statut='o',typ='R',max=2),
16284            VALE_REFE       =SIMP(statut='f',typ='R' ),
16285            VALE_REFE_C     =SIMP(statut='f',typ='C' ),
16286            CRITERE         =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
16287                                  defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16288            PRECISION       =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
16289                                  defaut= 1.E-3 ),
16290            REFERENCE       =SIMP(statut='f',typ='TXM',
16291                                  into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
16292            b_version = BLOC (condition = "REFERENCE == 'NON_REGRESSION'",
16293              VERSION         =SIMP(statut='f',typ='TXM' ),
16294            ),
16295          ),
16296          ATTRIBUT        =FACT(statut='f',min=01,max='**',
16297                                fr="Tester la valeur d un attribut d une fonction ou d''une nappe",
16298            FONCTION        =SIMP(statut='o',typ=fonction ),
16299            PARA            =SIMP(statut='f',typ='R' ),
16300            CRIT_PARA       =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16301            PREC_PARA       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16302            ATTR            =SIMP(statut='o',typ='TXM',
16303                                  into=("NOM_PARA","NOM_RESU","PROL_DROITE","PROL_GAUCHE","INTERPOL",
16304                                        "PROL_GAUCHE_FONC","PROL_DROITE_FONC","INTERPOL_FONC","NOM_PARA_FONC") ),
16305            ATTR_REFE       =SIMP(statut='o',typ='TXM' ),
16306            REFERENCE       =SIMP(statut='f',typ='TXM',
16307                                  into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
16308            b_version       =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
16309              VERSION         =SIMP(statut='f',typ='TXM' ),
16310            ),
16311          ),
16312          TABL_INTSP      =FACT(statut='f',min=01,max='**',
16313                                fr="Tester la valeur d une fonction contenue dans une table interspectrale",
16314            regles=(UN_PARMI('NUME_ORDRE_I','NOEUD_I'),),
16315            INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
16316            NOEUD_I         =SIMP(statut='f',typ=no),
16317            NUME_ORDRE_I    =SIMP(statut='f',typ='I' ),
16318            b_nume_ordre_i = BLOC (condition = "NUME_ORDRE_I != None",
16319              NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
16320            ),
16321            b_noeud_i = BLOC (condition = "NOEUD_I != None",
16322              NOEUD_J         =SIMP(statut='o',typ=no),
16323              NOM_CMP_I       =SIMP(statut='o',typ='TXM' ),
16324              NOM_CMP_J       =SIMP(statut='o',typ='TXM' ),
16325            ),
16326            NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
16327            VALE_PARA       =SIMP(statut='o',typ='R' ),
16328            VALE_REFE_C     =SIMP(statut='o',typ='C' ),
16329            CRITERE         =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
16330                                  defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16331            PRECISION       =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
16332                                  defaut= 1.E-3 ),
16333            REFERENCE       =SIMP(statut='f',typ='TXM',
16334                                  into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
16335            b_version       =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
16336              VERSION         =SIMP(statut='f',typ='TXM' ),
16337            ),
16338          ),
16339 )  ;
16340 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
16341 # RESPONSABLE VABHHTS J.PELLET
16342 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16343 # ======================================================================
16344 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16345 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16346 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16347 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16348 # (AT YOUR OPTION) ANY LATER VERSION.
16349 #
16350 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16351 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16352 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16353 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16354 #
16355 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16356 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16357 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16358 #
16359 #
16360 # ======================================================================
16361 TEST_RESU=PROC(nom="TEST_RESU",op=23,docu="U4.92.01-g3",
16362          fr="Extraction d une valeur et comparaison à une valeur de référence",
16363          regles=(AU_MOINS_UN('CHAM_NO','CHAM_ELEM','RESU','OBJET')),
16364          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
16365
16366          CHAM_NO         =FACT(statut='f',min=01,max='**',
16367            regles=(UN_PARMI('NOEUD','GROUP_NO','TYPE_TEST'),
16368                    EXCLUS('NOEUD','GROUP_NO'),
16369                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
16370                    PRESENT_PRESENT( 'GROUP_NO','NOM_CMP'),
16371                    UN_PARMI('VALE','VALE_I','VALE_C'),),
16372            CHAM_GD         =SIMP(statut='o',typ=cham_no),
16373            NOEUD           =SIMP(statut='f',typ=no,max='**'),
16374            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
16375            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
16376            TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
16377            VALE            =SIMP(statut='f',typ='R'),
16378            VALE_I          =SIMP(statut='f',typ='I'),
16379            VALE_C          =SIMP(statut='f',typ='C'),
16380            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
16381            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
16382            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
16383                                                             "NON_REGRESSION","AUTRE_ASTER")),
16384            VERSION         =SIMP(statut='f',typ='TXM'),
16385          ),
16386
16387          CHAM_ELEM       =FACT(statut='f',min=01,max='**',
16388            regles=(UN_PARMI('MAILLE','TYPE_TEST',),
16389                    EXCLUS('NOEUD','GROUP_NO','POINT'),
16390                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
16391                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16392                    PRESENT_PRESENT('POINT','NOM_CMP'),
16393                    UN_PARMI('VALE','VALE_I','VALE_C'), ),
16394            CHAM_GD         =SIMP(statut='o',typ=cham_elem),# CO()
16395            MAILLE          =SIMP(statut='f',typ=ma),# CO()
16396            POINT           =SIMP(statut='f',typ='I' ),
16397            SOUS_POINT      =SIMP(statut='f',typ='I'),
16398            NOEUD           =SIMP(statut='f',typ=no),# CO()
16399            GROUP_NO        =SIMP(statut='f',typ=grno),# CO()
16400            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
16401            TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
16402            VALE            =SIMP(statut='f',typ='R' ),
16403            VALE_I          =SIMP(statut='f',typ='I' ),
16404            VALE_C          =SIMP(statut='f',typ='C' ),
16405            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
16406            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16407            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
16408                                                             "NON_REGRESSION","AUTRE_ASTER") ),
16409            VERSION         =SIMP(statut='f',typ='TXM' ),
16410          ),
16411
16412          RESU            =FACT(statut='f',min=01,max='**',
16413            regles=(UN_PARMI('NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP','NOM_CAS','ANGL'),
16414                    UN_PARMI('NOM_CHAM','PARA'),
16415                    PRESENT_ABSENT('PARA','NOEUD','GROUP_NO','POINT','NOM_CMP','TYPE_TEST'),
16416                    PRESENT_PRESENT('NOM_CMP','NOM_CHAM'),
16417                    EXCLUS('NOEUD','GROUP_NO','POINT','TYPE_TEST'),
16418                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
16419                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16420                    PRESENT_PRESENT('POINT','NOM_CMP'),
16421                    UN_PARMI('VALE','VALE_I','VALE_C') ,),
16422            RESULTAT        =SIMP(statut='o',typ=resultat),
16423            SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
16424                                  fr="Liste des paramètres de sensibilité.",
16425                                  ang="List of sensitivity parameters"),
16426            NUME_ORDRE      =SIMP(statut='f',typ='I'),
16427            INST            =SIMP(statut='f',typ='R'),
16428            FREQ            =SIMP(statut='f',typ='R'),
16429            NUME_MODE       =SIMP(statut='f',typ='I'),
16430            NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**' ),
16431            NOM_CAS         =SIMP(statut='f',typ='TXM'),
16432            ANGL            =SIMP(statut='f',typ='R'),
16433            PARA            =SIMP(statut='f',typ='TXM'),
16434            NOM_CHAM        =SIMP(statut='f',typ='TXM'),
16435            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
16436            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16437            NOEUD           =SIMP(statut='f',typ=no,max='**'),
16438            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
16439            POINT           =SIMP(statut='f',typ='I'),
16440            SOUS_POINT      =SIMP(statut='f',typ='I'),
16441            TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
16442            VALE            =SIMP(statut='f',typ='R'),
16443            VALE_I          =SIMP(statut='f',typ='I'),
16444            VALE_C          =SIMP(statut='f',typ='C'),
16445            CRITERE         =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),max=02),
16446            PRECISION       =SIMP(statut='f',typ='R',max=02),
16447            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
16448                                                             "NON_REGRESSION","AUTRE_ASTER",) ),
16449            VERSION         =SIMP(statut='f',typ='TXM' ),
16450          ),
16451
16452          OBJET           =FACT(statut='f',max='**',
16453            regles=(UN_PARMI('INDICE','S_I','S_R','RESUME',),
16454                  UN_PARMI('VALE','VALE_I','VALE_C','RESUME','S_R','S_I'),),
16455            NOM             =SIMP(statut='o',typ='TXM'),
16456            INDICE          =SIMP(statut='f',typ='I'),
16457            NUM_OBJ         =SIMP(statut='f',typ='I'),
16458            S_R             =SIMP(statut='f',typ='R'),
16459            S_I             =SIMP(statut='f',typ='I'),
16460            RESUME          =SIMP(statut='f',typ='I'),
16461            VALE            =SIMP(statut='f',typ='R'),
16462            VALE_I          =SIMP(statut='f',typ='I'),
16463            VALE_C          =SIMP(statut='f',typ='C'),
16464            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
16465            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
16466            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
16467                                                             "NON_REGRESSION","AUTRE_ASTER",) ),
16468            VERSION         =SIMP(statut='f',typ='TXM' ),
16469          ),
16470 )  ;
16471 #& MODIF COMMANDE  DATE 06/03/2002   AUTEUR MCOURTOI M.COURTOIS
16472 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16473 # ======================================================================
16474 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16475 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16476 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16477 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16478 # (AT YOUR OPTION) ANY LATER VERSION.
16479 #
16480 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16481 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16482 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16483 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16484 #
16485 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16486 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16487 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16488 # ======================================================================
16489 # RESPONSABLE VABHHTS J.PELLET
16490 TEST_TABLE=PROC(nom="TEST_TABLE",op= 177,
16491                 docu="U4.92.03-c1",
16492          regles=(UN_PARMI('VALE','VALE_I','VALE_C', ),),
16493          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
16494 #  concept table à créer
16495          TABLE           =SIMP(statut='o',typ=table),
16496
16497          FILTRE          =FACT(statut='f',min=1,max='**',
16498            NOM_PARA        =SIMP(statut='o',typ='TXM' ),
16499            CRIT_COMP       =SIMP(statut='f',typ='TXM',defaut="EQ",
16500                                  into=("EQ","LT","GT","NE","LE","GE","VIDE",
16501                                        "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
16502            b_vale          =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
16503               regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
16504               VALE            =SIMP(statut='f',typ='R' ),
16505               VALE_I          =SIMP(statut='f',typ='I' ),
16506               VALE_C          =SIMP(statut='f',typ='C' ),
16507               VALE_K          =SIMP(statut='f',typ='TXM' ),),
16508
16509            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16510            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16511          ),
16512          TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
16513          NOM_PARA        =SIMP(statut='o',typ='TXM' ),
16514          VALE            =SIMP(statut='f',typ='R' ),
16515          VALE_I          =SIMP(statut='f',typ='I' ),
16516          VALE_C          =SIMP(statut='f',typ='C' ),
16517          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16518          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.2E-3 ),
16519          REFERENCE       =SIMP(statut='f',typ='TXM',
16520                                into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
16521          b_version       =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
16522              VERSION         =SIMP(statut='f',typ='TXM' ),
16523          ),
16524 )  ;
16525 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
16526 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16527 # ======================================================================
16528 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16529 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16530 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16531 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16532 # (AT YOUR OPTION) ANY LATER VERSION.
16533 #
16534 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16535 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16536 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16537 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16538 #
16539 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16540 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16541 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16542 # ======================================================================
16543 THER_LINEAIRE=OPER(nom="THER_LINEAIRE",op=25,sd_prod=evol_ther,docu="U4.54.01-g2",reentrant='f',
16544                    fr="Analyse thermique linéaire stationnaire ou transitoire",
16545          MODELE          =SIMP(statut='o',typ=modele),
16546          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
16547          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
16548          EXCIT           =FACT(statut='o',min=1,max='**',
16549            CHARGE          =SIMP(statut='o',typ=(char_ther,char_cine_ther)),
16550            FONC_MULT       =SIMP(statut='f',typ=fonction),
16551          ),
16552          INCREMENT       =FACT(statut='f',min=1,max=1,
16553            LIST_INST       =SIMP(statut='o',typ=listr8 ),
16554            NUME_INIT       =SIMP(statut='f',typ='I'),
16555            NUME_FIN        =SIMP(statut='f',typ='I'),
16556          ),
16557          TEMP_INIT       =FACT(statut='f',min=1,max=1,
16558            regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
16559            STATIONNAIRE    =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16560            EVOL_THER       =SIMP(statut='f',typ=evol_ther),
16561            CHAM_NO         =SIMP(statut='f',typ=cham_no_temp_r),
16562            VALE            =SIMP(statut='f',typ='R'),
16563            NUME_INIT       =SIMP(statut='f',typ='I'),
16564          ),
16565          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
16566                                fr="Liste des paramètres de sensibilité.",
16567                                ang="List of sensitivity parameters",
16568          ),
16569            SENS_INIT       =FACT(statut='f',min=1,max=1,
16570              regles=(EXCLUS('STATIONNAIRE','EVOL_THER', ),),
16571              STATIONNAIRE    =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16572              EVOL_THER       =SIMP(statut='f',typ=evol_ther),
16573              NUME_INIT       =SIMP(statut='f',typ='I'),
16574            ),
16575          SOLVEUR         =FACT(statut='d',min=1,max=1,
16576            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
16577            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
16578              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
16579            ),
16580            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
16581              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
16582            ),
16583            b_ldlt_mult      =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
16584                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
16585              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
16586              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
16587            ),
16588            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
16589              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
16590              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
16591              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
16592              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
16593              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
16594            ),
16595 #  A quoi sert eps
16596            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
16597          ),
16598          PARM_THETA      =SIMP(statut='f',typ='R',defaut= 0.57),
16599          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
16600            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST'),),
16601            LIST_ARCH       =SIMP(statut='f',typ=listis),
16602            LIST_INST       =SIMP(statut='f',typ=listr8),
16603            INST            =SIMP(statut='f',typ='R',max='**'),
16604            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16605            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
16606                                  into=("RELATIF","ABSOLU")),
16607            PAS_ARCH        =SIMP(statut='f',typ='I'),
16608            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',into=("VARI",)),
16609          ),
16610          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
16611          INFO            =SIMP(statut='f',typ='I',into=(1,2)),
16612 )  ;
16613 #& MODIF COMMANDE  DATE 28/08/2002   AUTEUR MCOURTOI M.COURTOIS
16614 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16615 # ======================================================================
16616 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16617 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16618 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16619 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16620 # (AT YOUR OPTION) ANY LATER VERSION.
16621 #
16622 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16623 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16624 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16625 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16626 #
16627 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16628 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16629 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16630 # ======================================================================
16631 THER_NON_LINE=OPER(nom="THER_NON_LINE",op= 186,sd_prod=evol_ther,docu="U4.54.02-e2",reentrant='f',
16632                    fr="Analyse thermique non linéaire stationnaire ou transitoire" ,
16633          MODELE          =SIMP(statut='o',typ=(modele) ),
16634          CHAM_MATER      =SIMP(statut='o',typ=(cham_mater) ),
16635          CARA_ELEM       =SIMP(statut='c',typ=(cara_elem) ),
16636          COMP_THER_NL    =FACT(statut='d',min=1,max='**',
16637            RELATION        =SIMP(statut='f',typ='TXM',defaut="THER_NL",
16638                                  into=("THER_NL",
16639                                        "THER_HYDR",
16640                                        "SECH_GRANGER",
16641                                        "SECH_MENSI",
16642                                        "SECH_BAZANT",
16643                                        "SECH_NAPPE"
16644                                        ) ),
16645       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
16646            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16647            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
16648            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16649          ),
16650          EVOL_THER_SECH  =SIMP(statut='f',typ=evol_ther),
16651          EXCIT           =FACT(statut='o',min=1,max='**',
16652            CHARGE          =SIMP(statut='o',typ=char_ther),
16653            FONC_MULT       =SIMP(statut='f',typ=fonction),
16654          ),
16655          INCREMENT       =FACT(statut='f',min=1,max=1,
16656            LIST_INST       =SIMP(statut='o',typ=listr8),
16657            NUME_INIT       =SIMP(statut='f',typ='I'),
16658            NUME_FIN        =SIMP(statut='f',typ='I'),
16659          ),
16660          TEMP_INIT       =FACT(statut='f',min=1,max=1,
16661            regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
16662            STATIONNAIRE    =SIMP(statut='f',typ='TXM',into=("OUI",)),
16663            EVOL_THER       =SIMP(statut='f',typ=evol_ther),
16664            CHAM_NO         =SIMP(statut='f',typ=cham_no_temp_r),
16665            VALE            =SIMP(statut='f',typ='R'),
16666            NUME_INIT       =SIMP(statut='f',typ='I'),
16667          ),
16668          NEWTON          =FACT(statut='d',min=1,max=1,
16669            REAC_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
16670            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16671            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 0 ),
16672          ),
16673          CONVERGENCE     =FACT(statut='d',min=1,max=1,
16674            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
16675            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
16676            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
16677          ),
16678          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
16679                                fr="Liste des paramètres de sensibilité.",
16680                                ang="List of sensitivity parameters",
16681          ),
16682          SOLVEUR         =FACT(statut='d',min=1,max=1,
16683            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
16684            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Parametres de la méthode multi frontale",
16685              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
16686            ),
16687            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Parametres de la méthode LDLT",
16688              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
16689            ),
16690            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
16691                                    fr="Parametres relatifs a la non inversibilité de la matrice a factorise",
16692              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
16693              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
16694            ),
16695            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Parametres de la méthode du gradient conjugué",
16696              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
16697              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
16698              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
16699              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
16700              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
16701            ),
16702 #  A quoi sert eps
16703            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
16704            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
16705          ),
16706          PARM_THETA      =SIMP(statut='f',typ='R',defaut= 0.57 ),
16707          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
16708            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST', ),),
16709            LIST_ARCH       =SIMP(statut='f',typ=(listis) ),
16710            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
16711            INST            =SIMP(statut='f',typ='R',max='**'),
16712            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16713            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
16714            PAS_ARCH        =SIMP(statut='f',typ='I'),
16715            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',into=("VARI",)),
16716          ),
16717          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
16718          OPTION          =SIMP(statut='f',typ='TXM',max='**',
16719                                into=("FLUX_ELGA_TEMP","FLUX_ELNO_TEMP") ),
16720          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
16721
16722 )  ;
16723 #& MODIF COMMANDE  DATE 05/12/2001   AUTEUR VABHHTS J.PELLET
16724 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16725 # ======================================================================
16726 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16727 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16728 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16729 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16730 # (AT YOUR OPTION) ANY LATER VERSION.
16731 #
16732 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16733 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16734 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16735 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16736 #
16737 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16738 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16739 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16740 # ======================================================================
16741 THER_NON_LINE_MO=OPER(nom="THER_NON_LINE_MO",op= 171,sd_prod=evol_ther,
16742                      fr="Thermique non lineaire en repere mobile",
16743                      docu="U4.54.03-b",reentrant='f',
16744          MODELE          =SIMP(statut='o',typ=modele ),
16745          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
16746          CARA_ELEM       =SIMP(statut='c',typ=cara_elem ),
16747          EXCIT           =FACT(statut='o',min=1,max='**',
16748            CHARGE          =SIMP(statut='o',typ=char_ther ),
16749            FONC_MULT       =SIMP(statut='c',typ=fonction ),
16750          ),
16751          TEMP_INIT       =FACT(statut='f',min=1,max=1,
16752            EVOL_THER       =SIMP(statut='f',typ=evol_ther ),
16753            NUME_INIT       =SIMP(statut='f',typ='I',defaut= 0 ),
16754          ),
16755          CONVERGENCE     =FACT(statut='d',min=1,max=1,
16756            CRIT_TEMP_RELA  =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16757            CRIT_ENTH_RELA  =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
16758            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
16759            ARRET           =SIMP(statut='c',typ='TXM',defaut="OUI",into=("OUI","NON") ),
16760          ),
16761          SOLVEUR         =FACT(statut='d',min=1,max=1,
16762            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
16763            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
16764              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
16765            ),
16766            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
16767              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
16768            ),
16769            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
16770                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
16771              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
16772              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
16773            ),
16774            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
16775              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
16776              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
16777              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
16778              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
16779              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
16780            ),
16781            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
16782            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
16783          ),
16784          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
16785          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
16786 )  ;
16787
16788
16789