ge_integer Function

public function ge_integer(df, col, value) result(mask)

Greater than or equal comparison for integer columns

Arguments

Type IntentOptional Attributes Name
type(data_frame), intent(in) :: df
class(*), intent(in) :: col
integer(kind=ik), intent(in) :: value

Return Value type(boolean_mask)


Source Code

    function ge_integer(df, col, value) result(mask)
        type(data_frame), intent(in) :: df
        class(*), intent(in) :: col
        integer(ik), intent(in) :: value
        type(boolean_mask) :: mask

        integer(ik), dimension(:), allocatable :: col_data
        logical, dimension(:), allocatable :: result_mask
        integer :: col_index, i

        col_index = get_column_index(df, col)
        if (df % dtype(col_index) /= INTEGER_NUM) error stop "column is not integer type"

        col_data = df_get_col_integer(df, col_index)
        allocate (result_mask(size(col_data)))

        do i = 1, size(col_data)
            result_mask(i) = col_data(i) >= value
        end do

        call mask % new(result_mask)
        deallocate (col_data, result_mask)
    end function ge_integer