LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-11-03 20:54:00 +01:00
Code Issues Releases Wiki Activity

Removed prints

Browse Source
This commit is contained in:
Anthony Scemama 2016-08-01 20:03:46 +02:00
parent eaee625df4
commit 36a6bd01c6
4 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ocaml/TaskServer.ml
View File

@ -589,7 +589,6 @@ let start_pub_thread ~port =
else
state
in
print_endline (string_of_pub_state new_state);
ZMQ.Socket.send pub_socket @@ string_of_pub_state new_state;
match state with
| Stopped -> ()

12
plugins/Full_CI_ZMQ/selection.irp.f
View File

@ -3,13 +3,11 @@
BEGIN_PROVIDER [ double precision, integral8, (mo_tot_num, mo_tot_num, mo_tot_num, mo_tot_num) ]
integral8 = 0d0
integer :: h1, h2
print *, "provide int"
do h1=1, mo_tot_num
do h2=1, mo_tot_num
call get_mo_bielec_integrals_ij(h1, h2 ,mo_tot_num,integral8(1,1,h1,h2),mo_integrals_map)
end do
end do
print *, "end provide int"
END_PROVIDER
@ -21,7 +19,7 @@ subroutine selection_slaved(thread,iproc)
integer, intent(in) :: thread, iproc
integer :: rc, i
integer :: worker_id, task_id(100), ctask, ltask
integer :: worker_id, task_id(1), ctask, ltask
character*(512) :: task
integer(ZMQ_PTR),external :: new_zmq_to_qp_run_socket
@ -51,7 +49,9 @@ subroutine selection_slaved(thread,iproc)
do
call get_task_from_taskserver(zmq_to_qp_run_socket,worker_id, task_id(ctask), task)
done = task_id(ctask) == 0
if (.not. done) then
if (done) then
ctask = ctask - 1
else
integer :: i_generator, N
read (task,*) i_generator, N
if(buf%N == 0) then
@ -62,8 +62,6 @@ subroutine selection_slaved(thread,iproc)
!print *, "psi_selectors_coef ", psi_selectors_coef(N_det_selectors-5:N_det_selectors, 1)
!call debug_det(psi_selectors(1,1,N_det_selectors), N_int)
call select_connected(i_generator,ci_electronic_energy,pt2,buf)
else
ctask = ctask - 1
endif
if(done .or. ctask == size(task_id)) then
@ -300,7 +298,7 @@ subroutine selection_collector(b, pt2)
end do
done += ntask
call CPU_TIME(time)
print *, "DONE" , done, time - time0
! print *, "DONE" , done, time - time0
end do

2
plugins/Full_CI_ZMQ/selection_slave.irp.f
View File

@ -52,7 +52,7 @@ subroutine run_wf
do k=1,size(ci_electronic_energy)
ci_electronic_energy(k) = energy(k)
enddo
SOFT_TOUCH ci_electronic_energy CI_eigenvectors_s2 CI_eigenvectors
TOUCH ci_electronic_energy CI_eigenvectors_s2 CI_eigenvectors
endif
call write_double(6,ci_energy,'Energy')

1
src/ZMQ/utils.irp.f
View File

@ -881,7 +881,6 @@ subroutine wait_for_state(state_wait,state)
print *, 'Timeout reached. Stopping'
state = "Stopped"
endif
print *, '|'//trim(state(1:rc))//'|'//trim(state_wait)//'|'
end do
call end_zmq_sub_socket(zmq_socket_sub)
end