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