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

The line calling read_restart_tetra without check was still there 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@1432 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2004-11-05 16:58:24 +00:00
parent fd15bd1508
commit f9d1f9c83e
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PW/force_hub.f90
View File

@ -46,7 +46,7 @@ SUBROUTINE force_hub(forceh)
INTEGER, ALLOCATABLE :: offset(:)
! offset(nat) : offset of d electrons of atom d in the natomwfc ordering
COMPLEX (kind=DP) :: ZDOTC, c_one, c_zero
COMPLEX (kind=DP) :: c_one, c_zero
INTEGER :: alpha, na, nt, is, m1, m2, ipol, ldim, l, n, ik
INTEGER :: counter

2
PW/restart.f90
View File

@ -1035,8 +1035,6 @@ CONTAINS
! == Tetrahedra ==
! ==--------------------------------------------------------------==
CALL read_restart_tetra( ndr, ltetra, ntetra, tetra )
IF ( ltetra ) THEN
!
CALL read_restart_tetra( ndr, ltetra, ntetra, tetra )