!
!  Software name : CIAO (Code for Investigating Atomic Orbitals)
!  Subroutine(s) : iswap
!  Author(s)     : Masakuni Okamoto (August 25, 2003)
!
!
!  Contact address :  Phase System Consortium
!                     E-mail: phase_system@nims.go.jp URL https://azuma.nims.go.jp
!
!
!  The license of the code and contact address :
!  See the files, COPYRIGHT and LICENSE (or LICENSE_J.pdf)
!
!=====================================================================
   subroutine iswap(a,b)
!=====================================================================
!
!  Swaps integers a and b
!
!  M. Okamoto
!
!---------------------------------------------------------------------
   implicit none
   integer,intent(inout) :: a, b
   integer :: itmp
   itmp = a ; a = b ; b = itmp
   end subroutine iswap
