From 7246641fcef2b8e13464f0233952d992557183f1 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Wed, 27 Jun 2018 15:54:59 +0200 Subject: [PATCH] type mismatch --- plugins/Full_CI_ZMQ/run_selection_slave.irp.f | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/plugins/Full_CI_ZMQ/run_selection_slave.irp.f b/plugins/Full_CI_ZMQ/run_selection_slave.irp.f index 09f7974c..39f6c01c 100644 --- a/plugins/Full_CI_ZMQ/run_selection_slave.irp.f +++ b/plugins/Full_CI_ZMQ/run_selection_slave.irp.f @@ -1,4 +1,7 @@ subroutine run_selection_slave(thread,iproc,energy) + implicit none + integer, intent(in) :: thread, iproc + double precision, intent(in) :: energy(N_states_diag) call run_selection_slave_new(thread,iproc,energy) end @@ -7,8 +10,8 @@ subroutine run_selection_slave_new(thread,iproc,energy) use selection_types implicit none - double precision, intent(in) :: energy(N_states_diag) integer, intent(in) :: thread, iproc + double precision, intent(in) :: energy(N_states_diag) integer :: rc, i, N logical :: buffer_ready