swap64 Subroutine

private pure elemental subroutine swap64(i1, i2)

Swap two integer values.

Arguments

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

Called by

proc~~swap64~~CalledByGraph proc~swap64 swap64 interface~swap swap interface~swap->proc~swap64 proc~sort_ascending_64 sort_ascending_64 proc~sort_ascending_64->proc~swap64 interface~sort sort interface~sort->proc~sort_ascending_64 proc~sort_ascending sort_ascending interface~sort->proc~sort_ascending proc~sort_ascending->interface~swap 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 swap64(i1,i2)

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

    integer(ip) :: tmp

    tmp = i1
    i1  = i2
    i2  = tmp

    end subroutine swap64