Code_Aster ®
Version
7.4

Titre :

Procédure INCLUDE


Date :
10/01/05
Auteur(s) :
C. DURAND Clé
:
U4.13.01-G Page
: 1/4

Organisme(s) : EDF-R&D/AMA















Manuel d'Utilisation
Fascicule U4.1- : Gestion
Document : U4.13.01





Procédure INCLUDE










1 But

Débranchement vers un autre fichier contenant des commandes Aster. Le retour au fichier appelant
s'effectue lorsque la fin du fichier est rencontrée. La suite de commandes peut également se
débrancher elle-même vers un autre fichier.

Il s'agit d'insérer une suite de commandes, qui seront lues telles qu'elles sont écrites. Il n'y a pas de
possibilité de passer des arguments, et donc aucune possibilité d'instanciation de variables.
Manuel d'Utilisation
Fascicule U4.1- : Gestion
HT-66/05/004/A

Code_Aster ®
Version
7.4

Titre :

Procédure INCLUDE


Date :
10/01/05
Auteur(s) :
C. DURAND Clé
:
U4.13.01-G Page
: 2/4


2 Syntaxe

INCLUDE (
UNITE
= / u , [I]







INFO =
/
1
,
[DEFAUT]









/
2 ,




)
Manuel d'Utilisation
Fascicule U4.1- : Gestion
HT-66/05/004/A

Code_Aster ®
Version
7.4

Titre :

Procédure INCLUDE


Date :
10/01/05
Auteur(s) :
C. DURAND Clé
:
U4.13.01-G Page
: 3/4


3 Opérandes

3.1 Opérande
UNITE

UNITE = u

Unité logique vers laquelle on veut se débrancher. Il est indispensable d'affecter explicitement ce
numéro à un fichier au sein de l'interface d'accès au Code_Aster astk.

3.2 Opérande
INFO


INFO
=
/
1, [DEFAUT]
/
2,

1
pas d'impression du contenu du fichier inclus.
2
impression du contenu du fichier inclus, dans le fichier 'MESSAGE'

Remarque :

Il est possible que le fichier appelé contienne également des procédures INCLUDE.
Le nombre de débranchements est limité à 20.



4 Exemple
d'utilisation

·
Fichier principal de commandes :

DEBUT()

INCLUDE(UNITE=91, INFO = 2)

mo =
AFFE_MODELE ( MAILLAGE = ma,

AFFE
=
_F(TOUT='OUI',PHENOMENE='MECANIQUE',
MODELISATION='3D')







)

INCLUDE(UNITE=92, INFO= 1)
FIN()

·
Fichier de commandes attaché à l'unité 91


ma = LIRE_MAILLAGE()

·
Fichier de commandes attaché à l'unité 92


lbew = DEFI_FONCTION
( NOM_PARA = 'INST' ,
VALE
=
(
0.0

,
-0.19949,
0.01000,
-0.25487,
0.02000,
-0.30562,
0.03000,
-0.23882,
0.04000,
-0.20780,
0.05000,
-0.13345,
0.06000,
-0.03455,
0.07000,

0.07837,
0.08000,

0.18178,
#

ETC
...











)








)
Manuel d'Utilisation
Fascicule U4.1- : Gestion
HT-66/05/004/A

Code_Aster ®
Version
7.4

Titre :

Procédure INCLUDE


Date :
10/01/05
Auteur(s) :
C. DURAND Clé
:
U4.13.01-G Page
: 4/4


Cet enchaînement produit sur le fichier "MESSAGE" la séquence suivante :


LECTURE-ANALYSE DES COMMANDES UTILISATEURS

DEBUT()
INCLUDE(UNITE=91, INFO=2)
mo = AFFE_MODELE ( MAILLAGE=ma,
AFFE= _F(TOUT='OUI', PHENOMENE='MECANIQUE',MODELISATION='3D')
)
INCLUDE(UNITE=92,INFO=1)
FIN()
...
# ---------------------------------------------------------------------------
# COMMANDE NO : 0001 CONCEPT DE TYPE :
# ------------- -----------------
DEBUT(PAR_LOT='OUI',
);

# ---------------------------------------------------------------------------
# COMMANDE NO : None CONCEPT DE TYPE :
# ------------- -----------------
INCLUDE(UNITE=91,
INFO=2,
);

# ---------------------------------------------------------------------------
# COMMANDE NO : 0002 CONCEPT DE TYPE : maillage
# ------------- -----------------
MA=LIRE_MAILLAGE(FORMAT='ASTER',
...

% FIN COMMANDE: LIRE_MAILLAGE DUREE TOTALE: 0.02 s (SYST: 0.00 s)

# ---------------------------------------------------------------------------
# COMMANDE NO : 0003 CONCEPT DE TYPE : modele
# ------------- -----------------
mo=AFFE_MODELE(MAILLAGE=ma,
...
# ---------------------------------------------------------------------------
# COMMANDE NO : None CONCEPT DE TYPE :
# ------------- -----------------
INCLUDE(UNITE=92,
INFO=1,
);


# ---------------------------------------------------------------------------
# COMMANDE NO : 0004 CONCEPT DE TYPE : fonction
# ------------- -----------------
lbew=DEFI_FONCTION(NOM_PARA='INST',
...
% FIN COMMANDE: DEFI_FONCTION DUREE TOTALE: 0.02 s (SYST: 0.00 s)

# ---------------------------------------------------------------------------
# COMMANDE NO : 0005 CONCEPT DE TYPE :
# ------------- -----------------
FIN(FICHIER='MESSAGE',
INFO_RESU='OUI',
PERFORMANCE='OUI',
RETASSAGE='NON',
);


Manuel d'Utilisation
Fascicule U4.1- : Gestion
HT-66/05/004/A

Document Outline