Too many swapping routines around

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3477 c92efa57-630b-4861-b058-cf58834340f0

PW/Makefile

@@ -219,7 +219,6 @@ sum_band.o \
 sumkg.o \
 sumkt.o \
 summary.o \
-swap.o \
 symmetrize_at.o \
 symrho.o \
 symrho_mag.o \

PW/hinit0.f90

@@ -61,8 +61,8 @@ SUBROUTINE hinit0()
      !
      CALL cryst_to_cart( nat, tau, bg, - 1 )
      !
-     CALL swap( 9, at, at_old )
-     CALL swap( 1, omega, omega_old )
+     CALL dswap( 9, at, 1, at_old, 1 )
+     CALL dswap( 1, omega, 1, omega_old, 1 )
      !
      CALL cryst_to_cart( nat, tau, at, + 1 )
      !

PW/read_conf_from_file.f90

@@ -58,8 +58,8 @@ SUBROUTINE read_config_from_file()
      !
      CALL cryst_to_cart( nat, tau, bg, - 1 )
      !
-     CALL swap( 9, at, at_old )
-     CALL swap( 1, omega, omega_old )
+     CALL dswap( 9, at, 1, at_old,1  )
+     CALL dswap( 1, omega, 1, omega_old, 1 )
      !
      CALL cryst_to_cart( nat, tau, at, + 1 )
      !

PW/swap.f90

@@ -1,37 +0,0 @@
-!
-! Copyright (C) 2001 PWSCF group
-! This file is distributed under the terms of the
-! GNU General Public License. See the file `License'
-! in the root directory of the present distribution,
-! or http://www.gnu.org/copyleft/gpl.txt .
-!
-!-----------------------------------------------------------------------
-subroutine swap (n, x, x1)
-  !-----------------------------------------------------------------------
-  ! swap array x with array x1
-  !
-  USE kinds
-  implicit none
-  !
-  !   I/O variables
-  !
-  integer :: n
-  ! input: dimension of the vector
-  real(DP) :: x (n), x1 (n)
-  ! I/O: the vectors
-  !
-  !   local variables
-  !
-  integer :: i
-  ! counter on the elements
-
-  real(DP) :: xswap
-  ! work
-  do i = 1, n
-     xswap = x (i)
-     x (i) = x1 (i)
-     x1 (i) = xswap
-
-  enddo
-  return
-end subroutine swap