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