mirror of https://gitlab.com/QEF/q-e.git
fix memory leak on ps_r in orthogonalize
This commit is contained in:
parent
40fe0cfd2a
commit
eec538a86d
|
@ -227,6 +227,10 @@ SUBROUTINE orthogonalize(dvpsi, evq, ikk, ikq, dpsi, npwq, dpsi_computed)
|
|||
!
|
||||
DEALLOCATE(ps)
|
||||
!
|
||||
IF (gamma_only) THEN
|
||||
DEALLOCATE(ps_r)
|
||||
ENDIF
|
||||
!
|
||||
CALL stop_clock ('ortho')
|
||||
!
|
||||
RETURN
|
||||
|
|
Loading…
Reference in New Issue