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

Fixed travis

This commit is contained in:
Anthony Scemama 2018-07-02 14:29:35 +02:00
parent e89242ce97
commit 348a6f9f69

View File

@ -46,8 +46,8 @@ subroutine run_pt2_slave(thread,iproc,energy)
done = .False. done = .False.
do while (.not.done) do while (.not.done)
! n_tasks = max(1,n_tasks) n_tasks = max(1,n_tasks)
! n_tasks = min(n_tasks,n_tasks_max) n_tasks = min(n_tasks,n_tasks_max)
integer, external :: get_tasks_from_taskserver integer, external :: get_tasks_from_taskserver
if (get_tasks_from_taskserver(zmq_to_qp_run_socket,worker_id, task_id, task, n_tasks) == -1) then if (get_tasks_from_taskserver(zmq_to_qp_run_socket,worker_id, task_id, task, n_tasks) == -1) then