[Q-e-commits] r8232 - trunk/espresso/CPV/src

[giannozz at democritos.it]

Author: giannozz
Date: 2011-11-08 16:12:40 +0100 (Tue, 08 Nov 2011)
New Revision: 8232

Modified:
   trunk/espresso/CPV/src/fromscra.f90
   trunk/espresso/CPV/src/init_run.f90
   trunk/espresso/CPV/src/inner_loop_cold.f90
   trunk/espresso/CPV/src/input.f90
   trunk/espresso/CPV/src/wannier.f90
Log:
Minor cleanup


Modified: trunk/espresso/CPV/src/fromscra.f90
===================================================================
--- trunk/espresso/CPV/src/fromscra.f90	2011-11-08 14:28:58 UTC (rev 8231)
+++ trunk/espresso/CPV/src/fromscra.f90	2011-11-08 15:12:40 UTC (rev 8232)
@@ -16,7 +16,7 @@
                                      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,   &

Modified: trunk/espresso/CPV/src/init_run.f90
===================================================================
--- trunk/espresso/CPV/src/init_run.f90	2011-11-08 14:28:58 UTC (rev 8231)
+++ trunk/espresso/CPV/src/init_run.f90	2011-11-08 15:12:40 UTC (rev 8232)
@@ -71,7 +71,7 @@
   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

Modified: trunk/espresso/CPV/src/inner_loop_cold.f90
===================================================================
--- trunk/espresso/CPV/src/inner_loop_cold.f90	2011-11-08 14:28:58 UTC (rev 8231)
+++ trunk/espresso/CPV/src/inner_loop_cold.f90	2011-11-08 15:12:40 UTC (rev 8232)
@@ -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

Modified: trunk/espresso/CPV/src/input.f90
===================================================================
--- trunk/espresso/CPV/src/input.f90	2011-11-08 14:28:58 UTC (rev 8231)
+++ trunk/espresso/CPV/src/input.f90	2011-11-08 15:12:40 UTC (rev 8232)
@@ -808,7 +808,7 @@
      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

Modified: trunk/espresso/CPV/src/wannier.f90
===================================================================
--- trunk/espresso/CPV/src/wannier.f90	2011-11-08 14:28:58 UTC (rev 8231)
+++ trunk/espresso/CPV/src/wannier.f90	2011-11-08 15:12:40 UTC (rev 8232)
@@ -182,7 +182,7 @@
   !
   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