LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-21 11:03:29 +01:00
Code Releases Activity

Fix bug in number of args

Browse Source
This commit is contained in:
Anthony Scemama 2023-06-02 16:10:04 +02:00
parent 896ac96e7e
commit 81b7751b00
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/ccsd/ccsd_t_space_orb_stoch.irp.f
View File

@ -198,7 +198,7 @@ subroutine ccsd_par_t_space_stoch(nO,nV,t1,t2,f_o,f_v,v_vvvo,v_vvoo,v_vooo,energ
allocate (bounds(2,nbuckets)) allocate (bounds(2,nbuckets))
do isample=1,nbuckets do isample=1,nbuckets
eta = 1.d0/dble(nbuckets) * dble(isample) eta = 1.d0/dble(nbuckets) * dble(isample)
ieta = binary_search(waccu,eta,Nabc,ileft,iright) ieta = binary_search(waccu,eta,Nabc)
bounds(1,isample) = ileft bounds(1,isample) = ileft
bounds(2,isample) = ieta bounds(2,isample) = ieta
ileft = ieta+1 ileft = ieta+1