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

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

Browse Source
This commit is contained in:
Daniele Micheletti 2016-01-26 09:21:06 +00:00
parent c0c966af96
commit 8e621d0dac
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/gray.f
View File

@ -3204,7 +3204,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)=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
end do end do
c c