From 8e621d0dacde39500d30b7fc4b2b9644b78f4680 Mon Sep 17 00:00:00 2001 From: Daniele Micheletti Date: Tue, 26 Jan 2016 09:21:06 +0000 Subject: [PATCH] addedd missing term in dbgr computation (fwork) in refl branch --- src/gray.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/gray.f b/src/gray.f index e9f9dd7..ac648db 100644 --- a/src/gray.f +++ b/src/gray.f @@ -3204,7 +3204,7 @@ c bdotgr=bdotgr+bv(iv)*dgr(iv) dbgr(iv)=0.0_wp_ do jv=1,3 - dbgr(iv)=dgr(jv)*derbv(jv,iv)+bv(jv)*ddgr(jv,iv) + dbgr(iv)=dbgr(iv)+dgr(jv)*derbv(jv,iv)+bv(jv)*ddgr(jv,iv) end do end do c