df_get_num_rows Function

private pure function df_get_num_rows(this) result(num_rows)

Type Bound

data_frame

Arguments

Type IntentOptional Attributes Name
class(data_frame), intent(in) :: this

Return Value integer


Source Code

    pure function df_get_num_rows(this) result(num_rows)
        class(data_frame), intent(in) :: this
        integer :: num_rows

        if (this % num_cols == 0) then
            num_rows = 0
        else
            num_rows = this % data_cols(1) % n
        end if
    end function df_get_num_rows