geometry_module Module

Geometry routines.


Uses

  • module~~geometry_module~~UsesGraph module~geometry_module geometry_module module~kind_module kind_module module~geometry_module->module~kind_module module~vector_module vector_module module~geometry_module->module~vector_module iso_fortran_env iso_fortran_env module~kind_module->iso_fortran_env module~vector_module->module~kind_module module~numbers_module numbers_module module~vector_module->module~numbers_module module~numbers_module->module~kind_module

Used by

  • module~~geometry_module~~UsedByGraph module~geometry_module geometry_module module~fortran_astrodynamics_toolkit fortran_astrodynamics_toolkit module~fortran_astrodynamics_toolkit->module~geometry_module

Functions

public pure function distance_from_point_to_line(x1, x2, x) result(d)

Author
Jacob Williams
Date
8/2012

Compute the distance between the point X and the line defined by the two points X1 and X2.

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in), dimension(3) :: x1
real(kind=wp), intent(in), dimension(3) :: x2
real(kind=wp), intent(in), dimension(3) :: x

Return Value real(kind=wp)

public pure function distance_from_point_to_line_segment(x1, x2, x) result(d)

Author
Jacob Williams
Date
8/2012

Compute the distance between a line segment and a point.

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in), dimension(:) :: x1
real(kind=wp), intent(in), dimension(:) :: x2
real(kind=wp), intent(in), dimension(:) :: x

Return Value real(kind=wp)

public function distance_from_point_to_path(x0, y0, x, y, n) result(d)

Author
Jacob Williams
Date
8/2012

Compute the distance between a point and a polygonal path. Given a point (x0,y0), and a path (x(n),y(n)), the distance to the path is the distance to the closest line segment (x(i),y(i)).

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: x0
real(kind=wp), intent(in) :: y0
real(kind=wp), intent(in), dimension(n) :: x
real(kind=wp), intent(in), dimension(n) :: y
integer, intent(in) :: n

Return Value real(kind=wp)


Subroutines

public pure subroutine locpt(x0, y0, x, y, n, l, m)

given a polygonal line connecting the vertices (x(i),y(i)) (i = 1,...,n) taken in this order. it is assumed that the polygonal path is a loop, where (x(n),y(n)) = (x(1),y(1)) or there is an arc from (x(n),y(n)) to (x(1),y(1)).

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: x0
real(kind=wp), intent(in) :: y0
real(kind=wp), intent(in), dimension(n) :: x
real(kind=wp), intent(in), dimension(n) :: y
integer, intent(in) :: n
integer, intent(out) :: l
integer, intent(out) :: m

public subroutine geometry_unit_test()

Author
Jacob Williams
Date
8/2012

Unit test routine

Read more…

Arguments

None