compute_step Interface

private interface compute_step

Compute arithmetic and geometric mean using the given prev_a and prev_g.

Warning

  • This interface assumes both inputs are positive.
  • No validation is performed on inputs.

Module Procedures

private elemental subroutine compute_step_real32(prev_a, prev_g, next_a, next_g)

Compute arithmetic and geometric mean using the given prev_a and prev_g.

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=real32), intent(in) :: prev_a

previous arithmetic mean
real(kind=real32), intent(in) :: prev_g

previous geometric mean
real(kind=real32), intent(out) :: next_a

next arithmetic mean
real(kind=real32), intent(out) :: next_g

next geometric mean

private elemental subroutine compute_step_real64(prev_a, prev_g, next_a, next_g)

Compute arithmetic and geometric mean using the given prev_a and prev_g.

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: prev_a

previous arithmetic mean
real(kind=real64), intent(in) :: prev_g

previous geometric mean
real(kind=real64), intent(out) :: next_a

next arithmetic mean
real(kind=real64), intent(out) :: next_g

next geometric mean

private elemental subroutine compute_step_real128(prev_a, prev_g, next_a, next_g)

Compute arithmetic and geometric mean using the given prev_a and prev_g.

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=real128), intent(in) :: prev_a

previous arithmetic mean
real(kind=real128), intent(in) :: prev_g

previous geometric mean
real(kind=real128), intent(out) :: next_a

next arithmetic mean
real(kind=real128), intent(out) :: next_g

next geometric mean