mirror of https://gitlab.com/QEF/q-e.git
83 lines
2.3 KiB
Fortran
83 lines
2.3 KiB
Fortran
!
|
|
! Copyright (C) 2004 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 integrate_inward(e,mesh,ndm,grid,f,y,c,el,ik,nstart)
|
|
!----------------------------------------------------------------------
|
|
!
|
|
! this subroutine integrate inward the schroedinger equation
|
|
! only local potential allowed
|
|
!
|
|
use kinds, only : DP
|
|
use radial_grids, only: radial_grid_type
|
|
implicit none
|
|
type(radial_grid_type), intent(in):: grid
|
|
integer :: &
|
|
mesh, & ! size of radial mesh
|
|
ndm, & ! maximum radial mesh
|
|
ik ! the matching point
|
|
|
|
real(DP) :: &
|
|
e, & ! output eigenvalue
|
|
f(mesh), & ! the function defining the equation
|
|
y(mesh), & ! the output solution
|
|
c(mesh),el(mesh) ! auxiliary space
|
|
|
|
real(DP) :: &
|
|
rstart, & ! the starting r of the inward integration
|
|
di, & ! auxiliary for integration
|
|
expn ! exponential for tail of wavefunction
|
|
|
|
integer :: &
|
|
nstart, & ! the starting point of inward integration
|
|
n ! counter on mesh points
|
|
|
|
!
|
|
! prepare inward integration
|
|
! charlotte froese can j phys 41,1895(1963)
|
|
!
|
|
! start at min( rmax, 10*rmatch )
|
|
!
|
|
nstart=mesh
|
|
if (mesh .ne. grid%mesh) call errore('integrate_inward','mesh dimention not as expected',1)
|
|
rstart=10.0_dp*grid%r(ik)
|
|
if (rstart.lt.grid%r(mesh)) then
|
|
do n=ik,mesh
|
|
nstart=n
|
|
if(grid%r(n).ge.rstart) go to 100
|
|
enddo
|
|
100 if (mod(nstart,2) == 0) nstart=nstart+1
|
|
endif
|
|
!
|
|
! set up a, l, and c vectors
|
|
!
|
|
n=ik+1
|
|
el(n)=10.0_dp*f(n)-12.0_dp
|
|
c(n)=-f(ik)*y(ik)
|
|
do n=ik+2,nstart
|
|
di=10.0_dp*f(n)-12.0_dp
|
|
el(n)=di-f(n)*f(n-1)/el(n-1)
|
|
c(n)=-c(n-1)*f(n-1)/el(n-1)
|
|
enddo
|
|
!
|
|
! start inward integration by the froese's tail procedure
|
|
!
|
|
n=nstart-1
|
|
expn=exp(-sqrt(12.0_dp*abs(1.0_dp-f(n))))
|
|
y(n)=c(n)/(el(n)+f(nstart)*expn)
|
|
y(nstart)=expn*y(n)
|
|
!
|
|
! and integrate inward
|
|
!
|
|
do n=nstart-2,ik+1,-1
|
|
y(n)=(c(n)-f(n+1)*y(n+1))/el(n)
|
|
enddo
|
|
|
|
return
|
|
end subroutine integrate_inward
|