Code_Aster
®
Version
7.4
Titrate:
Procedure
INCLUDE
Date:
10/01/05
Author (S):
C. DURAND
Key
:
U4.13.01-G
Page
:
1/4
Instruction manual
U4.1- booklet: Management
HT-66/05/004/A
Organization (S):
EDF-R & D/AMA
Instruction manual
U4.1- booklet: Management
Document: U4.13.01
Procedure
INCLUDE
1 Goal
Disconnection towards another file containing of the controls Aster. The return to the appealing file
be carried out when the end of the file is met. The continuation of controls also can
to disconnect itself towards another file.
It is a question of inserting a succession of controls, which will be read such as they are written. There is not
possibility of passing from the arguments, and thus any possibility of instanciation of variables.
Code_Aster
®
Version
7.4
Titrate:
Procedure
INCLUDE
Date:
10/01/05
Author (S):
C. DURAND
Key
:
U4.13.01-G
Page
:
3/4
Instruction manual
U4.1- booklet: Management
HT-66/05/004/A
3 Operands
3.1 Operand
UNIT
UNIT =
U
Logical unit towards which one wants to be disconnected. It is essential to affect it explicitly
number with a file within the interface of access to Code_Aster
astk
.
3.2 Operand
INFORMATION
INFORMATION
=
/
1, [DEFECT]
/
2,
1
no impression of the contents of the file included.
2
impression of the contents of the file included, in the file
“MESSAGE”
Note:
It is possible that the file called also contains procedures
INCLUDE
.
The number of disconnections is limited to 20.
4 Example
of use
·
Main file of controls:
BEGINNING ()
INCLUDE (UNITE=91, INFORMATION = 2)
Mo =
AFFE_MODELE (MESH = my,
AFFE
=
_F (TOUT=' OUI', PHENOMENE=' MECANIQUE',
MODELISATION=' 3d')
)
INCLUDE (UNITE=92, INFO= 1)
END ()
·
Command file attached to unit 91
my = LIRE_MAILLAGE ()
·
Command file attached to 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
…
)
)
Code_Aster
®
Version
7.4
Titrate:
Procedure
INCLUDE
Date:
10/01/05
Author (S):
C. DURAND
Key
:
U4.13.01-G
Page
:
4/4
Instruction manual
U4.1- booklet: Management
HT-66/05/004/A
This sequence produced on the file “
MESSAGE
“the following sequence:
LECTURE-ANALYZE OF THE CONTROLS USERS
BEGINNING ()
INCLUDE (UNITE=91, INFO=2)
Mo = AFFE_MODELE (MAILLAGE=ma,
AFFE= _F (TOUT=' OUI', PHENOMENE=' MECANIQUE', MODELISATION=' 3D')
)
INCLUDE (UNITE=92, INFO=1)
END ()
…
# ---------------------------------------------------------------------------
# ORDERS NO: 0001 CONCEPT OF THE TYPE:
# ------------- -----------------
BEGINNING (PAR_LOT=' OUI',
);
# ---------------------------------------------------------------------------
# ORDERS NO: Nun CONCEPT OF the TYPE:
# ------------- -----------------
INCLUDE (UNITE=91,
INFO=2,
);
# ---------------------------------------------------------------------------
# ORDERS NO: 0002 CONCEPT OF THE TYPE: mesh
# ------------- -----------------
MA=LIRE_MAILLAGE (FORMAT=' ASTER',
…
% FINE ORDERS: LIRE_MAILLAGE TOTAL DURATION: 0.02 S (SYST: 0.00 S)
# ---------------------------------------------------------------------------
# ORDERS NO: 0003 CONCEPT OF THE TYPE: model
# ------------- -----------------
mo=AFFE_MODELE (MAILLAGE=ma,
…
# ---------------------------------------------------------------------------
# ORDERS NO: Nun CONCEPT OF the TYPE:
# ------------- -----------------
INCLUDE (UNITE=92,
INFO=1,
);
# ---------------------------------------------------------------------------
# ORDERS NO: 0004 CONCEPT OF THE TYPE: function
# ------------- -----------------
lbew=DEFI_FONCTION (NOM_PARA=' INST',
…
% FINE ORDERS: DEFI_FONCTION TOTAL DURATION: 0.02 S (SYST: 0.00 S)
# ---------------------------------------------------------------------------
# ORDERS NO: 0005 CONCEPT OF THE TYPE:
# ------------- -----------------
END (FICHIER=' MESSAGE',
INFO_RESU=' OUI',
PERFORMANCE=' OUI',
RETASSAGE=' NON',
);