EllipsoidIsEqual Function

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


Source Code

FUNCTION EllipsoidIsEqual &
!
(ellps1, ellps2) &
!
RESULT (isEqual)

IMPLICIT NONE

!Arguments with intent(in):
TYPE (Ellipsoid), INTENT(IN) :: ellps1, ellps2

!Local declarations:
LOGICAL :: isEqual
!------------------end of declarations-----------------------------------------

IF (ellps1 % a == ellps2 % a .AND. &
    ellps1 % b == ellps2 % b .AND. &
    ellps1 % inv_f == ellps2 % inv_f ) THEN
    
    isEqual = .TRUE.
ELSE
    isEqual = .FALSE.
END IF

END FUNCTION EllipsoidIsEqual