swap_real Subroutine

private pure elemental subroutine swap_real(i1, i2)

Swap two integer values.

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(inout) :: i1
real(kind=wp), intent(inout) :: i2

Called by

proc~~swap_real~~CalledByGraph proc~swap_real swap_real interface~swap swap interface~swap->proc~swap_real proc~sort_ascending_int sort_ascending_int proc~sort_ascending_int->interface~swap proc~sort_ascending_real sort_ascending_real proc~sort_ascending_real->interface~swap interface~sort_ascending sort_ascending interface~sort_ascending->proc~sort_ascending_int interface~sort_ascending->proc~sort_ascending_real proc~unique_int unique_int proc~unique_int->interface~sort_ascending proc~unique_real unique_real proc~unique_real->interface~sort_ascending interface~unique unique interface~unique->proc~unique_int interface~unique->proc~unique_real proc~divide_interval divide_interval proc~divide_interval->interface~unique proc~put_in_cache function_cache%put_in_cache proc~put_in_cache->interface~unique proc~compute_function_with_cache compute_function_with_cache proc~compute_function_with_cache->proc~put_in_cache proc~compute_sparsity_random_2 compute_sparsity_random_2 proc~compute_sparsity_random_2->proc~divide_interval

Source Code

    pure elemental subroutine swap_real(i1,i2)

    implicit none

    real(wp),intent(inout) :: i1
    real(wp),intent(inout) :: i2

    real(wp) :: tmp

    tmp = i1
    i1  = i2
    i2  = tmp

    end subroutine swap_real