calculate_std_real Function

private function calculate_std_real(df, col_index) result(stddev)

Calculate standard deviation 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_std_real(df, col_index) result(stddev)
        type(data_frame), intent(in) :: df
        integer, intent(in) :: col_index
        real(rk) :: stddev

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

        col = df_get_col_real(df, col_index)
        avg = calculate_mean_real(df, col_index)
        stddev = sqrt(sum((col - avg)**2) / real(size(col) - 1, rk))
    end function calculate_std_real