From f77624d5ba0ff5fa0a2000bbc7472d6a2c79acbb Mon Sep 17 00:00:00 2001 From: Lorenzo Figini Date: Wed, 4 Nov 2015 11:27:13 +0000 Subject: [PATCH] addedd missing term in dbgr computation (fwork) --- src/gray-externals.f | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/gray-externals.f b/src/gray-externals.f index 5f92df0..f2a304b 100644 --- a/src/gray-externals.f +++ b/src/gray-externals.f @@ -2392,8 +2392,7 @@ c bdotgr=bdotgr+bv(iv)*dgr(iv) dbgr(iv)=0.0_wp_ do jv=1,3 -! dbgr(iv)=dbgr(iv)+dgr(jv)*derbv(jv,iv)+bv(jv)*ddgr(jv,iv) - 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