reverse_real32 Function

private pure function reverse_real32(array) result(reverse)

Uses

  • proc~~reverse_real32~~UsesGraph proc~reverse_real32 reverse_real32 iso_fortran_env iso_fortran_env proc~reverse_real32->iso_fortran_env

Reverse the order of elements in array. Single precision variant. (KCW, 2024-07-17)

Arguments

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

Return Value real(kind=real32), (size(array))


Called by

proc~~reverse_real32~~CalledByGraph proc~reverse_real32 reverse_real32 interface~reverse reverse interface~reverse->proc~reverse_real32 none~init_shared_variables~3 init_shared_variables none~init_shared_variables~3->interface~reverse none~set_mpas_physics_tendency_rtheta set_mpas_physics_tendency_rtheta none~set_mpas_physics_tendency_rtheta->interface~reverse none~set_mpas_physics_tendency_ru set_mpas_physics_tendency_ru none~set_mpas_physics_tendency_ru->interface~reverse none~set_mpas_state_rho_theta set_mpas_state_rho_theta none~set_mpas_state_rho_theta->interface~reverse none~set_mpas_state_scalars set_mpas_state_scalars none~set_mpas_state_scalars->interface~reverse none~set_mpas_state_u set_mpas_state_u none~set_mpas_state_u->interface~reverse none~set_physics_state_column set_physics_state_column none~set_physics_state_column->interface~reverse proc~dyn_exchange_constituent_states dyn_exchange_constituent_states proc~dyn_exchange_constituent_states->interface~reverse proc~init_reference_pressure init_reference_pressure proc~init_reference_pressure->interface~reverse interface~dyn_exchange_constituent_states dyn_exchange_constituent_states interface~dyn_exchange_constituent_states->proc~dyn_exchange_constituent_states proc~dynamics_to_physics_coupling dynamics_to_physics_coupling proc~dynamics_to_physics_coupling->none~set_physics_state_column proc~dynamics_to_physics_coupling->interface~dyn_exchange_constituent_states none~set_physics_state_external set_physics_state_external proc~dynamics_to_physics_coupling->none~set_physics_state_external proc~model_grid_init model_grid_init proc~model_grid_init->proc~init_reference_pressure proc~physics_to_dynamics_coupling physics_to_dynamics_coupling proc~physics_to_dynamics_coupling->none~set_mpas_physics_tendency_rtheta proc~physics_to_dynamics_coupling->none~set_mpas_physics_tendency_ru proc~physics_to_dynamics_coupling->interface~dyn_exchange_constituent_states proc~set_analytic_initial_condition set_analytic_initial_condition proc~set_analytic_initial_condition->none~init_shared_variables~3 proc~set_analytic_initial_condition->none~set_mpas_state_rho_theta proc~set_analytic_initial_condition->none~set_mpas_state_scalars proc~set_analytic_initial_condition->none~set_mpas_state_u interface~dynamics_to_physics_coupling dynamics_to_physics_coupling interface~dynamics_to_physics_coupling->proc~dynamics_to_physics_coupling interface~model_grid_init model_grid_init interface~model_grid_init->proc~model_grid_init interface~physics_to_dynamics_coupling physics_to_dynamics_coupling interface~physics_to_dynamics_coupling->proc~physics_to_dynamics_coupling none~set_physics_state_external->interface~dyn_exchange_constituent_states proc~dyn_init dyn_init proc~dyn_init->interface~dyn_exchange_constituent_states proc~dyn_init->proc~set_analytic_initial_condition interface~dyn_init dyn_init interface~dyn_init->proc~dyn_init proc~stepon_run2 stepon_run2 proc~stepon_run2->interface~physics_to_dynamics_coupling proc~stepon_timestep_init stepon_timestep_init proc~stepon_timestep_init->interface~dynamics_to_physics_coupling

Variables

Type Visibility Attributes Name Initial
integer, private :: n

Source Code

    pure function reverse_real32(array) result(reverse)
        use, intrinsic :: iso_fortran_env, only: real32

        real(real32), intent(in) :: array(:)
        real(real32) :: reverse(size(array))

        integer :: n

        n = size(array)

        ! There is nothing to reverse.
        if (n == 0) then
            return
        end if

        reverse(:) = array(n:1:-1)
    end function reverse_real32