create_3d_axis_corners Subroutine

public subroutine create_3d_axis_corners(x_min, x_max, y_min, y_max, z_min, z_max, corners_3d)

Generate 8 corners of 3D bounding box

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	x_min
real(kind=wp),	intent(in)			::	x_max
real(kind=wp),	intent(in)			::	y_min
real(kind=wp),	intent(in)			::	y_max
real(kind=wp),	intent(in)			::	z_min
real(kind=wp),	intent(in)			::	z_max
real(kind=wp),	intent(out)			::	corners_3d(3,8)