OPERATOR (==) Interface

public interface OPERATOR (==)

Module Procedures

private function CRSisEqual(CRS1, CRS2) result(isEqual)

return .TRUE. if the two coordinate reference systems are equal

Arguments

Type IntentOptional Attributes Name
type(CRS), intent(in) :: CRS1
type(CRS), intent(in) :: CRS2

Return Value logical

private function EllipsoidIsEqual(ellps1, ellps2) result(isEqual)

return .TRUE. if the two ellipsoids are equal

Arguments

Type IntentOptional Attributes Name
type(Ellipsoid), intent(in) :: ellps1
type(Ellipsoid), intent(in) :: ellps2

Return Value logical

private function DatumIsEqual(datum1, datum2) result(isEqual)

return .TRUE. if the two datums are equal

Arguments

Type IntentOptional Attributes Name
type(datum), intent(in) :: datum1
type(datum), intent(in) :: datum2

Return Value logical