is_equal Function

Source File

private recursive function is_equal(this, that) result(equal)

Arguments

Type	Intent	Optional	Attributes		Name
class(vector_ref),	intent(in)			::	this
class(*),	intent(in)			::	that

Return Value logical

Calls

Help

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public		::	i

Source Code

    recursive logical function is_equal(this, that) result(equal)
        class(vector_ref), intent(in) :: this
        class(*), intent(in) :: that
        integer :: i
        equal = .true.
        select type(that)
            class is (vector_ref)
                if(this%current_size /= that%current_size) then
                    equal = .false.
                    return
                end if
                do i = 1, this%current_size
                    if(.not. object_equal(this%items(i)%stuff, &
                                          that%items(i)%stuff)) then
                        equal = .false.
                        return
                    end if
                end do
            class default
                equal = .false.
        end select
    end function is_equal

Project

General

Profile

Earth System Model Environment » self - Fortran STL

is_equal Function

Variables

Source Code

All Procedures

private recursive function is_equal(this, that) result(equal)

Arguments

Return Value logical

Calls

Variables

Source Code