program swapmain
 use swapmod
 implicit none
 real :: a,b
 read *, a,b
 call swap(a,b)
 write(*,*) a,b
end program swapmain