dm_transform Module

Coordinate transformations (unfinished).


Uses

  • module~~dm_transform~~UsesGraph module~dm_transform dm_transform module~dm_const dm_const module~dm_transform->module~dm_const module~dm_error dm_error module~dm_transform->module~dm_error module~dm_kind dm_kind module~dm_transform->module~dm_kind module~dm_la dm_la module~dm_transform->module~dm_la module~dm_util dm_util module~dm_transform->module~dm_util module~dm_const->module~dm_kind module~dm_error->module~dm_kind module~dm_ascii dm_ascii module~dm_error->module~dm_ascii iso_fortran_env iso_fortran_env module~dm_kind->iso_fortran_env module~dm_la->module~dm_kind module~dm_util->module~dm_error module~dm_util->module~dm_kind

Used by

  • module~~dm_transform~~UsedByGraph module~dm_transform dm_transform module~dmpack dmpack module~dmpack->module~dm_transform

Functions

public function dm_transform_coord_2d(cs, ct, observs, trans, params, residuals, variance, rotation, scale_factor) result(rc)

Arguments

Type IntentOptional Attributes Name
real(kind=r8), intent(inout) :: cs(:)

Common control points in source system.
real(kind=r8), intent(inout) :: ct(:)

Common control points in target system.
real(kind=r8), intent(inout) :: observs(:)

Observations.
real(kind=r8), intent(out), allocatable :: trans(:)

Transformed observations.
real(kind=r8), intent(out), optional, allocatable :: params(:)

Transformation parameters.
real(kind=r8), intent(out), optional, allocatable :: residuals(:)

Residuals.
real(kind=r8), intent(out), optional :: variance

Reference variance of adjustment.
real(kind=r8), intent(out), optional :: rotation

Rotation angle.
real(kind=r8), intent(out), optional :: scale_factor

Scale factor.

Return Value integer

public function dm_transform_polar_3d(vx, vy, vz, tx, ty, hz, v, dist_hz, x, y, z, azimuth) result(rc)

Calculates coordinates (x, y, z) out of horizontal direction, vertical angle, and slope distance to a target point using a 3-dimensional polar transformation.

Arguments

Type IntentOptional Attributes Name
real(kind=r8), intent(in) :: vx

View point x.
real(kind=r8), intent(in) :: vy

View point y.
real(kind=r8), intent(in) :: vz

View point z.
real(kind=r8), intent(in) :: tx

Target x.
real(kind=r8), intent(in) :: ty

Target y.
real(kind=r8), intent(in) :: hz

Horizontal direction between view point and target point.
real(kind=r8), intent(in) :: v

Vertical angle between view point and target point.
real(kind=r8), intent(in) :: dist_hz

Horizontal distance between view point and target point.
real(kind=r8), intent(out) :: x

Transformed x.
real(kind=r8), intent(out) :: y

Transformed y.
real(kind=r8), intent(out) :: z

Transformed z.
real(kind=r8), intent(in), optional :: azimuth

Global azimuth.

Return Value integer