← Back to branch summary

~ubuntu-branches/ubuntu/precise/code-saturne/precise

« back to all changes in this revision

Viewing changes to src/cplv/memcp1.f90

  • Committer: Package Import Robot
  • Author(s): Sylvestre Ledru
  • Date: 2011-11-01 17:43:32 UTC
  • mto: (6.1.7 sid)
  • mto: This revision was merged to the branch mainline in revision 11.
  • Revision ID: package-import@ubuntu.com-20111101174332-tl4vk45no0x3emc3
Tags: upstream-2.1.0
Import upstream version 2.1.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/cplv/memcp1.f90
1
 
!-------------------------------------------------------------------------------
2
 
 
3
 
!     This file is part of the Code_Saturne Kernel, element of the
4
 
!     Code_Saturne CFD tool.
5
 
 
6
 
!     Copyright (C) 1998-2009 EDF S.A., France
7
 
 
8
 
!     contact: saturne-support@edf.fr
9
 
 
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.
14
 
 
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.
19
 
 
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
25
 
 
26
 
!-------------------------------------------------------------------------------
27
 
 
28
 
subroutine memcp1 &
29
 
!================
30
 
 
31
 
 ( idbia0 , idbra0 ,                                              &
32
 
   nvar   , ncelet , ncel   , nfac   , nfabor ,                   &
33
 
   ntbcpi , icpwi  ,                                              &
34
 
   ntbcpr , icpwr  ,                                              &
35
 
   ntbmci , imcwi  ,                                              &
36
 
   ntbmcr , imcwr  ,                                              &
37
 
   ntbwoi , iwori  ,                                              &
38
 
   ntbwor , iworr  ,                                              &
39
 
   ifinia , ifinra )
40
 
 
41
 
!===============================================================================
42
 
!  FONCTION
43
 
!  --------
44
 
 
45
 
!  PHYSIQUE PARTICULIERE : FLAMME CHARBON PULVERISE
46
 
!    GESTION MEMOIRE CALCUL DES PROPRIETES PHYSIQUES PHASE GAZ
47
 
 
48
 
!-------------------------------------------------------------------------------
49
 
! Arguments
50
 
!__________________.____._____.________________________________________________.
51
 
! name             !type!mode ! role                                           !
52
 
!__________________!____!_____!________________________________________________!
53
 
! idbia0/idbra0    ! e  ! <-- ! pointeur de la premiere cas libre des          !
54
 
!                  !    !     !  tableaux ia/ra                                !
55
 
! nvar             ! e  ! <-- ! nombre de variables                            !
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
 
! ntbcpi           ! e  ! <-- ! taille du macro tableau cp entiers             !
61
 
! icpwi            ! e  ! --> ! pointeur  macro tableau cp entiers             !
62
 
! ntbcpr           ! e  ! <-- ! taille du macro tableau cp reels               !
63
 
! icpwr            ! e  ! --> ! pointeur  macro tableau cp reels               !
64
 
! ntbmci           ! e  ! <-- ! taille du macro tableau mc entiers             !
65
 
! imcwi            ! e  ! --> ! pointeur  macro tableau mc entiers             !
66
 
! ntbmcr           ! e  ! <-- ! taille du macro tableau mc reels               !
67
 
! imcwr            ! e  ! --> ! pointeur  macro tableau mc reels               !
68
 
! ntbwoi           ! e  ! <-- ! taille du macro tableau work entiers           !
69
 
! iwori            ! e  ! --> ! pointeur  macro tableau work entiers           !
70
 
! ntbwor           ! e  ! <-- ! taille du macro tableau work reels             !
71
 
! iworr            ! e  ! --> ! pointeur  macro tableau work reels             !
72
 
! ifinia           ! i  ! --> ! number of first free position in ia (at exit)  !
73
 
! ifinra           ! i  ! --> ! number of first free position in ra (at exit)  !
74
 
!__________________.____._____.________________________________________________.
75
 
 
76
 
!     TYPE : E (ENTIER), R (REEL), A (ALPHANUMERIQUE), T (TABLEAU)
77
 
!            L (LOGIQUE)   .. ET TYPES COMPOSES (EX : TR TABLEAU REEL)
78
 
!     MODE : <-- donnee, --> resultat, <-> Donnee modifiee
79
 
!            --- tableau de travail
80
 
!===============================================================================
81
 
 
82
 
implicit none
83
 
 
84
 
!===============================================================================
85
 
! Common blocks
86
 
!===============================================================================
87
 
 
88
 
include "paramx.h"
89
 
include "optcal.h"
90
 
 
91
 
!===============================================================================
92
 
 
93
 
! Arguments
94
 
 
95
 
integer          idbia0 ,idbra0
96
 
integer          nvar
97
 
integer          ncelet , ncel   , nfac   , nfabor
98
 
integer          ntbcpi , icpwi  , ntbcpr , icpwr
99
 
integer          ntbmci , imcwi  , ntbmcr , imcwr
100
 
integer          ntbwoi , iwori  , ntbwor , iworr
101
 
integer          ifinia , ifinra
102
 
 
103
 
! Local variables
104
 
 
105
 
integer          idebia , idebra
106
 
 
107
 
!===============================================================================
108
 
 
109
 
!---> INITIALISATION
110
 
 
111
 
idebia = idbia0
112
 
idebra = idbra0
113
 
 
114
 
 
115
 
!---> PLACE MEMOIRE RESERVEE AVEC DEFINITION DE IFINIA IFINRA
116
 
 
117
 
icpwi   =       idebia
118
 
imcwi   =       icpwi   + ntbcpi*ncelet
119
 
iwori   =       imcwi   + ntbmci*ncelet
120
 
ifinia =        iwori   + ntbwoi*ncelet
121
 
 
122
 
icpwr   =       idebra
123
 
imcwr   =       icpwr   + ntbcpr*ncelet
124
 
iworr   =       imcwr   + ntbmcr*ncelet
125
 
ifinra =        iworr   + ntbwor*ncelet
126
 
 
127
 
!---> VERIFICATION
128
 
 
129
 
CALL IASIZE('MEMPH1',IFINIA)
130
 
!==========
131
 
 
132
 
CALL RASIZE('MEMPH1',IFINRA)
133
 
!==========
134
 
 
135
 
return
136
 
end subroutine