mirror of https://gitlab.com/QEF/q-e.git
47 lines
1.4 KiB
Fortran
47 lines
1.4 KiB
Fortran
!
|
|
! 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 .
|
|
!
|
|
#include "f_defs.h"
|
|
!
|
|
!----------------------------------------------------------------------
|
|
subroutine init_vloc()
|
|
!----------------------------------------------------------------------
|
|
!
|
|
! This routine computes the fourier coefficient of the local
|
|
! potential vloc(ig,it) for each type of atom
|
|
!
|
|
USE atom, ONLY : numeric, msh, mesh, r, rab
|
|
USE uspp_param, ONLY : vloc_at
|
|
USE ions_base, ONLY : ntyp => nsp
|
|
USE cell_base, ONLY : omega, tpiba2
|
|
USE vlocal, ONLY : vloc
|
|
USE gvect, ONLY : ngl, gl
|
|
USE pseud, ONLY : lloc, lmax, cc, nlc, nnl, alpc, alps, aps, zp
|
|
!
|
|
implicit none
|
|
!
|
|
integer :: nt
|
|
! counter on atomic types
|
|
!
|
|
|
|
call start_clock ('init_vloc')
|
|
vloc(:,:) = 0.d0
|
|
do nt = 1, ntyp
|
|
!
|
|
! compute V_loc(G) for a given type of atom
|
|
!
|
|
call vloc_of_g (lloc (nt), lmax (nt), numeric (nt), mesh (nt), &
|
|
msh (nt), rab (1, nt), r (1, nt), vloc_at (1, nt), cc (1, &
|
|
nt), alpc (1, nt), nlc (nt), nnl (nt), zp (nt), aps (1, 0, nt), &
|
|
alps (1, 0, nt), tpiba2, ngl, gl, omega, vloc (1, nt) )
|
|
|
|
enddo
|
|
call stop_clock ('init_vloc')
|
|
return
|
|
end subroutine init_vloc
|
|
|