Commit f68259ad authored by timrov's avatar timrov

Deleting the old copy of setqmod.f90 from PHonon


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@12182 c92efa57-630b-4861-b058-cf58834340f0
parent fe47e747
......@@ -36,6 +36,7 @@ setup_nbnd_occ.o \
setup_alpha_pv.o \
qdipol_cryst.o \
adddvepsi_us.o \
setqmod.o \
lrcom.o
TLDEPS=libfft mods
......
......@@ -195,6 +195,7 @@ set_int3_nc.o : ../Modules/noncol.o
set_int3_nc.o : ../Modules/uspp.o
set_int3_nc.o : ../PW/src/pwcom.o
set_int3_nc.o : lrcom.o
setqmod.o : ../Modules/kind.o
setup_alpha_pv.o : ../Modules/kind.o
setup_alpha_pv.o : ../Modules/mp.o
setup_alpha_pv.o : ../Modules/mp_pools.o
......
......@@ -126,7 +126,6 @@ set_irr_nosym.o \
set_irr_sym.o \
set_small_group_of_q.o \
setlocq.o \
setqmod.o \
sgam_ph.o \
solve_e.o \
solve_e_fpol.o \
......
......@@ -1275,7 +1275,6 @@ set_small_group_of_q.o : ../../Modules/paw_variables.o
set_small_group_of_q.o : ../../PW/src/symm_base.o
setlocq.o : ../../Modules/constants.o
setlocq.o : ../../Modules/kind.o
setqmod.o : ../../Modules/kind.o
sgam_ph.o : ../../Modules/kind.o
solve_e.o : ../../FFTXlib/fft_parallel.o
solve_e.o : ../../LR_Modules/lrcom.o
......
!
! Copyright (C) 2001-2016 Quantum ESPRESSO 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 setqmod (ngm, xq, g, qmod, qpg)
!-----------------------------------------------------------------------
!
! This subroutine puts in qmod the modulus of q+G for the interpolation
! table used to compute qgm
!
USE kinds, only : DP
implicit none
integer :: ngm
! input: the number of G vectors
real(DP) :: xq (3), g (3, ngm), qmod (ngm), qpg (3, ngm)
! input: the q vector
! input: the G vectors
! output: the modulus of the G vectors
! output: the q+G vectors
integer :: ig
! counter on G vectors
do ig = 1, ngm
qpg (1, ig) = xq (1) + g (1, ig)
qpg (2, ig) = xq (2) + g (2, ig)
qpg (3, ig) = xq (3) + g (3, ig)
qmod (ig) = qpg (1, ig) **2 + qpg (2, ig) **2 + qpg (3, ig) **2
enddo
return
end subroutine setqmod
......@@ -581,7 +581,6 @@ stop_lr.o : ../../Modules/mp_global.o
stop_lr.o : ../../Modules/noncol.o
stop_lr.o : ../../Modules/parallel_include.o
stop_lr.o : ../../Modules/plugin_flags.o
stop_lr.o : ../../PHonon/PH/phcom.o
stop_lr.o : ../../PW/src/buffers.o
stop_lr.o : ../../PW/src/pwcom.o
stop_lr.o : lr_variables.o
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment