swap Subroutine

private pure elemental subroutine swap(i1, i2)

Swap two integer values.

Arguments

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

Called by

proc~~swap~~CalledByGraph proc~swap swap proc~sort_ascending sort_ascending proc~sort_ascending->proc~swap proc~unique unique proc~unique->proc~sort_ascending proc~read_csv_file csv_file%read_csv_file proc~read_csv_file->proc~unique

Source Code

    pure elemental subroutine swap(i1,i2)

    implicit none

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

    integer :: tmp

    tmp = i1
    i1  = i2
    i2  = tmp

    end subroutine swap