emsurf_module_sp Module Reference

Data Types
type	edge_node
type	quant_emsurf

Functions/Subroutines
subroutine	delete_quant_emsurf (quant)
subroutine	zelem_emsurf (m, n, value, quant)
subroutine	zelem_emsurf_real (m, n, value_e, quant)
subroutine	zelem_emsurf_shifted (m, n, value_e, quant)
subroutine	gau_grobal (nn, j, x, y, z, w, quant)
subroutine	gau_grobal_sp (nn, j, x, y, z, w, quant)
subroutine	gauss_points (quant)
real(kind=4) function	ianalytic (mm, jj, xi, yi, zi, quant)
real(kind=4) function	ianalytic2 (mm, jj, xi, yi, zi, iii, quant)
subroutine	current_node_patch_mapping (string, curr, msh, quant, ptree)
real(kind=8) function	triangle_area (patch, quant)
subroutine	element_vinc_vv_surf (theta, phi, edge, value, quant)
subroutine	element_vinc_hh_surf (theta, phi, edge, value, quant)
subroutine	rcs_bistatic_surf (curr, msh, quant, ptree)
subroutine	vv_polar_surf (theta, phi, edge, ctemp_1, curr, quant)
subroutine	hh_polar_surf (theta, phi, edge, ctemp_1, curr, quant)
subroutine	rcs_monostatic_vv_surf (dsita, dphi, rcs, curr, msh, quant, ptree)
subroutine	rcs_monostatic_hh_surf (dsita, dphi, rcs, curr, msh, quant, ptree)
subroutine	geo_modeling_surf (quant, MPIcomm, DATA_DIR)
subroutine	em_solve_surf (bmat, option, msh, quant, ptree, stats)

Function/Subroutine Documentation

current_node_patch_mapping()

subroutine emsurf_module_sp::current_node_patch_mapping	(	character(*)	string,
		complex(kind=4), dimension(:)	curr,
		type(c_mesh)	msh,
		type(quant_emsurf)	quant,
		type(c_proctree)	ptree
	)

delete_quant_emsurf()

subroutine emsurf_module_sp::delete_quant_emsurf

(

type(quant_emsurf)

quant

)

element_vinc_hh_surf()

subroutine emsurf_module_sp::element_vinc_hh_surf	(	real(kind=8)	theta,
		real(kind=8)	phi,
		integer	edge,
		complex(kind=4)	value,
		type(quant_emsurf)	quant
	)

Here is the call graph for this function:

element_vinc_vv_surf()

subroutine emsurf_module_sp::element_vinc_vv_surf	(	real(kind=8)	theta,
		real(kind=8)	phi,
		integer	edge,
		complex(kind=4)	value,
		type(quant_emsurf)	quant
	)

Here is the call graph for this function:

em_solve_surf()

subroutine emsurf_module_sp::em_solve_surf	(	type(c_bmatrix)	bmat,
		type(c_hoption)	option,
		type(c_mesh)	msh,
		type(quant_emsurf)	quant,
		type(c_proctree)	ptree,
		type(c_hstat)	stats
	)

Here is the call graph for this function:

gau_grobal()

subroutine emsurf_module_sp::gau_grobal	(	integer	nn,
		integer	j,
		real(kind=8), dimension(:)	x,
		real(kind=8), dimension(:)	y,
		real(kind=8), dimension(:)	z,
		real(kind=8), dimension(:)	w,
		type(quant_emsurf)	quant
	)

gau_grobal_sp()

subroutine emsurf_module_sp::gau_grobal_sp	(	integer	nn,
		integer	j,
		real(kind=4), dimension(:)	x,
		real(kind=4), dimension(:)	y,
		real(kind=4), dimension(:)	z,
		real(kind=4), dimension(:)	w,
		type(quant_emsurf)	quant
	)

gauss_points()

subroutine emsurf_module_sp::gauss_points

(

type(quant_emsurf)

quant

)

geo_modeling_surf()

subroutine emsurf_module_sp::geo_modeling_surf	(	type(quant_emsurf)	quant,
		integer	MPIcomm,
		character (*)	DATA_DIR
	)

Here is the call graph for this function:

hh_polar_surf()

subroutine emsurf_module_sp::hh_polar_surf	(	real(kind=8)	theta,
		real(kind=8)	phi,
		integer	edge,
		complex(kind=8)	ctemp_1,
		complex(kind=4)	curr,
		type(quant_emsurf)	quant
	)

Here is the call graph for this function:

ianalytic()

real(kind=4) function emsurf_module_sp::ianalytic	(	integer	mm,
		integer	jj,
		real(kind=4)	xi,
		real(kind=4)	yi,
		real(kind=4)	zi,
		type(quant_emsurf)	quant
	)

Here is the call graph for this function:

ianalytic2()

real(kind=4) function emsurf_module_sp::ianalytic2	(	integer	mm,
		integer	jj,
		real(kind=4)	xi,
		real(kind=4)	yi,
		real(kind=4)	zi,
		integer	iii,
		type(quant_emsurf)	quant
	)

Here is the call graph for this function:

rcs_bistatic_surf()

subroutine emsurf_module_sp::rcs_bistatic_surf	(	complex(kind=4), dimension(:,:)	curr,
		type(c_mesh)	msh,
		type(quant_emsurf)	quant,
		type(c_proctree)	ptree
	)

Here is the call graph for this function:

rcs_monostatic_hh_surf()

subroutine emsurf_module_sp::rcs_monostatic_hh_surf	(	real(kind=8)	dsita,
		real(kind=8)	dphi,
		real(kind=8)	rcs,
		complex(kind=4), dimension(:)	curr,
		type(c_mesh)	msh,
		type(quant_emsurf)	quant,
		type(c_proctree)	ptree
	)

Here is the call graph for this function:

rcs_monostatic_vv_surf()

subroutine emsurf_module_sp::rcs_monostatic_vv_surf	(	real(kind=8)	dsita,
		real(kind=8)	dphi,
		real(kind=8)	rcs,
		complex(kind=4), dimension(:)	curr,
		type(c_mesh)	msh,
		type(quant_emsurf)	quant,
		type(c_proctree)	ptree
	)

Here is the call graph for this function:

triangle_area()

real(kind=8) function emsurf_module_sp::triangle_area	(	integer	patch,
		type(quant_emsurf)	quant
	)

Here is the call graph for this function:

vv_polar_surf()

subroutine emsurf_module_sp::vv_polar_surf	(	real(kind=8)	theta,
		real(kind=8)	phi,
		integer	edge,
		complex(kind=8)	ctemp_1,
		complex(kind=4)	curr,
		type(quant_emsurf)	quant
	)

Here is the call graph for this function:

zelem_emsurf()

subroutine emsurf_module_sp::zelem_emsurf	(	integer, intent(in)	m,
		integer, intent(in)	n,
		complex(kind=4)	value,
		class(*), pointer	quant
	)

Here is the call graph for this function:

zelem_emsurf_real()

subroutine emsurf_module_sp::zelem_emsurf_real	(	integer, intent(in)	m,
		integer, intent(in)	n,
		complex(kind=4)	value_e,
		class(*), pointer	quant
	)

Here is the call graph for this function:

zelem_emsurf_shifted()

subroutine emsurf_module_sp::zelem_emsurf_shifted	(	integer, intent(in)	m,
		integer, intent(in)	n,
		complex(kind=4)	value_e,
		class(*), pointer	quant
	)

Here is the call graph for this function: