From 87d29725af878c584225f278415baa022322a045 Mon Sep 17 00:00:00 2001 From: sbraccia Date: Mon, 17 Nov 2003 09:25:28 +0000 Subject: [PATCH] df_ns and dv_ns types changed from complex to real. C.S. git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@398 c92efa57-630b-4861-b058-cf58834340f0 --- PW/mix_rho.f90 | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/PW/mix_rho.f90 b/PW/mix_rho.f90 index 824c9234a..c679ab033 100644 --- a/PW/mix_rho.f90 +++ b/PW/mix_rho.f90 @@ -63,16 +63,17 @@ subroutine mix_rho (rhout, rhoin, nsout, nsin, alphamix, dr2, iter, & complex (kind=DP), allocatable :: rhocin(:,:), rhocout(:,:), & rhoinsave(:), rhoutsave(:), & nsinsave(:,:,:,:), nsoutsave(:,:,:,:) - complex (kind=DP), allocatable, save :: df(:,:), dv(:,:), & - df_ns(:,:,:,:,:), dv_ns(:,:,:,:,:) + + real (kind=DP), allocatable, save :: df_ns(:,:,:,:,:), dv_ns(:,:,:,:,:) + ! df_ns(2*Hubbard_lmax+1,2*Hubbard_lmax+1,nspin,nat,n_iter):idem + ! dv_ns(2*Hubbard_lmax+1,2*Hubbard_lmax+1,nspin,nat,n_iter):idem + complex (kind=DP), allocatable, save :: df(:,:), dv(:,:) ! rhocin(ngm0,nspin) ! rhocout(ngm0,nspin) ! rhoinsave(ngm0*nspin): work space ! rhoutsave(ngm0*nspin): work space ! df(ngm0*nspin,n_iter): information from preceding iterations ! dv(ngm0*nspin,n_iter): " " " " " " - ! df_ns(2*Hubbard_lmax+1,2*Hubbard_lmax+1,nspin,nat,n_iter):idem - ! dv_ns(2*Hubbard_lmax+1,2*Hubbard_lmax+1,nspin,nat,n_iter):idem integer :: ldim