SUBROUTINE XF_GET_HORIZ_DATUM(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
INTEGER, INTENT(OUT) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_GET_HORIZ_UNITS(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
INTEGER, INTENT(OUT) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_GET_VERT_DATUM(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
INTEGER, INTENT(OUT) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_GET_VERT_UNITS(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
INTEGER, INTENT(OUT) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_GET_LAT(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
INTEGER, INTENT(OUT) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_GET_LON(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
INTEGER, INTENT(OUT) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_GET_UTM_ZONE(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
INTEGER, INTENT(OUT) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_GET_SPC_ZONE(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
INTEGER, INTENT(OUT) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_GET_HPGN_AREA(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
INTEGER, INTENT(OUT) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_GET_CPP_LAT(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
REAL(DOUBLE), INTENT(OUT) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_GET_CPP_LON(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
REAL(DOUBLE), INTENT(OUT) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_GET_ELLIPSE(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
INTEGER, INTENT(OUT) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_GET_MAJOR_R(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
REAL(DOUBLE), INTENT(OUT) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_GET_MINOR_R(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
REAL(DOUBLE), INTENT(OUT) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_SET_HORIZ_DATUM(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
INTEGER, INTENT(IN) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_SET_HORIZ_UNITS(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
INTEGER, INTENT(IN) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_SET_VERT_DATUM(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
INTEGER, INTENT(IN) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_SET_VERT_UNITS(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
INTEGER, INTENT(IN) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_SET_LAT(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
INTEGER, INTENT(IN) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_SET_LON(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
INTEGER, INTENT(IN) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_SET_UTM_ZONE(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
INTEGER, INTENT(IN) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_SET_SPC_ZONE(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
INTEGER, INTENT(IN) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_SET_HPGN_AREA(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
INTEGER, INTENT(IN) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_SET_CPP_LAT(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
REAL(DOUBLE), INTENT(IN) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_SET_CPP_LON(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
REAL(DOUBLE), INTENT(IN) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_SET_ELLIPSE(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
INTEGER, INTENT(IN) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_SET_MAJOR_R(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
REAL(DOUBLE), INTENT(IN) :: Val
INTEGER, INTENT(OUT) :: Error
SUBROUTINE XF_SET_MINOR_R(CoordId, Val, Error)
INTEGER(XID), INTENT(IN) :: CoordId
REAL(DOUBLE), INTENT(IN) :: Val
INTEGER, INTENT(OUT) :: Error