swap32 Subroutine

private pure elemental subroutine swap32(i1, i2)

Swap two integer values.

Arguments

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

Called by

proc~~swap32~~CalledByGraph proc~swap32 swap32 interface~swap swap interface~swap->proc~swap32 proc~sort_ascending sort_ascending proc~sort_ascending->interface~swap interface~sort sort interface~sort->proc~sort_ascending proc~unique32 unique32 proc~unique32->interface~sort proc~unique64 unique64 proc~unique64->interface~sort interface~unique unique interface~unique->proc~unique32 interface~unique->proc~unique64

Source Code

    pure elemental subroutine swap32(i1,i2)

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

    integer :: tmp

    tmp = i1
    i1  = i2
    i2  = tmp

    end subroutine swap32