calculate_mean_real Function

private function calculate_mean_real(df, col_index) result(avg)

Calculate mean of a real column

Arguments

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

Return Value real(kind=rk)


Source Code

    function calculate_mean_real(df, col_index) result(avg)
        type(data_frame), intent(in) :: df
        integer, intent(in) :: col_index
        real(rk) :: avg

        real(rk), dimension(:), allocatable :: col

        col = df_get_col_real(df, col_index)
        avg = sum(col) / real(size(col), rk)
    end function calculate_mean_real