scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
sbraccia 2003-11-17 09:25:28 +00:00
parent d49cc4fa3b
commit 87d29725af
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
PW/mix_rho.f90
View File

@ -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