Aster/Cata/cata_STA7.py

   1 #& MODIF ENTETE  DATE 11/02/2003   AUTEUR DURAND C.DURAND
   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 import string
  23
  24 import ops
  25
  26 try:
  27   import aster
  28 except:
  29   pass
  30
  31 #
  32 __version__="$Name:  $"
  33 __Id__="$Id: cata_aster_v6.py,v 1.12 2001/01/16 15:55:05 iliade Exp $"
  34 #
  35 JdC = JDC_CATA(code='ASTER',
  36                execmodul=None,
  37                regles = (AU_MOINS_UN('DEBUT','POURSUITE'),
  38                          AU_MOINS_UN('FIN'),
  39                          A_CLASSER(('DEBUT','POURSUITE'),'FIN')))
  40 # Type le plus general
  41 class entier  (ASSD):pass
  42 class reel    (ASSD):pass
  43 class complexe(ASSD):pass
  44 class chaine  (ASSD):pass
  45
  46
  47 # Type geometriques
  48 class no  (GEOM):pass
  49 class grno(GEOM):pass
  50 class ma  (GEOM):pass
  51 class grma(GEOM):pass
  52
  53
  54
  55 # Autres
  56
  57 class cabl_precont    (ASSD):pass
  58 class cara_elem       (ASSD):pass
  59 class cara_pout       (ASSD):pass
  60 class cham_mater      (ASSD):pass
  61 class char_acou       (ASSD):pass
  62 class char_cine_acou  (ASSD):pass
  63 class char_cine_meca  (ASSD):pass
  64 class char_cine_ther  (ASSD):pass
  65 class char_meca       (ASSD):pass
  66 class char_ther       (ASSD):pass
  67 class courbe          (ASSD):pass
  68 class fond_fiss       (ASSD):pass
  69 class interf_dyna_clas(ASSD):pass
  70 class interspfact     (ASSD):pass
  71 class listis          (ASSD):pass
  72 class liste           (ASSD):pass
  73 class macr_elem_dyna  (ASSD):pass
  74 class macr_elem_stat  (ASSD):pass
  75 class mater           (ASSD):pass
  76 class melasflu        (ASSD):pass
  77 class modele          (ASSD):pass
  78 class modele_gene     (ASSD):pass
  79 class nume_ddl        (ASSD):pass
  80 class nume_ddl_gene   (ASSD):pass
  81 class obstacle        (ASSD):pass
  82 class spectre         (ASSD):pass
  83 class surface         (ASSD):pass
  84 class tran_gene       (ASSD):pass
  85 class type_flui_stru  (ASSD):pass
  86 class valeur          (ASSD):pass
  87
  88
  89 # liste :
  90 #--------------------------------
  91 class listr8   (ASSD):
  92   def LIST_VALEURS(self) :
  93     """ retourne la liste des valeurs [ val1, ...] """
  94     vale=string.ljust(self.get_name(),19)+'.VALE'
  95     return list(aster.getvectjev(vale))
  96
  97
  98
  99 # maillage :
 100 #--------------------------------
 101 class maillage(ASSD):
 102   def LIST_GROUP_NO(self) :
 103     """ retourne la liste des groupes de noeuds sous la forme :
 104         [ (gno1, nb noeuds  gno1), ...] """
 105     return aster.GetMaillage(self.get_name(), "GROUP_NO")
 106   def LIST_GROUP_MA(self) :
 107     """ retourne la liste des groupes de mailles sous la forme :
 108         [ (gma1, nb mailles gma1, dime max des mailles gma1), ...] """
 109     return aster.GetMaillage(self.get_name(), "GROUP_MA")
 110
 111
 112 class squelette     (maillage):pass
 113
 114
 115 # cham_gd (carte,cham_no,cham_elem)
 116 #--------------------------------
 117
 118 class cham_gd(ASSD):pass
 119
 120 # cham_gd/carte :
 121 #--------------------------------
 122 class carte(cham_gd):pass
 123 class carte_dbel_r   (carte):pass
 124 class carte_depl_c   (carte):pass
 125 class carte_depl_f   (carte):pass
 126 class carte_depl_r   (carte):pass
 127 class carte_durt_r   (carte):pass
 128 class carte_ener_r   (carte):pass
 129 class carte_epsi_r   (carte):pass
 130 class carte_erreur   (carte):pass
 131 class carte_flux_r   (carte):pass
 132 class carte_g_depl_r (carte):pass
 133 class carte_geom_r   (carte):pass
 134 class carte_hydr_r   (carte):pass
 135 class carte_inst_r   (carte):pass
 136 class carte_inte_r   (carte):pass
 137 class carte_irra_r   (carte):pass
 138 class carte_meta_r   (carte):pass
 139 class carte_neut_f   (carte):pass
 140 class carte_neut_r   (carte):pass
 141 class carte_pres_r   (carte):pass
 142 class carte_sief_r   (carte):pass
 143 class carte_sour_r   (carte):pass
 144 class carte_temp_f   (carte):pass
 145 class carte_temp_r   (carte):pass
 146 class carte_var2_r   (carte):pass
 147 class carte_vnor_c   (carte):pass
 148
 149
 150 # cham_gd/cham_elem :
 151 #--------------------------------
 152 class cham_elem(cham_gd):pass
 153 class cham_elem_crit_r(cham_elem):pass
 154 class cham_elem_dbel_r(cham_elem):pass
 155 class cham_elem_depl_c(cham_elem):pass
 156 class cham_elem_depl_f(cham_elem):pass
 157 class cham_elem_depl_r(cham_elem):pass
 158 class cham_elem_dommag(cham_elem):pass
 159 class cham_elem_durt_r(cham_elem):pass
 160 class cham_elem_ener_r(cham_elem):pass
 161 class cham_elem_epsi_c(cham_elem):pass
 162 class cham_elem_epsi_r(cham_elem):pass
 163 class cham_elem_erreur(cham_elem):pass
 164 class cham_elem_facy_r(cham_elem):pass
 165 class cham_elem_flux_r(cham_elem):pass
 166 class cham_elem_g_depl(cham_elem):pass
 167 class cham_elem_geom_r(cham_elem):pass
 168 class cham_elem_hydr_r(cham_elem):pass
 169 class cham_elem_inst_r(cham_elem):pass
 170 class cham_elem_inte_r(cham_elem):pass
 171 class cham_elem_irra_r(cham_elem):pass
 172 class cham_elem_meta_r(cham_elem):pass
 173 class cham_elem_neut_f(cham_elem):pass
 174 class cham_elem_neut_r(cham_elem):pass
 175 class cham_elem_pres_r(cham_elem):pass
 176 class cham_elem_sief_c(cham_elem):pass
 177 class cham_elem_sief_r(cham_elem):pass
 178 class cham_elem_sour_r(cham_elem):pass
 179 class cham_elem_spma_r(cham_elem):pass
 180 class cham_elem_temp_f(cham_elem):pass
 181 class cham_elem_temp_r(cham_elem):pass
 182 class cham_elem_vari_r(cham_elem):pass
 183 class cham_elem_vnor_c(cham_elem):pass
 184
 185
 186 # cham_gd/cham_no :
 187 #--------------------------------
 188 class cham_no(cham_gd):pass
 189 class cham_no_dbel_r   (cham_no):pass
 190 class cham_no_depl_c   (cham_no):pass
 191 class cham_no_depl_f   (cham_no):pass
 192 class cham_no_depl_r   (cham_no):pass
 193 class cham_no_durt_r   (cham_no):pass
 194 class cham_no_ener_r   (cham_no):pass
 195 class cham_no_epsi_r   (cham_no):pass
 196 class cham_no_erreur   (cham_no):pass
 197 class cham_no_flux_r   (cham_no):pass
 198 class cham_no_g_depl_r (cham_no):pass
 199 class cham_no_geom_r   (cham_no):pass
 200 class cham_no_hydr_r   (cham_no):pass
 201 class cham_no_inst_r   (cham_no):pass
 202 class cham_no_inte_r   (cham_no):pass
 203 class cham_no_irra_r   (cham_no):pass
 204 class cham_no_meta_r   (cham_no):pass
 205 class cham_no_neut_f   (cham_no):pass
 206 class cham_no_neut_r   (cham_no):pass
 207 class cham_no_pres_c   (cham_no):pass
 208 class cham_no_pres_r   (cham_no):pass
 209 class cham_no_sief_r   (cham_no):pass
 210 class cham_no_sour_r   (cham_no):pass
 211 class cham_no_spma_r   (cham_no):pass
 212 class cham_no_temp_c   (cham_no):pass
 213 class cham_no_temp_f   (cham_no):pass
 214 class cham_no_temp_r   (cham_no):pass
 215 class cham_no_vanl_r   (cham_no):pass
 216 class cham_no_var2_r   (cham_no):pass
 217 class cham_no_vnor_c   (cham_no):pass
 218
 219
 220 # resultat : (evol,mode_stat,mode_meca)
 221 #--------------------------------
 222
 223 class resultat(ASSD):
 224   def LIST_CHAMPS (self) :
 225     return aster.GetResu(self.get_name(), "CHAMPS")
 226   def LIST_NOM_CMP (self) :
 227     return aster.GetResu(self.get_name(), "COMPOSANTES")
 228   def LIST_VARI_ACCES (self) :
 229     return aster.GetResu(self.get_name(), "VARI_ACCES")
 230
 231 class acou_harmo    (resultat):pass
 232 class base_modale     (resultat):pass
 233 class comb_fourier  (resultat):pass
 234 class dyna_harmo    (resultat):pass
 235 class dyna_trans    (resultat):pass
 236 class fourier_elas  (resultat):pass
 237 class harm_gene     (resultat):pass
 238 class mode_acou     (resultat):pass
 239 class mode_cycl     (resultat):pass
 240 class mode_flamb    (resultat):pass
 241 class mode_gene     (resultat):pass
 242 class mult_elas     (resultat):pass
 243 class theta_geom    (resultat):pass
 244
 245 # resultat/evol :
 246 #--------------------------------
 247 class evol(resultat):pass
 248 class evol_char(evol):pass
 249 class evol_elas(evol):pass
 250 class evol_noli(evol):pass
 251 class evol_ther(evol):pass
 252 class evol_varc(evol):pass
 253
 254 # resultat/mode_stat :
 255 #--------------------------------
 256 class mode_stat(resultat):pass
 257 class mode_stat_depl(mode_stat):pass
 258 class mode_stat_acce(mode_stat):pass
 259 class mode_stat_forc(mode_stat):pass
 260
 261
 262 # resultat/mode_meca :
 263 #--------------------------------
 264 class mode_meca(resultat):pass
 265 class mode_meca_c(mode_meca):pass
 266
 267
 268 # fonction :
 269 #--------------------------------
 270 class fonction(fonction):
 271   def LIST_VALEURS(self) :
 272     """ retourne la liste des valeurs [ val1, ...] """
 273     vale=string.ljust(self.get_name(),19)+'.VALE'
 274     lbl=list(aster.getvectjev(vale))
 275     lbr=[]
 276     for i in range(len(lbl)/2):
 277         lbr.append(lbl[i])
 278         lbr.append(lbl[len(lbl)/2+i])
 279     return lbr
 280 class para_sensi(fonction):pass
 281 class fonction_c(fonction):
 282   def LIST_VALEURS(self) :
 283     """ retourne la liste des valeurs [ val1, ...] """
 284     vale=string.ljust(self.get_name(),19)+'.VALE'
 285     lbl=list(aster.getvectjev(vale))
 286     lbr=[]
 287     for i in range(len(lbl)/3):
 288         lbr.append(lbl[i])
 289         lbr.append(lbl[len(lbl)/3+i*2])
 290         lbr.append(lbl[len(lbl)/3+i*2+1])
 291     return lbr
 292
 293
 294 # matr_asse :
 295 #--------------------------------
 296 class matr_asse(ASSD):pass
 297 class matr_asse_depl_c(matr_asse):pass
 298 class matr_asse_depl_r(matr_asse):pass
 299 class matr_asse_gene_r(matr_asse):pass
 300 class matr_asse_gene_c(matr_asse):pass
 301 class matr_asse_pres_c(matr_asse):pass
 302 class matr_asse_pres_r(matr_asse):pass
 303 class matr_asse_temp_c(matr_asse):pass
 304 class matr_asse_temp_r(matr_asse):pass
 305
 306 # matr_elem :
 307 #--------------------------------
 308 class matr_elem(ASSD):pass
 309 class matr_elem_depl_c(matr_elem):pass
 310 class matr_elem_depl_r(matr_elem):pass
 311 class matr_elem_pres_c(matr_elem):pass
 312 class matr_elem_temp_r(matr_elem):pass
 313
 314
 315
 316
 317 # table : (tabl_fonc)
 318 #--------------------------------
 319
 320 class table(ASSD):
 321   def __getitem__(self,key):
 322       requete=string.ljust(key[0],24)
 323       tblp=string.ljust(self.get_name(),19)+'.TBLP'
 324       tabnom=list(aster.getvectjev(tblp))
 325       for i in range(len(tabnom)) :
 326          if tabnom[i]==requete: break
 327       resu=aster.getvectjev(tabnom[i+2])
 328       if key[1]>len(resu) : raise KeyError
 329       else                : return resu[key[1]-1]
 330
 331 class tabl_aire_int   (table):pass
 332 class tabl_calc_g_loca(table):pass
 333 class tabl_calc_g_th  (table):pass
 334 class tabl_cara_geom  (table):pass
 335 class tabl_char_limite(table):pass
 336 class tabl_ener_elas  (table):pass
 337 class tabl_ener_pot   (table):pass
 338 class tabl_ener_cin   (table):pass
 339 class tabl_trav_ext   (table):pass
 340 class tabl_ener_totale(table):pass
 341 class tabl_indic_ener (table):pass
 342 class tabl_indic_seuil(table):pass
 343 class tabl_intsp      (table):pass
 344 class tabl_mass_iner  (table):pass
 345 class tabl_post_alea  (table):pass
 346 class tabl_post_beta  (table):pass
 347 class tabl_post_dyna  (table):pass
 348 class tabl_post_f_alea(table):pass
 349 class tabl_post_fatig (table):pass
 350 class tabl_post_gouj2e(table):pass
 351 class tabl_post_k     (table):pass
 352 class tabl_post_rccm  (table):pass
 353 class tabl_post_rele  (table):pass
 354 class tabl_post_simpli(table):pass
 355 class tabl_post_usur  (table):pass
 356 class tabl_reca_weib  (table):pass
 357 class tabl_rice_tracey(table):pass
 358 class tabl_texture    (table):pass
 359 class tabl_trc        (table):pass
 360 class tabl_weibull    (table):pass
 361
 362 # table/tabl_fonc
 363 #--------------------------------
 364 class tabl_fonc       (table):pass
 365 class tabl_fonc_max   (tabl_fonc):pass
 366 class tabl_fonc_noci  (tabl_fonc):pass
 367 class tabl_fonc_rms   (tabl_fonc):pass
 368
 369
 370 # vect_asse :
 371 #--------------------------------
 372 class vect_asse(ASSD):pass
 373 class vect_asse_gene(vect_asse):pass
 374
 375
 376 # vect_elem :
 377 #--------------------------------
 378 class vect_elem(ASSD):pass
 379 class vect_elem_depl_r(vect_elem):pass
 380 class vect_elem_pres_c(vect_elem):pass
 381 class vect_elem_pres_r(vect_elem):pass
 382 class vect_elem_temp_r(vect_elem):pass
 383
 384 #& MODIF COMMUN  DATE 04/03/2003   AUTEUR ASSIRE A.ASSIRE
 385 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 386 # ======================================================================
 387 # COPYRIGHT (C) 1991 - 2003  EDF R&D                  WWW.CODE-ASTER.ORG
 388 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
 389 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
 390 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
 391 # (AT YOUR OPTION) ANY LATER VERSION.
 392 #
 393 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
 394 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
 395 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
 396 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
 397 #
 398 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
 399 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 400 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 401 # ======================================================================
 402 def C_COMP_INCR() : return FACT(statut='f',min=1,max='**',
 403            RELATION        =SIMP(statut='o',typ='TXM',defaut="VMIS_ISOT_TRAC",
 404                                  into=( "ELAS",
 405                                         "VMIS_ISOT_TRAC",
 406                                         "VMIS_ISOT_LINE",
 407                                         "VMIS_ECMI_TRAC",
 408                                         "VMIS_ECMI_LINE",
 409                                         "LABORD_1D",
 410                                         "ENDO_FRAGILE",
 411                                         "ENDO_ISOT_BETON",
 412                                         "MAZARS",
 413                                         "RUPT_FRAG",
 414                                         "BARENBLATT",
 415                                         "META_P_IL",
 416                                         "META_P_IL_PT",
 417                                         "META_P_IL_RE",
 418                                         "META_P_IL_PT_RE",
 419                                         "META_V_IL",
 420                                         "META_V_IL_PT",
 421                                         "META_V_IL_RE",
 422                                         "META_V_IL_PT_RE",
 423                                         "META_P_INL",
 424                                         "META_P_INL_PT",
 425                                         "META_P_INL_RE",
 426                                         "META_P_INL_PT_RE",
 427                                         "META_V_INL",
 428                                         "META_V_INL_PT",
 429                                         "META_V_INL_RE",
 430                                         "META_V_INL_PT_RE",
 431                                         "META_P_CL",
 432                                         "META_P_CL_PT",
 433                                         "META_P_CL_RE",
 434                                         "META_P_CL_PT_RE",
 435                                         "META_V_CL",
 436                                         "META_V_CL_PT",
 437                                         "META_V_CL_RE",
 438                                         "META_V_CL_PT_RE",
 439                                         "VMIS_CINE_LINE",
 440                                         "VISC_TAHERI",
 441                                         "CHABOCHE",
 442                                         "VISCOCHAB",
 443                                         "VISC_CIN1_CHAB",
 444                                         "VISC_CIN2_CHAB",
 445                                         "POLY_CFC",
 446                                         "LMARC",
 447                                         "ROUSSELIER",
 448                                         "ROUSS_PR",
 449                                         "ROUSS_VISC",
 450                                         "VMIS_POU_LINE",
 451                                         "VMIS_POU_FLEJOU",
 452                                         "COULOMB",
 453                                         "ARME",
 454                                         "ASSE_CORN",
 455                                         "NORTON_HOFF",
 456                                         "LEMAITRE",
 457                                         "ZIRC_CYRA2",
 458                                         "ZIRC_EPRI",
 459                                         "ASSE_COMBU",
 460                                         "VENDOCHAB",
 461                                         "NADAI_B",
 462                                         "DIS_CONTACT",
 463                                         "DIS_CHOC",
 464                                         "DIS_GOUJ2E_PLAS",
 465                                         "DIS_GOUJ2E_ELAS",
 466                                         "GRILLE_ISOT_LINE",
 467                                         "GRILLE_CINE_LINE",
 468                                         "GRILLE_PINTO_MEN",
 469                                         "PINTO_MENEGOTTO",
 470                                         "CJS",
 471                                         "CAM_CLAY",
 472                                         "LAIGLE",
 473                                         "OHNO",
 474                                         "GRANGER_FP",
 475                                         "GRANGER_FP_V",
 476                                         "BAZANT_FD",
 477                                         "BETON_UMLV_FP",
 478                                         "BETON_DOUBLE_DP",
 479                                         "KIT_HM",
 480                                         "KIT_HHM",
 481                                         "KIT_THH",
 482                                         "KIT_THV",
 483                                         "KIT_THM",
 484                                         "KIT_THHM",
 485                                         "VMIS_ASYM_LINE",
 486                                         "ELAS_THM",
 487                                         "SURF_ETAT_NSAT",
 488                                         "SURF_ETAT_SATU",
 489                                         "CAM_CLAY_THM",
 490                                         "KIT_DDI",
 491                                         "SANS",
 492                                      ) ),
 493           ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 494           SANS            =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
 495           VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
 496           VMIS_ISOT_LINE  =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
 497           VMIS_ECMI_TRAC  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
 498           VMIS_ECMI_LINE  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
 499           LABORD_1D   =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
 500           ENDO_FRAGILE    =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
 501           ENDO_ISOT_BETON =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
 502           MAZARS          =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
 503           RUPT_FRAG       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 504           BARENBLATT      =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
 505           META_P_IL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 506           META_P_IL_PT       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 507           META_P_IL_RE       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 508           META_P_IL_PT_RE    =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 509           META_V_IL          =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 510           META_V_IL_PT       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 511           META_V_IL_RE       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 512           META_V_IL_PT_RE    =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 513           META_P_INL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 514           META_P_INL_PT      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 515           META_P_INL_RE      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 516           META_P_INL_PT_RE   =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 517           META_V_INL         =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 518           META_V_INL_PT      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 519           META_V_INL_RE      =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 520           META_V_INL_PT_RE   =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 521           META_P_CL          =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
 522           META_P_CL_PT       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
 523           META_P_CL_RE       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
 524           META_P_CL_PT_RE    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
 525           META_V_CL          =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
 526           META_V_CL_PT       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
 527           META_V_CL_RE       =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
 528           META_V_CL_PT_RE    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
 529           VMIS_CINE_LINE  =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
 530           CHABOCHE        =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
 531           VISCOCHAB       =SIMP(statut='c',typ='I',defaut=28,into=(28,)),
 532           VISC_CIN1_CHAB  =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
 533           VISC_CIN2_CHAB  =SIMP(statut='c',typ='I',defaut=14,into=(14,)),
 534           POLY_CFC        =SIMP(statut='c',typ='I',defaut=1688,into=(1688,)),
 535           LMARC           =SIMP(statut='c',typ='I',defaut=20,into=(20,)),
 536           VISC_TAHERI     =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
 537           ROUSSELIER      =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
 538           ROUSS_PR        =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
 539           ROUSS_VISC      =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
 540           VMIS_POU_LINE   =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
 541           VMIS_POU_FLEJOU =SIMP(statut='c',typ='I',defaut=9 ,into=(9,)),
 542           COULOMB         =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
 543           ASSE_CORN       =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
 544           ARME            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 545           NORTON_HOFF     =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 546           LEMAITRE        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
 547           ZIRC_CYRA2      =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
 548           ZIRC_EPRI       =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
 549           ASSE_COMBU      =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
 550           NADAI_B         =SIMP(statut='c',typ='I',defaut=34,into=(34,)),
 551           VENDOCHAB       =SIMP(statut='c',typ='I',defaut=10,into=(10,)),
 552           GRILLE_ISOT_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
 553           GRILLE_CINE_LINE=SIMP(statut='c',typ='I',defaut=4,into=(4,)),
 554           GRILLE_PINTO_MEN=SIMP(statut='c',typ='I',defaut=16,into=(16,)),
 555           DIS_CONTACT     =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
 556           DIS_CHOC        =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
 557           DIS_GOUJ2E_PLAS =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
 558           DIS_GOUJ2E_ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 559           PINTO_MENEGOTTO =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
 560           CJS             =SIMP(statut='c',typ='I',defaut=16,into=(16,)),
 561           CAM_CLAY        =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
 562           LAIGLE          =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
 563           OHNO            =SIMP(statut='c',typ='I',defaut=32,into=(32,)),
 564           GRANGER_FP      =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
 565           GRANGER_FP_V    =SIMP(statut='c',typ='I',defaut=55,into=(55,)),
 566           BAZANT_FD       =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 567           BETON_DOUBLE_DP =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
 568           KIT_HM          =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
 569           KIT_HHM         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
 570           KIT_THH         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
 571           KIT_THV         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
 572           KIT_THM         =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
 573           KIT_THHM        =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
 574           VMIS_ASYM_LINE  =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
 575           BETON_UMLV_FP   =SIMP(statut='c',typ='I',defaut=20,into=(20,)),
 576
 577            RELATION_KIT    =SIMP(statut='f',typ='TXM',max='**',
 578                                  into=(
 579 # MECA
 580                                        "ELAS",
 581                                        "CJS",
 582                                        "CAM_CLAY",
 583                                        "LAIGLE",
 584                                        "ELAS_THM",
 585                                        "SURF_ETAT_NSAT",
 586                                        "SURF_ETAT_SATU",
 587                                        "CAM_CLAY_THM",
 588 # THMC
 589                                        "GAZ",
 590                                        "LIQU_SATU",
 591                                        "LIQU_SATU_GAT",
 592                                        "LIQU_GAZ_ATM",
 593                                        "LIQU_VAPE_GAZ",
 594                                        "LIQU_VAPE",
 595                                        "LIQU_NSAT_GAT",
 596                                        "LIQU_GAZ",
 597 # THER
 598                                        "THER_HOMO",
 599                                        "THER_POLY",
 600 # HYDR
 601                                        "HYDR_UTIL",
 602                                        "HYDR",
 603 # MECA_META
 604                                        "ACIER",
 605                                        "ZIRC",
 606 # MECA KIT_DDI
 607                                        "VMIS_ISOT_TRAC",
 608                                        "VMIS_ISOT_LINE",
 609                                        "VMIS_ISOT_CINE",
 610                                        "GRANGER_FP",
 611                                        "GRANGER_FP_V",
 612                                        "BETON_UMLV_FP",
 613                                        "ROUSS_PR",
 614                                        "CHABOCHE",
 615                                        "OHNO",
 616                                        "NADAI_B",
 617                                        "BETON_DOUBLE_DP",
 618                                        ) ),
 619            ELAS_THM        =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 620            SURF_ETAT_NSAT  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 621            SURF_ETAT_SATU  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 622            CAM_CLAY_THM    =SIMP(statut='c',typ='I',defaut=6,into=(6,)),
 623            GAZ             =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
 624            LIQU_SATU       =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
 625            LIQU_SATU_GAT   =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
 626            LIQU_GAZ_ATM    =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
 627            LIQU_VAPE_GAZ   =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
 628            LIQU_VAPE       =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
 629            LIQU_NSAT_GAT   =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
 630            LIQU_GAZ        =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
 631            THER_HOMO       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
 632            THER_POLY       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
 633            HYDR_UTIL       =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
 634            HYDR            =SIMP(statut='c',typ='I',defaut=0,into=(0,)),
 635            ACIER           =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
 636            ZIRC            =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
 637
 638            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC","SIMO_MIEHE","GREEN_GR","GREEN",)),
 639            ALGO_C_PLAN     =SIMP(statut='f',typ='TXM',defaut="ANALYTIQUE",into=("DEBORST","ANALYTIQUE",)),
 640       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
 641            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 642            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 643            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 644          ) ;
 645 #& MODIF COMMANDE  DATE 07/01/2003   AUTEUR JMBHH01 J.M.PROIX
 646 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 647 # ======================================================================
 648 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 649 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
 650 #              REDISTRIBUTION OF THIS FILE.
 651 # ======================================================================
 652 # RESPONSABLE JMBHH01 J.M.PROIX
 653 AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
 654                     fr="Affectation de caractéristiques à des éléments de structure",
 655                     docu="U4.42.01-g3",reentrant='n',
 656             UIinfo={"groupes":("Modélisation",)},
 657          regles=(AU_MOINS_UN('POUTRE','BARRE','COQUE','CABLE','DISCRET','MASSIF',
 658                              'ASSE_GRIL','GRILLE','AFFE_SECT','AFFE_FIBRE'),),
 659          MODELE          =SIMP(statut='o',typ=modele ),
 660          INFO            =SIMP(statut='f',typ='I', defaut= 1 ,into=(1,2) ),
 661          VERIF           =SIMP(statut='f',typ='TXM',max='**',into=("MAILLE","NOEUD") ),
 662
 663          POUTRE          =FACT(statut='f',min=1,max='**',
 664            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 665            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 666            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 667            SECTION         =SIMP(statut='o',typ='TXM' ,into=("GENERALE","RECTANGLE","CERCLE") ),
 668            CARA_SECT       =SIMP(statut='f',typ=(cara_pout) ),
 669            TUYAU_NCOU      =SIMP(statut='f',typ='I',min=1,max=10,defaut=3),
 670            TUYAU_NSEC      =SIMP(statut='f',typ='I',min=1,max=32,defaut=16),
 671            b_generale      =BLOC( condition = "SECTION=='GENERALE'",
 672              CARA            =SIMP(statut='o',typ='TXM',max='**',
 673                                  into=("A","IY","IZ","AY","AZ","EY","EZ","JX","RY","RZ","RT",
 674                                                            "AI","JG","IYR2","IZR2","A1",
 675                                        "IY1","IZ1","AY1","AZ1","EY1","EZ1","JX1","RY1",
 676                                        "RZ1","RT1","AI1","JG1","IYR21","IZR21","A2",
 677                                        "IY2","IZ2","AY2","AZ2","EY2","EZ2","JX2","RY2",
 678                                        "RZ2","RT2","AI2","JG2","IYR22","IZR22","H",
 679                                        "HZ","HY","EP","EPY","EPZ","H1","HZ1","HY1",
 680                                        "EP1","EPY1","EPZ1","H2","HZ2","HY2","EP2",
 681                                        "EPY2","EPZ2","R","R1","R2") ),
 682              VALE            =SIMP(statut='o',typ='R',max='**'),
 683              VARI_SECT       =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE",) ),
 684            ),
 685            b_rectangle     =BLOC( condition = "SECTION=='RECTANGLE'",
 686              CARA            =SIMP(statut='o',typ='TXM',max='**',
 687                                  into=("H","EP","HY","HZ","EPY","EPZ",
 688                                                            "H1","HZ1","HY1","EP1","EPY1","EPZ1",
 689                                                            "H2","HZ2","HY2","EP2","EPY2","EPZ2") ),
 690              VALE            =SIMP(statut='o',typ='R',max='**'),
 691              VARI_SECT       =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE","AFFINE"),defaut="HOMOTHETIQUE"),
 692            ),
 693            b_cercle        =BLOC( condition = "SECTION=='CERCLE'",
 694              CARA            =SIMP(statut='o',typ='TXM',max='**',
 695                                  into=("R","EP","R1","R2","EP1","EP2") ),
 696              VALE            =SIMP(statut='o',typ='R',max='**'),
 697              VARI_SECT       =SIMP(statut='f',typ='TXM',into=("HOMOTHETIQUE",) ),
 698              MODI_METRIQUE   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
 699            ),
 700            FCX             =SIMP(statut='f',typ=(fonction) ),
 701          ),
 702
 703          BARRE           =FACT(statut='f',min=1,max='**',
 704            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 705            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 706            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 707            SECTION         =SIMP(statut='o',typ='TXM',into=("GENERALE","RECTANGLE","CERCLE") ),
 708            b_generale      =BLOC( condition = "SECTION=='GENERALE'",
 709              CARA            =SIMP(statut='o',typ='TXM',into=("A",) ),
 710              VALE            =SIMP(statut='o',typ='R' ),
 711            ),
 712            b_rectangle     =BLOC( condition = "SECTION=='RECTANGLE'",
 713              CARA            =SIMP(statut='o',typ='TXM',into=("H","HZ","HY","EPY","EPZ","EP"),max=6 ),
 714              VALE            =SIMP(statut='o',typ='R',max=6 ),
 715            ),
 716            b_cercle        =BLOC( condition = "SECTION=='CERCLE'",
 717              CARA            =SIMP(statut='o',typ='TXM',max=2,into=("R","EP") ),
 718              VALE            =SIMP(statut='o',typ='R',max=2 ),
 719            ),
 720            FCX             =SIMP(statut='f',typ=(fonction) ),
 721          ),
 722
 723          COQUE           =FACT(statut='f',min=1,max='**',
 724            regles=(UN_PARMI('MAILLE','GROUP_MA' ),
 725                    PRESENT_PRESENT( 'EXCENTREMENT','INER_ROTA' ),),
 726            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 727            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 728            EPAIS           =SIMP(statut='o',typ='R' ),
 729            ANGL_REP        =SIMP(statut='f',typ='R',min=2,max=2),
 730            A_CIS           =SIMP(statut='c',typ='R',defaut= 0.8333333E0),
 731            COEF_RIGI_DRZ   =SIMP(statut='f',typ='R',defaut= 1.0E-5 ),
 732            COQUE_NCOU      =SIMP(statut='f',typ='I',defaut= 1 ),
 733            EXCENTREMENT    =SIMP(statut='f',typ='R' ),
 734            INER_ROTA       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 735            MODI_METRIQUE   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
 736          ),
 737
 738          CABLE           =FACT(statut='f',min=1,max='**',
 739            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 740            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 741            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 742            N_INIT          =SIMP(statut='f',typ='R',defaut= 5000. ),
 743            SECTION         =SIMP(statut='f',typ='R' ),
 744            FCX             =SIMP(statut='f',typ=(fonction) ),
 745          ),
 746
 747          DISCRET         =FACT(statut='f',min=1,max='**',
 748            regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
 749            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 750            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 751            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 752            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 753            REPERE          =SIMP(statut='f',typ='TXM',into=("LOCAL","GLOBAL") ),
 754            AMOR_HYST       =SIMP(statut='f',typ='R' ),
 755            CARA            =SIMP(statut='o',typ='TXM',max='**',
 756                                  into=("K_T_D_N","K_T_D_L","K_TR_D_N","K_TR_D_L",
 757                                                            "K_T_N",  "K_T_L",  "K_TR_N",  "K_TR_L",
 758                                                                 "M_T_D_N","M_TR_D_N","M_T_N",
 759                                                            "M_T_L",  "M_TR_N",  "M_TR_L",
 760                                        "A_T_D_N","A_TR_D_N","A_T_D_L","A_TR_D_L",
 761                                                            "A_T_N",  "A_T_L",   "A_TR_N", "A_TR_L") ),
 762            VALE            =SIMP(statut='o',typ='R',max='**'),
 763          ),
 764
 765          ORIENTATION     =FACT(statut='f',min=1,max='**',
 766            regles=(UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO' ),),
 767            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 768            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 769            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 770            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 771            CARA            =SIMP(statut='o',typ='TXM',
 772                                  into=("VECT_Y","ANGL_VRIL","VECT_X_Y","ANGL_NAUT","GENE_TUYAU") ),
 773            VALE            =SIMP(statut='o',typ='R',max='**'),
 774            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-4 ),
 775            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
 776          ),
 777
 778          DEFI_ARC        =FACT(statut='f',min=1,max='**',
 779            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 780                    UN_PARMI('ORIE_ARC','CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE',
 781                             'POIN_TANG','NOEUD_POIN_TANG','GROUP_NO_POIN_TG'),
 782                    PRESENT_PRESENT('ORIE_ARC','RAYON'),
 783                    EXCLUS('COEF_FLEX','COEF_FLEX_XY'),
 784                    EXCLUS('COEF_FLEX','COEF_FLEX_XZ'),
 785                    EXCLUS('INDI_SIGM','INDI_SIGM_XY'),
 786                    EXCLUS('INDI_SIGM','INDI_SIGM_XZ'),
 787                    PRESENT_PRESENT('COEF_FLEX_XY','COEF_FLEX_XZ'),
 788                    PRESENT_PRESENT('INDI_SIGM_XY','INDI_SIGM_XZ'),),
 789            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 790            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 791            ORIE_ARC        =SIMP(statut='f',typ='R'),
 792            CENTRE          =SIMP(statut='f',typ='R',max='**'),
 793            NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=1),
 794            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno,max=1),
 795            POIN_TANG       =SIMP(statut='f',typ='R',max='**'),
 796            NOEUD_POIN_TANG =SIMP(statut='f',typ=no,max=1),
 797            GROUP_NO_POIN_TG=SIMP(statut='f',typ=grno,max=1),
 798            RAYON           =SIMP(statut='f',typ='R'),
 799            COEF_FLEX       =SIMP(statut='f',typ='R'),
 800            INDI_SIGM       =SIMP(statut='f',typ='R'),
 801            COEF_FLEX_XY    =SIMP(statut='f',typ='R'),
 802            INDI_SIGM_XY    =SIMP(statut='f',typ='R'),
 803            COEF_FLEX_XZ    =SIMP(statut='f',typ='R'),
 804            INDI_SIGM_XZ    =SIMP(statut='f',typ='R'),
 805            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
 806            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
 807          ),
 808
 809          MASSIF          =FACT(statut='f',min=1,max='**',
 810            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 811                    UN_PARMI('ANGL_REP','ANGL_AXE'),
 812                    EXCLUS('ANGL_REP','ANGL_AXE'),
 813                    EXCLUS('ANGL_REP','ORIG_AXE'),
 814                    PRESENT_PRESENT('ANGL_AXE','ORIG_AXE'), ),
 815            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 816            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 817            ANGL_REP        =SIMP(statut='f',typ='R',max=3),
 818            ANGL_AXE        =SIMP(statut='f',typ='R',max=2),
 819            ORIG_AXE        =SIMP(statut='f',typ='R',max=3),
 820          ),
 821
 822          POUTRE_FLUI     =FACT(statut='f',min=1,max='**',
 823            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 824            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 825            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 826            B_T             =SIMP(statut='o',typ='R'),
 827            B_N             =SIMP(statut='o',typ='R'),
 828            B_TN            =SIMP(statut='o',typ='R',defaut= 0.E+0 ),
 829            A_FLUI          =SIMP(statut='o',typ='R'),
 830            A_CELL          =SIMP(statut='o',typ='R'),
 831            COEF_ECHELLE    =SIMP(statut='o',typ='R'),
 832          ),
 833
 834          GRILLE          =FACT(statut='f',min=1,max='**',
 835            regles=(UN_PARMI('MAILLE','GROUP_MA'),
 836                    EXCLUS('ANGL_REP','ORIG_AXE'),
 837                    ENSEMBLE('ORIG_AXE','AXE')),
 838            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 839            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 840            SECTION_L       =SIMP(statut='o',typ='R'),
 841            ANGL_REP        =SIMP(statut='f',typ='R',max=2),
 842            ANGL_L          =SIMP(statut='f',typ='R'),
 843            POUR_CENT_L     =SIMP(statut='f',typ='R'),
 844            POUR_CENT_T     =SIMP(statut='f',typ='R'),
 845            EXCENTREMENT    =SIMP(statut='f',typ='R'),
 846            ORIG_AXE        =SIMP(statut='f',typ='R',max='**'),
 847            AXE             =SIMP(statut='f',typ='R',max='**'),
 848            COEF_RIGI_DRZ   =SIMP(statut='f',typ='R',defaut= 1.0E-10 ),
 849            GRILLE_NCOU     =SIMP(statut='f',typ='I',defaut= 1,min=1,max=1 ),
 850          ),
 851
 852          RIGI_PARASOL    =FACT(statut='f',min=1,max='**',
 853            regles=(UN_PARMI('COEF_GROUP','FONC_GROUP'),
 854                    UN_PARMI('COOR_CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),),
 855            GROUP_MA        =SIMP(statut='o',typ=ma,max='**'),
 856            FONC_GROUP      =SIMP(statut='f',typ=(fonction) ),
 857            COEF_GROUP      =SIMP(statut='f',typ='R',max='**'),
 858            REPERE          =SIMP(statut='f',typ='TXM',into=("LOCAL","GLOBAL") ),
 859            CARA            =SIMP(statut='o',typ='TXM',max='**',into=("K_TR_D_N","A_TR_D_N") ),
 860            VALE            =SIMP(statut='o',typ='R',max='**'),
 861            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno),
 862            NOEUD_CENTRE    =SIMP(statut='f',typ=no),
 863            COOR_CENTRE     =SIMP(statut='f',typ='R',max='**'),
 864          ),
 865
 866          ASSE_GRIL       =FACT(statut='f',min=1,max='**',
 867            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
 868            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 869            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 870            CARA            =SIMP(statut='o',typ='TXM',max='**',
 871                                  into=("K_TR_D_N","K_TR_D_L_T","K_TR_D_L_N",) ),
 872            VALE            =SIMP(statut='o',typ='R',max='**'),
 873            PAS_T           =SIMP(statut='o',typ='R'),
 874            PAS_N           =SIMP(statut='o',typ='R'),
 875            ANGL_REP        =SIMP(statut='o',typ='R',max='**'),
 876            COEF_ECHELLE    =SIMP(statut='o',typ='R'),
 877          ),
 878
 879
 880          AFFE_SECT     =FACT(statut='f',min=1,max='**',
 881               regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
 882                       AU_MOINS_UN('TOUT_SECT','GROUP_MA_SECT','MAILLE_SECT'),
 883                       PRESENT_ABSENT('TOUT_SECT','GROUP_MA_SECT','MAILLE_SECT'),),
 884
 885               NOM             =SIMP(statut='f',typ='TXM'),
 886
 887               GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 888               MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 889
 890               TOUT_SECT         =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 891               GROUP_MA_SECT     =SIMP(statut='f',typ=grma,max='**'),
 892               MAILLE_SECT       =SIMP(statut='f',typ=ma,max='**'),
 893
 894               MAILLAGE_SECT     =SIMP(statut='o',typ=maillage),
 895               COOR_AXE_POUTRE    =SIMP(statut='o',typ='R',min=2,max=2),
 896          ),
 897
 898
 899          AFFE_FIBRE     =FACT(statut='f',min=1,max='**',
 900               regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
 901
 902               NOM             =SIMP(statut='f',typ='TXM'),
 903
 904               GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 905               MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 906
 907               CARA              =SIMP(statut='f',typ='TXM',defaut='SURFACE',into=('SURFACE','DIAMETRE',)),
 908               VALE              =SIMP(statut='o',typ='R',max='**'),
 909               COOR_AXE_POUTRE    =SIMP(statut='o',typ='R',min=2,max=2),
 910          ),
 911
 912
 913 ) ;
 914 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
 915 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 916 # ======================================================================
 917 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 918 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
 919 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
 920 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
 921 # (AT YOUR OPTION) ANY LATER VERSION.
 922 #
 923 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
 924 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
 925 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
 926 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
 927 #
 928 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
 929 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 930 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 931 # ======================================================================
 932 AFFE_CHAR_ACOU=OPER(nom="AFFE_CHAR_ACOU",op=  68,sd_prod=char_acou,
 933                     fr="Affectation de charges et conditions aux limites acoustiques constantes",
 934                     docu="U4.44.04-e",reentrant='n',
 935             UIinfo={"groupes":("Modélisation",)},
 936          regles=(AU_MOINS_UN('PRES_IMPO','VITE_FACE','IMPE_FACE','LIAISON_UNIF' ),),
 937          MODELE          =SIMP(statut='o',typ=modele ),
 938          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
 939          PRES_IMPO       =FACT(statut='f',min=1,max='**',
 940            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
 941            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 942            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 943            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 944            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 945            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 946            PRES            =SIMP(statut='o',typ='C' ),
 947          ),
 948          VITE_FACE       =FACT(statut='f',min=1,max='**',
 949              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
 950                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
 951            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 952            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 953            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 954            VNOR            =SIMP(statut='o',typ='C' ),
 955          ),
 956          IMPE_FACE       =FACT(statut='f',min=1,max='**',
 957              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
 958                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
 959            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 960            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 961            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 962            IMPE            =SIMP(statut='o',typ='C' ),
 963          ),
 964          LIAISON_UNIF    =FACT(statut='f',min=1,max='**',
 965            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE' ),),
 966            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
 967            NOEUD           =SIMP(statut='f',typ=no,max='**'),
 968            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
 969            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
 970            DDL             =SIMP(statut='o',typ='TXM',max='**'),
 971          ),
 972 )  ;
 973 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
 974 #            CONFIGURATION MANAGEMENT OF EDF VERSION
 975 # ======================================================================
 976 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 977 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
 978 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
 979 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
 980 # (AT YOUR OPTION) ANY LATER VERSION.
 981 #
 982 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
 983 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
 984 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
 985 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
 986 #
 987 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
 988 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 989 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 990 # ======================================================================
 991 # RESPONSABLE VABHHTS J.PELLET
 992 def affe_char_cine_prod(MECA_IMPO,THER_IMPO,ACOU_IMPO,**args):
 993   if MECA_IMPO != None  : return char_cine_meca
 994   if THER_IMPO != None  : return char_cine_ther
 995   if ACOU_IMPO != None  : return char_cine_acou
 996   raise AsException("type de concept resultat non prevu")
 997
 998 AFFE_CHAR_CINE=OPER(nom="AFFE_CHAR_CINE",op= 101,sd_prod=affe_char_cine_prod
 999                     ,fr="Affectation de conditions aux limites cinématiques pour traitement sans dualisation",
1000                      docu="U4.44.03-e",reentrant='n',
1001             UIinfo={"groupes":("Modélisation",)},
1002          regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO','ACOU_IMPO'),
1003                  EXCLUS('MECA_IMPO','THER_IMPO'),
1004                  EXCLUS('MECA_IMPO','ACOU_IMPO'),
1005                  EXCLUS('THER_IMPO','ACOU_IMPO'),),
1006          MODELE          =SIMP(statut='o',typ=modele ),
1007          MECA_IMPO       =FACT(statut='f',min=1,max='**',
1008            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
1009                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','TEMP','PHI'),),
1010            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1011            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1012            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1013            DX              =SIMP(statut='f',typ='R' ),
1014            DY              =SIMP(statut='f',typ='R' ),
1015            DZ              =SIMP(statut='f',typ='R' ),
1016            DRX             =SIMP(statut='f',typ='R' ),
1017            DRY             =SIMP(statut='f',typ='R' ),
1018            DRZ             =SIMP(statut='f',typ='R' ),
1019            GRX             =SIMP(statut='f',typ='R' ),
1020            PRES            =SIMP(statut='f',typ='R' ),
1021            TEMP            =SIMP(statut='f',typ='R' ),
1022            PHI             =SIMP(statut='f',typ='R' ),
1023          ),
1024          THER_IMPO       =FACT(statut='f',min=1,max='**',
1025            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
1026                    AU_MOINS_UN('TEMP','TEMP_INF','TEMP_SUP'),),
1027            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1028            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1029            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1030            TEMP_SUP        =SIMP(statut='f',typ='R' ),
1031            TEMP            =SIMP(statut='f',typ='R' ),
1032            TEMP_INF        =SIMP(statut='f',typ='R' ),
1033          ),
1034          ACOU_IMPO       =FACT(statut='f',min=1,max='**',
1035            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD' ),),
1036            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1037            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1038            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1039            PRES            =SIMP(statut='o',typ='C' ),
1040          ),
1041          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1042 )  ;
1043 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
1044 #            CONFIGURATION MANAGEMENT OF EDF VERSION
1045 # ======================================================================
1046 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
1047 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1048 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1049 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1050 # (AT YOUR OPTION) ANY LATER VERSION.
1051 #
1052 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1053 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1054 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1055 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1056 #
1057 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1058 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1059 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1060 # ======================================================================
1061 def affe_char_cine_f_prod(MECA_IMPO,THER_IMPO,**args):
1062   if MECA_IMPO != None  : return char_cine_meca
1063   if THER_IMPO != None  : return char_cine_ther
1064   raise AsException("type de concept resultat non prevu")
1065
1066 AFFE_CHAR_CINE_F=OPER(nom="AFFE_CHAR_CINE_F",op= 108,sd_prod=affe_char_cine_f_prod
1067                     ,fr="Affectation de conditions aux limites cinématiques pour traitement sans dualisation",
1068                      docu="U4.44.03-e",reentrant='n',
1069             UIinfo={"groupes":("Modélisation",)},
1070          regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO'),
1071                  EXCLUS('MECA_IMPO','THER_IMPO'),),
1072          MODELE          =SIMP(statut='o',typ=modele ),
1073          MECA_IMPO       =FACT(statut='f',min=1,max='**',
1074            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
1075                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','TEMP','PHI'),),
1076            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1077            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1078            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1079            DX              =SIMP(statut='f',typ=fonction ),
1080            DY              =SIMP(statut='f',typ=fonction ),
1081            DZ              =SIMP(statut='f',typ=fonction ),
1082            DRX             =SIMP(statut='f',typ=fonction ),
1083            DRY             =SIMP(statut='f',typ=fonction ),
1084            DRZ             =SIMP(statut='f',typ=fonction ),
1085            GRX             =SIMP(statut='f',typ=fonction ),
1086            PRES            =SIMP(statut='f',typ=fonction ),
1087            TEMP            =SIMP(statut='f',typ=fonction ),
1088            PHI             =SIMP(statut='f',typ=fonction ),
1089          ),
1090          THER_IMPO       =FACT(statut='f',min=1,max='**',
1091            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
1092                    AU_MOINS_UN('TEMP','TEMP_INF','TEMP_SUP' ),),
1093            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1094            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1095            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1096            TEMP_SUP        =SIMP(statut='f',typ=fonction ),
1097            TEMP            =SIMP(statut='f',typ=fonction ),
1098            TEMP_INF        =SIMP(statut='f',typ=fonction ),
1099          ),
1100          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1101 )  ;
1102 #& MODIF COMMANDE  DATE 04/03/2003   AUTEUR ASSIRE A.ASSIRE
1103 #            CONFIGURATION MANAGEMENT OF EDF VERSION
1104 # ======================================================================
1105 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
1106 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1107 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1108 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1109 # (AT YOUR OPTION) ANY LATER VERSION.
1110 #
1111 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1112 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1113 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1114 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1115 #
1116 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1117 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1118 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1119 # ======================================================================
1120 # RESPONSABLE G8BHHXD X.DESROCHES
1121 AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca
1122                     ,fr="Affectation de charges et conditions aux limites mécaniques constantes",
1123                      docu="U4.44.01-g3",reentrant='n',
1124             UIinfo={"groupes":("Modélisation",)},
1125          regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
1126                              'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
1127                              'PRES_REP','FORCE_POUTRE','FORCE_COQUE','LIAISON_OBLIQUE',
1128                              'FORCE_ELEC','INTE_ELEC','PESANTEUR','ROTATION','IMPE_FACE',
1129                              'VITE_FACE','TEMP_CALCULEE','RELA_CINE_BP','EPSI_INIT','CONTACT',
1130                              'LIAISON_GROUP','LIAISON_UNIF','FLUX_THM_REP',
1131                              'LIAISON_SOLIDE','LIAISON_ELEM','ONDE_FLUI','PRES_CALCULEE',
1132                              'EPSA_CALCULEE','LIAISON_CHAMNO','VECT_ASSE','LIAISON_COQUE',
1133                              'LIAISON_MAIL','FORCE_TUYAU','SECH_CALCULEE','HYDR_CALCULEE',
1134                              'EFFE_FOND','EVOL_CHAR','ARLEQUIN','DDL_POUTRE'),
1135                  EXCLUS('PRES_CALCULEE','EVOL_CHAR'),),
1136          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1137          VERI_NORM       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1138          MODELE          =SIMP(statut='o',typ=(modele) ),
1139          TEMP_CALCULEE   =SIMP(statut='f',fr="Champ de température issu d'un autre calcul",
1140                                typ=(evol_ther,cham_no_temp_r,carte_temp_r,carte_temp_f ) ),
1141          HYDR_CALCULEE   =SIMP(statut='f',fr="Champ d hydratation issu d'un autre calcul",
1142                                typ=evol_ther ),
1143          SECH_CALCULEE   =SIMP(statut='f',fr="Champ de séchage issu d'un autre calcul",
1144                                typ=(evol_ther,cham_no_temp_r,carte_temp_r,carte_temp_f ) ),
1145          EPSA_CALCULEE   =SIMP(statut='f',fr="Champ de déformation anélastique issu d'un autre calcul",
1146                                typ=evol_noli ),
1147 #    A TERME PRES_CALCULEE N'EXISTERA PLUS
1148          EVOL_CHAR       =SIMP(statut='f',fr="Champ de pression issu d'un autre calcul",
1149                                typ=evol_char ),
1150          PRES_CALCULEE   =SIMP(statut='f',fr="Champ de pression issu d'un autre calcul",
1151                                typ=evol_char ),
1152
1153          PESANTEUR       =SIMP(statut='f',typ='R',fr="Champ de pesanteur",min=4,max=4),
1154          ROTATION        =SIMP(statut='f',typ='R',fr="Champ de rotation",min=4,max=4),
1155          b_rotation      =BLOC ( condition = "ROTATION != None",
1156            CENTRE          =SIMP(statut='f',typ='R',defaut=(0.,0.,0.),max=3),),
1157
1158          DDL_IMPO        =FACT(statut='f',min=1,max='**',
1159              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
1160                      AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
1161                                  'TEMP','PRE1','PRE2','UI2','UI3','VI2','VI3','WI2','WI3','UO2',
1162                                  'UO3','VO2','VO3','WO2','WO3','UI4','UI5','VI4','VI5','WI4',
1163                                  'WI5','UO4','UO5','VO4','VO5','WO4','WO5','UI6','UO6','VI6',
1164                                  'VO6','WI6','WO6','WO','WI1','WO1','GONF'),),
1165              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1166              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1167              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1168              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1169              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1170              DX              =SIMP(statut='f',typ='R' ),
1171              DY              =SIMP(statut='f',typ='R' ),
1172              DZ              =SIMP(statut='f',typ='R' ),
1173              DRX             =SIMP(statut='f',typ='R' ),
1174              DRY             =SIMP(statut='f',typ='R' ),
1175              DRZ             =SIMP(statut='f',typ='R' ),
1176              GRX             =SIMP(statut='f',typ='R' ),
1177              PRES            =SIMP(statut='f',typ='R' ),
1178              PHI             =SIMP(statut='f',typ='R' ),
1179              TEMP            =SIMP(statut='f',typ='R' ),
1180              PRE1            =SIMP(statut='f',typ='R' ),
1181              PRE2            =SIMP(statut='f',typ='R' ),
1182              UI2             =SIMP(statut='f',typ='R' ),
1183              UI3             =SIMP(statut='f',typ='R' ),
1184              UI4             =SIMP(statut='f',typ='R' ),
1185              UI5             =SIMP(statut='f',typ='R' ),
1186              UI6             =SIMP(statut='f',typ='R' ),
1187              UO2             =SIMP(statut='f',typ='R' ),
1188              UO3             =SIMP(statut='f',typ='R' ),
1189              UO4             =SIMP(statut='f',typ='R' ),
1190              UO5             =SIMP(statut='f',typ='R' ),
1191              UO6             =SIMP(statut='f',typ='R' ),
1192              VI2             =SIMP(statut='f',typ='R' ),
1193              VI3             =SIMP(statut='f',typ='R' ),
1194              VI4             =SIMP(statut='f',typ='R' ),
1195              VI5             =SIMP(statut='f',typ='R' ),
1196              VI6             =SIMP(statut='f',typ='R' ),
1197              VO2             =SIMP(statut='f',typ='R' ),
1198              VO3             =SIMP(statut='f',typ='R' ),
1199              VO4             =SIMP(statut='f',typ='R' ),
1200              VO5             =SIMP(statut='f',typ='R' ),
1201              VO6             =SIMP(statut='f',typ='R' ),
1202              WI2             =SIMP(statut='f',typ='R' ),
1203              WI3             =SIMP(statut='f',typ='R' ),
1204              WI4             =SIMP(statut='f',typ='R' ),
1205              WI5             =SIMP(statut='f',typ='R' ),
1206              WI6             =SIMP(statut='f',typ='R' ),
1207              WO2             =SIMP(statut='f',typ='R' ),
1208              WO3             =SIMP(statut='f',typ='R' ),
1209              WO4             =SIMP(statut='f',typ='R' ),
1210              WO5             =SIMP(statut='f',typ='R' ),
1211              WO6             =SIMP(statut='f',typ='R' ),
1212              WO              =SIMP(statut='f',typ='R' ),
1213              WI1             =SIMP(statut='f',typ='R' ),
1214              WO1             =SIMP(statut='f',typ='R' ),
1215              GONF            =SIMP(statut='f',typ='R' ),
1216            ),
1217
1218
1219
1220          DDL_POUTRE    =FACT(statut='f',min=1,max='**',
1221              regles=(AU_MOINS_UN('GROUP_NO','NOEUD'),
1222                      AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ'),
1223                      UN_PARMI('VECT_Y','ANGL_VRIL'),),
1224              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1225              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1226              DX              =SIMP(statut='f',typ='R' ),
1227              DY              =SIMP(statut='f',typ='R' ),
1228              DZ              =SIMP(statut='f',typ='R' ),
1229              DRX             =SIMP(statut='f',typ='R' ),
1230              DRY             =SIMP(statut='f',typ='R' ),
1231              DRZ             =SIMP(statut='f',typ='R' ),
1232 #  définition du repère local
1233              VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
1234              ANGL_VRIL       =SIMP(statut='f',typ='R',max=1),
1235 #  restriction sur les mailles servant à définir le repère local
1236              GROUP_MA        =SIMP(statut='f',typ=grma,max=1),
1237              MAILLE          =SIMP(statut='f',typ=ma,max=1),
1238                             ),
1239
1240
1241
1242            FACE_IMPO       =FACT(statut='f',min=1,max='**',
1243              regles=(UN_PARMI('GROUP_MA','MAILLE',),
1244                      AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
1245                                  'TEMP','PRE1','PRE2','DNOR','DTAN'),
1246                      EXCLUS('DNOR','DX'),
1247                      EXCLUS('DNOR','DY'),
1248                      EXCLUS('DNOR','DZ'),
1249                      EXCLUS('DNOR','DRX'),
1250                      EXCLUS('DNOR','DRY'),
1251                      EXCLUS('DNOR','DRZ'),
1252                      EXCLUS('DTAN','DX'),
1253                      EXCLUS('DTAN','DY'),
1254                      EXCLUS('DTAN','DZ'),
1255                      EXCLUS('DTAN','DRX'),
1256                      EXCLUS('DTAN','DRY'),
1257                      EXCLUS('DTAN','DRZ'),),
1258 #  rajout d'un mot clé REPERE :/ LOCAL /GLOBAL
1259              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1260              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1261              DX              =SIMP(statut='f',typ='R' ),
1262              DY              =SIMP(statut='f',typ='R' ),
1263              DZ              =SIMP(statut='f',typ='R' ),
1264              DRX             =SIMP(statut='f',typ='R' ),
1265              DRY             =SIMP(statut='f',typ='R' ),
1266              DRZ             =SIMP(statut='f',typ='R' ),
1267              DNOR            =SIMP(statut='f',typ='R' ),
1268              DTAN            =SIMP(statut='f',typ='R' ),
1269              GRX             =SIMP(statut='f',typ='R' ),
1270              PRES            =SIMP(statut='f',typ='R' ),
1271              PHI             =SIMP(statut='f',typ='R' ),
1272              TEMP            =SIMP(statut='f',typ='R' ),
1273              PRE1            =SIMP(statut='f',typ='R' ),
1274              PRE2            =SIMP(statut='f',typ='R' ),
1275            ),
1276
1277            LIAISON_DDL     =FACT(statut='f',fr="Définir une relation linéaire entre des ddls de deux ou plusieurs noeuds",
1278                                  min=1,max='**',
1279              regles=(UN_PARMI('GROUP_NO','NOEUD'),),
1280              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1281              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1282              DDL             =SIMP(statut='o',typ='TXM',max='**'),
1283              COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
1284              COEF_IMPO       =SIMP(statut='o',typ='R' ),
1285            ),
1286
1287            LIAISON_OBLIQUE =FACT(statut='f',fr="Appliquer à des noeuds une valeur de déplacement dans un repere oblique",
1288                                  min=1,max='**',
1289              regles=(UN_PARMI('GROUP_NO','NOEUD'),
1290                      UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
1291              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1292              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1293              ANGL_NAUT       =SIMP(statut='o',typ='R',max=3),
1294              DX              =SIMP(statut='f',typ='R' ),
1295              DY              =SIMP(statut='f',typ='R' ),
1296              DZ              =SIMP(statut='f',typ='R' ),
1297              DRX             =SIMP(statut='f',typ='R' ),
1298              DRY             =SIMP(statut='f',typ='R' ),
1299              DRZ             =SIMP(statut='f',typ='R' ),
1300            ),
1301
1302            LIAISON_GROUP   =FACT(statut='f',fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1303                                  min=1,max='**',
1304              regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1305                      UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1306                      EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1307                      EXCLUS('GROUP_MA_1','NOEUD_2'),
1308                      EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1309                      EXCLUS('GROUP_NO_1','MAILLE_2'),
1310                      EXCLUS('MAILLE_1','GROUP_NO_2'),
1311                      EXCLUS('MAILLE_1','NOEUD_2'),
1312                      EXCLUS('NOEUD_1','GROUP_MA_2'),
1313                      EXCLUS('NOEUD_1','MAILLE_2'),
1314                      EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1315
1316                GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1317                MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1318                GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1319                MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1320                GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
1321                NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
1322                GROUP_NO_2      =SIMP(statut='f',typ=no,max='**'),
1323                NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1324
1325              SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1326              SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1327              DDL_1           =SIMP(statut='o',typ='TXM',max='**'),
1328              COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
1329              DDL_2           =SIMP(statut='o',typ='TXM',max='**'),
1330              COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
1331              COEF_IMPO       =SIMP(statut='o',typ='R' ),
1332              SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1333              TRAN            =SIMP(statut='f',typ='R',max=3),
1334              ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
1335              CENTRE          =SIMP(statut='f',typ='R',max=3),
1336            ),
1337
1338            LIAISON_MAIL    =FACT(statut='f',min=1,max='**',
1339              regles=(AU_MOINS_UN('GROUP_MA_MAIT','MAILLE_MAIT'),
1340                      AU_MOINS_UN('GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL','NOEUD_ESCL'),
1341                      PRESENT_PRESENT('DDL_MAIT','DDL_ESCL'),),
1342               GROUP_MA_MAIT   =SIMP(statut='f',typ=grma,max='**'),
1343               MAILLE_MAIT     =SIMP(statut='f',typ=ma,max='**'),
1344               GROUP_MA_ESCL   =SIMP(statut='f',typ=grma,max='**'),
1345               MAILLE_ESCL     =SIMP(statut='f',typ=ma,max='**'),
1346               GROUP_NO_ESCL   =SIMP(statut='f',typ=grno,max='**'),
1347               NOEUD_ESCL      =SIMP(statut='f',typ=no,max='**'),
1348               TRAN            =SIMP(statut='f',typ='R',max=3 ),
1349               ANGL_NAUT       =SIMP(statut='f',typ='R',max=3 ),
1350               CENTRE          =SIMP(statut='f',typ='R',max=3 ),
1351               DDL_MAIT        =SIMP(statut='f',typ='TXM',into=("DNOR",) ),
1352               DDL_ESCL        =SIMP(statut='f',typ='TXM',into=("DNOR",) ),
1353          ),
1354
1355
1356            LIAISON_SOLIDE  =FACT(statut='f',fr="Modéliser une partie indéformable d'une structure",min=1,max='**',
1357              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1358              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1359              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1360              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1361              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1362              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1363            ),
1364
1365            LIAISON_ELEM    =FACT(statut='f',fr="Raccorder une poutre à une partie massive 3D ou une coque", min=1,max='**',
1366              regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
1367                      UN_PARMI('GROUP_NO_2','NOEUD_2'),),
1368              OPTION          =SIMP(statut='o',typ='TXM',into=("3D_TUYAU","3D_POU","COQ_POU","COQ_TUYAU") ),
1369              GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1370              MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1371              GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
1372              NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1373              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1374              CARA_ELEM       =SIMP(statut='f',typ=(cara_elem) ),
1375              AXE_POUTRE      =SIMP(statut='f',typ='R',max=3),
1376              ANGL_MAX        =SIMP(statut='f',typ='R',defaut= 1. ),
1377            ),
1378
1379            LIAISON_UNIF    =FACT(statut='f',fr="Imposer une meme valeur (inconnue) à des ddls d'un emsemble de noeuds",
1380                                  min=1,max='**',
1381              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
1382              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1383              NOEUD           =SIMP(statut='f',typ=no,max='**'),
1384              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1385              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1386              DDL             =SIMP(statut='o',typ='TXM',max='**'),
1387            ),
1388
1389          LIAISON_CHAMNO  =FACT(statut='f',fr="définir une relation linéaire entre tous les ddls d'un concept cham_nno",
1390                                  min=1,max='**',
1391 #  type de cham_no CO()
1392              CHAM_NO         =SIMP(statut='o',typ=cham_no), #CO()
1393              COEF_IMPO       =SIMP(statut='o',typ='R' ),
1394              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1395            ),
1396
1397          VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
1398
1399          CONTACT         =FACT(statut='f',fr="Imposer du contact avec ou sans frottement",min=1,max='**',
1400            regles=(UN_PARMI('GROUP_MA_2','MAILLE_2'),),
1401            APPARIEMENT     =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
1402                                  into=("NON","NODAL","NODAL_SYME","MAIT_ESCL","MAIT_ESCL_SYME")),
1403            RECHERCHE       =SIMP(statut='f',typ='TXM',defaut="NOEUD_VOISIN",into=("NOEUD_BOUCLE","NOEUD_VOISIN")),
1404            LISSAGE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
1405            NORMALE         =SIMP(statut='f',typ='TXM',defaut="MAIT",into=("MAIT","MAIT_ESCL")),
1406            METHODE         =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
1407                                  into=("CONTRAINTE","LAGRANGIEN","PENALISATION","CONTINUE") ),
1408            PROJECTION      =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","QUADRATIQUE") ),
1409            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1410            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1411            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1412            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1413            b_active        =BLOC(condition = "METHODE == 'CONTRAINTE' ",
1414                                  fr="Paramètres de la méthode des contraintes actives (contact uniquement)",
1415                 regles=(EXCLUS('DIST_2','COEF_IMPO'),
1416                         EXCLUS('DIST_1','COEF_IMPO'),),
1417                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","PRES","TEMP")),
1418                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS",) ),
1419                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1420                 b_reac_geom     =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1421                                  fr="Paramètre de la réactualisation géométrique",
1422                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
1423                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1424                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1425                 COEF_IMPO       =SIMP(statut='f',typ='R'),
1426                 COEF_MULT_2     =SIMP(statut='f',typ='R'),
1427                 VECT_NORM_2     =SIMP(statut='f',typ='R',max=3),
1428                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
1429                 DIST_1          =SIMP(statut='f',typ='R'),
1430                 DIST_2          =SIMP(statut='f',typ='R'),
1431                 STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),),
1432            b_lagrangien    =BLOC(condition = "METHODE == 'LAGRANGIEN' ",
1433                                  fr="Paramètres de la méthode Lagrangienne (contact avec ou sans frottement)",
1434                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1435                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1436                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1437                 b_reac_geom     =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1438                                  fr="Paramètre de la réactualisation géométrique",
1439                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
1440                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1441                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1442                 DIST_1          =SIMP(statut='f',typ='R'),
1443                 DIST_2          =SIMP(statut='f',typ='R'),
1444                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
1445                 STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
1446                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1447                      COULOMB         =SIMP(statut='o',typ='R',max=1),
1448                      COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut=0.E+0),
1449                      ),),
1450            b_penalisation       =BLOC(condition = "METHODE == 'PENALISATION' ",
1451                                       fr="Paramètres de la méthode pénalisée (contact avec ou sans frottement)",
1452                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1453                 E_N             =SIMP(statut='f',typ='R'),
1454                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1455                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
1456                 b_reac_geom     =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
1457                                  fr="Paramètre de la réactualisation géométrique",
1458                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
1459                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
1460                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
1461                 DIST_1          =SIMP(statut='f',typ='R'),
1462                 DIST_2          =SIMP(statut='f',typ='R'),
1463                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
1464                 STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
1465                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1466                      COULOMB         =SIMP(statut='o',typ='R',max=1),
1467                      E_T             =SIMP(statut='f',typ='R',
1468                                            fr="Active la pénalisation sur le frottement et définit le coefficient de pénalisation"),
1469                      COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut=0.E+0),
1470                      ),),
1471            b_continue      =BLOC(condition = "METHODE == 'CONTINUE' ",
1472                                  fr="Paramètres de la méthode continue (contact avec ou sans frottement)",
1473                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
1474                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
1475                 INTEGRATION     =SIMP(statut='f',typ='TXM',defaut="NOEUD",into=("GAUSS","NOEUD","SIMPSON","SIMPSON1","SIMPSON2")),
1476                 COEF_REGU_CONT  =SIMP(statut='f',typ='R',defaut=100.E+0),
1477                 MODL_AXIS       =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
1478                 DIRE_APPA       =SIMP(statut='f',typ='R',max=3,defaut=(0.,0.,0.,)),
1479                 ITER_GEOM_MAXI  =SIMP(statut='f',typ='I',defaut=2),
1480                 ITER_CONT_MAXI  =SIMP(statut='f',typ='I',defaut=30),
1481                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
1482                      COULOMB         =SIMP(statut='o',typ='R',max=1),
1483                      ITER_FROT_MAXI  =SIMP(statut='f',typ='I',defaut=2),
1484                      COEF_REGU_FROT  =SIMP(statut='f',typ='R',defaut=100.E+0),
1485                      SEUIL_INIT      =SIMP(statut='f',typ='I',defaut=0),),),
1486          ),
1487
1488          FORCE_NODALE    =FACT(statut='f',fr="Imposer des forces nodales en des noeuds",min=1,max='**',
1489            regles=(AU_MOINS_UN('GROUP_NO','NOEUD'),
1490                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
1491            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1492            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1493            FX              =SIMP(statut='f',typ='R' ),
1494            FY              =SIMP(statut='f',typ='R' ),
1495            FZ              =SIMP(statut='f',typ='R' ),
1496            MX              =SIMP(statut='f',typ='R' ),
1497            MY              =SIMP(statut='f',typ='R' ),
1498            MZ              =SIMP(statut='f',typ='R' ),
1499            ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
1500          ),
1501
1502          FORCE_FACE      =FACT(statut='f',fr="Appliquer des forces surfaciques sur une face d'éléments volumiques",
1503                                  min=1,max='**',
1504              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1505                      AU_MOINS_UN('FX','FY','FZ'),),
1506              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1507              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1508              FX              =SIMP(statut='f',typ='R' ),
1509              FY              =SIMP(statut='f',typ='R' ),
1510              FZ              =SIMP(statut='f',typ='R' ),
1511            ),
1512
1513          FORCE_ARETE     =FACT(statut='f',fr="Appliquer des forces linéiques à une arete d élément volumique ou de coque",
1514                                  min=1,max='**',
1515              regles=(AU_MOINS_UN('GROUP_MA','MAILLE',),
1516                      AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
1517              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1518              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1519              FX              =SIMP(statut='f',typ='R' ),
1520              FY              =SIMP(statut='f',typ='R' ),
1521              FZ              =SIMP(statut='f',typ='R' ),
1522              MX              =SIMP(statut='f',typ='R' ),
1523              MY              =SIMP(statut='f',typ='R' ),
1524              MZ              =SIMP(statut='f',typ='R' ),
1525            ),
1526
1527          FORCE_CONTOUR   =FACT(statut='f',fr="Appliquer des forces linéiques au bord d'un domaine 2D ou AXIS_FOURIER",
1528                                  min=1,max='**',
1529              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
1530                      AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
1531              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1532              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1533              FX              =SIMP(statut='f',typ='R' ),
1534              FY              =SIMP(statut='f',typ='R' ),
1535              FZ              =SIMP(statut='f',typ='R' ),
1536              MX              =SIMP(statut='f',typ='R' ),
1537              MY              =SIMP(statut='f',typ='R' ),
1538              MZ              =SIMP(statut='f',typ='R' ),
1539            ),
1540
1541          FORCE_INTERNE   =FACT(statut='f',fr="Appliquer des forces volumiques (2D ou 3D) à un domaine volumique",
1542                                  min=1,max='**',
1543              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1544                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1545                      AU_MOINS_UN('FX','FY','FZ' ),),
1546              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1547              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1548              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1549              FX              =SIMP(statut='f',typ='R' ),
1550              FY              =SIMP(statut='f',typ='R' ),
1551              FZ              =SIMP(statut='f',typ='R' ),
1552            ),
1553
1554          PRES_REP        =FACT(statut='f',fr="Appliquer une pression à un domaine de milieu continu 2D ou 3D",
1555                                  min=1,max='**',
1556              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1557                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1558                      AU_MOINS_UN('PRES','CISA_2D' ),),
1559              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1560              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1561              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1562              PRES            =SIMP(statut='f',typ='R' ),
1563              CISA_2D         =SIMP(statut='f',typ='R' ),
1564            ),
1565
1566          EFFE_FOND       =FACT(statut='f',fr="Imposer un effet de fond",min=1,max='**',
1567            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1568            GROUP_MA_INT    =SIMP(statut='o',typ=grma,max='**'),
1569            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1570            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1571            PRES            =SIMP(statut='o',typ='R' ),
1572          ),
1573
1574          EPSI_INIT       =FACT(statut='f',fr="Appliquer un chargement de déformation initiale à un volume 3D ou 2D",
1575                                  min=1,max='**',
1576              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1577                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1578                      AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ','EPX',
1579                                  'KY','KZ','EXX','EYY','EXY','KXX','KYY','KXY'),),
1580              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1581              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1582              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1583              EPXX            =SIMP(statut='f',typ='R' ),
1584              EPYY            =SIMP(statut='f',typ='R' ),
1585              EPZZ            =SIMP(statut='f',typ='R' ),
1586              EPXY            =SIMP(statut='f',typ='R' ),
1587              EPXZ            =SIMP(statut='f',typ='R' ),
1588              EPYZ            =SIMP(statut='f',typ='R' ),
1589              EPX             =SIMP(statut='f',typ='R' ),
1590              KY              =SIMP(statut='f',typ='R' ),
1591              KZ              =SIMP(statut='f',typ='R' ),
1592              EXX             =SIMP(statut='f',typ='R' ),
1593              EYY             =SIMP(statut='f',typ='R' ),
1594              EXY             =SIMP(statut='f',typ='R' ),
1595              KXX             =SIMP(statut='f',typ='R' ),
1596              KYY             =SIMP(statut='f',typ='R' ),
1597              KXY             =SIMP(statut='f',typ='R' ),
1598            ),
1599
1600          ARLEQUIN        =FACT(statut='f',min=1,max='**',
1601            GROUP_MA_1     =SIMP(statut='o',typ=grma,max='**'),
1602            GROUP_MA_2     =SIMP(statut='o',typ=grma,max='**'),
1603            GROUP_MA_COLL  =SIMP(statut='o',typ=grma,max='**'),
1604            CARA_ELEM      =SIMP(statut='f',typ=(cara_elem) ),
1605            regles        =(UN_PARMI('POIDS_1','POIDS_2'),),
1606            POIDS_1       =SIMP(statut='f',typ='R'),
1607            POIDS_2       =SIMP(statut='f',typ='R'),
1608          ),
1609
1610         FORCE_POUTRE    =FACT(statut='f',fr="Appliquer des forces linéiques sur des poutres",min=1,max='**',
1611              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1612                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1613                      AU_MOINS_UN('FX','FY','FZ','N','VY','VZ'),
1614                      PRESENT_ABSENT('FX','N','VY','VZ'),
1615                      PRESENT_ABSENT('FY','N','VY','VZ'),
1616                      PRESENT_ABSENT('FZ','N','VY','VZ'),
1617                      PRESENT_ABSENT('N','FX','FY','FZ'),
1618                      PRESENT_ABSENT('VY','FX','FY','FZ'),
1619                      PRESENT_ABSENT('VZ','FX','FY','FZ'),),
1620              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1621              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1622              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1623              TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE",) ),
1624 #  rajour d'un mot clé REPERE :/ LOCAL /GLOBAL
1625                FX              =SIMP(statut='f',typ='R' ),
1626                FY              =SIMP(statut='f',typ='R' ),
1627                FZ              =SIMP(statut='f',typ='R' ),
1628
1629                N               =SIMP(statut='f',typ='R' ),
1630                VY              =SIMP(statut='f',typ='R' ),
1631                VZ              =SIMP(statut='f',typ='R' ),
1632
1633            ),
1634
1635          FORCE_TUYAU     =FACT(statut='f',fr="imposer une pression dans un élément TUYAU",min=1,max='**',
1636              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1637                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
1638              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1639              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1640              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1641              PRES            =SIMP(statut='f',typ='R' ),
1642            ),
1643
1644          FORCE_COQUE     =FACT(statut='f',fr="Appliquer des forces surfaciques sur des coques",min=1,max='**',
1645              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1646                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1647                      AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
1648                      PRESENT_ABSENT('FX','PRES','F1','F2','F3','MF1','MF2'),
1649                      PRESENT_ABSENT('FY','PRES','F1','F2','F3','MF1','MF2'),
1650                      PRESENT_ABSENT('FZ','PRES','F1','F2','F3','MF1','MF2'),
1651                      PRESENT_ABSENT('MX','PRES','F1','F2','F3','MF1','MF2'),
1652                      PRESENT_ABSENT('MY','PRES','F1','F2','F3','MF1','MF2'),
1653                      PRESENT_ABSENT('MZ','PRES','F1','F2','F3','MF1','MF2'),
1654                      PRESENT_ABSENT('F1','FX','FY','FZ','MX','MY','MZ','PRES'),
1655                      PRESENT_ABSENT('F2','FX','FY','FZ','MX','MY','MZ','PRES'),
1656                      PRESENT_ABSENT('F3','FX','FY','FZ','MX','MY','MZ','PRES'),
1657                      PRESENT_ABSENT('MF1','FX','FY','FZ','MX','MY','MZ','PRES'),
1658                      PRESENT_ABSENT('MF2','FX','FY','FZ','MX','MY','MZ','PRES'),
1659                      PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
1660 #  rajour d'un mot clé REPERE :/ LOCAL /GLOBAL
1661              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1662              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1663              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1664
1665                FX              =SIMP(statut='f',typ='R' ),
1666                FY              =SIMP(statut='f',typ='R' ),
1667                FZ              =SIMP(statut='f',typ='R' ),
1668                MX              =SIMP(statut='f',typ='R' ),
1669                MY              =SIMP(statut='f',typ='R' ),
1670                MZ              =SIMP(statut='f',typ='R' ),
1671
1672                F1              =SIMP(statut='f',typ='R' ),
1673                F2              =SIMP(statut='f',typ='R' ),
1674                F3              =SIMP(statut='f',typ='R' ),
1675                MF1             =SIMP(statut='f',typ='R' ),
1676                MF2             =SIMP(statut='f',typ='R' ),
1677
1678              PRES            =SIMP(statut='f',typ='R' ),
1679              PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL",) ),
1680            ),
1681
1682
1683            LIAISON_COQUE   =FACT(statut='f',min=1,max='**',
1684              GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1685              MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1686              GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
1687              NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
1688              GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1689              MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1690              GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
1691              NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
1692              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
1693            ),
1694
1695          RELA_CINE_BP    =FACT(statut='f',min=1,max='**',
1696            CABLE_BP        =SIMP(statut='o',typ=cabl_precont ),
1697            SIGM_BPEL       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
1698            RELA_CINE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1699          ),
1700
1701          FORCE_ELEC      =FACT(statut='f',
1702                                  fr="Force de Laplace due à la présence d'un conducteur rectiligne secondaire non maillé",
1703                                  min=1,max='**',
1704              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1705                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1706                      AU_MOINS_UN('FX','FY','FZ','POSITION'),
1707                      EXCLUS('FX','POSITION'),
1708                      EXCLUS('FY','POSITION'),
1709                      EXCLUS('FZ','POSITION'),),
1710 #  trop de regles : les blocs conditionnels permettent d en suprimer
1711              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1712              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1713              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1714
1715              FX              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1716              FY              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1717              FZ              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
1718
1719              POSITION        =SIMP(statut='f',typ='TXM',fr="Direction prédéfinie",into=("PARA","INFI","FINI",) ),
1720              b_para     =BLOC ( condition = "POSITION == 'PARA'",
1721                regles=(UN_PARMI('TRANS','DIST'),),
1722                TRANS           =SIMP(statut='f',typ='R',max=3),
1723                DIST            =SIMP(statut='f',typ='R' ),
1724                b_point2        =BLOC ( condition = "DIST != None",
1725                  POINT2           =SIMP(statut='o',typ='R',max=3),
1726                ),
1727              ),
1728              b_fini_infi     =BLOC ( condition = "(POSITION == 'FINI') or (POSITION == 'INFI')",
1729                POINT1          =SIMP(statut='o',typ='R',max=3),
1730                POINT2          =SIMP(statut='o',typ='R',max=3),
1731              ),
1732            ),
1733
1734
1735
1736
1737         INTE_ELEC       =FACT(statut='f',fr="Force de Laplace due à la présence d'un conducteur non rectiligne secondaire",
1738                                  min=1,max='**',
1739              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1740                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1741                      AU_MOINS_UN('GROUP_MA_2','MAILLE_2','TRANS','SYME'),
1742                      EXCLUS('TRANS','SYME'),),
1743              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1744              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1745              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1746              GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1747              MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1748              TRANS           =SIMP(statut='f',typ='R',max='**'),
1749              SYME            =SIMP(statut='f',typ='R',max='**'),
1750            ),
1751
1752
1753          IMPE_FACE       =FACT(statut='f',fr="Appliquer une impédance acoustique à une face",min=1,max='**',
1754              regles=(AU_MOINS_UN('GROUP_MA','MAILLE' ),),
1755              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1756              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1757              IMPE            =SIMP(statut='o',typ='R' ),
1758            ),
1759
1760          VITE_FACE       =FACT(statut='f',fr="Imposer des vitesses acoustiquesnormales à une face",min=1,max='**',
1761              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1762              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1763              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1764              VNOR            =SIMP(statut='o',typ='R' ),
1765            ),
1766
1767
1768
1769          ONDE_FLUI       =FACT(statut='f',fr="Appliquer une amplitude de pression d onde incidente",min=1,max='**',
1770              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
1771              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1772              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1773              PRES            =SIMP(statut='o',typ='R' ),
1774            ),
1775
1776          FLUX_THM_REP    =FACT(statut='f',min=1,max='**',
1777              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1778                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1779                      AU_MOINS_UN('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
1780              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1781              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1782              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1783              FLUN            =SIMP(statut='f',typ='R' ),
1784              FLUN_HYDR1      =SIMP(statut='f',typ='R' ),
1785              FLUN_HYDR2      =SIMP(statut='f',typ='R' ),
1786            ),
1787
1788          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1789 )  ;
1790 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
1791 #            CONFIGURATION MANAGEMENT OF EDF VERSION
1792 # ======================================================================
1793 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
1794 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1795 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1796 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1797 # (AT YOUR OPTION) ANY LATER VERSION.
1798 #
1799 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1800 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1801 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1802 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1803 #
1804 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1805 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1806 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1807 # ======================================================================
1808 # RESPONSABLE G8BHHXD X.DESROCHES
1809 AFFE_CHAR_MECA_C=OPER(nom="AFFE_CHAR_MECA_C",op=   7,sd_prod=char_meca,
1810                      fr="Affectation de charges et conditions aux limites mécaniques complexes",
1811                      docu="U4.44.05-d2",reentrant='n',
1812             UIinfo={"groupes":("Modélisation",)},
1813          regles=(AU_MOINS_UN('DDL_IMPO','FORCE_POUTRE','LIAISON_DDL', ),),
1814          MODELE          =SIMP(statut='o',typ=modele ),
1815          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1816          DDL_IMPO        =FACT(statut='f',min=1,max='**',
1817            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
1818                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI', ),),
1819            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1820            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1821            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1822            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1823            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1824            DX              =SIMP(statut='f',typ='C' ),
1825            DY              =SIMP(statut='f',typ='C' ),
1826            DZ              =SIMP(statut='f',typ='C' ),
1827            DRX             =SIMP(statut='f',typ='C' ),
1828            DRY             =SIMP(statut='f',typ='C' ),
1829            DRZ             =SIMP(statut='f',typ='C' ),
1830            GRX             =SIMP(statut='f',typ='C' ),
1831            PRES            =SIMP(statut='f',typ='C' ),
1832            PHI             =SIMP(statut='f',typ='C' ),
1833          ),
1834          FORCE_POUTRE    =FACT(statut='f',min=1,max='**',
1835            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
1836                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
1837                    AU_MOINS_UN('FX','FY','FZ','N','VY','VZ',),
1838                    PRESENT_ABSENT('FX','N','VY','VZ',),
1839                    PRESENT_ABSENT('FY','N','VY','VZ',),
1840                    PRESENT_ABSENT('FZ','N','VY','VZ',),
1841                    PRESENT_ABSENT('N','FX','FY','FZ',),
1842                    PRESENT_ABSENT('VY', 'FX','FY','FZ',),
1843                    PRESENT_ABSENT('VZ','FX','FY','FZ', ),),
1844            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1845            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1846            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1847            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE") ),
1848            FX              =SIMP(statut='f',typ='C' ),
1849            FY              =SIMP(statut='f',typ='C' ),
1850            FZ              =SIMP(statut='f',typ='C' ),
1851            N               =SIMP(statut='f',typ='C' ),
1852            VY              =SIMP(statut='f',typ='C' ),
1853            VZ              =SIMP(statut='f',typ='C' ),
1854          ),
1855          LIAISON_DDL     =FACT(statut='f',min=1,max='**',
1856            regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
1857            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1858            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1859            DDL             =SIMP(statut='o',typ='TXM',max='**'),
1860            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
1861            COEF_IMPO       =SIMP(statut='o',typ='C' ),
1862          ),
1863          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
1864 )  ;
1865 #& MODIF COMMANDE  DATE 26/11/2002   AUTEUR JMBHH01 J.M.PROIX
1866 #            CONFIGURATION MANAGEMENT OF EDF VERSION
1867 # ======================================================================
1868 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
1869 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
1870 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
1871 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
1872 # (AT YOUR OPTION) ANY LATER VERSION.
1873 #
1874 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
1875 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
1876 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
1877 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
1878 #
1879 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
1880 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
1881 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
1882 # ======================================================================
1883 # RESPONSABLE G8BHHXD X.DESROCHES
1884 AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
1885                       fr="Affectation de charges et conditions aux limites mécaniques fonction d une grandeur",
1886                       docu="U4.44.01-g3",reentrant='n',
1887             UIinfo={"groupes":("Modélisation",)},
1888         regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
1889                             'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
1890                             'PRES_REP','FORCE_POUTRE','VITE_FACE','IMPE_FACE','ONDE_PLANE',
1891                             'LIAISON_OBLIQUE','EPSI_INIT','LIAISON_GROUP','LIAISON_UNIF',
1892                             'LIAISON_SOLIDE','FORCE_COQUE','LIAISON_COQUE','FORCE_TUYAU',
1893                             'CONTACT','EFFE_FOND'),),
1894          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1895          VERI_NORM       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
1896          MODELE          =SIMP(statut='o',typ=modele ),
1897
1898          DDL_IMPO        =FACT(statut='f',min=1,max='**',
1899            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
1900                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
1901                                'TEMP','PRE1','PRE2'),),
1902            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
1903            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1904            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1905            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1906            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1907            DX              =SIMP(statut='f',typ=(fonction) ),
1908            DY              =SIMP(statut='f',typ=(fonction) ),
1909            DZ              =SIMP(statut='f',typ=(fonction) ),
1910            DRX             =SIMP(statut='f',typ=(fonction) ),
1911            DRY             =SIMP(statut='f',typ=(fonction) ),
1912            DRZ             =SIMP(statut='f',typ=(fonction) ),
1913            GRX             =SIMP(statut='f',typ=(fonction) ),
1914            PRES            =SIMP(statut='f',typ=(fonction) ),
1915            PHI             =SIMP(statut='f',typ=(fonction) ),
1916            TEMP            =SIMP(statut='f',typ=(fonction) ),
1917            PRE1            =SIMP(statut='f',typ=(fonction) ),
1918            PRE2            =SIMP(statut='f',typ=(fonction) ),
1919          ),
1920
1921          FACE_IMPO       =FACT(statut='f',min=1,max='**',
1922            regles=(UN_PARMI('GROUP_MA','MAILLE'),
1923                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI','TEMP','PRE1','PRE2','DNOR','DTAN'),
1924                    EXCLUS('DNOR','DX'),
1925                    EXCLUS('DNOR','DY'),
1926                    EXCLUS('DNOR','DZ'),
1927                    EXCLUS('DNOR','DRX'),
1928                    EXCLUS('DNOR','DRY'),
1929                    EXCLUS('DNOR','DRZ'),
1930                    EXCLUS('DTAN','DX'),
1931                    EXCLUS('DTAN','DY'),
1932                    EXCLUS('DTAN','DZ'),
1933                    EXCLUS('DTAN','DRX'),
1934                    EXCLUS('DTAN','DRY'),
1935                    EXCLUS('DTAN','DRZ'),),
1936 #  rajout d un mot cle REPERE : / GLOBAL / LOCAL
1937            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
1938            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
1939            DX              =SIMP(statut='f',typ=(fonction) ),
1940            DY              =SIMP(statut='f',typ=(fonction) ),
1941            DZ              =SIMP(statut='f',typ=(fonction) ),
1942            DRX             =SIMP(statut='f',typ=(fonction) ),
1943            DRY             =SIMP(statut='f',typ=(fonction) ),
1944            DRZ             =SIMP(statut='f',typ=(fonction) ),
1945            GRX             =SIMP(statut='f',typ=(fonction) ),
1946            PRES            =SIMP(statut='f',typ=(fonction) ),
1947            PHI             =SIMP(statut='f',typ=(fonction) ),
1948            TEMP            =SIMP(statut='f',typ=(fonction) ),
1949            PRE1            =SIMP(statut='f',typ=(fonction) ),
1950            PRE2            =SIMP(statut='f',typ=(fonction) ),
1951            DNOR            =SIMP(statut='f',typ=(fonction) ),
1952            DTAN            =SIMP(statut='f',typ=(fonction) ),
1953          ),
1954
1955          LIAISON_DDL     =FACT(statut='f',min=1,max='**',
1956                                fr="Définir une relation linéaire entre des ddls de deux ou plusieurs noeuds",
1957            regles=(UN_PARMI('GROUP_NO','NOEUD'),),
1958            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1959            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1960            DDL             =SIMP(statut='o',typ='TXM',max='**'),
1961            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
1962            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
1963          ),
1964
1965          LIAISON_OBLIQUE =FACT(statut='f',min=1,max='**',
1966                                fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1967            regles=(UN_PARMI('GROUP_NO','NOEUD'),
1968                    UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
1969            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
1970            NOEUD           =SIMP(statut='f',typ=no,max='**'),
1971            ANGL_NAUT       =SIMP(statut='o',typ='R',max=3),
1972            DX              =SIMP(statut='f',typ=(fonction) ),
1973            DY              =SIMP(statut='f',typ=(fonction) ),
1974            DZ              =SIMP(statut='f',typ=(fonction) ),
1975            DRX             =SIMP(statut='f',typ=(fonction) ),
1976            DRY             =SIMP(statut='f',typ=(fonction) ),
1977            DRZ             =SIMP(statut='f',typ=(fonction) ),
1978          ),
1979
1980          LIAISON_GROUP   =FACT(statut='f',min=1,max='**',
1981                                fr="Définir des relations linéaires entre certains ddls de couples de noeuds",
1982            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
1983                    UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
1984                    EXCLUS('GROUP_MA_1','GROUP_NO_2'),
1985                    EXCLUS('GROUP_MA_1','NOEUD_2'),
1986                    EXCLUS('GROUP_NO_1','GROUP_MA_2'),
1987                    EXCLUS('GROUP_NO_1','MAILLE_2'),
1988                    EXCLUS('MAILLE_1','GROUP_NO_2'),
1989                    EXCLUS('MAILLE_1','NOEUD_2'),
1990                    EXCLUS('NOEUD_1','GROUP_MA_2'),
1991                    EXCLUS('NOEUD_1','MAILLE_2'),
1992                    EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
1993            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
1994            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
1995            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
1996            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
1997            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
1998            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
1999            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
2000            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
2001            SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
2002            SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
2003            DDL_1           =SIMP(statut='o',typ='TXM',max='**'),
2004            COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
2005            DDL_2           =SIMP(statut='o',typ='TXM',max='**'),
2006            COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
2007            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
2008            SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2009            TRAN            =SIMP(statut='f',typ='R',max=3),
2010            ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
2011            CENTRE          =SIMP(statut='f',typ='R',max=3),
2012          ),
2013
2014          CONTACT         =FACT(statut='f',fr="Imposer du contact avec ou sans frottement",min=1,max='**',
2015            regles=(UN_PARMI('GROUP_MA_2','MAILLE_2'),),
2016            APPARIEMENT     =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
2017                                  into=("NON","NODAL","NODAL_SYME","MAIT_ESCL","MAIT_ESCL_SYME")),
2018            RECHERCHE       =SIMP(statut='f',typ='TXM',defaut="NOEUD_VOISIN",into=("NOEUD_BOUCLE","NOEUD_VOISIN")),
2019            LISSAGE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
2020            NORMALE         =SIMP(statut='f',typ='TXM',defaut="MAIT",into=("MAIT","MAIT_ESCL")),
2021            METHODE         =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
2022                                  into=("CONTRAINTE","LAGRANGIEN","PENALISATION","CONTINUE") ),
2023            PROJECTION      =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","QUADRATIQUE") ),
2024            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2025            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2026            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2027            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2028            b_active        =BLOC(condition = "METHODE == 'CONTRAINTE' ",
2029                                  fr="Paramètres de la méthode des contraintes actives (contact uniquement)",
2030                 regles=(EXCLUS('DIST_2','COEF_IMPO'),
2031                         EXCLUS('DIST_1','COEF_IMPO'),),
2032                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","PRES","TEMP")),
2033                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS",) ),
2034                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
2035                 b_reac_geom     =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
2036                                  fr="Paramètre de la réactualisation géométrique",
2037                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
2038                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
2039                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
2040                 COEF_IMPO       =SIMP(statut='f',typ='R'),
2041                 COEF_MULT_2     =SIMP(statut='f',typ='R'),
2042                 VECT_NORM_2     =SIMP(statut='f',typ='R',max=3),
2043                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
2044                 DIST_1          =SIMP(statut='f',typ=(fonction)),
2045                 DIST_2          =SIMP(statut='f',typ=(fonction)),
2046                 STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),),
2047            b_lagrangien    =BLOC(condition = "METHODE == 'LAGRANGIEN' ",
2048                                  fr="Paramètres de la méthode Lagrangienne (contact avec ou sans frottement)",
2049                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
2050                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
2051                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
2052                 b_reac_geom     =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
2053                                  fr="Paramètre de la réactualisation géométrique",
2054                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
2055                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
2056                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
2057                 DIST_1          =SIMP(statut='f',typ=(fonction)),
2058                 DIST_2          =SIMP(statut='f',typ=(fonction)),
2059                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
2060                 STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
2061                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
2062                      COULOMB         =SIMP(statut='o',typ='R',max=1),
2063                      COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut=0.E+0),
2064                      ),),
2065            b_penalisation       =BLOC(condition = "METHODE == 'PENALISATION' ",
2066                                       fr="Paramètres de la méthode pénalisée (contact avec ou sans frottement)",
2067                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
2068                 E_N             =SIMP(statut='f',typ='R'),
2069                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
2070                 REAC_GEOM       =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",into=("AUTOMATIQUE","CONTROLE","SANS")),
2071                 b_reac_geom     =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
2072                                  fr="Paramètre de la réactualisation géométrique",
2073                       NB_REAC_GEOM   =SIMP(statut='o',typ='I'),),
2074                 SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
2075                 SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
2076                 DIST_1          =SIMP(statut='f',typ=(fonction)),
2077                 DIST_2          =SIMP(statut='f',typ=(fonction)),
2078                 VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
2079                 STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
2080                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
2081                      COULOMB         =SIMP(statut='o',typ='R',max=1),
2082                      E_T             =SIMP(statut='f',typ='R',
2083                                            fr="Active la pénalisation sur le frottement et définit le coefficient de pénalisation"),
2084                      COEF_MATR_FROT  =SIMP(statut='f',typ='R',defaut=0.E+0),
2085                      ),),
2086            b_continue      =BLOC(condition = "METHODE == 'CONTINUE' ",
2087                                  fr="Paramètres de la méthode continue (contact avec ou sans frottement)",
2088                 NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL",)),
2089                 FROTTEMENT      =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
2090                 INTEGRATION     =SIMP(statut='f',typ='TXM',defaut="NOEUD",into=("GAUSS","NOEUD","SIMPSON","SIMPSON1","SIMPSON2")),
2091                 COEF_REGU_CONT  =SIMP(statut='f',typ='R',defaut=100.E+0),
2092                 MODL_AXIS       =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
2093                 DIRE_APPA       =SIMP(statut='f',typ='R',max=3),
2094                 ITER_GEOM_MAXI  =SIMP(statut='f',typ='I',defaut=2),
2095                 ITER_CONT_MAXI  =SIMP(statut='f',typ='I',defaut=30),
2096                 b_frottement    =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
2097                      COULOMB         =SIMP(statut='o',typ='R',max=1),
2098                      ITER_FROT_MAXI  =SIMP(statut='f',typ='I',defaut=2),
2099                      COEF_REGU_FROT  =SIMP(statut='f',typ='R',defaut=100.E+0),
2100                      SEUIL_INIT      =SIMP(statut='f',typ='I',defaut=0),),),
2101          ),
2102
2103           LIAISON_UNIF    =FACT(statut='f',min=1,max='**',
2104                                fr="Imposer une meme valeur (inconnue) a des ddls d un emsemble de noeuds",
2105            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
2106            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2107            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2108            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2109            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2110            DDL             =SIMP(statut='o',typ='TXM',max='**'),
2111          ),
2112
2113          LIAISON_SOLIDE  =FACT(statut='f',min=1,max='**',
2114                                fr="Modéliser une partie indéformable d une structure",
2115            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
2116            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2117            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2118            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2119            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2120            NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
2121          ),
2122
2123
2124
2125          FORCE_NODALE    =FACT(statut='f',min=1,max='**',
2126            regles=(UN_PARMI('GROUP_NO','NOEUD'),
2127                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
2128            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2129            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2130            FX              =SIMP(statut='f',typ=(fonction) ),
2131            FY              =SIMP(statut='f',typ=(fonction) ),
2132            FZ              =SIMP(statut='f',typ=(fonction) ),
2133            MX              =SIMP(statut='f',typ=(fonction) ),
2134            MY              =SIMP(statut='f',typ=(fonction) ),
2135            MZ              =SIMP(statut='f',typ=(fonction) ),
2136            ANGL_NAUT       =SIMP(statut='f',typ=(fonction),max=3 ),
2137          ),
2138
2139          FORCE_FACE      =FACT(statut='f',min=1,max='**',
2140            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
2141                    AU_MOINS_UN('FX','FY','FZ'),),
2142            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2143            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2144            FX              =SIMP(statut='f',typ=(fonction) ),
2145            FY              =SIMP(statut='f',typ=(fonction) ),
2146            FZ              =SIMP(statut='f',typ=(fonction) ),
2147          ),
2148          FORCE_ARETE     =FACT(statut='f',min=1,max='**',
2149            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
2150                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
2151            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2152            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2153            FX              =SIMP(statut='f',typ=(fonction) ),
2154            FY              =SIMP(statut='f',typ=(fonction) ),
2155            FZ              =SIMP(statut='f',typ=(fonction) ),
2156            MX              =SIMP(statut='f',typ=(fonction) ),
2157            MY              =SIMP(statut='f',typ=(fonction) ),
2158            MZ              =SIMP(statut='f',typ=(fonction) ),
2159          ),
2160          FORCE_CONTOUR   =FACT(statut='f',min=1,max='**',
2161            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
2162                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
2163            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2164            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2165            FX              =SIMP(statut='f',typ=(fonction) ),
2166            FY              =SIMP(statut='f',typ=(fonction) ),
2167            FZ              =SIMP(statut='f',typ=(fonction) ),
2168            MX              =SIMP(statut='f',typ=(fonction) ),
2169            MY              =SIMP(statut='f',typ=(fonction) ),
2170            MZ              =SIMP(statut='f',typ=(fonction) ),
2171          ),
2172
2173          FORCE_INTERNE   =FACT(statut='f',min=1,max='**',
2174            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2175                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2176                    AU_MOINS_UN('FX','FY','FZ'),),
2177            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2178            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2179            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2180            FX              =SIMP(statut='f',typ=(fonction) ),
2181            FY              =SIMP(statut='f',typ=(fonction) ),
2182            FZ              =SIMP(statut='f',typ=(fonction) ),
2183          ),
2184
2185          PRES_REP        =FACT(statut='f',min=1,max='**',
2186            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2187                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2188                    AU_MOINS_UN('PRES','CISA_2D'),),
2189            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2190            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2191            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2192            PRES            =SIMP(statut='f',typ=(fonction) ),
2193            CISA_2D         =SIMP(statut='f',typ=(fonction) ),
2194          ),
2195
2196          EFFE_FOND       =FACT(statut='f',fr="Imposer un effet de fond",min=1,max='**',
2197            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
2198            GROUP_MA_INT    =SIMP(statut='o',typ=grma,max='**'),
2199            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2200            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2201            PRES            =SIMP(statut='o',typ=(fonction) ),
2202          ),
2203
2204          EPSI_INIT       =FACT(statut='f',min=1,max='**',
2205            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2206                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2207                    AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ'),),
2208            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2209            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2210            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2211            EPXX            =SIMP(statut='f',typ=(fonction) ),
2212            EPYY            =SIMP(statut='f',typ=(fonction) ),
2213            EPZZ            =SIMP(statut='f',typ=(fonction) ),
2214            EPXY            =SIMP(statut='f',typ=(fonction) ),
2215            EPXZ            =SIMP(statut='f',typ=(fonction) ),
2216            EPYZ            =SIMP(statut='f',typ=(fonction) ),
2217          ),
2218
2219          FORCE_POUTRE    =FACT(statut='f',min=1,max='**',
2220            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2221                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2222                    AU_MOINS_UN('FX','FY','FZ','N','VY','VZ'),
2223                    PRESENT_ABSENT('FX','N','VY','VZ'),
2224                    PRESENT_ABSENT('FY','N','VY','VZ'),
2225                    PRESENT_ABSENT('FZ','N','VY','VZ'),
2226                    PRESENT_ABSENT('N','FX','FY','FZ'),
2227                    PRESENT_ABSENT('VY','FX','FY','FZ'),
2228                    PRESENT_ABSENT('VZ','FX','FY','FZ'),),
2229 #  rajout d un mot cle REPERE : / GLOBAL / LOCAL
2230            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2231            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2232            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2233            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE") ),
2234            FX              =SIMP(statut='f',typ=(fonction) ),
2235            FY              =SIMP(statut='f',typ=(fonction) ),
2236            FZ              =SIMP(statut='f',typ=(fonction) ),
2237            N               =SIMP(statut='f',typ=(fonction) ),
2238            VY              =SIMP(statut='f',typ=(fonction) ),
2239            VZ              =SIMP(statut='f',typ=(fonction) ),
2240          ),
2241
2242          FORCE_TUYAU     =FACT(statut='f',min=1,max='**',
2243            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2244                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2245            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2246            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2247            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2248            PRES            =SIMP(statut='f',typ=(fonction) ),
2249          ),
2250
2251          FORCE_COQUE     =FACT(statut='f',min=1,max='**',
2252            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2253                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2254                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
2255                    PRESENT_ABSENT('FX','PRES','F1','F2','F3','MF1','MF2'),
2256                    PRESENT_ABSENT('FY','PRES','F1','F2','F3','MF1','MF2'),
2257                    PRESENT_ABSENT('FZ','PRES','F1','F2','F3','MF1','MF2'),
2258                    PRESENT_ABSENT('MX','PRES','F1','F2','F3','MF1','MF2'),
2259                    PRESENT_ABSENT('MY','PRES','F1','F2','F3','MF1','MF2'),
2260                    PRESENT_ABSENT('MZ','PRES','F1','F2','F3','MF1','MF2'),
2261                    PRESENT_ABSENT('F1','PRES','FX','FY','FZ','MX','MY','MZ'),
2262                    PRESENT_ABSENT('F2','PRES','FX','FY','FZ','MX','MY','MZ'),
2263                    PRESENT_ABSENT('F3','PRES','FX','FY','FZ','MX','MY','MZ'),
2264                    PRESENT_ABSENT('MF1','PRES','FX','FY','FZ','MX','MY','MZ'),
2265                    PRESENT_ABSENT('MF2','PRES','FX','FY','FZ','MX','MY','MZ'),
2266                    PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
2267 #  rajout d un mot cle REPERE : / GLOBAL / LOCAL
2268            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2269            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2270            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2271            FX              =SIMP(statut='f',typ=(fonction) ),
2272            FY              =SIMP(statut='f',typ=(fonction) ),
2273            FZ              =SIMP(statut='f',typ=(fonction) ),
2274            MX              =SIMP(statut='f',typ=(fonction) ),
2275            MY              =SIMP(statut='f',typ=(fonction) ),
2276            MZ              =SIMP(statut='f',typ=(fonction) ),
2277            F1              =SIMP(statut='f',typ=(fonction) ),
2278            F2              =SIMP(statut='f',typ=(fonction) ),
2279            F3              =SIMP(statut='f',typ=(fonction) ),
2280            MF1             =SIMP(statut='f',typ=(fonction) ),
2281            MF2             =SIMP(statut='f',typ=(fonction) ),
2282            PRES            =SIMP(statut='f',typ=(fonction) ),
2283            PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",
2284                                  into=("SUP","INF","MOY","MAIL") ),
2285          ),
2286
2287          LIAISON_COQUE   =FACT(statut='f',min=1,max='**',
2288            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2289            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2290            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
2291            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
2292            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2293            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2294            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
2295            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
2296            NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
2297          ),
2298
2299
2300          VITE_FACE       =FACT(statut='f',min=1,max='**',
2301            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
2302                    PRESENT_ABSENT('GROUP_MA','MAILLE'),),
2303            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2304            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2305            VNOR            =SIMP(statut='o',typ=(fonction) ),
2306          ),
2307          IMPE_FACE       =FACT(statut='f',min=1,max='**',
2308            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
2309                    PRESENT_ABSENT('GROUP_MA','MAILLE'),),
2310            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2311            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2312            IMPE            =SIMP(statut='o',typ=(fonction) ),
2313          ),
2314          ONDE_PLANE      =FACT(statut='f',min=1,max='**',
2315            DIRECTION       =SIMP(statut='o',typ='R',max='**'),
2316            TYPE_ONDE       =SIMP(statut='o',typ='TXM' ),
2317            FONC_SIGNAL     =SIMP(statut='o',typ=(fonction) ),
2318            DIST_ORIG       =SIMP(statut='o',typ='R' ),
2319          ),
2320
2321
2322
2323          FLUX_THM_REP    =FACT(statut='f',min=1,max='**',
2324            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2325                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2326                    AU_MOINS_UN('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
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            FLUN            =SIMP(statut='f',typ=(fonction) ),
2331            FLUN_HYDR1      =SIMP(statut='f',typ=(fonction) ),
2332            FLUN_HYDR2      =SIMP(statut='f',typ=(fonction) ),
2333          ),
2334
2335          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
2336 )  ;
2337 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
2338 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2339 # ======================================================================
2340 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2341 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2342 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2343 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2344 # (AT YOUR OPTION) ANY LATER VERSION.
2345 #
2346 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2347 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2348 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2349 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2350 #
2351 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2352 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2353 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2354 # ======================================================================
2355 AFFE_CHAR_OPS011=OPER(nom="AFFE_CHAR_OPS011",op= 190,sd_prod=char_ther,
2356                       fr=" ",
2357                       docu="",reentrant='n',
2358             UIinfo={"groupes":("Outils métier",)},
2359          regles=(AU_MOINS_UN('CARA_TORSION', ),),
2360          MODELE          =SIMP(statut='o',typ=modele ),
2361          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",
2362                                into=("OUI","NON") ),
2363          CARA_TORSION    =FACT(statut='f',min=1,max='**',
2364            regles=(UN_PARMI('TOUT','GROUP_MA'),),
2365            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2366            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2367          ),
2368          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2369 )  ;
2370 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
2371 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2372 # ======================================================================
2373 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2374 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2375 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2376 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2377 # (AT YOUR OPTION) ANY LATER VERSION.
2378 #
2379 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2380 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2381 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2382 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2383 #
2384 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2385 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2386 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2387 # ======================================================================
2388 AFFE_CHAR_THER=OPER(nom="AFFE_CHAR_THER",op=34,sd_prod=char_ther
2389                     ,fr="Affectation de charges et conditions aux limites thermiques constantes",
2390                     docu="U4.44.02-g2",reentrant='n',
2391             UIinfo={"groupes":("Modélisation",)},
2392       regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','FLUX_REP','ECHANGE',
2393                           'ECHANGE_PAROI','GRAD_TEMP_INIT','LIAISON_DDL','LIAISON_GROUP',
2394                           'LIAISON_UNIF','LIAISON_CHAMNO','RAYONNEMENT','LIAISON_MAIL' ),),
2395          VERI_DDL        =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="OUI"),
2396          MODELE          =SIMP(statut='o',typ=(modele) ),
2397
2398          TEMP_IMPO       =FACT(statut='f',min=1,max='**',
2399            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
2400                    AU_MOINS_UN('TEMP_SUP','TEMP','TEMP_INF'),),
2401            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2402            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2403            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2404            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2405            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2406            TEMP            =SIMP(statut='f',typ='R'),
2407            TEMP_INF        =SIMP(statut='f',typ='R'),
2408            TEMP_SUP        =SIMP(statut='f',typ='R'), ),
2409
2410          FLUX_REP        =FACT(statut='f',min=1,max='**',
2411            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2412                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2413                    PRESENT_PRESENT('CARA_TORSION','GROUP_MA'),
2414                    AU_MOINS_UN('FLUN','FLUN_INF','FLUN_SUP','CARA_TORSION') ),
2415            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2416            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2417            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2418            FLUN            =SIMP(statut='f',typ='R'),
2419            FLUN_INF        =SIMP(statut='f',typ='R'),
2420            FLUN_SUP        =SIMP(statut='f',typ='R'),
2421            CARA_TORSION    =SIMP(statut='f',typ=tabl_aire_int ),
2422          ),
2423
2424
2425          RAYONNEMENT     =FACT(statut='f',min=1,max='**',
2426            fr="Attention, exprimer les températures en Celsius si rayonnement",
2427            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2428                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2429            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2430            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2431            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2432            SIGMA           =SIMP(statut='o',typ='R'),
2433            EPSILON         =SIMP(statut='o',typ='R'),
2434            TEMP_EXT        =SIMP(statut='o',typ='R'),
2435          ),
2436
2437          ECHANGE         =FACT(statut='f',min=1,max='**',
2438            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2439                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2440                    AU_MOINS_UN('COEF_H','COEF_H_INF','COEF_H_SUP'),
2441                    ENSEMBLE('COEF_H','TEMP_EXT',),
2442                    ENSEMBLE('COEF_H_INF','TEMP_EXT_INF'),
2443                              ENSEMBLE('COEF_H_SUP','TEMP_EXT_SUP'),),
2444            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2445            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2446            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2447            COEF_H          =SIMP(statut='f',typ='R'),
2448            TEMP_EXT        =SIMP(statut='f',typ='R'),
2449            COEF_H_INF      =SIMP(statut='f',typ='R'),
2450            TEMP_EXT_INF    =SIMP(statut='f',typ='R'),
2451            COEF_H_SUP      =SIMP(statut='f',typ='R'),
2452            TEMP_EXT_SUP    =SIMP(statut='f',typ='R'),
2453          ),
2454
2455          SOURCE          =FACT(statut='f',min=1,max='**',
2456            regles=(UN_PARMI('SOUR','SOUR_CALCULEE',),
2457                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2458                    PRESENT_ABSENT('SOUR_CALCULEE','TOUT','GROUP_MA','MAILLE'),),
2459            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2460            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2461            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2462            SOUR            =SIMP(statut='f',typ='R'),
2463            SOUR_CALCULEE   =SIMP(statut='f',typ=(cham_elem_sour_r) ),
2464          ),
2465
2466          GRAD_TEMP_INIT  =FACT(statut='f',min=1,max='**',
2467            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2468                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2469                    AU_MOINS_UN('FLUX_X','FLUX_Y','FLUX_Z'),),
2470            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2471            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2472            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2473            FLUX_X          =SIMP(statut='f',typ='R' ),
2474            FLUX_Y          =SIMP(statut='f',typ='R' ),
2475            FLUX_Z          =SIMP(statut='f',typ='R' ),
2476                          ),
2477
2478          LIAISON_DDL     =FACT(statut='f',min=1,max='**',
2479            regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
2480            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2481            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2482            DDL             =SIMP(statut='f',typ='TXM',max='**',
2483                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2484            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
2485            COEF_IMPO       =SIMP(statut='o',typ='R' ),
2486          ),
2487
2488          LIAISON_GROUP   =FACT(statut='f',min=1,max='**',
2489            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
2490                    UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
2491                              EXCLUS('GROUP_MA_1','GROUP_NO_2'),
2492                              EXCLUS('GROUP_MA_1','NOEUD_2'),
2493                    EXCLUS('GROUP_NO_1','GROUP_MA_2'),
2494                              EXCLUS('GROUP_NO_1','MAILLE_2'),
2495                              EXCLUS('MAILLE_1','GROUP_NO_2'),
2496                              EXCLUS('MAILLE_1','NOEUD_2'),
2497                              EXCLUS('NOEUD_1','GROUP_MA_2'),
2498                              EXCLUS('NOEUD_1','MAILLE_2'),
2499                              EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
2500            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2501            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2502            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
2503            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
2504            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2505            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2506            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
2507            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
2508            SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
2509            SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
2510            DDL_1           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2511                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2512            COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
2513            DDL_2           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2514                                  into=("TEMP","TEMP_INF","TEMP_SUP",) ),
2515            COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
2516            COEF_IMPO       =SIMP(statut='o',typ='R' ),
2517            SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2518            TRAN            =SIMP(statut='f',typ='R',max='**'),
2519            ANGL_NAUT       =SIMP(statut='f',typ='R',max='**'),
2520            CENTRE          =SIMP(statut='f',typ='R',max='**'),
2521          ),
2522
2523          LIAISON_MAIL    =FACT(statut='f',min=1,max='**',
2524            regles=(AU_MOINS_UN('GROUP_MA_MAIT','MAILLE_MAIT'),
2525                    AU_MOINS_UN('GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL',
2526                                'NOEUD_ESCL'),),
2527            GROUP_MA_MAIT   =SIMP(statut='f',typ=grma,max='**'),
2528            MAILLE_MAIT     =SIMP(statut='f',typ=ma,max='**'),
2529            GROUP_MA_ESCL   =SIMP(statut='f',typ=grma,max='**'),
2530            MAILLE_ESCL     =SIMP(statut='f',typ=ma,max='**'),
2531            GROUP_NO_ESCL   =SIMP(statut='f',typ=grno,max='**'),
2532            NOEUD_ESCL      =SIMP(statut='f',typ=no,max='**'),
2533            TRAN            =SIMP(statut='f',typ='R',max='**' ),
2534            ANGL_NAUT       =SIMP(statut='f',typ='R',max='**' ),
2535            CENTRE          =SIMP(statut='f',typ='R',max='**' ),
2536          ),
2537
2538          ECHANGE_PAROI   =FACT(statut='f',min=1,max='**',
2539            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
2540                    UN_PARMI('GROUP_MA_2','MAILLE_2'),),
2541            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2542            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2543            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2544            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2545            COEF_H          =SIMP(statut='f',typ='R'),
2546            TRAN            =SIMP(statut='f',typ='R',min=2,max=3),
2547            ANGL_NAUT       =SIMP(statut='f',typ='R',min=1,max=3),
2548            CENTRE          =SIMP(statut='f',typ='R',min=2,max=3),
2549                          ),
2550
2551          LIAISON_UNIF    =FACT(statut='f',min=1,max='**',
2552            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
2553            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2554            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2555            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2556            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2557            DDL             =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2558                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2559          ),
2560
2561          LIAISON_CHAMNO  =FACT(statut='f',min=1,max='**',
2562            CHAM_NO         =SIMP(statut='o',typ=cham_no),# CO()# "il faut definir une structure de donnee generique chamno"
2563            COEF_IMPO       =SIMP(statut='o',typ='R' ),
2564            NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
2565          ),
2566
2567          CONVECTION      =FACT(statut='f',min=1,max='**',
2568            VITESSE         =SIMP(statut='o',typ=(cham_no_depl_r) ),
2569          ),
2570
2571
2572          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2573 )  ;
2574 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
2575 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2576 # ======================================================================
2577 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2578 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2579 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2580 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2581 # (AT YOUR OPTION) ANY LATER VERSION.
2582 #
2583 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2584 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2585 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2586 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2587 #
2588 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2589 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2590 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2591 # ======================================================================
2592 AFFE_CHAR_THER_F=OPER(nom="AFFE_CHAR_THER_F",op=33,sd_prod=char_ther,
2593                      fr="Affectation de charges et conditions aux limites thermiques fonction dune grandeur (temps, ...)",
2594                      docu="U4.44.02-g2",reentrant='n',
2595             UIinfo={"groupes":("Modélisation",)},
2596       regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','FLUX_REP','FLUX_NL','ECHANGE',
2597                           'ECHANGE_PAROI','LIAISON_DDL','LIAISON_GROUP','LIAISON_UNIF',
2598                           'GRAD_TEMP_INIT','RAYONNEMENT'),),
2599          VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
2600          MODELE          =SIMP(statut='o',typ=(modele) ),
2601
2602          TEMP_IMPO       =FACT(statut='f',min=1,max='**',
2603            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
2604                    AU_MOINS_UN('TEMP_SUP','TEMP','TEMP_INF','EVOL_THER'),
2605                    PRESENT_ABSENT('EVOL_THER','TEMP','TEMP_INF','TEMP_SUP'),),
2606            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2607            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2608            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2609            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2610            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2611            EVOL_THER       =SIMP(statut='f',typ=(evol_ther) ),
2612            DDL             =SIMP(statut='f',typ='TXM',into=("TEMP",) ),
2613            TEMP            =SIMP(statut='f',typ=(fonction) ),
2614            TEMP_INF        =SIMP(statut='f',typ=(fonction) ),
2615            TEMP_SUP        =SIMP(statut='f',typ=(fonction) ),
2616          ),
2617
2618          FLUX_REP        =FACT(statut='f',min=1,max='**',
2619            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2620                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2621                    AU_MOINS_UN('FLUN','FLUN_INF','FLUN_SUP','FLUX_X','FLUX_Y','FLUX_Z'),),
2622            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2623            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2624            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2625            FLUN            =SIMP(statut='f',typ=(fonction) ),
2626            FLUN_INF        =SIMP(statut='f',typ=(fonction) ),
2627            FLUN_SUP        =SIMP(statut='f',typ=(fonction) ),
2628            FLUX_X          =SIMP(statut='f',typ=(fonction) ),
2629            FLUX_Y          =SIMP(statut='f',typ=(fonction) ),
2630            FLUX_Z          =SIMP(statut='f',typ=(fonction) ),
2631          ),
2632
2633          FLUX_NL         =FACT(statut='f',min=1,max='**',
2634            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2635                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2636            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2637            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2638            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2639            FLUN            =SIMP(statut='o',typ=(fonction) ),
2640          ),
2641
2642
2643          RAYONNEMENT     =FACT(statut='f',min=1,max='**',
2644            fr="Attention, exprimer les températures en Celsius si rayonnement",
2645            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2646                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
2647            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2648            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2649            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2650            SIGMA           =SIMP(statut='o',typ=(fonction) ),
2651            EPSILON         =SIMP(statut='o',typ=(fonction) ),
2652            TEMP_EXT        =SIMP(statut='o',typ=(fonction) ),
2653          ),
2654
2655
2656
2657          ECHANGE         =FACT(statut='f',min=1,max='**',
2658            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2659                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2660                    AU_MOINS_UN('COEF_H','COEF_H_INF','COEF_H_SUP'),
2661                    ENSEMBLE('COEF_H','TEMP_EXT'),
2662                    ENSEMBLE('COEF_H_INF','TEMP_EXT_INF'),
2663                    ENSEMBLE('COEF_H_SUP','TEMP_EXT_SUP'),),
2664            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2665            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2666            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2667            COEF_H          =SIMP(statut='f',typ=(fonction) ),
2668            TEMP_EXT        =SIMP(statut='f',typ=(fonction) ),
2669            COEF_H_INF      =SIMP(statut='f',typ=(fonction) ),
2670            TEMP_EXT_INF    =SIMP(statut='f',typ=(fonction) ),
2671            COEF_H_SUP      =SIMP(statut='f',typ=(fonction) ),
2672            TEMP_EXT_SUP    =SIMP(statut='f',typ=(fonction) ),
2673          ),
2674
2675
2676          SOURCE          =FACT(statut='f',min=1,max='**',
2677            regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),),
2678            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2679            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2680            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2681            SOUR            =SIMP(statut='o',typ=(fonction) ),
2682          ),
2683
2684          GRAD_TEMP_INIT  =FACT(statut='f',min=1,max='**',
2685            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
2686                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
2687                    AU_MOINS_UN('FLUX_X','FLUX_Y','FLUX_Z'),),
2688            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2689            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2690            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2691            FLUX_X          =SIMP(statut='f',typ=(fonction) ),
2692            FLUX_Y          =SIMP(statut='f',typ=(fonction) ),
2693            FLUX_Z          =SIMP(statut='f',typ=(fonction) ),
2694          ),
2695
2696          ECHANGE_PAROI   =FACT(statut='f',min=1,max='**',
2697            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1'),
2698                         UN_PARMI('GROUP_MA_2','MAILLE_2'),),
2699            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2700            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2701            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2702            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2703            COEF_H          =SIMP(statut='o',typ=(fonction) ),
2704            TRAN            =SIMP(statut='f',typ='R',min=2,max=3),
2705            ANGL_NAUT       =SIMP(statut='f',typ='R',min=1,max=3),
2706            CENTRE          =SIMP(statut='f',typ='R',min=2,max=3),
2707          ),
2708
2709         LIAISON_DDL     =FACT(statut='f',min=1,max='**',
2710            regles=(UN_PARMI('GROUP_NO','NOEUD'),),
2711            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2712            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2713            DDL             =SIMP(statut='f',typ='TXM',max='**',into=("TEMP","TEMP_INF","TEMP_SUP") ),
2714            COEF_MULT       =SIMP(statut='o',typ='R',max='**'),
2715            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
2716          ),
2717
2718          LIAISON_GROUP   =FACT(statut='f',min=1,max='**',
2719            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
2720                    UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
2721                              EXCLUS('GROUP_MA_1','GROUP_NO_2'),
2722                         EXCLUS('GROUP_MA_1','NOEUD_2'),
2723                    EXCLUS('GROUP_NO_1','GROUP_MA_2'),
2724                         EXCLUS('GROUP_NO_1','MAILLE_2'),
2725                         EXCLUS('MAILLE_1','GROUP_NO_2'),
2726                         EXCLUS('MAILLE_1','NOEUD_2'),
2727                         EXCLUS('NOEUD_1','GROUP_MA_2'),
2728                         EXCLUS('NOEUD_1','MAILLE_2'),
2729                         EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
2730            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
2731            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
2732            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
2733            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
2734            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
2735            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
2736            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
2737            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
2738            SANS_NOEUD      =SIMP(statut='f',typ=no,max='**'),
2739            SANS_GROUP_NO   =SIMP(statut='f',typ=grno,max='**'),
2740            DDL_1           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2741                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2742            COEF_MULT_1     =SIMP(statut='o',typ='R',max='**'),
2743            DDL_2           =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2744                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2745            COEF_MULT_2     =SIMP(statut='o',typ='R',max='**'),
2746            COEF_IMPO       =SIMP(statut='o',typ=(fonction) ),
2747            SOMMET          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2748            TRAN            =SIMP(statut='f',typ='R',max='**'),
2749            ANGL_NAUT       =SIMP(statut='f',typ='R',max='**'),
2750            CENTRE          =SIMP(statut='f',typ='R',max='**'),
2751          ),
2752
2753          LIAISON_UNIF    =FACT(statut='f',min=1,max='**',
2754            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
2755            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2756            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2757            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2758            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2759            DDL             =SIMP(statut='f',typ='TXM',max='**',defaut="TEMP",
2760                                  into=("TEMP","TEMP_INF","TEMP_SUP") ),
2761          ),
2762
2763          CONVECTION      =FACT(statut='f',min=1,max='**',
2764            VITESSE         =SIMP(statut='o',typ=(cham_no_depl_r) ),
2765          ),
2766
2767          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
2768 )  ;
2769 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
2770 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2771 # ======================================================================
2772 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2773 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2774 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2775 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2776 # (AT YOUR OPTION) ANY LATER VERSION.
2777 #
2778 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2779 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2780 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2781 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2782 #
2783 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2784 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2785 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2786 # ======================================================================
2787 # RESPONSABLE VABHHTS J.PELLET
2788 AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
2789                    fr="Affectation de caractéristiques de matériaux à un maillage",
2790                          docu="U4.43.03-f",reentrant='n',
2791             UIinfo={"groupes":("Modélisation",)},
2792          MAILLAGE        =SIMP(statut='o',typ=maillage),
2793          MODELE          =SIMP(statut='f',typ=modele),
2794          AFFE            =FACT(statut='o',min=1,max='**',
2795            regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
2796            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2797            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2798            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2799            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2800            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2801            MATER           =SIMP(statut='o',typ=mater),
2802            TEMP_REF        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
2803          ),
2804 )  ;
2805 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
2806 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2807 # ======================================================================
2808 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2809 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2810 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2811 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2812 # (AT YOUR OPTION) ANY LATER VERSION.
2813 #
2814 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2815 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2816 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2817 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2818 #
2819 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2820 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2821 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2822 # ======================================================================
2823 # RESPONSABLE JMBHH01 J.M.PROIX
2824 AFFE_MODELE=OPER(nom="AFFE_MODELE",op=18,sd_prod=modele,docu="U4.41.01-g3",
2825             UIinfo={"groupes":("Modélisation",)},
2826                  fr="Affectation des éléments finis sur le maillage",reentrant='n',
2827          regles=(AU_MOINS_UN('AFFE','AFFE_SOUS_STRUC'),),
2828          MAILLAGE        =SIMP(statut='o',typ=(maillage) ),
2829          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
2830          VERIF           =SIMP(statut='f',typ='TXM',max=2,into=("MAILLE","NOEUD") ),
2831          AFFE_SOUS_STRUC =FACT(statut='f',min=1,max=1,
2832            regles=(UN_PARMI('TOUT','MAILLE'),),
2833            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2834            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2835            PHENOMENE       =SIMP(statut='f',typ='TXM',defaut="MECANIQUE",into=("MECANIQUE",) ),
2836          ),
2837          AFFE            =FACT(statut='f',min=1,max='**',
2838            regles=(UN_PARMI('TOUT','GROUP_MA','GROUP_NO','MAILLE','NOEUD'),),
2839            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
2840            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
2841            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
2842            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
2843            NOEUD           =SIMP(statut='f',typ=no,max='**'),
2844            PHENOMENE       =SIMP(statut='o',typ='TXM',
2845                                  into=("MECANIQUE","THERMIQUE","ACOUSTIQUE") ),
2846                 b_mecanique     =BLOC( condition = "PHENOMENE=='MECANIQUE'",
2847                                         fr="modelisations mécaniques",
2848                     MODELISATION    =SIMP(statut='o',typ='TXM', into=(
2849                                                                       "2D_DIS_T",
2850                                                                       "2D_DIS_TR",
2851                                                                       "2D_FLUI_ABSO",
2852                                                                       "2D_FLUI_PESA",
2853                                                                       "2D_FLUI_STRU",
2854                                                                       "2D_FLUIDE",
2855                                                                       "3D",
2856                                                                       "3D_ABSO",
2857                                                                       "3D_FAISCEAU",
2858                                                                       "3D_FLUI_ABSO",
2859                                                                       "3D_FLUIDE",
2860                                                                       "3D_HHM" ,
2861                                                                       "3D_HM",
2862                                                                       "3D_INCO",
2863                                                                       "3D_JOINT_CT",
2864                                                                       "3D_SI",
2865                                                                       "3D_THH",
2866                                                                       "3D_THHM",
2867                                                                       "3D_THM",
2868                                                                       "3D_GRAD_EPSI",
2869                                                                       "3D_GRAD_VARI",
2870                                                                       "APPUI_REP",
2871                                                                       "ASSE_GRIL",
2872                                                                       "AXIS",
2873                                                                       "AXIS_FLUI_STRU",
2874                                                                       "AXIS_FLUIDE",
2875                                                                       "AXIS_FOURIER",
2876                                                                       "AXIS_HHM",
2877                                                                       "AXIS_HM",
2878                                                                       "AXIS_INCO",
2879                                                                       "AXIS_SI",
2880                                                                       "AXIS_THH",
2881                                                                       "AXIS_THHM",
2882                                                                       "AXIS_THM",
2883                                                                       "AXIS_GRAD_VARI",
2884                                                                       "AXIS_FISSURE",
2885                                                                       "BARRE",
2886                                                                       "2D_BARRE",
2887                                                                       "C_PLAN",
2888                                                                       "C_PLAN_SI",
2889                                                                       "C_PLAN_GRAD_EPSI",
2890                                                                       "C_PLAN_GRAD_VARI",
2891                                                                       "CABLE",
2892                                                                       "CABLE_POULIE",
2893                                                                       "COQUE_3D",
2894                                                                       "COQUE_AXIS",
2895                                                                       "COQUE_C_PLAN",
2896                                                                       "COQUE_D_PLAN",
2897                                                                       "D_PLAN",
2898                                                                       "D_PLAN_GRAD_EPSI",
2899                                                                       "D_PLAN_GRAD_VARI",
2900                                                                       "PLAN_FISSURE",
2901                                                                       "D_PLAN_ABSO",
2902                                                                       "D_PLAN_HHM",
2903                                                                       "D_PLAN_HM",
2904                                                                       "D_PLAN_INCO",
2905                                                                       "D_PLAN_SI",
2906                                                                       "D_PLAN_THH",
2907                                                                       "D_PLAN_THHM",
2908                                                                       "D_PLAN_THM",
2909                                                                        "3D_HHMD",
2910                                                                        "3D_HMD",
2911                                                                        "3D_THHD",
2912                                                                        "3D_THVD",
2913                                                                        "3D_THHMD",
2914                                                                        "3D_THMD",
2915                                                                        "AXIS_HHMD",
2916                                                                        "AXIS_HMD",
2917                                                                        "AXIS_THHD",
2918                                                                        "AXIS_THVD",
2919                                                                        "AXIS_THHMD",
2920                                                                        "AXIS_THMD",
2921                                                                        "D_PLAN_HHMD",
2922                                                                        "D_PLAN_HMD",
2923                                                                        "D_PLAN_THHD",
2924                                                                        "D_PLAN_THVD",
2925                                                                        "D_PLAN_THHMD",
2926                                                                        "D_PLAN_THMD",
2927                                                                       "DIS_T",
2928                                                                       "DIS_TR",
2929                                                                       "DKT",
2930                                                                       "DST",
2931                                                                       "FLUI_STRU",
2932                                                                       "GRILLE",
2933                                                                       "POU_C_T",
2934                                                                       "POU_D_E",
2935                                                                       "POU_D_EM",
2936                                                                       "POU_D_T",
2937                                                                       "POU_D_T_GD",
2938                                                                       "POU_D_TG",
2939                                                                       "POU_D_TGM",
2940                                                                       "Q4G",
2941                                                                       "TUYAU_3M",
2942                                                                       "TUYAU_6M"
2943                                                                      )  )  ),
2944
2945                 b_thermique     =BLOC( condition = "PHENOMENE=='THERMIQUE'",
2946                                         fr="modelisations thermiques",
2947                     MODELISATION    =SIMP(statut='o',typ='TXM',into=(
2948                                                                       "3D",
2949                                                                       "3D_DIAG",
2950                                                                       "AXIS",
2951                                                                       "AXIS_DIAG",
2952                                                                       "AXIS_FOURIER",
2953                                                                       "COQUE",
2954                                                                       "COQUE_AXIS",
2955                                                                       "COQUE_PLAN",
2956                                                                       "PLAN",
2957                                                                       "PLAN_DIAG",
2958                                                                       ),),),
2959
2960                 b_acoustique    =BLOC( condition = "PHENOMENE=='ACOUSTIQUE'",
2961                                         fr="modelisations acoustiques",
2962                      MODELISATION    =SIMP(statut='o',typ='TXM',into=(
2963                                                                        "3D",
2964                                                                        "PLAN"
2965                                                                        ), ),),
2966
2967          ),
2968 ) ;
2969 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
2970 #            CONFIGURATION MANAGEMENT OF EDF VERSION
2971 # ======================================================================
2972 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
2973 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
2974 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
2975 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
2976 # (AT YOUR OPTION) ANY LATER VERSION.
2977 #
2978 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
2979 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
2980 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
2981 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
2982 #
2983 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
2984 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
2985 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
2986 # ======================================================================
2987 AIDE=PROC(nom="AIDE",op=42,docu="U4.02.01-g1",
2988             UIinfo={"groupes":("Modélisation",)},
2989           fr="Interrogation sur le catalogue des commandes et les concepts produits",
2990          regles=(AU_MOINS_UN('CONCEPT','TYPE_ELEM', ),),
2991          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
2992          TYPE_ELEM       =FACT(fr="couple type_elem option",
2993                                statut='f',min=1,max=1,
2994            INITEL          =SIMP(statut='f',typ='TXM',defaut="NON",
2995                                  into=("OUI","NON",) ),
2996          ),
2997          CONCEPT         =FACT(statut='f',min=1,max='**',
2998            NOM             =SIMP(fr="liste des noms de concept",
2999                                  statut='f',typ='TXM',max='**',defaut="*"),
3000            OPTION          =SIMP(fr="option d'édition de concept",
3001                                  statut='f',typ='TXM',defaut="TOUT_TYPE",
3002                                  into=("TOUT_TYPE","CREER","A_CREER",) ),
3003          ),
3004 ) ;
3005 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
3006 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3007 # ======================================================================
3008 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3009 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3010 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3011 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3012 # (AT YOUR OPTION) ANY LATER VERSION.
3013 #
3014 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3015 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3016 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3017 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3018 #
3019 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3020 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3021 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3022 # ======================================================================
3023 # RESPONSABLE VABHHTS J.PELLET
3024 ASSE_MAILLAGE=OPER(nom="ASSE_MAILLAGE",op= 105,sd_prod=maillage,
3025                    fr="Assembler deux maillages sous un seul nom",
3026                    docu="U4.23.03-e",reentrant='n',
3027             UIinfo={"groupes":("Maillage",)},
3028          MAILLAGE        =SIMP(statut='o',typ=maillage,min=2,max=2 ),
3029 )  ;
3030 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
3031 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3032 # ======================================================================
3033 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3034 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3035 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3036 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3037 # (AT YOUR OPTION) ANY LATER VERSION.
3038 #
3039 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3040 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3041 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3042 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3043 #
3044 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3045 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3046 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3047 # ======================================================================
3048 ASSE_MATR_GENE=OPER(nom="ASSE_MATR_GENE",op= 128,sd_prod=matr_asse_gene_r,
3049                     fr="Assemblage des matrices généralisées de macro éléments pour construction de la matrice globale généralisée",
3050                     docu="U4.65.04-d",reentrant='n',
3051             UIinfo={"groupes":("Matrices/vecteurs",)},
3052          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
3053          OPTION          =SIMP(statut='o',typ='TXM',into=("RIGI_GENE","MASS_GENE","AMOR_GENE") ),
3054 )  ;
3055 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
3056 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3057 # ======================================================================
3058 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3059 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3060 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3061 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3062 # (AT YOUR OPTION) ANY LATER VERSION.
3063 #
3064 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3065 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3066 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3067 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3068 #
3069 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3070 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3071 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3072 # ======================================================================
3073 # RESPONSABLE VABHHTS J.PELLET
3074 def asse_matrice_prod(MATR_ELEM,**args):
3075   if AsType(MATR_ELEM) == matr_elem_depl_r : return matr_asse_depl_r
3076   if AsType(MATR_ELEM) == matr_elem_depl_c : return matr_asse_depl_c
3077   if AsType(MATR_ELEM) == matr_elem_temp_r : return matr_asse_temp_r
3078   if AsType(MATR_ELEM) == matr_elem_pres_c : return matr_asse_pres_c
3079   raise AsException("type de concept resultat non prevu")
3080
3081 ASSE_MATRICE=OPER(nom="ASSE_MATRICE",op=12,sd_prod=asse_matrice_prod,
3082                   fr="Construction d une matrice assemblée",docu="U4.61.22-f",reentrant='n',
3083             UIinfo={"groupes":("Matrices/vecteurs",)},
3084          MATR_ELEM       =SIMP(statut='o',
3085                                typ=(matr_elem_depl_r,matr_elem_depl_c,matr_elem_temp_r,matr_elem_pres_c) ),
3086          NUME_DDL        =SIMP(statut='o',typ=nume_ddl),
3087          CHAR_CINE       =SIMP(statut='f',typ=(char_cine_meca,char_cine_ther,char_cine_acou) ),
3088          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
3089 )  ;
3090 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
3091 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3092 # ======================================================================
3093 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3094 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3095 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3096 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3097 # (AT YOUR OPTION) ANY LATER VERSION.
3098 #
3099 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3100 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3101 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3102 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3103 #
3104 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3105 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3106 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3107 # ======================================================================
3108 ASSE_VECT_GENE=OPER(nom="ASSE_VECT_GENE",op= 140,sd_prod=vect_asse_gene,
3109                     fr="Assemblage de vecteurs de chargement en coordonnées généralisées",
3110                     docu="U4.65.05-d",reentrant='n',
3111             UIinfo={"groupes":("Matrices/vecteurs",)},
3112          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
3113          CHAR_SOUS_STRUC =FACT(statut='o',min=1,max='**',
3114            SOUS_STRUC      =SIMP(statut='o',typ='TXM' ),
3115            VECT_ASSE       =SIMP(statut='o',typ=cham_no_depl_r ),
3116          ),
3117 )  ;
3118 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
3119 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3120 # ======================================================================
3121 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3122 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3123 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3124 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3125 # (AT YOUR OPTION) ANY LATER VERSION.
3126 #
3127 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3128 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3129 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3130 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3131 #
3132 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3133 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3134 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3135 # ======================================================================
3136 # RESPONSABLE VABHHTS J.PELLET
3137 def asse_vecteur_prod(VECT_ELEM,**args):
3138   if AsType(VECT_ELEM) == vect_elem_depl_r : return cham_no_depl_r
3139   if AsType(VECT_ELEM) == vect_elem_temp_r : return cham_no_temp_r
3140   if AsType(VECT_ELEM) == vect_elem_pres_r : return cham_no_pres_r
3141   if AsType(VECT_ELEM) == vect_elem_pres_c : return cham_no_pres_c
3142   raise AsException("type de concept resultat non prevu ")
3143
3144 ASSE_VECTEUR=OPER(nom="ASSE_VECTEUR",op=13,sd_prod=asse_vecteur_prod,
3145                   fr="Assemblage d un second membre",docu="U4.61.23-f",reentrant='n',
3146             UIinfo={"groupes":("Matrices/vecteurs",)},
3147          VECT_ELEM       =SIMP(statut='o',typ=vect_elem,max='**'),
3148          NUME_DDL        =SIMP(statut='o',typ=nume_ddl ),
3149          INFO            =SIMP(statut='f',typ='I',into=(1,2,) ),
3150 )  ;
3151 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
3152 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3153 # ======================================================================
3154 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3155 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3156 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3157 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3158 # (AT YOUR OPTION) ANY LATER VERSION.
3159 #
3160 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3161 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3162 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3163 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3164 #
3165 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3166 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3167 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3168 # ======================================================================
3169 CALC_AMOR_MODAL=OPER(nom="CALC_AMOR_MODAL",op= 172,sd_prod=listr8,
3170                      fr="Création d'une liste d'amortissements modaux calculés selon la règle du RCC-G",
3171                      docu="U4.52.13-c",reentrant='n',
3172             UIinfo={"groupes":("Résolution",)},
3173          ENER_SOL        =FACT(statut='o',min=1,max=1,
3174            regles=(UN_PARMI('GROUP_NO_RADIER','GROUP_MA_RADIER'),
3175                    PRESENT_ABSENT('COEF_GROUP','FONC_GROUP'),
3176 #  Peut-on remplacer les deux règles suivantes par un ENSEMBLE_('KRX','KRY','KRZ')
3177                    PRESENT_PRESENT('KRX','KRY'),
3178                    PRESENT_PRESENT('KRX','KRZ'),
3179                    PRESENT_ABSENT('COOR_CENTRE','NOEUD_CENTRE'),
3180                    PRESENT_ABSENT('GROUP_NO_CENTRE','NOEUD_CENTRE'),
3181                    PRESENT_ABSENT('GROUP_NO_CENTRE','COOR_CENTRE'),),
3182            METHODE         =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","RIGI_PARASOL") ),
3183            MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
3184            GROUP_NO_RADIER =SIMP(statut='f',typ=grno,max='**'),
3185            GROUP_MA_RADIER =SIMP(statut='f',typ=grma,max='**'),
3186            FONC_GROUP      =SIMP(statut='f',typ=fonction ),
3187            COEF_GROUP      =SIMP(statut='f',typ='R',max='**'),
3188            KX              =SIMP(statut='o',typ='R' ),
3189            KY              =SIMP(statut='o',typ='R' ),
3190            KZ              =SIMP(statut='o',typ='R' ),
3191            KRX             =SIMP(statut='f',typ='R' ),
3192            KRY             =SIMP(statut='f',typ='R' ),
3193            KRZ             =SIMP(statut='f',typ='R' ),
3194            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno),
3195            NOEUD_CENTRE    =SIMP(statut='f',typ=no),
3196            COOR_CENTRE     =SIMP(statut='f',typ='R',max=3),
3197          ),
3198          AMOR_INTERNE    =FACT(statut='o',min=1,max=1,
3199            ENER_POT        =SIMP(statut='o',typ=tabl_ener_pot ),
3200            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
3201            AMOR_REDUIT     =SIMP(statut='o',typ='R',max='**'),
3202          ),
3203          AMOR_SOL        =FACT(statut='o',min=1,max=1,
3204            AMOR_REDUIT     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3205            FONC_AMOR_GEO   =SIMP(statut='o',typ=fonction,max='**' ),
3206            HOMOGENE        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
3207            SEUIL           =SIMP(statut='f',typ='R',defaut= 0.3 ),
3208          ),
3209 )  ;
3210 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
3211 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3212 # ======================================================================
3213 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3214 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3215 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3216 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3217 # (AT YOUR OPTION) ANY LATER VERSION.
3218 #
3219 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3220 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3221 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3222 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3223 #
3224 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3225 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3226 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3227 # ======================================================================
3228 # RESPONSABLE JMBHH01 J.M.PROIX
3229 def calc_cham_elem_prod(OPTION,**args):
3230
3231 # options mecaniques
3232   if OPTION == "DEGE_ELNO_DEPL" : return cham_elem_epsi_r
3233   if OPTION == "ECIN_ELEM_DEPL" : return cham_elem_ener_r
3234   if OPTION == "EFGE_ELNO_CART" : return cham_elem_sief_r
3235   if OPTION == "EFGE_ELNO_DEPL" : return cham_elem_sief_r
3236   if OPTION == "ENDO_ELNO_SIGM" : return cham_elem_sief_r
3237   if OPTION == "EPOT_ELEM_DEPL" : return cham_elem_ener_r
3238   if OPTION == "ENEL_ELGA" :      return cham_elem_ener_r
3239   if OPTION == "ENEL_ELNO_ELGA" : return cham_elem_ener_r
3240   if OPTION == "EPSI_ELNO_DEPL" : return cham_elem_epsi_r
3241   if OPTION == "EQUI_ELGA_EPSI" : return cham_elem_epsi_r
3242   if OPTION == "EQUI_ELGA_SIGM" : return cham_elem_sief_r
3243   if OPTION == "EQUI_ELNO_EPSI" : return cham_elem_epsi_r
3244   if OPTION == "EQUI_ELNO_SIGM" : return cham_elem_sief_r
3245   if OPTION == "PRES_DBEL_DEPL" : return cham_elem_dbel_r
3246   if OPTION == "SIEF_ELGA_DEPL" : return cham_elem_sief_r
3247   if OPTION == "SIEF_ELGA_LAGR" : return cham_elem_sief_r
3248   if OPTION == "SIGM_ELNO_CART" : return cham_elem_sief_r
3249   if OPTION == "SIGM_ELNO_DEPL" : return cham_elem_sief_r
3250   if OPTION == "SIGM_ELNO_LAGR" : return cham_elem_sief_r
3251   if OPTION == "SIPO_ELNO_DEPL" : return cham_elem_sief_r
3252
3253 # options thermiques
3254
3255   if OPTION == "FLUX_ELGA_TEMP" : return cham_elem_flux_r
3256   if OPTION == "FLUX_ELNO_TEMP" : return cham_elem_flux_r
3257   if OPTION == "SOUR_ELGA_ELEC" : return cham_elem_sour_r
3258
3259 # options acoustiques
3260
3261   if OPTION == "PRES_ELNO_DBEL" : return cham_elem_dbel_r
3262   if OPTION == "PRES_ELNO_REEL" : return cham_elem_pres_r
3263   if OPTION == "PRES_ELNO_IMAG" : return cham_elem_pres_r
3264
3265 # autres options
3266
3267   if OPTION == "COOR_ELGA" :      return cham_elem_geom_r
3268
3269   raise AsException("type de concept resultat non prevu")
3270
3271 CALC_CHAM_ELEM=OPER(nom="CALC_CHAM_ELEM",op=38,sd_prod=calc_cham_elem_prod,
3272                     fr="Calcul de champs par éléments à partir de champs solution ou de champs par éléments",
3273                     docu="U4.81.03-g1",reentrant='n',
3274             UIinfo={"groupes":("Post traitements",)},
3275          MODELE          =SIMP(statut='o',typ=modele),
3276          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
3277          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
3278
3279          regles=(EXCLUS('TOUT','GROUP_MA',),EXCLUS('TOUT','MAILLE',),),
3280          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3281          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
3282          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
3283
3284 #
3285 #
3286 #  introduire un mot cle de type modelisation : mécanique,thermique,...
3287 #
3288
3289          OPTION          =SIMP(statut='o',typ='TXM',
3290                                into=("DEGE_ELNO_DEPL","ECIN_ELEM_DEPL","EFGE_ELNO_CART",
3291                                      "EFGE_ELNO_DEPL","ENDO_ELNO_SIGM","EPOT_ELEM_DEPL",
3292                                      "ENEL_ELGA",     "ENEL_ELNO_ELGA","EPSI_ELNO_DEPL",
3293                                      "EQUI_ELGA_EPSI","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI",
3294                                      "EQUI_ELNO_SIGM","PRES_DBEL_DEPL","SIEF_ELGA_DEPL",
3295                                      "SIEF_ELGA_LAGR","SIGM_ELNO_CART","SIGM_ELNO_DEPL",
3296                                      "SIGM_ELNO_LAGR","SIPO_ELNO_DEPL",
3297                                      "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","SOUR_ELGA_ELEC",
3298                                      "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG",
3299                                      "COOR_ELGA"), ),
3300
3301          b_dege_elno_depl  =BLOC(condition="OPTION=='DEGE_ELNO_DEPL'",
3302            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
3303            PLAN            =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
3304          ),
3305
3306          b_ecin_elem_depl  =BLOC(condition="OPTION=='ECIN_ELEM_DEPL'",
3307            regles=(UN_PARMI('VITE','DEPL',),ENSEMBLE('DEPL','FREQ',),),
3308            FREQ            =SIMP(statut='f',typ='R'),
3309            VITE            =SIMP(statut='f',typ=cham_no_depl_r),
3310            DEPL            =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_depl_c)),
3311          ),
3312
3313          b_efge_elno_cart  =BLOC(condition="OPTION=='EFGE_ELNO_CART'",
3314            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3315            PLAN            =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
3316          ),
3317
3318          b_efge_elno_depl  =BLOC(condition="OPTION=='EFGE_ELNO_DEPL'",
3319            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
3320            PLAN            =SIMP(statut='o',typ='TXM',defaut="MAIL", into=("SUP","INF","MOY","MAIL"), ),
3321          ),
3322
3323          b_endo_elno_sigm  =BLOC(condition="OPTION=='ENDO_ELNO_SIGM'",
3324            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3325          ),
3326
3327          b_epot_elem_depl  =BLOC(condition="OPTION=='EPOT_ELEM_DEPL'",
3328            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
3329          ),
3330
3331          b_enel_elga       =BLOC(condition="OPTION=='ENEL_ELGA'",
3332            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3333          ),
3334
3335          b_enel_elno_elga  =BLOC(condition="OPTION=='ENEL_ELNO_ELGA'",
3336            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3337          ),
3338
3339          b_epsi_elno_depl  =BLOC(condition="OPTION=='EPSI_ELNO_DEPL'",
3340            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
3341          ),
3342
3343          b_equi_elga_epsi  =BLOC(condition="OPTION=='EQUI_ELGA_EPSI'",
3344            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_epsi_r,) ),
3345          ),
3346
3347          b_equi_elga_sigm  =BLOC(condition="OPTION=='EQUI_ELGA_SIGM'",
3348            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3349          ),
3350
3351          b_equi_elno_epsi  =BLOC(condition="OPTION=='EQUI_ELNO_EPSI'",
3352            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_epsi_r,) ),
3353          ),
3354
3355          b_equi_elno_sigm  =BLOC(condition="OPTION=='EQUI_ELNO_SIGM'",
3356            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3357          ),
3358
3359          b_pres_dbel_depl  =BLOC(condition="OPTION=='PRES_DBEL_DEPL'",
3360            DEPL            =SIMP(statut='o',typ=(cham_no_depl_c,)),
3361          ),
3362
3363          b_sief_elga_depl  =BLOC(condition="OPTION=='SIEF_ELGA_DEPL'",
3364            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
3365          ),
3366
3367          b_sief_elga_lagr  =BLOC(condition="OPTION=='SIEF_ELGA_LAGR'",
3368            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
3369            THETA           =SIMP(statut='o',typ=(theta_geom,)),
3370            PROPAGATION     =SIMP(statut='f',typ='R',defaut=0.E+0),
3371          ),
3372
3373          b_sigm_elno_cart  =BLOC(condition="OPTION=='SIGM_ELNO_CART'",
3374            CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,) ),
3375          ),
3376
3377          b_sigm_elno_depl  =BLOC(condition="OPTION=='SIGM_ELNO_DEPL'",
3378            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,) ),
3379          ),
3380
3381          b_sigm_elno_lagr  =BLOC(condition="OPTION=='SIGM_ELNO_LAGR'",
3382            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
3383            THETA           =SIMP(statut='o',typ=(theta_geom,)),
3384            PROPAGATION     =SIMP(statut='f',typ='R',defaut=0.E+0),
3385          ),
3386
3387          b_sipo_elno_depl  =BLOC(condition="OPTION=='SIPO_ELNO_DEPL'",
3388            DEPL            =SIMP(statut='o',typ=(cham_no_depl_r,)),
3389          ),
3390
3391          b_thermique  =BLOC(condition="OPTION in ('FLUX_ELNO_TEMP','FLUX_ELGA_TEMP','SOUR_ELGA_ELEC',)",
3392            TEMP            =SIMP(statut='o',typ=(cham_no_temp_r,)),
3393          ),
3394
3395          b_acoustique  =BLOC(condition="OPTION in ('PRES_ELNO_DBEL','PRES_ELNO_REEL','PRES_ELNO_IMAG',)",
3396            PRES            =SIMP(statut='o',typ=(cham_no_pres_c,)),
3397          ),
3398
3399
3400
3401          EXCIT           =FACT(statut='f',min=1,max='**',
3402                regles=(EXCLUS('FONC_MULT','COEF_MULT', ),),
3403                CHARGE          =SIMP(statut='o',typ=(char_meca,char_ther,char_acou)),
3404                FONC_MULT       =SIMP(statut='f',typ=fonction),
3405                COEF_MULT       =SIMP(statut='f',typ='R'), ),
3406
3407          INST            =SIMP(statut='f',typ='R',defaut= 0.E+0),
3408          ACCE            =SIMP(statut='f',typ=cham_no_depl_r),
3409          NUME_COUCHE     =SIMP(statut='f',typ='I',defaut= 1),
3410          NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
3411          MODE_FOURIER    =SIMP(statut='f',typ='I',defaut= 0 ),
3412          ANGLE           =SIMP(statut='f',typ='I',defaut= 0),
3413 )  ;
3414 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
3415 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3416 # ======================================================================
3417 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3418 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3419 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3420 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3421 # (AT YOUR OPTION) ANY LATER VERSION.
3422 #
3423 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3424 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3425 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3426 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3427 #
3428 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3429 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3430 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3431 # ======================================================================
3432 # RESPONSABLE VABHHTS J.PELLET
3433 def calc_char_cine_prod(CHAR_CINE,**args):
3434   if AsType(CHAR_CINE) == char_cine_meca : return cham_no_depl_r
3435   if AsType(CHAR_CINE) == char_cine_ther : return cham_no_temp_r
3436   if AsType(CHAR_CINE) == char_cine_acou : return cham_no_pres_c
3437   raise AsException("type de concept resultat non prevu")
3438
3439 CALC_CHAR_CINE=OPER(nom="CALC_CHAR_CINE",op= 102,sd_prod=calc_char_cine_prod,
3440                     fr="Calcul des seconds membres associés à des charges cinématiques (conditions aux limites non dualisées)",
3441                     docu="U4.61.03-e",reentrant='n',
3442             UIinfo={"groupes":("Matrices/vecteurs",)},
3443          NUME_DDL        =SIMP(statut='o',typ=nume_ddl ),
3444          CHAR_CINE       =SIMP(statut='o',typ=(char_cine_meca,char_cine_ther,char_cine_acou ) ),
3445          INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
3446          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
3447 )  ;
3448 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
3449 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3450 # ======================================================================
3451 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3452 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
3453 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
3454 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
3455 # (AT YOUR OPTION) ANY LATER VERSION.
3456 #
3457 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
3458 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
3459 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
3460 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
3461 #
3462 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
3463 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
3464 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
3465 # ======================================================================
3466 def calc_char_seisme_prod(MATR_MASS,**args ):
3467   if AsType(MATR_MASS) == matr_asse_depl_r : return cham_no_depl_r
3468   raise AsException("type de concept resultat non prevu")
3469
3470 CALC_CHAR_SEISME=OPER(nom="CALC_CHAR_SEISME",op=  92,sd_prod=calc_char_seisme_prod,
3471                       docu="U4.63.01-e",reentrant='n',
3472             UIinfo={"groupes":("Matrices/vecteurs",)},
3473          regles=(UN_PARMI('MONO_APPUI','MODE_STAT' ),),
3474          MATR_MASS       =SIMP(statut='o',typ=matr_asse_depl_r,fr="Matrice de masse" ),
3475          DIRECTION       =SIMP(statut='o',typ='R',max=6,fr="Directions du séisme imposé"),
3476          MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3477          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
3478          b_mode_stat     =BLOC ( condition = "MODE_STAT != None",
3479            regles=(UN_PARMI('NOEUD','GROUP_NO' ),),
3480            NOEUD           =SIMP(statut='f',typ=no,max='**'),
3481            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
3482          ),
3483          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3484 )  ;
3485 #& MODIF COMMANDE  DATE 28/01/2003   AUTEUR JMBHH01 J.M.PROIX
3486 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3487 # ======================================================================
3488 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3489 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3490 #              REDISTRIBUTION OF THIS FILE.
3491 # ======================================================================
3492 # RESPONSABLE JMBHH01 J.M.PROIX
3493 def calc_elem_prod(RESULTAT,**args):
3494    if AsType(RESULTAT) != None : return AsType(RESULTAT)
3495    raise AsException("type de concept resultat non prevu")
3496
3497 CALC_ELEM=OPER(nom="CALC_ELEM",op=58,sd_prod=calc_elem_prod,docu="U4.81.01-g3",reentrant='f',
3498             UIinfo={"groupes":("Post traitements",)},
3499             fr="Compléter ou créer un résultat en calculant des champs par éléments (contraintes, déformations,... )",
3500      MODELE          =SIMP(statut='o',typ=modele),
3501      CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
3502      CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
3503
3504      RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,mode_meca,
3505                                 mode_stat,mode_stat_depl,mode_stat_acce,mode_stat_forc,
3506                                 evol_noli,mult_elas,fourier_elas,
3507                                            evol_ther,base_modale,
3508                                            acou_harmo,mode_acou,mode_flamb) ,
3509                 fr="Résultat d'une commande globale"),
3510
3511      regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
3512                     'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),),
3513      TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3514      NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
3515      NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
3516      NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
3517      NOM_CAS         =SIMP(statut='f',typ='TXM' ),
3518
3519      INST            =SIMP(statut='f',typ='R',max='**'),
3520      FREQ            =SIMP(statut='f',typ='R',max='**'),
3521      LIST_INST       =SIMP(statut='f',typ=listr8),
3522      LIST_FREQ       =SIMP(statut='f',typ=listr8),
3523      PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
3524      CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
3525      LIST_ORDRE      =SIMP(statut='f',typ=listis),
3526
3527      TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
3528      GROUP_MA        =SIMP(statut='f',fr="le calcul ne sera effectué que sur ces mailles là",typ=grma,max='**'),
3529      MAILLE          =SIMP(statut='f',fr="le calcul ne sera effectué que sur ces mailles là",typ=ma,max='**'),
3530
3531 #    options pour des resultats lineaire
3532
3533      b_lineaire =BLOC( condition = "AsType(RESULTAT) in (evol_elas,dyna_trans,dyna_harmo,mode_meca,\
3534                                                                mode_stat,mode_stat_depl,mode_stat_acce,mode_stat_forc,\
3535                                                                mult_elas,fourier_elas,base_modale,mode_flamb)",
3536                                                                fr="options mecaniques lineaires",
3537           TYPE_OPTION =SIMP(statut='f',typ='TXM',max=1,defaut='TOUTES',fr="type d'options mecaniques lineaires",
3538                            into=("SIGM_MASSIF","SIGM_STRUCT","EPSI","ENER","CRIT","DERIVEES",
3539                                  "INDI_ERRE","AUTRES","TOUTES"),
3540                            ),
3541           b_toutes=BLOC( condition = "TYPE_OPTION == 'TOUTES'",fr="toutes les options evol elas",
3542                OPTION =SIMP(statut='f',typ='TXM',max='**',defaut="SIEF_ELNO_ELGA",
3543                               #  contraintes
3544                            into=( "SIEF_ELNO_ELGA","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
3545                                   "SIPO_ELNO_DEPL","EFGE_ELNO_DEPL","EFGE_ELNO_CART","SIGM_ELNO_CART",
3546                                   "SIGM_ELNO_SIEF","SIPO_ELNO_SIEF","SIGM_ELNO_TUYO",
3547                               # déformations
3548                                  "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPSG_ELGA_DEPL","EPSG_ELNO_DEPL",
3549                                  "EPME_ELNO_DEPL","EPME_ELGA_DEPL","DEGE_ELNO_DEPL",
3550                               #  ENER
3551                                  "EPOT_ELEM_DEPL","ECIN_ELEM_DEPL","ENEL_ELGA","ENEL_ELNO_ELGA",
3552                                  "ETOT_ELGA","ETOT_ELNO_ELGA","ETOT_ELEM",
3553                               #  estimateurs erreur
3554                                  "SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA","ERRE_ELEM_NOZ2",
3555                                  "SIRE_ELNO_DEPL","ERRE_ELGA_NORE","ERRE_ELNO_ELGA",
3556                               #  CRIT
3557                                  "EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","CRIT_ELNO_RUPT",
3558                                  "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI","EQUI_ELNO_EPME","EQUI_ELGA_EPME",
3559                                  "ENDO_ELNO_SIGA","ENDO_ELNO_SINO",
3560                               #  derivees
3561                                  "DEUL_ELGA_DEPL","DEDE_ELNO_DLDE","DESI_ELNO_DLSI",
3562                               #  autres
3563                                  "VNOR_ELEM_DEPL","VALE_NCOU_MAXI","PRES_DBEL_DEPL"),),
3564
3565                NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1,
3566                                 fr="numero de couche dans l'épaisseur de la coque ou du tuyau" ),
3567                NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3568                                 fr="position dans l'épaisseur de la coque, ou de la couche" ),
3569                ANGLE       =SIMP(statut='f',typ='I',defaut= 0,fr="angle en degres à partir de la génératrice"),
3570                NOM_CHAM  =SIMP(statut='f',typ='TXM',max=1,fr="nom du champ pour VALE_NCOU_MAXI", ),
3571                NOM_CMP   =SIMP(statut='f',typ='TXM',max=1,fr="nom de la composante pour VALE_NCOU_MAXI",  ),
3572                PLAN =     SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL"),
3573                                fr="Plan de calcul pour les plaques excentrées" ),
3574
3575
3576                EXCIT           =FACT(statut='f',min=1,max='**',
3577                                      fr="Charges contenant les températures, les efforts répartis pour les poutres...",
3578                                      regles=(EXCLUS('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
3579                     CHARGE          =SIMP(statut='o',typ=char_meca ),
3580                     FONC_MULT       =SIMP(statut='f',typ=fonction),
3581                     FONC_MULT_C     =SIMP(statut='f',typ=fonction_c),
3582                     COEF_MULT       =SIMP(statut='f',typ='R'),
3583                     COEF_MULT_C     =SIMP(statut='f',typ='C'),
3584                     PHAS_DEG        =SIMP(statut='f',typ='R'),
3585                     PUIS_PULS       =SIMP(statut='f',typ='I'),
3586                     TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",),),),
3587
3588
3589                             ),
3590 #             fin bloc b_toutes
3591
3592           b_sigm_massif =BLOC( condition = "TYPE_OPTION == 'SIGM_MASSIF'",
3593                                      fr="options de contraintes elasticite 2D et 3D",
3594               OPTION =SIMP(statut='f',typ='TXM',max='**',defaut='SIEF_ELNO_ELGA',
3595                             fr="option de calcul des contraintes",
3596                            into=( "SIEF_ELNO_ELGA","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",),),
3597
3598                     b_charge =BLOC( condition = "OPTION in ('SIGM_ELNO_DEPL','SIEF_ELGA_DEPL',) or \
3599                                       (type(OPTION)==type(()) and  'SIGM_ELNO_DEPL' in OPTION ) or \
3600                                       (type(OPTION)==type(()) and  'SIEF_ELGA_DEPL' in OPTION ) ",
3601                                       fr="charge contenant les temperatures ou autre charge",
3602                          EXCIT           =FACT(statut='o',min=1,max='**',
3603                          CHARGE          =SIMP(statut='o',typ=char_meca ),),
3604                                     ),
3605                                   ),
3606
3607           b_sigm_struct =BLOC( condition = "TYPE_OPTION == 'SIGM_STRUCT'",
3608                                       fr="options de contraintes elasticite poutres, coques, tuyaux",
3609                OPTION =SIMP(statut='o',typ='TXM',max='**',defaut='SIEF_ELNO_ELGA',
3610                             fr="option de calcul des contraintes ou efforts generalises",
3611                             into=( "SIEF_ELNO_ELGA","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL","SIGM_ELNO_TUYO",
3612                                    "SIPO_ELNO_DEPL","EFGE_ELNO_DEPL","EFGE_ELNO_CART","SIGM_ELNO_CART",
3613                                    "SIGM_ELNO_SIEF","SIPO_ELNO_SIEF"),),
3614
3615                b_charge =BLOC( condition = "OPTION in ('SIGM_ELNO_DEPL','SIEF_ELGA_DEPL',\
3616                                                        'SIPO_ELNO_DEPL','EFGE_ELNO_DEPL',) or \
3617                                             (type(OPTION)==type(()) and  'SIGM_ELNO_DEPL' in OPTION ) or \
3618                                             (type(OPTION)==type(()) and  'SIEF_ELGA_DEPL' in OPTION ) or \
3619                                             (type(OPTION)==type(()) and  'SIPO_ELNO_DEPL' in OPTION ) or \
3620                                             (type(OPTION)==type(()) and  'EFGE_ELNO_DEPL' in OPTION ) ",
3621                                             fr="charge contenant les temperatures ou les efforts répartis (poutres) ou autre",
3622                     EXCIT           =FACT(statut='o',min=1,max='**',
3623                                           regles=(EXCLUS('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
3624                          CHARGE          =SIMP(statut='o',typ=char_meca ),
3625                          FONC_MULT       =SIMP(statut='f',typ=fonction),
3626                          FONC_MULT_C     =SIMP(statut='f',typ=fonction_c),
3627                          COEF_MULT       =SIMP(statut='f',typ='R'),
3628                          COEF_MULT_C     =SIMP(statut='f',typ='C'),
3629                          PHAS_DEG        =SIMP(statut='f',typ='R'),
3630                          PUIS_PULS       =SIMP(statut='f',typ='I'),
3631                          TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",),),),
3632                              ),
3633
3634                b_niv_couche = BLOC( condition = "OPTION in ('SIGM_ELNO_DEPL',) or \
3635                                                  (type(OPTION)==type(()) and  'SIGM_ELNO_DEPL' in OPTION) ",
3636
3637                          NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1,
3638                                            fr="numero de couche dans l'épaisseur de la coque (coques multicouches)" ),
3639                          NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3640                                            fr="position dans l'épaisseur de la coque, ou de la couche" ),
3641                               ),
3642
3643                b_sigtuyo = BLOC( condition = "OPTION == 'SIGM_ELNO_TUYO' or \
3644                                   (type(OPTION)==type(()) and  'SIGM_ELNO_TUYO' in OPTION) ",
3645                          NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1 ,
3646                                            fr="numero de couche dans l'épaisseur du tuyau" ),
3647                          ANGLE       =SIMP(statut='f',typ='I',defaut= 0,fr="angle en degres à partir de la génératrice" ),
3648                          NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3649                                            fr="position dans l'épaisseur de la couche" ),
3650                                ),
3651                b_plan_excentrement    =BLOC( condition = "OPTION=='EFGE_ELNO_DEPL' or \
3652                                             (type(OPTION)==type(()) and 'EFGE_ELNO_DEPL' in OPTION)",
3653                                              fr="Plan de calcul des efforts pour les plaques avec excentrement",
3654                          PLAN =     SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL"),
3655                                          fr="Plan de calcul des efforts pour les plaques avec excentrement",),
3656
3657                             ),
3658                             ),
3659 #          fin bloc contraintes struct
3660
3661           b_epsi         =BLOC( condition = "TYPE_OPTION=='EPSI'",
3662                OPTION    =SIMP(statut='o',typ='TXM',max='**',
3663                            into=("EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPME_ELNO_DEPL","EPME_ELGA_DEPL",
3664                                  "DEGE_ELNO_DEPL",),
3665                                  ),
3666                b_niv_couche = BLOC( condition = "OPTION =='EPSI_ELNO_DEPL' or \
3667                                   (type(OPTION)==type(()) and  'EPSI_ELNO_DEPL' in OPTION) ",
3668                          NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1,
3669                                            fr="numero de couche dans l'épaisseur de la coque (coques multicouches)" ),
3670                          NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3671                                            fr="position dans l'épaisseur de la coque, ou de la couche" ),
3672                                  ) ,
3673                b_charge =BLOC( condition = "OPTION in ('EPME_ELNO_DEPL','EPSI_ELGA_DEPL','EPME_ELGA_DEPL','EPSI_ELNO_DEPL') or \
3674                                       (type(OPTION)==type(()) and  'EPSI_ELNO_DEPL' in OPTION ) or \
3675                                       (type(OPTION)==type(()) and  'EPSI_ELGA_DEPL' in OPTION ) or \
3676                                       (type(OPTION)==type(()) and  'EPME_ELNO_DEPL' in OPTION ) or \
3677                                       (type(OPTION)==type(()) and  'EPME_ELGA_DEPL' in OPTION ) ",
3678                                       fr="charge contenant les temperatures",
3679                     EXCIT           =FACT(statut='o',min=1,max='**',
3680                          CHARGE          =SIMP(statut='o',typ=(char_meca,char_ther,char_acou) ),),
3681                                  ),
3682                                        ),
3683           b_ener         =BLOC( condition = "TYPE_OPTION=='ENER'",
3684                OPTION    =SIMP(statut='o',typ='TXM',max='**',
3685                            into=("EPOT_ELEM_DEPL","ECIN_ELEM_DEPL","ENEL_ELGA","ENEL_ELNO_ELGA",
3686                                  "ETOT_ELGA","ETOT_ELNO_ELGA","ETOT_ELEM",),
3687                                  ),
3688                b_charge =BLOC( condition = "OPTION in ('EPOT_ELEM_DEPL','ECIN_ELEM_DEPL','ENEL_ELGA','ENEL_ELNO_ELGA',) or \
3689                                       (type(OPTION)==type(()) and  'EPOT_ELEM_DEPL' in OPTION ) or \
3690                                       (type(OPTION)==type(()) and  'ENEL_ELGA' in OPTION ) or \
3691                                       (type(OPTION)==type(()) and  'ENEL_ELNO_ELGA' in OPTION ) or \
3692                                       (type(OPTION)==type(()) and  'ECIN_ELEM_DEPL' in OPTION ) ",
3693                                       fr="charge contenant les temperatures",
3694                     EXCIT           =FACT(statut='o',min=1,max='**',
3695                          CHARGE          =SIMP(statut='o',typ=(char_meca,char_ther,char_acou) ),),
3696                               ),
3697                                  ),
3698
3699           b_crit         =BLOC( condition = "TYPE_OPTION=='CRIT'",
3700                OPTION    =SIMP(statut='o',typ='TXM',max='**',
3701                            into=("EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
3702                                  "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI","EQUI_ELNO_EPME","EQUI_ELGA_EPME",
3703                                  "ENDO_ELNO_SIGA","ENDO_ELNO_SINO","CRIT_ELNO_RUPT",
3704                                  ) ),
3705                b_niv_couche = BLOC( condition = "OPTION in ('CRIT_ELNO_RUPT','EQUI_ELNO_SIGM') or \
3706                                   (type(OPTION)==type(()) and  'EQUI_ELNO_SIGM' in OPTION) or \
3707                                   (type(OPTION)==type(()) and  'CRIT_ELNO_RUPT' in OPTION) ",
3708                     NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1,
3709                                            fr="numero de couche dans l'épaisseur de la coque (coques multicouches)" ),
3710                     NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3711                                            fr="position dans l'épaisseur de la coque, ou de la couche" ),
3712                                   ),
3713                 EXCIT           =FACT(statut='f',min=1,max='**',fr="charge contenant les temperatures",
3714                      CHARGE          =SIMP(statut='o',typ=(char_meca,char_ther,char_acou) ),),
3715                                  ),
3716
3717           b_derivees         =BLOC( condition = "TYPE_OPTION=='DERIVEES'",
3718                   OPTION    =SIMP(statut='o',typ='TXM',max='**',
3719                            into=("DEUL_ELGA_DEPL","DEDE_ELNO_DLDE","DESI_ELNO_DLSI",
3720                                  ) ),),
3721
3722           b_autres         =BLOC( condition = "TYPE_OPTION=='AUTRES'",
3723                   OPTION    =SIMP(statut='o',typ='TXM',max='**',
3724                            into=("VALE_NCOU_MAXI","PRES_DBEL_DEPL","VNOR_ELEM_DEPL",
3725                                  ) ),
3726                b_maxi    =BLOC( condition = "OPTION=='VALE_NCOU_MAXI' or \
3727                                 (type(OPTION)==type(()) and 'VALE_NCOU_MAXI' in OPTION)",
3728                     NOM_CHAM  =SIMP(statut='o',typ='TXM',max=1,fr="Nom du champ pour VALE_NCOU_MAXI" ),
3729                     NOM_CMP   =SIMP(statut='o',typ='TXM',max=1,fr="Nom de la composante pour VALE_NCOU_MAXI"),),
3730                                  ),
3731
3732           b_indi_erre         =BLOC( condition = "TYPE_OPTION=='INDI_ERRE'",
3733                OPTION    =SIMP(statut='o',typ='TXM',max='**',defaut="ERRE_ELGA_NORE",
3734                            into=("SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA","ERRE_ELEM_NOZ2",
3735                                  "SIRE_ELNO_DEPL","ERRE_ELGA_NORE","ERRE_ELNO_ELGA",
3736                                  ) ),
3737                 EXCIT           =FACT(statut='f',min=1,max='**',fr="charge contenant les temperatures",
3738                      CHARGE          =SIMP(statut='o',typ=(char_meca,char_ther,char_acou) ),),
3739                                  ),
3740                                  ),
3741 #    fin bloc lineaire
3742
3743
3744 #    statique ou dynamique non lineaire : evol_noli
3745      b_noli          =BLOC( condition = "AsType(RESULTAT) == evol_noli",fr="options evol noli",
3746           TYPE_OPTION =SIMP(statut='f',typ='TXM',max=1,defaut='TOUTES',
3747                            into=("SIGM_MASSIF","SIGM_STRUCT","EPSI","ENER","CRIT",
3748                                  "VARI","INDI_ERRE","TOUTES","AUTRES"),
3749                           ),
3750           b_toutes =BLOC( condition = "TYPE_OPTION == 'TOUTES'",fr="toutes les options evol elas",
3751                OPTION      =SIMP(statut='f',typ='TXM',max='**',
3752                            into=( "SIEF_ELNO_ELGA",
3753                                   "SIGM_ELNO_TUYO","SIGM_ELNO_COQU",
3754                                   "SIGM_ELNO_SIEF","SIPO_ELNO_SIEF","EFGE_ELNO_CART",
3755                                   # EPSI
3756                                   "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL",
3757                                  "EPME_ELNO_DEPL","EPME_ELGA_DEPL","EPMG_ELNO_DEPL","EPMG_ELGA_DEPL",
3758                                  "DEGE_ELNO_DEPL",
3759                                  "EPSP_ELNO","EPSP_ELGA",
3760                                  "EPGR_ELNO","EPGR_ELGA",
3761                                  "VARI_ELNO_ELGA","VARI_ELNO_TUYO","VARI_ELNO_COQU","CRIT_ELNO_RUPT",
3762                                  # CRIT
3763                                  "EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
3764                                  "ERRE_ELGA_NORE","ERRE_ELNO_ELGA","ERRE_ELEM_NOZ1","ERRE_ELEM_NOZ2",
3765                                  "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI","EQUI_ELNO_EPME","EQUI_ELGA_EPME",
3766                                  "DCHA_ELNO_SIGM","DCHA_ELGA_SIGM","RADI_ELNO_SIGM","RADI_ELGA_SIGM",
3767                                  "ENDO_ELNO_SIGA","ENDO_ELNO_SINO",
3768                                  "PMPB_ELNO_SIEF","PMPB_ELGA_SIEF","ENEL_ELGA","ENEL_ELNO_ELGA",
3769                                  "ETOT_ELGA","ETOT_ELNO_ELGA","ETOT_ELEM","VALE_NCOU_MAXI"),
3770                                ),
3771                NORME =SIMP(statut='f',typ='TXM',defaut="VMIS",
3772                                  into=("VMIS","TOTAL","VMIS_CINE","TOTAL_CINE"),
3773                                  fr="Type de norme pour les options RADI_ et DCHA_"),
3774
3775                NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1,fr="numéro de couche pour coques et tuyaux" ),
3776                NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3777                                  fr="choix du point d'intégration dans la couche" ),
3778                ANGLE       =SIMP(statut='f',typ='I',defaut= 0 ,fr="angle de dépouillement pour les tuyaux"),
3779                NOM_CHAM  =SIMP(statut='f',typ='TXM',max=1,fr="Nom du champ pour VALE_NCOU_MAXI"),
3780                NOM_CMP   =SIMP(statut='f',typ='TXM',max=1,fr="Nom de la composante pour VALE_NCOU_MAXI"),
3781                PLAN =     SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL") ),
3782
3783                EXCIT           =FACT(statut='f',min=1,max='**',
3784                                       regles=(EXCLUS('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
3785                     CHARGE          =SIMP(statut='o',typ=char_meca ),
3786                     FONC_MULT       =SIMP(statut='f',typ=fonction),
3787                     FONC_MULT_C     =SIMP(statut='f',typ=fonction_c),
3788                     COEF_MULT       =SIMP(statut='f',typ='R'),
3789                     COEF_MULT_C     =SIMP(statut='f',typ='C'),
3790                     PHAS_DEG        =SIMP(statut='f',typ='R'),
3791                     PUIS_PULS       =SIMP(statut='f',typ='I'),
3792                     TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",),),),
3793                          ),
3794
3795           b_sigm_massif =BLOC( condition = "TYPE_OPTION == 'SIGM_MASSIF'",
3796                                       fr="options de contraintes non lin 2D et 3D",
3797                OPTION =SIMP(statut='o',typ='TXM',max='**',
3798                               #  contraintes
3799                            into=( "SIEF_ELNO_ELGA",),),
3800                             ),
3801
3802           b_sigm_struct =BLOC( condition = "TYPE_OPTION == 'SIGM_STRUCT'",
3803                                        fr="options de contraintes non lin poutres, coques",
3804                OPTION =SIMP(statut='o',typ='TXM',max='**',
3805                               #  contraintes
3806                            into=( "SIEF_ELNO_ELGA","EFGE_ELNO_CART","SIGM_ELNO_TUYO","SIGM_ELNO_COQU",
3807                            "SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",),),
3808                b_sigcoqu = BLOC( condition = "OPTION in ('SIGM_ELNO_COQU',) or \
3809                                   (type(OPTION)==type(()) and  'SIGM_ELNO_COQU' in OPTION) ",
3810                     NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1,
3811                          fr="numéro de couche dans l'épaisseur de la coque"  ),
3812                     NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3813                          fr="choix du point d'intégration dans la couche"  ),
3814                               ),
3815                b_sigtuyo = BLOC( condition = "OPTION in ('SIGM_ELNO_TUYO',) or \
3816                                   (type(OPTION)==type(()) and  'SIGM_ELNO_TUYO' in OPTION)",
3817                     NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1,
3818                          fr="numéro de couche dans l'épaisseur du tuyau" ),
3819                     ANGLE       =SIMP(statut='f',typ='I',defaut= 0,
3820                          fr="angle de dépouillement pour les tuyaux, en degres" ),
3821                     NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3822                          fr="choix du point d'intégration dans la couche"),
3823                                ),
3824                              ),
3825
3826           b_epsi         =BLOC( condition = "TYPE_OPTION=='EPSI'",
3827                OPTION    =SIMP(statut='o',typ='TXM',max='**',
3828                            into=( "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL",
3829                                  "EPME_ELNO_DEPL","EPME_ELGA_DEPL","EPMG_ELNO_DEPL","EPMG_ELGA_DEPL",
3830                                  "EPSP_ELNO","EPSP_ELGA","EPGR_ELNO","EPGR_ELGA",
3831                                  "DEGE_ELNO_DEPL",),
3832                                  ),
3833                b_niv_couche = BLOC( condition = "OPTION =='EPSI_ELNO_DEPL' or \
3834                                   (type(OPTION)==type(()) and  'EPSI_ELNO_DEPL' in OPTION) ",
3835                     NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1,
3836                                            fr="numero de couche dans l'épaisseur de la coque (coques multicouches)" ),
3837                     NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3838                                            fr="position dans l'épaisseur de la coque, ou de la couche" ),
3839                                  ) ,
3840                EXCIT           =FACT(statut='f',min=1,max='**',fr="charge contenant les temperatures",
3841                     CHARGE          =SIMP(statut='o',typ=(char_meca,char_ther,char_acou) ),),
3842                                  ),
3843
3844           b_vari         =BLOC( condition = "TYPE_OPTION=='VARI'",
3845                                        fr="Calcul et extraction des variables internes",
3846                    OPTION    =SIMP(statut='o',typ='TXM',max='**',
3847                                    into=("VARI_ELNO_ELGA","VARI_ELNO_TUYO","VARI_ELNO_COQU",),
3848                                  ),
3849                b_varcoqu = BLOC( condition = "OPTION in ('VARI_ELNO_COQU',) or \
3850                                   (type(OPTION)==type(()) and  'VARI_ELNO_COQU' in OPTION) ",
3851                          NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1,
3852                          fr="numéro de couche dans l'épaisseur de la coque"),
3853                          NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3854                          fr="choix du point d'intégration dans la couche" ),
3855                               ),
3856                b_vartuyo = BLOC( condition = "OPTION in ('VARI_ELNO_TUYO',) or \
3857                                   (type(OPTION)==type(()) and  'VARI_ELNO_TUYO' in OPTION) ",
3858                          NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1,
3859                          fr="numéro de couche dans l'épaisseur de tuyau" ),
3860                          ANGLE       =SIMP(statut='f',typ='I',defaut= 0,
3861                          fr="angle de dépouillement pour les tuyaux, en degres"),
3862                          NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3863                          fr="choix du point d'intégration dans la couche" ),
3864                                ),
3865                                  ),
3866
3867           b_ener         =BLOC( condition = "TYPE_OPTION=='ENER'",
3868                OPTION    =SIMP(statut='o',typ='TXM',max='**',
3869                            into=("ETOT_ELGA","ETOT_ELNO_ELGA","ETOT_ELEM","ENEL_ELGA","ENEL_ELNO_ELGA",),
3870                                  ),
3871                EXCIT           =FACT(statut='f',min=1,max='**',fr="charge contenant les temperatures",
3872                     CHARGE          =SIMP(statut='o',typ=(char_meca,char_ther,char_acou) ),),
3873                                  ),
3874
3875           b_crit         =BLOC( condition = "TYPE_OPTION=='CRIT'",
3876                OPTION    =SIMP(statut='o',typ='TXM',max='**',
3877                            into=("EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
3878                                  "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI","EQUI_ELNO_EPME","EQUI_ELGA_EPME",
3879                                  "ENDO_ELNO_SIGA","ENDO_ELNO_SINO","CRIT_ELNO_RUPT",
3880                                  "PMPB_ELNO_SIEF","PMPB_ELGA_SIEF",
3881                                  ) ),
3882                          NUME_COUCHE =SIMP(statut='f',typ='I',defaut= 1,fr="numéro de couche dans l'épaisseur de la coque"),
3883                          NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3884                          fr="choix du point d'intégration dans la couche" ),
3885                                  ),
3886
3887           b_autres         =BLOC( condition = "TYPE_OPTION=='AUTRES'",
3888                   OPTION    =SIMP(statut='o',typ='TXM',max='**',
3889                            into=("VALE_NCOU_MAXI",) ),
3890                b_maxi    =BLOC( condition = "OPTION=='VALE_NCOU_MAXI' or \
3891                                 (type(OPTION)==type(()) and 'VALE_NCOU_MAXI' in OPTION)",
3892                     NOM_CHAM  =SIMP(statut='o',typ='TXM',max=1,fr="Nom du champ pour VALE_NCOU_MAXI" ),
3893                     NOM_CMP   =SIMP(statut='o',typ='TXM',max=1,fr="Nom de la composante pour VALE_NCOU_MAXI"),),
3894                                  ),
3895
3896
3897           b_indi_erre         =BLOC( condition = "TYPE_OPTION=='INDI_ERRE'",
3898                OPTION    =SIMP(statut='o',typ='TXM',max='**',defaut="ERRE_ELGA_NORE",
3899                            into=("ERRE_ELGA_NORE","ERRE_ELNO_ELGA","ERRE_ELEM_NOZ1","ERRE_ELEM_NOZ2",
3900                                  "DCHA_ELNO_SIGM","DCHA_ELGA_SIGM","RADI_ELNO_SIGM","RADI_ELGA_SIGM",
3901                                  ) ),
3902                b_indic = BLOC( condition ="OPTION in ('DCHA_ELNO_SIGM','DCHA_ELGA_SIGM','RADI_ELNO_SIGM','RADI_ELGA_SIGM') or\
3903                                             (type(OPTION)==type(()) and 'DCHA_ELNO_SIGM' in OPTION) or\
3904                                             (type(OPTION)==type(()) and 'DCHA_ELGA_SIGM' in OPTION) or\
3905                                             (type(OPTION)==type(()) and 'RADI_ELNO_SIGM' in OPTION) or\
3906                                             (type(OPTION)==type(()) and 'RADI_ELGA_SIGM' in OPTION) ",
3907                     NORME =SIMP(statut='f',typ='TXM',defaut="VMIS",
3908                                  into=("VMIS","TOTAL","VMIS_CINE","TOTAL_CINE") ),
3909                                  ),
3910                                  ),
3911                                  ),
3912 #          fin bloc evol_noli
3913
3914 #           thermique : evol_ther
3915      b_ther          =BLOC( condition = "AsType(RESULTAT) == evol_ther",fr="options thermiques",
3916           OPTION          =SIMP(statut='f',typ='TXM',max='**',
3917                            into=("DEUL_ELGA_TEMP","DETE_ELNO_DLTE","FLUX_ELGA_TEMP","FLUX_ELNO_TEMP",
3918                                   "HYDR_ELNO_ELGA","DURT_ELGA_META","DURT_ELNO_META",
3919                                  "SOUR_ELGA_ELEC","ERTH_ELEM_TEMP","ERTH_ELNO_ELEM",),),
3920                EXCIT           =FACT(statut='f',min=1,max='**',
3921                     regles=(EXCLUS('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
3922                     CHARGE          =SIMP(statut='o',typ=char_ther ),
3923                     FONC_MULT       =SIMP(statut='f',typ=fonction),
3924                     FONC_MULT_C     =SIMP(statut='f',typ=fonction_c),
3925                     COEF_MULT       =SIMP(statut='f',typ='R'),
3926                     COEF_MULT_C     =SIMP(statut='f',typ='C'),
3927                     PHAS_DEG        =SIMP(statut='f',typ='R'),
3928                     PUIS_PULS       =SIMP(statut='f',typ='I'),
3929                     TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",),),
3930                                      ),
3931                     NIVE_COUCHE =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY"),
3932                                       fr="choix du point de calcul dans l'épaisseur des coques"  ),
3933
3934                                  ),
3935
3936 #    acoustique
3937      b_acou          =BLOC( condition = "AsType(RESULTAT) in (acou_harmo,mode_acou,)",fr="options acoustiques",
3938           OPTION          =SIMP(statut='f',typ='TXM',max='**',
3939                            into=("PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG",
3940                                  "INTE_ELNO_ACTI","INTE_ELNO_REAC",
3941                                  ),),
3942           EXCIT           =FACT(statut='f',min=1,max='**',
3943                 regles=(EXCLUS('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
3944                 CHARGE          =SIMP(statut='o',typ=char_acou ),
3945                 FONC_MULT       =SIMP(statut='f',typ=fonction),
3946                 FONC_MULT_C     =SIMP(statut='f',typ=fonction_c),
3947                 COEF_MULT       =SIMP(statut='f',typ='R'),
3948                 COEF_MULT_C     =SIMP(statut='f',typ='C'),
3949                 PHAS_DEG        =SIMP(statut='f',typ='R'),
3950                 PUIS_PULS       =SIMP(statut='f',typ='I'),
3951                 TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",),),),
3952                                  ),
3953
3954      SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
3955                            fr="Liste des paramètres de sensibilité.",
3956                            ang="List of sensitivity parameters"),
3957      INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
3958      TITRE           =SIMP(statut='f',typ='TXM',max='**'),
3959 ) ;
3960 #& MODIF COMMANDE  DATE 20/01/2003   AUTEUR F1BHHAJ J.ANGLES
3961 #            CONFIGURATION MANAGEMENT OF EDF VERSION
3962 # ======================================================================
3963 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
3964 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
3965 #              REDISTRIBUTION OF THIS FILE.
3966 # ======================================================================
3967 def calc_fatigue_prod(TYPE_CALCUL,**args):
3968   if TYPE_CALCUL == "CUMUL_DOMMAGE" : return cham_elem_dommag
3969   if TYPE_CALCUL == "FATIGUE_MULTI" : return cham_elem_facy_r
3970   raise AsException("type de calcul non prevu")
3971
3972 CALC_FATIGUE=OPER(nom="CALC_FATIGUE",op= 151,sd_prod=calc_fatigue_prod,reentrant='n',
3973                   fr="Calcul d un cham de dommage ou d un cisaillement maximal dans le plan critique.",
3974                   docu="U4.83.02-c",
3975             UIinfo={"groupes":("Post traitements",)},
3976
3977          TYPE_CALCUL = SIMP(statut='o',typ='TXM',
3978                                into=("CUMUL_DOMMAGE","FATIGUE_MULTI",) ),
3979
3980          b_cumul_domma   =BLOC(condition = "TYPE_CALCUL == 'CUMUL_DOMMAGE'",
3981                                fr="Calcul d un champ de dommage subi par une structure.",
3982            regles=(PRESENT_PRESENT('DOMMAGE','MATER', ),),
3983            OPTION          =SIMP(statut='o',typ='TXM',
3984                                  into=("DOMA_ELNO_SIGM","DOMA_ELGA_SIGM",
3985                                        "DOMA_ELNO_EPSI","DOMA_ELGA_EPSI",
3986                                        "DOMA_ELNO_EPME","DOMA_ELGA_EPME") ),
3987            HISTOIRE        =FACT(statut='o',min=1,max=1,
3988              RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,
3989                                                    evol_noli) ),
3990              EQUI_GD         =SIMP(statut='f',typ='TXM',defaut="VMIS_SG",
3991                                  into=("VMIS_SG","INVA_2_SG") ),
3992            ),
3993            DOMMAGE         =SIMP(statut='o',typ='TXM',
3994                                into=("WOHLER","MANSON_COFFIN","TAHERI_MANSON",
3995                                      "TAHERI_MIXTE",) ),
3996            MATER           =SIMP(statut='o',typ=(mater) ),
3997            TAHERI_NAPPE    =SIMP(statut='f',typ=(fonction) ),
3998            TAHERI_FONC     =SIMP(statut='f',typ=(fonction) ),
3999          ),
4000
4001          b_fatigue_multi   =BLOC(condition = "TYPE_CALCUL == 'FATIGUE_MULTI'",
4002                                  fr="Plan critique dans le cas de la fatigue multiaxiale a grand nombre de cycles.",
4003            RESULTAT      =SIMP(statut='o',typ=(evol_elas, evol_noli) ),
4004            CHAM_MATER    =SIMP(statut='o',typ=(cham_mater) ),
4005            CRITERE       =SIMP(statut='o',typ='TXM',into=("MATAKE","DANG_VAN") ),
4006            METHODE       =SIMP(statut='o',typ='TXM',into=("CERCLE_EXACT",) ),
4007          ),
4008
4009          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
4010 )  ;
4011 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
4012 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4013 # ======================================================================
4014 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4015 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4016 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4017 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4018 # (AT YOUR OPTION) ANY LATER VERSION.
4019 #
4020 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4021 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4022 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4023 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4024 #
4025 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4026 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4027 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4028 # ======================================================================
4029 CALC_FLUI_STRU=OPER(nom="CALC_FLUI_STRU",op= 144,sd_prod=melasflu,
4030                     docu="U4.66.02-d",reentrant='n',
4031             UIinfo={"groupes":("Matrices/vecteurs",)},
4032          VITE_FLUI       =FACT(statut='o',min=1,max=1,
4033                                fr="Définir la plage de vitesse fluide étudiée",
4034            VITE_MIN        =SIMP(statut='o',typ='R' ),
4035            VITE_MAX        =SIMP(statut='o',typ='R' ),
4036            NB_POIN         =SIMP(statut='o',typ='I' ),
4037          ),
4038          BASE_MODALE     =FACT(statut='o',min=1,max=1,
4039
4040            regles=(UN_PARMI('AMOR_REDUIT','AMOR_UNIF'),),
4041            MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
4042            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
4043            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
4044            AMOR_UNIF       =SIMP(statut='f',typ='R' ),
4045          ),
4046          TYPE_FLUI_STRU  =SIMP(statut='o',typ=type_flui_stru ),
4047          IMPRESSION      =FACT(statut='f',min=1,max=1,
4048                                fr="Choix des informations à imprimer dans le fichier RESULTAT",
4049            PARA_COUPLAGE   =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4050            DEFORMEE        =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
4051          ),
4052 )  ;
4053 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
4054 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4055 # ======================================================================
4056 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4057 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4058 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4059 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4060 # (AT YOUR OPTION) ANY LATER VERSION.
4061 #
4062 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4063 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4064 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4065 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4066 #
4067 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4068 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4069 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4070 # ======================================================================
4071 CALC_FONC_INTERP=OPER(nom="CALC_FONC_INTERP",op= 134,sd_prod=fonction,
4072                       docu="U4.32.01-e1",reentrant='f',
4073             UIinfo={"groupes":("Fonction",)},
4074          regles=(UN_PARMI('VALE_R','LIST_PARA'),),
4075          FONCTION        =SIMP(statut='o',typ=fonction ),
4076          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
4077          VALE_R          =SIMP(statut='f',typ='R',max='**'),
4078          LIST_PARA       =SIMP(statut='f',typ=listr8 ),
4079          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG","INT") ),
4080          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("EXCLU","CONSTANT","LINEAIRE","INTERPRE") ),
4081          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("EXCLU","CONSTANT","LINEAIRE","INTERPRE") ),
4082          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
4083          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
4084 )  ;
4085 #& MODIF COMMANDE  DATE 09/12/2002   AUTEUR CIBHHLV L.VIVAN
4086 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4087 # ======================================================================
4088 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4089 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
4090 #              REDISTRIBUTION OF THIS FILE.
4091 # ======================================================================
4092 # RESPONSABLE MCOURTOI M.COURTOIS
4093 def calc_fonction_prod(DERIVE,EXTRACTION,INTEGRE,RMS,NOCI_SEISME,MAX,COMB,COMB_C,ENVELOPPE,
4094                        SPEC_OSCI,ASSE,FFT,COMPOSE,CORR_ACCE,PUISSANCE,LISS_ENVELOP,NORME, **args):
4095   if (RMS != None)        : return tabl_fonc_rms
4096   if (MAX != None)        : return tabl_fonc_max
4097   if (NOCI_SEISME != None): return tabl_fonc_noci
4098   if (INTEGRE != None)    : return fonction
4099   if (DERIVE != None)     : return fonction
4100   if (COMB != None)       : return fonction
4101   if (ENVELOPPE != None)  : return fonction
4102   if (EXTRACTION != None) : return fonction
4103   if (SPEC_OSCI != None)  : return fonction
4104   if (COMB_C != None)     : return fonction_c
4105   if (COMPOSE != None)    : return fonction
4106   if (ASSE != None)       : return fonction
4107   if (FFT != None)        :
4108      vale=FFT.get_child('FONCTION').get_valeur()
4109      if (AsType(vale) == fonction )  : return fonction_c
4110      if (AsType(vale) == fonction_c) : return fonction
4111   if (CORR_ACCE != None) : return fonction
4112   if (LISS_ENVELOP != None)  : return fonction
4113   if (PUISSANCE != None) : return fonction
4114   if (NORME != None) : return table
4115   raise AsException("type de concept resultat non prevu")
4116
4117 CALC_FONCTION=OPER(nom="CALC_FONCTION",op=  91,sd_prod=calc_fonction_prod
4118                     ,fr="Opérations mathématiques sur des concepts de type fonction",
4119                      docu="U4.32.04-f2",reentrant='n',
4120             UIinfo={"groupes":("Fonction",)},
4121          regles=(UN_PARMI('DERIVE','INTEGRE','SPEC_OSCI','MAX','COMB','COMB_C','ENVELOPPE','RMS',
4122                           'NOCI_SEISME','COMPOSE','EXTRACTION','ASSE','FFT','CORR_ACCE', 'PUISSANCE',
4123                           'NORME','LISS_ENVELOP'),),
4124          FFT             =FACT(statut='f',min=1,max=1,fr="Calcul de la transformee de Fourier ou de son inverse",
4125            FONCTION        =SIMP(statut='o',typ=(fonction,fonction_c) )
4126          ),
4127          DERIVE          =FACT(statut='f',min=1,max=1,fr="Calcul de la dérivée d une fonction",
4128            METHODE         =SIMP(statut='f',typ='TXM',defaut="DIFF_CENTREE",into=("DIFF_CENTREE",) ),
4129            FONCTION        =SIMP(statut='o',typ=fonction ),
4130          ),
4131          INTEGRE         =FACT(statut='f',min=1,max=1,fr="Calcul de l intégrale d une fonction",
4132            METHODE         =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
4133            FONCTION        =SIMP(statut='o',typ=fonction),
4134            COEF            =SIMP(statut='f',typ='R',defaut= 0.E+0,fr="Valeur de la constante d intégration" ),
4135          ),
4136          RMS             =FACT(statut='f',min=1,max=1,fr="Calcul de la valeur RMS d une fonction",
4137            METHODE         =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
4138            FONCTION        =SIMP(statut='o',typ=fonction ),
4139            INST_INIT       =SIMP(statut='f',typ='R',fr="Instant initial définissant le début du signal" ),
4140            INST_FIN        =SIMP(statut='f',typ='R',fr="Instant final définissant la fin du signal" ),
4141            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4142            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
4143          ),
4144          NOCI_SEISME     =FACT(statut='f',min=1,max=1,
4145            FONCTION        =SIMP(statut='f',typ=fonction ),
4146            SPEC_OSCI       =SIMP(statut='f',typ=fonction ),
4147            OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",max='**',
4148                                  into=("INTE_ARIAS","POUV_DEST","INTE_SPEC","VITE_ABSO_CUMU",
4149                                        "DUREE_PHAS_FORT","MAXI","ACCE_SUR_VITE","TOUT",) ),
4150            INST_INIT       =SIMP(statut='f',typ='R'),
4151            INST_FIN        =SIMP(statut='f',typ='R'),
4152            NATURE          =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE") ),
4153            COEF            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4154            PESANTEUR       =SIMP(statut='f',typ='R',defaut= 9.81E+0 ),
4155            FREQ_INIT       =SIMP(statut='f',typ='R',defaut= 4.E-1 ),
4156            FREQ_FIN        =SIMP(statut='f',typ='R',defaut= 10.E+0 ),
4157            AMOR_REDUIT     =SIMP(statut='f',typ='R'),
4158            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
4159            FREQ            =SIMP(statut='f',typ='R',max='**'),
4160            NORME           =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
4161            BORNE_INF       =SIMP(statut='f',typ='R',defaut= 0.05E+0 ),
4162            BORNE_SUP       =SIMP(statut='f',typ='R',defaut= 0.95E+0 ),
4163            b_acce_reel     =BLOC(condition="(INST_INIT != None)or(INST_FIN != None)or(FREQ_INIT != None)or(FREQ_FIN != None)",
4164              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
4165              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4166            ),
4167          ),
4168          LISS_ENVELOP    = FACT(statut='f',min=1,max=1,fr="Lissage d une enveloppe",
4169            FONCTION        =SIMP(statut='o',typ=fonction ),
4170            AMOR            =SIMP(statut='f',typ='R',max='**'),
4171            FREQ_MIN        =SIMP(statut='f',typ='R'),
4172            FREQ_MAX        =SIMP(statut='f',typ='R'),
4173            FREQ_CREUX      =SIMP(statut='f',typ='R',max='**'),
4174            ELARG           =SIMP(statut='f',typ='TXM',defaut="GLOBAL",into=("GLOBAL","LOCAL") ),
4175               b_elarg_glob = BLOC ( condition = " (ELARG=='GLOBAL') ",
4176                    GAUCHE       =SIMP(statut='f',typ='R',defaut =10.0E0 ),
4177                    DROITE       =SIMP(statut='f',typ='R',defaut =10.0E0 ),
4178                 ),
4179               b_elarg_loc = BLOC ( condition = " (ELARG=='LOCAL') ",
4180                    FREQ_1       =SIMP(statut='o',typ='R'),
4181                    FREQ_2       =SIMP(statut='o',typ='R' ),
4182                    GAUCHE       =SIMP(statut='f',typ='R',defaut =10.0E0 ),
4183                    DROITE       =SIMP(statut='f',typ='R',defaut =10.0E0 ),
4184                 ),
4185            TOLE_LISS      =SIMP(statut='f',typ='R',defaut=25.0E0),
4186            ECH_FREQ_REF = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
4187                b_oui    =BLOC ( condition = "(ECH_FREQ_REF=='OUI') ",
4188                     regles=(UN_PARMI("LIST_FREQ", "AMOR_ECH"),),
4189                        LIST_FREQ   =SIMP(statut='f',typ=listr8 ),
4190                        AMOR_ECH    =SIMP(statut='f',typ='R',max='**'),
4191                               ),
4192          ),
4193          SPEC_OSCI       =FACT(statut='f',min=1,max=1,fr="Calcul du spectre d oscillateur",
4194            METHODE         =SIMP(statut='f',typ='TXM',defaut="NIGAM",into=("NIGAM",) ),
4195            FONCTION        =SIMP(statut='o',typ=fonction ),
4196            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
4197            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
4198            FREQ            =SIMP(statut='f',typ='R',max='**'),
4199            NORME           =SIMP(statut='f',typ='R',defaut= 9.81E+0,fr="Valeur de la norme du spectre d oscillateur" ),
4200            NATURE          =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
4201            NATURE_FONC     =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
4202          ),
4203          MAX             =FACT(statut='f',min=1,max=1,fr="Calcul des extrémas locaux d une fonction",
4204            FONCTION        =SIMP(statut='o',typ=fonction ),
4205          ),
4206          COMB            =FACT(statut='f',min=1,max='**',fr="Calcul d une combinaison linéaire réelle de fonctions",
4207            FONCTION        =SIMP(statut='o',typ=fonction ),
4208            COEF            =SIMP(statut='o',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
4209          ),
4210          COMB_C          =FACT(statut='f',min=1,max='**',fr="Calcul d une combinaison linéaire complexe de fonctions",
4211            regles=(UN_PARMI('COEF_R','COEF_C'),),
4212            FONCTION        =SIMP(statut='o',typ=(fonction, fonction_c) ),
4213            COEF_R          =SIMP(statut='f',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
4214            COEF_C          =SIMP(statut='f',typ='C',fr="Coefficient complexe de la combinaison linéaire associée à la fonction" ),
4215          ),
4216          b_comb          =BLOC ( condition = " (COMB != None) or (COMB_C != None)",
4217              LIST_PARA      =SIMP(statut='f',typ=listr8 ),
4218          ),
4219          COMPOSE         =FACT(statut='f',min=1,max=1,fr="Calcul de la composition de deux fonctions FONC_RESU(FONC_PARA)",
4220            FONC_RESU       =SIMP(statut='o',typ=fonction),
4221            FONC_PARA       =SIMP(statut='o',typ=fonction),
4222          ),
4223          EXTRACTION      =FACT(statut='f',min=1,max=1,fr="Opération d extraction sur une fonction complexe",
4224            FONCTION        =SIMP(statut='o',typ=fonction_c),
4225            PARTIE          =SIMP(statut='o',typ='TXM',into=("REEL","IMAG","MODULE","PHASE"),fr="Partie à extraire"),
4226          ),
4227          ENVELOPPE       =FACT(statut='f',min=1,max=1,fr="Calcul de l enveloppe d une famille de fonctions",
4228            FONCTION        =SIMP(statut='o',typ=fonction,max='**' ),
4229            CRITERE         =SIMP(statut='f',typ='TXM',defaut="SUP",into=("SUP","INF"),fr="Type de l enveloppe" ),
4230          ),
4231          ASSE            =FACT(statut='f',min=1,max=1,fr="Création à partir de la concatenation de fonctions",
4232            FONCTION        =SIMP(statut='o',typ=fonction,max='**' ),
4233            SURCHARGE       =SIMP(statut='f',typ='TXM',defaut="DROITE",into=("DROITE","GAUCHE")),
4234          ),
4235           CORR_ACCE     =FACT(statut='f',min=1,max=1,fr="Correction d un accelerogramme reel",
4236             CORR_DEPL          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
4237             FONCTION        =SIMP(statut='o',typ=fonction ),
4238          ),
4239          PUISSANCE       =FACT(statut='f',min=1,max=1,fr="Cacul du carré d'une fonction",
4240             FONCTION      =SIMP(statut='o', typ=fonction),
4241             EXPOSANT      =SIMP(statut='f', typ='I', defaut=1 ),
4242          ),
4243          NORME     =FACT(statut='f',min=1,max=1,fr="Cacul de la norme L2 d'une fonction",
4244             FONCTION =SIMP(statut='o', typ=fonction),
4245          ),
4246          NOM_PARA        =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
4247                                                           "INST","X","Y","Z","EPSI","FREQ","PULS",
4248                                                           "AMOR","ABSC") ),
4249          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
4250          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
4251          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
4252          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
4253          NOM_PARA_FONC   =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
4254                                                           "INST","X","Y","Z","EPSI","FREQ","PULS",
4255                                                           "AMOR","ABSC") ),
4256          INTERPOL_FONC   =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
4257          PROL_DROITE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
4258          PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
4259          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
4260          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
4261 )  ;
4262 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
4263 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4264 # ======================================================================
4265 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4266 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4267 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4268 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4269 # (AT YOUR OPTION) ANY LATER VERSION.
4270 #
4271 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4272 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4273 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4274 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4275 #
4276 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4277 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4278 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4279 # ======================================================================
4280 CALC_FORC_AJOU=OPER(nom="CALC_FORC_AJOU",op=199,sd_prod=vect_asse_gene,
4281                    fr="calcul de la force ajoutee ",
4282                    docu="U4.66.03-a1",reentrant ='n',
4283             UIinfo={"groupes":("Matrices/vecteurs",)},
4284
4285         regles=(EXCLUS('MODE_MECA','MODELE_GENE'),
4286                 PRESENT_PRESENT( 'MODELE_GENE','NUME_DDL_GENE'),
4287                 UN_PARMI('MONO_APPUI', 'NOEUD','GROUP_NO'),
4288                 UN_PARMI('MONO_APPUI','MODE_STAT')),
4289
4290          MODELE_FLUIDE   =SIMP(statut='o',typ=modele ),
4291          MODELE_INTERFACE=SIMP(statut='o',typ=modele ),
4292          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
4293          CHARGE          =SIMP(statut='o',typ=char_ther ),
4294          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
4295          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
4296          NUME_DDL_GENE   =SIMP(statut='f',typ=nume_ddl_gene ),
4297          DIST_REFE       =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
4298          AVEC_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4299          NUME_MODE_MECA  =SIMP(statut='f',typ='I',max='**'),
4300          POTENTIEL       =SIMP(statut='f',typ=evol_ther ),
4301          NOEUD_DOUBLE    =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
4302
4303          DIRECTION       =SIMP(statut='o',typ='R',max=3),
4304          MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",),),
4305          NOEUD           =SIMP(statut='f',typ=no,max='**'),
4306          GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
4307          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,),),
4308
4309          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
4310
4311          SOLVEUR         =FACT(statut='d',min=1,max=1,
4312            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
4313            b_mult_front    = BLOC ( condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
4314              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
4315            ),
4316            b_ldlt          =BLOC( condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
4317              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
4318            ),
4319            b_ldlt_mult     =BLOC( condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
4320                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
4321              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
4322              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4323            ),
4324            b_gcpc          =BLOC (condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
4325              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
4326              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
4327              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
4328              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
4329              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
4330            ),
4331 #  A quoi sert eps
4332            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0),  ),
4333
4334            ) ;
4335 #& MODIF COMMANDE  DATE 04/02/2003   AUTEUR DURAND C.DURAND
4336 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4337 # ======================================================================
4338 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4339 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4340 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4341 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4342 # (AT YOUR OPTION) ANY LATER VERSION.
4343 #
4344 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4345 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4346 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4347 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4348 #
4349 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4350 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4351 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4352 # ======================================================================
4353 CALC_G_LOCAL_T=OPER(nom="CALC_G_LOCAL_T",op=77,sd_prod=tabl_calc_g_loca,
4354                     fr="Calcul du taux de restitution local d énergie",docu="U4.82.04-f3",reentrant='n',
4355             UIinfo={"groupes":("Post traitements",)},
4356          MODELE          =SIMP(statut='o',typ=modele),
4357          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
4358          regles=(UN_PARMI('RESULTAT','DEPL'),
4359                  UN_PARMI('R_INF','R_INF_FO'),
4360                  PRESENT_PRESENT('R_INF','R_SUP'),
4361                  PRESENT_PRESENT('R_INF_FO','R_SUP_FO'), ),
4362          FOND_FISS       =SIMP(statut='o',typ=fond_fiss),
4363          DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
4364          RESULTAT        =SIMP(statut='f',typ=(evol_elas,evol_noli),),
4365          b_extrac        =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
4366              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
4367              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4368              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
4369              LIST_ORDRE      =SIMP(statut='f',typ=listis),
4370              INST            =SIMP(statut='f',typ='R',max='**'),
4371              LIST_INST       =SIMP(statut='f',typ=listr8),
4372
4373              b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
4374                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
4375                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4376              ),
4377          ),
4378
4379          CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
4380          SYME_CHAR       =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
4381
4382          COMP_ELAS       =FACT(statut='f',min=1,max=1,
4383                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
4384                                      into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
4385                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
4386                ELAS_VMIS_LINE  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
4387                ELAS_VMIS_TRAC  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
4388                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
4389       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
4390                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4391                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4392                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4393          ),
4394
4395          COMP_INCR       =FACT(statut='f',min=1,max=1,
4396                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
4397                                      into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
4398                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
4399                VMIS_ISOT_TRAC  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
4400                VMIS_ISOT_LINE  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
4401                VMIS_CINE_LINE  =SIMP(statut='f',typ='I',defaut=7,into=(7,) ),
4402                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
4403       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
4404                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4405                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4406                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4407          ),
4408
4409          ETAT_INIT       =FACT(statut='f',min=1,max=1,
4410            SIGM            =SIMP(statut='f',typ=cham_elem_sief_r),
4411            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
4412          ),
4413
4414          OPTION          =SIMP(statut='f',typ='TXM',defaut="CALC_G",
4415                                into=("CALC_G","CALC_G_LGLO","G_BILINEAIRE","CALC_G_MAX") ),
4416          b_g             =BLOC(condition="OPTION=='CALC_G'",
4417            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
4418            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE","LAGRANGE_NO_NO",) ),
4419          ),
4420          b_g_lglo        =BLOC(condition="OPTION=='CALC_G_LGLO'",
4421            PROPAGATION     =SIMP(statut='o',typ='R'),
4422            THETA           =SIMP(statut='o',typ=theta_geom),
4423            DIRE_THETA      =SIMP(statut='f',typ=cham_no_depl_r),
4424            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
4425            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE","LAGRANGE_NO_NO",) ),
4426          ),
4427          b_g_bilin       =BLOC(condition="OPTION=='G_BILINEAIRE'",
4428            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
4429            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
4430          ),
4431          b_calc_g_max    =BLOC(condition="OPTION=='CALC_G_MAX'",
4432            BORNES          =FACT(statut='o',min=1,max='**',
4433               NUME_ORDRE     =SIMP(statut='o',typ='I'),
4434               VALE_MIN       =SIMP(statut='o',typ='R'),
4435               VALE_MAX       =SIMP(statut='o',typ='R'),
4436                                 ),
4437            LISSAGE_THETA   =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
4438            LISSAGE_G       =SIMP(statut='f',typ='TXM',defaut="LEGENDRE",into=("LEGENDRE","LAGRANGE") ),
4439          ),
4440
4441          DEGRE           =SIMP(statut='f',typ='I',defaut=5,into=(0,1,2,3,4,5,6,7) ),
4442
4443          R_INF           =SIMP(statut='f',typ='R'),
4444          R_SUP           =SIMP(statut='f',typ='R'),
4445          R_INF_FO        =SIMP(statut='f',typ=fonction),
4446          R_SUP_FO        =SIMP(statut='f',typ=fonction),
4447
4448          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
4449          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
4450 )  ;
4451 #& MODIF COMMANDE  DATE 04/02/2003   AUTEUR DURAND C.DURAND
4452 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4453 # ======================================================================
4454 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4455 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4456 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4457 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4458 # (AT YOUR OPTION) ANY LATER VERSION.
4459 #
4460 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4461 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4462 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4463 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4464 #
4465 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4466 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4467 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4468 # ======================================================================
4469 CALC_G_THETA_T=OPER(nom="CALC_G_THETA_T",op=53,sd_prod=tabl_calc_g_th,
4470                     fr="Calcul du taux de restitution d énergie par la méthode theta en thermo-élasticité en 2D ou en 3D",
4471                     docu="U4.82.03-f2",reentrant='n',
4472             UIinfo={"groupes":("Post traitements",)},
4473          regles=(UN_PARMI('RESULTAT','DEPL'),
4474                  EXCLUS('COMP_ELAS','COMP_INCR'),),
4475          MODELE          =SIMP(statut='o',typ=modele),
4476          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
4477          THETA           =SIMP(statut='o',typ=theta_geom),
4478          DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
4479          RESULTAT        =SIMP(statut='f',typ=(evol_elas,evol_noli),),
4480
4481          b_extrac        =BLOC(condition="RESULTAT != None",fr="extraction d un champ",
4482            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
4483            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4484            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
4485            LIST_ORDRE      =SIMP(statut='f',typ=listis),
4486            INST            =SIMP(statut='f',typ='R',max='**'),
4487            LIST_INST       =SIMP(statut='f',typ=listr8),
4488
4489            b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
4490              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
4491              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4492            ),
4493          ),
4494
4495          CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
4496          SYME_CHAR       =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SYME","ANTI","SANS") ),
4497
4498          COMP_ELAS       =FACT(statut='f',min=1,max=1,
4499                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
4500                                      into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
4501                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
4502                ELAS_VMIS_LINE  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
4503                ELAS_VMIS_TRAC  =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
4504                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
4505       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
4506                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4507                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4508                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4509          ),
4510          COMP_INCR       =FACT(statut='f',min=1,max=1,
4511                RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
4512                                      into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
4513                ELAS            =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
4514                VMIS_ISOT_TRAC  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
4515                VMIS_ISOT_LINE  =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
4516                VMIS_CINE_LINE  =SIMP(statut='f',typ='I',defaut=7,into=(7,) ),
4517                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
4518       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
4519                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4520                GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4521                MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4522          ),
4523          ETAT_INIT       =FACT(statut='f',min=1,max=1,
4524            SIGM            =SIMP(statut='f',typ=cham_elem_sief_r),
4525            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
4526          ),
4527          OPTION          =SIMP(statut='f',typ='TXM',defaut="CALC_G",
4528                                into=("CALC_G","CALC_G_LAGR","CALC_K_G","G_BILINEAIRE","CALC_G_MAX","CALC_DG",) ),
4529          b_calc_g_max    =BLOC(condition="OPTION=='CALC_G_MAX'",
4530            BORNES          =FACT(statut='o',min=1,max='**',
4531                 NUME_ORDRE     =SIMP(statut='o',typ='I'),
4532                 VALE_MIN       =SIMP(statut='o',typ='R'),
4533                 VALE_MAX       =SIMP(statut='o',typ='R'),
4534                                 ),
4535          ),
4536          b_calc_k_g      =BLOC(condition="OPTION=='CALC_K_G'",
4537            FOND_FISS       =SIMP(statut='o',typ=fond_fiss),
4538          ),
4539          b_calc_g_lagr   =BLOC(condition="OPTION=='CALC_G_LAGR'",
4540            PROPAGATION     =SIMP(statut='o',typ='R'),
4541          ),
4542          b_calc_dg       =BLOC(condition="OPTION=='CALC_DG'",
4543            SENSIBILITE     =FACT(statut='f',min=1,max=1,
4544                  THETA          =SIMP(statut='o',typ=theta_geom ),
4545                                ),
4546          ),
4547
4548          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
4549          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
4550 )  ;
4551 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
4552 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4553 # ======================================================================
4554 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4555 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4556 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4557 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4558 # (AT YOUR OPTION) ANY LATER VERSION.
4559 #
4560 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4561 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4562 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4563 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4564 #
4565 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4566 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4567 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4568 # ======================================================================
4569 CALC_INTE_SPEC=OPER(nom="CALC_INTE_SPEC",op= 120,sd_prod=tabl_intsp,
4570                     fr="Calcul d une matrice interspectrale d une fonction du temps",
4571                     docu="U4.36.03-e",reentrant='n',
4572             UIinfo={"groupes":("Fonction",)},
4573          INST_INIT       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4574          INST_FIN        =SIMP(statut='o',typ='R' ),
4575          DUREE_ANALYSE   =SIMP(statut='f',typ='R' ),
4576          DUREE_DECALAGE  =SIMP(statut='f',typ='R' ),
4577          NB_POIN         =SIMP(statut='o',typ='I' ),
4578          FONCTION        =SIMP(statut='o',typ=fonction,max='**' ),
4579          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
4580          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
4581 )  ;
4582 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
4583 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4584 # ======================================================================
4585 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4586 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4587 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4588 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4589 # (AT YOUR OPTION) ANY LATER VERSION.
4590 #
4591 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4592 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4593 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4594 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4595 #
4596 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4597 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4598 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4599 # ======================================================================
4600 CALC_MATR_AJOU=OPER(nom="CALC_MATR_AJOU",op= 152,sd_prod=matr_asse_gene_r,
4601                     fr="Calcul des matrices de masse, d amortissement ou de raideur ajoutées",
4602                     docu="U4.66.01-c",reentrant='n',
4603             UIinfo={"groupes":("Matrices/vecteurs",)},
4604          regles=(EXCLUS('MODE_MECA','CHAM_NO','MODELE_GENE'),
4605                  PRESENT_ABSENT('NUME_DDL_GENE','CHAM_NO'),
4606                  PRESENT_PRESENT('MODELE_GENE','NUME_DDL_GENE'),),
4607          MODELE_FLUIDE   =SIMP(statut='o',typ=modele ),
4608          MODELE_INTERFACE=SIMP(statut='o',typ=modele ),
4609          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
4610          CHARGE          =SIMP(statut='o',typ=char_ther ),
4611          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
4612          CHAM_NO         =SIMP(statut='f',typ=cham_no_depl_r ),
4613          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
4614          NUME_DDL_GENE   =SIMP(statut='f',typ=nume_ddl_gene ),
4615          DIST_REFE       =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
4616          AVEC_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4617          NUME_MODE_MECA  =SIMP(statut='f',typ='I',max='**'),
4618          OPTION          =SIMP(statut='o',typ='TXM',into=("MASS_AJOU","AMOR_AJOU","RIGI_AJOU") ),
4619          POTENTIEL       =SIMP(statut='f',typ=evol_ther ),
4620          NOEUD_DOUBLE    =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
4621          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
4622
4623          SOLVEUR         =FACT(statut='d',min=1,max=1,
4624            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
4625            b_mult_front    = BLOC ( condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
4626              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
4627            ),
4628            b_ldlt          =BLOC( condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
4629              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
4630            ),
4631            b_ldlt_mult     =BLOC( condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
4632                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
4633              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
4634              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
4635            ),
4636            b_gcpc          =BLOC (condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
4637              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
4638              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
4639              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
4640              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
4641              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
4642            ),
4643 #  A quoi sert eps
4644            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4645          ),
4646 )  ;
4647 #& MODIF COMMANDE  DATE 28/11/2002   AUTEUR NICOLAS O.NICOLAS
4648 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4649 # ======================================================================
4650 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4651 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4652 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4653 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4654 # (AT YOUR OPTION) ANY LATER VERSION.
4655 #
4656 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4657 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4658 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4659 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4660 #
4661 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4662 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4663 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4664 # ======================================================================
4665 # RESPONSABLE VABHHTS J.PELLET
4666 def calc_matr_elem_prod(OPTION,**args):
4667   if OPTION == "RIGI_MECA"        : return matr_elem_depl_r
4668   if OPTION == "RIGI_FLUI_STRU"   : return matr_elem_depl_r
4669   if OPTION == "RIGI_MECA_LAGR"   : return matr_elem_depl_r
4670   if OPTION == "MASS_ID_MDEP_R"   : return matr_elem_depl_r
4671   if OPTION == "MASS_ID_MDNS_R"   : return matr_elem_depl_r
4672   if OPTION == "MASS_ID_MTEM_R"   : return matr_elem_temp_r
4673   if OPTION == "MASS_ID_MTNS_R"   : return matr_elem_temp_r
4674   if OPTION == "MASS_MECA"        : return matr_elem_depl_r
4675   if OPTION == "MASS_FLUI_STRU"   : return matr_elem_depl_r
4676   if OPTION == "RIGI_GEOM"        : return matr_elem_depl_r
4677   if OPTION == "RIGI_ROTA"        : return matr_elem_depl_r
4678   if OPTION == "AMOR_MECA"        : return matr_elem_depl_r
4679   if OPTION == "IMPE_MECA"        : return matr_elem_depl_r
4680   if OPTION == "ONDE_FLUI"        : return matr_elem_depl_r
4681   if OPTION == "RIGI_MECA_HYST"   : return matr_elem_depl_c
4682   if OPTION == "RIGI_THER"        : return matr_elem_temp_r
4683   if OPTION == "MASS_THER"        : return matr_elem_temp_r
4684   if OPTION == "MASS_MECA_DIAG"   : return matr_elem_depl_r
4685   if OPTION == "RIGI_ACOU"        : return matr_elem_pres_c
4686   if OPTION == "MASS_ACOU"        : return matr_elem_pres_c
4687   if OPTION == "AMOR_ACOU"        : return matr_elem_pres_c
4688   raise AsException("type de concept resultat non prevu")
4689
4690 CALC_MATR_ELEM=OPER(nom="CALC_MATR_ELEM",op=   9,sd_prod=calc_matr_elem_prod
4691                     ,fr="Calcul des matrices élémentaires",docu="U4.61.01-g1",reentrant='n',
4692             UIinfo={"groupes":("Matrices/vecteurs",)},
4693          OPTION          =SIMP(statut='o',typ='TXM',
4694                                into=("RIGI_MECA","MASS_MECA","RIGI_GEOM",
4695                                      "AMOR_MECA","RIGI_THER","MASS_THER","IMPE_MECA",
4696                                      "ONDE_FLUI","MASS_FLUI_STRU","RIGI_FLUI_STRU",
4697                                      "RIGI_ROTA","MASS_MECA_DIAG","RIGI_ACOU",
4698                                      "MASS_ID_MDEP_R","MASS_ID_MDNS_R","MASS_ID_MTEM_R","MASS_ID_MTNS_R",
4699                                      "MASS_ACOU","AMOR_ACOU","RIGI_MECA_HYST",
4700                                      "RIGI_MECA_LAGR") ),
4701
4702          b_rigi_meca = BLOC( condition = "OPTION=='RIGI_MECA'",
4703            regles=(AU_MOINS_UN('MODELE','CHARGE' ),),
4704            MODELE          =SIMP(statut='f',typ=modele ),
4705            b_modele        =BLOC(condition = "MODELE != None",
4706              CHAM_MATER      =SIMP(statut='f',typ=cham_mater ),
4707              CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
4708              MODE_FOURIER    =SIMP(statut='f',typ='I',defaut= 0 ),
4709            ),
4710            CHARGE          =SIMP(statut='f',typ=char_meca,max='**' ),
4711            b_charge        =BLOC (condition = "CHARGE != None",
4712              INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4713            ),
4714          ),
4715
4716          b_rigi_meca_lagr  =BLOC(condition = "OPTION=='RIGI_MECA_LAGR'",
4717            MODELE            =SIMP(statut='o',typ=modele ),
4718            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
4719            CHARGE            =SIMP(statut='f',typ=char_meca,max='**'  ),
4720            b_charge        =BLOC(condition = "CHARGE != None",
4721              INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4722            ),
4723            THETA           =SIMP(statut='o',typ=theta_geom ),
4724            PROPAGATION     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4725          ),
4726
4727          b_mass_meca       =BLOC(condition = "(OPTION=='MASS_MECA') or (OPTION=='MASS_MECA_DIAG')",
4728            regles=(AU_MOINS_UN('MODELE','CHARGE'),),
4729            MODELE          =SIMP(statut='f',typ=modele ),
4730            b_modele          =BLOC(condition = "MODELE != None",
4731              CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
4732              CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
4733            ),
4734            CHARGE          =SIMP(statut='f',typ=char_meca,max='**' ),
4735            b_charge        =BLOC(condition = "CHARGE != None",
4736              INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4737            ),
4738          ),
4739
4740          b_mass_identite   =BLOC(condition = "(OPTION in ('MASS_ID_MDEP_R','MASS_ID_MTEM_R','MASS_ID_MDNS_R','MASS_ID_MTNS_R')) ",
4741            MODELE            =SIMP(statut='o',typ=modele ),
4742            # j'ajoute ces 2 mot clés inutiles à cause de l'alarme pas assez subtile de MEDOME
4743            CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
4744            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
4745          ),
4746
4747          b_rigi_geom       =BLOC(condition = "OPTION=='RIGI_GEOM'",
4748            MODELE            =SIMP(statut='o',typ=modele ),
4749            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
4750            SIEF_ELGA         =SIMP(statut='o',typ=cham_elem_sief_r ),
4751            MODE_FOURIER      =SIMP(statut='f',typ='I',defaut= 0 ),
4752          ),
4753
4754          b_rigi_rota       =BLOC(condition = "OPTION=='RIGI_ROTA'",
4755            MODELE            =SIMP(statut='o',typ=modele ),
4756            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
4757            CHARGE            =SIMP(statut='o',typ=char_meca,max='**' ),
4758            INST              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4759          ),
4760
4761          b_amor_meca       =BLOC(condition = "OPTION=='AMOR_MECA'",
4762            regles=(AU_MOINS_UN('CARA_ELEM','RIGI_MECA'),
4763                    ENSEMBLE('RIGI_MECA','MASS_MECA','CHAM_MATER'), ),
4764            MODELE            =SIMP(statut='o',typ=modele ),
4765            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
4766            CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
4767            RIGI_MECA         =SIMP(statut='f',typ=matr_elem_depl_r ),
4768            MASS_MECA         =SIMP(statut='f',typ=matr_elem_depl_r ),
4769            CHARGE            =SIMP(statut='f',typ=char_meca,max='**' ),
4770          ),
4771
4772          b_rigi_meca_hyst  =BLOC( condition = "OPTION=='RIGI_MECA_HYST'",
4773            MODELE            =SIMP(statut='o',typ=modele ),
4774            CHARGE            =SIMP(statut='f',typ=char_meca ,max='**' ),
4775            CHAM_MATER        =SIMP(statut='f',typ=cham_mater ),
4776            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
4777            RIGI_MECA         =SIMP(statut='o',typ=matr_elem_depl_r ),
4778          ),
4779
4780          b_rigi_ther       =BLOC(condition = "OPTION=='RIGI_THER'",
4781            regles=(AU_MOINS_UN('MODELE','CHARGE' ),),
4782            MODELE            =SIMP(statut='f',typ=modele ),
4783            b_modele          =BLOC(condition = "MODELE != None",
4784              CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
4785              CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
4786              MODE_FOURIER      =SIMP(statut='f',typ='I',defaut= 0 ),
4787            ),
4788            CHARGE            =SIMP(statut='f',typ=char_ther,max='**' ),
4789          ),
4790
4791          b_mass_ther       =BLOC(condition = "OPTION=='MASS_THER'",
4792            MODELE            =SIMP(statut='o',typ=modele ),
4793            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
4794            CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
4795          ),
4796
4797          b_rigi_acou       =BLOC(condition = "(OPTION=='RIGI_ACOU') or (OPTION=='MASS_ACOU') or (OPTION=='AMOR_ACOU')",
4798            MODELE            =SIMP(statut='o',typ=modele ),
4799            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
4800            CHARGE            =SIMP(statut='f',typ=char_acou ,max='**' ),
4801          ),
4802
4803          b_rigi_flui       =BLOC(condition = "(OPTION=='RIGI_FLUI_STRU') or (OPTION=='MASS_FLUI_STRU')",
4804            MODELE            =SIMP(statut='o',typ=modele ),
4805            CARA_ELEM         =SIMP(statut='o',typ=cara_elem ),
4806            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
4807            CHARGE            =SIMP(statut='o',typ=char_meca ,max='**' ),
4808            INST              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
4809          ),
4810
4811          b_impe_meca       =BLOC(condition = "(OPTION=='IMPE_MECA') or (OPTION=='ONDE_FLUI')",
4812            MODELE            =SIMP(statut='o',typ=modele ),
4813            CHARGE            =SIMP(statut='o',typ=char_meca,max='**' ),
4814            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
4815          ),
4816 )  ;
4817 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
4818 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4819 # ======================================================================
4820 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4821 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4822 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4823 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4824 # (AT YOUR OPTION) ANY LATER VERSION.
4825 #
4826 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4827 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4828 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4829 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4830 #
4831 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4832 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4833 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4834 # ======================================================================
4835 CALC_META=OPER(nom="CALC_META",op=194,sd_prod=evol_ther,docu="U4.85.01-b1",reentrant='o',
4836             UIinfo={"groupes":("Post traitements",)},
4837                fr="Calcule la métallurgie a partir du résultat du calcul thermique",
4838          MODELE          =SIMP(statut='o',typ=modele ),
4839          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
4840          RESULTAT        =SIMP(statut='o',typ=evol_ther ),
4841          ETAT_INIT       =FACT(statut='o',min=1,max=1,
4842       regles=(UN_PARMI('NUME_INIT', 'INST_INIT', 'META_INIT',),),
4843            EVOL_THER       =SIMP(statut='f',typ=evol_ther ),
4844            NUME_INIT       =SIMP(statut='f',typ='I' ),
4845            INST_INIT       =SIMP(statut='f',typ='R'),
4846              b_inst     =BLOC(condition="(INST_INIT != None)",
4847                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
4848                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4849                              ),
4850            META_INIT       =SIMP(statut='f',typ=carte_var2_r ),
4851          ),
4852          COMP_INCR       =FACT(statut='o',min=1,max='**',
4853            RELATION        =SIMP(statut='o',typ='TXM',into=("ACIER","ZIRC",) ),
4854            ACIER           =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
4855            ZIRC            =SIMP(statut='c',typ='I',defaut=3,into=(3,) ),
4856       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
4857            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4858            GROUP_MA        =SIMP(statut='f',typ=grma),
4859            MAILLE          =SIMP(statut='f',typ=ma),
4860          ),
4861          OPTION          =SIMP(statut='f',typ='TXM'
4862                              ,into=("META_ELNO_TEMP",) ),
4863 )  ;
4864 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
4865 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4866 # ======================================================================
4867 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
4868 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4869 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4870 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4871 # (AT YOUR OPTION) ANY LATER VERSION.
4872 #
4873 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4874 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4875 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4876 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4877 #
4878 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4879 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4880 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4881 # ======================================================================
4882 # RESPONSABLE G8BHHXD X.DESROCHES
4883 def calc_no_prod(RESULTAT,**args):
4884    if AsType(RESULTAT) != None : return AsType(RESULTAT)
4885    raise AsException("type de concept resultat non prevu")
4886
4887 CALC_NO=OPER(nom="CALC_NO",op= 106,sd_prod=calc_no_prod,docu="U4.81.02-f3",reentrant='o',
4888             UIinfo={"groupes":("Post traitements",)},
4889          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
4890                                                mode_acou,mode_stat,mode_stat_depl,mode_stat_acce,
4891                                               mode_stat_forc,evol_ther,evol_noli,base_modale,
4892                                                mult_elas,fourier_elas,mode_flamb ) ),
4893          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
4894                                fr="Liste des paramètres de sensibilité.",
4895                                ang="List of sensitivity parameters"),
4896
4897          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
4898                         'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),),
4899          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4900          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
4901          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
4902          NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
4903          NOM_CAS         =SIMP(statut='f',typ='TXM' ),
4904          INST            =SIMP(statut='f',typ='R',max='**'),
4905          FREQ            =SIMP(statut='f',typ='R',max='**'),
4906          LIST_INST       =SIMP(statut='f',typ=listr8),
4907          LIST_FREQ       =SIMP(statut='f',typ=listr8),
4908          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
4909          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
4910          LIST_ORDRE      =SIMP(statut='f',typ=listis),
4911
4912          OPTION          =SIMP(statut='o',typ='TXM',max='**',
4913                                into=("FORC_NODA","REAC_NODA",
4914                                      "DCHA_NOEU_SIGM",
4915                                      "DEGE_NOEU_DEPL",
4916                                      "DETE_NOEU_DLTE",
4917                                      "DEDE_NOEU_DLDE",
4918                                      "DESI_NOEU_DLSI",
4919                                      "DURT_NOEU_META",
4920                                      "EFGE_NOEU_CART","EFGE_NOEU_DEPL",
4921                                      "ENDO_NOEU_SINO",
4922                                      "ENEL_NOEU_ELGA",
4923                                      "EPMG_NOEU_DEPL",
4924                                      "EPSA_NOEU",
4925                                      "EPSG_NOEU"     ,"EPSG_NOEU_DEPL",
4926                                      "EPSI_NOEU_DEPL","EPSI_NOEU_DPGE",
4927                                      "EPSP_NOEU"     ,"EPSP_NOEU_ZAC",
4928                                      "EQUI_NOEU_EPME","EQUI_NOEU_EPSI","EQUI_NOEU_SIGM",
4929                                      "ERRE_NOEU_ELGA",
4930                                      "FLUX_NOEU_TEMP",
4931                                      "GRAD_NOEU_THETA",
4932                                      "HYDR_NOEU_ELGA",
4933                                      "INTE_NOEU_ACTI","INTE_NOEU_REAC",
4934                                      "META_NOEU_TEMP",
4935                                      "PMPB_NOEU_SIEF",
4936                                      "PRES_NOEU_DBEL","PRES_NOEU_IMAG","PRES_NOEU_REEL",
4937                                      "RADI_NOEU_SIGM",
4938                                      "SIEF_NOEU"     ,"SIEF_NOEU_ELGA",
4939                                      "SIGM_NOEU_CART","SIGM_NOEU_COQU","SIGM_NOEU_DEPL","SIGM_NOEU_DPGE",
4940                                      "SIGM_NOEU_SIEF","SIGM_NOEU_VARI","SIGM_NOEU_ZAC",
4941                                      "SIPO_NOEU_DEPL","SIPO_NOEU_SIEF",
4942                                      "SIRE_NOEU_DEPL",
4943                                      "VARI_NOEU"     ,"VARI_NOEU_ELGA",) ),
4944
4945          b_forc_reac     =BLOC(condition = """(OPTION == 'FORC_NODA') or (type(OPTION) == type(()) and 'FORC_NODA' in OPTION) or\
4946  (OPTION == 'REAC_NODA') or (type(OPTION) == type(()) and 'REAC_NODA' in OPTION)""",
4947              MODELE          =SIMP(statut='o',typ=modele),
4948          ),
4949
4950          CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
4951          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
4952          EXCIT           =FACT(statut='f',min=1,max='**',
4953            CHARGE          =SIMP(statut='f',typ=(char_meca,char_ther,char_acou) ),
4954            FONC_MULT       =SIMP(statut='f',typ=fonction),
4955            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
4956                                  into=("FIXE_CSTE","FIXE_PILO","SUIV") ),
4957          ),
4958          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
4959          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
4960          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
4961 )  ;
4962 #& MODIF COMMANDE  DATE 04/03/2003   AUTEUR ASSIRE A.ASSIRE
4963 #            CONFIGURATION MANAGEMENT OF EDF VERSION
4964 # ======================================================================
4965 # COPYRIGHT (C) 1991 - 2003  EDF R&D                  WWW.CODE-ASTER.ORG
4966 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
4967 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
4968 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
4969 # (AT YOUR OPTION) ANY LATER VERSION.
4970 #
4971 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
4972 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
4973 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
4974 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
4975 #
4976 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
4977 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
4978 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
4979 # ======================================================================
4980 # RESPONSABLE ASSIRE A.ASSIRE
4981
4982 from Macro.calc_precont_ops import calc_precont_ops
4983
4984
4985 # ===========================================================================
4986 #           CATALOGUE DE LA MACRO "CALC_PRECONT"
4987 #           -----------------------------------------
4988 # USAGE :
4989 #
4990 #
4991 # ===========================================================================
4992
4993 CALC_PRECONT=MACRO(nom="CALC_PRECONT",op=calc_precont_ops,sd_prod=evol_noli,
4994                    fr="imposer la tension definie par le BPEL dans les cables",
4995                    docu="",reentrant='f',
4996          reuse =SIMP(statut='f',typ='evol_noli'),
4997          MODELE          =SIMP(statut='o',typ=modele),
4998          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
4999          CARA_ELEM       =SIMP(statut='o',typ=cara_elem),
5000          CABLE_BP       =SIMP(statut='o',typ='TXM',max='**'),
5001          CABLE_BP_INACTIF =SIMP(statut='f',typ='TXM',max='**'),
5002          INCREMENT       =FACT(statut='o',min=1,max=1,
5003            LIST_INST       =SIMP(statut='o',typ=listr8),
5004            INST_INIT       =SIMP(statut='f',typ='R'),
5005            INST_FIN        =SIMP(statut='f',typ='R'),
5006            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
5007            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
5008            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
5009            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
5010          ),
5011
5012          NEWTON          =FACT(statut='d',min=1,max=1,
5013             REAC_INCR       =SIMP(statut='f',typ='I',defaut= 1 ),
5014             PREDICTION      =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
5015             MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
5016             PAS_MINI_ELAS   =SIMP(statut='f',typ='R',defaut=0.0E+0),
5017             REAC_ITER       =SIMP(statut='f',typ='I',defaut=0),
5018             EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
5019           ),
5020          RECH_LINEAIRE   =FACT(statut='f',min=1,max=1,
5021            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
5022            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 3),
5023          ),
5024           CONVERGENCE     =FACT(statut='d',min=1,max=1,
5025             RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
5026             RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
5027             ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
5028             ITER_GLOB_ELAS  =SIMP(statut='f',typ='I',defaut=25),
5029             ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
5030             RESI_INTE_RELA  =SIMP(statut='f',typ='R'
5031                                  ,defaut= 1.0E-6),
5032             ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
5033             ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut= 0 ),
5034             TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
5035             RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
5036                                   into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
5037           ),
5038           ETAT_INIT       =FACT(statut='f',min=1,max=1,
5039             regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI','VARI_NON_LOCAL',),
5040                     EXCLUS('EVOL_NOLI','DEPL',),
5041                     EXCLUS('EVOL_NOLI','SIGM',),
5042                     EXCLUS('EVOL_NOLI','VARI',),
5043                     EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
5044                     EXCLUS('NUME_ORDRE','INST'), ),
5045             DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
5046             SIGM            =SIMP(statut='f',typ=(cham_elem_sief_r,carte_sief_r)),
5047             VARI            =SIMP(statut='f',typ=cham_elem_vari_r),
5048             VARI_NON_LOCAL  =SIMP(statut='f',typ=cham_no_vanl_r),
5049             EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
5050             NUME_ORDRE      =SIMP(statut='f',typ='I'),
5051             INST            =SIMP(statut='f',typ='R'),
5052             PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
5053             CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5054             NUME_DIDI       =SIMP(statut='f',typ='I'),
5055             INST_ETAT_INIT  =SIMP(statut='f',typ='R'),
5056           ),
5057           SOLVEUR         =FACT(statut='d',min=1,max=1,
5058             METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
5059             b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
5060               RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
5061             ),
5062             b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
5063               RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
5064             ),
5065             b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
5066                                     fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
5067               NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
5068               STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","DECOUPE") ),
5069             ),
5070             b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
5071               PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
5072               NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
5073               RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
5074               RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
5075               NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
5076             ),
5077  #  A quoi sert eps
5078             EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5079             SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
5080           ),
5081             SOLV_NON_LOCAL  =FACT(statut='f',min=1,max=1,
5082               METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
5083               b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
5084                 RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
5085               ),
5086               b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
5087                 RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
5088               ),
5089               b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
5090                                      fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
5091                 NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
5092                 STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
5093               ),
5094               b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
5095                 PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
5096                 NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
5097                 RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
5098                 NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
5099               ),
5100               EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5101             ),
5102             LAGR_NON_LOCAL  =FACT(statut='f',max=1,
5103               ITER_DUAL_MAXI  =SIMP(statut='f',typ='I',defaut= 50),
5104               RESI_DUAL_ABSO  =SIMP(statut='o',typ='R'),
5105               RESI_PRIM_ABSO  =SIMP(statut='o',typ='R'),
5106               R               =SIMP(statut='f',typ='R',defaut= 1000.),
5107               ITER_PRIM_MAXI  =SIMP(statut='f',typ='I',defaut= 10),
5108             ),
5109           PARM_THETA      =SIMP(statut='f',typ='R'
5110                                ,defaut= 1. ),
5111           INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
5112           TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
5113
5114           EXCIT           =FACT(statut='o',min=1,max='**',
5115             CHARGE          =SIMP(statut='o',typ=char_meca),
5116           ),
5117
5118          COMP_INCR       =C_COMP_INCR(),
5119   )  ;
5120 #& MODIF COMMANDE  DATE 04/02/2003   AUTEUR DURAND C.DURAND
5121 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5122 # ======================================================================
5123 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5124 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5125 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5126 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5127 # (AT YOUR OPTION) ANY LATER VERSION.
5128 #
5129 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5130 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5131 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5132 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5133 #
5134 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5135 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5136 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5137 # ======================================================================
5138 CALC_THETA=OPER(nom="CALC_THETA",op=54,sd_prod=theta_geom,docu="U4.82.02-d",reentrant='n',
5139             UIinfo={"groupes":("Post traitements",)},
5140                 fr="Affectation d un champ sur le maillage (mécanique de la rupture)",
5141          regles=(UN_PARMI('THETA_2D','THETA_3D','THETA_BANDE'),
5142                  PRESENT_ABSENT('THETA_2D','DIRE_THETA'),
5143                  EXCLUS('DIRECTION','DIRE_THETA'),),
5144          OPTION          =SIMP(statut='f',typ='TXM',defaut="COURONNE",into=("COURONNE","BANDE") ),
5145          MODELE          =SIMP(statut='o',typ=(modele) ),
5146          THETA_3D        =FACT(statut='f',min=1,max='**',
5147            regles=(UN_PARMI('TOUT','GROUP_NO','NOEUD'),
5148                    UN_PARMI('MODULE','MODULE_FO'),
5149                    ENSEMBLE('MODULE','R_INF','R_SUP'),
5150                    ENSEMBLE('MODULE_FO','R_INF_FO','R_SUP_FO'),),
5151            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5152            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5153            NOEUD           =SIMP(statut='f',typ=no,max='**'),
5154            MODULE          =SIMP(statut='f',typ='R'),
5155            R_INF           =SIMP(statut='f',typ='R'),
5156            R_SUP           =SIMP(statut='f',typ='R'),
5157            MODULE_FO       =SIMP(statut='f',typ=fonction),
5158            R_INF_FO        =SIMP(statut='f',typ=fonction),
5159            R_SUP_FO        =SIMP(statut='f',typ=fonction),
5160                          ),
5161          b_theta_3d     =BLOC(condition="THETA_3D != None",
5162            FOND_FISS       =SIMP(statut='f',typ=fond_fiss),),
5163          DIRE_THETA      =SIMP(statut='f',typ=(cham_no_depl_r) ),
5164          DIRECTION       =SIMP(statut='f',typ='R',max='**'),
5165          THETA_2D        =FACT(statut='f',min=1,max='**',
5166            regles=(UN_PARMI('GROUP_NO','NOEUD'),),
5167            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5168            NOEUD           =SIMP(statut='f',typ=no,max='**'),
5169            MODULE          =SIMP(statut='o',typ='R'),
5170            R_INF           =SIMP(statut='o',typ='R'),
5171            R_SUP           =SIMP(statut='o',typ='R'),
5172          ),
5173          THETA_BANDE     =FACT(statut='f',min=1,max='**',
5174            MODULE          =SIMP(statut='o',typ='R'),
5175            R_INF           =SIMP(statut='o',typ='R'),
5176            R_SUP           =SIMP(statut='o',typ='R'),
5177          ),
5178          GRAD_NOEU_THETA =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
5179          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
5180          IMPRESSION      =FACT(statut='f',min=1,max=1,
5181            FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
5182            FORMAT          =SIMP(statut='f',typ='TXM',defaut="EXCEL",into=("EXCEL","AGRAF") ),
5183          ),
5184 )  ;
5185 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
5186 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5187 # ======================================================================
5188 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5189 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5190 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5191 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5192 # (AT YOUR OPTION) ANY LATER VERSION.
5193 #
5194 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5195 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5196 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5197 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5198 #
5199 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5200 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5201 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5202 # ======================================================================
5203 # RESPONSABLE VABHHTS J.PELLET
5204 def calc_vect_elem_prod(OPTION,**args):
5205   if OPTION == "CHAR_MECA" :      return vect_elem_depl_r
5206   if OPTION == "CHAR_MECA_LAGR" : return vect_elem_depl_r
5207   if OPTION == "CHAR_THER" :      return vect_elem_temp_r
5208   if OPTION == "CHAR_ACOU" :      return vect_elem_pres_c
5209   if OPTION == "FORC_NODA" :      return vect_elem_depl_r
5210   raise AsException("type de concept resultat non prevu")
5211
5212 CALC_VECT_ELEM=OPER(nom="CALC_VECT_ELEM",op=8,sd_prod=calc_vect_elem_prod,docu="U4.61.02-f",reentrant='n',
5213             UIinfo={"groupes":("Matrices/vecteurs",)},
5214                     fr="Calcul des seconds membres élémentaires",
5215          OPTION          =SIMP(statut='o',typ='TXM',into=("CHAR_MECA","CHAR_THER","CHAR_ACOU",
5216                                                            "FORC_NODA","CHAR_MECA_LAGR") ),
5217          b_char_meca     =BLOC(condition = "OPTION=='CHAR_MECA'",
5218            regles=(AU_MOINS_UN('CHARGE','MODELE'),),
5219            CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
5220            MODELE          =SIMP(statut='f',typ=modele),
5221            b_charge     =BLOC(condition = "CHARGE != None", fr="modèle ne contenant pas de sous-structure",
5222               CHAM_MATER   =SIMP(statut='f',typ=cham_mater),
5223               CARA_ELEM    =SIMP(statut='f',typ=cara_elem),
5224               INST         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5225               MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
5226            ),
5227            b_modele     =BLOC(condition = "(MODELE != None)",fr="modèle contenant une sous-structure",
5228               SOUS_STRUC      =FACT(statut='o',min=01,
5229                 regles=(UN_PARMI('TOUT','MAILLE'),),
5230                 CAS_CHARGE  =SIMP(statut='o',typ='TXM' ),
5231                 TOUT        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5232                 MAILLE      =SIMP(statut='f',typ=ma,max='**',),
5233               ),
5234            ),
5235          ),
5236          b_char_ther     =BLOC(condition = "OPTION=='CHAR_THER'",
5237            CARA_ELEM        =SIMP(statut='f',typ=cara_elem),
5238            CHARGE           =SIMP(statut='o',typ=char_ther,max='**'),
5239            INST             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5240          ),
5241
5242          b_char_acou     =BLOC(condition = "OPTION=='CHAR_ACOU'",
5243            CHAM_MATER        =SIMP(statut='o',typ=cham_mater),
5244            CHARGE            =SIMP(statut='o',typ=char_acou,max='**'),
5245          ),
5246
5247          b_forc_noda     =BLOC(condition = "OPTION=='FORC_NODA'",
5248            SIEF_ELGA         =SIMP(statut='o',typ=cham_elem_sief_r),
5249            CARA_ELEM         =SIMP(statut='f',typ=cara_elem),
5250            MODELE            =SIMP(statut='f',typ=modele),
5251          ),
5252
5253          b_meca_lagr     =BLOC(condition = "OPTION=='CHAR_MECA_LAGR'",
5254            CHAM_MATER        =SIMP(statut='o',typ=cham_mater),
5255            THETA             =SIMP(statut='o',typ=theta_geom),
5256            PROPAGATION       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5257            CHARGE            =SIMP(statut='f',typ=char_meca,max='**'),
5258            INST              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
5259          ),
5260 ) ;
5261 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
5262 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5263 # ======================================================================
5264 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5265 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5266 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5267 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5268 # (AT YOUR OPTION) ANY LATER VERSION.
5269 #
5270 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5271 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5272 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5273 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5274 #
5275 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5276 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5277 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5278 # ======================================================================
5279 # RESPONSABLE G8BHHXD X.DESROCHES
5280 def comb_cham_elem_prod(COMB_R=None,COMB_C=None,COMB_FOURIER=None,**args):
5281
5282   if COMB_R != None:
5283     vale=COMB_R.get_child('CHAM_ELEM').get_valeur()
5284   elif COMB_C != None:
5285     vale=COMB_C.get_child('CHAM_ELEM').get_valeur()
5286   elif COMB_FOURIER != None:
5287     vale=COMB_FOURIER.get_child('CHAM_ELEM').get_valeur()
5288   else :
5289     raise AsException("type de concept resultat non prevu")
5290
5291   if AsType(vale) == cham_elem_sief_r : return cham_elem_sief_r
5292   if AsType(vale) == cham_elem_flux_r : return cham_elem_flux_r
5293   if AsType(vale) == cham_elem_epsi_r : return cham_elem_epsi_r
5294   if AsType(vale) == cham_elem_ener_r : return cham_elem_ener_r
5295   if AsType(vale) == cham_elem_crit_r : return cham_elem_crit_r
5296   if AsType(vale) == cham_elem_dbel_r : return cham_elem_dbel_r
5297   if AsType(vale) == cham_elem_pres_r : return cham_elem_pres_r
5298   if AsType(vale) == cham_elem_sief_c : return cham_elem_sief_c
5299   raise AsException("type de concept resultat non prevu")
5300
5301 COMB_CHAM_ELEM=OPER(nom="COMB_CHAM_ELEM",op= 139,sd_prod=comb_cham_elem_prod,reentrant='f',
5302                     fr="Combinaison linéaire de champs par éléments",docu="U4.72.03-e",
5303             UIinfo={"groupes":("Résultats et champs",)},
5304       regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),
5305               PRESENT_PRESENT('COMB_FOURIER','ANGL'),),
5306       COMB_R          =FACT(statut='f',min=1,max='**',
5307         PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
5308         COEF_R          =SIMP(statut='o',typ='R'),
5309         CHAM_ELEM       =SIMP(statut='o',
5310                               typ=(cham_elem_sief_r,cham_elem_flux_r,cham_elem_epsi_r,
5311                                    cham_elem_ener_r,cham_elem_crit_r,cham_elem_dbel_r,
5312                                    cham_elem_pres_r,cham_elem_sief_c ) ),
5313       ),
5314       COMB_C          =FACT(statut='f',min=1,max='**',
5315         regles=(UN_PARMI('COEF_R','COEF_C', ),),
5316         COEF_R          =SIMP(statut='f',typ='R'),
5317         COEF_C          =SIMP(statut='f',typ='C'),
5318         CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r) ),
5319       ),
5320       COMB_FOURIER    =FACT(statut='f',min=1,max='**',
5321         COEF_R          =SIMP(statut='f',typ='R',defaut= 1.),
5322         NUME_MODE       =SIMP(statut='o',typ='I'),
5323         TYPE_MODE       =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
5324         CHAM_ELEM       =SIMP(statut='o',typ=(cham_elem_sief_r,cham_elem_flux_r,cham_elem_epsi_r ) ),
5325       ),
5326       ANGL            =SIMP(statut='f',typ='R' ),
5327 )  ;
5328
5329 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
5330 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5331 # ======================================================================
5332 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5333 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5334 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5335 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5336 # (AT YOUR OPTION) ANY LATER VERSION.
5337 #
5338 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5339 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5340 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5341 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5342 #
5343 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5344 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5345 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5346 # ======================================================================
5347 # RESPONSABLE G8BHHXD X.DESROCHES
5348 def comb_cham_no_prod(COMB_R,COMB_C,COMB_FOURIER,**args):
5349   if COMB_C != None:
5350     type_mat = AsType(COMB_C.get_child('CHAM_NO').get_valeur())
5351     if type_mat in  (cham_no_depl_c,cham_no_depl_r) : return cham_no_depl_c
5352     if type_mat in  (cham_no_temp_c,cham_no_temp_r) : return cham_no_temp_c
5353     if type_mat in  (cham_no_pres_c,cham_no_pres_r) : return cham_no_pres_c
5354   elif COMB_R != None:
5355     type_mat = AsType(COMB_R.get_child('CHAM_NO').get_valeur())
5356     if type_mat in  (cham_no_depl_c,cham_no_depl_r) : return cham_no_depl_r
5357     if type_mat in  (cham_no_temp_c,cham_no_temp_r) : return cham_no_temp_r
5358     if type_mat in  (cham_no_pres_c,cham_no_pres_r) : return cham_no_pres_r
5359     if type_mat ==  matr_asse_gene_r : return matr_asse_gene_r
5360   elif COMB_FOURIER != None:
5361     type_mat = AsType(COMB_FOURIER.get_child('CHAM_NO').get_valeur())
5362     if type_mat == cham_no_temp_r : return cham_no_temp_r
5363     if type_mat == cham_no_depl_r : return cham_no_depl_r
5364   raise AsException("type de concept resultat non prevu")
5365
5366
5367 COMB_CHAM_NO=OPER(nom="COMB_CHAM_NO",op=  30,sd_prod=comb_cham_no_prod
5368                     ,fr="Combinaison linéaire de champs aux noeuds",
5369                      docu="U4.72.02-f",reentrant='f',
5370             UIinfo={"groupes":("Résultats et champs",)},
5371          regles=(UN_PARMI('COMB_R','COMB_C','COMB_FOURIER'),),
5372          COMB_R          =FACT(statut='f',min=1,max='**',
5373            PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG",) ),
5374            CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_temp_c,cham_no_depl_r,cham_no_depl_c
5375                                                 ,cham_no_pres_r,cham_no_pres_c ) ),
5376            COEF_R          =SIMP(statut='o',typ='R' ),
5377          ),
5378          COMB_C          =FACT(statut='f',min=1,max='**',
5379            regles=(UN_PARMI('COEF_R','COEF_C' ),),
5380            CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r,cham_no_temp_c
5381                                                 ,cham_no_depl_c,cham_no_pres_c ) ),
5382            COEF_R          =SIMP(statut='f',typ='R' ),
5383            COEF_C          =SIMP(statut='f',typ='C' ),
5384          ),
5385          COMB_FOURIER    =FACT(statut='f',min=1,max='**',
5386            CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r) ),
5387            COEF_R          =SIMP(statut='f',typ='R',defaut= 1. ),
5388            NUME_MODE       =SIMP(statut='o',typ='I' ),
5389            TYPE_MODE       =SIMP(statut='o',typ='TXM',into=("SYME","ANTI") ),
5390          ),
5391          b_angl = BLOC ( condition = "COMB_FOURIER != None",
5392            ANGL            =SIMP(statut='o',typ='R' ),
5393          ),
5394 )  ;
5395 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
5396 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5397 # ======================================================================
5398 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5399 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5400 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5401 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5402 # (AT YOUR OPTION) ANY LATER VERSION.
5403 #
5404 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5405 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5406 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5407 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5408 #
5409 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5410 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5411 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5412 # ======================================================================
5413 # RESPONSABLE G8BHHXD X.DESROCHES
5414 COMB_FOURIER=OPER(nom="COMB_FOURIER",op= 161,sd_prod=comb_fourier,
5415                   docu="U4.83.31-c",reentrant='n',
5416             UIinfo={"groupes":("Post traitements",)},
5417          RESULTAT        =SIMP(statut='o',typ=fourier_elas ),
5418          ANGL            =SIMP(statut='o',typ='R',max='**'),
5419          NOM_CHAM        =SIMP(statut='o',typ='TXM',max=5,
5420                                into=("DEPL","REAC_NODA","SIEF_ELGA_DEPL","EPSI_ELNO_DEPL","SIGM_ELNO_DEPL") ),
5421 )  ;
5422 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
5423 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5424 # ======================================================================
5425 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5426 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5427 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5428 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5429 # (AT YOUR OPTION) ANY LATER VERSION.
5430 #
5431 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5432 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5433 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5434 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5435 #
5436 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5437 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5438 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5439 # ======================================================================
5440 # RESPONSABLE VABHHTS J.PELLET
5441 def comb_matr_asse_prod(COMB_R,COMB_C,CALC_AMOR_GENE,**args):
5442   if COMB_C != None:
5443     type_mat = AsType(COMB_C.get_child('MATR_ASSE').get_valeur())
5444     if type_mat in  (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_c
5445     if type_mat in  (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_c
5446     if type_mat in  (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_c
5447     if type_mat in  (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_c
5448   elif COMB_R != None:
5449     type_mat = AsType(COMB_R.get_child('MATR_ASSE').get_valeur())
5450     if type_mat in  (matr_asse_depl_c,matr_asse_depl_r) : return matr_asse_depl_r
5451     if type_mat in  (matr_asse_temp_c,matr_asse_temp_r) : return matr_asse_temp_r
5452     if type_mat in  (matr_asse_pres_c,matr_asse_pres_r) : return matr_asse_pres_r
5453     if type_mat in  (matr_asse_gene_c,matr_asse_gene_r) : return matr_asse_gene_r
5454   elif CALC_AMOR_GENE != None: return matr_asse_gene_r
5455   raise AsException("type de concept resultat non prevu")
5456
5457 COMB_MATR_ASSE=OPER(nom="COMB_MATR_ASSE",op=  31,sd_prod=comb_matr_asse_prod,
5458                     fr="Combinaison linéaire de matrices assemblées",
5459                     docu="U4.72.01-g1",reentrant='f',
5460             UIinfo={"groupes":("Résultats et champs",)},
5461          regles=(UN_PARMI('COMB_R','COMB_C','CALC_AMOR_GENE' ),),
5462          COMB_R          =FACT(statut='f',min=1,max='**',
5463            PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
5464            MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_temp_c
5465                                                 ,matr_asse_pres_r,matr_asse_pres_c,matr_asse_gene_r,matr_asse_gene_c ) ),
5466            COEF_R          =SIMP(statut='o',typ='R' ),
5467          ),
5468          COMB_C          =FACT(statut='f',min=1,max='**',
5469            regles=(UN_PARMI('COEF_R','COEF_C' ),),
5470            MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_temp_c
5471                                                 ,matr_asse_pres_r,matr_asse_pres_c,matr_asse_gene_r,matr_asse_gene_c ) ),
5472            COEF_R          =SIMP(statut='f',typ='R' ),
5473            COEF_C          =SIMP(statut='f',typ='C' ),
5474          ),
5475          CALC_AMOR_GENE   =FACT(statut='f',min=1,max=1,
5476            regles=(UN_PARMI('AMOR_REDUIT','LIST_AMOR' ),),
5477            MASS_GENE    = SIMP(statut='f', typ=matr_asse_gene_r),
5478            RIGI_GENE    = SIMP(statut='f', typ=matr_asse_gene_r),
5479            AMOR_REDUIT  = SIMP(statut='f',typ='R',max='**'),
5480            LIST_AMOR    = SIMP(statut='f',typ=listr8 ),
5481          ),
5482          SANS_CMP        =SIMP(statut='f',typ='TXM',into=("LAGR",) ),
5483 )  ;
5484 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
5485 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5486 # ======================================================================
5487 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5488 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5489 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5490 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5491 # (AT YOUR OPTION) ANY LATER VERSION.
5492 #
5493 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5494 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5495 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5496 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5497 #
5498 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5499 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5500 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5501 # ======================================================================
5502 COMB_SISM_MODAL=OPER(nom="COMB_SISM_MODAL",op= 109,sd_prod=mode_stat,
5503                      fr="Réponse sismique par recombinaison modale par une méthode spectrale",
5504                      docu="U4.84.01-e1",reentrant='n',
5505             UIinfo={"groupes":("Post traitements",)},
5506          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ','LIST_ORDRE'),
5507                  UN_PARMI('AMOR_REDUIT','LIST_AMOR','AMOR_GENE' ),),
5508          MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
5509          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5510          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
5511          LIST_ORDRE      =SIMP(statut='f',typ=listis ),
5512          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
5513          FREQ            =SIMP(statut='f',typ='R',max='**'),
5514          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
5515          b_freq          =BLOC(condition = "FREQ != None or LIST_FREQ != None",
5516            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
5517            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
5518          ),
5519          MODE_CORR       =SIMP(statut='f',typ=mode_stat_acce ),
5520
5521          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
5522          LIST_AMOR       =SIMP(statut='f',typ=listr8 ),
5523          AMOR_GENE       =SIMP(statut='f',typ=matr_asse_gene_r ),
5524
5525          MASS_INER       =SIMP(statut='f',typ=tabl_mass_iner ),
5526          CORR_FREQ       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
5527
5528          EXCIT           =FACT(statut='o',min=1,max='**',
5529            regles=(UN_PARMI('MONO_APPUI','NOEUD','GROUP_NO'),
5530                    UN_PARMI('AXE','TRI_AXE','TRI_SPEC' ),),
5531
5532            MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5533            NOEUD           =SIMP(statut='f',typ=no,max='**'),
5534            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5535            AXE             =SIMP(statut='f',fr="Excitation suivant un seul axe",
5536                                  typ='R',max=3),
5537            TRI_AXE         =SIMP(statut='f',fr="Excitation suivant les trois axes mais avec le meme spectre",
5538                                  typ='R',max=3),
5539            TRI_SPEC        =SIMP(statut='f',fr="Excitation suivant les trois axes  avec trois spectres",
5540                                  typ='TXM',into=("OUI",) ),
5541            b_axe           =BLOC(condition = "AXE != None",fr="Excitation suivant un seul axe",
5542              SPEC_OSCI       =SIMP(statut='o',typ=fonction,max=1 ),
5543              ECHELLE         =SIMP(statut='f',typ='R',max=1),
5544            ),
5545            b_tri_axe       =BLOC(condition = "TRI_AXE != None",fr="Excitation suivant les trois axes mais avec le meme spectre",
5546              SPEC_OSCI       =SIMP(statut='o',typ=fonction,max=1 ),
5547              ECHELLE         =SIMP(statut='f',typ='R',max=1),
5548            ),
5549            b_tri_spec      =BLOC(condition = "TRI_SPEC != None",fr="Excitation suivant les trois axes  avec trois spectres",
5550              SPEC_OSCI       =SIMP(statut='o',typ=fonction,min=3,max=3 ),
5551              ECHELLE         =SIMP(statut='f',typ='R',min=3,max=3),
5552            ),
5553            NATURE          =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("ACCE","VITE","DEPL") ),
5554          ),
5555          COMB_MODE       =FACT(statut='o',min=1,max=1,
5556            TYPE            =SIMP(statut='o',typ='TXM',into=("SRSS","CQC","DSC","ABS","DPC") ),
5557            DUREE           =SIMP(statut='f',typ='R' ),
5558          ),
5559          COMB_DIRECTION  =FACT(statut='f',min=1,max=1,
5560            TYPE            =SIMP(statut='f',typ='TXM',into=("QUAD","NEWMARK") ),
5561          ),
5562          COMB_MULT_APPUI =FACT(statut='f',min=1,max='**',
5563            regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO' ),
5564                    UN_PARMI('TYPE_COMBI','TYPE' ),),
5565            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5566            NOEUD           =SIMP(statut='f',typ=no,max='**'),
5567            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5568            TYPE_COMBI      =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
5569            TYPE            =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
5570          ),
5571          COMB_DEPL_APPUI=FACT(statut='f',min=1,max='**',
5572            regles=(UN_PARMI('TOUT','LIST_CAS'),
5573                    UN_PARMI('TYPE_COMBI','TYPE' ),),
5574            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
5575            LIST_CAS       =SIMP(statut='f',typ='I',max='**'),
5576            TYPE_COMBI      =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
5577            TYPE            =SIMP(statut='f',typ='TXM',into=("QUAD","LINE","ABS") ),
5578          ),
5579          DEPL_MULT_APPUI =FACT(statut='f',min=1,max='**',
5580            regles=(UN_PARMI('NOEUD','GROUP_NO'),
5581                    AU_MOINS_UN('DX','DY','DZ' ),),
5582            NOM_CAS         =SIMP(statut='o',typ='TXM',max='**'),
5583            NUME_CAS        =SIMP(statut='o',typ='I',max='**'),
5584            MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,), ),
5585            NOEUD_REFE      =SIMP(statut='f',typ=no),
5586            NOEUD           =SIMP(statut='f',typ=no,max='**'),
5587            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5588            DX              =SIMP(statut='f',typ='R' ),
5589            DY              =SIMP(statut='f',typ='R' ),
5590            DZ              =SIMP(statut='f',typ='R' ),
5591          ),
5592          OPTION          =SIMP(statut='o',typ='TXM',max=9,
5593                                into=("DEPL","VITE","ACCE_ABSOLU","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
5594                                      "EFGE_ELNO_DEPL","REAC_NODA","FORC_NODA","EFGE_ELNO_CART",
5595                                      "SIPO_ELNO_DEPL") ),
5596          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
5597          IMPRESSION      =FACT(statut='f',min=1,max='**',
5598            regles=(EXCLUS('TOUT','NIVEAU'),),
5599            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5600            NIVEAU          =SIMP(statut='f',typ='TXM',into=("SPEC_OSCI","MASS_EFFE","MAXI_GENE"),max=3 ),
5601          ),
5602          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
5603 )  ;
5604 #& MODIF COMMANDE  DATE 24/01/2003   AUTEUR CIBHHLV L.VIVAN
5605 # RESPONSABLE VABHHTS J.PELLET
5606 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5607 # ======================================================================
5608 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5609 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
5610 #              REDISTRIBUTION OF THIS FILE.
5611 # ======================================================================
5612 def crea_champ_prod(TYPE_CHAM,**args):
5613   if TYPE_CHAM == "CART_DBEL_R" : return carte_dbel_r
5614   if TYPE_CHAM == "CART_DEPL_C" : return carte_depl_c
5615   if TYPE_CHAM == "CART_DEPL_F" : return carte_depl_f
5616   if TYPE_CHAM == "CART_DEPL_R" : return carte_depl_r
5617   if TYPE_CHAM == "CART_DURT_R" : return carte_durt_r
5618   if TYPE_CHAM == "CART_ENER_R" : return carte_ener_r
5619   if TYPE_CHAM == "CART_EPSI_R" : return carte_epsi_r
5620   if TYPE_CHAM == "CART_ERREUR" : return carte_erreur
5621   if TYPE_CHAM == "CART_FLUX_R" : return carte_flux_r
5622   if TYPE_CHAM == "CART_GEOM_R" : return carte_geom_r
5623   if TYPE_CHAM == "CART_G_DEPL_R" : return carte_g_depl_r
5624   if TYPE_CHAM == "CART_HYDR_R" : return carte_hydr_r
5625   if TYPE_CHAM == "CART_INST_R" : return carte_inst_r
5626   if TYPE_CHAM == "CART_INTE_R" : return carte_inte_r
5627   if TYPE_CHAM == "CART_META_R" : return carte_meta_r
5628   if TYPE_CHAM == "CART_NEUT_F" : return carte_neut_f
5629   if TYPE_CHAM == "CART_NEUT_R" : return carte_neut_r
5630   if TYPE_CHAM == "CART_PRES_R" : return carte_pres_r
5631   if TYPE_CHAM == "CART_SIEF_R" : return carte_sief_r
5632   if TYPE_CHAM == "CART_SOUR_R" : return carte_sour_r
5633   if TYPE_CHAM == "CART_TEMP_F" : return carte_temp_f
5634   if TYPE_CHAM == "CART_TEMP_R" : return carte_temp_r
5635   if TYPE_CHAM == "CART_VAR2_R" : return carte_var2_r
5636   if TYPE_CHAM == "CART_VNOR_C" : return carte_vnor_c
5637   if TYPE_CHAM == "NOEU_DBEL_R" : return cham_no_dbel_r
5638   if TYPE_CHAM == "NOEU_DEPL_C" : return cham_no_depl_c
5639   if TYPE_CHAM == "NOEU_DEPL_F" : return cham_no_depl_f
5640   if TYPE_CHAM == "NOEU_DEPL_R" : return cham_no_depl_r
5641   if TYPE_CHAM == "NOEU_DURT_R" : return cham_no_durt_r
5642   if TYPE_CHAM == "NOEU_ENER_R" : return cham_no_ener_r
5643   if TYPE_CHAM == "NOEU_EPSI_R" : return cham_no_epsi_r
5644   if TYPE_CHAM == "NOEU_ERREUR" : return cham_no_erreur
5645   if TYPE_CHAM == "NOEU_FLUX_R" : return cham_no_flux_r
5646   if TYPE_CHAM == "NOEU_GEOM_R" : return cham_no_geom_r
5647   if TYPE_CHAM == "NOEU_G_DEPL_R" : return cham_no_g_depl_r
5648   if TYPE_CHAM == "NOEU_HYDR_R" : return cham_no_hydr_r
5649   if TYPE_CHAM == "NOEU_INST_R" : return cham_no_inst_r
5650   if TYPE_CHAM == "NOEU_INTE_R" : return cham_no_inte_r
5651   if TYPE_CHAM == "NOEU_META_R" : return cham_no_meta_r
5652   if TYPE_CHAM == "NOEU_NEUT_F" : return cham_no_neut_f
5653   if TYPE_CHAM == "NOEU_NEUT_R" : return cham_no_neut_r
5654   if TYPE_CHAM == "NOEU_PRES_R" : return cham_no_pres_r
5655   if TYPE_CHAM == "NOEU_SIEF_R" : return cham_no_sief_r
5656   if TYPE_CHAM == "NOEU_SOUR_R" : return cham_no_sour_r
5657   if TYPE_CHAM == "NOEU_TEMP_F" : return cham_no_temp_f
5658   if TYPE_CHAM == "NOEU_TEMP_R" : return cham_no_temp_r
5659   if TYPE_CHAM == "NOEU_VAR2_R" : return cham_no_var2_r
5660   if TYPE_CHAM == "NOEU_VNOR_C" : return cham_no_vnor_c
5661   if TYPE_CHAM == "ELEM_DBEL_R" : return cham_elem_dbel_r
5662   if TYPE_CHAM == "ELEM_DEPL_C" : return cham_elem_depl_c
5663   if TYPE_CHAM == "ELEM_DEPL_F" : return cham_elem_depl_f
5664   if TYPE_CHAM == "ELEM_DEPL_R" : return cham_elem_depl_r
5665   if TYPE_CHAM == "ELEM_DURT_R" : return cham_elem_durt_r
5666   if TYPE_CHAM == "ELEM_ENER_R" : return cham_elem_ener_r
5667   if TYPE_CHAM == "ELEM_EPSI_R" : return cham_elem_epsi_r
5668   if TYPE_CHAM == "ELEM_ERREUR" : return cham_elem_erreur
5669   if TYPE_CHAM == "ELEM_FLUX_R" : return cham_elem_flux_r
5670   if TYPE_CHAM == "ELEM_GEOM_R" : return cham_elem_geom_r
5671   if TYPE_CHAM == "ELEM_G_DEPL_R" : return cham_elem_g_depl
5672   if TYPE_CHAM == "ELEM_HYDR_R" : return cham_elem_hydr_r
5673   if TYPE_CHAM == "ELEM_INST_R" : return cham_elem_inst_r
5674   if TYPE_CHAM == "ELEM_INTE_R" : return cham_elem_inte_r
5675   if TYPE_CHAM == "ELEM_META_R" : return cham_elem_meta_r
5676   if TYPE_CHAM == "ELEM_NEUT_F" : return cham_elem_neut_f
5677   if TYPE_CHAM == "ELEM_NEUT_R" : return cham_elem_neut_r
5678   if TYPE_CHAM == "ELEM_PRES_R" : return cham_elem_pres_r
5679   if TYPE_CHAM == "ELEM_SIEF_R" : return cham_elem_sief_r
5680   if TYPE_CHAM == "ELEM_SOUR_R" : return cham_elem_sour_r
5681   if TYPE_CHAM == "ELEM_TEMP_F" : return cham_elem_temp_f
5682   if TYPE_CHAM == "ELEM_TEMP_R" : return cham_elem_temp_r
5683   if TYPE_CHAM == "ELEM_VARI_R" : return cham_elem_vari_r
5684   if TYPE_CHAM == "ELEM_VNOR_C" : return cham_elem_vnor_c
5685   if TYPE_CHAM == "ELNO_DBEL_R" : return cham_elem_dbel_r
5686   if TYPE_CHAM == "ELNO_DEPL_C" : return cham_elem_depl_c
5687   if TYPE_CHAM == "ELNO_DEPL_F" : return cham_elem_depl_f
5688   if TYPE_CHAM == "ELNO_DEPL_R" : return cham_elem_depl_r
5689   if TYPE_CHAM == "ELNO_DURT_R" : return cham_elem_durt_r
5690   if TYPE_CHAM == "ELNO_ENER_R" : return cham_elem_ener_r
5691   if TYPE_CHAM == "ELNO_EPSI_R" : return cham_elem_epsi_r
5692   if TYPE_CHAM == "ELNO_ERREUR" : return cham_elem_erreur
5693   if TYPE_CHAM == "ELNO_FLUX_R" : return cham_elem_flux_r
5694   if TYPE_CHAM == "ELNO_GEOM_R" : return cham_elem_geom_r
5695   if TYPE_CHAM == "ELNO_G_DEPL_R" : return cham_elem_g_depl
5696   if TYPE_CHAM == "ELNO_HYDR_R" : return cham_elem_hydr_r
5697   if TYPE_CHAM == "ELNO_INST_R" : return cham_elem_inst_r
5698   if TYPE_CHAM == "ELNO_INTE_R" : return cham_elem_inte_r
5699   if TYPE_CHAM == "ELNO_META_R" : return cham_elem_meta_r
5700   if TYPE_CHAM == "ELNO_NEUT_F" : return cham_elem_neut_f
5701   if TYPE_CHAM == "ELNO_NEUT_R" : return cham_elem_neut_r
5702   if TYPE_CHAM == "ELNO_PRES_R" : return cham_elem_pres_r
5703   if TYPE_CHAM == "ELNO_SIEF_R" : return cham_elem_sief_r
5704   if TYPE_CHAM == "ELNO_SOUR_R" : return cham_elem_sour_r
5705   if TYPE_CHAM == "ELNO_TEMP_F" : return cham_elem_temp_f
5706   if TYPE_CHAM == "ELNO_TEMP_R" : return cham_elem_temp_r
5707   if TYPE_CHAM == "ELNO_VARI_R" : return cham_elem_vari_r
5708   if TYPE_CHAM == "ELNO_VNOR_C" : return cham_elem_vnor_c
5709   if TYPE_CHAM == "ELGA_DBEL_R" : return cham_elem_dbel_r
5710   if TYPE_CHAM == "ELGA_DEPL_C" : return cham_elem_depl_c
5711   if TYPE_CHAM == "ELGA_DEPL_F" : return cham_elem_depl_f
5712   if TYPE_CHAM == "ELGA_DEPL_R" : return cham_elem_depl_r
5713   if TYPE_CHAM == "ELGA_DURT_R" : return cham_elem_durt_r
5714   if TYPE_CHAM == "ELGA_ENER_R" : return cham_elem_ener_r
5715   if TYPE_CHAM == "ELGA_EPSI_R" : return cham_elem_epsi_r
5716   if TYPE_CHAM == "ELGA_ERREUR" : return cham_elem_erreur
5717   if TYPE_CHAM == "ELGA_FLUX_R" : return cham_elem_flux_r
5718   if TYPE_CHAM == "ELGA_GEOM_R" : return cham_elem_geom_r
5719   if TYPE_CHAM == "ELGA_G_DEPL_R" : return cham_elem_g_depl
5720   if TYPE_CHAM == "ELGA_HYDR_R" : return cham_elem_hydr_r
5721   if TYPE_CHAM == "ELGA_INST_R" : return cham_elem_inst_r
5722   if TYPE_CHAM == "ELGA_INTE_R" : return cham_elem_inte_r
5723   if TYPE_CHAM == "ELGA_META_R" : return cham_elem_meta_r
5724   if TYPE_CHAM == "ELGA_NEUT_F" : return cham_elem_neut_f
5725   if TYPE_CHAM == "ELGA_NEUT_R" : return cham_elem_neut_r
5726   if TYPE_CHAM == "ELGA_PRES_R" : return cham_elem_pres_r
5727   if TYPE_CHAM == "ELGA_SIEF_R" : return cham_elem_sief_r
5728   if TYPE_CHAM == "ELGA_SOUR_R" : return cham_elem_sour_r
5729   if TYPE_CHAM == "ELGA_TEMP_F" : return cham_elem_temp_f
5730   if TYPE_CHAM == "ELGA_TEMP_R" : return cham_elem_temp_r
5731   if TYPE_CHAM == "ELGA_VARI_R" : return cham_elem_vari_r
5732   if TYPE_CHAM == "ELGA_VNOR_C" : return cham_elem_vnor_c
5733   if TYPE_CHAM == "CART_IRRA_R" : return carte_irra_r
5734   if TYPE_CHAM == "NOEU_IRRA_R" : return cham_no_irra_r
5735   if TYPE_CHAM == "ELEM_IRRA_R" : return cham_elem_irra_r
5736   if TYPE_CHAM == "ELNO_IRRA_R" : return cham_elem_irra_r
5737   if TYPE_CHAM == "ELGA_IRRA_R" : return cham_elem_irra_r
5738   if TYPE_CHAM == "ELEM_SPMA_R" : return cham_elem_spma_r
5739   raise AsException("type de concept resultat non prevu")
5740
5741 CREA_CHAMP=OPER(nom="CREA_CHAMP",op= 195,sd_prod=crea_champ_prod,
5742                 fr="  ",docu="U4.72.04-b1",reentrant='n',
5743             UIinfo={"groupes":("Résultats et champs",)},
5744          TYPE_CHAM       =SIMP(statut='o',typ='TXM',
5745                         into=("CART_DBEL_R","NOEU_DBEL_R","ELEM_DBEL_R",
5746                              "ELNO_DBEL_R","ELGA_DBEL_R","CART_DEPL_C",
5747                              "NOEU_DEPL_C","ELEM_DEPL_C","ELNO_DEPL_C",
5748                              "ELGA_DEPL_C","CART_DEPL_F","NOEU_DEPL_F",
5749                              "ELEM_DEPL_F","ELNO_DEPL_F","ELGA_DEPL_F",
5750                              "CART_DEPL_R","NOEU_DEPL_R","ELEM_DEPL_R",
5751                              "ELNO_DEPL_R","ELGA_DEPL_R","CART_DURT_R",
5752                              "NOEU_DURT_R","ELEM_DURT_R","ELNO_DURT_R",
5753                              "ELGA_DURT_R","CART_ENER_R","NOEU_ENER_R",
5754                              "ELEM_ENER_R","ELNO_ENER_R","ELGA_ENER_R",
5755                              "CART_EPSI_R","NOEU_EPSI_R","ELEM_EPSI_R",
5756                              "ELNO_EPSI_R","ELGA_EPSI_R","CART_ERREUR",
5757                              "NOEU_ERREUR","ELEM_ERREUR","ELNO_ERREUR",
5758                              "ELGA_ERREUR","CART_FLUX_R","NOEU_FLUX_R",
5759                              "ELEM_FLUX_R","ELNO_FLUX_R","ELGA_FLUX_R",
5760                              "CART_GEOM_R","NOEU_GEOM_R","ELEM_GEOM_R",
5761                              "ELNO_GEOM_R","ELGA_GEOM_R","CART_G_DEPL_R",
5762                              "NOEU_G_DEPL_R","ELEM_G_DEPL_R","ELNO_G_DEPL_R",
5763                              "ELGA_G_DEPL_R","CART_HYDR_R","NOEU_HYDR_R",
5764                              "ELEM_HYDR_R","ELNO_HYDR_R","ELGA_HYDR_R",
5765                              "CART_INST_R","NOEU_INST_R","ELEM_INST_R",
5766                              "ELNO_INST_R","ELGA_INST_R","CART_INTE_R",
5767                              "NOEU_INTE_R","ELEM_INTE_R","ELNO_INTE_R",
5768                              "ELGA_INTE_R","CART_META_R","NOEU_META_R",
5769                              "ELEM_META_R","ELNO_META_R","ELGA_META_R",
5770                              "CART_NEUT_F","NOEU_NEUT_F","ELEM_NEUT_F",
5771                              "ELNO_NEUT_F","ELGA_NEUT_F","CART_NEUT_R",
5772                              "NOEU_NEUT_R","ELEM_NEUT_R","ELNO_NEUT_R",
5773                              "ELGA_NEUT_R","CART_PRES_R","NOEU_PRES_R",
5774                              "ELEM_PRES_R","ELNO_PRES_R","ELGA_PRES_R",
5775                              "CART_SIEF_R","NOEU_SIEF_R","ELEM_SIEF_R",
5776                              "ELNO_SIEF_R","ELGA_SIEF_R","CART_SOUR_R",
5777                              "NOEU_SOUR_R","ELEM_SOUR_R","ELNO_SOUR_R",
5778                              "ELGA_SOUR_R","CART_TEMP_F","NOEU_TEMP_F",
5779                              "ELEM_TEMP_F","ELNO_TEMP_F","ELGA_TEMP_F",
5780                              "CART_TEMP_R","NOEU_TEMP_R","ELEM_TEMP_R",
5781                              "ELNO_TEMP_R","ELGA_TEMP_R","CART_VAR2_R",
5782                              "NOEU_VAR2_R","ELEM_VARI_R","ELNO_VARI_R",
5783                              "ELGA_VARI_R","CART_VNOR_C","NOEU_VNOR_C",
5784                              "ELEM_VNOR_C","ELNO_VNOR_C","ELGA_VNOR_C",
5785                              "CART_IRRA_R","NOEU_IRRA_R","ELEM_IRRA_R",
5786                              "ELNO_IRRA_R","ELGA_IRRA_R","ELEM_SPMA_R",) ),
5787
5788 #        SI CREATION D'UN CHAM_NO, POUR IMPOSER LA NUMEROTATION DES DDLS :
5789 #        ------------------------------------------------------------------
5790          regles=(EXCLUS('NUME_DDL','CHAM_NO',)),
5791          NUME_DDL        =SIMP(statut='f',typ=(nume_ddl) ),
5792          CHAM_NO         =SIMP(statut='f',typ=(cham_no) ),
5793
5794          OPERATION       =SIMP(statut='o',typ='TXM',into=("AFFE","ASSE","EVAL","EXTR","DISC",) ),
5795
5796          b_affe          =BLOC(condition = "OPERATION == 'AFFE'",
5797              regles=(UN_PARMI('MAILLAGE','MODELE'),),
5798              MAILLAGE        =SIMP(statut='f',typ=(maillage) ),
5799              MODELE          =SIMP(statut='f',typ=(modele) ),
5800              b_affe_modele   =BLOC(condition = "MODELE != None",
5801                  PROL_ZERO       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ), ),
5802              AFFE            =FACT(statut='o',min=1,max='**',
5803                 regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
5804                         UN_PARMI('VALE','VALE_I','VALE_C','VALE_F', ),),
5805                 TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5806                 GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5807                 MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5808                 GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5809                 NOEUD           =SIMP(statut='f',typ=no,max='**'),
5810                 NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
5811                 VALE            =SIMP(statut='f',typ='R',max='**' ),
5812                 VALE_I          =SIMP(statut='f',typ='I',max='**' ),
5813                 VALE_C          =SIMP(statut='f',typ='C',max='**' ),
5814                 VALE_F          =SIMP(statut='f',typ=fonction,max='**'),
5815                                    ),
5816                              ),
5817          b_asse          =BLOC(condition = "OPERATION == 'ASSE'",
5818              regles=(UN_PARMI('MAILLAGE','MODELE'),),
5819              MAILLAGE        =SIMP(statut='f',typ=(maillage) ),
5820              MODELE          =SIMP(statut='f',typ=(modele) ),
5821              b_asse_modele   =BLOC(condition = "MODELE != None",
5822                  PROL_ZERO       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ), ),
5823              ASSE            =FACT(statut='o',min=1,max='**',
5824                 regles=(AU_MOINS_UN('TOUT','GROUP_MA','GROUP_NO','MAILLE','NOEUD',),
5825                 PRESENT_PRESENT('NOM_CMP_RESU','NOM_CMP', ),),
5826                 TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5827                 GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5828                 GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5829                 MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5830                 NOEUD           =SIMP(statut='f',typ=no,max='**'),
5831                 CHAM_GD         =SIMP(statut='o',typ=(cham_gd)),
5832                 NOM_CMP         =SIMP(statut='f',typ='TXM',max='**' ),
5833                 NOM_CMP_RESU    =SIMP(statut='f',typ='TXM',max='**' ),
5834                 CUMUL           =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
5835                 COEF_R          =SIMP(statut='f',typ='R',defaut= 1. ),
5836                                     ),
5837                              ),
5838          b_eval          =BLOC(condition = "OPERATION == 'EVAL'",
5839              CHAM_F          =SIMP(statut='o',typ=(cham_gd)),
5840              CHAM_PARA       =SIMP(statut='o',typ=(cham_gd),max='**'),
5841                              ),
5842          b_disc          =BLOC(condition = "OPERATION == 'DISC'",
5843              MODELE          =SIMP(statut='f',typ=(modele) ),
5844              PROL_ZERO       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
5845              CHAM_GD         =SIMP(statut='o',typ=(cham_gd)),
5846                              ),
5847          b_extr          =BLOC(condition = "OPERATION == 'EXTR'",
5848              regles=(UN_PARMI('MAILLAGE','RESULTAT'),),
5849              MAILLAGE        =SIMP(statut='f',typ=(maillage) ),
5850              RESULTAT        =SIMP(statut='f',typ=(resultat) ),
5851              b_extr_maillage =BLOC(condition = "MAILLAGE != None",
5852                  NOM_CHAM        =SIMP(statut='o',typ='TXM',into=("GEOMETRIE",)),
5853                                   ),
5854              b_extr_resultat =BLOC(condition = "RESULTAT != None",
5855                  regles=(EXCLUS('TYPE_MAXI','NUME_ORDRE','INST','FREQ','NUME_MODE',
5856                                 'NOEUD_CMP','NOM_CAS','ANGL', ),),
5857                  SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),
5858                                    fr="Paramètre de sensibilité.",
5859                                    ang="Sensitivity parameter"),
5860                  NOM_CHAM        =SIMP(statut='o',typ='TXM',
5861                            into=("DEPL","VITE","ACCE",
5862                              "DEPL_ABSOLU","VITE_ABSOLU",
5863                              "TEMP","IRRA","ACCE_ABSOLU",
5864                              "FORC_NODA","REAC_NODA","EFGE_NOEU_DEPL",
5865                              "EFGE_NOEU_CART","EPSI_NOEU_DEPL",
5866                              "SIGM_NOEU_DEPL","SIGM_NOEU_CART",
5867                              "SIPO_NOEU_DEPL","EQUI_NOEU_SIGM",
5868                              "EQUI_NOEU_EPSI","FLUX_NOEU_TEMP",
5869                              "FLUX_ELGA_TEMP","FLUX_ELNO_TEMP",
5870                              "META_ELGA_TEMP","META_ELNO_TEMP",
5871                              "META_NOEU_TEMP","DURT_ELGA_META",
5872                              "DURT_ELNO_META","DURT_NOEU_META","SIEF_ELGA",
5873                              "SIEF_ELNO_ELGA","SIEF_ELGA_DEPL",
5874                              "VARI_ELNO_ELGA","VARI_ELGA","EPOT_ELEM_DEPL",
5875                              "ECIN_ELEM_DEPL","SOUR_ELGA_ELEC",
5876                              "PRES_ELNO_REEL","PRES_ELNO_IMAG",
5877                              "PRES_ELNO_DBEL","INTE_ELNO_ACTI",
5878                              "INTE_ELNO_REAC","EFGE_ELNO_DEPL",
5879                              "SIGM_ELNO_DEPL","EFGE_ELNO_CART",
5880                              "SIGM_ELNO_CART","SIPO_ELNO_DEPL",
5881                              "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL",
5882                              "EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO",
5883                              "EPSP_ELGA","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM",
5884                              "EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
5885                              "ERRE_ELNO_ELGA","ERRE_ELGA_NORE",
5886                              "ERRE_ELEM_NOZ1","ERRE_ELEM_NOZ2",
5887                              "SIGM_NOZ1_ELGA","SIGM_NOZ2_ELGA",
5888                              "DEGE_ELNO_DEPL","SIRE_ELNO_DEPL",
5889                              "VNOR_ELEM_DEPL","SIEF_ELNO","VARI_ELNO",
5890                              "SIEF_NOEU_ELGA","VARI_NOEU_ELGA",
5891                              "PRES_NOEU_DBEL","PRES_NOEU_REEL",
5892                              "PRES_NOEU_IMAG","INTE_NOEU_ACTI",
5893                              "INTE_NOEU_REAC","DCHA_ELGA_SIGM",
5894                              "DCHA_ELNO_SIGM","RADI_ELGA_SIGM",
5895                              "RADI_ELNO_SIGM","ENDO_ELNO_SIGA",
5896                              "ENDO_ELNO_SINO","ENDO_ELNO_SIGM",
5897                              "SIGM_ELNO_VARI","SIGM_NOEU_VARI",
5898                              "EPME_ELNO_DEPL","EPME_ELGA_DEPL",
5899                              "EPME_ELNO_DPGE","EPMG_ELNO_DEPL",
5900                              "EPMG_ELGA_DEPL","GRAD_ELGA_THETA",
5901                              "GTHE_ELNO_ELGA","GRAD_NOEU_THETA",
5902                              "HYDR_ELGA","HYDR_ELNO_ELGA","HYDR_NOEU_ELGA",
5903                              "THETA","SIGM_ELNO_SIEF","SIPO_ELNO_SIEF",
5904                              "VALE_CONT","VALE_NCOU_MAXI") ),
5905                  TYPE_MAXI       =SIMP(statut='f',typ='TXM',into=("MAXI","MINI","MAXI_ABS","MINI_ABS","NORM_TRAN",) ),
5906                  TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="VALE",into=("VALE","INST",) ),
5907                  TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5908                  LIST_INST       =SIMP(statut='f',typ=(listr8) ),
5909                  NUME_ORDRE      =SIMP(statut='f',typ='I'),
5910                  INST            =SIMP(statut='f',typ='R'),
5911                  FREQ            =SIMP(statut='f',typ='R'),
5912                  NUME_MODE       =SIMP(statut='f',typ='I'),
5913                  NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
5914                  NOM_CAS         =SIMP(statut='f',typ='TXM'),
5915                  ANGL            =SIMP(statut='f',typ='R'),
5916                  PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
5917                  CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
5918                  INTERPOL        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN",) ),
5919                               ),
5920
5921                 ),
5922 # FIN DU CATALOGUE : INFO,TITRE ET TYPAGE DU RESULAT :
5923 #-----------------------------------------------------
5924          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,) ),
5925          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
5926 )  ;
5927 #& MODIF COMMANDE  DATE 07/01/2003   AUTEUR GJBHHEL E.LORENTZ
5928 #            CONFIGURATION MANAGEMENT OF EDF VERSION
5929 # ======================================================================
5930 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
5931 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
5932 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
5933 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
5934 # (AT YOUR OPTION) ANY LATER VERSION.
5935 #
5936 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
5937 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
5938 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
5939 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
5940 #
5941 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
5942 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
5943 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
5944 # ======================================================================
5945 CREA_MAILLAGE=OPER(nom="CREA_MAILLAGE",op= 167,sd_prod=maillage,
5946                      docu="U4.23.02-d1",reentrant='n',
5947             UIinfo={"groupes":("Maillage",)},
5948          regles=(EXCLUS('ECLA_PG','CREA_MAILLE'),
5949                  EXCLUS('ECLA_PG','CREA_GROUP_MA'),
5950                  EXCLUS('ECLA_PG','DETR_GROUP_MA'),
5951                  EXCLUS('ECLA_PG','MODI_MAILLE'),
5952                  EXCLUS('ECLA_PG','LINE_QUAD'),
5953                  EXCLUS('LINE_QUAD','MODI_MAILLE'),
5954                  EXCLUS('LINE_QUAD','CREA_MAILLE'),
5955                  EXCLUS('LINE_QUAD','CREA_GROUP_MA'),
5956                  EXCLUS('LINE_QUAD','DETR_GROUP_MA'),
5957                  ),
5958          MAILLAGE        =SIMP(statut='o',typ=maillage ),
5959          CREA_POI1       =FACT(statut='f',min=1,max='**',fr="Création de mailles de type POI1 à partir de noeuds",
5960            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD' ),),
5961            NOM_GROUP_MA    =SIMP(statut='f',typ=grma,max='**'),
5962            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5963            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5964            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5965            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
5966            NOEUD           =SIMP(statut='f',typ=no,max='**'),
5967          ),
5968          CREA_MAILLE     =FACT(statut='f',min=1,max='**',fr="Duplication de mailles",
5969            regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA'),),
5970            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5971            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5972            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5973            PREF_MAILLE     =SIMP(statut='o',typ='TXM' ),
5974            PREF_NUME       =SIMP(statut='f',typ='I' ),
5975          ),
5976          CREA_GROUP_MA   =FACT(statut='f',min=1,max='**',fr="Duplication de mailles et création de groupes de mailles",
5977            regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
5978            NOM             =SIMP(statut='o',typ='TXM'),
5979            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5980            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
5981            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5982            PREF_MAILLE     =SIMP(statut='o',typ='TXM' ),
5983            PREF_NUME       =SIMP(statut='f',typ='I' ),
5984          ),
5985          DETR_GROUP_MA   =FACT(statut='f',min=1,max=1,fr="Destruction de groupes de mailles",
5986            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
5987            NB_MAILLE       =SIMP(statut='f',typ='I',defaut= 0,
5988                                  fr="Nombre minimal de mailles que doit contenir le groupe pour etre détruit",  ),
5989          ),
5990          MODI_MAILLE     =FACT(statut='f',min=1,max='**',fr="Modification du type de mailles",
5991            regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
5992            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
5993            MAILLE          =SIMP(statut='f',typ=grma,max='**'),
5994            GROUP_MA        =SIMP(statut='f',typ=ma,max='**'),
5995            OPTION          =SIMP(statut='o',typ='TXM',into=("TRIA6_7","QUAD8_9","SEG3_4"),fr="Choix de la transformation" ),
5996            PREF_NOEUD      =SIMP(statut='f',typ='TXM',defaut="NS"),
5997            PREF_NUME       =SIMP(statut='f',typ='I',defaut= 1 ),
5998          ),
5999          LINE_QUAD     =FACT(statut='f',min=01,max=1,fr="Passage linéaire -> quadratique",
6000            regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
6001            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6002            MAILLE          =SIMP(statut='f',typ=grma,max='**'),
6003            GROUP_MA        =SIMP(statut='f',typ=ma,max='**'),
6004            PREF_NOEUD      =SIMP(statut='f',typ='TXM',defaut="NS"),
6005            PREF_NUME       =SIMP(statut='f',typ='I',defaut= 1 ),
6006          ),
6007          REPERE          =FACT(statut='f',min=1,max='**',
6008                                fr="changement de repère servant à déterminer les caractéristiques d une section de poutre",
6009            TABLE           =SIMP(statut='o',typ=tabl_cara_geom,
6010                                  fr="Nom de la table contenant les caractéristiques de la section de poutre" ),
6011            NOM_ORIG        =SIMP(statut='f',typ='TXM',into=("CDG","TORSION"),fr="Origine du nouveau repère" ),
6012            NOM_ROTA        =SIMP(statut='f',typ='TXM',into=("INERTIE",),fr="Direction du repére"  ),
6013            b_cdg =BLOC(condition = "NOM_ORIG == 'CDG'",
6014              GROUP_MA        =SIMP(statut='f',typ=grma,
6015                                    fr="Nom du groupe de mailles dont le centre de gravité sera l origine du nouveau repère"),
6016            ),
6017          ),
6018          ECLA_PG         =FACT(statut='f',min=1,max=1,
6019                                fr="Eclatement des mailles en petites mailles contenant chacune un seul point de gauss",
6020            MODELE          =SIMP(statut='o',typ=modele ),
6021            SHRINK          =SIMP(statut='f',typ='R',defaut= 0.9, fr="Facteur de réduction" ),
6022          ),
6023          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
6024 )  ;
6025 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
6026 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6027 # ======================================================================
6028 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6029 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6030 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6031 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6032 # (AT YOUR OPTION) ANY LATER VERSION.
6033 #
6034 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6035 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6036 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6037 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6038 #
6039 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6040 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6041 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6042 # ======================================================================
6043 def crea_resu_prod(TYPE_RESU,**args):
6044   if TYPE_RESU == "EVOL_ELAS"    : return evol_elas
6045   if TYPE_RESU == "EVOL_NOLI"    : return evol_noli
6046   if TYPE_RESU == "EVOL_THER"    : return evol_ther
6047   if TYPE_RESU == "MULT_ELAS"    : return mult_elas
6048   if TYPE_RESU == "FOURIER_ELAS" : return fourier_elas
6049   if TYPE_RESU == "EVOL_VARC"    : return evol_varc
6050   raise AsException("type de concept resultat non prevu")
6051
6052 CREA_RESU=OPER(nom="CREA_RESU",op=124,sd_prod=crea_resu_prod,docu="U4.44.12-e3",reentrant='f',
6053             UIinfo={"groupes":("Modélisation",)},
6054                fr="Engendrer ou enrichir une structure de donnees en affectant les cham_gd associes",
6055
6056          OPERATION =SIMP(statut='o',typ='TXM',into=("AFFE","ECLA_PG","PERM_CHAM","PROL_RTZ",),
6057                          fr="choix de la fonction a activer",),
6058
6059          b_affe       =BLOC(condition = "OPERATION == 'AFFE'",
6060
6061            TYPE_RESU    =SIMP(statut='o',typ='TXM',into=("MULT_ELAS","EVOL_ELAS","EVOL_NOLI","FOURIER_ELAS",
6062                                                          "EVOL_THER","EVOL_VARC",) ),
6063            NOM_CHAM     =SIMP(statut='f',typ='TXM',into=("DEPL","TEMP","IRRA","HYDR_ELGA",),max=1 ),
6064            AFFE         =FACT(statut='f',min=1,max='**',
6065              regles=(UN_PARMI('NOM_CAS','NUME_MODE','LIST_INST','INST',),),
6066              CHAM_GD         =SIMP(statut='f',typ=(cham_gd)),
6067              NOM_CAS         =SIMP(statut='f',typ='TXM' ),
6068              NUME_MODE       =SIMP(statut='f',typ='I'),
6069              TYPE_MODE       =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
6070              INST            =SIMP(statut='f',typ='R',max='**'),
6071              LIST_INST       =SIMP(statut='f',typ=listr8),
6072              NUME_INIT       =SIMP(statut='f',typ='I'),
6073              NUME_FIN        =SIMP(statut='f',typ='I'),
6074              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
6075              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6076            ),
6077          ),
6078
6079          b_ecla_pg    =BLOC(condition = "OPERATION == 'ECLA_PG'",
6080
6081            TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_ELAS","EVOL_NOLI","EVOL_THER"), ),
6082
6083            ECLA_PG         =FACT(statut='f',min=1,max=1,
6084              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
6085              NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
6086                                    into=("SIEF_ELGA","VARI_ELGA","SIEF_ELGA_DEPL","FLUX_ELGA_TEMP",) ),
6087              MODELE_INIT     =SIMP(statut='o',typ=modele),
6088              RESU_INIT       =SIMP(statut='o',typ=resultat),
6089              MAILLAGE        =SIMP(statut='o',typ=maillage),
6090              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6091              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
6092              LIST_ORDRE      =SIMP(statut='f',typ=listis),
6093              INST            =SIMP(statut='f',typ='R',max='**'),
6094              LIST_INST       =SIMP(statut='f',typ=listr8),
6095              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
6096              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
6097            ),
6098          ),
6099
6100          b_perm_cham =BLOC(condition = "OPERATION == 'PERM_CHAM'",
6101
6102            TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_NOLI",) ),
6103            NOM_CHAM        =SIMP(statut='f',typ='TXM',into=("DEPL","SIEF_ELGA","VARI_ELGA",),max='**' ),
6104            RESU_INIT       =SIMP(statut='o',typ=evol_noli),
6105            INST_INIT       =SIMP(statut='f',typ='R'),
6106            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
6107            CRITERE         =SIMP(statut='f',typ='TXM',into=('RELATIF','ABSOLU'),defaut='RELATIF'),
6108            MAILLAGE_INIT   =SIMP(statut='o',typ=maillage,),
6109            RESU_FINAL      =SIMP(statut='o',typ=evol_noli,),
6110            MAILLAGE_FINAL  =SIMP(statut='o',typ=maillage,),
6111            PERM_CHAM       =FACT(statut='o',min=1,max=1,
6112               GROUP_MA_FINAL =SIMP(statut='o',typ=grma),
6113               GROUP_MA_INIT  =SIMP(statut='o',typ=grma),
6114               TRAN           =SIMP(statut='o',typ='R',max='**'),
6115               PRECISION      =SIMP(statut='f',typ='R',defaut=1.0E-3),
6116            ),
6117          ),
6118
6119          b_prol_rtz   =BLOC(condition = "OPERATION == 'PROL_RTZ'",
6120
6121            TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_THER",) ),
6122
6123            PROL_RTZ        =FACT(statut='f',min=1,max=1,
6124               regles=(EXCLUS('INST','LIST_INST'),),
6125               MAILLAGE_FINAL  =SIMP(statut='o',typ=maillage,),
6126               TABLE           =SIMP(statut='o',typ=tabl_post_rele,fr="Table issue de post_releve_t"),
6127               INST            =SIMP(statut='f',typ='R',max='**'),
6128               LIST_INST       =SIMP(statut='f',typ=listr8),
6129               b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
6130                  PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
6131                  CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
6132               ),
6133               PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU",),),
6134               PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU",),),
6135               REPERE          =SIMP(statut='o',typ='TXM',into=("CYLINDRIQUE",),),
6136               ORIGINE         =SIMP(statut='o',typ='R',min=3,max=3),
6137               AXE_Z           =SIMP(statut='o',typ='R',min=3,max=3),
6138            ),
6139          ),
6140
6141 )  ;
6142 #& MODIF COMMANDE  DATE 20/01/2003   AUTEUR DURAND C.DURAND
6143 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6144 # ======================================================================
6145 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6146 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6147 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6148 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6149 # (AT YOUR OPTION) ANY LATER VERSION.
6150 #
6151 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6152 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6153 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6154 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6155 #
6156 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6157 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6158 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6159 # ======================================================================
6160 DEBUT=MACRO(nom="DEBUT",op=ops.build_debut ,docu="U4.11.01-g2",repetable='n',
6161             UIinfo={"groupes":("Gestion du travail",)},
6162            fr="Ouverture d une étude. Allocation des ressources mémoire et disque",
6163           sd_prod=ops.DEBUT,
6164
6165          PAR_LOT         =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
6166                            into=("OUI","NON"),defaut="OUI"),
6167          BASE            =FACT(fr="définition des paramètres associés aux bases JEVEUX",
6168                                statut='f',min=1,max=3,
6169            FICHIER         =SIMP(fr="nom de la base",statut='o',typ='TXM',
6170                                  into=('GLOBALE','VOLATILE','LOCALE'),),
6171            TITRE           =SIMP(statut='f',typ='TXM'),
6172            CAS             =SIMP(statut='f',typ='TXM'),
6173            NMAX_ENRE       =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
6174            LONG_ENRE       =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
6175            LONG_REPE       =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
6176          ),
6177          IMPRESSION      =FACT(statut='f',min=1,max=3,
6178            FICHIER         =SIMP(statut='o',typ='TXM'),
6179            UNITE           =SIMP(statut='o',typ='I'),
6180          ),
6181          CATALOGUE       =FACT(statut='f',min=1,max=10,
6182            FICHIER         =SIMP(statut='o',typ='TXM'),
6183            TITRE           =SIMP(statut='f',typ='TXM'),
6184            UNITE           =SIMP(statut='f',typ='I'),
6185          ),
6186          CODE            =FACT(fr="définition d un nom pour l'esemble d'une étude",
6187                                statut='f',min=1,max=1,
6188            NOM             =SIMP(statut='o',typ='TXM'),
6189            NIV_PUB_WEB     =SIMP(statut='o',typ='TXM',into=('INTERNET','INTRANET')),
6190            UNITE           =SIMP(statut='f',typ='I',defaut=15),
6191          ),
6192          DEBUG           =FACT(fr="option de déboggage reservée aux développeurs",
6193                                statut='f',min=1,max=1,
6194            JXVERI          =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
6195                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
6196            JEVEUX          =SIMP(fr="force les déchargement sur disque",
6197                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
6198            ENVIMA          =SIMP(fr="imprime les valeurs définies dans ENVIMA",
6199                                  statut='f',typ='TXM',into=('TEST',)),
6200          ),
6201          MEMOIRE         =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=1,max=1,
6202            GESTION         =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
6203            TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
6204            TAILLE          =SIMP(statut='f',typ='I'),
6205            TAILLE_BLOC     =SIMP(statut='f',typ='R',defaut=800.),
6206            PARTITION       =SIMP(statut='f',typ='R'),
6207          ),
6208  );
6209 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
6210 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6211 # ======================================================================
6212 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6213 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6214 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6215 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6216 # (AT YOUR OPTION) ANY LATER VERSION.
6217 #
6218 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6219 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6220 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6221 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6222 #
6223 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6224 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6225 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6226 # ======================================================================
6227 DEFI_BASE_MODALE=OPER(nom="DEFI_BASE_MODALE",op=  99,sd_prod=base_modale,
6228                      docu="U4.64.02-f1",reentrant='f',
6229             UIinfo={"groupes":("Matrices/vecteurs",)},
6230          regles=(UN_PARMI('CLASSIQUE','RITZ','DIAG_MASS'),),
6231          CLASSIQUE       =FACT(statut='f',min=1,max=1,
6232            INTERF_DYNA     =SIMP(statut='o',typ=interf_dyna_clas ),
6233            MODE_MECA       =SIMP(statut='o',typ=mode_meca,max='**' ),
6234            NMAX_MODE       =SIMP(statut='f',typ='I',defaut= 10 ),
6235          ),
6236          RITZ            =FACT(statut='f',min=1,max='**',
6237            regles=(UN_PARMI('MODE_STAT','MODE_MECA','MULT_ELAS','BASE_MODALE'),),
6238            MODE_MECA       =SIMP(statut='f',typ=mode_meca,max='**'  ),
6239            NMAX_MODE       =SIMP(statut='f',typ='I',defaut= 999 ),
6240            MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
6241            MULT_ELAS       =SIMP(statut='f',typ=mult_elas ),
6242            BASE_MODALE     =SIMP(statut='f',typ=base_modale ),
6243          ),
6244         DIAG_MASS        =FACT(statut='f',min=1,max='**',
6245            MODE_MECA       =SIMP(statut='o',typ=mode_meca,max='**'  ),
6246            MODE_STAT       =SIMP(statut='o',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
6247          ),
6248 #  le bloc conditionnel remplace-t-il PRESENT_PRESENT('RITZ','NUME_REF'),
6249 #                                     PRESENT_ABSENT('INTERF_DYNA','CLASSIQUE'),
6250          b_ritz          =BLOC(condition = "RITZ != None",
6251            INTERF_DYNA     =SIMP(statut='f',typ=interf_dyna_clas ),
6252            NUME_REF        =SIMP(statut='o',typ=nume_ddl ),
6253          ),
6254          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
6255          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6256 )  ;
6257 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
6258 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6259 # ======================================================================
6260 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6261 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6262 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6263 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6264 # (AT YOUR OPTION) ANY LATER VERSION.
6265 #
6266 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6267 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6268 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6269 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6270 #
6271 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6272 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6273 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6274 # ======================================================================
6275 DEFI_CABLE_BP=OPER(nom="DEFI_CABLE_BP",op= 180,sd_prod=cabl_precont,
6276                    fr=" ",
6277                    docu="U4.42.04-a",reentrant='n',
6278             UIinfo={"groupes":("Modélisation",)},
6279          MODELE          =SIMP(statut='o',typ=modele ),
6280          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
6281          CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
6282          GROUP_MA_BETON  =SIMP(statut='o',typ=grma),
6283          DEFI_CABLE      =FACT(statut='o',min=1,max='**',
6284            regles=(UN_PARMI('MAILLE','GROUP_MA'),
6285                    UN_PARMI('NOEUD_ANCRAGE','GROUP_NO_ANCRAGE'),),
6286            MAILLE          =SIMP(statut='f',typ=ma,min=2,max='**'),
6287            GROUP_MA        =SIMP(statut='f',typ=grma),
6288            NOEUD_ANCRAGE   =SIMP(statut='f',typ=no,max=2),
6289            GROUP_NO_ANCRAGE=SIMP(statut='f',typ=grno,max=2),
6290            TYPE_ANCRAGE    =SIMP(statut='o',typ='TXM',min=2,max=2,
6291                                  into=("ACTIF","PASSIF") ),
6292          ),
6293          TENSION_INIT    =SIMP(statut='o',typ='R',val_min=0.E+0 ),
6294          RECUL_ANCRAGE   =SIMP(statut='o',typ='R',val_min=0.E+0 ),
6295          RELAXATION      =FACT(statut='f',min=0,max=1,
6296            R_J             =SIMP(statut='o',typ='R',val_min=0.E+0 ),
6297          ),
6298          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
6299 )  ;
6300 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
6301 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6302 # ======================================================================
6303 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6304 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6305 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6306 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6307 # (AT YOUR OPTION) ANY LATER VERSION.
6308 #
6309 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6310 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6311 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6312 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6313 #
6314 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6315 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6316 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6317 # ======================================================================
6318 DEFI_CONSTANTE=OPER(nom="DEFI_CONSTANTE",op=   2,sd_prod=fonction,
6319                     fr="Définition d une fonction constante",
6320                     docu="U4.31.01-f",reentrant='n',
6321             UIinfo={"groupes":("Fonction",)},
6322          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
6323          VALE            =SIMP(statut='o',typ='R',max=1 ),
6324          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
6325 )  ;
6326 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
6327 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6328 # ======================================================================
6329 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6330 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6331 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6332 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6333 # (AT YOUR OPTION) ANY LATER VERSION.
6334 #
6335 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6336 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6337 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6338 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6339 #
6340 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6341 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6342 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6343 # ======================================================================
6344 DEFI_COQU_MULT=OPER(nom="DEFI_COQU_MULT",op=56,sd_prod=mater,docu="U4.42.03-e",reentrant='n',
6345             UIinfo={"groupes":("Modélisation",)},
6346                     fr="Définition d une coque composite couche par couche",
6347          COUCHE          =FACT(statut='o',min=1,max='**',
6348            EPAIS           =SIMP(statut='o',typ='R',val_min=0.E+0 ),
6349            MATER           =SIMP(statut='o',typ=(mater) ),
6350            ORIENTATION     =SIMP(statut='f',typ='R',defaut= 0.E+0,
6351                                  val_min=-90.E+0,val_max=90.E+0   ),
6352          ),
6353          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
6354          IMPRESSION      =FACT(statut='f',min=1,max=1,
6355            FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
6356                                  into=("RESULTAT",) ),
6357          ),
6358 )  ;
6359 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
6360 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6361 # ======================================================================
6362 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6363 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6364 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6365 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6366 # (AT YOUR OPTION) ANY LATER VERSION.
6367 #
6368 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6369 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6370 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6371 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6372 #
6373 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6374 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6375 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6376 # ======================================================================
6377 DEFI_FLUI_STRU=OPER(nom="DEFI_FLUI_STRU",op= 143,sd_prod=type_flui_stru,
6378                     docu="U4.25.01-d",reentrant='n',
6379             UIinfo={"groupes":("Maillage",)},
6380          regles=(  UN_PARMI('FAISCEAU_TRANS','GRAPPE','FAISCEAU_AXIAL','COQUE_COAX',),),
6381          FAISCEAU_TRANS  =FACT(statut='f',min=1,max='**',
6382            COUPLAGE        =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
6383            CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
6384            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
6385            PROF_RHO_F_INT  =SIMP(statut='f',typ=fonction ),
6386            PROF_RHO_F_EXT  =SIMP(statut='f',typ=fonction ),
6387            NOM_CMP         =SIMP(statut='f',typ='TXM',into=("DX","DY","DZ") ),
6388            COEF_MASS_AJOU  =SIMP(statut='f',typ='R' ),
6389            TYPE_PAS        =SIMP(statut='f',typ='TXM',into=("CARRE_LIGN","TRIA_LIGN") ),
6390            TYPE_RESEAU     =SIMP(statut='f',typ='I' ),
6391            UNITE_CD        =SIMP(statut='f',typ='I',defaut=70),
6392            UNITE_CK        =SIMP(statut='f',typ='I',defaut=71),
6393            PAS             =SIMP(statut='f',typ='R' ),
6394          ),
6395          GRAPPE          =FACT(statut='f',max=1,
6396            regles=(ENSEMBLE('GRAPPE_2','NOEUD','CARA_ELEM','MODELE','RHO_FLUI',),
6397                    PRESENT_PRESENT('COEF_MASS_AJOU','GRAPPE_2', ),),
6398 #  peut on créer un bloc a partir de la valeur de couplage
6399            COUPLAGE        =SIMP(statut='o',typ='TXM',into=("OUI","NON") ),
6400            GRAPPE_2        =SIMP(statut='f',typ='TXM',
6401                                  into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC") ),
6402            NOEUD           =SIMP(statut='f',typ=no),
6403            CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
6404            MODELE          =SIMP(statut='f',typ=modele ),
6405            COEF_MASS_AJOU  =SIMP(statut='f',typ='R' ),
6406            RHO_FLUI        =SIMP(statut='f',typ='R' ),
6407            UNITE_CA        =SIMP(statut='f',typ='I',defaut=70),
6408            UNITE_KA        =SIMP(statut='f',typ='I',defaut=71),
6409          ),
6410          FAISCEAU_AXIAL  =FACT(statut='f',min=1,max='**',
6411            regles=(UN_PARMI('GROUP_MA','TRI_GROUP_MA'),
6412                    UN_PARMI('CARA_ELEM','RAYON_TUBE'),
6413                    ENSEMBLE('RAYON_TUBE','COOR_TUBE'),
6414                    PRESENT_ABSENT('RAYON_TUBE','TRI_GROUP_MA'),
6415                    ENSEMBLE('CARA_PAROI','VALE_PAROI'),
6416                    ENSEMBLE('LONG_TYPG','LARG_TYPG','EPAI_TYPG','RUGO_TYPG','COEF_TRAI_TYPG','COEF_DPOR_TYPG',
6417                             'COOR_GRILLE','TYPE_GRILLE', ),),
6418 #  on doit pouvoir mettre des blocs conditionnels mais pas assez d infos pour le faire
6419            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
6420            TRI_GROUP_MA    =SIMP(statut='f',typ='TXM' ),
6421            VECT_X          =SIMP(statut='f',typ='R',max=3),
6422            PROF_RHO_FLUI   =SIMP(statut='f',typ=fonction ),
6423            PROF_VISC_CINE  =SIMP(statut='f',typ=fonction ),
6424            CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
6425            RAYON_TUBE      =SIMP(statut='f',typ='R' ),
6426            COOR_TUBE       =SIMP(statut='f',typ='R',max='**'),
6427            PESANTEUR       =SIMP(statut='f',typ='R',min=4,max=4),
6428            RUGO_TUBE       =SIMP(statut='f',typ='R' ),
6429            CARA_PAROI      =SIMP(statut='f',typ='TXM',max=5,
6430                                  into=("YC","ZC","R","HY","HZ") ),
6431            VALE_PAROI      =SIMP(statut='f',typ='R',max=5),
6432            ANGL_VRIL       =SIMP(statut='f',typ='R' ),
6433            LONG_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
6434            LARG_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
6435            EPAI_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
6436            RUGO_TYPG       =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
6437            COEF_TRAI_TYPG  =SIMP(statut='f',typ='R',max='**',val_min=0.E+0),
6438            COEF_DPOR_TYPG  =SIMP(statut='f',typ='R',max='**'),
6439            COOR_GRILLE     =SIMP(statut='f',typ='R',max='**'),
6440            TYPE_GRILLE     =SIMP(statut='f',typ='I',max='**'),
6441          ),
6442          COQUE_COAX      =FACT(statut='f',max=1,
6443            MASS_AJOU       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
6444            GROUP_MA_INT    =SIMP(statut='o',typ=grma),
6445            GROUP_MA_EXT    =SIMP(statut='o',typ=grma),
6446            VECT_X          =SIMP(statut='o',typ='R',max='**'),
6447            CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
6448            MATER_INT       =SIMP(statut='o',typ=mater ),
6449            MATER_EXT       =SIMP(statut='o',typ=mater ),
6450            RHO_FLUI        =SIMP(statut='o',typ='R' ),
6451            VISC_CINE       =SIMP(statut='o',typ='R' ),
6452            RUGOSITE        =SIMP(statut='o',typ='R' ),
6453            PDC_MOY_1       =SIMP(statut='o',typ='R' ),
6454            PDC_DYN_1       =SIMP(statut='o',typ='R' ),
6455            PDC_MOY_2       =SIMP(statut='o',typ='R' ),
6456            PDC_DYN_2       =SIMP(statut='o',typ='R' ),
6457          ),
6458          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6459 )  ;
6460 #& MODIF COMMANDE  DATE 03/12/2002   AUTEUR DURAND C.DURAND
6461 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6462 # ======================================================================
6463 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6464 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6465 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6466 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6467 # (AT YOUR OPTION) ANY LATER VERSION.
6468 #
6469 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6470 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6471 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6472 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6473 #
6474 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6475 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6476 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6477 # ======================================================================
6478 DEFI_FONC_ELEC=OPER(nom="DEFI_FONC_ELEC",op=64,sd_prod=fonction,docu="U4.mk.10-e",reentrant='n',
6479             UIinfo={"groupes":("Outils métier",)},
6480                     fr="Définition d une fonction du temps pour calculer des forces de LAPLACE",
6481       regles=(UN_PARMI('COUR_PRIN','COUR'),
6482               EXCLUS('COUR','COUR_SECO'), ),
6483          FREQ            =SIMP(statut='f',typ='R',defaut= 50.),
6484          SIGNAL          =SIMP(statut='f',typ='TXM',defaut="COMPLET",into=("COMPLET","CONTINU") ),
6485          COUR            =FACT(statut='f',min=1,max='**',
6486          fr="Définition du courant de court-circuit",
6487            regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),
6488                    UN_PARMI('PHI_CC_2','INTC_CC_2'),),
6489            INTE_CC_1       =SIMP(statut='o',typ='R'),
6490            TAU_CC_1        =SIMP(statut='o',typ='R'),
6491            PHI_CC_1        =SIMP(statut='f',typ='R'),
6492            INTC_CC_1       =SIMP(statut='f',typ='R'),
6493            INTE_CC_2       =SIMP(statut='o',typ='R'),
6494            TAU_CC_2        =SIMP(statut='o',typ='R'),
6495            PHI_CC_2        =SIMP(statut='f',typ='R'),
6496            INTC_CC_2       =SIMP(statut='f',typ='R'),
6497            INST_CC_INIT    =SIMP(statut='o',typ='R'),
6498            INST_CC_FIN     =SIMP(statut='o',typ='R'),
6499          ),
6500          COUR_PRIN       =FACT(statut='f',min=1,max=1,
6501          fr="Définition du courant de court-circuit avec réenclenchement",
6502            regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),),
6503            INTE_CC_1       =SIMP(statut='o',typ='R'),
6504            TAU_CC_1        =SIMP(statut='o',typ='R'),
6505            PHI_CC_1        =SIMP(statut='f',typ='R'),
6506            INTC_CC_1       =SIMP(statut='f',typ='R'),
6507            INTE_RENC_1     =SIMP(statut='f',typ='R'),
6508            TAU_RENC_1      =SIMP(statut='f',typ='R'),
6509            PHI_RENC_1      =SIMP(statut='f',typ='R'),
6510            INST_CC_INIT    =SIMP(statut='o',typ='R'),
6511            INST_CC_FIN     =SIMP(statut='o',typ='R'),
6512            INST_RENC_INIT  =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6513            INST_RENC_FIN   =SIMP(statut='f',typ='R',defaut= 0.0E+0),
6514          ),
6515          COUR_SECO       =FACT(statut='f',min=1,max='**',
6516          fr="Définition du courant de court-circuit avec un intervalle de temps différent de celui de COUR_PRIN",
6517            regles=(UN_PARMI('PHI_CC_2','INTC_CC_2'),),
6518            INTE_CC_2       =SIMP(statut='o',typ='R'),
6519            TAU_CC_2        =SIMP(statut='o',typ='R'),
6520            PHI_CC_2        =SIMP(statut='f',typ='R'),
6521            INTC_CC_2       =SIMP(statut='f',typ='R'),
6522            INTE_RENC_2     =SIMP(statut='f',typ='R'),
6523            TAU_RENC_2      =SIMP(statut='f',typ='R'),
6524            PHI_RENC_2      =SIMP(statut='f',typ='R'),
6525            DIST            =SIMP(statut='f',typ='R',defaut=1.0E+0),
6526          ),
6527          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
6528 )  ;
6529 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
6530 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6531 # ======================================================================
6532 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6533 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6534 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6535 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6536 # (AT YOUR OPTION) ANY LATER VERSION.
6537 #
6538 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6539 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6540 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6541 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6542 #
6543 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6544 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6545 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6546 # ======================================================================
6547 DEFI_FONC_FLUI=OPER(nom="DEFI_FONC_FLUI",op= 142,sd_prod=fonction,
6548                     docu="U4.35.01-c",reentrant='n',
6549             UIinfo={"groupes":("Fonction",)},
6550          MAILLAGE        =SIMP(statut='o',typ=(maillage) ),
6551          NOEUD_INIT      =SIMP(statut='o',typ=no),
6552          NOEUD_FIN       =SIMP(statut='o',typ=no),
6553          VITE            =FACT(statut='o',min=1,max=1,
6554            VALE            =SIMP(statut='f',typ='R',defaut= 1. ),
6555            PROFIL          =SIMP(statut='o',typ='TXM',into=("UNIFORME","LEONARD") ),
6556            NB_BAV          =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 2 , 3 ) ),
6557          ),
6558          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",
6559                                into=("NON","LIN","LOG") ),
6560          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",
6561                                into=("CONSTANT","LINEAIRE","EXCLU") ),
6562          PROL_GAUCHE     =SIMP(statut='f',typ='TXM' ,defaut="EXCLU",
6563                                into=("CONSTANT","LINEAIRE","EXCLU") ),
6564          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
6565          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
6566 )  ;
6567 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
6568 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6569 # ======================================================================
6570 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6571 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6572 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6573 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6574 # (AT YOUR OPTION) ANY LATER VERSION.
6575 #
6576 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6577 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6578 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6579 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6580 #
6581 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6582 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6583 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6584 # ======================================================================
6585 # RESPONSABLE MCOURTOI M.COURTOIS
6586 def defi_fonction_prod(VALE,VALE_PARA,VALE_C,NOEUD_PARA,**args):
6587   if VALE != None  : return fonction
6588   if VALE_C != None  : return fonction_c
6589   if VALE_PARA != None  : return fonction
6590   if NOEUD_PARA != None  : return fonction
6591   raise AsException("type de concept resultat non prevu")
6592
6593 DEFI_FONCTION=OPER(nom="DEFI_FONCTION",op=3,sd_prod=defi_fonction_prod
6594                     ,fr="Définition des valeurs réelles ou complexes d une fonction réelle",
6595                      docu="U4.31.02-g3",reentrant='n',
6596             UIinfo={"groupes":("Fonction",)},
6597          regles=(UN_PARMI('VALE','VALE_C','VALE_PARA','NOEUD_PARA'),),
6598          NOM_PARA        =SIMP(statut='o',typ='TXM',
6599                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
6600                                      "INST","X","Y","Z","EPSI","META","FREQ","PULS",
6601                                      "AMOR","ABSC","SIGM","HYDR","SECH","PORO","SAT",
6602                                      "PGAZ","PCAP","VITE") ),
6603          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
6604          VALE            =SIMP(statut='f',typ='R',min=2,max='**',
6605                                fr ="Fonction réelle définie par une liste de couples (abscisse,ordonnée)"),
6606          VALE_C          =SIMP(statut='f',typ='R',min=2,max='**',
6607                                fr ="Fonction complexe définie par une liste de couples"),
6608          VALE_PARA       =SIMP(statut='f',typ=listr8,
6609                                fr ="Fonction réelle définie par deux concepts de type listr8" ),
6610          b_vale_para     =BLOC(condition = "VALE_PARA != None",
6611            VALE_FONC       =SIMP(statut='o',typ=listr8 ),
6612          ),
6613          NOEUD_PARA      =SIMP(statut='f',typ=no,max='**',
6614                                fr ="Fonction réelle définie par une liste de noeuds et un maillage"),
6615          b_noeud_para    =BLOC(condition = "NOEUD_PARA != None",
6616            MAILLAGE        =SIMP(statut='o',typ=maillage ),
6617            VALE_Y          =SIMP(statut='o',typ='R',max='**'),
6618          ),
6619
6620          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
6621          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6622          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6623          VERIF           =SIMP(statut='f',typ='TXM',defaut="CROISSANT",into=("CROISSANT","NON") ),
6624          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6625          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
6626 )  ;
6627 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
6628 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6629 # ======================================================================
6630 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6631 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6632 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6633 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6634 # (AT YOUR OPTION) ANY LATER VERSION.
6635 #
6636 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6637 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6638 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6639 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6640 #
6641 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6642 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6643 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6644 # ======================================================================
6645 DEFI_FOND_FISS=OPER(nom="DEFI_FOND_FISS",op=55,sd_prod=fond_fiss,docu="U4.82.01-e",reentrant='n',
6646             UIinfo={"groupes":("Post traitements",)},
6647                     fr="Définition de lèvres et d un fond de fissure en 3D",
6648          regles=(UN_PARMI('FOND','FOND_FERME'),
6649                  EXCLUS('FOND_FERME','DTAN_ORIG'),
6650                  EXCLUS('FOND_FERME','DTAN_EXTR'),
6651                       EXCLUS('FOND_FERME','VECT_GRNO_ORIG'),
6652                       EXCLUS('FOND_FERME','VECT_GRNO_EXTR'),
6653                  UN_PARMI('LEVRE_SUP','NORMALE'),
6654                       EXCLUS('LEVRE_INF','NORMALE'),
6655                  ENSEMBLE('DTAN_ORIG','DTAN_EXTR'),
6656                       ENSEMBLE('VECT_GRNO_ORIG','VECT_GRNO_EXTR'),
6657                       EXCLUS('DTAN_ORIG','VECT_GRNO_ORIG'),
6658                       EXCLUS('DTAN_EXTR','VECT_GRNO_EXTR') ,),
6659            MAILLAGE        =SIMP(statut='o',typ=maillage ),
6660            FOND            =FACT(statut='f',min=1,max=1,
6661              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
6662                      EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
6663                           EXCLUS('NOEUD_EXTR','GROUP_NO_EXTR'),),
6664              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
6665              NOEUD           =SIMP(statut='f',typ=no,max='**'),
6666              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
6667              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
6668 #  à mettre à jour le max vaut-il 1
6669              NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
6670              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
6671              NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
6672              GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
6673            ),
6674            FOND_FERME      =FACT(statut='f',min=1,max=1,
6675              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
6676                           EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),),
6677              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
6678              NOEUD           =SIMP(statut='f',typ=no,max='**'),
6679              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
6680              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
6681              NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
6682              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
6683              MAILLE_ORIG     =SIMP(statut='f',typ=ma,max=1),
6684              GROUP_MA_ORIG   =SIMP(statut='f',typ=ma,max=1),
6685            ),
6686            LEVRE_SUP       =FACT(statut='f',min=1,max=1,
6687              regles=(UN_PARMI('GROUP_MA','MAILLE'),),
6688              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
6689              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
6690            ),
6691            LEVRE_INF       =FACT(statut='f',min=1,max=1,
6692              regles=(UN_PARMI('GROUP_MA','MAILLE', ),),
6693              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
6694              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
6695            ),
6696            NORMALE         =SIMP(statut='f',typ='R',max='**'),
6697            DTAN_ORIG       =SIMP(statut='f',typ='R',max='**'),
6698            DTAN_EXTR       =SIMP(statut='f',typ='R',max='**'),
6699            VECT_GRNO_ORIG  =SIMP(statut='f',typ=grno,max=2),
6700            VECT_GRNO_EXTR  =SIMP(statut='f',typ=grno,max=2),
6701            INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
6702 )  ;
6703 #& MODIF COMMANDE  DATE 07/01/2003   AUTEUR GJBHHEL E.LORENTZ
6704 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6705 # ======================================================================
6706 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6707 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6708 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6709 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6710 # (AT YOUR OPTION) ANY LATER VERSION.
6711 #
6712 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6713 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6714 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6715 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6716 #
6717 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6718 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6719 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6720 # ======================================================================
6721 # RESPONSABLE VABHHTS J.PELLET
6722 def defi_group_prod(MAILLAGE,**args):
6723   if AsType(MAILLAGE) == maillage : return maillage
6724   if AsType(MAILLAGE) == squelette : return squelette
6725   raise AsException("type de concept resultat non prevu")
6726
6727 DEFI_GROUP=OPER(nom="DEFI_GROUP",op= 104,sd_prod=defi_group_prod,
6728                 fr="Définition de nouveaux groupes de noeuds et/ou de mailles dans un concept maillage",
6729                 docu="U4.22.01-f1",reentrant='o',
6730             UIinfo={"groupes":("Maillage",)},
6731          regles=(AU_MOINS_UN('CREA_GROUP_MA','CREA_GROUP_NO'),),
6732          MAILLAGE        =SIMP(statut='o',typ=(maillage,squelette) ),
6733
6734          CREA_GROUP_MA   =FACT(statut='f',min=1,max='**',
6735            regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','INTERSEC','UNION','DIFFE','OPTION'),),
6736 #  quel est le concept attendu deriere NOM
6737            NOM             =SIMP(statut='o',typ=grma),
6738            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6739            GROUP_MA        =SIMP(statut='f',typ=grma),
6740            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
6741            INTERSEC        =SIMP(statut='f',typ=grma,max='**'),
6742            UNION           =SIMP(statut='f',typ=grma,max='**'),
6743            DIFFE           =SIMP(statut='f',typ=grma,max='**'),
6744            OPTION          =SIMP(statut='f',typ='TXM',into=("FACE_NORMALE","SPHERE","CYLINDRE","BANDE") ),
6745            b_group_ma      =BLOC(condition = "GROUP_MA != None",
6746              regles=(EXCLUS('POSITION','NUME_INIT'),),
6747              NUME_INIT       =SIMP(statut='f',typ='I'),
6748              POSITION        =SIMP(statut='f',typ='TXM',into=("INIT","FIN","MILIEU") ),
6749              b_nume_init   =BLOC(condition = "NUME_INIT != None",
6750                NUME_FIN        =SIMP(statut='f',typ='I' ),
6751              ),
6752            ),
6753            b_face_normale  =BLOC(condition = "OPTION == 'FACE_NORMALE'",
6754              regles=(UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
6755              ANGL_NAUT       =SIMP(statut='f',typ='R',max=2),
6756              VECT_NORMALE    =SIMP(statut='f',typ='R',max=3),
6757              ANGL_PREC       =SIMP(statut='f',typ='R',defaut= 0.5 ),
6758              VERI_SIGNE      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
6759            ),
6760            b_sphere        =BLOC(condition = "OPTION == 'SPHERE'",
6761              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),),
6762              POINT           =SIMP(statut='f',typ='R',max=3),
6763              NOEUD_CENTRE    =SIMP(statut='f',typ=no),
6764              RAYON           =SIMP(statut='o',typ='R' ),
6765            ),
6766            b_cylindre      =BLOC(condition = "OPTION == 'CYLINDRE'",
6767              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
6768                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
6769              POINT           =SIMP(statut='f',typ='R',max=3),
6770              NOEUD_CENTRE    =SIMP(statut='f',typ=no),
6771              RAYON           =SIMP(statut='o',typ='R' ),
6772              ANGL_NAUT       =SIMP(statut='f',typ='R',max=2),
6773              VECT_NORMALE    =SIMP(statut='f',typ='R',max=3),
6774            ),
6775            b_bande         =BLOC(condition = "OPTION == 'BANDE'",
6776              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
6777                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
6778              POINT           =SIMP(statut='f',typ='R',max=3),
6779              NOEUD_CENTRE    =SIMP(statut='f',typ=no),
6780              DIST            =SIMP(statut='o',typ='R' ),
6781              ANGL_NAUT       =SIMP(statut='f',typ='R',max=2),
6782              VECT_NORMALE    =SIMP(statut='f',typ='R',max=3),
6783            ),
6784          ),
6785          CREA_GROUP_NO   =FACT(statut='f',min=1,max='**',
6786            regles = (
6787          AU_MOINS_UN ('TOUT_GROUP_MA','GROUP_MA','NOEUD',
6788                      'INTERSEC','UNION','DIFFE','GROUP_NO','OPTION'),
6789                    EXCLUS ('TOUT_GROUP_MA','GROUP_MA','NOEUD','INTERSEC','UNION','DIFFE'),),
6790            TOUT_GROUP_MA   =SIMP(statut='f',typ='TXM',into=("OUI",) ),
6791            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
6792
6793            NOEUD           =SIMP(statut='f',typ=no,max='**'),
6794            INTERSEC        =SIMP(statut='f',typ=grno,max='**'),
6795            UNION           =SIMP(statut='f',typ=grno,max='**'),
6796            DIFFE           =SIMP(statut='f',typ=grno,max='**'),
6797            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
6798            OPTION          =SIMP(statut='f',typ='TXM',into=("ENV_SPHERE","ENV_CYLINDRE","PLAN",
6799                                                             "SEGM_DROI_ORDO","NOEUD_ORDO") ),
6800            b_nom_group_ma  =BLOC(condition = "GROUP_MA != None",
6801              NOM             =SIMP(statut='f',typ=grma,max='**'),
6802            ),
6803            b_crit_noeud    = BLOC(condition = "GROUP_MA != None",
6804              CRIT_NOEUD    = SIMP(statut='f',typ='TXM',defaut="TOUS",
6805                             into=("TOUS","SOMMET","MILIEU","CENTRE"),),),
6806            b_nom =BLOC(condition = "GROUP_MA == None and TOUT_GROUP_MA == None" ,
6807              NOM             =SIMP(statut='o',typ=geom),
6808            ),
6809            b_group_no      =BLOC(condition = "GROUP_NO != None",
6810              regles=(EXCLUS('POSITION','NUME_INIT'),),
6811              NUME_INIT       =SIMP(statut='f',typ='I'),
6812              POSITION        =SIMP(statut='f',typ='TXM',into=("INIT","FIN","MILIEU") ),
6813              b_nume_init     =BLOC(condition = "NUME_INIT != None",
6814                NUME_FIN        =SIMP(statut='f',typ='I' ),
6815              ),
6816            ),
6817            b_env_sphere    =BLOC(condition = "OPTION == 'ENV_SPHERE'",
6818              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),),
6819              POINT           =SIMP(statut='f',typ='R',max=3),
6820              NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=1),
6821              RAYON           =SIMP(statut='o',typ='R' ),
6822              PRECISION       =SIMP(statut='f',typ='R' ),
6823              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
6824            ),
6825            b_env_cylindre  =BLOC(condition = "OPTION == 'ENV_CYLINDRE'",
6826              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
6827                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
6828              POINT           =SIMP(statut='f',typ='R',max=3),
6829              NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=1),
6830              RAYON           =SIMP(statut='o',typ='R' ),
6831              ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
6832              VECT_NORMALE    =SIMP(statut='f',typ='R',max=3),
6833              PRECISION       =SIMP(statut='f',typ='R' ),
6834              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
6835            ),
6836            b_env_plan      =BLOC(condition = "OPTION == 'PLAN'",
6837              regles=(UN_PARMI('POINT','NOEUD_CENTRE'),
6838                      UN_PARMI('ANGL_NAUT','VECT_NORMALE'),),
6839              POINT           =SIMP(statut='f',typ='R',max=3),
6840              NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=1),
6841              ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
6842              VECT_NORMALE    =SIMP(statut='f',typ='R',max=3),
6843              PRECISION       =SIMP(statut='f',typ='R' ),
6844              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
6845            ),
6846            b_segm_droi_ordo=BLOC(condition = "OPTION == 'SEGM_DROI_ORDO'",
6847              regles=(UN_PARMI('NOEUD_ORIG','GROUP_NO_ORIG'),
6848                      UN_PARMI('NOEUD_EXTR','GROUP_NO_EXTR'),),
6849              NOEUD_ORIG      =SIMP(statut='f',typ=no),
6850              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno),
6851              NOEUD_EXTR      =SIMP(statut='f',typ=no),
6852              GROUP_NO_EXTR   =SIMP(statut='f',typ=grno),
6853              PRECISION       =SIMP(statut='f',typ='R' ),
6854              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
6855            ),
6856            b_noeud_ordo    =BLOC(condition = "OPTION == 'NOEUD_ORDO'",
6857              regles=(EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
6858                      EXCLUS('NOEUD_EXTR','GROUP_NO_EXTR'),),
6859              NOEUD_ORIG      =SIMP(statut='f',typ=no),
6860              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno),
6861              NOEUD_EXTR      =SIMP(statut='f',typ=no),
6862              GROUP_NO_EXTR   =SIMP(statut='f',typ=grno),
6863              PRECISION       =SIMP(statut='f',typ='R' ),
6864              CRITERE         =SIMP(statut='f',typ='TXM',into=("ABSOLU","RELATIF") ),
6865            ),
6866          ),
6867          INFO            =SIMP(statut='f',typ='I',into=( 1 , 2 ) ),
6868 )  ;
6869 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
6870 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6871 # ======================================================================
6872 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6873 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6874 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6875 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6876 # (AT YOUR OPTION) ANY LATER VERSION.
6877 #
6878 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6879 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6880 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6881 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6882 #
6883 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6884 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6885 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6886 # ======================================================================
6887 DEFI_INTE_SPEC=OPER(nom="DEFI_INTE_SPEC",op= 115,sd_prod=tabl_intsp,
6888                     docu="U4.36.02-f2",reentrant='n',
6889             UIinfo={"groupes":("Fonction",)},
6890
6891          DIMENSION       =SIMP(statut='f',typ='I',defaut= 1 ),
6892
6893          PAR_FONCTION    =FACT(statut='f',min=1,max='**',
6894            NUME_ORDRE_I    =SIMP(statut='o',typ='I' ),
6895            NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
6896            FONCTION        =SIMP(statut='o',typ=fonction_c ),
6897          ),
6898          KANAI_TAJIMI    =FACT(statut='f',min=1,max='**',
6899            regles=(EXCLUS('VALE_R','VALE_C'),),
6900            NUME_ORDRE_I    =SIMP(statut='o',typ='I' ),
6901            NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
6902            FREQ_MIN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6903            FREQ_MAX        =SIMP(statut='f',typ='R',defaut= 100. ),
6904            PAS             =SIMP(statut='f',typ='R',defaut= 1. ),
6905            AMOR_REDUIT     =SIMP(statut='f',typ='R',defaut= 0.6 ),
6906            FREQ_MOY        =SIMP(statut='f',typ='R',defaut= 5. ),
6907            VALE_R          =SIMP(statut='f',typ='R' ),
6908            VALE_C          =SIMP(statut='f',typ='C' ),
6909            INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
6910            PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6911            PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6912          ),
6913          CONSTANT        =FACT(statut='f',min=1,max='**',
6914            regles=(EXCLUS('VALE_R','VALE_C'),),
6915            NUME_ORDRE_I    =SIMP(statut='o',typ='I' ),
6916            NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
6917            FREQ_MIN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
6918            FREQ_MAX        =SIMP(statut='f',typ='R',defaut= 100. ),
6919            PAS             =SIMP(statut='f',typ='R',defaut= 1. ),
6920            VALE_R          =SIMP(statut='f',typ='R' ),
6921            VALE_C          =SIMP(statut='f',typ='C' ),
6922            INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
6923            PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6924            PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
6925          ),
6926          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
6927          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6928 )  ;
6929 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
6930 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6931 # ======================================================================
6932 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6933 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6934 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6935 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6936 # (AT YOUR OPTION) ANY LATER VERSION.
6937 #
6938 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6939 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6940 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6941 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6942 #
6943 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6944 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6945 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6946 # ======================================================================
6947 DEFI_INTERF_DYNA=OPER(nom="DEFI_INTERF_DYNA",op=  98,sd_prod=interf_dyna_clas,
6948                       docu="U4.64.01-e",reentrant='n',
6949             UIinfo={"groupes":("Matrices/vecteurs",)},
6950          NUME_DDL        =SIMP(statut='o',typ=nume_ddl ),
6951          INTERFACE       =FACT(statut='o',min=1,max='**',
6952            regles=(ENSEMBLE('NOM','TYPE'),
6953 #  erreur doc U sur la condition qui suit
6954                    UN_PARMI('NOEUD','GROUP_NO'),),
6955            NOM             =SIMP(statut='f',typ='TXM' ),
6956            TYPE            =SIMP(statut='f',typ='TXM',into=("MNEAL","CRAIGB","CB_HARMO","AUCUN") ),
6957            NOEUD           =SIMP(statut='f',typ=no,max='**'),
6958            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
6959            DDL_ACTIF       =SIMP(statut='f',typ='TXM',max='**'),
6960            MASQUE          =SIMP(statut='f',typ='TXM',max='**'),
6961          ),
6962          FREQ            =SIMP(statut='f',typ='R',defaut= 1.),
6963          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
6964 )  ;
6965 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
6966 #            CONFIGURATION MANAGEMENT OF EDF VERSION
6967 # ======================================================================
6968 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
6969 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
6970 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
6971 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
6972 # (AT YOUR OPTION) ANY LATER VERSION.
6973 #
6974 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
6975 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
6976 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
6977 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
6978 #
6979 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
6980 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
6981 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
6982 # ======================================================================
6983 # RESPONSABLE VABHHTS J.PELLET
6984 DEFI_LIST_ENTI=OPER(nom="DEFI_LIST_ENTI",op=22,sd_prod=listis,
6985                     fr="Définition d une suite croissante d entiers",
6986                     docu="U4.34.02-f",reentrant='n',
6987             UIinfo={"groupes":("Fonction",)},
6988          regles=(UN_PARMI('VALE','DEBUT'),
6989                  EXCLUS('VALE','INTERVALLE'),),
6990          VALE            =SIMP(statut='f',typ='I',max='**'),
6991          DEBUT           =SIMP(statut='f',typ='I'),
6992          INTERVALLE      =FACT(statut='f',min=1,max='**',
6993            regles=(UN_PARMI('NOMBRE','PAS'),),
6994            JUSQU_A         =SIMP(statut='o',typ='I'),
6995            NOMBRE          =SIMP(statut='f',typ='I',val_min=1,),
6996            PAS             =SIMP(statut='f',typ='I',val_min=1,),
6997          ),
6998          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
6999          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7000 )  ;
7001 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
7002 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7003 # ======================================================================
7004 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7005 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7006 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7007 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7008 # (AT YOUR OPTION) ANY LATER VERSION.
7009 #
7010 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7011 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7012 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7013 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7014 #
7015 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7016 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7017 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7018 # ======================================================================
7019 # RESPONSABLE VABHHTS J.PELLET
7020 DEFI_LIST_REEL=OPER(nom="DEFI_LIST_REEL",op=24,sd_prod=listr8,
7021                     fr="Définition d une suite croissante de réels",
7022                     docu="U4.34.01-g1",reentrant='n',
7023             UIinfo={"groupes":("Fonction",)},
7024          regles=(UN_PARMI('VALE','DEBUT',),
7025                  EXCLUS('VALE','INTERVALLE'),
7026                  ENSEMBLE('DEBUT','INTERVALLE')),
7027          VALE            =SIMP(statut='f',typ='R',max='**'),
7028          DEBUT           =SIMP(statut='f',typ='R'),
7029          INTERVALLE      =FACT(statut='f',min=1,max='**',
7030            regles=(UN_PARMI('NOMBRE','PAS'),),
7031            JUSQU_A         =SIMP(statut='o',typ='R'),
7032            NOMBRE          =SIMP(statut='f',typ='I'),
7033            PAS             =SIMP(statut='f',typ='R'),
7034          ),
7035          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
7036          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
7037 )  ;
7038 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
7039 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7040 # ======================================================================
7041 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7042 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7043 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7044 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7045 # (AT YOUR OPTION) ANY LATER VERSION.
7046 #
7047 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7048 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7049 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7050 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7051 #
7052 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7053 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7054 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7055 # ======================================================================
7056 # RESPONSABLE VABHHTS J.PELLET
7057 DEFI_MAILLAGE=OPER(nom="DEFI_MAILLAGE",op=  88,sd_prod=maillage,
7058                    fr="Définition d un nouveau maillage à partir de macro éléments",
7059                    docu="U4.23.01-e",reentrant='n',
7060             UIinfo={"groupes":("Maillage",)},
7061          DEFI_MAILLE     =FACT(statut='o',min=1,max='**',
7062            MACR_ELEM_STAT  =SIMP(statut='o',typ=macr_elem_stat,max='**' ),
7063            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
7064            TRAN            =SIMP(statut='f',typ='R',max=3),
7065            ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
7066            b_angl_naut     =BLOC(condition = "ANGL_NAUT != None",
7067              CENTRE          =SIMP(statut='f',typ='R',max=3),
7068            ),
7069          ),
7070          RECO_GLOBAL     =FACT(statut='f',min=1,max='**',
7071            regles=(UN_PARMI('TOUT','MAILLE'),),
7072            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
7073            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
7074            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7075            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
7076          ),
7077          RECO_MAILLE     =FACT(statut='f',min=1,max='**',
7078            MAILLE          =SIMP(statut='o',typ=ma,max='**'),
7079            GROUP_NO        =SIMP(statut='o',typ=grno,max='**'),
7080            OPTION          =SIMP(statut='f',typ='TXM',defaut="GEOMETRIQUE",into=("GEOMETRIQUE","NOEUD_A_NOEUD","INVERSE") ),
7081            geometrique     =BLOC(condition = "OPTION == 'GEOMETRIQUE'",
7082              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
7083              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
7084            ),
7085          ),
7086          DEFI_NOEUD      =FACT(statut='f',min=1,max='**',
7087            regles=(UN_PARMI('TOUT','NOEUD_INIT'),),
7088            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",),
7089                                  fr="Renommage de tous les noeuds" ),
7090            NOEUD_INIT      =SIMP(statut='f',typ=no,
7091                                  fr="Renommage d un seul noeud"),
7092            b_tout          =BLOC(condition = "TOUT != None",
7093              PREFIXE         =SIMP(statut='f',typ='TXM' ),
7094              INDEX           =SIMP(statut='o',typ='I',max='**'),
7095            ),
7096            b_noeud_init    =BLOC(condition = "NOEUD_INIT != None",
7097              MAILLE          =SIMP(statut='o',typ=ma),
7098              NOEUD_FIN       =SIMP(statut='o',typ=no),
7099            ),
7100          ),
7101          DEFI_GROUP_NO   =FACT(statut='f',min=1,max='**',
7102            regles=(UN_PARMI('TOUT','MAILLE'),
7103                 AU_MOINS_UN('INDEX','GROUP_NO_FIN'),
7104                    ENSEMBLE('GROUP_NO_INIT','GROUP_NO_FIN'),),
7105 #  la regle ancien catalogue AU_MOINS_UN__: ( INDEX , GROUP_NO_FIN ) incoherente avec doc U
7106            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",),
7107                                  fr="Création de plusieurs groupes de noeuds" ),
7108            MAILLE          =SIMP(statut='f',typ=ma,
7109                                  fr="Création de plusieurs groupes de noeuds"),
7110            GROUP_NO_INIT   =SIMP(statut='f',typ=grno,
7111                                  fr="Création d un seul groupe de noeuds"),
7112            PREFIXE         =SIMP(statut='f',typ='TXM' ),
7113            INDEX           =SIMP(statut='f',typ='I',max='**'),
7114            GROUP_NO_FIN    =SIMP(statut='f',typ=grno),
7115          ),
7116 )  ;
7117 #& MODIF COMMANDE  DATE 24/02/2003   AUTEUR F6BHHBO P.DEBONNIERES
7118 #            CONFIGURATION MANAGEMENT OF EDF VERSION
7119 # ======================================================================
7120 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
7121 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
7122 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
7123 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
7124 # (AT YOUR OPTION) ANY LATER VERSION.
7125 #
7126 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
7127 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
7128 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
7129 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
7130 #
7131 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
7132 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
7133 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
7134 # ======================================================================
7135 DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater,
7136                    fr="Définition des paramètres décrivant le comportement d un matériau",
7137                    docu="U4.43.01-g4",reentrant='n',
7138             UIinfo={"groupes":("Modélisation",)},
7139        regles=(EXCLUS('ELAS','ELAS_FO','ELAS_FLUI','ELAS_ISTR','ELAS_ISTR_FO','ELAS_ORTH',
7140                       'ELAS_ORTH_FO','ELAS_COQUE','ELAS_COQUE_FO',
7141                       'SURF_ETAT_SATU','CAM_CLAY_THM','SURF_ETAT_NSAT'),
7142                EXCLUS('THER','THER_FO','THER_ORTH','THER_NL'),
7143                EXCLUS('ECRO_LINE','ECRO_LINE_FO'),
7144                EXCLUS('TAHERI','TAHERI_FO'),
7145                EXCLUS('ROUSSELIER','ROUSSELIER_FO'),
7146                PRESENT_PRESENT('ROUSSELIER','TRACTION'),
7147                PRESENT_PRESENT('ROUSSELIER_FO','TRACTION'),
7148                EXCLUS('CIN1_CHAB','CIN1_CHAB_FO'),
7149                EXCLUS('CIN2_CHAB','CIN2_CHAB_FO'),
7150                EXCLUS('VISCOCHAB','VISCOCHAB_FO'),
7151                EXCLUS('POLY_CFC','POLY_CFC_FO'),
7152                EXCLUS('LEMAITRE','LEMAITRE_FO','ZIRC_CYRA2','ZIRC_EPRI'),
7153                EXCLUS('OHNO','OHNO_FO'),
7154                EXCLUS('LMARC','LMARC_FO'),
7155                EXCLUS('VMIS_POUTRE','VMIS_POUTRE_FO'),
7156                EXCLUS('VENDOCHAB','VENDOCHAB_FO'),
7157                PRESENT_PRESENT('BPEL_ACIER','ELAS'),
7158                EXCLUS('RCCM','RCCM_FO'),
7159                EXCLUS('WEIBULL','WEIBULL_FO'),
7160                PRESENT_PRESENT('CAM_CLAY','ELAS'),
7161                PRESENT_PRESENT('LAIGLE','ELAS'),
7162                EXCLUS('MAZARS','MAZARS_FO'),
7163                PRESENT_PRESENT('BAZANT_FD','ELAS_FO'),
7164                ),
7165
7166 #
7167 # comportement élastique
7168 #
7169            ELAS            =FACT(statut='f',min=0,max=1,
7170              E               =SIMP(statut='o',typ='R',val_min=0.E+0),
7171              NU              =SIMP(statut='o',typ='R',val_min=-1.E+0,val_max=0.5E+0),
7172              RHO             =SIMP(statut='f',typ='R'),
7173              ALPHA           =SIMP(statut='f',typ='R'),
7174              AMOR_ALPHA      =SIMP(statut='f',typ='R'),
7175              AMOR_BETA       =SIMP(statut='f',typ='R'),
7176              AMOR_HYST       =SIMP(statut='f',typ='R'),
7177            ),
7178            ELAS_FO         =FACT(statut='f',min=0,max=1,
7179              regles=(PRESENT_PRESENT('ALPHA','TEMP_DEF_ALPHA'),),
7180              E               =SIMP(statut='o',typ=fonction),
7181              NU              =SIMP(statut='o',typ=fonction),
7182              RHO             =SIMP(statut='f',typ='R'),
7183              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
7184              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.),
7185              ALPHA           =SIMP(statut='f',typ=fonction),
7186              AMOR_ALPHA      =SIMP(statut='f',typ=fonction),
7187              AMOR_BETA       =SIMP(statut='f',typ=fonction),
7188              AMOR_HYST       =SIMP(statut='f',typ=fonction),
7189              K_DESSIC        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7190              B_ENDOGE        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7191              FONC_DESORP     =SIMP(statut='f',typ=fonction),
7192              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
7193              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="INST",into=("TEMP","INST",) ),
7194              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
7195              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
7196            ),
7197            ELAS_FLUI       =FACT(statut='f',min=0,max=1,
7198              E               =SIMP(statut='o',typ='R'),
7199              NU              =SIMP(statut='o',typ='R'),
7200              RHO             =SIMP(statut='o',typ='R'),
7201              PROF_RHO_F_INT  =SIMP(statut='o',typ=fonction),
7202              PROF_RHO_F_EXT  =SIMP(statut='o',typ=fonction),
7203              COEF_MASS_AJOU  =SIMP(statut='o',typ=fonction),
7204              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="ABSC",into=("ABSC",) ),
7205            ),
7206            ELAS_ISTR       =FACT(statut='f',min=0,max=1,
7207              E_L             =SIMP(statut='o',typ='R'),
7208              E_N             =SIMP(statut='o',typ='R'),
7209              NU_LT           =SIMP(statut='o',typ='R'),
7210              NU_LN           =SIMP(statut='o',typ='R'),
7211              G_LN            =SIMP(statut='o',typ='R'),
7212              RHO             =SIMP(statut='f',typ='R'),
7213              ALPHA_L         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7214              ALPHA_N         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7215            ),
7216            ELAS_ISTR_FO    =FACT(statut='f',min=0,max=1,
7217              regles=(
7218                       PRESENT_PRESENT('ALPHA_L','TEMP_DEF_ALPHA'),
7219                       PRESENT_PRESENT('ALPHA_N','TEMP_DEF_ALPHA'),
7220                     ),
7221              E_L             =SIMP(statut='o',typ=fonction),
7222              E_N             =SIMP(statut='o',typ=fonction),
7223              NU_LT           =SIMP(statut='o',typ=fonction),
7224              NU_LN           =SIMP(statut='o',typ=fonction),
7225              G_LN            =SIMP(statut='o',typ=fonction),
7226              RHO             =SIMP(statut='f',typ='R'),
7227              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
7228              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.),
7229              ALPHA_L         =SIMP(statut='f',typ=fonction),
7230              ALPHA_N         =SIMP(statut='f',typ=fonction),
7231              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST")),
7232            ),
7233            ELAS_ORTH       =FACT(statut='f',min=0,max=1,
7234              E_L             =SIMP(statut='o',typ='R'),
7235              E_T             =SIMP(statut='o',typ='R'),
7236              E_N             =SIMP(statut='f',typ='R'),
7237              NU_LT           =SIMP(statut='o',typ='R'),
7238              NU_LN           =SIMP(statut='f',typ='R'),
7239              NU_TN           =SIMP(statut='f',typ='R'),
7240              G_LT            =SIMP(statut='o',typ='R'),
7241              G_LN            =SIMP(statut='f',typ='R'),
7242              G_TN            =SIMP(statut='f',typ='R'),
7243              RHO             =SIMP(statut='f',typ='R'),
7244              ALPHA_L         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7245              ALPHA_T         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7246              ALPHA_N         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7247              XT              =SIMP(statut='f',typ='R',defaut= 1. ),
7248              XC              =SIMP(statut='f',typ='R',defaut= 1. ),
7249              YT              =SIMP(statut='f',typ='R',defaut= 1. ),
7250              YC              =SIMP(statut='f',typ='R',defaut= 1. ),
7251              S_LT            =SIMP(statut='f',typ='R',defaut= 1. ),
7252            ),
7253            ELAS_ORTH_FO    =FACT(statut='f',min=0,max=1,
7254              regles=(
7255                       PRESENT_PRESENT('ALPHA_L','TEMP_DEF_ALPHA'),
7256                       PRESENT_PRESENT('ALPHA_N','TEMP_DEF_ALPHA'),
7257                       PRESENT_PRESENT('ALPHA_T','TEMP_DEF_ALPHA'),
7258                     ),
7259              E_L             =SIMP(statut='o',typ=fonction),
7260              E_T             =SIMP(statut='o',typ=fonction),
7261              E_N             =SIMP(statut='o',typ=fonction),
7262              NU_LT           =SIMP(statut='o',typ=fonction),
7263              NU_LN           =SIMP(statut='o',typ=fonction),
7264              NU_TN           =SIMP(statut='o',typ=fonction),
7265              G_LT            =SIMP(statut='o',typ=fonction),
7266              G_LN            =SIMP(statut='o',typ=fonction),
7267              G_TN            =SIMP(statut='o',typ=fonction),
7268              RHO             =SIMP(statut='f',typ='R'),
7269              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
7270              PRECISION       =SIMP(statut='f',typ='R',defaut= 1. ),
7271              ALPHA_L         =SIMP(statut='f',typ=fonction),
7272              ALPHA_T         =SIMP(statut='f',typ=fonction),
7273              ALPHA_N         =SIMP(statut='f',typ=fonction),
7274              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
7275            ),
7276            ELAS_THM        =FACT(statut='f',min=0,max=1,
7277              RHO_S           =SIMP(statut='o',typ='R'),
7278              UN_SUR_KS       =SIMP(statut='o',typ='R'),
7279              E               =SIMP(statut='f',typ='R'),
7280              KB              =SIMP(statut='f',typ='R'),
7281              D_KB_T          =SIMP(statut='f',typ='R'),
7282              ALPHA_S         =SIMP(statut='f',typ='R'),
7283              ALPHA_D         =SIMP(statut='f',typ='R'),
7284            ),
7285            SURF_ETAT_SATU  =FACT(statut='f',min=0,max=1,
7286              E_CHAR          =SIMP(statut='o',typ='R'),
7287              E_DECHAR        =SIMP(statut='o',typ='R'),
7288              XN              =SIMP(statut='f',typ='R'),
7289              RF              =SIMP(statut='f',typ='R'),
7290              EV_KB           =SIMP(statut='f',typ='R'),
7291              EV_XM           =SIMP(statut='f',typ='R'),
7292              D_E_T           =SIMP(statut='f',typ='R'),
7293              ALPHA0          =SIMP(statut='f',typ='R'),
7294              ALPHA1          =SIMP(statut='f',typ='R'),
7295              ALPHA2          =SIMP(statut='f',typ='R'),
7296              ALPHA3          =SIMP(statut='f',typ='R'),
7297              ALPHA_S         =SIMP(statut='f',typ='R'),
7298              ANG_FRT         =SIMP(statut='o',typ='R'),
7299              COHE            =SIMP(statut='o',typ='R'),
7300              RESI_TRAC       =SIMP(statut='o',typ='R'),
7301            ),
7302            CAM_CLAY_THM    =FACT(statut='f',min=0,max=1,
7303              NU              =SIMP(statut='f',typ='R'),
7304              LAMBDA          =SIMP(statut='o',typ='R'),
7305              KAPA            =SIMP(statut='o',typ='R'),
7306              M               =SIMP(statut='f',typ='R'),
7307              PRES_CRIT       =SIMP(statut='f',typ='R'),
7308              GAMA            =SIMP(statut='o',typ='R'),
7309              A0_PC           =SIMP(statut='o',typ='R'),
7310              A1_PC           =SIMP(statut='f',typ='R'),
7311              A2_PC           =SIMP(statut='f',typ='R'),
7312              ALPHA0_PC       =SIMP(statut='f',typ='R'),
7313              ALPHA1_PC       =SIMP(statut='f',typ='R'),
7314              ALPHA2_PC       =SIMP(statut='f',typ='R'),
7315              ALPHA3_PC       =SIMP(statut='f',typ='R'),
7316              ALPHA_S         =SIMP(statut='f',typ='R'),
7317                          ),
7318            SURF_ETAT_NSAT  =FACT(statut='f',min=0,max=1,
7319              E_CHAR          =SIMP(statut='o',typ='R'),
7320              E_DECHAR        =SIMP(statut='o',typ='R'),
7321              XN              =SIMP(statut='f',typ='R'),
7322              RF              =SIMP(statut='f',typ='R'),
7323              EV_KB           =SIMP(statut='f',typ='R'),
7324              EV_XM           =SIMP(statut='f',typ='R'),
7325              EV_A            =SIMP(statut='f',typ='R'),
7326              EV_B            =SIMP(statut='f',typ='R'),
7327              EV_CT           =SIMP(statut='f',typ='R'),
7328              EV_SIGB         =SIMP(statut='f',typ='R'),
7329              D_E_T           =SIMP(statut='f',typ='R'),
7330              D_E_SUCC        =SIMP(statut='f',typ='R'),
7331              ANG_FRT         =SIMP(statut='o',typ='R'),
7332              COHE            =SIMP(statut='o',typ='R'),
7333              D_COEH_SUCC     =SIMP(statut='f',typ='R'),
7334              ANG_FRT_ULT     =SIMP(statut='f',typ='R'),
7335              SUCC_ULTM       =SIMP(statut='f',typ='R'),
7336              RESI_TRAC       =SIMP(statut='f',typ='R'),
7337              A_SURF_SATU     =SIMP(statut='f',typ='R'),
7338              B_SURF_SATU     =SIMP(statut='f',typ='R'),
7339              C_SURF_SATU     =SIMP(statut='f',typ='R'),
7340              D_SURF_SATU     =SIMP(statut='f',typ='R'),
7341            ),
7342            ELAS_COQUE      =FACT(statut='f',min=0,max=1,
7343              regles=(EXCLUS('MEMB_L','M_LLLL',),
7344                      PRESENT_PRESENT('MEMB_L','MEMB_LT', 'MEMB_T','MEMB_G_LT','FLEX_L','FLEX_LT',
7345                                      'FLEX_T','FLEX_G_LT','CISA_L','CISA_T',),
7346                      PRESENT_PRESENT('M_LLLL','M_LLTT','M_LLLT','M_TTTT','M_TTLT','M_LTLT','F_LLLL',
7347                                      'F_LLTT','F_LLLT','F_TTTT','F_TTLT','F_LTLT','MF_LLLL',
7348                                      'MF_LLTT','MF_LLLT','MF_TTTT','MF_TTLT','MF_LTLT','MC_LLLZ',
7349                                      'MC_LLTZ','MC_TTLZ','MC_TTTZ','MC_LTLZ','MC_LTTZ','FC_LLLZ',
7350                                      'FC_LLTZ','FC_TTLZ','FC_TTTZ','FC_LTLZ','FC_LTTZ','C_LZLZ',
7351                                      'C_LZTZ','C_TZTZ'),),
7352              MEMB_L          =SIMP(statut='f',typ='R'),
7353              MEMB_LT         =SIMP(statut='f',typ='R'),
7354              MEMB_T          =SIMP(statut='f',typ='R'),
7355              MEMB_G_LT       =SIMP(statut='f',typ='R'),
7356              FLEX_L          =SIMP(statut='f',typ='R'),
7357              FLEX_LT         =SIMP(statut='f',typ='R'),
7358              FLEX_T          =SIMP(statut='f',typ='R'),
7359              FLEX_G_LT       =SIMP(statut='f',typ='R'),
7360              CISA_L          =SIMP(statut='f',typ='R'),
7361              CISA_T          =SIMP(statut='f',typ='R'),
7362              M_LLLL          =SIMP(statut='f',typ='R'),
7363              M_LLTT          =SIMP(statut='f',typ='R'),
7364              M_LLLT          =SIMP(statut='f',typ='R'),
7365              M_TTTT          =SIMP(statut='f',typ='R'),
7366              M_TTLT          =SIMP(statut='f',typ='R'),
7367              M_LTLT          =SIMP(statut='f',typ='R'),
7368              F_LLLL          =SIMP(statut='f',typ='R'),
7369              F_LLTT          =SIMP(statut='f',typ='R'),
7370              F_LLLT          =SIMP(statut='f',typ='R'),
7371              F_TTTT          =SIMP(statut='f',typ='R'),
7372              F_TTLT          =SIMP(statut='f',typ='R'),
7373              F_LTLT          =SIMP(statut='f',typ='R'),
7374              MF_LLLL         =SIMP(statut='f',typ='R'),
7375              MF_LLTT         =SIMP(statut='f',typ='R'),
7376              MF_LLLT         =SIMP(statut='f',typ='R'),
7377              MF_TTTT         =SIMP(statut='f',typ='R'),
7378              MF_TTLT         =SIMP(statut='f',typ='R'),
7379              MF_LTLT         =SIMP(statut='f',typ='R'),
7380              MC_LLLZ         =SIMP(statut='f',typ='R'),
7381              MC_LLTZ         =SIMP(statut='f',typ='R'),
7382              MC_TTLZ         =SIMP(statut='f',typ='R'),
7383              MC_TTTZ         =SIMP(statut='f',typ='R'),
7384              MC_LTLZ         =SIMP(statut='f',typ='R'),
7385              MC_LTTZ         =SIMP(statut='f',typ='R'),
7386              FC_LLLZ         =SIMP(statut='f',typ='R'),
7387              FC_LLTZ         =SIMP(statut='f',typ='R'),
7388              FC_TTLZ         =SIMP(statut='f',typ='R'),
7389              FC_TTTZ         =SIMP(statut='f',typ='R'),
7390              FC_LTLZ         =SIMP(statut='f',typ='R'),
7391              FC_LTTZ         =SIMP(statut='f',typ='R'),
7392              C_LZLZ          =SIMP(statut='f',typ='R'),
7393              C_LZTZ          =SIMP(statut='f',typ='R'),
7394              C_TZTZ          =SIMP(statut='f',typ='R'),
7395              RHO             =SIMP(statut='f',typ='R'),
7396              ALPHA           =SIMP(statut='f',typ='R'),
7397            ),
7398            ELAS_COQUE_FO   =FACT(statut='f',min=0,max=1,
7399              regles=(EXCLUS('MEMB_L','M_LLLL',),
7400                      PRESENT_PRESENT('MEMB_L','MEMB_LT','MEMB_T','MEMB_G_LT','FLEX_L','FLEX_LT',
7401                                      'FLEX_T','FLEX_G_LT','CISA_L','CISA_T',),
7402                      PRESENT_PRESENT('M_LLLL','M_LLTT','M_LLLT','M_TTTT','M_TTLT','M_LTLT','F_LLLL',
7403                                      'F_LLTT','F_LLLT','F_TTTT','F_TTLT','F_LTLT','MF_LLLL','MF_LLTT',
7404                                      'MF_LLLT','MF_TTTT','MF_TTLT','MF_LTLT','MC_LLLZ','MC_LLTZ',
7405                                      'MC_TTLZ','MC_TTTZ','MC_LTLZ','MC_LTTZ','FC_LLLZ','FC_LLTZ',
7406                                      'FC_TTLZ','FC_TTTZ','FC_LTLZ','FC_LTTZ','C_LZLZ','C_LZTZ','C_TZTZ'),),
7407              MEMB_L          =SIMP(statut='f',typ=fonction),
7408              MEMB_LT         =SIMP(statut='f',typ=fonction),
7409              MEMB_T          =SIMP(statut='f',typ=fonction),
7410              MEMB_G_LT       =SIMP(statut='f',typ=fonction),
7411              FLEX_L          =SIMP(statut='f',typ=fonction),
7412              FLEX_LT         =SIMP(statut='f',typ=fonction),
7413              FLEX_T          =SIMP(statut='f',typ=fonction),
7414              FLEX_G_LT       =SIMP(statut='f',typ=fonction),
7415              CISA_L          =SIMP(statut='f',typ=fonction),
7416              CISA_T          =SIMP(statut='f',typ=fonction),
7417              M_LLLL          =SIMP(statut='f',typ=fonction),
7418              M_LLTT          =SIMP(statut='f',typ=fonction),
7419              M_LLLT          =SIMP(statut='f',typ=fonction),
7420              M_TTTT          =SIMP(statut='f',typ=fonction),
7421              M_TTLT          =SIMP(statut='f',typ=fonction),
7422              M_LTLT          =SIMP(statut='f',typ=fonction),
7423              F_LLLL          =SIMP(statut='f',typ=fonction),
7424              F_LLTT          =SIMP(statut='f',typ=fonction),
7425              F_LLLT          =SIMP(statut='f',typ=fonction),
7426              F_TTTT          =SIMP(statut='f',typ=fonction),
7427              F_TTLT          =SIMP(statut='f',typ=fonction),
7428              F_LTLT          =SIMP(statut='f',typ=fonction),
7429              MF_LLLL         =SIMP(statut='f',typ=fonction),
7430              MF_LLTT         =SIMP(statut='f',typ=fonction),
7431              MF_LLLT         =SIMP(statut='f',typ=fonction),
7432              MF_TTTT         =SIMP(statut='f',typ=fonction),
7433              MF_TTLT         =SIMP(statut='f',typ=fonction),
7434              MF_LTLT         =SIMP(statut='f',typ=fonction),
7435              MC_LLLZ         =SIMP(statut='f',typ=fonction),
7436              MC_LLTZ         =SIMP(statut='f',typ=fonction),
7437              MC_TTLZ         =SIMP(statut='f',typ=fonction),
7438              MC_TTTZ         =SIMP(statut='f',typ=fonction),
7439              MC_LTLZ         =SIMP(statut='f',typ=fonction),
7440              MC_LTTZ         =SIMP(statut='f',typ=fonction),
7441              FC_LLLZ         =SIMP(statut='f',typ=fonction),
7442              FC_LLTZ         =SIMP(statut='f',typ=fonction),
7443              FC_TTLZ         =SIMP(statut='f',typ=fonction),
7444              FC_TTTZ         =SIMP(statut='f',typ=fonction),
7445              FC_LTLZ         =SIMP(statut='f',typ=fonction),
7446              FC_LTTZ         =SIMP(statut='f',typ=fonction),
7447              C_LZLZ          =SIMP(statut='f',typ=fonction),
7448              C_LZTZ          =SIMP(statut='f',typ=fonction),
7449              C_TZTZ          =SIMP(statut='f',typ=fonction),
7450              RHO             =SIMP(statut='f',typ='R'),
7451              ALPHA           =SIMP(statut='f',typ=fonction),
7452              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST") ),
7453            ),
7454            APPUI_ELAS      =FACT(statut='f',min=0,max=1,
7455              E_N             =SIMP(statut='o',typ='R'),
7456              E_TAN           =SIMP(statut='f',typ='R',defaut= 0.E+0),
7457            ),
7458            CABLE           =FACT(statut='f',min=0,max=1,
7459              E               =SIMP(statut='o',typ='R'),
7460              EC_SUR_E        =SIMP(statut='f',typ='R',defaut= 1.E-4 ),
7461              RHO             =SIMP(statut='f',typ='R'),
7462              ALPHA           =SIMP(statut='f',typ='R'),
7463              AMOR_ALPHA      =SIMP(statut='f',typ='R'),
7464              AMOR_BETA       =SIMP(statut='f',typ='R'),
7465            ),
7466 #
7467 # comportement mécanique non linéaire
7468 #
7469            TRACTION        =FACT(statut='f',min=0,max=1,
7470              SIGM            =SIMP(statut='o',typ=fonction),
7471              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",) ),
7472              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7473              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
7474              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
7475            ),
7476            ECRO_LINE       =FACT(statut='f',min=0,max=1,
7477              D_SIGM_EPSI     =SIMP(statut='o',typ='R'),
7478              SY              =SIMP(statut='o',typ='R'),
7479            ),
7480            ECRO_LINE_FO    =FACT(statut='f',min=0,max=1,
7481              D_SIGM_EPSI     =SIMP(statut='o',typ=fonction),
7482              SY              =SIMP(statut='o',typ=fonction),
7483              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7484            ),
7485            PRAGER          =FACT(statut='f',min=0,max=1,
7486              C               =SIMP(statut='o',typ='R'),
7487            ),
7488            PRAGER_FO       =FACT(statut='f',min=0,max=1,
7489              C               =SIMP(statut='o',typ=fonction),
7490              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7491            ),
7492            ECRO_FLEJOU     =FACT(statut='f',min=0,max=1,
7493              EP              =SIMP(statut='o',typ='R'),
7494              SY              =SIMP(statut='o',typ='R'),
7495              SU              =SIMP(statut='o',typ='R'),
7496              PUISS           =SIMP(statut='o',typ='R'),
7497            ),
7498            TAHERI          =FACT(statut='f',min=0,max=1,
7499              R_0             =SIMP(statut='o',typ='R'),
7500              ALPHA           =SIMP(statut='o',typ='R'),
7501              M               =SIMP(statut='o',typ='R'),
7502              A               =SIMP(statut='o',typ='R'),
7503              B               =SIMP(statut='o',typ='R'),
7504              C1              =SIMP(statut='o',typ='R'),
7505              C_INF           =SIMP(statut='o',typ='R'),
7506              S               =SIMP(statut='o',typ='R'),
7507            ),
7508            TAHERI_FO       =FACT(statut='f',min=0,max=1,
7509              R_0             =SIMP(statut='o',typ=fonction),
7510              ALPHA           =SIMP(statut='o',typ=fonction),
7511              M               =SIMP(statut='o',typ=fonction),
7512              A               =SIMP(statut='o',typ=fonction),
7513              B               =SIMP(statut='o',typ=fonction),
7514              C1              =SIMP(statut='o',typ=fonction),
7515              C_INF           =SIMP(statut='o',typ=fonction),
7516              S               =SIMP(statut='o',typ=fonction),
7517              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7518            ),
7519            ROUSSELIER      =FACT(statut='f',min=0,max=1,
7520              D               =SIMP(statut='o',typ='R'),
7521              SIGM_1          =SIMP(statut='o',typ='R'),
7522              PORO_INIT       =SIMP(statut='o',typ='R'),
7523              PORO_CRIT       =SIMP(statut='f',typ='R',defaut= 1. ),
7524              PORO_ACCE       =SIMP(statut='f',typ='R',defaut= 1. ),
7525              PORO_LIMI       =SIMP(statut='f',typ='R',defaut= 0.999 ),
7526              D_SIGM_EPSI_NORM=SIMP(statut='f',typ='R',defaut= 1. ),
7527              AN              =SIMP(statut='f',typ='R',defaut= 0. ),
7528            ),
7529            ROUSSELIER_FO   =FACT(statut='f',min=0,max=1,
7530              D               =SIMP(statut='o',typ=fonction),
7531              SIGM_1          =SIMP(statut='o',typ=fonction),
7532              PORO_INIT       =SIMP(statut='o',typ=fonction),
7533              PORO_CRIT       =SIMP(statut='f',typ='R',defaut= 1. ),
7534              PORO_ACCE       =SIMP(statut='f',typ='R',defaut= 1. ),
7535              PORO_LIMI       =SIMP(statut='f',typ='R',defaut= 0.999 ),
7536              D_SIGM_EPSI_NORM=SIMP(statut='f',typ='R',defaut= 1. ),
7537              AN              =SIMP(statut='f',typ='R',defaut= 0. ),
7538              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7539            ),
7540            ROUSS_VISC      =FACT(statut='f',min=0,max=1,
7541              SIGM_0          =SIMP(statut='o',typ='R'),
7542              EPSI_0          =SIMP(statut='o',typ='R'),
7543              M               =SIMP(statut='o',typ='R'),
7544            ),
7545            CHABOCHE        =FACT(statut='f',min=0,max=1,
7546              R_I             =SIMP(statut='o',typ='R'),
7547              R_0             =SIMP(statut='o',typ='R'),
7548              B               =SIMP(statut='o',typ='R'),
7549              K               =SIMP(statut='o',typ='R'),
7550              W               =SIMP(statut='o',typ='R'),
7551              A1              =SIMP(statut='o',typ='R'),
7552              A2              =SIMP(statut='o',typ='R'),
7553              C1              =SIMP(statut='o',typ='R'),
7554              C2              =SIMP(statut='o',typ='R'),
7555            ),
7556            CIN1_CHAB  =FACT(statut='f',min=0,max=1,
7557              R_0             =SIMP(statut='o',typ='R'),
7558              R_I             =SIMP(statut='f',typ='R'),
7559              B               =SIMP(statut='f',typ='R',defaut= 0.0E+0),
7560              C_I             =SIMP(statut='o',typ='R'),
7561              K               =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7562              W               =SIMP(statut='f',typ='R',defaut= 0.0E+0),
7563              G_0             =SIMP(statut='o',typ='R'),
7564              A_I             =SIMP(statut='f',typ='R',defaut= 1.0E+0),
7565            ),
7566            CIN1_CHAB_FO  =FACT(statut='f',min=0,max=1,
7567              R_0             =SIMP(statut='o',typ=fonction),
7568              R_I             =SIMP(statut='o',typ=fonction),
7569              B               =SIMP(statut='o',typ=fonction),
7570              C_I             =SIMP(statut='o',typ=fonction),
7571              K               =SIMP(statut='o',typ=fonction),
7572              W               =SIMP(statut='o',typ=fonction),
7573              G_0             =SIMP(statut='o',typ=fonction),
7574              A_I             =SIMP(statut='o',typ=fonction),
7575              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
7576            ),
7577            CIN2_CHAB  =FACT(statut='f',min=0,max=1,
7578              R_0             =SIMP(statut='o',typ='R'),
7579              R_I             =SIMP(statut='f',typ='R'),
7580              B               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7581              C1_I            =SIMP(statut='o',typ='R'),
7582              C2_I            =SIMP(statut='o',typ='R'),
7583              K               =SIMP(statut='f',typ='R',defaut= 1.),
7584              W               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7585              G1_0            =SIMP(statut='o',typ='R'),
7586              G2_0            =SIMP(statut='o',typ='R'),
7587              A_I             =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
7588            ),
7589            CIN2_CHAB_FO  =FACT(statut='f',min=0,max=1,
7590              R_0             =SIMP(statut='o',typ=fonction),
7591              R_I             =SIMP(statut='o',typ=fonction),
7592              B               =SIMP(statut='o',typ=fonction),
7593              C1_I            =SIMP(statut='o',typ=fonction),
7594              C2_I            =SIMP(statut='o',typ=fonction),
7595              K               =SIMP(statut='o',typ=fonction),
7596              W               =SIMP(statut='o',typ=fonction),
7597              G1_0            =SIMP(statut='o',typ=fonction),
7598              G2_0            =SIMP(statut='o',typ=fonction),
7599              A_I             =SIMP(statut='o',typ=fonction),
7600              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7601            ),
7602            VISCOCHAB       =FACT(statut='f',min=0,max=1,
7603              K_0             =SIMP(statut='o',typ='R'),
7604              A_K             =SIMP(statut='o',typ='R'),
7605              A_R             =SIMP(statut='o',typ='R'),
7606              K               =SIMP(statut='o',typ='R'),
7607              N               =SIMP(statut='o',typ='R'),
7608              ALP             =SIMP(statut='o',typ='R'),
7609              B               =SIMP(statut='o',typ='R'),
7610              M_R             =SIMP(statut='o',typ='R'),
7611              G_R             =SIMP(statut='o',typ='R'),
7612              MU              =SIMP(statut='o',typ='R'),
7613              Q_M             =SIMP(statut='o',typ='R'),
7614              Q_0             =SIMP(statut='o',typ='R'),
7615              QR_0            =SIMP(statut='o',typ='R'),
7616              ETA             =SIMP(statut='o',typ='R'),
7617              C1              =SIMP(statut='o',typ='R'),
7618              M_1             =SIMP(statut='o',typ='R'),
7619              D1              =SIMP(statut='o',typ='R'),
7620              G_X1            =SIMP(statut='o',typ='R'),
7621              G1_0            =SIMP(statut='o',typ='R'),
7622              C2              =SIMP(statut='o',typ='R'),
7623              M_2             =SIMP(statut='o',typ='R'),
7624              D2              =SIMP(statut='o',typ='R'),
7625              G_X2            =SIMP(statut='o',typ='R'),
7626              G2_0            =SIMP(statut='o',typ='R'),
7627              A_I             =SIMP(statut='o',typ='R'),
7628            ),
7629            VISCOCHAB_FO    =FACT(statut='f',min=0,max=1,
7630              K_0             =SIMP(statut='o',typ=fonction),
7631              A_K             =SIMP(statut='o',typ=fonction),
7632              A_R             =SIMP(statut='o',typ=fonction),
7633              K               =SIMP(statut='o',typ=fonction),
7634              N               =SIMP(statut='o',typ=fonction),
7635              ALP             =SIMP(statut='o',typ=fonction),
7636              B               =SIMP(statut='o',typ=fonction),
7637              M_R             =SIMP(statut='o',typ=fonction),
7638              G_R             =SIMP(statut='o',typ=fonction),
7639              MU              =SIMP(statut='o',typ=fonction),
7640              Q_M             =SIMP(statut='o',typ=fonction),
7641              Q_0             =SIMP(statut='o',typ=fonction),
7642              QR_0            =SIMP(statut='o',typ=fonction),
7643              ETA             =SIMP(statut='o',typ=fonction),
7644              C1              =SIMP(statut='o',typ=fonction),
7645              M_1             =SIMP(statut='o',typ=fonction),
7646              D1              =SIMP(statut='o',typ=fonction),
7647              G_X1            =SIMP(statut='o',typ=fonction),
7648              G1_0            =SIMP(statut='o',typ=fonction),
7649              C2              =SIMP(statut='o',typ=fonction),
7650              M_2             =SIMP(statut='o',typ=fonction),
7651              D2              =SIMP(statut='o',typ=fonction),
7652              G_X2            =SIMP(statut='o',typ=fonction),
7653              G2_0            =SIMP(statut='o',typ=fonction),
7654              A_I             =SIMP(statut='o',typ=fonction),
7655              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7656            ),
7657            POLY_CFC        =FACT(statut='f',min=0,max=1,
7658              TEXTURE         =SIMP(statut='o',typ=(tabl_texture) ),
7659              DL              =SIMP(statut='f',typ='R'),
7660              DA              =SIMP(statut='f',typ='R'),
7661              N               =SIMP(statut='o',typ='R'),
7662              K               =SIMP(statut='o',typ='R'),
7663              TAU_0           =SIMP(statut='o',typ='R'),
7664              Q1              =SIMP(statut='o',typ='R'),
7665              B1              =SIMP(statut='o',typ='R'),
7666              HL              =SIMP(statut='o',typ='R'),
7667              Q2              =SIMP(statut='o',typ='R'),
7668              B2              =SIMP(statut='o',typ='R'),
7669              C1              =SIMP(statut='o',typ='R'),
7670              D1              =SIMP(statut='o',typ='R'),
7671              C2              =SIMP(statut='o',typ='R'),
7672            ),
7673            POLY_CFC_FO     =FACT(statut='f',min=0,max=1,
7674              TEXTURE         =SIMP(statut='o',typ=(tabl_texture) ),
7675              DL              =SIMP(statut='o',typ=fonction),
7676              DA              =SIMP(statut='o',typ=fonction),
7677              N               =SIMP(statut='o',typ=fonction),
7678              K               =SIMP(statut='o',typ=fonction),
7679              TAU_0           =SIMP(statut='o',typ=fonction),
7680              Q1              =SIMP(statut='o',typ=fonction),
7681              B1              =SIMP(statut='o',typ=fonction),
7682              HL              =SIMP(statut='o',typ=fonction),
7683              Q2              =SIMP(statut='o',typ=fonction),
7684              B2              =SIMP(statut='o',typ=fonction),
7685              C1              =SIMP(statut='o',typ=fonction),
7686              D1              =SIMP(statut='o',typ=fonction),
7687              C2              =SIMP(statut='o',typ=fonction),
7688              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7689            ),
7690            LEMAITRE        =FACT(statut='f',min=0,max=1,
7691              N               =SIMP(statut='o',typ='R'),
7692              UN_SUR_K        =SIMP(statut='o',typ='R'),
7693              UN_SUR_M        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7694            ),
7695            ZIRC_CYRA2      =FACT(statut='f',min=0,max=1,
7696              EPSI_FAB        =SIMP(statut='o',typ=fonction),
7697              TEMP_RECUIT     =SIMP(statut='o',typ=fonction),
7698              FLUX_PHI        =SIMP(statut='o',typ=fonction),
7699              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
7700            ),
7701            ZIRC_EPRI       =FACT(statut='f',min=0,max=1,
7702              FLUX_PHI        =SIMP(statut='o',typ='R'),
7703              R_P             =SIMP(statut='o',typ='R'),
7704              THETA_MAX       =SIMP(statut='o',typ='R'),
7705            ),
7706            LEMAITRE_FO     =FACT(statut='f',min=0,max=1,
7707              N               =SIMP(statut='o',typ=fonction),
7708              UN_SUR_K        =SIMP(statut='o',typ=fonction),
7709              UN_SUR_M        =SIMP(statut='o',typ=fonction),
7710              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7711            ),
7712            GRAN_IRRA       =FACT(statut='f',min=0,max=1,
7713              A               =SIMP(statut='f',typ='R',defaut= 0.E+0),
7714              B               =SIMP(statut='f',typ='R',defaut= 0.E+0),
7715              S               =SIMP(statut='f',typ='R',defaut= 0.E+0),
7716            ),
7717            FLU_IRRA       =FACT(statut='f',min=0,max=1,
7718              QSR_K           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7719              BETA            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7720              PHI_ZERO        =SIMP(statut='f',typ='R',defaut= 1.E+20),
7721              L               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7722            ),
7723            OHNO            =FACT(statut='f',min=0,max=1,
7724              R_I             =SIMP(statut='o',typ='R'),
7725              R_0             =SIMP(statut='o',typ='R'),
7726              B               =SIMP(statut='o',typ='R'),
7727              PHI             =SIMP(statut='o',typ='R'),
7728              A1              =SIMP(statut='o',typ='R'),
7729              A2              =SIMP(statut='o',typ='R'),
7730              A3              =SIMP(statut='o',typ='R'),
7731              A4              =SIMP(statut='o',typ='R'),
7732              A5              =SIMP(statut='o',typ='R'),
7733              GAMMA1          =SIMP(statut='o',typ='R'),
7734              GAMMA2          =SIMP(statut='o',typ='R'),
7735              GAMMA3          =SIMP(statut='o',typ='R'),
7736              GAMMA4          =SIMP(statut='o',typ='R'),
7737              GAMMA5          =SIMP(statut='o',typ='R'),
7738              M1              =SIMP(statut='o',typ='R'),
7739              M2              =SIMP(statut='o',typ='R'),
7740              M3              =SIMP(statut='o',typ='R'),
7741              M4              =SIMP(statut='o',typ='R'),
7742              M5              =SIMP(statut='o',typ='R'),
7743                            ),
7744            OHNO_FO         =FACT(statut='f',min=0,max=1,
7745              R_I             =SIMP(statut='o',typ=fonction),
7746              R_0             =SIMP(statut='o',typ=fonction),
7747              B               =SIMP(statut='o',typ=fonction),
7748              PHI             =SIMP(statut='o',typ=fonction),
7749              A1              =SIMP(statut='o',typ=fonction),
7750              A2              =SIMP(statut='o',typ=fonction),
7751              A3              =SIMP(statut='o',typ=fonction),
7752              A4              =SIMP(statut='o',typ=fonction),
7753              A5              =SIMP(statut='o',typ=fonction),
7754              GAMMA1          =SIMP(statut='o',typ=fonction),
7755              GAMMA2          =SIMP(statut='o',typ=fonction),
7756              GAMMA3          =SIMP(statut='o',typ=fonction),
7757              GAMMA4          =SIMP(statut='o',typ=fonction),
7758              GAMMA5          =SIMP(statut='o',typ=fonction),
7759              M1              =SIMP(statut='o',typ=fonction),
7760              M2              =SIMP(statut='o',typ=fonction),
7761              M3              =SIMP(statut='o',typ=fonction),
7762              M4              =SIMP(statut='o',typ=fonction),
7763              M5              =SIMP(statut='o',typ=fonction),
7764              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7765            ),
7766            LMARC           =FACT(statut='f',min=0,max=1,
7767              DE_0            =SIMP(statut='o',typ='R'),
7768              R_0             =SIMP(statut='o',typ='R'),
7769              N               =SIMP(statut='o',typ='R'),
7770              K               =SIMP(statut='o',typ='R'),
7771              Y_I             =SIMP(statut='o',typ='R'),
7772              Y_0             =SIMP(statut='o',typ='R'),
7773              B               =SIMP(statut='o',typ='R'),
7774              A_0             =SIMP(statut='o',typ='R'),
7775              RM              =SIMP(statut='o',typ='R'),
7776              M               =SIMP(statut='o',typ='R'),
7777              P               =SIMP(statut='o',typ='R'),
7778              P1              =SIMP(statut='o',typ='R'),
7779              P2              =SIMP(statut='o',typ='R'),
7780              M11             =SIMP(statut='o',typ='R'),
7781              M22             =SIMP(statut='o',typ='R'),
7782              M33             =SIMP(statut='o',typ='R'),
7783              M66             =SIMP(statut='o',typ='R'),
7784              N11             =SIMP(statut='o',typ='R'),
7785              N22             =SIMP(statut='o',typ='R'),
7786              N33             =SIMP(statut='o',typ='R'),
7787              N66             =SIMP(statut='o',typ='R'),
7788              Q11             =SIMP(statut='o',typ='R'),
7789              Q22             =SIMP(statut='o',typ='R'),
7790              Q33             =SIMP(statut='o',typ='R'),
7791              Q66             =SIMP(statut='o',typ='R'),
7792              R11             =SIMP(statut='o',typ='R'),
7793              R22             =SIMP(statut='o',typ='R'),
7794              R33             =SIMP(statut='o',typ='R'),
7795              R66             =SIMP(statut='o',typ='R'),
7796            ),
7797            LMARC_FO        =FACT(statut='f',min=0,max=1,
7798              DE_0            =SIMP(statut='o',typ=fonction),
7799              R_0             =SIMP(statut='o',typ=fonction),
7800              N               =SIMP(statut='o',typ=fonction),
7801              K               =SIMP(statut='o',typ=fonction),
7802              Y_I             =SIMP(statut='o',typ=fonction),
7803              Y_0             =SIMP(statut='o',typ=fonction),
7804              B               =SIMP(statut='o',typ=fonction),
7805              A_0             =SIMP(statut='o',typ=fonction),
7806              RM              =SIMP(statut='o',typ=fonction),
7807              M               =SIMP(statut='o',typ=fonction),
7808              P               =SIMP(statut='o',typ=fonction),
7809              P1              =SIMP(statut='o',typ=fonction),
7810              P2              =SIMP(statut='o',typ=fonction),
7811              M11             =SIMP(statut='o',typ=fonction),
7812              M22             =SIMP(statut='o',typ=fonction),
7813              M33             =SIMP(statut='o',typ=fonction),
7814              M66             =SIMP(statut='o',typ=fonction),
7815              N11             =SIMP(statut='o',typ=fonction),
7816              N22             =SIMP(statut='o',typ=fonction),
7817              N33             =SIMP(statut='o',typ=fonction),
7818              N66             =SIMP(statut='o',typ=fonction),
7819              Q11             =SIMP(statut='o',typ=fonction),
7820              Q22             =SIMP(statut='o',typ=fonction),
7821              Q33             =SIMP(statut='o',typ=fonction),
7822              Q66             =SIMP(statut='o',typ=fonction),
7823              R11             =SIMP(statut='o',typ=fonction),
7824              R22             =SIMP(statut='o',typ=fonction),
7825              R33             =SIMP(statut='o',typ=fonction),
7826              R66             =SIMP(statut='o',typ=fonction),
7827              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7828            ),
7829            VMIS_POUTRE     =FACT(statut='f',min=0,max=1,
7830              NP              =SIMP(statut='o',typ='R'),
7831              MEY             =SIMP(statut='o',typ='R'),
7832              MPY             =SIMP(statut='o',typ='R'),
7833              CAY             =SIMP(statut='o',typ='R'),
7834              CBY             =SIMP(statut='o',typ='R'),
7835              MEZ             =SIMP(statut='o',typ='R'),
7836              MPZ             =SIMP(statut='o',typ='R'),
7837              CAZ             =SIMP(statut='o',typ='R'),
7838              CBZ             =SIMP(statut='o',typ='R'),
7839              MPX             =SIMP(statut='o',typ='R'),
7840            ),
7841            VMIS_POUTRE_FO  =FACT(statut='f',min=0,max=1,
7842              NP              =SIMP(statut='o',typ=fonction),
7843              MEY             =SIMP(statut='o',typ=fonction),
7844              MPY             =SIMP(statut='o',typ=fonction),
7845              CAY             =SIMP(statut='o',typ=fonction),
7846              CBY             =SIMP(statut='o',typ=fonction),
7847              MEZ             =SIMP(statut='o',typ=fonction),
7848              MPZ             =SIMP(statut='o',typ=fonction),
7849              CAZ             =SIMP(statut='o',typ=fonction),
7850              CBZ             =SIMP(statut='o',typ=fonction),
7851              MPX             =SIMP(statut='o',typ=fonction),
7852              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7853            ),
7854            ARME            =FACT(statut='f',min=0,max=1,
7855              KYE             =SIMP(statut='o',typ='R'),
7856              DLE             =SIMP(statut='o',typ='R'),
7857              KYP             =SIMP(statut='o',typ='R'),
7858              DLP             =SIMP(statut='o',typ='R'),
7859              KYG             =SIMP(statut='o',typ='R'),
7860            ),
7861            ASSE_CORN       =FACT(statut='f',min=0,max=1,
7862              NU_1            =SIMP(statut='o',typ='R'),
7863              MU_1            =SIMP(statut='o',typ='R'),
7864              DXU_1           =SIMP(statut='o',typ='R'),
7865              DRYU_1          =SIMP(statut='o',typ='R'),
7866              C_1             =SIMP(statut='o',typ='R'),
7867              NU_2            =SIMP(statut='o',typ='R'),
7868              MU_2            =SIMP(statut='o',typ='R'),
7869              DXU_2           =SIMP(statut='o',typ='R'),
7870              DRYU_2          =SIMP(statut='o',typ='R'),
7871              C_2             =SIMP(statut='o',typ='R'),
7872              KY              =SIMP(statut='o',typ='R'),
7873              KZ              =SIMP(statut='o',typ='R'),
7874              KRX             =SIMP(statut='o',typ='R'),
7875              KRZ             =SIMP(statut='o',typ='R'),
7876            ),
7877            DIS_CONTACT     =FACT(statut='f',min=0,max=1,
7878              RIGI_NOR        =SIMP(statut='f',typ='R' ),
7879              DIST_1          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7880              DIST_2          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7881              RIGI_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7882              AMOR_NOR        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7883              AMOR_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7884              COULOMB         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7885              JEU             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7886              KT_ULTM         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7887              EFFO_N_INIT     =SIMP(statut='f',typ=fonction),
7888              regles=(EXCLUS('RIGI_N_FO','RIGI_N_IRRA',),),
7889              RIGI_N_IRRA     =SIMP(statut='f',typ=fonction),
7890              RIGI_N_FO       =SIMP(statut='f',typ=fonction),
7891              RELA_MZ         =SIMP(statut='f',typ=fonction),
7892              C_PRAGER_MZ     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7893              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="DRZ",into=("DRZ",) ),
7894              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
7895              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7896            ),
7897            NADAI_B         =FACT(statut='f',min=0,max=1,
7898              F_C             =SIMP(statut='o',typ='R'),
7899              F_T             =SIMP(statut='o',typ='R'),
7900              CRIT_E_C        =SIMP(statut='o',typ='R'),
7901              EPSP_P_C        =SIMP(statut='o',typ='R'),
7902              EPSP_R_C        =SIMP(statut='o',typ='R'),
7903              EPSI_R_T        =SIMP(statut='o',typ='R'),
7904              FAC_T_C         =SIMP(statut='o',typ='R'),
7905            ),
7906            BETON_DOUBLE_DP =FACT(statut='f',min=0,max=1,
7907              F_C             =SIMP(statut='o',typ=fonction),
7908              F_T             =SIMP(statut='o',typ=fonction),
7909              COEF_BIAX       =SIMP(statut='o',typ=fonction),
7910              ENER_COMP_RUPT  =SIMP(statut='o',typ=fonction),
7911              ENER_TRAC_RUPT  =SIMP(statut='o',typ=fonction),
7912              COEF_ELAS_COMP  =SIMP(statut='o',typ='R'),
7913              LONG_CARA       =SIMP(statut='f',typ='R'),
7914              ECRO_COMP_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","PARABOLE") ),
7915              ECRO_TRAC_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","EXPONENT") ),
7916              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP","INST",) ),
7917              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="INST",into=("TEMP","INST",) ),
7918              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
7919              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="SECH",into=("SECH",) ),
7920            ),
7921            LABORD_1D=FACT(statut='f',min=0 ,max=1,
7922              Y01             =SIMP(statut='o',typ='R'),
7923              Y02             =SIMP(statut='o',typ='R'),
7924              A1              =SIMP(statut='o',typ='R'),
7925              A2              =SIMP(statut='o',typ='R'),
7926              B1              =SIMP(statut='o',typ='R'),
7927              B2              =SIMP(statut='o',typ='R'),
7928              BETA1           =SIMP(statut='o',typ='R'),
7929              BETA2           =SIMP(statut='o',typ='R'),
7930              SIGF            =SIMP(statut='o',typ='R'),
7931            ),
7932          MAZARS=FACT(statut='f',min=0 ,max=1,
7933              EPSD0           =SIMP(statut='o',typ='R'),
7934              BETA            =SIMP(statut='o',typ='R'),
7935              AC              =SIMP(statut='o',typ='R'),
7936              BC              =SIMP(statut='o',typ='R'),
7937              AT              =SIMP(statut='o',typ='R'),
7938              BT              =SIMP(statut='o',typ='R'),
7939            ),
7940          MAZARS_FO=FACT(statut='f',min=0 ,max=1,
7941              EPSD0           =SIMP(statut='o',typ=fonction),
7942              BETA            =SIMP(statut='o',typ='R'),
7943              AC              =SIMP(statut='o',typ=fonction),
7944              BC              =SIMP(statut='o',typ=fonction),
7945              AT              =SIMP(statut='o',typ=fonction),
7946              BT              =SIMP(statut='o',typ=fonction),
7947              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7948            ),
7949           VENDOCHAB       =FACT(statut='f',min=0,max=1,
7950              S_VP            =SIMP(statut='o',typ='R'),
7951              SEDVP1          =SIMP(statut='o',typ='R'),
7952              SEDVP2          =SIMP(statut='o',typ='R'),
7953              N_VP            =SIMP(statut='o',typ='R'),
7954              M_VP            =SIMP(statut='o',typ='R'),
7955              K_VP            =SIMP(statut='o',typ='R'),
7956              R_D             =SIMP(statut='o',typ='R'),
7957              A_D             =SIMP(statut='o',typ='R'),
7958              K_D             =SIMP(statut='o',typ='R'),
7959            ),
7960            VENDOCHAB_FO    =FACT(statut='f',min=0,max=1,
7961              S_VP            =SIMP(statut='o',typ=fonction),
7962              SEDVP1          =SIMP(statut='o',typ=fonction),
7963              SEDVP2          =SIMP(statut='o',typ=fonction),
7964              N_VP            =SIMP(statut='o',typ=fonction),
7965              M_VP            =SIMP(statut='o',typ=fonction),
7966              K_VP            =SIMP(statut='o',typ=fonction),
7967              R_D             =SIMP(statut='o',typ=fonction),
7968              A_D             =SIMP(statut='o',typ=fonction),
7969              K_D             =SIMP(statut='o',typ=fonction),
7970              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
7971              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="X",into=("X",) ),
7972            ),
7973            PINTO_MENEGOTTO =FACT(statut='f',min=0,max=1,
7974              SY              =SIMP(statut='o',typ='R'),
7975              EPSI_ULTM       =SIMP(statut='o',typ='R'),
7976              SIGM_ULTM       =SIMP(statut='o',typ='R'),
7977              ELAN            =SIMP(statut='f',typ='R',defaut= 4. ),
7978              EPSP_HARD       =SIMP(statut='o',typ='R'),
7979              R_PM            =SIMP(statut='f',typ='R',defaut= 20. ),
7980              EP_SUR_E        =SIMP(statut='f',typ='R'),
7981              A1_PM           =SIMP(statut='f',typ='R',defaut= 18.5 ),
7982              A2_PM           =SIMP(statut='f',typ='R',defaut= 0.15 ),
7983              A6_PM           =SIMP(statut='f',typ='R',defaut= 620. ),
7984              C_PM            =SIMP(statut='f',typ='R',defaut= 0.5 ),
7985              A_PM            =SIMP(statut='f',typ='R',defaut= 6.0E-3 ),
7986            ),
7987            BPEL_BETON      =FACT(statut='f',min=0,max=1,
7988              PERT_FLUA       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7989              PERT_RETR       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7990            ),
7991            BPEL_ACIER      =FACT(statut='f',min=0,max=1,
7992              RELAX_1000      =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7993              MU0_RELAX       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
7994              SY              =SIMP(statut='o',typ='R'),
7995              FROT_COURB      =SIMP(statut='o',typ='R'),
7996              FROT_LINE       =SIMP(statut='o',typ='R'),
7997            ),
7998            CAM_CLAY      =FACT(statut='f',min=0,max=1,
7999              PORO            =SIMP(statut='o',typ='R'),
8000              LAMBDA          =SIMP(statut='o',typ='R'),
8001              KAPA            =SIMP(statut='o',typ='R'),
8002              M               =SIMP(statut='o',typ='R'),
8003              PRES_CRIT       =SIMP(statut='o',typ='R'),
8004              PA              =SIMP(statut='o',typ='R'),
8005            ),
8006            CJS             =FACT(statut='f',min=0,max=1,
8007              BETA_CJS        =SIMP(statut='o',typ='R'),
8008              RM              =SIMP(statut='o',typ='R'),
8009              N_CJS           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8010              KP              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8011              RC              =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8012              A_CJS           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8013              B_CJS           =SIMP(statut='f',typ='R',defaut= 1.0E+25 ),
8014              C_CJS           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8015              GAMMA_CJS       =SIMP(statut='o',typ='R'),
8016              MU_CJS          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8017              PCO             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8018              PA              =SIMP(statut='o',typ='R'),
8019              Q_INIT          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8020              R_INIT          =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
8021            ),
8022            ECRO_ASYM_LINE  =FACT(statut='f',min=0,max=1,
8023              DC_SIGM_EPSI    =SIMP(statut='o',typ='R'),
8024              SY_C            =SIMP(statut='o',typ='R'),
8025              DT_SIGM_EPSI    =SIMP(statut='o',typ='R'),
8026              SY_T            =SIMP(statut='o',typ='R'),
8027            ),
8028            GRANGER_FP      =FACT(statut='f',min=0,max=1,
8029              J1              =SIMP(statut='f',typ='R'),
8030              J2              =SIMP(statut='f',typ='R'),
8031              J3              =SIMP(statut='f',typ='R'),
8032              J4              =SIMP(statut='f',typ='R'),
8033              J5              =SIMP(statut='f',typ='R'),
8034              J6              =SIMP(statut='f',typ='R'),
8035              J7              =SIMP(statut='f',typ='R'),
8036              J8              =SIMP(statut='f',typ='R'),
8037              TAUX_1          =SIMP(statut='f',typ='R'),
8038              TAUX_2          =SIMP(statut='f',typ='R'),
8039              TAUX_3          =SIMP(statut='f',typ='R'),
8040              TAUX_4          =SIMP(statut='f',typ='R'),
8041              TAUX_5          =SIMP(statut='f',typ='R'),
8042              TAUX_6          =SIMP(statut='f',typ='R'),
8043              TAUX_7          =SIMP(statut='f',typ='R'),
8044              TAUX_8          =SIMP(statut='f',typ='R'),
8045              QSR_K           =SIMP(statut='f',typ='R'),
8046            ),
8047            V_GRANGER_FP    =FACT(statut='f',min=0,max=1,
8048              QSR_VEIL        =SIMP(statut='f',typ='R'),
8049              FONC_V          =SIMP(statut='f',typ=fonction),
8050              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
8051            ),
8052            BAZANT_FD      =FACT(statut='f',min=0,max=1,
8053              LAM_VISC      =SIMP(statut='o',typ='R'),
8054            ),
8055            BETON_UMLV_FP   =FACT(statut='f',min=0 ,max=1,
8056              K_RS            =SIMP(statut='o',typ='R'),
8057              ETA_RS          =SIMP(statut='o',typ='R'),
8058              K_IS            =SIMP(statut='o',typ='R'),
8059              ETA_IS          =SIMP(statut='o',typ='R'),
8060              K_RD            =SIMP(statut='o',typ='R'),
8061              ETA_RD          =SIMP(statut='o',typ='R'),
8062              ETA_ID          =SIMP(statut='o',typ='R'),
8063            ),
8064 #
8065 # comportement thermique
8066 #
8067            THER_NL         =FACT(statut='f',min=0,max=1,
8068              regles=(UN_PARMI('BETA','RHO_CP', ),),
8069              LAMBDA          =SIMP(statut='o',typ=fonction),
8070              BETA            =SIMP(statut='f',typ=fonction),
8071              RHO_CP          =SIMP(statut='f',typ=fonction),
8072              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
8073            ),
8074            THER_HYDR       =FACT(statut='f',min=0,max=1,
8075              LAMBDA          =SIMP(statut='o',typ=fonction),
8076              BETA            =SIMP(statut='f',typ=fonction),
8077              AFFINITE        =SIMP(statut='o',typ=fonction),
8078              CHALHYDR        =SIMP(statut='o',typ='R'),
8079              QSR_K           =SIMP(statut='o',typ='R'),
8080              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("HYDR",) ),
8081              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="HYDR",into=("HYDR",) ),
8082            ),
8083            THER            =FACT(statut='f',min=0,max=1,
8084              LAMBDA          =SIMP(statut='o',typ='R'),
8085              RHO_CP          =SIMP(statut='f',typ='R'),
8086            ),
8087            THER_FO         =FACT(statut='f',min=0,max=1,
8088              LAMBDA          =SIMP(statut='o',typ=fonction),
8089              RHO_CP          =SIMP(statut='f',typ=fonction),
8090              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="INST",into=("INST",) ),
8091            ),
8092            THER_ORTH       =FACT(statut='f',min=0,max=1,
8093              LAMBDA_L        =SIMP(statut='o',typ='R'),
8094              LAMBDA_T        =SIMP(statut='o',typ='R'),
8095              LAMBDA_N        =SIMP(statut='f',typ='R'),
8096              RHO_CP          =SIMP(statut='f',typ='R'),
8097            ),
8098            THER_COQUE      =FACT(statut='f',min=0,max=1,
8099              COND_LMM        =SIMP(statut='o',typ='R'),
8100              COND_TMM        =SIMP(statut='o',typ='R'),
8101              COND_LMP        =SIMP(statut='o',typ='R'),
8102              COND_TMP        =SIMP(statut='o',typ='R'),
8103              COND_LPP        =SIMP(statut='o',typ='R'),
8104              COND_TPP        =SIMP(statut='o',typ='R'),
8105              COND_LSI        =SIMP(statut='o',typ='R'),
8106              COND_TSI        =SIMP(statut='o',typ='R'),
8107              COND_NMM        =SIMP(statut='o',typ='R'),
8108              COND_NMP        =SIMP(statut='o',typ='R'),
8109              COND_NPP        =SIMP(statut='o',typ='R'),
8110              COND_NSI        =SIMP(statut='o',typ='R'),
8111              CMAS_MM         =SIMP(statut='f',typ='R'),
8112              CMAS_MP         =SIMP(statut='f',typ='R'),
8113              CMAS_PP         =SIMP(statut='f',typ='R'),
8114              CMAS_SI         =SIMP(statut='f',typ='R'),
8115            ),
8116            THER_COQUE_FO   =FACT(statut='f',min=0,max=1,
8117              COND_LMM        =SIMP(statut='o',typ=fonction),
8118              COND_TMM        =SIMP(statut='o',typ=fonction),
8119              COND_LMP        =SIMP(statut='o',typ=fonction),
8120              COND_TMP        =SIMP(statut='o',typ=fonction),
8121              COND_LPP        =SIMP(statut='o',typ=fonction),
8122              COND_TPP        =SIMP(statut='o',typ=fonction),
8123              COND_LSI        =SIMP(statut='o',typ=fonction),
8124              COND_TSI        =SIMP(statut='o',typ=fonction),
8125              COND_NMM        =SIMP(statut='o',typ=fonction),
8126              COND_NMP        =SIMP(statut='o',typ=fonction),
8127              COND_NPP        =SIMP(statut='o',typ=fonction),
8128              COND_NSI        =SIMP(statut='o',typ=fonction),
8129              CMAS_MM         =SIMP(statut='f',typ=fonction),
8130              CMAS_MP         =SIMP(statut='f',typ=fonction),
8131              CMAS_PP         =SIMP(statut='f',typ=fonction),
8132              CMAS_SI         =SIMP(statut='f',typ=fonction),
8133            ),
8134            SECH_GRANGER    =FACT(statut='f',min=0,max=1,
8135              A               =SIMP(statut='o',typ='R'),
8136              B               =SIMP(statut='o',typ='R'),
8137              QSR_K           =SIMP(statut='o',typ='R'),
8138              TEMP_0_C        =SIMP(statut='o',typ='R'),
8139            ),
8140            SECH_MENSI      =FACT(statut='f',min=0,max=1,
8141              A               =SIMP(statut='o',typ='R'),
8142              B               =SIMP(statut='o',typ='R'),
8143            ),
8144            SECH_BAZANT     =FACT(statut='f',min=0,max=1,
8145              D1              =SIMP(statut='o',typ='R'),
8146              ALPHA_BAZANT    =SIMP(statut='o',typ='R'),
8147              N               =SIMP(statut='o',typ='R'),
8148            ),
8149            SECH_NAPPE      =FACT(statut='f',min=0,max=1,
8150              FONCTION        =SIMP(statut='o',typ=fonction),
8151              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
8152              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="TSEC",into=("TSEC",) ),
8153            ),
8154 #
8155 # comportement métallurgique
8156 #
8157            META_ACIER      =FACT(statut='f',min=0,max=1,
8158              TRC             =SIMP(statut='o',typ=(tabl_trc) ),
8159              AR3             =SIMP(statut='o',typ='R'),
8160              ALPHA           =SIMP(statut='o',typ='R'),
8161              MS0             =SIMP(statut='o',typ='R'),
8162              AC1             =SIMP(statut='o',typ='R'),
8163              AC3             =SIMP(statut='o',typ='R'),
8164              TAUX_1          =SIMP(statut='o',typ='R'),
8165              TAUX_3          =SIMP(statut='o',typ='R'),
8166              LAMBDA0         =SIMP(statut='f',typ='R'),
8167              QSR_K           =SIMP(statut='f',typ='R'),
8168              D10             =SIMP(statut='f',typ='R'),
8169              WSR_K           =SIMP(statut='f',typ='R'),
8170            ),
8171            META_ZIRC       =FACT(statut='f',min=0,max=1,
8172              TDEQ            =SIMP(statut='o',typ='R'),
8173              N               =SIMP(statut='o',typ='R'),
8174              K               =SIMP(statut='o',typ='R'),
8175              TDC             =SIMP(statut='o',typ='R'),
8176              AC              =SIMP(statut='o',typ='R'),
8177              M               =SIMP(statut='o',typ='R'),
8178              QSR_K           =SIMP(statut='f',typ='R'),
8179              TDR             =SIMP(statut='o',typ='R'),
8180              AR              =SIMP(statut='o',typ='R'),
8181              BR              =SIMP(statut='o',typ='R'),
8182            ),
8183            DURT_META       =FACT(statut='f',min=0,max=1,
8184              F1_DURT         =SIMP(statut='o',typ='R'),
8185              F2_DURT         =SIMP(statut='o',typ='R'),
8186              F3_DURT         =SIMP(statut='o',typ='R'),
8187              F4_DURT         =SIMP(statut='o',typ='R'),
8188              C_DURT          =SIMP(statut='o',typ='R'),
8189            ),
8190            ELAS_META       =FACT(statut='f',min=0,max=1,
8191              E               =SIMP(statut='o',typ='R'),
8192              NU              =SIMP(statut='o',typ='R'),
8193              F_ALPHA         =SIMP(statut='o',typ='R'),
8194              C_ALPHA         =SIMP(statut='o',typ='R'),
8195              PHASE_REFE      =SIMP(statut='o',typ='TXM',into=("CHAUD","FROID")),
8196              EPSF_EPSC_TREF  =SIMP(statut='o',typ='R'),
8197              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8198              F1_SY           =SIMP(statut='f',typ='R'),
8199              F2_SY           =SIMP(statut='f',typ='R'),
8200              F3_SY           =SIMP(statut='f',typ='R'),
8201              F4_SY           =SIMP(statut='f',typ='R'),
8202              C_SY            =SIMP(statut='f',typ='R'),
8203              SY_MELANGE      =SIMP(statut='f',typ=fonction),
8204              F1_S_VP         =SIMP(statut='f',typ='R'),
8205              F2_S_VP         =SIMP(statut='f',typ='R'),
8206              F3_S_VP         =SIMP(statut='f',typ='R'),
8207              F4_S_VP         =SIMP(statut='f',typ='R'),
8208              C_S_VP          =SIMP(statut='f',typ='R' ),
8209              S_VP_MELANGE    =SIMP(statut='f',typ=fonction),
8210              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="META",into=("META",)),
8211            ),
8212            ELAS_META_FO    =FACT(statut='f',min=0,max=1,
8213              regles=(
8214                       PRESENT_PRESENT('F_ALPHA','TEMP_DEF_ALPHA'),
8215                       PRESENT_PRESENT('C_ALPHA','TEMP_DEF_ALPHA'),
8216                     ),
8217              E               =SIMP(statut='o',typ=fonction),
8218              NU              =SIMP(statut='o',typ=fonction),
8219              F_ALPHA         =SIMP(statut='o',typ=fonction),
8220              C_ALPHA         =SIMP(statut='o',typ=fonction),
8221              PHASE_REFE      =SIMP(statut='o',typ='TXM',into=("CHAUD","FROID")),
8222              EPSF_EPSC_TREF  =SIMP(statut='o',typ='R'),
8223              TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
8224              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8225              F1_SY           =SIMP(statut='f',typ=fonction),
8226              F2_SY           =SIMP(statut='f',typ=fonction),
8227              F3_SY           =SIMP(statut='f',typ=fonction),
8228              F4_SY           =SIMP(statut='f',typ=fonction),
8229              C_SY            =SIMP(statut='f',typ=fonction),
8230              SY_MELANGE      =SIMP(statut='f',typ=fonction),
8231              F1_S_VP         =SIMP(statut='f',typ=fonction),
8232              F2_S_VP         =SIMP(statut='f',typ=fonction),
8233              F3_S_VP         =SIMP(statut='f',typ=fonction),
8234              F4_S_VP         =SIMP(statut='f',typ=fonction),
8235              C_S_VP          =SIMP(statut='f',typ=fonction),
8236              S_VP_MELANGE    =SIMP(statut='f',typ=fonction),
8237              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
8238              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="META",into=("META",)),
8239            ),
8240            META_ECRO_LINE  =FACT(statut='f',min=0,max=1,
8241              F1_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
8242              F2_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
8243              F3_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
8244              F4_D_SIGM_EPSI  =SIMP(statut='f',typ=fonction),
8245              C_D_SIGM_EPSI   =SIMP(statut='f',typ=fonction),
8246              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
8247            ),
8248            META_TRACTION   =FACT(statut='f',min=0,max=1,
8249              SIGM_F1         =SIMP(statut='f',typ=fonction),
8250              SIGM_F2         =SIMP(statut='f',typ=fonction),
8251              SIGM_F3         =SIMP(statut='f',typ=fonction),
8252              SIGM_F4         =SIMP(statut='f',typ=fonction),
8253              SIGM_C          =SIMP(statut='f',typ=fonction),
8254              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",)),
8255              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
8256            ),
8257            META_VISC_FO    =FACT(statut='f',min=0,max=1,
8258              F1_ETA          =SIMP(statut='f',typ=fonction),
8259              F1_N            =SIMP(statut='f',typ=fonction),
8260              F1_C            =SIMP(statut='f',typ=fonction),
8261              F1_M            =SIMP(statut='f',typ=fonction),
8262              F2_ETA          =SIMP(statut='f',typ=fonction),
8263              F2_N            =SIMP(statut='f',typ=fonction),
8264              F2_C            =SIMP(statut='f',typ=fonction),
8265              F2_M            =SIMP(statut='f',typ=fonction),
8266              F3_ETA          =SIMP(statut='f',typ=fonction),
8267              F3_N            =SIMP(statut='f',typ=fonction),
8268              F3_C            =SIMP(statut='f',typ=fonction),
8269              F3_M            =SIMP(statut='f',typ=fonction),
8270              F4_ETA          =SIMP(statut='f',typ=fonction),
8271              F4_N            =SIMP(statut='f',typ=fonction),
8272              F4_C            =SIMP(statut='f',typ=fonction),
8273              F4_M            =SIMP(statut='f',typ=fonction),
8274              C_ETA           =SIMP(statut='f',typ=fonction),
8275              C_N             =SIMP(statut='f',typ=fonction),
8276              C_C             =SIMP(statut='f',typ=fonction),
8277              C_M             =SIMP(statut='f',typ=fonction),
8278              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
8279            ),
8280            META_PT         =FACT(statut='f',min=0,max=1,
8281              F1_K            =SIMP(statut='f',typ='R'),
8282              F2_K            =SIMP(statut='f',typ='R'),
8283              F3_K            =SIMP(statut='f',typ='R'),
8284              F4_K            =SIMP(statut='f',typ='R'),
8285              F1_D_F_META     =SIMP(statut='f',typ=fonction),
8286              F2_D_F_META     =SIMP(statut='f',typ=fonction),
8287              F3_D_F_META     =SIMP(statut='f',typ=fonction),
8288              F4_D_F_META     =SIMP(statut='f',typ=fonction),
8289              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
8290              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="META",into=("META",) ),
8291            ),
8292            META_RE         =FACT(statut='f',min=0,max=1,
8293              C_F1_THETA      =SIMP(statut='f',typ='R'),
8294              C_F2_THETA      =SIMP(statut='f',typ='R'),
8295              C_F3_THETA      =SIMP(statut='f',typ='R'),
8296              C_F4_THETA      =SIMP(statut='f',typ='R'),
8297              F1_C_THETA      =SIMP(statut='f',typ='R'),
8298              F2_C_THETA      =SIMP(statut='f',typ='R'),
8299              F3_C_THETA      =SIMP(statut='f',typ='R'),
8300              F4_C_THETA      =SIMP(statut='f',typ='R'),
8301            ),
8302 #
8303 # comportement fluide
8304 #
8305            FLUIDE          =FACT(statut='f',min=0,max=1,
8306              regles=(EXCLUS('CELE_C','CELE_R'),),
8307              RHO             =SIMP(statut='o',typ='R'),
8308              CELE_C          =SIMP(statut='f',typ='C'),
8309              CELE_R          =SIMP(statut='f',typ='R'),
8310            ),
8311            PORO_JOINT      =FACT(statut='f',min=0,max=1,
8312              RHO_FLUI        =SIMP(statut='o',typ='R'),
8313              ENTRO_FLUI      =SIMP(statut='o',typ='R'),
8314              BIOT_M          =SIMP(statut='o',typ='R'),
8315              C_0             =SIMP(statut='o',typ='R'),
8316              T_R             =SIMP(statut='o',typ='R'),
8317              ALPHA_M         =SIMP(statut='o',typ='R'),
8318              LAMBDA_T        =SIMP(statut='o',typ='R'),
8319              LAMBDA_H        =SIMP(statut='o',typ='R'),
8320              SOURCE_INIT     =SIMP(statut='o',typ='R'),
8321              OMEGA_0         =SIMP(statut='o',typ='R'),
8322            ),
8323            THM_LIQU        =FACT(statut='f',min=0,max=1,
8324              RHO             =SIMP(statut='o',typ='R'),
8325              UN_SUR_K        =SIMP(statut='f',typ='R'),
8326              ALPHA           =SIMP(statut='f',typ='R'),
8327              CP              =SIMP(statut='f',typ='R'),
8328              VISC            =SIMP(statut='f',typ=fonction),
8329              D_VISC_TEMP     =SIMP(statut='f',typ=fonction),
8330              LAMBDA          =SIMP(statut='f',typ=fonction),
8331              D_LAMBDA_TEMP   =SIMP(statut='f',typ=fonction),
8332              COEF_HENRY      =SIMP(statut='f',typ='R'),
8333              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
8334            ),
8335            THM_GAZ         =FACT(statut='f',min=0,max=1,
8336              MASS_MOL        =SIMP(statut='f',typ='R'),
8337              CP              =SIMP(statut='f',typ='R'),
8338              VISC            =SIMP(statut='f',typ=fonction),
8339              D_VISC_TEMP     =SIMP(statut='f',typ=fonction),
8340              LAMBDA          =SIMP(statut='f',typ=fonction),
8341              D_LAMBDA_TEMP   =SIMP(statut='f',typ=fonction),
8342              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
8343            ),
8344            THM_VAPE_GAZ    =FACT(statut='f',min=0,max=1,
8345              MASS_MOL        =SIMP(statut='f',typ='R'),
8346              CP              =SIMP(statut='f',typ='R'),
8347              VISC            =SIMP(statut='f',typ=fonction),
8348              D_VISC_TEMP     =SIMP(statut='f',typ=fonction),
8349              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",)),
8350            ),
8351            THM_INIT        =FACT(statut='f',min=0,max=1,
8352              TEMP            =SIMP(statut='o',typ='R'),
8353              PRE1            =SIMP(statut='o',typ='R'),
8354              PRE2            =SIMP(statut='o',typ='R'),
8355              PORO            =SIMP(statut='o',typ='R'),
8356              PRES_VAPE       =SIMP(statut='o',typ='R'),
8357              DEGR_SATU       =SIMP(statut='f',typ='R'),
8358              PRES_ATMO       =SIMP(statut='f',typ='R'),
8359            ),
8360            THM_DIFFU       =FACT(statut='f',min=0,max=1,
8361              R_GAZ           =SIMP(statut='o',typ='R'),
8362              RHO             =SIMP(statut='f',typ='R'),
8363              CP              =SIMP(statut='f',typ='R'),
8364              BIOT_COEF       =SIMP(statut='f',typ='R'),
8365              SATU_PRES       =SIMP(statut='f',typ=fonction),
8366              D_SATU_PRES     =SIMP(statut='f',typ=fonction),
8367              PESA_X          =SIMP(statut='f',typ='R'),
8368              PESA_Y          =SIMP(statut='f',typ='R'),
8369              PESA_Z          =SIMP(statut='f',typ='R'),
8370              PERM_IN         =SIMP(statut='f',typ=fonction),
8371              PERM_LIQU       =SIMP(statut='f',typ=fonction),
8372              D_PERM_LIQU_SATU=SIMP(statut='f',typ=fonction),
8373              PERM_GAZ        =SIMP(statut='f',typ=fonction),
8374              D_PERM_SATU_GAZ =SIMP(statut='f',typ=fonction),
8375              D_PERM_PRES_GAZ =SIMP(statut='f',typ=fonction),
8376              FICK            =SIMP(statut='f',typ=fonction),
8377              D_FICK_TEMP     =SIMP(statut='f',typ=fonction),
8378              D_FICK_GAZ_PRES =SIMP(statut='f',typ=fonction),
8379              LAMBDA          =SIMP(statut='f',typ=fonction),
8380              D_LAMBDA_TEMP   =SIMP(statut='f',typ=fonction),
8381              SIGMA_T         =SIMP(statut='f',typ=fonction),
8382              D_SIGMA_T       =SIMP(statut='f',typ=fonction),
8383              PERM_G_INTR     =SIMP(statut='f',typ=fonction),
8384              CHAL_VAPO       =SIMP(statut='f',typ=fonction),
8385              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
8386              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="SAT",into=("SAT",) ),
8387              VERI_P3         =SIMP(statut='c',typ='TXM',defaut="PORO",into=("PORO",) ),
8388              VERI_P4         =SIMP(statut='c',typ='TXM',defaut="PGAZ",into=("PGAZ",) ),
8389              VERI_P5         =SIMP(statut='c',typ='TXM',defaut="PCAP",into=("PCAP",) ),
8390            ),
8391 #
8392 # courbes et coefficients associés à la fatigue et au dommage
8393 #
8394            FATIGUE         =FACT(statut='f',min=0,max=1,
8395              regles=(PRESENT_ABSENT('WOHLER','A_BASQUIN','BETA_BASQUIN'),
8396                      PRESENT_ABSENT('WOHLER','A0','A1','A2','A3','SL'),
8397                      PRESENT_ABSENT('A_BASQUIN','A0','A1','A2','A3','SL'),
8398                      ENSEMBLE('A_BASQUIN','BETA_BASQUIN'),
8399                      ENSEMBLE('A0','A1','A2','A3','SL'),
8400                      PRESENT_PRESENT('A0','E_REFE'),
8401                      ENSEMBLE('D0','TAU0'),),
8402              WOHLER          =SIMP(statut='f',typ=fonction),
8403              A_BASQUIN       =SIMP(statut='f',typ='R'),
8404              BETA_BASQUIN    =SIMP(statut='f',typ='R'),
8405              A0              =SIMP(statut='f',typ='R'),
8406              A1              =SIMP(statut='f',typ='R'),
8407              A2              =SIMP(statut='f',typ='R'),
8408              A3              =SIMP(statut='f',typ='R'),
8409              SL              =SIMP(statut='f',typ='R'),
8410              MANSON_COFFIN   =SIMP(statut='f',typ=fonction),
8411              E_REFE          =SIMP(statut='f',typ='R'),
8412              D0              =SIMP(statut='f',typ='R'),
8413              TAU0            =SIMP(statut='f',typ='R'),
8414              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="SIGM",into=("SIGM",) ),
8415              VERI_P2         =SIMP(statut='c',typ='TXM',defaut="EPSI",into=("EPSI",) ),
8416            ),
8417            DOMMA_LEMAITRE  =FACT(statut='f',min=0,max=1,
8418              S               =SIMP(statut='o',typ=fonction),
8419              EPSP_SEUIL      =SIMP(statut='o',typ='R'),
8420              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
8421            ),
8422            CISA_PLAN_CRIT  =FACT(statut='f',min=0,max=1,
8423              CRITERE       =SIMP(statut='o',typ='TXM',into=("MATAKE","DANG_VAN") ),
8424
8425              b_critere_matake =BLOC(condition="CRITERE=='MATAKE'",
8426                                     fr="cisaillement plan critique  critère de matake",
8427                MATAKE_A         =SIMP(statut='o',typ='R'),
8428                MATAKE_B         =SIMP(statut='o',typ='R'),
8429                COEF_FLEX_TORS   =SIMP(statut='o',typ='R',val_min=1.0E0,val_max=1.7321E0),
8430              ),
8431
8432              b_critere_dang_van =BLOC(condition="CRITERE=='DANG_VAN'",
8433                                  fr="cisaillement plan critique  critère de Dang Van",
8434                D_VAN_A            =SIMP(statut='o',typ='R'),
8435                D_VAN_B            =SIMP(statut='o',typ='R'),
8436                COEF_CISA_TRAC     =SIMP(statut='o',typ='R',val_min=1.0E0,val_max=1.7321E0),
8437              ),
8438            ),
8439 #
8440 # autres comportements ...
8441 #
8442            WEIBULL         =FACT(statut='f',min=0,max=1,
8443              M               =SIMP(statut='o',typ='R'),
8444              VOLU_REFE       =SIMP(statut='o',typ='R'),
8445              SIGM_REFE       =SIMP(statut='o',typ='R'),
8446              SEUIL_EPSP_CUMU =SIMP(statut='f',typ='R',defaut= 1.0E-6),
8447            ),
8448            WEIBULL_FO      =FACT(statut='f',min=0,max=1,
8449              M               =SIMP(statut='o',typ='R'),
8450              VOLU_REFE       =SIMP(statut='o',typ='R'),
8451              SIGM_CNV        =SIMP(statut='o',typ='R'),
8452              SIGM_REFE       =SIMP(statut='o',typ=fonction),
8453              SEUIL_EPSP_CUMU =SIMP(statut='f',typ='R',defaut= 1.0E-6),
8454              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
8455            ),
8456            CONTACT         =FACT(statut='f',min=0,max=1,
8457              E_N             =SIMP(statut='o',typ='R'),
8458              E_T             =SIMP(statut='f',typ='R',defaut= 0.E+0),
8459              COULOMB         =SIMP(statut='f',typ='R',defaut= 0.E+0),
8460            ),
8461            NON_LOCAL       =FACT(statut='f',min=0,max=1,
8462              LONG_CARA       =SIMP(statut='o',typ='R'),
8463              COEF_RIGI_MINI  =SIMP(statut='f',typ='R'),
8464            ),
8465            RUPT_FRAG       =FACT(statut='f',min=0,max=1,
8466              GC              =SIMP(statut='o',typ='R'),
8467              SIGM_C          =SIMP(statut='f',typ='R'),
8468              SAUT_C          =SIMP(statut='f',typ='R'),
8469            ),
8470            RCCM            =FACT(statut='f',min=0,max=1,
8471              SY_02           =SIMP(statut='f',typ='R'),
8472              SM              =SIMP(statut='f',typ='R'),
8473              SU              =SIMP(statut='f',typ='R'),
8474              SC              =SIMP(statut='f',typ='R'),
8475              SH              =SIMP(statut='f',typ='R'),
8476              N_KE            =SIMP(statut='f',typ='R'),
8477              M_KE            =SIMP(statut='f',typ='R'),
8478            ),
8479            RCCM_FO         =FACT(statut='f',min=0,max=1,
8480              SY_02           =SIMP(statut='f',typ=fonction),
8481              SM              =SIMP(statut='f',typ=fonction),
8482              SU              =SIMP(statut='f',typ=fonction),
8483              S               =SIMP(statut='f',typ=fonction),
8484              N_KE            =SIMP(statut='f',typ=fonction),
8485              M_KE            =SIMP(statut='f',typ=fonction),
8486              VERI_P1         =SIMP(statut='c',typ='TXM',defaut="TEMP",into=("TEMP",) ),
8487            ),
8488            LAIGLE          =FACT(statut='f',min=0,max=1,
8489              GAMMA_ULT       =SIMP(statut='o',typ='R'),
8490              GAMMA_E         =SIMP(statut='o',typ='R'),
8491              M_ULT           =SIMP(statut='o',typ='R'),
8492              M_E             =SIMP(statut='o',typ='R'),
8493              A_E             =SIMP(statut='o',typ='R'),
8494              M_PIC           =SIMP(statut='o',typ='R'),
8495              A_PIC           =SIMP(statut='o',typ='R'),
8496              ETA             =SIMP(statut='o',typ='R'),
8497              SIGMA_C         =SIMP(statut='o',typ='R'),
8498              GAMMA           =SIMP(statut='o',typ='R'),
8499              KSI             =SIMP(statut='o',typ='R'),
8500              GAMMA_CJS       =SIMP(statut='o',typ='R'),
8501              SIGMA_P1        =SIMP(statut='o',typ='R'),
8502              PA              =SIMP(statut='o',typ='R'),
8503            ),
8504            INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
8505 )  ;
8506 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
8507 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8508 # ======================================================================
8509 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8510 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8511 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8512 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8513 # (AT YOUR OPTION) ANY LATER VERSION.
8514 #
8515 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8516 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8517 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8518 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8519 #
8520 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8521 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8522 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8523 # ======================================================================
8524 DEFI_MODELE_GENE=OPER(nom="DEFI_MODELE_GENE",op= 126,sd_prod=modele_gene,
8525                       docu="U4.65.02-d",reentrant='n',
8526             UIinfo={"groupes":("Matrices/vecteurs",)},
8527          SOUS_STRUC      =FACT(statut='o',min=1,max='**',
8528            NOM             =SIMP(statut='o',typ='TXM' ),
8529            MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
8530            ANGL_NAUT       =SIMP(statut='f',typ='R',max=3),
8531            TRANS           =SIMP(statut='f',typ='R',max=3),
8532          ),
8533          LIAISON         =FACT(statut='o',min=1,max='**',
8534            SOUS_STRUC_1    =SIMP(statut='o',typ='TXM' ),
8535            INTERFACE_1     =SIMP(statut='o',typ='TXM' ),
8536            SOUS_STRUC_2    =SIMP(statut='o',typ='TXM' ),
8537            INTERFACE_2     =SIMP(statut='o',typ='TXM' ),
8538          ),
8539          VERIF           =FACT(statut='f',min=1,max='**',
8540 #  dans la doc U stop_erreur est obligatoire
8541            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
8542            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
8543            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8544          ),
8545 )  ;
8546 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
8547 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8548 # ======================================================================
8549 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8550 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8551 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8552 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8553 # (AT YOUR OPTION) ANY LATER VERSION.
8554 #
8555 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8556 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8557 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8558 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8559 #
8560 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8561 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8562 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8563 # ======================================================================
8564 DEFI_NAPPE=OPER(nom="DEFI_NAPPE",op=   4,sd_prod=fonction,
8565                 fr="Définition des valeurs d une fonction de deux variables réelles",
8566                 docu="U4.31.03-g1",reentrant='n',
8567             UIinfo={"groupes":("Fonction",)},
8568          regles=(UN_PARMI('FONCTION','DEFI_FONCTION'),
8569                  EXCLUS('FONCTION','NOM_PARA_FONC',),
8570                  ENSEMBLE('NOM_PARA_FONC','DEFI_FONCTION'),),
8571          NOM_PARA        =SIMP(statut='o',typ='TXM',into=("TEMP","INST","X","Y","Z","FREQ","PULS",
8572                                                           "AMOR","EPAIS","TSEC","HYDR","SECH",
8573                                                           "SAT", "PGAZ","PCAP"
8574                                                           ) ),
8575          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
8576          PARA            =SIMP(statut='o',typ='R',max='**'),
8577          FONCTION        =SIMP(statut='f',typ=fonction,max='**' ),
8578          NOM_PARA_FONC   =SIMP(statut='f',typ='TXM',into=("TEMP","INST","X","Y","Z","EPSI","FREQ",
8579                                                           "PULS","AMOR","EPAIS","SAT", "PGAZ","PCAP") ),
8580          DEFI_FONCTION   =FACT(statut='f',max='**',
8581            VALE            =SIMP(statut='o',typ='R',max='**'),
8582            INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
8583            PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
8584            PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
8585          ),
8586          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
8587          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
8588          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
8589          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
8590          VERIF           =SIMP(statut='f',typ='TXM',into=("CROISSANT",) ),
8591          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8592 )  ;
8593 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
8594 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8595 # ======================================================================
8596 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8597 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8598 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8599 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8600 # (AT YOUR OPTION) ANY LATER VERSION.
8601 #
8602 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8603 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8604 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8605 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8606 #
8607 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8608 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8609 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8610 # ======================================================================
8611 DEFI_OBSTACLE=OPER(nom="DEFI_OBSTACLE",op=  73,sd_prod=obstacle
8612                     ,fr="Définition d un obstacle plan perpendiculaire à une structure filaire",
8613                      docu="U4.44.21-e",reentrant='n',
8614             UIinfo={"groupes":("Modélisation",)},
8615          TYPE            =SIMP(statut='o',typ='TXM',defaut="CERCLE",
8616                              into=("CERCLE","PLAN_Y","PLAN_Z","DISCRET",
8617                              "BI_CERCLE","BI_PLAN_Y","BI_PLAN_Z","BI_CERC_INT",
8618                              "CRAYON_900","CRAYON_1300","GUID_A_CARTE_900",
8619                              "GUID_B_CARTE_900","GUID_C_CARTE_900",
8620                              "GUID_D_CARTE_900","GUID_E_CARTE_900",
8621                              "GUID_F_CARTE_900","GUID_A_CARTE_1300",
8622                              "GUID_B_CARTE_1300","GUID_C_CARTE_1300",
8623                              "GUID_D_CARTE_1300","GUID_E_CARTE_1300",
8624                              "GUID_F_CARTE_1300","GUID_A_CARSP_900",
8625                              "GUID_B_CARSP_900","GUID_C_CARSP_900",
8626                              "GUID_D_CARSP_900","GUID_E_CARSP_900",
8627                              "GUID_F_CARSP_900","GUID_A_CARSP_1300",
8628                              "GUID_B_CARSP_1300","GUID_C_CARSP_1300",
8629                              "GUID_D_CARSP_1300","GUID_E_CARSP_1300",
8630                              "GUID_F_CARSP_1300","GUID_A_GCONT_900",
8631                              "GUID_B_GCONT_900","GUID_C_GCONT_900",
8632                              "GUID_D_GCONT_900","GUID_E_GCONT_900",
8633                              "GUID_F_GCONT_900","GUID_A_GCONT_1300",
8634                              "GUID_B_GCONT_1300","GUID_C_GCONT_1300",
8635                              "GUID_D_GCONT_1300","GUID_E_GCONT_1300",
8636                              "GUID_F_GCONT_1300","GUID_A_GCOMB_900",
8637                              "GUID_B_GCOMB_900","GUID_C_GCOMB_900",
8638                              "GUID_D_GCOMB_900","GUID_E_GCOMB_900",
8639                              "GUID_F_GCOMB_900","GUID_A_GCOMB_1300",
8640                              "GUID_B_GCOMB_1300","GUID_C_GCOMB_1300",
8641                              "GUID_D_GCOMB_1300","GUID_E_GCOMB_1300",
8642                              "GUID_F_GCOMB_1300",) ),
8643          VALE            =SIMP(statut='f',typ='R',max='**'),
8644          VERIF           =SIMP(statut='f',typ='TXM',defaut="FERME"),
8645 )  ;
8646 #& MODIF COMMANDE  DATE 03/12/2002   AUTEUR DURAND C.DURAND
8647 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8648 # ======================================================================
8649 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8650 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8651 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8652 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8653 # (AT YOUR OPTION) ANY LATER VERSION.
8654 #
8655 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8656 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8657 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8658 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8659 #
8660 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8661 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8662 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8663 # ======================================================================
8664 # RESPONSABLE GNICOLAS G.NICOLAS
8665 DEFI_PARA_SENSI=OPER(nom="DEFI_PARA_SENSI",op=   2,sd_prod=para_sensi,
8666                     fr="Définition d'un paramètre de sensibilité",
8667                     ang="Definition of a sensitive parameter",
8668                     docu="U4.31.06-a1",reentrant='n',
8669             UIinfo={"groupes":("Fonction",)},
8670          NOM_RESU        =SIMP(statut='c',typ='TXM',into=("TOUTRESU",),defaut="TOUTRESU",
8671                                fr="Nom du concept créé",
8672                                ang="Name of the concept"),
8673          VALE            =SIMP(statut='o',typ='R',max=1,
8674                                fr="Valeur du parametre",
8675                                ang="Value of the parameter"),
8676          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8677 )  ;
8678 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
8679 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8680 # ======================================================================
8681 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8682 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8683 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8684 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8685 # (AT YOUR OPTION) ANY LATER VERSION.
8686 #
8687 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8688 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8689 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8690 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8691 #
8692 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8693 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8694 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8695 # ======================================================================
8696 DEFI_SPEC_TURB=OPER(nom="DEFI_SPEC_TURB",op= 145,sd_prod=spectre,
8697                     fr="Définition d'un spectre d'excitation turbulente",
8698                     docu="U4.44.31-c",reentrant='n',
8699             UIinfo={"groupes":("Modélisation",)},
8700          regles=(UN_PARMI('SPEC_LONG_COR_1','SPEC_LONG_COR_2','SPEC_LONG_COR_3',
8701                           'SPEC_LONG_COR_4','SPEC_CORR_CONV_1','SPEC_CORR_CONV_2',
8702                           'SPEC_FONC_FORME','SPEC_EXCI_POINT'),),
8703          SPEC_LONG_COR_1 =FACT(statut='f',max=1,
8704            LONG_COR        =SIMP(statut='o',typ='R' ),
8705            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
8706            VISC_CINE       =SIMP(statut='o',typ='R' ),
8707          ),
8708          SPEC_LONG_COR_2 =FACT(statut='f',max=1,
8709            regles=(ENSEMBLE('FREQ_COUP','PHI0','BETA' ),),
8710            LONG_COR        =SIMP(statut='o',typ='R' ),
8711            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
8712            FREQ_COUP       =SIMP(statut='f',typ='R',defaut= 0.1 ),
8713            PHI0            =SIMP(statut='f',typ='R',defaut= 1.5E-3 ),
8714            BETA            =SIMP(statut='f',typ='R',defaut= 2.7 ),
8715          ),
8716          SPEC_LONG_COR_3 =FACT(statut='f',max=1,
8717            regles=(ENSEMBLE('PHI0_1','BETA_1','PHI0_2','BETA_2','FREQ_COUP'),),
8718            LONG_COR        =SIMP(statut='o',typ='R' ),
8719            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
8720            FREQ_COUP       =SIMP(statut='f',typ='R',defaut= 0.2 ),
8721            PHI0_1          =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
8722            BETA_1          =SIMP(statut='f',typ='R',defaut= 0.5 ),
8723            PHI0_2          =SIMP(statut='f',typ='R',defaut= 4.E-5 ),
8724            BETA_2          =SIMP(statut='f',typ='R',defaut= 3.5 ),
8725          ),
8726          SPEC_LONG_COR_4 =FACT(statut='f',max=1,
8727            regles=(ENSEMBLE('BETA','GAMMA'),),
8728            LONG_COR        =SIMP(statut='o',typ='R' ),
8729            PROF_VITE_FLUI  =SIMP(statut='o',typ=fonction ),
8730            TAUX_VIDE       =SIMP(statut='o',typ='R' ),
8731            BETA            =SIMP(statut='f',typ='R',defaut= 2. ),
8732            GAMMA           =SIMP(statut='f',typ='R',defaut= 4. ),
8733          ),
8734          SPEC_CORR_CONV_1=FACT(statut='f',max=1,
8735            LONG_COR_1      =SIMP(statut='o',typ='R' ),
8736            LONG_COR_2      =SIMP(statut='f',typ='R' ),
8737            VITE_FLUI       =SIMP(statut='o',typ='R' ),
8738            RHO_FLUI        =SIMP(statut='o',typ='R' ),
8739            FREQ_COUP       =SIMP(statut='f',typ='R' ),
8740            K               =SIMP(statut='f',typ='R',defaut= 5.8E-3 ),
8741            D_FLUI          =SIMP(statut='o',typ='R' ),
8742            COEF_VITE_FLUI_A=SIMP(statut='f',typ='R' ),
8743            COEF_VITE_FLUI_O=SIMP(statut='f',typ='R' ),
8744            METHODE         =SIMP(statut='f',typ='TXM',defaut="GENERALE",
8745                                  into=("AU_YANG","GENERALE","CORCOS") ),
8746          ),
8747          SPEC_CORR_CONV_2=FACT(statut='f',max=1,
8748            FONCTION        =SIMP(statut='o',typ=fonction ),
8749            VITE_FLUI       =SIMP(statut='o',typ='R' ),
8750            FREQ_COUP       =SIMP(statut='f',typ='R' ),
8751            METHODE         =SIMP(statut='f',typ='TXM',defaut="GENERALE",
8752                                  into=("AU_YANG","GENERALE","CORCOS",) ),
8753            COEF_VITE_FLUI_A=SIMP(statut='f',typ='R' ),
8754            COEF_VITE_FLUI_O=SIMP(statut='f',typ='R' ),
8755          ),
8756          SPEC_FONC_FORME =FACT(statut='f',max=1,
8757            regles=(UN_PARMI('INTE_SPEC','GRAPPE_1'),
8758                    ENSEMBLE('INTE_SPEC','FONCTION'),),
8759            INTE_SPEC       =SIMP(statut='f',typ=tabl_intsp ),
8760            FONCTION        =SIMP(statut='f',typ=fonction,max='**'),
8761            GRAPPE_1        =SIMP(statut='f',typ='TXM',into=("DEBIT_180","DEBIT_300",) ),
8762            NOEUD           =SIMP(statut='o',typ=no),
8763            CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
8764            MODELE          =SIMP(statut='o',typ=modele ),
8765          ),
8766          SPEC_EXCI_POINT =FACT(statut='f',max=1,
8767            regles=(UN_PARMI('INTE_SPEC','GRAPPE_2'),),
8768            INTE_SPEC       =SIMP(statut='f',typ=tabl_intsp ),
8769            GRAPPE_2        =SIMP(statut='f',typ='TXM',
8770                                  into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC",) ),
8771 #  Quels sont les statuts des mots cles à l interieur des deux blocs qui suivent
8772            b_inte_spec =BLOC(condition = "INTE_SPEC != None",
8773              NATURE          =SIMP(statut='o',typ='TXM',max='**',into=("FORCE","MOMENT",) ),
8774              ANGL            =SIMP(statut='o',typ='R',max='**'),
8775              NOEUD           =SIMP(statut='o',typ=no,max='**'),
8776            ),
8777            b_grappe_2      =BLOC(condition = "GRAPPE_2 != None",
8778              RHO_FLUI        =SIMP(statut='o',typ='R' ),
8779              NOEUD           =SIMP(statut='o',typ=no),
8780            ),
8781            CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
8782            MODELE          =SIMP(statut='o',typ=modele ),
8783          ),
8784          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8785 )  ;
8786 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
8787 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8788 # ======================================================================
8789 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8790 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8791 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8792 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8793 # (AT YOUR OPTION) ANY LATER VERSION.
8794 #
8795 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8796 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8797 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8798 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8799 #
8800 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8801 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8802 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8803 # ======================================================================
8804 DEFI_SQUELETTE=OPER(nom="DEFI_SQUELETTE",op= 110,sd_prod=squelette,
8805                     fr="Définition d un maillage de visualisation",
8806                     docu="U4.24.01-e",reentrant='n',
8807             UIinfo={"groupes":("Maillage",)},
8808          regles=(UN_PARMI('MODE_CYCL','MODELE_GENE','MAILLAGE'),
8809                  PRESENT_PRESENT('MODE_CYCL','SECTEUR'),
8810                  EXCLUS('SOUS_STRUC','SECTEUR'),
8811                  PRESENT_PRESENT('NOM_GROUP_MA','MODELE_GENE'),
8812                  PRESENT_PRESENT('NOM_GROUP_MA','SOUS_STRUC'),),
8813          MODE_CYCL       =SIMP(statut='f',typ=mode_cycl ),
8814          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
8815          SQUELETTE       =SIMP(statut='f',typ=squelette ),
8816          RECO_GLOBAL     =FACT(statut='f',min=1,max='**',
8817            regles=(EXCLUS('TOUT','GROUP_NO_1'),
8818                    PRESENT_PRESENT('GROUP_NO_1','GROUP_NO_2'),
8819                    PRESENT_PRESENT('GROUP_NO_1','SOUS_STRUC_1'),
8820                    PRESENT_PRESENT('GROUP_NO_2','SOUS_STRUC_2'),
8821                    PRESENT_PRESENT('SOUS_STRUC_1','SOUS_STRUC_2'),),
8822            TOUT            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",) ),
8823            GROUP_NO_1      =SIMP(statut='f',typ=grno),
8824            SOUS_STRUC_1    =SIMP(statut='f',typ='TXM' ),
8825            GROUP_NO_2      =SIMP(statut='f',typ=grno),
8826            SOUS_STRUC_2    =SIMP(statut='f',typ='TXM' ),
8827            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
8828            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
8829            DIST_REFE       =SIMP(statut='f',typ='R' ),
8830          ),
8831          NOM_GROUP_MA    =FACT(statut='f',min=1,max='**',
8832            NOM             =SIMP(statut='o',typ='TXM' ),
8833            SOUS_STRUC      =SIMP(statut='o',typ='TXM' ),
8834            GROUP_MA        =SIMP(statut='o',typ=grma),
8835          ),
8836          EXCLUSIF        =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
8837          MAILLAGE        =SIMP(statut='f',typ=maillage ),
8838          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
8839          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
8840          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8841          TRANS           =SIMP(statut='f',typ='R',min=3,max=3),
8842          ANGL_NAUT       =SIMP(statut='f',typ='R',min=3,max=3),
8843          SOUS_STRUC      =FACT(statut='f',min=1,max='**',
8844            NOM             =SIMP(statut='f',typ='TXM' ),
8845            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
8846            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
8847            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8848          ),
8849          SECTEUR         =FACT(statut='f',min=1,max='**',
8850            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
8851            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
8852            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
8853          ),
8854          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
8855 )  ;
8856 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
8857 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8858 # ======================================================================
8859 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8860 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8861 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8862 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8863 # (AT YOUR OPTION) ANY LATER VERSION.
8864 #
8865 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8866 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8867 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8868 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8869 #
8870 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8871 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8872 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8873 # ======================================================================
8874 DEFI_TEXTURE=OPER(nom="DEFI_TEXTURE",op= 181,sd_prod=tabl_texture,
8875                   fr=" ",docu="U4.43.05-a",reentrant='n',
8876             UIinfo={"groupes":("Modélisation",)},
8877          SYST_GLISSEMENT =FACT(statut='o',min=3,max=3,
8878            N               =SIMP(statut='o',typ='R',min=12,max=12 ),
8879            L               =SIMP(statut='o',typ='R',max='**' ),
8880          ),
8881          PLAN            =FACT(statut='o',min=40,max=40,
8882            ANGL_NAUT       =SIMP(statut='o',typ='R',max='**' ),
8883            PROPORTION      =SIMP(statut='o',typ='R' ),
8884          ),
8885          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
8886 )  ;
8887 #& MODIF COMMANDE  DATE 03/12/2002   AUTEUR DURAND C.DURAND
8888 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8889 # ======================================================================
8890 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8891 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8892 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8893 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8894 # (AT YOUR OPTION) ANY LATER VERSION.
8895 #
8896 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8897 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8898 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8899 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8900 #
8901 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8902 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8903 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8904 # ======================================================================
8905 DEFI_THER_JOULE=OPER(nom="DEFI_THER_JOULE",op= 121,sd_prod=fonction,docu="U4.mk.20-d",reentrant='n',
8906             UIinfo={"groupes":("Outils métier",)},
8907                     fr="Calculer la fonction d évolution temporelle de température due à l effet JOULE dans un cable",
8908          LIST_INST       =SIMP(statut='o',typ=listr8),
8909          INST_CC_INIT    =SIMP(statut='f',typ='R',defaut= 0.0E+0 ),
8910          INST_CC_FIN     =SIMP(statut='f',typ='R',defaut= 1.0E+10),
8911          INST_RENC_INIT  =SIMP(statut='f',typ='R',defaut= 1.0E+10),
8912          INST_RENC_FIN   =SIMP(statut='f',typ='R',defaut= 1.0E+10),
8913          TEMP_EXT_POSE   =SIMP(statut='f',typ='R',defaut= 15.0E+0),
8914          TEMP_EXT        =SIMP(statut='f',typ='R',defaut= 15.0E+0),
8915          TEMP_RESI_REF   =SIMP(statut='f',typ='R',defaut= 20.0E+0),
8916          PARA_COND_1D    =FACT(statut='f',min=1,max='**',
8917            INTE_CC         =SIMP(statut='f',typ='R',defaut= 0.0E+0),
8918            INTE_RENC       =SIMP(statut='f',typ='R',defaut= 0.0E+0),
8919            A               =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8920            SECTION         =SIMP(statut='f',typ='TXM',defaut="CERCLE",into=("CERCLE",) ),
8921            RESI_R0         =SIMP(statut='f',typ='R',defaut= 0.0E+0),
8922            RESI_R1         =SIMP(statut='f',typ='R',defaut= 0.E+0),
8923            RHO_CP          =SIMP(statut='f',typ='R',defaut= 1.0E+0),
8924            COEF_H          =SIMP(statut='f',typ='R',defaut= 40.0E+0),
8925            TEMP_INIT       =SIMP(statut='f',typ='R',defaut= 15.0E+0),
8926          ),
8927 )  ;
8928
8929 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
8930 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8931 # ======================================================================
8932 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8933 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8934 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8935 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8936 # (AT YOUR OPTION) ANY LATER VERSION.
8937 #
8938 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8939 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8940 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8941 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8942 #
8943 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8944 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8945 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8946 # ======================================================================
8947 DEFI_TRC=OPER(nom="DEFI_TRC",op=94,sd_prod=tabl_trc,docu="U4.43.04-e",reentrant='n',
8948             UIinfo={"groupes":("Modélisation",)},
8949               fr="Définition d un diagramme de transformations en refroidissement continu d un acier",
8950          HIST_EXP        =FACT(statut='o',min=1,max='**',
8951            VALE            =SIMP(statut='o',typ='R',max='**'),
8952          ),
8953          TEMP_MS         =FACT(statut='o',min=1,max='**',
8954            SEUIL           =SIMP(statut='o',typ='R'),
8955            AKM             =SIMP(statut='o',typ='R'),
8956            BKM             =SIMP(statut='o',typ='R'),
8957            TPLM            =SIMP(statut='o',typ='R'),
8958          ),
8959          GRAIN_AUST      =FACT(statut='f',min=1,max='**',
8960            DREF           =SIMP(statut='f',typ='R'),
8961            A              =SIMP(statut='f',typ='R'),
8962          ),
8963 )  ;
8964 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
8965 #            CONFIGURATION MANAGEMENT OF EDF VERSION
8966 # ======================================================================
8967 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
8968 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
8969 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
8970 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
8971 # (AT YOUR OPTION) ANY LATER VERSION.
8972 #
8973 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
8974 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
8975 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
8976 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
8977 #
8978 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
8979 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
8980 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
8981 # ======================================================================
8982 def defi_valeur_prod(self,IS=None,R8=None,TX=None,C8=None,LS=None):
8983   if IS != None  : return entier
8984   if R8 != None  : return reel
8985   if TX != None  : return chaine
8986   if C8 != None  : return complexe
8987   if LS != None  : return liste
8988   raise AsException("type de concept resultat non prevu")
8989
8990 DEFI_VALEUR=MACRO(nom="DEFI_VALEUR",op=-4,sd_prod=defi_valeur_prod,
8991                  fr="Affectation d une valeur à une variable Superviseur",
8992                  docu="U4.31.04-f1",reentrant='f',
8993             UIinfo={"groupes":("Fonction",)},
8994          regles=(UN_PARMI('IS','R8','TX','C8','LS'),),
8995          IS              =SIMP(statut='f',typ='I',max='**'),
8996          R8              =SIMP(statut='f',typ='R',max='**'),
8997          TX              =SIMP(statut='f',typ='TXM',max='**'),
8998          C8              =SIMP(statut='f',typ='C',max='**'),
8999          LS              =SIMP(statut='f',typ='L',max='**'),
9000 )  ;
9001 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9002 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9003 # ======================================================================
9004 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9005 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9006 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9007 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9008 # (AT YOUR OPTION) ANY LATER VERSION.
9009 #
9010 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9011 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9012 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9013 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9014 #
9015 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9016 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9017 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9018 # ======================================================================
9019 DEFUFI=PROC(nom="DEFUFI",op=21,docu="U4.12.01-d",
9020             UIinfo={"groupes":("Gestion du travail",)},
9021             fr="Modification / ajout d une unité logique en sortie en complément de celles définies dans DEBUT",
9022          IMPRESSION      =FACT(statut='o',min=1,max='**',
9023            NOM             =SIMP(statut='o',typ='TXM',max='**'),
9024            UNITE           =SIMP(statut='o',typ='I' ),
9025          ),
9026 )  ;
9027 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9028 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9029 # ======================================================================
9030 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9031 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9032 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9033 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9034 # (AT YOUR OPTION) ANY LATER VERSION.
9035 #
9036 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9037 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9038 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9039 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9040 #
9041 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9042 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9043 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9044 # ======================================================================
9045 DEPL_INTERNE=OPER(nom="DEPL_INTERNE",op=89,sd_prod=cham_no_depl_r,docu="U4.62.02-e",reentrant='n',
9046             UIinfo={"groupes":("Matrices/vecteurs",)},
9047                   fr="Récupération du champ de déplacement interne à une sous-structure",
9048          DEPL_GLOBAL     =SIMP(statut='o',typ=cham_no_depl_r),
9049          MAILLE          =SIMP(statut='o',typ=ma,max=1),
9050          NOM_CAS         =SIMP(statut='f',typ='TXM',defaut=" "),
9051 )  ;
9052 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9053 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9054 # ======================================================================
9055 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9056 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9057 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9058 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9059 # (AT YOUR OPTION) ANY LATER VERSION.
9060 #
9061 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9062 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9063 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9064 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9065 #
9066 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9067 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9068 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9069 # ======================================================================
9070 DETRUIRE=PROC(nom="DETRUIRE",op=-7,docu="U4.14.01-d",
9071             UIinfo={"groupes":("Gestion du travail",)},
9072               fr="Destruction d un concept utilisateur dans la base GLOBALE",
9073              op_init=ops.detruire,
9074             CONCEPT     =FACT(statut='o',min=01,
9075             NOM         =SIMP(statut='o',typ=assd,max='**'),
9076         ),
9077 );
9078 #& MODIF COMMANDE  DATE 13/01/2003   AUTEUR DURAND C.DURAND
9079 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9080 # ======================================================================
9081 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9082 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9083 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9084 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9085 # (AT YOUR OPTION) ANY LATER VERSION.
9086 #
9087 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9088 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9089 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9090 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9091 #
9092 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9093 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9094 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9095 # ======================================================================
9096 DIST_LIGN_3D=OPER(nom="DIST_LIGN_3D",op= 133,sd_prod=fonction,docu="U4.mk.30-d",reentrant='n',
9097             UIinfo={"groupes":("Outils métier",)},
9098                   fr="Calcul sous forme d une fonction du temps de la distance minimale entre deux structures filaires",
9099       regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),
9100               UN_PARMI('GROUP_MA_2','POIN_FIXE'),),
9101          MODELE          =SIMP(statut='o',typ=modele),
9102          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,evol_noli) ),
9103          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",)),
9104          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
9105          INST            =SIMP(statut='f',typ='R',max='**'),
9106          LIST_INST       =SIMP(statut='f',typ=listr8),
9107          LIST_ORDRE      =SIMP(statut='f',typ=listis),
9108          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
9109          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
9110          GROUP_MA_1      =SIMP(statut='o',typ=grma,max='**'),
9111          GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
9112          POIN_FIXE       =SIMP(statut='f',typ='R',min=3,max=3),
9113          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
9114 )  ;
9115 #& MODIF COMMANDE  DATE 14/10/2002   AUTEUR BOYERE E.BOYERE
9116 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9117 # ======================================================================
9118 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9119 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9120 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9121 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9122 # (AT YOUR OPTION) ANY LATER VERSION.
9123 #
9124 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9125 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9126 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9127 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9128 #
9129 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9130 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9131 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9132 # ======================================================================
9133 DYNA_ALEA_MODAL=OPER(nom="DYNA_ALEA_MODAL",op= 131,sd_prod=tabl_intsp
9134                     ,fr="Calcule la réponse spectrale d une structure linéaire sous une excitation connue par sa DSP",
9135                      docu="U4.53.22-d",reentrant='n',
9136             UIinfo={"groupes":("Résolution",)},
9137          BASE_MODALE     =FACT(statut='o',min=1,max=1,
9138            regles=(UN_PARMI('NUME_ORDRE','BANDE'),),
9139            MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
9140            BANDE           =SIMP(statut='f',typ='R',max=2),
9141            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
9142            b_bande =BLOC(condition = "BANDE != None",
9143              AMOR_UNIF       =SIMP(statut='o',typ='R' ),
9144            ),
9145            b_nume_ordre =BLOC(condition = "NUME_ORDRE != None",
9146              AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
9147            ),
9148          ),
9149          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,)),
9150          EXCIT           =FACT(statut='o',min=1,max=1,
9151            regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I'),
9152                    EXCLUS('CHAM_NO','NOEUD'),),
9153            DERIVATION      =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ) ),
9154            MODAL           =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9155 #  dans la doc U il y a plus de choix pour GRANDEUR
9156            GRANDEUR        =SIMP(statut='f',typ='TXM',defaut="DEPL_R",
9157                                  into=("DEPL_R","EFFO","SOUR_DEBI_VOLU","SOUR_DEBI_MASS","SOUR_PRESS","SOUR_FORCE")),
9158            INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
9159            NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
9160            OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG",) ),
9161 #  Toutes les regles ne semblent pas avoir été ecrites dans la doc U
9162            NUME_ORDRE_I    =SIMP(statut='f',typ='I',max='**'),
9163            NOEUD_I         =SIMP(statut='f',typ=no,max='**'),
9164            b_nume_ordre_i  =BLOC(condition = "NUME_ORDRE_I != None",
9165              NUME_ORDRE_J    =SIMP(statut='o',typ='I',max='**'),
9166            ),
9167            b_noeud_i       =BLOC(condition = "NOEUD_I != None",
9168              NOEUD_J         =SIMP(statut='o',typ=no,max='**'),
9169              NOM_CMP_I       =SIMP(statut='o',typ='TXM',max='**'),
9170              NOM_CMP_J       =SIMP(statut='o',typ='TXM',max='**'),
9171            ),
9172            CHAM_NO         =SIMP(statut='f',typ=cham_no),
9173            NOEUD           =SIMP(statut='f',typ=no,max='**'),
9174            b_noeud         =BLOC(condition = "NOEUD != None",
9175              NOM_CMP         =SIMP(statut='o',typ='TXM',max='**'),
9176            ),
9177          ),
9178          REPONSE         =FACT(statut='f',min=1,max=1,
9179            regles=( ENSEMBLE('FREQ_MIN','FREQ_MAX'),),
9180            DERIVATION      =SIMP(statut='f',typ='I',defaut= 0,into=( 0 , 1 , 2 ,) ),
9181            OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
9182            FREQ_MIN        =SIMP(statut='f',typ='R' ),
9183            FREQ_MAX        =SIMP(statut='f',typ='R' ),
9184            PAS             =SIMP(statut='f',typ='R' ),
9185            b_defaut_freq   =BLOC(condition = "FREQ_MIN == NONE",
9186               FREQ_EXCIT      =SIMP(statut='f',typ='TXM',defaut="AVEC",into=("AVEC","SANS") ),
9187               NB_POIN_MODE    =SIMP(statut='f',typ='I',defaut= 50 ),
9188            ),
9189          ),
9190          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9191          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
9192 )  ;
9193 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9194 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9195 # ======================================================================
9196 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9197 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9198 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9199 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9200 # (AT YOUR OPTION) ANY LATER VERSION.
9201 #
9202 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9203 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9204 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9205 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9206 #
9207 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9208 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9209 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9210 # ======================================================================
9211 def dyna_line_harm_prod(MATR_MASS,**args):
9212   if AsType(MATR_MASS) == matr_asse_depl_r : return dyna_harmo
9213   if AsType(MATR_MASS) == matr_asse_depl_c : return dyna_harmo
9214   if AsType(MATR_MASS) == matr_asse_pres_c : return acou_harmo
9215   if AsType(MATR_MASS) == matr_asse_gene_r : return harm_gene
9216   raise AsException("type de concept resultat non prevu")
9217
9218 DYNA_LINE_HARM=OPER(nom="DYNA_LINE_HARM",op=  60,sd_prod=dyna_line_harm_prod,
9219                     fr="Réponse dynamique complexe d un système à une excitation harmonique",
9220                     docu="U4.53.11-e",reentrant='n',
9221             UIinfo={"groupes":("Résolution",)},
9222          regles=(PRESENT_ABSENT('AMOR_REDUIT','MATR_AMOR'),
9223                  PRESENT_ABSENT('AMOR_REDUIT','LIST_AMOR'),
9224                  PRESENT_ABSENT('MATR_AMOR','LIST_AMOR'),
9225                  UN_PARMI('FREQ','LIST_FREQ'),),
9226          MODELE          =SIMP(statut='f',typ=modele ),
9227          CHAM_MATER      =SIMP(statut='f',typ=cham_mater ),
9228          CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
9229          MATR_MASS       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_pres_c,matr_asse_gene_r ) ),
9230          MATR_RIGI       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_pres_c
9231                                               ,matr_asse_gene_r,matr_asse_gene_c ) ),
9232          MATR_AMOR       =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_pres_c,matr_asse_gene_r ) ),
9233          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
9234          LIST_AMOR       =SIMP(statut='f',typ=listr8 ),
9235          MATR_IMPE_PHI   =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_gene_r) ),
9236          FREQ            =SIMP(statut='f',typ='R',max='**'),
9237          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
9238          TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI",)),
9239          NOM_CHAM        =SIMP(statut='f',typ='TXM',max=3,into=("DEPL","VITE","ACCE") ),
9240          EXCIT           =FACT(statut='o',min=1,max='**',
9241            regles=(UN_PARMI('VECT_ASSE','CHARGE'),
9242                    UN_PARMI('FONC_MULT','FONC_MULT_C','COEF_MULT','COEF_MULT_C'),),
9243            VECT_ASSE       =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_pres_c,vect_asse_gene ) ),
9244            CHARGE          =SIMP(statut='f',typ=char_meca ),
9245            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
9246            FONC_MULT_C     =SIMP(statut='f',typ=fonction_c ),
9247            COEF_MULT_C     =SIMP(statut='f',typ='C' ),
9248            FONC_MULT       =SIMP(statut='f',typ=fonction ),
9249            COEF_MULT       =SIMP(statut='f',typ='R' ),
9250            PHAS_DEG        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9251            PUIS_PULS       =SIMP(statut='f',typ='I',defaut= 0 ),
9252          ),
9253          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9254          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
9255                                fr="Liste des paramètres de sensibilité.",
9256                                ang="List of sensitivity parameters"),
9257 )  ;
9258 # Rajouter test icompatibilite vect_asse et sensibilite
9259 # Peut-on aussi rajouter ici le test d incompatibilite charge complexe - derivation
9260 #  presents dans le Fortran
9261 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9262 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9263 # ======================================================================
9264 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9265 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9266 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9267 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9268 # (AT YOUR OPTION) ANY LATER VERSION.
9269 #
9270 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9271 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9272 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9273 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9274 #
9275 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9276 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9277 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9278 # ======================================================================
9279 DYNA_LINE_TRAN=OPER(nom="DYNA_LINE_TRAN",op=  48,sd_prod=dyna_trans,
9280                     fr="Réponse temporelle d un système à une excitation transitoire",
9281                     docu="U4.53.02-g1",reentrant='f',
9282             UIinfo={"groupes":("Résolution",)},
9283 #         regles=(UN_PARMI('WILSON','DIFF_CENTRE','ADAPT'),),
9284          regles=(UN_PARMI('NEWMARK','WILSON','DIFF_CENTRE','ADAPT'),),
9285          MODELE          =SIMP(statut='f',typ=modele ),
9286          CHAM_MATER      =SIMP(statut='f',typ=cham_mater ),
9287          CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
9288          MATR_MASS       =SIMP(statut='o',typ=matr_asse_depl_r ),
9289          MATR_RIGI       =SIMP(statut='o',typ=matr_asse_depl_r ),
9290          MATR_AMOR       =SIMP(statut='f',typ=matr_asse_depl_r ),
9291          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,) ),
9292          NEWMARK         =FACT(statut='f',min=1,max=1,
9293            ALPHA           =SIMP(statut='f',typ='R',defaut= 0.25 ),
9294            DELTA           =SIMP(statut='f',typ='R',defaut= 0.5 ),
9295          ),
9296          WILSON          =FACT(statut='f',min=1,max=1,
9297            THETA           =SIMP(statut='f',typ='R',defaut= 1.4 ),
9298          ),
9299          DIFF_CENTRE     =FACT(statut='f',min=1,max=1,
9300          ),
9301          ADAPT           =FACT(statut='f',min=1,max=1,
9302          ),
9303          ETAT_INIT       =FACT(statut='f',min=1,max=1,
9304            regles=(AU_MOINS_UN('DYNA_TRANS', 'DEPL_INIT', 'VITE_INIT',),
9305                    PRESENT_ABSENT('DYNA_TRANS', 'DEPL_INIT', 'VITE_INIT'),),
9306            DYNA_TRANS      =SIMP(statut='f',typ=dyna_trans ),
9307            b_dyna_trans    =BLOC(condition = "DYNA_TRANS != None",
9308              regles=(EXCLUS('NUME_INIT','INST_INIT' ),),
9309              NUME_INIT       =SIMP(statut='f',typ='I' ),
9310              INST_INIT       =SIMP(statut='f',typ='R' ),
9311              b_inst_init     =BLOC(condition = "INST_INIT != None",
9312                PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9313                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
9314              ),
9315            ),
9316            DEPL_INIT       =SIMP(statut='f',typ=(cham_no_depl_r) ),
9317            VITE_INIT       =SIMP(statut='f',typ=(cham_no_depl_r) ),
9318          ),
9319          EXCIT           =FACT(statut='f',min=1,max='**',
9320            regles=(UN_PARMI('CHARGE','VECT_ASSE'),
9321                    EXCLUS('CHARGE','COEF_MULT'),
9322                    EXCLUS('FONC_MULT','COEF_MULT'),
9323                    EXCLUS('ACCE','COEF_MULT'),
9324                    PRESENT_ABSENT('ACCE','FONC_MULT'),
9325                    PRESENT_PRESENT('ACCE','VITE','DEPL'),
9326                    PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
9327            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
9328            CHARGE          =SIMP(statut='f',typ=char_meca ),
9329            FONC_MULT       =SIMP(statut='f',typ=fonction ),
9330            COEF_MULT       =SIMP(statut='f',typ='R' ),
9331            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
9332            ACCE            =SIMP(statut='f',typ=fonction ),
9333            VITE            =SIMP(statut='f',typ=fonction ),
9334            DEPL            =SIMP(statut='f',typ=fonction ),
9335            MULT_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9336            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
9337            NOEUD           =SIMP(statut='f',typ=no,max='**'),
9338            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
9339          ),
9340          AMOR_MODAL      =FACT(statut='f',min=1,max=1,
9341            MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
9342            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
9343            NB_MODE         =SIMP(statut='f',typ='I',defaut= 9999 ),
9344            REAC_VITE       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9345          ),
9346 #  ce n est pas le mot clesolveur standard
9347          SOLVEUR         =FACT(statut='d',min=1,max=1,
9348            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9349            NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
9350            STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9351            RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
9352            NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
9353          ),
9354          INCREMENT       =FACT(statut='o',min=1,max='**',
9355            regles=(UN_PARMI('LIST_INST','FONC_INST','PAS'),),
9356            LIST_INST       =SIMP(statut='f',typ=listr8 ),
9357            FONC_INST       =SIMP(statut='f',typ=fonction ),
9358            PAS             =SIMP(statut='f',typ='R' ),
9359            b_pas           =BLOC(condition = "PAS != None",
9360                INST_INIT       =SIMP(statut='f',typ='R' ),
9361                INST_FIN        =SIMP(statut='f',typ='R' ),
9362            ),
9363            b_list_fonc     =BLOC(condition = "LIST_INST != None or FONC_INST != None",
9364                regles=(EXCLUS('INST_FIN','NUME_FIN'),),
9365                NUME_FIN        =SIMP(statut='f',typ='I' ),
9366                INST_FIN        =SIMP(statut='f',typ='R' ),
9367            ),
9368            VITE_MIN        =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
9369            COEF_MULT_PAS   =SIMP(statut='f',typ='R',defaut= 1.1 ),
9370            COEF_DIVI_PAS   =SIMP(statut='f',typ='R',defaut= 1.33334 ),
9371            PAS_LIMI_RELA   =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
9372            NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
9373            NMAX_ITER_PAS   =SIMP(statut='f',typ='I',defaut= 16 ),
9374            PAS_CALCUL      =SIMP(statut='f',typ='I',defaut= 1 ),
9375          ),
9376          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
9377            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH', ),),
9378            LIST_ARCH       =SIMP(statut='f',typ=listis ),
9379            PAS_ARCH        =SIMP(statut='f',typ='I' ),
9380            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","VITE","ACCE") ),
9381          ),
9382          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9383          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
9384 )  ;
9385 #& MODIF COMMANDE  DATE 31/01/2003   AUTEUR PBADEL P.BADEL
9386 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9387 # ======================================================================
9388 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9389 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9390 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9391 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9392 # (AT YOUR OPTION) ANY LATER VERSION.
9393 #
9394 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9395 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9396 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9397 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9398 #
9399 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9400 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9401 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9402 # ======================================================================
9403 DYNA_NON_LINE=OPER(nom="DYNA_NON_LINE",op= 70,sd_prod=evol_noli,reentrant='f',
9404                    fr="Analyse mécanique dynamique non linéaire",docu="U4.53.01-f2",
9405             UIinfo={"groupes":("Résolution",)},
9406          regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS',),
9407                  UN_PARMI('NEWMARK','HHT', ),),
9408          MODELE          =SIMP(statut='o',typ=modele),
9409          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
9410          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,)),
9411          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
9412          EXCIT           =FACT(statut='o',min=1,max='**',
9413            regles=(PRESENT_ABSENT('FONC_MULT','ACCE'),
9414                    PRESENT_PRESENT('ACCE','VITE','DEPL'),
9415                    PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
9416            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
9417                                  into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
9418            CHARGE          =SIMP(statut='o',typ=char_meca),
9419            FONC_MULT       =SIMP(statut='f',typ=fonction),
9420            DEPL            =SIMP(statut='f',typ=fonction),
9421            ACCE            =SIMP(statut='f',typ=fonction),
9422            VITE            =SIMP(statut='f',typ=fonction),
9423            MULT_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9424            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
9425            NOEUD           =SIMP(statut='f',typ=no,max='**'),
9426            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
9427          ),
9428          AMOR_MODAL      =FACT(statut='f',min=1,max=1,
9429            MODE_MECA       =SIMP(statut='f',typ=mode_meca),
9430            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**' ),
9431            NB_MODE         =SIMP(statut='f',typ='I',defaut= 9999 ),
9432            REAC_VITE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9433          ),
9434          VARI_COMM           =FACT(statut='f',
9435            regles=(AU_MOINS_UN('IRRA',),),
9436            IRRA     =SIMP(statut='f',typ=evol_varc),
9437          ),
9438          COMP_INCR       =C_COMP_INCR(),
9439          COMP_ELAS       =FACT(statut='f',min=1,max='**',
9440            RELATION        =SIMP(statut='o',typ='TXM',defaut="ELAS",
9441                                  into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
9442                                        "ELAS_POUTRE_GR","CABLE")),
9443            ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
9444            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
9445            ELAS_VMIS_LINE  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
9446            ELAS_POUTRE_GR  =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
9447            CABLE           =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
9448            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GREEN","GREEN_GR",) ),
9449       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
9450            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9451            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
9452            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
9453          ),
9454 #-------------------------------------------------------------------
9455          ETAT_INIT       =FACT(statut='f',min=1,max=1,
9456            regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','VITE','SIGM','VARI','VARI_NON_LOCAL',),
9457                    EXCLUS('EVOL_NOLI','DEPL',),
9458                    EXCLUS('EVOL_NOLI','VITE'),
9459                    EXCLUS('EVOL_NOLI','SIGM',),
9460                    EXCLUS('EVOL_NOLI','VARI',),
9461                    EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
9462                    EXCLUS('NUME_ORDRE','INST'), ),
9463            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
9464            VITE            =SIMP(statut='f',typ=cham_no_depl_r),
9465            SIGM            =SIMP(statut='f',typ=(cham_elem_sief_r,carte_sief_r)),
9466            VARI            =SIMP(statut='f',typ=cham_elem_vari_r),
9467            VARI_NON_LOCAL  =SIMP(statut='f',typ=cham_no_vanl_r),
9468            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
9469            NUME_ORDRE      =SIMP(statut='f',typ='I'),
9470            INST            =SIMP(statut='f',typ='R'),
9471            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
9472            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
9473            NUME_DIDI       =SIMP(statut='f',typ='I'),
9474            INST_ETAT_INIT  =SIMP(statut='f',typ='R'),
9475          ),
9476 #-------------------------------------------------------------------
9477          INCREMENT       =FACT(statut='o',min=1,max=1,
9478            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
9479                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
9480            LIST_INST       =SIMP(statut='o',typ=listr8),
9481            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
9482                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
9483            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
9484            INST_INIT       =SIMP(statut='f',typ='R'),
9485            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
9486            INST_FIN        =SIMP(statut='f',typ='R'),
9487            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
9488            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
9489            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
9490            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
9491            OPTI_LIST_INST  =SIMP(statut='f',typ='TXM',into=("INCR_MAXI",),),
9492            NOM_CHAM        =SIMP(statut='f',typ='TXM',),
9493            NOM_CMP         =SIMP(statut='f',typ='TXM',),
9494            VALE            =SIMP(statut='f',typ='R'),
9495          ),
9496 #-------------------------------------------------------------------
9497          NEWMARK         =FACT(statut='f',min=1,max=1,
9498            ALPHA           =SIMP(statut='f',typ='R',defaut= 0.25),
9499            DELTA           =SIMP(statut='f',typ='R',defaut= 0.5),
9500          ),
9501          HHT             =FACT(statut='f',min=1,max=1,
9502            ALPHA           =SIMP(statut='f',typ='R'
9503                                 ,defaut= -0.29999999999999999 ),
9504          ),
9505          NEWTON          =FACT(statut='d',min=1,max=1,
9506            REAC_INCR       =SIMP(statut='f',typ='I',defaut= 1 ),
9507            PREDICTION      =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE") ),
9508            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
9509            REAC_ITER       =SIMP(statut='f',typ='I',defaut= 0),
9510            PAS_MINI_ELAS   =SIMP(statut='f',typ='R',defaut=0.0E+0),
9511          ),
9512          SOLVEUR         =FACT(statut='d',min=1,max=1,
9513            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
9514            b_mult_front    =BLOC(condition= "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
9515              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
9516            ),
9517            b_ldlt          =BLOC(condition= "METHODE == 'LDLT'",fr="Paramètres de la méthode LDLT",
9518              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
9519            ),
9520            b_ldlt_mult     =BLOC(condition="METHODE == 'LDLT' or METHODE == 'MULT_FRONT'",
9521                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
9522              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
9523              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","DECOUPE") ),
9524            ),
9525            b_gcpc          =BLOC(condition="METHODE == 'GCPC'",fr="Paramètres de la méthode du gradient conjugué",
9526              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
9527              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut=0),
9528              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
9529              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
9530              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
9531            ),
9532            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9533            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9534          ),
9535 #-------------------------------------------------------------------
9536          RECH_LINEAIRE   =FACT(statut='f',min=1,max=1,
9537            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
9538            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 3),
9539            ITER_LINE_CRIT  =SIMP(statut='f',typ='I',defaut= 20),
9540            PAS_MINI_CRIT   =SIMP(statut='f',typ='R',defaut=0.0E+0),
9541            RHO_MIN         =SIMP(statut='f',typ='R',defaut=1.0E-2),
9542            RHO_MAX         =SIMP(statut='f',typ='R',defaut=1.0E+1),
9543            RHO_EXCL        =SIMP(statut='f',typ='R',defaut=0.9E-2),
9544          ),
9545          PILOTAGE        =FACT(statut='f',min=1,max=1,
9546            regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
9547            TYPE    =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","PRED_ELAS_INCR","DEFORMATION","ANA_LIM") ),
9548            COEF_MULT       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
9549            ETA_PILO_MAX    =SIMP(statut='f',typ='R'),
9550            ETA_PILO_MIN    =SIMP(statut='f',typ='R'),
9551            ETA_PILO_R_MAX  =SIMP(statut='f',typ='R'),
9552            ETA_PILO_R_MIN  =SIMP(statut='f',typ='R'),
9553            PROJ_BORNES     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
9554            SELECTION       =SIMP(statut='f',typ='TXM',defaut="NORM_INCR_DEPL", into=("RESIDU","ANGL_INCR_DEPL","NORM_INCR_DEPL") ),
9555            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9556            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
9557            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
9558            NOEUD           =SIMP(statut='f',typ=no,max='**'),
9559            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
9560            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**' ),
9561                          ),
9562          CONVERGENCE     =FACT(statut='d',min=1,max=1,
9563            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
9564            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
9565            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
9566            ITER_GLOB_ELAS  =SIMP(statut='f',typ='I',defaut=25),
9567            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
9568            RESI_INTE_RELA  =SIMP(statut='f',typ='R'
9569                                 ,defaut= 1.0E-6),
9570            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
9571            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut= 0 ),
9572            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
9573            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
9574                                  into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
9575          ),
9576 #-------------------------------------------------------------------
9577          OPTION          =SIMP(statut='f',typ='TXM',max='**',defaut="ELNO",
9578                                into=("SIEF_ELNO_ELGA","VARI_ELNO_ELGA","EFGE_ELNO_CART","ELNO","SANS") ),
9579          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
9580            regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
9581                    EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
9582            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
9583            INST            =SIMP(statut='f',typ='R',max='**' ),
9584            PAS_ARCH        =SIMP(statut='f',typ='I' ),
9585            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
9586            ARCH_ETAT_INIT  =SIMP(statut='f',typ='TXM',into=("OUI",)),
9587            NUME_INIT       =SIMP(statut='f',typ='I'),
9588            DETR_NUME_SUIV  =SIMP(statut='f',typ='TXM',into=("OUI",)),
9589            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**',
9590            into=("DEPL","SIEF_ELGA","VARI_ELGA","ACCE","VITE","VARI_NON_LOCAL","LANL_ELGA")),
9591          ),
9592          OBSERVATION     =FACT(statut='f',min=1,max='**',
9593            regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
9594                    PRESENT_PRESENT('MAILLE','POINT'),),
9595            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
9596
9597 into=("DEPL","VITE","ACCE","SIEF_ELGA","VARI_ELGA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU") ),
9598            NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
9599            LIST_ARCH       =SIMP(statut='f',typ=listis),
9600            LIST_INST       =SIMP(statut='f',typ=listr8),
9601            INST            =SIMP(statut='f',typ='R',max='**' ),
9602            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
9603            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
9604            PAS_OBSE        =SIMP(statut='f',typ='I'),
9605            NOEUD           =SIMP(statut='f',typ=no,max='**'),
9606            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
9607            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
9608            POINT           =SIMP(statut='f',typ='I',max='**'),
9609          ),
9610 #-------------------------------------------------------------------
9611            SOLV_NON_LOCAL  =FACT(statut='f',min=1,max=1,
9612              METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
9613              b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
9614                RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
9615              ),
9616              b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
9617                RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
9618              ),
9619              b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
9620                                     fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
9621                NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
9622                STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9623              ),
9624              b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
9625                PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
9626                NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
9627                RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
9628                NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
9629              ),
9630              EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9631            ),
9632            LAGR_NON_LOCAL  =FACT(statut='f',max=1,
9633              ITER_DUAL_MAXI  =SIMP(statut='f',typ='I',defaut= 50),
9634              RESI_DUAL_ABSO  =SIMP(statut='o',typ='R'),
9635              RESI_PRIM_ABSO  =SIMP(statut='o',typ='R'),
9636              R               =SIMP(statut='f',typ='R',defaut= 1000.),
9637              ITER_PRIM_MAXI  =SIMP(statut='f',typ='I',defaut= 10),
9638            ),
9639 #-------------------------------------------------------------------
9640          PARM_THETA      =SIMP(statut='f',typ='R'
9641                               ,defaut= 1. ),
9642 #-------------------------------------------------------------------
9643          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
9644          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9645 )  ;
9646 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9647 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9648 # ======================================================================
9649 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9650 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9651 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9652 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9653 # (AT YOUR OPTION) ANY LATER VERSION.
9654 #
9655 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9656 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9657 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9658 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9659 #
9660 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9661 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9662 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9663 # ======================================================================
9664 DYNA_SPEC_MODAL=OPER(nom="DYNA_SPEC_MODAL",op= 147,sd_prod=tabl_intsp,
9665                      fr="Calcul de la réponse par recombinaison modale d'une structure linéaire pour une excitation aléatoire",
9666                      docu="U4.53.23-c",reentrant='n',
9667             UIinfo={"groupes":("Résolution",)},
9668          BASE_ELAS_FLUI  =SIMP(statut='o',typ=melasflu ),
9669          EXCIT           =FACT(statut='o',max=1,
9670            INTE_SPEC_GENE  =SIMP(statut='o',typ=tabl_intsp ),
9671          ),
9672          OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
9673          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9674 )  ;
9675 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9676 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9677 # ======================================================================
9678 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9679 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9680 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9681 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9682 # (AT YOUR OPTION) ANY LATER VERSION.
9683 #
9684 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9685 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9686 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9687 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9688 #
9689 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9690 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9691 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9692 # ======================================================================
9693 DYNA_TRAN_MODAL=OPER(nom="DYNA_TRAN_MODAL",op=  74,sd_prod=tran_gene,
9694                      fr="Réponse dynamique transitoire en coordonnées généralisées par recombinaison modale",
9695                      docu="U4.53.21-f1",reentrant='f',
9696             UIinfo={"groupes":("Résolution",)},
9697       regles=(EXCLUS('AMOR_REDUIT','AMOR_GENE','LIST_AMOR'),
9698               PRESENT_ABSENT('MODE_STAT','MODE_CORR'),),
9699          METHODE         =SIMP(statut='f',typ='TXM',defaut="EULER",
9700                                into=("EULER","NEWMARK","DEVOGE","ADAPT","ITMI") ),
9701          MASS_GENE       =SIMP(statut='o',typ=matr_asse_gene_r ),
9702          RIGI_GENE       =SIMP(statut='o',typ=matr_asse_gene_r ),
9703          AMOR_GENE       =SIMP(statut='f',typ=matr_asse_gene_r ),
9704          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
9705          LIST_AMOR       =SIMP(statut='f',typ=listr8 ),
9706          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc) ),
9707          MODE_CORR       =SIMP(statut='f',typ=(mult_elas,mode_stat_acce) ,),
9708
9709          ETAT_INIT       =FACT(statut='f',min=1,max=1,
9710            regles=(EXCLUS('RESU_GENE','DEPL_INIT_GENE'),
9711                    EXCLUS('RESU_GENE','VITE_INIT_GENE'),),
9712            RESU_GENE       =SIMP(statut='f',typ=tran_gene ),
9713            b_resu_gene     =BLOC(condition = "RESU_GENE != None",
9714              INST_INIT       =SIMP(statut='f',typ='R' ),
9715              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9716              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
9717            ),
9718            DEPL_INIT_GENE  =SIMP(statut='f',typ=vect_asse_gene ),
9719            VITE_INIT_GENE  =SIMP(statut='f',typ=vect_asse_gene ),
9720          ),
9721          INCREMENT       =FACT(statut='o',min=1,max='**',
9722            INST_INIT       =SIMP(statut='f',typ='R' ),
9723            INST_FIN        =SIMP(statut='o',typ='R' ),
9724            PAS             =SIMP(statut='f',typ='R' ),
9725            VERI_PAS        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9726            VITE_MIN        =SIMP(statut='f',typ='TXM',defaut="NORM",into=("MAXI","NORM") ),
9727            COEF_MULT_PAS   =SIMP(statut='f',typ='R',defaut= 1.1 ),
9728            COEF_DIVI_PAS   =SIMP(statut='f',typ='R',defaut= 1.3333334 ),
9729            PAS_LIMI_RELA   =SIMP(statut='f',typ='R',defaut= 1.0E-6 ),
9730            NB_POIN_PERIODE =SIMP(statut='f',typ='I',defaut= 50 ),
9731            NMAX_ITER_PAS   =SIMP(statut='f',typ='I',defaut= 16 ),
9732          ),
9733          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
9734            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH'),),
9735            LIST_ARCH       =SIMP(statut='f',typ=listis ),
9736            PAS_ARCH        =SIMP(statut='f',typ='I' ),
9737          ),
9738
9739          NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 20 ),
9740          RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
9741          LAMBDA          =SIMP(statut='f',typ='R',defaut= 10. ),
9742
9743          EXCIT           =FACT(statut='f',min=1,max='**',
9744            regles=(UN_PARMI('FONC_MULT','COEF_MULT','ACCE'),
9745                    PRESENT_PRESENT('ACCE','VITE','DEPL'),
9746                    PRESENT_PRESENT('D_FONC_DT','D_FONC_DT2'),
9747                    PRESENT_ABSENT('NUME_MODE','VECT_GENE','COEF_MULT'),
9748                    EXCLUS('MULT_APPUI','CORR_STAT'),
9749                    PRESENT_ABSENT('MULT_APPUI','COEF_MULT'),
9750                    PRESENT_ABSENT('MULT_APPUI','FONC_MULT'),),
9751            VECT_GENE       =SIMP(statut='f',typ=vect_asse_gene ),
9752            NUME_MODE       =SIMP(statut='f',typ='I' ),
9753            FONC_MULT       =SIMP(statut='f',typ=fonction ),
9754            COEF_MULT       =SIMP(statut='f',typ='R' ),
9755            ACCE            =SIMP(statut='f',typ=fonction ),
9756            VITE            =SIMP(statut='f',typ=fonction ),
9757            DEPL            =SIMP(statut='f',typ=fonction ),
9758            MULT_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9759            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
9760            b_loca          =BLOC(condition= "DIRECTION != None",
9761              regles=(EXCLUS('NOEUD','GROUP_NO'),),
9762              NOEUD           =SIMP(statut='f',typ=no,max='**'),
9763              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
9764            ),
9765            CORR_STAT       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9766            D_FONC_DT       =SIMP(statut='f',typ=fonction ),
9767            D_FONC_DT2      =SIMP(statut='f',typ=fonction ),
9768          ),
9769          CHOC            =FACT(statut='f',min=1,max='**',
9770            regles=(UN_PARMI('NOEUD_1','GROUP_NO_1' ),
9771                    PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
9772                    PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
9773            INTITULE        =SIMP(statut='f',typ='TXM' ),
9774            NOEUD_1         =SIMP(statut='f',typ=no),
9775            NOEUD_2         =SIMP(statut='f',typ=no),
9776            GROUP_NO_1      =SIMP(statut='f',typ=grno),
9777            GROUP_NO_2      =SIMP(statut='f',typ=grno),
9778            OBSTACLE        =SIMP(statut='o',typ=obstacle ),
9779            ORIG_OBST       =SIMP(statut='f',typ='R',min=3,max=3),
9780            NORM_OBST       =SIMP(statut='o',typ='R',min=3,max=3),
9781            ANGL_VRIL       =SIMP(statut='f',typ='R' ),
9782            JEU             =SIMP(statut='f',typ='R',defaut= 1. ),
9783            DIST_1          =SIMP(statut='f',typ='R',val_min=0.E+0 ),
9784            DIST_2          =SIMP(statut='f',typ='R',val_min=0.E+0 ),
9785            SOUS_STRUC_1    =SIMP(statut='f',typ='TXM' ),
9786            SOUS_STRUC_2    =SIMP(statut='f',typ='TXM' ),
9787            REPERE          =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
9788            RIGI_NOR        =SIMP(statut='f',typ='R' ),
9789            AMOR_NOR        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9790            RIGI_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9791            AMOR_TAN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9792            COULOMB         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9793
9794            LAME_FLUIDE     =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9795            b_lame          =BLOC(condition="LAME_FLUIDE=='OUI'",
9796                ALPHA           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9797                BETA            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9798                CHI             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9799                DELTA           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9800            ),
9801          ),
9802          VERI_CHOC       =FACT(statut='f',min=1,max='**',
9803            STOP_CRITERE    =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
9804            SEUIL           =SIMP(statut='f',typ='R',defaut= 0.5 ),
9805          ),
9806          FLAMBAGE        =FACT(statut='f',min=1,max='**',
9807            regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
9808                    PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
9809                    PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
9810            NOEUD_1         =SIMP(statut='f',typ=no),
9811            NOEUD_2         =SIMP(statut='f',typ=no),
9812            GROUP_NO_1      =SIMP(statut='f',typ=grno),
9813            GROUP_NO_2      =SIMP(statut='f',typ=grno),
9814            OBSTACLE        =SIMP(statut='o',typ=obstacle ),
9815            ORIG_OBST       =SIMP(statut='f',typ='R',max='**'),
9816            NORM_OBST       =SIMP(statut='o',typ='R',max='**'),
9817            ANGL_VRIL       =SIMP(statut='f',typ='R' ),
9818            JEU             =SIMP(statut='f',typ='R',defaut= 1. ),
9819            DIST_1          =SIMP(statut='f',typ='R' ),
9820            DIST_2          =SIMP(statut='f',typ='R' ),
9821            REPERE          =SIMP(statut='f',typ='TXM',defaut="GLOBAL"),
9822            RIGI_NOR        =SIMP(statut='f',typ='R' ),
9823            FNOR_CRIT       =SIMP(statut='f',typ='R' ),
9824            FNOR_POST_FL    =SIMP(statut='f',typ='R' ),
9825            RIGI_NOR_POST_FL=SIMP(statut='f',typ='R' ),
9826          ),
9827          ANTI_SISM       =FACT(statut='f',min=1,max='**',
9828            regles=(UN_PARMI('NOEUD_1','GROUP_NO_1'),
9829                    UN_PARMI('NOEUD_2','GROUP_NO_2'),
9830                    PRESENT_ABSENT('NOEUD_1','GROUP_NO_1'),
9831                    PRESENT_ABSENT('NOEUD_2','GROUP_NO_2'),),
9832            NOEUD_1         =SIMP(statut='f',typ=no),
9833            NOEUD_2         =SIMP(statut='f',typ=no),
9834            GROUP_NO_1      =SIMP(statut='f',typ=grno),
9835            GROUP_NO_2      =SIMP(statut='f',typ=grno),
9836            RIGI_K1         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9837            RIGI_K2         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9838            SEUIL_FX        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9839            C               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9840            PUIS_ALPHA      =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
9841            DX_MAX          =SIMP(statut='f',typ='R',defaut= 1. ),
9842          ),
9843          RELA_EFFO_DEPL  =FACT(statut='f',min=1,max='**',
9844            NOEUD           =SIMP(statut='o',typ=no),
9845            SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
9846            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
9847            RELATION        =SIMP(statut='o',typ=fonction ),
9848          ),
9849          RELA_TRANSIS    =FACT(statut='f',min=1,max='**',
9850            NOEUD           =SIMP(statut='o',typ=no),
9851            SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
9852            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
9853            RELATION        =SIMP(statut='o',typ=fonction ),
9854          ),
9855          RELA_EFFO_VITE  =FACT(statut='f',min=1,max='**',
9856            NOEUD           =SIMP(statut='o',typ=no),
9857            SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
9858            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
9859            RELATION        =SIMP(statut='o',typ=fonction ),
9860          ),
9861          b_itmi          =BLOC(condition = "METHODE=='ITMI'",
9862                 regles=(ENSEMBLE('BASE_ELAS_FLUI','NUME_VITE_FLUI'),),
9863                 BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu ),
9864                 NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
9865                 ETAT_STAT       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9866                 PREC_DUREE      =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
9867                 CHOC_FLUI       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9868                 NB_MODE         =SIMP(statut='f',typ='I' ),
9869                 NB_MODE_FLUI    =SIMP(statut='f',typ='I' ),
9870                 NB_MODE_DIAG    =SIMP(statut='f',typ='I' ),
9871                 TS_REG_ETAB     =SIMP(statut='f',typ='R' ),
9872          ),
9873          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
9874          IMPRESSION      =FACT(statut='f',min=1,max='**',
9875            regles=(EXCLUS('TOUT','NIVEAU'),),
9876            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9877            NIVEAU          =SIMP(statut='f',typ='TXM',into=("DEPL_LOC","VITE_LOC","FORC_LOC","TAUX_CHOC") ),
9878            INST_INIT       =SIMP(statut='f',typ='R' ),
9879            INST_FIN        =SIMP(statut='f',typ='R' ),
9880          ),
9881          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9882  )  ;
9883 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9884 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9885 # ======================================================================
9886 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9887 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9888 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9889 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9890 # (AT YOUR OPTION) ANY LATER VERSION.
9891 #
9892 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9893 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9894 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9895 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9896 #
9897 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9898 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9899 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9900 # ======================================================================
9901 # RESPONSABLE VABHHTS J.PELLET
9902 ENGENDRE_TEST=PROC(nom="ENGENDRE_TEST",op=178,docu="U4.92.11-b",
9903             UIinfo={"groupes":("Impression",)},
9904       regles=(UN_PARMI('TOUT','CO'),),
9905          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
9906          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
9907          CO              =SIMP(statut='f',typ=assd,max='**'),
9908          TYPE_TEST       =SIMP(statut='f',typ='TXM',defaut="SOMME",into=("SOMME","RESUME") ),
9909          FORMAT_R        =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
9910          PREC_R          =SIMP(statut='f',typ='TXM',defaut="1.E-5"),
9911 )  ;
9912 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9913 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9914 # ======================================================================
9915 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9916 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9917 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9918 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9919 # (AT YOUR OPTION) ANY LATER VERSION.
9920 #
9921 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9922 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9923 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9924 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9925 #
9926 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9927 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9928 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9929 # ======================================================================
9930 EXEC_LOGICIEL=PROC(nom="EXEC_LOGICIEL",op= 183,fr="",docu="U7.00.01-a",
9931             UIinfo={"groupes":("Impression",)},
9932          LOGICIEL        =SIMP(statut='f',typ='TXM' ),
9933          ARGUMENT        =FACT(statut='f',min=1,max='**',
9934            NOM_PARA        =SIMP(statut='f',typ='TXM' ),
9935          ),
9936 )  ;
9937 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9938 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9939 # ======================================================================
9940 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9941 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
9942 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
9943 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
9944 # (AT YOUR OPTION) ANY LATER VERSION.
9945 #
9946 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
9947 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
9948 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
9949 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
9950 #
9951 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
9952 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
9953 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
9954 # ======================================================================
9955 def extr_mode_prod(FILTRE_MODE,**args):
9956   vale=FILTRE_MODE[0]['MODE']
9957   if AsType(vale) == mode_meca   : return mode_meca
9958   if AsType(vale) == mode_meca_c : return mode_meca_c
9959   if AsType(vale) == mode_gene   : return mode_gene
9960   raise AsException("type de concept resultat non prevu")
9961
9962 EXTR_MODE=OPER(nom="EXTR_MODE",op= 168,sd_prod=extr_mode_prod,
9963                docu="U4.52.12-c",reentrant='n',
9964             UIinfo={"groupes":("Résolution",)},
9965          FILTRE_MODE     =FACT(statut='o',min=1,max='**',
9966            regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','NUME_MODE','NUME_MODE_EXCLU','FREQ_MIN','CRIT_EXTR',),),
9967            MODE            =SIMP(statut='o',typ=(mode_meca,mode_meca_c,mode_gene ) ),
9968            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
9969            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
9970            NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
9971            NUME_MODE_EXCLU =SIMP(statut='f',typ='I',max='**'),
9972            FREQ_MIN        =SIMP(statut='f',typ='R' ),
9973            CRIT_EXTR       =SIMP(statut='f',typ='TXM',into=("MASS_EFFE_UN","MASS_GENE") ),
9974            b_freq_min      =BLOC(condition = "FREQ_MIN != None",
9975              FREQ_MAX        =SIMP(statut='o',typ='R' ),
9976              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9977            ),
9978            b_crit_extr     =BLOC(condition = "CRIT_EXTR != None",
9979              SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
9980            ),
9981          ),
9982          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
9983          IMPRESSION      =FACT(statut='f',min=1,max=1,
9984            CUMUL           =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
9985            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",into=("MASS_EFFE_UN","MASS_GENE") ),
9986          ),
9987 )  ;
9988 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
9989 #            CONFIGURATION MANAGEMENT OF EDF VERSION
9990 # ======================================================================
9991 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
9992 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
9993 #              REDISTRIBUTION OF THIS FILE.
9994 # ======================================================================
9995 def extr_resu_prod(RESULTAT,**args):
9996   if AsType(RESULTAT) == evol_elas    : return evol_elas
9997   if AsType(RESULTAT) == evol_noli    : return evol_noli
9998   if AsType(RESULTAT) == evol_ther    : return evol_ther
9999   if AsType(RESULTAT) == dyna_trans   : return dyna_trans
10000   if AsType(RESULTAT) == dyna_harmo   : return dyna_harmo
10001   if AsType(RESULTAT) == acou_harmo   : return acou_harmo
10002   if AsType(RESULTAT) == mode_meca    : return mode_meca
10003   if AsType(RESULTAT) == mode_acou    : return mode_acou
10004   if AsType(RESULTAT) == mode_stat :    return mode_stat
10005   if AsType(mode_stat) == mode_stat_depl :    return mode_stat_depl
10006   if AsType(mode_stat) == mode_stat_acce :    return mode_stat_acce
10007   if AsType(mode_stat) == mode_stat_forc :    return mode_stat_forc
10008   if AsType(RESULTAT) == mult_elas    : return mult_elas
10009   if AsType(RESULTAT) == fourier_elas : return fourier_elas
10010   raise AsException("type de concept resultat non prevu")
10011
10012 EXTR_RESU=OPER(nom="EXTR_RESU",op=176,sd_prod=extr_resu_prod,docu="U4.71.04-c2",reentrant='f',
10013             UIinfo={"groupes":("Résultats et champs",)},
10014          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
10015                                                mode_acou,mode_stat_depl,mode_stat_acce,mode_stat_forc,evol_ther,evol_noli,
10016                                                mult_elas,fourier_elas ) ),
10017
10018          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
10019                                    fr="Liste des paramètres de sensibilité.",
10020                                    ang="List of sensitivity parameters"),
10021
10022          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
10023            regles=(  UN_PARMI('NUME_ORDRE', 'INST', 'FREQ', 'NUME_MODE',
10024                         'NOEUD_CMP', 'LIST_INST', 'LIST_FREQ', 'LIST_ORDRE',
10025                         'NOM_CAS', 'LIST_ARCH', 'PAS_ARCH' ),
10026                      EXCLUS( 'CHAM_EXCLU','NOM_CHAM' ),   ),
10027            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**'),
10028            NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
10029            PRECISION       =SIMP(statut='f',typ='R',defaut=1.E-3 ),
10030            CRITERE         =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),defaut="RELATIF"),
10031            LIST_ARCH       =SIMP(statut='f',typ=listis),
10032            PAS_ARCH        =SIMP(statut='f',typ='I'),
10033            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
10034            LIST_ORDRE      =SIMP(statut='f',typ=listis),
10035            INST            =SIMP(statut='f',typ='R',max='**'),
10036            LIST_INST       =SIMP(statut='f',typ=listr8),
10037            FREQ            =SIMP(statut='f',typ='R',max='**'),
10038            LIST_FREQ       =SIMP(statut='f',typ=listr8),
10039            NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
10040            NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
10041            NOM_CAS         =SIMP(statut='f',typ='TXM'),
10042                                ),
10043
10044          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
10045 )  ;
10046 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10047 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10048 # ======================================================================
10049 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10050 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10051 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10052 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10053 # (AT YOUR OPTION) ANY LATER VERSION.
10054 #
10055 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10056 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10057 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10058 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10059 #
10060 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10061 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10062 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10063 # ======================================================================
10064 def fact_grad_prod(MATR_ASSE,**args):
10065   if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
10066   if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
10067   if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
10068   raise AsException("type de concept resultat non prevu")
10069
10070 FACT_GRAD=OPER(nom="FACT_GRAD",op=85,sd_prod=fact_grad_prod,docu="U4.55.03-e",
10071             UIinfo={"groupes":("Résolution",)},
10072                fr="Préconditionnement pour résolution par gradient conjugué",
10073                reentrant='n',
10074          MATR_ASSE       =SIMP(statut='o',
10075                                typ=(matr_asse_depl_r,matr_asse_temp_r,
10076                                     matr_asse_pres_r) ),
10077          PRE_COND        =SIMP(statut='f',typ='TXM',defaut="LDLT_INC",into=("LDLT_INC",) ),
10078          NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
10079          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
10080 )  ;
10081 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10082 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10083 # ======================================================================
10084 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10085 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10086 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10087 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10088 # (AT YOUR OPTION) ANY LATER VERSION.
10089 #
10090 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10091 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10092 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10093 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10094 #
10095 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10096 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10097 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10098 # ======================================================================
10099 FACT_INTE_SPEC=OPER(nom="FACT_INTE_SPEC",op= 117,sd_prod=interspfact,
10100                     fr="Factorisation d une matrice interspectrale hermitienne",
10101                     docu="U4.36.04-e",reentrant='n',
10102             UIinfo={"groupes":("Fonction",)},
10103          regles=(ENSEMBLE('FREQ_FIN','NB_POIN'),),
10104 #  regle non indiquée dans la doc U
10105          INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
10106          NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
10107          FREQ_INIT       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
10108          FREQ_FIN        =SIMP(statut='f',typ='R' ),
10109          NB_POIN         =SIMP(statut='f',typ='I',defaut= 0 ),
10110          SUR_ECHAN       =SIMP(statut='f',typ='R',defaut= 1. ),
10111          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
10112 )  ;
10113 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10114 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10115 # ======================================================================
10116 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10117 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10118 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10119 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10120 # (AT YOUR OPTION) ANY LATER VERSION.
10121 #
10122 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10123 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10124 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10125 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10126 #
10127 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10128 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10129 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10130 # ======================================================================
10131 # RESPONSABLE VABHHTS J.PELLET
10132 def fact_ldlt_prod(MATR_ASSE,**args):
10133   if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
10134   if AsType(MATR_ASSE) == matr_asse_depl_c : return matr_asse_depl_c
10135   if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
10136   if AsType(MATR_ASSE) == matr_asse_temp_c : return matr_asse_temp_c
10137   if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
10138   if AsType(MATR_ASSE) == matr_asse_pres_c : return matr_asse_pres_c
10139   raise AsException("type de concept resultat non prevu")
10140
10141 FACT_LDLT=OPER(nom="FACT_LDLT",op=14,sd_prod=fact_ldlt_prod,fr="Factorisation en place ou hors place",
10142                docu="U4.55.01-f",reentrant='f',
10143             UIinfo={"groupes":("Résolution",)},
10144          regles=(EXCLUS('BLOC_DEBUT','DDL_DEBUT'),
10145                  EXCLUS('BLOC_FIN','DDL_FIN'),),
10146          MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
10147                                                matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
10148          STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10149          NPREC           =SIMP(statut='f',typ='I',defaut=8,val_min=0,),
10150          PRE_COND        =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","DIAG") ),
10151          BLOC_DEBUT      =SIMP(statut='f',typ='I',val_min=1,),
10152          DDL_DEBUT       =SIMP(statut='f',typ='I',val_min=1,),
10153          BLOC_FIN        =SIMP(statut='f',typ='I',val_min=1,),
10154          DDL_FIN         =SIMP(statut='f',typ='I',val_min=1,),
10155 #
10156          EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
10157 #
10158          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
10159          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
10160 )  ;
10161 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10162 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10163 # ======================================================================
10164 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10165 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10166 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10167 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10168 # (AT YOUR OPTION) ANY LATER VERSION.
10169 #
10170 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10171 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10172 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10173 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10174 #
10175 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10176 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10177 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10178 # ======================================================================
10179 # NEW 5.3.23
10180 FERMER=PROC(nom="FERMER",op=  10,fr=" ",
10181             docu="U4.12.02-a",
10182             UIinfo={"groupes":("Gestion du travail",)},
10183          UNITE           =SIMP(statut='o',typ='I',max='**' ),
10184 )  ;
10185 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10186 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10187 # ======================================================================
10188 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10189 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10190 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10191 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10192 # (AT YOUR OPTION) ANY LATER VERSION.
10193 #
10194 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10195 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10196 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10197 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10198 #
10199 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10200 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10201 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10202 # ======================================================================
10203 FIN=PROC(nom="FIN",op=9999,repetable='n',fr="Fin d'une étude",
10204          docu="U4.11.02-f",
10205             UIinfo={"groupes":("Gestion du travail",)},
10206          RETASSAGE       =SIMP(fr="provoque le retassage de la base GLOBALE",
10207                                statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
10208          PERFORMANCE     =SIMP(fr="provoque l'impression d'un résumé des mesures de temps ",
10209                                statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
10210          INFO_RESU       =SIMP(fr="provoque l'impression des informations sur les structures de données",
10211                                statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
10212          FICHIER         =SIMP(statut='f',typ='TXM',defaut="MESSAGE"),
10213 )  ;
10214 #& MODIF COMMANDE  DATE 15/10/2002   AUTEUR DURAND C.DURAND
10215 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10216 # ======================================================================
10217 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10218 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10219 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10220 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10221 # (AT YOUR OPTION) ANY LATER VERSION.
10222 #
10223 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10224 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10225 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10226 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10227 #
10228 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10229 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10230 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10231 # ======================================================================
10232 FONC_FLUI_STRU=OPER(nom="FONC_FLUI_STRU",op= 169,sd_prod=fonction,
10233                     docu="U4.35.02-c",reentrant='n',
10234             UIinfo={"groupes":("Fonction",)},
10235          TYPE_FLUI_STRU  =SIMP(statut='o',typ=(type_flui_stru) ),
10236 )  ;
10237 #& MODIF COMMANDE  DATE 20/01/2003   AUTEUR DURAND C.DURAND
10238 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10239 # ======================================================================
10240 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10241 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10242 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10243 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10244 # (AT YOUR OPTION) ANY LATER VERSION.
10245 #
10246 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10247 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10248 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10249 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10250 #
10251 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10252 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10253 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10254 # ======================================================================
10255 FORMULE = FORM( nom='FORMULE',op=ops.build_formule,sd_prod=fonction,
10256                 fr="Définition d une fonction",reentrant = 'n',
10257                 regles=(UN_PARMI('REEL','ENTIER','COMPLEXE'),),
10258                 REEL = SIMP(typ = 'shell',max=1),
10259                 ENTIER = SIMP(typ = 'shell',max=1),
10260                 COMPLEXE = SIMP(typ = 'shell',max=1),
10261 ) ;
10262 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10263 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10264 # ======================================================================
10265 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10266 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10267 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10268 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10269 # (AT YOUR OPTION) ANY LATER VERSION.
10270 #
10271 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10272 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10273 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10274 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10275 #
10276 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10277 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10278 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10279 # ======================================================================
10280 GENE_FONC_ALEA=OPER(nom="GENE_FONC_ALEA",op= 118,sd_prod=tabl_fonc,
10281                     fr="Génération de la fonction temporelle à partir d une matrice interspectrale factorisée",
10282                     docu="U4.36.05-e",reentrant='n',
10283             UIinfo={"groupes":("Fonction",)},
10284          INTE_SPEC_FACT  =SIMP(statut='o',typ=interspfact ),
10285          INIT_ALEA       =SIMP(statut='f',typ='I',defaut= 12312745 ),
10286          NB_TIRAGE       =SIMP(statut='f',typ='I',defaut= 1 ),
10287          NB_POIN         =SIMP(statut='f',typ='I' ),
10288          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
10289 )  ;
10290 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10291 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10292 # ======================================================================
10293 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
10294 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10295 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10296 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10297 # (AT YOUR OPTION) ANY LATER VERSION.
10298 #
10299 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10300 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10301 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10302 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10303 #
10304 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10305 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10306 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10307 # ======================================================================
10308 GENE_MATR_ALEA=OPER(nom="GENE_MATR_ALEA",op=  27,sd_prod=matr_asse_gene_r,
10309                fr="Generateur de matrice aleatoire",
10310                docu="U4.36.06",reentrant='n',
10311             UIinfo={"groupes":("Fonction",)},
10312    MATR_MOYEN   = SIMP(statut='o', typ=matr_asse_gene_r),
10313    DELTA        = SIMP(statut='f', typ='R', defaut=0.1),
10314    INIT         = SIMP(statut='f', typ='TXM', into=("OUI","NON"),defaut="NON"),
10315 ) ;
10316
10317 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10318 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10319 # ======================================================================
10320 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
10321 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10322 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10323 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10324 # (AT YOUR OPTION) ANY LATER VERSION.
10325 #
10326 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10327 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10328 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10329 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10330 #
10331 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10332 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10333 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10334 # ======================================================================
10335 GENE_VARI_ALEA=OPER(nom="GENE_VARI_ALEA",op=  28,sd_prod=table,
10336                fr="Generateur de variable aleatoire",
10337                docu="U4.36.07",reentrant='n',
10338             UIinfo={"groupes":("Fonction",)},
10339    TYPE       = SIMP(statut='f', typ='TXM', into=("EXP_TRONQUEE", "EXPONENTIELLE", "GAMMA"), defaut="EXP_TRONQUEE"),
10340    VALE_MOY   = SIMP(statut='f', typ='R', defaut=0.),
10341    DELTA      = SIMP(statut='f', typ='R', defaut=0.1),
10342    A          = SIMP(statut='f', typ='R', defaut=-1.),
10343    B          = SIMP(statut='f', typ='R', defaut=1.),
10344    INIT       = SIMP(statut='f', typ='TXM', into=("OUI","NON"),defaut="NON"),
10345 ) ;
10346
10347 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10348 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10349 # ======================================================================
10350 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10351 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10352 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10353 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10354 # (AT YOUR OPTION) ANY LATER VERSION.
10355 #
10356 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10357 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10358 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10359 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10360 #
10361 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10362 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10363 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10364 # ======================================================================
10365 IMPR_CHARGE=PROC(nom="IMPR_CHARGE",op= 158,
10366                  fr="Impression des charges mécaniques de type ddl imposés et relations linéaires entre les ddl",
10367                  docu="U7.04.31-c",
10368             UIinfo={"groupes":("Fonction",)},
10369          FICHIER         =SIMP(statut='f',typ='TXM' ),
10370          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",) ),
10371          VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10372          CHARGE          =SIMP(statut='o',typ=char_meca,max='**', ),
10373 )  ;
10374 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10375 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10376 # ======================================================================
10377 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10378 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10379 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10380 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10381 # (AT YOUR OPTION) ANY LATER VERSION.
10382 #
10383 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10384 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10385 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10386 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10387 #
10388 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10389 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10390 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10391 # ======================================================================
10392 IMPR_CLASSI=PROC(nom="IMPR_CLASSI",op= 114,docu="U7.04.21-a",
10393             UIinfo={"groupes":("Fonction",)},
10394          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ',
10395                         'LIST_ORDRE' ),),
10396          UNITE_CLASSI    =SIMP(statut='o',typ='I' ),
10397          MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
10398          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10399          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
10400          LIST_ORDRE      =SIMP(statut='f',typ=listis ),
10401          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
10402          FREQ            =SIMP(statut='f',typ='R',max='**'),
10403          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
10404          b_prec_crit     =BLOC(condition = "LIST_FREQ != None or FREQ != None",
10405              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10406              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
10407                                    into=("RELATIF","ABSOLU") ),
10408          ),
10409          IMPRESSION      =FACT(statut='f',min=1,max='**',
10410            regles=(UN_PARMI('NOEUD','GROUP_NO', ),),
10411            NOEUD           =SIMP(statut='f',typ=no,max='**'),
10412            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
10413            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
10414          ),
10415          AMOR            =SIMP(statut='o',typ='R',max='**'),
10416 )  ;
10417 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10418 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10419 # ======================================================================
10420 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10421 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10422 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10423 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10424 # (AT YOUR OPTION) ANY LATER VERSION.
10425 #
10426 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10427 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10428 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10429 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10430 #
10431 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10432 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10433 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10434 # ======================================================================
10435 # RESPONSABLE VABHHTS J.PELLET
10436 IMPR_CO=PROC(nom="IMPR_CO",op=17,docu="U4.91.11-f",
10437             UIinfo={"groupes":("Impression",)},
10438              fr="Impression du contenu d un concept utilisateur (pour développeur)",
10439          regles=(UN_PARMI('CO','CHAINE', ),),
10440          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
10441          NIVEAU          =SIMP(statut='f',typ='I',defaut=2,into=(0,1,2) ),
10442          ATTRIBUT        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","OUI") ),
10443          CONTENU         =SIMP(statut='f',typ='TXM',defaut="OUI",into=("NON","OUI") ),
10444          BASE            =SIMP(statut='f',typ='TXM',defaut="G",into=("","G","V","L") ),
10445          CO              =SIMP(statut='f',typ=assd,max='**'),
10446          CHAINE          =SIMP(statut='f',typ='TXM'),
10447          POSITION        =SIMP(statut='f',typ='I',defaut=1),
10448 )  ;
10449 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10450 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10451 # ======================================================================
10452 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10453 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10454 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10455 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10456 # (AT YOUR OPTION) ANY LATER VERSION.
10457 #
10458 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10459 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10460 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10461 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10462 #
10463 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10464 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10465 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10466 # ======================================================================
10467 # RESPONSABLE MCOURTOI M.COURTOIS
10468 IMPR_COURBE=PROC(nom="IMPR_COURBE",op= 141,fr="Impression, sur fichiers",
10469                  docu="U4.33.01-e2",
10470             UIinfo={"groupes":("Fonction",)},
10471          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
10472          FORMAT          =SIMP(statut='f',typ='TXM',position='global'
10473                               ,into=("AGRAF","EXCEL","POSTSCRIPT","RESULTAT","COMMANDE","SEISME") ),
10474          b_agraf_post =BLOC(condition = "(FORMAT=='AGRAF') or (FORMAT=='POSTSCRIPT')",fr="Mots-clés communs AGRAF et POSTCRIPT",
10475            BORNE_X         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des abcisses"),
10476            ECHELLE_X       =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),fr="Type d'échelle pour les abcisses" ),
10477            BORNE_Y         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des ordonnées"),
10478            ECHELLE_Y       =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),fr="Type d'échelle pour les ordonnées" ),
10479          ),
10480          b_agraf =BLOC(condition = "(FORMAT=='AGRAF')",fr="Mots-clés propres à AGRAF",
10481            TITRE_GRAPHIQUE =SIMP(statut='f',typ='TXM',fr="Titre associé au graphique" ),
10482            COMMENTAIRE     =SIMP(statut='f',typ='TXM',max='**',fr="Commentaires associés au graphique"),
10483            LEGENDE_X       =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des abcisses" ),
10484            LEGENDE_Y       =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des ordonnées" ),
10485            FREQ_GRILLE_X   =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence de tracage du quadrillage vertical" ),
10486            FREQ_GRILLE_Y   =SIMP(statut='f',typ='I',defaut= 0,fr="Fréquence de tracage du quadrillage horizontal" ),
10487          ),
10488          b_excel = BLOC(condition = "(FORMAT=='EXCEL')",fr="Mots-clés propres au format Excel",
10489            BORNE_X         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des abcisses"),
10490            BORNE_Y         =SIMP(statut='f',typ='R',min=2,max=2,fr="Intervalles de variation des ordonnées"),
10491          ),
10492          b_post = BLOC (  condition = "(FORMAT=='POSTSCRIPT')",fr="Mots-clés propres à POSTCRIPT",
10493            TITRE           =SIMP(statut='f',typ='TXM',fr="Titre associé au graphique" ),
10494            LABEL_X         =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des abcisses" ),
10495            LABEL_Y         =SIMP(statut='f',typ='TXM',fr="Légende associée à l axe des ordonnées" ),
10496            SORTIE          =SIMP(statut='f',typ='TXM',defaut="COULEUR",into=("MONOCHROME","COULEUR"),fr="Type d impression" ),
10497            DATE            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de la date" ),
10498            GRILLE          =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression du quadrillage" ),
10499            AXE_ZERO_X      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de l axe x égal zéro" ),
10500            AXE_ZERO_Y      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),fr="Impression de l axe y égal zéro" ),
10501            PRESENTATION    =SIMP(statut='f',typ='TXM',defaut="PAYSAGE",into=("PAYSAGE","PORTRAIT"),
10502                                  fr="Disposition du graphique sur la feuille" ),
10503            FENETRE         =SIMP(statut='f',typ='TXM',defaut="RECTANGLE",into=("CARREE","RECTANGLE"),
10504                                  fr="Forme de la fenetre contenant le graphique" ),
10505          ),
10506          COURBE          =FACT(statut='o',min=1,max='**',fr="Définition de la courbe à tracer",
10507            regles=(UN_PARMI('FONCTION','LIST_RESU','TABLE','FONC_X','RESU_GENE'),),
10508            FONCTION        =SIMP(statut='f',typ=(fonction, fonction_c),
10509                                  fr="Fonction réelle ou complexe", ),
10510            LIST_RESU       =SIMP(statut='f',typ=listr8,
10511                                  fr="Liste des ordonnees d une fonction réelle définie par deux listes", ),
10512 #  creer le type table
10513            TABLE           =SIMP(statut='f',typ=table,
10514                                  fr="Nom de la table dont 2 colonnes définissent la fonction",),
10515            FONC_X          =SIMP(statut='f',typ=fonction,
10516                                  fr="Fonction abscisses d une fonction paramétrique",),
10517            RESU_GENE       =SIMP(statut='f',typ=tran_gene, ),
10518            b_fonction      =BLOC(condition = "FONCTION != None",
10519              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
10520            ),
10521            b_fonction_c  =BLOC(condition = "AsType(FONCTION) == fonction_c",
10522                                  fr="Fonction complexe définie par le mot-clé fonction",
10523              PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
10524            ),
10525            b_list_resu     =BLOC(condition = "LIST_RESU != None",
10526              LIST_PARA       =SIMP(statut='o',typ=listr8 ),
10527            ),
10528            b_table         =BLOC(condition = "TABLE != None",
10529              PARA_X          =SIMP(statut='o',typ='TXM',
10530                                    fr="Paramètre de la table associé aux abcisses de la fonction à tracer" ),
10531              PARA_Y          =SIMP(statut='o',typ='TXM',
10532                                    fr="Paramètre de la table associé aux ordonnées de la fonction à tracer" ),
10533            ),
10534            b_fonc_x        =BLOC(condition = "FONC_X != None",
10535              FONC_Y          =SIMP(statut='o',typ=fonction,fr="Fonction ordonnées d une fonction paramétrique" ),
10536              PARA            =SIMP(statut='f',typ='TXM',defaut="FONC_X",into=("FONC_X","FONC_Y"),
10537                                    fr="Permutation des roles des deux fonctions" ),
10538              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
10539            ),
10540            b_resu_gene     =BLOC(condition = "RESU_GENE != None",
10541              regles=(UN_PARMI('NOEUD_CHOC','GROUP_NO_CHOC'),),
10542              NOEUD_CHOC      =SIMP(statut='f',typ=no),
10543              GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
10544              PARA_X          =SIMP(statut='o',typ='TXM'),
10545              PARA_Y          =SIMP(statut='o',typ='TXM'),
10546              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
10547              SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
10548              INTITULE        =SIMP(statut='f',typ='TXM' ),
10549            ),
10550
10551
10552            LEGENDE         =SIMP(statut='f',typ='TXM',fr="Légende associée à la courbe" ),
10553            STYLE           =SIMP(statut='f',typ='TXM',defaut="LIGNE",fr="Style de la ligne représentant la courbe",
10554                                  into=("LIGNE","POINTILLE","POINT","POINT_RELIE") ),
10555            COULEUR         =SIMP(statut='f',typ='TXM',fr="Couleur associée à la courbe",
10556                                  into=("NOIR","ROUGE","VERT_FONCE","BLEU",
10557                                        "MAGENTA","CYAN","VERT","SIENNE","ORANGE",
10558                                        "POURPRE","JAUNE","DAIM","TURQUOISE","VIOLET",
10559                                        "BRUN","CORAIL","MARRON","MAUVE","MARRON_CLAIR") ),
10560            MARQUEUR        =SIMP(statut='f',typ='TXM',fr="Type du marqueur associé à la courbe",
10561                                  into=("POINT_F","CARRE_F","TRIANGLE_F",
10562                                        "LOSANGE_F","ETOILE_F","FUSEE_F","POINT",
10563                                        "CARRE","TRIANGLE","LOSANGE","ETOILE","FUSEE",
10564                                        "PLUS","X","CERCLE","CERCLE_P","CARRE_P",
10565                                        "LOSANGE_P","CERCLE_P_X","LOSANGE_P_X",
10566                                        "CERCLE_X","CARRE_X","LOSANGE_X") ),
10567             b_agraf =BLOC(condition = "(FORMAT=='AGRAF')",fr="Mots-clés propres à AGRAF",
10568               TRI             =SIMP(statut='f',typ='TXM',defaut="N",
10569                                     fr="Choix du tri effectué sur les abcisses ou sur les ordonnées",
10570                                     into=("N","X","Y","XY","YX") ),
10571               FREQ_MARQUEUR   =SIMP(statut='f',typ='I',defaut= 0,
10572                                     fr="Fréquence d impression du marqueur associé à la courbe", ),
10573             ),
10574          ),
10575 )  ;
10576 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10577 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10578 # ======================================================================
10579 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10580 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10581 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10582 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10583 # (AT YOUR OPTION) ANY LATER VERSION.
10584 #
10585 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10586 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10587 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10588 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10589 #
10590 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10591 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10592 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10593 # ======================================================================
10594 # RESPONSABLE GNICOLAS G.NICOLAS
10595 IMPR_FICO_HOMA=PROC(nom="IMPR_FICO_HOMA",op= 189, docu="U7.04.01-b2",
10596             UIinfo={"groupes":("Fonction",)},
10597                     fr="Imprime le fichier de configuration de HOMARD.",
10598                     ang="Writes the configuration file for HOMARD.",
10599 #
10600 # 1. Le niveau d'information
10601 #
10602          INFO           = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
10603 #
10604 # 2. LE REPERTOIRE OU AURA LIEU LE CALCUL HOMARD
10605 #
10606          REP             =SIMP(statut='f',typ='TXM'),
10607 #
10608 # 3. Langue des messages issus de HOMARD
10609 #
10610          LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
10611                                into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
10612                            fr="Langue des messages issus de HOMARD.",
10613                            ang="Language for HOMARD messages." ),
10614 #
10615 # 4. L'UNITE LOGIQUE D'ECRITURE DU FICHIER DE CONFIGURATION HOMARD
10616 #
10617          UNITE           =SIMP(statut='f',typ='I',defaut= 71 ),
10618 #
10619 # 5. LE TYPE DE TRAITEMENT :
10620 #
10621          TRAITEMENT      =FACT(statut='o',min=1,max=1,
10622 #
10623 # 5.1. QUATRE CHOIX EXCLUSIFS :
10624 #
10625 # 5.1.1.
10626 #      A. ADAPTATION PAR UN INDICATEUR D'ERREUR, AVEC TROIS VARIANTES :
10627 #         . RAFFINEMENT ET DERAFFINEMENT
10628 #         . RAFFINEMENT SEUL
10629 #         . DERAFFINEMENT SEUL
10630 #      B. ADAPTATION UNIFORME, AVEC DEUX VARIANTES :
10631 #         . RAFFINEMENT SEUL
10632 #         . DERAFFINEMENT SEUL
10633 #         . RIEN : LE MAILLAGE EST LE MEME A LA SORTIE ET A L'ENTREE
10634 #      C. INFORMATION SUR UN MAILLAGE
10635 #      D. MISE A JOUR DE SOLUTIONS
10636 #
10637            regles=( UN_PARMI('ADAPTATION','UNIFORME','INFORMATION','MAJSOLUTION'),),
10638            ADAPTATION      =SIMP(statut='f',typ='TXM',
10639                                  fr="Adaptation libre",
10640                                  ang="Free adaptation",
10641                                  into=("RAFFINEMENT","DERAFFINEMENT","RAFF_DERA") ),
10642            UNIFORME        =SIMP(statut='f',typ='TXM',
10643                                  fr="Adaptation uniforme",
10644                                  ang="Uniforme adaptation",
10645                                  into=("RAFFINEMENT","DERAFFINEMENT","RIEN") ),
10646            INFORMATION     =SIMP(statut='f',typ='TXM',
10647                                  fr="Adaptation libre",
10648                                  ang="Free adaptation",
10649                                  into=("OUI",) ),
10650            MAJSOLUTION     =SIMP(statut='f',typ='TXM',
10651                                  fr="Mise à jour de solutions",
10652                                  ang="Solution updating",
10653                                  into=("OUI",) ),
10654 #
10655 # 5.1.2. LES CONTRAINTES :
10656 #
10657 # 5.1.2.1. POUR DE L'ADAPTATION LIBRE, IL FAUT :
10658 #      A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10659 #      B. LE NOM MED DU MAILLAGE D'ENTREE
10660 #      C. LE NOM MED DE L'INDICATEUR D'ERREUR
10661 #      D. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10662 #      E. LA MISE A JOUR DE SOLUTION
10663 #      F. LE NOM MED DU MAILLAGE DE SORTIE
10664 #      REMARQUE : IL FAUT DES CRITERES, MAIS ON NE SAIT PAS LESQUELS
10665 #
10666 # 5.1.2.2. POUR DE L'ADAPTATION UNIFORME
10667 #          IL FAUT :
10668 #      A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10669 #      B. LE NOM MED DU MAILLAGE DE SORTIE
10670 #          IL NE FAUT PAS :
10671 #      A. LE NOM MED DE L'INDICATEUR D'ERREUR
10672 #      B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
10673 #      C. LES CRITERES
10674 #      REMARQUE : A L'ITERATION 0, OU AUX ITERATIONS SUIVANTES SI MAJ DE SOLUTION,
10675 #                 IL FAUT LE NOM MED DU MAILLAGE D'ENTREE
10676 #
10677 # 5.1.2.3. POUR DE LA MISE A JOUR DE SOLUTION :
10678 #          IL FAUT :
10679 #      A. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10680 #      B. LE NOM MED DU MAILLAGE D'ENTREE
10681 #          IL NE FAUT PAS :
10682 #      A. LE NOM MED DE L'INDICATEUR D'ERREUR
10683 #      B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
10684 #      C. LES CRITERES
10685 #
10686 #
10687 # 5.1.2.4. POUR DE L'INFORMATION :
10688 #          IL FAUT :
10689 #      A. LE NOM MED DU MAILLAGE D'ENTREE
10690 #          IL NE FAUT PAS :
10691 #      A. LE NOM MED DE L'INDICATEUR D'ERREUR
10692 #      B. LE NOM DE LA COMPOSANTE DE L'INDICATEUR D'ERREUR
10693 #      C. LES CRITERES
10694 #      D. LE NUMERO D'ITERATION DU MAILLAGE DE DEPART
10695 #      E. LA MISE A JOUR DE SOLUTION
10696 #
10697            b_maillage_initial =BLOC(condition = "( INFORMATION != None ) or ( ADAPTATION != None ) or \
10698                                                  ( MAJSOLUTION != None ) ",
10699                            fr="Nom MED du maillage en entrée",
10700                            ang="MED name of the in-mesh",
10701                            NOM_MED_MAILLAGE_N   =SIMP(statut='o',typ='TXM',),
10702                            ) ,
10703 #
10704            b_maillage_initial_uniforme =BLOC(condition = "( UNIFORME != None ) ",
10705                            fr="Nom MED du maillage en entrée",
10706                            ang="MED name of the in-mesh",
10707                            NOM_MED_MAILLAGE_N   =SIMP(statut='f',typ='TXM',),
10708                            ) ,
10709 #
10710            b_iteration_maj_champ =BLOC(condition = "( UNIFORME != None ) or ( ADAPTATION != None ) or \
10711                                                     ( MAJSOLUTION != None ) ",
10712                            fr="Nom MED du maillage en sortie, numero d'iteration et mise à jour de champs",
10713                            ang="MED name of the out-mesh, iteration rank and field updating",
10714                            NITER                =SIMP(statut='o',typ='I',
10715                            fr="Numéro d'itération.",
10716                            ang="Iteration number." ),
10717                            NOM_MED_MAILLAGE_NP1 =SIMP(statut='o',typ='TXM',
10718                            fr="Nom MED du maillage en sortie",
10719                            ang="MED name of the out-mesh" ),
10720                            MAJ_CHAM             =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10721                            fr="Mise à jour de champs",
10722                            ang="Field updating" ),
10723                            ) ,
10724 #
10725            b_indicateur_d_erreur  =BLOC(condition = "ADAPTATION != None",
10726                            fr="Indicateur d'erreur",
10727                            ang="Error indicator",
10728                            regles=(AU_MOINS_UN('NUMORD_INDICA','NOM_RESU_INDICA'),
10729                                    EXCLUS('NUMORD_INDICA','NOM_RESU_INDICA'),
10730                                    PRESENT_PRESENT('NUMORD_INDICA','NUMPT_INDICA'),
10731                                    PRESENT_PRESENT('NOM_RESU_INDICA','NOM_CHAM_INDICA'),),
10732                            NOM_MED_INDICA  =SIMP(statut='o',typ='TXM',
10733                            fr="Nom MED de l'indicateur d'erreur.",
10734                            ang="MED name of error indicator.",),
10735                            NOM_CMP_INDICA  =SIMP(statut='o',typ='TXM',
10736                            fr="Nom de la composante de l'indicateur d'erreur retenue.",
10737                            ang="Name of the selected component of the error indicator.",),
10738                            NUMORD_INDICA  =SIMP(statut='f',typ='I',
10739                            fr="Numero d'ordre de l'indicateur.",
10740                            ang="Rank number of the error indicator.",),
10741                            NUMPT_INDICA  =SIMP(statut='f',typ='I',
10742                            fr="Numero du pas de temps de l'indicateur.",
10743                            ang="Time step number of the error indicator.",),
10744                            NOM_RESU_INDICA  =SIMP(statut='f',typ='TXM',
10745                            fr="Concept contenant l'indicateur.",
10746                            ang="Conceipt wich contains the error indicator.",),
10747                            NOM_CHAM_INDICA  =SIMP(statut='f',typ='TXM',
10748                            fr="Nom du champ dans le résultat de l'indicateur.",
10749                            ang="Name of the field of the error indicator.",),
10750                            ) ,
10751 #
10752            b_critere_de_raffinement =BLOC( condition = "( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'RAFFINEMENT' )" ,
10753                            fr="Critère de raffinement.",
10754                            ang="Refinement threshold.",
10755                            regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE' ),),
10756                            CRIT_RAFF_ABS   =SIMP(statut='f',typ='R',
10757                                                  fr="Critère absolu",
10758                                                  ang="Absolute threshold"  ),
10759                            CRIT_RAFF_REL   =SIMP(statut='f',typ='R',
10760                                                  fr="Critère relatif",
10761                                                  ang="Relative threshold" ),
10762                            CRIT_RAFF_PE    =SIMP(statut='f',typ='R',
10763                                                  fr="Pourcentage d'éléments",
10764                                                  ang="Percentage of elements" ),
10765                            ) ,
10766 #
10767            b_critere_de_deraffinement =BLOC ( condition = "( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'DERAFFINEMENT' )" ,
10768                            fr="Critère de déraffinement.",
10769                            ang="Unrefinement threshold.",
10770                            regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE' ),),
10771                            CRIT_DERA_ABS   =SIMP(statut='f',typ='R' ,
10772                                                  fr="Critère absolu",
10773                                                  ang="Absolute threshold" ),
10774                            CRIT_DERA_REL   =SIMP(statut='f',typ='R',
10775                                                  fr="Critère relatif",
10776                                                  ang="Relative threshold" ),
10777                            CRIT_DERA_PE    =SIMP(statut='f',typ='R',
10778                                                  fr="Pourcentage d'éléments",
10779                                                  ang="Percentage of elements" ),
10780                            ) ,
10781 #
10782            b_niveau_maximum =BLOC ( condition = " ( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'RAFFINEMENT' ) or \
10783                                                   ( UNIFORME == 'RAFFINEMENT' )" ,
10784                              fr="Niveau maximum de profondeur de raffinement",
10785                              ang="Maximum level for refinement",
10786                              NIVE_MAX        =SIMP(statut='f',typ='I' ),
10787                            ) ,
10788 #
10789            b_niveau_minimum =BLOC ( condition = " ( ADAPTATION == 'RAFF_DERA' ) or ( ADAPTATION == 'DERAFFINEMENT' ) or \
10790                                                   ( UNIFORME == 'DERAFFINEMENT' )" ,
10791                              fr="Niveau minimum de déraffinement",
10792                              ang="Minimum level for unrefinement",
10793                              NIVE_MIN        =SIMP(statut='f',typ='I' ),
10794                            ) ,
10795 #
10796          ),
10797 #
10798 # 6. L'ANALYSE DU MAILLAGE
10799 #
10800          ANALYSE         =FACT(statut='f',min=1,max=1,
10801                                fr="Analyse du maillage.",
10802                                ang="Mesh analysis.",
10803 #
10804 # 6.1. CHOIX NON EXCLUSIFS, AVEC DEUX VARIANTES (OUI/NON) :
10805 #    A. NOMBRE DES ELEMENTS
10806 #    B. QUALITE DES ELEMENTS
10807 #    C. INTERPENETRATION DES ELEMENTS
10808 #    D. CONNEXITE DU MAILLAGE
10809 #    E. TAILLE DES DIFFERENTS SOUS-DOMAINES
10810 #
10811            regles=(AU_MOINS_UN('NOMBRE','QUALITE','INTERPENETRATION','CONNEXITE','TAILLE'),),
10812 #
10813          NOMBRE          =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
10814                           fr="Nombre de noeuds et éléments du maillage",
10815                           ang="Number of nodes and elements in the mesh" ),
10816 #
10817          QUALITE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10818                           fr="Qualité du maillage",
10819                           ang="Mesh quality" ),
10820 #
10821          INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10822                           fr="Controle de la non interpénétration des éléments.",
10823                           ang="Overlapping checking." ),
10824 #
10825          CONNEXITE       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10826                           fr="Connexité du maillage.",
10827                           ang="Mesh connexity." ),
10828 #
10829          TAILLE          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
10830                           fr="Tailles des sous-domaines du maillage.",
10831                           ang="Sizes of mesh sub-domains." ),
10832 #
10833          ),
10834 #
10835 )  ;
10836 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10837 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10838 # ======================================================================
10839 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10840 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10841 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10842 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10843 # (AT YOUR OPTION) ANY LATER VERSION.
10844 #
10845 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10846 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10847 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10848 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10849 #
10850 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10851 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10852 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10853 # ======================================================================
10854 IMPR_GENE=PROC(nom="IMPR_GENE",op= 157,
10855                fr="Calcul du dommage subi par une structure soumise à une sollicitation de type aléatoire",
10856                docu="U4.91.02-c",
10857             UIinfo={"groupes":("Impression",)},
10858          GENE            =FACT(statut='o',min=1,max='**',
10859            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
10860                           'LIST_INST','LIST_FREQ','TOUT_MODE','TOUT_INST','LIST_ORDRE'),
10861                    EXCLUS('TOUT_MODE','NUME_ORDRE','INST','FREQ','NUME_MODE',
10862                           'LIST_INST','LIST_FREQ','TOUT_ORDRE','TOUT_INST','LIST_ORDRE'),
10863                    EXCLUS('TOUT_INST','NUME_ORDRE','INST','FREQ','NUME_MODE',
10864                           'LIST_INST','LIST_FREQ','TOUT_ORDRE','LIST_ORDRE'),
10865                    EXCLUS('TOUT_CMP_GENE','NUME_CMP_GENE'),
10866                    EXCLUS('TOUT_CHAM','NOM_CHAM'),
10867                    EXCLUS('TOUT_PARA','NOM_PARA'),),
10868 #  faut-il faire des blocs selon le type de RESU_GENE
10869            RESU_GENE       =SIMP(statut='o',typ=(vect_asse_gene, tran_gene, mode_gene, harm_gene)),
10870            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
10871            FICHIER         =SIMP(statut='f',typ='TXM' ),
10872            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10873            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
10874            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
10875            TOUT_MODE       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10876            NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
10877            INST            =SIMP(statut='f',typ='R',max='**'),
10878            LIST_INST       =SIMP(statut='f',typ=listr8 ),
10879            TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
10880            FREQ            =SIMP(statut='f',typ='R',max='**'),
10881            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
10882            b_prec_crit     =BLOC(condition = "LIST_FREQ != None or FREQ != None",
10883              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
10884              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
10885                                    into=("RELATIF","ABSOLU") ),
10886            ),
10887            TOUT_CMP_GENE   =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10888            NUME_CMP_GENE   =SIMP(statut='f',typ='I',max='**'),
10889            TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10890            NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
10891            TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10892            NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
10893            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
10894            INFO_CMP_GENE   =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10895            INFO_GENE       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
10896          ),
10897 )  ;
10898 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10899 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10900 # ======================================================================
10901 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10902 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10903 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10904 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10905 # (AT YOUR OPTION) ANY LATER VERSION.
10906 #
10907 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10908 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10909 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10910 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10911 #
10912 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10913 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10914 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10915 # ======================================================================
10916 IMPR_JEVEUX=PROC(nom="IMPR_JEVEUX",op=16,docu="U4.91.21-f",
10917             UIinfo={"groupes":("Impression",)},
10918                  fr="Impression de caractéristiques d'objets JEVEUX (pour développeur)",
10919          ENTITE          =SIMP(fr="choix de l'observation",statut='o',typ='TXM',
10920                                into=("DISQUE","MEMOIRE","REPERTOIRE",
10921                                      "OBJET","ATTRIBUT","SYSTEME") ),
10922          b_objet      =BLOC(condition = "(ENTITE=='OBJET')",
10923             NOMOBJ          =SIMP(fr="nom d'objet",statut='f',typ='TXM' ),
10924             NUMOC           =SIMP(fr="numéro d objet de collection",statut='f',typ='I' ),
10925             NOMOC           =SIMP(fr="nom d'objet de collection",statut='f',typ='TXM' ),
10926          ),
10927          b_attribut   =BLOC(condition = "(ENTITE=='ATTRIBUT')",
10928             NOMOBJ          =SIMP(fr="nom de collection",statut='f',typ='TXM' ),
10929             NOMATR          =SIMP(fr="nom d attribut de collection",statut='f',typ='TXM',
10930                                   into=('$$DESO','$$IADD','$$IADM','$$NOM','$$LONG',
10931                                       '$$LONO','$$LUTI','$$NUM') ),
10932          ),
10933          b_systeme    =BLOC(condition = "(ENTITE=='SYSTEME')",
10934             CLASSE          =SIMP(statut='o',typ='TXM',into=('G','V','L') ),
10935             NOMATR          =SIMP(fr="nom d attribut systeme",statut='f',typ='TXM',
10936                                   into=('$$CARA','$$IADD','$$GENR','$$TYPE','$$ETAT',
10937                                       '$$DOCU','$$ORIG','$$RNOM','$$LTYP','$$LONG',
10938                                       '$$LONO','$$DATE','$$LUTI','$$HCOD','$$INDX',
10939                                       '$$TLEC','$$TECR','$$IADM','$$ACCE') ),
10940          ),
10941          b_repertoire =BLOC(condition = "(ENTITE=='REPERTOIRE')",
10942             CLASSE          =SIMP(statut='f',typ='TXM',into=('G','V','L',' '),defaut=' '),
10943          ),
10944          b_disque     =BLOC(condition = "(ENTITE=='DISQUE')",
10945             CLASSE          =SIMP(statut='f',typ='TXM' ,into=('G','V','L',' '),defaut=' '),
10946          ),
10947          IMPRESSION      =FACT(statut='f',min=1,max=1,
10948            NOM             =SIMP(statut='f',typ='TXM' ),
10949            UNITE           =SIMP(statut='f',typ='I'),
10950          ),
10951          COMMENTAIRE     =SIMP(statut='f',typ='TXM' ),
10952 )  ;
10953 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
10954 #            CONFIGURATION MANAGEMENT OF EDF VERSION
10955 # ======================================================================
10956 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
10957 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
10958 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
10959 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
10960 # (AT YOUR OPTION) ANY LATER VERSION.
10961 #
10962 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
10963 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10964 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
10965 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
10966 #
10967 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
10968 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
10969 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
10970 # ======================================================================
10971 IMPR_MACR_ELEM=PROC(nom="IMPR_MACR_ELEM",op= 160,
10972                     docu="U7.04.33-d1",
10973             UIinfo={"groupes":("Impression",)},
10974          MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
10975          FICHIER         =SIMP(statut='f',typ='TXM' ),
10976          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",
10977                                into=("MISS_3D","IDEAS","CADYRO","PLEXUS") ),
10978          b_ideas         =BLOC(condition = "FORMAT == 'PLEXUS'",
10979            VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10980          ),
10981          b_plexus         =BLOC(condition = "FORMAT == 'IDEAS'",
10982            VERSION          =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
10983          ),
10984          b_miss_3d       =BLOC(condition = "FORMAT == 'MISS_3D'",
10985            UNITE           =SIMP(statut='f',typ='I',defaut= 26 ),
10986            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
10987            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
10988            GROUP_MA_INTERF =SIMP(statut='o',typ=grma,max='**'),
10989 #  Ces trois mots cles sont-ils dans le bon bloc et avec le bon statut
10990            GROUP_MA_FLU_STR=SIMP(statut='f',typ=grma,max='**'),
10991            GROUP_MA_FLU_SOL=SIMP(statut='f',typ=grma,max='**'),
10992            GROUP_MA_SOL_SOL=SIMP(statut='f',typ=grma,max='**'),
10993            IMPR_MODE_MECA  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10994            IMPR_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
10995          ),
10996          b_cadyro        =BLOC(condition = "FORMAT == 'CADYRO'",
10997            SQUELETTE       =SIMP(statut='f',typ=squelette ),
10998            UNITE_MODE_MECA =SIMP(statut='f',typ='I',defaut= 26 ),
10999            UNITE_MODE_STAT =SIMP(statut='f',typ='I',defaut= 27 ),
11000            UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut= 28 ),
11001            IMPR_MODE_MECA  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11002            IMPR_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11003          ),
11004
11005 )  ;
11006 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
11007 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11008 # ======================================================================
11009 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11010 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11011 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11012 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11013 # (AT YOUR OPTION) ANY LATER VERSION.
11014 #
11015 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11016 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11017 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11018 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11019 #
11020 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11021 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11022 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11023 # ======================================================================
11024 IMPR_MATRICE=PROC(nom="IMPR_MATRICE",op= 159,
11025                   fr="Impression des matrices élémentaires et des matrices assemblées",
11026                   docu="U7.04.32-c",
11027             UIinfo={"groupes":("Impression",)},
11028          regles=(AU_MOINS_UN('MATR_ELEM','MATR_ASSE'),),
11029
11030          MATR_ELEM       =FACT(statut='f',min=1,max='**',
11031            FICHIER         =SIMP(statut='f',typ='TXM' ),
11032            FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",
11033                                  into=("IDEAS","RESULTAT") ),
11034            b_format      =BLOC(condition = "FORMAT == 'IDEAS'",
11035              VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
11036            ),
11037 #  créer les types matr_elem  et vect_elem
11038            MATRICE         =SIMP(statut='o',typ=(matr_elem, vect_elem)),
11039 #  Quelle regle pour TOUT, NOEUD, GROUP_NO, MAILLE, GROUP_MA
11040            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11041            NOEUD           =SIMP(statut='f',typ=no,max='**'),
11042            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
11043            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
11044            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
11045            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
11046            GRAIN           =SIMP(statut='f',typ='TXM',defaut="VALEUR",
11047                                  into=("VALEUR","NOEUD","MAILLE") ),
11048            NB_CHIFFRE      =SIMP(statut='f',typ='I',defaut= 4 ),
11049          ),
11050          MATR_ASSE       =FACT(statut='f',min=1,max='**',
11051            FICHIER         =SIMP(statut='f',typ='TXM' ),
11052            FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",
11053                                  into=("IDEAS","RESULTAT") ),
11054            VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
11055 #  créer le type matr_elem
11056            MATRICE         =SIMP(statut='o',typ=matr_asse),
11057 #  Quelle regle pour TOUT, NOEUD, GROUP_NO, MAILLE, GROUP_MA
11058            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11059            NOEUD           =SIMP(statut='f',typ=no,max='**'),
11060            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
11061            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
11062            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
11063            OPTION          =SIMP(statut='f',typ='TXM',defaut="SOUS_MATRICE",
11064                                  into=("SOUS_MATRICE","LIGNE","COLONNE") ),
11065            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
11066            GRAIN           =SIMP(statut='f',typ='TXM',defaut="VALEUR",
11067                                  into=("VALEUR","NOEUD") ),
11068            NB_CHIFFRE      =SIMP(statut='f',typ='I',defaut= 4 ),
11069            VALE_ZERO       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
11070          ),
11071 )  ;
11072 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
11073 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11074 # ======================================================================
11075 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11076 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11077 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11078 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11079 # (AT YOUR OPTION) ANY LATER VERSION.
11080 #
11081 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11082 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11083 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11084 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11085 #
11086 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11087 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11088 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11089 # ======================================================================
11090 IMPR_MISS_3D=PROC(nom="IMPR_MISS_3D",op= 162,
11091                   docu="U7.04.11-c",
11092             UIinfo={"groupes":("Impression",)},
11093          regles=(UN_PARMI('INST_INIT','FREQ_INIT'),
11094                  PRESENT_PRESENT('INST_INIT','INST_FIN'),
11095                  PRESENT_PRESENT('FREQ_INIT','FREQ_FIN'),),
11096          MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
11097          EXCIT           =FACT(statut='f',min=1,max='**',
11098            regles=(UN_PARMI('FONC_MULT','COEF_MULT' ),),
11099            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
11100            FONC_MULT       =SIMP(statut='f',typ=fonction ),
11101            COEF_MULT       =SIMP(statut='f',typ='R' ),
11102          ),
11103          EXCIT_SOL       =FACT(statut='f',min=1,max='**',
11104            DIRECTION       =SIMP(statut='o',typ='R',max='**'),
11105            FONC_SIGNAL     =SIMP(statut='f',typ=fonction ),
11106            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",
11107                                  into=("DEPL","VITE","ACCE","FORC",) ),
11108          ),
11109          INST_INIT       =SIMP(statut='f',typ='R' ),
11110          INST_FIN        =SIMP(statut='f',typ='R' ),
11111          FREQ_INIT       =SIMP(statut='f',typ='R' ),
11112          FREQ_FIN        =SIMP(statut='f',typ='R' ),
11113          PAS             =SIMP(statut='o',typ='R' ),
11114          UNITE           =SIMP(statut='f',typ='I',defaut= 26 ),
11115          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
11116          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11117 )  ;
11118 #& MODIF COMMANDE  DATE 09/12/2002   AUTEUR PABHHHH N.TARDIEU
11119 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11120 # ======================================================================
11121 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11122 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11123 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11124 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11125 # (AT YOUR OPTION) ANY LATER VERSION.
11126 #
11127 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11128 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11129 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11130 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11131 #
11132 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11133 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11134 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11135 # ======================================================================
11136 IMPR_RESU=PROC(nom="IMPR_RESU",op=39,docu="U4.91.01-g1",
11137             UIinfo={"groupes":("Impression",)},
11138                fr="Impression du résultat d un calcul (différents formats)",
11139          MODELE          =SIMP(statut='f',typ=modele),
11140          RESU            =FACT(statut='o',min=1,max='**',
11141            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
11142                                  into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED","GMSH") ),
11143
11144            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
11145              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
11146            ),
11147
11148            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
11149              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
11150            ),
11151
11152            b_format_gmsh  =BLOC(condition="FORMAT=='GMSH'",fr="version post traitement de GMSH",
11153              VERSION         =SIMP(statut='f',typ='R',defaut=1.0,into=(1.0,1.2)),
11154            ),
11155
11156            regles=(AU_MOINS_UN('CHAM_GD','RESULTAT','MAILLAGE'),
11157                    EXCLUS('CHAM_GD','RESULTAT'),),
11158            MAILLAGE        =SIMP(statut='f',typ=(maillage,squelette)),
11159            INFO_MAILLAGE   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11160            CHAM_GD         =SIMP(statut='f',typ=cham_gd),
11161            RESULTAT        =SIMP(statut='f',typ=resultat),# CO() sd a creer !!!
11162
11163            b_sensibilite   =BLOC(condition="RESULTAT != None",
11164                                  fr="Définition des paramètres de sensibilité",
11165                                  ang="Definition of sensitivity parameters",
11166              SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
11167                                    fr="Liste des paramètres de sensibilité.",
11168                                    ang="List of sensitivity parameters"),),
11169
11170            b_extrac        =BLOC(condition="RESULTAT != None",
11171                                  fr="extraction d un champ de grandeur",
11172              regles=(EXCLUS('TOUT_CHAM','NOM_CHAM'),
11173                      EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP',
11174                             'LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS','ANGL'),),
11175              TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
11176              NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
11177
11178              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11179              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
11180              NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
11181              LIST_ORDRE      =SIMP(statut='f',typ=listis),
11182              NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
11183              NOM_CAS         =SIMP(statut='f',typ='TXM',max='**'),
11184              ANGL            =SIMP(statut='f',typ='R',max='**'),
11185              FREQ            =SIMP(statut='f',typ='R',max='**'),
11186              LIST_FREQ       =SIMP(statut='f',typ=listr8),
11187              INST            =SIMP(statut='f',typ='R',max='**'),
11188              LIST_INST       =SIMP(statut='f',typ=listr8),
11189
11190              b_acce_reel     =BLOC(condition="(FREQ != None)or(LIST_FREQ != None)or(INST != None)or(LIST_INST != None)",
11191                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
11192                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
11193              ),
11194            ),
11195
11196            b_parametres    =BLOC(condition="""(RESULTAT != None)and(FORMAT == 'RESULTAT')""",
11197              regles=(EXCLUS('TOUT_PARA','NOM_PARA'),),
11198              INFO_RESU       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11199              TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI","NON",) ),
11200              NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
11201              FORM_TABL       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON","EXCEL") ),
11202            ),
11203
11204            b_cmp=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and\
11205                                    ((FORMAT == 'RESULTAT')or(FORMAT == 'IDEAS')or(FORMAT == 'ENSIGHT')or(FORMAT == 'MED'))""",
11206                                  fr="sélection des composantes",
11207              regles=(EXCLUS('TOUT_CMP','NOM_CMP'),),
11208              TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11209              NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
11210            ),
11211
11212            b_gmsh=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and((FORMAT == 'GMSH'))""",
11213                                  fr="sélection des composantes et des entités toplogiques",
11214              NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
11215              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
11216              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
11217            ),
11218
11219            b_topologie=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and\
11220                                    ((FORMAT == 'RESULTAT')or(FORMAT == 'IDEAS')or(FORMAT == 'MED'))""",
11221                                    fr="sélection des entités toplogiques",
11222              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11223              NOEUD           =SIMP(statut='f',typ=no,max='**'),
11224              GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
11225              MAILLE          =SIMP(statut='f',typ=ma,max='**'),
11226              GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
11227            ),
11228
11229            b_valeurs         =BLOC(condition="(FORMAT == 'RESULTAT')",
11230                                    fr="sélection sur les valeurs",
11231              VALE_MAX        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11232              VALE_MIN        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11233              BORNE_SUP       =SIMP(statut='f',typ='R'),
11234              BORNE_INF       =SIMP(statut='f',typ='R'),
11235              IMPR_COOR       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11236              FORMAT_R        =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
11237            ),
11238
11239            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
11240            FICHIER         =SIMP(statut='f',typ='TXM'),
11241          ),
11242          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
11243 ) ;
11244 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
11245 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11246 # ======================================================================
11247 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11248 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11249 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11250 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11251 # (AT YOUR OPTION) ANY LATER VERSION.
11252 #
11253 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11254 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11255 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11256 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11257 #
11258 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11259 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11260 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11261 # ======================================================================
11262 IMPR_STURM=PROC(nom="IMPR_STURM",op=32,fr="Calculer et imprimer le nombre de valeurs propres dans un intervalle donné",
11263                 docu="U4.52.01-f",
11264             UIinfo={"groupes":("Résolution",)},
11265          MATR_A          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
11266          MATR_B          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
11267          TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="DYNAMIQUE",into=("MODE_FLAMB","DYNAMIQUE"),
11268                                fr="Type d analyse" ),
11269          b_dynamique  =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
11270                             fr="Recheche du nombre de fréquences propres",
11271              FREQ_MIN        =SIMP(statut='f',typ='R',defaut= 0.E+0 ,fr="Borne inférieure de l intervalle" ),
11272              FREQ_MAX        =SIMP(statut='o',typ='R',fr="Borne supérieure de l intervalle" ),
11273          ),
11274          b_mode_flamb =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
11275                             fr="Recherche du nombre de charges critiques",
11276              CHAR_CRIT_MIN   =SIMP(statut='o',typ='R',fr="Borne inférieure de l intervalle" ),
11277              CHAR_CRIT_MAX   =SIMP(statut='o',typ='R',fr="Borne supérieure de l intervalle" ),
11278          ),
11279          NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8 ),
11280          NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
11281          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
11282          PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
11283          SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
11284 )  ;
11285 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
11286 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11287 # ======================================================================
11288 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11289 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11290 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11291 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11292 # (AT YOUR OPTION) ANY LATER VERSION.
11293 #
11294 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11295 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11296 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11297 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11298 #
11299 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11300 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11301 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11302 # ======================================================================
11303 # RESPONSABLE VABHHTS J.PELLET
11304 IMPR_TABLE=PROC(nom="IMPR_TABLE",op=155,docu="U4.91.03-d2",
11305             UIinfo={"groupes":("Impression",)},
11306                 fr="Impression d un concept de type table",
11307          TABLE           =SIMP(statut='o',typ=table),
11308          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT", ),
11309          FORMAT          =SIMP(statut='f',typ='TXM',defaut="EXCEL",
11310                                into=("EXCEL","AGRAF","MOT_CLE","TABLEAU","ASTER") ),
11311          FILTRE          =FACT(statut='f',min=1,max='**',
11312            NOM_PARA        =SIMP(statut='o',typ='TXM'),
11313            CRIT_COMP       =SIMP(statut='f',typ='TXM',defaut="EQ",
11314                                  into=("EQ","LT","GT","NE","LE","GE","VIDE",
11315                                        "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
11316            b_vale          =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
11317               regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
11318               VALE            =SIMP(statut='f',typ='R'),
11319               VALE_I          =SIMP(statut='f',typ='I'),
11320               VALE_C          =SIMP(statut='f',typ='C'),
11321               VALE_K          =SIMP(statut='f',typ='TXM'),),
11322
11323            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
11324            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11325          ),
11326          TRI             =FACT(statut='f',min=1,max=1,
11327            NOM_PARA        =SIMP(statut='o',typ='TXM',max='**'),
11328            ORDRE           =SIMP(statut='f',typ='TXM',max='**',defaut="CROISSANT",
11329                                  into=("CROISSANT","DECROISSANT") ),
11330            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
11331            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11332          ),
11333          PAGINATION      =SIMP(statut='f',typ='TXM',max='**'),
11334          FORMAT_R        =SIMP(statut='f',typ='TXM',defaut="1PE12.5"),
11335          FORMAT_C        =SIMP(statut='f',typ='TXM',defaut="MODULE_PHASE",
11336                                     into=("MODULE_PHASE","REEL_IMAG") ),
11337          NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
11338          TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI",)),
11339          IMPR_FONCTION   =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11340 )  ;
11341 #& MODIF COMMANDE  DATE 20/01/2003   AUTEUR DURAND C.DURAND
11342 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11343 # ======================================================================
11344 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11345 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11346 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11347 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11348 # (AT YOUR OPTION) ANY LATER VERSION.
11349 #
11350 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11351 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11352 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11353 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11354 #
11355 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11356 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11357 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11358 # ======================================================================
11359 INCLUDE=MACRO(nom="INCLUDE",op=ops.build_include,docu="U4.13.01-e",
11360             UIinfo={"groupes":("Gestion du travail",)},
11361              fr="Débranchement vers un fichier de commandes secondaires",
11362              sd_prod=ops.INCLUDE,op_init=ops.INCLUDE_context,fichier_ini=1,
11363          UNITE = SIMP(statut='o',typ='I'),
11364          INFO  = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
11365 );
11366 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
11367 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11368 # ======================================================================
11369 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11370 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11371 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11372 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11373 # (AT YOUR OPTION) ANY LATER VERSION.
11374 #
11375 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11376 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11377 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11378 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11379 #
11380 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11381 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11382 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11383 # ======================================================================
11384 INCLUDE_MATERIAU=MACRO(nom="INCLUDE_MATERIAU",op=-14,docu="U4.43.02-a",
11385             UIinfo={"groupes":("Modélisation",)},
11386                        fr=" ",
11387          sd_prod=ops.INCLUDE_MATERIAU,op_init=ops.INCLUDE_context,fichier_ini=0,
11388          NOM_AFNOR       =SIMP(statut='o',typ='TXM' ),
11389          TYPE_MODELE     =SIMP(statut='o',typ='TXM',into=("REF","PAR") ),
11390          VARIANTE        =SIMP(statut='o',typ='TXM',
11391                                into=("A","B","C","D","E","F","G","H","I","J",
11392                                      "K","L","M","N","O","P","Q","R","S","T","U","V",
11393                                      "W","X","Y","Z",) ),
11394          TYPE_VALE       =SIMP(statut='o',typ='TXM',into=("NOMI","MINI","MAXI") ),
11395          NOM_MATER       =SIMP(statut='o',typ='TXM' ),
11396          UNITE           =SIMP(statut='f',typ='I',defaut= 32 ),
11397          EXTRACTION      =FACT(statut='f',min=1,max=99,
11398            COMPOR          =SIMP(statut='o',typ='TXM' ),
11399            TEMP_EVAL       =SIMP(statut='o',typ='R' ),
11400          ),
11401          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11402 )  ;
11403 #& MODIF COMMANDE  DATE 03/12/2002   AUTEUR D6BHHJP J.P.LEFEBVRE
11404 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11405 # ======================================================================
11406 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
11407 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11408 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11409 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11410 # (AT YOUR OPTION) ANY LATER VERSION.
11411 #
11412 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11413 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11414 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11415 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11416 #
11417 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11418 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11419 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11420 # ======================================================================
11421 # RESPONSABLE D6BHHJP J.P.LEFEBVRE
11422 INFO_EXEC_ASTER=OPER(nom="INFO_EXEC_ASTER",op=35,sd_prod=table,
11423                     fr="Récupère différentes informations propres à l'exécution en cours",
11424                     docu="U4.00.00-a1",reentrant='n',
11425                     UIinfo={"groupes":("Gestion du travail",)},
11426
11427          regles=(),
11428          LISTE_INFO      =SIMP(statut='o',typ='TXM',max='**',
11429                                into=("CPU_RESTANT","CPU",),),
11430
11431          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11432          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
11433 )  ;
11434 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
11435 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11436 # ======================================================================
11437 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11438 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11439 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11440 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11441 # (AT YOUR OPTION) ANY LATER VERSION.
11442 #
11443 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11444 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11445 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11446 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11447 #
11448 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11449 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11450 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11451 # ======================================================================
11452 # RESPONSABLE G8BHHXD X.DESROCHES
11453 INTE_MAIL_2D=OPER(nom="INTE_MAIL_2D",op=50,sd_prod=courbe,docu="U4.81.11-e",
11454             UIinfo={"groupes":("Post traitements",)},
11455                   fr="Définition d une courbe sur un maillage 2D",reentrant='n',
11456
11457          MAILLAGE        =SIMP(statut='o',typ=(maillage) ),
11458
11459          regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
11460                  AU_MOINS_UN('DEFI_SEGMENT','DEFI_ARC','DEFI_CHEMIN'),
11461                  PRESENT_ABSENT('DEFI_CHEMIN','DEFI_SEGMENT','DEFI_ARC'),
11462                  PRESENT_ABSENT('DEFI_SEGMENT','NOEUD_ORIG','GROUP_NO_ORIG'),
11463                  PRESENT_ABSENT('DEFI_ARC','NOEUD_ORIG','GROUP_NO_ORIG'),
11464                  EXCLUS('NOEUD_ORIG','GROUP_NO_ORIG'),
11465                  EXCLUS('DEFI_CHEMIN','DEFI_SEGMENT'),
11466                  EXCLUS('DEFI_CHEMIN','DEFI_ARC'),),
11467
11468          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11469          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
11470          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
11471
11472          DEFI_SEGMENT    =FACT(statut='f',min=1,max='**',
11473            regles=(UN_PARMI('ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
11474                    UN_PARMI('EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),),
11475            ORIGINE         =SIMP(statut='f',typ='R',min=2,max=2),
11476            NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
11477            GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
11478            EXTREMITE       =SIMP(statut='f',typ='R',min=2,max=2),
11479            NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
11480            GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
11481          ),
11482
11483          DEFI_ARC        =FACT(statut='f',min=1,max='**',
11484            regles=(UN_PARMI('CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),
11485                    UN_PARMI('RAYON','ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
11486                    UN_PARMI('RAYON','EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),
11487                    PRESENT_PRESENT('RAYON','SECTEUR'),),
11488            CENTRE          =SIMP(statut='f',typ='R',min=2,max=2),
11489            NOEUD_CENTRE    =SIMP(statut='f',typ=no,max=1),
11490            GROUP_NO_CENTRE =SIMP(statut='f',typ=grno,max=1),
11491            RAYON           =SIMP(statut='f',typ='R',max=1,val_min=0.E+0),
11492            SECTEUR         =SIMP(statut='f',typ='R',min=2,max=2,
11493                                  val_min=-180.E+0,val_max=180E+0),
11494            ORIGINE         =SIMP(statut='f',typ='R',min=2,max=2),
11495            NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
11496            GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
11497            EXTREMITE       =SIMP(statut='f',typ='R',min=2,max=2),
11498            NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
11499            GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
11500            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11501            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
11502                                  into=("RELATIF","ABSOLU",) ),
11503          ),
11504
11505          DEFI_CHEMIN     =FACT(statut='f',min=1,max='**',
11506            regles=(UN_PARMI('MAILLE','GROUP_MA'),),
11507            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
11508            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
11509          ),
11510
11511          NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
11512          GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
11513          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
11514          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
11515 )  ;
11516 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
11517 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11518 # ======================================================================
11519 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11520 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11521 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11522 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11523 # (AT YOUR OPTION) ANY LATER VERSION.
11524 #
11525 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11526 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11527 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11528 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11529 #
11530 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11531 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11532 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11533 # ======================================================================
11534 # RESPONSABLE G8BHHXD X.DESROCHES
11535 INTE_MAIL_3D=OPER(nom="INTE_MAIL_3D",op=96,sd_prod=surface,docu="U4.81.12-e",
11536             UIinfo={"groupes":("Post traitements",)},
11537                   fr="Définition d un chemin sur un maillage 3D",reentrant='n',
11538          MAILLAGE        =SIMP(statut='o',typ=maillage),
11539          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11540          GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
11541          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
11542          DEFI_SEGMENT    =FACT(statut='o',min=1,max='**',
11543            regles=(UN_PARMI('ORIGINE','NOEUD_ORIG','GROUP_NO_ORIG'),
11544                    UN_PARMI('EXTREMITE','NOEUD_EXTR','GROUP_NO_EXTR'),),
11545            ORIGINE         =SIMP(statut='f',typ='R',min=3,max=3),
11546            NOEUD_ORIG      =SIMP(statut='f',typ=no,max=1),
11547            GROUP_NO_ORIG   =SIMP(statut='f',typ=grno,max=1),
11548            EXTREMITE       =SIMP(statut='f',typ='R',min=3,max=3),
11549            NOEUD_EXTR      =SIMP(statut='f',typ=no,max=1),
11550            GROUP_NO_EXTR   =SIMP(statut='f',typ=grno,max=1),
11551          ),
11552          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
11553          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
11554 )  ;
11555 #& MODIF COMMANDE  DATE 24/02/2003   AUTEUR DURAND C.DURAND
11556 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11557 # ======================================================================
11558 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11559 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11560 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11561 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11562 # (AT YOUR OPTION) ANY LATER VERSION.
11563 #
11564 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11565 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11566 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11567 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11568 #
11569 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11570 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11571 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11572 # ======================================================================
11573 def lire_champ_prod(TYPE_CHAM=None,**args):
11574   if TYPE_CHAM == "NOEU_DBEL_R" : return cham_no_dbel_r
11575   if TYPE_CHAM == "NOEU_DEPL_C" : return cham_no_depl_c
11576   if TYPE_CHAM == "NOEU_DEPL_F" : return cham_no_depl_f
11577   if TYPE_CHAM == "NOEU_DEPL_R" : return cham_no_depl_r
11578   if TYPE_CHAM == "NOEU_DURT_R" : return cham_no_durt_r
11579   if TYPE_CHAM == "NOEU_ENER_R" : return cham_no_ener_r
11580   if TYPE_CHAM == "NOEU_EPSI_R" : return cham_no_epsi_r
11581   if TYPE_CHAM == "NOEU_ERREUR" : return cham_no_erreur
11582   if TYPE_CHAM == "NOEU_FLUX_R" : return cham_no_flux_r
11583   if TYPE_CHAM == "NOEU_GEOM_R" : return cham_no_geom_r
11584   if TYPE_CHAM == "NOEU_G_DEPL_R" : return cham_no_g_depl_r
11585   if TYPE_CHAM == "NOEU_HYDR_R" : return cham_no_hydr_r
11586   if TYPE_CHAM == "NOEU_INST_R" : return cham_no_inst_r
11587   if TYPE_CHAM == "NOEU_INTE_R" : return cham_no_inte_r
11588   if TYPE_CHAM == "NOEU_META_R" : return cham_no_meta_r
11589   if TYPE_CHAM == "NOEU_NEUT_F" : return cham_no_neut_f
11590   if TYPE_CHAM == "NOEU_NEUT_R" : return cham_no_neut_r
11591   if TYPE_CHAM == "NOEU_PRES_R" : return cham_no_pres_r
11592   if TYPE_CHAM == "NOEU_SIEF_R" : return cham_no_sief_r
11593   if TYPE_CHAM == "NOEU_SOUR_R" : return cham_no_sour_r
11594   if TYPE_CHAM == "NOEU_TEMP_F" : return cham_no_temp_f
11595   if TYPE_CHAM == "NOEU_TEMP_R" : return cham_no_temp_r
11596   if TYPE_CHAM == "NOEU_VAR2_R" : return cham_no_var2_r
11597   if TYPE_CHAM == "NOEU_VNOR_C" : return cham_no_vnor_c
11598   if TYPE_CHAM == "ELEM_DBEL_R" : return cham_elem_dbel_r
11599   if TYPE_CHAM == "ELEM_DEPL_C" : return cham_elem_depl_c
11600   if TYPE_CHAM == "ELEM_DEPL_F" : return cham_elem_depl_f
11601   if TYPE_CHAM == "ELEM_DEPL_R" : return cham_elem_depl_r
11602   if TYPE_CHAM == "ELEM_DURT_R" : return cham_elem_durt_r
11603   if TYPE_CHAM == "ELEM_ENER_R" : return cham_elem_ener_r
11604   if TYPE_CHAM == "ELEM_EPSI_R" : return cham_elem_epsi_r
11605   if TYPE_CHAM == "ELEM_ERREUR" : return cham_elem_erreur
11606   if TYPE_CHAM == "ELEM_FLUX_R" : return cham_elem_flux_r
11607   if TYPE_CHAM == "ELEM_GEOM_R" : return cham_elem_geom_r
11608   if TYPE_CHAM == "ELEM_G_DEPL_R" : return cham_elem_g_depl
11609   if TYPE_CHAM == "ELEM_HYDR_R" : return cham_elem_hydr_r
11610   if TYPE_CHAM == "ELEM_INST_R" : return cham_elem_inst_r
11611   if TYPE_CHAM == "ELEM_INTE_R" : return cham_elem_inte_r
11612   if TYPE_CHAM == "ELEM_META_R" : return cham_elem_meta_r
11613   if TYPE_CHAM == "ELEM_NEUT_F" : return cham_elem_neut_f
11614   if TYPE_CHAM == "ELEM_NEUT_R" : return cham_elem_neut_r
11615   if TYPE_CHAM == "ELEM_PRES_R" : return cham_elem_pres_r
11616   if TYPE_CHAM == "ELEM_SIEF_R" : return cham_elem_sief_r
11617   if TYPE_CHAM == "ELEM_SOUR_R" : return cham_elem_sour_r
11618   if TYPE_CHAM == "ELEM_TEMP_F" : return cham_elem_temp_f
11619   if TYPE_CHAM == "ELEM_TEMP_R" : return cham_elem_temp_r
11620   if TYPE_CHAM == "ELEM_VARI_R" : return cham_elem_vari_r
11621   if TYPE_CHAM == "ELEM_VNOR_C" : return cham_elem_vnor_c
11622   if TYPE_CHAM == "ELNO_DBEL_R" : return cham_elem_dbel_r
11623   if TYPE_CHAM == "ELNO_DEPL_C" : return cham_elem_depl_c
11624   if TYPE_CHAM == "ELNO_DEPL_F" : return cham_elem_depl_f
11625   if TYPE_CHAM == "ELNO_DEPL_R" : return cham_elem_depl_r
11626   if TYPE_CHAM == "ELNO_DURT_R" : return cham_elem_durt_r
11627   if TYPE_CHAM == "ELNO_ENER_R" : return cham_elem_ener_r
11628   if TYPE_CHAM == "ELNO_EPSI_R" : return cham_elem_epsi_r
11629   if TYPE_CHAM == "ELNO_ERREUR" : return cham_elem_erreur
11630   if TYPE_CHAM == "ELNO_FLUX_R" : return cham_elem_flux_r
11631   if TYPE_CHAM == "ELNO_GEOM_R" : return cham_elem_geom_r
11632   if TYPE_CHAM == "ELNO_G_DEPL_R" : return cham_elem_g_depl
11633   if TYPE_CHAM == "ELNO_HYDR_R" : return cham_elem_hydr_r
11634   if TYPE_CHAM == "ELNO_INST_R" : return cham_elem_inst_r
11635   if TYPE_CHAM == "ELNO_INTE_R" : return cham_elem_inte_r
11636   if TYPE_CHAM == "ELNO_META_R" : return cham_elem_meta_r
11637   if TYPE_CHAM == "ELNO_NEUT_F" : return cham_elem_neut_f
11638   if TYPE_CHAM == "ELNO_NEUT_R" : return cham_elem_neut_r
11639   if TYPE_CHAM == "ELNO_PRES_R" : return cham_elem_pres_r
11640   if TYPE_CHAM == "ELNO_SIEF_R" : return cham_elem_sief_r
11641   if TYPE_CHAM == "ELNO_SOUR_R" : return cham_elem_sour_r
11642   if TYPE_CHAM == "ELNO_TEMP_F" : return cham_elem_temp_f
11643   if TYPE_CHAM == "ELNO_TEMP_R" : return cham_elem_temp_r
11644   if TYPE_CHAM == "ELNO_VARI_R" : return cham_elem_vari_r
11645   if TYPE_CHAM == "ELNO_VNOR_C" : return cham_elem_vnor_c
11646   if TYPE_CHAM == "ELGA_DBEL_R" : return cham_elem_dbel_r
11647   if TYPE_CHAM == "ELGA_DEPL_C" : return cham_elem_depl_c
11648   if TYPE_CHAM == "ELGA_DEPL_F" : return cham_elem_depl_f
11649   if TYPE_CHAM == "ELGA_DEPL_R" : return cham_elem_depl_r
11650   if TYPE_CHAM == "ELGA_DURT_R" : return cham_elem_durt_r
11651   if TYPE_CHAM == "ELGA_ENER_R" : return cham_elem_ener_r
11652   if TYPE_CHAM == "ELGA_EPSI_R" : return cham_elem_epsi_r
11653   if TYPE_CHAM == "ELGA_ERREUR" : return cham_elem_erreur
11654   if TYPE_CHAM == "ELGA_FLUX_R" : return cham_elem_flux_r
11655   if TYPE_CHAM == "ELGA_GEOM_R" : return cham_elem_geom_r
11656   if TYPE_CHAM == "ELGA_G_DEPL_R" : return cham_elem_g_depl
11657   if TYPE_CHAM == "ELGA_HYDR_R" : return cham_elem_hydr_r
11658   if TYPE_CHAM == "ELGA_INST_R" : return cham_elem_inst_r
11659   if TYPE_CHAM == "ELGA_INTE_R" : return cham_elem_inte_r
11660   if TYPE_CHAM == "ELGA_META_R" : return cham_elem_meta_r
11661   if TYPE_CHAM == "ELGA_NEUT_F" : return cham_elem_neut_f
11662   if TYPE_CHAM == "ELGA_NEUT_R" : return cham_elem_neut_r
11663   if TYPE_CHAM == "ELGA_PRES_R" : return cham_elem_pres_r
11664   if TYPE_CHAM == "ELGA_SIEF_R" : return cham_elem_sief_r
11665   if TYPE_CHAM == "ELGA_SOUR_R" : return cham_elem_sour_r
11666   if TYPE_CHAM == "ELGA_TEMP_F" : return cham_elem_temp_f
11667   if TYPE_CHAM == "ELGA_TEMP_R" : return cham_elem_temp_r
11668   if TYPE_CHAM == "ELGA_VARI_R" : return cham_elem_vari_r
11669   if TYPE_CHAM == "ELGA_VNOR_C" : return cham_elem_vnor_c
11670   if TYPE_CHAM == "NOEU_IRRA_R" : return cham_no_irra_r
11671   if TYPE_CHAM == "ELEM_IRRA_R" : return cham_elem_irra_r
11672   if TYPE_CHAM == "ELNO_IRRA_R" : return cham_elem_irra_r
11673   if TYPE_CHAM == "ELGA_IRRA_R" : return cham_elem_irra_r
11674   raise AsException("type de concept resultat non prevu")
11675
11676 LIRE_CHAMP=OPER(nom="LIRE_CHAMP",op= 192,sd_prod=lire_champ_prod,
11677                 fr="Lire un champ dans un fichier et le stocker dans un concept.",
11678                 docu="U7.02.02-b3",reentrant='n',
11679          MAILLAGE        =SIMP(statut='o',typ=maillage,),
11680          FORMAT          =SIMP(statut='f',typ='TXM',defaut="MED",into=("MED",),),
11681          UNITE           =SIMP(statut='f',typ='I',defaut= 81,),
11682          b_format =BLOC(condition = "FORMAT == 'MED'",
11683          regles=(UN_PARMI('NOM_CMP_IDEM','NOM_CMP'),
11684           PRESENT_PRESENT('NOM_CMP','NOM_CMP_MED' ),),
11685             NOM_MED      =SIMP(statut='o',typ='TXM', ),
11686             NOM_CMP_IDEM =SIMP(statut='f',typ='TXM',into=("OUI",), ),
11687             NOM_CMP      =SIMP(statut='f',typ='TXM',max='**',),
11688             NOM_CMP_MED  =SIMP(statut='f',typ='TXM',max='**',),
11689             NUME_ORDRE   =SIMP(statut='f',typ='I',max='**',),
11690             NUME_PT      =SIMP(statut='f',typ='I',max='**',),
11691             NOM_MAIL_MED = SIMP(statut='f',typ='TXM',),
11692                   ),
11693          TYPE_CHAM       =SIMP(statut='o',typ='TXM',
11694                        into=("NOEU_DBEL_R",  "ELEM_DBEL_R",  "ELNO_DBEL_R",  "ELGA_DBEL_R",
11695                              "NOEU_DEPL_C",  "ELEM_DEPL_C",  "ELNO_DEPL_C",  "ELGA_DEPL_C",
11696                              "NOEU_DEPL_F",  "ELEM_DEPL_F",  "ELNO_DEPL_F",  "ELGA_DEPL_F",
11697                              "NOEU_DEPL_R",  "ELEM_DEPL_R",  "ELNO_DEPL_R",  "ELGA_DEPL_R",
11698                              "NOEU_DURT_R",  "ELEM_DURT_R",  "ELNO_DURT_R",  "ELGA_DURT_R",
11699                              "NOEU_ENER_R",  "ELEM_ENER_R",  "ELNO_ENER_R",  "ELGA_ENER_R",
11700                              "NOEU_EPSI_R",  "ELEM_EPSI_R",  "ELNO_EPSI_R",  "ELGA_EPSI_R",
11701                              "NOEU_ERREUR",  "ELEM_ERREUR",  "ELNO_ERREUR",  "ELGA_ERREUR",
11702                              "NOEU_FLUX_R",  "ELEM_FLUX_R",  "ELNO_FLUX_R",  "ELGA_FLUX_R",
11703                              "NOEU_GEOM_R",  "ELEM_GEOM_R",  "ELNO_GEOM_R",  "ELGA_GEOM_R",
11704                              "NOEU_G_DEPL_R","ELEM_G_DEPL_R","ELNO_G_DEPL_R","ELGA_G_DEPL_R",
11705                              "NOEU_HYDR_R",  "ELEM_HYDR_R",  "ELNO_HYDR_R",  "ELGA_HYDR_R",
11706                              "NOEU_INST_R",  "ELEM_INST_R",  "ELNO_INST_R",  "ELGA_INST_R",
11707                              "NOEU_INTE_R",  "ELEM_INTE_R",  "ELNO_INTE_R",  "ELGA_INTE_R",
11708                              "NOEU_META_R",  "ELEM_META_R",  "ELNO_META_R",  "ELGA_META_R",
11709                              "NOEU_NEUT_F",  "ELEM_NEUT_F",  "ELNO_NEUT_F",  "ELGA_NEUT_F",
11710                              "NOEU_NEUT_R",  "ELEM_NEUT_R",  "ELNO_NEUT_R",  "ELGA_NEUT_R",
11711                              "NOEU_PRES_R",  "ELEM_PRES_R",  "ELNO_PRES_R",  "ELGA_PRES_R",
11712                              "NOEU_SIEF_R",  "ELEM_SIEF_R",  "ELNO_SIEF_R",  "ELGA_SIEF_R",
11713                              "NOEU_SOUR_R",  "ELEM_SOUR_R",  "ELNO_SOUR_R",  "ELGA_SOUR_R",
11714                              "NOEU_TEMP_F",  "ELEM_TEMP_F",  "ELNO_TEMP_F",  "ELGA_TEMP_F",
11715                              "NOEU_TEMP_R",  "ELEM_TEMP_R",  "ELNO_TEMP_R",  "ELGA_TEMP_R",
11716                              "NOEU_VAR2_R",  "ELEM_VARI_R",  "ELNO_VARI_R",  "ELGA_VARI_R",
11717                              "NOEU_VNOR_C",  "ELEM_VNOR_C",  "ELNO_VNOR_C",  "ELGA_VNOR_C",
11718                              "NOEU_IRRA_R",  "ELEM_IRRA_R",  "ELNO_IRRA_R",  "ELGA_IRRA_R",) ),
11719          b_modele =BLOC(condition = "TYPE_CHAM[0:2] == 'EL'",
11720             MODELE      =SIMP(statut='o',typ=modele, ),
11721                   ),
11722          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11723 )  ;
11724 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
11725 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11726 # ======================================================================
11727 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11728 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11729 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11730 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11731 # (AT YOUR OPTION) ANY LATER VERSION.
11732 #
11733 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11734 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11735 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11736 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11737 #
11738 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11739 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11740 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11741 # ======================================================================
11742 LIRE_FONCTION=OPER(nom="LIRE_FONCTION",op=  83,sd_prod=fonction,
11743                    fr="Lecture d une fonction dans un fichier ",
11744                    docu="U4.32.02-f1",reentrant='n',
11745             UIinfo={"groupes":("Fonction",)},
11746          UNITE           =SIMP(statut='o',typ='I' ),
11747          NOM_PARA        =SIMP(statut='f',typ='TXM',
11748                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
11749                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
11750          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
11751          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
11752          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
11753          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
11754          NOM_PARA_FONC   =SIMP(statut='f',typ='TXM',
11755                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
11756                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
11757          INTERPOL_FONC   =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
11758          PROL_DROITE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
11759          PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
11760          INFO            =SIMP(statut='f',typ='I',defaut= 2,into=( 1 , 2) ),
11761          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11762 )  ;
11763 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
11764 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11765 # ======================================================================
11766 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11767 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11768 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11769 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11770 # (AT YOUR OPTION) ANY LATER VERSION.
11771 #
11772 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11773 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11774 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11775 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11776 #
11777 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11778 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11779 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11780 # ======================================================================
11781 LIRE_INTE_SPEC=OPER(nom="LIRE_INTE_SPEC",op= 116,sd_prod=tabl_intsp,
11782                     fr="Lecture sur un fichier externe de  fonctions complexes pour créer une matrice interspectrale",
11783                     docu="U4.36.01-f2",reentrant='n',
11784             UIinfo={"groupes":("Fonction",)},
11785          UNITE           =SIMP(statut='o',typ='I' ),
11786          FORMAT          =SIMP(statut='f',typ='TXM',defaut="MODULE_PHASE",into=("REEL_IMAG","MODULE_PHASE") ),
11787          NOM_PARA        =SIMP(statut='f',typ='TXM',
11788                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
11789                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC",) ),
11790          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
11791          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
11792          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
11793          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
11794          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11795          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
11796 )  ;
11797 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
11798 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11799 # ======================================================================
11800 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11801 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11802 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11803 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11804 # (AT YOUR OPTION) ANY LATER VERSION.
11805 #
11806 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11807 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11808 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11809 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11810 #
11811 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11812 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11813 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11814 # ======================================================================
11815 # RESPONSABLE VABHHTS J.PELLET
11816 LIRE_MAILLAGE=OPER(nom="LIRE_MAILLAGE",op=   1,sd_prod=maillage,
11817                    fr="Lecture d'un fichier de maillage",
11818                    ang="Readings of a mesh file",
11819                    docu="U4.21.01-g1",reentrant='n',
11820             UIinfo={"groupes":("Maillage",)},
11821 #
11822          UNITE           =SIMP(statut='f',typ='I',defaut= 20 ),
11823 #
11824          FORMAT          =SIMP(statut='f',typ='TXM',defaut="ASTER",into=("ASTER","MED"),
11825                             fr="Format du fichier : ASTER ou MED.",
11826                             ang="Format of the file : ASTER or MED.",),
11827 #
11828          ABSC_CURV       =FACT(statut='f',min=0,max=1,
11829                TOUT          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
11830          ),
11831 #
11832          VERI_MAIL       =FACT(statut='d',min=1,max=1,
11833                VERIF         =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
11834                APLAT         =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
11835          ),
11836 #
11837          b_format_med =BLOC( condition = " ( FORMAT == 'MED' ) " ,
11838                            fr="Informations complémentaires pour la lecture MED.",
11839                            ang="Further information for MED readings.",
11840 #
11841 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
11842 # le maillage y a été enregistré. Par défaut, on va le chercher sous le nom du concept à créer.
11843 #
11844               NOM_MED    = SIMP(statut='f',typ='TXM',
11845                             fr="Nom du maillage dans le fichier MED.",
11846                             ang="Name of the mesh into the MED file.",),
11847 #
11848               INFO_MED   = SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11849 #
11850                            ) ,
11851 #
11852          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
11853 #
11854 )  ;
11855 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
11856 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11857 # ======================================================================
11858 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11859 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11860 #              REDISTRIBUTION OF THIS FILE.
11861 # ======================================================================
11862 def lire_miss_3d_prod(TYPE_RESU,**args):
11863   if TYPE_RESU == "TRANS" : return dyna_trans
11864   if TYPE_RESU == "HARMO" : return dyna_harmo
11865   raise AsException("type de concept resultat non prevu")
11866
11867 LIRE_MISS_3D=OPER(nom="LIRE_MISS_3D",op= 163,sd_prod=lire_miss_3d_prod,
11868                   fr="Restitution au format MISS3D d une évolution harmonique ou transitoire",
11869                   docu="U7.02.31-c",reentrant='n',
11870             UIinfo={"groupes":("Maillage",)},
11871          MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
11872          UNITE           =SIMP(statut='f',typ='I',defaut= 27 ),
11873          NOM             =SIMP(statut='f',typ='TXM' ),
11874          TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="TRANS",into=("TRANS","HARMO") ),
11875          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11876 )  ;
11877 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
11878 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11879 # ======================================================================
11880 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11881 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
11882 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
11883 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
11884 # (AT YOUR OPTION) ANY LATER VERSION.
11885 #
11886 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
11887 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
11888 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11889 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
11890 #
11891 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
11892 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
11893 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
11894 # ======================================================================
11895 LIRE_PLEXUS=OPER(nom="LIRE_PLEXUS",op= 184,sd_prod=evol_char,
11896                  fr=" ",
11897                  docu="U7.02.11-a",reentrant='n',
11898             UIinfo={"groupes":("Maillage",)},
11899          regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
11900          UNITE           =SIMP(statut='f',typ='I',defaut= 19 ),
11901          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",)),
11902          MAIL_PLEXUS     =SIMP(statut='o',typ=maillage ),
11903          MAILLAGE        =SIMP(statut='o',typ=maillage ),
11904          MODELE          =SIMP(statut='o',typ=modele ),
11905          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
11906          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
11907          LIST_ORDRE      =SIMP(statut='f',typ=listis ),
11908          INST            =SIMP(statut='f',typ='R',max='**'),
11909          LIST_INST       =SIMP(statut='f',typ=listr8 ),
11910          b_prec_crit     =BLOC(condition = "LIST_INST != None or INST != None",
11911              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
11912              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
11913                                    into=("RELATIF","ABSOLU") ),
11914          ),
11915          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11916 )  ;
11917 #& MODIF COMMANDE  DATE 03/03/2003   AUTEUR DURAND C.DURAND
11918 #            CONFIGURATION MANAGEMENT OF EDF VERSION
11919 # ======================================================================
11920 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
11921 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
11922 #              REDISTRIBUTION OF THIS FILE.
11923 # ======================================================================
11924 # RESPONSABLE VABHHTS J.PELLET
11925 def lire_resu_prod(TYPE_RESU,**args):
11926   if TYPE_RESU == "EVOL_CHAR" :  return evol_char
11927   if TYPE_RESU == "EVOL_THER" :  return evol_ther
11928   if TYPE_RESU == "EVOL_ELAS" :  return evol_elas
11929   if TYPE_RESU == "EVOL_NOLI" :  return evol_noli
11930   if TYPE_RESU == "DYNA_TRANS" : return dyna_trans
11931   if TYPE_RESU == "DYNA_HARMO" : return dyna_harmo
11932   if TYPE_RESU == "HARM_GENE" :  return harm_gene
11933   if TYPE_RESU == "MODE_MECA" :  return mode_meca
11934   raise AsException("type de concept resultat non prevu")
11935
11936 LIRE_RESU=OPER(nom="LIRE_RESU",op=150,sd_prod=lire_resu_prod,docu="U7.02.01-d2",reentrant='n',
11937             UIinfo={"groupes":("Maillage",)},
11938                fr="Lecture de champs aux noeuds ou par éléments aux noeuds sur un fichier IDEAS ou EnSight",
11939
11940
11941 # 0 mots clés généraux :
11942 #----------------------
11943          TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_THER","EVOL_ELAS","EVOL_NOLI","MODE_MECA",
11944                                                           "DYNA_TRANS","DYNA_HARMO","HARM_GENE","EVOL_CHAR") ),
11945
11946          FORMAT          =SIMP(statut='o',typ='TXM',into=("IDEAS","IDEAS_DS58","ENSIGHT","MED") ),
11947
11948          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
11949          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
11950
11951          regles=(UN_PARMI('MAILLAGE','MODELE'),),
11952          MAILLAGE        =SIMP(statut='f',typ=maillage),
11953          MODELE          =SIMP(statut='f',typ=modele),
11954
11955          NB_VARI         =SIMP(statut='f',typ='I' ),
11956
11957
11958 # 1 blocs selon le format choisi :
11959 #---------------------------------
11960
11961 # 1-1 ideas dataset-58 :
11962 # ---------
11963          b_dataset_58 = BLOC(condition="FORMAT=='IDEAS_DS58'",
11964            UNITE           =SIMP(statut='f',typ='I',defaut= 19 ),
11965          ),
11966          b_dataset_58_b = BLOC(condition="(FORMAT=='IDEAS_DS58') and ((TYPE_RESU=='DYNA_TRANS') or\
11967                                         (TYPE_RESU=='DYNA_HARMO') or (TYPE_RESU=='HARM_GENE'))",
11968            UNITE           =SIMP(statut='f',typ='I',defaut= 19 ),
11969            NOM_CHAM=SIMP(statut='o',typ='TXM',into=("DEPL","VITE","ACCE","EPSI_NOEU_DEPL","SIEF_NOEU",) ),
11970            REDEFI_ORIENT=FACT(statut='f',max='**',
11971                               regles=(PRESENT_PRESENT('CODE_DIR','DIRECTION','NOEUD',),),
11972                               CODE_DIR =SIMP(statut='f',typ='I',into=(1,2,3,) ),
11973                               DIRECTION=SIMP(statut='f',typ='R',min=3,max=3,),
11974                               NOEUD    =SIMP(statut='f',typ=no,max='**'),),
11975          ),
11976
11977 # 1-2 ideas  :
11978 # ---------
11979          b_ideas         =BLOC(condition="FORMAT=='IDEAS'",
11980            UNITE           =SIMP(statut='f',typ='I',defaut= 19 ),
11981            FORMAT_IDEAS    =FACT(statut='f',max='**',
11982              regles=(UN_PARMI('POSI_INST','POSI_FREQ'),),
11983              NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',into=("TEMP","DEPL","VITE","ACCE","PRES","VARI_ELNO",
11984                                                                      "SIEF_ELNO","EPSA_ELNO","TEMP_PEAU","VITE_VENT",
11985                                                                      "FVOL_3D","FVOL_2D","FSUR_3D","FSUR_2D") ),
11986              NUME_DATASET    =SIMP(statut='f',typ='I',into=(55,57,2414) ),
11987              RECORD_3        =SIMP(statut='f',typ='I',max=10),
11988              RECORD_6        =SIMP(statut='f',typ='I',max=10),
11989              RECORD_9        =SIMP(statut='f',typ='I',max=10),
11990              POSI_ORDRE      =SIMP(statut='o',typ='I',min=2,max=2),
11991              POSI_NUME_MODE  =SIMP(statut='f',typ='I',min=2,max=2),
11992              POSI_MASS_GENE  =SIMP(statut='f',typ='I',min=2,max=2),
11993              POSI_INST       =SIMP(statut='f',typ='I',min=2,max=2),
11994              POSI_FREQ       =SIMP(statut='f',typ='I',min=2,max=2),
11995              NOM_CMP         =SIMP(statut='o',typ='TXM',max='**'),),
11996          ),
11997 # 1-3 ensight :
11998 # -------------
11999          b_ensight       =BLOC(condition="FORMAT=='ENSIGHT'",
12000            NOM_FICHIER     =SIMP(statut='f',typ='TXM'),
12001          ),
12002 # 1-4 med :
12003 # ---------
12004          b_med           =BLOC(condition = "FORMAT == 'MED'",fr="Nom du champ dans le fichier MED",
12005 #                           regles=(UN_PARMI('NOM_CMP_IDEM','NOM_CMP'),
12006 #                           PRESENT_PRESENT('NOM_CMP','NOM_CMP_MED' ),),
12007            NOM_MED         =SIMP(statut='o',typ='TXM',
12008                                  fr="Nom du champ dans le fichier MED.",
12009                                  ang="Name of the field in the MED file." ),
12010            NOM_CMP_IDEM    =SIMP(statut='f',typ='TXM',into=("OUI",),
12011                                  fr="Les composantes ont le meme nom dans MED et ASTER.",
12012                                  ang="The names of the components are the same in ASTER and MED." ),
12013            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**',
12014                                  fr="Nom des composantes dans ASTER.",
12015                                  ang="Names of the components in ASTER" ),
12016            NOM_CMP_MED     =SIMP(statut='f',typ='TXM',max='**',
12017                                  fr="Nom des composantes dans MED.",
12018                                  ang="Names of the components in MED" ),
12019 # Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
12020 # le maillage associé au champ y a été enregistré. Par défaut, on prendra le premier maillage.
12021            NOM_MAIL_MED    =SIMP(statut='f',typ='TXM',
12022                                  fr="Nom du maillage dans le fichier MED.",
12023                                  ang="Name of the mesh into the MED file.",),
12024            UNITE           =SIMP(statut='f',typ='I',defaut= 81,
12025                                  fr="Le fichier est : fort.n.",
12026                                  ang="File is : fort.n" ),
12027                   ),
12028
12029
12030 # 2 blocs selon le type du résultat :
12031 #---------------------------------
12032          b_evol_elas     =BLOC(condition="TYPE_RESU=='EVOL_ELAS'",
12033            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
12034                                  into=("DEPL",) ),
12035          ),
12036          b_evol_ther     =BLOC(condition="TYPE_RESU=='EVOL_THER'",
12037            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
12038                                  into=("TEMP","TEMP_PEAU") ),
12039          ),
12040          b_evol_char     =BLOC(condition="TYPE_RESU=='EVOL_CHAR'",
12041            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
12042                                  into=("PRES","VITE_VENT",
12043                                        "FVOL_3D","FVOL_2D",
12044                                        "FSUR_3D","FSUR_2D") ),
12045          ),
12046          b_evol_noli     =BLOC(condition="TYPE_RESU=='EVOL_NOLI'",
12047            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
12048                                  into=("DEPL","VITE","ACCE","VARI_ELNO",
12049                                        "SIEF_ELNO","EPSA_ELNO") ),
12050          ),
12051          b_mode_meca     =BLOC(condition="TYPE_RESU=='MODE_MECA'",
12052            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
12053                                  into=("DEPL",)
12054                                                  ),
12055            MATR_A         =SIMP(statut='f',typ=matr_asse_depl_r,min=1,max=1,),
12056            MATR_B         =SIMP(statut='f',typ=matr_asse_depl_r,min=1,max=1,),
12057          ),
12058          b_dyna          =BLOC(condition="((TYPE_RESU=='DYNA_TRANS') or (TYPE_RESU=='DYNA_HARMO') or\
12059                                           (TYPE_RESU=='HARM_GENE')) and (FORMAT!='IDEAS_DS58')",
12060            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',
12061                                  into=("DEPL","VITE","ACCE",) ),
12062          ),
12063
12064
12065 # 3 autres blocs :
12066 #---------------------------------
12067          b_extrac        =BLOC(condition="1",fr="accès à un champ dans la structure de données résultat",
12068            regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST','FREQ','LIST_FREQ'),),
12069            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12070            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
12071            INST            =SIMP(statut='f',typ='R',max='**'),
12072            LIST_INST       =SIMP(statut='f',typ=listr8),
12073            LIST_ORDRE      =SIMP(statut='f',typ=listis),
12074            FREQ            =SIMP(statut='f',typ='R',max='**'),
12075            LIST_FREQ       =SIMP(statut='f',typ=listr8),
12076
12077            b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)or(FREQ != None)or(LIST_FREQ != None)",
12078              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
12079              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
12080            ),
12081          ),
12082 )  ;
12083 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
12084 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12085 # ======================================================================
12086 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
12087 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12088 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12089 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12090 # (AT YOUR OPTION) ANY LATER VERSION.
12091 #
12092 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12093 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12094 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12095 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12096 #
12097 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12098 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12099 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12100 # ======================================================================
12101 def lire_table_prod(TYPE_TABLE,**args):
12102   if TYPE_TABLE == "TABLE"          : return table
12103   if TYPE_TABLE == "TABL_CARA_GEOM" : return tabl_cara_geom
12104   if TYPE_TABLE == "TABL_POST_RELE" : return tabl_post_rele
12105   if TYPE_TABLE == "TABL_POST_USUR" : return tabl_post_usur
12106   if TYPE_TABLE == "TABL_POST_ALEA" : return tabl_post_alea
12107   raise AsException("type de concept resultat non prevu")
12108 LIRE_TABLE=OPER(nom="LIRE_TABLE",op=29,sd_prod=lire_table_prod,
12109                 docu="U7.02.03",fr="Lecture d un concept de type table",
12110             UIinfo={"groupes":("Maillage",)},
12111          UNITE           =SIMP(statut='o',typ='I' ),
12112          FORMAT          =SIMP(statut='f',typ='TXM',into=("ASTER",),defaut="ASTER"),
12113          NUME_TABLE      =SIMP(statut='f',typ='I',defaut=1),
12114          TYPE_TABLE      =SIMP(statut='f',typ='TXM',defaut="TABLE",
12115                               into=("TABLE",
12116                                     "TABL_CARA_GEOM",
12117                                     "TABL_POST_RELE",
12118                                     "TABL_POST_USUR",
12119                                     "TABL_POST_ALEA" ) ),
12120          SEPARATEUR      =SIMP(statut='o',typ='TXM'),
12121          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
12122          )  ;
12123 #& MODIF COMMANDE  DATE 24/02/2003   AUTEUR DURAND C.DURAND
12124 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12125 # ======================================================================
12126 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12127 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12128 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12129 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12130 # (AT YOUR OPTION) ANY LATER VERSION.
12131 #
12132 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12133 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12134 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12135 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12136 #
12137 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12138 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12139 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12140 # ======================================================================
12141 # RESPONSABLE GNICOLAS G.NICOLAS
12142 def macr_adap_mail_prod(self,MAJ_CHAM,ADAPTATION,**args):
12143   mail1=ADAPTATION['MAILLAGE_N']
12144   self.type_sdprod(mail1,maillage)
12145   mail2=ADAPTATION['MAILLAGE_NP1']
12146   self.type_sdprod(mail2,maillage)
12147   if MAJ_CHAM == None:return None
12148   for ch in MAJ_CHAM:
12149     t=ch['TYPE_CHAM']
12150     if t == 'NOEU_TEMP_R':self.type_sdprod(ch['CHAM_MAJ'],cham_no_temp_r)
12151     if t == 'NOEU_DEPL_R':self.type_sdprod(ch['CHAM_MAJ'],cham_no_depl_r)
12152   return None
12153
12154 MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",op=-24,sd_prod=macr_adap_mail_prod,
12155                      fr="Adapter un maillage avec le logiciel HOMARD.",
12156                      ang="Mesh adaptation with HOMARD software.",
12157                      docu="U7.03.01-b2",
12158 #
12159 # 1. Le niveau d'information
12160 #
12161          INFO           = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12162 #
12163 # 2. Version de HOMARD
12164 #
12165          VERSION_HOMARD = SIMP(statut='f',typ='TXM',defaut="V5_5",
12166                                into=("V5_5", "V5_N", "V5_N_PERSO"),
12167                            fr="Version de HOMARD",
12168                            ang="HOMARD release"),
12169 #
12170 # 3. Langue des messages issus de HOMARD
12171 #
12172          LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
12173                                into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
12174                            fr="Langue des messages issus de HOMARD.",
12175                            ang="Language for HOMARD messages." ),
12176 #
12177 # 4. LE TYPE DE TRAITEMENT :
12178 #
12179          ADAPTATION      =FACT(statut='o',min=01,max=01,
12180                            fr="Type d'adaptation",
12181                            ang="Type of adaptation",
12182 #
12183 # 4.1. DEUX CHOIX D'ADAPTATION EXCLUSIFS :
12184 #
12185 # 4.1.
12186 #      A. SELON UN INDICATEUR D'ERREUR, AVEC TROIS VARIANTES :
12187 #         . RAFFINEMENT ET DERAFFINEMENT
12188 #         . RAFFINEMENT SEUL
12189 #         . DERAFFINEMENT SEUL
12190 #      B. UNIFORME, AVEC TROIS VARIANTES :
12191 #         . RAFFINEMENT SEUL
12192 #         . DERAFFINEMENT SEUL
12193 #         . RIEN : LE MAILLAGE EST LE MEME A LA SORTIE ET A L'ENTREE
12194 #
12195            regles=(
12196                    UN_PARMI('LIBRE','UNIFORME'),
12197                   ),
12198            LIBRE          = SIMP(statut='f',typ='TXM',
12199                                  into=("RAFF_DERA","RAFFINEMENT","DERAFFINEMENT"),
12200                            fr="Adaptation selon un indicateur d'erreur.",
12201                            ang="Adaptation among an error indicator" ),
12202            UNIFORME       = SIMP(statut='f',typ='TXM',
12203                                  into=("RAFFINEMENT","DERAFFINEMENT","RIEN"),
12204                            fr="Adaptation uniforme.",
12205                            ang="Uniform adaptation" ),
12206 #
12207 # 4.2. QUEL QUE SOIT LE TYPE DE TRAITEMENT, IL FAUT DONNER  :
12208 #      A. LE CONCEPT DU MAILLAGE INITIAL
12209 #      B. LE CONCEPT DU MAILLAGE FINAL
12210 #
12211            MAILLAGE_N     = SIMP(statut='o',typ=(CO,maillage),
12212                            fr="Maillage avant adaptation",
12213                            ang="Mesh before adaptation" ),
12214            MAILLAGE_NP1   = SIMP(statut='o',typ=(CO,maillage),
12215                            fr="Maillage apres adaptation",
12216                            ang="Mesh after adaptation" ),
12217 #
12218 # 4.3. POUR DE L'ADAPTATION LIBRE, IL FAUT L'INDICATEUR D'ERREUR
12219 #
12220 #
12221            b_indicateur_d_erreur   =BLOC( condition = " LIBRE != None " ,
12222                            fr="Indicateur d'erreur",
12223                            ang="Error indicator",
12224 #
12225 # 4.3.1. LE NOM DU CONCEPT RESULTAT
12226 #
12227                            RESULTAT_N     = SIMP(statut='o',typ=(evol_elas,evol_noli,evol_ther) ,
12228                            fr="Resultat contenant l'indicateur d'erreur",
12229                            ang="Result with error indicator" ),
12230 #
12231 # 4.3.2. LE CHAMP D'INDICATEUR D'ERREUR
12232 #
12233                            INDICATEUR     = SIMP(statut='o',typ='TXM',
12234                            fr="Champ de l'indicateur d'erreur",
12235                            ang="Error indicator field" ),
12236 #
12237 # 4.3.3. LA COMPOSANTE RETENUE
12238 #
12239                            NOM_CMP_INDICA = SIMP(statut='o',typ='TXM',
12240                            fr="Composante retenue",
12241                            ang="Selected component" ),
12242 #
12243 # 4.3.4. LE NUMERO D'ORDRE
12244 #
12245                            NUME_ORDRE     = SIMP(statut='f',typ='I' ,
12246                            fr="Numero d ordre",
12247                            ang="Rank" ),
12248                            ) ,
12249 #
12250 # 4.4. LES CRITERES POUR DE L'ADAPTATION LIBRE :
12251 #        ABSOLU, RELATIF, EN PROPORTION D'ENTITE
12252 # 4.4.1. POUR LE RAFFINEMENT :
12253 #
12254            b_critere_de_raffinement =BLOC( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'RAFFINEMENT' ) " ,
12255                            fr="Critère de raffinement.",
12256                            ang="Refinement threshold.",
12257                            regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE' ),),
12258                            CRIT_RAFF_ABS  = SIMP(statut='f',typ='R',
12259                                                    fr="Critère absolu",
12260                                                    ang="Absolute threshold" ),
12261                            CRIT_RAFF_REL  = SIMP(statut='f',typ='R',
12262                                                    fr="Critère relatif",
12263                                                    ang="Relative threshold" ),
12264                            CRIT_RAFF_PE   = SIMP(statut='f',typ='R',
12265                                                    fr="Pourcentage d'éléments",
12266                                                    ang="Percentage of elements" ),
12267                            ) ,
12268 #
12269 # 4.4.2. POUR LE DERAFFINEMENT :
12270 #
12271            b_critere_de_deraffinement =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'DERAFFINEMENT' ) " ,
12272                            fr="Critère de déraffinement.",
12273                            ang="Unrefinement threshold.",
12274                            regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE' ),),
12275                            CRIT_DERA_ABS  = SIMP(statut='f',typ='R' ,
12276                                                  fr="Critère absolu",
12277                                                  ang="Absolute threshold" ),
12278                            CRIT_DERA_REL  = SIMP(statut='f',typ='R',
12279                                                  fr="Critère relatif",
12280                                                  ang="Relative threshold" ),
12281                            CRIT_DERA_PE   = SIMP(statut='f',typ='R',
12282                                                  fr="Pourcentage d'éléments",
12283                                                  ang="Percentage of elements" ),
12284                            ) ,
12285 #
12286 # 4.5. LES NIVEAUX EXTREMES POUR LE MAILLAGE ADAPTE
12287 # 4.5.1. POUR LE RAFFINEMENT :
12288 #
12289            b_niveau_maximum =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'RAFFINEMENT' ) or \
12290                                                   ( UNIFORME == 'RAFFINEMENT' ) " ,
12291                              fr="Niveau maximum de profondeur de raffinement",
12292                              ang="Maximum level for refinement",
12293                              NIVE_MAX       = SIMP(statut='f',typ='I' ),
12294                            ) ,
12295 #
12296 # 4.5.2. POUR LE DERAFFINEMENT :
12297 #
12298            b_niveau_minimum =BLOC ( condition = " ( LIBRE == 'RAFF_DERA' ) or ( LIBRE == 'DERAFFINEMENT' ) or \
12299                                                   ( UNIFORME == 'DERAFFINEMENT' ) " ,
12300                              fr="Niveau minimum de profondeur de déraffinement",
12301                              ang="Minimum level for unrefinement",
12302                              NIVE_MIN       = SIMP(statut='f',typ='I' ),
12303                            ) ,
12304          ),
12305 #
12306 # 5. LA MISE A JOUR DE CHAMPS.
12307 #    PAR DEFAUT, RIEN NE SE FAIT
12308 #
12309          MAJ_CHAM        =FACT(statut='f',min=01,max='**',
12310                            fr="Mise à jour de champs sur le nouveau maillage.",
12311                            ang="Updating of fields over the new mesh.",
12312 #
12313 # 5.1. LE NOM DU RESULTAT DU CHAMP A INTERPOLER
12314 #
12315            RESULTAT       = SIMP(statut='o',
12316                                  typ=(evol_elas,evol_noli,evol_ther),
12317                            fr="Resultat contenant le champ à mettre à jour",
12318                            ang="Result with field to be updated" ),
12319 #
12320 # 5.2. LE NOM DU CHAMP A INTERPOLER
12321 #
12322            NOM_CHAM       = SIMP(statut='o',typ='TXM',
12323                            fr="Nom du champ à mettre à jour",
12324                            ang="Name of the field to be updated" ),
12325 #
12326 # 5.3. LE NUMERO D'ORDRE POUR LE CHAMP A INTERPOLER
12327 #
12328            NUME_ORDRE     = SIMP(statut='f',typ='I',
12329                            fr="Numero d ordre du champ à mettre à jour",
12330                            ang="Rank of the field to be updated" ),
12331 #
12332 # 5.4. LE NOM DU CHAMP QUI CONTIENDRA LE RESULTAT DE LA MISE A JOUR
12333 #
12334            CHAM_MAJ       = SIMP(statut='o',typ=(CO,cham_gd),
12335                            fr="Nom du champ qui contiendra le champ mis à jour",
12336                            ang="Name of the field for the updated field"),
12337 #
12338 # 5.5. LE TYPE DU CHAMP QUI CONTIENDRA LE RESULTAT DE LA MISE A JOUR
12339 #
12340            TYPE_CHAM      = SIMP(statut='o',typ='TXM',
12341                                  into=("NOEU_TEMP_R","NOEU_DEPL_R"),
12342                            fr="Type du champ qui contiendra le champ mis à jour",
12343                            ang="Type of the field for the updated field" ),
12344          ),
12345 #
12346 # 6. INFORMATION SUR LE MAILLAGE : par defaut, on ne fait que les nombres
12347 #    A. NOMBRE DE NOEUDS ET ELEMENTS DU MAILLAGE
12348 #    B. QUALITE DES ELEMENTS DU MAILLAGE
12349 #    C. CONTROLE DE LA NON INTERPENETRATION DES ELEMENTS DU MAILLAGE
12350 #    D. CONNEXITE DU MAILLAGE
12351 #    E. TAILLE DES DIFFERENTS SOUS-DOMAINES
12352 #
12353          NOMBRE         = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
12354                           fr="Nombre de noeuds et éléments du maillage",
12355                           ang="Number of nodes and elements in the mesh" ),
12356 #
12357          QUALITE        = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12358                           fr="Qualité du maillage",
12359                           ang="Mesh quality" ),
12360 #
12361          INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12362                           fr="Controle de la non interpénétration des éléments.",
12363                           ang="Overlapping checking." ),
12364 #
12365          CONNEXITE      = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12366                           fr="Connexité du maillage.",
12367                           ang="Mesh connexity." ),
12368 #
12369          TAILLE         = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
12370                           fr="Tailles des sous-domaines du maillage.",
12371                           ang="Sizes of mesh sub-domains." ),
12372 #
12373          MENAGE         = SIMP(statut='f',typ='TXM',into=("MAILLAGE","SOLUTION","TOUT") ),
12374 #
12375 )  ;
12376 #& MODIF COMMANDE  DATE 03/12/2002   AUTEUR DURAND C.DURAND
12377 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12378 # ======================================================================
12379 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12380 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12381 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12382 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12383 # (AT YOUR OPTION) ANY LATER VERSION.
12384 #
12385 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12386 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12387 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12388 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12389 #
12390 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12391 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12392 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12393 # ======================================================================
12394 # RESPONSABLE F1BHHAJ J.ANGLES
12395 def macr_ascouf_calc_prod(self,MODELE,CHAM_MATER,CARA_ELEM,FOND_FISS,CHARGE,RESU_THER,**args):
12396   self.type_sdprod(MODELE,modele)
12397   if CHAM_MATER != None:self.type_sdprod(CHAM_MATER,cham_mater)
12398   if CARA_ELEM  != None:self.type_sdprod(CARA_ELEM,cara_elem)
12399   if FOND_FISS  != None:self.type_sdprod(FOND_FISS,fond_fiss)
12400   if CHARGE     != None:self.type_sdprod(CHARGE,char_meca)
12401   if RESU_THER  != None:self.type_sdprod(RESU_THER,evol_ther)
12402   return evol_noli
12403
12404 MACR_ASCOUF_CALC=MACRO(nom="MACR_ASCOUF_CALC",op= -20,sd_prod=macr_ascouf_calc_prod,
12405                       fr=" ",
12406                       docu="U4.cf.20-b1",reentrant='n',
12407             UIinfo={"groupes":("Outils métier",)},
12408          regles=(UN_PARMI('COMP_INCR','COMP_ELAS'),),
12409
12410          TYPE_MAILLAGE   =SIMP(statut='o',typ='TXM',
12411                                into=("SAIN",
12412                                      "FISS_COUDE",
12413                                      "FISS_AXIS_DEB",
12414                                      "SOUS_EPAIS_COUDE"
12415                                      ) ),
12416
12417          CL_BOL_P2_GV    =FACT(statut='f',min=1,max=1,
12418            ANGLE           =SIMP(statut='o',typ='R' ),
12419            AZIMUT          =SIMP(statut='f',typ='R',defaut= 90. ),
12420          ),
12421
12422          MAILLAGE        =SIMP(statut='o',typ=maillage ),
12423          MODELE          =SIMP(statut='o',typ=(CO,modele)),
12424          CHAM_MATER      =SIMP(statut='f',typ=(CO,cham_mater)),
12425          CARA_ELEM       =SIMP(statut='f',typ=(CO,cara_elem)),
12426          FOND_FISS       =SIMP(statut='f',typ=(CO,fond_fiss)),
12427          CHARGE          =SIMP(statut='f',typ=(CO,char_meca)),
12428          RESU_THER       =SIMP(statut='f',typ=(CO,evol_ther)),
12429
12430          AFFE_MATERIAU   =FACT(statut='o',min=1,max=3,
12431            regles=(UN_PARMI('TOUT','GROUP_MA'),),
12432            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12433            GROUP_MA        =SIMP(statut='f',typ='TXM',into=("COUDE","BOL") ),
12434            MATER           =SIMP(statut='o',typ=mater ),
12435            TEMP_REF        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12436          ),
12437
12438          PRES_REP        =FACT(statut='f',min=1,max=1,
12439            PRES            =SIMP(statut='o',typ='R' ),
12440            EFFE_FOND_P1    =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12441            PRES_LEVRE      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
12442            FONC_MULT       =SIMP(statut='f',typ=fonction ),
12443          ),
12444
12445          ECHANGE         =FACT(statut='f',min=1,max=1,
12446            COEF_H          =SIMP(statut='f',typ=fonction ),
12447            TEMP_EXT        =SIMP(statut='f',typ=fonction ),
12448          ),
12449
12450          TORS_P1         =FACT(statut='f',min=1,max=6,
12451            regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
12452            FX              =SIMP(statut='f',typ='R' ),
12453            FY              =SIMP(statut='f',typ='R' ),
12454            FZ              =SIMP(statut='f',typ='R' ),
12455            MX              =SIMP(statut='f',typ='R' ),
12456            MY              =SIMP(statut='f',typ='R' ),
12457            MZ              =SIMP(statut='f',typ='R' ),
12458            FONC_MULT       =SIMP(statut='f',typ=fonction ),
12459          ),
12460
12461          COMP_INCR       =FACT(statut='f',min=1,max=1,
12462            RELATION        =SIMP(statut='o',typ='TXM',into=("VMIS_ISOT_TRAC",) ),
12463            VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut= 2,into=( 2 ,) ),
12464          ),
12465
12466          COMP_ELAS       =FACT(statut='f',min=1,max=1,
12467            RELATION        =SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC") ),
12468            ELAS            =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
12469            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
12470          ),
12471
12472          SOLVEUR         =FACT(statut='d',min=1,max=1,
12473            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
12474            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
12475              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
12476            ),
12477            b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
12478              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
12479            ),
12480            b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
12481                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
12482              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
12483              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12484            ),
12485            b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
12486              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
12487              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
12488              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
12489              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
12490              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
12491            ),
12492 #  A quoi sert eps
12493            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12494            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
12495          ),
12496
12497          CONVERGENCE     =FACT(statut='d',min=1,max=1,
12498            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
12499            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
12500            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
12501            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
12502            RESI_INTE_RELA  =SIMP(statut='f',typ='R'
12503                                 ,defaut= 1.0E-6),
12504            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
12505            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut= 0 ),
12506            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
12507            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
12508          ),
12509
12510          NEWTON          =FACT(statut='d',min=1,max=1,
12511            REAC_INCR       =SIMP(statut='f',typ='I',defaut= 1 ),
12512            PREDICTION      =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
12513            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
12514            REAC_ITER       =SIMP(statut='f',typ='I',defaut=0),
12515            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
12516          ),
12517
12518          RECH_LINEAIRE   =FACT(statut='f',min=1,max=1,
12519            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
12520            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 3),
12521          ),
12522
12523          INCREMENT       =FACT(statut='o',min=1,max=1,
12524            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
12525                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
12526            LIST_INST       =SIMP(statut='o',typ=listr8),
12527            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
12528                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
12529            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
12530            INST_INIT       =SIMP(statut='f',typ='R'),
12531            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
12532            INST_FIN        =SIMP(statut='f',typ='R'),
12533            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
12534            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
12535            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
12536            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
12537          ),
12538
12539          THETA_3D        =FACT(statut='f',min=1,max='**',
12540            R_INF           =SIMP(statut='o',typ='R' ),
12541            R_SUP           =SIMP(statut='o',typ='R' ),
12542          ),
12543
12544          IMPR_TABLE      =FACT(statut='f',min=1,max=1,
12545            regles=(UN_PARMI('TOUT_PARA','NOM_PARA', ),
12546             PRESENT_PRESENT('TOUT_PARA','ANGLE',    ),
12547             PRESENT_PRESENT('TOUT_PARA','R_CINTR',  ),
12548                    UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL',),),
12549            NOM_PARA        =SIMP(statut='f',typ='TXM',max=4,
12550                                  into=("TRESCA_MEMBRANE",
12551                                        "TRESCA_MFLE",
12552                                        "TRESCA",
12553                                        "SI_LONG"
12554                                        "SI_RADI"
12555                                        "SI_CIRC"
12556                                        ) ),
12557            TOUT_PARA       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12558            ANGLE           =SIMP(statut='f',typ='R',max='**' ),
12559            R_CINTR         =SIMP(statut='f',typ='R',max='**' ),
12560            POSI_CURV_LONGI =SIMP(statut='f',typ='R',max='**' ),
12561            POSI_ANGUL      =SIMP(statut='f',typ='R',max='**' ),
12562            TRANSFORMEE     =SIMP(statut='f',typ='TXM',defaut="COUDE",into=("COUDE","TUBE") ),
12563          ),
12564
12565          IMPRESSION      =FACT(statut='f',min=1,max=1,
12566            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
12567                                  into=("RESULTAT","ASTER","IDEAS","CASTEM") ),
12568
12569            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
12570              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12571            ),
12572
12573            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
12574              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
12575            ),
12576
12577          ),
12578
12579          TITRE           =SIMP(statut='f',typ='TXM' ),
12580
12581          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
12582 )  ;
12583 #& MODIF COMMANDE  DATE 03/12/2002   AUTEUR DURAND C.DURAND
12584 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12585 # ======================================================================
12586 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12587 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12588 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12589 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12590 # (AT YOUR OPTION) ANY LATER VERSION.
12591 #
12592 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12593 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12594 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12595 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12596 #
12597 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12598 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12599 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12600 # ======================================================================
12601 # RESPONSABLE F1BHHAJ J.ANGLES
12602 MACR_ASCOUF_MAIL=MACRO(nom="MACR_ASCOUF_MAIL",op= -19,sd_prod=maillage,
12603                       fr=" ",docu="U4.cf.10-b1",reentrant='n',
12604             UIinfo={"groupes":("Outils métier",)},
12605
12606          regles=(EXCLUS('SOUS_EPAIS_COUDE','FISS_COUDE','SOUS_EPAIS_MULTI'),),
12607
12608          EXEC_MAILLAGE   =FACT(statut='o',min=1,max=1,
12609            LOGICIEL        =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000") ),
12610            UNITE_DATG      =SIMP(statut='f',typ='I',defaut=70),
12611            UNITE_MGIB      =SIMP(statut='f',typ='I',defaut=19),
12612            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10,11)),
12613          ),
12614
12615          TYPE_ELEM       =SIMP(statut='f',typ='TXM',defaut="CU20",into=("CU20","CUB8") ),
12616
12617          COUDE           =FACT(statut='o',min=1,max=1,
12618            ANGLE           =SIMP(statut='o',typ='R' ),
12619            R_CINTR         =SIMP(statut='o',typ='R' ),
12620            L_TUBE_P1       =SIMP(statut='o',typ='R' ),
12621            L_TUBE_P2       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12622            NB_ELEM_EPAIS   =SIMP(statut='f',typ='I',defaut= 3 ),
12623            SYME            =SIMP(statut='f',typ='TXM',defaut="ENTIER",into=("ENTIER","QUART","DEMI") ),
12624            TRANSFORMEE     =SIMP(statut='o',typ='TXM',defaut="COUDE",into=("COUDE","TUBE") ),
12625            b_transf_coude  =BLOC(condition = "TRANSFORMEE == 'COUDE' ",
12626               DEXT            =SIMP(statut='o',typ='R' ),
12627               EPAIS           =SIMP(statut='o',typ='R' ),
12628               SUR_EPAIS       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12629               BOL_P2          =SIMP(statut='f',typ='TXM',into=("ASP_MPP","CUVE","GV") ),
12630            ),
12631            b_transf_tube   =BLOC(condition = "TRANSFORMEE == 'TUBE' ",
12632               TRAN_EPAIS      =SIMP(statut='o',typ='TXM',defaut="NON",into=("OUI","NON") ),
12633               b_trans_epais_oui    =BLOC(condition = "TRAN_EPAIS == 'OUI' ",
12634                       regles=(ENSEMBLE('ANGL_TETA2','EPAIS_TI'),
12635                               UN_PARMI('ABSC_CURV_TRAN','POSI_ANGU_TRAN'),),
12636                       DEXT_T1         =SIMP(statut='o',typ='R' ),
12637                       EPAIS_T1        =SIMP(statut='o',typ='R' ),
12638                       EPAIS_T2        =SIMP(statut='o',typ='R' ),
12639                       EPAIS_TI        =SIMP(statut='f',typ='R' ),
12640                       ANGL_TETA1      =SIMP(statut='o',typ='R' ),
12641                       ANGL_TETA2      =SIMP(statut='f',typ='R' ),
12642                       ABSC_CURV_TRAN  =SIMP(statut='f',typ='R' ),
12643                       POSI_ANGU_TRAN  =SIMP(statut='f',typ='R' ),
12644               ),
12645               b_trans_epais_non    =BLOC(condition = "TRAN_EPAIS == 'NON' ",
12646                       DEXT            =SIMP(statut='o',typ='R' ),
12647                       EPAIS           =SIMP(statut='o',typ='R' ),
12648                       SUR_EPAIS       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12649                       BOL_P2          =SIMP(statut='f',typ='TXM',into=("ASP_MPP","CUVE","GV") ),
12650               ),
12651            ),
12652          ),
12653
12654          SOUS_EPAIS_COUDE=FACT(statut='f',min=1,max=1,
12655            regles=(UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL'),
12656                    UN_PARMI('POSI_CURV_CIRC','AZIMUT'),),
12657            TYPE            =SIMP(statut='o',typ='TXM',into=("AXIS","ELLI") ),
12658            AXE_CIRC        =SIMP(statut='f',typ='R' ),
12659            AXE_LONGI       =SIMP(statut='o',typ='R' ),
12660            PROFONDEUR      =SIMP(statut='o',typ='R' ),
12661            POSI_CURV_LONGI =SIMP(statut='f',typ='R' ),
12662            POSI_ANGUL      =SIMP(statut='f',typ='R' ),
12663            POSI_CURV_CIRC  =SIMP(statut='f',typ='R' ),
12664            AZIMUT          =SIMP(statut='f',typ='R' ),
12665            SOUS_EPAIS      =SIMP(statut='o',typ='TXM',into=("INTERNE","EXTERNE") ),
12666            NB_ELEM_LONGI   =SIMP(statut='o',typ='I' ),
12667            NB_ELEM_CIRC    =SIMP(statut='o',typ='I' ),
12668            NB_ELEM_RADI    =SIMP(statut='f',typ='I',defaut= 3 ),
12669            EMPREINTE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12670          ),
12671
12672          SOUS_EPAIS_MULTI=FACT(statut='f',min=1,max='**',
12673            regles=(UN_PARMI('POSI_CURV_LONGI','POSI_ANGUL'),
12674                    UN_PARMI('POSI_CURV_CIRC','AZIMUT'),),
12675            TYPE            =SIMP(statut='o',typ='TXM',into=("AXIS","ELLI") ),
12676            AXE_CIRC        =SIMP(statut='f',typ='R' ),
12677            AXE_LONGI       =SIMP(statut='o',typ='R' ),
12678            PROFONDEUR      =SIMP(statut='o',typ='R' ),
12679            POSI_CURV_LONGI =SIMP(statut='f',typ='R' ),
12680            POSI_ANGUL      =SIMP(statut='f',typ='R' ),
12681            POSI_CURV_CIRC  =SIMP(statut='f',typ='R' ),
12682            AZIMUT          =SIMP(statut='f',typ='R' ),
12683            SOUS_EPAIS      =SIMP(statut='o',typ='TXM',into=("INTERNE","EXTERNE") ),
12684            NB_ELEM_LONGI   =SIMP(statut='o',typ='I' ),
12685            NB_ELEM_CIRC    =SIMP(statut='o',typ='I' ),
12686            EMPREINTE       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12687          ),
12688
12689          FISS_COUDE      =FACT(statut='f',min=1,max=1,
12690            regles=(UN_PARMI('ABSC_CURV','POSI_ANGUL'),),
12691            AXIS            =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON" ),
12692            b_axis_non    =BLOC(condition = "AXIS == 'NON' ",
12693                    LONGUEUR        =SIMP(statut='o',typ='R' ),
12694            ),
12695            b_axis_oui    =BLOC(condition = "AXIS == 'OUI' ",
12696                    LONGUEUR        =SIMP(statut='f',typ='R' ),
12697            ),
12698            PROFONDEUR      =SIMP(statut='o',typ='R' ),
12699            ABSC_CURV       =SIMP(statut='f',typ='R' ),
12700            POSI_ANGUL      =SIMP(statut='f',typ='R' ),
12701            FISSURE         =SIMP(statut='o',typ='TXM',into=("DEB_INT","DEB_EXT") ),
12702            AZIMUT          =SIMP(statut='f',typ='R',defaut= 90. ),
12703            ORIEN           =SIMP(statut='o',typ='R',
12704                                  into=(45.,-45.,90.,0.E+0) ),
12705            NB_TRANCHE      =SIMP(statut='o',typ='I' ),
12706            NB_SECTEUR      =SIMP(statut='o',typ='I' ),
12707            NB_COURONNE     =SIMP(statut='o',typ='I' ),
12708            RAYON_TORE      =SIMP(statut='f',typ='R' ),
12709            COEF_MULT_RC2   =SIMP(statut='f',typ='R',defaut= 1. ),
12710            COEF_MULT_RC3   =SIMP(statut='f',typ='R' ),
12711            ANGL_OUVERTURE  =SIMP(statut='f',typ='R',defaut= 0.5 ),
12712          ),
12713
12714          IMPRESSION      =FACT(statut='f',min=1,max='**',
12715            regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
12716            FORMAT          =SIMP(statut='f',typ='TXM',defaut="ASTER",
12717                                  into=("ASTER","IDEAS","CASTEM") ),
12718            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
12719              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12720            ),
12721            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
12722              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
12723            ),
12724            FICHIER         =SIMP(statut='f',typ='TXM' ),
12725            UNITE           =SIMP(statut='f',typ='I' ),
12726          ),
12727
12728          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
12729 )  ;
12730 #& MODIF COMMANDE  DATE 03/12/2002   AUTEUR DURAND C.DURAND
12731 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12732 # ======================================================================
12733 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12734 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12735 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12736 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12737 # (AT YOUR OPTION) ANY LATER VERSION.
12738 #
12739 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12740 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12741 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12742 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12743 #
12744 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12745 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12746 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12747 # ======================================================================
12748 # RESPONSABLE F1BHHAJ J.ANGLES
12749 def macr_aspic_calc_prod(self,MODELE,CHAM_MATER,CARA_ELEM,FOND_FISS_1,FOND_FISS_2,CHARGE,RESU_THER,**args):
12750   if MODELE      != None:self.type_sdprod(MODELE,modele)
12751   if CHAM_MATER  != None:self.type_sdprod(CHAM_MATER,cham_mater)
12752   if CARA_ELEM   != None:self.type_sdprod(CARA_ELEM,cara_elem)
12753   if FOND_FISS_1 != None:self.type_sdprod(FOND_FISS_1,fond_fiss)
12754   if FOND_FISS_2 != None:self.type_sdprod(FOND_FISS_2,fond_fiss)
12755   if CHARGE      != None:self.type_sdprod(CHARGE,char_meca)
12756   if RESU_THER   != None:self.type_sdprod(RESU_THER,evol_ther)
12757   return evol_noli
12758
12759 MACR_ASPIC_CALC=MACRO(nom="MACR_ASPIC_CALC",op=-17,sd_prod=macr_aspic_calc_prod,
12760                     fr=" ",docu="U4.pc.20-b2",reentrant='n',
12761             UIinfo={"groupes":("Outils métier",)},
12762          regles=(UN_PARMI('COMP_INCR','COMP_ELAS'),),
12763
12764          TYPE_MAILLAGE   =SIMP(statut='o',typ='TXM',
12765                                into=("SAIN_FIN","SAIN_GROS","FISS_COUR_DEB","FISS_COUR_NONDEB","FISS_LONG_DEB",
12766                                      "FISS_LONG_NONDEB","FISS_AXIS_DEB","FISS_AXIS_NONDEB") ),
12767
12768          TUBULURE        =FACT(statut='o',min=1,max=1,
12769            TYPE            =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2") ),
12770          ),
12771          MAILLAGE        =SIMP(statut='o',typ=maillage),
12772          MODELE          =SIMP(statut='f',typ=(CO,modele)),
12773          CHAM_MATER      =SIMP(statut='f',typ=(CO,cham_mater)),
12774          CARA_ELEM       =SIMP(statut='f',typ=(CO,cara_elem)),
12775          FOND_FISS_1     =SIMP(statut='f',typ=(CO,fond_fiss)),
12776          FOND_FISS_2     =SIMP(statut='f',typ=(CO,fond_fiss)),
12777          CHARGE          =SIMP(statut='f',typ=(CO,char_meca)),
12778          RESU_THER       =SIMP(statut='f',typ=(CO,evol_ther)),
12779
12780          AFFE_MATERIAU   =FACT(statut='o',min=1,max=3,
12781            regles=(UN_PARMI('TOUT','GROUP_MA'),),
12782            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
12783            GROUP_MA        =SIMP(statut='f',typ='TXM',into=("TUBU","CORP","SOUD","SOUDCORP","SOUDTUBU") ),
12784            MATER           =SIMP(statut='o',typ=mater),
12785            TEMP_REF        =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12786            RCCM            =SIMP(statut='o',typ='TXM',into=("OUI","NON")),
12787          ),
12788
12789          EQUILIBRE       =FACT(statut='o',min=1,max=1,
12790            NOEUD           =SIMP(statut='o',typ=no),
12791          ),
12792
12793          PRES_REP        =FACT(statut='o',min=1,max=1,
12794            PRES            =SIMP(statut='o',typ='R'),
12795            NOEUD           =SIMP(statut='f',typ=no),
12796            EFFE_FOND       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
12797            PRES_LEVRE      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
12798            FONC_MULT       =SIMP(statut='f',typ=fonction),
12799          ),
12800
12801          ECHANGE         =FACT(statut='f',min=1,max=1,
12802            COEF_H_TUBU     =SIMP(statut='o',typ=fonction),
12803            COEF_H_CORP     =SIMP(statut='o',typ=fonction),
12804            TEMP_EXT        =SIMP(statut='o',typ=fonction),
12805          ),
12806
12807          TORS_CORP       =FACT(statut='f',min=1,max=6,
12808            regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
12809            NOEUD           =SIMP(statut='o',typ=no),
12810            FX              =SIMP(statut='f',typ='R'),
12811            FY              =SIMP(statut='f',typ='R'),
12812            FZ              =SIMP(statut='f',typ='R'),
12813            MX              =SIMP(statut='f',typ='R'),
12814            MY              =SIMP(statut='f',typ='R'),
12815            MZ              =SIMP(statut='f',typ='R'),
12816            FONC_MULT       =SIMP(statut='f',typ=fonction),
12817          ),
12818
12819          TORS_TUBU       =FACT(statut='f',min=1,max=6,
12820            regles=(AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
12821            FX              =SIMP(statut='f',typ='R'),
12822            FY              =SIMP(statut='f',typ='R'),
12823            FZ              =SIMP(statut='f',typ='R'),
12824            MX              =SIMP(statut='f',typ='R'),
12825            MY              =SIMP(statut='f',typ='R'),
12826            MZ              =SIMP(statut='f',typ='R'),
12827            FONC_MULT       =SIMP(statut='f',typ=fonction),
12828          ),
12829
12830          COMP_INCR       =FACT(statut='f',min=1,max=1,
12831            RELATION        =SIMP(statut='o',typ='TXM',into=("VMIS_ISOT_TRAC",) ),
12832            VMIS_ISOT_TRAC  =SIMP(statut='c',typ='I',defaut= 2,into=( 2 ,) ),
12833          ),
12834
12835          COMP_ELAS       =FACT(statut='f',min=1,max=1,
12836            RELATION        =SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC") ),
12837            ELAS            =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
12838            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut= 1,into=( 1 ,) ),
12839          ),
12840
12841          THETA_3D        =FACT(statut='f',min=1,max='**',
12842            R_INF           =SIMP(statut='o',typ='R'),
12843            R_SUP           =SIMP(statut='o',typ='R'),
12844          ),
12845
12846          OPTION          =SIMP(statut='f',typ='TXM',into=("CALC_G_MAX","CALC_G_MAX_LOCAL") ),
12847          BORNES          =FACT(statut='f',min=1,max='**',
12848            NUME_ORDRE      =SIMP(statut='o',typ='I'),
12849            VALE_MIN        =SIMP(statut='o',typ='R'),
12850            VALE_MAX        =SIMP(statut='o',typ='R'),
12851          ),
12852
12853          SOLVEUR         =FACT(statut='d',min=1,max=1,
12854            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
12855            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
12856              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
12857            ),
12858            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
12859              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
12860            ),
12861            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
12862                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
12863              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
12864              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
12865            ),
12866            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
12867              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
12868              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
12869              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
12870              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
12871              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
12872            ),
12873 #  A quoi sert eps
12874            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
12875            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
12876          ),
12877
12878          CONVERGENCE     =FACT(statut='d',min=1,max=1,
12879            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
12880            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
12881            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
12882            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
12883            RESI_INTE_RELA  =SIMP(statut='f',typ='R',defaut=1.0E-6),
12884            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut=10),
12885            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut=0),
12886            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
12887            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
12888          ),
12889
12890          NEWTON          =FACT(statut='d',min=1,max=1,
12891            REAC_INCR       =SIMP(statut='f',typ='I',defaut=1),
12892            PREDICTION      =SIMP(statut='f',typ='TXM',into=("TANGENTE","ELASTIQUE","EXTRAPOL","DEPL_CALCULE")),
12893            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE")),
12894            REAC_ITER       =SIMP(statut='f',typ='I',defaut= 0),
12895          ),
12896
12897          RECH_LINEAIRE   =FACT(statut='d',min=1,max=1,
12898            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut=1.0E-3),
12899            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut=3),
12900          ),
12901
12902          INCREMENT       =FACT(statut='o',min=1,max=1,
12903            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
12904                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
12905            LIST_INST       =SIMP(statut='o',typ=listr8),
12906            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
12907                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
12908            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
12909            INST_INIT       =SIMP(statut='f',typ='R'),
12910            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
12911            INST_FIN        =SIMP(statut='f',typ='R'),
12912            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
12913            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
12914            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
12915            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
12916          ),
12917
12918          PAS_AZIMUT      =SIMP(statut='f',typ='I',defaut=1),
12919
12920          IMPRESSION      =FACT(statut='f',min=1,max=1,
12921            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
12922                                  into=("RESULTAT","ASTER","CASTEM","IDEAS")),
12923
12924            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
12925              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
12926            ),
12927
12928            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
12929              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
12930            ),
12931
12932            b_extrac        =BLOC(condition="((FORMAT=='IDEAS')or(FORMAT=='CASTEM'))",
12933                                  fr="extraction d un champ de grandeur",
12934              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST'),),
12935              NOM_CHAM        =SIMP(statut='f',typ='TXM',max=3,
12936                                    into=("DEPL","EQUI_ELNO_SIGM","TEMP")),
12937
12938              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
12939              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
12940              INST            =SIMP(statut='f',typ='R',max='**'),
12941            ),
12942          ),
12943
12944          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
12945
12946          TITRE           =SIMP(statut='f',typ='TXM'),
12947 )  ;
12948 # debut entete
12949 #& MODIF COMMANDE  DATE 03/12/2002   AUTEUR DURAND C.DURAND
12950 #            CONFIGURATION MANAGEMENT OF EDF VERSION
12951 # ======================================================================
12952 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
12953 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
12954 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
12955 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
12956 # (AT YOUR OPTION) ANY LATER VERSION.
12957 #
12958 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
12959 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
12960 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
12961 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12962 #
12963 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
12964 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
12965 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
12966 # ======================================================================
12967 # RESPONSABLE F1BHHAJ J.ANGLES
12968 MACR_ASPIC_MAIL=MACRO(nom="MACR_ASPIC_MAIL",op= -16,sd_prod=maillage,reentrant='n',
12969                     fr=" ",docu="U4.pc.10-b1",
12970             UIinfo={"groupes":("Outils métier",)},
12971
12972          EXEC_MAILLAGE   =FACT(statut='o',min=1,max=1,
12973            LOGICIEL        =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000")),
12974            UNITE_DATG      =SIMP(statut='f',typ='I',defaut=70),
12975            UNITE_MGIB      =SIMP(statut='f',typ='I',defaut=19),
12976            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10,11)),
12977          ),
12978
12979          TYPE_ELEM       =SIMP(statut='f',typ='TXM',defaut="CU20",into=("CU20","CUB8")),
12980
12981          RAFF_MAIL       =SIMP(statut='f',typ='TXM',defaut="GROS",into=("GROS","FIN")),
12982
12983          TUBULURE        =FACT(statut='o',min=1,max=1,
12984            E_BASE          =SIMP(statut='o',typ='R'),
12985            DEXT_BASE       =SIMP(statut='o',typ='R'),
12986            L_BASE          =SIMP(statut='o',typ='R'),
12987            L_CHANF         =SIMP(statut='o',typ='R'),
12988            E_TUBU          =SIMP(statut='o',typ='R'),
12989            DEXT_TUBU       =SIMP(statut='o',typ='R'),
12990            Z_MAX           =SIMP(statut='o',typ='R'),
12991            TYPE            =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2")),
12992            L_PENETR        =SIMP(statut='f',typ='R',defaut= 0.0E+0),
12993          ),
12994
12995          SOUDURE         =FACT(statut='o',min=1,max=1,
12996            H_SOUD          =SIMP(statut='o',typ='R'),
12997            ANGL_SOUD       =SIMP(statut='o',typ='R'),
12998            JEU_SOUD        =SIMP(statut='o',typ='R'),
12999          ),
13000
13001          CORPS           =FACT(statut='o',min=1,max=1,
13002            E_CORP          =SIMP(statut='o',typ='R'),
13003            DEXT_CORP       =SIMP(statut='o',typ='R'),
13004            X_MAX           =SIMP(statut='o',typ='R'),
13005          ),
13006
13007          FISS_SOUDURE    =FACT(statut='f',min=1,max=1,
13008            TYPE            =SIMP(statut='o',typ='TXM',into=("LONGUE","COURTE")),
13009            AXIS            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
13010            PROFONDEUR      =SIMP(statut='o',typ='R'),
13011            LONGUEUR        =SIMP(statut='f',typ='R'),
13012            AZIMUT          =SIMP(statut='o',typ='R'),
13013            RAYON_TORE      =SIMP(statut='f',typ='R'),
13014            POSITION        =SIMP(statut='o',typ='TXM',into=("DROIT","INCLINE")),
13015            FISSURE         =SIMP(statut='o',typ='TXM',into=("DEB_INT","DEB_EXT","NON_DEB","TRAVERS")),
13016            LIGA_INT        =SIMP(statut='f',typ='R'),
13017            ANGL_OUVERTURE  =SIMP(statut='f',typ='R',defaut= 0.0E+0),
13018            COEF_MULT_RC1   =SIMP(statut='f',typ='R'),
13019            COEF_MULT_RC2   =SIMP(statut='f',typ='R'),
13020            COEF_MULT_RC3   =SIMP(statut='f',typ='R'),
13021            NB_TRANCHE      =SIMP(statut='f',typ='I'),
13022            NB_SECTEUR      =SIMP(statut='f',typ='I'),
13023            NB_COURONNE     =SIMP(statut='f',typ='I'),
13024          ),
13025
13026          IMPRESSION      =FACT(statut='f',min=1,max='**',
13027            regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
13028            FORMAT          =SIMP(statut='f',typ='TXM',defaut="ASTER",into=("ASTER","IDEAS","CASTEM")),
13029
13030            b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="version Ideas",
13031              VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
13032            ),
13033
13034            b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="version Castem",
13035              NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
13036            ),
13037            FICHIER         =SIMP(statut='f',typ='TXM'),
13038            UNITE           =SIMP(statut='f',typ='I'),
13039          ),
13040
13041          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13042 )  ;
13043 #& MODIF COMMANDE  DATE 28/01/2003   AUTEUR JMBHH01 J.M.PROIX
13044 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13045 # ======================================================================
13046 # COPYRIGHT (C) 1991 - 2003  EDF R&D                  WWW.CODE-ASTER.ORG
13047 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13048 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13049 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13050 # (AT YOUR OPTION) ANY LATER VERSION.
13051 #
13052 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13053 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13054 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13055 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13056 #
13057 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13058 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13059 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13060 # ======================================================================
13061 # RESPONSABLE JMBHH01 J.M.PROIX
13062
13063 from Macro.macr_cara_poutre_ops import macr_cara_poutre_ops
13064
13065 MACR_CARA_POUTRE=MACRO(nom="MACR_CARA_POUTRE",op=macr_cara_poutre_ops,sd_prod=tabl_cara_geom,
13066                        docu="U4.42.02-d1",reentrant='n',
13067           UIinfo={"groupes":("Modélisation",)},
13068           fr="caractéristiques d'une section transversale de poutre à partir d'un maillage 2D",
13069           regles=(EXCLUS('SYME_X','GROUP_MA_BORD'),
13070                   EXCLUS('SYME_Y','GROUP_MA_BORD'),),
13071
13072           UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut= 20 ),
13073           ORIG_INER       =SIMP(statut='f',typ='R',max='**',defaut=(0.E+0,0.E+0),
13074                                 fr="Point par rapport auquel sont calculées les inerties"),
13075           INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13076
13077           SYME_X          =SIMP(statut='f',typ='TXM',into=("OUI",),fr="demi maillage par rapport a x=0"),
13078           SYME_Y          =SIMP(statut='f',typ='TXM',into=("OUI",),fr="demi maillage par rapport a y=0"),
13079
13080           GROUP_MA        =SIMP(statut='f',typ=grma,max='**',
13081           fr="Calcul des caractéristiques équivalentes a plusieurs sections disjointes"),
13082
13083           GROUP_MA_BORD   =SIMP(statut='f',typ=grma,max='**',
13084                                fr="Groupe(s) de mailles linéiques, bord(s) de(s) section(s)"),
13085
13086                b_gma_bord = BLOC( condition = "GROUP_MA_BORD != None",
13087                             fr=" calcul des carac. mecaniques",
13088
13089                     NOEUD           =SIMP(statut='f',typ=no,max='**',
13090                     fr="Simplement pour empecher des pivots nuls le cas echeant. Fournir un noeud quelconque"),
13091                     GROUP_MA_INTE   =SIMP(statut='f',typ=grma,max='**',
13092                     fr="groupes de mailles linéiques bordant des trous dans la section"),
13093                     ),
13094
13095                b_reseau = BLOC( condition ="""(GROUP_MA_BORD != None) and (GROUP_MA != None)""",
13096                            fr=" calcul des coef de cisaillement équivalents a un reseau de poutres",
13097                             regles=(ENSEMBLE('LONGUEUR','LIAISON','MATERIAU') ,),
13098                             LONGUEUR        =SIMP(statut='f',typ='R',fr="Longueur du réseau de poutres"),
13099                             MATERIAU        =SIMP(statut='f',typ=mater,fr="Materiau elastique lineaire du reseau"),
13100                             LIAISON         =SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT"),
13101                             fr="type de conditions aux limites sur le plancher supérieur" ),
13102                               ),
13103                     )
13104 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13105 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13106 # ======================================================================
13107 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13108 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13109 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13110 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13111 # (AT YOUR OPTION) ANY LATER VERSION.
13112 #
13113 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13114 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13115 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13116 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13117 #
13118 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13119 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13120 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13121 # ======================================================================
13122 MACR_ELEM_DYNA=OPER(nom="MACR_ELEM_DYNA",op=  81,sd_prod=macr_elem_dyna,
13123                     fr="Définition d un macro élément pour analyse modale ou harmonique par sous structuration dynamique",
13124                     docu="U4.65.01-e1",reentrant='n',
13125             UIinfo={"groupes":("Matrices/vecteurs",)},
13126          regles=(EXCLUS('MATR_AMOR','AMOR_REDUIT' ),),
13127          BASE_MODALE     =SIMP(statut='o',typ=base_modale ),
13128          MATR_RIGI       =SIMP(statut='f',typ=matr_asse_depl_r ),
13129          MATR_MASS       =SIMP(statut='f',typ=matr_asse_depl_r ),
13130          MATR_AMOR       =SIMP(statut='f',typ=matr_asse_depl_r ),
13131          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
13132          OPTION          =SIMP(statut='f',typ='TXM',defaut="CLASSIQUE",into=("CLASSIQUE","RITZ",
13133                           "DIAG_MASS") ),
13134 )  ;
13135 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13136 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13137 # ======================================================================
13138 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13139 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13140 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13141 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13142 # (AT YOUR OPTION) ANY LATER VERSION.
13143 #
13144 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13145 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13146 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13147 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13148 #
13149 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13150 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13151 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13152 # ======================================================================
13153 MACR_ELEM_STAT=OPER(nom="MACR_ELEM_STAT",op=86,sd_prod=macr_elem_stat,docu="U4.62.01-f1",reentrant='f',
13154             UIinfo={"groupes":("Matrices/vecteurs",)},
13155                     fr="Définition d un macro-élément pour l analyse statique par sous structuration",
13156         regles=(AU_MOINS_UN('DEFINITION','RIGI_MECA','MASS_MECA','CAS_CHARGE'),
13157                 ENSEMBLE('DEFINITION','EXTERIEUR'),),
13158          DEFINITION      =FACT(statut='f',min=1,max=1,
13159            MODELE          =SIMP(statut='o',typ=modele),
13160            CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
13161            CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
13162            CHAR_MACR_ELEM  =SIMP(statut='f',typ=char_meca),
13163            INST            =SIMP(statut='f',typ='R',defaut=0.0E+0 ),
13164            NMAX_CAS        =SIMP(statut='f',typ='I',defaut=10),
13165            NMAX_CHAR       =SIMP(statut='f',typ='I',defaut=10),
13166          ),
13167          EXTERIEUR       =FACT(statut='f',min=1,max=1,
13168            regles=(AU_MOINS_UN('NOEUD','GROUP_NO'),),
13169            NOEUD           =SIMP(statut='f',typ=no,max='**'),
13170            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
13171          ),
13172          RIGI_MECA       =FACT(statut='f',min=1,max=1,
13173          ),
13174          MASS_MECA       =FACT(statut='f',min=1,max=1,
13175            BIDO1           =SIMP(statut='f',typ='I',defaut=0),
13176          ),
13177          CAS_CHARGE      =FACT(statut='f',min=1,max='**',
13178            NOM_CAS         =SIMP(statut='o',typ='TXM'),
13179            SUIV            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
13180            CHARGE          =SIMP(statut='f',typ=char_meca,max='**'),
13181            INST            =SIMP(statut='f',typ='R',defaut=0.E+0),
13182          ),
13183 )  ;
13184 #& MODIF COMMANDE  DATE 03/12/2002   AUTEUR DURAND C.DURAND
13185 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13186 # ======================================================================
13187 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13188 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13189 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13190 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13191 # (AT YOUR OPTION) ANY LATER VERSION.
13192 #
13193 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13194 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13195 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13196 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13197 #
13198 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13199 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13200 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13201 # ======================================================================
13202 MACR_GOUJ2E_CALC=MACRO(nom="MACR_GOUJ2E_CALC",op=-23,sd_prod=evol_noli,
13203                       fr=" ",docu="U4.gj.20-a",reentrant='n',
13204             UIinfo={"groupes":("Outils métier",)},
13205          MAILLAGE        =SIMP(statut='o',typ=maillage),
13206          DEFI_GOUJ       =FACT(statut='o',min=1,max=1,
13207            TYPE            =SIMP(statut='o',typ='TXM',into=("M33","M64","M90","M115","M155","M180","M186")),
13208            VARIANTE        =SIMP(statut='o',typ='TXM',into=("A","B","C","D","E","F","G","H","I","J","K","L","M",
13209                                                             "N","O","P","Q","R","S","T","U","V","W","X","Y","Z")),
13210            FILET_TRONQUE   =SIMP(statut='f',typ='I',max='**'),
13211            FILET_TRONQA    =SIMP(statut='f',typ='I',max='**'),
13212            FILET_TRONQB    =SIMP(statut='f',typ='I',max='**'),
13213            FILET_JEU_HT    =SIMP(statut='f',typ='I',max='**'),
13214            FILET_JEU_HTA   =SIMP(statut='f',typ='I',max='**'),
13215            FILET_JEU_HTB   =SIMP(statut='f',typ='I',max='**'),
13216          ),
13217          EXCIT           =FACT(statut='o',min=1,max=1,
13218            TYPE_BLOCAGE    =SIMP(statut='o',typ='I',defaut=2,into=(1,2,3)),
13219            FORCE_GOUJ      =SIMP(statut='o',typ='R'),
13220          ),
13221          CALCUL          =FACT(statut='o',min=1,max=1,
13222            TYPE_CALCUL     =SIMP(statut='o',typ='TXM',into=("ELASTIQUE","ELASTOPLASTIQUE")),
13223            NB_INCR         =SIMP(statut='o',typ='I'),
13224          ),
13225          IMPRESSION      =FACT(statut='f',min=1,max=1,
13226            FORMAT          =SIMP(statut='f',typ='TXM',defaut="TABLE",
13227                                  into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED","TABLE")),
13228            VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
13229          ),
13230          TITRE           =SIMP(statut='f',typ='TXM'),
13231          INFO            =SIMP(statut='f',typ='I',defaut=1 ,into=(1,2)),
13232 )  ;
13233 #& MODIF COMMANDE  DATE 03/12/2002   AUTEUR DURAND C.DURAND
13234 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13235 # ======================================================================
13236 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13237 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13238 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13239 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13240 # (AT YOUR OPTION) ANY LATER VERSION.
13241 #
13242 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13243 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13244 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13245 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13246 #
13247 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13248 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13249 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13250 # ======================================================================
13251 MACR_GOUJ2E_MAIL=MACRO(nom="MACR_GOUJ2E_MAIL",op= -22,sd_prod=maillage,
13252                       fr=" ",docu="U4.gj.10-a",reentrant='n',
13253             UIinfo={"groupes":("Outils métier",)},
13254          EXEC_MAILLAGE   =FACT(statut='o',min=1,max=1,
13255            LOGICIEL        =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000") ),
13256            UNITE_DATG      =SIMP(statut='f',typ='I',defaut=70),
13257            UNITE_MGIB      =SIMP(statut='f',typ='I',defaut=19),
13258            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,4,5,6,7,8,9,10)),
13259          ),
13260          DEFI_GOUJ       =FACT(statut='o',min=1,max=1,
13261            TYPE            =SIMP(statut='o',typ='TXM',into=("M33","M64","M90","M115","M155","M180","M186")),
13262            VARIANTE        =SIMP(statut='o',typ='TXM',into=("A","B","C","D","E","F","G","H","I","J","K","L","M",
13263                                                             "N","O","P","Q","R","S","T","U","V","W","X","Y","Z")),
13264          ),
13265          GEOM_GOUJ_BRID  =FACT(statut='o',min=1,max=1,
13266            NB_FILET        =SIMP(statut='o',typ='I'),
13267            H_CORP_BRID     =SIMP(statut='o',typ='R'),
13268            R_EXT_BRID      =SIMP(statut='o',typ='R'),
13269            H_HAUT_BRID     =SIMP(statut='f',typ='R',defaut=0.0E+0),
13270            H_BAS_BRID      =SIMP(statut='f',typ='R',defaut= 0.0E+0),
13271            FILET_ABST      =SIMP(statut='f',typ='I',max='**'),
13272          ),
13273          IMPRESSION      =FACT(statut='f',min=1,max=1,
13274            regles=(PRESENT_PRESENT('FICHIER','UNITE'),),
13275            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
13276                                  into=("RESULTAT","IDEAS","ASTER","CASTEM","ENSIGHT","MED")),
13277            FICHIER         =SIMP(statut='f',typ='TXM'),
13278            UNITE           =SIMP(statut='f',typ='I'),
13279            VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
13280            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
13281          ),
13282          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13283 )  ;
13284 #& MODIF COMMANDE  DATE 08/10/2002   AUTEUR GNICOLAS G.NICOLAS
13285 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13286 # ======================================================================
13287 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13288 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13289 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13290 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13291 # (AT YOUR OPTION) ANY LATER VERSION.
13292 #
13293 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13294 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13295 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13296 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13297 #
13298 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13299 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13300 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13301 # ======================================================================
13302 # RESPONSABLE GNICOLAS G.NICOLAS
13303 MACR_INFO_MAIL=MACRO(nom="MACR_INFO_MAIL",op=-24,docu="U7.03.02-b2",
13304                      fr="Donner des informations sur un maillage.",
13305                      ang="To give information about a mesh.",
13306 #
13307 # 1. Le niveau d'information
13308 #
13309          INFO           = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13310 #
13311 # 2. Version de HOMARD
13312 #
13313          VERSION_HOMARD = SIMP(statut='f',typ='TXM',defaut="V5_5",
13314                                into=("V5_5", "V5_N","V5_N_PERSO"),
13315                            fr="Version de HOMARD",
13316                            ang="HOMARD release"),
13317 #
13318 # 3. Langue des messages issus de HOMARD
13319 #
13320          LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
13321                                into=("FRANCAIS","FRENCH","ANGLAIS","ENGLISH",),
13322                            fr="Langue des messages issus de HOMARD.",
13323                            ang="Language for HOMARD messages." ),
13324 #
13325 # 4. Le nom du maillage a analyser
13326 #
13327          MAILLAGE       = SIMP(statut='o',typ=maillage,
13328                            fr="Maillage à analyser.",
13329                            ang="Mesh to be checked." ),
13330 #
13331 # 5. Les options ; par defaut, on ne fait que les nombres
13332 # 5.1. Nombre de noeuds et elements
13333 #
13334          NOMBRE         = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
13335                           fr="Nombre de noeuds et éléments du maillage",
13336                           ang="Number of nodes and elements in the mesh" ),
13337 #
13338 # 5.2. Determination de la qualite des elements du maillage
13339 #
13340          QUALITE        = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
13341                           fr="Qualité du maillage",
13342                           ang="Mesh quality" ),
13343 #
13344 # 5.3. Connexite du maillage
13345 #
13346          CONNEXITE      = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
13347                           fr="Connexité du maillage.",
13348                           ang="Mesh connexity." ),
13349 #
13350 # 5.4. Taille des sous-domaines du maillage
13351 #
13352          TAILLE         = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
13353                           fr="Tailles des sous-domaines du maillage.",
13354                           ang="Sizes of mesh sub-domains." ),
13355 #
13356 # 5.5. Controle de la non-interpenetration des elements
13357 #
13358          INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
13359                           fr="Controle de la non interpénétration des éléments.",
13360                           ang="Overlapping checking." ),
13361 #
13362 )  ;
13363 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13364 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13365 # ======================================================================
13366 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
13367 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13368 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13369 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13370 # (AT YOUR OPTION) ANY LATER VERSION.
13371 #
13372 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13373 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13374 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13375 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13376 #
13377 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13378 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13379 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13380 # ======================================================================
13381
13382 from Macro.macr_lign_coupe_ops import macr_lign_coupe_ops
13383
13384 def macr_lign_coupe_prod(self,LIGN_COUPE,**args):
13385   if not LIGN_COUPE:  raise AsException("Impossible de typer les concepts resultats")
13386   for m in LIGN_COUPE:
13387     self.type_sdprod(m['TABLE'],table)
13388   return None
13389
13390
13391 MACR_LIGN_COUPE=MACRO(nom="MACR_LIGN_COUPE",op=macr_lign_coupe_ops,sd_prod=macr_lign_coupe_prod,
13392                        docu="",reentrant='n',
13393             UIinfo={"groupes":("Outils métier",)},
13394                        fr="extraction d un résultat sur des lignes de coupes définies par 2 points et un intervalle",
13395          RESULTAT        =SIMP(statut='o',typ=(evol_elas,evol_noli,evol_ther) ),
13396          b_meca        =BLOC(condition = "AsType(RESULTAT) in (evol_elas,evol_noli)",fr="résultat mécanique",
13397            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut='SIGM_NOEU_DEPL' ),
13398          ),
13399          b_ther        =BLOC(condition = "AsType(RESULTAT) in (evol_ther,)",fr="résultat thermique",
13400            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut='TEMP' ),
13401          ),
13402          MODELE          =SIMP(statut='o',typ=modele ),
13403          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=25),
13404          LIGN_COUPE     =FACT(statut='o',min=1,max='**',
13405            NB_POINTS       =SIMP(statut='o',typ='I'),
13406            COOR_ORIG       =SIMP(statut='o',typ='R',min=2,max=3),
13407            COOR_EXTR       =SIMP(statut='o',typ='R',min=2,max=3),
13408            TABLE           =SIMP(statut='o',typ=(table,CO)),
13409          ),
13410 )  ;
13411 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13412 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13413 # ======================================================================
13414 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
13415 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13416 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13417 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13418 # (AT YOUR OPTION) ANY LATER VERSION.
13419 #
13420 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13421 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13422 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13423 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13424 #
13425 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13426 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13427 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13428 # ======================================================================
13429
13430 from Macro.macr_recal_ops import macr_recal_ops
13431
13432 def macr_recal_prod(self,**args ):
13433   return listr8
13434
13435 MACR_RECAL = MACRO(nom="MACR_RECAL",op=macr_recal_ops,docu="U4.73.02",
13436             UIinfo={"groupes":("Résultats et champs",)},
13437                       sd_prod=macr_recal_prod,
13438                       fr="Réalise le recalage de modèles Aster",
13439          UNITE_ESCL      =SIMP(statut='o',typ='I'),
13440          RESU_EXP        =SIMP(statut='o',typ=assd,min = 1, max='**'),
13441          RESU_CALC       =SIMP(statut='o',typ=assd,min = 1, max='**'),
13442          LIST_PARA       =SIMP(statut='o',typ=assd,min = 1, max='**'),
13443          ITER_MAXI       =SIMP(statut='f',typ='I',defaut=10),
13444          RESI_GLOB_RELA  =SIMP(statut='f',typ='R',defaut=1.E-3),
13445          UNITE_RESU      =SIMP(statut='f',typ='I',defaut=91),
13446          PARA_DIFF_FINI  =SIMP(statut='f',typ='R',defaut=0.001),
13447          GRAPHIQUE       =FACT(statut='d',min=1,max=1,
13448            UNITE           =SIMP(statut='f',typ='I',defaut=90),
13449            INTERACTIF      =SIMP(statut='f',typ='TXM',defaut='NON',into=("OUI","NON")),)
13450 )  ;
13451 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13452 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13453 # ======================================================================
13454 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13455 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13456 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13457 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13458 # (AT YOUR OPTION) ANY LATER VERSION.
13459 #
13460 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13461 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13462 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13463 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13464 #
13465 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13466 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13467 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13468 # ======================================================================
13469 # RESPONSABLE G8BHHXD X.DESROCHES
13470
13471 from Macro.macro_elas_mult_ops import macro_elas_mult_ops
13472
13473 def macro_elas_mult_prod(self,NUME_DDL,CAS_CHARGE,**args ):
13474   self.type_sdprod(NUME_DDL,nume_ddl)
13475   if CAS_CHARGE[0]['NOM_CAS']      != None : return mult_elas
13476   if CAS_CHARGE[0]['MODE_FOURIER'] != None : return fourier_elas
13477   raise AsException("type de concept resultat non prevu")
13478
13479 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',
13480             UIinfo={"groupes":("Résolution",)},
13481          regles=(UN_PARMI('CHAR_MECA_GLOBAL','CHAR_CINE_GLOBAL','LIAISON_DISCRET', ),),
13482          MODELE          =SIMP(statut='o',typ=modele),
13483          CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
13484          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
13485          NUME_DDL        =SIMP(statut='f',typ=(nume_ddl,CO)),
13486          CHAR_MECA_GLOBAL=SIMP(statut='f',typ=char_meca,max='**'),
13487          CHAR_CINE_GLOBAL=SIMP(statut='f',typ=char_meca,max='**'),
13488          LIAISON_DISCRET =SIMP(statut='f',typ='TXM',into=("OUI",)),
13489          CAS_CHARGE      =FACT(statut='o',min=1,max='**',
13490            regles=(UN_PARMI('NOM_CAS','MODE_FOURIER'),
13491                    UN_PARMI('CHAR_MECA','CHAR_CINE','VECT_ASSE'),),
13492            NOM_CAS         =SIMP(statut='f',typ='TXM' ),
13493            MODE_FOURIER    =SIMP(statut='f',typ='I' ),
13494            TYPE_MODE       =SIMP(statut='f',typ='TXM',defaut="SYME",into=("SYME","ANTI","TOUS") ),
13495            CHAR_MECA       =SIMP(statut='f',typ=char_meca,max='**'),
13496            CHAR_CINE       =SIMP(statut='f',typ=char_meca,max='**'),
13497            OPTION          =SIMP(statut='f',typ='TXM',max='**',
13498                                  into=("EFGE_ELNO_DEPL","EPOT_ELEM_DEPL","SIGM_ELNO_DEPL","SIEF_ELGA_DEPL",
13499                                        "SIGM_ELNO_CART","EFGE_ELNO_CART","DEGE_ELNO_DEPL","EPSI_ELNO_DEPL",
13500                                        "EPSI_ELGA_DEPL","EPSG_ELNO_DEPL","EPSG_ELGA_DEPL","EPSP_ELNO","EPSP_ELGA",
13501                                        "ECIN_ELEM_DEPL","FLUX_ELGA_TEMP","FLUX_ELNO_TEMP","SOUR_ELGA_ELEC",
13502                                        "PRES_ELNO_DBEL","PRES_ELNO_REEL","PRES_ELNO_IMAG","INTE_ELNO_ACTI",
13503                                        "INTE_ELNO_REAC","SIGM_NOZ1_ELGA","ERRE_ELEM_NOZ1","SIGM_NOZ2_ELGA",
13504                                        "ERRE_ELEM_NOZ2","VNOR_ELEM_DEPL","ERRE_ELNO_ELGA","SIRE_ELNO_DEPL",
13505                                        "ERRE_ELGA_NORE","EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI",
13506                                        "EQUI_ELGA_EPSI","FORC_NODA","REAC_NODA","EPSI_NOEU_DEPL","SIGM_NOEU_DEPL",
13507                                        "EFGE_NOEU_DEPL","EQUI_NOEU_SIGM","EQUI_NOEU_EPSI","FLUX_NOEU_TEMP") ),
13508            NUME_COUCHE     =SIMP(statut='f',typ='I',defaut=1),
13509            NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY")),
13510            SOUS_TITRE      =SIMP(statut='f',typ='TXM',max='**'),
13511            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r),
13512          ),
13513          SOLVEUR         =FACT(statut='d',min=1,max=1,
13514            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT") ),
13515            b_mult_front    = BLOC ( condition = "METHODE == 'MULT_FRONT' ",
13516                                     fr="Paramètres de la méthode multi frontale",
13517              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
13518            ),
13519            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
13520              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
13521             ),
13522            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
13523                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
13524              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
13525              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13526            ),
13527          ),
13528          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2)),
13529          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13530 )  ;
13531 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13532 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13533 # ======================================================================
13534 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13535 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13536 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13537 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13538 # (AT YOUR OPTION) ANY LATER VERSION.
13539 #
13540 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13541 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13542 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13543 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13544 #
13545 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13546 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13547 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13548 # ======================================================================
13549 def macro_matr_ajou_prod(self,MATR_AMOR_AJOU,MATR_MASS_AJOU,MATR_RIGI_AJOU,FORC_AJOU,**args):
13550   self.type_sdprod(MATR_AMOR_AJOU,matr_asse_depl_r)
13551   self.type_sdprod(MATR_MASS_AJOU,matr_asse_depl_r)
13552   self.type_sdprod(MATR_RIGI_AJOU,matr_asse_depl_r)
13553   if FORC_AJOU != None:
13554     for m in FORC_AJOU:
13555       self.type_sdprod(m['VECTEUR'],vect_asse_gene)
13556
13557   return None
13558
13559 MACRO_MATR_AJOU=MACRO(nom="MACRO_MATR_AJOU",op=-13,docu="U4.66.11-c1",sd_prod=macro_matr_ajou_prod,
13560             UIinfo={"groupes":("Matrices/vecteurs",)},
13561       regles=(AU_MOINS_UN('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
13562               AU_MOINS_UN('MATR_MASS_AJOU','MATR_AMOR_AJOU','MATR_RIGI_AJOU'),
13563               EXCLUS('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
13564               EXCLUS('MONO_APPUI','MODE_STAT',),
13565              ),
13566          MAILLAGE        =SIMP(statut='o',typ=maillage),
13567          GROUP_MA_FLUIDE =SIMP(statut='o',typ=grma),
13568          GROUP_MA_INTERF =SIMP(statut='o',typ=grma),
13569          MODELISATION    =SIMP(statut='o',typ='TXM',into=("PLAN","AXIS","3D")),
13570          FLUIDE          =FACT(statut='o',min=1,max='**',
13571            RHO             =SIMP(statut='o',typ='R'),
13572            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
13573            GROUP_MA        =SIMP(statut='f',typ=grma),
13574            MAILLE          =SIMP(statut='f',typ=ma),
13575          ),
13576          DDL_IMPO        =FACT(statut='o',min=1,max='**',
13577            regles=(UN_PARMI('NOEUD','GROUP_NO'),
13578                    UN_PARMI('PRES_FLUIDE','PRES_SORTIE'),),
13579            NOEUD           =SIMP(statut='f',typ=no),
13580            GROUP_NO        =SIMP(statut='f',typ=grno),
13581            PRES_FLUIDE     =SIMP(statut='f',typ='R'),
13582            PRES_SORTIE     =SIMP(statut='f',typ='R'),
13583          ),
13584          ECOULEMENT      =FACT(statut='f',min=1,max='**',
13585            GROUP_MA_1      =SIMP(statut='o',typ=grma),
13586            GROUP_MA_2      =SIMP(statut='o',typ=grma),
13587            VNOR_1          =SIMP(statut='o',typ='R'),
13588            VNOR_2          =SIMP(statut='f',typ='R'),
13589            POTENTIEL       =SIMP(statut='f',typ=evol_ther),
13590          ),
13591          MODE_MECA       =SIMP(statut='f',typ=mode_meca),
13592          DEPL_IMPO       =SIMP(statut='f',typ=cham_no_depl_r),
13593          MODELE_GENE     =SIMP(statut='f',typ=modele_gene),
13594          NUME_DDL_GENE   =SIMP(statut='f',typ=nume_ddl_gene),
13595          DIST_REFE       =SIMP(statut='f',typ='R',defaut= 1.0E-2),
13596          MATR_MASS_AJOU  =SIMP(statut='f',typ=(CO,matr_asse)),
13597          MATR_RIGI_AJOU  =SIMP(statut='f',typ=(CO,matr_asse)),
13598          MATR_AMOR_AJOU  =SIMP(statut='f',typ=(CO,matr_asse)),
13599          MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",),),
13600          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc,),),
13601          FORC_AJOU       =FACT(statut='f',min=1,max='**',
13602            DIRECTION     =SIMP(statut='o',typ='R',max=3),
13603            NOEUD         =SIMP(statut='f',typ=no,max='**'),
13604            GROUP_NO      =SIMP(statut='f',typ=grno,max='**'),
13605            VECTEUR       =SIMP(statut='o',typ=(CO,vect_asse_gene)),
13606          ),
13607          SOLVEUR         =FACT(statut='d',min=1,max=1,
13608            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
13609            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
13610              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
13611            ),
13612            b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
13613              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
13614            ),
13615            b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
13616                                    fr="Paramètres relatifs à la non iversibilité de la matrice à factorise",
13617              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
13618              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13619            ),
13620            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
13621              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
13622              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
13623              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
13624              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
13625              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
13626            ),
13627 #  A quoi sert eps
13628            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
13629          ),
13630          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13631          NOEUD_DOUBLE    =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
13632          AVEC_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
13633 ) ;
13634 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13635 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13636 # ======================================================================
13637 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13638 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13639 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13640 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13641 # (AT YOUR OPTION) ANY LATER VERSION.
13642 #
13643 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13644 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13645 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13646 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13647 #
13648 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13649 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13650 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13651 # ======================================================================
13652
13653 from Macro.macro_matr_asse_ops import macro_matr_asse_ops
13654
13655 def macro_matr_asse_prod(self,NUME_DDL,MATR_ASSE,**args):
13656   if not MATR_ASSE:  raise AsException("Impossible de typer les concepts resultats")
13657   if not NUME_DDL:  raise AsException("Impossible de typer les concepts resultats")
13658   self.type_sdprod(NUME_DDL,nume_ddl)
13659   for m in MATR_ASSE:
13660     opti=m['OPTION']
13661
13662     if opti in ( "RIGI_MECA","RIGI_FLUI_STRU","RIGI_MECA_LAGR" ,
13663        "MASS_MECA" , "MASS_FLUI_STRU" ,"RIGI_GEOM" ,"RIGI_ROTA",
13664        "AMOR_MECA","IMPE_MECA","MASS_ID_MDEP_R","MASS_ID_MDNS_R",
13665        "ONDE_FLUI","MASS_MECA_DIAG" ) : t=matr_asse_depl_r
13666
13667     if opti in ( "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",) : t=matr_asse_pres_c
13668
13669     if opti in ( "RIGI_THER","MASS_THER","RIGI_THER_CONV" ,
13670        "RIGI_THER_CONV_D","MASS_ID_MTEM_R","MASS_ID_MTNS_R",) : t=matr_asse_temp_r
13671
13672     if opti == "RIGI_MECA_HYST"   : t= matr_asse_depl_c
13673
13674     self.type_sdprod(m['MATRICE'],t)
13675   return None
13676
13677 MACRO_MATR_ASSE=MACRO(nom="MACRO_MATR_ASSE",op=macro_matr_asse_ops,docu="U4.61.21-d1",
13678             UIinfo={"groupes":("Matrices/vecteurs",)},
13679                       sd_prod=macro_matr_asse_prod,
13680                       fr="Calcul des matrices assemblées (matr_asse_gd) par exemple de rigidité, de masse ",
13681          MODELE          =SIMP(statut='o',typ=modele),
13682          CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
13683          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
13684          CHARGE          =SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**'),
13685          INST            =SIMP(statut='f',typ='R'),
13686          NUME_DDL        =SIMP(statut='o',typ=(nume_ddl,CO)),
13687          SOLVEUR         =FACT(statut='d',min=1,max=1,
13688            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",
13689                                  into=("LDLT","MULT_FRONT","GCPC")),
13690            RENUM           =SIMP(statut='f',typ='TXM',into=("SANS","RCMK","MD","MDA","METIS")),
13691          ),
13692          MATR_ASSE       =FACT(statut='o',min=1,max='**',
13693            MATRICE         =SIMP(statut='o',typ=(matr_asse,CO)),
13694            OPTION          =SIMP(statut='o',typ='TXM',
13695                                  into=("RIGI_MECA","MASS_MECA","MASS_MECA_DIAG",
13696                                        "AMOR_MECA","RIGI_MECA_HYST","IMPE_MECA",
13697                                        "ONDE_FLUI","RIGI_FLUI_STRU","MASS_FLUI_STRU",
13698                                        "RIGI_ROTA","RIGI_GEOM","RIGI_MECA_LAGR",
13699                                        "RIGI_THER","MASS_THER",
13700                                        "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",
13701                                        "MASS_ID_MTEM_R","MASS_ID_MTNS_R","MASS_ID_MDEP_R","MASS_ID_MDNS_R",)
13702                                  ),
13703            SIEF_ELGA       =SIMP(statut='f',typ=cham_elem_sief_r),
13704            MODE_FOURIER    =SIMP(statut='f',typ='I'),
13705            THETA           =SIMP(statut='f',typ=theta_geom),
13706            PROPAGATION     =SIMP(statut='f',typ='R'),
13707          ),
13708          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13709          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13710 )  ;
13711 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13712 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13713 # ======================================================================
13714 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13715 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13716 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13717 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13718 # (AT YOUR OPTION) ANY LATER VERSION.
13719 #
13720 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13721 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13722 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13723 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13724 #
13725 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13726 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13727 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13728 # ======================================================================
13729
13730 from Macro.macro_miss_3d_ops import macro_miss_3d_ops
13731
13732 MACRO_MISS_3D=MACRO(nom="MACRO_MISS_3D",op=macro_miss_3d_ops,fr=" ",docu="U7.03.11-a",
13733             UIinfo={"groupes":("Matrices/vecteurs",)},
13734          OPTION          =FACT(statut='o',min=1,max=1,
13735            regles=(UN_PARMI('TOUT','MODULE'),),
13736            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
13737            MODULE          =SIMP(statut='f',typ='TXM',into=("PRE_MISS","MISS_EVOL","MISS_IMPE")),
13738          ),
13739          PROJET          =SIMP(statut='o',typ='TXM'),
13740          REPERTOIRE      =SIMP(statut='f',typ='TXM'),
13741          UNITE_IMPR_ASTER=SIMP(statut='f',typ='I',defaut=25),
13742          UNITE_OPTI_MISS =SIMP(statut='f',typ='I',defaut=26),
13743          UNITE_MODELE_SOL=SIMP(statut='f',typ='I',defaut=27),
13744          UNITE_RESU_IMPE =SIMP(statut='f',typ='I',defaut=30),
13745 )  ;
13746 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13747 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13748 # ======================================================================
13749 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13750 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13751 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13752 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13753 # (AT YOUR OPTION) ANY LATER VERSION.
13754 #
13755 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13756 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13757 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13758 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13759 #
13760 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13761 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13762 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13763 # ======================================================================
13764
13765 from Macro.macro_mode_meca_ops import macro_mode_meca_ops
13766
13767 def macro_mode_meca_prod(self,MATR_A,MATR_B,**args ):
13768   self.type_sdprod(MATR_A,matr_asse_depl_r)
13769   self.type_sdprod(MATR_B,matr_asse_depl_r)
13770   return mode_meca
13771
13772 MACRO_MODE_MECA=MACRO(nom="MACRO_MODE_MECA",op=macro_mode_meca_ops,sd_prod=macro_mode_meca_prod,
13773                      docu="U4.52.02-d1",reentrant='n',
13774             UIinfo={"groupes":("Résolution",)},
13775          MATR_A          =SIMP(statut='o',typ=(CO,matr_asse_depl_r) ),
13776          MATR_B          =SIMP(statut='o',typ=(CO,matr_asse_depl_r) ),
13777          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
13778 #  ce mot cle ne devrait il pas etre dans calc_freq
13779          METHODE         =SIMP(statut='f',typ='TXM',defaut="SORENSEN",
13780                                into=("TRI_DIAG","JACOBI","SORENSEN",) ),
13781          b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
13782            PREC_ORTHO      =SIMP(statut='f',typ='R',defaut= 1.E-12,val_min=0.E+0 ),
13783            NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
13784            PREC_LANCZOS    =SIMP(statut='f',typ='R',defaut= 1.E-8,val_min=0.E+0 ),
13785            NMAX_ITER_QR    =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
13786          ),
13787          b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
13788            PREC_BATHE      =SIMP(statut='f',typ='R',defaut= 1.E-10,val_min=0.E+0 ),
13789            NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40,val_min=0 ),
13790            PREC_JACOBI     =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
13791            NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12,val_min=0 ),
13792          ),
13793          b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
13794            PREC_SOREN      =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
13795            NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
13796            PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
13797          ),
13798          OPTION          =SIMP(statut='f',typ='TXM',defaut="SANS",
13799                                into=("MODE_RIGIDE","SANS") ),
13800          CALC_FREQ       =FACT(statut='d',min=0,max=1,
13801            regles=(UN_PARMI('FREQ','FREQ_MAX'),
13802                    PRESENT_PRESENT('FREQ_MIN','FREQ_MAX'),
13803                    PRESENT_PRESENT('FREQ_MAX','NB_BLOC_FREQ'),
13804                    EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
13805            FREQ            =SIMP(statut='f',typ='R',min=2,max='**',val_min=0.E+0 ),
13806            FREQ_MIN        =SIMP(statut='f',typ='R' ),
13807            FREQ_MAX        =SIMP(statut='f',typ='R' ),
13808            NB_BLOC_FREQ    =SIMP(statut='f',typ='I' ),
13809            DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
13810            COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
13811            NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8 ),
13812            NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5 ),
13813            PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
13814            SEUIL_FREQ      =SIMP(statut='f',typ='R' ,defaut= 1.E-2 ),
13815            STOP_FREQ_VIDE  =SIMP(statut='f',typ='TXM',defaut="NON" ,into=("OUI","NON") ),
13816          ),
13817          VERI_MODE       =FACT(statut='d',min=0,max=1,
13818            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13819            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
13820            PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
13821            STURM           =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13822          ),
13823          NORM_MODE       =FACT(statut='o',min=1,max='**',
13824            MASS_INER       =SIMP(statut='o',typ=tabl_mass_iner ),
13825            NORME           =SIMP(statut='f',typ='TXM',defaut="TRAN_ROTA",
13826                                  into=("MASS_GENE","RIGI_GENE","EUCL",
13827                                        "EUCL_TRAN","TRAN","TRAN_ROTA") ),
13828            INFO            =SIMP(statut='f',typ='I',defaut= 1 ,into=(1,2) ),
13829          ),
13830          FILTRE_MODE     =FACT(statut='f',min=1,max=1,
13831            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
13832                                  into=("MASS_EFFE_UN","MASS_GENE") ),
13833            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
13834          ),
13835          IMPRESSION      =FACT(statut='d',min=1,max=1,
13836            TOUT_PARA       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13837            CUMUL           =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13838            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
13839                                  into=("MASS_EFFE_UN","MASS_GENE",) ),
13840          ),
13841 )  ;
13842 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13843 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13844 # ======================================================================
13845 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13846 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13847 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13848 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13849 # (AT YOUR OPTION) ANY LATER VERSION.
13850 #
13851 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13852 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13853 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13854 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13855 #
13856 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13857 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13858 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13859 # ======================================================================
13860
13861 from Macro.macro_proj_base_ops import macro_proj_base_ops
13862
13863 def macro_proj_base_prod(self,MATR_ASSE_GENE,VECT_ASSE_GENE,**args ):
13864   if MATR_ASSE_GENE != None:
13865     for m in MATR_ASSE_GENE:
13866       self.type_sdprod(m['MATRICE'],matr_asse_gene_r)
13867       self.type_sdprod(m['MATR_ASSE'],matr_asse_depl_r)
13868   if VECT_ASSE_GENE != None:
13869     for v in VECT_ASSE_GENE:
13870       self.type_sdprod(v['VECTEUR'],vect_asse_gene)
13871   return None
13872
13873 MACRO_PROJ_BASE=MACRO(nom="MACRO_PROJ_BASE",op=macro_proj_base_ops,docu="U4.63.11-d1",
13874             UIinfo={"groupes":("Matrices/vecteurs",)},
13875                       sd_prod=macro_proj_base_prod,
13876                       fr="Projection des matrices et/ou vecteurs assemblés sur une base de vecteurs",
13877          BASE            =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene) ),
13878          NB_VECT         =SIMP(statut='f',typ='I',defaut= 9999),
13879          MATR_ASSE_GENE  =FACT(statut='f',min=1,max='**',
13880            MATRICE         =SIMP(statut='o',typ=(CO,matr_asse)),
13881            MATR_ASSE       =SIMP(statut='f',typ=matr_asse_depl_r),
13882            MATR_ASSE_GENE  =SIMP(statut='f',typ=matr_asse_gene_r),
13883            PROFIL          =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("PLEIN","DIAG") ),
13884          ),
13885          VECT_ASSE_GENE  =FACT(statut='f',min=1,max='**',
13886            VECTEUR         =SIMP(statut='o',typ=(CO,vect_asse)),
13887            TYPE_VECT       =SIMP(statut='f',typ='TXM',defaut="FORC"),
13888            VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r),
13889            VECT_ASSE_GENE  =SIMP(statut='f',typ=vect_asse_gene),
13890          ),
13891          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
13892 )  ;
13893 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13894 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13895 # ======================================================================
13896 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13897 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13898 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13899 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13900 # (AT YOUR OPTION) ANY LATER VERSION.
13901 #
13902 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13903 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13904 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13905 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13906 #
13907 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13908 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
13909 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
13910 # ======================================================================
13911 MAJ_CATA=PROC(nom="MAJ_CATA",op=20,docu="U4.15.01-e1",
13912             UIinfo={"groupes":("Gestion du travail",)},
13913               fr="Compilation des catalogues de commandes et d éléments",
13914
13915          ELEMENT         =FACT(statut='f',min=1,max=1,),
13916
13917 )  ;
13918 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
13919 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13920 # ======================================================================
13921 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13922 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
13923 #              REDISTRIBUTION OF THIS FILE.
13924 # ======================================================================
13925 # RESPONSABLE VABHHTS J.PELLET
13926 MECA_STATIQUE=OPER(nom="MECA_STATIQUE",op=46,sd_prod=evol_elas,
13927                    fr="Analyse mécanique statique linéaire",docu="U4.51.01-g1",reentrant='n',
13928             UIinfo={"groupes":("Résolution",)},
13929                    regles=(EXCLUS("INST","LIST_INST"),
13930                            AU_MOINS_UN('CHAM_MATER','CARA_ELEM',), ),
13931          MODELE          =SIMP(statut='o',typ=modele),
13932          CHAM_MATER      =SIMP(statut='f',typ=cham_mater,
13933          fr="le CHAM_MATER est nécessaire, sauf si le modèle ne contient que des éléments discrets (modélisations DIS_XXX)",
13934          ang="CHAM_MATER is compulsory, except if the model contains only discret elements (modelizations DIS_XXX)"),
13935          CARA_ELEM       =SIMP(statut='f',typ=cara_elem,
13936          fr="le CARA_ELEM est nécessaire dès que le modèle contient des éléments de structure : coques, poutres, ...",
13937          ang="CARA_ELEM is compulsory as soon as the model contains structural elements : plates, beams, ..."),
13938          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
13939          EXCIT           =FACT(statut='o',min=1,max='**',
13940            CHARGE          =SIMP(statut='o',typ=(char_meca,char_cine_meca)),
13941            FONC_MULT       =SIMP(statut='f',typ=fonction),
13942            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
13943          ),
13944          INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
13945          LIST_INST       =SIMP(statut='f',typ=listr8),
13946          OPTION          =SIMP(statut='f',typ='TXM',max='**',
13947                                into=("SANS","SIGM_ELNO_DEPL","SIPO_ELNO_DEPL","EFGE_ELNO_DEPL",
13948                                      "EPSI_ELNO_DEPL","EPSI_ELGA_DEPL","EPME_ELNO_DEPL","EPME_ELGA_DEPL",
13949                                      "EQUI_ELNO_SIGM","EQUI_ELGA_SIGM","EQUI_ELNO_EPSI","EQUI_ELGA_EPSI",
13950                                      "EQUI_ELNO_EPME","EQUI_ELGA_EPME","DEGE_ELNO_DEPL","EPOT_ELEM_DEPL",
13951                                      "ENEL_ELGA","ENEL_ELNO_ELGA") ),
13952          NUME_COUCHE     =SIMP(statut='f',typ='I',defaut=1),
13953          NIVE_COUCHE     =SIMP(statut='f',typ='TXM',defaut="MOY",into=("SUP","INF","MOY") ),
13954          ANGLE           =SIMP(statut='f',typ='I',defaut=0),
13955          PLAN            =SIMP(statut='f',typ='TXM',defaut="MAIL",into=("SUP","INF","MOY","MAIL") ),
13956          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
13957                                fr="Liste des paramètres de sensibilité.",
13958                                ang="List of sensitivity parameters"),
13959          SOLVEUR         =FACT(statut='d',min=1,max=1,
13960            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
13961            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
13962              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
13963            ),
13964            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
13965              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
13966            ),
13967            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
13968                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
13969              NPREC           =SIMP(statut='f',typ='I',defaut=8),
13970              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
13971            ),
13972            b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
13973              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
13974              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
13975              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
13976              RESI_RELA       =SIMP(statut='f',typ='R',defaut=1.E-6),
13977              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
13978            ),
13979 #  A quoi sert eps
13980            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
13981          ),
13982          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
13983 )  ;
13984 #& MODIF COMMANDE  DATE 03/12/2002   AUTEUR DURAND C.DURAND
13985 #            CONFIGURATION MANAGEMENT OF EDF VERSION
13986 # ======================================================================
13987 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
13988 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
13989 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
13990 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
13991 # (AT YOUR OPTION) ANY LATER VERSION.
13992 #
13993 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
13994 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
13995 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
13996 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
13997 #
13998 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
13999 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14000 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14001 # ======================================================================
14002 # RESPONSABLE GNICOLAS G.NICOLAS
14003 MEMO_NOM_SENSI=PROC(nom="MEMO_NOM_SENSI",op=129,docu="U4.31.07-a1",
14004             UIinfo={"groupes":("Fonction",)},
14005                     fr="Mémorisation des noms des concepts dérivés.",
14006                     ang="Memorisation of the names of the sensitive concepts.",
14007
14008          regles=(AU_MOINS_UN('NOM','NOM_ZERO','NOM_UN'),),
14009
14010          NOM=FACT(statut='f',max='**',
14011              regles=(PRESENT_PRESENT('MOT_CLE','VALEUR' ),),
14012
14013              NOM_SD=SIMP(statut='o',typ='TXM',
14014                          fr="Nom de la structure de base",
14015                          ang="Name of the basic structure"),
14016
14017              PARA_SENSI=SIMP(statut='o',typ=(para_sensi,theta_geom),
14018                          fr="Nom du paramètre sensible",
14019                          ang="Name of the sensitive parameter"),
14020
14021              NOM_COMPOSE=SIMP(statut='f',typ='TXM',defaut=" ",
14022                          fr="Nom de la structure composée",
14023                          ang="Name of the built structure"),
14024
14025              MOT_CLE=SIMP(statut='f',typ='TXM',max='**',
14026                          fr="Liste des mots clés concernés par la dérivation",
14027                          ang="Keyword list involved in derivation"),
14028
14029              VALEUR=SIMP(statut='f',typ='TXM',max='**',
14030                          fr="Liste des objets concernés par la dérivation",
14031                          ang="Object list involved in derivation"),
14032
14033                  ),
14034
14035          NOM_ZERO=SIMP(statut='f',typ=fonction,
14036                        fr="Nom de la fonction nulle",
14037                        ang="Name of the zero fonction"),
14038
14039          NOM_UN=SIMP  (statut='f',typ=fonction,
14040                        fr="Nom de la fonction unité",
14041                        ang="Name of the one fonction"),
14042
14043 )  ;
14044 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
14045 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14046 # ======================================================================
14047 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14048 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14049 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14050 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14051 # (AT YOUR OPTION) ANY LATER VERSION.
14052 #
14053 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14054 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14055 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14056 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14057 #
14058 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14059 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14060 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14061 # ======================================================================
14062 MODE_ITER_CYCL=OPER(nom="MODE_ITER_CYCL",op=  80,sd_prod=mode_cycl,
14063                     fr="Modes propres d une structure à répétitivité cyclique à partir d une base de modes propres réels",
14064                     docu="U4.52.05-e",reentrant='n',
14065             UIinfo={"groupes":("Résolution",)},
14066          BASE_MODALE     =SIMP(statut='o',typ=base_modale ),
14067          NB_MODE         =SIMP(statut='f',typ='I',defaut= 999 ),
14068          NB_SECTEUR      =SIMP(statut='o',typ='I' ),
14069          LIAISON         =FACT(statut='o',min=1,max=1,
14070            DROITE          =SIMP(statut='o',typ='TXM' ),
14071            GAUCHE          =SIMP(statut='o',typ='TXM' ),
14072            AXE             =SIMP(statut='f',typ='TXM' ),
14073          ),
14074          VERI_CYCL       =FACT(statut='f',min=1,max=1,
14075            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
14076            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF",) ),
14077            DIST_REFE       =SIMP(statut='f',typ='R' ),
14078          ),
14079          CALCUL          =FACT(statut='o',min=1,max=1,
14080            TOUT_DIAM       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14081            NB_DIAM         =SIMP(statut='f',typ='I',max='**'),
14082            OPTION          =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE"
14083                                 ,into=("PLUS_PETITE","CENTRE","BANDE") ),
14084            b_centre      =BLOC(condition = "OPTION == 'CENTRE'",
14085              FREQ            =SIMP(statut='o',typ='R',min=1,max=1),
14086            ),
14087            b_bande       =BLOC(condition = "OPTION == 'BANDE'",
14088              FREQ            =SIMP(statut='o',typ='R',min=2,max=2),
14089            ),
14090 #  NMAX_FREQ n a-t-il pas un sens qu avec OPTION CENTRE
14091            NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10 ),
14092            PREC_SEPARE     =SIMP(statut='f',typ='R',defaut= 100. ),
14093            PREC_AJUSTE     =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
14094            NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 50 ),
14095          ),
14096          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
14097 )  ;
14098 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
14099 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14100 # ======================================================================
14101 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14102 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14103 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14104 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14105 # (AT YOUR OPTION) ANY LATER VERSION.
14106 #
14107 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14108 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14109 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14110 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14111 #
14112 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14113 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14114 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14115 # ======================================================================
14116 def mode_iter_inv_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
14117   if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
14118   if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
14119   if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
14120   if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
14121   if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
14122   raise AsException("type de concept resultat non prevu")
14123
14124 MODE_ITER_INV=OPER(nom="MODE_ITER_INV",op=  44,sd_prod=mode_iter_inv_prod
14125                     ,fr="Modes propres par itérations inverses ; valeurs propres et modes réels ou complexes",
14126                      docu="U4.52.04-g1",reentrant='n',
14127             UIinfo={"groupes":("Résolution",)},
14128          MATR_A          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
14129          MATR_B          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
14130          MATR_C          =SIMP(statut='f',typ=matr_asse_depl_r ),
14131          TYPE_RESU       =SIMP(statut='f',position='global',typ='TXM',defaut="DYNAMIQUE",
14132                                into=("MODE_FLAMB","DYNAMIQUE"),fr="Type d analyse" ),
14133          b_dynam         =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
14134            CALC_FREQ       =FACT(statut='o',min=1,max=1,fr="Choix des paramètres pour le calcul des valeurs propres",
14135
14136              OPTION          =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
14137                                    fr="Choix de l option pour estimer les valeurs propres"  ),
14138              FREQ            =SIMP(statut='o',typ='R',max='**'),
14139              AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
14140              NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 0,val_min=0 ),
14141              NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30,val_min=0 ),
14142              PREC_SEPARE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0 ),
14143              NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15,val_min=0 ),
14144              PREC_AJUSTE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0 ),
14145
14146              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
14147              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
14148              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0, ),
14149              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0, ),
14150            ),
14151          ),
14152          b_flamb        =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
14153            CALC_FREQ       =FACT(statut='o',min=1,max=1,fr="Choix des paramètres pour le calcul des valeurs propres",
14154
14155              OPTION          =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
14156                                  fr="Choix de l option pour estimer les valeurs propres"  ),
14157              CHAR_CRIT       =SIMP(statut='o',typ='R',max='**' ),
14158              NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 0,val_min=0 ),
14159              NMAX_ITER_SEPARE=SIMP(statut='f',typ='I' ,defaut= 30,val_min=0 ),
14160              PREC_SEPARE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0, ),
14161              NMAX_ITER_AJUSTE=SIMP(statut='f',typ='I',defaut= 15 ),
14162              PREC_AJUSTE     =SIMP(statut='f',typ='R',defaut= 1.E-4,val_min=0.E+0, ),
14163
14164              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
14165              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
14166              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0, ),
14167              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0, ),
14168            ),
14169          ),
14170          CALC_MODE       =FACT(statut='d',min=0,max=1,fr="Choix des paramètres pour le calcul des vecteurs propres",
14171            OPTION          =SIMP(statut='f',typ='TXM',defaut="DIRECT",into=("DIRECT","RAYLEIGH") ),
14172            PREC            =SIMP(statut='f',typ='R',defaut= 1.E-5,val_min=0.E+0,fr="Précision de convergence" ),
14173            NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
14174          ),
14175          VERI_MODE       =FACT(statut='d',min=0,max=1,
14176            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
14177            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0,
14178                                  fr="Valeur limite admise pour l ereur a posteriori des modes"  ),
14179          ),
14180          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
14181          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
14182 )  ;
14183 #& MODIF COMMANDE  DATE 24/02/2003   AUTEUR NICOLAS O.NICOLAS
14184 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14185 # ======================================================================
14186 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14187 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14188 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14189 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14190 # (AT YOUR OPTION) ANY LATER VERSION.
14191 #
14192 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14193 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14194 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14195 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14196 #
14197 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14198 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14199 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14200 # ======================================================================
14201 def mode_iter_simult_prod(MATR_A,MATR_C,TYPE_RESU,**args ):
14202   if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
14203   if AsType(MATR_C) == matr_asse_depl_r : return mode_meca_c
14204   if AsType(MATR_A) == matr_asse_depl_r : return mode_meca
14205   if AsType(MATR_A) == matr_asse_depl_c : return mode_meca_c
14206   if AsType(MATR_A) == matr_asse_pres_r : return mode_acou
14207   if AsType(MATR_A) == matr_asse_gene_r : return mode_gene
14208   raise AsException("type de concept resultat non prevu")
14209
14210 MODE_ITER_SIMULT=OPER(nom="MODE_ITER_SIMULT",op=  45,sd_prod=mode_iter_simult_prod,
14211                       fr="Modes propres par itérations simultanées ; valeurs propres et modes propres réels ou complexes",
14212                       docu="U4.52.03-f2",reentrant='n',
14213             UIinfo={"groupes":("Résolution",)},
14214          MATR_A          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_gene_r,matr_asse_pres_r ) ),
14215          MATR_B          =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
14216          MATR_C          =SIMP(statut='f',position='global',typ=matr_asse_depl_r ),
14217          METHODE         =SIMP(statut='f',position='global',typ='TXM',defaut="SORENSEN",
14218                                into=("TRI_DIAG","JACOBI","SORENSEN") ),
14219          b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
14220            PREC_ORTHO      =SIMP(statut='f',typ='R',defaut= 1.E-12,val_min=0.E+0 ),
14221            NMAX_ITER_ORTHO =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
14222            PREC_LANCZOS    =SIMP(statut='f',typ='R',defaut= 1.E-8,val_min=0.E+0 ),
14223            NMAX_ITER_QR    =SIMP(statut='f',typ='I',defaut= 30,val_min=0 ),
14224          ),
14225          b_jacobi =BLOC(condition = "METHODE == 'JACOBI'",
14226            PREC_BATHE      =SIMP(statut='f',typ='R',defaut= 1.E-10,val_min=0.E+0 ),
14227            NMAX_ITER_BATHE =SIMP(statut='f',typ='I',defaut= 40,val_min=0 ),
14228            PREC_JACOBI     =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
14229            NMAX_ITER_JACOBI=SIMP(statut='f',typ='I',defaut= 12,val_min=0 ),
14230          ),
14231          b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
14232            PREC_SOREN      =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
14233            NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
14234            PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
14235          ),
14236          TYPE_RESU       =SIMP(statut='f',position='global',typ='TXM',defaut="DYNAMIQUE",
14237                                into=("MODE_FLAMB","DYNAMIQUE"),
14238                                fr="Type d analyse" ),
14239          OPTION          =SIMP(statut='f',typ='TXM',defaut="SANS",into=("MODE_RIGIDE","SANS"),
14240                                fr="Calcul des modes de corps rigide, uniquement pour la méthode TRI_DIAG" ),
14241
14242          b_flamb         =BLOC(condition = "TYPE_RESU == 'MODE_FLAMB'",
14243            CALC_FREQ       =FACT(statut='d',min=0,max=1,
14244              OPTION          =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
14245                                    fr="Choix de l option et par conséquent du shift du problème modal" ),
14246              b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
14247                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
14248              ),
14249              b_centre      =BLOC(condition = "OPTION == 'CENTRE'",
14250                                  fr="Recherche des valeurs propres les plus proches d une valeur donnée",
14251                CHAR_CRIT       =SIMP(statut='o',typ='R',min=1,max=1,
14252                                      fr="Charge critique autour de laquelle on cherche les charges critiques propres"),
14253              ),
14254              b_bande       =BLOC(condition = "(OPTION == 'BANDE')",
14255                                  fr="Recherche des valeurs propres dans une bande donnée",
14256                CHAR_CRIT       =SIMP(statut='o',typ='R',min=2,max=2,
14257                                      fr="Valeur des deux charges critiques délimitant la bande de recherche"),
14258              ),
14259              APPROCHE        =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG"),
14260                                    fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
14261              regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
14262              DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
14263              COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
14264              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
14265              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
14266              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0 ),
14267              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
14268            ),
14269          ),
14270
14271          b_dynam        =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
14272            CALC_FREQ       =FACT(statut='d',min=0,max=1,
14273              OPTION          =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE"),
14274                                    fr="Choix de l option et par conséquent du shift du problème modal" ),
14275              b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
14276                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
14277              ),
14278              b_centre       =BLOC(condition = "OPTION == 'CENTRE'",
14279                                   fr="Recherche des valeurs propres les plus proches d une valeur donnée",
14280                FREQ            =SIMP(statut='o',typ='R',min=1,max=1,
14281                                      fr="Fréquence autour de laquelle on cherche les fréquences propres"),
14282                AMOR_REDUIT     =SIMP(statut='f',typ='R',max=1,),
14283                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
14284              ),
14285              b_bande         =BLOC(condition = "(OPTION == 'BANDE')",
14286                                    fr="Recherche des valeurs propres dans une bande donnée",
14287                FREQ            =SIMP(statut='o',typ='R',min=2,max=2,
14288                                      fr="Valeur des deux fréquences délimitant la bande de recherche"),
14289              ),
14290              APPROCHE        =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG","COMPLEXE"),
14291                                    fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
14292              regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
14293              DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
14294              COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
14295              NPREC_SOLVEUR   =SIMP(statut='f',typ='I',defaut= 8,val_min=0 ),
14296              NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 5,val_min=0 ),
14297              PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-2,val_min=0.E+0 ),
14298              SEUIL_FREQ      =SIMP(statut='f',typ='R',defaut= 1.E-2,val_min=0.E+0 ),
14299            ),
14300          ),
14301
14302          VERI_MODE       =FACT(statut='d',min=0,max=1,
14303            STOP_ERREUR     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
14304            PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-3,val_min=0.E+0 ),
14305            SEUIL           =SIMP(statut='f',typ='R',defaut= 1.E-6,val_min=0.E+0,
14306                                  fr="Valeur limite admise pour l ereur a posteriori des modes" ),
14307            STURM           =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
14308          ),
14309          STOP_FREQ_VIDE  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
14310          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
14311          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
14312 )  ;
14313 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
14314 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14315 # ======================================================================
14316 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14317 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14318 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14319 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14320 # (AT YOUR OPTION) ANY LATER VERSION.
14321 #
14322 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14323 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14324 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14325 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14326 #
14327 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14328 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14329 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14330 # ======================================================================
14331 def mode_stat_prod(MODE_STAT,FORCE_NODALE,PSEUDO_MODE,**args):
14332  if (MODE_STAT != None)          : return mode_stat_depl
14333  if (PSEUDO_MODE !=None)         : return mode_stat_acce
14334  if (FORCE_NODALE != None)       : return mode_stat_forc
14335  raise AsException("type de concept resultat non prevu")
14336 MODE_STATIQUE=OPER(nom="MODE_STATIQUE",op= 93,sd_prod=mode_stat_prod,
14337                    fr="Calcul de modes statiques",
14338                    docu="U4.52.14-f2",reentrant='n',
14339             UIinfo={"groupes":("Résolution",)},
14340          MATR_RIGI       =SIMP(statut='o',typ=matr_asse_depl_r ),
14341          MATR_MASS       =SIMP(statut='f',typ=matr_asse_depl_r ),
14342                regles=(UN_PARMI('MODE_STAT','FORCE_NODALE','PSEUDO_MODE'),),
14343          MODE_STAT       =FACT(statut='f',min=1,max='**',
14344            regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
14345                    UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
14346            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ,),
14347            NOEUD           =SIMP(statut='f',typ=no,max='**'),
14348            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
14349            TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",) ,),
14350            AVEC_CMP        =SIMP(statut='f',typ='TXM',max='**'),
14351            SANS_CMP        =SIMP(statut='f',typ='TXM',max='**'),
14352          ),
14353          FORCE_NODALE    =FACT(statut='f',min=1,max='**',
14354            regles=(UN_PARMI('TOUT','NOEUD','GROUP_NO'),
14355                    UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
14356            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",), ),
14357            NOEUD           =SIMP(statut='f',typ=no,max='**'),
14358            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
14359            TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",), ),
14360            AVEC_CMP        =SIMP(statut='f',typ='TXM',max='**'),
14361            SANS_CMP        =SIMP(statut='f',typ='TXM',max='**'),
14362          ),
14363          PSEUDO_MODE       =FACT(statut='f',min=1,max='**',
14364            regles=(UN_PARMI('AXE','DIRECTION','TOUT','NOEUD','GROUP_NO' ),),
14365            AXE             =SIMP(statut='f',typ='TXM',into=("X","Y","Z"),max=3),
14366            DIRECTION       =SIMP(statut='f',typ='R',min=3,max=3),
14367            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
14368            NOEUD           =SIMP(statut='f',typ=no,max='**'),
14369            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
14370            b_dir           =BLOC(condition = "DIRECTION != None",
14371              NOM_DIR         =SIMP(statut='f',typ='TXM' ),),
14372            b_cmp          =BLOC(condition="TOUT!= None or NOEUD!=None or GROUP_NO!=None",
14373              regles=(UN_PARMI('TOUT_CMP','AVEC_CMP','SANS_CMP'),),
14374              TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14375              AVEC_CMP        =SIMP(statut='f',typ='TXM',max='**'),
14376              SANS_CMP        =SIMP(statut='f',typ='TXM',max='**'),
14377         ),
14378          ),
14379          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
14380          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
14381 )  ;
14382 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
14383 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14384 # ======================================================================
14385 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14386 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14387 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14388 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14389 # (AT YOUR OPTION) ANY LATER VERSION.
14390 #
14391 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14392 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14393 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14394 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14395 #
14396 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14397 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14398 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14399 # ======================================================================
14400 MODI_BASE_MODALE=OPER(nom="MODI_BASE_MODALE",op= 149,sd_prod=mode_meca,
14401                       docu="U4.66.21-c",reentrant='f',
14402             UIinfo={"groupes":("Matrices/vecteurs",)},
14403 #  la commande modi_base _modale : reentrant = f ou o
14404          regles=(EXCLUS('AMOR_UNIF','AMOR_REDUIT', ),),
14405          BASE            =SIMP(statut='o',typ=mode_meca ),
14406          BASE_ELAS_FLUI  =SIMP(statut='o',typ=melasflu ),
14407          NUME_VITE_FLUI  =SIMP(statut='o',typ='I' ),
14408          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
14409          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
14410          AMOR_UNIF       =SIMP(statut='f',typ='R' ),
14411          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
14412          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
14413 )  ;
14414 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
14415 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14416 # ======================================================================
14417 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14418 #              SEE THE FILE "LICENSE.TERMS" FOR INFORMATION ON USAGE AND
14419 #              REDISTRIBUTION OF THIS FILE.
14420 # ======================================================================
14421 # RESPONSABLE G8BHHXD X.DESROCHES
14422 MODI_MAILLAGE=OPER(nom="MODI_MAILLAGE",op= 154,sd_prod=maillage,
14423                    fr="Modification de la connectivité de groupes de mailles 2D ou 3D affectées à la modélisation de contact",
14424                    docu="U4.23.04-d1",reentrant='o',
14425             UIinfo={"groupes":("Maillage",)},
14426       regles=(AU_MOINS_UN('ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
14427                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',
14428                        'TRANSLATION','ROTATION','MODI_BASE','ECHELLE',),
14429               PRESENT_ABSENT('ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
14430                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
14431               PRESENT_ABSENT('DEFORME','ORIE_CONTACT','EQUE_PIQUA','ORIE_PEAU_2D',
14432                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
14433               PRESENT_ABSENT('EQUE_PIQUA','ORIE_CONTACT','DEFORME','ORIE_PEAU_2D',
14434                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
14435               PRESENT_ABSENT('ORIE_PEAU_2D','ORIE_CONTACT','DEFORME','EQUE_PIQUA',
14436                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
14437               PRESENT_ABSENT('ORIE_PEAU_3D','ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
14438                        'ORIE_NORM_COQUE','PLAQ_TUBE','MODI_MAILLE',),
14439               PRESENT_ABSENT('ORIE_NORM_COQUE','ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
14440                        'ORIE_PEAU_3D','PLAQ_TUBE','MODI_MAILLE',),
14441               PRESENT_ABSENT('PLAQ_TUBE','ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
14442                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','MODI_MAILLE',),
14443               PRESENT_ABSENT('MODI_MAILLE','ORIE_CONTACT','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
14444                        'ORIE_PEAU_3D','ORIE_NORM_COQUE','PLAQ_TUBE',),
14445               EXCLUS('EQUE_PIQUA','PLAQ_TUBE'),
14446               EXCLUS('EQUE_PIQUA','TUBE_COUDE'),
14447               EXCLUS('ROTATION','MODI_BASE'),),
14448          MAILLAGE        =SIMP(statut='o',typ=maillage ),
14449
14450          ORIE_CONTACT    =FACT(statut='f',min=1,max=1,
14451            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
14452          ),
14453
14454          DEFORME         =FACT(statut='f',min=1,max=1,
14455            OPTION          =SIMP(statut='o',typ='TXM',into=("TRAN","TRAN_APPUI") ),
14456            DEPL            =SIMP(statut='o',typ=cham_no_depl_r ),
14457         b_deform        =BLOC(condition = "OPTION=='TRAN_APPUI'",
14458            GROUP_NO_APPUI = SIMP(statut='o',typ=grno,max='**' ),
14459            GROUP_NO_STRU = SIMP(statut='o',typ=grno,max='**' ),),
14460          ),
14461
14462          EQUE_PIQUA      =FACT(statut='f',min=1,max=1,
14463            GROUP_NO        =SIMP(statut='o',typ=grno),
14464            E_BASE          =SIMP(statut='o',typ='R' ),
14465            DEXT_BASE       =SIMP(statut='o',typ='R' ),
14466            L_BASE          =SIMP(statut='o',typ='R' ),
14467            L_CHANF         =SIMP(statut='o',typ='R' ),
14468            TYPE            =SIMP(statut='o',typ='TXM',into=("TYPE_1","TYPE_2")),
14469            H_SOUD          =SIMP(statut='o',typ='R' ),
14470            ANGL_SOUD       =SIMP(statut='o',typ='R' ),
14471            JEU_SOUD        =SIMP(statut='o',typ='R' ),
14472            E_CORP          =SIMP(statut='o',typ='R' ),
14473            DEXT_CORP       =SIMP(statut='o',typ='R' ),
14474            AZIMUT          =SIMP(statut='o',typ='R' ),
14475            RAFF_MAIL       =SIMP(statut='o',typ='TXM' ),
14476            X_MAX           =SIMP(statut='o',typ='R' ),
14477          ),
14478          ORIE_PEAU_2D    =FACT(statut='f',min=1,max='**',
14479            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
14480          ),
14481          ORIE_PEAU_3D    =FACT(statut='f',min=1,max='**',
14482            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
14483          ),
14484          ORIE_NORM_COQUE =FACT(statut='f',min=1,max='**',
14485            regles=(EXCLUS('NOEUD','GROUP_NO'),
14486                    PRESENT_PRESENT('NOEUD','VECT_NORM'),
14487                    PRESENT_PRESENT('GROUP_NO','VECT_NORM'),),
14488            GROUP_MA        =SIMP(statut='o',typ=grma,max='**'),
14489            VECT_NORM       =SIMP(statut='f',typ='R',max=3),
14490            NOEUD           =SIMP(statut='f',typ=no),
14491            GROUP_NO        =SIMP(statut='f',typ=grno),
14492          ),
14493          b_modele        =BLOC(condition = "(ORIE_PEAU_2D != None) or (ORIE_PEAU_3D != None) or(ORIE_NORM_COQUE != None)",
14494            MODELE          =SIMP(statut='o',typ=modele ),
14495          ),
14496          PLAQ_TUBE       =FACT(statut='f',min=1,max=1,
14497            DEXT            =SIMP(statut='o',typ='R' ),
14498            EPAIS           =SIMP(statut='o',typ='R' ),
14499            L_TUBE_P1       =SIMP(statut='o',typ='R' ),
14500            AZIMUT          =SIMP(statut='f',typ='R',defaut= 90. ),
14501            COUTURE         =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",)  ),
14502          ),
14503          TUBE_COUDE      =FACT(statut='f',min=1,max=1,
14504            ANGLE           =SIMP(statut='o',typ='R' ),
14505            R_CINTR         =SIMP(statut='o',typ='R' ),
14506            L_TUBE_P1       =SIMP(statut='o',typ='R' ),
14507          ),
14508          MODI_MAILLE     =FACT(statut='f',min=1,max=1,
14509            regles=(AU_MOINS_UN('GROUP_MA_FOND','MAILLE_FOND','GROUP_NO_FOND','NOEUD_FOND'),),
14510            OPTION          =SIMP(statut='o',typ='TXM',into=("NOEUD_QUART",) ),
14511            GROUP_MA_FOND   =SIMP(statut='f',typ=grma,max='**'),
14512            MAILLE_FOND     =SIMP(statut='f',typ=ma,max='**'),
14513            GROUP_NO_FOND   =SIMP(statut='f',typ=grno,max='**'),
14514            NOEUD_FOND      =SIMP(statut='f',typ=no,max='**'),
14515          ),
14516          MODI_BASE       =FACT(statut='f',min=1,max=1,
14517            VECT_X          =SIMP(statut='o',typ='R',min=2,max=3),
14518            VECT_Y          =SIMP(statut='f',typ='R',min=2,max=3),
14519          ),
14520          ECHELLE         =SIMP(statut='f',typ='R',min=1,max=1),
14521          TRANSLATION     =SIMP(statut='f',typ='R',min=2,max=3),
14522          ROTATION        =FACT(statut='f',min=1,max='**',
14523            POIN_1           =SIMP(statut='o',typ='R',min=2,max=3),
14524            ANGL             =SIMP(statut='o',typ='R',defaut= 0.E+0 ),
14525            regles=(EXCLUS('DIR','POIN_2'),),
14526            POIN_2           =SIMP(statut='f',typ='R',min=2,max=3),
14527            DIR              =SIMP(statut='f',typ='R',min=2,max=3),
14528          ),
14529
14530          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
14531 )  ;
14532 #& MODIF COMMANDE  DATE 02/12/2002   AUTEUR CIBHHLV L.VIVAN
14533 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14534 # ======================================================================
14535 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14536 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14537 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14538 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14539 # (AT YOUR OPTION) ANY LATER VERSION.
14540 #
14541 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14542 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14543 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14544 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14545 #
14546 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14547 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14548 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14549 # ======================================================================
14550 MODI_OBSTACLE=OPER(nom="MODI_OBSTACLE",op=182,sd_prod=obstacle,
14551                    fr=" ",docu="U4.44.22-a",reentrant='f',
14552             UIinfo={"groupes":("Modélisation",)},
14553       regles=(PRESENT_ABSENT('R_MOBILE','CRAYON'),
14554               PRESENT_PRESENT('V_USUR_TUBE','V_USUR_OBST'),),
14555          V_USUR_TUBE     =SIMP(statut='f',typ='R',max='**'),
14556          V_USUR_OBST     =SIMP(statut='f',typ='R',max='**'),
14557          TABL_USURE      =SIMP(statut='f',typ=tabl_post_usur),
14558          INST            =SIMP(statut='f',typ='R'),
14559          OBSTACLE        =SIMP(statut='f',typ=obstacle),
14560          GUIDE           =SIMP(statut='o',typ=obstacle),
14561          CRAYON          =SIMP(statut='f',typ=obstacle),
14562          R_MOBILE        =SIMP(statut='f',typ='R'),
14563          PERCEMENT       =SIMP(statut='f',typ='R',defaut=1),
14564          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14565 )  ;
14566 #& MODIF COMMANDE  DATE 31/01/2003   AUTEUR CIBHHGB G.BERTRAND
14567 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14568 # ======================================================================
14569 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14570 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14571 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14572 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14573 # (AT YOUR OPTION) ANY LATER VERSION.
14574 #
14575 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14576 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14577 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14578 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14579 #
14580 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14581 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14582 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14583 # ======================================================================
14584 # RESPONSABLE JMBHH01 J.M.PROIX
14585 def modi_repere_prod(RESULTAT,**args):
14586   if AsType(RESULTAT) == evol_elas :    return evol_elas
14587   if AsType(RESULTAT) == evol_noli :    return evol_noli
14588   if AsType(RESULTAT) == evol_ther :    return evol_ther
14589   if AsType(RESULTAT) == dyna_trans :   return dyna_trans
14590   if AsType(RESULTAT) == dyna_harmo :   return dyna_harmo
14591   if AsType(RESULTAT) == mode_meca :    return mode_meca
14592   if AsType(RESULTAT) == mode_flamb :   return mode_flamb
14593   if AsType(RESULTAT) == mult_elas :    return mult_elas
14594   if AsType(RESULTAT) == base_modale  : return base_modale
14595   raise AsException("type de concept resultat non prevu")
14596
14597 MODI_REPERE=OPER(nom="MODI_REPERE",op=191,sd_prod=modi_repere_prod,docu="U4.74.01-a3",reentrant='n',
14598             UIinfo={"groupes":("Résultats et champs",)},
14599                     fr="Impression des resultats dans un repere cylindrique",
14600          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,mode_meca,
14601                                                evol_noli,mult_elas,
14602                                                evol_ther,base_modale,mode_flamb) ),
14603          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
14604                         'NOEUD_CMP','LIST_INST','LIST_FREQ','NOM_CAS'),),
14605          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14606          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
14607          NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
14608          NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
14609          NOM_CAS         =SIMP(statut='f',typ='TXM' ),
14610
14611          INST            =SIMP(statut='f',typ='R',max='**'),
14612          FREQ            =SIMP(statut='f',typ='R',max='**'),
14613          LIST_INST       =SIMP(statut='f',typ=listr8),
14614          LIST_FREQ       =SIMP(statut='f',typ=listr8),
14615
14616          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
14617          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",),),
14618
14619          MODI_CHAM       =FACT(statut='o',min=1,max='**',
14620            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
14621            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
14622            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
14623            NOEUD           =SIMP(statut='f',typ=no,max='**'),
14624            TYPE_CHAM       =SIMP(statut='o',typ='TXM', max=1,
14625                                  into=("VECT_2D","VECT_3D","TORS_3D","TENS_2D","TENS_3D"),),
14626            NOM_CHAM        =SIMP(statut='o',typ='TXM',max=1 ),
14627            b_vect_2d       =BLOC(condition = "TYPE_CHAM=='VECT_2D'",
14628               NOM_CMP         =SIMP(statut='o',typ='TXM',min=2,max=2 ),),
14629            b_vect_3d       =BLOC(condition = "TYPE_CHAM=='VECT_3D'",
14630               NOM_CMP         =SIMP(statut='o',typ='TXM',min=3,max=3 ),),
14631            b_tors_3d       =BLOC(condition = "TYPE_CHAM=='TORS_3D'",
14632               NOM_CMP         =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
14633            b_tens_2d       =BLOC(condition = "TYPE_CHAM=='TENS_2D'",
14634               NOM_CMP         =SIMP(statut='o',typ='TXM',min=4,max=4 ),),
14635            b_tens_3d       =BLOC(condition = "TYPE_CHAM=='TENS_3D'",
14636               NOM_CMP         =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
14637          ),
14638          DEFI_REPERE     =FACT(statut='o',min=1,max=1,
14639          regles=(UN_PARMI('ANGL_NAUT','ORIGINE'),),
14640            REPERE          =SIMP(statut='f',typ='TXM',defaut="UTILISATEUR",
14641                                  into=("UTILISATEUR","CYLINDRIQUE"),),
14642            ANGL_NAUT       =SIMP(statut='f',typ='R',min=1,max=3),
14643            ORIGINE         =SIMP(statut='f',typ='R',min=2,max=3),
14644            AXE_Z           =SIMP(statut='f',typ='R',min=3,max=3),
14645          ),
14646          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
14647 )  ;
14648 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
14649 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14650 # ======================================================================
14651 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14652 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14653 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14654 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14655 # (AT YOUR OPTION) ANY LATER VERSION.
14656 #
14657 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14658 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14659 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14660 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14661 #
14662 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14663 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14664 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14665 # ======================================================================
14666 def norm_mode_prod(MODE,**args ):
14667   if AsType(MODE) == mode_meca   : return mode_meca
14668   if AsType(MODE) == mode_meca_c : return mode_meca_c
14669   if AsType(MODE) == mode_flamb  : return mode_flamb
14670   raise AsException("type de concept resultat non prevu")
14671
14672 NORM_MODE=OPER(nom="NORM_MODE",op=  37,sd_prod=norm_mode_prod,
14673                fr="Normalisation de modes propres",
14674                docu="U4.52.11-e",reentrant='f',
14675             UIinfo={"groupes":("Résolution",)},
14676          regles=(UN_PARMI('NORME','NOEUD','AVEC_CMP','SANS_CMP'),),
14677          MODE       =SIMP(statut='o',typ=(mode_meca,mode_flamb) ),
14678          NORME      =SIMP(statut='f',typ='TXM',fr="Norme prédéfinie : masse généralisée, euclidienne,...",
14679                           into=("MASS_GENE","RIGI_GENE","EUCL","EUCL_TRAN","TRAN","TRAN_ROTA") ),
14680          NOEUD      =SIMP(statut='f',typ=no, fr="Composante donnée d un noeud spécifié égale à 1"),
14681          b_noeud    =BLOC(condition = "NOEUD != None",
14682            NOM_CMP    =SIMP(statut='o',typ='TXM' ),
14683          ),
14684          AVEC_CMP   =SIMP(statut='f',typ='TXM',max='**'),
14685          SANS_CMP   =SIMP(statut='f',typ='TXM',max='**'),
14686          MASS_INER  =SIMP(statut='f',typ=tabl_mass_iner ),
14687          MODE_SIGNE =FACT(statut='f',max=1,fr="Imposer un signe sur une des composantes des modes",
14688            NOEUD      =SIMP(statut='o',typ=no,fr="Noeud ou sera imposé le signe"),
14689            NOM_CMP    =SIMP(statut='o',typ='TXM',fr="Composante du noeud ou sera imposé le signe" ),
14690            SIGNE      =SIMP(statut='f',typ='TXM',defaut="POSITIF",into=("NEGATIF","POSITIF"),
14691                             fr="Choix du signe" ),
14692          ),
14693          TITRE      =SIMP(statut='f',typ='TXM',max='**'),
14694          INFO       =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
14695 )  ;
14696 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
14697 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14698 # ======================================================================
14699 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14700 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14701 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14702 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14703 # (AT YOUR OPTION) ANY LATER VERSION.
14704 #
14705 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14706 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14707 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14708 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14709 #
14710 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14711 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14712 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14713 # ======================================================================
14714 # RESPONSABLE VABHHTS J.PELLET
14715 NUME_DDL=OPER(nom="NUME_DDL",op=11,sd_prod=nume_ddl,docu="U4.61.11-g1",reentrant='n',
14716             UIinfo={"groupes":("Matrices/vecteurs",)},
14717               fr="Etablissement de la numérotation des ddl avec ou sans renumérotation et du stockage de la matrice",
14718                   regles=(UN_PARMI('MATR_RIGI','MODELE'),),
14719          MATR_RIGI       =SIMP(statut='f',typ=(matr_elem_depl_r ,matr_elem_depl_c,
14720                                                matr_elem_temp_r,matr_elem_pres_c),max=100 ),
14721          MODELE          =SIMP(statut='f',typ=modele ),
14722          b_modele        =BLOC(condition = "MODELE != None",
14723            CHARGE     =SIMP(statut='f',max='**',typ=(char_meca,char_ther,char_acou, ),),
14724          ),
14725          METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
14726          b_mult_front    =BLOC(condition="METHODE=='MULT_FRONT'",fr="paramètres associés à la méthode multifrontale",
14727            RENUM           =SIMP(statut='f',typ='TXM',into=("MD","MDA","METIS"),defaut="METIS" ),
14728          ),
14729          b_ldlt          =BLOC(condition="METHODE=='LDLT'",fr="paramètres associés à la méthode LDLT",
14730            RENUM           =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK"  ),
14731          ),
14732          b_gcpc          =BLOC(condition="METHODE=='GCPC'",fr="paramètres associés à la méthode gradient conjugué",
14733            RENUM           =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK"  ),
14734          ),
14735          INFO            =SIMP(statut='f',typ='I',into=(1,2)),
14736 )  ;
14737 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
14738 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14739 # ======================================================================
14740 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14741 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14742 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14743 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14744 # (AT YOUR OPTION) ANY LATER VERSION.
14745 #
14746 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14747 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14748 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14749 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14750 #
14751 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14752 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14753 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14754 # ======================================================================
14755 NUME_DDL_GENE=OPER(nom="NUME_DDL_GENE",op= 127,sd_prod=nume_ddl_gene,
14756                    fr="Etablissement de la numérotation des ddl d un modèle établi en coordonnées généralisées",
14757                     docu="U4.65.03-e1",reentrant='n',
14758             UIinfo={"groupes":("Matrices/vecteurs",)},
14759          regles=UN_PARMI('MODELE_GENE','BASE'),
14760          MODELE_GENE     =SIMP(statut='f',typ=modele_gene ),
14761              b_modele_gene     =BLOC(condition = "MODELE_GENE != None",
14762                STOCKAGE     =SIMP(statut='f',typ='TXM',defaut="LIGN_CIEL",into=("LIGN_CIEL","PLEIN") ),
14763                                     ),
14764          BASE     =SIMP(statut='f',typ=(mode_meca,base_modale,mode_gene ) ),
14765              b_base     =BLOC(condition = "BASE != None",
14766                STOCKAGE     =SIMP(statut='f',typ='TXM',defaut="DIAG",into=("DIAG","PLEIN") ),
14767                NB_VECT     =SIMP(statut='f',typ='I',defaut= 9999 ),
14768                              ),
14769 )  ;
14770 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
14771 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14772 # ======================================================================
14773 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14774 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14775 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14776 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14777 # (AT YOUR OPTION) ANY LATER VERSION.
14778 #
14779 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14780 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14781 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14782 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14783 #
14784 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14785 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14786 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14787 # ======================================================================
14788 POST_DYNA_ALEA=OPER(nom="POST_DYNA_ALEA",op= 132,sd_prod=tabl_post_alea,
14789                     fr="Traitements statistiques de résultats de type interspectre et impression sur fichiers",
14790                     docu="U4.84.04-d",reentrant='n',
14791             UIinfo={"groupes":("Post traitements",)},
14792          regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I','OPTION'),),
14793          INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
14794          NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
14795          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
14796          NUME_ORDRE_I    =SIMP(statut='f',typ='I',max='**' ),
14797          NOEUD_I         =SIMP(statut='f',typ=no,max='**'),
14798          OPTION          =SIMP(statut='f',typ='TXM',into=("DIAG",) ),
14799          b_nume_ordre_i =BLOC(condition = "NUME_ORDRE_I != None",
14800            NUME_ORDRE_J    =SIMP(statut='o',typ='I',max='**' ),
14801          ),
14802          b_noeud_i      =BLOC(condition = "NOEUD_I != None",
14803            NOEUD_J         =SIMP(statut='o',typ=no,max='**'),
14804            NOM_CMP_I       =SIMP(statut='o',typ='TXM',max='**' ),
14805            NOM_CMP_J       =SIMP(statut='o',typ='TXM',max='**' ),
14806          ),
14807          DEPASSEMENT     =FACT(statut='f',min=1,max='**',
14808            fr="Loi de dépassement d un seuil pendant une durée donnée",
14809            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
14810            VALE_MIN        =SIMP(statut='f',typ='R' ),
14811            VALE_MAX        =SIMP(statut='f',typ='R' ),
14812            PAS             =SIMP(statut='f',typ='R' ),
14813            DUREE           =SIMP(statut='f',typ='R',defaut= 1. ),
14814          ),
14815          RAYLEIGH        =FACT(statut='f',min=1,max='**',
14816            fr="Densité de probabilité de pic positif, loi adaptée à des signaux à bande étroite",
14817            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
14818            VALE_MIN        =SIMP(statut='f',typ='R' ),
14819            VALE_MAX        =SIMP(statut='f',typ='R' ),
14820            PAS             =SIMP(statut='f',typ='R' ),
14821          ),
14822          GAUSS           =FACT(statut='f',min=1,max='**',
14823            fr="Densité de probabilité de pic positif, loi normale adaptée à des signaux large bande",
14824            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
14825            VALE_MIN        =SIMP(statut='f',typ='R' ),
14826            VALE_MAX        =SIMP(statut='f',typ='R' ),
14827            PAS             =SIMP(statut='f',typ='R' ),
14828          ),
14829          VANMARCKE       =FACT(statut='f',min=1,max='**',
14830            fr="Probabilité de non dépassement de seuil pendant une durée donnée (analyse sismique)",
14831            regles=(ENSEMBLE('VALE_MIN','VALE_MAX'),),
14832            VALE_MIN        =SIMP(statut='f',typ='R' ),
14833            VALE_MAX        =SIMP(statut='f',typ='R' ),
14834            PAS             =SIMP(statut='f',typ='R' ),
14835            DUREE           =SIMP(statut='f',typ='R',defaut= 10. ),
14836          ),
14837          MOMENT          =SIMP(statut='f',typ='I',max='**',fr="Moments spectraux en complément des cinq premiers" ),
14838          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
14839          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
14840 )  ;
14841 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
14842 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14843 # ======================================================================
14844 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14845 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14846 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14847 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14848 # (AT YOUR OPTION) ANY LATER VERSION.
14849 #
14850 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14851 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14852 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14853 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14854 #
14855 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14856 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14857 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14858 # ======================================================================
14859 POST_DYNA_MODA_T=OPER(nom="POST_DYNA_MODA_T",op= 130,sd_prod=tabl_post_dyna,
14860                       fr="Post-traitements en coordonnées généralisées issus de DYNA_TRAN_MODAL",
14861                       docu="U4.84.02-d",reentrant='n',
14862             UIinfo={"groupes":("Post traitements",)},
14863         regles=(UN_PARMI('CHOC','RELA_EFFO_DEPL', ),),
14864          RESU_GENE       =SIMP(statut='o',typ=tran_gene ),
14865          CHOC            =FACT(statut='f',min=1,max='**',
14866                                fr="Analyse des non linéarités de choc",
14867            INST_INIT       =SIMP(statut='f',typ='R',defaut= -1. ),
14868            INST_FIN        =SIMP(statut='f',typ='R',defaut= 999. ),
14869            NB_BLOC         =SIMP(statut='f',typ='I',defaut= 1 ),
14870            SEUIL_FORCE     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
14871            DUREE_REPOS     =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
14872            OPTION          =SIMP(statut='f',typ='TXM',defaut="USURE",into=("IMPACT","USURE") ),
14873            NB_CLASSE       =SIMP(statut='f',typ='I',defaut= 10 ),
14874          ),
14875          RELA_EFFO_DEPL  =FACT(statut='f',min=1,max=1,
14876                                fr="Analyse des relationsnon linéaires effort-déplacement",
14877            NOEUD           =SIMP(statut='o',typ=no),
14878            NOM_CMP         =SIMP(statut='o',typ='TXM' ),
14879          ),
14880          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
14881          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
14882 )  ;
14883 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
14884 #            CONFIGURATION MANAGEMENT OF EDF VERSION
14885 # ======================================================================
14886 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
14887 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
14888 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
14889 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
14890 # (AT YOUR OPTION) ANY LATER VERSION.
14891 #
14892 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
14893 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
14894 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
14895 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
14896 #
14897 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
14898 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
14899 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
14900 # ======================================================================
14901 # RESPONSABLE G8BHHXD X.DESROCHES
14902 def post_elem_prod( MASS_INER,ENER_POT,ENER_CIN,TRAV_EXT,WEIBULL,
14903                     CARA_GEOM,CARA_POUTRE,RICE_TRACEY,CHAR_LIMITE,
14904                     INDIC_ENER,INDIC_SEUIL,ENER_ELAS,ENER_TOTALE,
14905                     AIRE_INTERNE,**args ):
14906   if MASS_INER    != None  : return tabl_mass_iner
14907   if ENER_POT     != None  : return tabl_ener_pot
14908   if ENER_CIN     != None  : return tabl_ener_cin
14909   if TRAV_EXT     != None  : return tabl_trav_ext
14910   if WEIBULL      != None  : return tabl_weibull
14911   if CARA_GEOM    != None  : return tabl_cara_geom
14912   if CARA_POUTRE  != None  : return tabl_cara_geom
14913   if RICE_TRACEY  != None  : return tabl_rice_tracey
14914   if CHAR_LIMITE  != None  : return tabl_char_limite
14915   if INDIC_ENER   != None  : return tabl_indic_ener
14916   if INDIC_SEUIL  != None  : return tabl_indic_seuil
14917   if ENER_ELAS    != None  : return tabl_ener_elas
14918   if ENER_TOTALE  != None  : return tabl_ener_totale
14919   if AIRE_INTERNE != None  : return tabl_aire_int
14920   raise AsException("type de concept resultat non prevu")
14921
14922 POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=post_elem_prod,docu="U4.81.22-e3",reentrant='f',
14923             UIinfo={"groupes":("Post traitements",)},
14924                fr="Calcul de quantités globales (masse, inerties, énergie, ...) sur tout ou partie du modèle",
14925
14926          regles=(UN_PARMI('MASS_INER', 'ENER_POT', 'ENER_CIN','TRAV_EXT',
14927                           'WEIBULL', 'RICE_TRACEY', 'CARA_GEOM','CHAR_LIMITE',
14928                           'CARA_POUTRE', 'INDIC_ENER', 'INDIC_SEUIL',
14929                           'AIRE_INTERNE','ENER_ELAS','ENER_TOTALE'),
14930                 ),
14931
14932          MASS_INER      = FACT(statut='f',min=1,max='**',
14933                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14934                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14935                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14936                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14937                                ORIG_INER    = SIMP(statut='f',typ='R',min=3,max=3 ),
14938                               ),
14939          b_mass_iner = BLOC(condition = "( MASS_INER != None )",
14940                        fr="calcul de la masse, les inerties et le centre de gravité",
14941                        regles=(EXCLUS('CHAM_GD','RESULTAT'),
14942                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
14943                                       'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
14944                        MODELE         = SIMP(statut='o',typ=modele),
14945                        CHAM_MATER     = SIMP(statut='f',typ=cham_mater),
14946                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14947                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14948                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
14949                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14950                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14951                        GEOMETRIE      = SIMP(statut='f',typ='TXM',defaut="INITIALE",into=("INITIALE","DEFORMEE")),
14952                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14953                        RESULTAT       = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_noli,mult_elas,
14954                                                              fourier_elas,dyna_trans) ),
14955                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14956                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14957                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14958                        NUME_ORDRE     = SIMP(statut='f',typ='I',max=1),
14959                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14960                        INST           = SIMP(statut='f',typ='R',max=1),
14961                        LIST_INST      = SIMP(statut='f',typ=listr8),
14962                        FREQ           = SIMP(statut='f',typ='R',max=1),
14963                        LIST_FREQ      = SIMP(statut='f',typ=listr8),
14964                        NUME_MODE      = SIMP(statut='f',typ='I',max=1),
14965                        NOEUD_CMP      = SIMP(statut='f',typ='TXM',min=2,max=2),
14966                        NOM_CAS        = SIMP(statut='f',typ='TXM',max=1),
14967          ),
14968
14969          ENER_POT       = FACT(statut='f',min=1,max='**',
14970                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
14971                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14972                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
14973                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
14974                               ),
14975          b_ener_pot = BLOC(condition = "( ENER_POT  != None )",
14976                        fr="calcul de l'énergie potentielle de déformation",
14977                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
14978                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
14979                                       'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
14980                        MODELE         = SIMP(statut='o',typ=modele),
14981                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
14982                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
14983                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
14984                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
14985                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
14986                        ANGLE          = SIMP(statut='f',typ='I',defaut=0),
14987                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
14988                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
14989                        RESULTAT       = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,dyna_trans) ),
14990                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
14991                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
14992                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
14993                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
14994                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
14995                        INST           = SIMP(statut='f',typ='R',max='**'),
14996                        LIST_INST      = SIMP(statut='f',typ=listr8),
14997                        FREQ           = SIMP(statut='f',typ='R',max='**'),
14998                        LIST_FREQ      = SIMP(statut='f',typ=listr8),
14999                        NUME_MODE      = SIMP(statut='f',typ='I',max='**'),
15000                        NOEUD_CMP      = SIMP(statut='f',typ='TXM',max='**'),
15001                        NOM_CAS        = SIMP(statut='f',typ='TXM',max='**'),
15002          ),
15003
15004          ENER_CIN       = FACT(statut='f',min=1,max='**',
15005                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15006                                OPTION       = SIMP(statut='f',typ='TXM',
15007                                                    into=("MASS_MECA","MASS_MECA_DIAG"),
15008                                                    defaut="MASS_MECA" ),
15009                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15010                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
15011                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
15012                               ),
15013          b_ener_cin = BLOC(condition = "( ENER_CIN != None )",
15014                        fr="calcul de l'énergie cinétique",
15015                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
15016                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
15017                                       'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
15018                        MODELE         = SIMP(statut='o',typ=modele),
15019                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
15020                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
15021                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
15022                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
15023                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
15024                        ANGLE          = SIMP(statut='f',typ='I',defaut=0),
15025                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
15026                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
15027                        RESULTAT       = SIMP(statut='f',typ=(mode_meca,evol_elas,evol_ther,evol_noli,dyna_trans) ),
15028                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
15029                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15030                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15031                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
15032                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
15033                        INST           = SIMP(statut='f',typ='R',max='**'),
15034                        LIST_INST      = SIMP(statut='f',typ=listr8),
15035                        FREQ           = SIMP(statut='f',typ='R',max='**'),
15036                        LIST_FREQ      = SIMP(statut='f',typ=listr8),
15037                        NUME_MODE      = SIMP(statut='f',typ='I',max='**'),
15038                        NOEUD_CMP      = SIMP(statut='f',typ='TXM',max='**'),
15039                        NOM_CAS        = SIMP(statut='f',typ='TXM',max='**'),
15040          ),
15041
15042          ENER_ELAS      = FACT(statut='f',min=1,max='**',
15043                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15044                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15045                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
15046                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
15047                               ),
15048          b_ener_elas = BLOC(condition = "( ENER_ELAS != None )",
15049                        fr="calcul de l'énergie de déformation élastique",
15050                        MODELE         = SIMP(statut='o',typ=modele),
15051                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
15052                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
15053                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
15054                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
15055                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
15056                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
15057                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
15058                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
15059                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
15060                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15061                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15062                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
15063                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
15064                        INST           = SIMP(statut='f',typ='R',max='**'),
15065                        LIST_INST      = SIMP(statut='f',typ=listr8),
15066          ),
15067
15068          ENER_TOTALE    = FACT(statut='f',min=1,max='**',
15069                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15070                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15071                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
15072                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
15073                               ),
15074          b_ener_totale = BLOC(condition = "( ENER_TOTALE != None )",
15075                        fr="calcul de l'énergie de déformation totale",
15076                        MODELE         = SIMP(statut='o',typ=modele),
15077                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
15078                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
15079                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
15080                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
15081                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
15082                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
15083                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
15084                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
15085                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
15086                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15087                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15088                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
15089                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
15090                        INST           = SIMP(statut='f',typ='R',max='**'),
15091                        LIST_INST      = SIMP(statut='f',typ=listr8),
15092          ),
15093
15094          WEIBULL        = FACT(statut='f',min=1,max='**',
15095                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15096                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15097                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
15098                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
15099                                OPTION       = SIMP(statut='f',typ='TXM',
15100                                                    into=("SIGM_ELGA","SIGM_ELMOY"),
15101                                                    defaut="SIGM_ELGA"),
15102                                CORR_PLAST   = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
15103                                COEF_MULT    = SIMP(statut='f',typ='R',defaut=1.),
15104                               ),
15105          b_weibull = BLOC(condition = "( WEIBULL != None )",
15106                        fr="calcul du champ élémentaire de la puissance m-ième de la contrainte de Weibull",
15107                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
15108                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
15109                        MODELE         = SIMP(statut='o',typ=modele),
15110                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
15111                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
15112                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
15113                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
15114                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
15115                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
15116                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
15117                        RESULTAT       = SIMP(statut='f',typ=(evol_noli) ),
15118                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
15119                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15120                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15121                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
15122                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
15123                        INST           = SIMP(statut='f',typ='R',max='**'),
15124                        LIST_INST      = SIMP(statut='f',typ=listr8),
15125          ),
15126
15127          RICE_TRACEY    = FACT(statut='f',min=1,max='**',
15128                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15129                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15130                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
15131                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
15132                                OPTION       = SIMP(statut='f',typ='TXM',
15133                                                    into=("SIGM_ELGA","SIGM_ELMOY"),
15134                                                    defaut="SIGM_ELGA"),
15135                                LOCAL        = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
15136                               ),
15137          b_rice_tracey = BLOC(condition = "( RICE_TRACEY != None )",
15138                        fr="calcul du taux de croissance d'une cavité sphérique par rapport à un domaine",
15139                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
15140                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
15141                        MODELE         = SIMP(statut='o',typ=modele),
15142                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
15143                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
15144                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
15145                        NUME_COUCHE    = SIMP(statut='f',typ='I',defaut=1),
15146                        NIVE_COUCHE    = SIMP(statut='f',typ='TXM',defaut="MOY",into=("INF","SUP","MOY"),),
15147                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
15148                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_elem_ener_r) ),
15149                        RESULTAT       = SIMP(statut='f',typ=(evol_noli) ),
15150                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
15151                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15152                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15153                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
15154                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
15155                        INST           = SIMP(statut='f',typ='R',max='**'),
15156                        LIST_INST      = SIMP(statut='f',typ=listr8),
15157          ),
15158
15159          INDIC_ENER     = FACT(statut='f',min=1,max='**',
15160                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15161                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15162                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
15163                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
15164                               ),
15165          b_indic_ener = BLOC(condition = "( INDIC_ENER != None )",
15166                        fr="calcul un indicateur global de perte de proportionnalité du chargement",
15167                        MODELE         = SIMP(statut='o',typ=modele),
15168                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
15169                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
15170                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
15171                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
15172                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
15173                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
15174                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15175                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15176                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
15177                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
15178                        INST           = SIMP(statut='f',typ='R',max='**'),
15179                        LIST_INST      = SIMP(statut='f',typ=listr8),
15180          ),
15181
15182          INDIC_SEUIL    = FACT(statut='f',min=1,max='**',
15183                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15184                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15185                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
15186                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
15187                               ),
15188          b_indic_seuil = BLOC(condition = "( INDIC_SEUIL != None )",
15189                        fr="calcul un indicateur global de perte de proportionnalité du chargement",
15190                        MODELE         = SIMP(statut='o',typ=modele),
15191                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
15192                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
15193                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
15194                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
15195                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
15196                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
15197                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15198                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15199                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
15200                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
15201                        INST           = SIMP(statut='f',typ='R',max='**'),
15202                        LIST_INST      = SIMP(statut='f',typ=listr8),
15203          ),
15204
15205          CHAR_LIMITE    = FACT(statut='f',min=0,max=1,
15206                                CHAR_CSTE = SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON")
15207                               ),
15208          b_char_limite = BLOC(condition = "( CHAR_LIMITE != None )",
15209                        fr="post-traitement du calcul de la charge limite",
15210                        MODELE         = SIMP(statut='o',typ=modele),
15211                        CHAM_MATER     = SIMP(statut='o',typ=cham_mater),
15212                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
15213                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
15214                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
15215                        RESULTAT       = SIMP(statut='o',typ=(evol_noli) ),
15216                        regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
15217                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
15218                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15219                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15220                        NUME_ORDRE     = SIMP(statut='f',typ='I',max='**'),
15221                        LIST_ORDRE     = SIMP(statut='f',typ=listis),
15222                        INST           = SIMP(statut='f',typ='R',max='**'),
15223                        LIST_INST      = SIMP(statut='f',typ=listr8),
15224          ),
15225
15226          CARA_GEOM      = FACT(statut='f',min=1,max='**',
15227                                regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15228                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15229                                MAILLE       = SIMP(statut='f',typ=ma,max='**'),
15230                                GROUP_MA     = SIMP(statut='f',typ=grma,max='**'),
15231                                SYME_X       = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
15232                                SYME_Y       = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
15233                                ORIG_INER    = SIMP(statut='f',typ='R',min=2,max=2),
15234                               ),
15235          b_cara_geom = BLOC(condition = "( CARA_GEOM != None )",
15236                        fr="calcul des caractéristiques géométriques d'un section de poutre",
15237                        MODELE         = SIMP(statut='o',typ=modele),
15238                        CHAM_MATER     = SIMP(statut='f',typ=cham_mater),
15239                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
15240                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
15241          ),
15242
15243          CARA_POUTRE    = FACT(statut='f',min=1,max='**',
15244                                regles=(AU_MOINS_UN('TOUT','GROUP_MA'),
15245                                        ENSEMBLE('LONGUEUR','LIAISON','MATERIAU'),),
15246                                TOUT          = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15247                                GROUP_MA      = SIMP(statut='f',typ=grma,max='**'),
15248                                GROUP_MA_INTE = SIMP(statut='f',typ=grma,max='**'),
15249                                CARA_GEOM     = SIMP(statut='f',typ=tabl_cara_geom),
15250                                LAPL_PHI      = SIMP(statut='f',typ=evol_ther),
15251                                LAPL_PHI_Y    = SIMP(statut='f',typ=evol_ther),
15252                                LAPL_PHI_Z    = SIMP(statut='f',typ=evol_ther),
15253                                LIAISON       = SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT")),
15254                                LONGUEUR      = SIMP(statut='f',typ='R'),
15255                                MATERIAU      = SIMP(statut='f',typ=mater),
15256                                OPTION        = SIMP(statut='f',typ='TXM',
15257                                                     into=("CARA_TORSION","CARA_CISAILLEMENT","CARA_GAUCHI") ),
15258                              ),
15259          b_cara_poutre = BLOC(condition = "( CARA_POUTRE != None )",
15260                        fr="calcul des caractéristiques mécaniques d'un section de poutre",
15261                        MODELE         = SIMP(statut='o',typ=modele),
15262                        CHAM_MATER     = SIMP(statut='f',typ=cham_mater),
15263                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_ther,char_acou),max='**' ),
15264                        MODE_FOURIER   = SIMP(statut='f',typ='I',defaut=0),
15265          ),
15266
15267           AIRE_INTERNE   = FACT(statut='f',min=1,max='**',
15268                                 GROUP_MA_BORD  = SIMP(statut='o',typ=grma,max='**'),
15269                                ),
15270          b_aire_interne = BLOC(condition = "( AIRE_INTERNE != None )",
15271                        fr="calcul de l'aire d'un trou dans un maillage 2D",
15272                        MODELE         = SIMP(statut='o',typ=modele),
15273          ),
15274
15275          TRAV_EXT       = FACT(statut='f',min=1,max=1),
15276          b_trav_ext = BLOC(condition = "( TRAV_EXT != None )",
15277                        fr="calcul du travail des efforts extérieurs",
15278                        RESULTAT       = SIMP(statut='o',typ=(evol_elas,evol_noli,dyna_trans) ),
15279                        PRECISION      = SIMP(statut='f',typ='R',defaut= 1.0E-3),
15280                        CRITERE        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15281                        TOUT_ORDRE     = SIMP(statut='f',typ='TXM',into=("OUI",) ),
15282          ),
15283
15284          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
15285          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
15286
15287  )  ;
15288 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15289 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15290 # ======================================================================
15291 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15292 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15293 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15294 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15295 # (AT YOUR OPTION) ANY LATER VERSION.
15296 #
15297 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15298 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15299 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15300 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15301 #
15302 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15303 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15304 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15305 # ======================================================================
15306 POST_FATI_ALEA=OPER(nom="POST_FATI_ALEA",op=170,sd_prod=tabl_post_f_alea,docu="U4.84.03-c",reentrant='n',
15307             UIinfo={"groupes":("Post traitements",)},
15308                     fr="Calcul du dommage subi par une structure soumise à unesollicitation de type aléatoire",
15309          regles=(ENSEMBLE('MOMENT_SPEC_0','MOMENT_SPEC_2'),
15310                  PRESENT_PRESENT( 'MOMENT_SPEC_4','MOMENT_SPEC_0'),
15311                  UN_PARMI('TABL_POST_ALEA','MOMENT_SPEC_0'), ),
15312          MOMENT_SPEC_0   =SIMP(statut='f',typ='R'),
15313          MOMENT_SPEC_2   =SIMP(statut='f',typ='R'),
15314          MOMENT_SPEC_4   =SIMP(statut='f',typ='R'),
15315          TABL_POST_ALEA  =SIMP(statut='f',typ=tabl_post_alea),
15316          COMPTAGE        =SIMP(statut='o',typ='TXM',into=("PIC","NIVEAU")),
15317          DUREE           =SIMP(statut='f',typ='R',defaut= 1.),
15318          CORR_KE         =SIMP(statut='f',typ='TXM',into=("RCCM",)),
15319          DOMMAGE         =SIMP(statut='o',typ='TXM',into=("WOHLER",)),
15320          MATER           =SIMP(statut='o',typ=mater),
15321          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
15322 )  ;
15323 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15324 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15325 # ======================================================================
15326 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15327 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15328 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15329 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15330 # (AT YOUR OPTION) ANY LATER VERSION.
15331 #
15332 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15333 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15334 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15335 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15336 #
15337 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15338 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15339 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15340 # ======================================================================
15341 POST_FATIGUE=OPER(nom="POST_FATIGUE",op=136,sd_prod=tabl_post_fatig,docu="U4.83.01-d1",reentrant='n',
15342             UIinfo={"groupes":("Post traitements",)},
15343                   fr="Calcul du dommage subi par une structure soumise à une histoire de chargement",
15344
15345          CHARGEMENT = SIMP(statut='o',typ='TXM',into=("UNIAXIAL","PERIODIQUE","QUELCONQUE")),
15346
15347          b_uniaxial = BLOC( condition = "CHARGEMENT=='UNIAXIAL'",
15348                       regles=(PRESENT_PRESENT('CORR_KE','MATER'),
15349                               PRESENT_PRESENT('CORR_SIGM_MOYE','MATER'),
15350                               PRESENT_PRESENT('DOMMAGE','MATER'),),
15351              HISTOIRE       = FACT(statut='o',min=1,max=1,
15352                                  regles=(UN_PARMI('SIGM','EPSI'),),
15353                                  SIGM  = SIMP(statut='f',typ=fonction),
15354                                  EPSI  = SIMP(statut='f',typ=fonction),),
15355              COMPTAGE       = SIMP(statut='o',typ='TXM',into=("RAINFLOW","RCCM","NATUREL")),
15356              DELTA_OSCI     = SIMP(statut='f',typ='R',defaut= 0.0E+0),
15357              COEF_MULT      = FACT(statut='f',min=1,max=1,
15358                                  KT    = SIMP(statut='o',typ='R'),),
15359              CORR_KE        = SIMP(statut='f',typ='TXM',into=("RCCM",)),
15360              DOMMAGE        = SIMP(statut='f',typ='TXM',into=("WOHLER","MANSON_COFFIN",
15361                                                               "TAHERI_MANSON","TAHERI_MIXTE")),
15362              MATER          = SIMP(statut='f',typ=mater),
15363              CORR_SIGM_MOYE = SIMP(statut='f',typ='TXM',into=("GOODMAN","GERBER")),
15364              TAHERI_NAPPE   = SIMP(statut='f',typ=fonction),
15365              TAHERI_FONC    = SIMP(statut='f',typ=fonction),
15366              CUMUL          = SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
15367          ),
15368
15369          b_periodique = BLOC( condition = "CHARGEMENT=='PERIODIQUE'",
15370              HISTOIRE       = FACT(statut='o',min=1,max=1,
15371                                  SIGM_XX  = SIMP(statut='o',typ=fonction),
15372                                  SIGM_YY  = SIMP(statut='o',typ=fonction),
15373                                  SIGM_ZZ  = SIMP(statut='o',typ=fonction),
15374                                  SIGM_XY  = SIMP(statut='o',typ=fonction),
15375                                  SIGM_XZ  = SIMP(statut='f',typ=fonction),
15376                                  SIGM_YZ  = SIMP(statut='f',typ=fonction),),
15377              CRITERE        = SIMP(statut='o',typ='TXM',into=("CROSSLAND","PAPADOPOULOS")),
15378              DOMMAGE        = SIMP(statut='f',typ='TXM',into=("WOHLER",)),
15379              MATER          = SIMP(statut='o',typ=mater),
15380              COEF_CORR      = SIMP(statut='f',typ='R'),
15381          ),
15382
15383          b_quelconque = BLOC( condition = "CHARGEMENT=='QUELCONQUE'",
15384              HISTOIRE       = FACT(statut='o',min=1,max=1,
15385                                  SIGM_XX  = SIMP(statut='o',typ=fonction),
15386                                  SIGM_YY  = SIMP(statut='o',typ=fonction),
15387                                  SIGM_ZZ  = SIMP(statut='o',typ=fonction),
15388                                  SIGM_XY  = SIMP(statut='o',typ=fonction),
15389                                  SIGM_XZ  = SIMP(statut='f',typ=fonction),
15390                                  SIGM_YZ  = SIMP(statut='f',typ=fonction),
15391                                  EPSP     = SIMP(statut='o',typ=fonction),
15392                                  TEMP     = SIMP(statut='o',typ=fonction),),
15393              DOMMAGE        = SIMP(statut='f',typ='TXM',into=("LEMAITRE",),defaut="LEMAITRE"),
15394              MATER          = SIMP(statut='o',typ=mater),
15395              CUMUL          = SIMP(statut='f',typ='TXM',into=("LINEAIRE",)),
15396          ),
15397
15398          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
15399          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
15400 )  ;
15401 #& MODIF COMMANDE  DATE 03/12/2002   AUTEUR DURAND C.DURAND
15402 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15403 # ======================================================================
15404 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15405 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15406 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15407 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15408 # (AT YOUR OPTION) ANY LATER VERSION.
15409 #
15410 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15411 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15412 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15413 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15414 #
15415 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15416 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15417 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15418 # ======================================================================
15419 POST_GOUJ2E=OPER(nom="POST_GOUJ2E",op=187,sd_prod=tabl_post_gouj2e,reentrant='n',
15420                  fr=" ",docu="U4.gj.30-a",
15421             UIinfo={"groupes":("Outils métier",)},
15422          TABLE           =SIMP(statut='o',typ=tabl_post_rele),
15423 )  ;
15424 #& MODIF COMMANDE  DATE 04/02/2003   AUTEUR DURAND C.DURAND
15425 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15426 # ======================================================================
15427 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15428 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15429 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15430 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15431 # (AT YOUR OPTION) ANY LATER VERSION.
15432 #
15433 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15434 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15435 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15436 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15437 #
15438 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15439 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15440 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15441 # ======================================================================
15442 # RESPONSABLE JMBHH01 J.M.PROIX
15443 POST_K1_K2_K3=OPER(nom="POST_K1_K2_K3",op=188,sd_prod=tabl_post_k,
15444                    fr="Calcul des FIC par extrapolation du champ de déplacements sur les lèvres de la fissure",
15445                    docu="U4.82.05-b2",reentrant='n',
15446             UIinfo={"groupes":("Post traitements",)},
15447
15448            regles=(UN_PARMI('RESULTAT','TABL_DEPL_SUP'),
15449                    PRESENT_PRESENT('TABL_DEPL_SUP','TABL_DEPL_INF'),
15450                    PRESENT_PRESENT('RESULTAT','FOND_FISS'),),
15451
15452          MODELISATION  =SIMP(statut='o',typ='TXM',
15453                              into=("3D","AXIS","D_PLAN","C_PLAN"),
15454                              fr="Modélisation cohérente avec celle utilisée pour le calcul des déplacements"),
15455          FOND_FISS     =SIMP(statut='f',typ=fond_fiss),
15456          b_fond_fiss   =BLOC (condition="(FOND_FISS!= None)",
15457                          MAILLAGE      = SIMP(statut='o',typ=maillage),
15458                          PRECISION     = SIMP(statut='f',typ='R',defaut=0.001),
15459                          NOEUD         = SIMP(statut='f',typ=no,max='**'),
15460                          GROUP_NO      = SIMP(statut='f',typ=grno,max='**'),
15461                          SANS_NOEUD    = SIMP(statut='f',typ=no,max='**'),
15462                          SANS_GROUP_NO = SIMP(statut='f',typ=grno,max='**')
15463                          ),
15464          MATER         =SIMP(statut='o',typ=mater,
15465                              fr="Matériau homogène et isotrope cohérent avec celui utilisé pour le calcul des déplacements"),
15466          RESULTAT      =SIMP(statut='f',typ=(evol_elas,evol_noli),
15467                              fr="Table déplacement des noeuds de la lèvre supérieure et inférieure"),
15468          TABL_DEPL_SUP =SIMP(statut='f',typ=tabl_post_rele,
15469                              fr="Table issue de post_releve_t sur les noeuds de la lèvre supérieure"),
15470          TABL_DEPL_INF =SIMP(statut='f',typ=tabl_post_rele,
15471                              fr="Table issue de post_releve_t sur les noeuds de la lèvre inférieure"),
15472          ABSC_CURV_MAXI=SIMP(statut='f',typ='R',
15473                              fr="distance maximum à partir du fond de fissure à utiliser pour le calcul"),
15474          PREC_VIS_A_VIS= SIMP(statut='f',typ='R',defaut=0.1),
15475          TOUT_ORDRE    =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15476          NUME_ORDRE    =SIMP(statut='f',typ='I',max='**'),
15477          LIST_ORDRE    =SIMP(statut='f',typ=listis),
15478          INST          =SIMP(statut='f',typ='R',max='**'),
15479          LIST_INST     =SIMP(statut='f',typ=listr8),
15480              b_acce_reel     =BLOC(condition="(INST != None)or(LIST_INST != None)",
15481                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
15482                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
15483              ),
15484          INFO          =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
15485          VECT_K1       =SIMP(statut='o',typ='R',max='**',
15486                              fr="Vecteur normal au plan de fissure, orienté de la lèvre inférieure vers la lèvre supérieure"),
15487          TITRE         =SIMP(statut='f',typ='TXM',max='**'),
15488 )  ;
15489 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15490 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15491 # ======================================================================
15492 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
15493 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15494 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15495 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15496 # (AT YOUR OPTION) ANY LATER VERSION.
15497 #
15498 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15499 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15500 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15501 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15502 #
15503 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15504 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15505 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15506 #
15507 #
15508 # ======================================================================
15509 #
15510 POST_K_BETA=OPER(nom="POST_K_BETA",op=198,sd_prod=tabl_post_beta,
15511                    fr="Calcul des FIC par la méthode K_BETA",
15512                    docu="U4.82.07-a",reentrant='n',
15513             UIinfo={"groupes":("Post traitements",)},
15514          MAILLAGE      = SIMP(statut='o',typ=maillage),
15515          MATER_REV     = SIMP(statut='o',typ=mater),
15516          EPAIS_REV     = SIMP(statut='o',typ='R'),
15517          FISSURE       = FACT(statut='o',min=1,max=1,
15518             DECALAGE       = SIMP(statut='f',typ='R',defaut=-2.e-04),
15519             PROFONDEUR     = SIMP(statut='o',typ='R'),
15520             LONGUEUR       = SIMP(statut='o',typ='R'),
15521             ORIENTATION    = SIMP(statut='o',typ='TXM',
15522                                  into=("CIRC","LONGI"),),
15523          ),
15524          K1D           = FACT(statut='o',min=1,max='**',
15525             TABL_MECA_REV  = SIMP(statut='o',typ=(tabl_post_rele)),
15526             TABL_MECA_MDB  = SIMP(statut='o',typ=(tabl_post_rele)),
15527             TABL_THER      = SIMP(statut='o',typ=(tabl_post_rele)),
15528             INTITULE       = SIMP(statut='o',typ='TXM' ),
15529          ),
15530          INFO          = SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
15531          TITRE         = SIMP(statut='f',typ='TXM',max='**'),
15532 );
15533 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15534 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15535 # ======================================================================
15536 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15537 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15538 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15539 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15540 # (AT YOUR OPTION) ANY LATER VERSION.
15541 #
15542 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15543 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15544 # MERCHANTABILITY OR FITNESS FOR A PARTIC
15545 #
15546 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15547 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15548 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15549 # ======================================================================
15550 # RESPONSABLE JMBHH01 J.M.PROIX
15551 POST_RCCM=OPER(nom="POST_RCCM",op= 165,sd_prod=tabl_post_rccm,
15552                fr="Vérification des critères de niveau 0 et certains critères de niveau A du RCC-M-B3200 (Edition 1991)",
15553                docu="U4.83.11-d1",reentrant='n',
15554             UIinfo={"groupes":("Post traitements",)},
15555          TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="VALE_MAX",into=("VALE_MAX","VALE_INST") ),
15556          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
15557          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
15558          OPTION          =SIMP(statut='o',typ='TXM',max='**',
15559                                into=("PM_PB",
15560                                      "SN",
15561                                      "FATIGUE_SPMAX",
15562                                      "FATIGUE_ZH210",
15563                                      "FATIGUE_B3200",
15564                                      "FATIGUE_B3600",
15565                                      ) ),
15566      b_pm_sn  =BLOC(condition="(OPTION == 'PM_PB')or(OPTION == 'SN')or(OPTION == 'FATIGUE_SPMAX')or(OPTION == 'FATIGUE_ZH210')",
15567          MATER           =SIMP(statut='o',typ=mater ),
15568          MAILLAGE        =SIMP(statut='f',typ=maillage),
15569          SEGMENT         =FACT(statut='o',min=1,max='**',fr="Segment sur lequel s effectue le depouillement",
15570            regles=(AU_MOINS_UN('CHEMIN','GROUP_NO','NOEUD'),
15571                    EXCLUS('CHEMIN','GROUP_NO'),
15572                    EXCLUS('CHEMIN','NOEUD'),),
15573            INTITULE        =SIMP(statut='f',typ='TXM' ),
15574            CHEMIN          =SIMP(statut='f',typ=(courbe,surface),),
15575            NOEUD           =SIMP(statut='f',typ=no,max='**'),
15576            GROUP_NO        =SIMP(statut='f',typ=grno),
15577              b_acce_noeud     =BLOC(condition="(NOEUD != None)or(GROUP_NO != None)",
15578                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
15579                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
15580                                    ),
15581                                ),
15582          TRANSITOIRE     =FACT(statut='o',min=1,max='**',fr="transitoire à dépouiller",
15583            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
15584            RESULTAT        =SIMP(statut='o',typ=(evol_elas,evol_noli) ),
15585            RESU_SIGM_THER  =SIMP(statut='f',typ=(evol_elas,evol_noli),fr="résultat sous chargement thermique seul" ),
15586            NB_OCCUR        =SIMP(statut='f',typ='I',defaut= 1,fr="nombre d occurences réelles de ce transitoire" ),
15587            NOM_CHAM        =SIMP(statut='o',typ='TXM',into=("SIEF_ELNO_ELGA","SIGM_ELNO_DEPL") ),
15588            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15589            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
15590            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
15591            INST            =SIMP(statut='f',typ='R',max='**'),
15592            LIST_INST       =SIMP(statut='f',typ=listr8 ),
15593            b_inst          =BLOC(condition = "(INST != None) or (LIST_INST != None)" ,
15594              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
15595              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
15596                                  ),
15597                              ),
15598          ),
15599
15600      b_3200  =BLOC(condition="(OPTION == 'FATIGUE_B3200')",
15601          MATER           =SIMP(statut='o',typ=mater ),
15602          CHAR_MECA   =FACT(statut='o',min=1,max='**',fr="Chargements mécaniques",
15603            NUME_CHAR     =SIMP(statut='o',typ='I',max=1,fr="numéro du chargement" ),
15604            NOM_CHAR      =SIMP(statut='f',typ='TXM',max=1,fr="nom du chargement" ),
15605            TYPE_CHAR     =SIMP(statut='f',typ='TXM',max=1,fr="nature du chargement",into=( "SEISME","AUTRE"),defaut="AUTRE",),
15606            FX            =SIMP(statut='f',typ='R',max=1,fr="effort suivant x", ),
15607            FY            =SIMP(statut='f',typ='R',max=1,fr="effort suivant y", ),
15608            FZ            =SIMP(statut='f',typ='R',max=1,fr="effort suivant z", ),
15609            MX            =SIMP(statut='o',typ='R',max=1,fr="moment suivant x", ),
15610            MY            =SIMP(statut='o',typ='R',max=1,fr="moment suivant y", ),
15611            MZ            =SIMP(statut='o',typ='R',max=1,fr="moment suivant z", ),
15612                          ),
15613          RESU_MECA_UNIT =FACT(statut='o',min=1,max=1,fr="resultats mécaniques unitaires",
15614            TABL_FX       =SIMP(statut='f',typ=table,max=1,
15615                               fr="table relevé des contraintes pour chargement unitaire FX"),
15616            TABL_FY       =SIMP(statut='f',typ=table,max=1,
15617                               fr="table relevé des contraintes pour chargement unitaire FY"),
15618            TABL_FZ       =SIMP(statut='f',typ=table,max=1,
15619                               fr="table relevé des contraintes pour chargement unitaire FZ"),
15620            TABL_MX       =SIMP(statut='o',typ=table,max=1,
15621                               fr="table relevé des contraintes pour chargement unitaire MX"),
15622            TABL_MY       =SIMP(statut='o',typ=table,max=1,
15623                               fr="table relevé des contraintes pour chargement unitaire MY"),
15624            TABL_MZ       =SIMP(statut='o',typ=table,max=1,
15625                               fr="table relevé des contraintes pour chargement unitaire MZ"),
15626            TABL_PRES     =SIMP(statut='o',typ=table,max=1,
15627                               fr="table relevé des contraintes pour chargement unitaire de pression"),
15628                          ),
15629           RESU_THER   =FACT(statut='f',min=1,max='**',fr="resultats thermiques",
15630            NUME_RESU_THER =SIMP(statut='o',typ='I',max=1,fr="numéro de la table de résultat thermique" ),
15631            TABL_RESU_THER =SIMP(statut='o',typ=table,max=1,
15632                               fr="table relevé des contraintes pour chargement thermique"),
15633                            ),
15634          SITUATION         =FACT(statut='o',min=1,max='**',fr="Situation",ang="situation_ang",
15635               NB_OCCUR         =SIMP(statut='o',typ='I',fr="nombre d'occurences de la situation" ),
15636               NB_CYCL_SEISME   =SIMP(statut='f',typ='I',fr="nombre de cycles associé au séisme" ),
15637               NUME_SITU        =SIMP(statut='o',typ='I',fr="numéro de la situation" ),
15638               NOM_SITU         =SIMP(statut='f',typ='TXM',fr="nom de la situation" ),
15639               COMBINABLE       =SIMP(statut='f',typ='TXM',defaut= "OUI",into=("OUI","NON"),fr="non = sous-cycle" ),
15640               NUME_GROUPE      =SIMP(statut='o',typ='I',fr="numéro du groupe de la situation" ),
15641               NUME_PASSAGE     =SIMP(statut='f',typ='I',max=2,fr="numéro des deux groupes en relation" ),
15642               NUME_RESU_THER   =SIMP(statut='f',typ='I',max='**',fr="numeros de transitoires thermiques" ),
15643               CHAR_ETAT_A      =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat A" ),
15644               CHAR_ETAT_B      =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat B" ),
15645               PRES_A           =SIMP(statut='o',typ='R',fr="pression etat A"),
15646               PRES_B           =SIMP(statut='o',typ='R',fr="pression etat B"),
15647               TEMP_REF_A       =SIMP(statut='f',typ='R',fr="temperature référence etat A"),
15648               TEMP_REF_B       =SIMP(statut='f',typ='R',fr="temperature référence etat B"),
15649                                ),
15650                       ),
15651      b_3600  =BLOC(condition="(OPTION == 'FATIGUE_B3600')",
15652          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
15653          MODELE          =SIMP(statut='o',typ=modele),
15654          CARA_ELEM       =SIMP(statut='o',typ=cara_elem),
15655          ZONE_ANALYSE =FACT(statut='o',min=1,max=1,fr="liste des mailles ou des noeuds analysés",
15656             regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15657             TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15658             GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
15659             MAILLE          =SIMP(statut='f',typ=ma,max='**'),
15660             ),
15661          RESU_MECA   =FACT(statut='o',min=1,max='**',fr="Chargements mécaniques",
15662            regles=(UN_PARMI('CHAM_GD','RESULTAT'),),
15663            NUME_CHAR     =SIMP(statut='o',typ='I',max=1,fr="numéro du chargement" ),
15664            NOM_CHAR      =SIMP(statut='f',typ='TXM',max=1,fr="nom du chargement" ),
15665            TYPE_CHAR     =SIMP(statut='f',typ='TXM',max=1,fr="nature du chargement",into=( "SEISME","AUTRE"),defaut="AUTRE",),
15666            CHAM_GD         =SIMP(statut='f',typ=cham_gd),
15667            RESULTAT        =SIMP(statut='f',typ=resultat),
15668            b_extrac        =BLOC(condition="RESULTAT != None",
15669                                  fr="extraction d un champ de grandeur",
15670              regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','INST','NOEUD_CMP'),),
15671              NOM_CHAM        =SIMP(statut='o',typ='TXM',max=1,into=("EFGE_ELNO_DEPL","SIEF_ELNO_ELGA"),),
15672              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15673              NUME_ORDRE      =SIMP(statut='f',typ='I',max=1),
15674              INST            =SIMP(statut='f',typ='R',max=1),
15675              NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
15676              b_acce_reel     =BLOC(condition="(INST != None)",
15677                PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),
15678                CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU"), ),
15679              ),
15680            ),
15681                           ),
15682          INDI_SIGM =FACT(statut='o',min=1,max='**',fr="indices de contraintes",
15683             regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15684             C1              =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes C1 du RCCM"),
15685             K1              =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes K1 du RCCM"),
15686             C2              =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes C2 du RCCM"),
15687             K2              =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes K2 du RCCM"),
15688             C3              =SIMP(statut='f',typ='R',max=1,defaut=0.5,fr="indice de contraintes C3 du RCCM"),
15689             K3              =SIMP(statut='f',typ='R',max=1,defaut=1.0,fr="indice de contraintes K3 du RCCM"),
15690             TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",),),
15691             GROUP_MA        =SIMP(statut='f',typ=grma,max='**',
15692                              fr="groupe(s) de mailles ou sont affectés les indices de contraintes"),
15693             MAILLE          =SIMP(statut='f',typ=ma,max='**',
15694                              fr="liste des mailles ou sont affectés les indices de contraintes"),
15695             b_grma     =BLOC(condition="(GROUP_MA != None)or(MAILLE != None)",
15696                GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
15697                NOEUD           =SIMP(statut='f',typ=no,max='**'),
15698             ),
15699             TYPE_ELEM_STANDARD =SIMP(statut='f',typ='TXM',into=("DRO","COU","TRN","TEE"),
15700                               fr="type d'élément de tuyauterie ou sont affectés les indices de contraintes"),
15701                          ),
15702           RESU_THER   =FACT(statut='f',min=1,max='**',fr="resultats thermiques",
15703             regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
15704             NUME_RESU_THER =SIMP(statut='o',typ='I',max=1,fr="numéro de la table de résultat thermique" ),
15705             TABL_RESU_THER =SIMP(statut='o',typ=table,max=1,
15706                               fr="table relevé des températures sur la section"),
15707             TABL_MOYE_THER =SIMP(statut='o',typ=table,max=1,
15708                               fr="table relevé des moyennes sur la section"),
15709             TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15710             GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
15711             MAILLE          =SIMP(statut='f',typ=ma,max='**'),
15712             b_grma     =BLOC(condition="(GROUP_MA != None)or(MAILLE != None)",
15713                GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
15714                NOEUD           =SIMP(statut='f',typ=no,max='**'),
15715             ),
15716                            ),
15717          SITUATION         =FACT(statut='o',min=1,max='**',fr="Situation",ang="situation_ang",
15718               NB_OCCUR         =SIMP(statut='o',typ='I',fr="nombre d'occurences de la situation" ),
15719               NB_CYCL_SEISME   =SIMP(statut='f',typ='I',fr="nombre de cycles associé au séisme" ),
15720               NUME_SITU        =SIMP(statut='o',typ='I',fr="numéro de la situation" ),
15721               NOM_SITU         =SIMP(statut='f',typ='TXM',fr="nom de la situation" ),
15722               COMBINABLE       =SIMP(statut='f',typ='TXM',defaut= "OUI",into=("OUI","NON"),fr="non = sous-cycle" ),
15723               NUME_GROUPE      =SIMP(statut='o',typ='I',fr="numéro du groupe de la situation" ),
15724               NUME_PASSAGE     =SIMP(statut='f',typ='I',max=2,fr="numéro des deux groupes en relation" ),
15725               NUME_RESU_THER   =SIMP(statut='f',typ='I',max='**',fr="numeros de transitoires thermiques" ),
15726               CHAR_ETAT_A      =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat A" ),
15727               CHAR_ETAT_B      =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat B" ),
15728               PRES_A           =SIMP(statut='o',typ='R',fr="pression etat A"),
15729               PRES_B           =SIMP(statut='o',typ='R',fr="pression etat B"),
15730               TEMP_REF_A       =SIMP(statut='f',typ='R',fr="temperature référence etat A"),
15731               TEMP_REF_B       =SIMP(statut='f',typ='R',fr="temperature référence etat B"),
15732                                ),
15733                      ),
15734 )  ;
15735 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15736 # ======================================================================
15737 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15738 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15739 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15740 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15741 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15742 # (AT YOUR OPTION) ANY LATER VERSION.
15743 #
15744 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15745 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15746 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15747 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15748 #
15749 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15750 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15751 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15752 # ======================================================================
15753 # RESPONSABLE G8BHHXD X.DESROCHES
15754 POST_RELEVE_T=OPER(nom="POST_RELEVE_T",op=51,sd_prod=tabl_post_rele,docu="U4.81.21-e1",reentrant='n',
15755             UIinfo={"groupes":("Post traitements",)},
15756          ACTION          =FACT(statut='o',min=1,max='**',
15757            regles=(AU_MOINS_UN('CHEMIN','GROUP_NO','NOEUD'),
15758                    EXCLUS('CHEMIN','GROUP_NO'),
15759                    EXCLUS('CHEMIN','NOEUD'),
15760                    PRESENT_ABSENT('CHEMIN','GROUP_MA','MAILLE'),
15761                    UN_PARMI('RESULTAT','CHAM_GD'),
15762                    UN_PARMI('TOUT_CMP','NOM_CMP','INVARIANT','ELEM_PRINCIPAUX','RESULTANTE'),
15763                    PRESENT_PRESENT('TRAC_DIR','DIRECTION'),
15764                    PRESENT_PRESENT('TRAC_DIRECTION','DIRECTION'),
15765                    ENSEMBLE('MOMENT','POINT'),
15766                    PRESENT_PRESENT('MOMENT','RESULTANTE'),
15767                    PRESENT_ABSENT('TOUT_CMP','TRAC_DIRECTION','TRAC_NORMALE'),
15768                    PRESENT_ABSENT('TOUT_CMP','TRAC_DIR','TRAC_NOR'),
15769                    PRESENT_PRESENT('ORIGINE','AXE_Z'),),
15770            INTITULE        =SIMP(statut='o',typ='TXM'),
15771            CHEMIN          =SIMP(statut='f',typ=(courbe,surface) ),
15772            NOEUD           =SIMP(statut='f',typ=no,max='**'),
15773            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15774            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
15775            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
15776            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
15777            FORMAT_C        =SIMP(statut='f',typ='TXM',defaut="MODULE",into=("MODULE","REEL","IMAG")),
15778            CHAM_GD         =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r,cham_no_var2_r,
15779                                                  cham_elem_sief_r,cham_elem_epsi_r,cham_elem_flux_r,cham_elem_crit_r,
15780                                                  cham_elem_ener_r,cham_elem_dbel_r,cham_elem_pres_r,cham_elem_erreur,
15781                                                  cham_elem_vari_r,cham_no_depl_c,cham_no_temp_c,cham_no_pres_c,
15782                                                  cham_elem_sief_c,cham_elem_epsi_c)),
15783            RESULTAT        =SIMP(statut='f',typ=(evol_elas,evol_ther,evol_noli,dyna_trans,
15784                                                  mode_meca,mode_flamb,mode_acou,base_modale,mode_stat,
15785                                                  mult_elas,fourier_elas,dyna_harmo,acou_harmo)),
15786            b_sensibilite   =BLOC(condition="RESULTAT != None",
15787                                  fr="Définition des paramètres de sensibilité",
15788                                  ang="Definition of sensitivity parameters",
15789              SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
15790                                    fr="Liste des paramètres de sensibilité.",
15791                                    ang="List of sensitivity parameters"),),
15792
15793            b_extrac        =BLOC(condition = "RESULTAT != None",fr="extraction des résultats",
15794              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','NUME_MODE','LIST_MODE',
15795                             'INST','LIST_INST','FREQ','LIST_FREQ','NOEUD_CMP','NOM_CAS'), ),
15796              NOM_CHAM        =SIMP(statut='o',typ='TXM' ),
15797              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15798              NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
15799              LIST_ORDRE      =SIMP(statut='f',typ=listis),
15800              NUME_MODE       =SIMP(statut='f',typ='I',max='**'),
15801              LIST_MODE       =SIMP(statut='f',typ=listis),
15802              NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**'),
15803              NOM_CAS         =SIMP(statut='f',typ='TXM',max='**'),
15804              FREQ            =SIMP(statut='f',typ='R',max='**'),
15805              LIST_FREQ       =SIMP(statut='f',typ=listr8),
15806              INST            =SIMP(statut='f',typ='R',max='**'),
15807              LIST_INST       =SIMP(statut='f',typ=listr8),
15808              PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),
15809              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
15810            ),
15811            TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",)),
15812            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
15813            INVARIANT       =SIMP(statut='f',typ='TXM',into=("OUI",)),
15814            ELEM_PRINCIPAUX =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15815            RESULTANTE      =SIMP(statut='f',typ='TXM',max='**'),
15816            MOMENT          =SIMP(statut='f',typ='TXM',max='**'),
15817            POINT           =SIMP(statut='f',typ='R',max='**'),
15818
15819            REPERE          =SIMP(statut='f',typ='TXM',defaut="GLOBAL",
15820                                  into=("GLOBAL","LOCAL","POLAIRE","UTILISATEUR","CYLINDRIQUE"),),
15821            ANGL_NAUT       =SIMP(statut='f',typ='R',min=3,max=3),
15822            ORIGINE         =SIMP(statut='f',typ='R',min=3,max=3),
15823            AXE_Z           =SIMP(statut='f',typ='R',min=3,max=3),
15824
15825            TRAC_NOR        =SIMP(statut='f',typ='TXM',into=("OUI",)),
15826            TRAC_DIR        =SIMP(statut='f',typ='TXM',into=("OUI",)),
15827            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
15828            TRAC_DIRECTION  =SIMP(statut='f',typ='TXM',into=("OUI",)),
15829            TRAC_NORMALE    =SIMP(statut='f',typ='TXM',into=("OUI",)),
15830
15831            VECT_Y          =SIMP(statut='f',typ='R',max='**'),
15832            MOYE_NOEUD      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
15833            OPERATION       =SIMP(statut='o',typ='TXM',into=("EXTRACTION","MOYENNE"),max=2),
15834          ),
15835          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
15836          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
15837 )  ;
15838 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15839 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15840 # ======================================================================
15841 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15842 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15843 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15844 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15845 # (AT YOUR OPTION) ANY LATER VERSION.
15846 #
15847 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15848 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15849 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15850 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15851 #
15852 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15853 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15854 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15855 # ======================================================================
15856 POST_SIMPLIFIE=OPER(nom="POST_SIMPLIFIE",op=185,sd_prod=tabl_post_simpli,
15857                     fr=" ",docu="U4.PS.10-a",reentrant='n',
15858             UIinfo={"groupes":("Outils métier",)},
15859          MATER           =SIMP(statut='o',typ=(mater) ),
15860          DEF_EQUI        =FACT(statut='f',min=1,max=1,
15861            METHODE         =SIMP(statut='f',typ='TXM',max='**',defaut="UTO_2_3",
15862                                  into=("UTO_2_3",) ),
15863            EPAIS           =SIMP(statut='o',typ='R'),
15864            LONG_FISS       =SIMP(statut='o',typ='R'),
15865            LONG_LIGA_INT   =SIMP(statut='o',typ='R'),
15866            DEXT            =SIMP(statut='o',typ='R'),
15867            TEMP_ANALYSE    =SIMP(statut='f',typ='R'),
15868          ),
15869 )  ;
15870 #& MODIF COMMANDE  DATE 02/12/2002   AUTEUR CIBHHLV L.VIVAN
15871 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15872 # ======================================================================
15873 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15874 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15875 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15876 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15877 # (AT YOUR OPTION) ANY LATER VERSION.
15878 #
15879 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15880 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
15881 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
15882 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
15883 #
15884 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
15885 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
15886 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
15887 # ======================================================================
15888 POST_USURE=OPER(nom="POST_USURE",op=153,sd_prod=tabl_post_usur,docu="U4.84.05-d1",reentrant='f',
15889             UIinfo={"groupes":("Post traitements",)},
15890                 fr="Calcul des volumes d'usure et des profondeurs d'usure",
15891          regles=(UN_PARMI('TUBE_NEUF','RESU_GENE','PUIS_USURE'),
15892                  PRESENT_PRESENT('RESU_GENE','NOEUD','LOI_USURE'),
15893                  PRESENT_PRESENT('PUIS_USURE','LOI_USURE'),),
15894          TUBE_NEUF       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
15895          ETAT_INIT       =FACT(statut='f',min=1,max=1,
15896            TABL_USURE      =SIMP(statut='f',typ=tabl_post_usur),
15897            INST_INIT       =SIMP(statut='f',typ='R'),
15898                          ),
15899          RESU_GENE       =SIMP(statut='f',typ=tran_gene),
15900          NOEUD           =SIMP(statut='f',typ=no,max=1),
15901          INST_INIT       =SIMP(statut='f',typ='R',defaut=-1.0E+0),
15902          INST_FIN        =SIMP(statut='f',typ='R'),
15903          NB_BLOC         =SIMP(statut='f',typ='I',defaut= 1 ),
15904          PUIS_USURE      =SIMP(statut='f',typ='R'),
15905          LOI_USURE       =SIMP(statut='f',typ='TXM',into=("ARCHARD","KWU_EPRI","EDF_MZ")),
15906          b_archard       =BLOC(condition = "LOI_USURE == 'ARCHARD'",
15907            regles=(UN_PARMI('MOBILE','MATER_USURE','SECTEUR'),
15908                    EXCLUS('MATER_USURE','OBSTACLE'),
15909                    EXCLUS('MOBILE','USURE_OBST'),),
15910            MOBILE          =FACT(statut='f',min=1,max=1,
15911              COEF_USURE      =SIMP(statut='o',typ='R'),
15912            ),
15913            OBSTACLE        =FACT(statut='f',min=1,max=1,
15914              COEF_USURE      =SIMP(statut='o',typ='R'),
15915            ),
15916            SECTEUR         =FACT(statut='f',min=1,max='**',
15917              CONTACT         =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
15918                                                               "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
15919                                                               "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
15920              COEF_USUR_MOBILE=SIMP(statut='f',typ='R'),
15921              COEF_USUR_OBST  =SIMP(statut='f',typ='R'),
15922              ANGL_INIT       =SIMP(statut='f',typ='R'),
15923              ANGL_FIN        =SIMP(statut='f',typ='R'),
15924            ),
15925            MATER_USURE     =SIMP(statut='f',typ='TXM'),
15926            USURE_OBST      =SIMP(statut='f',typ='TXM',into=("OUI",)),
15927          ),
15928          b_kwu_epri        =BLOC(condition = "LOI_USURE == 'KWU_EPRI'",
15929            regles=(UN_PARMI('MOBILE','MATER_USURE'),
15930                    EXCLUS('MATER_USURE','OBSTACLE'),
15931                    EXCLUS('MOBILE','USURE_OBST'),),
15932            MOBILE          =FACT(statut='f',min=1,max=1,
15933              COEF_FNOR       =SIMP(statut='f',typ='R'),
15934              COEF_VTAN       =SIMP(statut='f',typ='R'),
15935              COEF_USURE      =SIMP(statut='f',typ='R'),
15936              COEF_K          =SIMP(statut='f',typ='R',defaut=5.0E+0),
15937              COEF_C          =SIMP(statut='f',typ='R',defaut=10.0E+0),
15938            ),
15939            OBSTACLE        =FACT(statut='f',min=1,max=1,
15940              COEF_FNOR       =SIMP(statut='f',typ='R' ),
15941              COEF_VTAN       =SIMP(statut='f',typ='R' ),
15942              COEF_USURE      =SIMP(statut='o',typ='R'),
15943              COEF_K          =SIMP(statut='f',typ='R',defaut=5.0E+0),
15944              COEF_C          =SIMP(statut='f',typ='R',defaut=10.0E+0),
15945            ),
15946            MATER_USURE     =SIMP(statut='f',typ='TXM'),
15947            USURE_OBST      =SIMP(statut='f',typ='TXM',into=("OUI",)),
15948            FNOR_MAXI       =SIMP(statut='f',typ='R' ),
15949            VTAN_MAXI       =SIMP(statut='f',typ='R' ),
15950          ),
15951          b_edf_mz          =BLOC(condition = "LOI_USURE == 'EDF_MZ'",
15952            regles=(UN_PARMI('MOBILE','MATER_USURE'),
15953                    EXCLUS('MATER_USURE','OBSTACLE'),
15954                    EXCLUS('MOBILE','USURE_OBST'),),
15955            MOBILE          =FACT(statut='f',min=1,max=1,
15956              COEF_USURE      =SIMP(statut='f',typ='R',defaut=1.0E-13),
15957              COEF_B          =SIMP(statut='f',typ='R',defaut=1.2E+0),
15958              COEF_N          =SIMP(statut='f',typ='R',defaut=2.44E-8),
15959              COEF_S          =SIMP(statut='f',typ='R',defaut=1.14E-16),
15960            ),
15961            OBSTACLE        =FACT(statut='f',min=1,max=1,
15962              COEF_USURE      =SIMP(statut='o',typ='R',defaut=1.0E-13),
15963              COEF_B          =SIMP(statut='f',typ='R',defaut=1.2E+0),
15964              COEF_N          =SIMP(statut='f',typ='R',defaut=2.44E-8),
15965              COEF_S          =SIMP(statut='f',typ='R',defaut=1.14E-16),
15966            ),
15967            MATER_USURE     =SIMP(statut='f',typ='TXM'),
15968            USURE_OBST      =SIMP(statut='f',typ='TXM',into=("OUI",)),
15969          ),
15970          b_tube_neuf       =BLOC(condition = "TUBE_NEUF == 'OUI'",
15971             TABL_USURE      =SIMP(statut='o',typ=tabl_post_usur),
15972             INST            =SIMP(statut='f',typ='R'),
15973          ),
15974          CONTACT         =SIMP(statut='f',typ='TXM',into=("TUBE_BAV","TUBE_ALESAGE","TUBE_4_ENCO",
15975                                                           "GRAPPE_ALESAGE","TUBE_3_ENCO","TUBE_TUBE",
15976                                                           "GRAPPE_1_ENCO","GRAPPE_2_ENCO")),
15977          RAYON_MOBILE    =SIMP(statut='f',typ='R'),
15978          RAYON_OBST      =SIMP(statut='f',typ='R'),
15979          LARGEUR_OBST    =SIMP(statut='f',typ='R'),
15980          ANGL_INCLI      =SIMP(statut='f',typ='R'),
15981          ANGL_ISTHME     =SIMP(statut='f',typ='R'),
15982          ANGL_IMPACT     =SIMP(statut='f',typ='R'),
15983          INST            =SIMP(statut='f',typ='R',max='**'),
15984          LIST_INST       =SIMP(statut='f',typ=listr8),
15985          COEF_INST       =SIMP(statut='f',typ='R',defaut=1.0E+0),
15986          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
15987          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
15988 )  ;
15989 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
15990 #            CONFIGURATION MANAGEMENT OF EDF VERSION
15991 # ======================================================================
15992 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
15993 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
15994 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
15995 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
15996 # (AT YOUR OPTION) ANY LATER VERSION.
15997 #
15998 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
15999 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16000 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16001 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16002 #
16003 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16004 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16005 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16006 # ======================================================================
16007 POST_ZAC=OPER(nom="POST_ZAC",op= 175,sd_prod=mult_elas,docu="U4.83.21-b",reentrant='n',
16008             UIinfo={"groupes":("Post traitements",)},
16009               fr="Donne l'état adapté ou accommodé d'une structure sous chargement cyclique élastique affine ou non",
16010          MODELE          =SIMP(statut='o',typ=modele),
16011          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
16012          EXCIT           =FACT(statut='o',min=1,max='**',
16013            CHARGE          =SIMP(statut='o',typ=char_meca),
16014            FONC_MULT       =SIMP(statut='f',typ=fonction),
16015            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",into=("FIXE_CSTE",)),
16016          ),
16017          EVOL_ELAS       =SIMP(statut='o',typ=evol_elas),
16018          b_evol_elas     =BLOC(condition="EVOL_ELAS != None",
16019            regles=(UN_PARMI('NUME_ORDRE','LIST_INST','INST'),),
16020            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
16021            LIST_INST       =SIMP(statut='f',typ=listr8),
16022            INST            =SIMP(statut='f',typ='R',max='**'),
16023          ),
16024          TEMP_ZAC        =SIMP(statut='f',typ='R',defaut=0.0E+0),
16025          EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
16026          b_evol_noli     =BLOC(condition="EVOL_NOLI != None",
16027            INST_MAX        =SIMP(statut='o',typ='R'),
16028          ),
16029          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
16030          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
16031
16032 )  ;
16033 #& MODIF COMMANDE  DATE 20/01/2003   AUTEUR DURAND C.DURAND
16034 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16035 # ======================================================================
16036 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16037 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16038 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16039 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16040 # (AT YOUR OPTION) ANY LATER VERSION.
16041 #
16042 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16043 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16044 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16045 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16046 #
16047 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16048 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16049 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16050 # ======================================================================
16051 POURSUITE=MACRO(nom="POURSUITE",op=ops.build_poursuite,repetable='n',fr="Poursuite d une étude",
16052                 docu="U4.11.03-g2",sd_prod = ops.POURSUITE,
16053             UIinfo={"groupes":("Gestion du travail",)},
16054                 op_init = ops.POURSUITE_context,fichier_ini = 1,
16055          PAR_LOT         =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
16056                            into=("OUI","NON"),defaut="OUI"),
16057          BASE            =FACT(fr="définition des parmètres associés aux bases JEVEUX",
16058                                statut='f',min=1,max=3,
16059            FICHIER         =SIMP(fr="nom de la base",statut='o',typ='TXM'),
16060            TITRE           =SIMP(statut='f',typ='TXM'),
16061            CAS             =SIMP(statut='f',typ='TXM'),
16062            NMAX_ENRE       =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
16063            LONG_ENRE       =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
16064            LONG_REPE       =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
16065          ),
16066          IMPRESSION      =FACT(statut='f',min=1,max=3,
16067            FICHIER         =SIMP(statut='o',typ='TXM'),
16068            UNITE           =SIMP(statut='o',typ='I'),
16069          ),
16070          CATALOGUE       =FACT(statut='f',min=1,max=10,
16071            FICHIER         =SIMP(statut='o',typ='TXM'),
16072            TITRE           =SIMP(statut='f',typ='TXM'),
16073            UNITE           =SIMP(statut='f',typ='I'),
16074          ),
16075          DEBUG           =FACT(fr="option de déboggage reservée aux développeurs",
16076                                statut='f',min=1,max=1,
16077            JXVERI          =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
16078                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
16079            JEVEUX          =SIMP(fr="force les déchargement sur disque",
16080                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
16081            ENVIMA          =SIMP(fr="imprime les valeurs définies dans ENVIMA",
16082                                  statut='f',typ='TXM',into=('TES',)),
16083          ),
16084          MEMOIRE         =FACT(fr="mode de gestion mémoire utilisé",statut='f',min=1,max=1,
16085            GESTION         =SIMP(statut='f',typ='TXM',into=('COMPACTE','RAPIDE'),defaut='RAPIDE'),
16086            TYPE_ALLOCATION =SIMP(statut='f',typ='I',into=(1,2,3,4),defaut=1),
16087            TAILLE          =SIMP(statut='f',typ='I'),
16088            TAILLE_BLOC     =SIMP(statut='f',typ='R',defaut=800.),
16089            PARTITION       =SIMP(statut='f',typ='R' ),
16090          ),
16091          CODE            =FACT("définition d un nom pour l'esemble d'une étude",
16092                                statut='f',min=1,max=1,
16093            NOM             =SIMP(statut='o',typ='TXM'),
16094            UNITE           =SIMP(statut='f',typ='I',defaut=15),
16095          ),
16096 )  ;
16097 #& MODIF COMMANDE  DATE 21/12/2000   AUTEUR DURAND C.DURAND
16098 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16099 # ======================================================================
16100 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16101 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16102 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16103 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16104 # (AT YOUR OPTION) ANY LATER VERSION.
16105 #
16106 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16107 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16108 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16109 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16110 #
16111 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16112 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16113 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16114 # ======================================================================
16115 PRE_CHAR_IDEAS=PROC(nom="PRE_CHAR_IDEAS",op=100,docu="U7.01.02-e",
16116                     fr="Conversion de conditions aux limites et chargements IDEAS en commandes Aster",
16117          UNITE_IDEAS     =SIMP(statut='f',typ='I',defaut=19),
16118          UNITE_ASTER     =SIMP(statut='f',typ='I',defaut=21),
16119          MODELE          =SIMP(statut='o',typ=modele),
16120 )  ;
16121 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16122 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16123 # ======================================================================
16124 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16125 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16126 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16127 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16128 # (AT YOUR OPTION) ANY LATER VERSION.
16129 #
16130 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16131 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16132 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16133 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16134 #
16135 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16136 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16137 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16138 # ======================================================================
16139 PRE_GIBI=PROC(nom="PRE_GIBI",op=49,docu="U7.01.11-f",
16140             UIinfo={"groupes":("Gestion du travail",)},
16141               fr="Conversion d un fichier de maillage GIBI",
16142          UNITE_GIBI      =SIMP(statut='f',typ='I',defaut=19),
16143          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),
16144 )  ;
16145 #& MODIF COMMANDE  DATE 13/01/2003   AUTEUR DURAND C.DURAND
16146 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16147 # ======================================================================
16148 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16149 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16150 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16151 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16152 # (AT YOUR OPTION) ANY LATER VERSION.
16153 #
16154 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16155 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16156 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16157 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16158 #
16159 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16160 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16161 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16162 # ======================================================================
16163
16164 PRE_GMSH=PROC(nom="PRE_GMSH",op=47,docu="U7.01.01-f",
16165             UIinfo={"groupes":("Gestion du travail",)},
16166                fr="Conversion d un fichier universel GMSH au format Aster",
16167          UNITE_GMSH      =SIMP(statut='f',typ='I',defaut=19),
16168          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),
16169 )  ;
16170 #& MODIF COMMANDE  DATE 02/12/2002   AUTEUR CIBHHLV L.VIVAN
16171 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16172 # ======================================================================
16173 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16174 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16175 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16176 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16177 # (AT YOUR OPTION) ANY LATER VERSION.
16178 #
16179 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16180 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16181 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16182 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16183 #
16184 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16185 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16186 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16187 # ======================================================================
16188 PRE_IDEAS=PROC(nom="PRE_IDEAS",op=47,docu="U7.01.01-f",
16189             UIinfo={"groupes":("Gestion du travail",)},
16190                fr="Conversion d un fichier universel IDEAS-SUPERTAB au format Aster",
16191          UNITE_IDEAS     =SIMP(statut='f',typ='I',defaut=19),
16192          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),
16193          CREA_GROUP_COUL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
16194 )  ;
16195 #& MODIF COMMANDE  DATE 20/01/2003   AUTEUR DURAND C.DURAND
16196 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16197 # ======================================================================
16198 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16199 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16200 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16201 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16202 # (AT YOUR OPTION) ANY LATER VERSION.
16203 #
16204 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16205 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16206 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16207 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16208 #
16209 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16210 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16211 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16212 # ======================================================================
16213 PROCEDURE=MACRO(nom="PROCEDURE",op=ops.build_procedure, docu="U4.13.03-e",
16214             UIinfo={"groupes":("Gestion du travail",)},
16215           fr="Nommer le fichier de commandes secondaires",
16216           NOM  =SIMP(statut='f',typ='TXM',defaut=" "),
16217 ) ;
16218 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16219 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16220 # ======================================================================
16221 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16222 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16223 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16224 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16225 # (AT YOUR OPTION) ANY LATER VERSION.
16226 #
16227 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16228 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16229 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16230 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16231 #
16232 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16233 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16234 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16235 # ======================================================================
16236 def prod_matr_cham_prod(MATR_ASSE,**args):
16237   if AsType(MATR_ASSE) == matr_asse_depl_r : return cham_no_depl_r
16238   if AsType(MATR_ASSE) == matr_asse_depl_c : return cham_no_depl_c
16239   if AsType(MATR_ASSE) == matr_asse_temp_r : return cham_no_temp_r
16240   if AsType(MATR_ASSE) == matr_asse_pres_c : return cham_no_pres_c
16241   raise AsException("type de concept resultat non prevu")
16242
16243 PROD_MATR_CHAM=OPER(nom="PROD_MATR_CHAM",op= 156,sd_prod=prod_matr_cham_prod,
16244                     fr="Effectuer le produit d une matrice par un vecteur",
16245                     docu="U4.72.06-b",reentrant='n',
16246             UIinfo={"groupes":("Résultats et champs",)},
16247          MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,matr_asse_pres_c ) ),
16248          CHAM_NO         =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_temp_r,cham_no_pres_c ) ),
16249          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
16250 )  ;
16251 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16252 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16253 # ======================================================================
16254 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16255 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16256 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16257 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16258 # (AT YOUR OPTION) ANY LATER VERSION.
16259 #
16260 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16261 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16262 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16263 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16264 #
16265 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16266 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16267 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16268 # ======================================================================
16269 # RESPONSABLE VABHHTS J.PELLET
16270 def proj_champ_prod(RESULTAT=None,CHAM_NO_REFE=None,**args ):
16271     if AsType(RESULTAT)     == evol_ther      : return evol_ther
16272     if AsType(RESULTAT)     == evol_elas      : return evol_elas
16273     if AsType(RESULTAT)     == evol_noli      : return evol_noli
16274     if AsType(RESULTAT)     == evol_char      : return evol_char
16275     if AsType(CHAM_NO_REFE) == cham_no_depl_r : return cham_no_depl_r
16276     if AsType(CHAM_NO_REFE) == cham_no_depl_c : return cham_no_depl_c
16277     if AsType(CHAM_NO_REFE) == cham_no_pres_c : return cham_no_pres_c
16278     if AsType(CHAM_NO_REFE) == cham_no_temp_r : return cham_no_temp_r
16279     if AsType(CHAM_NO_REFE) == cham_no_epsi_r : return cham_no_epsi_r
16280     if AsType(CHAM_NO_REFE) == cham_no_sief_r : return cham_no_sief_r
16281     if AsType(CHAM_NO_REFE) == cham_no_flux_r : return cham_no_flux_r
16282     raise AsException("type de concept resultat non prevu")
16283
16284 PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,docu="U4.72.05-d2",reentrant='n',
16285             UIinfo={"groupes":("Résultats et champs",)},
16286                 fr="Projection d'un champ aux noeuds sur les noeuds d'un autre maillage",
16287 #
16288          METHODE         =SIMP(statut='f',typ='TXM',defaut="NUAGE_DEG_1",
16289                                into=("NUAGE_DEG_0","NUAGE_DEG_1","ELEM",) ),
16290          b_nuage         =BLOC(condition="(METHODE=='NUAGE_DEG_1') or (METHODE=='NUAGE_DEG_0')",
16291                                fr="Lissage d'un nuage de points",
16292            CHAM_NO         =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_pres_c,cham_no_temp_r,
16293                                                  cham_no_epsi_r,cham_no_sief_r,cham_no_flux_r)),
16294            CHAM_NO_REFE    =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_depl_c,cham_no_pres_c,cham_no_temp_r,
16295                                                  cham_no_epsi_r,cham_no_sief_r,cham_no_flux_r)),
16296          ),
16297          b_elem          =BLOC(condition="METHODE=='ELEM'",
16298                               fr="Utilisation des fonctions de forme du maillage initial",
16299            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','LIST_INST','LIST_FREQ','LIST_ORDRE'),
16300                    EXCLUS('TOUT_CHAM','NOM_CHAM',), ),
16301            RESULTAT        =SIMP(statut='o',typ=(evol_ther,evol_elas,evol_noli,evol_char) ),
16302            MODELE_1        =SIMP(statut='o',typ=modele),
16303            MODELE_2        =SIMP(statut='o',typ=modele),
16304
16305            TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16306            NOM_CHAM        =SIMP(statut='f',typ='TXM',max='**'),
16307
16308            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16309            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
16310            LIST_ORDRE      =SIMP(statut='f',typ=listis),
16311            INST            =SIMP(statut='f',typ='R',max='**' ),
16312            LIST_INST       =SIMP(statut='f',typ=listr8),
16313            FREQ            =SIMP(statut='f',typ='R',max='**' ),
16314            LIST_FREQ       =SIMP(statut='f',typ=listr8),
16315          ),
16316
16317          VIS_A_VIS       =FACT(statut='f',min=1,max='**',
16318            regles=(AU_MOINS_UN('TOUT_1','GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
16319                    AU_MOINS_UN('TOUT_2','GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),),
16320            TOUT_1          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16321            GROUP_MA_1      =SIMP(statut='f',typ=grma,max='**'),
16322            MAILLE_1        =SIMP(statut='f',typ=ma,max='**'),
16323            GROUP_NO_1      =SIMP(statut='f',typ=grno,max='**'),
16324            NOEUD_1         =SIMP(statut='f',typ=no,max='**'),
16325            TOUT_2          =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16326            GROUP_MA_2      =SIMP(statut='f',typ=grma,max='**'),
16327            MAILLE_2        =SIMP(statut='f',typ=ma,max='**'),
16328            GROUP_NO_2      =SIMP(statut='f',typ=grno,max='**'),
16329            NOEUD_2         =SIMP(statut='f',typ=no,max='**'),
16330          ),
16331
16332          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
16333 )  ;
16334 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16335 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16336 # ======================================================================
16337 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16338 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16339 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16340 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16341 # (AT YOUR OPTION) ANY LATER VERSION.
16342 #
16343 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16344 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16345 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16346 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16347 #
16348 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16349 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16350 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16351 # ======================================================================
16352 def matr_asse_gene_prod(MATR_ASSE,MATR_ASSE_GENE,**args):
16353   if AsType(MATR_ASSE) == matr_asse_depl_r  : return matr_asse_gene_r
16354   if AsType(MATR_ASSE_GENE) == matr_asse_gene_r  : return matr_asse_gene_r
16355   if AsType(MATR_ASSE) == matr_asse_depl_c  : return matr_asse_gene_c
16356   if AsType(MATR_ASSE_GENE) == matr_asse_gene_c  : return matr_asse_gene_c
16357   raise AsException("type de concept resultat non prevu")
16358
16359 PROJ_MATR_BASE=OPER(nom="PROJ_MATR_BASE",op=  71,sd_prod=matr_asse_gene_prod,
16360                     fr="Projection d une matrice assemblée sur une base (modale ou de RITZ)",
16361                     docu="U4.63.12-f1",reentrant='n',
16362             UIinfo={"groupes":("Matrices/vecteurs",)},
16363          regles=(UN_PARMI('MATR_ASSE','MATR_ASSE_GENE'),),
16364          BASE            =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene ) ),
16365          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
16366          MATR_ASSE       =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_depl_c) ),
16367          MATR_ASSE_GENE  =SIMP(statut='f',typ=(matr_asse_gene_r,matr_asse_gene_c) ),
16368 )  ;
16369
16370 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16371 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16372 # ======================================================================
16373 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16374 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16375 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16376 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16377 # (AT YOUR OPTION) ANY LATER VERSION.
16378 #
16379 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16380 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16381 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16382 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16383 #
16384 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16385 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16386 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16387 # ======================================================================
16388 def proj_mesu_modal_prod(MODELE_MESURE,**args):
16389      vale=MODELE_MESURE['NOM_PARA']
16390      if  vale == 'INST'   : return tran_gene
16391      if  vale == 'FREQ'   : return harm_gene
16392      if  vale == 'DEFORMEE'   : return mode_gene
16393      raise AsException("type de concept resultat non prevu")
16394
16395 PROJ_MESU_MODAL=OPER(nom="PROJ_MESU_MODAL",op= 193,
16396                      sd_prod=proj_mesu_modal_prod,
16397                      docu="U4.73.01-a",reentrant='n',
16398             UIinfo={"groupes":("Résultats et champs",)},
16399                      fr="Calcul de coordonnees generalisees de mesure experimentale relatives a une base de projection",
16400
16401          MODELE_CALCUL   =FACT(statut='o',min=1,max=1,
16402            MODELE          =SIMP(statut='o',typ=(modele) ),
16403            BASE            =SIMP(statut='o',typ=(mode_meca,base_modale,) ),
16404                          ),
16405          MODELE_MESURE   =FACT(statut='o',min=1,max=1,
16406            MODELE          =SIMP(statut='o',typ=(modele) ),
16407            MESURE          =SIMP(statut='o',typ=(dyna_trans,dyna_harmo,base_modale,) ),
16408            NOM_PARA        =SIMP(statut='f',typ='TXM',defaut="INST",into=("INST","FREQ","DEFORMEE",),),
16409            NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE","SIEF_NOEU","EPSI_NOEU_DEPL",) ),
16410                          ),
16411          CORR_MANU       =FACT(statut='f',min=1,max='**',
16412            regles=(PRESENT_PRESENT('NOEU_CALCUL','NOEU_MESURE'),),
16413            NOEU_CALCUL     =SIMP(statut='f',typ=no),
16414            NOEU_MESURE     =SIMP(statut='f',typ=no),
16415                          ),
16416          RESOLUTION      =FACT(statut='f',min=1,max=1,
16417            METHODE         =SIMP(statut='f',typ='TXM',defaut="LU",into=("LU","SVD",) ),
16418            b_svd =BLOC(condition="METHODE=='SVD'",
16419                        EPS=SIMP(statut='f',typ='R',defaut=0. ),
16420                       ),
16421            REGUL           =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","NORM_MIN","TIK_RELA",) ),
16422            b_regul =BLOC(condition="REGUL!='NON'",
16423                          regles=(PRESENT_ABSENT('COEF_PONDER','COEF_PONDER_F', ),),
16424                          COEF_PONDER =SIMP(statut='f',typ='R',max='**',defaut=0. ),
16425                          COEF_PONDER_F =SIMP(statut='f',typ=(fonction),max='**' ),
16426                         ),
16427              ),
16428
16429           );
16430 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16431 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16432 # ======================================================================
16433 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16434 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16435 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16436 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16437 # (AT YOUR OPTION) ANY LATER VERSION.
16438 #
16439 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16440 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16441 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16442 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16443 #
16444 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16445 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16446 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16447 # ======================================================================
16448 PROJ_SPEC_BASE=OPER(nom="PROJ_SPEC_BASE",op= 146,sd_prod=tabl_intsp,docu="U4.63.14-c",reentrant='n',
16449             UIinfo={"groupes":("Matrices/vecteurs",)},
16450                     fr="Projection d un ou plusieurs spectres de turbulenc sur un ensemble de bases modales ",
16451       regles=(UN_PARMI('BASE_ELAS_FLUI','MODE_MECA','CHAM_NO'),
16452               ENSEMBLE('FREQ_INIT','FREQ_FIN','NB_POIN'),),
16453          SPEC_TURB       =SIMP(statut='o',typ=spectre,max='**' ),
16454          BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu ),
16455          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
16456          CHAM_NO         =SIMP(statut='f',typ=cham_no_depl_r ),
16457          FREQ_INIT       =SIMP(statut='f',typ='R',val_min=0.E+0 ),
16458          FREQ_FIN        =SIMP(statut='f',typ='R',val_min=0.E+0 ),
16459          NB_POIN         =SIMP(statut='f',typ='I' ),
16460          OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG")),
16461          GROUP_MA        =SIMP(statut='f',typ=grma),
16462 #  Quel est le type attendu derriere  MODELE_INTERFACE
16463          MODELE_INTERFACE=SIMP(statut='f',typ=modele),
16464          VECT_X          =SIMP(statut='f',typ='R',min=3,max=3 ),
16465          VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3 ),
16466          ORIG_AXE        =SIMP(statut='f',typ='R',min=3,max=3 ),
16467          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
16468 )  ;
16469 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16470 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16471 # ======================================================================
16472 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16473 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16474 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16475 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16476 # (AT YOUR OPTION) ANY LATER VERSION.
16477 #
16478 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16479 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16480 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16481 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16482 #
16483 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16484 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16485 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16486 # ======================================================================
16487 PROJ_VECT_BASE=OPER(nom="PROJ_VECT_BASE",op=  72,sd_prod=vect_asse_gene,
16488                     fr="Projection d un vecteur assemblé sur une base (modale ou de RITZ)",
16489                     docu="U4.63.13-f1",reentrant='n',
16490             UIinfo={"groupes":("Matrices/vecteurs",)},
16491          regles=(UN_PARMI('VECT_ASSE','VECT_ASSE_GENE'),),
16492          BASE            =SIMP(statut='o',typ=(mode_meca,base_modale,mode_gene ) ),
16493          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
16494          TYPE_VECT       =SIMP(statut='f',typ='TXM',defaut="FORC"),
16495          VECT_ASSE       =SIMP(statut='f',typ=cham_no_depl_r ),
16496          VECT_ASSE_GENE  =SIMP(statut='f',typ=vect_asse_gene ),
16497 )  ;
16498 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16499 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16500 # ======================================================================
16501 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16502 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16503 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16504 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16505 # (AT YOUR OPTION) ANY LATER VERSION.
16506 #
16507 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16508 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16509 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16510 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16511 #
16512 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16513 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16514 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16515 # ======================================================================
16516 RECA_WEIBULL=OPER(nom="RECA_WEIBULL",op= 197,sd_prod=tabl_reca_weib,
16517                      fr=" ",docu="U4.82.06-a",reentrant='n',
16518             UIinfo={"groupes":("Post traitements",)},
16519          LIST_PARA       =SIMP(statut='o',typ='TXM',max='**',into=("SIGM_REFE","M",) ),
16520          RESU            =FACT(statut='o',min=1,max='**',
16521            regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST',),
16522                    AU_MOINS_UN('TOUT','GROUP_MA','MAILLE', ),),
16523            EVOL_NOLI       =SIMP(statut='o',typ=(evol_noli) ),
16524            MODELE          =SIMP(statut='o',typ=(modele) ),
16525            CHAM_MATER      =SIMP(statut='o',typ=(cham_mater) ),
16526            TEMPE           =SIMP(statut='f',typ='R' ),
16527            LIST_INST_RUPT  =SIMP(statut='o',typ='R',max='**' ),
16528            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16529            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
16530            INST            =SIMP(statut='f',typ='R',max='**' ),
16531            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
16532            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16533            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
16534            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
16535            COEF_MULT       =SIMP(statut='f',typ='R',defaut= 1.E0 ),
16536                          ),
16537          OPTION          =SIMP(statut='f',typ='TXM',defaut="SIGM_ELGA",into=("SIGM_ELGA","SIGM_ELMOY",) ),
16538          CORR_PLAST      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
16539          METHODE         =SIMP(statut='f',typ='TXM',defaut="MAXI_VRAI",into=("MAXI_VRAI","REGR_LINE",) ),
16540          INCO_GLOB_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
16541          ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
16542          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
16543                        )  ;
16544 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16545 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16546 # ======================================================================
16547 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16548 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16549 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16550 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16551 # (AT YOUR OPTION) ANY LATER VERSION.
16552 #
16553 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16554 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16555 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16556 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16557 #
16558 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16559 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16560 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16561 # ======================================================================
16562 # RESPONSABLE MCOURTOI M.COURTOIS
16563 def recu_fonction_prod(RESULTAT=None,TABLE=None,OBSTACLE=None,
16564                        RESU_GENE=None,BASE_ELAS_FLUI=None,CHAM_GD=None,
16565                        TYPE_RESU=None,**args):
16566   if AsType(RESULTAT) == dyna_harmo : return fonction_c
16567 #  On ne sait pas interpreter les deux conditions suivantes
16568   if TABLE != None :
16569      if TYPE_RESU != None :
16570         if TYPE_RESU == "FONCTION_C" : return fonction_c
16571         if TYPE_RESU == "FONCTION"   : return fonction
16572      else:
16573         return fonction
16574   if RESU_GENE      != None         : return fonction
16575   if BASE_ELAS_FLUI != None         : return fonction
16576   if RESULTAT       != None         : return fonction
16577   if CHAM_GD        != None         : return fonction
16578   if OBSTACLE       != None         : return fonction
16579   raise AsException("type de concept resultat non prevu")
16580
16581 RECU_FONCTION=OPER(nom="RECU_FONCTION",op=  90,sd_prod=recu_fonction_prod,
16582                    fr="Extraire sous forme d une fonction, l évolution temporelle d une composante d un champ ou d une table",
16583                    docu="U4.32.03-f2",reentrant='n',
16584             UIinfo={"groupes":("Fonction",)},
16585          regles=(UN_PARMI('CHAM_GD','RESULTAT','RESU_GENE','TABLE','BASE_ELAS_FLUI','OBSTACLE'),),
16586
16587          CHAM_GD         =SIMP(statut='f',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r,cham_elem_sief_r,
16588                                                cham_elem_vari_r,cham_elem_epsi_r,cham_elem_flux_r,
16589                                                cham_elem_pres_r,cham_elem_meta_r ) ),
16590          RESULTAT        =SIMP(statut='f',typ=(evol_elas,dyna_trans,evol_noli,evol_ther,dyna_harmo ) ),
16591          RESU_GENE       =SIMP(statut='f',typ=tran_gene),
16592 #  concept table à créer
16593          TABLE           =SIMP(statut='f',typ=table),
16594          BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu),
16595          REPERE          =SIMP(statut='f',typ='TXM',into=("POLAIRE","GLOBAL") ),
16596          OBSTACLE        =SIMP(statut='f',typ=obstacle),
16597
16598          b_tran_gene = BLOC ( condition = "RESU_GENE != None",
16599                               fr="Récupération de la fonction concernant les chocs à partir d un concept TRAN_GENE",
16600             regles=(PRESENT_PRESENT('SOUS_STRUC','INTITULE'),
16601                     EXCLUS('MULT_APPUI','CORR_STAT'),),
16602              MULT_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16603              CORR_STAT       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16604              ACCE_MONO_APPUI =SIMP(statut='f',typ=fonction),
16605              PARA_X          =SIMP(statut='f',typ='TXM' ),
16606              PARA_Y          =SIMP(statut='f',typ='TXM' ),
16607              SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
16608              LIST_PARA       =SIMP(statut='f',typ=listr8 ),
16609              INTITULE        =SIMP(statut='f',typ='TXM' ),
16610          ),
16611          b_base_elas_flui = BLOC ( condition = "BASE_ELAS_FLUI != None",
16612                                    fr="Récupération de la fonction à partir d un concept melasflu",
16613            regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE'),),
16614            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16615            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
16616            NUME_MODE       =SIMP(statut='o',typ='I' ),
16617            PARA_X          =SIMP(statut='o',typ='TXM',into=("VITE_FLU",) ),
16618            PARA_Y          =SIMP(statut='o',typ='TXM',into=("FREQ","AMOR") ),
16619          ),
16620          b_table = BLOC ( condition = "TABLE != None",fr="Récupération de la fonction à partir d un concept table",
16621            regles=(UN_PARMI('PARA_X','NOM_PARA_TABL'),
16622                    PRESENT_PRESENT('PARA_X','PARA_Y'),),
16623            PARA_X          =SIMP(statut='f',typ='TXM',
16624                                  fr="1ère colonne de la table qui définit la fonction à récupérer", ),
16625            PARA_Y          =SIMP(statut='f',typ='TXM',
16626                                  fr="2ème colonne de la table qui définit la fonction à récupérer", ),
16627            NOM_PARA_TABL   =SIMP(statut='f',typ='TXM',into=("FONCTION",),
16628                                  fr="Nom du paramètre de la table à qui est associé la fonction" ),
16629            b_nom_para_tabl = BLOC (condition = "NOM_PARA_TABL != None",
16630              TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="FONCTION",into=("FONCTION","FONCTION_C") ),
16631            ),
16632
16633            FILTRE          =FACT(statut='f',min=1,max='**',
16634               NOM_PARA        =SIMP(statut='o',typ='TXM' ),
16635               CRIT_COMP       =SIMP(statut='f',typ='TXM',defaut="EQ",
16636                                     into=("EQ","LT","GT","NE","LE","GE","VIDE",
16637                                           "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
16638               b_vale          =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
16639                  regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
16640                  VALE            =SIMP(statut='f',typ='R' ),
16641                  VALE_I          =SIMP(statut='f',typ='I' ),
16642                  VALE_C          =SIMP(statut='f',typ='C' ),
16643                  VALE_K          =SIMP(statut='f',typ='TXM' ),),
16644
16645               CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16646               PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16647            ),
16648          ),
16649 # RESULTAT
16650          b_resu = BLOC ( condition = "RESULTAT != None", fr="Opérandes en cas de RESULTAT",
16651            regles=(
16652 #    A voir par Mathieu Courtois : il existe de tests (SDNX300B) qui ne satisfont pas ce UN_PARMI
16653 #           UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','TOUT_INST','LIST_INST','FREQ','LIST_FREQ'),
16654                    AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC','NOM_PARA_RESU'),
16655                    PRESENT_PRESENT('MAILLE','NOM_CMP'),
16656                    PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
16657                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
16658                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16659                    PRESENT_PRESENT('POINT','NOM_CMP'),
16660                    EXCLUS('POINT','NOEUD'),
16661                    EXCLUS('GROUP_MA','MAILLE'),
16662                    EXCLUS('GROUP_NO','NOEUD'),
16663                    EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),
16664                    UN_PARMI('NOM_CHAM','NOM_PARA_RESU'),),
16665            NOM_CHAM        =SIMP(statut='f',typ='TXM' ),
16666            NOM_PARA_RESU   =SIMP(statut='f',typ='TXM' ),
16667            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16668            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
16669            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
16670            TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16671            INST            =SIMP(statut='f',typ='R',max='**'),
16672            LIST_INST       =SIMP(statut='f',typ=listr8 ),
16673            FREQ            =SIMP(statut='f',typ='R',max='**'),
16674            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
16675            b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
16676              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16677              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16678              INTERP_NUME     =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN") ),
16679            ),
16680            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
16681
16682            MAILLE          =SIMP(statut='f',typ=ma),
16683            GROUP_MA        =SIMP(statut='f',typ=grma),
16684            NOEUD           =SIMP(statut='f',typ=no),
16685            GROUP_NO        =SIMP(statut='f',typ=grno),
16686            POINT           =SIMP(statut='f',typ='I' ),
16687            SOUS_POINT      =SIMP(statut='f',typ='I' ),
16688            NOEUD_CHOC      =SIMP(statut='f',typ=no),
16689            GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
16690          ),
16691 # RESU_GENE
16692          b_resu_gene = BLOC ( condition = "RESU_GENE != None", fr="Opérandes en cas de RESU_GENE",
16693 #    A voir par Mathieu Courtois : il existe de tests (SDNX300B) qui ne satisfont pas ce UN_PARMI
16694 #           regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','TOUT_INST','LIST_INST','FREQ','LIST_FREQ'),),
16695            NOM_CHAM        =SIMP(statut='f',typ='TXM',into=("DEPL","VITE","ACCE","PTEM") ),
16696            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16697            NUME_ORDRE      =SIMP(statut='f',typ='I',max='**'),
16698            LIST_ORDRE      =SIMP(statut='f',typ=listis ),
16699            TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16700            INST            =SIMP(statut='f',typ='R',max='**'),
16701            LIST_INST       =SIMP(statut='f',typ=listr8 ),
16702            FREQ            =SIMP(statut='f',typ='R',max='**'),
16703            LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
16704            b_prec = BLOC ( condition = "(INST != None) or (LIST_INST != None) or (FREQ != None) or (LIST_FREQ != None)",
16705              PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16706              CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
16707              INTERP_NUME     =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN") ),
16708            ),
16709            b_local_cham = BLOC ( condition = "NOM_CHAM!='PTEM'", fr="Opérandes de localisation du champ",
16710              regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
16711                      PRESENT_PRESENT('MAILLE','NOM_CMP'),
16712                      PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
16713                      PRESENT_PRESENT('NOEUD','NOM_CMP'),
16714                      PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16715                      PRESENT_PRESENT('POINT','NOM_CMP'),
16716                      EXCLUS('POINT','NOEUD'),
16717                      EXCLUS('GROUP_MA','MAILLE'),
16718                      EXCLUS('GROUP_NO','NOEUD'),
16719                      EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
16720              NOM_CMP         =SIMP(statut='f',typ='TXM' ),
16721
16722              MAILLE          =SIMP(statut='f',typ=ma),
16723              GROUP_MA        =SIMP(statut='f',typ=grma),
16724              NOEUD           =SIMP(statut='f',typ=no),
16725              GROUP_NO        =SIMP(statut='f',typ=grno),
16726              POINT           =SIMP(statut='f',typ='I' ),
16727              SOUS_POINT      =SIMP(statut='f',typ='I' ),
16728              NOEUD_CHOC      =SIMP(statut='f',typ=no),
16729              GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
16730            ),
16731          ),
16732 # CHAM_GD
16733          b_cham_gd = BLOC ( condition = "(CHAM_GD != None)", fr="Opérandes en cas de CHAM_GD",
16734
16735            regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD','NOEUD_CHOC','GROUP_NO_CHOC'),
16736                    PRESENT_PRESENT('MAILLE','NOM_CMP'),
16737                    PRESENT_PRESENT('GROUP_MA','NOM_CMP'),
16738                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
16739                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
16740                    PRESENT_PRESENT('POINT','NOM_CMP'),
16741                    EXCLUS('POINT','NOEUD'),
16742                    EXCLUS('GROUP_MA','MAILLE'),
16743                    EXCLUS('GROUP_NO','NOEUD'),
16744                    EXCLUS('NOEUD_CHOC','GROUP_NO_CHOC'),),
16745            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
16746
16747            MAILLE          =SIMP(statut='f',typ=ma),
16748            GROUP_MA        =SIMP(statut='f',typ=grma),
16749            NOEUD           =SIMP(statut='f',typ=no),
16750            GROUP_NO        =SIMP(statut='f',typ=grno),
16751            POINT           =SIMP(statut='f',typ='I' ),
16752            SOUS_POINT      =SIMP(statut='f',typ='I' ),
16753            NOEUD_CHOC      =SIMP(statut='f',typ=no),
16754            GROUP_NO_CHOC   =SIMP(statut='f',typ=grno),
16755          ),
16756 ###
16757          NOM_PARA        =SIMP(statut='f',typ='TXM',
16758                                into=("DX","DY","DZ","DRX","DRY","DRZ","TEMP",
16759                                      "INST","X","Y","Z","EPSI","FREQ","PULS","AMOR","ABSC") ),
16760          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
16761          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG") ),
16762          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
16763          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
16764
16765          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
16766          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
16767 )  ;
16768 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16769 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16770 # ======================================================================
16771 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16772 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16773 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16774 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16775 # (AT YOUR OPTION) ANY LATER VERSION.
16776 #
16777 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16778 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16779 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16780 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16781 #
16782 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16783 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16784 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16785 # ======================================================================
16786 RECU_GENE=OPER(nom="RECU_GENE",op=  76,sd_prod=vect_asse_gene,docu="U4.71.03-e",reentrant='n',
16787             UIinfo={"groupes":("Résultats et champs",)},
16788                fr="Récupération d un champ de grandeur à partir d un résultat en coordonnées généralisées",
16789          RESU_GENE       =SIMP(statut='o',typ=tran_gene ),
16790          INST            =SIMP(statut='o',typ='R' ),
16791          NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE") ),
16792          INTERPOL        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
16793          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF" ,into=("ABSOLU","RELATIF") ),
16794          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16795 )  ;
16796 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16797 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16798 # ======================================================================
16799 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16800 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16801 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16802 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16803 # (AT YOUR OPTION) ANY LATER VERSION.
16804 #
16805 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16806 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16807 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16808 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16809 #
16810 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16811 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16812 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16813 # ======================================================================
16814 # RESPONSABLE VABHHTS J.PELLET
16815 RECU_TABLE=OPER(nom="RECU_TABLE",op= 174,sd_prod=table,
16816                 fr=" ",docu="U4.71.02-b2",reentrant='n',
16817             UIinfo={"groupes":("Résultats et champs",)},
16818          CO              =SIMP(statut='o',typ=assd),
16819          regles=(UN_PARMI('NOM_TABLE','NOM_PARA')),
16820          NOM_TABLE       =SIMP(statut='f',typ='TXM' ),
16821          NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),
16822          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
16823 )  ;
16824 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16825 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16826 # ======================================================================
16827 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16828 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16829 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16830 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16831 # (AT YOUR OPTION) ANY LATER VERSION.
16832 #
16833 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16834 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16835 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16836 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16837 #
16838 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16839 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16840 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16841 # ======================================================================
16842 def reso_grad_prod(MATR_ASSE,**args ):
16843   if AsType(MATR_ASSE) == matr_asse_depl_r : return cham_no_depl_r
16844   if AsType(MATR_ASSE) == matr_asse_temp_r : return cham_no_temp_r
16845   if AsType(MATR_ASSE) == matr_asse_pres_r : return cham_no_pres_r
16846   raise AsException("type de concept resultat non prevu")
16847
16848 RESO_GRAD=OPER(nom="RESO_GRAD",op=  84,sd_prod=reso_grad_prod,
16849                fr="Résolution par la méthode du gradient conjugué préconditionné",
16850                docu="U4.55.04-e",reentrant='f',
16851             UIinfo={"groupes":("Résolution",)},
16852          MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
16853          CHAM_NO         =SIMP(statut='o',typ=(cham_no_depl_r,cham_no_temp_r,cham_no_pres_r ) ),
16854          CHAM_CINE       =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r ) ),
16855          MATR_FACT       =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
16856          NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
16857          REPRISE         =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
16858          RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1E-6 ),
16859          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
16860 )  ;
16861 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16862 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16863 # ======================================================================
16864 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16865 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16866 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16867 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16868 # (AT YOUR OPTION) ANY LATER VERSION.
16869 #
16870 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16871 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16872 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16873 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16874 #
16875 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16876 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16877 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16878 # ======================================================================
16879 # RESPONSABLE VABHHTS J.PELLET
16880 def reso_ldlt_prod(CHAM_NO,**args ):
16881   if AsType(CHAM_NO) == cham_no_temp_r : return cham_no_temp_r
16882   if AsType(CHAM_NO) == cham_no_depl_r : return cham_no_depl_r
16883   if AsType(CHAM_NO) == cham_no_pres_r : return cham_no_pres_r
16884   if AsType(CHAM_NO) == cham_no_temp_c : return cham_no_temp_c
16885   if AsType(CHAM_NO) == cham_no_depl_c : return cham_no_depl_c
16886   if AsType(CHAM_NO) == cham_no_pres_c : return cham_no_pres_c
16887   raise AsException("type de concept resultat non prevu")
16888
16889 RESO_LDLT=OPER(nom="RESO_LDLT",op=15,sd_prod=reso_ldlt_prod,reentrant='f',
16890                fr="Résolution en place ou hors place d un système factorisé",docu="U4.55.02-f",
16891             UIinfo={"groupes":("Résolution",)},
16892          MATR_FACT       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
16893                                                matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
16894          CHAM_NO         =SIMP(statut='o',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_r,
16895                                                cham_no_temp_c,cham_no_depl_c,cham_no_pres_c) ),
16896          CHAM_CINE       =SIMP(statut='f',typ=(cham_no_temp_r,cham_no_depl_r,cham_no_pres_c) ),
16897          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
16898          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
16899 )  ;
16900 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16901 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16902 # ======================================================================
16903 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16904 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16905 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16906 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16907 # (AT YOUR OPTION) ANY LATER VERSION.
16908 #
16909 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16910 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16911 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16912 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16913 #
16914 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16915 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16916 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16917 # ======================================================================
16918 # RESPONSABLE BOYERE E.BOYERE
16919 def rest_base_phys_prod(RESU_GENE,RESULTAT,**args ):
16920   if AsType(RESU_GENE) == tran_gene : return dyna_trans
16921   if AsType(RESU_GENE) == mode_gene : return mode_meca
16922   if AsType(RESU_GENE) == mode_cycl : return mode_meca
16923   if AsType(RESU_GENE) == harm_gene : return dyna_harmo
16924   if AsType(RESULTAT)  == mode_meca : return mode_meca
16925   raise AsException("type de concept resultat non prevu")
16926
16927 REST_BASE_PHYS=OPER(nom="REST_BASE_PHYS",op=  75,sd_prod=rest_base_phys_prod,
16928                     fr="Restituer dans la base physique des résultats en coordonnées généralisées",
16929                     docu="U4.63.21-e",reentrant='n',
16930             UIinfo={"groupes":("Matrices/vecteurs",)},
16931         regles=(UN_PARMI('RESU_GENE','RESULTAT'),
16932                 EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','TOUT_INST'),
16933                 EXCLUS('TOUT_INST','NUME_ORDRE','INST','LIST_INST','TOUT_ORDRE'),
16934 #  Doc U à revoir
16935                 EXCLUS('MULT_APPUI','CORR_STAT'),
16936                 EXCLUS('MULT_APPUI','NOEUD','GROUP_NO'),
16937                 EXCLUS('CORR_STAT','NOEUD','GROUP_NO'),
16938                 EXCLUS('NOEUD','GROUP_NO'),
16939                 PRESENT_PRESENT('RESULTAT','SQUELETTE'),
16940                 PRESENT_PRESENT('ACCE_MONO_APPUI','DIRECTION'),),
16941          RESU_GENE       =SIMP(statut='f',typ=(tran_gene,mode_gene,mode_cycl,harm_gene ) ),
16942          RESULTAT        =SIMP(statut='f',typ=mode_meca ),
16943
16944          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
16945          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16946          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
16947          TOUT_INST       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16948          INST            =SIMP(statut='f',typ='R',max='**' ),
16949          LIST_INST       =SIMP(statut='f',typ=listr8 ),
16950          FREQ            =SIMP(statut='f',typ='R',max='**' ),
16951          LIST_FREQ       =SIMP(statut='f',typ=listr8 ),
16952          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("ABSOLU","RELATIF") ),
16953          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
16954          INTERPOL        =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","LIN") ),
16955          MULT_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16956          CORR_STAT       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16957          NOM_CHAM        =SIMP(statut='f',typ='TXM',max=8,defaut="ACCE",
16958                                into=("DEPL","VITE","ACCE","ACCE_ABSOLU","EFGE_ELNO_DEPL","SIPO_ELNO_DEPL",
16959                                      "SIGM_ELNO_DEPL","FORC_NODA",) ),
16960          TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
16961          GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
16962          NOEUD           =SIMP(statut='f',typ=no,max='**'),
16963
16964          ACCE_MONO_APPUI =SIMP(statut='f',typ=fonction),
16965          DIRECTION       =SIMP(statut='f',typ='R',max='**' ),
16966
16967          SQUELETTE       =SIMP(statut='f',typ=squelette ),
16968          SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
16969          SECTEUR         =SIMP(statut='f',typ='I',defaut= 1 ),
16970          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
16971 )  ;
16972 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
16973 #            CONFIGURATION MANAGEMENT OF EDF VERSION
16974 # ======================================================================
16975 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
16976 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
16977 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
16978 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
16979 # (AT YOUR OPTION) ANY LATER VERSION.
16980 #
16981 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
16982 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
16983 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
16984 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
16985 #
16986 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
16987 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
16988 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
16989 # ======================================================================
16990 REST_SPEC_PHYS=OPER(nom="REST_SPEC_PHYS",op= 148,sd_prod=tabl_intsp,
16991                     docu="U4.63.22-c",reentrant='n',
16992             UIinfo={"groupes":("Matrices/vecteurs",)},
16993          regles=(AU_MOINS_UN('BASE_ELAS_FLUI','MODE_MECA'),),
16994          BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu ),
16995          MODE_MECA       =SIMP(statut='f',typ=mode_meca ),
16996          BANDE           =SIMP(statut='f',typ='R',min=2,max=2 ),
16997          NUME_ORDRE      =SIMP(statut='f',typ='I',max='**' ),
16998          INTE_SPEC_GENE  =SIMP(statut='o',typ=tabl_intsp ),
16999          NOEUD           =SIMP(statut='o',typ=no,max='**'),
17000          NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
17001          MAILLE          =SIMP(statut='f',typ=ma,max='**'),
17002          NOM_CHAM        =SIMP(statut='o',typ='TXM',max=7,
17003                                into=("DEPL","VITE","ACCE","EFGE_ELNO_DEPL",
17004                                      "SIPO_ELNO_DEPL","SIGM_ELNO_DEPL","FORC_NODA") ),
17005          MODE_STAT       =SIMP(statut='f',typ=(mode_stat_depl,mode_stat_acce,mode_stat_forc), ),
17006          EXCIT           =FACT(statut='f',max=1,
17007            NOEUD           =SIMP(statut='o',typ=no,max='**'),
17008            NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
17009          ),
17010          MOUVEMENT       =SIMP(statut='f',typ='TXM',defaut="ABSOLU",into=("RELATIF","ABSOLU","DIFFERENTIEL") ),
17011          OPTION          =SIMP(statut='f',typ='TXM',defaut="DIAG_DIAG",
17012                                into=("DIAG_TOUT","DIAG_DIAG","TOUT_TOUT","TOUT_DIAG") ),
17013          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
17014 )  ;
17015 #& MODIF COMMANDE  DATE 20/01/2003   AUTEUR DURAND C.DURAND
17016 #            CONFIGURATION MANAGEMENT OF EDF VERSION
17017 # ======================================================================
17018 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
17019 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17020 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17021 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17022 # (AT YOUR OPTION) ANY LATER VERSION.
17023 #
17024 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17025 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17026 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17027 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17028 #
17029 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17030 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17031 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17032 # ======================================================================
17033 RETOUR=MACRO(nom="RETOUR",op= -2,docu="U4.13.02-e",
17034             UIinfo={"groupes":("Gestion du travail",)},
17035             fr="Retour au fichier de commandes appelant",
17036 ) ;
17037 #& MODIF COMMANDE  DATE 11/02/2003   AUTEUR PBADEL P.BADEL
17038 #            CONFIGURATION MANAGEMENT OF EDF VERSION
17039 # ======================================================================
17040 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
17041 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17042 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17043 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17044 # (AT YOUR OPTION) ANY LATER VERSION.
17045 #
17046 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17047 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17048 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17049 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17050 #
17051 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17052 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17053 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17054 # ======================================================================
17055 # RESPONSABLE PBADEL P.BADEL
17056 STAT_NON_LINE=OPER(nom="STAT_NON_LINE",op=70,sd_prod=evol_noli,
17057                    fr="Analyse mécanique statique non linéaire",
17058                    docu="U4.51.03-f4",reentrant='f',
17059             UIinfo={"groupes":("Résolution",)},
17060          regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS'),),
17061          MODELE          =SIMP(statut='o',typ=modele),
17062          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
17063          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
17064          EXCIT           =FACT(statut='o',min=1,max='**',
17065            CHARGE          =SIMP(statut='o',typ=char_meca),
17066            FONC_MULT       =SIMP(statut='f',typ=fonction),
17067            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
17068                                  into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
17069          ),
17070          VARI_COMM           =FACT(statut='f',
17071            regles=(AU_MOINS_UN('IRRA',),),
17072            IRRA     =SIMP(statut='f',typ=evol_varc),
17073          ),
17074          COMP_INCR       =C_COMP_INCR(),
17075          COMP_ELAS       =FACT(statut='f',min=1,max='**',
17076            RELATION        =SIMP(statut='o',typ='TXM',defaut="ELAS",
17077                                  into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
17078                                        "ELAS_POUTRE_GR","CABLE")),
17079            ELAS            =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
17080            ELAS_VMIS_TRAC  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
17081            ELAS_VMIS_LINE  =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
17082            ELAS_POUTRE_GR  =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
17083            CABLE           =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
17084            DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GREEN","GREEN_GR",) ),
17085       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
17086            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
17087            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
17088            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
17089          ),
17090          ETAT_INIT       =FACT(statut='f',min=1,max=1,
17091            regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI','VARI_NON_LOCAL',),
17092                    EXCLUS('EVOL_NOLI','DEPL',),
17093                    EXCLUS('EVOL_NOLI','SIGM',),
17094                    EXCLUS('EVOL_NOLI','VARI',),
17095                    EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
17096                    EXCLUS('NUME_ORDRE','INST'), ),
17097            DEPL            =SIMP(statut='f',typ=cham_no_depl_r),
17098            SIGM            =SIMP(statut='f',typ=(cham_elem_sief_r,carte_sief_r)),
17099            VARI            =SIMP(statut='f',typ=cham_elem_vari_r),
17100            VARI_NON_LOCAL  =SIMP(statut='f',typ=cham_no_vanl_r),
17101            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
17102            NUME_ORDRE      =SIMP(statut='f',typ='I'),
17103            INST            =SIMP(statut='f',typ='R'),
17104            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
17105            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
17106            NUME_DIDI       =SIMP(statut='f',typ='I'),
17107            INST_ETAT_INIT  =SIMP(statut='f',typ='R'),
17108          ),
17109          INCREMENT       =FACT(statut='o',min=1,max=1,
17110            regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
17111                    EXCLUS('NUME_INST_FIN','INST_FIN'),),
17112            LIST_INST       =SIMP(statut='o',typ=listr8),
17113            EVOLUTION       =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
17114                                  into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
17115            NUME_INST_INIT  =SIMP(statut='f',typ='I'),
17116            INST_INIT       =SIMP(statut='f',typ='R'),
17117            NUME_INST_FIN   =SIMP(statut='f',typ='I'),
17118            INST_FIN        =SIMP(statut='f',typ='R'),
17119            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
17120            SUBD_PAS        =SIMP(statut='f',typ='I',defaut=1),
17121            SUBD_PAS_MINI   =SIMP(statut='f',typ='R'),
17122            COEF_SUBD_PAS_1 =SIMP(statut='f',typ='R',defaut= 1.0E+0),
17123            OPTI_LIST_INST  =SIMP(statut='f',typ='TXM',into=("INCR_MAXI",),),
17124            NOM_CHAM        =SIMP(statut='f',typ='TXM',),
17125            NOM_CMP         =SIMP(statut='f',typ='TXM',),
17126            VALE            =SIMP(statut='f',typ='R'),
17127          ),
17128          NEWTON          =FACT(statut='d',min=1,max=1,
17129            REAC_INCR       =SIMP(statut='f',typ='I',defaut= 1 ),
17130            PREDICTION      =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
17131            MATRICE         =SIMP(statut='f',typ='TXM',defaut="TANGENTE",into=("TANGENTE","ELASTIQUE") ),
17132            PAS_MINI_ELAS   =SIMP(statut='f',typ='R',defaut=0.0E+0),
17133            REAC_ITER       =SIMP(statut='f',typ='I',defaut=0),
17134            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
17135          ),
17136          RECH_LINEAIRE   =FACT(statut='f',min=1,max=1,
17137            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
17138            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 3),
17139            ITER_LINE_CRIT  =SIMP(statut='f',typ='I',defaut= 20),
17140            PAS_MINI_CRIT   =SIMP(statut='f',typ='R',defaut=0.0E+0),
17141            RHO_MIN         =SIMP(statut='f',typ='R',defaut=1.0E-2),
17142            RHO_MAX         =SIMP(statut='f',typ='R',defaut=1.0E+1),
17143            RHO_EXCL        =SIMP(statut='f',typ='R',defaut=0.9E-2),
17144          ),
17145          PILOTAGE        =FACT(statut='f',min=1,max=1,
17146            regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
17147            TYPE    =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","PRED_ELAS_INCR","DEFORMATION","ANA_LIM") ),
17148            COEF_MULT       =SIMP(statut='f',typ='R',defaut= 1.0E+0),
17149            ETA_PILO_MAX    =SIMP(statut='f',typ='R'),
17150            ETA_PILO_MIN    =SIMP(statut='f',typ='R'),
17151            ETA_PILO_R_MAX  =SIMP(statut='f',typ='R'),
17152            ETA_PILO_R_MIN  =SIMP(statut='f',typ='R'),
17153            PROJ_BORNES     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
17154            SELECTION       =SIMP(statut='f',typ='TXM',defaut="NORM_INCR_DEPL", into=("RESIDU","ANGL_INCR_DEPL","NORM_INCR_DEPL") ),
17155            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
17156            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
17157            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
17158            NOEUD           =SIMP(statut='f',typ=no,max='**'),
17159            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
17160            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**' ),
17161                          ),
17162          CONVERGENCE     =FACT(statut='d',min=1,max=1,
17163            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
17164            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
17165            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut=10),
17166            ITER_GLOB_ELAS  =SIMP(statut='f',typ='I',defaut=25),
17167            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI"),
17168            RESI_INTE_RELA  =SIMP(statut='f',typ='R'
17169                                 ,defaut= 1.0E-6),
17170            ITER_INTE_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
17171            ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut= 0 ),
17172            TYPE_MATR_COMP  =SIMP(statut='f',typ='TXM',defaut="TANG_VIT",into=("TANG_VIT",)),
17173            RESO_INTE       =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
17174                                  into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
17175          ),
17176          PARM_THETA      =SIMP(statut='f',typ='R'
17177                               ,defaut= 1. ),
17178          SOLVEUR         =FACT(statut='d',min=1,max=1,
17179            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
17180            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
17181              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
17182            ),
17183            b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
17184              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
17185            ),
17186            b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
17187                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
17188              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
17189              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","DECOUPE") ),
17190            ),
17191            b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
17192              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
17193              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
17194              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
17195              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
17196              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
17197            ),
17198 #  A quoi sert eps
17199            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
17200            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
17201          ),
17202          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
17203            regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
17204                    EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
17205            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
17206            INST            =SIMP(statut='f',typ='R',max='**' ),
17207            PAS_ARCH        =SIMP(statut='f',typ='I' ),
17208            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
17209            ARCH_ETAT_INIT  =SIMP(statut='f',typ='TXM',into=("OUI",)),
17210            NUME_INIT       =SIMP(statut='f',typ='I'),
17211            DETR_NUME_SUIV  =SIMP(statut='f',typ='TXM',into=("OUI",)),
17212            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',max='**',into=("DEPL","SIEF_ELGA","VARI_ELGA",
17213                                                                      "VARI_NON_LOCAL","LANL_ELGA")),
17214          ),
17215          OBSERVATION     =FACT(statut='f',min=1,max='**',
17216            regles=(UN_PARMI('NOEUD','GROUP_NO','MAILLE'),
17217                    PRESENT_PRESENT('MAILLE','POINT'),),
17218            NOM_CHAM        =SIMP(statut='o',typ='TXM',max='**',into=("DEPL","VITE","ACCE","SIEF_ELGA",
17219                                               "VARI_ELGA","DEPL_ABSOLU","VITE_ABSOLU","ACCE_ABSOLU")),
17220            NOM_CMP         =SIMP(statut='o',typ='TXM',max='**' ),
17221            LIST_ARCH       =SIMP(statut='f',typ=listis),
17222            LIST_INST       =SIMP(statut='f',typ=listr8),
17223            INST            =SIMP(statut='f',typ='R',max='**' ),
17224            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
17225            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
17226            PAS_OBSE        =SIMP(statut='f',typ='I'),
17227            NOEUD           =SIMP(statut='f',typ=no,max='**'),
17228            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
17229            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
17230            POINT           =SIMP(statut='f',typ='I',max='**'),
17231          ),
17232            SOLV_NON_LOCAL  =FACT(statut='f',min=1,max=1,
17233              METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
17234              b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
17235                RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
17236              ),
17237              b_ldlt         =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
17238                RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
17239              ),
17240              b_ldlt_mult    =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
17241                                     fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
17242                NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
17243                STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
17244              ),
17245              b_gcpc         =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
17246                PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
17247                NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
17248                RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
17249                NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
17250              ),
17251              EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
17252            ),
17253            LAGR_NON_LOCAL  =FACT(statut='f',max=1,
17254              ITER_DUAL_MAXI  =SIMP(statut='f',typ='I',defaut= 50),
17255              RESI_DUAL_ABSO  =SIMP(statut='o',typ='R'),
17256              RESI_PRIM_ABSO  =SIMP(statut='o',typ='R'),
17257              R               =SIMP(statut='f',typ='R',defaut= 1000.),
17258              ITER_PRIM_MAXI  =SIMP(statut='f',typ='I',defaut= 10),
17259            ),
17260          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
17261          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
17262  )  ;
17263 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
17264 #            CONFIGURATION MANAGEMENT OF EDF VERSION
17265 # ======================================================================
17266 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
17267 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17268 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17269 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17270 # (AT YOUR OPTION) ANY LATER VERSION.
17271 #
17272 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17273 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17274 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17275 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17276 #
17277 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17278 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17279 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17280 # ======================================================================
17281 # RESPONSABLE MCOURTOI M.COURTOIS
17282 TEST_FONCTION=PROC(nom="TEST_FONCTION",op= 135,fr="Extraction d une valeur numérique ou d un attribut de fonction",
17283                    docu="U4.92.02-f2",
17284             UIinfo={"groupes":("Impression",)},
17285          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
17286          TEST_NOOK       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
17287          VALEUR          =FACT(statut='f',min=1,max='**',
17288                                fr="Tester la valeur d une fonction ou d une nappe",
17289            regles=(UN_PARMI('VALE_REFE','VALE_REFE_C', ),),
17290            FONCTION        =SIMP(statut='o',typ=fonction ),
17291            NOM_PARA        =SIMP(statut='f',typ='TXM',max=2),
17292            VALE_PARA       =SIMP(statut='o',typ='R',max=2),
17293            VALE_REFE       =SIMP(statut='f',typ='R' ),
17294            VALE_REFE_C     =SIMP(statut='f',typ='C' ),
17295            CRITERE         =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
17296                                  defaut="RELATIF",into=("RELATIF","ABSOLU") ),
17297            PRECISION       =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
17298                                  defaut= 1.E-3 ),
17299            REFERENCE       =SIMP(statut='f',typ='TXM',
17300                                  into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
17301            b_version = BLOC (condition = "REFERENCE == 'NON_REGRESSION'",
17302              VERSION         =SIMP(statut='f',typ='TXM' ),
17303            ),
17304          ),
17305          ATTRIBUT        =FACT(statut='f',min=1,max='**',
17306                                fr="Tester la valeur d un attribut d une fonction ou d''une nappe",
17307            FONCTION        =SIMP(statut='o',typ=fonction ),
17308            PARA            =SIMP(statut='f',typ='R' ),
17309            CRIT_PARA       =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
17310            PREC_PARA       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
17311            ATTR            =SIMP(statut='o',typ='TXM',
17312                                  into=("NOM_PARA","NOM_RESU","PROL_DROITE","PROL_GAUCHE","INTERPOL",
17313                                        "PROL_GAUCHE_FONC","PROL_DROITE_FONC","INTERPOL_FONC","NOM_PARA_FONC") ),
17314            ATTR_REFE       =SIMP(statut='o',typ='TXM' ),
17315            REFERENCE       =SIMP(statut='f',typ='TXM',
17316                                  into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
17317            b_version       =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
17318              VERSION         =SIMP(statut='f',typ='TXM' ),
17319            ),
17320          ),
17321          TABL_INTSP      =FACT(statut='f',min=1,max='**',
17322                                fr="Tester la valeur d une fonction contenue dans une table interspectrale",
17323            regles=(UN_PARMI('NUME_ORDRE_I','NOEUD_I'),),
17324            INTE_SPEC       =SIMP(statut='o',typ=tabl_intsp ),
17325            NOEUD_I         =SIMP(statut='f',typ=no),
17326            NUME_ORDRE_I    =SIMP(statut='f',typ='I' ),
17327            b_nume_ordre_i = BLOC (condition = "NUME_ORDRE_I != None",
17328              NUME_ORDRE_J    =SIMP(statut='o',typ='I' ),
17329            ),
17330            b_noeud_i = BLOC (condition = "NOEUD_I != None",
17331              NOEUD_J         =SIMP(statut='o',typ=no),
17332              NOM_CMP_I       =SIMP(statut='o',typ='TXM' ),
17333              NOM_CMP_J       =SIMP(statut='o',typ='TXM' ),
17334            ),
17335            NUME_VITE_FLUI  =SIMP(statut='f',typ='I' ),
17336            VALE_PARA       =SIMP(statut='o',typ='R' ),
17337            VALE_REFE_C     =SIMP(statut='o',typ='C' ),
17338            CRITERE         =SIMP(statut='f',typ='TXM',fr="Critère de comparaison avec la solution de référence",
17339                                  defaut="RELATIF",into=("RELATIF","ABSOLU") ),
17340            PRECISION       =SIMP(statut='f',typ='R',fr="Ecart maximal autorisé avec la solution de référence",
17341                                  defaut= 1.E-3 ),
17342            REFERENCE       =SIMP(statut='f',typ='TXM',
17343                                  into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
17344            b_version       =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
17345              VERSION         =SIMP(statut='f',typ='TXM' ),
17346            ),
17347          ),
17348 )  ;
17349 #& MODIF COMMANDE  DATE 13/01/2003   AUTEUR VABHHTS J.PELLET
17350 # RESPONSABLE VABHHTS J.PELLET
17351 #            CONFIGURATION MANAGEMENT OF EDF VERSION
17352 # ======================================================================
17353 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
17354 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17355 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17356 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17357 # (AT YOUR OPTION) ANY LATER VERSION.
17358 #
17359 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17360 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17361 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17362 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17363 #
17364 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17365 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17366 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17367 #
17368 #
17369 # ======================================================================
17370 TEST_RESU=PROC(nom="TEST_RESU",op=23,docu="U4.92.01-g3",
17371             UIinfo={"groupes":("Impression",)},
17372          fr="Extraction d une valeur et comparaison à une valeur de référence",
17373          regles=(AU_MOINS_UN('CHAM_NO','CHAM_ELEM','RESU','OBJET')),
17374          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
17375
17376          CHAM_NO         =FACT(statut='f',min=1,max='**',
17377            regles=(UN_PARMI('NOEUD','GROUP_NO','TYPE_TEST'),
17378                    EXCLUS('NOEUD','GROUP_NO'),
17379                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
17380                    PRESENT_PRESENT( 'GROUP_NO','NOM_CMP'),
17381                    UN_PARMI('VALE','VALE_I','VALE_C'),),
17382            CHAM_GD         =SIMP(statut='o',typ=cham_no),
17383            NOEUD           =SIMP(statut='f',typ=no,max='**'),
17384            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
17385            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
17386            TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
17387            VALE            =SIMP(statut='f',typ='R'),
17388            VALE_I          =SIMP(statut='f',typ='I'),
17389            VALE_C          =SIMP(statut='f',typ='C'),
17390            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
17391            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3),
17392            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
17393                                                             "NON_REGRESSION","AUTRE_ASTER")),
17394            VERSION         =SIMP(statut='f',typ='TXM'),
17395          ),
17396
17397          CHAM_ELEM       =FACT(statut='f',min=1,max='**',
17398            regles=(UN_PARMI('MAILLE','TYPE_TEST',),
17399                    EXCLUS('NOEUD','GROUP_NO','POINT'),
17400                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
17401                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
17402                    PRESENT_PRESENT('POINT','NOM_CMP'),
17403                    UN_PARMI('VALE','VALE_I','VALE_C'), ),
17404            CHAM_GD         =SIMP(statut='o',typ=cham_elem),# CO()
17405            MAILLE          =SIMP(statut='f',typ=ma),# CO()
17406            POINT           =SIMP(statut='f',typ='I' ),
17407            SOUS_POINT      =SIMP(statut='f',typ='I'),
17408            NOEUD           =SIMP(statut='f',typ=no),# CO()
17409            GROUP_NO        =SIMP(statut='f',typ=grno),# CO()
17410            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
17411            TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
17412            VALE            =SIMP(statut='f',typ='R' ),
17413            VALE_I          =SIMP(statut='f',typ='I' ),
17414            VALE_C          =SIMP(statut='f',typ='C' ),
17415            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
17416            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
17417            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
17418                                                             "NON_REGRESSION","AUTRE_ASTER") ),
17419            VERSION         =SIMP(statut='f',typ='TXM' ),
17420          ),
17421
17422          RESU            =FACT(statut='f',min=1,max='**',
17423            regles=(UN_PARMI('NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP','NOM_CAS','ANGL'),
17424                    UN_PARMI('NOM_CHAM','PARA'),
17425                    PRESENT_ABSENT('PARA','NOEUD','GROUP_NO','POINT','NOM_CMP','TYPE_TEST'),
17426                    PRESENT_PRESENT('NOM_CMP','NOM_CHAM'),
17427                    EXCLUS('NOEUD','GROUP_NO','POINT','TYPE_TEST'),
17428                    PRESENT_PRESENT('NOEUD','NOM_CMP'),
17429                    PRESENT_PRESENT('GROUP_NO','NOM_CMP'),
17430                    PRESENT_PRESENT('POINT','NOM_CMP'),
17431                    UN_PARMI('VALE','VALE_I','VALE_C') ,),
17432            RESULTAT        =SIMP(statut='o',typ=resultat),
17433            SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),
17434                                  fr="Paramètre de sensibilité.",
17435                                  ang="Sensitivity parameter"),
17436            NUME_ORDRE      =SIMP(statut='f',typ='I'),
17437            INST            =SIMP(statut='f',typ='R'),
17438            FREQ            =SIMP(statut='f',typ='R'),
17439            NUME_MODE       =SIMP(statut='f',typ='I'),
17440            NOEUD_CMP       =SIMP(statut='f',typ='TXM',max='**' ),
17441            NOM_CAS         =SIMP(statut='f',typ='TXM'),
17442            ANGL            =SIMP(statut='f',typ='R'),
17443            PARA            =SIMP(statut='f',typ='TXM'),
17444            NOM_CHAM        =SIMP(statut='f',typ='TXM'),
17445            NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
17446            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
17447            NOEUD           =SIMP(statut='f',typ=no,max='**'),
17448            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
17449            POINT           =SIMP(statut='f',typ='I'),
17450            SOUS_POINT      =SIMP(statut='f',typ='I'),
17451            TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN")),
17452            VALE            =SIMP(statut='f',typ='R'),
17453            VALE_I          =SIMP(statut='f',typ='I'),
17454            VALE_C          =SIMP(statut='f',typ='C'),
17455            CRITERE         =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU"),max=2),
17456            PRECISION       =SIMP(statut='f',typ='R',max=2),
17457            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
17458                                                             "NON_REGRESSION","AUTRE_ASTER",) ),
17459            VERSION         =SIMP(statut='f',typ='TXM' ),
17460          ),
17461
17462          OBJET           =FACT(statut='f',max='**',
17463            regles=(UN_PARMI('INDICE','S_I','S_R','RESUME',),
17464                  UN_PARMI('VALE','VALE_I','VALE_C','RESUME','S_R','S_I'),),
17465            NOM             =SIMP(statut='o',typ='TXM'),
17466            INDICE          =SIMP(statut='f',typ='I'),
17467            NUM_OBJ         =SIMP(statut='f',typ='I'),
17468            S_R             =SIMP(statut='f',typ='R'),
17469            S_I             =SIMP(statut='f',typ='I'),
17470            RESUME          =SIMP(statut='f',typ='I'),
17471            VALE            =SIMP(statut='f',typ='R'),
17472            VALE_I          =SIMP(statut='f',typ='I'),
17473            VALE_C          =SIMP(statut='f',typ='C'),
17474            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
17475            PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
17476            REFERENCE       =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE","SOURCE_EXTERNE",
17477                                                             "NON_REGRESSION","AUTRE_ASTER",) ),
17478            VERSION         =SIMP(statut='f',typ='TXM' ),
17479          ),
17480 )  ;
17481 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
17482 #            CONFIGURATION MANAGEMENT OF EDF VERSION
17483 # ======================================================================
17484 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
17485 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17486 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17487 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17488 # (AT YOUR OPTION) ANY LATER VERSION.
17489 #
17490 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17491 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17492 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17493 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17494 #
17495 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17496 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17497 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17498 # ======================================================================
17499 # RESPONSABLE VABHHTS J.PELLET
17500 TEST_TABLE=PROC(nom="TEST_TABLE",op= 177,
17501                 docu="U4.92.03-c1",
17502             UIinfo={"groupes":("Impression",)},
17503          regles=(UN_PARMI('VALE','VALE_I','VALE_C', ),),
17504          FICHIER         =SIMP(statut='f',typ='TXM',defaut="RESULTAT"),
17505 #  concept table à créer
17506          TABLE           =SIMP(statut='o',typ=table),
17507
17508          FILTRE          =FACT(statut='f',min=1,max='**',
17509            NOM_PARA        =SIMP(statut='o',typ='TXM' ),
17510            CRIT_COMP       =SIMP(statut='f',typ='TXM',defaut="EQ",
17511                                  into=("EQ","LT","GT","NE","LE","GE","VIDE",
17512                                        "NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI") ),
17513            b_vale          =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
17514               regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
17515               VALE            =SIMP(statut='f',typ='R' ),
17516               VALE_I          =SIMP(statut='f',typ='I' ),
17517               VALE_C          =SIMP(statut='f',typ='C' ),
17518               VALE_K          =SIMP(statut='f',typ='TXM' ),),
17519
17520            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
17521            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
17522          ),
17523          TYPE_TEST       =SIMP(statut='f',typ='TXM',into=("SOMM_ABS","SOMM","MAX","MIN") ),
17524          NOM_PARA        =SIMP(statut='o',typ='TXM' ),
17525          VALE            =SIMP(statut='f',typ='R' ),
17526          VALE_I          =SIMP(statut='f',typ='I' ),
17527          VALE_C          =SIMP(statut='f',typ='C' ),
17528          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
17529          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.2E-3 ),
17530          REFERENCE       =SIMP(statut='f',typ='TXM',
17531                                into=("ANALYTIQUE","SOURCE_EXTERNE","NON_REGRESSION","AUTRE_ASTER") ),
17532          b_version       =BLOC(condition = "REFERENCE == 'NON_REGRESSION'",
17533              VERSION         =SIMP(statut='f',typ='TXM' ),
17534          ),
17535 )  ;
17536 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
17537 #            CONFIGURATION MANAGEMENT OF EDF VERSION
17538 # ======================================================================
17539 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
17540 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17541 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17542 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17543 # (AT YOUR OPTION) ANY LATER VERSION.
17544 #
17545 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17546 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17547 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17548 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17549 #
17550 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17551 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17552 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17553 # ======================================================================
17554 THER_LINEAIRE=OPER(nom="THER_LINEAIRE",op=25,sd_prod=evol_ther,docu="U4.54.01-g2",reentrant='f',
17555             UIinfo={"groupes":("Résolution",)},
17556                    fr="Analyse thermique linéaire stationnaire ou transitoire",
17557          MODELE          =SIMP(statut='o',typ=modele),
17558          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
17559          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
17560          EXCIT           =FACT(statut='o',min=1,max='**',
17561            CHARGE          =SIMP(statut='o',typ=(char_ther,char_cine_ther)),
17562            FONC_MULT       =SIMP(statut='f',typ=fonction),
17563          ),
17564          INCREMENT       =FACT(statut='f',min=1,max=1,
17565            LIST_INST       =SIMP(statut='o',typ=listr8 ),
17566            NUME_INIT       =SIMP(statut='f',typ='I'),
17567            NUME_FIN        =SIMP(statut='f',typ='I'),
17568          ),
17569          TEMP_INIT       =FACT(statut='f',min=1,max=1,
17570            regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
17571            STATIONNAIRE    =SIMP(statut='f',typ='TXM',into=("OUI",) ),
17572            EVOL_THER       =SIMP(statut='f',typ=evol_ther),
17573            CHAM_NO         =SIMP(statut='f',typ=cham_no_temp_r),
17574            VALE            =SIMP(statut='f',typ='R'),
17575            NUME_INIT       =SIMP(statut='f',typ='I'),
17576          ),
17577          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
17578                                fr="Liste des paramètres de sensibilité.",
17579                                ang="List of sensitivity parameters",
17580          ),
17581            SENS_INIT       =FACT(statut='f',min=1,max=1,
17582              regles=(EXCLUS('STATIONNAIRE','EVOL_THER', ),),
17583              STATIONNAIRE    =SIMP(statut='f',typ='TXM',into=("OUI",) ),
17584              EVOL_THER       =SIMP(statut='f',typ=evol_ther),
17585              NUME_INIT       =SIMP(statut='f',typ='I'),
17586            ),
17587          SOLVEUR         =FACT(statut='d',min=1,max=1,
17588            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
17589            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
17590              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
17591            ),
17592            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
17593              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
17594            ),
17595            b_ldlt_mult      =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
17596                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
17597              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
17598              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
17599            ),
17600            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
17601              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
17602              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
17603              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
17604              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
17605              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
17606            ),
17607 #  A quoi sert eps
17608            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
17609          ),
17610          PARM_THETA      =SIMP(statut='f',typ='R',defaut= 0.57),
17611          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
17612            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST'),),
17613            LIST_ARCH       =SIMP(statut='f',typ=listis),
17614            LIST_INST       =SIMP(statut='f',typ=listr8),
17615            INST            =SIMP(statut='f',typ='R',max='**'),
17616            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
17617            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",
17618                                  into=("RELATIF","ABSOLU")),
17619            PAS_ARCH        =SIMP(statut='f',typ='I'),
17620            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',into=("VARI",)),
17621          ),
17622          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
17623          INFO            =SIMP(statut='f',typ='I',into=(1,2)),
17624 )  ;
17625 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
17626 #            CONFIGURATION MANAGEMENT OF EDF VERSION
17627 # ======================================================================
17628 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
17629 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17630 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17631 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17632 # (AT YOUR OPTION) ANY LATER VERSION.
17633 #
17634 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17635 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17636 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17637 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17638 #
17639 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17640 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17641 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17642 # ======================================================================
17643 THER_NON_LINE=OPER(nom="THER_NON_LINE",op= 186,sd_prod=evol_ther,docu="U4.54.02-e2",reentrant='f',
17644             UIinfo={"groupes":("Résolution",)},
17645                    fr="Analyse thermique non linéaire stationnaire ou transitoire" ,
17646          MODELE          =SIMP(statut='o',typ=(modele) ),
17647          CHAM_MATER      =SIMP(statut='o',typ=(cham_mater) ),
17648          CARA_ELEM       =SIMP(statut='c',typ=(cara_elem) ),
17649          COMP_THER_NL    =FACT(statut='d',min=1,max='**',
17650            RELATION        =SIMP(statut='f',typ='TXM',defaut="THER_NL",
17651                                  into=("THER_NL",
17652                                        "THER_HYDR",
17653                                        "SECH_GRANGER",
17654                                        "SECH_MENSI",
17655                                        "SECH_BAZANT",
17656                                        "SECH_NAPPE"
17657                                        ) ),
17658       regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
17659            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
17660            GROUP_MA        =SIMP(statut='f',typ=grma,max='**'),
17661            MAILLE          =SIMP(statut='f',typ=ma,max='**'),
17662          ),
17663          EVOL_THER_SECH  =SIMP(statut='f',typ=evol_ther),
17664          EXCIT           =FACT(statut='o',min=1,max='**',
17665            CHARGE          =SIMP(statut='o',typ=char_ther),
17666            FONC_MULT       =SIMP(statut='f',typ=fonction),
17667          ),
17668          INCREMENT       =FACT(statut='f',min=1,max=1,
17669            LIST_INST       =SIMP(statut='o',typ=listr8),
17670            NUME_INIT       =SIMP(statut='f',typ='I'),
17671            NUME_FIN        =SIMP(statut='f',typ='I'),
17672          ),
17673          TEMP_INIT       =FACT(statut='f',min=1,max=1,
17674            regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
17675            STATIONNAIRE    =SIMP(statut='f',typ='TXM',into=("OUI",)),
17676            EVOL_THER       =SIMP(statut='f',typ=evol_ther),
17677            CHAM_NO         =SIMP(statut='f',typ=cham_no_temp_r),
17678            VALE            =SIMP(statut='f',typ='R'),
17679            NUME_INIT       =SIMP(statut='f',typ='I'),
17680          ),
17681          NEWTON          =FACT(statut='d',min=1,max=1,
17682            REAC_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
17683            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
17684            ITER_LINE_MAXI  =SIMP(statut='f',typ='I',defaut= 0 ),
17685          ),
17686          CONVERGENCE     =FACT(statut='d',min=1,max=1,
17687            RESI_GLOB_MAXI  =SIMP(statut='f',typ='R'),
17688            RESI_GLOB_RELA  =SIMP(statut='f',typ='R'),
17689            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
17690          ),
17691          SENSIBILITE     =SIMP(statut='f',typ=(para_sensi,theta_geom),max='**',
17692                                fr="Liste des paramètres de sensibilité.",
17693                                ang="List of sensitivity parameters",
17694          ),
17695          SOLVEUR         =FACT(statut='d',min=1,max=1,
17696            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
17697            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Parametres de la méthode multi frontale",
17698              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
17699            ),
17700            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Parametres de la méthode LDLT",
17701              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
17702            ),
17703            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
17704                                    fr="Parametres relatifs a la non inversibilité de la matrice a factorise",
17705              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
17706              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
17707            ),
17708            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Parametres de la méthode du gradient conjugué",
17709              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
17710              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
17711              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
17712              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
17713              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
17714            ),
17715 #  A quoi sert eps
17716            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
17717            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
17718          ),
17719          PARM_THETA      =SIMP(statut='f',typ='R',defaut= 0.57 ),
17720          ARCHIVAGE       =FACT(statut='f',min=1,max=1,
17721            regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST', ),),
17722            LIST_ARCH       =SIMP(statut='f',typ=(listis) ),
17723            LIST_INST       =SIMP(statut='f',typ=(listr8) ),
17724            INST            =SIMP(statut='f',typ='R',max='**'),
17725            PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
17726            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
17727            PAS_ARCH        =SIMP(statut='f',typ='I'),
17728            CHAM_EXCLU      =SIMP(statut='f',typ='TXM',into=("VARI",)),
17729          ),
17730          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
17731          OPTION          =SIMP(statut='f',typ='TXM',max='**',
17732                                into=("FLUX_ELGA_TEMP","FLUX_ELNO_TEMP") ),
17733          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
17734
17735 )  ;
17736 #& MODIF COMMANDE  DATE 09/10/2002   AUTEUR DURAND C.DURAND
17737 #            CONFIGURATION MANAGEMENT OF EDF VERSION
17738 # ======================================================================
17739 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
17740 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
17741 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
17742 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
17743 # (AT YOUR OPTION) ANY LATER VERSION.
17744 #
17745 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
17746 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
17747 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
17748 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
17749 #
17750 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
17751 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
17752 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
17753 # ======================================================================
17754 THER_NON_LINE_MO=OPER(nom="THER_NON_LINE_MO",op= 171,sd_prod=evol_ther,
17755                      fr="Thermique non lineaire en repere mobile",
17756                      docu="U4.54.03-b",reentrant='f',
17757             UIinfo={"groupes":("Résolution",)},
17758          MODELE          =SIMP(statut='o',typ=modele ),
17759          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
17760          CARA_ELEM       =SIMP(statut='c',typ=cara_elem ),
17761          EXCIT           =FACT(statut='o',min=1,max='**',
17762            CHARGE          =SIMP(statut='o',typ=char_ther ),
17763            FONC_MULT       =SIMP(statut='c',typ=fonction ),
17764          ),
17765          TEMP_INIT       =FACT(statut='f',min=1,max=1,
17766            EVOL_THER       =SIMP(statut='f',typ=evol_ther ),
17767            NUME_INIT       =SIMP(statut='f',typ='I',defaut= 0 ),
17768          ),
17769          CONVERGENCE     =FACT(statut='d',min=1,max=1,
17770            CRIT_TEMP_RELA  =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
17771            CRIT_ENTH_RELA  =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
17772            ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
17773            ARRET           =SIMP(statut='c',typ='TXM',defaut="OUI",into=("OUI","NON") ),
17774          ),
17775          SOLVEUR         =FACT(statut='d',min=1,max=1,
17776            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
17777            b_mult_front    =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
17778              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
17779            ),
17780            b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
17781              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
17782            ),
17783            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
17784                                    fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
17785              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
17786              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
17787            ),
17788            b_gcpc          =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
17789              PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","SANS","DIAG") ),
17790              NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
17791              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
17792              RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
17793              NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
17794            ),
17795            EPS             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
17796            SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
17797          ),
17798          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
17799          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
17800 )  ;
17801
17802
17803