From 0a7298dbc249ba149e959393037ba207a228ddd3 Mon Sep 17 00:00:00 2001 From: giannozz Date: Mon, 31 Mar 2014 14:32:52 +0000 Subject: [PATCH] Yet another problem with Hubbard U after recent changes: bad dimensios git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@10828 c92efa57-630b-4861-b058-cf58834340f0 --- Modules/qexml.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Modules/qexml.f90 b/Modules/qexml.f90 index fe07c9b0c..c2b3466e0 100644 --- a/Modules/qexml.f90 +++ b/Modules/qexml.f90 @@ -3395,7 +3395,7 @@ CONTAINS IF ( present( lda_plus_u_kind ) ) lda_plus_u_kind = lda_plus_u_kind_ IF ( present( U_projection ) ) U_projection = U_projection_ IF ( present( Hubbard_lmax ) ) Hubbard_lmax = Hubbard_lmax_ - IF ( present( Hubbard_l ) ) Hubbard_l(1:Hubbard_lmax_) = Hubbard_l_(:) + IF ( present( Hubbard_l ) ) Hubbard_l(1:nsp_) = Hubbard_l_(:) IF ( present( Hubbard_U ) ) Hubbard_U(1:nsp_) = Hubbard_U_(1:nsp_) IF ( present( Hubbard_J ) ) Hubbard_J(1:3,1:nsp_) = Hubbard_J_(1:3,1:nsp_) IF ( present( Hubbard_J0 ) ) Hubbard_J0(1:nsp_) = Hubbard_J0_(1:nsp_)