collisionf2.F90 File Reference

Functions/Subroutines
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)
subroutine	petsc_lu_solver (n, nnz, values, rowindx, colptr, dist_col, col_f_mat, col_f_ksp, col_f_vecb, col_f_vecx)

Function/Subroutine Documentation

col_f_angle_avg_m()

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
	)

Here is the call graph for this function:

Here is the caller graph for this function:

col_f_angle_avg_s()

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
	)

Here is the call graph for this function:

Here is the caller graph for this function:

col_f_convergence_eval()

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
	)

Here is the caller graph for this function:

col_f_e_and_d_m()

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
	)

Here is the caller graph for this function:

col_f_e_and_d_s()

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
	)

Here is the caller graph for this function:

col_f_lu_matrix()

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
	)

Here is the call graph for this function:

Here is the caller graph for this function:

col_f_lu_matrix_ftn()

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
	)

Here is the caller graph for this function:

col_f_picard_step()

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
	)

Here is the call graph for this function:

Here is the caller graph for this function:

petsc_lu_solver()

subroutine petsc_lu_solver	(	integer, intent(in)	n,
		integer, intent(in)	nnz,
		real (8), dimension(nnz), intent(in)	values,
		integer, dimension(nnz)	rowindx,
		integer, dimension(n+1)	colptr,
		real (8), dimension(n), intent(inout)	dist_col,
			col_f_mat,
			col_f_ksp,
			col_f_vecb,
			col_f_vecx
	)

Here is the caller graph for this function: