LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-25 05:43:47 +01:00
Code Issues Releases Wiki Activity

potential fragmentation bug

Browse Source
This commit is contained in:
Yann Garniron 2018-08-30 10:07:02 +02:00
parent ad69f39f99
commit aae9d203ec
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

@ -370,7 +370,7 @@ subroutine dress_collector(zmq_socket_pull, E, relative_error, delta, delta_s2,
allocate(breve_delta_m(N_states, N_det, 2)) allocate(breve_delta_m(N_states, N_det, 2))
allocate(dot_f(dress_N_cp)) allocate(dot_f(dress_N_cp))
allocate(S(pt2_N_teeth+1), S2(pt2_N_teeth+1)) allocate(S(pt2_N_teeth+1), S2(pt2_N_teeth+1))
edI = -100000d0 edI = 0d0
cp = 0d0 cp = 0d0
dot_f(:) = dress_dot_F(:) dot_f(:) = dress_dot_F(:)
@ -418,7 +418,7 @@ subroutine dress_collector(zmq_socket_pull, E, relative_error, delta, delta_s2,
endif endif
end do end do
do i=1,n_tasks do i=1,n_tasks
edI(:, edI_index(i)) = edI_task(:, i) !!!!!!!!!!!!!!! += !!!!! edI(:, edI_index(i)) += edI_task(:, i)
end do end do
cp(:,:,m_task,1) += breve_delta_m(:,:,1) cp(:,:,m_task,1) += breve_delta_m(:,:,1)
cp(:,:,m_task,2) += breve_delta_m(:,:,2) cp(:,:,m_task,2) += breve_delta_m(:,:,2)