From aff8a375e6cd86a8b0913e444c43dd1725376b4a Mon Sep 17 00:00:00 2001
From: Thomas Chassaing <tchassai@pci.unizh.ch>
Date: Fri, 29 Oct 2004 12:26:20 +0000
Subject: [PATCH] Bug fix for memory leak fix.

svn-origin-rev: 3019
---
 src/xc_rho_set_types.F | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/xc_rho_set_types.F b/src/xc_rho_set_types.F
index 3b284d3e72..2c6123eaf5 100644
--- a/src/xc_rho_set_types.F
+++ b/src/xc_rho_set_types.F
@@ -1217,7 +1217,6 @@ CONTAINS
              CASE default
                 CPAssert(.FALSE.,cp_failure_level,routineP,error,failure)
              END SELECT
-             NULLIFY(my_rho_g)
              CALL pw_pool_give_back_pw(pw_pool, tmp_g ,error=error)
           ELSE
              SELECT CASE(dft_control%xc_deriv_method_id)
@@ -1278,6 +1277,7 @@ CONTAINS
           my_rho_g_local=.FALSE.
           CALL pw_pool_give_back_pw(pw_pool, my_rho_g ,error=error)
        END IF
+       NULLIFY(my_rho_g)
 
     END DO