LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-07-03 01:45:59 +02:00
Code Issues Releases Wiki Activity

Corrected bug in pt2stoch

Browse Source
This commit is contained in:
Anthony Scemama 2017-02-01 17:00:39 +01:00
parent ca0f0732c2
commit fe5f640346
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f
View File

@ -295,8 +295,8 @@ integer function pt2_find(v, w, sze, imin, imax)
end if end if
end do end do
!DIR$ LOOP COUNT (64) !DIR$ LOOP COUNT (64)
do pt2_find=l,min(l+block,h) do pt2_find=l,h
if(w(pt2_find+1) > v) then if(w(pt2_find) >= v) then
exit exit
end if end if
end do end do