addedd missing term in dbgr computation (fwork) in refl branch

2016-01-26 09:21:06 +00:00 · 2016-01-26 09:21:06 +00:00 · 8e621d0dac
commit 8e621d0dac
parent c0c966af96
1 changed files with 1 additions and 1 deletions
--- 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