Go to the source code of this file.
|
| subroutine | calc_cell (RMIN, REACTOR_LOC, D_DIR, N_DIR, CELL_LOC) |
| |
| subroutine | calc_loc (RMIN, D_DIR, CELL_LOC, REACTOR_LOC) |
| |
| subroutine | calc_cell_intersect (RMIN, LOC, D_DIR, N_DIR, CELL) |
| |
| subroutine calc_cell |
( |
double precision, intent(in) |
RMIN, |
|
|
double precision, intent(in) |
REACTOR_LOC, |
|
|
double precision, dimension(0:(n_dir+3)), intent(in) |
D_DIR, |
|
|
integer, intent(in) |
N_DIR, |
|
|
integer, intent(inout) |
CELL_LOC |
|
) |
| |
| subroutine calc_cell_intersect |
( |
double precision, intent(in) |
RMIN, |
|
|
double precision, intent(in) |
LOC, |
|
|
double precision, dimension(0:(n_dir+3)), intent(in) |
D_DIR, |
|
|
integer, intent(in) |
N_DIR, |
|
|
integer, intent(out) |
CELL |
|
) |
| |
| subroutine calc_loc |
( |
double precision, intent(in) |
RMIN, |
|
|
double precision, dimension(0:cell_loc), intent(in) |
D_DIR, |
|
|
integer, intent(in) |
CELL_LOC, |
|
|
double precision, intent(inout) |
REACTOR_LOC |
|
) |
| |