scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Minor cleanup 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@8232 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2011-11-08 15:12:40 +00:00
parent cc23be5722
commit e2e4bb5081
5 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
CPV/src/fromscra.f90
View File

@ -16,7 +16,7 @@ SUBROUTINE from_scratch( )
force_pairing
USE ions_positions, ONLY : taus, tau0, tausm, vels, fion, fionm, atoms0
USE ions_base, ONLY : na, nsp, randpos, zv, ions_vel
USE ions_base, ONLY : taui, cdmi, nat, iforce
USE ions_base, ONLY : cdmi, nat, iforce
USE ions_nose, ONLY : xnhp0, xnhpm, vnhp
USE cell_base, ONLY : ainv, h, s_to_r, ibrav, omega, press, &
hold, r_to_s, deth, wmass, iforceh, &

2
CPV/src/init_run.f90
View File

@ -71,7 +71,7 @@ SUBROUTINE init_run()
USE wave_types, ONLY : wave_descriptor_info
USE xml_io_base, ONLY : restart_dir, create_directory, change_directory
USE orthogonalize_base, ONLY : mesure_diag_perf, mesure_mmul_perf
USE ions_base, ONLY : ions_reference_positions, cdmi, taui
USE ions_base, ONLY : ions_reference_positions, cdmi
USE mp_global, ONLY : nimage, my_image_id, nbgrp, me_image, intra_image_comm
USE mp, ONLY : mp_barrier
USE wrappers

6
CPV/src/inner_loop_cold.f90
View File

@ -35,7 +35,7 @@
USE gvecw, ONLY: ngw
USE gvect, ONLY: gstart
USE uspp_param, ONLY: nvb, ish
USE ions_base, ONLY: na, nat, nax, nsp, rcmax
USE ions_base, ONLY: na, nat, nsp
USE cell_base, ONLY: omega, alat
USE fft_base, ONLY: dfftp, dffts
USE local_pseudo, ONLY: vps, rhops
@ -329,7 +329,7 @@
USE gvecw, ONLY: ngw
USE gvect, ONLY: gstart
USE uspp_param, ONLY: nvb, ish, nh
USE ions_base, ONLY: na, nat, nax, nsp, rcmax
USE ions_base, ONLY: na, nat, nsp
USE cell_base, ONLY: omega, alat
USE local_pseudo, ONLY: vps, rhops
USE io_global, ONLY: stdout, ionode, ionode_id
@ -510,7 +510,7 @@
USE gvect, &
ONLY: gstart
USE uspp_param, ONLY: nvb, ish
USE ions_base, ONLY: na, nat, nax, nsp, rcmax
USE ions_base, ONLY: na, nat, nsp
USE cell_base, ONLY: omega, alat
USE local_pseudo, ONLY: vps, rhops
USE io_global, ONLY: stdout, ionode, ionode_id

2
CPV/src/input.f90
View File

@ -808,7 +808,7 @@ MODULE input
USE input_parameters, ONLY : lda_plus_u, Hubbard_U
USE input_parameters, ONLY : step_pen, A_pen, alpha_pen, sigma_pen
!
USE ions_base, ONLY : tau, ityp, zv
USE ions_base, ONLY : zv
USE cell_base, ONLY : cell_base_init, cell_dyn_init, at, cell_alat
USE cell_nose, ONLY : cell_nose_init
USE ions_base, ONLY : ions_base_init, greasp_ => greasp

2
CPV/src/wannier.f90
View File

@ -182,7 +182,7 @@ MODULE electric_field_module
!
LOGICAL :: field_tune, ft
REAL(DP) :: efe_elec, efe_ion, prefactor, e_tuned(3)
REAL(DP) :: tt(3), cdmm(3), tt2(3)
REAL(DP) :: tt(3), tt2(3)
REAL(DP) :: par, alen, blen, clen, rel1(3), rel2(3)
!
END MODULE electric_field_module