Go to the source code of this file.
|
module | point |
| Implements a point.
|
|
|
type(point_t) function | point::point_init (x, id) |
| Initialize a point from an array x of \( (x,y,z) \) coordinates.
|
|
type(point_t) function | point::point_init_xyz (x, y, z, id) |
| Initialize a point from \( (x,y,z) \) coordinates.
|
|
subroutine | point::point_assign (this, x) |
| Assigns coordinates x to a point.
|
|
pure logical function | point::point_eq (p1, p2) |
| Check if \( p_{1} = p_{2} \).
|
|
pure logical function | point::point_ne (p1, p2) |
| Check if \( p_{1} \neq p_{2} \).
|
|
pure logical function | point::point_lt (p1, p2) |
| Check if \( p_{1} < p_{2} \).
|
|
pure logical function | point::point_gt (p1, p2) |
| Check if \( p_{1} > p_{2} \).
|
|
type(point_t) function | point::point_add (p1, p2) |
| Returns the addition of 2 points \( p_{1} + p_{2} \).
|
|
type(point_t) function | point::point_subtract (p1, p2) |
| Returns the subtraction of 2 points \( p_{1} - p_{2} \).
|
|
type(point_t) function | point::point_scalar_mult (p, a) |
| Returns the multiplication of a point by a scalar \( a*p_{1} \).
|
|
pure real(kind=rp) function | point::point_euclid_dist (p1, p2) |
| Returns the Euclidean distance between two points \( \mid p_1 - p_2 \mid \).
|
|
type(point_t) function | point::point_mat_mult (a, x) |
| Computes matrix-vector product in \( \mathbb{R}^3 \): \( b = Ax \).
|
|