symme => symm_base (forgotten commit)

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@6432 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2010-02-17 17:55:45 +00:00
parent a05ce8d65f
commit ab5b30bd9d
2 changed files with 3 additions and 3 deletions

View File

@ -21,7 +21,7 @@ SUBROUTINE read_file_xspectra(xread_wf)
USE klist, ONLY : nkstot, nks, xk, wk, npk USE klist, ONLY : nkstot, nks, xk, wk, npk
USE lsda_mod, ONLY : lsda, nspin, current_spin, isk USE lsda_mod, ONLY : lsda, nspin, current_spin, isk
USE wvfct, ONLY : nbnd, nbndx, et, wg, npwx USE wvfct, ONLY : nbnd, nbndx, et, wg, npwx
USE symme, ONLY : irt, nsym, ftau, s, d1, d2, d3 USE symm_base, ONLY : irt, nsym, ftau, s, d1, d2, d3
USE ktetra, ONLY : tetra, ntetra USE ktetra, ONLY : tetra, ntetra
USE extfield, ONLY : forcefield, tefield USE extfield, ONLY : forcefield, tefield
USE cellmd, ONLY : cell_factor, lmovecell USE cellmd, ONLY : cell_factor, lmovecell

View File

@ -23,7 +23,7 @@ PROGRAM X_Spectra
USE uspp, ONLY : vkb, nkb, okvan USE uspp, ONLY : vkb, nkb, okvan
USE xspectra USE xspectra
USE ener, ONLY : ef, ef_up, ef_dw !Fermi energy USE ener, ONLY : ef, ef_up, ef_dw !Fermi energy
USE symme, ONLY : nsym,s USE symm_base, ONLY : nsym,s
USE paw_gipaw, ONLY : read_recon, & USE paw_gipaw, ONLY : read_recon, &
paw_vkb, & ! |p> projectors paw_vkb, & ! |p> projectors
paw_becp, & ! product of projectors and wf. paw_becp, & ! product of projectors and wf.