initialize_real32 Subroutine

private elemental subroutine initialize_real32(agm)

Initialize components: n_iter, list_a and list_g

Arguments

Type IntentOptional Attributes Name
type(arithmetic_geometric_mean_real32_type), intent(inout) :: agm

Source Code

    elemental subroutine initialize_real32(agm)
        !! Initialize components: `n_iter`, `list_a` and `list_g`

        type(arithmetic_geometric_mean_real32_type), intent(inout) :: agm



        agm%n_iter_ = initial_n_iter

        agm%list_a(:) = ieee_value( x = 0.0_real32, class = ieee_quiet_nan )
        agm%list_g(:) = agm%list_a(:)

    end subroutine initialize_real32