SetHotineParametersCoord Subroutine

private subroutine SetHotineParametersCoord(coord, lat0, centM, azimuth, falseE, falseN, k)

Set parameters for Hotine Oblique Mercator reference system

Arguments

Type IntentOptional Attributes Name
type(Coordinate), intent(inout) :: coord
real(kind=float), intent(in) :: lat0

Latitude of projection center [rad]
real(kind=float), intent(in) :: centM

Longitude of projection center [rad]
real(kind=float), intent(in) :: azimuth

azimuth of centerline
real(kind=float), intent(in) :: falseE

Easting/X at the center of the projection
real(kind=float), intent(in) :: falseN

Northing/Y at the center of the projection

real(kind=float), intent(in) :: k

scale factor

Source Code

SUBROUTINE SetHotineParametersCoord &
!
(coord, lat0, centM, azimuth, falseE, falseN, k)

IMPLICIT NONE

!Arguments with intent (in):
REAL (KIND = float), INTENT (IN) :: lat0 !!Latitude of projection center [rad]
REAL (KIND = float), INTENT (IN) :: centM !!Longitude of projection center [rad]
REAL (KIND = float), INTENT (IN) :: azimuth !!azimuth of centerline
REAL (KIND = float), INTENT (IN) :: falseE !!Easting/X at the center of the projection
REAL (KIND = float), INTENT (IN) :: falseN !!Northing/Y at the center of the projection 
REAL (KIND = float), INTENT (IN) :: k !!scale factor
! Arguments with intent (inout):
TYPE (Coordinate), INTENT (INOUT) :: coord

!------------end of declaration------------------------------------------------

!set Hotine Oblique Mercator parameters value

CALL SetHotineParametersSystem (coord % system, lat0, centM, &
                                azimuth, falseE, falseN, k)

END SUBROUTINE SetHotineParametersCoord