clear_amap_t Subroutine

public subroutine clear_amap_t(this)

Arguments

Type IntentOptional Attributes Name
class(amap_t), intent(inout) :: this

Contents

Source Code

clear_amap_t

Source Code

    subroutine clear_amap_t(this)
        class(amap_t), intent(inout)  :: this
        if (allocated(this%pairs)) then
            deallocate(this%pairs)
        end if
        this%high_water = 0
    end subroutine clear_amap_t