# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
-__version__ = "$Name: BR_V1_12qt $"
-__Id__ = "$Id: cata.py,v 1.2 2007-06-15 15:52:00 cchris Exp $"
+__version__ = "$Name: $"
+__Id__ = "$Id: cata_aster_v6.py,v 1.12 2001/01/16 15:55:05 iliade Exp $"
import Accas
from Accas import *
vect_elem_pres_r, vect_elem_pres_c, \
vect_elem_temp_r
-#& MODIF COMMUN DATE 21/05/2007 AUTEUR FERNANDES R.FERNANDES
+#& MODIF COMMUN DATE 06/11/2007 AUTEUR KHAM M.KHAM
# CONFIGURATION MANAGEMENT OF EDF VERSION
# RESPONSABLE JMBHH01 J.M.PROIX
# ======================================================================
"CAM_CLAY",
"BARCELONE",
"LAIGLE",
+ "LETK",
"DRUCKER_PRAGER",
"HOEK_BROWN",
"HOEK_BROWN_EFF",
DIS_GOUJ2E_ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
PINTO_MENEGOTTO =SIMP(statut='c',typ='I',defaut=8,into=(8,)),
CJS =SIMP(statut='c',typ='I',defaut=16,into=(16,)),
- HUJEUX =SIMP(statut='c',typ='I',defaut=9,into=(9,)),
+ HUJEUX =SIMP(statut='c',typ='I',defaut=32,into=(32,)),
CAM_CLAY =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
BARCELONE =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
LAIGLE =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
+ LETK =SIMP(statut='c',typ='I',defaut=7,into=(7,)),
DRUCKER_PRAGER =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
HOEK_BROWN =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
HOEK_BROWN_EFF =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
"CAM_CLAY",
"BARCELONE",
"LAIGLE",
+ "LETK",
"DRUCKER_PRAGER",
"HOEK_BROWN_EFF",
"HOEK_BROWN_TOT",
"LIQU_GAZ",
# HYDR
"HYDR_UTIL",
+ "HYDR_VGM",
"HYDR",
"HYDR_ENDO",
# MECA_META
"ACIER",
"ZIRC",
# MECA KIT_DDI
+ "VMIS_CINE_LINE",
"VMIS_ISOT_TRAC",
"VMIS_ISOT_LINE",
"VMIS_ISOT_CINE",
"VMIS_ISOT_PUIS",
+ "GLRC_DM",
"GRANGER_FP",
"GRANGER_FP_INDT",
"GRANGER_FP_V",
LIQU_VAPE =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
LIQU_GAZ =SIMP(statut='c',typ='I',defaut=2,into=(2,)),
HYDR_UTIL =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
+ HYDR_VGM =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
HYDR =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
HYDR_ENDO =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
ACIER =SIMP(statut='c',typ='I',defaut=5,into=(5,)),
DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",
into=("PETIT","PETIT_REAC","SIMO_MIEHE","GREEN_GR","GREEN","COROTATIONNEL","REAC_GEOM")),
ALGO_C_PLAN =SIMP(statut='f',typ='TXM',defaut="ANALYTIQUE",into=("DEBORST","ANALYTIQUE",)),
- b_deborst = BLOC(condition = " ALGO_C_PLAN == 'DEBORST' ",
- fr="Tolérance relative sur la verification des contraintes planes",
- RESI_DEBORST =SIMP(statut='f',typ='R',defaut= 1.0E-6),
- ),
+# b_deborst = BLOC(condition = " ALGO_C_PLAN == 'DEBORST' ",
+# fr="Tolérance relative sur la verification des contraintes planes",
+ RESI_DEBORST =SIMP(statut='f',typ='R',defaut= 1.0E-6),
+# ),
ALGO_1D =SIMP(statut='f',typ='TXM',defaut="ANALYTIQUE",into=("DEBORST","ANALYTIQUE",)),
+# b_dbiter = BLOC(condition = " (ALGO_C_PLAN == 'DEBORST') or (ALGO_1D == 'DEBORST')",
+# fr="Nombre d'iterations maximal pour la boucle pour les contraintes planes",
+ ITER_MAXI_DEBORST =SIMP(statut='f',typ='I',defaut= 1),
+# ),
regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
),
PARM_THETA =SIMP(statut='f',typ='R',defaut= 1. ),
) ;
-#& MODIF COMMUN DATE 07/11/2006 AUTEUR CIBHHLV L.VIVAN
+#& MODIF COMMUN DATE 26/06/2007 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2003 EDF R&D WWW.CODE-ASTER.ORG
"VARI_ELNO_TUYO",
"VARI_NOEU",
"VARI_NOEU_ELGA",
- "VARI_NON_LOCAL",
"VITE",
"VITE_ABSOLU",
"VITE_VENT",
DDL =SIMP(statut='o',typ='TXM',max='**'),
),
) ;
-#& MODIF COMMANDE DATE 21/05/2007 AUTEUR FERNANDES R.FERNANDES
+#& MODIF COMMANDE DATE 08/10/2007 AUTEUR PELLET J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
# RESPONSABLE VABHHTS J.PELLET
-def affe_char_cine_prod(MECA_IMPO,THER_IMPO,ACOU_IMPO,**args):
+def affe_char_cine_prod(MECA_IMPO,THER_IMPO,ACOU_IMPO,EVOL_IMPO,**args):
if MECA_IMPO != None : return char_cine_meca
if THER_IMPO != None : return char_cine_ther
if ACOU_IMPO != None : return char_cine_acou
+ if EVOL_IMPO != None :
+ if AsType(EVOL_IMPO) in (evol_elas,evol_noli) :
+ return char_cine_meca
+ elif AsType(EVOL_IMPO) in (evol_ther,) :
+ return char_cine_ther
+ else :
+ raise AsException("Extension à faire ...")
+
raise AsException("type de concept resultat non prevu")
+
AFFE_CHAR_CINE=OPER(nom="AFFE_CHAR_CINE",op= 101,sd_prod=affe_char_cine_prod
,fr="Affectation de conditions aux limites cinématiques constantes pour un traitement sans dualisation",
reentrant='n',
UIinfo={"groupes":("Modélisation",)},
- regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO','ACOU_IMPO'),
- EXCLUS('MECA_IMPO','THER_IMPO'),
- EXCLUS('MECA_IMPO','ACOU_IMPO'),
- EXCLUS('THER_IMPO','ACOU_IMPO'),),
+ regles=(UN_PARMI('MECA_IMPO','THER_IMPO','ACOU_IMPO','EVOL_IMPO'),
+ ),
MODELE =SIMP(statut='o',typ=modele_sdaster ),
+ EVOL_IMPO =SIMP(statut='f',typ=(evol_noli,evol_elas,evol_ther),fr="Pour imposer tous les ddls d'un evol_xxx"),
MECA_IMPO =FACT(statut='f',max='**',
regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
DCZ =SIMP(statut='f',typ='R' ),
H1X =SIMP(statut='f',typ='R' ),
H1Y =SIMP(statut='f',typ='R' ),
- H1Z =SIMP(statut='f',typ='R' ),
+ H1Z =SIMP(statut='f',typ='R' ),
E1X =SIMP(statut='f',typ='R' ),
E1Y =SIMP(statut='f',typ='R' ),
- E1Z =SIMP(statut='f',typ='R' ),
+ E1Z =SIMP(statut='f',typ='R' ),
E2X =SIMP(statut='f',typ='R' ),
E2Y =SIMP(statut='f',typ='R' ),
- E2Z =SIMP(statut='f',typ='R' ),
+ E2Z =SIMP(statut='f',typ='R' ),
E3X =SIMP(statut='f',typ='R' ),
E3Y =SIMP(statut='f',typ='R' ),
- E3Z =SIMP(statut='f',typ='R' ),
+ E3Z =SIMP(statut='f',typ='R' ),
E4X =SIMP(statut='f',typ='R' ),
E4Y =SIMP(statut='f',typ='R' ),
- E4Z =SIMP(statut='f',typ='R' ),
+ E4Z =SIMP(statut='f',typ='R' ),
V11 =SIMP(statut='f',typ='R' ),
V12 =SIMP(statut='f',typ='R' ),
V13 =SIMP(statut='f',typ='R' ),
PRES23 =SIMP(statut='f',typ='R' ),
PRES31 =SIMP(statut='f',typ='R' ),
PRES32 =SIMP(statut='f',typ='R' ),
- PRES33 =SIMP(statut='f',typ='R' ),
+ PRES33 =SIMP(statut='f',typ='R' ),
),
THER_IMPO =FACT(statut='f',max='**',
regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
) ;
-#& MODIF COMMANDE DATE 05/09/2005 AUTEUR CIBHHLV L.VIVAN
+#& MODIF COMMANDE DATE 08/10/2007 AUTEUR PELLET J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
if THER_IMPO != None : return char_cine_ther
raise AsException("type de concept resultat non prevu")
-AFFE_CHAR_CINE_F=OPER(nom="AFFE_CHAR_CINE_F",op= 108,sd_prod=affe_char_cine_f_prod,
+AFFE_CHAR_CINE_F=OPER(nom="AFFE_CHAR_CINE_F",op= 101,sd_prod=affe_char_cine_f_prod,
fr="Affectation de conditions aux limites cinématiques fonction d'un (ou plusieurs) paramètres"
+" pour un traitement sans dualisation",
reentrant='n',
UIinfo={"groupes":("Modélisation",)},
- regles=(AU_MOINS_UN('MECA_IMPO','THER_IMPO'),
- EXCLUS('MECA_IMPO','THER_IMPO'),),
+ regles=(UN_PARMI('MECA_IMPO','THER_IMPO')),
MODELE =SIMP(statut='o',typ=modele_sdaster ),
MECA_IMPO =FACT(statut='f',max='**',
regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
) ;
-#& MODIF COMMANDE DATE 21/05/2007 AUTEUR FERNANDES R.FERNANDES
+#& MODIF COMMANDE DATE 08/10/2007 AUTEUR NISTOR I.NISTOR
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
DCZ =SIMP(statut='f',typ='R' ),
H1X =SIMP(statut='f',typ='R' ),
H1Y =SIMP(statut='f',typ='R' ),
- H1Z =SIMP(statut='f',typ='R' ),
+ H1Z =SIMP(statut='f',typ='R' ),
E1X =SIMP(statut='f',typ='R' ),
E1Y =SIMP(statut='f',typ='R' ),
- E1Z =SIMP(statut='f',typ='R' ),
+ E1Z =SIMP(statut='f',typ='R' ),
E2X =SIMP(statut='f',typ='R' ),
E2Y =SIMP(statut='f',typ='R' ),
- E2Z =SIMP(statut='f',typ='R' ),
+ E2Z =SIMP(statut='f',typ='R' ),
E3X =SIMP(statut='f',typ='R' ),
E3Y =SIMP(statut='f',typ='R' ),
- E3Z =SIMP(statut='f',typ='R' ),
+ E3Z =SIMP(statut='f',typ='R' ),
E4X =SIMP(statut='f',typ='R' ),
E4Y =SIMP(statut='f',typ='R' ),
- E4Z =SIMP(statut='f',typ='R' ),
+ E4Z =SIMP(statut='f',typ='R' ),
LAGS_C =SIMP(statut='f',typ='R' ),
- V11 =SIMP(statut='f',typ='R' ),
+ V11 =SIMP(statut='f',typ='R' ),
V12 =SIMP(statut='f',typ='R' ),
V13 =SIMP(statut='f',typ='R' ),
V21 =SIMP(statut='f',typ='R' ),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
SANS_GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
SANS_MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ SANS_GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ SANS_NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
DX =SIMP(statut='f',typ='R' ),
DY =SIMP(statut='f',typ='R' ),
DZ =SIMP(statut='f',typ='R' ),
),
- LIAISON_SOLIDE =FACT(statut='f',fr="Modélise une partie indéformable d'une structure",max='**',
- regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
+ LIAISON_SOLIDE =FACT(statut='f',max='**',
+ fr="Modélise une partie indéformable d'une structure."
+ +" Les mots clés TRAN et ANGL_NAUT permettent d'imposer le déplacement de la partie indéformable.",
+ regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
+ ENSEMBLE('CENTRE','ANGL_NAUT'),),
GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ TRAN =SIMP(statut='f',typ='R',max=3 ),
+ ANGL_NAUT =SIMP(statut='f',typ='R',max=3 ),
+ CENTRE =SIMP(statut='f',typ='R',max=3 ),
NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
),
),
LIAISON_XFEM =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON" ),
-
- CONTACT_XFEM =SIMP(statut='f',typ='TXM',defaut="NON" ),
+
+ CONTACT_XFEM =SIMP(statut='f',typ=char_meca,min=1,max=1,),
+
+
+# SIMP(statut='f',typ='TXM',defaut="NON" ),
VECT_ASSE =SIMP(statut='f',typ=cham_no_sdaster ),
#
# LIAISON UNILATERALE
-#
+#
LIAISON_UNILATER=FACT(statut='f',max='**',
fr="Définit les zones soumises à des conditions de liaison unilaterale (inegalite sur un DDL)",
regles=(UN_PARMI('GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
-
+
GROUP_MA =SIMP(statut='f',typ=grma ,validators=NoRepeat(),max='**'),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
GROUP_NO =SIMP(statut='f',typ=grno ,validators=NoRepeat(),max='**'),
- NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
SANS_NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
SANS_GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
-
+
NB_RESOL =SIMP(statut='f',typ='I', defaut=10 ),
- NOM_CMP =SIMP(statut='o',typ='TXM',max='**'),
-
+ NOM_CMP =SIMP(statut='o',typ='TXM',max='**'),
+
COEF_IMPO =SIMP(statut='f',typ='R'),
- COEF_MULT =SIMP(statut='f',typ='R',max='**'),
+ COEF_MULT =SIMP(statut='f',typ='R',max='**'),
METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
into=("CONTRAINTE","GCPC",) ),
-
-
+
+
),
#
# CONTACT
-#
+#
CONTACT =FACT(statut='f',max='**',
fr="Définit les zones soumises à des conditions de contact unilatéral avec ou sans frottement",
-
-
+
+
METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
into=("VERIF","CONTRAINTE","LAGRANGIEN","PENALISATION","CONTINUE","GCP","XFEM") ),
-
+
APPARIEMENT =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
into=("RIGIDE","NODAL","MAIT_ESCL","MAIT_ESCL_SYME")),
RECHERCHE =SIMP(statut='f',typ='TXM',defaut="NOEUD_BOUCLE",
DIST_COQUE =SIMP(statut='f',typ='TXM',defaut="NON", into=("OUI","NON")),
NORMALE =SIMP(statut='f',typ='TXM',defaut="MAIT",
into=("MAIT","MAIT_ESCL")),
-
+
PROJECTION =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",
into=("LINEAIRE","QUADRATIQUE") ),
-
-
+
+
b_xfem =BLOC(condition = "METHODE == 'XFEM' ",
FISS_MAIT = SIMP(statut='o',typ=fiss_xfem,max=1),
FISS_ESCL = SIMP(statut='f',typ=fiss_xfem,max=1),
- SIGN_MAIT = SIMP(statut='f',typ='TXM',into=("+","-",) ),
- SIGN_ESCL = SIMP(statut='f',typ='TXM',into=("+","-",) ),
+ SIGN_MAIT = SIMP(statut='f',typ='TXM',into=("+","-",) ),
+ SIGN_ESCL = SIMP(statut='f',typ='TXM',into=("+","-",) ),
INTEGRATION = SIMP(statut='f',typ='TXM',defaut="FPG4",into=("GAUSS","FPG4","FPG6","FPG7",) ),
COEF_REGU_CONT = SIMP(statut='f',typ='R',defaut=100.E+0),
ITER_CONT_MAXI = SIMP(statut='f',typ='I',defaut=30),
+ ITER_GEOM_MAXI =SIMP(statut='f',typ='I',defaut=0),
+ TOLE_PROJ_EXT =SIMP(statut='f',typ='R' ,defaut=0.50),
CONTACT_INIT = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
ALGO_LAGR = SIMP(statut='f',typ='TXM',defaut="VERSION1",into=("NON","VERSION1","VERSION2" , ) ),
- COEF_ECHELLE = SIMP(statut='f',typ='R',defaut=1.E+6),
+ COEF_ECHELLE = SIMP(statut='f',typ='R',defaut=1.E+6),
FROTTEMENT = SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
GLISSIERE = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
b_frotxfem =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
ITER_FROT_MAXI = SIMP(statut='f',typ='I',defaut=2),
COEF_REGU_FROT = SIMP(statut='f',typ='R',defaut=100.E+0),
SEUIL_INIT = SIMP(statut='f',typ='R',defaut=0.E+0),
- ),
+ ),
),
-
+
b_notxfem =BLOC(condition = "METHODE != 'XFEM' ",
regles=(UN_PARMI('GROUP_MA_ESCL','MAILLE_ESCL'),),
GROUP_MA_MAIT =SIMP(statut='f',typ=grma ,validators=NoRepeat(),max='**'),
MAILLE_MAIT =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
GROUP_MA_ESCL =SIMP(statut='f',typ=grma ,validators=NoRepeat(),max='**'),
MAILLE_ESCL =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- ),
-
+ ),
+
b_cara =BLOC(condition = "DIST_POUTRE == 'OUI' or DIST_COQUE == 'OUI'",
CARA_ELEM =SIMP(statut='o',typ=(cara_elem) ),
),
-
+
b_verif =BLOC(condition = "METHODE == 'VERIF' ",
fr="Paramètres de la méthode sans calcul de contact",
STOP_INTERP =SIMP(statut='f',typ='TXM',defaut="NON",
DIST_ESCL =SIMP(statut='f',typ='R'),
VECT_NORM_ESCL =SIMP(statut='f',typ='R',max=3),
VECT_ORIE_POU =SIMP(statut='f',typ='R',min=3,max=3),
+ GROUP_MA_FOND =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
),
b_active =BLOC(condition = "METHODE == 'CONTRAINTE' ",
fr="Paramètres de la méthode des contraintes actives (contact uniquement)",
GLISSIERE =SIMP(statut='f',typ='TXM',defaut="NON",
into=("OUI","NON")),
- b_glissiere =BLOC(condition = "GLISSIERE == 'OUI' ",
+ b_glissiere =BLOC(condition = "GLISSIERE == 'OUI' ",
ALARME_JEU =SIMP(statut='f',typ='R',defaut=0.),
),
TOLE_PROJ_EXT =SIMP(statut='f',typ='R' ,defaut=0.50),
),
-
+
SANS_NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
SANS_GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
SANS_NOEUD_QUAD =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
DIST_MAIT =SIMP(statut='f',typ='R'),
DIST_ESCL =SIMP(statut='f',typ='R'),
-
+
regles=(EXCLUS('VECT_Y','VECT_ORIE_POU')),
-
+
VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
VECT_ORIE_POU =SIMP(statut='f',typ='R',min=3,max=3),
b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
COULOMB =SIMP(statut='o',typ='R',),
COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut=0.E+0),
),),
-
+
b_penalisation =BLOC(condition = "METHODE == 'PENALISATION' ",
fr="Paramètres de la méthode pénalisée (contact avec ou sans frottement)",
E_N =SIMP(statut='f',typ='R'),
into=("OUI","NON")),
NB_RESOL =SIMP(statut='f',typ='I', defaut=10 ),
ITER_MULT_MAXI =SIMP(statut='f',typ='I',defaut=4),
-
+
REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",
into=("AUTOMATIQUE","CONTROLE","SANS")),
regles=(EXCLUS('VECT_Y','VECT_ORIE_POU')),
VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
VECT_ORIE_POU =SIMP(statut='f',typ='R',min=3,max=3),
-
+
b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
COULOMB =SIMP(statut='o',typ='R',),
E_T =SIMP(statut='f',typ='R',
b_continue =BLOC(condition = "METHODE == 'CONTINUE' ",
fr="Paramètres de la méthode continue (contact avec ou sans frottement)",
# regles=(UN_PARMI('GLISSIERE','FROTTEMENT'),),
- ALGO_CONT =SIMP(statut='f',typ='TXM',defaut="LAGRANGIEN",
- into=("LAGRANGIEN","AUGMENTE","STABILISE") ),
- b_CONT_LAGR =BLOC(condition = "ALGO_CONT == 'LAGRANGIEN' ",fr="Parametres de la formulation Lagrangienne",
- COEF_REGU_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),),
- b_CONT_STAB =BLOC(condition = "ALGO_CONT == 'STABILISE' ",fr="Parametres du Lagrangien stabilisé",
- COEF_REGU_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),
- COEF_STAB_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),),
- b_CONT_AUGM =BLOC(condition = "ALGO_CONT == 'AUGMENTE' ",fr="Parametres du Lagrangien augmenté",
- COEF_REGU_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),
- COEF_STAB_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),
- COEF_PENA_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),),
- GLISSIERE =SIMP(statut='f',typ='TXM',defaut="NON",
- into=("OUI","NON")),
- b_glissiere =BLOC(condition = "GLISSIERE == 'OUI' ",
- ALARME_JEU =SIMP(statut='f',typ='R',defaut=0.),
- ),
- FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
+
+# -------------------------------- CHOIX DE LA FORMULATION DE LA METHODE CONTINUE
+ ALGO_CONT =SIMP(statut='f',typ='TXM',defaut="LAGRANGIEN",into=("LAGRANGIEN","AUGMENTE","STABILISE"),),
+ b_CONT_LAGR =BLOC(condition = "ALGO_CONT == 'LAGRANGIEN' ",fr="Parametres de la formulation Lagrangienne",
+ COEF_REGU_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),),
+ b_CONT_STAB =BLOC(condition = "ALGO_CONT == 'STABILISE' ",fr="Parametres du Lagrangien stabilisé",
+ COEF_REGU_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),
+ COEF_STAB_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),),
+ b_CONT_AUGM =BLOC(condition = "ALGO_CONT == 'AUGMENTE' ",fr="Parametres du Lagrangien augmenté",
+ COEF_REGU_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),
+ COEF_STAB_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),
+ COEF_PENA_CONT =SIMP(statut='f',typ='R',defaut=100.E+0),),
+# --------------------------------
+ GLISSIERE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),),
+ b_glissiere =BLOC(condition = "GLISSIERE == 'OUI' ",
+ ALARME_JEU =SIMP(statut='f',typ='R',defaut=0.),),
+# --------------------------------
COMPLIANCE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
+ b_compliance =BLOC(condition = "COMPLIANCE == 'OUI' ",fr="Parametres de la compliance",
+ ASPERITE =SIMP(statut='o',typ='R',),
+ E_N =SIMP(statut='o',typ='R',),
+ E_V =SIMP(statut='f',typ='R',defaut=0.E+0),),
+# --------------------------------
FOND_FISSURE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
- RACCORD_LINE_QUAD=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
-
- INTEGRATION =SIMP(statut='f',typ='TXM',defaut="NOEUD",into=("GAUSS","NOEUD","SIMPSON","SIMPSON1","SIMPSON2",
- "NCOTES","NCOTES1","NCOTES2")),
- FORMULATION =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE")),
- DIRE_APPA =SIMP(statut='f',typ='R',max=3,defaut=(0.,0.,0.,)),
- ITER_GEOM_MAXI =SIMP(statut='f',typ='I',defaut=2),
- ITER_CONT_MAXI =SIMP(statut='f',typ='I',defaut=30),
- DIST_MAIT =SIMP(statut='f',typ='R',defaut=0.),
- DIST_ESCL =SIMP(statut='f',typ='R',defaut=0.),
- VECT_ORIE_POU =SIMP(statut='f',typ='R',min=3,max=3),
- TOLE_PROJ_EXT =SIMP(statut='f',typ='R' ,defaut=0.50),
- CONTACT_INIT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
- EXCLUSION_PIV_NUL=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
b_FOND_FISSURE =BLOC(condition = "FOND_FISSURE == 'OUI' ",fr="TRAITEMENT EN FOND DE FISSURE",
- regles=(UN_PARMI('NOEUD_FOND','GROUP_NO_FOND','MAILLE_FOND','GROUP_MA_FOND'),),
- NOEUD_FOND =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- GROUP_NO_FOND =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- MAILLE_FOND =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
- GROUP_MA_FOND =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),),
- b_RACCORD_SURF =BLOC(condition = "RACCORD_LINE_QUAD == 'OUI' ",fr="TRAITEMENT DU RACCORD SURFACIQUE",
- regles=(UN_PARMI('NOEUD_RACC','GROUP_NO_RACC'),),
- NOEUD_RACC =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- GROUP_NO_RACC =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),),
-
- b_compliance =BLOC(condition = "COMPLIANCE == 'OUI' ",fr="Parametres de la compliance",
- ASPERITE =SIMP(statut='o',typ='R',),
- E_N =SIMP(statut='o',typ='R',),
- E_V =SIMP(statut='f',typ='R',defaut=0.E+0),),
+ regles=(UN_PARMI('NOEUD_FOND','GROUP_NO_FOND','MAILLE_FOND','GROUP_MA_FOND'),),
+ NOEUD_FOND =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ GROUP_NO_FOND =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ MAILLE_FOND =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ GROUP_MA_FOND =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),),
+# --------------------------------
+ RACCORD_LINE_QUAD=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
+ b_RACCORD_SURF =BLOC(condition = "RACCORD_LINE_QUAD == 'OUI' ",fr="TRAITEMENT DU RACCORD SURFACIQUE",
+ regles=(UN_PARMI('NOEUD_RACC','GROUP_NO_RACC'),),
+ NOEUD_RACC =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ GROUP_NO_RACC =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),),
+# -------------------------------- MOTS-CLEF CONTACT
+ INTEGRATION =SIMP(statut='f',typ='TXM',defaut="NOEUD",
+ into=("GAUSS","NOEUD","SIMPSON","SIMPSON1","SIMPSON2",
+ "NCOTES","NCOTES1","NCOTES2"),),
+ FORMULATION =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE"),),
+ DIRE_APPA =SIMP(statut='f',typ='R',max=3,defaut=(0.,0.,0.,),),
+ ITER_GEOM_MAXI =SIMP(statut='f',typ='I',defaut=2),
+ ITER_CONT_MAXI =SIMP(statut='f',typ='I',defaut=30),
+ DIST_MAIT =SIMP(statut='f',typ='R',defaut=0.),
+ DIST_ESCL =SIMP(statut='f',typ='R',defaut=0.),
+ VECT_ORIE_POU =SIMP(statut='f',typ='R',min=3,max=3),
+ TOLE_PROJ_EXT =SIMP(statut='f',typ='R' ,defaut=0.50),
+ CONTACT_INIT =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",),),
+# -------------------------------- détection automatique et exclusion des noeuds impliqués dans le pivot nul
+ EXCLUSION_PIV_NUL=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",),),
+# -------------------------------- exclusion manuelle des noeuds impliqués dans le pivot nul;
+# prévaut sur la fonctionnalité précédente sans pour autant interférer avec elle
+ SANS_NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ SANS_GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ regles =(EXCLUS('SANS_NOEUD','SANS_GROUP_NO'),),
+# -------------------------------- MOTS-CLEF FROTTEMENT
+ FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
ALGO_FROT =SIMP(statut='f',typ='TXM',defaut="LAGRANGIEN",
into=("LAGRANGIEN","AUGMENTE","STABILISE") ),
- b_FROT_LAGR =BLOC(condition = "ALGO_FROT == 'LAGRANGIEN' ",fr="Parametres de la formulation Lagrangienne",
- COEF_REGU_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),),
- b_FROT_STAB =BLOC(condition = "ALGO_FROT == 'STABILISE' ",fr="Parametres du Lagrangien stabilisé",
- COEF_REGU_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),
- COEF_STAB_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),),
- b_FROT_AUGM =BLOC(condition = "ALGO_FROT == 'AUGMENTE' ",fr="Parametres du Lagrangien augmenté",
- COEF_REGU_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),
- COEF_STAB_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),
- COEF_PENA_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),),
- COULOMB =SIMP(statut='o',typ='R',),
- SANS_NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- SANS_GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
- VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
- VECT_Z =SIMP(statut='f',typ='R',min=3,max=3),
- ITER_FROT_MAXI =SIMP(statut='f',typ='I',defaut=2),
- SEUIL_INIT =SIMP(statut='f',typ='R',defaut=0.E+0),
- USURE =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","ARCHARD",),),
- b_usure =BLOC(condition = "USURE == 'ARCHARD' ",fr="Parametres de la loi d'usure d'Archard",
- K =SIMP(statut='o',typ='R',),
- H =SIMP(statut='o',typ='R',),),),),
+ b_FROT_LAGR =BLOC(condition = "ALGO_FROT == 'LAGRANGIEN' ",fr="Parametres de la formulation Lagrangienne",
+ COEF_REGU_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),),
+ b_FROT_STAB =BLOC(condition = "ALGO_FROT == 'STABILISE' ",fr="Parametres du Lagrangien stabilisé",
+ COEF_REGU_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),
+ COEF_STAB_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),),
+ b_FROT_AUGM =BLOC(condition = "ALGO_FROT == 'AUGMENTE' ",fr="Parametres du Lagrangien augmenté",
+ COEF_REGU_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),
+ COEF_STAB_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),
+ COEF_PENA_FROT =SIMP(statut='f',typ='R',defaut=100.E+0),),
+ COULOMB =SIMP(statut='o',typ='R',),
+ SANS_NOEUD_FR =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ SANS_GROUP_NO_FR =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ regles =(EXCLUS('SANS_NOEUD_FR','SANS_GROUP_NO_FR'),),
+ b_sans_group_no_frot =BLOC(condition = "SANS_GROUP_NO_FR != None or SANS_NO_FR != None",
+ fr="Direction(s) de frottement à exclure",
+ VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
+ VECT_Z =SIMP(statut='f',typ='R',min=3,max=3),),
+ ITER_FROT_MAXI =SIMP(statut='f',typ='I',defaut=2),
+ SEUIL_INIT =SIMP(statut='f',typ='R',defaut=0.E+0),
+ USURE =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","ARCHARD",),),
+ b_usure =BLOC(condition = "USURE == 'ARCHARD' ",fr="Parametres de la loi d'usure d'Archard",
+ K =SIMP(statut='o',typ='R',),
+ H =SIMP(statut='o',typ='R',),),),),
b_gcp =BLOC(condition = "METHODE == 'GCP' ",
fr="Paramètres de la méthode du gradient conjugué projeté (contact uniquement)",
RESI_ABSO =SIMP(statut='o',typ='R',
fr="Critère de convergence (niveau d'interpénétration autorisé)"),
REAC_ITER =SIMP(statut='f',typ='I',defaut=3, fr="Fréquence de réinitialisation de la conjugaison"),
+ ITER_GCP_MAXI =SIMP(statut='f',typ='I',defaut=0, fr="Nombre d'itérations maximal pour le GCP"),
TOLE_PROJ_EXT =SIMP(statut='f',typ='R' ,defaut=0.50),
TOLE_PROJ_INT =SIMP(statut='f',typ='R' ,defaut=0.001),
TOLE_REAC_GEOM =SIMP(statut='f',typ='R' ,defaut=0.05),
b_reac_geom =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
fr="Paramètre de la réactualisation géométrique",
NB_REAC_GEOM =SIMP(statut='o',typ='I'),
-
+
STOP_REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="ALARME",
into=("OUI","NON")),
),
b_reac_auto =BLOC(condition = "REAC_GEOM == 'AUTOMATIQUE' ",
fr="Paramètre de la réactualisation géométrique auto",
NB_REAC_MAXI =SIMP(statut='o',typ='I',defaut = 10),
- ),
+ ),
PRE_COND =SIMP(statut='f',typ='TXM',defaut="SANS",
into=("DIRICHLET","SANS"),fr="Choix d'un préconditionneur (accélère la convergence)"),
- COEF_RESI =SIMP(statut='f',typ='R',defaut = 1.,val_min=1.,
+ ITER_PRE_MAXI =SIMP(statut='f',typ='I',defaut=0, fr="Nombre d'itérations maximal pour le préconditionneur"),
+ COEF_RESI =SIMP(statut='f',typ='R',defaut = 1.,
fr="Critère_Convergence_Préconditionneur = COEF_RESI*Critère_Convergence_GCP",),
RECH_LINEAIRE=SIMP(statut='f',typ='TXM',defaut="ADMISSIBLE",into=("ADMISSIBLE","NON_ADMISSIBLE"),
fr="Autorise-t-on de sortir du domaine admissible lors de la recherche linéaire",),
PRES_REP =FACT(statut='f',max='**',
fr="Applique une pression à un domaine de milieu continu 2D ou 3D, ou à un domaine de coques et tuyaux",
- regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
- PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
+ regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','FISSURE'),
+ PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE','FISSURE'),
AU_MOINS_UN('PRES','CISA_2D' ),),
TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ FISSURE =SIMP(statut='f',typ=fiss_xfem,min=1,max=100,),
PRES =SIMP(statut='f',typ='R' ),
CISA_2D =SIMP(statut='f',typ='R' ),
),
),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
) ;
-#& MODIF COMMANDE DATE 30/04/2007 AUTEUR ABBAS M.ABBAS
+#& MODIF COMMANDE DATE 02/10/2007 AUTEUR PELLET J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
-# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
-# (AT YOUR OPTION) ANY LATER VERSION.
+# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
+# (AT YOUR OPTION) ANY LATER VERSION.
#
-# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
-# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
-# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
-# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
+# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
+# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
+# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
+# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
#
-# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
-# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
-# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
+# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
+# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
+# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
# RESPONSABLE G8BHHXD X.DESROCHES
AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
'PRES_REP','FORCE_POUTRE','VITE_FACE','IMPE_FACE','ONDE_PLANE',
'LIAISON_OBLIQUE','EPSI_INIT','LIAISON_GROUP','LIAISON_UNIF',
'LIAISON_SOLIDE','FORCE_COQUE','LIAISON_COQUE','FORCE_TUYAU',
-
+
'CONTACT','EFFE_FOND','FLUX_THM_REP','LIAISON_UNILATER'),),
VERI_DDL =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
VERI_NORM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- LIAISON =SIMP(statut='f',typ='TXM',into=('ENCASTRE',)),
+ LIAISON =SIMP(statut='f',typ='TXM',into=('ENCASTRE',)),
DX =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
DY =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
DZ =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
DCZ =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
H1X =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
H1Y =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
- H1Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ H1Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
E1X =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
E1Y =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
- E1Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ E1Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
E2X =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
E2Y =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
- E2Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ E2Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
E3X =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
E3Y =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
- E3Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ E3Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
E4X =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
E4Y =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
- E4Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
- LAGS_C =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ E4Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+ LAGS_C =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
),
FACE_IMPO =FACT(statut='f',max='**',
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
SANS_GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
SANS_MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ SANS_GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ SANS_NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
DX =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
DY =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
DZ =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
DNOR =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
DTAN =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
),
-
+
LIAISON_DDL =FACT(statut='f',max='**',
fr="Définit une relation linéaire entre des DDLs de deux ou plusieurs noeuds, les valeurs sont fournies par"
+" l'intermediaire d'un concept de type fonction",
DRX =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
DRY =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
DRZ =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
- ),
-
+ ),
+
LIAISON_GROUP =FACT(statut='f',max='**',
fr="Définit la meme relation linéaire entre certains DDLs de couples de noeuds, les valeurs sont fournies par"
+" l'intermédiaire de concept fonction",
),
#
# LIAISON UNILATERALE
-#
+#
LIAISON_UNILATER=FACT(statut='f',max='**',
fr="Définit les zones soumises à des conditions de liaison unilaterale (inegalite sur un DDL)",
regles=(UN_PARMI('GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
-
+
GROUP_MA =SIMP(statut='f',typ=grma ,validators=NoRepeat(),max='**'),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
GROUP_NO =SIMP(statut='f',typ=grno ,validators=NoRepeat(),max='**'),
- NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
SANS_NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
SANS_GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
-
+
NB_RESOL =SIMP(statut='f',typ='I', defaut=10 ),
- NOM_CMP =SIMP(statut='o',typ='TXM',max='**'),
-
+ NOM_CMP =SIMP(statut='o',typ='TXM',max='**'),
+
COEF_IMPO =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- COEF_MULT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),max='**'),
+ COEF_MULT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),max='**'),
METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
into=("CONTRAINTE","GCPC",) ),
-
-
+
+
),
CONTACT =FACT(statut='f',
fr="Définit les zones soumises à des conditions de contact unilatéral avec ou \sans frottement, certaines valeurs"
APPARIEMENT =SIMP(statut='f',typ='TXM',defaut="MAIT_ESCL",
into=("NODAL","MAIT_ESCL","MAIT_ESCL_SYME")),
RECHERCHE =SIMP(statut='f',typ='TXM',defaut="NOEUD_BOUCLE",into=("NOEUD_BOUCLE","NOEUD_VOISIN")),
- LISSAGE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
+ LISSAGE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
DIST_POUTRE =SIMP(statut='f',typ='TXM',defaut="NON", into=("OUI","NON")),
DIST_COQUE =SIMP(statut='f',typ='TXM',defaut="NON", into=("OUI","NON")),
NORMALE =SIMP(statut='f',typ='TXM',defaut="MAIT",into=("MAIT","MAIT_ESCL")),
- METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
- into=("CONTRAINTE","VERIF","LAGRANGIEN","PENALISATION","CONTINUE","GCP") ),
+ METHODE =SIMP(statut='f',typ='TXM',defaut="CONTRAINTE",
+ into=("CONTRAINTE","VERIF","LAGRANGIEN","PENALISATION","CONTINUE","GCP") ),
PROJECTION =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","QUADRATIQUE") ),
GROUP_MA_MAIT =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
MAILLE_MAIT =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
b_cara =BLOC(condition = "DIST_POUTRE == 'OUI' or DIST_COQUE == 'OUI'",
CARA_ELEM =SIMP(statut='o',typ=(cara_elem) ),
),
-
+
b_verif =BLOC(condition = "METHODE == 'VERIF' ",
fr="Paramètres de la méthode sans calcul de contact",
STOP_INTERP =SIMP(statut='f',typ='TXM',defaut="NON",
fr="Paramètres de la méthode des contraintes actives (contact uniquement)",
GLISSIERE =SIMP(statut='f',typ='TXM',defaut="NON",
into=("OUI","NON")),
- b_glissiere =BLOC(condition = "GLISSIERE == 'OUI' ",
+ b_glissiere =BLOC(condition = "GLISSIERE == 'OUI' ",
ALARME_JEU =SIMP(statut='f',typ='R',defaut=0.),
),
TOLE_PROJ_EXT =SIMP(statut='f',typ='R' ,defaut=0.50),
b_reac_geom =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
fr="Parametre de la reactualisation geometrique",
NB_REAC_GEOM =SIMP(statut='o',typ='I'),
-
+
),
SANS_NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
DIST_ESCL =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
regles=(EXCLUS('VECT_Y','VECT_ORIE_POU')),
VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
- VECT_ORIE_POU =SIMP(statut='f',typ='R',min=3,max=3),
+ VECT_ORIE_POU =SIMP(statut='f',typ='R',min=3,max=3),
b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
COULOMB =SIMP(statut='o',typ='R',),
- COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut=0.E+0),
+ COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut=0.E+0),
),),
b_penalisation =BLOC(condition = "METHODE == 'PENALISATION' ",
fr="Paramètres de la méthode pénalisée (contact avec ou sans frottement)",
- E_N =SIMP(statut='f',typ='R'),
+ E_N =SIMP(statut='f',typ='R'),
FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
TOLE_PROJ_EXT =SIMP(statut='f',typ='R' ,defaut=0.50),
TOLE_PROJ_INT =SIMP(statut='f',typ='R' ,defaut=0.001),
into=("OUI","NON")),
NB_RESOL =SIMP(statut='f',typ='I', defaut=10 ),
ITER_MULT_MAXI =SIMP(statut='f',typ='I',defaut=4),
-
+
REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="AUTOMATIQUE",
into=("AUTOMATIQUE","CONTROLE","SANS")),
DIST_ESCL =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
regles=(EXCLUS('VECT_Y','VECT_ORIE_POU')),
VECT_Y =SIMP(statut='f',typ='R',min=3,max=3),
- VECT_ORIE_POU =SIMP(statut='f',typ='R',min=3,max=3),
+ VECT_ORIE_POU =SIMP(statut='f',typ='R',min=3,max=3),
b_frottement =BLOC(condition = "FROTTEMENT == 'COULOMB' ",fr="Paramètres du frottement de Coulomb",
COULOMB =SIMP(statut='o',typ='R',),
E_T =SIMP(statut='f',typ='R',
fr="Active la pénalisation sur le frottement et définit le coefficient de pénalisation"),
- COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut=0.E+0),
+ COEF_MATR_FROT =SIMP(statut='f',typ='R',defaut=0.E+0),
),),
b_continue =BLOC(condition = "METHODE == 'CONTINUE' ",
fr="Paramètres de la méthode continue (contact avec ou sans frottement)",
# regles=(UN_PARMI('GLISSIERE','FROTTEMENT'),),
GLISSIERE =SIMP(statut='f',typ='TXM',defaut="NON",
into=("OUI","NON")),
- b_glissiere =BLOC(condition = "GLISSIERE == 'OUI' ",
+ b_glissiere =BLOC(condition = "GLISSIERE == 'OUI' ",
ALARME_JEU =SIMP(statut='f',typ='R',defaut=0.),
),
- FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
+ FROTTEMENT =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","COULOMB",) ),
COMPLIANCE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
INTEGRATION =SIMP(statut='f',typ='TXM',defaut="NOEUD",into=("GAUSS","NOEUD","SIMPSON","SIMPSON1","SIMPSON2",
"NCOTES","NCOTES1","NCOTES2")),
into=("AUTOMATIQUE","CONTROLE","SANS")),
b_reac_sans =BLOC(condition = "REAC_GEOM == 'SANS' ",
fr="Paramètre de la réactualisation géométrique",
-
+
STOP_REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="NON",
into=("OUI","NON")),
),
b_reac_geom =BLOC(condition = "REAC_GEOM == 'CONTROLE' ",
fr="Paramètre de la réactualisation géométrique",
NB_REAC_GEOM =SIMP(statut='o',typ='I'),
-
+
STOP_REAC_GEOM =SIMP(statut='f',typ='TXM',defaut="ALARME",
into=("OUI","NON")),
),
b_reac_auto =BLOC(condition = "REAC_GEOM == 'AUTOMATIQUE' ",
fr="Paramètre de la réactualisation géométrique auto",
NB_REAC_MAXI =SIMP(statut='o',typ='I',defaut = 10),
- ),
+ ),
SANS_NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
SANS_GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
SANS_NOEUD_QUAD =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
DIST_MAIT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
DIST_ESCL =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
),
- ),
-
+ ),
+
LIAISON_UNIF =FACT(statut='f',max='**',
fr="Impose une meme valeur (inconnue) à des DDLs d'un ensemble de noeuds",
regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
DDL =SIMP(statut='o',typ='TXM',max='**'),
),
+
LIAISON_SOLIDE =FACT(statut='f',max='**',
- fr="Modélise une partie indéformable d'une structure",
- regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
- GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
- MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ fr="Modélise une partie indéformable d'une structure."
+ +" Les mots clés TRAN et ANGL_NAUT permettent d'imposer le déplacement de la partie indéformable.",
+ regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
+ ENSEMBLE('CENTRE','ANGL_NAUT'),),
GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
- NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
+ GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+ MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ TRAN =SIMP(statut='f',typ='R',max=3 ),
+ ANGL_NAUT =SIMP(statut='f',typ='R',max=3 ),
+ CENTRE =SIMP(statut='f',typ='R',max=3 ),
+ NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
),
FY =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
FZ =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
),
-
+
PRES_REP =FACT(statut='f',max='**',
fr="Applique une pression à un domaine de milieu continu 2D ou 3D ou à un domaine de coques et tuyaux, dont les"
+" valeurs imposées (pression et/ou cisaillement) sont fournies par l'intermédiaire d'un concept fonction",
- regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
- PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
+ regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','FISSURE'),
+ PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE','FISSURE'),
AU_MOINS_UN('PRES','CISA_2D'),),
TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ FISSURE =SIMP(statut='f',typ=fiss_xfem,min=1,max=100,),
PRES =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
CISA_2D =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
),
EPXZ =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
EPYZ =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
),
-
+
FORCE_POUTRE =FACT(statut='f',max='**',
fr="Applique des forces linéiques sur des éléments de type poutre dont les valeurs sont fournies par"
+" l'intermédiaire d'un concept fonction",
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
PRES =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
),
-
+
FORCE_COQUE =FACT(statut='f',max='**',
fr="Applique des forces surfaciques sur des éléments de types coques dont les valeurs sont fournies par"
+" l'intermédiaires d'un concept fonction",
GROUP_NO_2 =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
NOEUD_2 =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
NUME_LAGR =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
- ),
-
+ ),
+
VITE_FACE =FACT(statut='f',max='**',
fr="Impose des vitesses normales à une face (phénomène ACOUSTIQUE) dont les valeurs sont fournies par"
INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
) ;
-#& MODIF COMMANDE DATE 28/03/2007 AUTEUR PELLET J.PELLET
+#& MODIF COMMANDE DATE 16/10/2007 AUTEUR SALMONA L.SALMONA
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
MATER =SIMP(statut='o',typ=mater_sdaster,max=30),
- TEMP_REF =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+ TEMP_REF =SIMP(statut='f',typ='R'),
),
# affectation du nom du matériau (par noeuds):
B_NOM_NEUT2 =BLOC(condition="NOM_VARC=='NEUT2'",NOM_CHAM=SIMP(statut='f',typ='TXM',defaut= 'NEUT',),),
PROL_DROITE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
PROL_GAUCHE =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
+ FONC_INST =SIMP(statut='f',typ=(fonction_sdaster,formule)),
),
VALE_REF =SIMP(statut='f',typ='R'), # defaut=0. pour TEMP (fait dans le fortran : op0006.f)
),
CMP_GD =SIMP(statut='c',typ='TXM',max=3,min=3,defaut=("V1","V2","V3")),
CMP_VARC =SIMP(statut='c',typ='TXM',max=3,min=3,defaut=("ALPHPUR","ALPHBETA","TZIRC",)),
),
+
+ INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
) ;
-#& MODIF COMMANDE DATE 21/05/2007 AUTEUR FERNANDES R.FERNANDES
+#& MODIF COMMANDE DATE 18/09/2007 AUTEUR PELLET J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
"3D_SI",
"3D_GRAD_EPSI",
"3D_GRAD_VARI",
- "3D_XFEM",
+ "3D_XFEM_CONT",
"3D_JOINT",
"AXIS",
"AXIS_FLUI_STRU",
"BARRE",
"2D_BARRE",
"C_PLAN",
- "C_PLAN_XFEM",
+ "C_PLAN_XFEM_CONT",
"C_PLAN_NS",
"C_PLAN_SI",
"C_PLAN_GRAD_EPSI",
"COQUE_C_PLAN",
"COQUE_D_PLAN",
"D_PLAN",
- "D_PLAN_XFEM",
+ "D_PLAN_XFEM_CONT",
"D_PLAN_GRAD_EPSI",
"D_PLAN_GRAD_VARI",
"D_PLAN_NS",
"DKTG",
"DST",
"FLUI_STRU",
- "GRILLE",
+ "GRILLE_EXCENTRE",
"GRILLE_MEMBRANE",
"POU_C_T",
"POU_D_E",
),
),
) ;
-#& MODIF COMMANDE DATE 18/04/2005 AUTEUR NICOLAS O.NICOLAS
+#& MODIF COMMANDE DATE 08/11/2007 AUTEUR SALMONA L.SALMONA
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
-ASSE_MATR_GENE=OPER(nom="ASSE_MATR_GENE",op= 128,sd_prod=matr_asse_gene_r,
+def asse_matr_gene_prod(METHODE,**args):
+ if (METHODE=="INITIAL") : return matr_asse_gene_r
+ elif (args['OPTION']=="RIGI_GENE_C") : return matr_asse_gene_c
+ else : return matr_asse_gene_r
+
+ASSE_MATR_GENE=OPER(nom="ASSE_MATR_GENE",op= 128,sd_prod=asse_matr_gene_prod,
fr="Assemblage des matrices généralisées de macro éléments pour construction de la matrice globale généralisée",
reentrant='n',
UIinfo={"groupes":("Matrices/vecteurs",)},
NUME_DDL_GENE =SIMP(statut='o',typ=nume_ddl_gene ),
METHODE =SIMP(statut='f',typ='TXM',defaut="CLASSIQUE",into=("CLASSIQUE","INITIAL") ),
b_option =BLOC(condition = "METHODE == 'CLASSIQUE'",
- OPTION =SIMP(statut='o',typ='TXM',into=("RIGI_GENE","MASS_GENE","AMOR_GENE") ),
+ OPTION =SIMP(statut='o',typ='TXM',into=("RIGI_GENE","RIGI_GENE_C","MASS_GENE","AMOR_GENE") ),
),
) ;
#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-#& MODIF COMMANDE DATE 16/10/2006 AUTEUR JMBHH01 J.M.PROIX
+#& MODIF COMMANDE DATE 16/07/2007 AUTEUR ANGLES J.ANGLES
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
OPTION =SIMP(statut='o',typ='TXM',into=("DOMA_ELGA","DOMA_NOEUD") ),
RESULTAT =SIMP(statut='o',typ=(evol_elas, evol_noli) ),
CHAM_MATER =SIMP(statut='o',typ=(cham_mater) ),
+ MAILLAGE =SIMP(statut='o',typ=maillage_sdaster ),
+ regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**' ),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**' ),
GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**' ),
DELTA_OSCI =SIMP(statut='f',typ='R',defaut= 0.0E+0),
),
),
- b_fati_grmano =BLOC(condition = "(GROUP_MA != None or MAILLE != None or GROUP_NO != None or NOEUD != None)",
- MAILLAGE =SIMP(statut='o',typ=maillage_sdaster ),
- ),
),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
DEFORMEE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
),
) ;
-#& MODIF COMMANDE DATE 02/05/2006 AUTEUR MCOURTOI M.COURTOIS
+#& MODIF COMMANDE DATE 19/06/2007 AUTEUR PELLET J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
return fonction_sdaster
elif AsType(FONCTION) == fonction_c:
return fonction_c
+ elif AsType(FONCTION) == formule_c:
+ return fonction_c
elif AsType(FONCTION) == formule:
if NOM_PARA_FONC != None:
return nappe_sdaster
TITRE =SIMP(statut='f',typ='TXM',max='**'),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
) ;
-#& MODIF COMMANDE DATE 09/02/2007 AUTEUR GREFFET N.GREFFET
+#& MODIF COMMANDE DATE 04/09/2007 AUTEUR DURAND C.DURAND
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
# RESPONSABLE MCOURTOI M.COURTOIS
from Macro.calc_fonction_ops import calc_fonction_ops
def calc_fonction_prod(self,DERIVE,EXTRACTION,INTEGRE,INVERSE,COMB,COMB_C,
- ENVELOPPE,SPEC_OSCI,ASSE,FFT,COMPOSE,CORR_ACCE,PUISSANCE,
+ ENVELOPPE,FRACTILE,SPEC_OSCI,ASSE,FFT,COMPOSE,CORR_ACCE,PUISSANCE,
LISS_ENVELOP,ABS, **args):
if (INTEGRE != None): return fonction_sdaster
raise AsException("CALC_FONCTION/COMB_C : pas de types hétérogènes nappe/fonction")
return fonction_c
if (ENVELOPPE != None): return AsType(ENVELOPPE[0]['FONCTION'])
+ if (FRACTILE != None): return AsType(FRACTILE[0] ['FONCTION'])
if (EXTRACTION != None): return fonction_sdaster
if (SPEC_OSCI != None): return nappe_sdaster
if (COMPOSE != None): return fonction_sdaster
UIinfo={"groupes":("Fonction",)},
regles=(UN_PARMI('DERIVE','INTEGRE','SPEC_OSCI','COMB','COMB_C','ENVELOPPE',
'COMPOSE','EXTRACTION','ASSE','FFT','CORR_ACCE', 'PUISSANCE',
- 'LISS_ENVELOP','INVERSE','ABS'),),
+ 'LISS_ENVELOP','INVERSE','ABS','FRACTILE'),),
FFT =FACT(statut='f',fr="Transformée de Fourier ou de son inverse",
FONCTION =SIMP(statut='o',typ=(fonction_sdaster,fonction_c) ),
METHODE =SIMP(statut='f',typ='TXM',defaut="PROL_ZERO",into=("PROL_ZERO","TRONCATURE","COMPLET") ),
FONCTION =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster),max='**' ),
CRITERE =SIMP(statut='f',typ='TXM',defaut="SUP",into=("SUP","INF"),fr="Type de l enveloppe" ),
),
+ FRACTILE =FACT(statut='f',fr="Fractile d une famille de fonctions ou de nappes",
+ FONCTION =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster),max='**' ),
+ FRACT =SIMP(statut='o',typ='R',defaut="SUP",val_min=0.,val_max=1.,fr="Valeur du fractile" ),
+ ),
ASSE =FACT(statut='f',fr="Concatenation de fonctions",
FONCTION =SIMP(statut='o',typ=fonction_sdaster,min=2,max=2 ),
SURCHARGE =SIMP(statut='f',typ='TXM',defaut="DROITE",into=("DROITE","GAUCHE")),
),
- CORR_ACCE =FACT(statut='f',fr="Correction d un accelerogramme reel",
+ CORR_ACCE =FACT(statut='f',fr="Correction d un accelerogramme reel",
CORR_DEPL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
FONCTION =SIMP(statut='o',typ=fonction_sdaster ),
),
PUISSANCE =FACT(statut='f',fr="Fonction élevée à une puissance",
FONCTION =SIMP(statut='o', typ=(fonction_sdaster,nappe_sdaster) ),
- EXPOSANT =SIMP(statut='f', typ='I', defaut=1 ),
+ EXPOSANT =SIMP(statut='f', typ='R', defaut=1 ),
),
INVERSE =FACT(statut='f',fr="Inverse d'une fonction",
FONCTION =SIMP(statut='o', typ=fonction_sdaster),
),
) ;
-#& MODIF COMMANDE DATE 31/10/2006 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 16/10/2007 AUTEUR SALMONA L.SALMONA
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2006 EDF R&D WWW.CODE-ASTER.ORG
COMP_ELAS =FACT(statut='f',
RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
- into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC") ),
- ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
- ELAS_VMIS_LINE =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
- ELAS_VMIS_TRAC =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
+ into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC","ELAS_VMIS_PUIS") ),
+ ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,) ),
+ ELAS_VMIS_LINE =SIMP(statut='c',typ='I',defaut=1,into=(1,) ),
+ ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut=1,into=(1,) ),
+ ELAS_VMIS_PUIS =SIMP(statut='c',typ='I',defaut=1,into=(1,) ),
DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","GREEN") ),
regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
),
COMP_INCR =FACT(statut='f',
RELATION =SIMP(statut='f',typ='TXM',defaut="ELAS",
- into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE") ),
+ into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE","ELAS_VMIS_PUIS") ),
ELAS =SIMP(statut='f',typ='I',defaut=1,into=(1,) ),
VMIS_ISOT_TRAC =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
VMIS_ISOT_LINE =SIMP(statut='f',typ='I',defaut=2,into=(2,) ),
),
),
) ;
-#& MODIF COMMANDE DATE 16/05/2006 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 23/10/2007 AUTEUR BOYERE E.BOYERE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
if OPTION == "MASS_FLUI_STRU" : return matr_elem_depl_r
if OPTION == "RIGI_GEOM" : return matr_elem_depl_r
if OPTION == "RIGI_ROTA" : return matr_elem_depl_r
+ if OPTION == "MECA_GYRO" : return matr_elem_depl_r
if OPTION == "AMOR_MECA" : return matr_elem_depl_r
if OPTION == "IMPE_MECA" : return matr_elem_depl_r
if OPTION == "ONDE_FLUI" : return matr_elem_depl_r
into=("RIGI_MECA","MASS_MECA","RIGI_GEOM",
"AMOR_MECA","RIGI_THER","MASS_THER","IMPE_MECA",
"ONDE_FLUI","AMOR_MECA_ABSO","MASS_FLUI_STRU","RIGI_FLUI_STRU",
- "RIGI_ROTA","MASS_MECA_DIAG","RIGI_ACOU",
+ "RIGI_ROTA","MECA_GYRO","MASS_MECA_DIAG","RIGI_ACOU",
"MASS_ID_MDEP_R","MASS_ID_MDNS_R","MASS_ID_MTEM_R","MASS_ID_MTNS_R",
"MASS_ACOU","AMOR_ACOU","RIGI_MECA_HYST",
"RIGI_MECA_LAGR") ),
CHARGE =SIMP(statut='o',typ=char_meca,validators=NoRepeat(),max='**' ),
),
+ b_meca_gyro = BLOC( condition = "OPTION=='MECA_GYRO'",
+ MODELE =SIMP(statut='o',typ=modele_sdaster ),
+ CHAM_MATER =SIMP(statut='o',typ=cham_mater ),
+ CARA_ELEM =SIMP(statut='o',typ=cara_elem ),
+ ),
+
b_amor_meca =BLOC(condition = "OPTION=='AMOR_MECA'",
regles=(AU_MOINS_UN('CARA_ELEM','RIGI_MECA'),
ENSEMBLE('RIGI_MECA','MASS_MECA','CHAM_MATER'), ),
GROUP_NO_RESU =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
NOEUD_RESU =SIMP(statut='f',typ=ma,validators=NoRepeat(),max='**'),
) ;
-#& MODIF COMMANDE DATE 10/10/2006 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 26/06/2007 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2003 EDF R&D WWW.CODE-ASTER.ORG
ARRET =SIMP(statut='f',typ='TXM',defaut="OUI"),
),
ETAT_INIT =FACT(statut='f',
- regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI','VARI_NON_LOCAL',),
+ regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI',),
EXCLUS('EVOL_NOLI','DEPL',),
EXCLUS('EVOL_NOLI','SIGM',),
EXCLUS('EVOL_NOLI','VARI',),
- EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
EXCLUS('NUME_ORDRE','INST'), ),
DEPL =SIMP(statut='f',typ=cham_no_sdaster),
SIGM =SIMP(statut='f',typ=(carte_sdaster,cham_elem)),
VARI =SIMP(statut='f',typ=cham_elem),
- VARI_NON_LOCAL =SIMP(statut='f',typ=cham_no_sdaster),
EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
NUME_ORDRE =SIMP(statut='f',typ='I'),
INST =SIMP(statut='f',typ='R'),
),
SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
),
- SOLV_NON_LOCAL =FACT(statut='f',
- METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC") ),
- b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
- RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
- ),
- b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
- RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
- ),
- b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
- fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
- NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
- STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
- ),
- b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
- PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC",),defaut="LDLT_INC" ),
- NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
- RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
- NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
- ),
- EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- ),
- LAGR_NON_LOCAL =FACT(statut='f',
- ITER_DUAL_MAXI =SIMP(statut='f',typ='I',defaut= 50),
- RESI_DUAL_ABSO =SIMP(statut='o',typ='R'),
- RESI_PRIM_ABSO =SIMP(statut='o',typ='R'),
- R =SIMP(statut='f',typ='R',defaut= 1000.),
- ITER_PRIM_MAXI =SIMP(statut='f',typ='I',defaut= 10),
- ),
INFO =SIMP(statut='f',typ='I',into=(1,2) ),
TITRE =SIMP(statut='f',typ='TXM',max='**' ),
COMP_INCR =C_COMP_INCR(),
) ;
-#& MODIF COMMANDE DATE 10/10/2006 AUTEUR MCOURTOI M.COURTOIS
+#& MODIF COMMANDE DATE 03/07/2007 AUTEUR SALMONA L.SALMONA
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2005 EDF R&D WWW.CODE-ASTER.ORG
'VIDE','NON_VIDE','MAXI','ABS_MAXI','MINI','ABS_MINI'),),
b_vale = BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
- VALE = SIMP(statut='f',typ='R'),
- VALE_I = SIMP(statut='f',typ='I'),
- VALE_C = SIMP(statut='f',typ='C'),
- VALE_K = SIMP(statut='f',typ='TXM'),
+ VALE = SIMP(statut='f',typ='R',max='**'),
+ VALE_I = SIMP(statut='f',typ='I',max='**'),
+ VALE_C = SIMP(statut='f',typ='C',max='**'),
+ VALE_K = SIMP(statut='f',typ='TXM',max='**'),
),
b_regexp = BLOC(condition = "CRIT_COMP == 'REGEXP'",
- VALE_K = SIMP(statut='f',typ='TXM'),
+ VALE_K = SIMP(statut='f',typ='TXM',max='**'),
),
b_crit = BLOC(condition = "CRIT_COMP in ('EQ','NE')",
CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
FORMAT =SIMP(statut='f',typ='TXM',defaut="EXCEL",into=("EXCEL","AGRAF") ),
),
) ;
+#& MODIF COMMANDE DATE 06/08/2007 AUTEUR TARDIEU N.TARDIEU
+# CONFIGURATION MANAGEMENT OF EDF VERSION
+# ======================================================================
+# COPYRIGHT (C) 1991 - 2007 EDF R&D WWW.CODE-ASTER.ORG
+# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
+# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
+# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
+# (AT YOUR OPTION) ANY LATER VERSION.
+#
+# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
+# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
+# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
+# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
+#
+# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
+# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
+# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
+# ======================================================================
+#& RESPONSABLE
+
+
+CALCUL=OPER(nom="CALCUL",op=26,sd_prod=table_sdaster,reentrant='n',
+ UIinfo={"groupes":("Résolution",)},
+ fr="Calculer des objets élémentaires comme une matrice tangente, intégrer une loi de comportement, etc...",
+ OPTION =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',defaut="COMPORTEMENT",
+ into=( "COMPORTEMENT","MATR_TANG_ELEM","FORC_INT_ELEM"),),
+ MODELE =SIMP(statut='o',typ=modele_sdaster),
+ CARA_ELEM =SIMP(statut='f',typ=cara_elem),
+ CHAM_MATER =SIMP(statut='o',typ=cham_mater),
+ EXCIT =FACT(statut='o',max='**',
+ CHARGE =SIMP(statut='o',typ=(char_meca,char_cine_meca)),
+ FONC_MULT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
+ into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
+ ),
+ DEPL =SIMP(statut='o',typ=cham_no_sdaster ),
+ INCR_DEPL =SIMP(statut='o',typ=cham_no_sdaster ),
+ SIGM =SIMP(statut='o',typ=cham_elem),
+ VARI =SIMP(statut='o',typ=cham_elem),
+ INCREMENT =FACT(statut='o',
+ LIST_INST =SIMP(statut='o',typ=listr8_sdaster),
+ NUME_ORDRE =SIMP(statut='o',typ='I'),),
+ COMP_INCR =C_COMP_INCR(),
+ COMP_ELAS =FACT(statut='f',max='**',
+ RESI_INTE_RELA =SIMP(statut='f',typ='R',defaut= 1.0E-6),
+ ITER_INTE_MAXI =SIMP(statut='f',typ='I',defaut= 10 ),
+ ITER_INTE_PAS =SIMP(statut='f',typ='I',defaut= 0 ),
+ RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
+ into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
+ RELATION =SIMP(statut='o',typ='TXM',defaut="ELAS",
+ into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
+ "ELAS_POUTRE_GR","CABLE","ELAS_HYPER")),
+ ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
+ ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
+ ELAS_VMIS_LINE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
+ ELAS_HYPER =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
+ ELAS_POUTRE_GR =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
+ CABLE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
+ DEFORMATION =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GREEN","GREEN_GR",) ),),
+ INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
+) ;
+
#& MODIF COMMANDE DATE 12/03/2007 AUTEUR DEVESA G.DEVESA
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
),
SANS_CMP =SIMP(statut='f',typ='TXM',into=("LAGR",) ),
) ;
-#& MODIF COMMANDE DATE 03/01/2006 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 05/11/2007 AUTEUR VIVAN L.VIVAN
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
EXCIT =FACT(statut='o',max='**',
regles=(UN_PARMI('MONO_APPUI','NOEUD','GROUP_NO'),
- UN_PARMI('AXE','TRI_AXE','TRI_SPEC' ),),
+ UN_PARMI('AXE','TRI_AXE','TRI_SPEC' ),
+ UN_PARMI('MONO_APPUI','MULTI_APPUI' ),),
- MONO_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ MONO_APPUI =SIMP(statut='f',typ='TXM',into=("OUI",),
+ fr="excitation imposée unique" ),
+ MULTI_APPUI =SIMP(statut='f',typ='TXM',into=("CORRELE","DECORRELE",),
+ fr="excitations décorrélés en multi-appuis: cumul sur les modes puis sur les appuis" ),
NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
AXE =SIMP(statut='f',typ='R',max=3,fr="Excitation suivant un seul axe",),
),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-#& MODIF COMMANDE DATE 12/09/2006 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 17/07/2007 AUTEUR MACOCCO K.MACOCCO
# RESPONSABLE VABHHTS J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
CREA_CHAMP=OPER(nom="CREA_CHAMP",op= 195,sd_prod=crea_champ_prod,
- fr="Création d'un champ ",reentrant='n',
+ fr="Création d'un champ ",reentrant='f',
UIinfo={"groupes":("Résultats et champs",)},
TYPE_CHAM =SIMP(statut='o',typ='TXM',into=C_TYPE_CHAM_INTO()),
# TYPE_CHAM doit etre de la forme : CART_xx, NOEU_xx, ELEM_xx, ELGA_xx ou ELNO_xx
INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,) ),
TITRE =SIMP(statut='f',typ='TXM',max='**' ),
) ;
-#& MODIF COMMANDE DATE 13/12/2006 AUTEUR PELLET J.PELLET
+#& MODIF COMMANDE DATE 23/07/2007 AUTEUR SALMONA L.SALMONA
# RESPONSABLE MCOURTOI M.COURTOIS
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
PREF_NOEUD =SIMP(statut='f',typ='TXM',defaut="NS"),
PREF_NUME =SIMP(statut='f',typ='I',defaut= 1 ),
),
+ HEXA20_27 =FACT(statut='f',fr="Passage HEXA20 -> HEXA27",
+ regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
+ TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ MAILLE =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+ GROUP_MA =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
+ PREF_NOEUD =SIMP(statut='f',typ='TXM',defaut="NS"),
+ PREF_NUME =SIMP(statut='f',typ='I',defaut= 1 ),
+ ),
QUAD_LINE =FACT(statut='f',fr="Passage quadratique -> linéaire",
regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
#
INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
) ;
-#& MODIF COMMANDE DATE 28/03/2007 AUTEUR PELLET J.PELLET
+#& MODIF COMMANDE DATE 17/07/2007 AUTEUR PELLET J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
UIinfo={"groupes":("Modélisation",)},
fr="Créer ou enrichir une structure de donnees resultat à partir de champs aux noeuds",
- OPERATION =SIMP(statut='o',typ='TXM',into=("AFFE","ECLA_PG","PERM_CHAM","PROL_RTZ","PREP_VRC1","PREP_VRC2",),
+ OPERATION =SIMP(statut='o',typ='TXM',into=("AFFE","ASSE","ECLA_PG","PERM_CHAM","PROL_RTZ","PREP_VRC1","PREP_VRC2",),
fr="choix de la fonction a activer",),
+
+ # Création par affectation de champs :
+ #-------------------------------------
b_affe =BLOC(condition = "OPERATION == 'AFFE'",
TYPE_RESU =SIMP(statut='o',position='global',typ='TXM',into=("MULT_ELAS","EVOL_ELAS","EVOL_NOLI","FOURIER_ELAS",
),
),
+
+ # Création par assemblage d'evol_ther :
+ #-----------------------------------------
+ b_asse =BLOC(condition = "OPERATION == 'ASSE'",
+ TYPE_RESU =SIMP(statut='o',position='global',typ='TXM',into=("EVOL_THER",) ),
+ ASSE =FACT(statut='o',max='**',
+ RESULTAT =SIMP(statut='o',typ=evol_ther),
+ TRANSLATION =SIMP(statut='f',typ='R',defaut= 0. ),
+ ),
+ ),
+
+
b_ecla_pg =BLOC(condition = "OPERATION == 'ECLA_PG'",
TYPE_RESU =SIMP(statut='o',typ='TXM',into=("EVOL_ELAS","EVOL_NOLI","EVOL_THER"), ),
),
),
+
b_perm_cham =BLOC(condition = "OPERATION == 'PERM_CHAM'",
TYPE_RESU =SIMP(statut='o',typ='TXM',into=("EVOL_NOLI",) ),
IMPR_MACRO =SIMP(fr="affichage des sous-commandes produites par les macros dans le fichier mess",
statut='f',typ='TXM',into=("OUI","NON")),
);
-#& MODIF COMMANDE DATE 19/02/2007 AUTEUR LEFEBVRE J-P.LEFEBVRE
+#& MODIF COMMANDE DATE 12/11/2007 AUTEUR LEFEBVRE J-P.LEFEBVRE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
UNITE =SIMP(statut='f',typ='I'),
),
- CODE =FACT(fr="définition d un nom pour l'ensemble d'une étude",
+ CODE =FACT(fr="définition d'un nom pour l'ensemble d'une étude",
statut='f',min=1,max=1,
NOM =SIMP(statut='o',typ='TXM'),
NIV_PUB_WEB =SIMP(statut='o',typ='TXM',into=('INTERNET','INTRANET')),
VISU_EFICAS =SIMP(statut='f',typ='TXM',into=('OUI','NON'),defaut='OUI'),
- UNITE =SIMP(statut='f',typ='I',defaut=15),
),
ERREUR =FACT(fr="comportement en cas d'erreur",statut='f',min=1,max=1,
PARTITION =SIMP(statut='f',typ='R'),
DYNAMIQUE =SIMP(statut='f',typ='I'),
),
- RESERVE_CPU =FACT(fr="reserve de temps pour terminer une execution",statut='f',max=1,
+
+ RESERVE_CPU =FACT(fr="reserve de temps pour terminer une execution",statut='d',max=1,
regles=(EXCLUS('VALE','POURCENTAGE'),),
VALE =SIMP(statut='f',typ='I',val_min=0),
+# valeur par défaut fixée à 10. dans le FORTRAN si CODE présent
POURCENTAGE =SIMP(statut='f',typ='R',val_min=0.,val_max=1.0),
-# valeur en pourcentage du temps maximum bornée à 180 secondes
- BORNE =SIMP(statut='f',typ='I',val_min=0,defaut=180)
- ),
- );
+# valeur par défaut fixée à 10% dans le FORTRAN
+ BORNE =SIMP(statut='f',typ='I',val_min=0,defaut=900) ),
+# valeur en pourcentage du temps maximum bornée à 900 secondes
+);
#& MODIF COMMANDE DATE 03/10/2005 AUTEUR NICOLAS O.NICOLAS
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
PRESENT =SIMP(statut='o',typ='TXM',min=2,max=2,into=("OUI","NON") ),
),
) ;
-#& MODIF COMMANDE DATE 13/02/2007 AUTEUR PELLET J.PELLET
+#& MODIF COMMANDE DATE 19/06/2007 AUTEUR PELLET J.PELLET
# RESPONSABLE JMBHH01 J.M.PROIX
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2004 EDF R&D WWW.CODE-ASTER.ORG
-# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
-# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
-# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
-# (AT YOUR OPTION) ANY LATER VERSION.
-#
-# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
-# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
-# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
-# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
-#
-# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
-# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
-# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
+# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
+# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
+# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
+# (AT YOUR OPTION) ANY LATER VERSION.
+#
+# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
+# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
+# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
+# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
+#
+# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
+# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
+# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
DEFI_COMPOR=OPER(nom="DEFI_COMPOR",op=59,sd_prod=compor_sdaster,
fr="Définir le comportement d'un monocristal, d'un polycristal ou de groupes de fibres",
reentrant='n',
UIinfo={"groupes":("Modélisation",)},
# on exclut MULTIFBRE de MONOCRISTAL ou POLYCRISTAL car la structure de données n'est pas organisée pareil pour ces cas
- regles=(EXCLUS('MONOCRISTAL','POLYCRISTAL','MULTIFIBRE'),
+ regles=(UN_PARMI('MONOCRISTAL','POLYCRISTAL','MULTIFIBRE'),
PRESENT_PRESENT('MULTIFIBRE','GEOM_FIBRE','MATER_SECT'),
),
MONOCRISTAL =FACT(statut='f', max='**',
fr="Donner le nom du mot-clé facteur de DEFI_MATERIAU précisant le type d'écrouissage cinématique"),
ELAS =SIMP(statut='f', typ='TXM', max=1,
fr="Donner le nom du mot-clé facteur de DEFI_MATERIAU précisant le comportement élastique (un et un seul)"),
- FAMI_SYST_GLIS =SIMP(statut='o',typ='TXM', max=1,
+ FAMI_SYST_GLIS =SIMP(statut='o',typ='TXM', max=1,
into=('BASAL', 'PRISMATIQUE', 'OCTAEDRIQUE', 'PYRAMIDAL1',
'PYRAMIDAL2', 'CUBIQUE1', 'CUBIQUE2', 'MACLAGE', 'JOINT_GRAIN', 'RL', 'UNIAXIAL','BCC24'),),
),
-
-
+
+
POLYCRISTAL =FACT(statut='f', max='**',
regles=(UN_PARMI('ANGL_REP','ANGL_EULER'),),
MONOCRISTAL =SIMP(statut='o', typ=compor_sdaster, max=1),
ANGL_REP =SIMP(statut='f',typ='R',max=3,fr="orientation du monocristal : 3 angles nautiques en degrés"),
ANGL_EULER=SIMP(statut='f',typ='R',max=3,fr="orientation du monocristal : 3 angles d'Euler en degrés"),
),
-
-
+
+
b_poly =BLOC( condition = "POLYCRISTAL!='None'",
LOCALISATION =SIMP(statut='f', typ='TXM', max=1, into=('BZ', 'BETA', 'RL',),
fr="Donner le nom de la règle de localisation"),
-
+
b_beta =BLOC( condition = "LOCALISATION=='BETA'",
DL =SIMP(statut='o',typ='R',max=1),
DA =SIMP(statut='o',typ='R',max=1),
),
),
-
+
#####################################################################################
GEOM_FIBRE = SIMP(statut='f',max=1,typ=gfibre_sdaster,
fr="Donner le nom du concept regroupant tous les groupes de fibres (issu de DEFI_GEOM_FIBRE)"),
BETON_DOUBLE_DP =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
BETON_UMLV_FP =SIMP(statut='c',typ='I',defaut=21,into=(21,)),
GRAN_IRRA_LOG =SIMP(statut='c',typ='I',defaut=4,into=(4,)),
-
+
RELATION_KIT =SIMP(statut='f',typ='TXM',max='**',validators=NoRepeat(),
into=(
# MECA KIT_DDI
"BETON_DOUBLE_DP",
),),
-# on pourrait ajouter TOUT_GROUP_FIBRE
+# on pourrait ajouter TOUT_GROUP_FIBRE
) );
-
+
#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 04/09/2007 AUTEUR DURAND C.DURAND
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
# RESPONSABLE MCOURTOI M.COURTOIS
-def defi_fonction_prod(VALE,VALE_PARA,VALE_C,NOEUD_PARA,**args):
+def defi_fonction_prod(VALE,VALE_PARA,VALE_C,NOEUD_PARA,ABSCISSE,**args):
if VALE != None : return fonction_sdaster
if VALE_C != None : return fonction_c
if VALE_PARA != None : return fonction_sdaster
+ if ABSCISSE != None : return fonction_sdaster
if NOEUD_PARA != None : return fonction_sdaster
raise AsException("type de concept resultat non prevu")
,fr="Définit une fonction réelle ou complexe d'une variable réelle",
reentrant='n',
UIinfo={"groupes":("Fonction",)},
- regles=(UN_PARMI('VALE','VALE_C','VALE_PARA','NOEUD_PARA'),),
+ regles=(UN_PARMI('VALE','VALE_C','VALE_PARA','NOEUD_PARA','ABSCISSE'),),
NOM_PARA =SIMP(statut='o',typ='TXM',into=C_PARA_FONCTION() ),
NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
VALE =SIMP(statut='f',typ='R',min=2,max='**',
fr ="Fonction réelle définie par une liste de couples (abscisse,ordonnée)"),
+ ABSCISSE =SIMP(statut='f',typ='R',min=2,max='**',
+ fr ="Liste d abscisses d une fonction réelle"),
VALE_C =SIMP(statut='f',typ='R',min=2,max='**',
fr ="Fonction complexe définie par une liste de couples"),
VALE_PARA =SIMP(statut='f',typ=listr8_sdaster,
b_vale_para =BLOC(condition = "VALE_PARA != None",
VALE_FONC =SIMP(statut='o',typ=listr8_sdaster ),
),
+ b_abscisse =BLOC(condition = "ABSCISSE != None",
+ ORDONNEE =SIMP(statut='o',typ='R',min=2,max='**',
+ fr ="Liste d ordonnées d une fonction réelle"),
+ ),
NOEUD_PARA =SIMP(statut='f',typ=no,max='**',
fr ="Fonction réelle définie par une liste de noeuds et un maillage"),
b_noeud_para =BLOC(condition = "NOEUD_PARA != None",
TITRE =SIMP(statut='f',typ='TXM',max='**'),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
) ;
-#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 22/10/2007 AUTEUR PELLET J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
-# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
-# (AT YOUR OPTION) ANY LATER VERSION.
+# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
+# (AT YOUR OPTION) ANY LATER VERSION.
#
-# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
-# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
-# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
-# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
+# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
+# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
+# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
+# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
#
-# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
-# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
-# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
+# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
+# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
+# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
# RESPONSABLE VABHHTS J.PELLET
DEFI_LIST_ENTI=OPER(nom="DEFI_LIST_ENTI",op=22,sd_prod=listis_sdaster,
- fr="Définir une liste d'entier strictement croissante",
+ fr="Définir une liste d'entiers strictement croissante",
reentrant='n',
UIinfo={"groupes":("Fonction",)},
- regles=(UN_PARMI('VALE','DEBUT'),
- EXCLUS('VALE','INTERVALLE'),),
- VALE =SIMP(statut='f',typ='I',max='**'),
- DEBUT =SIMP(statut='f',typ='I'),
- INTERVALLE =FACT(statut='f',max='**',
- regles=(UN_PARMI('NOMBRE','PAS'),),
- JUSQU_A =SIMP(statut='o',typ='I'),
- NOMBRE =SIMP(statut='f',typ='I',val_min=1,),
- PAS =SIMP(statut='f',typ='I',val_min=1,),
+
+ OPERATION =SIMP(statut='o',typ='TXM',defaut='DEFI',into=('DEFI','NUME_ORDRE',)),
+
+
+ # définition d'une liste d'entiers
+ #----------------------------------
+ b_defi =BLOC(condition = "OPERATION == 'DEFI'",
+ regles=(UN_PARMI('VALE','DEBUT'),
+ EXCLUS('VALE','INTERVALLE'),),
+ VALE =SIMP(statut='f',typ='I',max='**'),
+ DEBUT =SIMP(statut='f',typ='I'),
+ INTERVALLE =FACT(statut='f',max='**',
+ regles=(UN_PARMI('NOMBRE','PAS'),),
+ JUSQU_A =SIMP(statut='o',typ='I'),
+ NOMBRE =SIMP(statut='f',typ='I',val_min=1,),
+ PAS =SIMP(statut='f',typ='I',val_min=1,),
+ ),
+ ),
+
+
+ # extraction d'une liste de nume_ordre dans une sd_resultat :
+ #------------------------------------------------------------
+ b_extr =BLOC(condition = "OPERATION == 'NUME_ORDRE'",
+ RESULTAT =SIMP(statut='o',typ=resultat_sdaster),
+ PARAMETRE =SIMP(statut='o',typ='TXM',),
+ INTERV_R =SIMP(statut='o',typ='R',min=2,max=2),
),
+
+
INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
GROUP_NO_FIN =SIMP(statut='f',typ=grno),
),
) ;
-#& MODIF COMMANDE DATE 21/05/2007 AUTEUR FERNANDES R.FERNANDES
+#& MODIF COMMANDE DATE 06/11/2007 AUTEUR KHAM M.KHAM
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
PRESENT_PRESENT('BARCELONE','CAM_CLAY','ELAS'),
PRESENT_PRESENT('CAM_CLAY','ELAS'),
PRESENT_PRESENT('LAIGLE','ELAS'),
+ PRESENT_PRESENT('LETK','ELAS'),
PRESENT_PRESENT('DRUCK_PRAGER','ELAS'),
PRESENT_PRESENT('HOEK_BROWN','ELAS'),
EXCLUS('MAZARS','MAZARS_FO'),
PHI0 =SIMP(statut='o',typ='R',val_min=0.0),
KAPPA =SIMP(statut='f',typ='R',val_min=0.0,defaut=0.8,val_max=1.0),
ZETA_G =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- TOLER_ET =SIMP(statut='c',typ='R',val_min=0.1E-2,val_max=10.0E-02,defaut=1.0E-02 ),
+ TOLER_ET =SIMP(statut='c',typ='R',val_min=0.0,defaut=0.15 ),
VERI_P =SIMP(statut='c',typ='TXM',max='**',defaut=("TEMP","IRRA") ),
),
ZIRC_EPRI =FACT(statut='f',
RI_ELA =SIMP(statut='o',typ='R' ),
RHYS =SIMP(statut='o',typ='R' ),
RMOB =SIMP(statut='o',typ='R' ),
- XM =SIMP(statut='o',typ='R'),
+ XM =SIMP(statut='o',typ='R' ),
+ RD_CYC =SIMP(statut='o',typ='R' ),
+ RI_CYC =SIMP(statut='o',typ='R' ),
+ DILA =SIMP(statut='o',typ='R' ),
),
ECRO_ASYM_LINE =FACT(statut='f',
DC_SIGM_EPSI =SIMP(statut='o',typ='R'),
PESA_X = SIMP(statut='o',typ='R'),
PESA_Y = SIMP(statut='o',typ='R'),
PESA_Z = SIMP(statut='o',typ='R'),
- SATU_PRES = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_SATU_PRES = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- PERM_LIQU = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_LIQU_SATU = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- PERM_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_SATU_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_PRES_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ SATU_PRES = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_SATU_PRES = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ PERM_LIQU = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_LIQU_SATU = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ PERM_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_SATU_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_PRES_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+# ---Van Genhuchten et Muallen-----------------------------------------------------------------------------
+
+ VG_N = SIMP(statut='f',typ='R'),
+ VG_SR = SIMP(statut='f',typ='R'),
+ VG_PR = SIMP(statut='f',typ='R'),
+ VG_SMAX = SIMP(statut='f',typ='R'),
+ VG_SATUR = SIMP(statut='f',typ='R'),
+#
# ---------------------------------------------------------------------------------
# ------------------- DONNEES NECESSAIRE SI THERMIQUE -------------------------
# ---------------------------------------------------------------------------------
CP = SIMP(statut='f',typ='R'),
PERM_IN = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERM_END = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
- PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',), ),
PERMIN_X =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERMIN_Y =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERMIN_Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
LAMB_S = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
D_LB_S = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
LAMB_CT = SIMP(statut='f',typ='R'),
+#
+ regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
+ PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',),
+ ENSEMBLE('SATU_PRES','D_SATU_PRES','PERM_LIQU','D_PERM_LIQU_SATU',
+ 'PERM_GAZ','D_PERM_SATU_GAZ','D_PERM_PRES_GAZ',),
+ ENSEMBLE('VG_N','VG_SR','VG_PR','VG_SMAX','VG_SATUR',),
+ UN_PARMI('VG_N','SATU_PRES'),
+ ),
+
# ---------------------------------------------------------------------------------
# ------------------- DONNEES INUTILES ----------------------------------------
# ---------------------------------------------------------------------------------
PESA_X = SIMP(statut='o',typ='R'),
PESA_Y = SIMP(statut='o',typ='R'),
PESA_Z = SIMP(statut='o',typ='R'),
- SATU_PRES = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_SATU_PRES = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- PERM_LIQU = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_LIQU_SATU = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- PERM_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_SATU_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_PRES_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ SATU_PRES = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_SATU_PRES = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ PERM_LIQU = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_LIQU_SATU = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ PERM_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_SATU_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_PRES_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+# ---Van Genhuchten et Muallen-----------------------------------------------------------------------------
+
+ VG_N = SIMP(statut='f',typ='R'),
+ VG_SR = SIMP(statut='f',typ='R'),
+ VG_PR = SIMP(statut='f',typ='R'),
+ VG_SMAX = SIMP(statut='f',typ='R'),
+ VG_SATUR = SIMP(statut='f',typ='R'),
+#
FICKV_T = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
# ---------------------------------------------------------------------------------
# ------------------- DONNEES NECESSAIRE SI THERMIQUE -------------------------
CP = SIMP(statut='f',typ='R'),
PERM_IN = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERM_END = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
- PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',), ),
PERMIN_X =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERMIN_Y =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERMIN_Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
LAMB_S = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
D_LB_S = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
LAMB_CT = SIMP(statut='f',typ='R'),
+#
+ regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
+ PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',),
+ ENSEMBLE('SATU_PRES','D_SATU_PRES','PERM_LIQU','D_PERM_LIQU_SATU',
+ 'PERM_GAZ','D_PERM_SATU_GAZ','D_PERM_PRES_GAZ',),
+ ENSEMBLE('VG_N','VG_SR','VG_PR','VG_SMAX','VG_SATUR',),
+ UN_PARMI('VG_N','SATU_PRES'),
+ ),
# ---------------------------------------------------------------------------------
# ------------------- DONNEES FACULTATIVE ----------------------------------
# ---------------------------------------------------------------------------------
PESA_X = SIMP(statut='o',typ='R'),
PESA_Y = SIMP(statut='o',typ='R'),
PESA_Z = SIMP(statut='o',typ='R'),
- SATU_PRES = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_SATU_PRES = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- PERM_LIQU = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_LIQU_SATU = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- PERM_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_SATU_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_PRES_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ SATU_PRES = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_SATU_PRES = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ PERM_LIQU = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_LIQU_SATU = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ PERM_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_SATU_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_PRES_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+# ---Van Genhuchten et Muallen-----------------------------------------------------------------------------
+ VG_N = SIMP(statut='f',typ='R'),
+ VG_SR = SIMP(statut='f',typ='R'),
+ VG_PR = SIMP(statut='f',typ='R'),
+ VG_SMAX = SIMP(statut='f',typ='R'),
+ VG_SATUR = SIMP(statut='f',typ='R'),
+#
FICKV_T = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
FICKA_T = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
# ---------------------------------------------------------------------------------
CP = SIMP(statut='f',typ='R'),
PERM_IN = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERM_END = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
- PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',), ),
PERMIN_X =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERMIN_Y =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERMIN_Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
LAMB_S = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
D_LB_S = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
LAMB_CT = SIMP(statut='f',typ='R'),
+#
+ regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
+ PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',),
+ ENSEMBLE('SATU_PRES','D_SATU_PRES','PERM_LIQU','D_PERM_LIQU_SATU',
+ 'PERM_GAZ','D_PERM_SATU_GAZ','D_PERM_PRES_GAZ',),
+ ENSEMBLE('VG_N','VG_SR','VG_PR','VG_SMAX','VG_SATUR',),
+ UN_PARMI('VG_N','SATU_PRES'),
+ ),
# ---------------------------------------------------------------------------------
# ------------------- DONNEES FACULTATIVES ------------------------------------
# ---------------------------------------------------------------------------------
PESA_X = SIMP(statut='o',typ='R'),
PESA_Y = SIMP(statut='o',typ='R'),
PESA_Z = SIMP(statut='o',typ='R'),
- SATU_PRES = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_SATU_PRES = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- PERM_LIQU = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_LIQU_SATU = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- PERM_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_SATU_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
- D_PERM_PRES_GAZ = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ SATU_PRES = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_SATU_PRES = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ PERM_LIQU = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_LIQU_SATU = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ PERM_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_SATU_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+ D_PERM_PRES_GAZ = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+# ---Van Genhuchten et Muallen-----------------------------------------------------------------------------
+
+ VG_N = SIMP(statut='f',typ='R'),
+ VG_SR = SIMP(statut='f',typ='R'),
+ VG_PR = SIMP(statut='f',typ='R'),
+ VG_SMAX = SIMP(statut='f',typ='R'),
+ VG_SATUR = SIMP(statut='f',typ='R'),
# ---------------------------------------------------------------------------------
# ------------------- DONNEES NECESSAIRE SI THERMIQUE -------------------------
# ---------------------------------------------------------------------------------
CP = SIMP(statut='f',typ='R'),
PERM_IN = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERM_END = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
- regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
- PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',), ),
PERMIN_X =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERMIN_Y =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
PERMIN_Z =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
LAMB_S = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
D_LB_S = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
LAMB_CT = SIMP(statut='f',typ='R'),
+#
+ regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
+ PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',),
+ ENSEMBLE('SATU_PRES','D_SATU_PRES','PERM_LIQU','D_PERM_LIQU_SATU',
+ 'PERM_GAZ','D_PERM_SATU_GAZ','D_PERM_PRES_GAZ',),
+ ENSEMBLE('VG_N','VG_SR','VG_PR','VG_SMAX','VG_SATUR',),
+ UN_PARMI('VG_N','SATU_PRES'),
+ ),
# ---------------------------------------------------------------------------------
# ------------------- DONNEES INUTILES ----------------------------------------
# ---------------------------------------------------------------------------------
SIGMA_P1 =SIMP(statut='o',typ='R'),
PA =SIMP(statut='o',typ='R'),
),
+ LETK =FACT(statut='f',
+ PA =SIMP(statut='o',typ='R',fr="pression atmospherique"),
+ NELAS =SIMP(statut='o',typ='R',fr="exposant de la loi de variation des modules K et G"),
+ SIGMA_C =SIMP(statut='o',typ='R',fr="résistance en compression simple "),
+ H0_EXT =SIMP(statut='o',typ='R',fr="parametre pilotant la résistance en extension"),
+ GAMMA_CJS =SIMP(statut='o',typ='R',fr="parametre de forme du critere ds le plan deviatoire entre 0 et 1."),
+ XAMS =SIMP(statut='o',typ='R',fr="parametre non nul intervenant dans les lois d'ecrouissage pre pic"),
+ ETA =SIMP(statut='o',typ='R',fr="parametre non nul intervenant dans les lois d'ecrouissage post pic"),
+ A_0 =SIMP(statut='o',typ='R',fr="a de la limite d'élasticité initiale"),
+ A_E =SIMP(statut='o',typ='R',fr="a de la limite de clivage ou seuil intermédiaire"),
+ A_PIC =SIMP(statut='o',typ='R',fr="a du seuil de pic"),
+ S_0 =SIMP(statut='o',typ='R',fr="s de la limite d'élasticité initiale"),
+ S_E =SIMP(statut='f',typ='R',defaut= 0.,fr="s de la limite de clivage ou seuil intermédiaire"),
+ M_0 =SIMP(statut='o',typ='R',fr="m de la limite d'élasticité initiale"),
+ M_E =SIMP(statut='o',typ='R',fr="m de la limite de clivage ou seuil intermédiaire"),
+ M_PIC =SIMP(statut='o',typ='R',fr="m du seuil de pic"),
+ M_ULT =SIMP(statut='o',typ='R',fr="m du seuil residuel"),
+ XI_ULT =SIMP(statut='o',typ='R',fr="niveau d ecrouissage pour atteindre le seuil residuel"),
+ XI_E =SIMP(statut='o',typ='R',fr="niveau d ecrouissage pour atteindre le seuil de clivage"),
+ XI_PIC =SIMP(statut='o',typ='R',fr="niveau d ecrouissage pour atteindre le seuil de pic"),
+ MV_MAX =SIMP(statut='o',typ='R',fr="m du seuil viscoplastique maximal"),
+ XIV_MAX =SIMP(statut='o',typ='R',fr="niveau d ecrouissage pour atteindre le seuil viscoplastique maximal"),
+ A =SIMP(statut='o',typ='R',fr="parametre carcaterisant l amplitude de la vitesse de fluage"),
+ N =SIMP(statut='o',typ='R',fr="parametre intervenant dans la formule pilotant la cinetique de fluage"),
+ SIGMA_P1 =SIMP(statut='o',typ='R',fr="SIG min de l intersection du seuil de pic et intermediaire "),
+ SIGMA_P2 =SIMP(statut='o',typ='R',fr="egal a SIGMA_P1 pour l instant"),
+ MU0_V =SIMP(statut='o',typ='R',fr="relatif à l angle de dilatance des mecanismes pre pic et viscoplastique"),
+ XI0_V =SIMP(statut='o',typ='R',fr="relatif à l angle de dilatance des mecanismes pre pic et viscoplastique"),
+ MU1 =SIMP(statut='o',typ='R',fr="relatif à l angle de dilatance du mecanisme post pic "),
+ XI1 =SIMP(statut='o',typ='R',fr="relatif à l angle de dilatance du mecanisme post pic "),
+ ),
DRUCK_PRAGER =FACT(statut='f',
ALPHA =SIMP(statut='o',typ='R'),
SY =SIMP(statut='o',typ='R'),
),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
) ;
-#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 04/09/2007 AUTEUR DURAND C.DURAND
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
-DEFI_NAPPE=OPER(nom="DEFI_NAPPE",op= 4,sd_prod=nappe_sdaster,
+DEFI_NAPPE=OPER(nom="DEFI_NAPPE",op=4,sd_prod=nappe_sdaster,
fr="Définir une fonction réelle de deux variables réelles",
- reentrant='n',
- UIinfo={"groupes":("Fonction",)},
+ reentrant='n',UIinfo={"groupes":("Fonction",)},
regles=(UN_PARMI('FONCTION','DEFI_FONCTION'),
EXCLUS('FONCTION','NOM_PARA_FONC',),
ENSEMBLE('NOM_PARA_FONC','DEFI_FONCTION'),),
NOM_RESU =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
PARA =SIMP(statut='o',typ='R',max='**'),
FONCTION =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),max='**' ),
- NOM_PARA_FONC =SIMP(statut='f',typ='TXM',into=("TEMP","INST","X","Y","Z","EPSI","FREQ",
- "PULS","AMOR","EPAIS","SAT", "PGAZ","PCAP") ),
+ NOM_PARA_FONC =SIMP(statut='f',typ='TXM',into=C_PARA_FONCTION() ),
DEFI_FONCTION =FACT(statut='f',max='**',
VALE =SIMP(statut='o',typ='R',max='**'),
INTERPOL =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG") ),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
) ;
-#& MODIF COMMANDE DATE 10/05/2006 AUTEUR MCOURTOI M.COURTOIS
+#& MODIF COMMANDE DATE 19/06/2007 AUTEUR PELLET J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
VECT_ASSE =SIMP(statut='f',typ=(cham_no_sdaster,vect_asse_gene) ),
CHARGE =SIMP(statut='f',typ=char_meca ),
TYPE_CHARGE =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),
- FONC_MULT_C =SIMP(statut='f',typ=fonction_c ),
+ FONC_MULT_C =SIMP(statut='f',typ=(fonction_c,formule_c) ),
COEF_MULT_C =SIMP(statut='f',typ='C' ),
FONC_MULT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
COEF_MULT =SIMP(statut='f',typ='R' ),
# Rajouter test icompatibilite vect_asse et sensibilite
# Peut-on aussi rajouter ici le test d incompatibilite charge complexe - derivation
# presents dans le Fortran
-#& MODIF COMMANDE DATE 13/12/2006 AUTEUR PELLET J.PELLET
+#& MODIF COMMANDE DATE 23/10/2007 AUTEUR BOITEAU O.BOITEAU
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
MODE_MECA =SIMP(statut='f',typ=mode_meca ),
AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
NB_MODE =SIMP(statut='f',typ='I',defaut= 9999 ),
- REAC_VITE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
),
SOLVEUR =FACT(statut='d',
),
b_mumps =BLOC(condition = "METHODE == 'MUMPS' ",fr="Paramètres de la méthode MUMPS",
TYPE_RESOL =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("NONSYM","SYMGEN","SYMDEF","AUTO")),
- SCALING =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("SANS","AUTO")),
+ PRETRAITEMENTS =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("SANS","AUTO")),
RENUM =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("AMD","AMF","PORD","METIS","QAMD","AUTO")),
ELIM_LAGR2 =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=10,),
- RESI_RELA =SIMP(statut='f',typ='R',defaut=1.E-6,),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut=-1.0,),
+ PARALLELISME =SIMP(statut='f',typ='TXM',defaut="CENTRALISE",into=("CENTRALISE","CENTRALISE")),
),
),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
INFO =SIMP(statut='f',typ='I',into=(1,2) ),
) ;
-#& MODIF COMMANDE DATE 30/05/2007 AUTEUR ABBAS M.ABBAS
+#& MODIF COMMANDE DATE 23/10/2007 AUTEUR BOITEAU O.BOITEAU
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
COMP_INCR =C_COMP_INCR(),
COMP_ELAS =FACT(statut='f',max='**',
RELATION =SIMP(statut='o',typ='TXM',defaut="ELAS",
- into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
+ into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC","ELAS_VMIS_PUIS",
"ELAS_POUTRE_GR","CABLE","ELAS_HYPER")),
ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
ELAS_VMIS_LINE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
+ ELAS_VMIS_PUIS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
ELAS_HYPER =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
ELAS_POUTRE_GR =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
CABLE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
#-------------------------------------------------------------------
b_reuse =BLOC(condition = "reuse",fr="en mode concept reentrant : ETAT_INIT obligatoire",
ETAT_INIT =FACT(statut='o',
- regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','VITE','ACCE','SIGM','VARI','VARI_NON_LOCAL',),
+ regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','VITE','ACCE','SIGM','VARI',),
EXCLUS('EVOL_NOLI','DEPL',),
EXCLUS('EVOL_NOLI','VITE'),
EXCLUS('EVOL_NOLI','ACCE'),
EXCLUS('EVOL_NOLI','SIGM',),
EXCLUS('EVOL_NOLI','VARI',),
- EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
EXCLUS('NUME_ORDRE','INST'), ),
DEPL =SIMP(statut='f',typ=cham_no_sdaster),
VITE =SIMP(statut='f',typ=cham_no_sdaster),
ACCE =SIMP(statut='f',typ=cham_no_sdaster),
SIGM =SIMP(statut='f',typ=(cham_elem,carte_sdaster)),
VARI =SIMP(statut='f',typ=cham_elem),
- VARI_NON_LOCAL =SIMP(statut='f',typ=cham_no_sdaster),
EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
NUME_ORDRE =SIMP(statut='f',typ='I'),
INST =SIMP(statut='f',typ='R'),
),),
b_not_reuse =BLOC(condition = "not reuse",fr="en mode concept non reentrant : ETAT_INIT facultatif",
ETAT_INIT =FACT(statut='f',
- regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','VITE','ACCE','SIGM','VARI','VARI_NON_LOCAL',),
+ regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','VITE','ACCE','SIGM','VARI',),
EXCLUS('EVOL_NOLI','DEPL',),
EXCLUS('EVOL_NOLI','VITE'),
EXCLUS('EVOL_NOLI','ACCE'),
EXCLUS('EVOL_NOLI','SIGM',),
EXCLUS('EVOL_NOLI','VARI',),
- EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
EXCLUS('NUME_ORDRE','INST'), ),
DEPL =SIMP(statut='f',typ=cham_no_sdaster),
VITE =SIMP(statut='f',typ=cham_no_sdaster),
ACCE =SIMP(statut='f',typ=cham_no_sdaster),
SIGM =SIMP(statut='f',typ=(cham_elem,carte_sdaster)),
VARI =SIMP(statut='f',typ=cham_elem),
- VARI_NON_LOCAL =SIMP(statut='f',typ=cham_no_sdaster),
EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
NUME_ORDRE =SIMP(statut='f',typ='I'),
INST =SIMP(statut='f',typ='R'),
),
b_mumps =BLOC(condition = "METHODE == 'MUMPS' ",fr="Paramètres de la méthode MUMPS",
TYPE_RESOL =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("NONSYM","SYMGEN","SYMDEF","AUTO")),
- SCALING =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("SANS","AUTO")),
+ PRETRAITEMENTS =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("SANS","AUTO")),
RENUM =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("AMD","AMF","PORD","METIS","QAMD","AUTO")),
ELIM_LAGR2 =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=10,),
RESI_RELA =SIMP(statut='f',typ='R',defaut=-1.0,),
+ PARALLELISME =SIMP(statut='f',typ='TXM',defaut="CENTRALISE",
+ into=("CENTRALISE","DISTRIBUE_MAILLE","DISTRIBUE_SD")),
+ PARTITION =SIMP(statut='f',typ=sd_feti_sdaster),
+ CHARGE_PROC0_MA =SIMP(statut='f',typ='I',defaut=0,min=0),
+ CHARGE_PROC0_SD =SIMP(statut='f',typ='I',defaut=0,min=0),
),
b_gcpc =BLOC(condition="METHODE == 'GCPC'",fr="Paramètres de la méthode du gradient conjugué",
PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC",),defaut="LDLT_INC" ),
NUME_INIT =SIMP(statut='f',typ='I'),
DETR_NUME_SUIV =SIMP(statut='f',typ='TXM',into=("OUI",)),
CHAM_EXCLU =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**',
- into=("DEPL","SIEF_ELGA","VARI_ELGA","ACCE","VITE","VARI_NON_LOCAL","LANL_ELGA")),
+ into=("DEPL","SIEF_ELGA","VARI_ELGA","ACCE","VITE","LANL_ELGA")),
),
#-------------------------------------------------------------------
SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
fr="Liste des paramètres de sensibilité",
ang="List of sensitivity parameters"),
-#-------------------------------------------------------------------
- SOLV_NON_LOCAL =FACT(statut='f',
- METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC","MUMPS") ),
- b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
- RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
- ),
- b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
- RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
- ),
- b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
- fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
- NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
- STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
- ),
- b_mumps =BLOC(condition = "METHODE == 'MUMPS' ",fr="Paramètres de la méthode MUMPS",
- TYPE_RESOL =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("NONSYM","SYMGEN","SYMDEF","AUTO")),
- SCALING =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("SANS","AUTO")),
- RENUM =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("AMD","AMF","PORD","METIS","QAMD","AUTO")),
- ELIM_LAGR2 =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
- PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=10,),
- RESI_RELA =SIMP(statut='f',typ='R',defaut=-1.0,),
- ),
- b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
- PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC",),defaut="LDLT_INC" ),
- NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
- RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
- NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
- ),
- EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- ),
- LAGR_NON_LOCAL =FACT(statut='f',
- ITER_DUAL_MAXI =SIMP(statut='f',typ='I',defaut= 50),
- RESI_DUAL_ABSO =SIMP(statut='o',typ='R'),
- RESI_PRIM_ABSO =SIMP(statut='o',typ='R'),
- R =SIMP(statut='f',typ='R',defaut= 1000.),
- ITER_PRIM_MAXI =SIMP(statut='f',typ='I',defaut= 10),
- ),
#-------------------------------------------------------------------
INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
OPTION =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-#& MODIF COMMANDE DATE 10/10/2006 AUTEUR MCOURTOI M.COURTOIS
+#& MODIF COMMANDE DATE 11/09/2007 AUTEUR LEBOUVIER F.LEBOUVIER
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
CHOC_FLUI =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
NB_MODE =SIMP(statut='f',typ='I' ),
NB_MODE_FLUI =SIMP(statut='f',typ='I' ),
- NB_MODE_DIAG =SIMP(statut='f',typ='I' ),
TS_REG_ETAB =SIMP(statut='f',typ='R' ),
),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-#& MODIF COMMANDE DATE 12/12/2006 AUTEUR VIVAN L.VIVAN
+#& MODIF COMMANDE DATE 19/06/2007 AUTEUR PELLET J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
-# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
-# (AT YOUR OPTION) ANY LATER VERSION.
+# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
+# (AT YOUR OPTION) ANY LATER VERSION.
#
-# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
-# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
-# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
-# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
+# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
+# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
+# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
+# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
#
-# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
-# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
-# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
+# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
+# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
+# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
# RESPONSABLE VABHHTS J.PELLET
ENGENDRE_TEST=PROC(nom="ENGENDRE_TEST",op=178,
UIinfo={"groupes":("Impression",)},
fr="Engendre des tests pour la non régression du code (pour développeurs)",
- UNITE =SIMP(statut='f',typ='I',defaut=8),
+ UNITE =SIMP(statut='f',typ='I',defaut=8),
FORMAT =SIMP(statut='f',typ='TXM',into=("OBJET",) ),
FORMAT_R =SIMP(statut='f',typ='TXM',defaut="1PE20.13"),
PREC_R =SIMP(statut='f',typ='TXM',defaut="1.E-10"),
regles=(UN_PARMI('TOUT','CO'),),
TOUT =SIMP(statut='f',typ='TXM',into=("OUI",) ),
CO =SIMP(statut='f',typ=assd,validators=NoRepeat(),max='**'),
- TYPE_TEST =SIMP(statut='f',typ='TXM',defaut="SOMME",into=("SOMME","RESUME") ),
+ TYPE_TEST =SIMP(statut='f',typ='TXM',defaut="SOMME",into=("SOMME",) ),
),
) ;
#& MODIF COMMANDE DATE 29/08/2006 AUTEUR MCOURTOI M.COURTOIS
CRIT_EXTR =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",into=("MASS_EFFE_UN","MASS_GENE") ),
),
) ;
-#& MODIF COMMANDE DATE 09/05/2007 AUTEUR VIVAN L.VIVAN
+#& MODIF COMMANDE DATE 24/09/2007 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
EXTR_RESU=OPER(nom="EXTR_RESU",op=176,sd_prod=extr_resu_prod,reentrant='f',
UIinfo={"groupes":("Résultats et champs",)},
fr="Extraire des champs au sein d'une SD Résultat",
- regles=(CONCEPT_SENSIBLE('SEPARE'), REUSE_SENSIBLE(),
+ regles=(CONCEPT_SENSIBLE('SEPARE'),
+ #REUSE_SENSIBLE(),
DERIVABLE('RESULTAT'),),
RESULTAT =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
mode_acou,mode_stat_depl,mode_stat_acce,mode_stat_forc,evol_ther,evol_noli,
TITRE =SIMP(statut='f',typ='TXM',max='**' ),
) ;
-#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 06/08/2007 AUTEUR TARDIEU N.TARDIEU
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2003 EDF R&D WWW.CODE-ASTER.ORG
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
def extr_table_prod(TYPE_RESU,**args):
- if TYPE_RESU == "MATR_ASSE_GENE_R" : return matr_asse_gene_r
+ from Cata import cata
+ typ = TYPE_RESU.lower()
+ if hasattr(cata, typ):
+ return getattr(cata, typ)
raise AsException("type de concept resultat non prevu")
EXTR_TABLE=OPER(nom="EXTR_TABLE",op=173,sd_prod=extr_table_prod,reentrant='n',
UIinfo={"groupes":("Résultats et champs",)},
- fr="Extraire d'une table la matrice de masse généralisée assemblée",
- TYPE_RESU =SIMP(statut='o',typ='TXM',into=("MATR_ASSE_GENE_R",) ),
+ fr="Extraire d'une table des concepts Code_Aster",
+ TYPE_RESU =SIMP(statut='o',typ='TXM',),
TABLE =SIMP(statut='o',typ=table_sdaster),
TITRE =SIMP(statut='f',typ='TXM',max='**' ),
) ;
-#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 23/10/2007 AUTEUR BOITEAU O.BOITEAU
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
-# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
-# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
-# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
-# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
-# (AT YOUR OPTION) ANY LATER VERSION.
-#
-# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
-# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
-# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
-# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
-#
-# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
-# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
-# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
-# ======================================================================
-def fact_grad_prod(MATR_ASSE,**args):
- if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
- if AsType(MATR_ASSE) == matr_asse_temp_r : return matr_asse_temp_r
- if AsType(MATR_ASSE) == matr_asse_pres_r : return matr_asse_pres_r
- raise AsException("type de concept resultat non prevu")
-
-FACT_GRAD=OPER(nom="FACT_GRAD",op=85,sd_prod=fact_grad_prod,
- UIinfo={"groupes":("Résolution",)},
- fr="Construire une matrice de préconditionnement pour une résolution par gradient conjugué",
- reentrant='n',
- MATR_ASSE =SIMP(statut='o',
- typ=(matr_asse_depl_r,matr_asse_temp_r,
- matr_asse_pres_r) ),
- PRE_COND =SIMP(statut='f',typ='TXM',defaut="LDLT_INC",into=("LDLT_INC",) ),
- NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
- INFO =SIMP(statut='f',typ='I',into=(1,2) ),
-) ;
-#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
-# CONFIGURATION MANAGEMENT OF EDF VERSION
-# ======================================================================
-# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
-# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
-# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
-# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
-# (AT YOUR OPTION) ANY LATER VERSION.
-#
-# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
-# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
-# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
-# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
-#
-# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
-# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
-# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
+# COPYRIGHT (C) 1991 - 2007 EDF R&D WWW.CODE-ASTER.ORG
+# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
+# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
+# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
+# (AT YOUR OPTION) ANY LATER VERSION.
+#
+# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
+# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
+# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
+# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
+#
+# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
+# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
+# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
-# RESPONSABLE VABHHTS J.PELLET
+
def fact_ldlt_prod(MATR_ASSE,**args):
if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
if AsType(MATR_ASSE) == matr_asse_depl_c : return matr_asse_depl_c
if AsType(MATR_ASSE) == matr_asse_pres_c : return matr_asse_pres_c
raise AsException("type de concept resultat non prevu")
-FACT_LDLT=OPER(nom="FACT_LDLT",op=14,sd_prod=fact_ldlt_prod,
- fr="Factoriser une matrice assemblée en un produit de deux matrices triangulaires",
- reentrant='f',
- UIinfo={"groupes":("Résolution",)},
+FACTORISER=OPER(nom="FACTORISER",op=14,sd_prod=fact_ldlt_prod,
+ fr="Factoriser une matrice assemblée en un produit de deux matrices triangulaires"+
+ "ou construire une matrice de préconditionnement pour une résolution par gradient conjugué",
+ reentrant='f', UIinfo={"groupes":("Résolution",)},
regles=(EXCLUS('BLOC_DEBUT','DDL_DEBUT'),
EXCLUS('BLOC_FIN','DDL_FIN'),),
MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
+
+ # mots clés pour solveur LDLT et MULT_FRONT:
STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
NPREC =SIMP(statut='f',typ='I',defaut=8,val_min=0,),
- PRE_COND =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","DIAG") ),
+
+ # mots clés pour solveur LDLT :
BLOC_DEBUT =SIMP(statut='f',typ='I',val_min=1,),
DDL_DEBUT =SIMP(statut='f',typ='I',val_min=1,),
BLOC_FIN =SIMP(statut='f',typ='I',val_min=1,),
DDL_FIN =SIMP(statut='f',typ='I',val_min=1,),
-#
- EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
-# mots clés pour solveur MUMPS :
+ # mots clés pour solveur MUMPS :
TYPE_RESOL =SIMP(statut='f',typ='TXM',defaut='AUTO',into=('NONSYM','SYMGEN','SYMDEF','AUTO')),
- PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=20,),
+ PRETRAITEMENTS =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("SANS","AUTO")),
+ PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=10,),
+ ELIM_LAGR2 =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
+
+ # mots clés pour solveur GCPC :
+ PRE_COND =SIMP(statut='f',typ='TXM',defaut="LDLT_INC",into=("LDLT_INC",) ),
+ NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
INFO =SIMP(statut='f',typ='I',into=(1,2) ),
UIinfo={"groupes":("Fonction",)},
TYPE_FLUI_STRU =SIMP(statut='o',typ=(type_flui_stru) ),
) ;
-#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 19/06/2007 AUTEUR PELLET J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
+def formule_prod(self,VALE,VALE_C,**args):
+ if VALE != None:
+ return formule
+ elif VALE_C != None:
+ return formule_c
+
def form_pyth_ops(self,d):
import types,string
NOM_PARA=self.etape['NOM_PARA']
VALE =self.etape['VALE']
+ VALE_C =self.etape['VALE_C']
if type(NOM_PARA) not in (types.ListType,types.TupleType) : NOM_PARA=[NOM_PARA,]
if self.sd==None : return
- texte=string.join(VALE.splitlines())
-
+ if VALE != None :
+ texte=string.join(VALE.splitlines())
+ elif VALE_C != None :
+ texte=string.join(VALE_C.splitlines())
self.sd.setFormule(NOM_PARA,string.strip(texte))
FORMULE=FORM(nom="FORMULE",op_init=form_pyth_ops,op=-5,
- sd_prod=formule,UIinfo={"groupes":("Fonction",)},
- fr="Définit une formule réelle à partir de son expression mathématique",
+ sd_prod=formule_prod,UIinfo={"groupes":("Fonction",)},
+ fr="Définit une flyingdformule réelle ou complexe à partir de son expression mathématique",
+ regles=(UN_PARMI('VALE','VALE_C',),),
VALE =SIMP(statut='f',typ='TXM'),
+ VALE_C =SIMP(statut='f',typ='TXM'),
NOM_PARA =SIMP(statut='o',typ='TXM',max='**'),
);
#& MODIF COMMANDE DATE 10/10/2006 AUTEUR MCOURTOI M.COURTOIS
UNITE = SIMP(statut='f',typ='I',defaut=38),
AJOUT = SIMP(statut='f', typ='TXM', defaut='NON', into=('OUI', 'NON')),
);
-#& MODIF COMMANDE DATE 09/05/2007 AUTEUR VIVAN L.VIVAN
+#& MODIF COMMANDE DATE 11/09/2007 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
fr="Liste des paramètres de sensibilité.",
ang="List of sensitivity parameters"),),
-# b_partie =BLOC(condition="""((AsType(RESULTAT)==dyna_harmo) or
-# (AsType(CHAM_GD)!=carte_sdaster)) and ((FORMAT=='CASTEM') or (FORMAT=='GMSH'))""",
+ b_partie =BLOC(condition="""(AsType(RESULTAT) in (dyna_harmo, acou_harmo) or
+ AsType(CHAM_GD) != carte_sdaster) and FORMAT in ('CASTEM', 'GMSH', 'MED')""",
PARTIE =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
-# ),
+ ),
b_extrac =BLOC(condition="RESULTAT != None",
fr="extraction d un champ de grandeur",
regles=(EXCLUS('TOUT_CHAM','NOM_CHAM'),
###
b_gmsh=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and((FORMAT == 'GMSH'))""",
fr="sélection des composantes et des entités toplogiques",
- NOM_CMP =SIMP(statut='f',typ='TXM',max='**'),
MAILLE =SIMP(statut='f',typ=ma ,validators=NoRepeat(),max='**'),
GROUP_MA =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+ TYPE_CHAM =SIMP(statut='f',typ='TXM',defaut="SCALAIRE",
+ into=("VECT_2D","VECT_3D","SCALAIRE","TENS_2D","TENS_3D"),),
+ b_scal =BLOC(condition = "TYPE_CHAM=='SCALAIRE'",
+ NOM_CMP =SIMP(statut='f',typ='TXM',max='**' ),),
+ b_vect_2d =BLOC(condition = "TYPE_CHAM=='VECT_2D'",
+ NOM_CMP =SIMP(statut='o',typ='TXM',min=2,max=2 ),),
+ b_vect_3d =BLOC(condition = "TYPE_CHAM=='VECT_3D'",
+ NOM_CMP =SIMP(statut='o',typ='TXM',min=3,max=3 ),),
+ b_tens_2d =BLOC(condition = "TYPE_CHAM=='TENS_2D'",
+ NOM_CMP =SIMP(statut='o',typ='TXM',min=4,max=4 ),),
+ b_tens_3d =BLOC(condition = "TYPE_CHAM=='TENS_3D'",
+ NOM_CMP =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
),
###
b_topologie=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and\
PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
) ;
-#& MODIF COMMANDE DATE 10/05/2006 AUTEUR MCOURTOI M.COURTOIS
+#& MODIF COMMANDE DATE 03/07/2007 AUTEUR SALMONA L.SALMONA
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
"NON_VIDE","MAXI","ABS_MAXI","MINI","ABS_MINI"),),
b_vale =BLOC(condition = "(CRIT_COMP in ('EQ','NE','GT','LT','GE','LE'))",
regles=(UN_PARMI('VALE','VALE_I','VALE_K','VALE_C',),),
- VALE =SIMP(statut='f',typ='R'),
- VALE_I =SIMP(statut='f',typ='I'),
- VALE_C =SIMP(statut='f',typ='C'),
- VALE_K =SIMP(statut='f',typ='TXM'),
+ VALE =SIMP(statut='f',typ='R',max='**'),
+ VALE_I =SIMP(statut='f',typ='I',max='**'),
+ VALE_C =SIMP(statut='f',typ='C',max='**'),
+ VALE_K =SIMP(statut='f',typ='TXM',max='**'),
),
b_crit =BLOC(condition = "CRIT_COMP in ('EQ','NE')",
CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-#& MODIF COMMANDE DATE 13/02/2007 AUTEUR PELLET J.PELLET
+#& MODIF COMMANDE DATE 05/11/2007 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
if TYPE_RESU == "HARM_GENE" : return harm_gene
if TYPE_RESU == "MODE_MECA" : return mode_meca
if TYPE_RESU == "MODE_MECA_C" : return mode_meca_c
+ if TYPE_RESU == "EVOL_VARC" : return evol_varc
raise AsException("type de concept resultat non prevu")
# pour éviter d'écrire 3 fois cette liste :
"SIGM_NOZ2_ELGA", "SIPO_ELNO_DEPL", "SIPO_ELNO_SIEF", "SIPO_NOEU_DEPL",
"SIPO_NOEU_SIEF", "SIRE_ELNO_DEPL", "SIRE_NOEU_DEPL", "TEMP", "THETA",
"VALE_CONT", "VALE_NCOU_MAXI", "VARI_ELNO", "VARI_ELNO_COQU",
- "VARI_ELNO_ELGA", "VARI_ELNO_TUYO", "VARI_NOEU", "VARI_NOEU_ELGA", "VARI_NON_LOCAL",
+ "VARI_ELNO_ELGA", "VARI_ELNO_TUYO", "VARI_NOEU", "VARI_NOEU_ELGA",
"VITE", "VITE_ABSOLU", "VITE_VENT",
)
#----------------------
TYPE_RESU =SIMP(statut='o',typ='TXM',into=("EVOL_THER","EVOL_ELAS","EVOL_NOLI","MODE_MECA",
"MODE_MECA_C","DYNA_TRANS","DYNA_HARMO","HARM_GENE",
- "EVOL_CHAR") ),
+ "EVOL_CHAR","EVOL_VARC") ),
FORMAT =SIMP(statut='o',typ='TXM',into=("IDEAS","IDEAS_DS58","ENSIGHT","MED") ),
regles=(UN_PARMI('MAILLAGE','MODELE'),),
MAILLAGE =SIMP(statut='f',typ=maillage_sdaster),
MODELE =SIMP(statut='f',typ=modele_sdaster),
-
+ COMP_INCR =C_COMP_INCR(),
NB_VARI =SIMP(statut='f',typ='I' ),
CHAM_MATER =SIMP(statut='f',typ=cham_mater,),
UNITE =SIMP(statut='f',typ='I',defaut= 81, fr="Le fichier est : fort.n.",),
FORMAT_MED =FACT(statut='f',max='**',
regles=(ENSEMBLE('NOM_CMP','NOM_CMP_MED'),),
- NOM_CHAM =SIMP(statut='o',typ='TXM',into=l_nom_cham_pas_elga()),
+ NOM_CHAM =SIMP(statut='o',typ='TXM',into=C_NOM_CHAM_INTO(),),
NOM_CHAM_MED =SIMP(statut='o',typ='TXM', fr="Nom du champ dans le fichier MED.", ),
NOM_CMP =SIMP(statut='f',typ='TXM',max='**', fr="Nom des composantes dans ASTER.", ),
NOM_CMP_MED =SIMP(statut='f',typ='TXM',max='**', fr="Nom des composantes dans MED.", ),
),
);
-#& MODIF COMMANDE DATE 03/01/2006 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 04/09/2007 AUTEUR DURAND C.DURAND
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2003 EDF R&D WWW.CODE-ASTER.ORG
b_gma_bord = BLOC( condition = "GROUP_MA_BORD != None",
fr=" calcul des carac. mecaniques",
+ regles=(UN_PARMI('NOEUD','GROUP_NO')),
- NOEUD =SIMP(statut='f',typ=no,max='**',
+ NOEUD =SIMP(statut='f',typ=no, max='**',
+ fr="Simplement pour empecher des pivots nuls le cas echeant. Fournir un noeud quelconque"),
+ GROUP_NO =SIMP(statut='f',typ=grno,max='**',
fr="Simplement pour empecher des pivots nuls le cas echeant. Fournir un noeud quelconque"),
GROUP_MA_INTE =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**',
fr="groupes de mailles linéiques bordant des trous dans la section"),
PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
)
-#& MODIF COMMANDE DATE 12/03/2007 AUTEUR DEVESA G.DEVESA
+#& MODIF COMMANDE DATE 08/11/2007 AUTEUR SALMONA L.SALMONA
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
regles=(EXCLUS('MATR_AMOR','AMOR_REDUIT' ),
PRESENT_ABSENT('MATR_IMPE','MATR_RIGI','MATR_MASS'),),
BASE_MODALE =SIMP(statut='o',typ=base_modale ),
- MATR_RIGI =SIMP(statut='f',typ=matr_asse_depl_r ),
+ MATR_RIGI =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_depl_c),),
MATR_MASS =SIMP(statut='f',typ=matr_asse_depl_r ),
MATR_AMOR =SIMP(statut='f',typ=matr_asse_depl_r ),
AMOR_REDUIT =SIMP(statut='f',typ='R',max='**'),
- OPTION =SIMP(statut='f',typ='TXM',defaut="CLASSIQUE",into=("CLASSIQUE","RITZ",
- "DIAG_MASS") ),
MATR_IMPE =SIMP(statut='f',typ=matr_asse_gene_c ),
b_matr_impe =BLOC(condition = "MATR_IMPE != None",
FREQ_EXTR =SIMP(statut='o',typ='R' ),
LFREQ_LISTE =SIMP(statut='f',typ='R',max='**'),
),
) ;
-#& MODIF COMMANDE DATE 27/03/2007 AUTEUR BOYERE E.BOYERE
+#& MODIF COMMANDE DATE 30/10/2007 AUTEUR BOYERE E.BOYERE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
STURM =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
),
NORM_MODE =FACT(statut='o',max='**',
- MASS_INER =SIMP(statut='o',typ=table_sdaster),
NORME =SIMP(statut='f',typ='TXM',defaut="TRAN_ROTA",
into=("MASS_GENE","RIGI_GENE","EUCL",
"EUCL_TRAN","TRAN","TRAN_ROTA") ),
ELEMENT =FACT(statut='f',),
) ;
-#& MODIF COMMANDE DATE 04/04/2007 AUTEUR ABBAS M.ABBAS
+#& MODIF COMMANDE DATE 23/10/2007 AUTEUR BOITEAU O.BOITEAU
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
b_mumps =BLOC(condition = "METHODE == 'MUMPS' ",fr="Paramètres de la méthode MUMPS",
TYPE_RESOL =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("NONSYM","SYMGEN","SYMDEF","AUTO")),
- SCALING =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("SANS","AUTO")),
+ PRETRAITEMENTS =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("SANS","AUTO")),
RENUM =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("AMD","AMF","PORD","METIS","QAMD","AUTO")),
ELIM_LAGR2 =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=10,),
- RESI_RELA =SIMP(statut='f',typ='R',defaut=1.E-6,),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut=-1.0,),
+ PARALLELISME =SIMP(statut='f',typ='TXM',defaut="CENTRALISE",
+ into=("CENTRALISE","DISTRIBUE_MAILLE","DISTRIBUE_SD")),
+ PARTITION =SIMP(statut='f',typ=sd_feti_sdaster),
+ CHARGE_PROC0_MA =SIMP(statut='f',typ='I',defaut=0,min=0),
+ CHARGE_PROC0_SD =SIMP(statut='f',typ='I',defaut=0,min=0),
),
),
INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
) ;
-#& MODIF COMMANDE DATE 16/05/2007 AUTEUR COURTOIS M.COURTOIS
+#& MODIF COMMANDE DATE 10/09/2007 AUTEUR COURTOIS M.COURTOIS
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
# RESPONSABLE GNICOLAS G.NICOLAS
from Macro.Sensibilite import memo_nom_sensi_ops
-MEMO_NOM_SENSI=MACRO(nom="MEMO_NOM_SENSI",op=memo_nom_sensi_ops,
+def memo_nom_sensi_prod(self, NOM, **kwargs):
+ """Typage des concepts sensibles produits par les commandes principales (de calcul)
+ """
+ TYPE_SD_DERIV = NOM[0]['TYPE_SD_DERIV']
+ NOM_COMPOSE = NOM[0]['NOM_COMPOSE']
+ if TYPE_SD_DERIV:
+ from Cata import cata
+ typsd = getattr(cata, TYPE_SD_DERIV)
+ self.type_sdprod(NOM_COMPOSE, typsd)
+
+
+MEMO_NOM_SENSI=MACRO(nom="MEMO_NOM_SENSI",op=memo_nom_sensi_ops,sd_prod=memo_nom_sensi_prod,
UIinfo={"groupes":("Fonction",)},
fr="Mémorisation des noms des concepts dérivés.",
ang="Memorisation of the names of the sensitive concepts.",
- NOM=FACT(statut='o',max='**',
+ NOM=FACT(statut='o',
regles=(PRESENT_PRESENT('MOT_CLE','VALEUR','MOT_FACT' ),),
NOM_SD=SIMP(statut='o',typ='TXM',
fr="Nom du paramètre sensible",
ang="Name of the sensitive parameter"),
- NOM_COMPOSE=SIMP(statut='f',typ='TXM',defaut=" ",
+ NOM_COMPOSE=SIMP(statut='f',typ=('TXM', CO),defaut=" ",
fr="Nom de la structure composée",
ang="Name of the built structure"),
+ TYPE_SD_DERIV=SIMP(statut='f',typ='TXM',
+ fr="type de la structure composée (usage interne seulement)",
+ ang="Type of the built structure (internal usage only)"),
+
MOT_FACT=SIMP(statut='f',typ='TXM',max='**',
fr="Liste des mots clés facteurs concernés par la dérivation",
ang="Factor keyword list involved in derivation"),
),
)
-#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 18/09/2007 AUTEUR DURAND C.DURAND
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
DIST_REFE =SIMP(statut='f',typ='R' ),
),
CALCUL =FACT(statut='o',
+ regles=(UN_PARMI('TOUT_DIAM','NB_DIAM'),),
TOUT_DIAM =SIMP(statut='f',typ='TXM',into=("OUI",) ),
NB_DIAM =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
OPTION =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE"
),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
) ;
-#& MODIF COMMANDE DATE 30/04/2007 AUTEUR ABBAS M.ABBAS
+#& MODIF COMMANDE DATE 18/09/2007 AUTEUR PELLET J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2004 EDF R&D WWW.CODE-ASTER.ORG
FISSURE =SIMP(statut='o',typ=fiss_xfem,min=1,max=100,),
CRITERE =SIMP(statut='f',typ='R',defaut=1.67E-8),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,)),
- CONTACT =SIMP(statut='f',typ=char_meca,min=1,max=1,),
+ CONTACT =SIMP(statut='f',typ='TXM',defaut='NON',into=("OUI","NON"),min=1,max=1,),
) ;
#& MODIF COMMANDE DATE 10/10/2006 AUTEUR MCOURTOI M.COURTOIS
# CONFIGURATION MANAGEMENT OF EDF VERSION
TITRE =SIMP(statut='f',typ='TXM',max='**'),
INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
) ;
-#& MODIF COMMANDE DATE 31/10/2006 AUTEUR A3BHHAE H.ANDRIAMBOLOLONA
+#& MODIF COMMANDE DATE 30/10/2007 AUTEUR BOYERE E.BOYERE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
),
AVEC_CMP =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
SANS_CMP =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
- MASS_INER =SIMP(statut='f',typ=table_sdaster),
MODE_SIGNE =FACT(statut='f',fr="Imposer un signe sur une des composantes des modes",
NOEUD =SIMP(statut='o',typ=no,fr="Noeud ou sera imposé le signe"),
NOM_CMP =SIMP(statut='o',typ='TXM',fr="Composante du noeud ou sera imposé le signe" ),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
) ;
-#& MODIF COMMANDE DATE 13/12/2006 AUTEUR PELLET J.PELLET
+#& MODIF COMMANDE DATE 10/09/2007 AUTEUR LEFEBVRE J-P.LEFEBVRE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
),
b_mumps =BLOC(condition = "METHODE == 'MUMPS' ",fr="Paramètres de la méthode MUMPS",
RENUM =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("AMD","AMF","PORD","METIS","QAMD","AUTO")),
- ELIM_LAGR2 =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
),
b_gcpc =BLOC(condition="METHODE=='GCPC'",fr="paramètres associés à la méthode gradient conjugué",
RENUM =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK" ),
TITRE =SIMP(statut='f',typ='TXM',max='**' ),
INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
) ;
-#& MODIF COMMANDE DATE 15/05/2007 AUTEUR GENIAUT S.GENIAUT
+#& MODIF COMMANDE DATE 10/07/2007 AUTEUR MARKOVIC D.MARKOVIC
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2005 EDF R&D WWW.CODE-ASTER.ORG
fr="Calcul des champs DEPL et SIEF_ELGA sur le maillage fissuré",
MAILLAGE_SAIN = SIMP(statut='o',typ=maillage_sdaster),
MAILLAGE_FISS = SIMP(statut='o',typ=maillage_sdaster),
- NOM_CHAM = SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',into=("DEPL","SIEF_ELGA"),),
+ NOM_CHAM = SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',into=("DEPL","SIEF_ELGA","VARI_ELGA"),),
MODELE = SIMP(statut='o',typ=modele_sdaster,),
RESULTAT = SIMP(statut='o',typ=resultat_sdaster),
- b_elga = BLOC(condition = "NOM_CHAM == 'SIEF_ELGA' or \
- (type(NOM_CHAM)==type(()) and 'SIEF_ELGA' in NOM_CHAM)",
+ b_elga = BLOC(condition = "NOM_CHAM in ('SIEF_ELGA','VARI_ELGA') or \
+ (type(NOM_CHAM)==type(()) and 'SIEF_ELGA' in NOM_CHAM) or \
+ (type(NOM_CHAM)==type(()) and 'VARI_ELGA' in NOM_CHAM)",
MODELE_VISU = SIMP(statut='o',typ=modele_sdaster,),
),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,) ),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
TITRE =SIMP(statut='f',typ='TXM',max='**' ),
) ;
-#& MODIF COMMANDE DATE 12/09/2006 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 05/11/2007 AUTEUR PROIX J-M.PROIX
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
UIinfo={"groupes":("Post traitements",)},
fr="Calcul de quantités globales (masse, inerties, énergie, ...) sur tout ou partie du modèle",
- regles=(UN_PARMI('MASS_INER', 'ENER_POT', 'ENER_CIN','TRAV_EXT',
+ regles=(UN_PARMI('MASS_INER', 'ENER_POT', 'ENER_CIN','TRAV_EXT','MINMAX',
'WEIBULL', 'RICE_TRACEY', 'CARA_GEOM','CHAR_LIMITE',
'CARA_POUTRE', 'INDIC_ENER', 'INDIC_SEUIL',
'AIRE_INTERNE','ENER_ELAS','ENER_TOTALE','INTEGRALE'),
LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
),
+
+ MINMAX = FACT(statut='f',max=1,
+ fr="calcul des extrema en espace d'une CMP d'un champ, pour tous les instants spécifiés",
+ regles=(UN_PARMI('CHAM_GD','RESULTAT'),
+ PRESENT_PRESENT('CHAM_GD','MODELE'),
+ PRESENT_PRESENT('RESULTAT','NOM_CHAM'),
+ AU_MOINS_UN('TOUT','GROUP_MA'),),
+ TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+ RESULTAT = SIMP(statut='f',typ=(evol_noli,evol_ther,evol_elas) ),
+ NOM_CHAM = SIMP(statut='f',typ='TXM',into=C_NOM_CHAM_INTO()),
+ CHAM_GD = SIMP(statut='f',typ=(cham_no_sdaster,cham_elem) ),
+ MODELE = SIMP(statut='f',typ=modele_sdaster),
+ NOM_CMP = SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**'),
+ b_minmax = BLOC(condition = "( RESULTAT != None )",
+ regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
+ PRECISION = SIMP(statut='f',typ='R',defaut= 1.0E-3),
+ CRITERE = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
+ TOUT_ORDRE = SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ NUME_ORDRE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+ LIST_ORDRE = SIMP(statut='f',typ=listis_sdaster),
+ INST = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
+ LIST_INST = SIMP(statut='f',typ=listr8_sdaster),
+ ),
+ ),
+
WEIBULL = FACT(statut='f',max='**',
regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
TOUT = SIMP(statut='f',typ='TXM',into=("OUI",) ),
INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-#& MODIF COMMANDE DATE 31/10/2006 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 23/07/2007 AUTEUR COURTOIS M.COURTOIS
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2006 EDF R&D WWW.CODE-ASTER.ORG
fr="Calcul du critère énergétique Gp suite à un calcul thermo-mécanique",
reentrant='n',
UIinfo={"groupes":("Post traitements",)},
- regles=(AU_MOINS_UN('IDENTIFICATION', 'PREDICTION'),),
+ regles=(UN_PARMI('IDENTIFICATION', 'PREDICTION'),),
# Résultat, modèle, comportement, chargement
RESULTAT = SIMP(statut='o',typ=(evol_elas,evol_noli,dyna_trans,mode_meca),),
TITRE =SIMP(statut='f',typ='TXM'),
)
-#& MODIF COMMANDE DATE 15/05/2007 AUTEUR GENIAUT S.GENIAUT
+#& MODIF COMMANDE DATE 17/07/2007 AUTEUR GENIAUT S.GENIAUT
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2005 EDF R&D WWW.CODE-ASTER.ORG
fr="Crée un maillage se conformant à la fissure pour le post-traitement des éléments XFEM",
MODELE = SIMP(statut='o',typ=modele_sdaster),
MAILLAGE_SAIN = SIMP(statut='o',typ=maillage_sdaster),
+ PREF_NOEUD_X =SIMP(statut='f',typ='TXM',defaut="NX",validators=LongStr(1,2),),
+ PREF_NOEUD_M =SIMP(statut='f',typ='TXM',defaut="NM",validators=LongStr(1,2),),
+ PREF_NOEUD_P =SIMP(statut='f',typ='TXM',defaut="NP",validators=LongStr(1,2),),
+ PREF_MAILLE_X =SIMP(statut='f',typ='TXM',defaut="MX",validators=LongStr(1,2),),
TITRE = SIMP(statut='f',typ='TXM',max='**'),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,) ),
CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
) ;
-#& MODIF COMMANDE DATE 19/02/2007 AUTEUR LEFEBVRE J-P.LEFEBVRE
+#& MODIF COMMANDE DATE 12/11/2007 AUTEUR LEFEBVRE J-P.LEFEBVRE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
PARTITION =SIMP(statut='f',typ='R' ),
DYNAMIQUE =SIMP(statut='f',typ='I'),
),
- RESERVE_CPU =FACT(fr="reserve de temps pour terminer une execution",statut='f',max=1,
+
+ RESERVE_CPU =FACT(fr="reserve de temps pour terminer une execution",statut='d',max=1,
regles=(EXCLUS('VALE','POURCENTAGE'),),
VALE =SIMP(statut='f',typ='I',val_min=0),
+# valeur par défaut fixée à 10. dans le FORTRAN si CODE présent
POURCENTAGE =SIMP(statut='f',typ='R',val_min=0.,val_max=1.0),
-# valeur en pourcentage du temps maximum bornée à 180 secondes
- BORNE =SIMP(statut='f',typ='I',val_min=0,defaut=180)
- ),
- CODE =FACT("définition d un nom pour l'esemble d'une étude",
+# valeur par défaut fixée à 10% dans le FORTRAN
+ BORNE =SIMP(statut='f',typ='I',val_min=0,defaut=900) ),
+# valeur en pourcentage du temps maximum bornée à 900 secondes
+
+ CODE =FACT("définition d'un nom pour l'ensemble d'une étude",
statut='f',min=1,max=1,
NOM =SIMP(statut='o',typ='TXM'),
- UNITE =SIMP(statut='f',typ='I',defaut=15),
),
) ;
#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
CHAM_NO =SIMP(statut='o',typ=cham_no_sdaster),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-#& MODIF COMMANDE DATE 09/05/2007 AUTEUR VIVAN L.VIVAN
+#& MODIF COMMANDE DATE 02/10/2007 AUTEUR PELLET J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
if CHAM_NO_REFE != None : return cham_no_sdaster
raise AsException("type de concept resultat non prevu")
+
PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,reentrant='f',
UIinfo={"groupes":("Résultats et champs",)},
fr="Projeter les champs aux noeuds d'une SD résultat de type evol_xxx sur un autre maillage",
-#
+
+
METHODE =SIMP(statut='f',typ='TXM',defaut="ELEM",
into=("NUAGE_DEG_0","NUAGE_DEG_1","ELEM",) ),
+
+
+ # Méthode NUAGE_xxx :
+ #--------------------
b_nuage =BLOC(condition="(METHODE=='NUAGE_DEG_1') or (METHODE=='NUAGE_DEG_0')",
fr="Lissage d'un nuage de points",
CHAM_NO =SIMP(statut='o',typ=cham_no_sdaster),
CHAM_NO_REFE =SIMP(statut='o',typ=cham_no_sdaster),
),
+
+
+
+ # Méthode ELEM :
+ #--------------------
b_elem =BLOC(condition="METHODE=='ELEM'",
fr="Utilisation des fonctions de forme du maillage initial",
regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','LIST_INST','LIST_FREQ','LIST_ORDRE'),
TOUT_CHAM =SIMP(statut='f',typ='TXM',into=("OUI",) ),
NOM_CHAM =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
-# POUR IMPOSER LA NUMEROTATION DES DDLS :
-# ------------------------------------------------------------------
- NUME_DDL =SIMP(statut='f',typ=(nume_ddl_sdaster) ),
+ NUME_DDL =SIMP(statut='f',typ=(nume_ddl_sdaster),
+ fr="Utile en dynamique pour pouvoir imoser la numérotation des cham_no."),
TOUT_ORDRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
NOEUD_CMP =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
- CAS_FIGURE =SIMP(statut='f',typ='TXM',into=("2D","3D","2.5D","1.5D",) ),
+ CAS_FIGURE =SIMP(statut='f',typ='TXM',into=("2D","3D","2.5D","1.5D",),
+ fr="Pour indiquer au programme le type de projection souhaité"),
DISTANCE_MAX =SIMP(statut='f',typ='R',
fr="Distance maximale entre le noeud et l'élément le plus proche, lorsque le noeud n'est dans aucun élément."),
TRANSF_GEOM_2 =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),min=2,max=3,
fr="Pour forcer le type des champs projetés. NOEU -> cham_no"),
PROL_ZERO =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON",
- fr="Si le résultat est un mode_xxx ou une base_xxx, on peut prolonger"
- +" les champs par zéro la ou la projection ne donne pas de valeurs."),
+ fr="Pour prolonger les champs par zéro là ou la projection ne donne pas de valeurs."),
),
+
+
+ # Mots clés utilisables avec les 2 méthodes :
+ #---------------------------------------------
+ TITRE =SIMP(statut='f',typ='TXM',max='**' ),
+ INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
+
VIS_A_VIS =FACT(statut='f',max='**',
regles=(AU_MOINS_UN('TOUT_1','GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
AU_MOINS_UN('TOUT_2','GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),),
fr="2 (ou 3) fonctions fx,fy,fz définissant la transformation géométrique à appliquer"+
" aux noeuds du MODELE_2 avant la projection."),
),
-
- TITRE =SIMP(statut='f',typ='TXM',max='**' ),
- INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
) ;
#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
NOM_PARA =SIMP(statut='f',typ='TXM',max='**'),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
) ;
-#& MODIF COMMANDE DATE 21/02/2006 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 08/10/2007 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
-# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
-# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
-# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
-# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
-# (AT YOUR OPTION) ANY LATER VERSION.
-#
-# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
-# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
-# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
-# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
-#
-# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
-# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
-# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
+# COPYRIGHT (C) 1991 - 2007 EDF R&D WWW.CODE-ASTER.ORG
+# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
+# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
+# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
+# (AT YOUR OPTION) ANY LATER VERSION.
+#
+# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
+# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
+# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
+# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
+#
+# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
+# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
+# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
# ======================================================================
-RESO_GRAD=OPER(nom="RESO_GRAD",op= 84,sd_prod=cham_no_sdaster,
- fr="Résolution d'un système linéaire par la méthode du gradient conjugué préconditionné",
- reentrant='f',
- UIinfo={"groupes":("Résolution",)},
- MATR_ASSE =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
+RESOUDRE=OPER(nom="RESOUDRE",op=15,sd_prod=cham_no_sdaster,reentrant='f',
+ fr="Résolution par méthode directe un système d'équations linéaires préalablement factorisé par FACT_LDLT"+
+ "ou Résolution d'un système linéaire par la méthode du gradient conjugué préconditionné",
+ UIinfo={"groupes":("Résolution",)},
+ MATR =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
+ matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
CHAM_NO =SIMP(statut='o',typ=cham_no_sdaster),
CHAM_CINE =SIMP(statut='f',typ=cham_no_sdaster),
- MATR_FACT =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
+
+ # mot-clé commun aux solveurs MUMPS et GCPC:
+ RESI_RELA =SIMP(statut='f',typ='R',defaut=1.E-6),
+
+ # mots-clés pour solver GCPC:
+ MATR_PREC =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
REPRISE =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
- RESI_RELA =SIMP(statut='f',typ='R',defaut= 1E-6 ),
- INFO =SIMP(statut='f',typ='I',into=(1,2) ),
-) ;
-#& MODIF COMMANDE DATE 21/02/2006 AUTEUR REZETTE C.REZETTE
-# CONFIGURATION MANAGEMENT OF EDF VERSION
-# ======================================================================
-# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
-# THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
-# IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
-# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
-# (AT YOUR OPTION) ANY LATER VERSION.
-#
-# THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
-# WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
-# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
-# GENERAL PUBLIC LICENSE FOR MORE DETAILS.
-#
-# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
-# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
-# 1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
-# ======================================================================
-# RESPONSABLE VABHHTS J.PELLET
-RESO_LDLT=OPER(nom="RESO_LDLT",op=15,sd_prod=cham_no_sdaster,reentrant='f',
- fr="Résoudre par méthode directe un système d'équations linéaires préalablement factorisé par FACT_LDLT",
- UIinfo={"groupes":("Résolution",)},
- MATR_FACT =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
- matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
- CHAM_NO =SIMP(statut='o',typ=cham_no_sdaster),
- CHAM_CINE =SIMP(statut='f',typ=cham_no_sdaster),
- # RESI_RELA : précision utilisée si SOLVEUR=MUMPS
- RESI_RELA =SIMP(statut='f',typ='R',defaut=1.e-6),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
INFO =SIMP(statut='f',typ='I',into=(1,2) ),
) ;
into=("DIAG_TOUT","DIAG_DIAG","TOUT_TOUT","TOUT_DIAG") ),
TITRE =SIMP(statut='f',typ='TXM',max='**' ),
) ;
-#& MODIF COMMANDE DATE 23/04/2007 AUTEUR PROIX J-M.PROIX
+#& MODIF COMMANDE DATE 26/06/2007 AUTEUR REZETTE C.REZETTE
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2006 EDF R&D WWW.CODE-ASTER.ORG
NUME_INIT =SIMP(statut='f',typ='I'),
DETR_NUME_SUIV =SIMP(statut='f',typ='TXM',into=("OUI",)),
CHAM_EXCLU =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**',
- into=("DEPL","SIEF_ELGA","VARI_ELGA","VARI_NON_LOCAL","LANL_ELGA")),
+ into=("DEPL","SIEF_ELGA","VARI_ELGA","LANL_ELGA")),
),
MODELISATION =SIMP(statut='f',typ='TXM',defaut="3D",validators=NoRepeat(),max=1,
into=("3D","C_PLAN","D_PLAN",)),
fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit les md5"),
) ;
-#& MODIF COMMANDE DATE 30/05/2007 AUTEUR ABBAS M.ABBAS
+#& MODIF COMMANDE DATE 23/10/2007 AUTEUR BOITEAU O.BOITEAU
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
RESO_INTE =SIMP(statut='f',typ='TXM',defaut="IMPLICITE",
into=("RUNGE_KUTTA_2","RUNGE_KUTTA_4","IMPLICITE")),
RELATION =SIMP(statut='o',typ='TXM',defaut="ELAS",
- into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
+ into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC","ELAS_VMIS_PUIS",
"ELAS_POUTRE_GR","CABLE","ELAS_HYPER")),
ELAS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
ELAS_VMIS_TRAC =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
ELAS_VMIS_LINE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
+ ELAS_VMIS_PUIS =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
ELAS_HYPER =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
ELAS_POUTRE_GR =SIMP(statut='c',typ='I',defaut=3,into=(3,)),
CABLE =SIMP(statut='c',typ='I',defaut=1,into=(1,)),
),
b_reuse =BLOC(condition = "reuse",fr="en mode concept reentrant : ETAT_INIT obligatoire",
ETAT_INIT =FACT(statut='o',
- regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI','VARI_NON_LOCAL',),
+ regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI',),
EXCLUS('EVOL_NOLI','DEPL',),
EXCLUS('EVOL_NOLI','SIGM',),
EXCLUS('EVOL_NOLI','VARI',),
- EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
EXCLUS('NUME_ORDRE','INST'), ),
DEPL =SIMP(statut='f',typ=cham_no_sdaster),
SIGM =SIMP(statut='f',typ=(cham_elem,carte_sdaster)),
VARI =SIMP(statut='f',typ=cham_elem),
- VARI_NON_LOCAL =SIMP(statut='f',typ=cham_no_sdaster),
EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
NUME_ORDRE =SIMP(statut='f',typ='I'),
INST =SIMP(statut='f',typ='R'),
),),
b_not_reuse =BLOC(condition = "not reuse",fr="en mode concept non reentrant : ETAT_INIT facultatif",
ETAT_INIT =FACT(statut='f',
- regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI','VARI_NON_LOCAL',),
+ regles=(AU_MOINS_UN('EVOL_NOLI','DEPL','SIGM','VARI',),
EXCLUS('EVOL_NOLI','DEPL',),
EXCLUS('EVOL_NOLI','SIGM',),
EXCLUS('EVOL_NOLI','VARI',),
- EXCLUS('EVOL_NOLI','VARI_NON_LOCAL',),
EXCLUS('NUME_ORDRE','INST'), ),
DEPL =SIMP(statut='f',typ=cham_no_sdaster),
SIGM =SIMP(statut='f',typ=(cham_elem,carte_sdaster)),
VARI =SIMP(statut='f',typ=cham_elem),
- VARI_NON_LOCAL =SIMP(statut='f',typ=cham_no_sdaster),
EVOL_NOLI =SIMP(statut='f',typ=evol_noli),
NUME_ORDRE =SIMP(statut='f',typ='I'),
INST =SIMP(statut='f',typ='R'),
b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
),
- b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
+ b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' or METHODE == 'FETI'",
fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","DECOUPE") ),
),
b_mumps =BLOC(condition = "METHODE == 'MUMPS' ",fr="Paramètres de la méthode MUMPS",
TYPE_RESOL =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("NONSYM","SYMGEN","SYMDEF","AUTO")),
- SCALING =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("SANS","AUTO")),
+ PRETRAITEMENTS =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("SANS","AUTO")),
RENUM =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("AMD","AMF","PORD","METIS","QAMD","AUTO")),
ELIM_LAGR2 =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=10,),
RESI_RELA =SIMP(statut='f',typ='R',defaut=-1.0,),
+ PARALLELISME =SIMP(statut='f',typ='TXM',defaut="CENTRALISE",
+ into=("CENTRALISE","DISTRIBUE_MAILLE","DISTRIBUE_SD")),
+ PARTITION =SIMP(statut='f',typ=sd_feti_sdaster),
+ CHARGE_PROC0_MA =SIMP(statut='f',typ='I',defaut=0,min=0),
+ CHARGE_PROC0_SD =SIMP(statut='f',typ='I',defaut=0,min=0),
),
b_feti =BLOC(condition = "METHODE == 'FETI' ",fr="Paramètres de la méthode FETI 1",
PARTITION =SIMP(statut='o',typ=sd_feti_sdaster),
ARCH_ETAT_INIT =SIMP(statut='f',typ='TXM',into=("OUI",)),
NUME_INIT =SIMP(statut='f',typ='I'),
DETR_NUME_SUIV =SIMP(statut='f',typ='TXM',into=("OUI",)),
- CHAM_EXCLU =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**',into=("DEPL","SIEF_ELGA","VARI_ELGA",
- "VARI_NON_LOCAL","LANL_ELGA")),
+ CHAM_EXCLU =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**',
+ into=("DEPL","SIEF_ELGA","VARI_ELGA","LANL_ELGA")),
),
OBSERVATION =FACT(statut='f',max='**',
NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
fr="Liste des paramètres de sensibilité",
ang="List of sensitivity parameters"),
- SOLV_NON_LOCAL =FACT(statut='f',
- METHODE =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC","MUMPS") ),
- b_mult_front =BLOC(condition = "METHODE == 'MULT_FRONT' ",fr="Paramètres de la méthode multi frontale",
- RENUM =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
- ),
- b_ldlt =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
- RENUM =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
- ),
- b_ldlt_mult =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
- fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
- NPREC =SIMP(statut='f',typ='I',defaut= 8 ),
- STOP_SINGULIER =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
- ),
- b_mumps =BLOC(condition = "METHODE == 'MUMPS' ",fr="Paramètres de la méthode MUMPS",
- TYPE_RESOL =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("NONSYM","SYMGEN","SYMDEF","AUTO")),
- SCALING =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("SANS","AUTO")),
- RENUM =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("AMD","AMF","PORD","METIS","QAMD","AUTO")),
- ELIM_LAGR2 =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
- PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=10,),
- RESI_RELA =SIMP(statut='f',typ='R',defaut=-1.0,),
- ),
- b_gcpc =BLOC(condition = "METHODE == 'GCPC' ", fr="Paramètres de la méthode du gradient conjugué",
- PRE_COND =SIMP(statut='f',typ='TXM',into=("LDLT_INC",),defaut="LDLT_INC" ),
- NIVE_REMPLISSAGE=SIMP(statut='f',typ='I',defaut= 0 ),
- RESI_RELA =SIMP(statut='f',typ='R',defaut= 1.E-6 ),
- NMAX_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
- ),
- EPS =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
- ),
- LAGR_NON_LOCAL =FACT(statut='f',
- ITER_DUAL_MAXI =SIMP(statut='f',typ='I',defaut= 50),
- RESI_DUAL_ABSO =SIMP(statut='o',typ='R'),
- RESI_PRIM_ABSO =SIMP(statut='o',typ='R'),
- R =SIMP(statut='f',typ='R',defaut= 1000.),
- ITER_PRIM_MAXI =SIMP(statut='f',typ='I',defaut= 10),
- ),
INFO =SIMP(statut='f',typ='I',into=(1,2) ),
TITRE =SIMP(statut='f',typ='TXM',max='**' ),
)
),
),
) ;
-#& MODIF COMMANDE DATE 10/10/2006 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 19/06/2007 AUTEUR PELLET J.PELLET
# RESPONSABLE VABHHTS J.PELLET
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
),
OBJET =FACT(statut='f',max='**',
- regles=(UN_PARMI('S_I','S_R','RESUME',),
- UN_PARMI('VALE','VALE_I','VALE_C','RESUME','S_R','S_I'),),
+ regles=(UN_PARMI('S_I','S_R',),
+ UN_PARMI('VALE','VALE_I','VALE_C','S_R','S_I'),),
NOM =SIMP(statut='o',typ='TXM'),
S_R =SIMP(statut='f',typ='R'),
S_I =SIMP(statut='f',typ='I'),
- RESUME =SIMP(statut='f',typ='I'),
VALE =SIMP(statut='f',typ='R'),
VALE_I =SIMP(statut='f',typ='I'),
VALE_C =SIMP(statut='f',typ='C'),
INFO =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
),
) ;
-#& MODIF COMMANDE DATE 13/12/2006 AUTEUR PELLET J.PELLET
+#& MODIF COMMANDE DATE 08/11/2007 AUTEUR SALMONA L.SALMONA
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
FONC_MULT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
),
INCREMENT =FACT(statut='f',
- LIST_INST =SIMP(statut='o',typ=listr8_sdaster ),
- NUME_INIT =SIMP(statut='f',typ='I'),
- NUME_FIN =SIMP(statut='f',typ='I'),
+ regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
+ EXCLUS('NUME_INST_FIN','INST_FIN'),),
+ LIST_INST =SIMP(statut='o',typ=listr8_sdaster),
+ EVOLUTION =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
+ into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
+ NUME_INST_INIT =SIMP(statut='f',typ='I'),
+ INST_INIT =SIMP(statut='f',typ='R'),
+ NUME_INST_FIN =SIMP(statut='f',typ='I'),
+ INST_FIN =SIMP(statut='f',typ='R'),
+ PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
),
- TEMP_INIT =FACT(statut='f',
+ ETAT_INIT =FACT(statut='f',
regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
- STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+ STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",)),
EVOL_THER =SIMP(statut='f',typ=evol_ther),
CHAM_NO =SIMP(statut='f',typ=cham_no_sdaster),
VALE =SIMP(statut='f',typ='R'),
- NUME_INIT =SIMP(statut='f',typ='I'),
+ NUME_ORDRE =SIMP(statut='f',typ='I'),
+ INST =SIMP(statut='f',typ='R'),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ INST_ETAT_INIT =SIMP(statut='f',typ='R'),
),
SENSIBILITE =SIMP(statut='f',typ=(para_sensi,theta_geom),validators=NoRepeat(),max='**',
fr="Liste des paramètres de sensibilité.",
),
b_mumps =BLOC(condition = "METHODE == 'MUMPS' ",fr="Paramètres de la méthode MUMPS",
TYPE_RESOL =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("NONSYM","SYMGEN","SYMDEF","AUTO")),
- SCALING =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("SANS","AUTO")),
+ PRETRAITEMENTS =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("SANS","AUTO")),
RENUM =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("AMD","AMF","PORD","METIS","QAMD","AUTO")),
ELIM_LAGR2 =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=10,),
- RESI_RELA =SIMP(statut='f',typ='R',defaut=1.E-6,),
+ RESI_RELA =SIMP(statut='f',typ='R',defaut=-1.0,),
+ PARALLELISME =SIMP(statut='f',typ='TXM',defaut="CENTRALISE",
+ into=("CENTRALISE","DISTRIBUE_MAILLE","DISTRIBUE_SD")),
+ PARTITION =SIMP(statut='f',typ=sd_feti_sdaster),
+ CHARGE_PROC0_MA =SIMP(statut='f',typ='I',defaut=0,min=0),
+ CHARGE_PROC0_SD =SIMP(statut='f',typ='I',defaut=0,min=0),
),
),
PARM_THETA =SIMP(statut='f',typ='R',defaut= 0.57),
ARCHIVAGE =FACT(statut='f',
- regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST'),),
- LIST_ARCH =SIMP(statut='f',typ=listis_sdaster),
- LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
- INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",
- into=("RELATIF","ABSOLU")),
- PAS_ARCH =SIMP(statut='f',typ='I'),
- CHAM_EXCLU =SIMP(statut='f',typ='TXM',into=("VARI",)),
+ regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
+ EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
+ LIST_INST =SIMP(statut='f',typ=(listr8_sdaster) ),
+ INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
+ PAS_ARCH =SIMP(statut='f',typ='I' ),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
+ ARCH_ETAT_INIT =SIMP(statut='f',typ='TXM',into=("OUI",)),
+ NUME_INIT =SIMP(statut='f',typ='I'),
+ DETR_NUME_SUIV =SIMP(statut='f',typ='TXM',into=("OUI",)),
+ CHAM_EXCLU =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**',
+ into=("VARI",)),
),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
INFO =SIMP(statut='f',typ='I',into=(1,2)),
) ;
-#& MODIF COMMANDE DATE 13/12/2006 AUTEUR PELLET J.PELLET
+#& MODIF COMMANDE DATE 08/11/2007 AUTEUR SALMONA L.SALMONA
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
FONC_MULT =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
),
INCREMENT =FACT(statut='f',
+ regles=(EXCLUS('NUME_INST_INIT','INST_INIT'),
+ EXCLUS('NUME_INST_FIN','INST_FIN'),),
LIST_INST =SIMP(statut='o',typ=listr8_sdaster),
- NUME_INIT =SIMP(statut='f',typ='I'),
- NUME_FIN =SIMP(statut='f',typ='I'),
+ EVOLUTION =SIMP(statut='f',typ='TXM',defaut="CHRONOLOGIQUE",
+ into=("CHRONOLOGIQUE","RETROGRADE","SANS",) ),
+ NUME_INST_INIT =SIMP(statut='f',typ='I'),
+ INST_INIT =SIMP(statut='f',typ='R'),
+ NUME_INST_FIN =SIMP(statut='f',typ='I'),
+ INST_FIN =SIMP(statut='f',typ='R'),
+ PRECISION =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
+ # DEBUT DE BLOC POUR LA SUBDIVISION DES PAS DE TEMPS
+ SUBD_METHODE =SIMP( statut='f',typ='TXM',
+ into =("AUCUNE","UNIFORME","EXTRAPOLE"),
+ defaut="AUCUNE",
+ fr="Méthode de subdivision des pas de temps en cas de non-convergence"
+ ),
+ b_subd_unif=BLOC(condition = "SUBD_METHODE == 'UNIFORME'",
+ regles=(AU_MOINS_UN('SUBD_NIVEAU','SUBD_PAS_MINI'),),
+ SUBD_COEF_PAS_1=SIMP(statut='f',typ='R',defaut=1.0,val_min=0.0,
+ fr="Coefficient multiplicateur de la 1ère subdivision"),
+ SUBD_PAS =SIMP(statut='f',typ='I',defaut=4,val_min=2,
+ fr="Nombre de subdivision d'un pas de temps"),
+ SUBD_NIVEAU=SIMP(statut='f',typ='I',val_min=2,
+ fr="Nombre maximum de niveau de subdivision d'un pas de temps"),
+ SUBD_PAS_MINI=SIMP(statut='f',typ='R',val_min=0.0,
+ fr="Pas de temps en dessous duquel on ne subdivise plus"),
+ ),
+ b_subd_extr=BLOC(condition = "SUBD_METHODE == 'EXTRAPOLE'",
+ regles=(AU_MOINS_UN('SUBD_NIVEAU','SUBD_PAS_MINI'),),
+ SUBD_OPTION =SIMP(statut='f',typ='TXM',
+ into =("IGNORE_PREMIERES","GARDE_DERNIERES",),
+ defaut="IGNORE_PREMIERES",
+ fr="Technique d'extrapolation : les 1ere itérations sont ignorées ou les dernières sont gardées"),
+ SUBD_ITER_IGNO =SIMP(statut='c',typ='I',defaut=3,val_min=0,
+ fr="Les n premières itérations sont ignorées pour l'extrapolation"),
+ SUBD_ITER_FIN =SIMP(statut='c',typ='I',defaut=8,val_min=3,
+ fr="Seules les n dernières itérations sont prises pour l'extrapolation"),
+ SUBD_PAS =SIMP(statut='c',typ='I',defaut=4,val_min=2,
+ fr="Nombre de subdivision d'un pas de temps en cas divergence"),
+ SUBD_NIVEAU=SIMP(statut='f',typ='I',val_min=2,
+ fr="Nombre maximum de niveau de subdivision d'un pas de temps"),
+ SUBD_PAS_MINI=SIMP(statut='f',typ='R',val_min=0.0,
+ fr="Pas de temps en dessous duquel on ne subdivise plus"),
+ SUBD_ITER_PLUS =SIMP(statut='c',typ='I',defaut=50,val_min=20,
+ fr="% itération autorisée en plus"),
+ ),
+ # FIN DE BLOC POUR LA SUBDIVISION DES PAS DE TEMPS
),
- TEMP_INIT =FACT(statut='f',
+ ETAT_INIT =FACT(statut='f',
regles=(EXCLUS('STATIONNAIRE','EVOL_THER','CHAM_NO','VALE'),),
STATIONNAIRE =SIMP(statut='f',typ='TXM',into=("OUI",)),
EVOL_THER =SIMP(statut='f',typ=evol_ther),
CHAM_NO =SIMP(statut='f',typ=cham_no_sdaster),
VALE =SIMP(statut='f',typ='R'),
- NUME_INIT =SIMP(statut='f',typ='I'),
+ NUME_ORDRE =SIMP(statut='f',typ='I'),
+ INST =SIMP(statut='f',typ='R'),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
+ INST_ETAT_INIT =SIMP(statut='f',typ='R'),
),
NEWTON =FACT(statut='d',
REAC_ITER =SIMP(statut='f',typ='I',defaut= 0 ),
),
b_mumps =BLOC(condition = "METHODE == 'MUMPS' ",fr="Paramètres de la méthode MUMPS",
TYPE_RESOL =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("NONSYM","SYMGEN","SYMDEF","AUTO")),
- SCALING =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("SANS","AUTO")),
+ PRETRAITEMENTS =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("SANS","AUTO")),
RENUM =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("AMD","AMF","PORD","METIS","QAMD","AUTO")),
ELIM_LAGR2 =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
PCENT_PIVOT =SIMP(statut='f',typ='I',defaut=10,),
RESI_RELA =SIMP(statut='f',typ='R',defaut=-1.0,),
+ PARALLELISME =SIMP(statut='f',typ='TXM',defaut="CENTRALISE",
+ into=("CENTRALISE","DISTRIBUE_MAILLE","DISTRIBUE_SD")),
+ PARTITION =SIMP(statut='f',typ=sd_feti_sdaster),
+ CHARGE_PROC0_MA =SIMP(statut='f',typ='I',defaut=0,min=0),
+ CHARGE_PROC0_SD =SIMP(statut='f',typ='I',defaut=0,min=0),
),
SYME =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
),
PARM_THETA =SIMP(statut='f',typ='R',defaut= 0.57 ),
ARCHIVAGE =FACT(statut='f',
- regles=(UN_PARMI('LIST_ARCH','PAS_ARCH','LIST_INST','INST', ),),
- LIST_ARCH =SIMP(statut='f',typ=(listis_sdaster) ),
+ regles=(EXCLUS('PAS_ARCH','LIST_INST','INST'),
+ EXCLUS('ARCH_ETAT_INIT','NUME_INIT'), ),
LIST_INST =SIMP(statut='f',typ=(listr8_sdaster) ),
- INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
- PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
- CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
- PAS_ARCH =SIMP(statut='f',typ='I'),
- CHAM_EXCLU =SIMP(statut='f',typ='TXM',into=("VARI",)),
+ INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
+ PAS_ARCH =SIMP(statut='f',typ='I' ),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3),
+ ARCH_ETAT_INIT =SIMP(statut='f',typ='TXM',into=("OUI",)),
+ NUME_INIT =SIMP(statut='f',typ='I'),
+ DETR_NUME_SUIV =SIMP(statut='f',typ='TXM',into=("OUI",)),
+ CHAM_EXCLU =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**',
+ into=("VARI",)),
+ ),
+ OBSERVATION =FACT(statut='f',max='**',
+ NOM_CMP =SIMP(statut='o',typ='TXM',max='**' ),
+ SUIVI_DDL =SIMP(statut='c',typ='TXM',defaut="NON",max=1,into=("NON",)),
+ b_non_suivi =BLOC(condition = "SUIVI_DDL == 'NON' ",
+ regles=(UN_PARMI('NOEUD','GROUP_NO')),
+ NOEUD =SIMP(statut='f',typ=no ,validators=NoRepeat(),max='**'),
+ GROUP_NO =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+ NOM_CHAM =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',into=("TEMP",)),
+ INST =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
+ LIST_INST =SIMP(statut='f',typ=listr8_sdaster),
+ PAS_OBSE =SIMP(statut='f',typ='I'),
+ LIST_ARCH =SIMP(statut='f',typ=listis_sdaster),
+ PRECISION =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
+ CRITERE =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),),
),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
OPTION =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max=2,
INFO =SIMP(statut='f',typ='I',into=(1,2) ),
) ;
-#& MODIF COMMANDE DATE 22/06/2005 AUTEUR REZETTE C.REZETTE
+#& MODIF COMMANDE DATE 08/11/2007 AUTEUR SALMONA L.SALMONA
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2001 EDF R&D WWW.CODE-ASTER.ORG
CHARGE =SIMP(statut='o',typ=char_ther ),
FONC_MULT =SIMP(statut='c',typ=(fonction_sdaster,nappe_sdaster,formule) ),
),
- TEMP_INIT =FACT(statut='f',
+ ETAT_INIT =FACT(statut='f',
EVOL_THER =SIMP(statut='f',typ=evol_ther ),
- NUME_INIT =SIMP(statut='f',typ='I',defaut= 0 ),
+ NUME_ORDRE =SIMP(statut='f',typ='I',defaut= 0 ),
),
CONVERGENCE =FACT(statut='d',
CRIT_TEMP_RELA =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
