10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-25 13:53:49 +01:00

Removed prints

This commit is contained in:
Anthony Scemama 2018-09-26 16:15:53 +02:00
parent 502fd9d1fd
commit 118bdba3f9

View File

@ -516,7 +516,6 @@ subroutine dress_collector(zmq_socket_pull, E, relative_error, delta, delta_s2,
more = 1 more = 1
do while (.not. found) do while (.not. found)
print *, 'm, dotfm', m, dot_f(m)
if(dot_f(m) == 0) then if(dot_f(m) == 0) then
E0 = 0 E0 = 0
do i=dress_dot_n_0(m),1,-1 do i=dress_dot_n_0(m),1,-1
@ -534,7 +533,6 @@ print *, 'm, dotfm', m, dot_f(m)
end do end do
end do end do
t = dress_dot_t(m) t = dress_dot_t(m)
!print *, 'm dressncp', m, dress_N_cp
avg = E0 + S(t) / dble(c) avg = E0 + S(t) / dble(c)
if (c > 2) then if (c > 2) then
eqt = dabs((S2(t) / c) - (S(t)/c)**2) eqt = dabs((S2(t) / c) - (S(t)/c)**2)