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

Unused variables removed from "checkallsym" 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@13263 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2017-01-20 18:42:50 +00:00
parent 5966c5354e
commit a27719dcef
3 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PW/src/read_file.f90
View File

@ -253,7 +253,7 @@ SUBROUTINE read_xml_file_internal(withbs)
!
! ... check on symmetry
!
IF (nat > 0) CALL checkallsym( nat, tau, ityp, dfftp%nr1, dfftp%nr2, dfftp%nr3 )
IF (nat > 0) CALL checkallsym( nat, tau, ityp )
!
! Set the different spin indices
!

2
PW/src/read_file_new.f90
View File

@ -240,7 +240,7 @@ SUBROUTINE read_xml_file ( )
!
! ... check on symmetry
!
IF (nat > 0) CALL checkallsym( nat, tau, ityp, dfftp%nr1, dfftp%nr2, dfftp%nr3 )
IF (nat > 0) CALL checkallsym( nat, tau, ityp)
!
! Set the different spin indices
!

10
PW/src/symm_base.f90
View File

@ -869,16 +869,16 @@ LOGICAL FUNCTION checksym ( irot, nat, ityp, xau, rau, ft_ )
END FUNCTION checksym
!
!-----------------------------------------------------------------------
SUBROUTINE checkallsym ( nat, tau, ityp, nr1, nr2, nr3 )
SUBROUTINE checkallsym ( nat, tau, ityp )
!-----------------------------------------------------------------------
! given a crystal group this routine checks that the actual
! atomic positions and bravais lattice vectors are compatible with
! it. Used in relaxation/MD runs to check that atomic motion is
! given a crystal group this routine checks that the actual atomic
! positions and bravais lattice vectors are compatible with it.
! Used in relaxation/MD runs to check that atomic motion is
! consistent with assumed symmetry.
!
IMPLICIT NONE
!
INTEGER, INTENT(in) :: nat, ityp (nat), nr1, nr2, nr3
INTEGER, INTENT(in) :: nat, ityp (nat)
REAL(DP), INTENT(in) :: tau (3, nat)
!
INTEGER :: na, kpol, isym, i, j, k, l