1
!-------------------------------------------------------------------------------
3
! This file is part of the Code_Saturne Kernel, element of the
4
! Code_Saturne CFD tool.
6
! Copyright (C) 1998-2009 EDF S.A., France
8
! contact: saturne-support@edf.fr
10
! The Code_Saturne Kernel is free software; you can redistribute it
11
! and/or modify it under the terms of the GNU General Public License
12
! as published by the Free Software Foundation; either version 2 of
13
! the License, or (at your option) any later version.
15
! The Code_Saturne Kernel is distributed in the hope that it will be
16
! useful, but WITHOUT ANY WARRANTY; without even the implied warranty
17
! of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18
! GNU General Public License for more details.
20
! You should have received a copy of the GNU General Public License
21
! along with the Code_Saturne Kernel; if not, write to the
22
! Free Software Foundation, Inc.,
23
! 51 Franklin St, Fifth Floor,
24
! Boston, MA 02110-1301 USA
26
!-------------------------------------------------------------------------------
29
!===============================================================================
31
! METHODE ALE - MOUVEMENT DE STRUCTURES EN COUPLAGE AVEC CODE_ASTER
33
! NTCAST : NUMERO D'ITERATION DE COUPLAGE AVEC CODE_ASTER
34
! NBASTE : NOMBRE DE STRUCTURES MOBILES
35
! NBFAST : NOMBRE DE FACES COUPLEES
36
! NBNAST : NOMBRE DE NOEUDS COUPLES
37
! ISYNCP : INDICATEUR D'IMPRESSION DES RESULTATS DES DEUX CODES
38
! AUX MEMES INSTANTS (SORTIE ENSIGHT POUR ASTER)
39
! ASDDLF : BLOCAGE DES DDL DE FORCE
40
! ASDDLC : BLOCAGE DES DDL CINEMATIQUES
43
integer nbaste, nbfast, nbnast
46
integer asddlf(3,nastmx), asddlc(3,nastmx)
48
common / iaster / ntcast, nbaste, nbfast, nbnast, &