swap_str Subroutine

private pure elemental subroutine swap_str(i1, i2)

Swap two character string values

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(inout) :: i1
character(len=*), intent(inout) :: i2

Called by

proc~~swap_str~~CalledByGraph proc~swap_str swap_str interface~swap swap interface~swap->proc~swap_str 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 swap_str(i1,i2)

    character(len=*),intent(inout) :: i1
    character(len=*),intent(inout) :: i2

    character(len=len(i1)) :: tmp

    tmp = i1
    i1  = i2
    i2  = tmp

    end subroutine swap_str