1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
# CONFIGURATION MANAGEMENT OF EDF VERSION
# ======================================================================
# COPYRIGHT (C) 1991 - 2013 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.
# ======================================================================
# person_in_charge: olivier.boiteau at edf.fr
INFO_MODE=OPER(nom="INFO_MODE",op=32,sd_prod=table_sdaster,
fr="Calculer, imprimer, et sauvegarder le nombre de valeurs propres dans un contour donné",
UIinfo={"groupes":("Résolution","Dynamique",)},
TYPE_MODE =SIMP(statut='f',typ='TXM',defaut="DYNAMIQUE",into=("MODE_COMPLEXE","DYNAMIQUE",
"MODE_FLAMB", "GENERAL"),
fr="Type d analyse" ),
INFO =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
b_dynamique =BLOC(condition = "TYPE_MODE == 'DYNAMIQUE'",fr="Recherche du nombre de fréquences propres",
MATR_RIGI =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r,matr_asse_gene_r,
matr_asse_depl_c,matr_asse_gene_c) ),
MATR_MASS =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r,matr_asse_gene_r) ),
FREQ =SIMP(statut='o',typ='R',min=2,max='**',
validators=AndVal((OrdList('croissant'), NoRepeat())),
fr="Liste de frequences" ),
COMPTAGE =FACT(statut='d',
METHODE =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("AUTO","STURM")),
SEUIL_FREQ =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 3,val_min=0),
),
),
b_flambement =BLOC(condition = "TYPE_MODE == 'MODE_FLAMB'",fr="Recherche du nombre de charges critiques",
MATR_RIGI =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r,matr_asse_gene_r,
matr_asse_depl_c,matr_asse_gene_c) ),
MATR_RIGI_GEOM =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r,matr_asse_gene_r) ),
CHAR_CRIT =SIMP(statut='o',typ='R',min=2,max='**',
validators=AndVal((OrdList('croissant'), NoRepeat())),
fr="Liste de charges critiques" ),
COMPTAGE =FACT(statut='d',
METHODE =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("AUTO","STURM")),
SEUIL_CHAR_CRIT =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 3,val_min=0),
),
),
b_complexe =BLOC(condition = "TYPE_MODE == 'MODE_COMPLEXE'",fr="Recherche du nombre de fréquences propres",
MATR_RIGI =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r,matr_asse_gene_r,
matr_asse_depl_c,matr_asse_gene_c) ),
MATR_MASS =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r,matr_asse_gene_r) ),
MATR_AMOR =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r,matr_asse_gene_r) ),
TYPE_CONTOUR =SIMP(statut='f',typ='TXM',defaut="CERCLE",into=("CERCLE","CERCLE") ),
RAYON_CONTOUR =SIMP(statut='o',typ='R',val_min=1.E-2 ),
CENTRE_CONTOUR =SIMP(statut='f',typ='C',defaut= 0.0+0.0j),
COMPTAGE =FACT(statut='d',
METHODE =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("AUTO","APM")),
NBPOINT_CONTOUR =SIMP(statut='f',typ='I',defaut= 40,val_min=10,val_max=1000),
NMAX_ITER_CONTOUR=SIMP(statut='f',typ='I',defaut= 3, val_min=1,val_max=5),
),
),
b_general =BLOC(condition = "TYPE_MODE == 'GENERAL'",fr="Recherche du nombre de valeurs propres",
MATR_A =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r,matr_asse_gene_r,
matr_asse_depl_c,matr_asse_gene_c) ),
MATR_B =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r,matr_asse_gene_r) ),
MATR_C =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r,matr_asse_gene_r) ),
CHAR_CRIT =SIMP(statut='f',typ='R',min=2,max='**',
validators=AndVal((OrdList('croissant'), NoRepeat())),
fr="Liste de charges critiques" ),
b_contour =BLOC(condition = "CHAR_CRIT == None",
TYPE_CONTOUR =SIMP(statut='f',typ='TXM',defaut="CERCLE",into=("CERCLE","CERCLE") ),
RAYON_CONTOUR =SIMP(statut='o',typ='R',val_min=1.E-2 ),
CENTRE_CONTOUR =SIMP(statut='f',typ='C',defaut= 0.0+0.0j),),
COMPTAGE =FACT(statut='d',
METHODE =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("AUTO","STURM","APM")),
SEUIL_CHAR_CRIT =SIMP(statut='f',typ='R',defaut= 1.E-2 ),
PREC_SHIFT =SIMP(statut='f',typ='R',defaut= 5.E-2 ),
NMAX_ITER_SHIFT =SIMP(statut='f',typ='I',defaut= 3,val_min=0), ),
NBPOINT_CONTOUR =SIMP(statut='f',typ='I',defaut= 40,val_min=10,val_max=1000),
NMAX_ITER_CONTOUR=SIMP(statut='f',typ='I',defaut= 3, val_min=1,val_max=5),
),
TITRE =SIMP(statut='f',typ='TXM',max='**'),
#-------------------------------------------------------------------
# Catalogue commun SOLVEUR
SOLVEUR =C_SOLVEUR('INFO_MODE'),
# Mot-cle pour piloter les niveaux de parallelismes de l'operateur (a ne pas confondre avec le mot-cle
# cache PARALLELISME_MACRO)
NIVEAU_PARALLELISME =SIMP(statut='f',typ='TXM',defaut="COMPLET",into=("PARTIEL","COMPLET") ),
#-------------------------------------------------------------------
#-------------------------------------------------------------------
# Mot-cles caches pour activer le parallelisme au sein d'une macro-commande
PARALLELISME_MACRO=FACT(statut='d',min=0,
TYPE_COM =SIMP(statut='c',typ='I',defaut=-999,into=(-999,1,2),fr="Type de communication"),
),
#-------------------------------------------------------------------
) ;
|
