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

No reason to have in the same routine both nsp and ntyp pointing to nsp 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3588 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2006-12-06 13:13:53 +00:00
parent 84d83c2309
commit 9e86b75f67
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PW/read_file.f90
View File

@ -15,7 +15,7 @@ SUBROUTINE read_file()
! ... in the pwscf program and reads them from the data file.
!
USE kinds, ONLY : DP
USE ions_base, ONLY : nat, nsp, ntyp => nsp, ityp, tau, if_pos
USE ions_base, ONLY : nat, nsp, ityp, tau, if_pos
USE basis, ONLY : natomwfc
USE cell_base, ONLY : tpiba2, alat,omega, at, bg, ibrav
USE force_mod, ONLY : force
@ -168,7 +168,7 @@ SUBROUTINE read_file()
!
END DO
!
IF ( .NOT. lspinorb ) CALL average_pp ( ntyp )
IF ( .NOT. lspinorb ) CALL average_pp ( nsp )
!
! ... allocate the potential and wavefunctions
!