10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-24 13:23:41 +01:00

removed print

This commit is contained in:
Yann Garniron 2018-08-31 18:57:03 +02:00
parent fee31d4e3e
commit de4a0d0caf

View File

@ -385,9 +385,6 @@ subroutine dress_collector(zmq_socket_pull, E, relative_error, delta, delta_s2,
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)
if(m_task == 1) then
print *, "M1", f
end if
dot_f(m_task) -= f dot_f(m_task) -= f
end if end if
end do end do