fix memory leak on ps_r in orthogonalize

This commit is contained in:
Sergio Orlandini 2022-03-08 14:39:41 +01:00 committed by Oscar Baseggio
parent 40fe0cfd2a
commit eec538a86d
1 changed files with 4 additions and 0 deletions

View File

@ -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