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 swap_int interface~swap swap interface~swap->proc~swap_int 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_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