From 3dc516aaceee9fc719a4c7ba014d3e1296a78223 Mon Sep 17 00:00:00 2001 From: "Lorenzo Paulatto (naquite)" Date: Mon, 23 Apr 2018 10:25:28 +0200 Subject: [PATCH] Variables dvxc_rr, dvxc_sr, dvxc_ss, dvxc_s were declared intent OUT but I'mp pretty sure they should have been intent IN, as they are used here, not defined --- LR_Modules/dgradcorr.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/LR_Modules/dgradcorr.f90 b/LR_Modules/dgradcorr.f90 index 69f33e53a..15cc88a10 100644 --- a/LR_Modules/dgradcorr.f90 +++ b/LR_Modules/dgradcorr.f90 @@ -28,7 +28,7 @@ subroutine dgradcorr (dfft, rho, grho, dvxc_rr, dvxc_sr, dvxc_ss, & ! REAL(DP), INTENT(IN) ::rho (dfft%nnr, nspin), grho (3, dfft%nnr, nspin0), & g (3, dfft%ngm), xq(3) - REAL(DP), INTENT(OUT) :: & + REAL(DP), INTENT(IN) :: & dvxc_rr(dfft%nnr, nspin0, nspin0), dvxc_sr (dfft%nnr, nspin0, nspin0), & dvxc_ss (dfft%nnr,nspin0, nspin0), dvxc_s (dfft%nnr, nspin0, nspin0) COMPLEX(DP), INTENT(IN) :: drho (dfft%nnr, nspin)