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

overflow of pt2_J

Browse Source
This commit is contained in:
Yann Garniron 2018-09-02 17:18:44 +02:00
parent 8df49f394b
commit abb3b7e08b
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/dress_zmq/dress_stoch_routines.irp.f
View File

@ -43,7 +43,7 @@ END_PROVIDER
l=dress_R1(m-1)+1 l=dress_R1(m-1)+1
do j=l, dress_R1(m) do j=l, dress_R1(m)
if(dress_M_mi(m, pt2_J(j)) == 0 .and. pt2_J(j) > dress_dot_n_0(m)) then if(dress_M_mi(m, pt2_J(j)) == 0 .and. pt2_J(j) > dress_dot_n_0(m)) then
pt2_J(j) += N_det_generators**2 pt2_J(j) += N_det_generators
nmov += 1 nmov += 1
end if end if
end do end do
@ -52,7 +52,7 @@ END_PROVIDER
end if end if
dress_R1(m) -= nmov dress_R1(m) -= nmov
do j=dress_R1(m)+1, dress_R1(m) + nmov do j=dress_R1(m)+1, dress_R1(m) + nmov
pt2_J(j) -= N_det_generators**2 pt2_J(j) -= N_det_generators
end do end do
end do end do
END_PROVIDER END_PROVIDER