swap_int Subroutine

private pure elemental subroutine swap_int(i1, i2)

Swap two integer values.

Arguments

Type IntentOptional Attributes Name
integer, intent(inout) :: i1
integer, intent(inout) :: i2

Called by

proc~~swap_int~~CalledByGraph proc~swap_int numdiff_utilities_module::swap_int interface~swap numdiff_utilities_module::swap interface~swap->proc~swap_int proc~sort_ascending_int numdiff_utilities_module::sort_ascending_int proc~sort_ascending_int->interface~swap proc~sort_ascending_real numdiff_utilities_module::sort_ascending_real proc~sort_ascending_real->interface~swap interface~sort_ascending numdiff_utilities_module::sort_ascending interface~sort_ascending->proc~sort_ascending_int interface~sort_ascending->proc~sort_ascending_real proc~unique_int numdiff_utilities_module::unique_int proc~unique_int->interface~sort_ascending proc~unique_real numdiff_utilities_module::unique_real proc~unique_real->interface~sort_ascending interface~unique numdiff_utilities_module::unique interface~unique->proc~unique_int interface~unique->proc~unique_real proc~divide_interval numdiff_utilities_module::divide_interval proc~divide_interval->interface~unique proc~put_in_cache numdiff_cache_module::function_cache%put_in_cache proc~put_in_cache->interface~unique proc~compute_function_with_cache numerical_differentiation_module::compute_function_with_cache proc~compute_function_with_cache->proc~put_in_cache proc~compute_sparsity_random_2 numerical_differentiation_module::compute_sparsity_random_2 proc~compute_sparsity_random_2->proc~divide_interval

Source Code

    pure elemental subroutine swap_int(i1,i2)

    implicit none

    integer,intent(inout) :: i1
    integer,intent(inout) :: i2

    integer :: tmp

    tmp = i1
    i1  = i2
    i2  = tmp

    end subroutine swap_int