2003-01-20 05:58:50 +08:00
|
|
|
!
|
|
|
|
|
! 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 .
|
|
|
|
|
!
|
|
|
|
|
!
|
|
|
|
|
!-----------------------------------------------------------------------
|
2003-02-08 00:04:36 +08:00
|
|
|
subroutine davcio_drho (drho, lrec, iunit, nrec, isw)
|
2003-01-20 05:58:50 +08:00
|
|
|
!-----------------------------------------------------------------------
|
|
|
|
|
!
|
|
|
|
|
! reads/writes variation of the charge with respect to a perturbation
|
|
|
|
|
! on a file.
|
|
|
|
|
! isw = +1 : gathers data from the nodes and writes on a single file
|
|
|
|
|
! isw = -1 : reads data from a single file and distributes them
|
|
|
|
|
!
|
|
|
|
|
#include "machine.h"
|
|
|
|
|
|
2003-02-08 00:04:36 +08:00
|
|
|
use pwcom
|
2004-01-23 23:08:03 +08:00
|
|
|
USE kinds, only : DP
|
2003-02-08 00:04:36 +08:00
|
|
|
use phcom
|
2003-02-21 22:57:00 +08:00
|
|
|
#ifdef __PARA
|
2003-01-20 05:58:50 +08:00
|
|
|
use para
|
2004-03-08 01:18:22 +08:00
|
|
|
USE io_global, ONLY : ionode_id
|
|
|
|
|
USE mp, ONLY : mp_bcast
|
2003-01-20 05:58:50 +08:00
|
|
|
#endif
|
|
|
|
|
implicit none
|
2003-02-08 00:04:36 +08:00
|
|
|
integer :: iunit, lrec, nrec, isw
|
|
|
|
|
complex(kind=DP) :: drho (nrxx, nspin)
|
2003-02-21 22:57:00 +08:00
|
|
|
#ifdef __PARA
|
2003-02-08 00:04:36 +08:00
|
|
|
include 'mpif.h'
|
2003-01-20 05:58:50 +08:00
|
|
|
!
|
|
|
|
|
! local variables
|
|
|
|
|
!
|
|
|
|
|
|
2003-02-08 00:04:36 +08:00
|
|
|
integer :: root, errcode, itmp, proc, is
|
2003-01-20 05:58:50 +08:00
|
|
|
|
2003-02-08 00:04:36 +08:00
|
|
|
complex(kind=DP), allocatable :: ddrho (:,:)
|
|
|
|
|
|
|
|
|
|
allocate (ddrho( nrx1 * nrx2 * nrx3 , nspin))
|
2004-03-07 21:47:42 +08:00
|
|
|
if (isw == 1) then
|
2003-01-20 05:58:50 +08:00
|
|
|
!
|
|
|
|
|
! First task of the first pool is the only task allowed to write
|
|
|
|
|
! the file
|
|
|
|
|
!
|
2003-02-08 00:04:36 +08:00
|
|
|
do is = 1, nspin
|
|
|
|
|
call cgather_sym (drho (1, is), ddrho (1, is) )
|
2003-01-20 05:58:50 +08:00
|
|
|
enddo
|
2003-02-08 00:04:36 +08:00
|
|
|
root = 0
|
|
|
|
|
call MPI_barrier (MPI_COMM_WORLD, errcode)
|
2003-02-21 22:57:00 +08:00
|
|
|
call errore ('davcio_drho', 'at barrier', errcode)
|
2003-01-20 05:58:50 +08:00
|
|
|
|
2004-03-07 21:47:42 +08:00
|
|
|
if (me == 1) call davcio (ddrho, lrec, iunit, nrec, + 1)
|
|
|
|
|
elseif (isw < 0) then
|
2003-01-20 05:58:50 +08:00
|
|
|
!
|
|
|
|
|
! First task of the pool reads ddrho, and broadcasts to all the
|
|
|
|
|
! processors of the pool
|
|
|
|
|
!
|
2004-03-07 21:47:42 +08:00
|
|
|
if (me == 1) call davcio (ddrho, lrec, iunit, nrec, - 1)
|
2004-03-08 23:30:40 +08:00
|
|
|
call mp_bcast( ddrho, ionode_id, MPI_COMM_POOL )
|
2003-01-20 05:58:50 +08:00
|
|
|
!
|
|
|
|
|
! Distributes ddrho between between the tasks of the pool
|
|
|
|
|
!
|
2003-02-08 00:04:36 +08:00
|
|
|
itmp = 1
|
|
|
|
|
do proc = 1, me-1
|
|
|
|
|
itmp = itmp + ncplane * npp (proc)
|
2003-01-20 05:58:50 +08:00
|
|
|
enddo
|
2003-02-08 00:04:36 +08:00
|
|
|
do is = 1, nspin
|
2004-03-07 21:47:42 +08:00
|
|
|
drho (:, is) = (0.d0, 0.d0)
|
|
|
|
|
call ZCOPY (ncplane * npp (me), ddrho (itmp, is), 1, drho (1, is), 1)
|
2003-01-20 05:58:50 +08:00
|
|
|
enddo
|
|
|
|
|
endif
|
2003-02-08 00:04:36 +08:00
|
|
|
deallocate(ddrho)
|
2003-01-20 05:58:50 +08:00
|
|
|
#else
|
2003-02-08 00:04:36 +08:00
|
|
|
call davcio (drho, lrec, iunit, nrec, isw)
|
2003-01-20 05:58:50 +08:00
|
|
|
#endif
|
2003-02-08 00:04:36 +08:00
|
|
|
return
|
2003-01-20 05:58:50 +08:00
|
|
|
end subroutine davcio_drho
|
