addedd missing term in dbgr computation (fwork)

2015-11-04 11:27:13 +00:00 · 2015-11-04 11:27:13 +00:00 · f77624d5ba
commit f77624d5ba
parent 4bb85f0dc1
1 changed files with 1 additions and 2 deletions
--- 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