mirror of https://gitlab.com/QEF/q-e.git
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:
parent
c492ef97ee
commit
142345a947
|
@ -6410,10 +6410,8 @@ SUBROUTINE esm_force_lc_bc1 ( aux, forcelc )
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
deallocate(for_g)
|
deallocate(for_g)
|
||||||
|
|
||||||
call setlocal()
|
|
||||||
|
|
||||||
deallocate(rhog3)
|
deallocate(rhog3)
|
||||||
|
|
||||||
return
|
return
|
||||||
END SUBROUTINE esm_force_lc_bc1
|
END SUBROUTINE esm_force_lc_bc1
|
||||||
|
|
||||||
|
@ -6581,10 +6579,8 @@ SUBROUTINE esm_force_lc_bc2 ( aux, forcelc )
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
deallocate(for_g)
|
deallocate(for_g)
|
||||||
|
|
||||||
call setlocal()
|
|
||||||
|
|
||||||
deallocate(rhog3)
|
deallocate(rhog3)
|
||||||
|
|
||||||
return
|
return
|
||||||
END SUBROUTINE esm_force_lc_bc2
|
END SUBROUTINE esm_force_lc_bc2
|
||||||
|
|
||||||
|
@ -6746,10 +6742,8 @@ SUBROUTINE esm_force_lc_bc3 ( aux, forcelc )
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
deallocate(for_g)
|
deallocate(for_g)
|
||||||
|
|
||||||
call setlocal()
|
|
||||||
|
|
||||||
deallocate(rhog3)
|
deallocate(rhog3)
|
||||||
|
|
||||||
return
|
return
|
||||||
END SUBROUTINE esm_force_lc_bc3
|
END SUBROUTINE esm_force_lc_bc3
|
||||||
|
|
||||||
|
@ -6964,10 +6958,8 @@ SUBROUTINE esm_force_lc_bc4 ( aux, forcelc )
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
deallocate(for_g)
|
deallocate(for_g)
|
||||||
|
|
||||||
call setlocal()
|
|
||||||
|
|
||||||
deallocate(rhog3)
|
deallocate(rhog3)
|
||||||
|
|
||||||
return
|
return
|
||||||
END SUBROUTINE esm_force_lc_bc4
|
END SUBROUTINE esm_force_lc_bc4
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue