1
!-------------------------------------------------------------------------------
3
! This file is part of the Code_Saturne Kernel, element of the
4
! Code_Saturne CFD tool.
6
! Copyright (C) 1998-2010 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
!-------------------------------------------------------------------------------
31
( numper, crit, fract, plane, iwarnj, tx, ty, tz )
33
!===============================================================================
37
! Definition of a periodicity of translation.
39
!-------------------------------------------------------------------------------
41
!__________________.____._____.________________________________________________.
42
! name !type!mode ! role !
43
!__________________!____!_____!________________________________________________!
44
! numper ! i ! <-- ! periodicity number !
45
! crit ! a ! <-- ! selection criteria for the border faces to !
47
! fract ! r ! <-- ! fraction parameter !
48
! plane ! r ! <-- ! face coplanarity parameter !
49
! iwarnj ! i ! <-- ! verbosity level !
50
! tx ! r ! <-- ! X coordinate of the translation vector !
51
! ty ! r ! <-- ! Y coordinate of the translation vector !
52
! tz ! r ! <-- ! Z coordinate of the translation vector !
53
!__________________!____!_____!________________________________________________!
55
! Type: i (integer), r (real), s (string), a (array), l (logical),
56
! and composite types (ex: ra real array)
57
! mode: <-- input, --> output, <-> modifies data, --- work array
58
!===============================================================================
62
!===============================================================================
64
!===============================================================================
66
!===============================================================================
71
integer iwarnj, numper
72
double precision fract, plane
73
double precision tx, ty, tz
79
!===============================================================================
83
call defpt1(numper, crit, fract, plane, iwarnj, tx, ty, tz, lcrit)
90
!===============================================================================
95
( numper, crit, fract, plane, iwarnj, ax, ay, az, theta, ix, iy, iz )
97
!===============================================================================
101
! Definition of a periodicity of rotation.
103
!-------------------------------------------------------------------------------
105
!__________________.____._____.________________________________________________.
106
! name !type!mode ! role !
107
!__________________!____!_____!________________________________________________!
108
! numper ! i ! <-- ! periodicity number !
109
! crit ! a ! <-- ! selection criteria for the border faces to !
111
! fract ! r ! <-- ! fraction parameter !
112
! plane ! r ! <-- ! face coplanarity parameter !
113
! iwarnj ! i ! <-- ! verbosity level !
114
! ax ! r ! <-- ! X coordinate of the rotation axis !
115
! ay ! r ! <-- ! Y coordinate of the rotation axis !
116
! az ! r ! <-- ! Z coordinate of the rotation axis !
117
! theta ! r ! <-- ! angle of the rotation (radian) !
118
! ix ! r ! <-- ! X coordinate of the invariant point !
119
! iy ! r ! <-- ! Y coordinate of the invariant point !
120
! iz ! r ! <-- ! Z coordinate of the invariant point !
121
!__________________!____!_____!________________________________________________!
123
! Type: i (integer), r (real), s (string), a (array), l (logical),
124
! and composite types (ex: ra real array)
125
! mode: <-- input, --> output, <-> modifies data, --- work array
126
!===============================================================================
130
!===============================================================================
132
!===============================================================================
134
!===============================================================================
139
integer iwarnj, numper
140
double precision fract, plane
141
double precision ax, ay, az, theta, ix, iy, iz
147
!===============================================================================
151
call defpr1(numper, crit, fract, plane, iwarnj, &
153
ax, ay, az, theta, ix, iy, iz, lcrit)
159
!===============================================================================
164
( numper, crit, fract, plane, iwarnj, &
169
!===============================================================================
173
! Definition of a general periodicity.
175
!-------------------------------------------------------------------------------
177
!__________________.____._____.________________________________________________.
178
! name !type!mode ! role !
179
!__________________!____!_____!________________________________________________!
180
! numper ! i ! <-- ! periodicity number !
181
! crit ! a ! <-- ! selection criteria for the border faces to !
183
! fract ! r ! <-- ! fraction parameter !
184
! plane ! r ! <-- ! face coplanarity parameter !
185
! iwarnj ! i ! <-- ! verbosity level !
186
! r11 ! r ! <-- ! coef. (1,1) of the homogeneous matrix !
187
! r12 ! r ! <-- ! coef. (1,2) of the homogeneous matrix !
188
! r13 ! r ! <-- ! coef. (1,3) of the homogeneous matrix !
189
! tx ! r ! <-- ! coef. (1,4) of the homogeneous matrix !
190
! r21 ! r ! <-- ! coef. (2,1) of the homogeneous matrix !
191
! r22 ! r ! <-- ! coef. (2,2) of the homogeneous matrix !
192
! r23 ! r ! <-- ! coef. (2,3) of the homogeneous matrix !
193
! ty ! r ! <-- ! coef. (2,4) of the homogeneous matrix !
194
! r31 ! r ! <-- ! coef. (3,1) of the homogeneous matrix !
195
! r32 ! r ! <-- ! coef. (3,2) of the homogeneous matrix !
196
! r33 ! r ! <-- ! coef. (3,3) of the homogeneous matrix !
197
! tz ! r ! <-- ! coef. (3,4) of the homogeneous matrix !
198
!__________________!____!_____!________________________________________________!
200
! Type: i (integer), r (real), s (string), a (array), l (logical),
201
! and composite types (ex: ra real array)
202
! mode: <-- input, --> output, <-> modifies data, --- work array
204
!===============================================================================
208
!===============================================================================
210
!===============================================================================
212
!===============================================================================
217
integer iwarnj, numper
218
double precision fract, plane
219
double precision r11, r12, r13, r21, r22, r23, r31, r32, r33, tx, ty, tz
225
!===============================================================================
229
call defpg1(numper, crit, fract, plane, iwarnj, &
231
r11, r12, r13, tx, r21, r22, r23, ty, r31, r32, r33, tz, lcrit)