tem_eval_miescatter_displz Function

public function tem_eval_miescatter_displz(me, coord, time, n) result(res)

Evaluate displacement field (z component) for Mie-Scattering of electromagnetic wave at dielectric cylinder.

Arguments

TypeIntentOptionalAttributesName
type(tem_miescatter_field_type), intent(in) :: me

The function to evaluate

real(kind=rk), intent(in) :: coord(n,3)

barycentric Ids of an elements. 1st index goes over number of elements and 2nd index goes over x,y,z coordinates

real(kind=rk), intent(in) :: time

The time to evaluate the function at.

integer, intent(in) :: n

Number of points to evaluate the function for.

Return Value real(kind=rk)(n)

return value of the function


Calls

proc~~tem_eval_miescatter_displz~~CallsGraph proc~tem_eval_miescatter_displz tem_eval_miescatter_displz proc~hankel2_n hankel2_n proc~tem_eval_miescatter_displz->proc~hankel2_n proc~cart2polar~2 cart2polar proc~tem_eval_miescatter_displz->proc~cart2polar~2

Called by

proc~~tem_eval_miescatter_displz~~CalledByGraph proc~tem_eval_miescatter_displz tem_eval_miescatter_displz proc~tem_spatial_for_coord tem_spatial_for_coord proc~tem_spatial_for_coord->proc~tem_eval_miescatter_displz proc~tem_spacetime_for_coord tem_spacetime_for_coord proc~tem_spacetime_for_coord->proc~tem_eval_miescatter_displz proc~tem_spacetime_for_stcoord tem_spacetime_for_stcoord proc~tem_spacetime_for_stcoord->proc~tem_spacetime_for_coord proc~tem_spacetime_scalar_for_index tem_spacetime_scalar_for_index proc~tem_spacetime_scalar_for_index->proc~tem_spacetime_for_coord interface~tem_spacetime_for tem_spacetime_for interface~tem_spacetime_for->proc~tem_spacetime_for_coord interface~tem_spatial_for tem_spatial_for interface~tem_spatial_for->proc~tem_spatial_for_coord proc~tem_spatial_scalar_for_index tem_spatial_scalar_for_index proc~tem_spatial_scalar_for_index->proc~tem_spatial_for_coord

Contents


Variables

TypeVisibilityAttributesNameInitial
integer, private :: iPoint
integer, private :: iCoeff
real(kind=rk), private :: polar(2)
complex(kind=rk), private :: tmp