#include <petscversion.h>
#include <petsc/finclude/petsc.h>
|
#define | ASYNC(istream) async(istream) |
|
|
subroutine | col_f_angle_avg_m (c1, c2, M1, M2) |
|
subroutine | col_f_convergence_eval (cs, dist_n, dist_iter, vpic_dn, vpic_dw, vpic_dp) |
|
subroutine | col_f_picard_step (iter_inter, LU_values, dist_col, dist_iter, col_f_mat, col_f_ksp, col_f_vecb, col_f_vecx) |
|
subroutine | col_f_lu_matrix_ftn (op_mode, cell_I, cell_J, cs, mat_pos_rel_indx, mat_pos, coeff1, coeff2, EDs_comp, LU_values) |
|
subroutine | col_f_lu_matrix (op_mode, cs, EDs, iter_inter, LU_values) |
|
subroutine | col_f_e_and_d_m (cs1, cs2, f_half, dfdr, dfdz, Ms, EDs) |
|
subroutine | col_f_angle_avg_s (cs, Ms) |
|
subroutine | col_f_e_and_d_s (cs, f_half, dfdr, dfdz, Ms, EDs) |
|
#define ASYNC |
( |
|
istream | ) |
async(istream) |
subroutine col_f_angle_avg_m |
( |
type(col_f_core_type) |
c1, |
|
|
type(col_f_core_type) |
c2, |
|
|
real (8), dimension((col_f_nvr-1)*(col_f_nvz-1),3,(col_f_nvr-1)*(col_f_nvz-1)) |
M1, |
|
|
real (8), dimension((col_f_nvr-1)*(col_f_nvz-1),3,(col_f_nvr-1)*(col_f_nvz-1)) |
M2 |
|
) |
| |
subroutine col_f_angle_avg_s |
( |
type(col_f_core_type) |
cs, |
|
|
real (8), dimension((col_f_nvr-1), 5, (col_f_nvr-1)*(col_f_nvz-1)) |
Ms |
|
) |
| |
subroutine col_f_convergence_eval |
( |
type(col_f_core_type) |
cs, |
|
|
real (kind=8), dimension(col_f_nvr, col_f_nvz) |
dist_n, |
|
|
real (kind=8), dimension(col_f_nvr, col_f_nvz) |
dist_iter, |
|
|
real (8) |
vpic_dn, |
|
|
real (8) |
vpic_dw, |
|
|
real (8) |
vpic_dp |
|
) |
| |
subroutine col_f_e_and_d_m |
( |
type(col_f_core_type) |
cs1, |
|
|
type(col_f_core_type) |
cs2, |
|
|
real (8), dimension(col_f_nvr-1,col_f_nvz-1) |
f_half, |
|
|
real (8), dimension(col_f_nvr-1,col_f_nvz-1) |
dfdr, |
|
|
real (8), dimension(col_f_nvr-1,col_f_nvz-1) |
dfdz, |
|
|
real (8), dimension((col_f_nvr-1)*(col_f_nvz-1),3,(col_f_nvr-1)*(col_f_nvz-1)) |
Ms, |
|
|
real (8), dimension(5,col_f_nvr-1, col_f_nvz-1) |
EDs |
|
) |
| |
subroutine col_f_e_and_d_s |
( |
type(col_f_core_type) |
cs, |
|
|
real (8), dimension((col_f_nvr-1),(col_f_nvz-1)) |
f_half, |
|
|
real (8), dimension((col_f_nvr-1),(col_f_nvz-1)) |
dfdr, |
|
|
real (8), dimension((col_f_nvr-1),(col_f_nvz-1)) |
dfdz, |
|
|
real (8), dimension((col_f_nvr-1),5, (col_f_nvr-1)*(col_f_nvz-1)) |
Ms, |
|
|
real (8), dimension(5,(col_f_nvr-1), (col_f_nvz-1)) |
EDs |
|
) |
| |
subroutine col_f_lu_matrix |
( |
integer |
op_mode, |
|
|
type(col_f_core_type) |
cs, |
|
|
real (8), dimension(5,col_f_nvr-1, col_f_nvz-1) |
EDs, |
|
|
integer |
iter_inter, |
|
|
real (kind=8), dimension(lu_nnz) |
LU_values |
|
) |
| |
subroutine col_f_lu_matrix_ftn |
( |
integer |
op_mode, |
|
|
integer |
cell_I, |
|
|
integer |
cell_J, |
|
|
type(col_f_core_type) |
cs, |
|
|
integer, dimension(4) |
mat_pos_rel_indx, |
|
|
integer |
mat_pos, |
|
|
real (8) |
coeff1, |
|
|
real (8) |
coeff2, |
|
|
real (8), dimension(5) |
EDs_comp, |
|
|
real (kind=8), dimension(lu_nnz) |
LU_values |
|
) |
| |
subroutine col_f_picard_step |
( |
integer |
iter_inter, |
|
|
real (kind=8), dimension(lu_nnz) |
LU_values, |
|
|
real (kind=8), dimension(col_f_ntotal_v) |
dist_col, |
|
|
real (kind=8), dimension(col_f_nvr,col_f_nvz) |
dist_iter, |
|
|
integer |
col_f_mat, |
|
|
integer |
col_f_ksp, |
|
|
integer |
col_f_vecb, |
|
|
integer |
col_f_vecx |
|
) |
| |