istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

addedd missing term in dbgr computation (fwork)

Browse Source
This commit is contained in:
Lorenzo Figini 2015-11-04 11:27:13 +00:00
parent 4bb85f0dc1
commit f77624d5ba
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/gray-externals.f
View File

@ -2392,8 +2392,7 @@ c
bdotgr=bdotgr+bv(iv)*dgr(iv) bdotgr=bdotgr+bv(iv)*dgr(iv)
dbgr(iv)=0.0_wp_ dbgr(iv)=0.0_wp_
do jv=1,3 do jv=1,3
! dbgr(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)
dbgr(iv)=dgr(jv)*derbv(jv,iv)+bv(jv)*ddgr(jv,iv)
end do end do
end do end do
c c