mask_destructor Subroutine

private subroutine mask_destructor(this)

Destroy a boolean mask and free memory

@param[in,out] this The boolean mask instance

Type Bound

boolean_mask

Arguments

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

Source Code

    subroutine mask_destructor(this)
        class(boolean_mask), intent(inout) :: this

        if (allocated(this % mask)) deallocate (this % mask)
        this % size = 0
        this % initialized = .false.
    end subroutine mask_destructor