Swapping numbers...
!====================================
subroutine swap(m,n)
implicit none
integer::m,n
integer temp
temp=m !store first number in temp
m=n !store n in m
n=temp !store temp in n
end subroutine swap
!====================================
