df_nunique_integer Function

public function df_nunique_integer(df, col_index) result(n_unique)

Count number of unique values in integer column

Arguments

Type IntentOptional Attributes Name
type(data_frame), intent(in) :: df
integer, intent(in) :: col_index

Return Value integer


Source Code

    function df_nunique_integer(df, col_index) result(n_unique)
        type(data_frame), intent(in) :: df
        integer, intent(in) :: col_index
        integer :: n_unique

        integer(ik), dimension(:), allocatable :: unique_vals

        if (col_index < 1 .or. col_index > df % ncols()) error stop "column index out of range"
        if (df % dtype(col_index) /= INTEGER_NUM) error stop "column is not integer type"

        unique_vals = df_unique_integer(df, col_index)
        n_unique = size(unique_vals)
    end function df_nunique_integer