LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-23 04:43:50 +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 else
state state
in in
print_endline (string_of_pub_state new_state);
ZMQ.Socket.send pub_socket @@ string_of_pub_state new_state; ZMQ.Socket.send pub_socket @@ string_of_pub_state new_state;
match state with match state with
| Stopped -> () | 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) ] BEGIN_PROVIDER [ double precision, integral8, (mo_tot_num, mo_tot_num, mo_tot_num, mo_tot_num) ]
integral8 = 0d0 integral8 = 0d0
integer :: h1, h2 integer :: h1, h2
print *, "provide int"
do h1=1, mo_tot_num do h1=1, mo_tot_num
do h2=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) call get_mo_bielec_integrals_ij(h1, h2 ,mo_tot_num,integral8(1,1,h1,h2),mo_integrals_map)
end do end do
end do end do
print *, "end provide int"
END_PROVIDER END_PROVIDER
@ -21,7 +19,7 @@ subroutine selection_slaved(thread,iproc)
integer, intent(in) :: thread, iproc integer, intent(in) :: thread, iproc
integer :: rc, i integer :: rc, i
integer :: worker_id, task_id(100), ctask, ltask integer :: worker_id, task_id(1), ctask, ltask
character*(512) :: task character*(512) :: task
integer(ZMQ_PTR),external :: new_zmq_to_qp_run_socket integer(ZMQ_PTR),external :: new_zmq_to_qp_run_socket
@ -51,7 +49,9 @@ subroutine selection_slaved(thread,iproc)
do do
call get_task_from_taskserver(zmq_to_qp_run_socket,worker_id, task_id(ctask), task) call get_task_from_taskserver(zmq_to_qp_run_socket,worker_id, task_id(ctask), task)
done = task_id(ctask) == 0 done = task_id(ctask) == 0
if (.not. done) then if (done) then
ctask = ctask - 1
else
integer :: i_generator, N integer :: i_generator, N
read (task,*) i_generator, N read (task,*) i_generator, N
if(buf%N == 0) then 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) !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 debug_det(psi_selectors(1,1,N_det_selectors), N_int)
call select_connected(i_generator,ci_electronic_energy,pt2,buf) call select_connected(i_generator,ci_electronic_energy,pt2,buf)
else
ctask = ctask - 1
endif endif
if(done .or. ctask == size(task_id)) then if(done .or. ctask == size(task_id)) then
@ -300,7 +298,7 @@ subroutine selection_collector(b, pt2)
end do end do
done += ntask done += ntask
call CPU_TIME(time) call CPU_TIME(time)
print *, "DONE" , done, time - time0 ! print *, "DONE" , done, time - time0
end do 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) do k=1,size(ci_electronic_energy)
ci_electronic_energy(k) = energy(k) ci_electronic_energy(k) = energy(k)
enddo enddo
SOFT_TOUCH ci_electronic_energy CI_eigenvectors_s2 CI_eigenvectors TOUCH ci_electronic_energy CI_eigenvectors_s2 CI_eigenvectors
endif endif
call write_double(6,ci_energy,'Energy') 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' print *, 'Timeout reached. Stopping'
state = "Stopped" state = "Stopped"
endif endif
print *, '|'//trim(state(1:rc))//'|'//trim(state_wait)//'|'
end do end do
call end_zmq_sub_socket(zmq_socket_sub) call end_zmq_sub_socket(zmq_socket_sub)
end end