mirror of https://gitlab.com/QEF/q-e.git
41 lines
1.1 KiB
Fortran
41 lines
1.1 KiB
Fortran
!
|
|
!-------------------------------------------------------------------------
|
|
subroutine newd_at
|
|
!-------------------------------------------------------------------------
|
|
!
|
|
! this ruotine computes the new D coeeficients
|
|
!
|
|
!
|
|
use ld1inc
|
|
|
|
integer :: &
|
|
ib,jb,n,is,nst
|
|
|
|
real(kind=dp) :: &
|
|
int_0_inf_dr, & ! the integral function
|
|
gi(ndm) ! the gi function
|
|
|
|
!
|
|
! screening the D coefficients
|
|
!
|
|
if (pseudotype.eq.3) then
|
|
do ib=1,nbeta
|
|
do jb=1,ib
|
|
if (lls(ib).eq.lls(jb).and.abs(jjs(ib)-jjs(jb)).lt.1d-7) then
|
|
nst=(lls(ib)+1)*2
|
|
do is=1,nspin
|
|
do n=1,ikk(ib)
|
|
gi(n)=qvan(n,ib,jb)*vpstot(n,is)
|
|
enddo
|
|
ddd(ib,jb,is)= bmat(ib,jb) &
|
|
+ int_0_inf_dr(gi,r,r2,dx,ikk(ib),nst)
|
|
ddd(jb,ib,is)=ddd(ib,jb,is)
|
|
enddo
|
|
endif
|
|
enddo
|
|
enddo
|
|
endif
|
|
|
|
return
|
|
end
|