Go to the source code of this file.
|
subroutine | solution2 (SOLVER, ifail) |
| NUMERICAL SOLUTION. More...
|
|
subroutine | solver_ritm_integral (n, r, amix, z, zm, dz, aets, bets, cets, dets, eets, fets, gets, tau, uets, vets, wets) |
|
subroutine | solut3 (n, h, a, b, f, u, v, w, y, dy) |
|
subroutine | derivn2 (N, X, Y, DY1) |
|
subroutine | derivn21 (N, X, Y, DY1) |
|
subroutine | integral (n, h, r, f, int) |
|
subroutine | axis (n, h, r, f) |
|
subroutine axis |
( |
integer |
n, |
|
|
real (r8), dimension(n) |
h, |
|
|
real (r8), dimension(n) |
r, |
|
|
real (r8), dimension(n) |
f |
|
) |
| |
subroutine derivn2 |
( |
integer |
N, |
|
|
real (r8), dimension(n) |
X, |
|
|
real (r8), dimension(n) |
Y, |
|
|
real (r8), dimension(n) |
DY1 |
|
) |
| |
subroutine derivn21 |
( |
integer |
N, |
|
|
real (r8), dimension(n) |
X, |
|
|
real (r8), dimension(n) |
Y, |
|
|
real (r8), dimension(n) |
DY1 |
|
) |
| |
subroutine integral |
( |
integer |
n, |
|
|
real (r8), dimension(n) |
h, |
|
|
real (r8), dimension(n) |
r, |
|
|
real (r8), dimension(n) |
f, |
|
|
real (r8), dimension(n) |
int |
|
) |
| |
subroutine solut3 |
( |
integer |
n, |
|
|
real (r8), dimension(n+1) |
h, |
|
|
real (r8), dimension(n) |
a, |
|
|
real (r8), dimension(n) |
b, |
|
|
real (r8), dimension(n) |
f, |
|
|
real (r8), dimension(2) |
u, |
|
|
real (r8), dimension(2) |
v, |
|
|
real (r8), dimension(2) |
w, |
|
|
real (r8), dimension(n) |
y, |
|
|
real (r8), dimension(n) |
dy |
|
) |
| |
subroutine solution2 |
( |
type (numerics), intent(inout) |
SOLVER, |
|
|
integer, intent(inout) |
ifail |
|
) |
| |
NUMERICAL SOLUTION.
This subroutine is prepared to solve single transport equation in standardised form adopted by the ETS.
- Author
- M.Tokar, D.Kalupin
- Version
- "$Id: solution2.f90 320 2009-07-13 13:27:15Z coster $"
Definition at line 13 of file solution2.f90.
subroutine solver_ritm_integral |
( |
integer |
n, |
|
|
real (r8), dimension(n) |
r, |
|
|
real (r8) |
amix, |
|
|
real (r8), dimension(n) |
z, |
|
|
real (r8), dimension(n) |
zm, |
|
|
real (r8), dimension(n) |
dz, |
|
|
real (r8), dimension(n) |
aets, |
|
|
real (r8), dimension(n) |
bets, |
|
|
real (r8), dimension(n) |
cets, |
|
|
real (r8), dimension(n) |
dets, |
|
|
real (r8), dimension(n) |
eets, |
|
|
real (r8), dimension(n) |
fets, |
|
|
real (r8), dimension(n) |
gets, |
|
|
real (r8) |
tau, |
|
|
real (r8), dimension(2) |
uets, |
|
|
real (r8), dimension(2) |
vets, |
|
|
real (r8), dimension(2) |
wets |
|
) |
| |