The AHA Model
Revision: 12809
Reference implementation 04 (HEDG02_04)
|
Internal distance calculation backend engine. More...
Public Member Functions | |
elemental real(srp) function | dist_scalar (x1, x2, y1, y2, z1, z2) |
Calculate distance between 3D or 2D points. This is a function engine for use within type bound procedures. Example (dist_scalar): More... | |
pure real(srp) function | dist_vector_nd (cvector1, cvector2) |
Calculate distance between N-dimensional points. This is a function engine for use within other type bound procedures. More... | |
elemental real(srp) function the_environment::dist::dist_scalar | ( | real(srp), intent(in) | x1, |
real(srp), intent(in) | x2, | ||
real(srp), intent(in) | y1, | ||
real(srp), intent(in) | y2, | ||
real(srp), intent(in), optional | z1, | ||
real(srp), intent(in), optional | z2 | ||
) |
Calculate distance between 3D or 2D points. This is a function engine for use within type bound procedures. Example (dist_scalar):
pure real(srp) function the_environment::dist::dist_vector_nd | ( | real(srp), dimension(:), intent(in) | cvector1, |
real(srp), dimension(:), intent(in) | cvector2 | ||
) |
Calculate distance between N-dimensional points. This is a function engine for use within other type bound procedures.
cvector | N-dimensional vectors for the two points we calculate the distance between. For a 3D case the vercors look like: x = cvector(1), y = cvector(2), z = cvector(3). Example dist_vector: dist( [1.0, 2.0, 3.0], [10.0, 20.0, 30.0] )
|