ply_point_tensor Subroutine

private subroutine ply_point_tensor(nPoints1D, nDims, nodeset, points)

Compute a multi-dimensional tensor for the given set of nodes.

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: nPoints1D

Number auf integration points in each direction.

integer, intent(in) :: nDims

Number of dimensions to create the points for.

procedure(ply_nodeset_coords) :: nodeset

Set of node coordinates to use in the element.

real(kind=rk), intent(out) :: points(nPoints1D**nDims,nDims)

Resulting list of points. First index runs over all points, second indicates the coordinate dimension (x=1,y=2,z=3).


Called by

proc~~ply_point_tensor~~CalledByGraph proc~ply_point_tensor ply_point_tensor proc~ply_nodes_volume_coords ply_nodes_volume_coords proc~ply_nodes_volume_coords->proc~ply_point_tensor proc~ply_nodes_surface_coords ply_nodes_surface_coords proc~ply_nodes_surface_coords->proc~ply_point_tensor proc~ply_nodes_create ply_nodes_create proc~ply_nodes_create->proc~ply_nodes_volume_coords proc~ply_nodes_create->proc~ply_nodes_surface_coords proc~ply_poly_project_fillbody ply_poly_project_fillbody proc~ply_poly_project_fillbody->proc~ply_nodes_create proc~ply_fill_project_list ply_fill_project_list proc~ply_fill_project_list->proc~ply_poly_project_fillbody proc~sdr_proto2treelm sdr_proto2treelm proc~sdr_proto2treelm->proc~ply_poly_project_fillbody

Contents


Variables

TypeVisibilityAttributesNameInitial
integer, private :: j
integer, private :: k
integer, private :: jk
integer, private :: n1d
integer, private :: nPlane
real(kind=rk), private, allocatable:: gaussp1D(:)
integer, private :: numQuadPoints