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
ndim , ncelet , ncel , nfac , nfabor , nfml , nprfml , &
33
nnod , lndfac , lndfbr , ncelbr , &
34
nvar , nscal , nphas , &
35
ncofab , nproce , nprofa , nprofb , &
36
nideve , nrdeve , nituse , nrtuse , &
39
!===============================================================================
43
! GESTION MEMOIRE ADDITIONNELLE POUR LES VARIABLES MATISSE
44
! PERSISTANTES DANS LE PAS DE TEMPS
46
! SOUS-PROGRAMME SPECIFIQUE A MATISSE (COPIE DE MEMTRI)
48
!-------------------------------------------------------------------------------
50
!__________________.____._____.________________________________________________.
51
! name !type!mode ! role !
52
!__________________!____!_____!________________________________________________!
53
! idbia0 ! i ! <-- ! number of first free position in ia !
54
! idbra0 ! i ! <-- ! number of first free position in ra !
55
! ndim ! i ! <-- ! spatial dimension !
56
! ncelet ! i ! <-- ! number of extended (real + ghost) cells !
57
! ncel ! i ! <-- ! number of cells !
58
! nfac ! i ! <-- ! number of interior faces !
59
! nfabor ! i ! <-- ! number of boundary faces !
60
! nfml ! i ! <-- ! number of families (group classes) !
61
! nprfml ! i ! <-- ! number of properties per family (group class) !
62
! nnod ! i ! <-- ! number of vertices !
63
! lndfac ! i ! <-- ! size of nodfac indexed array !
64
! lndfbr ! i ! <-- ! size of nodfbr indexed array !
65
! ncelbr ! i ! <-- ! number of cells with faces on boundary !
66
! nvar ! i ! <-- ! total number of variables !
67
! nscal ! i ! <-- ! total number of scalars !
68
! nphas ! i ! <-- ! number of phases !
69
! ncofab ! e ! <-- ! nombre de couple de cl a prevoir !
70
! nproce ! e ! <-- ! nombre de prop phy aux centres !
71
! nprofa ! e ! <-- ! nombre de prop phy aux faces internes !
72
! nprofb ! e ! <-- ! nombre de prop phy aux faces de bord !
73
! nideve, nrdeve ! i ! <-- ! sizes of idevel and rdevel arrays !
74
! nituse, nrtuse ! i ! <-- ! sizes of ituser and rtuser arrays !
75
! ifinia ! i ! --> ! number of first free position in ia (at exit) !
76
! ifinra ! i ! --> ! number of first free position in ra (at exit) !
77
!__________________.____._____.________________________________________________.
79
! TYPE : E (ENTIER), R (REEL), A (ALPHANUMERIQUE), T (TABLEAU)
80
! L (LOGIQUE) .. ET TYPES COMPOSES (EX : TR TABLEAU REEL)
81
! MODE : <-- donnee, --> resultat, <-> Donnee modifiee
82
! --- tableau de travail
83
!===============================================================================
87
!===============================================================================
89
!===============================================================================
95
!===============================================================================
99
integer idbia0 , idbra0
100
integer ndim , ncelet , ncel , nfac , nfabor
101
integer nfml , nprfml
102
integer nnod , lndfac , lndfbr , ncelbr
103
integer nvar , nscal , nphas
104
integer ncofab , nproce , nprofa , nprofb
105
integer nideve , nrdeve , nituse , nrtuse
106
integer ifinia , ifinra
110
integer idebia , idebra
112
!===============================================================================
114
!===============================================================================
116
!===============================================================================
121
!===============================================================================
122
! 2. PLACE MEMOIRE RESERVEE AVEC DEFINITION DE IFINIA IFINRA
123
!===============================================================================
125
! --> Reservation de memoire entiere (en common)
128
ifinia = iiconr + ncelet
130
! --> Reservation de memoire reelle
137
CALL IASIZE('MEMMAT',IFINIA)
140
CALL RASIZE('MEMMAT',IFINRA)