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

type mismatch

This commit is contained in:
Anthony Scemama 2018-06-27 15:54:59 +02:00
parent 6ba232251c
commit 7246641fce

View File

@ -1,4 +1,7 @@
subroutine run_selection_slave(thread,iproc,energy) 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) call run_selection_slave_new(thread,iproc,energy)
end end
@ -7,8 +10,8 @@ subroutine run_selection_slave_new(thread,iproc,energy)
use selection_types use selection_types
implicit none implicit none
double precision, intent(in) :: energy(N_states_diag)
integer, intent(in) :: thread, iproc integer, intent(in) :: thread, iproc
double precision, intent(in) :: energy(N_states_diag)
integer :: rc, i, N integer :: rc, i, N
logical :: buffer_ready logical :: buffer_ready