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 call "setlocal" at the end of ESM forces 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@13978 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2017-11-02 17:29:26 +00:00
parent c492ef97ee
commit 142345a947
1 changed files with 4 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
PW/src/esm.f90
View File

@ -6410,10 +6410,8 @@ SUBROUTINE esm_force_lc_bc1 ( aux, forcelc )
enddo
deallocate(for_g)
call setlocal()
deallocate(rhog3)
return
END SUBROUTINE esm_force_lc_bc1
@ -6581,10 +6579,8 @@ SUBROUTINE esm_force_lc_bc2 ( aux, forcelc )
enddo
deallocate(for_g)
call setlocal()
deallocate(rhog3)
return
END SUBROUTINE esm_force_lc_bc2
@ -6746,10 +6742,8 @@ SUBROUTINE esm_force_lc_bc3 ( aux, forcelc )
enddo
deallocate(for_g)
call setlocal()
deallocate(rhog3)
return
END SUBROUTINE esm_force_lc_bc3
@ -6964,10 +6958,8 @@ SUBROUTINE esm_force_lc_bc4 ( aux, forcelc )
enddo
deallocate(for_g)
call setlocal()
deallocate(rhog3)
return
END SUBROUTINE esm_force_lc_bc4