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
!-------------------------------------------------------------------------------
32
ncesup , nfbsup , ncecpl , nfbcpl , ncencp , nfbncp , &
33
ilcesu , ilfbsu , ilcecp , ilfbcp , ilcenc , ilfbnc , &
36
!===============================================================================
40
! GESTION MEMOIRE POUR LE COUPLAGE
42
!-------------------------------------------------------------------------------
44
!__________________.____._____.________________________________________________.
45
! name !type!mode ! role !
46
!__________________!____!_____!________________________________________________!
48
!__________________.____._______________.________________________________________________!
50
! TYPE : E (ENTIER), R (REEL), A (ALPHANUMERIQUE), T (TABLEAU)
51
! L (LOGIQUE) .. ET TYPES COMPOSES (EX : TR TABLEAU REEL)
52
! MODE : <-- donnee, --> resultat, <-> Donnee modifiee
53
! --- tableau de travail
54
!===============================================================================
58
!===============================================================================
60
!===============================================================================
63
!===============================================================================
67
integer idbia0 , idbra0
68
integer ncesup , nfbsup
69
integer ncecpl , nfbcpl , ncencp , nfbncp
70
integer ilcesu , ilfbsu
71
integer ilcecp , ilfbcp , ilcenc , ilfbnc
72
integer ifinia , ifinra
76
integer idebia , idebra
79
!===============================================================================
81
!===================================================================
83
!===================================================================
88
!===================================================================
90
!===================================================================
92
! Informations g�om�triques
93
! - on r�cup�re les infos de la structure "couplage" en C
96
ilfbsu = ilcesu + ncesup
97
ilcecp = ilfbsu + nfbsup
98
ilfbcp = ilcecp + ncecpl
99
ilcenc = ilfbcp + nfbcpl
100
ilfbnc = ilcenc + ncencp
101
ifinia = ilfbnc + nfbncp
103
CALL IASIZE('MEMCS1',IFINIA)